ࡱ> 7 Z;bjbjUU e7|7| Ml    !!!t"@#I %&F-(n-n-n-./Lc/(GX$; [^Ο5/}..//Ο-5  n-n--5-5-5/, Rn-n-G-5/G-5 -5E>r"E>n-% `o;!4vE>E>d 0IE>-5E>-5<Tr     Community Care Review/Re-Assessment for People Living in Residential/Nursing Home Care BASIC DETAILSFamily Name:  FORMTEXT      First Name:  FORMTEXT      Swift #:  FORMTEXT      DOB:  FORMTEXT      Ethnicity: % FORMDROPDOWN Religion: %  FORMDROPDOWN Review Completed By:  FORMTEXT       Type of Review: %  FORMDROPDOWN Job Title: %  FORMDROPDOWN Community Team: %  FORMDROPDOWN Type of Establishment/Placement %:  FORMDROPDOWN  Name of Establishment:  FORMTEXT      Address:  FORMTEXT      Post Code:  FORMTEXT      Phone Number:  FORMTEXT      Date of Placement:  FORMTEXT      Date of Date of Last Review :  FORMTEXT      Date of this review meeting: FORMTEXT      Date of next review: FORMTEXT      Date SSD Care Plan Completed/Revised  FORMTEXT       It is important that the views of the user are heard and expressed in the review process. Users, carers and advocates should see the review as a positive chance to re-assess needs, review the performance of the home in meeting those needs and where necessary, renegotiate the details of the care plan. Following a review a different home might be looked for as a result of the changing needs of the user, or because of the inability of the current home to meet the needs of the user. People Involved & RoleNature of Contact %Contributory Reports FORMTEXT      Service UserAttendance at Meeting FORMTEXT       FORMTEXT      Key Worker FORMDROPDOWN  FORMTEXT       FORMTEXT       FORMDROPDOWN  FORMTEXT       FORMTEXT       FORMDROPDOWN  FORMTEXT       FORMTEXT       FORMDROPDOWN  FORMTEXT       FORMTEXT       FORMDROPDOWN  FORMTEXT       FORMTEXT       FORMDROPDOWN  FORMTEXT       Has a copy of latest Inspection and Registration report been obtained & read? FORMCHECKBOX  Yes  FORMCHECKBOX  NoDoes it contain any issues relevant for this review?  FORMCHECKBOX  Yes  FORMCHECKBOX  No If Yes, summarise the issues:  FORMTEXT       1. BACKGROUND Brief description of circumstances leading to the provision of residential/nursing home care FORMTEXT       2. RESIDENTIAL CARE PLAN OBJECTIVES Current objectives of the residential care plan. FORMTEXT       Is Residential Care Plan review outstanding? FORMCHECKBOX  Yes  FORMCHECKBOX  NoIs there a care plan/log for the service user available at the home? FORMCHECKBOX  Yes  FORMCHECKBOX  NoIs it properly and regularly completed? FORMCHECKBOX  Yes  FORMCHECKBOX  No 3. REVIEWED STATEMENT OF NEEDS List all current needs under each heading, highlighting new needs identified. Comment on the current effectiveness of the care plan in meeting objectives and the service users needs.  3a. Risks & Safety (Safe mobility, Falls prevention, Behavioural management) FORMCHECKBOX  Moving/ Handling  FORMCHECKBOX  Falling  FORMCHECKBOX  Sensory  FORMCHECKBOX  Immobility/Pressure Areas  FORMCHECKBOX  Health  FORMCHECKBOX  Confusion  FORMCHECKBOX  Wandering  FORMCHECKBOX  Care Refusal/ Self Neglect  FORMCHECKBOX  Social Isolation  FORMCHECKBOX  Self- Harm FORMCHECKBOX  Emotional Abuse  FORMCHECKBOX  Financial Abuse  FORMCHECKBOX  Physical Abuse  FORMCHECKBOX  Substance Misuse  FORMCHECKBOX  Risk to OthersHave Incident reports been seen?  FORMCHECKBOX  Yes  FORMCHECKBOX  NoHave any identified risks been reduced since admission or review?  FORMCHECKBOX  Yes  FORMCHECKBOX  NoSummary of any reported incidents involving user:  FORMTEXT       Needs: FORMTEXT       Care Plan Effectiveness and Changes Recommended: FORMTEXT       3b. Physical Health (Treatment of medical conditions, Rehabilitation. Pressure sore prevention. Nurse care managed treatment needs. Access to GP, Dentist, Optician, and Podiatry. Medical admissions to A&E or hospital)Needs: FORMTEXT       Care Plan Effectiveness and Changes Recommended: FORMTEXT       3c. Mental Health (Treatment & care, Mood/motivation, Cognitive function, Orientation, Memory and insight)Needs: FORMTEXT       Care Plan Effectiveness and Changes Recommended: FORMTEXT       3d. Medication (Management, review and administration needs. Sedation issues.)Needs: FORMTEXT       Date Medication Last Reviewed:  FORMTEXT       Care Plan Effectiveness and Changes Recommended: FORMTEXT       3e. Home Environment (Condition of room, access size, space and sharing. Furniture/personal items, presenting risks)Needs: FORMTEXT       Care Plan Effectiveness and Changes Recommended: FORMTEXT       3f. Personal Care and Daily Living (Mobility, Transfers Dressing/undressing Washing/Bathing. Eye, Nail/Hair Mouth & Foot care. Clothing. Eating/Drinking, Summoning Assistance. Sensory Communication. Continence. Assistance with Finances..Needs: FORMTEXT       Care Plan Effectiveness and Changes Recommended: FORMTEXT       3g. Social, Cultural & Activities (Cultural and spiritual needs. Regularity of family/friend contact. Access to community or social activities within the home. Relationships with other residents)Needs: FORMTEXT       Care Plan Effectiveness and Changes Recommended: FORMTEXT       Needs have (overall):  FORMCHECKBOX  Remained the Same  FORMCHECKBOX  Increased  FORMCHECKBOX  Decreased ! If Residential Care Plan is changed, include new plan with Review Document! 4. SERVICE USERS PERSPECTIVE (Priorities, Motivation, Views, Satisfaction)Has the service user been spoken to alone?  FORMCHECKBOX  Yes  FORMCHECKBOX  NoIf so, have any concerns been expressed?  FORMCHECKBOX  Yes  FORMCHECKBOX  NoDo they feel well supported by the care staff? Feel the residential care plan meets their needs? Feel satisfied with the overall standard of care? Feel they have new needs that need to be addressed? Summarise all the views that have been expressed by the Service User: FORMTEXT       5. FAMILY PERSPECTIVE (Priorities, Concerns, Satisfaction)Name of main family representative:  FORMTEXT       Phone:  FORMTEXT        Summarise views of the Service User s Family:  FORMTEXT       6. HOME STAFF PERSPECTIVE (Views & Concerns) Summarise Staff Views: FORMTEXT       7. COMPLAINTS (please ensure user has complaints guidance if required) FORMTEXT       8. FINANCIAL Who is Responsible for the collection of Benefits Agency Income? FORMCHECKBOX  Placement  FORMCHECKBOX  Relative FORMCHECKBOX  Service User  FORMCHECKBOX  LB Islington Summary of Financial Issues - Includes Personal Allowance Payment, Benefits Agency, Access, Appointeeship, Power of Attorney & named person responsible. FORMTEXT       9.REVIEW SUMMARY Outline the main issues, outcomes and recommendations from the review FORMTEXT       10. ACTION PLANActionPerson ResponsibleImplementation Date FORMTEXT       FORMTEXT       FORMTEXT       FORMTEXT       FORMTEXT       FORMTEXT       FORMTEXT       FORMTEXT       FORMTEXT       FORMTEXT       FORMTEXT       FORMTEXT       FORMTEXT       FORMTEXT       FORMTEXT       FORMTEXT       FORMTEXT       FORMTEXT       Service User: (type names) FORMTEXT      Date: FORMTEXT      Signature: Reviewer: FORMTEXT      Date: FORMTEXT      Signature:Team Manager: FORMTEXT      Date: FORMTEXT      Signature:Date Review Completed (( Ended):  FORMTEXT       Date Review Sent to Service User (with amended residential care plan)  FORMTEXT        TIME \@ "dd/MM/yy" 28/09/06 Residential & Nursing Review FW  PAGE 1 J*,@BDNPdfz|~ععع【n#j5CJOJQJUmHnHujb5CJOJQJUj5CJOJQJUjCJOJQJUjvCJOJQJU jCJOJQJUmHnHujCJOJQJUjCJOJQJU5CJOJQJ B*CJ ph B*CJ(ph CJOJQJ%JR| (($Ifa$$Ifl45&Q'   04 laP$If@& :R;X;8Xwww (($If~$$Ifl4Fu5&0    4 laP246dfz|~>@\^`׻ל׎׀rj CJOJQJUj CJOJQJUjp CJOJQJUjCJOJQJU jCJOJQJUmHnHujNCJOJQJUjCJOJQJU CJOJQJ5CJOJQJjCJOJQJUjCJOJQJU,8:<oo z(($If]~$$Ifl4F 5&4*0    4 laPb (($Ifk$$Ifl40 5&'*04 laPbd(.($If[$$Ifl&,'04 laP (($Ifk$$Ifl40 5&]04 laP$&(*:<>RTV`bfz|~  & ( * 4 6 8 B D 𕎕xj5UmHnHuj^5U j5U5jCJOJQJUjnCJOJQJUjCJOJQJUOJQJ jCJOJQJUmHnHuj~CJOJQJUjCJOJQJU CJOJQJ5CJOJQJ/(*dfx (($If[$$Ifl&,'04 laP8 D rr(($If^ !(($Ifp$$Ifl40&E04 laPD       > @ B V X Z d f j U V Rvjgeg6CJj5UmHnHuj>5U5 j5UjCJOJQJU jCJOJQJUmHnHujNCJOJQJUjCJOJQJU CJOJQJ#j5CJOJQJUmHnHuj5CJOJQJUj5CJOJQJU5CJOJQJ'  @ h lwwww (($If~$$Ifl4F 5&a0    4 laPh j nd (($If$$Ifl4\ X 5& 04 laP U V m (R$If$If^ !X$$Ifl45&Q'04 laPRT|j0```` (($If$$Ifl4F+>&G  &&&0    4 laPRTVjlnxz|*,HJLNPdfhrtxzjCJOJQJUjRCJOJQJUjCJOJQJUjCJOJQJUj.CJOJQJU 5OJQJ jCJOJQJUmHnHujCJOJQJUjCJOJQJU CJOJQJ.*Nvxlbbbblbbb (($If$$Ifl4\ +>&/   04 laP 468:<PRT^`dfz|~߲ߤߖ߈zjCJOJQJUjCJOJQJUjCJOJQJUjfCJOJQJUjCJOJQJU jCJOJQJUmHnHujvCJOJQJU CJOJQJjCJOJQJUjBCJOJQJU,:bd&NPuuuuuuuuu (($If$$Ifl4F+>&G  0    4 laP  "$&(<>@JLPRfhjtvxzβΤΖΈzj!CJOJQJUjCJOJQJUjZCJOJQJUjCJOJQJUjCJOJQJUj6CJOJQJU CJOJQJ jCJOJQJUmHnHujCJOJQJUjCJOJQJU,Pxduoii$If !$$Ifl4F+>&G  0    4 laP (($Ifdf246RTVln&yni jUB*CJOJQJph56CJOJQJ jCJOJQJUmHnHujV#CJOJQJUCJj"CJOJQJUjj"CJOJQJU5CJOJQJj!CJOJQJUj~!CJOJQJU CJOJQJjCJOJQJU5CJOJQJ(4$Ift$$Ifl0.&J   04 laP$Ifv$$Ifl40.&J  &04 laP$$If(c$$Ifl47&'  &04 laP   Q$If$$If ! !(_$$Ifl5&Q'   04 laP  V !/01<=KLMRߛ߫ߋ{߫kj&5CJOJQJUj%5CJOJQJUj2%5CJOJQJUj$5CJOJQJUj5CJOJQJUCJjF$UB*CJOJQJph CJOJQJ56CJOJQJ5CJOJQJjUmHnHu jUj#U*QR"#$%&F|h|vvvmm $$Ifa$ !$$If$Ift$$Ifl'0Y5&u  &04 laP  #&FLMNO]^_qrۧ{xn{x{xd{x{xZ{xjl(CJUj'CJUj'CJUCJ jCJU5B*CJOJQJph56CJOJQJ56OJQJ 56CJCJ B*CJph B*CJph6B*CJph B*CJphCJj '5CJOJQJU5CJOJQJj5CJOJQJUj&5CJOJQJU#MN3a$$Ifl45&Q'   04 laP$$Ifa$$Ifl45&Q'   04 laPNq#Ps9 $($If($If (($If#$234PQ_`ast|rj,CJU CJOJQJj+5CJOJQJUj0+5CJOJQJUj*CJUjD*CJUj)CJUCJ jCJUjX)5CJOJQJUj(5CJOJQJU5CJOJQJj5CJOJQJU+'()8:[\]klmxy̼̬̥pi CJOJQJj.5CJOJQJUjj.5CJOJQJUj5CJOJQJU5CJOJQJ CJOJQJj-5CJOJQJUj~-5CJOJQJU5CJOJQJj5CJOJQJUj-CJUCJ jCJUj,CJU%9:\P{{$If~$$Ifl4F/ y5&K J  0    4 laP($Ift$$Ifl405&  &04 laP478BC   "68:DFJīwowlf 56CJCJj21UjUmHnHuj0U jU B*CJph6CJ jCJOJQJUmHnHujB0CJOJQJUjCJOJQJU CJOJQJj/5CJOJQJU5CJOJQJj5CJOJQJUjV/5CJOJQJU(67 c$$Ifl4[5&Q'  &04 laP$Ifv$$Ifl4.05&S  &04 laP7 HJ $ !((a$$Ifl45&Q'  &04 laP($Ifx$$If ! !(a$$Ifl45&Q'  &04 laP*,.BDFPRVxz|* , . < > @ T V X b d h !!!!!!!!!!ѾѾѾѾj2Uj~2U 56CJCJ5CJOJQJj2UjUmHnHuj1U jU B*CJph6CJ5B*CJOJQJph56CJOJQJ56OJQJ7 5) $ !((a$$Ifl45&Q'  &04 laP($Ifa$$Ifl45&Q'   04 laP*,TV, |t$$If ! !(a$$Ifl45&Q'  &04 laP($If $ !((, . < > f 5) $ !((a$$Ifl45&Q'  &04 laP($Ifa$$Ifl45&Q'   04 laPf h !|t$$If ! !(a$$Ifl45&Q'  &04 laP($If $ !((!!!!! 5) $ !((a$$Ifl45&Q'  &04 laP($Ifa$$Ifl45&Q'   04 laP!!!!!! """"$"&"0"2"4"""""""""""""############J$L$N$b$d$f$p$r$v$ĽĽ}Ľuj5Uj4U5B*CJOJQJph56CJOJQJ56OJQJ 56CJCJ5CJOJQJj44U B*CJph6CJj5UmHnHuj35U j5U5jUmHnHu jUjR3U.!4"""""#|t$$If ! !(a$$Ifl45&Q'  &04 laP($If $ !((##### 5) $ !((a$$Ifl45&Q'  &04 laP($Ifa$$Ifl45&Q'   04 laP##J$L$t$v$R&|$$If !a$$Ifl45&Q'  &04 laP($If $ !((v$$$$P&R&T&b&d&f&z&|&~&&&&&&&' ' ''''^'`'b'((((((((((((B)D)F)Z)\)^)h)j)p))))))ĿĿĿĿːj5CJU5CJj6UjF6Uj5UjUmHnHujr5U jU B*CJph6CJ5B*CJOJQJph56CJOJQJ56OJQJ 56CJCJ5CJOJQJ5R&T&b&d&& 5) $ !((a$$Ifl45&Q'  &04 laP($Ifa$$Ifl45&Q'   04 laP&&&&''(|t$$If ! !(a$$Ifl45&Q'  &04 laP($If $ !((((((( 5) $ !((a$$Ifl45&Q'  &04 laP($Ifa$$Ifl45&Q'   04 laP((B)D)l)n)p)?*@*A*B*****||||z|z ! !(a$$Ifl45&Q'  &04 laP($If $ !(()))))))) * * * *#*$*2*3*4*>*@*A*B********** + +++++)+*+8+9+uej95CJOJQJUj85CJOJQJUj5CJOJQJUB*CJOJQJph CJOJQJ56CJOJQJ5CJOJQJ5>*CJOJQJCJ6CJj85CJUj7CJU jCJUCJ5CJj5CJUj75CJU'**** +>+x$If_$$Ifl5&Q'   04 laP$$If !9+:+=+?+g+i+j+x+y+z+++++++++,N-P-R-T-h-j-l-v-x-|-----<.>.R.T.V.`.b.t.r#j5CJOJQJUmHnHuj:5CJOJQJUB*CJOJQJph56CJOJQJjUmHnHujh:U jU 56CJj95Uj|95U j5U5 CJOJQJ5CJOJQJj5CJOJQJU(>+?+i++p $If^k$$Ifl4    05& 0    4 laP++,P-R-8(a$$Ifl4    5&Q'  &0    4 laP  !$Ifk$$Ifl4    05& 0    4 laPR-z-|---f..X}} $(($If_$$Ifl5&Q'   04 laP$$If ! !(t.v.........//////&/(/,/`/////////////0p0r0t0v000000000@1B1ơ}5j<U B*ph6jD<UB*CJOJQJph56CJOJQJjUmHnHuj;U jUCJ5CJOJQJ jCJOJQJUmHnHujV;CJOJQJU CJOJQJjCJOJQJU....//*_$$Ifl5&Q'  &04 laP$$Ifk$$Ifl405&#. 04 laP/*/,/////_$$Ifl5&Q'   04 laP$$If ! !(////r0$If ! !(a$$Ifl5&Q'  &04 laPr0t000000$If ! !(_$$Ifl5&Q'   04 laP00B1z111,2 !(($If_$$Ifl5&Q'   04 laPB1D1`1b1d1z1|11111111111 222.242p2d3h3j3~33333333@4D4F4Z4\4^4h4j4l4r4444445ðð̌jCJOJQJUCJj?U56CJOJQJ CJOJQJ5CJOJQJjUmHnHuj?U jU5CJCJj>5Uj>5Uj=5Uj0=5U5 j5U1,2.2022242f3vtttn$If$$Ifl4Fy5&  &0    4 laPf3h3333B4$$If ! !(c$$Ifl4{5&Q'  &04 laPB4D4l4n4p4r44$If ! !(_$$Ifl5&Q'   04 laP44444$$If_$$Ifl5&Q'   04 laP445B5j5maaa $(($If$$IflF+5&G  &&&0    4 laP5 5 55555052545>5@5B5D5X5Z5\5f5h5l5n5555555555555555555555556 6 666βΤΖΈzjBCJOJQJUjPBCJOJQJUjACJOJQJUj`ACJOJQJUj@CJOJQJUjp@CJOJQJU CJOJQJ jCJOJQJUmHnHujCJOJQJUj?CJOJQJU0j5l55555666^6`66666vvvvvvvvv $(($If|$$IflF+5&G  0    4 laP 6$6&6(626466686L6N6P6Z6\6`6b6v6x6z66666666666666666666666777777&7(7*7{jFCJOJQJUjECJOJQJUj ECJOJQJUjDCJOJQJUj0DCJOJQJUjCCJOJQJU jCJOJQJUmHnHujCJOJQJUj@CCJOJQJU CJOJQJ067*7R7T7|777777vlllvfZ $ !$If ! (($If|$$IflF+5&G  0    4 laP $(($If *7,7@7B7D7N7P7T7V7j7l7n7x7z7|7~777777777777777788888 8*8,8.888:8<8P8R8T8^8`8b8{jHUjUmHnHuj`HU jUCJ5CJ5jGCJOJQJUjtGCJOJQJUjFCJOJQJU jCJOJQJUmHnHujFCJOJQJU CJOJQJjCJOJQJU078.8:8b8z8|88N>$ !(($If$$Iflr5& RJ 04 laP $ !$Ifb8z8|88888888888888888899 9"96989:9D9F9H9R9T9V9j9l9n9x9z9|99999999999j0KCJOJQJU CJOJQJjCJOJQJU5B*CJOJQJph j:5CJOJQJ5CJOJQJjJUj@JUjIUjUmHnHujPIU jU55CJ0888899 9H9T9L $$Iflr5& RJ 04 laP$ !(($IfT9|9999:LDB3 !(($If $($If$$Iflr5& RJ 04 laP$ !(($If9999@:::::::::::::::8;:;F;H;J;L;N;Z;ѾCJ0JmHnHu0J j0JUCJOJQJmHnHu CJOJQJjCJOJQJUjUmHnHujKU jU5655CJOJQJjCJOJQJU jCJOJQJUmHnHu:::N;P;R;T;V;X;Z; r D% !X$$Ifl45&Q'04 laP (&P . A!c"c#c$c%+ 0&P . A!c"c#c$c%+ 0&P . A!c"c#c$c%+ 0&P . A!c"c#c$c%+ 0&P . A!c"c#c$c%+ 0&P . A!c"c#c$c%+ 0&P . A!c"c#c$c%+ 0&P . A!c"c#c$c%vDText64vDText64vDText63xDText115(Df Dropdown10 White BritishBlack CaribbeanBlack British Ghanaian Black African Black OtherBlack British SomaliBlack British EritreanBlack British Nigerian Asian British IndianAsian British PakistaniAsian British Bangladeshi Asian Chinese Asian OtherFilipinoGreek/Greek CypriotTurkish/Turkish CypriotKurdish White IrishOther White BackgroundWhite & Black CaribbeanWhite & Black African White & AsianOther Mixed BackgroundOther Ethnic GroupLDf Dropdown11 BaptistBuddhistChristian CofEChristian Greek OrthodoxChristian Non-ConformistChristian Roman CatholicChristian -OtherHinduJehovah's WitnessJewishMuslim No ReligionOther RastifarianSikh UnclassifiedvDText69Df Dropdown4 Scheduled UnscheduledLDf Dropdown6 Care Manager/SW Team Manager Lead AssessorCommunity Care AssessorCommunity NurseDf Dropdown3 Residential and Nursing ReviewIntegrated Assessment NorthIntegrated Assessment SouthIntegrated Assessment CentralCare Management NorthCare Management SouthCare Management CentralSensory Disability I CareWhittington Hospital UCL Hospital"Mental Health Care of Older People!REACH - Community Rehabilitation Df Dropdown12  Nursing Residential Residential - EMI Nursing - EMIPD - Residential PD - Nursing MH - NursingMH - ResidentialDrugs/Alcohol ResidentialxDText166xDText165xDText169xDText168xDText212xDText208xDText154xDText157xDText170xDText138xDText144xDText1394Df Dropdown5 Attendance at Meeting Telephone Report suppliedLetter ApologiesxDText145xDText1404Df Dropdown5 Attendance at Meeting Telephone Report suppliedLetter ApologiesxDText146xDText1414Df Dropdown5 Attendance at Meeting Telephone Report suppliedLetter ApologiesxDText147xDText1434Df Dropdown5 Attendance at Meeting Telephone Report suppliedLetter ApologiesxDText148xDText1504Df Dropdown5 Attendance at Meeting Telephone Report suppliedLetter ApologiesxDText151xDText1424Df Dropdown5 Attendance at Meeting Telephone Report suppliedLetter ApologiesxDText149vDeCheck35vDeCheck36vDeCheck35vDeCheck36xDText203xDText119vDText62vDeCheck35vDeCheck36vDeCheck35vDeCheck36vDeCheck35vDeCheck36vDeCheck37vDeCheck38vDeCheck39vDeCheck40vDeCheck41vDeCheck42vDeCheck43vDeCheck44vDeCheck45vDeCheck46vDeCheck47vDeCheck48vDeCheck49vDeCheck50vDeCheck51vDeCheck35vDeCheck36vDeCheck35vDeCheck36xDText210xDText206xDText207jDjDjDjDjDxDText209jDjDjDjDjDjDjDDeCheck12 dsfrertyukvDeCheck56vDeCheck14vDeCheck35vDeCheck36vDeCheck35vDeCheck36xDText202vDText73xDText111vDText77vDText77vDText62vDeCheck52vDeCheck53vDeCheck54vDeCheck55xDText205xDText199xDText128xDText129xDText130xDText122xDText123xDText124xDText125xDText126xDText127xDText191xDText192xDText193xDText120xDText121vDText90vDText77vDText84vDText91xDText158xDText159xDText160xDText164xDText161xDText163vDText36vDText37 i0@0 Normal_HmH sH tH >@> Heading 1$@&5OJQJtH uB@B Heading 2$@&5CJOJQJtH uLL Heading 5$$@&a$5B*CJOJQJtH uL @L Heading 9 $$@&a$5B*CJOJQJtH u<A@< Default Paragraph Font>>@> Title$a$5B* CJ$OJQJtH u@@@ Header  !CJOJQJtH u<J@< Subtitle ((5CJOJQJPC@"P Body Text Indent V^VCJOJQJtH u, @2, Footer  9r &)@A& Page Number^p_ i^*W 8""&"&"&"&p_ ,io^UW;%XYghGkl23Rtu  45nopUVm()=Ocdx);OPQ89:YZnopqH I ] ^ _ `  5 6 ^ k l m  > X t  A b >opFG[\+,{|)*>?   !RSghiABCDEKLYZno12FGtuvRndeyz)*>Rfg{ 2FZ[o '23AU[oz{   X_00000000000000000000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLOD R!v$)9+t.B156*7b89Z; $(+0246;=@ADHNRWY]cikmor8b( h RPQN97, f !!##R&&((*>++R-.//r00,2f3B444j5678T9:Z;!#%&')*,-./135789:<>?BCEFGIJKLMOPQSTUVXZ[\^_`abdefghjlnpqsX;"u 2>DYi{ *0>JP`lr  ,2Zfl &)5;=MO[adpvx !')9;GM#3ZflI U [   0 ^ n z   " > N X h t  / A Q b r >NZj GSY#) *6< S_e*6FZfl2>DRbn~eqw*6<>JPR^dgsy{ *02>DFRX[gmo{ %AMS[gm ^FFFFS$S$FS$S$S$S$FFFFFtFtFFFFFFS$FFS$FFS$FFS$FFS$FFS$FG$G$G$G$F4FFG G G G G G G G G G G G G G G G G G G G G G G G$G$FtF4F4F4F4F4F4F4FtF4F4F4F4F4F4F4G$G G$G$G$G$G$F4FFFFFG$G$G$G$F4FFFFFFFFFFFFFFFFFFFFFFFFFFF@GIO !l,b$c"eo QW6@0(  B S  ?^ Text212Text203Text210Text206Text207Text209Check56Text202Text205[ [f_mmx_u2E1>Q`s  3Zm')<Obdw(;NZmI \   1 ^ o z  # > O X i t   0 A R b s GZ**= SfZm2E'4ex*=>QRegz{ 12EFY[no &AT[n  ,MWYZ\_%(w{t Z_::::::::London Borough Of IslingtonZC:\Documents and Settings\HOWARD SMITH\Desktop\CPA Freeware\Residentail Nursing Review.dotLondon Borough Of IslingtonZC:\Documents and Settings\HOWARD SMITH\Desktop\CPA Freeware\Residentail Nursing Review.dotLondon Borough Of IslingtonZC:\Documents and Settings\HOWARD SMITH\Desktop\CPA Freeware\Residentail Nursing Review.dotLondon Borough Of Islington]C:\Documents and Settings\HOWARD SMITH\Desktop\CPA Freeware\Residentail Nursing Review FW.dotLondon Borough Of Islington]C:\Documents and Settings\HOWARD SMITH\Desktop\CPA Freeware\Residentail Nursing Review FW.dotLondon Borough Of Islington]C:\Documents and Settings\HOWARD SMITH\Desktop\CPA Freeware\Residentail Nursing Review FW.dotLondon Borough Of Islington]C:\Documents and Settings\HOWARD SMITH\Desktop\CPA Freeware\Residentail Nursing Review FW.dotLondon Borough Of Islington]C:\Documents and Settings\HOWARD SMITH\Desktop\CPA Freeware\Residential Nursing Review FW.dotLondon Borough Of Islington]C:\Documents and Settings\HOWARD SMITH\Desktop\CPA Freeware\Residential Nursing Review FW.dotAClark@J:\SAP\Documents\Islington\Residential_Nursing_Review_FW-392.dotXYghGkl23Rtu  45nopUVm()=Ocdx);OPQ89:YZpqH I _ `  5 6 ^ k l m X >opFG[\+,{|)*>?   !RShiDEKLYZno12FGtuvRdeyz)*>Rfg{ 2FZ[o '23AU[oz{   Z_ .i" PK    Custom Popup 1 Custom Popup 10( Form HelpHelp with this form GetFormHelp( CC HandbookLink to Com Care HandbookGetComCareHandbook(GGGG HCustom Popup 2 Custom Popup 20 ( Form HelpHelp with this form GetFormHelp ( CC HandbookLink to Com Care HandbookGetComCareHandbook (Health and SafetyInfo on safe computer use GetSafetyHelp Islington Islington,d ,d ,d ,d ,d 0"( Auto Save+Saves document using the Auto Save facilityAutoSaveChoiceV"( Spell CheckSpell checks the whole document RunSpellCheckU" (HelpForm Help and Com Care HandbookCustom Popup 3Custom Popup 3 Custom Popup 30 ( Form HelpHelp with this form GetFormHelp ( CC HandbookLink to Com Care HandbookGetComCareHandbook (Health and SafetyInfo on safe computer use GetSafetyHelpRes/Nursing ReviewRes/Nursing Review,d ,d ,d ,d ,d 0"( Auto Save+Saves document using the Auto Save facilityAutoSaveChoiceV"( Spell CheckSpell checks the whole document RunSpellCheckU" (HelpForm Help and Com Care HandbookCustom Popup 4Custom Popup 4 Custom Popup 40 ( Form HelpHelp with this form GetFormHelp ( CC HandbookLink to Com Care HandbookGetComCareHandbook (Health and SafetyInfo on safe computer use GetSafetyHelpResidential/Nursing ReviewResidential/Nursing Review,d ,d ,d ,d ,d 0( Auto Save+Saves document using the Auto Save facilityAutoSaveChoiceV( Spell CheckSpell checks the whole document RunSpellCheckU (HelpForm Help and Com Care HandbookCustom Popup 5Custom Popup 5 Custom Popup 5 0( Form HelpHelp with this form GetFormHelp( CC HandbookLink to Com Care HandbookGetComCareHandbook(Health and SafetyInfo on safe computer use GetSafetyHelpResidential/Nursing ReviewResidential/Nursing Review 0( Auto Save+Saves document using the Auto Save facilityAutoSaveChoiceV( Spell CheckSpell checks the whole document RunSpellCheckU (HelpForm Help and Com Care HandbookCustom Popup 6Custom Popup 6 Custom Popup 6 0( Form HelpHelp with this form GetFormHelpResidential/Nursing ReviewResidential/Nursing Review 0( Auto Save+Saves document using the Auto Save facilityAutoSaveChoiceV( Spell CheckSpell checks the whole document RunSpellCheckU (HelpForm Help and Com Care HandbookCustom Popup 7Custom Popup 7 Custom Popup 7 0 ( Form HelpHelp with this form GetFormHelpResidential/Nursing ReviewResidential/Nursing Review0"( Auto Save+Saves document using the Auto Save facilityAutoSaveChoiceV"( Spell CheckSpell checks the whole document RunSpellCheckU" (HelpForm Help and Com Care HandbookCustom Popup 8Custom Popup 8 Custom Popup 80( Form HelpHelp with this form GetFormHelpResidential/Nursing ReviewResidential/Nursing Review0"( Auto Save+Saves document using the Auto Save facilityAutoSaveChoiceV"( Spell CheckSpell checks the whole document RunSpellCheckU" (HelpForm Help and Com Care HandbookCustom Popup 9Custom Popup 9 Custom Popup 90 ( Form HelpHelp with this form GetFormHelpResidential/Nursing ReviewResidential/Nursing Review0"( Auto Save+Saves document using the Auto Save facilityAutoSaveChoiceV"( Spell CheckSpell checks the whole document RunSpellCheckU" (HelpForm Help and Com Care HandbookCustom Popup 10Custom Popup 10 Custom Popup 100( Form HelpHelp with this form GetFormHelpResidential/Nursing ReviewResidential/Nursing Review0( Auto Save+Saves document using the Auto Save facilityAutoSaveChoiceV( Spell CheckSpell checks the whole document RunSpellCheckU (HelpForm Help and Com Care HandbookCustom Popup 11Custom Popup 11 Custom Popup 110 ( Form HelpHelp with this form GetFormHelpResidential/Nursing ReviewResidential/Nursing Review0( Auto Save+Saves document using the Auto Save facilityAutoSaveChoiceV( Spell CheckSpell checks the whole document RunSpellCheckU (HelpForm Help and Com Care HandbookCustom Popup 12Custom Popup 12 Custom Popup 120 ( Form HelpHelp with this form GetFormHelpResidential/Nursing ReviewResidential/Nursing Review0( Auto Save+Saves document using the Auto Save facilityAutoSaveChoiceV( Spell CheckSpell checks the whole document RunSpellCheckU (HelpForm Help and Com Care HandbookCustom Popup 13Custom Popup 13 Custom Popup 130( Form HelpHelp with this form GetFormHelpResidential/Nursing ReviewResidential/Nursing Review0( Auto Save+Saves document using the Auto Save facilityAutoSaveChoiceV( Spell CheckSpell checks the whole document RunSpellCheckU (HelpForm Help and Com Care HandbookCustom Popup 14Custom Popup 14 Custom Popup 140 ( Form HelpHelp with this form GetFormHelpResidential/Nursing ReviewResidential/Nursing Review0"( Auto Save+Saves document using the Auto Save facilityAutoSaveChoiceV"( Spell CheckSpell checks the whole document RunSpellCheckU" (HelpForm Help and Com Care HandbookCustom Popup 15Custom Popup 15 Custom Popup 150 ( Form HelpHelp with this form GetFormHelpResidential/Nursing ReviewResidential/Nursing Review0"( Auto Save+Saves document using the Auto Save facilityAutoSaveChoiceV"( Spell CheckSpell checks the whole document RunSpellCheckU" (HelpForm Help and Com Care HandbookCustom Popup 16Custom Popup 16 Custom Popup 160( Form HelpHelp with this form GetFormHelpResidential/Nursing ReviewResidential/Nursing Review 0( Auto Save+Saves document using the Auto Save facilityAutoSaveChoiceV( Spell CheckSpell checks the whole document RunSpellCheckU (HelpForm Help and Com Care HandbookCustom Popup 17Custom Popup 17 Custom Popup 17!0 ( Form HelpHelp with this form GetFormHelpResidential/Nursing ReviewResidential/Nursing Review"0( Auto Save+Saves document using the Auto Save facilityAutoSaveChoiceV( Spell CheckSpell checks the whole document RunSpellCheckU (HelpForm Help and Com Care HandbookCustom Popup 18Custom Popup 18 Custom Popup 18#0( Form HelpHelp with this form GetFormHelpResidential/Nursing ReviewResidential/Nursing Review$0( Auto Save+Saves document using the Auto Save facilityAutoSaveChoiceV( Spell CheckSpell checks the whole document RunSpellCheckU (HelpForm Help and Com Care HandbookCustom Popup 19Custom Popup 19 Custom Popup 19%0 ( Form HelpHelp with this form GetFormHelpResidential/Nursing ReviewResidential/Nursing Review&0"( Auto Save+Saves document using the Auto Save facilityAutoSaveChoiceV"( Spell CheckSpell checks the whole document RunSpellCheckU" (HelpForm Help and Com Care HandbookCustom Popup 20Custom Popup 20 Custom Popup 20'0( Form HelpHelp with this form GetFormHelpResidential/Nursing ReviewResidential/Nursing Review     (0"( Auto Save+Saves document using the Auto Save facilityAutoSaveChoiceV"( Spell CheckSpell checks the whole document RunSpellCheckU" (HelpForm Help and Com Care HandbookCustom Popup 21Custom Popup 21 Custom Popup 21)0 ( Form HelpHelp with this form GetFormHelpResidential/Nursing ReviewResidential/Nursing Review=0=0=0=0=0*0"( Auto Save+Saves document using the Auto Save facilityAutoSaveChoiceV"( Spell CheckSpell checks the whole document RunSpellCheckU" (HelpForm Help and Com Care HandbookCustom Popup 22Custom Popup 22 Custom Popup 22+0 ( Form HelpHelp with this form GetFormHelpResidential/Nursing ReviewResidential/Nursing Review`"@S`"@S`"@S`"@S`"@S,0( Auto Save+Saves document using the Auto Save facilityAutoSaveChoiceV( Spell CheckSpell checks the whole document RunSpellCheckU (HelpForm Help and Com Care HandbookCustom Popup 23Custom Popup 23 Custom Popup 23-0( Form HelpHelp with this form GetFormHelp@ 0mmmmm ^```` `@`````,@``` `"`$`&`(`T@`,`.`0`2`4`8`:UnknownGz Times New Roman5Symbol3& z Arial;Wingdings"1h㩆㩆^CF} 6S (#0dpG+2CC16aEnter User NameAClarkOh+'0 ,8 T ` l xCC16afC16Enter User Namentente&Residential_Nursing_Review_FW-392.doct AClarkt2laMicrosoft Word 9.0_@@Ա"`@,@,}՜.+,0  px  Islington Counciln 6 p CC16a Title  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstvwxyz{|}~     Mb* !"#$%&'()5,-./012346789:;<=>?@ABCDEFGIJKLaO[QRSTUVWXYZ\]^_`HcedfighRoot Entry F@@@Data uL1TableWordDocumenteSummaryInformation(DocumentSummaryInformation8Macros`o;VBA-ThisDocument modAutoSaveZModCreateToolbar"]modHelp 4  !"#$%&'()*+-./0123456789:;G>?@ABCDEFHIJKMOPQRTUVXYZ[\]^_`abd &>#xME (SLSS<N0{00020906-0000-0000-C000-000000000046}x h@%@@paA " Aoh`Attribute VB_Name = "ThisDocument" Bas0{00020P906-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomi6zD2P Sub _New() Call ResetToolbar@s End t{&BhxMEPrompt W&' = Active/G.jFields(1).Result@  2 KLN BuiltIn7perties(wdy“@s9didBmusk@somethipDtf( twlo / Af"?if no@t, senm back to try ag If Trim(H)A" _ OrCDThenMsgBox pk:="PleaHse C-a C }Ba@"@.,"^,t@:=vbExclama M:=%xSelec@ -1 -ss ledGoG EQ l Q '5Y/n;zϢKylepN7aNPQ R<:=Ppw@"`[|qwi)P3(V^7has be3Qd@1d _"Would you likeUcloit?CaxQuesA +UYesNo.*o vb@'#\C1 s(aby 7r e!ovariaM Cp mdr, I= Null_D!-Sub;``:sQRun`"is subroutine02rPl fqSIDE_Jp]di2k% bч-a$A'%' nu^ems. U@s will1rNh` qbq 5'Isl z'olbar. -D .CommGBars("Me")pntr|ol@aE  Enad@sFa4"! P  0HTMLPVooooVw`'[/-St ard toc&T'_+''" o'#' '_"oK_" _"le).W"Tru0ۯ,,!-?"g,___Q/"nd@5"A?0-"I?ChpoiceA"TRPfa@x""UJma.ShowcqsCaGqVR "P FX F : (40:h@<&( P X "` Dh (  4 : @X < &   "   ( 8 ` `Hnts   "  F &`   0  xh]:S:\Swift\adults\Help_Files_adults\Completing the CC16a.htm@nt  2B@  (|`X%Help not yet set up for this functionA@>o Attribute VB_Name = "modHelp" Option PrivaModule Sub GetFormP() Vn Error GoTo notfound2Const RFileAddress As$ Sngr&'xMEHLh h"h$ &D`(5g`*ti`,ic`.`0 rX z |  ` o  (0"8 <@ :    (@X Hp *,b 2 B LX@ JrX * NPhpx <  &40h |p    $@ H "P FX F : (40:h@<&( P X "` Dh (  4 : @X < &   "   ( 8 @ H P ` x]$ Auto Save] ] 0] H`5saves the current document in the naming convention:- I4FamilyName, FirstName, FormIdentifier (eg CC3), DateH]]]]]Dim FamilyName As StringDim FirstName As String 2%4!6'" 2%4!6'$ : 2%8' Adid the user enter something in the first two fields on the form?#if not, send them back to try againntextW "$< $$< 7Please enter a Family Name and a First Name on the form@ DB FA@> 2%4B@H|`kX+remove any spaces and convert to ProperCase  "$< J$H'" $$< J$H'$<set up the Date part of the filename, in the format ##.##.##pE***N/B do not try to use Format(date) - it contains "/" characters*** Z$L. Z$N. Z$R$P'.assemble the filename ",  $   ( .)'(7Please open the correct client's folder before saving. T T Or create a new one if necessary'0 0@ VB FA@>Gopen the MSWord SaveAs... dialog box and inserts the assembled filename \ X%Z (9 ^95`',5'*qpdid the user cancel? , Autosave cancelled@ VB FA@>|dif not, then Save the document  *d ^fqwertyh 2B@b<Lk   The document has been saved. TWould you like to close it?@ j l B F$>', , n 2B@Bkrelease variables from memory p' o?Run this subroutine direct from the IDE in order to disable the?built-in MSWord 'Save' menu items. Users will therefore have to43use the AutoSave button on the 'Islington' toolbar.& XSaveFileMenu Bar7t%v%v(x` Save As...FileMenu Bar7t%v%v(x Save as HTML...FileMenu Bar7t%v%v(x Versions...FileMenu Bar7t%v%v(x SaveStandard7t%v(xqoX>Run this subroutine direct from the IDE in order to enable the H"built-in MSWord 'Save' menu items. XSaveFileMenu Bar7t%v%v(xme,  Save As...FileMenu Bar7t%v%v(x]Save as HTML...FileMenu Bar7t%v%v(x Versions...FileMenu Bar7t%v%v(x SaveStandard7t%v(xenqo 2!~ B@#dA&kouAttribute VB_Name = "modAutoSave" Option PrivaModule Public Const iTiltlvp rDFormIdentifier As$ SngFa0mily}irstSub Main() 'ss the currv documinnong confvn:-B, F:^(eg CC3), D Dim Doc Q i lngRetVa2lLoFistdoleP f%\*\G{00020430-C 0046}#2.0#0#C:\WINNT\System32\StdOle2.Tlb#OLE Automation/MSForms>SFErmsmodSpellCheck +@frmSaveChoicePk_VBA_PROJECTNBdir,if no documents open, quit macro !*There are no open documents to spell check A@>S5UJ|k#give user the opportunity to Cancel  HThis spell checking program for forms may take a few minutes to complete TC(depending on the length of the form and how many errors are found) TXIt will let you know when it has finished. Please do not try to cancel it in the middle. T TRun Spell Check?' @ F V l B$>',X , G|jyle = 2.conAnd@Check what type of protection - if any - has been applied to docpT !ns the6If not protected, or if protected for tracked changes,seNerun spellchecker and quit ------------- K KTL !9 B@9d( B@'.k X( XB@les !!m !\Co*The Spelling and Grammar Check is complete V A@>NSdxThe Spelling Check is complete V A@>k8k0  ( :| -------------me KT <don't want to run spellchecker if doc protected for comments\LA|n !._  ( CE -------------=W -------------Os/If we've got this far, it's protected for formsoNow unprotect the document B@am (\In0Check each section for its protection property -y7which you can get even after un$-&CxME(<<< < G X% x%  or *% _ " L @` F H  0 @H ZP ,   B( p  0 ( > 2@ x     4  8 @` h p x  (     ( HP Xx      "     (@"`6        0xECREATES A PERMANENT CUSTOM TOOLBAR NAMED "Residential/Nursing Review"ment:This subroutine is not called by any event or by any other@procedure. Run it 'manually' from the VBA editor *only* when youBneed to create/re-create the Islington toolbar within the template 2 X("]@]` ***Residential/Nursing Review  X!t%. on thResidential/Nursing Review X%tagai9,9d9   9q !v7< Set aBtn = .Add(Type:=msoControlButton, temporary:=False)B  With aBtn2 .FaceId = 162X) .Style = msoButtonIconAndCaption" .Caption = "Needs Select"7 .TooltipText = "Opens the Needs Selector Tool" t+ .OnAction = "InitialiseNeedsInput" use F End Withtain l7.Z$L 9V9 9 Auto Save9'.+Saves document using the Auto Save facility9 $AutoSaveChoice9q l7.7Plea 9U9 9 Spell Check9 TSpell checks the whole document9 RunSpellCheck9 q  l7. 9Help9... Form Help and Com Care Handbook9qqHelp %v!!v l7.di  Form Help9,Help with this form9save GetFormHelp9B qqo X(en Sav]  2!t * ! Islington 2B@ !l  !The !Standard ! Formattingos (@ jd( ($>kkk  X(reo6Attribute VB_Name = "ModCreateToolbar" Option P(riv\ ule Sub T() 'CREATES A PERMANENT CUSTOM TOOLBAR NAMED "Residential/Nursing Reviews'This subroutine not called by any ev? orotherprocedure. Run it 'manu;y' from (A edit*only* when Hyou!ne3to c/re-IslVtt withintempl Applica.Cus tomizCo ntextActiveDocumfDim my As Cobm_dBamaBtn 'rolSet= A$s.Add(}:=Yb, _ B &Posi;:=mso+Flo ;ngMenu@:=False,_orary@ WgB(@@@?.VisibblATruLDefp300H.(Tops1Protew@= CNoChangA{kV+ MovEnd /v1F.}s'$A~= BwTypeb But, H  A`C.@FaceIdA62 StyB"b IconAndCa"jd"N@ks Sel#A}' !a^tipT#c"OpensbjIu+OnhB-"InA`PaliseInput * &&h& .BeginG@BF3)34)e .')G)AuSa "" TB(/ah@ pNal) b gBuilt= S)'St&ard"atg0 # }tEr IfuNl?Qb $ protecting the document.3MIf the section was protected, call a subroutine to spellcheck the formfields.BE$if it wasn't, spellcheck the sectionROCSpellchecking document ...'E=x  !SOR !TIF A86  2Boolean variable returned by CheckProtectedSection 'procedure if user pressed Cancel buttonEykd !!!  X( !B@ !!! )User must have pressed the Canc,&xME (<<<<(h` 0%` h% 8x`H~1`.IE5`,S5UJ slin% 0late% xa)% &Re %`*%t`,9 6X0)&P  % @)&G| % X  ZocpT% dp      ( "0 "8`hpx &:  * 68 4p    F   <( h         ( D8  8     BPX ` p    6     6( >` T *"( P h x 8 .  ( 8 H 0` B B   ( 0 8  @ P p :    *  ( D8  8   $    ( 0 " 8 @ H P &X D   4 ( H8 ,  D    8  H  P  ` Jp   B @  <` :X 8 HX <` B   0  @P 2h 2 < 8 P`p   < D  >h @ F @0 <p @" ( @0 <p 2 00H`hx      "  < ,@p " x (       B(px   &      "   ( 8@P`hpx    "  (xp]]]8]Pp]Islington Spell Checkon ]]]] el button,;otherwise 'CheckSpelling' would have reduced the Count to 0<(Pressing Ignore reduces the count, pressing Cancel doesn't)ykkk re-protect the document "l$ B@ 4get the user back to where they were in the document B@H X( XB@& If objDoc.SpellingChecked = True Then !*The spelling and grammar check is complete V A@>dxThe spelling check is complete V A@>k8 End If  ( release variables from memory' p'..o8]]]check only the text formfields,>don't check listboxes and checkboxes - this speeds up the code X( & !!4-Check to see if the field is a text formfield &!l .ACheck if the field is a 'real' text field (no date, formula etc);%and that it is enabled for text input &!0!l 2 &!x =The following subroutine won't be called if Word 97 is in use X!4$ 8 &A6k &!( : &!(8 DIf the current form field contains errors, spellcheck the text in it &!!! <The following condition is to allow for a Word 97 bug, which:was fixed in 2000; (and in the latest Word 97 patches). If6the formfield is in a table and contains more than one3paragraph, then spellchecking it will crash Word 97  X!4$ 8 &!!<!  &!!>!  &A@ G|jd5Set a range to the formfield's range in case the user<accidentally destroys the formfield by overtyping its entirecontents &!. !!4!'*S  X( Sm &!B@L &$BSm &!!! ,User pressed Cancel button. (Pressing IgnoreEn+reduces the count, pressing Cancel doesn't)nv '|kd5If formfield was destroyed because user overtyped itsUentire contents !d' P   %D!d'akp  F', , bA3  , $ '  F', 6If formfield was destroyed when the user corrected theJ>spelling, reinstate it, and put the user's correction into its P8result. Note that although Undo reinstates the FormfieldC9itself, if the Formfield is preceded by a tab, It doesn't?reinstate the objFormField object, hence the need to do a count09(although, as previously stated, in a well-designed form,5formfields should never be preceded by a tab, as it's5 :better to use table cells (removing borders as necessary). * !!4!b7 x B@HDL 9Also due to a Word bug, if the formfield is preceded by a6tab, the text within the formfield may now be selected12,without the formfield itself being selected! x )Hence the following convoluted workaround !4! ( NL B@J97. NLR B@Pk &$B  %4.&l kh  &(60)kP kH X(x 1k0 k( k & x o 5This subroutine is called only in Word 2000 and above16%objFormField.Range.NoProofing = False10o X"Unlink formfield (convert to text) &!.1 &!%TB@V X( ( B@ x !! A5User pressed Cancel button<(Pressing Ignore reduces the count, pressing Cancel doesn't)4 'k !d'LUndo to reinstate the formfieldn &$Bbr B@H1/2   &!%T!6(d6 X(0 mo] 2.Z9 m\ Z!  ^$Zm9$C@qd ZB@ 7 kh|`\X `!b VA@>/8 o8  2! " 2B@7 1d "l$ 2B@ koķAttribute VB_Name = "modSpellCheck" Option Explicit@PrivatModule Dim@ bCanczed As Boolean4objRange0,sCorrectedErrorSng5DocCumen Sub Run ()Const IsTitlgIIslinlgt4 ZMpessaL=lngRetVal>LoHSWqVOriginDal u 'if no doces open, quit macro If ts.Count_0 The!MsgBox "re a(C#*to s bc, ,CEx7Sub E`nd If&B'give use r the'portunity 3w LTh is Y program fsLms6ak+ few min@scomplete" & vbCrLf_ "(deFdm #leph of& a/hoany esDfMd)It will  you knw@V Dhas finished. PleaseTkt tr?c in!middl\e. J1 ?I = s(ALmpt:=DV, @{B:=s:=vbTInAFa+TYesNo@IBI!vbNoBL|eCq met w@RPActCS!n'Bi wha$ypFf!@tdd- `^3- !,been |ap@@J@a l C!. .Przo$T` (T!`dnot ed, M? ( ` 6ack`chs, 'runCVc@]Hap&- bwdNo, wdAllowOnlyRevis`se`CxpG bmarWithB[z@D) Els`, FS`bez AA.c!B.Scr0Updng:Tru Refresh=@DeBҕ#!%CHha&a5# .c *ccL,]kl lw wE2  System.Curs \=NCNormalg B'XqVComu6+p'don'`Rapg92P6 ;7B^z f. GEced VC b4\ed(7rȬZ2ĭ variabreturnbyImC+1'ceduk "ppVss S}Xr5 %CKK4.%)Z> s w_b C;.x  e  I'U!muh~a0<,V~E 'o@rwiМ ' would`rB+SO08 '(P1a+Ignozc,@;! does1L `4}Nexdre-d< 5H( :=XA2Fi N-(/RegrA/ AhK.EK4B5llow@ subroutine w~be ca>Word 97AWin uA@)@ Left$(~Vers, 1)}"8" VC@ TurHnNoof@$Offņ2@E L@}u ageID wdEng`hUKr e'hcu `oh cQcontain 0T*';`diq'a8g.owNa ;bug, whichA'waix`( 200p0; (YalstF pats). 4 !Jvaa &' thani'paragrapth,an(,>alwill crasheo-_W" _o/g.oOP61 ?Ta#>ia:D97Bugka{ndyj!hHn Exڅ]E'a rb@N>'s]Gcr,'@accideildestroys by overtypUtir# 'A&4e2H/ y#:=lFM?t8tTrup =t?OP-L11pIsObj@Vali"Fur?.%OK*v'User press@G3 button0. (PqaIgno/ zducA&c!,pdoes0lf{ 3-o3l5g7TYd1beca4zr51`it.&'02 o1YϲNQO)0"Len(_l5wofNs(1).y D= InStr , vbV#Do While p{Mid$+  9 LoopCW((w>Z^&/!O %'pll:, rePt!xit,Qcdc۠ inf. sult. 0…t although UndofZ exlf,& Lc$edQ9y B, It F?6W.QC@Z, pc! e n0 aP(sPvioususAd` n wb-@ign F,??6Hne-x p it'H 'betnt_LtQs (rv[b`ƛ as necessary).  Do While Not objFormFieldCount = _vlSection.@Range.s.FB>Doc.Undo(Loop 'Also due to a Word bug, if the fkfk@ is prd"ey a)tab,text @within&may now b e seled#(!out!itEf!ing"!a#Henctkllowconvolutjworkaro"If S+Amk}0 T8hen ~MoveRight unit:=wdCharacte"rLefP, Extend:=TrueEnd8 If<IsObjjValid(F?)<ɀJ1Q(1)7*$.ResulsCorxErroU@ApplicabwScreenUpdQ= Fxals-eNeivSubAPrivate  TurnNo ProofXOff 2 As 3*'Th xsub\tineycall^only t2000 a@BabSd++b@9$ 97TableBuglz$UnlinkȐ(ver`o yESebKb sN a A,:hb õCheckSpelg? e N > 'Userss0CalttoF'(PrAIgnore` redu Ԃc,#ADdoesn'tcib!== 5A~ c'#TQ@'́!reinstP X:$'%ԀfVB4y.gA@Nz :7S ThoolshtUnpro ument(p im o !5 'Q= A|ve On AB GoToM !`.cType wd4@TWs Dialogs(wd=T8 Use .=!"s1R@.ShowC5QJ104"Exi^tG P :SM sgBox .D@escripP, vbInQQbDA! GkOwdA{OJV"s|g<TJY; !axs,8e`zC4 b7msoBarFloatingMenuBar߫ temporaryVisibleTop5 ProtectionmsoBarNoChangeDock^ msoBarNoMove>msoControlButtonn BeginGroupFaceIdiStylepmsoButtonIconAndCaption1lCaptionx TooltipTextb?OnActionmsoControlPopupl)ScreenUpdating! aToolbarmsoBarTypeNormalBuiltInamodHelp GetFormHelpnotfoundAHelpFileAddressFollowHyperlink-Address NewWindow addhistory ActiveWindow+ WindowState|wdWindowStateMaximizeU modSpellCheckF bCancelledcobjRangeyRange sCorrectedError*objDoc+Documentj RunSpellCheck$1IsTitle Message objSection{SectionGobjOriginalRangen DocumentsCount0vvbNo%ProtectionTypewdNoProtectionwdAllowOnlyRevisionsW2OptionsCheckGrammarWithSpelling CheckGrammar CheckSpellingW ScreenRefreshA SpellingErrorsU=SystemaCursorlwdCursorNormalSwdAllowOnlyCommentsR SelectionZ wdCursorWait Unprotect?SpellingCheckedz StatusBarʜSectionsProtectedForFormsCheckProtectedSection&$ProtectfwdAllowOnlyFormFields!noresetg objFormField FormFieldobjFormFieldCountlngPos6wdFieldFormTextInputk\ TextInputC wdRegularTextVersionTurnNoProofingOff$3 LanguageID wdEnglishUK  ParagraphsfTablesWord97TableBugWorkaroundM" IsObjectValidoWords8vbTabc9UndoÞ MoveRightunit wdCharacterMoveLeftvExtend?Fields7Unlink0ToolsProtectUnprotectDocument!oDocErrMesswdDialogToolsProtectDocument3Erro Description  ProtectForm'cmdCancel_Click\ cmdSave_ClickSavecmSaveAs_Click&8  l`xH"2|C岼Z3DD452EE1-E08F-@101A-8-02608C4DP0BB4DsDFM20.DLL#Microsoft 9 \ Ob Library/;C1s00}#0#0 j 15D39D2A-D226-11D7-BF93802E 20D08-TEMP\VBE\Ep.exd -.E .`M AA{Offic{OAxfic{ *2DF8D04C-5BFAXB-BDE5*AAz42*D:\gram Files\GV\MSO97^ 8.0 _"EB&ThisDocumentGD Th1sDDcueTn 2 QHB1ͩB,!(>"B+B" modSa`veG"dA#t@SavY 2D'! ,(eModCre@Toolbaam  *\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}#8.1#0#C:\Program Files\Microsoft Office\Office\MSWORD9.OLB#Microsoft Word 9.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\StdOle2.Tlb#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINNT\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{15L&HxME(S<S<SS0{527656E4-994A-4542-A85D-2684471798D9}{4ADEDB0C-2690-4DC0-962C-58CE55444AD2}( f@ h1 l% %? "  "  ( 8      0 (@ h    6 6 @ $H p >x PF(`P ,    ( 0 P h X `         & " ( 8 A@ro`@ 2B@j%   .Your changes to this document have been saved. TWould you like to close it?@ j l B F$>',.o , n/mes 2B@Bsidentd A@r_FW-39ko*Just Saves the ActiveDocument as per usual"and informs the user on completionDim lngRetVal As LongDim FamilyName As StringDim FirstName As String0FamilyName = ActiveDocument.FormFields(1).Result/FirstName = ActiveDocument.FormFields(2).Result'On Error GoTo someproblemhereIF8'is there something in the first two fields on the form?teI'if not then it has NOT been saved before, so send them back to try again8If Trim(FamilyName) = ""' Or Trim(FirstName) = "" ThengHE MsgBox prompt:="This seems to be a new form, which has not been saved before." & vbCrLf & vbCrLf' & "Please enter a Family Name and First Name," & vbCrLf &' "then try AutoSave again - selecting the top button.",' buttons:=vbExclamation,' Title:=iTitle& ActiveDocument.FormFields(1).Select Unload SaveChoice Exit SubEnd IfActiveDocument.SaveUnload SaveChoice LlngRetVal = MsgBox(prompt:="Your changes have been saved." & vbCrLf &' "Do you want to close the document?",' buttons:=vbInformation + vbYesNo,' Title:=iTitle)If lngRetVal = vbYes Then ActiveDocument.CloseEnd IfExit Subsomeproblemhere: }S MsgBox prompt:="There is a problem with saving the document." & vbCrLf &' "Try clicking the top choice button",' buttons:=vbExclamation,' Title:="Please Try Again" SaveChoice.cmSaveAs.SetFocusA& A@roPHAttribute VB_Name = "frmSaveChoi ce" Bas0{527656E4-994A-4542-A85D-2684471798D9}{4ADEDB0C,90-4DC0-962C-58CE5544 2} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCus tomizD P! Sub cmdCancel_Click() Unload MMEndȇ ctIDocu ment. lngRetValvMsgBox(prompt:="Your changes to this d  h{ been s@d." & vbCrLf_)@*"Would you likeclU it?", tons:=vbQuestion +YesNoN Title:=iCK I$f I: 0/25@ 0@aa3A withAei%e.fя "T*crtop@lq))?*?*`$57qAD(.c⑀As.SetFt&szAsj~ Call u7MJpb D39D2A-D226-11D7-BF93-000802E20D08}#2.0#0#C:\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#D:\Program Files\Microsoft Office\Office\MSO97.DLL#Microsoft Office 8.0 Object Library  aA &ThisDocument31468d09dbThisDocument>modAutoSave32468d09dbmodAutoSave' ModCreateToolbar33468d09db ModCreateToolbarC0#modHelp34468d09dbmodHelpBhHmodSpellCheck35468d09dbmodSpellCheck`,frmSaveChoice36468d09dbfrmSaveChoiceHx0`xH"2|C岼Z|cN,ab@#BVK/pB2OF{+PgJt}h@WordkVBAWin16~Win32MacVBA6#TemplateProjectEstdole`MSFormsCOfficeu ThisDocument< _Evaluate Document_New;E ResetToolbars4T modAutoSave-iTitletFormIdentifierph FamilyNameI FirstName AutoSaveMainчDocName׷iName lngRetValFileDate  SavePromptAActiveDocument\ FormFields-|ResulturBuiltInDocumentProperties_wdPropertyTitle[nTrim@MsgBoxRpromptmbuttons] vbExclamationTitle~StrConvx' vbProperCaseDayMonthRight Year6nvbCrLf vbInformationn Application*DialogswdDialogFileSaveAsNwdTypeDocument%&DisplaySaveAsf;FileNamej FileFormatPassword vbQuestionvbYesNovbYesa? vbNullString disableSave( CommandBars ControlsKEnabled۪ enableSave]AutoSaveChoicePath2 frmSaveChoiceShowModCreateToolbar2L CreateToolbar CustomizationContext΀ myToolbar% CommandBaraBtnCommandBarControlPAddrPositionrG QCra`$e,T A~brtq2 /#s@'C1(HPelpGmHlp2MomBhq "`SpellCheckG H*oSe ljCLeekN2\,9frmKChoxuf@.mcKoyJWp7Hc_ME(J @ }a'/4(,*What do you want to do?1@Tahomax*aI want to save a NEW version of this document (with a different name, or in a different locationfrmSaveChoice-T5f<zo=\CompObjLa)N5Tahomap*[I want to save the changes I've made to this document (and overwrite the original version) 0N5Tahoma #{uTahoma #{uTahoma #{uTahoma@.'I want to CANCEL the Auto Save process 5Tahoma2PLabel1{(2Label2E(2Label3E $,cmSaveAs{$,cmdSaves{ , ;,cmdCanceloic{(2`Label4esEn  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmSaveChoice Caption = "Your Choice..." ClientHeiVBFrameN-PROJECTwmSPROJECTWCompObjcjght = 3510 ClientLeft = 45 ClientTop = 330 ClientWidth = 5715 StartUpPosition = 1 'CenterOwner TypeInfoVer = 10 End ThisDocumentThisDocumentmodAutoSavemodAutoSaveModCreateToolbarModCreateToolbarmodHelpmodHelpmodSpellCheckmodSpellCheckfrmSaveChoicefrmSaveChoiceID="{9D4D5485-4DB8-43A7-8CD6-C11EF1683F7F}" Document=ThisDocument/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Module=modAutoSave Module=ModCreateToolbar Module=modHelp Module=modSpellCheck BaseClass=frmSaveChoice Name="TemplateProject" HelpContextID="0" VersionCompatible32="393222000" CMG="F3F1F141A745A745A745A745" DPB="A5A7A71BEBCCECCCECCC" GC="575555E5B5256626662699" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=22, 22, 542, 462, modAutoSave=0, 0, 403, 356, ModCreateToolbar=132, 132, 671, 572, modHelp=154, 154, 693, 594, modSpellCheck=176, 176, 715, 616, frmSaveChoice=0, 0, 0, 0, C, 22, 22, 561, 462,   FMicrosoft Word Document MSWordDocWord.Document.89qObjectPool@@@@