ࡱ> '` <[bjbj * 7 '  !!!8hdgh< Y4,!j####[$r$D%$0333333$5h73] &[$[$&&3 ##4***& # #0*&0** *#i pȟ5W!'p**$)40Y4*8',8*8 ,*5%0e%"*%%5%5%5%33)p5%5%5%Y4&&&& ! !  DOCUMENTATION OF CONCURRENT PERMANENCY PLANDHS FC Worker Load # FORMTEXT      DHS FC Worker Name: FORMTEXT      Department of Human ServicesPOS Agency Name: FORMTEXT      Child Name: FORMTEXT      Last FirstPOS Agency Worker: FORMTEXT      Log #: FORMTEXT      County of Referral:  FORMTEXT      DOB: FORMTEXT      DHS Case #: FORMTEXT      Court Docket #: FORMTEXT      Child s Primary Permanency Plan: ReunificationChild s Concurrent Permanency Plan: FORMDROPDOWN Complete shaded section for attachment to Initial Service Plans onlyFoster Care and CPS Worker case transfer conference Date FORMTEXT      Concurrent Permanency Planning Case Planning Meeting Date: FORMTEXT      (Must be within 30 days of child s removal from home)I.Is the child currently placed in the home identified as the concurrent permanency plan? FORMCHECKBOX  Yes  FORMCHECKBOX  NoA.If the child is not currently placed in the home identified as the concurrent permanency plan, describe when it would be in the best interest of the child to consider a change of placement:1.Identified concurrent permanency placement (please be specific regarding name(s) and relationship to child) FORMTEXT      2.Approximate date/time frame the child will be moved to this placement FORMTEXT      3.How will the relationship with the identified permanent family be maintained (Visitation, phone calls, etc.) until the child is moved? FORM        V z | , . B D F P R V X ` n p ӨjR h9<Ujh*97UjKh9<Ujh9<Ujh*97Ujgh*97Uh*-h9<5OJQJjh+UmHnHujh*97Uh*97jh*97Uh9<h(,5 ,bYPP $Ifgd*-kd$$Ifl4p\ t"y, b 4 lalf4p( $Ifgd*- $Ifgd(, !$IfgdH[[BkbY $Ifgd*- $Ifgd(,kdw$$Ifl4\t"+y,b 4 lalf4p( $Ifgd*97  zqq $Ifgd*97 $Ifgd*- $Ifgd(,skd$$Ifl4Ft"y, b     4 lalf4p  P R T tkbY $Ifgd*97 $Ifgd*- $Ifgd*-kd$$Ifl4\t"+y, b 4 lalf4p(T V X z zqq $Ifgd*97 $Ifgd*- $Ifgd(,skd$$Ifl4Ft"y,b     4 lalf4p tkbbYP $Ifgd*97 $Ifgd9< $Ifgd*- $Ifgd*-kd:$$Ifl4\t"+y,b 4 lalf4p(  , T \SF=4 $Ifgd*97 $Ifgd*-  z $Ifgd*- $Ifgd(,kd$$Ifl4rFt"y,Fb 4 lalf4p2T V X Z \ ^ SJA $Ifgd*- $Ifgd(,kdL $$Ifl4rFt"+y,Fb 4 lalf4p2 $Ifgd*97^ ` n zzqhh $Ifgd*97 $Ifgd*- $Ifgd*- $Ifgd*-skd} $$Ifl4Ft"y,b     4 lalf4p     $ & , H J ^ ` b l n & ʵʞʞ~zvhIih(,hJCJOJQJj"hJUjhJUjhJUhJjdh*-Ujh*-Uh*-h9<5OJQJjh+UmHnHuj h*97Uh*97jh*97Uh eh9<jh9<U& D;2) $Ifgd*97 $Ifgd*- $Ifgd(,kd0 $$Ifl4ֈ*t"+y,*  b 4 lalf4p< ( * zq $Ifgd(, $Ifgd*- $Ifgd*-skd $$Ifl4Ft"y,b     4 lalf4p* , . 0 H p r VMDM $IfgdJ $IfgdJ<kd`$$Ifl4y,y,4 lalf4 $Ifgd(,bkd$$Ifl4F*y,* [    4 lalf4 Qkd$$Ifl4ֈFJ>+y,F  T ;4 lalf4 $Ifgd(, $IfgdJ & ( * C: $Ifgd(,<kd$$Ifl4y,y,4 lalf4 $IfgdIiukd`$$Ifl4\ <Z!y,    4 lalf4& ( t v , . LNbdfpr齹闹|xpxepxjlh+Ujh~/Uh~/h0jh;Uh;jh;UhIi5OJQJjh+UmHnHujh1/Uh1/jh1/UhIihIi5 hIi5h {jh+UjhIiUhIi$hIi5CJ KH OJQJ\^JaJ "* , t Dbkd$$Ifl4F +y,     4 lalf4 $Ifgd(, $IfgdIi $IfgdIi<kd6$$Ifl4y,y,4 lalf4 . ma $$Ifa$gdIiLkdv$$Ifl4y,y,  4 lalf4p $Ifgd'66<kd$$Ifl4y,y,4 lalf4. 0 2 4 ^ULL $IfgdIi $IfgdIiLkdj$$Ifl4y,y,  4 lalf4p $Ifgd(,Lkd$$Ifl4y,y,  4 lalf4p  wn"Lkd2$$Ifl4y,y,  4 lalf4p $Ifgd(,kdU$$Ifl4F+y,     4 lalf4p Ltvxz\S $Ifgd1/kd$$Ifl4F+y,     4 lalf4p $Ifgd(, $Ifgd1/ $Ifgd1/@Lkd$$Ifl4y,y,  4 lalf4p $Ifgd1/jkd$$Ifl40y, 4 lalf4p:ukdT$$Ifl4\ +y, 4 lalf4 $Ifgd~/ $Ifgd {<kd$$Ifl4y,y,4 lalf4?@JK  R R RRRRSS2S4S6S:S@SJSLShSh;h~/5OJQJ^JjJ"h+Uj!h~/UUj^h~/Ujh+UmHnHujh'66U h~/h~/h*97 h~/>*jh+Ujh~/Uh~/h;h;5OJQJ^J/  MbkdF$$Ifl4F*y,hO)    4 lalf4 $Ifgd~/<kd$$Ifl4py,y,4 lalf4 $Ifgd'66=>?VMD $Ifgd~/ $Ifgd'66bkd"$$Ifl4F*y,*h'    4 lalf4 $Ifgd~/<kd$$Ifl4py,y,4 lalf4lccc $Ifgd'66<kd$$Ifl4py,y,4 lalf4 $Ifgd'66Lkd$$Ifl 0y,'4 lal=4 $Ifgd'66Lkd$$Ifl 0y,'4 lal $Ifgd'66 $Ifgd'66bkd$$Ifl4F*y,*h'    4 lalf4RVM $Ifgd'66bkd $$Ifl4F*y,*h'    4 lalf4 $Ifgd'66<kd: $$Ifl4py,y,4 lalf4TEXT      II.Was the parent(s) notified of all school appointments (IEPC, conferences, sporting events, etc.) for the child(ren)? FORMCHECKBOX  Yes  FORMCHECKBOX  NoA.Did the parent(s) attend the events? (If yes, please specify which events/ appointments) FORMTEXT      III.Was the parent(s) notified of all medical appointments for the child(ren)? FORMCHECKBOX  Yes  FORMCHECKBOX  NoA.Did the parent(s) attend these appointments? (If yes, please specify which events/appointments) FORMTEXT      IV.If the parent was not notified of school or medical events, please describe the reason why this did not occur. (i.e.  specific safety issue, etc.) FORMTEXT      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-549 (Rev. 10-09b) MS Word  PAGE 1 RR R"R*RSvSxSlccZc $Ifgd'66 $Ifgd'66<kd!$$Ifl4py,y,4 lalf4 $Ifgd'66Lkd!$$Ifl 0y,'4 lalhSjSlSpStSS6T8T:T>T@TTTVTXTbTdTfT UU*U,U.U2U@UBUDU`UbUdUhUlUVDVFVZV\V^VhVjVlVVVWWWּǮǧ֜֎փ֎֧xǮǧs hd>*jF(hdUj\&h+Uh;hd5OJQJ^Jj%h+U h~/hdjh+UmHnHuj$h'66UjhdU h~/h~/hdh;h~/5OJQJ^Jh~/jh~/Uj"h+U-xSzS|S~SSS8TC::: $Ifgd'66<kd#$$Ifl4py,y,4 lalf4 $Ifgd'66ukd2#$$Ifl4\ +y, 4 lalf48T:TTfT $Ifgdd $Ifgd'66bkd$$$$Ifl4F*y,hO)    4 lalf4fThTjTlTvT UnUpUYPPGP $Ifgd'66 $Ifgd'66<kd%$$Ifl4py,y,4 lalf4 $Ifgd'66_kd%$$Ifl F*y,hO)    4 lalpUrUtUvUxU~U>VC::: $Ifgd'66<kdj'$$Ifl4py,y,4 lalf4 $Ifgd'66ukd&$$Ifl4\ +y, 4 lalf4>V@VBVDVlV $Ifgd'66 $Ifgd'66bkd'$$Ifl4F*y,hO)    4 lalf4lVnVpVrVzVWWYPGP $Ifgdd $Ifgd'66<kd.)$$Ifl4py,y,4 lalf4 $Ifgd'66_kd($$Ifl F*y,hO)    4 lalWWWWWWVMD $Ifgdd $Ifgd'66<kd *$$Ifl4py,y,4 lalf4 $Ifgd'66bkd)$$Ifl4F+y,)    4 lalf4WWWWWWWW>[B[F[H[J[N[P[T[V[Z[\[`[[[[[[[[[[[[[&(*>@B~s~~hj7-hYqUj^,hYqUhYqjhYqU h'66h_h0JmHnHu h_0Jjh_0JUh+h_h4jh4Uh(VhB:hd^JaJh'66hd h~/hdjh+UmHnHujhdUjb*hdU(WWWW@[l_ $If^gdd<kd4+$$Ifl40y,y,4 lalf4 $Ifgd'66Lkd*$$Ifl 0y,*4 lal@[B[D[F[H[L[N[R[T[X[Z[^[`[|wuuuuuuuugd'66<kd+$$Ifl4 y,y,4 lalf4 $Ifgd'66<kd+$$Ifl4my,y,4 lalf4 `[[[[[(PxȀ:^ց Hj܂NMLKJIHGFEDCBA@?>=<gd'66  gd*97,&P/ =!"#$% $$Ifl!vh5 55b5 #v #v#vb#v :V l4p,5 55b5 / / / /  4alf4p(tDText4$$Ifl!vh55b5 5#v#vb#v #v:V l4+,55b5 5/ / / / / 4alf4p($$Ifl!vh55b5 #v#vb#v :V l4+,55b5 / / / 4alf4ptDText4$$Ifl!vh55b5 5#v#vb#v #v:V l4+,55b5 5/ / / / / 4alf4p($$Ifl!vh55b5 #v#vb#v :V l4,55b5 / / / 4alf4ptDText4$$Ifl!vh55b5 5#v#vb#v #v:V l4,55b5 5/ / / / / 4alf4p(jD+!$$Ifl!vh5F555b5 #vF#v#v#vb#v :V l4,5F555b5 / / / / 4alf4p2tDText4/$$Ifl!vh5F55b5 5#vF#v#vb#v #v:V l4,5F55b5 5/ / / / / 4alf4p2$$Ifl!vh55b5 #v#vb#v :V l4,55b5 / / / 4alf4pjD tDText4O$$Ifl!vh5*5 5 5b5 5#v*#v #vb#v #v:V l4,5*5 5b5 5/ / / / / / 4alf4p<$$Ifl!vh55b5 #v#vb#v :V l4,55b5 / / / /  4alf4pjD $$Ifl!vh5*5 5[#v*#v #v[:V l45*5 5[/ 4alf4V$$Ifl!vh5y,#vy,:V l45y,4alf4jD jD $$Ifl!vh5F5 5 5T5 5;#vF#v #vT#v #v;:V l45F5 5T5 5;/ / 4alf4|$$Ifl!vh5 5 5 5 #v #v :V l45 5 4alf4V$$Ifl!vh5y,#vy,:V l45y,4alf4V$$Ifl!vh5y,#vy,:V l45y,4alf4 Df AdoptionLegal GuardianshipPermanent Placement w/RelativeAPPLAAPPLA-E$$Ifl!vh5 55#v #v#v:V l45 554alf4V$$Ifl!vh5y,#vy,:V l45y,4alf4u$$Ifl!vh5y,#vy,:V l4  5y,4alf4p {$$Ifl!vh5y,#vy,:V l4  ,5y,4alf4p u$$Ifl!vh5y,#vy,:V l4  5y,4alf4p tD-Text1$$Ifl!vh555#v#v#v:V l4 555/ 4alf4pu$$Ifl!vh5y,#vy,:V l4  5y,4alf4p tD*Text5$$Ifl!vh555#v#v#v:V l4 555/ 4alf4p$$Ifl!vh55#v#v:V l4 554alf4pu$$Ifl!vh5y,#vy,:V l4  5y,4alf4p V$$Ifl!vh5y,#vy,:V l45y,4alf4tDeCheck1tDeCheck2$$Ifl!vh555 5#v#v#v #v:V l4555 54alf4V$$Ifl!vh5y,#vy,:V l4p5y,4alf4$$Ifl!vh55h5O)#v#vh#vO):V l455h5O)4alf4V$$Ifl!vh5y,#vy,:V l4p5y,4alf4$$Ifl!vh5*5h5'#v*#vh#v':V l45*5h5'4alf4tDText3f$$Ifl!vh55'#v#v':V l 55'4alV$$Ifl!vh5y,#vy,:V l4p5y,4alf4$$Ifl!vh5*5h5'#v*#vh#v':V l45*5h5'4alf4tDText3f$$Ifl!vh55'#v#v':V l 55'4alV$$Ifl!vh5y,#vy,:V l4p5y,4alf4$$Ifl!vh5*5h5'#v*#vh#v':V l45*5h5'4alf4tDText3f$$Ifl!vh55'#v#v':V l 55'4alV$$Ifl!vh5y,#vy,:V l4p5y,4alf4tDeCheck1tDeCheck2$$Ifl!vh555 5#v#v#v #v:V l4555 54alf4V$$Ifl!vh5y,#vy,:V l4p5y,4alf4$$Ifl!vh55h5O)#v#vh#vO):V l455h5O)4alf4jD|$$Ifl!vh55h5O)#v#vh#vO):V l 55h5O)4alV$$Ifl!vh5y,#vy,:V l4p5y,4alf4tDeCheck1tDeCheck2$$Ifl!vh555 5#v#v#v #v:V l4555 54alf4V$$Ifl!vh5y,#vy,:V l4p5y,4alf4$$Ifl!vh55h5O)#v#vh#vO):V l455h5O)4alf4jD|$$Ifl!vh55h5O)#v#vh#vO):V l 55h5O)4alV$$Ifl!vh5y,#vy,:V l4p5y,4alf4$$Ifl!vh55)5#v#v)#v:V l455)54alf4V$$Ifl!vh5y,#vy,:V l4p5y,4alf4jDf$$Ifl!vh55*#v#v*:V l 55*4alV$$Ifl!vh5y,#vy,:V l405y,4alf4j$$Ifl!vh5y,#vy,:V l4m,5y,/ 4alf4d$$Ifl!vh5y,#vy,:V l4 5y,/ 4alf4DAddress1 UppercasedEnter the Addressee's mail address (street address, PO Box, etc., where the mail will be delivered). ClientCityDBureau#Enter your Bureau/Office/Unit name.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( v1FZ[\]^_`au*+,-./07KLauvwxyz{:MNOPQR&;<=stuvwx{  =>?STUVWDEFZ[\]a    hijk klmn   ! " 6 7 8 9 % ) 0 0  0 00 0 0 0 0 0 gi 0000Hs000 $M0000 00 0 0 0  00$ ^ 0$ 0$ ^00* 0* 00./40. `p<% 0. 0. `p<%005 05 009:,`Z<%0000>?`<%00AB g000000HI:0000000000ST;0000XYL<Yp,00[\n9000000bcTo?0000g0gY<0000mnp00pp,0000uv2p,00x0000}0}00w000000u{0000 0  0$00 0 0*0000 0 0 b0000 0 `\00 0 Y͌͌0000 0 ``0000?R0000000000000000000L  6669FRXu"(7CIams:J&28?KQFRXkw}nz" . 4 ( FFFFFFFFFFS FFG G FFFG$G$FG$G$FF*139!8@0(  B S  ?Text4 Dropdown1Text1Text2Text5Check1Check2Text3G'y@) Y:&9R) '&|~(&G)&nLLV) R^^) =*urn:schemas-microsoft-com:office:smarttags PlaceType=*urn:schemas-microsoft-com:office:smarttags PlaceName9*urn:schemas-microsoft-com:office:smarttagsplace Π:KRZ[a  $ & )  & ) 331FYau)07JLat{:K&9x{ ?RWZFY]ak~ n " 5  & ) :K  $ )  @(,*-1/'66*97hQ_ epAeujei hIi {49<J;G'~/9e(V0+K ?(\d1FZ[\]^_`au*+,-./07KLauvwxyz{:LMNOPQR&:;<=stuvwx{  =>?STUVWZDEFZ[\]a    hijk klmn   ! " 6 7 8 9 ) V*t.vV*t.v  Spell Check Spell Check2LQ+2LQ+2LQ+2LQ+2LQ+0(  Spell CheckForms Spell Check2Module1.FormsSpellCheck2gTemplateProject.MyInfo.Main(TemplateProject.Module1.FormsSpellCheck2TEMPLATEPROJECT.MYINFO.MAIN(TEMPLATEPROJECT.MODULE1.FORMSSPELLCHECK2@SXSSXLL(   @RUnknownGz Times New Roman5Symbol3& z Arial?5 z Courier New5& zaTahoma"hG3FFFgO O r c#4d a2QHX?(V25DHS-0549, Documentation of Concurrent Permanency PlanComp$Department Of Information TechnologylOh+'0 DP p |  8DHS-0549, Documentation of Concurrent Permanency PlanComp 0549.DOT(Department Of Information Technology17Microsoft Office Word@*c@"DQ@jF@M5WO ՜.+,0@ hp  "(Michigan Department of Human Services ' 6DHS-0549, Documentation of Concurrent Permanency Plan Title  !"#$%&'()*+,-./0123456789:;=>?@ABCDEFGHIJKLMNOPQRTUVWXYZ[\]^_`abcdefghijklmnoqrstuvwyz{|}~Root Entry F@ܟ5W!Data <K1TableSwWordDocument*SummaryInformation(pDocumentSummaryInformation8xMacros 5Wh5WVBA 5Wh5WdirMyInfo 2Module1 ThisDocument *  !"#$%&'()+,-./0123456789;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxz{|}~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#h0j 5926339E-587D-441B-9117-6D845226AH.TEMP\VBE\E.EXD -.E .`M A|OffDic|Of@ic| *2DF8D04C -5BFAAYB-BDE5;AA{42*gram Files\CommonYShared\ 4105O b 8\.0Lb@%D5BThisDocum@entG TiDcuQen 2E HB1B%B,!5"B+BBMyInfoGMyIjf@#H2N Mb' u! "go@dule1G$goxux1Ck62b["\5[xG'5uxMEx @`Enter Personal InformationNormal.MyInfo.Main@ igP_FoP :P".P$P&P(P*P,P.P0P2P4P6P8P:P<P>P@PB`P  " (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(bmLUserInfoState MYINFO.ini D%X P(dUserInfoZip MYINFO.ini D%X P(fFUserInfoCO MYINFO.ini D%X P(hoOUserInfoDI MYINFO.ini D%X P(j~1.UserInfoSEC 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(Bj,DISPLAY DIALOG BOX AND RESPOND TO USER INPUTW P D!r%T'W  OK BUTTONlWRITE NEW USER INFO IN INI FILEUserInfoName P!V MYINFO.ini DB@t.UserInfoTitle P!Z MYINFO.ini DB@tdUserInfoAreaCode P!" MYINFO.ini DB@tUserInfoPhone P!\ MYINFO.ini DB@tUserInfoYourExt P!& MYINFO.ini DB@tUserInfoFaxAC P!( MYINFO.ini DB@tUserInfoFax P!* MYINFO.ini DB@tOUserInfoOffice P!^ MYINFO.ini DB@t~UserInfoAddress P!` MYINFO.ini DB@tUserInfoCity P!b MYINFO.ini DB@tUserInfoState P!d MYINFO.ini DB@t UserInfoZip P!f MYINFO.ini DB@tUserInfoCO P!h MYINFO.ini DB@t__AUserInfoDI P!j MYINFO.ini DB@t117UserInfoSEC P!l MYINFO.ini DB@tUserInfoUN P!n MYINFO.ini DB@t__CUserInfoWKR 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@xjMod CoAddress D%vG CoAddress . DB@xjCoCity D%vGCoCity 0 DB@xjCoState D%vGCoState 2 DB@xjeCoZip 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() + 14t$ 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 ME(<<< <h ~ X``%"  .@Pp &x  (((P X h]@'If document is protected, Unprotect it.GR ! cladd87 B@ilekPerform Spelling/Grammar check.X (ats(  !_Fo !(. !B@  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:=wdAllowOnlyAbAAe55#xME (SLSS<N0{00020906-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "ThisDocument" Bas0{00020P906-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2as  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020905-0000-0000-C000-000000000046}#_VBA_PROJECT:PROJECTyPROJECTwmVCompObjq8.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{5926339E-587D-441B-9117-6D844445226A}#2.0#0#C:\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?5ThisDocument054b3e2157ThisDocument5% MyInfo064b3e2157 MyInfouM'Module1074b3e2168|Module1[0bP0yZgLt @NPRfhvxzƃȃʃރ ~j>hYqUUj{=hYqUj<hYqUj;hYqUj:hYqUj*:hYqUjhYqUmHnHuj9hYqUjUmHnHujB9U jUhYqjhYqU1܂(Pxȃ@hڌ*Lp ,Pxedcba`_^]\[ZYXWVUTSRQPOkXT        FORMTEXT        FORMTEXT        FORMTEXT     FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT     FORMTEXT      FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT     FORMTEXT     FORMTEXT      FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT       .0>@BVXfhj~Ȍʌ،ڌ܌(*,@BDHJLNbdflnprjChYqUjhYqUmHnHujBhYqUjxBhYqUjAhYqUjnAhYqUj@hYqUj @hYqUj?hYqUj>hYqUjhYqUhYq3r֍؍ "$(*,.BDFLNPRfhvxzƎȎʎjgIhYqUjIhYqUjfHhYqUjGhYqUjFhYqUjhYqUmHnHujVFhYqUjEhYqUjEhYqUjhYqUjqDhYqUhYq3xȎ@Bjihgfʎގ.02<>BjzKhYqUjJhYqUjhYqUmHnHujhYqUjIhYqUhYq(/ =!"#$% CareOf 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  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 & hSWB؂rʎB #/7BCDHIK T T ^ * * . RxS8TfTpU>VlVWW@[`[܂xB  !"$%&'(.012345689:EJB  &(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@SXSS(UnknownGz Times New Roman5Symbol3& z Arial?5 z Courier New5& zaTahoma"h0@P?Yq2