аЯрЁБс>ўџ dg ўџџџc~џ{џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџьЅС@ #љПлAbjbjзІзІ bЕЬЕЬ–Dџџџџ џџˆJJJJJJJ^‚‚‚8|<@|l^KіК(тјјјј  Y%%^J^J^J^J^J^J$їKRIN’‚J9JЮ!јјЮ!Ю!‚JJJјјЛJ###Ю!JјJјY%#Ю!Y%##:Е#,JJѕ#јЌ| 0ыеѕ[^Ц‚ф!"с# $DбJ0Kы# лN"шлNѕ#^^JJJJлNJѕ# цЄ#Ј„, Ђ‚J‚J^^$‚ю"^^‚ IN-HOME CARE CERTIFICATIONFund Restriction and Program Requirements Michigan Department of Human Services In-Home Care (IHC) program expenditures are restricted to new or expanded programs that are alternatives to out-of-home institutional or foster care. IHC funds may not be used to duplicate services. A. ELIGIBLE CLIENT/STAFFING 1. Children under the jurisdiction of the Court, as an alternative to removal from the child’s home, provided that: a. such care is an alternative to detention or other out-of-home care and: * A written complaint has been received and accepted by the Court * the expenditures are not for judicial cost * the caseload size or services are intensive * non-scheduled payments are not made to pay for basic family needs otherwise available through public assistance programs * the parent(s) and the youth have agreed in writing to receive IHC services, or a temporary order has been entered pending an adjudication hearing; or b. such care is provided to children who at the dispositional hearing are ordered into IHC as an alternative to foster care or other out-of-home care, and: * the expenditures are not for judicial costs * the services are intensive, and * non-scheduled payments are not made to pay for basic family needs otherwise available through public assistance programs 2. The IHC early return option may be used to accelerate the early return of a youth from family foster care, institutional care, or other out-of-home care when the case identifies an early return goal and the services are provided to members of the child’s family. The case plan should identify the family strengths and deficiencies which, if corrected, would permit the youth to be returned home early. IHC services would typically be provided to the family during the time that the youth is in out-of-home care and, if necessary, for a period of time after the youth has returned to the family. 3. The County Department of Human Services (DHS) may provide IHC services if the juvenile court orders care and supervision of a court ward. 4. The County DHS may provide IHC services from its subaccount for CPS category I or category II cases provided that: * such IHC services prevent the need to petition the juvenile court for removal or prevent placement in voluntary foster care, and * non-scheduled payments are not made to cover basic family needs otherwise available through public assistance programs. 5. IHC funds shall not be used to meet the court staff-to-youth population ratio of 1 to 6,000 as specified in the Juvenile Court Standards and Administrative Guidelines for the Care of Children. 6. Court staff hired after 4/30/85, who are responsible for case plan development and monitoring, must meet the qualifications established in the Juvenile Court Standards and Administrative Guidelines for the Care of Children. * Supervisory Personnel * Probation Officers * Counselors 7. County DHS staff and supervisor staff providing direct IHC services must meet the standards set forth in Rules 400.6124, 400.6126 and 400.6128 of the Administrative Rules for Child Placing Agencies. County DHS staff and supervisory staff providing direct IHC services must be state civil servants assigned to classifications and levels equivalent to staff and supervisors in the state foster care program. In IHC programs, county DHS or Juvenile Court contractual staff who are responsible for case plan development and monitoring, must meet the requirements of staff supervising children in foster care, as established in the Juvenile Court Standards and Guidelines for the care of children. 10. IHC reimbursements for program and administrative office space, county purchased supplies, salaries and wages for county employees who provide direct services or support for these services are subject to the same restrictions as reimbursements in county-operated institutions. B. USE OF THE IN-HOME CARE OPTION FOR NON-SCHEDULED PAYMENTS If all other IHC requirements are met, budgeted non-scheduled payments for services available to youth in foster care may be provided to youth in their own home. (Non-scheduled payments are defined in the Child Care Handbook). C. CASE RECORD DOCUMENTATION REQUIREMENTS Individual case documentation is required for all IHC clients. A caseload list is required for every IHC component. As a minimum, case records must include the following: * family case assessment which identifies, by service component, the problems and need for IHC services * day of intake * type of complaint/allegation, supported as follows: (`1) delinquency -- a copy of the complaint or court order, when applicable, placing the child in IHC as part of a formal disposition. (2) abuse/neglect -- allegation and substantiation entered on the DHS-133 in Department cases; * treatment plan which identifies the treatment, objectives and the action steps and timetables which will be used to reach the objectives * case plan changes as a result of supervisor/case worker or contractee/contractor case reviews * quarterly progress reports * dates, type and purpose of service contacts made with the client. Note: weekly face to face contact is required * legal status of youth and the family, and * the living arrangement of the youth at termination of IHC services. Note: Case record content for all foster care cases, under the supervision of a county DHS, should be maintained according to Services Manual Item 722 (6a-9). It is suggested that all IHC material be kept in the first inside section of the foster care file. IHC service purchases from a private or public provider requires a contract unless the service is supportive of a large component (i.e., clothing or dental work for a youth serviced through an established IHC program as for example, intensive supervision). These non-scheduled payments do not require contracts. Only IHC expenditures described in the Annual Plan and Budget and approved by Child and Family Services are reimbursable. IHC funds and services are subject to state review and audit and non-compliance with the above restrictions and requirements may result in withholding or repayment of state reimbursement. All IHC contractual services purchased with county appropriated monies shall be the sole responsibility of the county. The signature of the County DHS Director must be with authority from the County to enter into contractual agreements on behalf of the County for the expenditure of the County Child Care Funds. The county must have all IHC contracts processed through the county’s formal contract approval procedures. The signatures below certify that IHC policy stated in this document have been reviewed. It is understood that these are conditions for claiming IHC fund reimbursement. DATE: FORMTEXT      Presiding Judge of Family Division of Circuit Court, Juvenile Division and/or DATE: FORMTEXT      County Director of Department of Human Services as Agent of the CountyAUTHORITY: P.A. 87 of 1978. RESPONSE: Is required. CONSEQUENCE FOR NONCOMPLETION: Child care funds willGPloS БЭЯв@CoVžЁfiGJ]gh MijЈаиv‹ИуцMPБ р § !t#„#†#š#œ#ž#Ј#Њ#Ќ#Ў#А#T$V$X$Z$j$l$€$‚$„$Ž$$’$”$–$М$є$ќїќѓќїќѓќѓќѓќюќюќѓќѓќѓќюцќюќюїќюќюќїќѓќѓќюќѓќїоќгоХоќїќїќїќїоќКоХоќїќїЕ h~35jоhT;CUjh~3UmHnHujhT;CUjhT;CUh~3hT;C>* hT;C>*h~3 hT;C5hT;CGGmno6 7 S §їФОО‹§‚m[0 Цh„h„˜ў$If^„h`„˜ў0$ Цh„h„˜ў$If^„h`„˜ўa$ 0$$Ifa$2kdW$$If–9жж)К'іжџжџжџжџ4ж 9aіU'$If2kd$$If–9жж)К'іжџжџжџжџ4ж 9aіU*$If –AкA[ўўўS T Щ Ъ  \ Œ Н ; ж з u І Ы I J эййФ­­­­­­˜­­­„0 ЦhГ„h„˜ў$If^„h`„˜ў0 Ц /ёГ„Г„nћ$If^„Г`„nћ0 Ц/ёГфф?њ$If^„С`„?њ0 Ц /ёГ„ё„§$If^„ё`„§0 Ц/ё„ё„§$If^„ё`„§0 Цh„h„˜ў$If^„h`„˜ўJ ЁЂ01ЈЉ.ЊЋpqUV’“^_ыыыыыыжжПыыыыЄЄыы0 Ц/ёY1™UН„ё„§$If^„ё`„§0 Ц/ёГфф?њ$If^„С`„?њ0 Ц /ёГ„Г„Mћ$If^„Г`„Mћ0 Ц/ё„ё„§$If^„ё`„§_./NOijЇЈŒЗИdeЮпŸёчёлЧЧЕЕЕЕЕЕЕЕЕЕЕ 0 Ц /ёГ„Г„Mћ$If^„Г`„Mћ0 Цh„h„˜ў$If^„h`„˜ў0 Ц/ё„ё„§$If^„ё`„§ 0 Ц/ё$If 0 Ц/$If 0 & F Ц/$IfŸŒэ Ќѓєјљ12Ќ­i j Ђ!Ѓ!""p#r#ъжжжжжжжФФОООООООООООО0$If0 Ц‰„‰„wў$If^„‰`„wў0 Ц‰ё„ё„§$If^„ё`„§0 Ц /ёГ„Г„Mћ$If^„Г`„Mћr#t#v#x#„#Ќ#Ў#ЬЗЗЗБЗ-$If0 Цh„h„˜ўdџ$If^„h`„˜ў2kdЎ$$If–9жж)К'іжџжџжџжџ4ж 9aіUЎ#А#>$@$N$P$R$T$V$X$€wwwwbb\b0$If0 Цh„h„˜ўdџ$If^„h`„˜ў 0dџ$If~kdd$$If–9жrтwt"(ж)Ц•§ Тіжџџџџџжџџџџџжџџџџџжџџџџџ4ж 9aіU X$Z$\$^$j$’$”$€kkkek-$If0 Цh„h„˜ўdџ$If^„h`„˜ў~kd$$If–9жrтwt"(ж)Ц•§ Тіжџџџџџжџџџџџжџџџџџжџџџџџ4ж 9aіU”$–$$%&%(%*%,%€wbb\b0$If0 Цh„h„˜ўdџ$If^„h`„˜ў 0dџ$If~kd=$$If–9жrтwt"(ж)Ц•§ Тіжџџџџџжџџџџџжџџџџџжџџџџџ4ж 9aіUє$(%*%,%&@@“A–A™AŸAЅAІAЈAЭAЮAдAеAжAзAиAлALLL&L(L*L>L@LNLPLRLfLhLvLxLzLŽLLžL LЂLЖLњіњієіяічмчмчмЫОЫЏЫміЇЃ˜ЇЃЇЃЇЃЇЃ‚ЇЃЇЃwЇЃЇЃjўhХ=тUj8hХ=тUj_hХ=тUjЉhХ=тUhХ=тjhХ=тUh~30J8CJaJmHnHuh~3hT;C0J8CJaJ!jh~3hT;C0J8CJUaJh~3hT;CCJaJh~3CJaJ h~3hUhT;C hT;C5+,%.%0%2%j%˜%€zE9/ „/$If^„/ „/ЄД$If^„/4kdЗ$$If–9”џжж)К'іжџжџжџжџ4ж 9aіU$If~kdь$$If–9жrтwt"(ж)Ц•§ Тіжџџџџџжџџџџџжџџџџџжџџџџџ4ж 9aіU not be reimbursed.Department of Human Services (DHS) will not discriminate against any individual or group because of race, sex, religion, age, national origin, color, height, weight, marital status, political beliefs or disability. If you need help with reading, writing, hearing, etc., under the Americans with Disabilities Act, you are invited to make your needs known to a DHS office in your area. DHS-167 (Rev. 4-06) Previous edition obsolete. MS Word  PAGE 2 ˜%@”A•A–AиAйAкAлA(LPLxL LШLъLMѕщЃЁš˜˜Ё–”’ŽŒŠ987654i$ Цр€Ekd$$If–9ж0 ж)юЬџџџџіжџџжџџџџџжџџжџџ4ж 9aіU $$Ifa$gd~3 „/$If^„/+0&PАа/ Ар=!АА"АА#А$р%ААААU$$If–U!vh5жК'#vК':V –9іі5жК'4ж4ж 9aіUU$$If–U!vh5жК'#vК':V –9іі5жК'4ж4ж 9aіUU$$If–U!vh5жК'#vК':V –9іі5жК'4ж4ж 9aіU_D Text1­$$If–U!vh5жЦ5ж•5ж§5ж 5жТ#vЦ#v•#v§#v #vТ:V –9іі5жЦ5ж•5ж§5ж 5жТ4ж4ж 9aіUЩ$$If–U!vh5жЦ5ж•5ж§5ж 5жТ#vЦ#v•#v§#v #vТ:V –9іі5жЦ5ж•5ж§5ж 5жТ/ж џ/ж џ4ж4ж 9aіU_D Text1­$$If–U!vh5жЦ5ж•5ж§5ж 5жТ#vЦ#v•#v§#v #vТ:V –9іі5жЦ5ж•5ж§5ж 5жТ4ж4ж 9aіUЩ$$If–U!vh5жЦ5ж•5ж§5ж 5жТ#vЦ#v•#v§#v #vТ:V –9іі5жЦ5ж•5ж§5ж 5жТ/ж џ/ж џ4ж4ж 9aіUY$$If–U!vh5жК'#vК':V –9”џіі5жК'4ж4ж 9aіU•$$If–U!vh5жю5жЬ#vю#vЬ:V –9іі5жю5жЬ/ж џ/ж  џ/ж џџџџџџџџ4ж4ж 9aіUЖDGranteeFirstName=Enter the Grantee's First Name (and Middle Initial, if known)GranteeLastNameйDAddress1 UppercasedEnter the Addressee's mail address (street address, PO Box, etc., where the mail will be delivered). ClientCityЦDCareOf UppercaseUEnter the Addressee's Supplemental Address (Example: Suite or Apartment Number, C/O)Address1œD CaseNumber Uppercase/Enter the Case Number (Example: V1234567A,B,C)“D ClientCity UppercaseEnter the Addressee's City. ClientStateЈD ClientState Uppercase1Enter the Addressee's 2 digit State Abbreviation. ClientZipЗD ClientZip UppercaseKEnter the Addressee's Zip Code (+4 if known) (Example: 48909 or 48909-7537)ЭD CoAddress UppercaseaEnter the County's mail address (street address, PO Box, etc., where the mail will be delivered).D  CoAreaCode000Enter the County's Area Code CoPhoneNumberDCoCity UppercaseEnter the County's City.ЁD CoExtension@F!џ€џџText1УмемџџAqў4Г}BqўЄdƒCqўDБDqў$с EqўO!Fqў|kŽGqў<. HqўЌ"IqўЄŒƒJqўlLˆKqўtO"LqўtЎMqўS‰NqўМШOqўdЋPqўЬЏy  — — ž _ _ f @ @ G FFMKKRм     ”  Ё Ё e i i F J J LPPQZZм   8*€urn:schemas-microsoft-com:office:smarttags€date€9*€urn:schemas-microsoft-com:office:smarttags€place€=*€urn:schemas-microsoft-com:office:smarttags €PlaceType€= *€urn:schemas-microsoft-com:office:smarttags €PlaceName€ €1985€30€4€Day€Month€Year     –ймi v –йм3PlБЭЯв@Cž Ё f i G J уцMP§Те5H^z“•–™ŸЅІЈЭзм–ймШo14Аў@џv| ` џ„ю„>ўЦю^„ю`„>ўo(.„h„˜ўЦh^„h`„˜ў.Шo14v| `џџџџџџџџџџџџх~3T;CmnoЙКЛМТжзи()*+,-./5IJK’“”•–—˜™”•–ймž–џ:V2{џџ-<-DV3zџџ-<-DV4yџџ-<-DV5xџџ-<-DV6wџџ-<-DV7vџџ-<-DV8uџџ-<-DV9tџџ-<-DV:sџџ-<-DV;rџџ-<-DV<qџџ-<-DV=pџџ-<-DV>oџџ-<-DV?nџџ-<-DV@mџџ-<-DVAlџџ-<-DVBkџџ-<-DVCjџџ-<-DVDiџџ-<-DVEhџџ-<-DVFgџџ-<-DVGfџџ-<-DVHeџџ-<-DVIdџџ-<-DVJcџџ-<-DVKbџџ-<-DVLaџџ-<-DVM`џџ-<-DVN_џџ-<-DVO^џџ-<-DVP]џџ-<-DVQ\џџ-<-DVR[џџ-<-DVSZџџ-<-DVTYџџ-<-DVUXџџ-<-DVVWџџ-<-DVWVџџ-<-DVXUџџ-<-DVYTџџ-<-DVZSџџ-<-DV[Rџџ-<-DV\Qџџ-<-DV]Pџџ-<-DV^Oџџ-<-DV_Nџџ-<-DV`Mџџ-<-DVaLџџ-<-DVbKџџ-<-DVcJџџ-<-DVdIџџ-<-DVeHџџ-<-DVfGџџ-<-DVgFџџ-<-DVhEџџ-<-DViDџџ-<-DVjCџџ-<-DVkBџџ-<-Dџџ|%TemplateProject.SuperPhoneNumber.MAIN%TemplateProject.InsertCisAddress.MAIN%TemplateProject.GranteeFirstName.MAIN$TemplateProject.WorkerExtension.MAIN$TemplateProject.GranteeLastName.MAIN$TemplateProject.GranteeClientID.MAIN$TemplateProject.GranteeAddress1.MAIN$TemplateProject.AddChildInfoRow.MAIN#TemplateProject.WorkerAreaCode.MAIN#TemplateProject.SupervisorName.MAIN#TemplateProject.SuperExtention.MAIN#TemplateProject.AddSvcReferral.MAIN"TemplateProject.SvcRefHeading.MAIN"TemplateProject.SuperAreaCode.MAIN"TemplateProject.GranteeCareof.MAIN"TemplateProject.CoSuppaddress.MAIN"TemplateProject.CoPhoneNumber.MAIN"TemplateProject.ClearCaseInfo.MAIN!TemplateProject.NewParagraph.MAIN!TemplateProject.GranteeState.MAIN!TemplateProject.countynumber.MAIN TemplateProject.WorkerPhone.MAIN TemplateProject.GranteeCity.MAIN TemplateProject.CoExtension.MAIN TemplateProject.ClientState.MAINTemplateProject.WorkerName.MAINTemplateProject.GranteeZip.MAINTemplateProject.CountyName.MAINTemplateProject.CoAreaCode.MAINTemplateProject.ClientCity.MAINTemplateProject.CaseNumber.MAINTemplateProject.WorkerFax.MAINTemplateProject.RemoveRow.MAINTemplateProject.lastname2.MAINTemplateProject.FirstName.MAINTemplateProject.CoAddress.MAINTemplateProject.ClientZip.MAINTemplateProject.RowBreak.MAINTemplateProject.LastName.MAINTemplateProject.District.MAINTemplateProject.CaseInfo.MAINTemplateProject.Address1.MAINTemplateProject.Section.MAINTemplateProject.OtherID.MAINTemplateProject.NoReset.MAINTemplateProject.CoState.MAINTemplateProject.Correct.MAINTemplateProject.AddRows.MAINTemplateProject.Worker.MAINTemplateProject.MyInfo.MAINTemplateProject.Hidden.MAINTemplateProject.County.MAINTemplateProject.CoCity.MAINTemplateProject.CareOf.MAINTemplateProject.FaxAC.MAINTemplateProject.Date1.MAINTemplateProject.CoZip.MAINTemplateProject.Unit.MAIN:2TEMPLATEPROJECT.UNIT.MAIN3TEMPLATEPROJECT.COZIP.MAIN4TEMPLATEPROJECT.DATE1.MAIN5TEMPLATEPROJECT.FAXAC.MAIN6TEMPLATEPROJECT.CAREOF.MAIN7TEMPLATEPROJECT.COCITY.MAIN8TEMPLATEPROJECT.COUNTY.MAIN9TEMPLATEPROJECT.HIDDEN.MAIN:TEMPLATEPROJECT.MYINFO.MAIN;TEMPLATEPROJECT.WORKER.MAIN<TEMPLATEPROJECT.ADDROWS.MAIN=TEMPLATEPROJECT.CORRECT.MAIN>TEMPLATEPROJECT.COSTATE.MAIN?TEMPLATEPROJECT.NORESET.MAIN@TEMPLATEPROJECT.OTHERID.MAINATEMPLATEPROJECT.SECTION.MAINBTEMPLATEPROJECT.ADDRESS1.MAINCTEMPLATEPROJECT.CASEINFO.MAINDTEMPLATEPROJECT.DISTRICT.MAINETEMPLATEPROJECT.LASTNAME.MAINFTEMPLATEPROJECT.ROWBREAK.MAINGTEMPLATEPROJECT.CLIENTZIP.MAINHTEMPLATEPROJECT.COADDRESS.MAINITEMPLATEPROJECT.FIRSTNAME.MAINJTEMPLATEPROJECT.LASTNAME2.MAINKTEMPLATEPROJECT.REMOVEROW.MAINLTEMPLATEPROJECT.WORKERFAX.MAINMTEMPLATEPROJECT.CASENUMBER.MAINNTEMPLATEPROJECT.CLIENTCITY.MAINOTEMPLATEPROJECT.COAREACODE.MAINPTEMPLATEPROJECT.COUNTYNAME.MAINQTEMPLATEPROJECT.GRANTEEZIP.MAINRTEMPLATEPROJECT.WORKERNAME.MAINS TEMPLATEPROJECT.CLIENTSTATE.MAINT TEMPLATEPROJECT.COEXTENSION.MAINU TEMPLATEPROJECT.GRANTEECITY.MAINV TEMPLATEPROJECT.WORKERPHONE.MAINW!TEMPLATEPROJECT.COUNTYNUMBER.MAINX!TEMPLATEPROJECT.GRANTEESTATE.MAINY!TEMPLATEPROJECT.NEWPARAGRAPH.MAINZ"TEMPLATEPROJECT.CLEARCASEINFO.MAIN["TEMPLATEPROJECT.COPHONENUMBER.MAIN\"TEMPLATEPROJECT.COSUPPADDRESS.MAIN]"TEMPLATEPROJECT.GRANTEECAREOF.MAIN^"TEMPLATEPROJECT.SUPERAREACODE.MAIN_"TEMPLATEPROJECT.SVCREFHEADING.MAIN`#TEMPLATEPROJECT.ADDSVCREFERRAL.MAINa#TEMPLATEPROJECT.SUPEREXTENTION.MAINb#TEMPLATEPROJECT.SUPERVISORNAME.MAINc#TEMPLATEPROJECT.WORKERAREACODE.MAINd$TEMPLATEPROJECT.ADDCHILDINFOROW.MAINe$TEMPLATEPROJECT.GRANTEEADDRESS1.MAINf$TEMPLATEPROJECT.GRANTEECLIENTID.MAINg$TEMPLATEPROJECT.GRANTEELASTNAME.MAINh$TEMPLATEPROJECT.WORKEREXTENSION.MAINi%TEMPLATEPROJECT.GRANTEEFIRSTNAME.MAINj%TEMPLATEPROJECT.INSERTCISADDRESS.MAINk%TEMPLATEPROJECT.SUPERPHONENUMBER.MAIN@ Яд8ўЯЯ4лp@p"p$p€@џџUnknownџџџџџџџџџџџџG‡z €џTimes New Roman5€Symbol3& ‡z €џArial?5 ‡z €џCourier New"СŒ№аhб+|І‡cЄf‡cЄfj,ƒ5j,5q#№ЅРДД€24d‡‡Їг№ппH(№џ?фџџџџџџџџџџџџџџџџџџџџџ~3џџ#DHS-167, In-Home Care Certificationcomp Administrator  kœL@ёџLNormal#CJЬ OJўQJў_HmHnHsH tH uDAђџЁD Default Paragraph FontVi@ѓџГV  Table Normal :V і4ж4ж laі ўџр…ŸђљOhЋ‘+'Гй0Œ˜Фарьќ   < H T `lt|„ф$DHS-167, In-Home Care CertificationHS-comp67,omp016767,Administratorme4miMicrosoft Word 10.0@вIk@:Шф[^Ц@V[dЛУ@:Шф[^Цj,ўџеЭеœ.“—+,љЎ0 hpŒ”œЄ ЌДМФ Ь ќфState of Michigano5‡O $DHS-167, In-Home Care Certification Title  !"l$%&'()*|,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQR†TUVWXYZўџџџ\]^_`abўџџџ§џџџefsxijklmnopqrt}uvwyІz{| §џџџ€Root Entryџџџџџџџџ РFpјиѕ[^Цh@Data џџџџџџџџџџџџ#s"1Tableџџџџџџџџ+{ŠWordDocumentџџџџbSummaryInformation(џџџџџџџџџџџџSDocumentSummaryInformation8џџџџџџџџ[MacrosUSpУЬѕ[^ЦpУЬѕ[^ЦVBAџџџџџџџџ'pУЬѕ[^ЦpУЬѕ[^ЦdirџџџџџџџџџџџџП Unit  џџџџ+|CoZip џџџџџџџџџџџџ9‚Date1  џџџџH  !"#$%&'()*ўџџџ,-./012345678ўџџџ:;<=>?@ABCDEFGўџџџIJKLMNOPQRSTUўџџџWXYZ[\]^_`abcўџџџefghijklmnopqrўџџџtuvwxyz{|}~€Ж€0* pH‚dфTemplateProjectQH@  =­ | €O‰я7 J< 9stdole>stdoleP f%\*\G{00020А430-C 0046}#2.0#0#C:\WINNT\System32\StdOle2.tlb#OLE AutomatiŒon/€MSForms>„SFErms/z€ p€F73E278D0-E77F-11D2-85D6F502РAE4D27F3.TWD#Mic€rosoft =" ` ObА LРibrary9бP0ˆj€P410819B2 -F347PECPTEMP\VB$E\…&EXЇ&с.E р….Р`ŒM Д“Cv OfficDvO@s ficBvР)"†Ф*2DF€R4C-5BFA-10€1B-BDE5Р*дAA@u4Р2SРŸgram FilXes\ЧO\„MSO97.DLLCHXƒ 8.0’X‚Л;Т№8BЄThisDoc@umentN2D@1Th@6sDD€‹cuŒen@ВРHB1ТР‹B,Bђ8"B"+BРSuperPhone€NumberRX2 С @p@UrPР!o@eNB!bBc!є8!` ЉInsertCisAddrИessЃ­ЃIрЂsт tCЂ!A yhdr`shЏЖ o!іАGranteeFirstpNameЃ­ЃGUр a t eРwiурaŠNaЂ2!AžјЌСŸWorke€rExtensР†bЂŒ2`;W‚†k rEx{р@ЁAs`"a3?!њѓ0$LaХ СŒ#]Ћ L` ­Rќ7Cфli€aIDc $…Е1CрЙiр!abI dл a ў7фQ1*…Г1kQ1?!р0  ChildInрfoRow#Œ#ЕcCbƒl`a!df`CjR`w0я@ъ­0т,гƒNAreaClod ao2Ђ щPAер`eр@C`d 1яRŸIфп’Iv№isorГ8б;гjSVIvв@o_8ЦsQпцпгћB8Б{‚zв6н8^t8п0PSYшп`SvcRefe№rralг;г“ЈSvаnRаf0šr№ap0ŸVPъм p ЃHea dingр‘Б*2QXHp*a'iQg'зњ ŸьŸS'Тjѓ%•ushп&€ zpQџюŸХEa№reof3*“ћNvCp.Qgo‡пŸDаŸCop%p~a…o1*“ё4“.pНPdА‘џnpЕŸјвŸŠ“(;—џ~eP&?ŸдŸClear№CaseСMг*•}бЙa‘1•MŸ€=MжœСNewPara€phS–kS–Nа,w0Ž‘aTg№a№&h-2ПLи_е%StП`ЭSФ%SЛ%Sа|Кa0e_џ@/к_countynЏtбScpZurŒЊyPuА‹bаr_л_Pм\`>Scb$Ф 2PљbЧ—%?п$оЖ;јity•;};Кiy??а РЯ3b`ѓ™1Coё:?™??Тџ3Ё$В‘є#QЙ_п#€ ?h@3hФ sГwћ2ё9#rгЇџvќv9Д",€Ц8Š!р+( 8GranteeZˆip <2|ranteZipD.H 1(кШкCou€ntyNamemƒmCoumhyNwms#mЪmAreaCodз†6…‡6A€oe€4< dІ6Ь‘6lienрtCity„m†…6*l€že‚nC€t yЄЄЮ‘6aseNрumber„6†…6(as€gNРSmЊb@rdАL €tWorkerFaˆxŠ2AQ@mrkТFРRxdВPRemovpeRowC†CRUРm@vРRРwPkаЂДPlasttn@Ђ2C†ClЕР1s@НnРAЁ2ф4‚ЖPFirstНWAO†CFР‚rРjtlМИPCoAdd№ressУ4†# a\ЈAd rр's`{kс†К1 Ђ[Т†aC_Х% g]†@Hc†М-, @`ABРxkbЉ2ab@BUdxkp4GАAОА Lп AC4Ё ЅЃ LdA?’@@c А DisрtrictcЅЃ жDр@!Nrрc O3a3ЂА C`Inf.oЃ ЅЃ CbešIрf 'Џ кoЙіЄА $M1Ѓ ЅЃ ЋLV1gтгІЌ `)Sectionqˆ2!`Xс$i- n? " Ј0 OtрherID# „# ЊO 0h  r %D? " Њ0 NoResоe€>a„# N`ašU!Еt0 oАWЌ0 CрoStatРм! „Ћ# 1?Sp a0e"Ÿ{ЎCxorr SФrЗ8_+Бs@Нў$ >K1 Фг$%ѓ^s? ’M#SlЗ2М qPѕkџ0?Ф”пMy37б›ГгMp~п6““(п6–пHixdde`0бГгH/аB]q…П vŸ˜џпаq™“3™гб#ѕ˜упŸšпаS‘љБ CoБзŸ•пœпCarИeOfД ВеaR)(Of?#пžмА!0ACІ2RВSŽAC—ŸŸP€ŸD;яРS‘Ђ“D№YБЖ?SіŸ‚Ÿ№ry‘ќCo “БПxS(п„œ $UnVi`L•2yUdiЧаEџ!_†Z1|ЖџџџџџџџџџџџџџџџџџџџџџџџџxоG}џџџџ№8†8џџџџcжжџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпџџџџH џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„џџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪ€ џџџџ" џџџџ0ЎUnitЩ" B@ џџlџџXџџџџPiАAttribute VB_Name = "Unit" Public Sub MAIN() WordBasic.WW7_EditGoTo Destinat ion:=€Endv ЖџџџџџџџџџџџџџџџџџџџџџџџџxоG}џџџџ№8„8џџџџcжжџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпџџџџH џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„џџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪ€ џџџџ" џџџџ0ЎcozipЩ" B@ lџџXџџџџPoАAttribute VB_Name = "CoZip" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="cDoz‚Endx ЖџџџџџџџџџџџџџџџџџџџџџџџџxоG}џџџџ№8‚8џџџџcжжџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпџџџџH џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„џџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪ€ џџџџ" џџџџ0Ўdate1Щ" B@ lџџXџџџџPlАAttribute VB_Name = "Date1" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="d‚Endx ЖџџџџџџџџџџџџџџџџџџџџџџџџxоG}FaxAC џџџџџџџџџџџџV}CareOf џџџџd„CoCityџџџџџџџџџџџџsƒCounty џџџџ‚џџџџ№8€8џџџџcжжџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпџџџџH џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„џџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪ€ џџџџ" џџџџ0ЎFaxACЩ" B@ lџџXџџџџPjАAttribute VB_Name = "FaxAC" Public Sub MAIN() WordBasic.WW7_EditGoTo Destina@tion:=‚Endx ЖџџџџџџџџџџџџџџџџџџџџџџџџxоG}џџџџ№8ž8џџџџcжжџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпџџџџH џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„џџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪ€ џџџџ" џџџџ0ЎcareofЩ" B@ lџџXџџџџPqАAttribute VB_Name = "CareOf" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="Šc„o„Endz ЖџџџџџџџџџџџџџџџџџџџџџџџџxоG}џџџџ№8œ8џџџџcжжџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџƒ„…†‡ˆ‰Š‹ŒŽўџџџ’“”•–—˜™š›œžŸ ЁЂЃЄЅІЇЈўџџџЊЋЌ­ЎЏАБВГДЕЖўџџџИЙКЛМНОПРСТУФХЦЧШЩЪўџџџЬЭЮЯабвгдежзийклмнопрсўџџџуфхцчшщъыьэюя№ўџџџђѓєѕіїјљњћќ§ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпџџџџH џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„џџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪ€ џџџџ" џџџџ0ЎcocityЩ" B@ lџџXџџџџPpАAttribute VB_Name = "CoCity" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="ˆcoc„Endz ЖџџџџџџџџџџџџџџџџџџџџџџџџxоG}џџџџ№8š8џџџџcжжџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпџџџџH џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„џџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪ€ џџџџ" џџџџ0ЎcountyЩ" B@ lџџXџџџџPnАAttribute VB_Name = "County" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:=""c„Endz ЖџџџџџџџџџџџџџџџџџџџџџџxоЬџџџџ№8˜8џџџџ:жжvџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(6 џџџџ<џџ< џџ<џџџџџџO‰я7$*\Rffff*4137eHiddenџџџџџџџџџџџџ‘ђMyInfoџџџџ‚Ў3WorkerџџџџџџџџџџџџЉAddRowsџџџџЗђœƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›ўџџџžŸЁЋЂЃЄЅЇзЈЉЊЌЙЗЎЏАБВГДЕЖўџџџИКЛМНОСПРгкУФХЦЧШЩЪЫЬЭЮЯабвўџџџдежиьйлтмнопрсуыфхцчшщъэѕўюя№ёђѓєі§їјљњћќ,§џџџf8951пџџџџа џџџџ`xЈџџџџџџџџџџџџџџ„џџџџџџџџƒžџџџџџџpџџџџџџџџџџџџџџџџџџ$(Makes the selection hidden text (toggle)TemplateProject.Hidden.MAINџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@MEџџџџџџџџџџўЪ€ џџџџ"ЄАџџџџРЎ10ЩЂЄЩЄЄ ЩІЄЩЈЄЩЊЄЩЌЄЩžЄЩЎЄЩАЎ0 ptЩВЎ0 ptЩДЄЩЖЎЩИЎ0ЩdЎArialЩКЄЩМЄЩО B@  lџџpџџџџhxБAttribute VB_Name = "Hidden" Public Sub MAIN(X) ШD.nDescription|Makes the selec,hЄ text (toggle)Р–Pro cDataWInvoke_FuncWTemplaTte"jV.І.…JWordBasic.FormatFont Points:="10", Underline:=0, Color@:=9, S€keThroughС‚ Superj„Fbˆ<:=1mРallCap€1)AˆSpacinBg€=0 pt€>Posi…‡KerŽn„Min€ё€Tab€d ArialBoФld‚IItaЭ Endб ЖџџџџџџџџџџџџџџџџџџџџџџџџxоG}џџџџ№8”8џџџџcжжџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпџџџџH џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЖџџџџџџџџџџџџџџџџџџџџџџxоЬџџџџ№8–8џџџџ:жж(џџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(6 џџџџ<џџ< џџ<џџџџџџO‰я7$*\Rffff*4037ef8951пџџџџа џџџџ`ˆЈџџџџџџџџџџџџџџІІ„@„џџџџџџџџ џџP„\џџџџџџџџџџP„^џџџџџџџџџџxP„(џџџџџџџџџџP„`џџџџџџџџџџ№P„bџџџџџџџџџџ’8P„dџџџџџџџџџџP„fџџџџџџџџџџP„hџџџџџџџџџџ”8P„jџџџџџџџџџџP„lџџџџџџџџџџP„nџџџџџџџџџџP„pџџџџџџџџџџP„rџџџџџџџџџџP„tџџџџџџџџџџP„vџџџџџџџџџџP„xџџџџџџџџџџP„zџџџџџџџџџџP„|џџџџџџџџџџјP„~џџџџџџџџџџP„€џџџџџџџџџџ`„,џџџџџџџџ џџџџџџƒZџџџџџџ€џџџџџџџџџџџџџџ$Enter Personal InformationTemplateProject.MyInfo.MAINџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџPMEџџџџџџџџџџўЪЇ€ џџџџ"€€€€ €(€0€8€@€H€P€X€`€h€p€x€€€ˆ€€˜€ €Ј€ џџџџ€ АШ&ш((8*`&(И&р&(0&X$€&Ј$а$ј& $H&p&˜(РNш$8$`&ˆ&А*и$"00XTˆ$р$0P p€€ џџџџ€ < 4р68P6ˆ8Р6ј406h8 4и6 4H 2€ 2И 4№ 2( 4` :˜ :и € џџџџ€ 2 P h € џџџџ€ &ˆ 4А 6ш 8 6X 8 6Ш 4 68 8p 4Ј 6р 42P2ˆ4Р2ј40:h:Ј€ џџџџ€ џџџџ€ "ш02@4x2А4ш2 0X2ˆ4Р0ј2(0`..Р0№. 0P6€6И€ џџџџ€ џџџџ€ "№:>XB˜>рF 2h: >р6 6X.2Р:ј:82x6А2шB Fh€ џџџџ€ 4А€ 2ш€ & € (H€ *p€ . € а€ 2№€ 4(`€ h€ x€ џџџџ˜џџџџЈZъ@ZъXZъpZъˆZъ ZъИZъаZъшZъZъZъ0ZъHZъ`ZъxZъZъЈZъРZъиZъ№ZъZъ иDEFINE DIALOG BOXЄFЄ,ЎMyInfo B@$э"ЄmЄ Є^ЄЎYourName B@&ЄmЄ8Є^ЄЎ YourTitle B@&ЄmЄPЄ^ЄЎ YourOffice B@&ЄmЄiЄ^ЄЎ YourAddress B@&џџџџџџЄxЄ‚ЄвЄЎYourCity B@&SЄTЄ‚Є(ЄЎ YourState B@&Є†Є‚ЄFЄЎYourZip B@&ЄnЄ›Є(ЄЎAreaCode B@&ЄœЄ›ЄPЄЎ YourPhone B@&ЄыЄ›Є<ЄЎYourExt B@&ЄrЄ›Є(ЄЎFAXAC B@&ЄŸЄ›ЄPЄЎYourFax B@&Є ЄДЄ(ЄЎYourCO B@&ЄмЄДЄ(ЄЎYourDI B@&ЄЄДЄ(ЄЎYourSEC B@&ЄTЄДЄ(ЄЎYourUN B@&ЄЄДЄ(ЄЎYourWKR B@&ЄmЄяЄ^ЄЎBossName B@&ЄmЄЄ^ЄЎ BossTitle B@&ЄkЄ ЄЄ Ў/Enter the following information about yourself. B@fЄЄ#Є2Є ЎName: B@fЄЄ;Є2Є ЎTitle: B@fЄЄRЄ<Є ЎOffice: B@fЄЄkЄUЄ ЎAddress: B@fЄЄ„Є‚Є Ў City-ST-Zip: B@fЄЄЄ7Є ЎPhone: B@fЄ>ЄЄ%Є ЎFAX: B@fЄЄЖЄ‚ЄЎCO-DI-SEC-UN-WKR: B@fЄKЄсЄТЄ Ў6Enter the following information about your supervisor. B@fЄЄђЄ2Є ЎName: B@fЄЄ Є2Є ЎTitle: B@fЄфЄ ЄXЄ B@(ЄфЄ"ЄXЄ B@‚ B@*Zъ8Eх !.!0.,и6GET USER INFO FROM INI FILE AND PUT IT INTO DIALOG BOXЎUserInfoЎNameЎ MYINFO.ini %€Z ,(„ЎUserInfoЎTitleЎ MYINFO.ini %€Z ,(†ЎUserInfoЎAreaCodeЎ MYINFO.ini %€Z ,((ЎUserInfoЎPhoneЎ MYINFO.ini %€Z ,(ˆЎUserInfoЎYourExtЎ MYINFO.ini %€Z ,(bЎUserInfoЎFaxACЎ MYINFO.ini %€Z ,(dЎUserInfoЎFaxЎ MYINFO.ini %€Z ,(fЎUserInfoЎOfficeЎ MYINFO.ini %€Z ,(ŠЎUserInfoЎAddressЎ MYINFO.ini %€Z ,(ŒЎUserInfoЎCityЎ MYINFO.ini %€Z ,(ŽЎUserInfoЎStateЎ MYINFO.ini %€Z ,(ЎUserInfoЎZipЎ MYINFO.ini %€Z ,(’ЎUserInfoЎCOЎ MYINFO.ini %€Z ,(”ЎUserInfoЎDIЎ MYINFO.ini %€Z ,(–ЎUserInfoЎSECЎ MYINFO.ini %€Z ,(˜ЎUserInfoЎUNЎ MYINFO.ini %€Z ,(šЎUserInfoЎWKRЎ MYINFO.ini %€Z ,(œЎUserInfoЎ Boss NameЎ MYINFO.ini %€Z ,(|ЎUserInfoЎ Boss TitleЎ MYINFO.ini %€Z ,(~и,DISPLAY DIALOG BOX AND RESPOND TO USER INPUT , !D%0' Є•и OK BUTTONиWRITE NEW USER INFO IN INI FILEЎUserInfoЎName ,!„Ў MYINFO.ini B@FЎUserInfoЎTitle ,!†Ў MYINFO.ini B@FЎUserInfoЎAreaCode ,!(Ў MYINFO.ini B@FЎUserInfoЎPhone ,!ˆЎ MYINFO.ini B@FЎUserInfoЎYourExt ,!bЎ MYINFO.ini B@FЎUserInfoЎFaxAC ,!dЎ MYINFO.ini B@FЎUserInfoЎFax ,!fЎ MYINFO.ini B@FЎUserInfoЎOffice ,!ŠЎ MYINFO.ini B@FЎUserInfoЎAddress ,!ŒЎ MYINFO.ini B@FЎUserInfoЎCity ,!ŽЎ MYINFO.ini B@FЎUserInfoЎState ,!Ў MYINFO.ini B@FЎUserInfoЎZip ,!’Ў MYINFO.ini B@FЎUserInfoЎCO ,!”Ў MYINFO.ini B@FЎUserInfoЎDI ,!–Ў MYINFO.ini B@FЎUserInfoЎSEC ,!˜Ў MYINFO.ini B@FЎUserInfoЎUN ,!šЎ MYINFO.ini B@FЎUserInfoЎWKR ,!œЎ MYINFO.ini B@FЎUserInfoЎ Boss Name ,!|Ў MYINFO.ini B@FЎUserInfoЎ Boss Title ,!~Ў MYINFO.ini B@FиGet user info from INI fileЎUserInfoЎNameЎ MYINFO.ini %€Z' \ЎUserInfoЎTitleЎ MYINFO.ini %€Z' ^ЎUserInfoЎAreaCodeЎ MYINFO.ini %€Z' (ЎUserInfoЎPhoneЎ MYINFO.ini %€Z' `ЎUserInfoЎYourExtЎ MYINFO.ini %€Z' bЎUserInfoЎFaxACЎ MYINFO.ini %€Z' dЎUserInfoЎFaxЎ MYINFO.ini %€Z' fЎUserInfoЎOfficeЎ MYINFO.ini %€Z' hЎUserInfoЎAddressЎ MYINFO.ini %€Z' jЎUserInfoЎCityЎ MYINFO.ini %€Z' lЎUserInfoЎStateЎ MYINFO.ini %€Z' nЎUserInfoЎZipЎ MYINFO.ini %€Z' pЎUserInfoЎCOЎ MYINFO.ini %€Z' rЎUserInfoЎDIЎ MYINFO.ini %€Z' tЎUserInfoЎSECЎ MYINFO.ini %€Z' vЎUserInfoЎUNЎ MYINFO.ini %€Z' xЎUserInfoЎWKRЎ MYINFO.ini %€Z' zЎUserInfoЎ Boss NameЎ MYINFO.ini %€Z' |ЎUserInfoЎ Boss TitleЎ MYINFO.ini %€Z' ~и Update Form with user infoЎ WorkerName %\”FЎ workerName \ B@^gЎ WorkerTitle %\”FЎ WorkerTitle ^ B@^gЎWorkerAreaCode %\”FЎWorkerAreaCode ( B@^gЎ WorkerPhone %\”FЎ WorkerPhone ` B@^gЎWorkerExtension %\”FЎWorkerExtension b B@^gЎFaxAC %\”FЎFaxAC d B@^gЎ WorkerFax %\”FЎ WorkerFax € B@^gЎ Countynumber %\”FЎ Countynumber r B@^gЎDistrict %\”FЎDIstrict t B@^gЎSection %\”FЎSECtion v B@^gЎUnit %\”FЎUNit x B@^gЎWorker %\”FЎWorker z B@^gЎ CountyName %\”FЎ CountyName h B@^gЎ CoAddress %\”FЎ CoAddress j B@^gЎCoCity %\”FЎCoCity l B@^gЎCoState %\”FЎCoState n B@^gЎCoZip %\”FЎCoZip p B@^gЎSupervisorName %\”FЎSupervisorName | B@^gЎSupervisorTitle %\”FЎSupervisorTitle ~ B@^gи. Update other Form Fields on Form & Exit Macroм- Selected$=GetFormResult$ ("CurrentDate")м! TheSerialDate = Today() + 14м$ TheDate$ = Date$(TheSerialDate)м& SetFormResult "DueDate", TheDate$м) EditGoTo "CreateDate" : UnlinkFieldsм EditGoTo "GranteefirstName"м- ToolsProtectDocument .NoReset = 1, .Type = 2м/ ToolsProtectSection .Section = 2, .Protect = 0aџџ˜м FileClose 2м SelectName = - 1hџџhlџџ`џџџџX1ЕAttribute VB_Name = "MyInfo" Public Sub MAIN(X) ШD.nDescription|Enter PersonaФl –rma:ЄzProcDataIInvoke _FuncITe@mplate"jаect.˜.wJDim iRet„  UserР‚$Title€AreaCod!-PhonYo urExtFaјxAC„ €„ Offic $Ad dressCidtyStbˆZ$ipˆCODI™SE…B;UN WKR„Boss| |ƒ] 'DEFINE DIALOG BOX WordBasic.BeginDialog 582, 300,H‚ G TextBox 109Ы@ A 5@ 18@ KчA#Рgи 56Р Ъ ‚,u 8Р3 Cb[ 1\05ЭФkз 2A33y21AХ5Au 3~4  Х ‚~ 9Н 7 Р‡– 1‚$О55ЦХЖз С[1С ЯСPЦiР–23` ‚n6i dV3ЂjFAXAC41e w `VV1Ѓ@ъ,C:O62Т9 *DI7Ѓm РqVУ?Ž UъN64!l1.{Vyтm23nц`Хœ6ž4Љ`†„Врz7,€4, c3рzƒКthe following info$Л about ‚yРЈself.є Й", ‚Ё !…:wў5рf"„˜Ё–bC г#ƒИ10@8ЁOСЋ$‚љ3Рœ1С{1aA-ST- u™5_€ СabТmД3r1§С3@Т gY Су ;"CO-DI-aT-UN-@H47щ22€4Ц*ƒ superv0isorџ!a 1љ№24€жбfЧ>6p6ВiOKButtА…48 … 8pR21 f@CancelЉ3GрЕЧkEndƒn 1rƒdlgСuQŠ As Ob‘†: SHet Љ= CurValues.‘Х vGET USER INF@O FROMI FILE AN€D PUT I иNTOzxˆ.t№[GetPri‚vГfileSp›@ng$]("е "'P:сqMY.iјni"›эrџџџў’ Хhџџўџ–lА ? ža"Т4?џ?>’? Mpnяя_юё1r ‡&.nAўCяяю’п н `чяяяaxЯЭУUџџџўЃ/-Y?џ?>ДOMA\џяэЂŸџџўџCЃ$$a&Рgяяюїpп ЮOППОp˜ѓ | DIЏЏЎ›џЏЌpППОp/љ-UNППО0  џ| {ППОp y ‘žQaпвЊГeProfileString$]("UserInfo", "Bo€ss Name0MYINFO.ini") dl gЄ.LTitle = WordBasic.[GetPrivat Ш>e 'DISPLAY DIALOG BOX AND RESPOTO USER INPUT@ iRet …DРialog.Ћ F(ЙЧIf „-1 Then 'OK BUTTON €?WRIT E NEW…3FO6I FILEд ‡xSx ŠЉЇс‰ŸYour €ИВЎ,…Ё -‚ М-Are№aCod‚‰…|№PhonEТќёСExtР–ЭE@ќрFaxACLТџа+@ќOfficZП Ly+[Add№ress0$џ њ №City С? : |St€”P т z ZNуƒУE„ УWKЦR#ƒkNamŸкˆ Officeх€Addressў|Co%Ѓ Єп A‡CрoCity У !  œ’CoSta>tП$хc bŸ CoјZipПЂ рР ŸЉ"SupervpisorŸ<рЉЬ,р Boss!П с/сЧTitlП%эу b ' UpdР. other !П Fields onУ& Шt Macro  Rem" Se‚l }ed$=G Ц$ ("CurrpentDЂ9'рЬS erial = Today()` + 14Њс$kт(Ъ)ьдD|ueс`с"GEditGoTo "Cрфt : РUnlinkУЃ'Grantee firstС3"ToolsPro‚t€Docum .NoРхet`1, .TypeM@2/Є .= 2ф `0 Else#Fil€eClose D Gc.Ё@- 1€n@d If “Sub „џџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪ€ џџџџ" џџџџ0ЎworkerЩ" B@ lџџXџџџџPlАAttribute VB_Name = "Worker" Public Sub MAIN() tdBasic.WW7_EditGoTo Destinat€ion:="w„Endz ЖџџџџџџџџџџџџџџџџџџџџџџxоЬџџџџ№8’8џџџџ:жжџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(6 џџџџ<џџ< џџ<џџџџџџO‰я7$*\Rffff*3f37ef8951пџџџџа џџџџ`xЈџџџџџџџџџџџџџџ„џџџџџџџџƒXџџџџџџpџџџџџџџџџџџџџџџџџџ$+Adds row to table FOLLOWING cursor locationTemplateProject.AddRows.MAINџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@MEџџџџџџџџџџўЪ€ џџџџ"0џџџџ@Є B@”ЎЩŒ B@Š ЌlџџHџџџџ@ьАAttribute VB_Name = "AddRows" Public Sub MAINА() ЬD.pDescription~s row to table FOLLOWING cursor loca\ЦNProcDataZInvo€ke_FuncZTemplateA"ject.Њ.‰KWordBasic.LineDown 1 TInserBtс Numt:D="€Ends Жџџџџџџџџџџџџџџџџџџџџџџџџxо_}џџџџ№88џџџџ{жжsџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџCorrectџџџџџџџџџџџџЫЇCoStateџџџџтŒNoResetџџџџџџџџџџџџё)OtherIDџџџџŽџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпџџџџ` џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ „@„Pџџџџџџџџ џџ˜цџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪ € џџџџ"€€ V*h˜ Ј И Шиј€ џџџџџџџџZъ@мQ This serves as a replacement to the spell checker within a protected documentЎCheck spelling now?Є %R'Pџџџџџџ PЄ•џџ B@lџџџџџџ B@T( B@VџџџџџџЄЩ|ЄЩn B@zџџџџџџhџџlџџјџџџџ№0БAttribute VB_Name = "Correct" Public Sub MAIN() Dim ans Rem This se@rves a replacement to the spell checker within @a protЬe„d docu3 Z„WordBasic.Ms€gBox("C?King now ?", 3If4-1en  QATools4UnoDi %St`artOf"S7d€>’0Pƒg NoReset:=1, Type:=2 End IfЌЋ ЖџџџџџџџџџџџџџџџџџџџџџџџџxоG}џџџџ№8Ў8џџџџcжжџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпџџџџH џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„џџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪ€ џџџџ"(џџџџ8ЎcostateЩ" B@ lџџPџџџџHqАAttribute VB_Name = "CoState" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="cos†End| ЖџџџџџџџџџџџџџџџџџџџџџџџџxоG}џџџџ№8Ќ8џџџџcжжoџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпџџџџH џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџ     ўџџџўџџџ!"#$%&'()*+,ўџџџ.ўџџџ0ўџџџ2ўџџџ4ўџџџ6ўџџџ8ўџџџ:ўџџџ<ўџџџ>ўџџџ@ўџџџBўџџџDўџџџFGHIJKLMNOPQRSўџџџUVWXYZ[\]^_`abўџџџdefghijklmnopqўџџџstuvwxyz{|}~€„џџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪ€ џџџџ"€ <H€ џџџџhџџџџxм8 This saves as a form without resetting the form fields.&NЄЩ|ЄЩn B@z)S1lџџџџџџЖАAttribute VB_Name = "NoReset" Public Sub MAIN() Rem This saves a form without rztin g the4fields. WordBasic.ToolsProtectDocument ~:=1, Ty pe:=2‰End† ЖџџџџџџџџџџџџџџџџџџџџџџџџxоG}џџџџ№8Њ8џџџџcжжџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпџџџџH џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„џџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪ€ џџџџ"(џџџџ8ЎotheridЩ" B@ lџџPџџџџHsАAttribute VB_Name = "OtherID" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:=$"o†id†End| ЖџџџџџџџџџџџџџџџџџџџџџџџџxоG}џџџџ№8Ј8џџџџcжжџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпџџџџH џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџSectionџџџџџџџџџџџџ…__SRP_0џџџџ­>__SRP_1џџџџџџџџџџџџ  __SRP_2џџџџ-T„џџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪ€ џџџџ"(џџџџ8ЎSectionЩ" B@ lџџPџџџџHjАAttribute VB_Name = "Section" Public Sub MAIN() WordBasic.WW7_EditGoTo Desti$nar:=†End| “K)^џџџџ  ))002233rU€€€~~~~~~~~~~~~~] љщ‡ьэtг†дЎM'  ф; џџџџџџџџџџџџбџџџџџџџџџџџџџџџџџџџџ9ˆ СџџџџˆџџџџЉџџiџџџџџџџџџџџџџџџџџџџџ™џџџџџџџџџџџџџџџџџџџџЩџџџџџџџџџџџџџџџџџџџџёџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџAџџџџџџџџџџџџџџџџџџџџiџџџџџџџџџџџџџџџџџџџџ‘џџџџџџџџџџџџџџџџџџџџЙџџџџџџџџџџџџџџџџџџџџсˆ Сџџџџ џџџџЉџџ џџџџџџџџџџџџџџџџџџџџ1џџџџџџџџџџџџџџџџџџџџYџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЉџџџџџџџџџџџџџџџџџџџџбџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџ1џџџџџџџџџџџџџџџџџџџџYџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЉџџџџџџџџџџџџџџџџџџџџЩџџџџџџџџџџџџџџџџџџџџщџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџ)џџџџџџџџџџџџџџџџџџџџIџџџџџџџџџџџџџџџџџџџџiџџџџџџџџџџџџџџџџџџџџ‰џџџџџџџџџџџџџџџџџџџџЉџџџџџџџџџџџџџџџџџџџџЩџџџџџџџџџџџџџџџџџџџџщџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџ)џџџџџџџџџџџџџџџџџџџџIџџџџџџџџџџџџџџџџџџџџiџџџџџџџџџџџџџџџџџџџџ‰џџџџџџџџџџџџџџџџџџџџЉџџџџџџџџџџџџџџџџџџџџЩџџџџџџџџџџџџџџџџџџџџщˆ СџџџџИџџџџЉџџ џџџџџџџџџџџџџџџџџџџџ)џџџџџџџџџџџџџџџџџџџџIџџџџџџџџџџџџџџџџџџџџaџџџџџџџџџџџџџџџџџџџџyџџџџџџџџџџџџџџџџџџџџ‘џџџџџџџџџџџџџџџџџџџџЉˆ СџџџџаџџџџЉџџСџџџџџџџџџџџџџџџџџџџџйˆ СџџџџшџџџџЉџџёˆ СџџџџџџџџЉџџ џџџџџџџџџџџџџџџџџџџџ!џџџџџџџџџџџџџџџџџџџџ9џџџџџџџџџџџџџџџџџџџџQџџџџџџџџџџџџџџџџџџџџiџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ™џџџџџџџџџџџџџџџџџџџџБy ‰ i i Q0167 ThisDocumentTemplateProjectModule1SuperPhoneNumberInsertCisAddressGranteeFirstNameWorkerExtensionGranteeLastNameGranteeClientIDGranteeAddress1AddChildInfoRowWorkerAreaCodeSupervisorNameSuperExtentionAddSvcReferral SvcRefHeading SuperAreaCode GranteeCareof CoSuppaddress CoPhoneNumberVBA ClearCaseInfo NewParagraph GranteeState countynumber WorkerPhone GranteeCity CoExtension ClientState WorkerName GranteeZip CountyName CoAreaCode ClientCity CaseNumber WorkerFax RemoveRow lastname2 FirstName CoAddress ClientZipRowBreakLastNameDistrictCaseInfoAddress1SectionOtherIDNoResetCoStateCorrectAddRowsWorkerMyInfoHiddenCountyCoCityCareOfFaxACDate1CoZipUnitяРF=C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.dll Щџџџџ ёљ( РF4C:\Program Files\Microsoft Office\Office\MSWORD8.OLBWord б џџџџ љ q 80РFC:\WINNT\System32\StdOle2.tlbstdole с џџџџ Q Hаxтsчв…жЎM'C:\WINNT\System32\MSForms.TWDMSForms С С  Q Xс.E р….`ŒM ДВAGѓв…ьЎM'C:\TEMP\VBE\MSForms.EXD щ С  Q hLај-њ[НхЊDоR 2C:\Program Files\Microsoft Office\Office\MSO97.DLLOffice Ё џџџџЩ 9xMAIN $rU€€€ џџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџ џџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџ=Retrieves CIS Client address info from c:\glwin\cistowrd.ini %TemplateProject.InsertCisAddress.MAIN -Adds a row and fields for A. Service Referral #TemplateProject.AddSvcReferral.MAINEnter Personal InformationTemplateProject.CaseInfo.MAIN +Adds row to table FOLLOWING cursor locationTemplateProject.AddRows.MAINTemplateProject.MyInfo.MAIN (Makes the selection hidden text (toggle)TemplateProject.Hidden.MAINrU€€€€~} џџџџkrU€€€ џџџџџџџџ$__SRP_3џџџџџџџџџџџџ/m__SRP_4џџџџ1T__SRP_5џџџџџџџџџџџџ3m__SRP_6#џџџџ5T`§џџџaщprU€€€€~} џџџџkrU€€€ џџџџџџџџ$`§џџџAЉprU€€€€~} џџџџkrU€€€ џџџџџџџџ$__SRP_7џџџџџџџџџџџџ7m__SRP_8 "џџџџ9T__SRP_9џџџџџџџџџџџџ;m__SRP_a!%џџџџ=T`§џџџљ9prU€€€€~} џџџџkrU€€€ џџџџџџџџ$`§џџџсprU€€€€~}  џџџџkrU€€€ џџџџџџџџ$ __SRP_bџџџџџџџџџџџџ?m__SRP_c$&џџџџAT__SRP_dџџџџџџџџџџџџCmAddress17џџџџE‰`§џџџљ)prU€€€€~}  џџџџkrU€€€ џџџџџџџџ$ `§џџџiЩpЖџџџџџџџџџџџџџџџџџџџџџџџџxоG}џџџџ№8І8џџџџcжжџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпџџџџH џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ƒџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪ€ џџџџ"(џџџџ8ЎAddress1Щ" B@ MlџџPџџџџHnАAttribute VB_Name = "Address1" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:"= ˆEnd~ ЖџџџџџџџџџџџџџџџџџџџџџџџџxоG}џџџџ№8Ђ8џџџџcжжџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџCaseInfoџџџџџџџџџџџџТˆ!District(*џџџџTŠLastNameџџџџџџџџџџџџcŽRowBreak)-џџџџr Жџџџџџџџџџџџџџџџџџџџџџџxо6Ьџџџџ№8Є8џџџџRжжкџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(6 џџџџ<џџ< џџ<џџџџџџO‰я7$*\Rffff*3e37ef8951пџџџџш џџџџ`˜Иџџџџџџџџџџџџџџbb„@„џџџџџџџџ џџP„џџџџџџџџџџP„џџџџџџџџџџxP„џџџџџџџџџџџџџџP„ џџџџџџџџџџџџџџP„ џџџџџџџџџџџџP„џџџџџџџџџџџџџџP„џџџџџџџџџџ:џџP„џџџџџџџџџџLP„џџџџџџџџџџSп@„џџџџџџџџ џџWу`„,џџџџџџџџ џџ[-џџџџƒџџџџџџџџџџџџџџџџџџџџ$Enter Personal InformationTemplateProject.CaseInfo.MAINџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`MEџџџџџџџџџџўЪc€ џџџџ"€€€€ €(€0€8€@€H€P€X€ `"€&Ј€ џџџџ€ аш(&0(X&€(Ј&а&ј& $H€ џџџџNp*Р,№* .P*€,А4р4.P€ џџџџ€  А€ џџџџ€ <аFHXF JшF8H€LШLHh€ џџџџ€ 2Аш€ џџџџ€ & FHHFиJ Fp HИ L LP H  € џџџџ€ "ш B DX B  Fш B0 Dx HР H DP € џџџџ€ "˜ 6Р :ј B8>€6Р:јN8NˆBи€ џџџџ€ 4 X` p€€ џџџџˆџџџџ˜Zъ@ZъXZъpZъˆZъ ZъИZъаZъшZъZъZъ0иOPEN FCTPSA TOOLBARЄЩЄЩЄЩ B@Ў FCTPSA ToolsЩ ЄЩ" B@иDEFINE DIALOG BOXЄFЄ,ЎCaseInfo B@$Є–Є Є ЄЎ YourFCCNo B@&Є–Є8Є ЄЎYourFCCN B@&Є–ЄPЄ ЄЎ YourFCWLNo B@&ЄЊЄiЄ ЄЎYourFCWN B@&Є–Є‚Є ЄЎ YourPSCNo B@&Є–Є›Є ЄЎYourPSCN B@&ЄШЄДЄfЄЎYourHAL B@&ЄШЄЭЄfЄЎYourHAF B@&Є–ЄцЄfЄЎYourDC B@&ЄkЄ ЄЄ Ў0Enter the following information about this case. B@fЄЄ#Є‚Є Ў FC Case No.: B@fЄЄ;Є‚Є Ў FC Case Name: B@fЄЄRЄ‚Є Ў FC Load No.: B@fЄЄkЄЅЄ ЎFC Worker Name: B@fЄЄ„Є‚Є Ў PS Case No.: B@fЄЄЄ‚Є Ў PS Case Name: B@fЄЄЖЄОЄ ЎHousehold Ass'd Last: B@fЄЄЯЄОЄ ЎHousehold Ass'd First: B@fЄЄцЄ‚Є ЎDate Completed: B@fЄ,ЄЄXЄ B@( B@*ZъHEх !.!0.,и6GET USER INFO FROM INI FILE AND PUT IT INTO DIALOG BOXЎUserInfoЎFCCaseNoЎC:\Windows\CaseInfo.ini %€Z ,(2ЎUserInfoЎ FCCaseNameЎC:\Windows\CaseInfo.ini %€Z ,(4ЎUserInfoЎFCLoadNoЎC:\Windows\CaseInfo.ini %€Z ,(6ЎUserInfoЎ FCWorkerNameЎC:\Windows\CaseInfo.ini %€Z ,(8ЎUserInfoЎPSCaseNoЎC:\Windows\CaseInfo.ini %€Z ,(:ЎUserInfoЎ PSCaseNameЎC:\Windows\CaseInfo.ini %€Z ,(<ЎUserInfoЎ HouseholdLastЎC:\Windows\CaseInfo.ini %€Z ,(>ЎUserInfoЎHouseholdFirstЎC:\Windows\CaseInfo.ini %€Z ,(@ЎUserInfoЎ DCompletedЎC:\Windows\CaseInfo.ini %€Z ,(Bи,DISPLAY DIALOG BOX AND RESPOND TO USER INPUT , !D%0' Є•и OK BUTTONиWRITE NEW USER INFO IN INI FILEЎUserInfoЎFCCaseNo ,!2ЎC:\Windows\CaseInfo.ini B@FЎUserInfoЎ FCCaseName ,!4ЎC:\Windows\CaseInfo.ini B@FЎUserInfoЎFCLoadNo ,!6ЎC:\Windows\CaseInfo.ini B@FЎUserInfoЎ FCWorkerName ,!8ЎC:\Windows\CaseInfo.ini B@FЎUserInfoЎPSCaseNo ,!:ЎC:\Windows\CaseInfo.ini B@FЎUserInfoЎ PSCaseName ,!<ЎC:\Windows\CaseInfo.ini B@FЎUserInfoЎ HouseholdLast ,!>ЎC:\Windows\CaseInfo.ini B@FЎUserInfoЎHouseholdFirst ,!@ЎC:\Windows\CaseInfo.ini B@FЎUserInfoЎ DCompleted ,!BЎC:\Windows\CaseInfo.ini B@FиGet user info from INI fileЎUserInfoЎFCCaseNoЎC:\Windows\CaseInfo.ini %€Z' ЎUserInfoЎ FCCaseNameЎC:\Windows\CaseInfo.ini %€Z' ЎUserInfoЎFCLoadNoЎC:\Windows\CaseInfo.ini %€Z' ЎUserInfoЎ FCWorkerNameЎC:\Windows\CaseInfo.ini %€Z' ЎUserInfoЎPSCaseNoЎC:\Windows\CaseInfo.ini %€Z' ЎUserInfoЎ PSCaseNameЎC:\Windows\CaseInfo.ini %€Z' ЎUserInfoЎ HouseholdLastЎC:\Windows\CaseInfo.ini %€Z' ЎUserInfoЎHouseholdFirstЎC:\Windows\CaseInfo.ini %€Z' ЎUserInfoЎ DCompletedЎC:\Windows\CaseInfo.ini %€Z' и Update Form with user infoЎFCCASENO %\”FЎFCCASENO  B@^gЎ FCCASENAME %\”FЎ FCCASENAME  B@^gЎFCWORKERLOADNO %\”FЎFCWORKERLOADNO  B@^gЎ FCWORKERNAME %\”FЎ FCWORKERNAME  B@^gЎPSCASENO %\”FЎPSCASENO  B@^gЎ PSCASENAME %\”FЎ PSCASENAME  B@^gЎHOUSEHOLDASSESSEDLST %\”FЎHOUSEHOLDASSESSEDLST  B@^gЎHOUSEHOLDASSESSEDFST %\”FЎHOUSEHOLDASSESSEDFST  B@^gЎ DATECOMPLETED %\”FЎ DATECOMPLETED  B@^gи. Update other Form Fields on Form & Exit Macroaџџ Є B@HЄ'hџџxlџџpџџџџhmЕAttribute VB_Name = "CaseInfo" Public Sub MAI`N() аD.rDescription€Enter Personal –rma:ЄzProcDataIInvo€ke_FuncITemplateA"ject.š.yLDim iRet  Use€rFCCNo$ I WL WNˆPŽS HALŠFˆDCSel€UІ 'OPEN FCTPSA TOOLBAR WordBasic.ViewToolbars ColorButtons:=1€, Largeˆ0, Tipc–"':=";€/s€", Show+ъ'DEFINE DIALOG BOX‰BeginDialog €582, 30Р Щ… 1Text@Box 15€ 3Р 265, 18Р, "Youƒdka 56,  л 8/Э wW 7@ 10Ы€&Ž N›13ЮŠ]\ 5ŽA  2AY1y510QЦOл 2лС4Э Fж ‚i24Ы $DC@ Я4 1Ќ07р9` 4B3;c|the following info} about this Šcр‰.В 19€K‹ $,1с FC |  No.:w5рp˜˜!YŠLoaОd #ТYЄР^k ››С{x 1С`‡ PSП} ,5С,3 †л1 т9 3(Household AsHs'd`ˆst2уB;ЖFirлЃ…D`ЕИ€Жeted3СэIOKу™cŠ26% 8…21 EnЦdУуИdlgAЛсШ€ ObaС: SHet I= G’CurValues.!… рБGET USER INF@O FROM I FILE AN€D PUT I@иNTOЊЃ .†š@дG[GetPri‚vУеfileS€ыРng$]("Х А В\NoaC:\Windows\ƒ!.ini" ьџџ Рpє €H?u $ясT???CБ5?”…u?oNџџџCЏp`9Q9_er"џ‚\OON№ OПOjџџџS‚#џЏ#і2bdaІDLastooeёgHAF???хKЯ’GOOHDC??ё>DCoKџњ№C€DISPLAYИAСbCRESPOрCPCѓдE€D БЉ* “HHIf(x>P?IfђЌ0-1 Then 'OK BUTTON‚›WRITE ШNEWXLIN6LYTя№QџH`zпHeB,GААЛ ~OJo<ПОO Пцe4:пCNЯ–;ЯџЯЬ&HЏMЯЯКп_R] њGWП —%ПП П К ˜G­бEoЏ џЏ Џ kЋ ДSGпOїУу"пqrAЃŠ G§џLП П П П Ё>цХF§џFџџџџёŠFљНDCЏЈБ‹Р‚r‚Ж fromr?ПЁ†c–qf№D)dCцŸ‰•‰:В("UserInfo", "FC CaseNXC:\Windows\Pˆ.ini"p) иИN$ = WordBasic.[GetPrivateProfileString$]1аamev"jWL„No5lLoad(е†WЖj€„kerNЇkјPSC5k)ж4ГŸ#'5HALsHouseholdLˆastd†HAF<HFirfDC3DCompletedœ5 ' Updа Form with @Er &iщУоIfˆмExist€иBook mark(AёASENO") ThDenШ SetR`esult‚ћ ,2 Хyo$_ G AMђEŸ CC AЧ П WORKERLјOADпрЪЅ ‡їПЂNџ'ˆf ўN?!@j#/]4# ?РР…Ÿ€$_ "HЧ HOUSEHOLDASSТE@DLST^B’_#A‡пРnF"’F?!DATECOMPLET?@ABCDEFGўџџџIJKLMNOPQRSTUVўџџџXYZ[\]^_`abcdeўџџџghijklmnopqrstўџџџvwxyz{|}~€џџcжжџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпџџџџH џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„Ѓџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪ€ џџџџ"(џџџџ8Ў coareacodeЩ" B@ … lџџPџџџџHxАAttribute VB_Name = "CoAreaCode" Public Sub MAIN() WordBasic.WW7_EditGoTo Destinatio€n:="coaŒ"cŒEnd‚ ЖџџџџџџџџџџџџџџџџџџџџџџџџxоG}џџџџ№8Ъ8џџџџcжжџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпџџџџH џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„џџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪ€ џџџџ"(џџџџ8Ў countynameЩ" B@ џџџџlџџPџџџџHuАAttribute VB_Name = "Countyh" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:=4"cŒnЈŒEnd‚ ЖџџџџџџџџџџџџџџџџџџџџџџџџxоG}џџџџ№8Ш8џџџџcжжџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпџџџџH џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„џџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪ€ џџџџ"(џџџџ8Ў GranteeZipЩ" B@ /alџџPџџџџHpАAttribute VB_Name = "GranteeZip" Public Sub MAIN() WordBasic.WW7_EditGoTo Destinatioˆn:= ŒEnd‚ ЖџџџџџџџџџџџџџџџџџџџџџџџџxоG}џџџџ№8Ц8џџџџcжжџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпџџџџH џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„џџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪ€ џџџџ"(џџџџ8Ў workernameЩ" B@ lџџPџџџџHtАAttribute VB_Name = "Workerh" Public Sub MAIN() „dBasic.WW7_EditGoTo Destination:="wŒnЈŒEnd‚ ЖџџџџџџџџџџџџџџџџџџџџџџџџxоG}џџџџ№8Ф8џџџџcжжџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпџџџџH џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџClientStateџџџџџџџџџџџџ9‘CoExtension8:џџџџHGranteeCityџџџџџџџџџџџџWŒWorkerPhone9=џџџџf„џџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪ€ џџџџ"(џџџџ8Ў clientstateЩ" B@ џџlџџPџџџџHvАAttribute VB_Name = "ClientState" Public Sub MAIN() WordBasic.WW7_EditGoTo Destinati@on:="cŽsŽEnd„ ЖџџџџџџџџџџџџџџџџџџџџџџџџxоG}џџџџ№8Т8џџџџcжжџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпџџџџH џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„nuџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪ€ џџџџ"(џџџџ8Ў coextensionЩ" B@ lџџPџџџџHtАAttribute VB_Name = "CoExtension" Public Sub MAIN() WordBasic.WW7_EditGoTo D€estinatr@:="coeŽEnd„ ЖџџџџџџџџџџџџџџџџџџџџџџџџxоG}џџџџ№8Р8џџџџcжжџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпџџџџH џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ƒџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪ€ џџџџ"(џџџџ8Ў GranteeCityЩ" B@ lџџPџџџџHqАAttribute VB_Name = "GranteeCity" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:= ŽEnd„ ЖџџџџџџџџџџџџџџџџџџџџџџџџxоG}џџџџ№8о8џџџџcжжџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпџџџџH џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„џџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪ€ џџџџ"(џџџџ8Ў workerphoneЩ" B@ lџџPџџџџHuАAttribute VB_Name = "WorkerPhone" Public Sub MAIN() ˆdBasic.WW7_EditGoTo DestinationP:="wŽpŽEnd„ ЖџџџџџџџџџџџџџџџџџџџџџџџџxоG}џџџџ№8м8џџcountynumberџџџџџџџџџџџџuGranteeState<>џџџџ„NewParagraphџџџџџџџџџџџџ“XThisDocument;GџџџџЅХ‚ƒўџџџ…†‡ˆ‰Š‹ŒŽ‘’ўџџџ”•–—˜™š›œžŸ ЁЂЃЄўџџџІЇЈЉЊЋЌ­ЎЏАБВГДўџџџЖЗИЙКЛМНОПРСТ