ࡱ> hkgn @ 'Fbjbj j%9 lllllll%%%8cL=d3,%$&&&&':'(/h2h2h2h2h2h2$C4R62Elt)''t)t)2ll&&2+++t)"l&l&/+t)/++ll+&e p!M%)++203+17)17+llll17l+`%(0U("+w((%(%(%(22D+TREATMENT FOSTER CARE DISCHARGE REPORTDepartment of Human ServicesChild s Name:Child DOB: FORMTEXT       FORMTEXT      Child s Date of Placement:Child s Date of Discharge: FORMTEXT       FORMTEXT      Race: FORMDROPDOWN Gender: FORMDROPDOWN Wardship: FORMDROPDOWN Number of previous placement(s) in the TFC program: FORMDROPDOWN TFC Agency referred to: FORMDROPDOWN Referral County: FORMDROPDOWN Agency referred from: FORMTEXT      Length of stay in days: FORMTEXT      Number of placements prior to entering TFC: FORMDROPDOWN Placement prior to entering TFC: FORMDROPDOWN Number of placements while in the TFC program: FORMDROPDOWN Planning Family Identified & Involved in Treatment: FORMDROPDOWN Discharge placement: FORMDROPDOWN CAFAS SCORESInitial Score:Discharge Score FORMTEXT       FORMTEXT      Educational attainment: FORMDROPDOWN Complete f             ' 1 2 @ 멥닃jh$Uh$jh[@Ujfh[@UhjhUj"hq{gUjhq{gUjhq{gUjh[@UmHnHujhq{gUhq{gjhq{gU hK{'5hK{'/NP+ss+s6<kd$$Ifl4y,y,4 lalf4<kdX$$Ifl4y,y,4 lalf4 $IfgdK{'<kd$$Ifl4y,y,4 lalf4 $IfgdK{'>FFBc    ^G ^MD+^ $Ifgdq{gOkdb$$Ifl40Z!y,Z! 4 lalf4 $IfgdOkd$$Ifl40Z!y,Z! 4 lalf4 $Ifgd(,  P d^e^i`` $IfgdOkd<$$Ifl40<y,<=4 lalf4 $Ifgd(,<kd$$Ifl4y,y,4 lalf4   ! +^i`^W`<^W $Ifgdq{g $Ifgd(,<kd$$Ifl4y,y,4 lalf4 $Ifgdq{gOkd$$Ifl40<y,<=4 lalf4! " # $ % d^e^0Okd$$Ifl4p0<y,<=4 lalf4 $Ifgd(,ukd$$Ifl4\v<Py,v)4 lalf4% & ' 1 C w +^^ $Ifgd$ $Ifgd$<kdZ $$Ifl4y,y,4 lalf4 $Ifgdq{g@ A B f j k l m u w x   F H \ ^ ` j l 2 4 P ѾѳѨɚяɚфjh[@Ujhq{gUjh[@UmHnHuj hq{gUj h[@Uj h[@Ujhq{gUhq{ghj\ h[@Uh[@h$jh$Uj h[@U/ e^0+^Okd: $$Ifl4p0<y,<=4 lalf4 $Ifgd$ukd $$Ifl4\<R&y,'4 lalf4 ^^:ukd$$Ifl4\b<y,b4 lalf4 $Ifgdq{g $IfgdK{'<kd $$Ifl4y,y,4 lalf4 d^e^+^`W+^ $Ifgd(,<kdN$$Ifl4y,y,4 lalf4 $Ifgdq{gOkd$$Ifl4p0<y,<=4 lalf4 $IfgdK{'     D |s+^6s+^<kd$$Ifl4y,y,4 lalf4 $Ifgdq{g<kdv$$Ifl4y,y,4 lalf4 $Ifgd<kd$$Ifl4y,y,4 lalf4D F n p r t |s+^6s ^<kdv$$Ifl4y,y,4 lalf4 $Ifgdq{g<kd $$Ifl4y,y,4 lalf4 $Ifgd<kd:$$Ifl4y,y,4 lalf4 2 V X Z \ D ^wd^e^ukd$$Ifl4\ <X y,  ! 4 lalf4 $Ifgdq{g $Ifgdq{gP R T VXtvx8:NPR\^`bvxzBBBB苇|zUj#h[@Uh(Stjh(StUj!hq{gUjh[@UmHnHujV!hq{gUjh[@Ujh[@Uh[@jh[@Ujh[@Uhhq{gjhq{gUjh[@U+\ ^ ` b +^i^` $Ifgd<kd~$$Ifl4y,y,4 lalf4 $Ifgdq{gOkd$$Ifl4p0<y,<=4 lalf4 +^i+^<kd($$Ifl4py,y,4 lalf4 $Ifgdq{gOkd$$Ifl40xy,x4 lalf4 Vz|~`+^Okd$$Ifl40xy,x4 lalf4 $Ifgdq{g $Ifgdq{g<kd$$Ifl4y,y,4 lalf4~+^|^s $Ifgdq{g<kd($$Ifl4y,y,4 lalf4 $Ifgdq{g<kd$$Ifl4py,y,4 lalf4+^i+^<kd$$Ifl4py,y,4 lalf4 $Ifgdq{gOkd$$Ifl40by,b%4 lalf46+^|d^e^<kdt $$Ifl4y,y,4 lalf4 $Ifgdq{g<kd $$Ifl4y,y,4 lalf468`VM+^ $Ifgdq{gOkd*"$$Ifl4 0<y,<=4 lalf4 $IfgdOkd $$Ifl40<y,<=4 lalf4^`+^Okd$$$Ifl40by,b%4 lalf4 $Ifgdq{g $Ifgdq{g<kd"$$Ifl4y,y,4 lalf4BBB+^|s6+^<kd&$$Ifl4y,y,4 lalf4 $Ifgd<kd%$$Ifl4y,y,4 lalf4 $Ifgd(,<kdP%$$Ifl4py,y,4 lalf4or each child upon discharge and fax or email to Nancy Rostoni at 517 241-7047, rostonin@michigan.gov.Department 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-979 (Rev. 3-09) Previous edition obsolete. MS Word BB:FFFFFF(TPTxTT+^|wusswqomk?>=<gd(V<kd&$$Ifl4y,y,4 lalf4 $Ifgd(,<kdt&$$Ifl4$y,y,4 lalf4 B8FFPFbFfFFFFFTTT&T(T*T>T@TBTLTNTPTRTfThTvTxTzTTTTTTTTTTTTTTTTUUUUUտٱզ՛ՐՅzjr+hYqUj*hYqUj7*hYqUj)hYqUj(hYqUjhYqUmHnHuj(hYqUj@'hYqUhYqjhYqUh[@h$h5>h(Vhq{ghB:hq{g^JaJ0(&P/ =!"#$%V$$Ifl!vh5y,#vy,:V l45y,4alf4V$$Ifl!vh5y,#vy,:V l45y,4alf4V$$Ifl!vh5y,#vy,:V l45y,4alf4z$$Ifl!vh5Z!5 #vZ!#v :V l45Z!5 /  4alf4tDEText1jD$$Ifl!vh5Z!5 #vZ!#v :V l4,5Z!5 / 4alf4V$$Ifl!vh5y,#vy,:V l45y,4alf4z$$Ifl!vh5<5=#v<#v=:V l45<5=/  4alf4jD-jD-$$Ifl!vh5<5=#v<#v=:V l4,5<5=/ 4alf4V$$Ifl!vh5y,#vy,:V l45y,4alf4Df Dropdown1 A = WhiteB = African American$C = American Indian or Alaska Native D = Asian$E = Native Hawaiian/Pacific IslanderF = Unable to determineDf Dropdown2 A = FemaleB = Male$$$Ifl!vh5v555)#vv#v#v#v):V l45v555)/  / / /  / / /  / / /  4alf4z$$Ifl!vh5<5=#v<#v=:V l4p5<5=/ 4alf4V$$Ifl!vh5y,#vy,:V l45y,4alf4Df A = TCWB = MCIC = PCWDf A = 0B = 1C = 2 D - 3 & over$$$Ifl!vh5555'#v#v#v#v':V l45555'/  / / /  / / /  / / /  4alf4z$$Ifl!vh5<5=#v<#v=:V l4p5<5=/ 4alf4V$$Ifl!vh5y,#vy,:V l45y,4alf4Df A = Orchards B = SpectrumC = Vista MariaDf A = Macomb B = Oakland C = Wayne D = Genesee$$$Ifl!vh5b555#vb#v#v#v:V l45b555/  / / /  / / /  / / /  4alf4z$$Ifl!vh5<5=#v<#v=:V l4p5<5=/ 4alf4V$$Ifl!vh5y,#vy,:V l45y,4alf4d$$Ifl!vh5y,#vy,:V l45y,/  4alf4jD]j$$Ifl!vh5y,#vy,:V l4,5y,/ 4alf4V$$Ifl!vh5y,#vy,:V l45y,4alf4d$$Ifl!vh5y,#vy,:V l45y,/  4alf4jD]j$$Ifl!vh5y,#vy,:V l4,5y,/ 4alf4V$$Ifl!vh5y,#vy,:V l45y,4alf4Df A = 1B = 2-3C = 4-6D = 7-9 E = 8 or more>Df A = Foster Home B = RelativeC = ResidentialD = Psychiatric Hospital E = ShelterF = Youth Center$$$Ifl!vh5 55 5! #v #v#v #v! :V l45 55 5! /  / / /  / / /  / / /  4alf4z$$Ifl!vh5<5=#v<#v=:V l4p5<5=/ 4alf4V$$Ifl!vh5y,#vy,:V l45y,4alf4Df A = 1B = 2 C = 3 or more$$Ifl!vh5x5#vx#v:V l45x5/  / / /  4alf4d$$Ifl!vh5y,#vy,:V l4p5y,/ 4alf4V$$Ifl!vh5y,#vy,:V l45y,4alf46Df A = within 15 days of placementB = within 30 days of placementC = within 45 days of placementD = within 60 days of placementE = within 75 days of placementF = within 90 days of placementG = after 90 days of placement$$Ifl!vh5x5#vx#v:V l45x5/  / / /  4alf4d$$Ifl!vh5y,#vy,:V l4p5y,/ 4alf4V$$Ifl!vh5y,#vy,:V l45y,4alf4Df A = Reunification B = AdoptionC = Relative Planning FamilyD = Foster Home Planning FamilyE = EmancipationF = Residential Care G = Other$$Ifl!vh5b5%#vb#v%:V l45b5%/  / / /  4alf4d$$Ifl!vh5y,#vy,:V l4p5y,/ 4alf4V$$Ifl!vh5y,#vy,:V l45y,4alf4d$$Ifl!vh5y,#vy,:V l45y,/  4alf4z$$Ifl!vh5<5=#v<#v=:V l45<5=/  4alf4jD-jD-$$Ifl!vh5<5=#v<#v=:V l4 ,5<5=/ 4alf4d$$Ifl!vh5y,#vy,:V l45y,/ 4alf4Df A = Improved Grades'B = Advanced to next grade successfully#C = Decrease in disciplinary actionD = Improved attendanceE = Reduced suspensions$$Ifl!vh5b5%#vb#v%:V l45b5%/  / / /  4alf4d$$Ifl!vh5y,#vy,:V l4p5y,/ 4alf4d$$Ifl!vh5y,#vy,:V l45y,/ 4alf4V$$Ifl!vh5y,#vy,:V l45y,4alf4d$$Ifl!vh5y,#vy,:V l4$5y,/ 4alf4d$$Ifl!vh5y,#vy,:V l45y,/ 4alf4DAddress1 UppercasedEnter the Addressee's mail address (street address, PO Box, etc., where the mail will be d#8@8 Normal_HmH sH tH B@B Heading 3 $<5CJDA@D Default Paragraph FontVi@V  Table Normal :V 44 la (k(No List @O@ BLANKLINEd CJOJQJJOJ Captions 7pt ^ CJOJQJNON Captions 8pt ^CJOJQJkHNO"N Captions 9pt ^CJOJQJkHJO2J Captions 10pt ^ OJQJkH< @B< Footer   CJOJQJLORL Form Title 10pt$a$ OJQJkHPObP Form Title 11pt$a$CJOJQJkHPOrP Form Title 12pt$a$CJOJQJkH\O\ Form Title 12pt Bld$a$5CJOJQJkHHOH User Input ^5OJQJkHVOV Letter Text 10pt$^a$ OJQJkH@O@ Letter Text 11ptCJZOZ Letter Text 12pt$^a$CJOJQJkH4@4 Header  !.)@. Page NumberVOV (VCaptions 9pt Bold dL CJOJQJXOX (VForm Title 10pt Bld d8( 5OJQJPOP (VUser Input 10pt!d8(OJQJH"H $ Balloon Text"CJOJQJ^JaJ_L'(EFGHVabv!"#$%&'1Cw ()=>?@l~1CDEFGH]opqrstmnop#$%\]`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 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 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 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 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0@0@00l$'(EFGHVabv!"#$%&'1Cw ()=>?@l~1CDEFGH]opqrstmnop#$`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 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 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 @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 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0888;bntv1Aw )5;l|1A]m_FFFFS$S$S$S$S$S$FFS$S$S$S S$FFS$8@0(  B S  ?Text1 Dropdown1 Dropdown2c`u `%)|hL%)gL%)G``=*urn:schemas-microsoft-com:office:smarttags PlaceName9*urn:schemas-microsoft-com:office:smarttagsplace=*urn:schemas-microsoft-com:office:smarttags PlaceType '/%]`%]`buv %%'1@ABw )<l{|}1B]lmnKL$%[`%]`K{'xA)(,5>hQpAeq{g(St$(V(\F[@'(EFGHVabv!"#$%&'1Cw ()=>?@l~1CDEFGH]opqrstmnop#$`V*J*LV*L  Spell Check Spell CheckfQ+fQ+fQ+fQ+fQ+ 0(  Spell CheckForms Spell Check2Module1.FormsSpellCheck2gTemplateProject.MyInfo.Main(TemplateProject.Module1.FormsSpellCheck2TEMPLATEPROJECT.MYINFO.MAIN(TEMPLATEPROJECT.MODULE1.FORMSSPELLCHECK2@wl!ww<y,@_pp@p ppBUnknownGz Times New Roman5Symbol3& z Arial?5 z Courier New5& zaTahoma"AhvF`Zf& ; ; r c#r4d""a3QH(?(V/DHS-979, Treatment Foster Care Discharge ReportCompbushd2lL@LNormal#CJ OJQJ_HmHnHsH tH uDAD Default Paragraph FontViV Oh+'0 $ @ L X dpx0DHS-979, Treatment Foster Care Discharge ReportComp0979bushd213Microsoft Word 10.0@k@'-@LI@M;՜.+,0( hp  State of Michigan " 0DHS-979, Treatment Foster Care Discharge Report Title  !"#$%&()*+,-./0123456789:<=>?@ABCDEFGHIJKLMNOPQRSTUVXYZ[\]^`abcdefijmpqrstuvwxyz{|}~Root Entry FP1+Ml Data 'F1Table;&sWordDocumentjSummaryInformation(WDocumentSummaryInformation8_MacrosMMVBA MMdirMyInfo o2Module1 __SRP_0 <V  !"#$%&'()*+,-./0123456789:;=>?@ABCDEFGHIJKLMNOPQRSTUWYZ[\]^_`abdfghijklmnopqrstvwxyz{}0* pHdTemplateProjectQH@  = | AB? J< 9stdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\system32\e2.tlb#OLE Automation0MSForms>SFFrms3ED452EE1-E08F-101A-8-02608C4D0BB4EFM20.DLL#Microsoft : ^ Ob Library/;D~1u00}#0#k0 AD69A9495-B6D5-4CA4-AAF5-12_@_54FIYDOCUME~1\putmana\LOCALSAA\VBE\DT.8exd;!.E .`M Ê OfficĊOf@icŠ A12DF8D04C-5BFAhB-BDE5IAA42h@gram Files\CommonGhShared\ 105Op 8.0 q@%"B5ThisDocumentG TiDcuen* 2  HB15B,!5""+rMyInfoG MyTIf2 ]' u! nodule1*Gno u"16r2 )j+"] 5j+xW'5uxME @`Enter Personal InformationrNormal.MyInfo.Mainc@ (PaP cP"P$P&P(P*P,P.P0P2P4P6P8P:P<P>P@PB`P hxAB? " (08@HPX`hpx &((0*X&(&&((&P$x&$$&$@&h&(N$0$X&&*$"(0PT$$(H hx <468H6864(6`846 4@ 2x 2 4 2 4X : : 2 H ` & 4 6 8 6P 8 6 4 60 8h 4 6 42H2424(:`: "0284p2420P2402 0X..0.0H6x6 ":>PB>F2`:>66P.2::02p62BF` 4 2 & (@ *h .  2 4 X ` p ]x]]]]]]] ]8]P]h]]]]]]]](]@DEFINE DIALOG BOXF,MyInfo DB@Fm ^YourName DB@Hm8^ YourTitle DB@HmP^ YourOffice DB@Hmi^ YourAddress DB@H2xYourCity DB@HT( YourState DB@HFYourZip DB@Hn(AreaCode DB@HP YourPhone DB@H<YourExt DB@Hr(FAXAC DB@HPYourFax DB@H(YourCO DB@H(YourDI DB@H(YourSEC DB@HT(YourUN DB@H(YourWKR DB@Hm^BossName DB@Hm^ BossTitle DB@Hk  /Enter the following information about yourself. DB@d#2 Name: DB@d;2 Title: DB@dR< Office: DB@dkU Address: DB@d City-ST-Zip: DB@d7 Phone: DB@d>% FAX: DB@dCO-DI-SEC-UN-WKR: DB@dK 6Enter the following information about your supervisor. DB@d2 Name: DB@d 2 Title: DB@d X DB@J"X DB@L DB@N]XF D!R!T.P6GET USER INFO FROM INI FILE AND PUT IT INTO DIALOG BOXUserInfoName MYINFO.ini D%X P(VUserInfoTitle MYINFO.ini D%X P(ZUserInfoAreaCode MYINFO.ini D%X P("UserInfoPhone MYINFO.ini D%X P(\UserInfoYourExt MYINFO.ini D%X P(&UserInfoFaxAC MYINFO.ini D%X P((UserInfoFax MYINFO.ini D%X P(*UserInfoOffice MYINFO.ini D%X P(^UserInfoAddress MYINFO.ini D%X P(`UserInfoCity MYINFO.ini D%X P(bUserInfoState MYINFO.ini D%X P(dUserInfoZip MYINFO.ini D%X P(fUserInfoCO MYINFO.ini D%X P(hUserInfoDI MYINFO.ini D%X P(jUserInfoSEC MYINFO.ini D%X P(lUserInfoUN MYINFO.ini D%X P(nUserInfoWKR MYINFO.ini D%X P(pUserInfo Boss Name MYINFO.ini D%X P(@UserInfo Boss Title MYINFO.ini D%X P(B,DISPLAY DIALOG BOX AND RESPOND TO USER INPUT P D!r%T'  OK BUTTONWRITE NEW USER INFO IN INI FILEUserInfoName P!V MYINFO.ini DB@tUserInfoTitle P!Z MYINFO.ini DB@tUserInfoAreaCode P!" MYINFO.ini DB@tUserInfoPhone P!\ MYINFO.ini DB@tUserInfoYourExt P!& MYINFO.ini DB@tUserInfoFaxAC P!( MYINFO.ini DB@tUserInfoFax P!* MYINFO.ini DB@tUserInfoOffice P!^ MYINFO.ini DB@tUserInfoAddress P!` MYINFO.ini DB@tUserInfoCity P!b MYINFO.ini DB@tUserInfoState P!d MYINFO.ini DB@tUserInfoZip P!f MYINFO.ini DB@tUserInfoCO P!h MYINFO.ini DB@tUserInfoDI P!j MYINFO.ini DB@tUserInfoSEC P!l MYINFO.ini DB@tUserInfoUN P!n MYINFO.ini DB@tUserInfoWKR P!p MYINFO.ini DB@tUserInfo Boss Name P!@ MYINFO.ini DB@tUserInfo Boss Title P!B MYINFO.ini DB@tGet user info from INI fileUserInfoName MYINFO.ini D%X' UserInfoTitle MYINFO.ini D%X' UserInfoAreaCode MYINFO.ini D%X' "UserInfoPhone MYINFO.ini D%X' $UserInfoYourExt MYINFO.ini D%X' &UserInfoFaxAC MYINFO.ini D%X' (UserInfoFax MYINFO.ini D%X' *UserInfoOffice MYINFO.ini D%X' ,UserInfoAddress MYINFO.ini D%X' .UserInfoCity MYINFO.ini D%X' 0UserInfoState MYINFO.ini D%X' 2UserInfoZip MYINFO.ini D%X' 4UserInfoCO MYINFO.ini D%X' 6UserInfoDI MYINFO.ini D%X' 8UserInfoSEC MYINFO.ini D%X' :UserInfoUN MYINFO.ini D%X' <UserInfoWKR MYINFO.ini D%X' >UserInfo Boss Name MYINFO.ini D%X' @UserInfo Boss Title MYINFO.ini D%X' B Update Form with user info WorkerName D%vG workerName  DB@xj WorkerTitle D%vG WorkerTitle  DB@xjWorkerAreaCode D%vGWorkerAreaCode " DB@xj WorkerPhone D%vG WorkerPhone $ DB@xjWorkerExtension D%vGWorkerExtension & DB@xjFaxAC D%vGFaxAC ( DB@xj WorkerFax D%vG WorkerFax * DB@xj Countynumber D%vG Countynumber 6 DB@xjDistrict D%vGDIstrict 8 DB@xjSection D%vGSECtion : DB@xjUnit D%vGUNit < DB@xjWorker D%vGWorker > DB@xj CountyName D%vG CountyName , DB@xj CoAddress D%vG CoAddress . DB@xjCoCity D%vGCoCity 0 DB@xjCoState D%vGCoState 2 DB@xjCoZip D%vGCoZip 4 DB@xjSupervisorName D%vGSupervisorName @ DB@xjSupervisorTitle D%vGSupervisorTitle B DB@xj. 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 = 0d FileClose 2 SelectName = - 1kpoh`(Attribute VB_Name = "MyInfo" Public Sub Main(X) D.nDescription|Enter Personal rma:zProcDataIInvoke _FuncINoi8l..nADim iRet B  User$ATitleAreaCod-PhonYourExtFax|AC Offic $AddressCitByStat Zip ODILSEB;UN WKRBoss|| 'DEFINE DIALOG BOX WordBasic.BeginDialog 582, 300,} G TextBox 109@ A 5@ 18@ I @ey 56 * 83 _[ 105WDi 2A3321A5r 34 _  | 9 7 @ 1$55E [1 Pi 23` 6i`cV3jFAXAC41e lV1@,CO629 *DI7m pV? UN6z4!l1.yVm23n`~64`'Fz7,, c3z#the followin`g infa@bout ys0elf. ", ׂ !:w5f"bC #1z0@8O$351{1A-ST- u5 abm3r13@? gY  ;"C O-DI-T-U,N-@H47224*; supervisor!a 124f6p6iOKButtY48 8pR21 fCanctel3kEndn ҂dlg!u! As Object: Se$t = CurValues. vGET USER INFO FROMI FILE AND@ PUT I NTOzx.t[GetPrivfileS@@ng$](" "'P:qMY.ini"r hl ? pa"4??>? Mpn_1r &.nAC `axU/-Y??>OMA\C$$a&gp Op | DIpp/-UN0 | {p y QaserInfo", "Boss Name`MYINFO.ini") dlgU.Title = WordBasic.[GetPrivateProfileString$]("t| 'DISPLAY DIALOG BOX AND RESPOTO USER INPUT iRet Dialog.p (If 3-1 Then 'OK BUTTON ?WRI@TE NEW3FO6I FILE xSx wYour ?, - -AreaCod|PhonEExtE@FaxACL+@OfficZ|Address0$ L+gCity ? : |StP  z Zo%  CoCity  ! CoStat$c b CoZip  "Supervi8sor<`, Boss! /Titl% b ' Upd. other  FieldsH on& t Macro Rem" SelA}ed$=G$ ("Curre8ntD9'`Serial = Today() + 14$5()lDure",a"GEditGoTo 0"Cre : Unlink'Grante@efirst3"ToolsProtDocum! .No@et`1, .Type@2/ .8= 2 `0 Else#FileClose D c.@- 1$nd #Sub MEP(L6 LLLL@ ~`k xX%|%@Ph8@t @p @` @0P @L @H  @DO ( Fi@H4 \j@`$ in@x e\@ ;C@ Fi@ \j@ in@ WS@ C:@  :\@8 st@P C:@ht il@d I@T \P@D es@4 le@$ L;@ \B@ 10@ @ h`AB?$*\Rffff*0:4b346f08*\R1*#10b*\R1*#17b*\R1*#c1*\R1*#c6*\R1*#91*\R1*#166*\R1*#d4"  .*@)Pp &x /W ( *(5(P X h]@'If document is protected, Unprotect it.W: ! cladd87 B@ FokPerform Spelling/Grammar check.d (er  !ws !(V !B@si  ReProtect the document. ! cladd87 l B@koAttribute VB_Name = "Module1" Sub FormsSpellCheck2() Dim x As wdNo Then  9ZPassword:="c@ladd87E nd If'P(erf ing/Gramma8r clK.Op2tBs.vWi thFalse EachIn JsZx.Range.iof>$;;5AlwaysSuggest :=Tru; Next: 'Re the=&EW, n orese&, o:=wdAllowOnlyAbAAeK*srU~~~~~~~~~i ޜfGq   a Q!  ThisDocumentMyInfoTemplateProjectModule1F@C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLLVBA 9 a0 F5C:\Program Files\Microsoft Office\Office10\MSWORD.OLBWord Y@0FC:\WINDOWS\system32\stdole2.tlbstdole iP.E .`M C:\WINDOWS\system32\FM20.DLLMSForms aa`նL D0T 1C:\DOCUME~1\putmana\LOCALS~1\Temp\VBE\MSForms.exd AaipL-[DR?C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLLOffice 1YFormsSpellCheck2  F Fk F cladd87 F( F^ F]rU t__SRP_1VJ__SRP_2 X__SRP_3cgThisDocumenterU~|  1Y*pt$ 4t <lptU):`NPPt$ 4t t5Pt$ t t/Lt$ 4t QL[HxtD"tx t tW'''$'D'd''''cP''$tx t Xt6P$dD$ xD*pt$ 4t <lpt5:`NPPc$t$ 4t t6P$0HDxDtLP$dD$krU $`n/55#xME (SLSS<N0{00020906-0000-0000-C000-000000000046}H(%H0(8AB?xAttribute VB_Name = "ThisDocument" Bas0{00020P906-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2ID="{FD630E66-9521-4D2C-8DF2-AEE399B924DB}" Document=ThisDocument/&H00000000 Module=MyInfo Module=Module1 Name="TemplateProject" HelpContextID="0" VersionCompatible32="393222000" CMG="1_VBA_PROJECTPROJECTuPROJECTwm|VCompObj~jas  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020905-0000-0000-C000-000000000046}#8.2#0#C:\Program Files\Microsoft Office\Office10\MSWORD.OLB#Microsoft Word 10.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{D69A9495-B6D5-4CA4-AAF5-1220443054F6}#2.0#0#C:\DOCUME~1\putmana\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M &*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.2#0#C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLL#Microsoft Office 8.0 Object Library  AB?5ThisDocument064aa629cdThisDocument55 MyInfo074aa629cd MyInfou]'Module10:4b346f08|Module1j+8 X8'&fEԝD' A/.{Hߚ0D~l@PQD0 Wordk VBAWin16~Win32MacVBA6# TemplateProjectEstdole`MSFormsCOfficeu ThisDocument< _Evaluate MyInfo@(Main,iRet,pUserName\ UserTitleV9AreaCode UserPhoneYourExthLFaxACjYourFaxrN UserOffice0 UserAddressFUserCity UserStateUserZipDUserCOUserDIUserSEC4UserUN0UserWKR,BossNamef BossTitleH WordBasic BeginDialogFTextBoxQOKButton| CancelButton EndDialogmP dlgUserInfo2" CurValuesȤ UserDialogYourName;RGetPrivateProfileString$x YourTitleA# YourPhone YourOffice YourAddressYourCity YourStateYourZipYourCOYourDIYourSECvYourUNVYourWKRnDialogfSetPrivateProfileString=ExistingBookmark SetFormResultDocumentj Module1b(FormsSpellCheck2gzxo FormFieldActiveDocument\ProtectionTypewdNoProtection Unprotect?PasswordOptionsCheckGrammarWithSpelling FormFields-|Range  NoProofing] CheckSpellingW AlwaysSuggestProtectfnoresetgwdAllowOnlyFormFields!l }63111A09290D290D290D290D" DPB="26242F3E51426543654365" GC="393B3045314531BA" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=0, 0, 0, 0, C MyInfo=0, 0, 0, 0, C ThisDocumentThisDocumentMyInfoMyInfoModule1Module1  FMicrosoft Word Document MSWordDocWord.Document.89q @ TBcbjbj j17^"17^"YYYYYYY)cccL=dYo, edqhqhqhqhqh.l#nooooooo$pR&s5o-Ynqhqhnn5oYYqhqhbonnnnYqhYqhonnonnYY^tnqhe p!MYnno xo0on&sn&snYYYYYY&sYnnnnnnnnn5o5oYY$YnYYY 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        FORMTETTTU:U^UUUUU VHVjVVVVW(WPWxWWWW`@`VUTSRQPOkNMLKJIHGFEDCBA@U(U*U8U:UW@WNWPWRWfWhW۷۷۷~sj5hYqUj 5hYqUj4hYqUjUmHnHuj$4U jUjr3hYqUjhYqUmHnHuj2hYqUj2hYqUjhYqUhYqjhYq5UmHnHujhYq5U-hWvWxWzWWWWWWWWWWWWWWWWX``` `````.`0`>`@`B`V`X`f`h`j`~`````````````jP<hYqUj;hYqUj:hYqUjh:hYqUj9hYqUjhYqUmHnHuj8hYqUUj]8hYqUj7hYqUj6hYqUhYqjhYqU2XT        FORMTEXT        FORMTEXT        FORMTEXT     FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT     FORMTEXT      FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT     FORMTEXT     FORMTEXT      FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT       @`h````a*aLapaaaa b,bPbxbbbbc@cBcjihgfedcba`_^]\[ZYXW`````aaaaa(a*a,a@aBaDaHaJaLaNabadafalanaparaaaaaaaaaaaaaaaaabbbb b b b"b$bjAhYqUj8AhYqUj@hYqUj?hYqUjS?hYqUj>hYqUjhYqUmHnHuj=hYqUjZ=hYqUj<hYqUjhYqUhYq3$b(b*b,b.bBbDbFbLbNbPbRbfbhbvbxbzbbbbbbbbbbbbbbbbbbccccc.c0c2ccBcj\FhYqUjEhYqUjDhYqUjIDhYqUjChYqUjHChYqUjBhYqUhYqjhYqUjhYqUmHnHu,/ =!"#$%elivered). ClientCityDBureau#Enter your Bureau/Office/Unit name.DCareOf UppercaseUEnter the Addressee's Supplemental Address (Example: Suite or Apartment Number, C/O)Address1D CaseNumber Uppercase/Enter the Case Number (Example: V1234567A,B,C)D ClientCity UppercaseEnter the Addressee's City. ClientStateD ClientState Uppercase1Enter the Addressee's 2 digit State Abbreviation. ClientZipD 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 CoAreaCodeEnter the County's Area CodeDCoCity UppercaseEnter the County's City.D CoExtensiond8(OJQJ_HmH sH tH XOX CaseNumber1?d8(OJQJ_HmH sH tH XOX ClientCity1@d8(OJQJ_HmH sH tH ZOZ ClientState1Ad8(OJQJ_HmH sH tH ZO"Z ClientZip1BdtCJOJQJ_HmH sH tH VO2V CoAddress1Cd8(OJQJ_HmH sH tH XOBX CoAreaCode1 Dd`CJOJQJ_HmH sH tH PORP CoCity1Ed8(OJQJ_HmH sH tH ZObZ CoExtension1Fd8(OJQJ_HmH sH tH ^Or^ CoPhoneNumber1Gd8(OJQJ_HmH sH tH ROR CoState1Hd8(OJQJ_HmH sH tH ^O^ CoSuppaddress1Id8(OJQJ_HmH sH tH XOX CountyName1Jd8(OJQJ_HmH sH tH \O\ CountyNumber1 Kd`CJOJQJ_HmH sH tH ROR CoZip1LdtCJOJQJ_HmH sH tH NON Date11 Md`CJOJQJ_HmH sH tH TOT District2 Nd`CJOJQJ_HmH sH tH LOL FaxAC Od`CJOJQJ_HmH sH tH VOV FirstName1Pd8(OJQJ_HmH sH tH XOX FirstName21Qd8(OJQJ_HmH sH tH `O"` GranteeAddress1 Rd`CJOJQJ_HmH sH tH \O2\ GranteeCareof Sd`CJOJQJ_HmH sH tH XOBX GranteeCity Td`CJOJQJ_HmH sH tH `OR` GranteeClientID Ud`CJOJQJ_HmH sH tH dObd GranteeFirstName2 Vd`CJOJQJ_HmH sH tH bOrb GranteeLastName1Wd8(OJQJ_HmH sH tH ZOZ GranteeState Xd`CJOJQJ_HmH sH tH VOV GranteeZip Yd`CJOJQJ_HmH sH tH TOT LastName1Zd8(OJQJ_HmH sH tH VOV LastName21[d8(OJQJ_HmH sH tH ROR OtherID1\d8(OJQJ_HmH sH tH ROR Section2 ]d`CJOJQJ_HmH sH tH ^O^ SuperAreaCode1 ^d`CJOJQJ_HmH sH tH `O` SuperExtension1_d8(OJQJ_HmH sH tH dOd SuperPhoneNumber1`d8(OJQJ_HmH sH tH `O` SupervisorName1ad8(OJQJ_HmH sH tH LO"L Unit2 bd`CJOJQJ_HmH sH tH PO2P Worker2 cd`CJOJQJ_HmH sH tH `OB` WorkerAreaCode1 dd`CJOJQJ_HmH sH tH bORb WorkerExtension1ed8(OJQJ_HmH sH tH TObT WorkerFax fd`CJOJQJ_HmH sH tH XOrX WorkerName1gd8(OJQJ_HmH sH tH \O\ WorkerName2hd8(5OJQJ_HmH sH tH ZOZ WorkerPhone1id8(OJQJ_HmH sH tH ^O^ WorkerTitle1jd8(5OJQJ_HmH sH tH LOL Emailkd8(OJQJ_HmH sH tH j@0\0Address1BureauCareOf CaseNumber ClientCity ClientState ClientZip CoAddress CoAreaCodeCoCity CoExtension CoPhoneNumber CoState CoSuppaddress CountyName CountyNumberCoZipDate1DistrictEmail/FaxAC FirstName FirstName2GranteeAddress1 GranteeCareof GranteeCityGranteeClientIDGranteeFirstNameGranteeLastName GranteeState GranteeZipLastName LastName2OtherID Section! SuperAreaCode"SuperExtension#SuperPhoneNumber$SupervisorName%Unit&Worker'WorkerAreaCode(WorkerExtension) WorkerFax* WorkerName+ WorkerName2, WorkerPhone- WorkerTitle.0Address1BureauCareOf CaseNumber ClientCity ClientState ClientZip CoAddress CoAreaCodeCoCity CoExtension CoPhoneNumberCoState CoSuppaddress CountyName CountyNumberCoZipDate1DistrictFaxAC FirstName FirstName2GranteeAddress1 GranteeCareof GranteeCityGranteeClientIDGranteeFirstName1GranteeLastName GranteeState GranteeZipLastName LastName2OtherIDSection SuperAreaCodeSuperExtensionSuperPhoneNumberSupervisorNameUnitWorkerWorkerAreaCodeWorkerExtension WorkerFax WorkerName WorkerName2 WorkerPhone WorkerTitleUser Input 10pt(<Pdu$5I]n  4EYm(<Pdx@ P BU`VhW`$bBc%-./34 ! % D \ ~6BT@`Bc  $,2Bc  &(4:<HNP\bdpsu"$035AGIU[]ilnz   ,24@CEQWYekmy"&(4:<HNP\bdpvxFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0Address1BureauCareOf CaseNumber ClientCity ClientState ClientZip CoAddress CoAreaCodeCoCity CoExtension CoPhoneNumberCoState CoSuppaddress CountyName CountyNumberCoZipdate1DistrictEmailFaxAC FirstName FirstName2GranteeAddress1 GranteeCareOf GranteeCityGranteeClientIDGranteeFirstNameGranteeLastName GranteeState GranteeZipLastName LastName2OtherIDSection SuperAreaCodeSuperExtensionSuperPhoneNumberSupervisorNameUnitWorkerWorkerAreaCodeWorkerExtension WorkerFax WorkerName WorkerName2 WorkerPhone WorkerTitle)=Qev%6J^o !5FZn)=Qey  !"#$%&'()*+,-./';Oct#4H\m 3DXl';OcwYq@wl!ww<y,(pTpVp`UnknownGz Times New Roman5Symbol3& z Arial?5 z Courier New5& zaTahoma"h0@?Yq