ࡱ> pso{'` $6bjbj{P{P *d:: D(((8ADY,)))))*V*,+4$JYJYJYJYJYJY$%[h]nYE-**--nY))Y...-^))4.-4..0|l1)! R*(^-^H11Y0YZ1S^-S^$l1S^z1|5+v+T.+DC,5+5+5+nYnY.v5+5+5+Y---- ld l FOSTER PARENT NOTIFICATION OF MOVEMichigan Department of Human ServicesCase Name:DOB: FORMTEXT       FORMTEXT      Case Number:Date of Removal from Home: FORMTEXT       FORMTEXT      The above name child will be moved on FORMTEXT      . If you disagree with this decision, you havethe right to appeal this decision within three days of notice receipt to the Foster Care Review Board unless conditions 1-4 below are checked. The child is being moved for the following reasons: (Check one) FORMCHECKBOX The foster parent/kinship caregiver has requested the child be moved. FORMCHECKBOX The court has ordered that the child be returned home. FORMCHECKBOX The child is being moved to  FORMTEXT       and has been placed within your home for less than 30 days from the initial date of removal from home. FORMCHECKBOX The child is being placed in a relatives home and s/he has been placed within your home for less than 90 days from the initial date of removal from home. FORMCHECKBOX DHS has reason to believe that the child has suffered sexual abuse, or non-accidental physical injury or there is a substantial risk of harm to childs emotional well being. FORMCHECKBOX DHS believes it is in the childs best interest to be moved.If conditions 1-4 above are checked, you do not have the right to appeal this decision (2004 PA 46). If box 5 or 6 is checked, you may appeal the move of the child from your home. If box 6 is checked, the child may not be moved pending outcome of the appeal process. If box 5 is checked, the child may have already been removed from your home, but you still have the right to appeal the removal of the child. The phone number of the Foster Care Review Board is: 1-888-866-6566. You must make an oral appeal within (3) business days of receiving this notification. A written statement as to why you are appealing must be brought with you to the Foster Care Review Board hearing. If box 5 or 6 above are checked the worker must call the Foster Care Review Board at (313) 972-3280 to notify them of the proposed move. Within (7) business days of receiving the oral appeal, the Foster Care Review Board will hold a hearing and make a recommendation regarding the childs placement. If the Foster Care Review Board agrees with DHS (or its contracted agency) concerning the decision to move the child, the child will be moved. If the Foster Care Review Board disagrees with the decision to remove the child, the Foster Care Review Board will notify the court of jurisdiction or the MCI superintendent (for MCI wards) of their recommendation. The court must then hold a hearing or the MCI superintendent must review the recommendation within 7-14 days to determine if theyHZ ^ ` b v x z      & ( ~ 2 ߻߰ߥߚߔ}ƌj,htUhtjhtU hgCJjh/Ujxh/Uhg5CJOJQJjh/UjhUmHnHujh/UhgjhgUh'H5OJQJh'Hh )h/.FHys6<kd$$If9>+w+w+4 9ayt )$If9kd\$$If9>+w+w+4 9a '$Ifgd P|9kd$$If9>+w+w+4 9a *$Ifgd P|66\  ( ^ SJJ $Ifgd/Lkd$$If9 0 >+  w+4 9a -$IfgdgLkd"$$If9 0 >+  w+4 9a $Ifgd'H^ ` \V$IfLkd`$$If9 0>+w+4 9a -$IfgdgLkd$$If9 0>+w+4 9a  * , ]]kd$$If9F:B>+sw+    4 9a-$If2$If7kd$$If9>+w+w+4 9a, . 0 2 V w 2 & F$If-($If7kd|$$If9>+w+w+4 9a$If7kd*$$If9>+w+w+4 9a2 4 P R T   57Hhlm{|}+,-.16789:h )hgjhUh'Hj hUj hUh P|jhUmHnHuj h/Uj hUjThUjhUh/jh/U5 z vnd 2 & F$If-($If7kd$$If9>+w+w+4 9a$IfJkd$$If90h>+)w+4 9az | ~ ivnd 2 & F$If-($If7kd $$If9>+w+w+4 9a$IfJkd $$If90h>+)w+4 9aijkl~vnd 2 & F$If-($If7kd $$If9>+w+w+4 9a$IfJkd? $$If90h>+)w+4 9a.vnd 2 & F$If-($If7kd- $$If9>+w+w+4 9a$IfJkd $$If90h>+)w+4 9a.vnd 2 & F$If-($If7kd$$If9>+w+w+4 9a$IfJkdK$$If90h>+)w+4 9a./01cdr4vppppp2$If7kd9$$If9>+w+w+4 9a$IfJkd$$If90h>+)w+4 9a:Cr03589=dklmnox367;R*EILRk4*4+4p4u444444444444444444466666666666ǼhjhUhB:h P|^JaJ hg5h )5OJQJhyhg5OJQJUhFhQVeh'Hhgh )h/h P|C will support the Foster Care Review Boards recommendation or support the agencys decision to remove the child.Foster Care Worker SignatureDateFoster Care Supervisor SignatureDateFoster Parent SignatureDateDepartment of Human Services (DHS) will not discriminate against any individual or group because of race, religion, age, national origin, color, height, weight, marital status, sex, sexual orientation, gender identity or expression, 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-30 (Rev. 3-10) Previous edition obsolete. MS Word r4s4t4u444~~ $Ifgdg9kd$$If9>+w+w+4 9a$If7kd$$If9>+w+w+4 9a4444444YPP $IfgdNOkd$$If90>+ jw+4 9ayt ) -$Ifgd/LkdA$$If9 0>+ jw+4 9a4444444VMM $Ifgd/Okd$$If90>+ jw+4 9ayt ) -$IfgdNOkd;$$If9 0>+ jw+4 9aytN444444YS$IfOkd$$If90>+ jw+4 9ayt ) -$Ifgd/Lkd;$$If9 0>+ jw+4 9a4466666666666wuuuuuuuu$a$gd P|9kd$$If9>+w+w+4 9a$$Ifa$gd P|7kd5$$If9>+w+w+4 9a 6666666PPP&P(P*P>P@PNPPPRPfPhPvPxPzPPPPPPPPPPPPPPPPQQQQQ(Q*Q4Q6Q8QLQܻܰܥܚ܏܄jhaUj,haUjuhaUjhaUj:haUjhaUjhaUjhaUhajhaUh/hhwRH hyCJ hwRHCJ066666(PPPxPPPPQ6Q^QQQQQRBRdRRRDCBA@?>=<;:987654$a$gd P| $ d`gd P|50&P:p )/ =!@"#$% Z$$If!vh5w+#vw+:V 9w+,5w+44 9Z$$If!vh5w+#vw+:V 9w+,5w+44 9h$$If!vh5w+#vw+:V 9w+5w+/ 44 9yt )x$$If!vh5 5 #v #v :V 9 w+5 5 /  44 9tDEText5tDText6x$$If!vh5 5 #v #v :V 9 w+5 5 / 44 9x$$If!vh55#v#v:V 9 w+55/  44 9tD-Text4tD-Text3x$$If!vh55#v#v:V 9 w+55/ 44 9P$$If!vh5w+#vw+:V 9w+5w+44 9D Enter date.|$$If!vh5s55#vs#v#v:V 9w+5s5544 9P$$If!vh5w+#vw+:V 9w+5w+44 9P$$If!vh5w+#vw+:V 9w+5w+44 9De2Check the appropriate reason for the child moving.f$$If!vh55)#v#v):V 9w+55)44 9P$$If!vh5w+#vw+:V 9w+5w+44 9De2Check the appropriate reason for the child moving.f$$If!vh55)#v#v):V 9w+55)44 9P$$If!vh5w+#vw+:V 9w+5w+44 9De2Check the appropriate reason for the child moving.D-TypeofPlacement0Enter type of placement child is being moved to.f$$If!vh55)#v#v):V 9w+55)44 9P$$If!vh5w+#vw+:V 9w+5w+44 9De2Check the appropriate reason for the child moving.f$$If!vh55)#v#v):V 9w+55)44 9P$$If!vh5w+#vw+:V 9w+5w+44 9De2Check the appropriate reason for the child moving.f$$If!vh55)#v#v):V 9w+55)44 9P$$If!vh5w+#vw+:V 9w+5w+44 9De2Check the appropriate reason for the child moving.f$$If!vh55)#v#v):V 9w+55)44 9P$$If!vh5w+#vw+:V 9w+5w+44 9P$$If!vh5w+#vw+:V 9w+5w+44 9b$$If!vh5w+#vw+:V 9w+5w+/ 44 9x$$If!vh5 5j#v #vj:V 9 w+5 5j/  44 9~$$If!vh5 5j#v #vj:V 9w+5 5j/ 44 9yt )~$$If!vh5 5j#v #vj:V 9 w+5 5j/  44 9ytN~$$If!vh5 5j#v #vj:V 9w+5 5j/ 44 9yt )x$$If!vh5 5j#v #vj:V 9 w+5 5j/  44 9~$$If!vh5 5j#v #vj:V 9w+5 5j/ 44 9yt )^$$If!vh5w+#vw+:V 9w+5w+/ 44 9h$$If!vh5w+#vw+:V 9w+,5w+/ 44 9DAddress1 UppercasedEnter the Addressee's mail address (street address, PO Box, etc., where the mail will be delivered). ClientCityD98@8 Normal_HmH sH tH DAD Default Paragraph FontVi@V  Table Normal :V 44 la (k(No List PP BLANKLINEdx5CJOJQJkHTOT Captions 6ptd(CJ OJQJkHDD Captions 6pt bold5`"` Captions 6pt boxd<5CJ OJQJkHD2D Captions 6pt Nbox<DOBD Captions 7pt dtCJDARD Captions 7pt Bold5BqbB Captions 7pt box5^r^ Captions 7pt NBoxdt<CJOJQJkHPOP Captions 8pt d`CJOJQJkH^^ Captions 8pt Bold d`5CJOJQJkHFF Captions 8pt box <DD Captions 8pt NboxPPOP Captions 9pt dLCJOJQJkHJJ Captions 9pt BolddLCJFF Captions 9pt Box dDD Captions 9pt Nbox5PP Captions 10pt d`( OJQJkH^^ Captions 10pt Bold!d`(5OJQJkHX"X Captions 10pt box"d`P OJQJkHH2H Captions 10pt Nbox#P5J @BJ Footer$dt !CJOJQJkHRRR Form Title 10pt%$d8a$ OJQJkH^b^ Form Title 10pt Bld&$d8a$5OJQJkHVOrV Form Title 11pt'$d$a$CJOJQJkHLaL Form Title 11pt Bld(d$CJVV Form Title 12pt)$da$CJOJQJkHbOb Form Title 12pt Bld*$da$5CJOJQJkH44 Header + !HH Small Blank Line ,CJXOX User Input 10pt-d8(5OJQJkHTT User Input 11pt.d$5CJOJQJkH\\ User input 12pt/d((5CJOJQJkHTT Letter Text 10pt0$d$a$ OJQJkHFF Letter Text 11pt1dCJXO"X Letter Text 12pt2$da$CJOJQJkHL2L Captions 10pt 2 line 3<FBF Date 08pt45CJOJQJkH6AR6 Date 09pt5CJ6Ab6 Date 10pt6CJ2ar2 Date 11pt7CJHH t Balloon Text8CJOJQJ^JaJ F#$JKLMX]^rDE+qrstijkl~../01cd` a b c *0@0'0 0 0000 0-0-0 0 00 0t-0-0 00020-0 20 0202020 000-0 20 000-0 20 000-0 20 0,00-0 20 0400-0 20 0400-0 20 0OJQ,0 0 2020202020 0 0 0 0 0 0 -0 -0 0 0 0 0 @-0 @-0 @0 0 0 0 -0 -0 0 0 0 0 0 00@000@000@000@000@$0@000#$JKLMX]^rDE+qrstijkl~../01cd` a b c *0 0 '0 0 0 0 0 0 0 -0 -0 0 0 0 0 -0 -0 0 0 0 20 -0 20 0 202020 0 0 0 -0  20 0 0 0 -0  20 0 0 0 -0  20 0 0 0 -0  20 0 0 0 -0  20 0 0 0 -0  20 00 0 0 2020202020 0 0 0 0 0 0 -0 -0 0 0 0 0 -0 -0 0 0 0 0 -0 -0 0 0 0 0C0 0@,  CCCF^jpr~ )tl|, FFFFFG$G$G$FG$G$G$8@0(  B S  ?Text5Text6Text4Text3TypeofPlacement_s q oNDJoNoNBoN:oNoNMoNoNOAA DF :*urn:schemas-microsoft-com:office:smarttagsStreet;*urn:schemas-microsoft-com:office:smarttagsaddress <:  M^qrc   cNh\BhyDk!̿9hRb-|ڏm@hh^h`.@hh^h`.@hh^h`.@hh^h`.@hh^h`.@hh^h`. c9h-|BhhDk! @gR| )3FJGwRHNRZQVe|8t { P|/'H+tje\4y#$JKLMX]^rDE+qrstijkl~../01` a b c 7Vq7F7FVp7F7FVo7F7FVn7F7FVm7F7FVl7F7FVk7F7FVj7F7FVi7F7FV h7F7FV g7F7FV f7F7FV e7F7FV d7F7FVc7F7FVb7F7FVa7F7FV`7F7FV_7F7FV^7F7FV]7F7FV\7F7FV[7F7FVZ7F7FVY7F7FVX7F7FVW7F7FVV7F7FVU7F7FVT7F7FVS7F7FVR7F7FV Q7F7FV!P7F7FV"O7F7FV#N7F7FV$M7F7FV%L7F7FV&K7F7FV'J7F7FV(I7F7FV)H7F7FV*G7F7FV+F7F7FV,E7F7FV-D7F7FV.C7F7FV/B7F7FV0A7F7FV1@7F7FV2?7F7FV3>7F7FV4=7F7FV5<7F7FV6+7F7F  Spell Check Spell Check2%LQ+2%LQ+2%LQ+2%LQ+2%LQ+0(  Spell CheckForms Spell Check2Module1.FormsSpellCheck2gr%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.lastname2.MAINTemplateProject.FirstName.MAINTemplateProject.CoAddress.MAINTemplateProject.ClientZip.MAINTemplateProject.RowBreak.MAINTemplateProject.LastName.MAINTemplateProject.District.MAINTemplateProject.CaseInfo.MAINTemplateProject.Address1.MAINTemplateProject.Section.MAINTemplateProject.OtherID.MAINTemplateProject.CoState.MAINTemplateProject.Correct.MAINTemplateProject.AddRows.MAINTemplateProject.Worker.MAINTemplateProject.MyInfo.MAINTemplateProject.County.MAINTemplateProject.CoCity.MAINTemplateProject.CareOf.MAINTemplateProject.FaxAC.MAINTemplateProject.Date1.MAINTemplateProject.CoZip.MAINTemplateProject.Unit.MAIN7TEMPLATEPROJECT.UNIT.MAINTEMPLATEPROJECT.COZIP.MAINTEMPLATEPROJECT.DATE1.MAINTEMPLATEPROJECT.FAXAC.MAINTEMPLATEPROJECT.CAREOF.MAINTEMPLATEPROJECT.COCITY.MAINTEMPLATEPROJECT.COUNTY.MAINTEMPLATEPROJECT.MYINFO.MAINTEMPLATEPROJECT.WORKER.MAIN TEMPLATEPROJECT.ADDROWS.MAIN TEMPLATEPROJECT.CORRECT.MAIN TEMPLATEPROJECT.COSTATE.MAIN TEMPLATEPROJECT.OTHERID.MAIN TEMPLATEPROJECT.SECTION.MAINTEMPLATEPROJECT.ADDRESS1.MAINTEMPLATEPROJECT.CASEINFO.MAINTEMPLATEPROJECT.DISTRICT.MAINTEMPLATEPROJECT.LASTNAME.MAINTEMPLATEPROJECT.ROWBREAK.MAINTEMPLATEPROJECT.CLIENTZIP.MAINTEMPLATEPROJECT.COADDRESS.MAINTEMPLATEPROJECT.FIRSTNAME.MAINTEMPLATEPROJECT.LASTNAME2.MAINTEMPLATEPROJECT.WORKERFAX.MAINTEMPLATEPROJECT.CASENUMBER.MAINTEMPLATEPROJECT.CLIENTCITY.MAINTEMPLATEPROJECT.COAREACODE.MAINTEMPLATEPROJECT.COUNTYNAME.MAINTEMPLATEPROJECT.GRANTEEZIP.MAINTEMPLATEPROJECT.WORKERNAME.MAIN TEMPLATEPROJECT.CLIENTSTATE.MAIN TEMPLATEPROJECT.COEXTENSION.MAIN TEMPLATEPROJECT.GRANTEECITY.MAIN! TEMPLATEPROJECT.WORKERPHONE.MAIN"!TEMPLATEPROJECT.COUNTYNUMBER.MAIN#!TEMPLATEPROJECT.GRANTEESTATE.MAIN$!TEMPLATEPROJECT.NEWPARAGRAPH.MAIN%"TEMPLATEPROJECT.CLEARCASEINFO.MAIN&"TEMPLATEPROJECT.COPHONENUMBER.MAIN'"TEMPLATEPROJECT.COSUPPADDRESS.MAIN("TEMPLATEPROJECT.GRANTEECAREOF.MAIN)"TEMPLATEPROJECT.SUPERAREACODE.MAIN*"TEMPLATEPROJECT.SVCREFHEADING.MAIN+#TEMPLATEPROJECT.ADDSVCREFERRAL.MAIN,#TEMPLATEPROJECT.SUPEREXTENTION.MAIN-#TEMPLATEPROJECT.SUPERVISORNAME.MAIN.#TEMPLATEPROJECT.WORKERAREACODE.MAIN/$TEMPLATEPROJECT.ADDCHILDINFOROW.MAIN0$TEMPLATEPROJECT.GRANTEEADDRESS1.MAIN1$TEMPLATEPROJECT.GRANTEECLIENTID.MAIN2$TEMPLATEPROJECT.GRANTEELASTNAME.MAIN3$TEMPLATEPROJECT.WORKEREXTENSION.MAIN4%TEMPLATEPROJECT.GRANTEEFIRSTNAME.MAIN5%TEMPLATEPROJECT.INSERTCISADDRESS.MAIN6%TEMPLATEPROJECT.SUPERPHONENUMBER.MAIN@ kpXkk@ `` ` `@`h@UnknownGz Times New Roman5Symbol3& z Arial?5 z Courier New5& zaTahoma"hwZwZQf  r c#4d K2QHP?'H*5DHS-0030, Foster Parent Relative Notification of MoveTechnical Servicessimons2$      aOh+'0   0< \ h t 8DHS-0030, Foster Parent Relative Notification of MoveTechnical Services DHS-30.dotsimons22Microsoft Office Word@@VwJ@z*@z* ՜.+,0@ hp  "(Michigan Department of Human Services ' 6DHS-0030, Foster Parent Relative Notification of Move Title  !"#k%&'()*+,-.|0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^`abcdefhijklmnqruvwxyz{|}~Root Entry F`)*tData $11Table/WordDocument*dSummaryInformation(_DocumentSummaryInformation8gMacrosPN*]*VBA'*]*dirL Unit  *|CoZip 8Date1  G  !"#$%&'()+,-./012345679:;<=>?@ABCDEFHIJKLMNOPQRSTVWXYZ[\]^_`abdefghijklmnopqstuvwxyz{|}~v0* pHdTemplateProjectQH@  = | 67 J< 9stdole>stdoleP f%\*\G{00020430-C 0046}#2.0#0#C:\WINNT\System32\StdOle2.tlb#OLE Automation/MSForms>SFErms/z pF9863CFF0-E78A-11D2-85D6F502AE150CF3.TWD#Microsoft =" ` Ob Library9P0jP2D37FD65 P90PTEMP \VBE\&EX&.E .`M CvOfficDvO@sficBv)*F8D04C-5BFS01B-BDE5SAA@u42Sgram Files\O\MSO97.DLLHX 8.0X"8[zBThisDocumentN2@1Th@6sDcu(en@ HB1B,BEz"EB+BSuperPhoneNumberR2 @p@U(rP!o@eNB!bBc!Gz! ` InsertCisAddpressIEs tC!A ydr`sho!AGranteeFirstNameG a tewiaNa2! ACWorkerExtens-b2`; Wk rEx@As`"a3?!M0$La # L` RO7CliaIDc $k1Ci!abId a I7Q1*g1kQ1?!K0 ChildInfoRow#k#cCbl`a!df`CR`w0@05,ӃNAreaCodao2 PA`e@C`d 1I7Ivisor8;SVIv@o_8sQB8}{z68t80PSY3`SvcReferxral;STvnRf0rMap0VP=  p Heading*X2QXHpa'iQg' ?S'j%ush& zp(9Earxeof3*NC;p.Qgo";Cop%pao1*4.pP^dnp%(~eP&?'ClearCaseM*ѹa1M =M!NewParaphS5SN,w0a*ga&h-L#_%St`_S%S%S|a]0e_@/-_countyntWScpZuryPubr__mP/\`>Scb$ 2Pb%c?$);i|ty;};iݐy?? +3b`1Co:???3$#Q# ?h@3h sw2#rӧvvϳ",z!+( 8GranteeZip <2|ranteZipD.H 1(CountyNamemmCoumhyNwms#mmAreaCod׆66Aoe4< d66lientCitym6*lenCt y6aseNumber66(asgNSmb@rdL tWorkerFax2AQ@mrkFRxdPlastn]2CCl@sn2dPFirst4UCF@hr@PtPCoAddreo} CareO.f ar#Of)|AC2{ACPD 5GDM?G=rmCo?ls"`0Uni_Օ2mUXi?!1_Z1pxG}[zcH 8ME " 0Unit" B@ lXPiAttribute VB_Name = "Unit" Public Sub MAIN() WordBasic.WW7_EditGoTo Destinat ion:=Endv xG}[zcH 8ME " 0cozip" B@ lXPoAttribute VB_Name = "CoZip" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="cDozEndx xG}[zcH 8ME " 0date1" B@ lXPlAttribute VB_Name = "Date1" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="dEndx xG}[zFaxAC U}CareOf cCoCityrCounty #cH 8ME " 0FaxAC" B@ lXPjAttribute VB_Name = "FaxAC" Public Sub MAIN() WordBasic.WW7_EditGoTo Destina@tion:=Endx xG}[zcH 8ME " 0careof" B@ lXPqAttribute VB_Name = "CareOf" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="coEndz xG}[zcH 8ME " 0cocity" B@ lXPpAttribute VB_Name = "CoCity" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="cocEndz xG}[zcH 8ME " 0county" B@ lXPnAttribute VB_Name = "County" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:=""cEndz MyInfo3WorkerAddRowsCorrectx[z:((6 << <67$*\Rffff*4937c3d537 `@ PXPZxP(P\P^P`PbPdPfPhPjPlPnPpPrPtPvPxPzP|`( V$Enter Personal InformationTemplateProject.MyInfo.MAIN0XPME " (08@HPX`hpx &((8*`&(&&(0&X$&$$& $H&p&(N$8$`&&*$"00XT$$0P p <468P686406h846 4H 2 2 4 2( 4` : : 2 P h & 4 6 8 6X 8 6 4 68 8p 4 6 42P24240:h: "02@4x242 0X2402(0`..0. 0P66 ":>XB>F 2h:>6 6X.2::82x62B Fh 4 2 &  (H *p .  2 4(` h x Z@ZXZpZZZZZZZZ0ZHZ`ZxZZZZZZZ DEFINE DIALOG BOXF,MyInfo B@ m ^YourName B@"m8^ YourTitle B@"mP^ YourOffice B@"mi^ YourAddress B@"xYourCity B@"T( YourState B@"FYourZip B@"n(AreaCode B@"P YourPhone B@"<YourExt B@"r(FAXAC B@"PYourFax 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@fR< Office: B@fkU Address: B@f City-ST-Zip: B@f7 Phone: B@f>% FAX: B@fCO-DI-SEC-UN-WKR: B@fK 6Enter the following information about your supervisor. B@f2 Name: B@f 2 Title: B@f X B@$"X B@~ B@&Z8E !*!,.(6GET USER INFO FROM INI FILE AND PUT IT INTO DIALOG BOXUserInfoName MYINFO.ini %Z ((UserInfoTitle MYINFO.ini %Z ((UserInfoAreaCode MYINFO.ini %Z (((UserInfoPhone MYINFO.ini %Z ((UserInfoYourExt MYINFO.ini %Z ((^UserInfoFaxAC MYINFO.ini %Z ((`UserInfoFax MYINFO.ini %Z ((bUserInfoOffice MYINFO.ini %Z ((UserInfoAddress MYINFO.ini %Z ((UserInfoCity MYINFO.ini %Z ((UserInfoState MYINFO.ini %Z ((UserInfoZip MYINFO.ini %Z ((UserInfoCO MYINFO.ini %Z ((UserInfoDI MYINFO.ini %Z ((UserInfoSEC MYINFO.ini %Z ((UserInfoUN MYINFO.ini %Z ((UserInfoWKR MYINFO.ini %Z ((UserInfo Boss Name MYINFO.ini %Z ((xUserInfo Boss Title MYINFO.ini %Z ((z,DISPLAY DIALOG BOX AND RESPOND TO USER INPUT ( !@%,'  OK BUTTONWRITE NEW USER INFO IN INI FILEUserInfoName (! MYINFO.ini B@BUserInfoTitle (! MYINFO.ini B@BUserInfoAreaCode (!( MYINFO.ini B@BUserInfoPhone (! MYINFO.ini B@BUserInfoYourExt (!^ MYINFO.ini B@BUserInfoFaxAC (!` MYINFO.ini B@BUserInfoFax (!b MYINFO.ini B@BUserInfoOffice (! MYINFO.ini B@BUserInfoAddress (! MYINFO.ini B@BUserInfoCity (! MYINFO.ini B@BUserInfoState (! MYINFO.ini B@BUserInfoZip (! MYINFO.ini B@BUserInfoCO (! MYINFO.ini B@BUserInfoDI (! MYINFO.ini B@BUserInfoSEC (! MYINFO.ini B@BUserInfoUN (! MYINFO.ini B@BUserInfoWKR (! MYINFO.ini B@BUserInfo Boss Name (!x MYINFO.ini B@BUserInfo Boss Title (!z MYINFO.ini B@BGet user info from INI fileUserInfoName MYINFO.ini %Z' XUserInfoTitle MYINFO.ini %Z' ZUserInfoAreaCode MYINFO.ini %Z' (UserInfoPhone MYINFO.ini %Z' \UserInfoYourExt MYINFO.ini %Z' ^UserInfoFaxAC MYINFO.ini %Z' `UserInfoFax MYINFO.ini %Z' bUserInfoOffice MYINFO.ini %Z' dUserInfoAddress MYINFO.ini %Z' fUserInfoCity MYINFO.ini %Z' hUserInfoState MYINFO.ini %Z' jUserInfoZip MYINFO.ini %Z' lUserInfoCO MYINFO.ini %Z' nUserInfoDI MYINFO.ini %Z' pUserInfoSEC MYINFO.ini %Z' rUserInfoUN MYINFO.ini %Z' tUserInfoWKR MYINFO.ini %Z' vUserInfo Boss Name MYINFO.ini %Z' xUserInfo Boss Title MYINFO.ini %Z' z Update Form with user info WorkerName %\F workerName X B@^g WorkerTitle %\F WorkerTitle Z B@^gWorkerAreaCode %\FWorkerAreaCode ( B@^g WorkerPhone %\F WorkerPhone \ B@^gWorkerExtension %\FWorkerExtension ^ B@^gFaxAC %\FFaxAC ` B@^g WorkerFax %\F WorkerFax | B@^g Countynumber %\F Countynumber n B@^gDistrict %\FDIstrict p B@^gSection %\FSECtion r B@^gUnit %\FUNit t B@^gWorker %\FWorker v B@^g CountyName %\F CountyName d B@^g CoAddress %\F CoAddress f B@^gCoCity %\FCoCity h B@^gCoState %\FCoState j B@^gCoZip %\FCoZip l B@^gSupervisorName %\FSupervisorName x B@^gSupervisorTitle %\FSupervisorTitle z 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 = - 1hhl`X1Attribute VB_Name = "MyInfo" Public Sub MAIN(X) D.nDescription|Enter Personal rma:zProcDataIInvoke _FuncITe@mplate"ject..wJDim iRet  User$TitleAreaCod!-PhonYo urExtFaxAC  Offic $Ad dressCidtyStbZ$ipCODISEB;UN WKRBoss| |] 'DEFINE DIALOG BOX WordBasic.BeginDialog 582, 300,H G TextBox 109@ A 5@ 18@ KA#g 56 ,u 83 Cb[ 1\05k 2A33y21A5Au 3~4   ~ 9 7 1$55Ŷ [1 Pi23` n6idV3jFAXAC41e w `VV1@,C:O629 *DI7m qV? UN64!l1.{Vym23n`64`z7,4, c3zthe following info$ about yself. ",  !:w5f"bC #10@8O$31{1aA-ST- u5_ abm3r13@ gY  ;"CO-DI-aT-UN-@H47224* superv0isor!a 124f>6p6iOKButt48 8pR21 f@Cancel3GkEndn 1rdlguQ As Ob: SHet = CurValues. vGET USER INF@O FROMI FILE AND PUT I NTOzx.t[GetPrivfileSp@ng$](" "'P:qMY.ini"r hl ? a"4??>? Mpn_1r &.nAC `axU/-Y??>OMA\C$$a&gp Op | DIpp/-UN0 | {p y QaeProfileString$]("UserInfo", "Boss Name0MYINFO.ini") dl g.LTitle = WordBasic.[GetPrivat >e 'DISPLAY DIALOG BOX AND RESPOTO USER INPUT@ iRet Dialog. F(If -1 Then 'OK BUTTON ?WRIT E NEW3FO6I FILE xSx ቟Your , - -AreaCod|PhonEExtE@FaxACL+@OfficZ Ly+[Address0$ City ? : |StP  z ZNE WKR#kNamڈ OfficeAddress|Co%  ACoCity  ! CoSta>t$c b CoZip  "Supervpisor<, Boss! /Titl% b ' Upd. other ! Fields on& t Macro  Rem" Sel}ed$=G $ ("CurrpentD9'S erial = Today()` + 14$k()D|ue`"GEditGoTo "Ct : Unlink'Granteefirst3"ToolsProtDocum .Noet`1, .TypeM@2/ .= 2 `0 Else#FileClose D Gc.@- 1n@d If Sub xG}[zcH 8ME " 0worker" B@ lXPlAttribute VB_Name = "Worker" Public Sub MAIN() tdBasic.WW7_EditGoTo Destination:="wEndz x[z:(6 << <67$*\Rffff*4837c3d537 `xTp$+Adds row to table FOLLOWING cursor locationTemplateProject.AddRows.MAIN0H@ME "0@ B@ B@lH@Attribute VB_Name = "AddRows" Public Sub MAIN() D.pDescription~s row to table FOLLOWING cursor loca\NProcDataZInvoke_FuncZTemplateA"ject..KWordBasic.LineDown 1 TInserBt Numt:D="Ends x_}[z{s`  @L ME " V*h    Z@Q This serves as a replacement to the spell checker within a protected documentCheck spelling now? %N'LD# L B@lJ B@PL1* B@R|n B@zhl0Attribute VB_Name = "Correct" Public Sub MAIN() Dim ans Rem This se@rves a replacement to the spell checker within @a proted docu3 ZWordBasic.MsgBox("C?King now ?", 3If4-1en  QATools4UnoDi %St`artOf"S7d>0Pg NoReset:=1, Type:=2 End If xG}[zcH CoStateOtherIDSection__SRP_0v8ME "(8costate" B@ lPHqAttribute VB_Name = "CoState" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="cosEnd| xG}[zcH 8ME "(8otherid" B@  lPHsAttribute VB_Name = "OtherID" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:=$"oidEnd| xG}[zcH 8ME "(8Section" B@ lPHjAttribute VB_Name = "Section" Public Sub MAIN() WordBasic.WW7_EditGoTo Desti$nar:=End| rU  K)^  ((..00rU~~~~~~~~~~~~` W2Z[   8 9 aIiAi aI 1Y 1Y )Ii )Ii aI )AYq aI aI !9Qi1 A ! 0030 ThisDocumentTemplateProjectModule1SuperPhoneNumberInsertCisAddressGranteeFirstNameWorkerExtensionGranteeLastNameGranteeClientIDGranteeAddress1AddChildInfoRowWorkerAreaCodeSupervisorNameSuperExtentionAddSvcReferral SvcRefHeading SuperAreaCode GranteeCareof CoSuppaddress CoPhoneNumberVBA ClearCaseInfo NewParagraph GranteeState countynumber WorkerPhone GranteeCity CoExtension ClientState WorkerName GranteeZip CountyName CoAreaCode ClientCity CaseNumber WorkerFax lastname2 FirstName CoAddress ClientZipRowBreakLastNameDistrictCaseInfoAddress1SectionOtherIDCoStateCorrectAddRowsWorkerMyInfoCountyCoCityCareOfFaxACDate1CoZipUnitF=C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.dll  ( F4C:\Program Files\Microsoft Office\Office\MSWORD8.OLBWord   ) 80FC:\WINNT\System32\StdOle2.tlbstdole  Hc C:\WINNT\System32\MSForms.TWDMSForms y a  X.E .`M e7- C:\TEMP\VBE\MSForms.EXD a  hL-[DR 2C:\Program Files\Microsoft Office\Office\MSO97.DLLOffice A i xMAIN 0__SRP_1__SRP_2T__SRP_3m__SRP_4T    !"#$&'()*+,-./012356789:;<=>?@ABDEFGHIJKLMNOPQRSUVWXYZ[\]^_`abdefghijklmnopqstuvwxyz{|}~  =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.MAINrU~} krU $`aprU~} k__SRP_5m__SRP_6 T__SRP_7 m__SRP_8#TrU $`AprU~} krU $`9prU~} k__SRP_9m__SRP_a "T__SRP_bmAddress1!%rU $`prU~}  krU $ `)pxG}[zcH rms\8ME "(8Address1" B@ lPHnAttribute VB_Name = "Address1" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:"= End~ xG}[z zCaseInfo!District$&%LastName4RowBreak7C x6[zR(6 << <67$*\Rffff*4737c3d537 `bb@ PPxPPPP P PP@ `( $Enter Personal Information TemplateProject.CaseInfo.MAINzh`MEc " (08@HPX `"& (&0(X&(&&& $H Np*,* .P*,44.P   <FHXFJF8HLLHh 2 & FHHFJ Fp H L LP H " B DX B F B0 Dx H H DP " 6 : B8>6:N8NB 4 X` p Z@ZXZpZZZZZZZZ0OPEN FCTPSA TOOLBAR B@ FCTPSA Tools B@ DEFINE DIALOG BOXF,CaseInfo B@   YourFCCNo B@"8 YourFCCN B@"P  YourFCWLNo B@"i YourFCWN B@"  YourPSCNo B@" YourPSCN B@"fYourHAL B@"fYourHAF B@"fYourDC B@"k  0Enter the following information about this case. B@f# FC Case No.: B@f; FC Case Name: B@fR FC Load No.: B@fk 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@&ZHE !*!,.(6GET USER INFO FROM INI FILE AND PUT IT INTO DIALOG BOXUserInfoFCCaseNoC:\Windows\CaseInfo.ini %Z ((.UserInfo FCCaseNameC:\Windows\CaseInfo.ini %Z ((0UserInfoFCLoadNoC:\Windows\CaseInfo.ini %Z ((2UserInfo FCWorkerNameC:\Windows\CaseInfo.ini %Z ((4UserInfoPSCaseNoC:\Windows\CaseInfo.ini %Z ((6UserInfo PSCaseNameC:\Windows\CaseInfo.ini %Z ((8UserInfo HouseholdLastC:\Windows\CaseInfo.ini %Z ((:UserInfoHouseholdFirstC:\Windows\CaseInfo.ini %Z ((<UserInfo DCompletedC:\Windows\CaseInfo.ini %Z ((>,DISPLAY DIALOG BOX AND RESPOND TO USER INPUT ( !@%,'  OK BUTTONWRITE NEW USER INFO IN INI FILEUserInfoFCCaseNo (!.C:\Windows\CaseInfo.ini B@BUserInfo FCCaseName (!0C:\Windows\CaseInfo.ini B@BUserInfoFCLoadNo (!2C:\Windows\CaseInfo.ini B@BUserInfo FCWorkerName (!4C:\Windows\CaseInfo.ini B@BUserInfoPSCaseNo (!6C:\Windows\CaseInfo.ini B@BUserInfo PSCaseName (!8C:\Windows\CaseInfo.ini B@BUserInfo HouseholdLast (!:C:\Windows\CaseInfo.ini B@BUserInfoHouseholdFirst (!<C:\Windows\CaseInfo.ini B@BUserInfo DCompleted (!>C:\Windows\CaseInfo.ini B@BGet user info from INI fileUserInfoFCCaseNoC:\Windows\CaseInfo.ini %Z' UserInfo FCCaseNameC:\Windows\CaseInfo.ini %Z' UserInfoFCLoadNoC:\Windows\CaseInfo.ini %Z' UserInfo FCWorkerNameC:\Windows\CaseInfo.ini %Z' UserInfoPSCaseNoC:\Windows\CaseInfo.ini %Z' UserInfo PSCaseNameC:\Windows\CaseInfo.ini %Z' UserInfo HouseholdLastC:\Windows\CaseInfo.ini %Z' UserInfoHouseholdFirstC:\Windows\CaseInfo.ini %Z' UserInfo DCompletedC:\Windows\CaseInfo.ini %Z'  Update Form with user infoFCCASENO %\FFCCASENO  B@^g FCCASENAME %\F FCCASENAME  B@^gFCWORKERLOADNO %\FFCWORKERLOADNO  B@^g FCWORKERNAME %\F FCWORKERNAME  B@^gPSCASENO %\FPSCASENO  B@^g PSCASENAME %\F PSCASENAME  B@^gHOUSEHOLDASSESSEDLST %\FHOUSEHOLDASSESSEDLST  B@^gHOUSEHOLDASSESSEDFST %\FHOUSEHOLDASSESSEDFST  B@^g DATECOMPLETED %\F DATECOMPLETED  B@^g. Update other Form Fields on Form & Exit Macroa B@D'hxlphmAttribute VB_Name = "CaseInfo" Public Sub MAI`N() D.rDescriptionEnter Personal rma:zProcDataIInvoke_FuncITemplateA"ject..yLDim iRet  UserFCCNo$ I WL WNPS HALFDCSelU 'OPEN FCTPSA TOOLBAR WordBasic.ViewToolbars ColorButtons:=1, Large0, Tipc"':=";/s", Show+'DEFINE DIALOG BOXBeginDialog 582, 30 Ʌ 1Text@Box 15 3 265, 18, "Youdka 56,  8/ wW 7@ 10ˀ& N13]\ 5A  2AY1y510QO 24 F i24 $DC@ 4 1079` 4B3;c|the following info} about this c. 19K$,1 FC | No.:w5p!YLoad #Y^k{x 1` PS} ,5,3 1 93(Household AsHs'd`st2B;FirD`eted3IOKc26% 821 EndÏdlgA Oba: SHet I= GCurValues.! GET USER INF@O FROM I FILE AND PUT I@NTO .@G[GetPrivfileSng$]("\NoaC:\Windows\!.ini" p H?u $T???C5?u?oNCp`9Q9_er"\OON OOjS##2bdaDLastooegHAF???KϒGOOHDC??>DCoKCDISPLAYAbCRESPOCPCED * HHIf(x>P?If0-1 Then 'OK BUTTONWRITE NEWXLIN6LYTQH`zHeB,G~OJo<O e4:CN;&HM_R] GW % GEo k SGO"qrA GL >FFFDCr fromr?cqfD)dC:("UserInfo", "FC CaseNXC:\Windows\P.ini"p) N$ = WordBasic.[GetPrivateProfileString$]1amev"jWLNo5lLoad(ՆWjkerNkPSC5k)ց4#'5HALsHouseholdLastdHAF<HFirfDC3DCompleted5 ' Upd Form with @Er &iIfExistBook mark(AASENO") ThDen SetR`esult ,2 yo$_ G AME CC A WORKERLOAD N'f N?!@j#/]4# ?$_ "H HOUSEHOLDASSE@DLST^B_#AnF"F?!DATECOMPLET?@ABCEFGHIJKLMNOPQRTUVWXYZ[\]^_`abcdfghijklmnopqrstvwxyz{|}~8ME "(8 clientstate" B@ lPHvAttribute VB_Name = "ClientState" Public Sub MAIN() WordBasic.WW7_EditGoTo Destinati@on:="csEnd CoExtensionGranteeCity46WorkerPhone&countynumber/?5xG}[zzcH 8ME "(8 coextension" B@ lPHtAttribute VB_Name = "CoExtension" Public Sub MAIN() WordBasic.WW7_EditGoTo Destinatr@:="coeEnd xG}[z+zcH g8ME "(8 GranteeCity" B@ "lPHqAttribute VB_Name = "GranteeCity" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:= End xG}[z)zcH 8ME "(8 workerphone" B@ lPHuAttribute VB_Name = "WorkerPhone" Public Sub MAIN() dBasic.WW7_EditGoTo DestinationP:="wpEnd xG}[z/z"$     !,6%&'()*+->./0123457I89:;<=?H@ABCDEFGJRKLMNOPQczTUVWXYZ[\]^_`abdefghijlmnopqrstuvwxy}~cH 8ME "(8 Countynumber" B@ lPHtAttribute VB_Name = "countynumber" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="C End xG}[z-zcGranteeStateDNewParagraph8:SXThisDocumente_VBA_PROJECT9= 0H 8ME "(8 GranteeState" B@ lPHrAttribute VB_Name = "GranteeState" Public Sub MAIN() WordBasic.WW7_EditGoTo Destinat ion:= End xG}[z#zcH i8ME " (@`px B@ B@l $ B@vi|n B@z B@lŰAttribute VB_Name = "NewParagraph" Public Sub MAIN() WordBasic.ScreenUpdating 0 >ToolsUnprotectDo@cument Insert Chr(13[?P = NoReset:=1, Type:=2 QCharRight 1 End x[zEz# (SLSS<N0{00020906-0000-0000-C000-000000000046}8($HMExAttribute VB_Name = "ThisDocument" Bas0{00020P906-0C$0046} |CreatablFalse ^PredeclaIdTru "@ExposeTemplateD0eriv$eCustomiz2xG}[z!za^  *\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.dll#Visual Basic For Applications*\G{00020905-0000-0000-C000-000000000046}#8.0#409#C:\Program Files\Microsoft Office\Office\MSWORD8.OLB#Microsoft Word 8.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\StdOle2.tlb#OLE Automation*\G{9863CFF0-E78A-11D2-85D6-000502AE150C}#2.0#0#C:\WINNT\System32\MSForms.TWD#Microsoft Forms 2.0 Object Library*\G{2D37FD65-E790-11D2-85D6-000502AE150C}#2.0#0#C:\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Library.E .`M *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#C:\Program Files\Microsoft Office\Office\MSO97.DLL#Microsoft Office 8.0 Object Library867"! 3#5476 .(,0 -/12[z8ThisDocument d37c3d536*DEz SuperPhoneNumber e37c3d536*DGz InsertCisAddress 4537c3d537*D$Az0) GranteeFirstName 1037c3d536*D`CzHWorkerExtension 1137c3d536*DbMz`GranteeLastName 1237c3d536*DdOzxGranteeClientID 1337c3d536*DfIzGranteeAddress1 1437c3d536*DhKzAddChildInfoRow 1537c3d536*Dj5zWorkerAreaCode 1637c3d536*D~7zSupervisorName 1737c3d536*D1zSuperExtention 1837c3d536*D3zAddSvcReferral 4637c3d537*D=z VSvcRefHeading 1a37c3d536*D?z8 SuperAreaCode 1b37c3d536*D9zPGranteeCareof 1c37c3d536*D;zhCoSuppaddress 1d37c3d536*D%zCoPhoneNumber 1e37c3d536*D'zClearCaseInfo 1f37c3d536*D!zNewParagraph 2037c3d536*D#zGranteeState 2137c3d536*D-zcountynumber 2237c3d536*DN/zWorkerPhone 2337c3d536*D)zGranteeCity 2437c3d536*D+z(CoExtension 2537c3d536*Dz@ClientState 2637c3d537*DVzX WorkerName 2737c3d537*D&zpGranteeZip 2837c3d537*Dz CountyName 2937c3d537*D,zCoAreaCode 2a37c3d537*DzClientCity 2b37c3d537*DTzCaseNumber 2c37c3d537*DLzWorkerFax 2d37c3d537*Dzlastname2 2e37c3d537*DzFirstName 2f37c3d537*DHz0CoAddress 3037c3d537*DzHClientZip 3137c3d537*DX z`RowBreak 3237c3d537*DzxG LastName 3337c3d537*DJ zDistrict 3437c3d537*D. zCaseInfo 4737c3d537*D+Address1 3637c3d537*DRSection 3737c3d537*D0OtherID 3837c3d537*DFCoState 3937c3d537*DH Correct 3a37c3d537*DJ8sAddRows 4837c3d537*DTP* Worker 3c37c3d537*D4h MyInfo 4937c3d537*DV( County 3e37c3d537*D CoCity 3f37c3d537*D CareOf 4037c3d537*DP FaxAC 4137c3d537*D`% Date1 4237c3d537*D$ CoZip 4337c3d537*D'Unit 4437c3d537*D2(&H0H`xp@X(Ph 80H`x(8 hPW2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ W2Z[ X2Z[ X2Z[ X2Z[ X2Z[  X2Z[  X2Z[  X2Z[ X2Z[ X2Z[ X2Z[ X2Z[ X2Z[ X2Z[ X2Z[ X2Z[ X2Z[ hDREMWordkVBAWin16~Win32Mac0030istdole`MSFormsC ThisDocument< _EvaluateOfficeuTemplateProjectEModule1bSuperPhoneNumber\MAIN, WordBasic WW7_EditGoTod DestinationлInsertCisAddress>} WorkerNameJAreaCode PhoneNumber CountyNameDistrict}-SectionGUnitWorker8 ApDistrictApUnitPApWorkerW FsDistrictaFsUnitFsWorker SvDistrict]SvUnit/SvWorker FirstNameLastName CaseNumberA countynumberyxCareOfƻAddress1O ClientCitym ClientState ClientZipGetPrivateProfileString$xExistingBookmark SetFormResultGranteeFirstNameEWorkerExtensionGranteeLastName.GranteeClientIDGranteeAddress1AddChildInfoRow^ToolsUnprotectDocument(NextCellWW7_EditAutoTextCContextXnInsertAsInsertrCharLeftToolsProtectDocument-0NoResetgWorkerAreaCodeSupervisorNameSuperExtentionAddSvcReferral} SvcRefHeadingi&TableSelectRowTableInsertRowQNumRows CenterParaLineUpK InsertPara,LineDownxTableInsertCells ShiftCells( CharRightPTableMergeCellst BorderRight_ SuperAreaCodeq GranteeCareof CoSuppaddress^  CoPhoneNumberx ClearCaseInfohFileFind SearchName֡ SearchPath.SubDir+Title~AuthorKeywordsTSubjectRPOptions MatchCase PatternMatch DateSavedFromu= DateSavedTojdSavedByDateCreatedFrom DateCreatedToViewISortByoListBy+ SelectedFile\Kill NewParagraphqScreenUpdating! ChrK~ GranteeStateM WorkerPhone GranteeCity@ CoExtensionK GranteeZip  CoAreaCode WorkerFaxv lastname2sL CoAddressRowBreakFTableRowHeight"X RulerStyleaLineSpacingRulep LineSpacing LeftIndenti AlignmentI AllowRowSplit{CaseInfoiRet,p UserFCCNoBUserFCCN7 UserFCWLNoyUserFCWN UserPSCNoOUserPSCNqUserHALօUserHAFЅUserDC SelectNameW; ViewToolbars| ColorButtons} LargeButtonsSWToolTips5+Toolbar2Show BeginDialogFTextBoxQOKButton| EndDialogmP dlgUserInfo2" CurValuesȤ UserDialog YourFCCNo+YourFCCN. YourFCWLNoYourFCWN0 YourPSCNo9YourPSCNP<YourHALYYourHAFYYourDCDialogfSetPrivateProfileString= FileClose_OtherIDCoState1Correct'ansxtMsgBoxRStartOfDocument ToolsSpellingAddRowsMyInfo@UserName\ UserTitleV9 UserPhoneYourExthLFaxACjYourFaxrN UserOffice0 UserAddressFUserCity UserStateUserZipDUserCOUserDIUserSEC4UserUN0UserWKR,BossNamef BossTitleHFaxY CancelButtonYourName;R YourTitleA# YourPhone YourOffice YourAddressYourCity YourStateYourZipYourCOYourDIYourSECvYourUNVYourWKRnCountyG8CoCityr7Date11CoZip0Documentj!{#%(  %'-/'1*37u5/ I""K&,M-O.Q3/S)0U1W2Y$3G+4I,5K-6a7c8e9g:i;k<U.=W0>a4? @ G H I JKXYZ[1\2]5^6_`rvvwxy z!|ClearCaseInfouPCoPhoneNumber<>CoSuppaddressGranteeCareof;CcH 8ME "&   c:\windows\ caseinfo.inif B@c:\windows\caseinfo.ini B@lH@EAttribute VB_Name = "ClearCaseInfo" Public Sub MAIN() WordBasic.File@Find Slch:=" ",! Path c:\wJows\4Jceie.ini0ubDir:=0, Title6Autho" Keywysject Option=`MatchKex#ternDateSavedFrom# LToByC?@ABCDFGHIJKLMNOPQRSUVWXYZ[\]^_`abcdefghijklmnoqrstuvwxyz{|}~x.[z=zJV(6 << <67$*\Rffff*4637c3d537 `x pe$-Adds a row and fields for A. Service Referral#TemplateProject.AddSvcReferral.MAIN H@ME "  2( `2p 2 2 82H 2 2 2  X2h 4 40@`p B@l B@nSvcRefF1rtv B@p B@n eSvcRefF2rtv B@p B@nSvcRefF3rtv B@p B@nSvcRefF4rtv B@p B@nSvcRefF5rtv B@p B@nSvcReff6rtv B@p B@nSvcRefF7rtv B@p B@nSvcRefF8rtv B@p B@nSvcRefF9rtv B@p B@n SvcRefF10rtv B@p B@n SvcRefF11rtv B@p- B@x|n B@zlAttribute VB_Name = "AddSvcReferral" Public Sub MAIN(X) ".~Descriptions a row and fields for A. Ser`vice ePProcData\Invoke_Func\Template"ject. . WordBasic.ToolsU nprot2Document NextCell WW7_EditAutoT" :="F1", Cont :=1, InsertAs:=0 <22a23?YmK4?5?f6?_27?8 u_X.?9 1^0 ~t CharLeft p45 i @NoRese, Type:=2 E xG}[z3zcH 8ME " (8superextension" B@ lPH|Attribute VB_Name = "SuperExtention" Public Sub MAIN() WordBasic.WW7_EditGoTo DestinBar:="sesEnd xG}SupervisorName6WorkerAreaCodeDFEAddChildInfoRow TGranteeAddress1 EIp[z1zcH 8ME " (8supervisorname" B@ lPH{Attribute VB_Name = "Supervisor" Public Sub MAIN() WordBasic.WW7_EditGoTo Destinati@on:="snCEnd xG}[z7zcH k8ME " (8workerareacode" B@ lPH|Attribute VB_Name = "WorkerAreaCode" Public Sub MAIN() dBasic.WW7_EditGoTo Destination:="wacEnd xG}[z5zcH  8ME "  4( `4p 4 4 84H 4 4 @P B@l B@n ChildInfo1rtv B@p B@n ChildInfo2rtv B@p B@n ChildInfo3rtv B@p B@n ChildInfo4rtv B@p B@n ChildInfo5rtv B@p B@n ChildInfo6rtv B@p B@n ChildInfo7rtv B@p B@x|n B@zlAttribute VB_Name = "AddChildInfoRow" Public Sub MAIN () WordBasic.ToolsUnprotectDocument BNextCell &WW7_EditAutoT" :="1"@, Cont:=0, InsertAs :=1U>f2c33c34c3567CharLeft( 30RP N@oReset, Type:=2 EndA xG}[zKzcH 8ME ""0@GranteeAddress1" B@ lH@uAttribute VB_Name = "GranteeAddress1" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:=End GranteeClientID GranteeLastName HKWorkerExtension GranteeFirstName"JLxG}[zIzcH 8ME ""0@GranteeClientID" B@ lH@uAttribute VB_Name = "GranteeClientID" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:=End xG}[zOzcH %8ME ""0@granteelastname" B@ lH@~Attribute VB_Name = "GranteeLast" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="glnEnd xG}[zMzcH 8ME ""0@workerextension" B@ lH@xAttribute VB_Name = "WorkerExtension" Public Sub MAIN() dBasic.WW7_EditGoTo DestinaBtr:="weEnd xG}[zCzcH 9\8ME ""0@granteefirstname" B@ 1lH@Attribute VB_Name = "GranteeFirstL" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="g5fnEnd xG}[zGzcInsertCisAddress"MSeSuperPhoneNumber"PROJECTOFPROJECTwmpx[zAz(6 << <67$*\Rffff*4537c3d537h `0__P&;P(P*xP,,P.P0P2XP4P6&P8P:MENTP< & PP>%P@IAF0PB1-99PDdotPFPHPJPLPNPPPRPTPVPX$$=Retrieves CIS Client address info from c:\glwin\cistowrd.ini %TemplateProject.InsertCisAddress.MAINME` " (08@HPX`hpx>BF`DBB8>@ FBHD FB Dh FBD@ DBDF`@B>0@p> :606h:>: :` > 2 : 2X 6 : 2 6@ :x 2 6 :( :h F F :8 6x 6 . 26P>: Z@ZXZpZZZZZZZZ0ZHZ`ZxZZZZZZZ Z8ZPZhZZ WorkerInfoNamec:\glwin\cistowrd.ini %Z' && WorkerInfoAreaCodec:\glwin\cistowrd.ini %Z' ( & P WorkerInfo PhoneNumberc:\glwin\cistowrd.ini %Z' *99 WorkerInfo CountyNamec:\glwin\cistowrd.ini %Z' , WorkerInfoDistrictc:\glwin\cistowrd.ini %Z' . WorkerInfoSectionc:\glwin\cistowrd.ini %Z' 0 WorkerInfoUnitc:\glwin\cistowrd.ini %Z' 2 WorkerInfoWorkerc:\glwin\cistowrd.ini %Z' 4ApWorkerDistrictNumberc:\glwin\cistowrd.ini %Z' 6ApWorker UnitNumberc:\glwin\cistowrd.ini %Z' 8ApWorker WorkerNumberc:\glwin\cistowrd.ini %Z' :FsWorkerDistrictNumberc:\glwin\cistowrd.ini %Z' <FsWorker UnitNumberc:\glwin\cistowrd.ini %Z' >FsWorker WorkerNumberc:\glwin\cistowrd.ini %Z' @SvWorkerDistrictNumberc:\glwin\cistowrd.ini %Z' BSvWorker UnitNumberc:\glwin\cistowrd.ini %Z' DSvWorker WorkerNumberc:\glwin\cistowrd.ini %Z' F ClientInfo FirstNamec:\glwin\cistowrd.ini %Z' H ClientInfoLastNamec:\glwin\cistowrd.ini %Z' J ClientInfo CaseNumberc:\glwin\cistowrd.ini %Z' L ClientInfo CountyNumberc:\glwin\cistowrd.ini %Z' N ClientInfoCareOfc:\glwin\cistowrd.ini %Z' P ClientInfoAddress1c:\glwin\cistowrd.ini %Z' R ClientInfoCityc:\glwin\cistowrd.ini %Z' T ClientInfoStatec:\glwin\cistowrd.ini %Z' V ClientInfoZipc:\glwin\cistowrd.ini %Z' X FirstName %\F FirstName H B@^gLastName %\FLastName J B@^gAddress1 %\FAddress1 R B@^g ClientCity %\F ClientCity T B@^g ClientState %\F ClientState V B@^g ClientZip %\F ClientZip X B@^g CaseNumber %\F CaseNumber L B@^g CountyNumber %\F CountyNumber N B@^gCareOf %\FCareOf P B@^g ApDistrict %\F ApDistrict 6 B@^gApUnit %\FApUnit 8 B@^gApWorker %\FApWorker : B@^g FsDistrict %\F FsDistrict < B@^gFsUnit %\FFsUnit > B@^gFsWorker %\FFsWorker @ B@^g SvDistrict %\F SvDistrict B B@^gSvUnit %\FSvUnit D B@^gSvWorker %\FSvWorker F B@^g FirstName2 %\F FirstName2 H B@^g LastName2 %\F LastName2 J B@^gGranteeFirstName %\FGranteeFirstName H B@^gGranteeLastName %\FGranteeLastName J B@^g WorkerName %\F WorkerName & B@^gDistrict %\FDistrict . B@^gSection %\FSection 0 B@^gUnit %\FUnit 2 B@^gWorker %\FWorker 4 B@^gAreaCode %\FAreaCode ( B@^g PhoneNumber %\F PhoneNumber * B@^g CountyName %\F CountyName , B@^glAttribute VB_Name = "InsertCisAddress" Public Sub MAI`N() ".DescriptionReeves CIS Client a info from c:\\glwin\\cistowrd`.ini wbProcDatanInvoke_FuncnTemplate"jec4t. .TDim Worker$ Are aCodePhoneNumberCountyDUrictS9{Uni 5 Ap Ap$Ap Fs FsIFs Sv SvSv,irsteLaCas ?c?nCarelOf5u1zCity St@gJZip&#q@dBasic.[GetPrivt fileSngP$](" I", "C "w4 HtG J i13 eg r Z ba a Q$   ʼnA 0c D A%_  & H_ D &fA &iC C?Mr &Pwa d YY%foYdjoonola_oOONoԊm Ffurul/Tz___"OH8ooo""lZ Rooo 41/:r OY "/.???"ONAw///" IfEx0QBookmark("7) ThenSetFormResult , V 6H9 "h%)",q??Q"OOnte%#ooa"OOn~t%#&"?>#SN_\, T+Basic.ExistingBookmark("CareOf") Then WordSetFormResult , ^$ 0 If^ApDrict*,  ecUni?!_&-+ke~r\-.Ffs, aF>sz FFs?<_ FSv3F , FSvF FSv d Pho@neNumb"i,  CountyQ}~0 End Sub H 8ME ""0@superphonenumber" B@ ilH@Attribute VB_Name = "SuperPhoneNumber" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="spnEnd ID="{32580021-5AE1-11D3-875B-000502AE150C}" Document=ThisDocument/&H00000000 Module=SuperPhoneNumber Module=InsertCisAddress Module=GranteeFirstName Module=WorkerExtension Module=GranteeLastName Module=GranteeClientID Module=GranteeAddress1 Module=AddChildInfoRow Module=WorkerAreaCode Module=SupervisorName Module=SuperExtention Module=AddSvcReferral Module=SvcRefHeading Module=SuperAreaCode Module=GranteeCareof Module=CoSuppaddress Module=CoPhoneNumber Module=ClearCaseInfo Module=NewParagraph Module=GranteeState Module=countynumber Module=WorkerPhone Module=GranteeCity Module=CoExtension Module=ClientState Module=WorkerName Module=GranteeZip Module=CountyName Module=CoAreaCode Module=ClientCity Module=CaseNumber Module=WorkerFax Module=lastname2 Module=FirstName Module=CoAddress Module=ClientZip Module=RowBreak Module=LastName Module=District Module=CaseInfo Module=Address1 Module=Section Module=OtherID Module=CoState Module=Correct Module=AddRows Module=Worker Module=MyInfo Module=County Module=CoCity Module=CareOf Module=FaxAC Module=Date1 Module=CoZip Module=Unit Name="TemplateProject" HelpContextID="0" CMG="888AFAF8FEF8FEF8FEF8FE" DPB="1012628563856385" GC="989AEA0DEB0DEBF2" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 ThisDocumentThisDocumentSuperPhoneNumberSuperPhoneNumberInsertCisAddressInsertCisAddressGranteeFirstNameGranteeFirstNameWorkerExtensionWorkerExtensionGranteeLastNameGranteeLastNameGranteeClientIDGranteeClientIDGranteeAddress1GranteeAddress1AddChildInfoRowAddChildInfoRowWorkerAreaCodeWorkerAreaCodeSupervisorNameSupervisorNameSuperExtentionSuperExtentionAddSvcReferralAddSvcReferralSvcRefHeadingSvcRefHeadingSuperAreaCodeSuperAreaCodeGranteeCareofGranteeCareofCoSuppaddressCoSuppaddressCoPhoneNumberCoPhoneNumberClearCaseInfoClearCaseInfoNewParagraphNewParagraphGranteeStateGranteeStatecountynumbercountynumberWorkerPhoneWorkerPhoneGranteeCityGranteeCityCoExtensionCoExtensionClientStateClientStateWorkerNameWorkerNameGranteeZipGranteeZipCountyNameCountyNameCoAreaCodeCoAreaCodeClientCityClientCityCaseNumberCaseNumberWorkerFaxWorkerFaxlastname2lastname2FirstNameFirstNameCoAddressCoAddressClientZipClientZipRowBreakRowBreakLastNameLastNameDistrictDistrictCaseInfoCaseInfoAddress1Address1SectionSectionOtherIDOtherIDCoStateCoStateCorrectCorrectAddRowsAddRowsWorkerWorkerMyInfoMyInfoCountyCountyCoCityCoCityCareOfCareOfFaxACFaxACDate1Date1CoZipCoZipUnitUnit  FMicrosoft Office Word Document MSWordDocWord.Document.89q'` N\bjbj{P{P *d::vw^!w^!?AADh,-@mmmmm wtϔєєєєєє$h-mmmm"mmϔϔm! R*?Ô 80hh$??  FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT     FORMTEXT        FORMTEXT        FORMTEXT      FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT     FORMTEXT        FORMTEXT     FORMTEXT        FORMTEXT     FORMTEXT        FORMTEXT        FORMTEXT     FORMTEXT      FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT LQNQ\Q^Q`QtQvQQQQQQQQQQQQQQQQQQQRRRRR0R2R@RBRDRXRZRbRdRfRzR|RRRRR蜗j<haUjha5U ha5jha5Uj-haUjhaUjhaUjOhaUjhaUj haUhajhaUjhaU-RRRRRRRRRRRRRRRSS S"S$S8S:SHSJSLS`SbSpSrStSSSSSSSSSSSSSSSSTZZZZZ(Z莃j%haUUjG%haUj$haUj#haUj"haUj4"haUja!haUj haUjx haUhajhaUjhaU3RRR"SJSrSSSSZ:Z\ZZZZZ[B[j[[[[["\J\\[ZYXWVUTSRQPONMLKJIHGFE       FORMTEXT        FORMTEXT     FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT     FORMTEXT      FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT     FORMTEXT     FORMTEXT      FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT       (Z*Z8Z:Zd8(OJQJ_HkHmH sH tH VOV CoState1?d8(OJQJ_HkHmH sH tH bOb CoSuppaddress1@d8(OJQJ_HkHmH sH tH \O\ CountyName1Ad8(OJQJ_HkHmH sH tH ^O"^ CountyNumberBd8(OJQJ_HkHmH sH tH VO2V CoZip1Cdt CJOJQJ_HkHmH sH tH ROBR Date11Dd8(OJQJ_HkHmH sH tH XORX District1Ed8(OJQJ_HkHmH sH tH PObP FaxAC Fd` CJOJQJ_HkHmH sH tH ZOrZ FirstName1Gd8(OJQJ_HkHmH sH tH \O\ FirstName21Hd8(OJQJ_HkHmH sH tH dOd GranteeAddress1 Id` CJOJQJ_HkHmH sH tH `O` GranteeCareof Jd` CJOJQJ_HkHmH sH tH \O\ GranteeCity Kd` CJOJQJ_HkHmH sH tH hOh GranteeClientIDLd8(5OJQJ_HkHmH sH tH hOh GranteeFirstName1Md8(OJQJ_HkHmH sH tH fOf GranteeLastName1Nd8(OJQJ_HkHmH sH tH ^O^ GranteeState Od` CJOJQJ_HkHmH sH tH ZOZ GranteeZip Pd` CJOJQJ_HkHmH sH tH XOX LastName1Qd8(OJQJ_HkHmH sH tH ZO"Z LastName21Rd8(OJQJ_HkHmH sH tH VO2V OtherID1Sd8(OJQJ_HkHmH sH tH VOBV Section1Td8(OJQJ_HkHmH sH tH bORb SuperAreaCode1Ud8(OJQJ_HkHmH sH tH dObd SuperExtension1Vd8(OJQJ_HkHmH sH tH hOrh SuperPhoneNumber1Wd8(OJQJ_HkHmH sH tH dOd SupervisorName1Xd8(OJQJ_HkHmH sH tH POP Unit1Yd8(OJQJ_HkHmH sH tH TOT Worker1Zd8(OJQJ_HkHmH sH tH dOd WorkerAreaCode1[d8(OJQJ_HkHmH sH tH fOf WorkerExtension1\d8(OJQJ_HkHmH sH tH XOX WorkerFax ]d` CJOJQJ_HkHmH sH tH \O\ WorkerName1^d8(OJQJ_HkHmH sH tH ^O^ WorkerPhone1_d8(OJQJ_HkHmH sH tH ^O^ WorkerTitle1 `d` CJOJQJ_HkHmH sH tH vdx0,.Address1CareOf CaseNumber ClientCity ClientState ClientZip CoAddress CoAreaCodeCoCity CoExtension CoPhoneNumber CoState CoSuppaddress County CountyName CountyNumberCoZipDate1DistrictFaxAC FirstName FirstName2GranteeAddress1 GranteeCareof GranteeCityGranteeClientIDGranteeFirstNameGranteeLastName GranteeState GranteeZipLastName LastName2OtherID Section! SuperAreaCode"SuperExtension#SuperPhoneNumber$SupervisorName%Unit&Worker'WorkerAreaCode(WorkerExtension) WorkerFax* WorkerName+ WorkerPhone, WorkerTitle-. Address11CareOf1 CaseNumber1 ClientCity1 ClientState1 ClientZip1 CoAddress1 CoAreaCode1CoCity1 CoExtension1CoPhoneNumber1CoState1CoSuppaddress1County CountyName1 CountyNumberCoZip1Date11 District1FaxAC FirstName1 FirstName21GranteeAddress1 GranteeCareof GranteeCityGranteeClientIDGranteeFirstName1GranteeLastName1 GranteeState GranteeZip LastName1 LastName21OtherID1Section1SuperAreaCode1SuperExtension1SuperPhoneNumber1SupervisorName1Unit1Worker1WorkerAreaCode1WorkerExtension1 WorkerFax WorkerName1 WorkerPhone1 WorkerTitle1(<Pau !2FZk} .BVj~%9Mauv2 :6LQR(Z[\ !*+/0^ , z i.r444446RJ\\  ",1\  &(4:<HNP\_amsu  !-02>DFRXZfikw{} ),.:@BNTVbhjv|~ #%179EKMY_amsvFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF.Address1CareOf CaseNumber ClientCity ClientState ClientZip CoAddress CoAreaCodeCoCity CoExtension CoPhoneNumberCoState CoSuppaddressCounty CountyName CountynumberCoZipdate1DistrictFaxAC FirstName FirstName2GranteeAddress1 GranteeCareOf GranteeCityGranteeClientIDGrenteeFirstNameGranteeLastName GranteeState GranteeZipLastName LastName2OtherIDSection SuperAreaCodeSuperExtensionSuperPhoneNumberSupervisorNameUnitWorkerWorkerAreaCodeWorkerExtension WorkerFax WorkerName WorkerPhone WorkerTitle)=Qbv"3G[l~ /CWk&:Nbx  !"#$%&'()*+,-';O`t  1EYj|-AUi}$8L`txax@ kpXkk(v`P`R`ZUnknownGz Times New Roman5Symbol3& z Arial?5 z Courier New5& zaTahoma"h0@P?a2