ࡱ> q  :]bjbjt+t+ 4AAqX]^^^^$ PF,rl eOx"8"ZZZD ,O,O,O,O,O,O$PRPOPOp^^ZZh"ppp(^RZZD ^^^^Dppt?k"DZD7o <42Dp CARE AND SOCIAL SERVICES INSPECTORATE WALES Care Standards Act 2000 INSPECTION REPORT CARE HOMES FOR OLDER PEOPLE Glascoed149 Conwy Road Colwyn Bay LL29 7NADATE OF PUBLICATION 5th July 2007Date of inspection Example. - 31/12/05 (Date inspection Started)30/06/07Time of inspection (Time started on first day: 24 Hour clock)10:00 Working Document?YESLast Visit DateVisit Number~#52163#~Version 5.0XE0015 You may reproduce this report in its entirety. You may not reproduce it in part or in any abridged form and may only quote from it with the consent in writing of the National Assembly for Wales. CARE AND SOCIAL SERVICES INSPECTORATE WALES North West Wales Regional OfficeGovernment BuildingsDinerth RoadRhos on SeaColwyn BayLL28 4UL 01492 54258001492 542569 Home:GlascoedContact telephone number:01492 533737Registered provider:Margaret M Bowe Registered manager:Margaret M BoweNumber of places:10Category:Care Home - Older AdultsDates of this inspection episode from:12 March 2007to:30 June 2007 Dates of other relevant contact since last report:Date of previous report publication:Inspected by:Linda OwenLay assessor: GUIDELINES ON INSPECTION INTRODUCTION This report has been compiled following an inspection of the home undertaken by the Care and Social Services Inspectorate Wales (CSSIW) under the provisions of the Care Standards Act 2000 and associated Regulations. The primary focus of the report is to comment on the quality of life and quality of care experienced by service users. The report contains information on the process of inspection and records its outcomes. The report is divided into eight distinct parts reflecting the broad areas of the National Minimum Standards. An overall conclusion of the homes compliance with Care Homes (Wales) Regulations 2002 is recorded. CSSIWs inspectors are authorised to enter and inspect care homes at any time. At each inspection episode or period there are visit/s to the service in addition to a range of other activities such as discussion groups, self-assessment and the use of questionnaires. CSSIW tries to find the best way of capturing service users and their relatives/representatives experiences of using the service. At any other time throughout the year visits may also be made to the service to investigate complaints and in response to changes in the home. Inspection enables CSSIW to satisfy itself that continued registration is justified. It ensures compliance with: Care Standards Act 2000 and associated Regulations whilst taking into account the National Minimum Standards The care homes own statement of purpose Readers must be aware that the report is intended to reflect the findings of the inspector at the particular inspection episode. Readers should not conclude that the circumstances of the service will be the same at all times; sometimes services improve and conversely sometimes they deteriorate. The National Minimum Standards are also very detailed and some are technical in nature and the CSSIW does not look in depth at all aspects of these standards on each visit. The report clearly indicates the requirements that have been made by CSSIW. This includes those made by CSSIW since the last inspection report which have now been met, requirements which remain outstanding and any new requirements from this recent inspection. Where requirements are made, the provider may develop an action plan to show how they plan to make the necessary changes and you may wish to discuss this with them. The reader should note that requirements made in last years report which are not listed as outstanding have been appropriately complied with. If you have concerns about anything arising from the inspector's findings, you may wish to discuss these with CSSIW or with the registered person. The Care and Social Services Inspectorate Wales is required to make reports on registered facilities available to the public. The reports are public documents and will be available on the National Assembly web site:  HYPERLINK http://www.wales.gov.uk/csiw www.CSSIW.wales.gov.uk OVERALL VIEW OF THE CARE HOME Free text approximately one side A4. The registered person was asked to complete a self-assessment document within 28 days allowing the opportunity to give an objective view reflecting the quality of the service provided areas of achievement and those for development. The document was completed in detail and returned to the CSSIW within the timescales. Following the receipt of this information, the inspector developed an inspection plan that outlined the methods and focus of the inspection. The focus being the service users perspective of the service, staff recruitment and the quality assurance measures. A combination of inspection methodology was used including: Consideration of the core policies/procedures and other information provided with the self-assessment document. Case tracking the care of two of the service users. Wider discussions with the registered persons, service users and staff during the inspection visits. Discussions with three service users relations. Questionnaires to staff. (3 out of 5 staff response ) Questionnaires to visiting professionals. (2 out of 2 responses) Direct testing of the documentation held at the home. Through observations made during one planned announced visit to the Home, 01/05/07, and one unannounced visit, which took place on 05/06/07. Discussions took place with the registered persons. Five of the service users were spoken to on the days of the inspection in private. Relatives/representatives of three service users were involved in the inspection and gave their own views about the service provided at Glascoed; this included the relatives of the two service users who were case tracked. The views of two members of staff were also sought in private. Glascoed was homely, clean and comfortable and it was noticeable that service users who have made it their home were able to live a daily life as near to their previous lifestyle as possible. The atmosphere appeared relaxed and there was evidence of a comfortable and confident relationship between staff and service users. The decoration was maintained to a high standard and the gardens and flower tubs were of their usual high standard with seating should anyone wish to make use of them. There was evidence of a high standard of care provided to those living at Glascoed. Relatives and service users who were involved in this inspection spoke in a positive manner about the service. All the relatives spoke particularly highly of the respectful and thoughtful nature of the care that they observe on a daily basis. They also stated that they have the utmost confidence in the manager, Mrs Bowe, and the staff at the home. This was confirmed by observations and findings on the days of the inspection and by the response to the questionnaires issued. In accordance with the proportionate approach to the inspection of care homes, it is not possible nor is it expected to inspect all aspects of the service in depth during inspection. It remains the responsibility of the registered person to ensure that the home operates in accordance with the relevant laws and regulations. The Inspector would like to thank the service users, staff and management for their warm welcome. CHOICE OF HOME Inspectors findings: Start free text below The registered person has produced a concise document setting out the aims of the home and essential information in an ordered manner. An up to date copy of the Statement of Purpose was provided during the inspection period. This is available in written format or in disc format. The manager assured the inspector that any other format would be made available on request. Service users and their relatives and representatives confirmed, via questionnaires and verbally, that sufficient written information had been given to them on admission to enable them to make a decision in relation to having a trial stay at the home initially and then to make a choice about remaining there. They also confirmed that they had received a copy, in writing, of the complaint procedure and given an opportunity to read previous inspection reports. The manager confirmed that the home was well supported by other professionals including the social services department and primary health care team. A copy of each persons contract is kept in the service users room and signed where possible by the service user, the family or other representative. Requirements made since the last inspection report which have been met: #ZTREQM_COH# Use Add Requirement button to insert Regulation Numbers in the Regulation Number columnAction requiredWhen completedRegulation number Requirements which remain outstanding: #ZTREQO_COH# Use Add Requirement button to insert Regulation Numbers in the Regulation Number columnAction required (previous outstanding requirements)Original timescale for completionRegulation number New requirements from this inspection: #ZTREQN_COH# Use Add Requirement button to insert Regulation Numbers in the Regulation Number columnAction requiredTimescale for completionRegulation number Good practice recommendations: List good practice recommendations below  PLANNING FOR INDIVIDUAL NEEDS AND PREFERENCES Inspectors findings: Start free text below Service users and their representatives confirmed that they discuss their care plans regularly with staff and management, and where appropriate sign them to confirm agreement. Each service user has a separate sheet in their file and any concerns or complaints were noted down. The care plans of the three service users being case tracked were examined in detail and found to be in order. The record keeping has been improved and the care plans now give a more accurate picture of the actual care planning. This work is currently ongoing. Again this year the service users and their representatives were very clear that the manager and staff would do their utmost to accommodate their wishes and gave many examples of excellent practice. Requirements made since the last inspection report which have been met: #ZTREQM_PINP# Use Add Requirement button to insert Regulation Numbers in the Regulation Number columnAction requiredWhen completedRegulation number Requirements which remain outstanding: #ZTREQO_PINP# Use Add Requirement button to insert Regulation Numbers in the Regulation Number columnAction required (previous outstanding requirements)Original timescale for completionRegulation number New requirements from this inspection: #ZTREQN_PINP# Use Add Requirement button to insert Regulation Numbers in the Regulation Number columnAction requiredTimescale for completionRegulation number Good practice recommendations: List good practice recommendations below  QUALITY OF LIFE Inspectors findings: Start free text below Visitors and relatives of service users confirmed that they are always made very welcome by all the staff of the home. Service users said that they spend the day as they choose either in their own room or in the lounge. One service user preferred to spend her time in her room and both she and her daughter said staff made sure that she was not left out of any activities or outings. There are no restrictions on movement around the home, and any restrictions that would be considered only after a full review with written records. Service users can bring their pets into the home, with the agreement of the manager and there are family pets that the service users could interact with if they chose. Staff consulted during the inspection and questionnaires confirmed an understanding of confidentiality. Staff confirmed that this is covered during their induction. Requirements made since the last inspection report which have been met: #ZTREQM_QOL# Use Add Requirement button to insert Regulation Numbers in the Regulation Number columnAction requiredWhen completedRegulation number Requirements which remain outstanding: #ZTREQO_QOL# Use Add Requirement button to insert Regulation Numbers in the Regulation Number columnAction required (previous outstanding requirements)Original timescale for completionRegulation number New requirements from this inspection: #ZTREQN_QOL# Use Add Requirement button to insert Regulation Numbers in the Regulation Number columnAction requiredTimescale for completionRegulation number Good practice recommendations: List good practice recommendations below  QUALITY OF CARE AND TREATMENT Inspectors findings: Start free text below Questionnaire responses and further discussion with service users and their families confirmed that they feel they are treated with respect and consideration at all times. Staff confirmed that they always try to provide personal care with awareness of the service users dignity at all times. Consultations with service users and their representatives during the inspection revealed that the registered manager, Mrs Bowe is highly effective and prompt in contacting health care professionals. It was also felt that the support of service users following medical intervention/hospital stays was excellent. The community nurse who happened to be visiting on the day of the inspection also confirmed this. Service users have a choice to take their meals either by the dining table, on a tray in the lounge or their rooms. On the day of the inspection the meal was seen to be nutritious, plentiful and alternatives were available should the service user wish. Records are kept of the menu choices. The management of medication in the home was not inspected on this occasion. The manager submitted a signed list confirming checks in fire safety, electrical safety, gas installation and lift installations have all taken place.  Requirements made since the last inspection report which have been met: #ZTREQM_QCT# Use Add Requirement button to insert Regulation Numbers in the Regulation Number columnAction requiredWhen completedRegulation number Requirements which remain outstanding: #ZTREQO_QCT# Use Add Requirement button to insert Regulation Numbers in the Regulation Number columnAction required (previous outstanding requirements)Original timescale for completionRegulation number New requirements from this inspection: #ZTREQN_QCT# Use Add Requirement button to insert Regulation Numbers in the Regulation Number columnAction requiredTimescale for completionRegulation number Good practice recommendations: List good practice recommendations below  STAFFING Inspectors findings: Start free text below There have been some turnover of staff during the past year but the central core of staff has stayed the same. A training programme has been put into place to update knowledge. An improved training programme forms part of the aims of the Home for the next twelve months. On the day of the inspection there were two members of care staff on duty plus Mr. Cooke and Mrs. Bowe. Three of the staff team have achieved their NVQ level 2 this means that 50% of the care staff have the required qualification. The home has a written policy for recruitment of staff. This is clearly stated in the Statement of Purpose/Service users Guide. From consultations with staff and management it was clear that high standards of care are expected. The manager has implemented formal supervision of staff. Staff questionnaires confirmed that regular recorded supervision does take place. There are no volunteers working in the home. Requirements made since the last inspection report which have been met: #ZTREQM_STAFF# Use Add Requirement button to insert Regulation Numbers in the Regulation Number columnAction requiredWhen completedRegulation number Requirements which remain outstanding: #ZTREQO_STAFF# Use Add Requirement button to insert Regulation Numbers in the Regulation Number columnAction required (previous outstanding requirements)Original timescale for completionRegulation number New requirements from this inspection: #ZTREQN_STAFF# Use Add Requirement button to insert Regulation Numbers in the Regulation Number columnAction requiredTimescale for completionRegulation number Good practice recommendations: List good practice recommendations below  CONDUCT AND MANAGEMENT OF THE HOME Inspectors findings: Start free text below The manager has a lot of experience and knowledge of the client group she is involved with. Mrs. Bowe does not, at present, wish to gain the Registered Manager Award qualification, although she had had training in other areas. Efforts have been made to employ a manager and advertisements have originally been placed both locally and nationally. The provider informed the inspector that, unfortunately, these have so far proved to be unsuccessful. All service users and their representatives consulted on the day of the inspection expressed their appreciation for the service. The appointee officer of Conwy Social Services handles the finances of service users that are not handled personally or by their families. The quality assurance policy is stated clearly in the Statement of Purpose and service users/relatives/friends/visitors invited to contribute feedback. There is a written and verbal system of seeking feedback from service users and their representatives. Copies of questionnaires were available as evidence that all involved are regularly asked for comments and these are fed into the homes development programme so that the service is improved accordingly. Requirements made since the last inspection report which have been met: #ZTREQM_CMH# Use Add Requirement button to insert Regulation Numbers in the Regulation Number columnAction requiredWhen completedRegulation number Requirements which remain outstanding: #ZTREQO_CMH# Use Add Requirement button to insert Regulation Numbers in the Regulation Number columnAction required (previous outstanding requirements)Original timescale for completionRegulation number New requirements from this inspection: #ZTREQN_CMH# Use Add Requirement button to insert Regulation Numbers in the Regulation Number columnAction requiredTimescale for completionRegulation number Good practice recommendations: List good practice recommendations below  CONCERNS, COMPLAINTS AND PROTECTION Inspectors findings: Start free text below The office manager was advised to alter the complaint procedure in line with the new amendment to Regulation 23 effective 1st January 2007. This states that complaints dealt with locally must be resolved by the registered persons within 14 days and that the complainant must be informed of their right to contact the Inspectorate or the Placing Authority. The Statement of Purpose sets out the existing complaint policy and this is given to all service users when they first arrive at Glascoed to live on a trial basis. There is a complaints book to record any complaints or concerns that may have been made. Both staff and service users confirmed that they were aware of the policy and had access to it. Service users, their representatives and the professionals consulted all said that should they have any concerns or worries they are immediately sorted out. There have been no complaints during the last inspection year and there have been no incidents of POVA. Requirements made since the last inspection report which have been met: #ZTREQM_CCP# Use Add Requirement button to insert Regulation Numbers in the Regulation Number columnAction requiredWhen completedRegulation number Requirements which remain outstanding: #ZTREQO_CCP# Use Add Requirement button to insert Regulation Numbers in the Regulation Number columnAction required (previous outstanding requirements)Original timescale for completionRegulation number New requirements from this inspection: #ZTREQN_CCP# Use Add Requirement button to insert Regulation Numbers in the Regulation Number columnAction requiredTimescale for completionRegulation number Good practice recommendations: List good practice recommendations below   THE PHYSICAL ENVIRONMENT Inspectors findings: Start free text below The home is well maintained, comfortable and homely. The standard of cleanliness is very high and everyone spoken with confirmed this. The same high standard was also observed in the dcor and furnishing of the interior. The manager advised that when a room becomes vacant it be prioritised for redecoration with the involvement of the next person to occupy it. The downstairs area consists of reception rooms combined to form a dining area and lounge area. The garden is very attractive. A professional gardener maintains the gardens with particular attention given to the smell of flowers and plants for all residents to appreciate. Toilet facilities are adequate and convenient for residents and there is an assisted bath on the ground floor. Nine bedrooms have en-suite wash basin and toilet. The manager has obtained the services of relevant professionals such as Speech Therapist, Chiropodist or a Community Psychiatric Nurse where appropriate. Pressure area risk assessments had been carried out and appropriate equipment obtained (e.g. for at least two residents at risk from damage to pressure areas. Bed rails are not used in the home. Grab rails have been fitted for assisting mobility around the home and minimising risks. A call bell system is available and accessible in all rooms. Requirements made since the last inspection report which have been met: #ZTREQM_PE# Use Add Requirement button to insert Regulation Numbers in the Regulation Number columnAction requiredWhen completedRegulation number Requirements which remain outstanding: #ZTREQO_PE# Use Add Requirement button to insert Regulation Numbers in the Regulation Number columnAction required (previous outstanding requirements)Original timescale for completionRegulation number New requirements from this inspection: #ZTREQN_PE# Use Add Requirement button to insert Regulation Numbers in the Regulation Number columnAction requiredTimescale for completionRegulation number Good practice recommendations: List good practice recommendations below  Care Homes for Older People Report (XE0015) Version 5.1b February 2007 PAGE  PAGE 13 Page 15MT"#`aghj9>HIbcpqѻDzDz@mH 5mH mH 5>* 5hmH  5B*CJ56<B*CJ <B*CJ <B*CJ56<>*B*CJ56<>*B*CJ 6>*H* 56>*66>*5CJ5CJCJ$6CJ5CJ;12345MNOPQRSTf$$$ 9r $$12345MNOPQRSTf"#aghij|)*789?HIcpq ]"#aghiȔ,$!$$l40&s $$$$$$l4&~&$$l4&~&$$$$l4&~&ij|X$$l4&~&$$7$$l4\ +&d 3 $$$)*789?H840(8$$$Tl%j&$$$$l4&~&$$HIcpqݠݜݔX $"$$l704%4s"$$l704%4s$"$$l704%4s,0=>?rsth@"$$l704%4s$E$$l$\Fy>%F3i $a$$$+0=?rst q:?@AWXY\{!!!!!"!#!9!O!R!!"$%%&w&y&&&&&='?'O'r''':(;(<(x(5CJCJ <B*CJCJ5>*; <B*mH  5>*mH  B*hmH >*B*j5U j5UhmH 6mH 5mH 5F,0=>?rst A B l m lmlm:;<=YZ\{!*[ ?@./de !!!!!!!!"!#!P!Q!R!""   3 1  [ A B l m l$ & F1$ $$"$$l704%4j$lmlm:;<=YZ\{!$ $ $$ & F3$ 9r !*[ ?@./de !!!!!!$"$$l&~&$$$!!!"!#!P!Q!R!""$$/%0%%%%&x& 9r "$$l%& $$ 9r "$$l%&$$"$$/%0%%%%&x&y&&&&&&&&&&&&>'?'O's'''''''''';(<(L(e(w(x(y(z({(|(}(((((((((((())*)+)B*C*,,,\,,,,,,,,,,,,$-------------#.....   ^x&y&&&&&&&&&&a8$$lF%L  $8$$lF%L  $$$$$l4% & &&&>'?'O's'''''''''';(ݤ 9r 8$$lFr%+  $$$$l&~&$ 9r ;(<(L(e(w(x(y(z({(|(}(a[ 9r 8$$lF%L  $8$$lF%L  $$$$$l4% & x(}(((((((())(),,\,,,,,,,$------#........//-///D/E/Z/223t3v33333:4<4L4p4447595u5z555555 6 6"6::?;;;;;;<k<m<}<<<=h=j= 5<B*mH 5CJCJ <B*CJ <B*mH 5>*mH<B*5U}(((((((((((())*)+)B*C*, $$ 9r $ 9r "$$l%&$ 9r $$$l4%&$,,,\,,,,,,,,,,o8$$lF%L  $$$$$l4% &$ 9r "$$l%& ,,,$---------f8$$lFr%+  $$$$l&~&$ 9r 8$$lF%L  -----#......$$$$$l4% & 9r 8$$lFr%+  $ ........////////-/.///[/\/]///00t1u1222223u3v33333333333;4<4L4p44444444448595I5b5t5u5v5w5x5y5z555555555555555555555555      \.......////`X$ 9r $$$l4%& 9r 8$$lF%L  $8$$lF%L   /////-/.///[/\/]///00t1u1222 $$ 9r $ 9r "$$l%&$2223u3v333333333~~8$$lF%L  $$$$l&~&$ 9r "$$l%& 333;4<4L4p44444444448595ݤ 9r 8$$lFr%+  $$$$l&~&$ 9r 95I5b5t5u5v5w5x5y5z555555$ 9r $$$l4%&$ & F$ 9r $8$$lF%L  $$555555555555555555555#6$6%6$$ 9r  9r "$$l%&555#6$6%6K7L788::\:]:::::?;;;;;;;;;;;;<l<m<}<<<<<<<<<<=i=j=z=================>>>2>3>4>??0@1@AAAAAAABBBBBBBBBBBBB      \%6K7L788::\:]:::::?;;;;;;$$$$l&~& 9r "$$l%&$ $$ 9r ;;;;;;;<l<m<}<<<<$$$$l&~& 9r $8$$lF%L  <<<<<<<=i=j=z===$$$$l&~& 9r $8$$lFr%+  ============$ 9r $$$l4%&$ & F$ 9r $8$$lF%L  j=======>>>>1>AABBBBBBBOCQCaCCCCNDPDDDDDDDEEEE1EIIJJJJJJJJKLK\KKKKGLILLLLLLMMM+MMMPPCQQQQQQ RoRqRRRRSlSnSSSSH*5CJCJ <B*CJ <B*mH 5>* 5<B*mH 5W====>>>2>3>4>??0@1@AAAAA $$ 9r $$ 9r  9r "$$l%&AAABBBBBBBBBBB~~8$$lF%L  $$$$l&~&$ 9r "$$l%& BBBPCQCaCCCCCCCCCCCODPDݤ 9r 8$$lFr%+j  $$$$l&~&$ 9r BPCQCaCCCCCCCCCCCODPD`DyDDDDDDDDDDDDDDDDEEE2E3E4EFFHHIIIJJJJJJJJJJJJJKKLK\KKKKKKKKKKKHLILYLrLLLLLLLLLLLLLLLL     ZPD`DyDDDDDDDDDDDDD$ 9r $$$l4%&$ & F$ 9r $8$$lF%L  $$DDDDEEE2E3E4EFFHHIIIJJ"$$l%& $$ 9r $ 9r $ 9r "$$l%&JJJJJJJJJJJJKKLK\KKKK 9r $8$$lF%L  $$$$l&~&KKKKKKKKHLILYLrLL$$$$l&~& 9r $8$$lFrj%*  LLLLLLLLLLLL$ 9r $$$l4%&$ & F$ 9r $8$$lF%L  LLLLLLM,M-M.MNNOOOPPPCQ"$$l%& $$ 9r $$ 9r "$$l%&LLLM,M-M.MNNOOOPPPCQQQQQQQQQQQQ RpRqRRRRRRRRRRRSmSnS~SSSSSSSSSSSSSSSSTTTTGTHTITVVVVrWtWWXXXXX2Y3YpYqYrYY Z!Z1Z@ZRZSZTZ      ZCQQQQQQQQQQQQ RpRqRRRRR 9r 8$$lF%L  $$$$l&~&$RRRRRRRSmSnS~SSS$$$$l&~& 9r $8$$lFrj%*  SSSSSSSSSSSS$ 9r $$$l4%&$ & F$ 9r $8$$lF%L  SSSTTT/T1TFTqYrYYZ!ZSZWZXZZZZZ[O[{[[[\#\A\B\j\s\]]]]]]]]%]&](])]*]:]0JmH0J j0JUCJmH 5CJCJ <B*CJ <B*mH 55>* 5<B*-SSSTTTTGTHTITVVVVrWtWWXXXX $t$ 9r $$ 9r $$ 9r $ 9r $ 9r "$$l%&XX2Y3YpYqYrYY Z!Z1Z@ZRZ$$$$l&~& 9r "$$l%&$ $$ 9r $t$ 9r RZSZTZUZVZWZXZZZZZ[<[G[N[$$$$l&~& 9r $8$$lF%L  TZUZVZWZXZZZZZ[<[G[N[O[P[Q[R[S[T[{[[[[ \\\\ \!\"\#\k\l\m\n\o\p\q\r\s\]]]]]*]0]1]2]3]4]5]6]7]8]9]:]      8N[O[P[Q[R[S[T[{[[[[ \\$$$$l&~& 9r $8$$lFrj%*  \\\ \!\"\#\k\l\m\n\o\p\n"$$l%&$$$l4%&$ & F$ 9r $8$$lF%L  p\q\r\s\]]]]]*]0]1]2]3]4]5]6]7]8]9]:]$$$hh&`#$$ r %$ 0 000&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo& 0 0000&P +p,p-p.pP/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo# 0 000&P +p,p-p.pP/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 000&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 00&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 00&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 00&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 000&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 000&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 000&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 00&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 00&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 000&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 00&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 00&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 000&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 00&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 00&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 000&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 00&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 00&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 000&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 00&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 00&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 000&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 00&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 00&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 000&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 00&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 00&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 000&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 00&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 00&P +p,p-p.p/R . A!n"n#n$S%Zxhxhxhxhxhxhxhxhxooo 0 000&P +p,p-p.p/R . A!n"n#n$S%ZxhxhxhxhxhxhxhxhxoooDyK yK :http://www.wales.gov.uk/csiw( [B@B Normal$a$CJOJQJ_HmH sH tH :@: Heading 1$5@OJQJD@"D Heading 2$5OJQJkHmH sH uB2B Heading 3$OJQJkHmH sH u0@B0 Heading 4$5>*FRF Heading 5$ 88^8`64@b4 Heading 6 $$a$CJ$4@r4 Heading 7 $$a$CJ(4@4 Heading 8$ 56>*> > Heading 9 $5CJOJQJkH<A@< Default Paragraph Font, @, Footer  9r >)@> Page Number@B*CJOJQJkHTPT Body Text 2 $ 88^8`a$ OJQJkHbR"b Body Text Indent 2 $ 88^8`a$ OJQJkH828 Default Text mH sH uBBBB Body Text$a$56CJOJQJkH,@R, Header  9r FPbF Body Text 2 R^ OJQJkH@Q@r@ Body Text 3$a$5OJQJkH2"2 Caption xx5CJRCR Body Text Indent$ ^a$OJQJ00 TOC 1h5;OJQJ"" TOC 25** TOC 3 ^CJ** TOC 4 ^CJ** TOC 5 ^CJ** TOC 6 ^CJ** TOC 7 ^CJ** TOC 8 !^CJ** TOC 9 "^CJ0>20 Title#$a$ CJ(OJQJ6JB6 Subtitle$$a$ CJ OJQJ^SR^ Body Text Indent 3 %$ 0^`0a$OJQJ(U@a( Hyperlink>*B*8V@q8 FollowedHyperlink>*B* :YiZ#R$$+%+/+]+11%29:4:@A4AHI.IPPIP:Y!In +Lj$Bc;Yzx(j=S:]19CTciHl!!x&&;(}(,,-./23955%6;<==ABPDDJKLLCQRSSXRZN[\p\:]245678;<=>@ABDEFGIJKLMNPQRSUVWYZ[\]^`abdefhij".5BLTZ:]3:?HOX_g@W:YX!!Tt  ,b$6ҕJ퓳wx'lW@H 0(  0(  B S  ?:Y oServiceTitleoTownOrAddressQC11246QC11247oWorkingDocument oLastVisit iVisitNumberoVersionXE0015oRegNameoRegAdd1oRegAdd2oRegAdd3oRegAdd4oRegAdd5oRegTel1oRegTel2 oServiceName oTelephone oProvideroManageroMaxRegoRegisterCategoryoDateReg oVisitDate oInspector oLayAssessor _Toc15808651 _Toc15811187 _Toc15811452 _Toc15869280 _Toc15870079`j*9Iq;Y `j*9Iq;YmtqX5Y6Y;YZ ^ qXXX5Y6Y;Y Linda Owen`\\CBAY\workgroup_rw\CSIW\Adults\CBay Homes\Glascoed QA1450\Inspection\2007\XE0015.0000176466.DOT Linda Owen`\\CBAY\workgroup_rw\CSIW\Adults\CBay Homes\Glascoed QA1450\Inspection\2007\XE0015.0000176466.DOT Linda Owen`\\CBAY\workgroup_rw\CSIW\Adults\CBay Homes\Glascoed QA1450\Inspection\2007\XE0015.0000176466.DOT Linda Owen`\\CBAY\workgroup_rw\CSIW\Adults\CBay Homes\Glascoed QA1450\Inspection\2007\XE0015.0000176466.DOT Linda Owen6C:\My Documents\AutoRecovery save of XE0015.0000176466 Linda Owen6C:\My Documents\AutoRecovery save of XE0015.0000176466 Linda Owen6C:\My Documents\AutoRecovery save of XE0015.0000176466 Linda Owen6C:\My Documents\AutoRecovery save of XE0015.0000176466DurrantDd\\CBAY\Workgroup_RW\CSIW\Adults\CBay Homes\Glascoed QA1450\Inspection\2007\XE0015.0000176466.doc.DOTDurrantDOC:\WINNT\Profiles\DurrantD\LOCALS~1\Temp\AutoRecovery save of XE0015.00001764665j"N; JL6 ujk G)^l +:,<`kL[n-%].PG[; |WH^GMxG`!:,<O'~:,<N& Ĺd ʖ~ G4r% Z%G[('84E'G{(:,< (:,<a*ԫv9n^?5:8<;J< j#?(JB:,<[V{D[n-kG mG:,<XSJĹ?O 9P*vrlQ%SʖzUʖiVĹQZFZ~=x^Ĺ{`ʖ*eG\j:,<[k0fmVl%q G>wWd~ *^^`^CJOJQJo( Th^T`OJQJo(@^`CJOJQJo( ^`OJQJo(**^*`CJOJQJo(**^*`CJOJQJo( hh^h`OJQJo(**^*`CJOJQJo(**^*`CJOJQJo( Th^T`OJQJo(**^*`CJOJQJo( hh^h`OJQJo(0^`0o(0^`0o(.0^`0o(..88^8`o(... 88^8`o( .... `^``o( ..... `^``o( ...... ^`o(....... ^`o(........**^*`CJOJQJo(**^*`CJOJQJo(**^*`CJOJQJo(@xZ Z^Z`OJQJo(@xh ^`OJQJo(o@xh *^*`OJQJo(@xh ^`OJQJo(@xh ^`OJQJo(o@xh b^b`OJQJo(@xh  ^ `OJQJo(@xh 2 ^2 `OJQJo(o@xh  ^ `OJQJo(**^*`CJOJQJo(**^*`CJOJQJo( hh^h`OJQJo(**^*`CJOJQJo(**^*`CJOJQJo(**^*`CJOJQJo(**^*`CJOJQJo(**^*`CJOJQJo( Th^T`OJQJo(**^*`CJOJQJo(&**^*`789;<H*OJQJS*TXo(0^`0o(.0^`0o(.0^`0o(..88^8`o(... 88^8`o( .... `^``o( ..... `^``o( ...... ^`o(....... ^`o(........ hh^h`OJQJo(**^*`CJOJQJo(**^*`CJOJQJo( Th^T`OJQJo(hh^h`.**^*`CJOJQJo(@xZ Z^Z`OJQJo(@xh ^`OJQJo(o@xh *^*`OJQJo(@xh ^`OJQJo(@xh ^`OJQJo(o@xh b^b`OJQJo(@xh  ^ `OJQJo(@xh 2 ^2 `OJQJo(o@xh  ^ `OJQJo(hh^h`.?^`?o(?^`?o(.0^`0o(..88^8`o(... 88^8`o( .... `^``o( ..... `^``o( ...... ^`o(....... ^`o(........ Th^T`OJQJo(**^*`CJOJQJo(**^*`CJOJQJo(@xZ Z^Z`OJQJo(@xh ^`OJQJo(o@xh *^*`OJQJo(@xh ^`OJQJo(@xh ^`OJQJo(o@xh b^b`OJQJo(@xh  ^ `OJQJo(@xh 2 ^2 `OJQJo(o@xh  ^ `OJQJo(**^*`CJOJQJo(@xZ Z^Z`OJQJo(@xh ^`OJQJo(o@xh *^*`OJQJo(@xh ^`OJQJo(@xh ^`OJQJo(o@xh b^b`OJQJo(@xh  ^ `OJQJo(@xh 2 ^2 `OJQJo(o@xh  ^ `OJQJo(**^*`CJOJQJo(**^*`CJOJQJo(**^*`CJOJQJo(Th^T`CJOJQJo(0^`04.5hh^h`.Th^T`CJOJQJo( hh^h`OJQJo(5iV ^N& x^XSJ?OmVljMx%qZ%*e`~ 4E'jk \j%].v9{(mG`!+O'~BQZ (kG5:6 [(')j#?{`d zU%S; [kG>wa*rlQN9P|WH{DL<;Wd~J<4r%l[; ^`r@h )^)`OJQJo(5 V44V44V44V 44V 44V 44V 44V 44V 44V 44 qabarqabarKFedC1dC1dC1dC1d0(- Insert Row -RowModule1.InsertRow(- Delete Row - Delete RowModule1.DeleteRow(- Add Requirement -This RequirementModule1.insertThisRequirement( - Validate -validate Document Responses!Module1.validateDocumentResponses 1TemplateProject.Module1.validateDocumentResponsesTemplateProject.Module1.IDCheck(TemplateProject.ThisDocument.ProtectForm!TemplateProject.Module1.InsertRow:TemplateProject.ThisDocument.ToolsProtectUnprotectDocument!TemplateProject.Module1.DeleteRow-TemplateProject.Module1.insertThisRequirement%TemplateProject.Module1.ShowBookmarks$TemplateProject.Module1.TrackChanges+TemplateProject.Module1.StopTrackingChanges TEMPLATEPROJECT.MODULE1.IDCHECK!TEMPLATEPROJECT.MODULE1.DELETEROW!TEMPLATEPROJECT.MODULE1.INSERTROW$TEMPLATEPROJECT.MODULE1.TRACKCHANGES%TEMPLATEPROJECT.MODULE1.SHOWBOOKMARKS (TEMPLATEPROJECT.THISDOCUMENT.PROTECTFORM +TEMPLATEPROJECT.MODULE1.STOPTRACKINGCHANGES -TEMPLATEPROJECT.MODULE1.INSERTTHISREQUIREMENT 1TEMPLATEPROJECT.MODULE1.VALIDATEDOCUMENTRESPONSES :TEMPLATEPROJECT.THISDOCUMENT.TOOLSPROTECTUNPROTECTDOCUMENT@hhlJhh{:Y`@GzTimes New Roman5Symbol3& zArial?5 zCourier New;WingdingsEMonotype Sorts"A'$flF2F H%nY20dYI8%%Inspection Report Format Older Adults AdministratorDurrantDOh+'0 , @L h t  &Inspection Report Format Older Adultst nspAdministratorordmidmiXE0015.0000176466.docat DurrantD00117rMicrosoft Word 8.0o@%@g@\]v@Do H՜.+,D՜.+,h$ hp  National Assembly for Wales%Y1 &Inspection Report Format Older Adults Title0(RZ _PID_GUID _PID_HLINKSAN{2433D7A0-3449-4D02-BB2C-8095BE401EFE}AtZ http://www.wales.gov.uk/csiw  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Root Entry FRvv5֐o5Data 1TableoSWordDocument4SummaryInformation(DocumentSummaryInformation8Macros o7oVBA o7odirModule1 o__SRP_09__SRP_1 I  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHJKLMNOPQSTUVWXYZ[\]_`acdefghijklmnopqrstuvwxyz{|}~곀0* pHdTemplateProjectQH@  = | F J< 9stdole>stdoleP f%\*\G{00020430-C 0046}#2.0#0#C:\WINNT\System32\c2.tlb#OLE Autom`ation/MSFor ms>SFErms/z pF8EE5806D -11F9D4-AB54F1S`E46A8F3.TWD#Micr@osoft = ` Ob Library9Ph0P73036A5D- 596A-B-8672-7ACB4E6E3774P@vfiles\cavils.U\LOCALS~1\\VBE\E/EXg/.E .``M AOPfficO|fPic232DF8D04C-5BFA-101B-BDE5[AA~4232gram FB3 X\MSO9`7.DLLa (8.0Ta@$DAO>BDAOuA^M25E0‚ש3.5é*Common-Shared\\dao25356@@5/ p@bili4ty @)ctbl@>`\mU`.tnL/b]6B7E6392-850d/AFC0-42002A8DA7}P#1.3 osoCOMCTL32.OCX,WindowsControls 5/`(SP2)@"%ThisDoc@ument.2D Th`sDDcu`xen`Hբ1’р}"," J""+frmRequiresH2 faRUXq ies/2@ #- #(bodule1#U2$ou1 % !( b      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~$x%"%%%` $@(L(L<d<> LLLLL t $ p $+x `  Ni i @ i"`$+ `55^  $  $   $ 0 $$ P $ p $```h`&+` **i(8i*Xi,`$`.` +p` i0 i,``2+4`  55i6`8`:`<+>x` X  i@+8` IB `D`F`H`J N` x  *IV  L`  5iX+\H` 8++Ki^Xi`xibid`X@H @f @h `j`l+n` vIV +|`  ++i6`.`r`D`F`H+tx` ((ivix`z`|`~``+` ivi`| `)) `h$`h` 0`77 `$`h` `H $` `^ (`r+h ` +t!` !+"` "..iTi````$````##` (#bbiHi``B@D@X(@Jx  @&@0x Hh(( P@ x80px x0(8p@  pP(`z X&6Z" @hh @X @H @8 @( @ 8@ @  8h  `Xx>PzZ@ l @Ph @d @` @H P @L @H @D C@@O C@0 0 @, @`  @ @x @ @ @ @ @ J$$ 8(D`ME<  (08@HP *X "        B    ( 0/P h \3x    >KHP B  X`hpx    " 0PX p  0@X /p \  (08@H Phx <8@HPX  `hp  x   @       0 D@         @  0 8 @HP X`h px @  B       ( 0 @8 x   ",              ( 0 8  @ X ` p  F     > ( 40  h 8x     (     ( 0 @ :P    b 0 8  P ` h  p 0      Z*p    j x d  0b@  :  8 PH     xf(    ` J0       "( P  b` h p $x          0@HXBh  ` F  @h 8 < HX`pR> @PXh Rx* 08H JX$  J(x  L@H bP  L@H Ppb  T(     ( T8      4 !(! 0!@!H!X! :h!!!! !!!! T"X"`" h"" "" """" T#X#`#h#p# #### T#$ $($  0$(@$h$ x$$$$F$$%% % (% 0% @%  FP% %%D% % & & &  F(& p&x&&& && &&&& F&8'@'H' P'h' '''' B'(( ( (0(8(H( ZX((( ((( ( ())  ) )()  0)  @)LP)))<)) ) *N*X*`* B  h*p* x** * * * " ** * * B  * *++++ +(+0+ 8+H+ X+p+ x+N+ +R+P, X,h,p, x,,  ,b, 0-@-H- P-h- - - -- - -  (- .. (. D8.... . .  /&/@/P/ X/`/ h/p/N//R/ H0  &P0 x0 000  0 B0 1 1h 1 1n12 &2@2P2X2 &`22 22 22222 B  3 3 3 3 83 H3 X3h33  4 4 44 4 44h5p5x5 5 5 55P6 X6 h6x67 7 (787777 7 8 8 88 8 88h9 p9 99 :(:0: H: X: h:x:; ; ;0;; ; ;;<<<  < B  <<<<<<<<<<= = 0= P=`=  h=x== = (= = = = $> N0> > > > > D>? ?0?H?h?  ?? ? ?$$?$?$ @$@$@( @(@( @$@$@ @#$A$(A$ 8A$HA$A( A(A( B$B$B B$$0B$XB$ hB$xB$C( C( C( 0C$@C$HCPCXC pC C$$C$C$ C$C$hD( pD(D( D$D$D D$$D$D$ D$E$E( E(E( E$E$E E$$E$ F$ 0F$@F$F( F(F( F$G$GG G 8G HG$$XG$G$ G$G$0H( 8H(HH( XH$hH$pH xH$$H$H$ H$H$`I( hI(xI( I$I$I I$$I$I$ I$J$J( J(J( J$J$JJJ J K$$K$@K$ PK$`K$K( K(L( L$(L$0L 8L$$HL$pL$ L$L$ M( (M(8M( HM$XM$`M hM$$xM$M$ M$M$XN( `N(pN( N$N$NNNN NNNhNPOnhOO$O PP P0P 8PHP PP`PhPpP xP P PPPhP0QnHQQ$QQQ RRR(R 0R@RHR PRXR`R hRpR RR B  RRRRRRRRR BN R0HSxSSSSSSSSSSS  SSS ST (T@HT TTT@T U U 0U@UHUPUXU `U pUUUUUU UUU U  UUU VV  V(V0V 8V @VHVPV`V pVBxVV V BV VVW  uW (W;8W4PW W WW W W B  W W (WXX(X0X  8XHXF`XXX X B> XYYYY Y(Y0Y8Y@YHY  PY`YhY  pYY YYY4Y Z Z (Z @Z $HZ pZ.Z ZZPZH[ `[ h[p[x[[  [[[ [ [[>[\ \ B  \ T(\ @\ \\\\ \  \ ] ]]  ](]0]8]@]H]h]]]]  ] ] ]] ]^^^^ ^(^0^ P^`^h^ B  p^ x^____ _0_8_@_H_ ,`_____ _ _ _ __ B  _ 6` 8`@`H`P`h`p`x` `````````aaa a0a8a@a Hahapaxa,a aa aa ab b b (b8bPbXb `bhbbb bb b B  b bb Bb , cPchcpc ccc c B  cccc cd d@d@`dd dddd B  d Dd e D8e eeeeee B  e De .f D8fffffffffffg6gPgXg`ghgpg B  xggggg  g gg h  0h @hPh Xh `h ph xh h h h h h h h i (i 8i Xi `i pi xi i i i iii i B  i Dj 6Hj .j Djj k k (k0k8k@k B  HkPkXk`k xkkkk 6k Rk 0l &Pl xll l lll ll lm m @m "Xm m m m m m 4m(nHnhn8nn nnn n B  oooo o(o  0o @o @Po ooooo o o ppp p0pHphpxpppppp p ppppqq B  q Dq L`q $q Dq r(r @rPrpr rrrrrr " rrss ss0s@sHs V`s ss  "sst 0t V@t tt tt"t 4t &0u Xu 4xuu nu (v0v8v @vHvfPvvv " vvvv vvww " wHw L`w wwww xx"(x Px&`xJxx x 4x  y&8y`y xy&y y&y y&z (z  8z&@z6hzz zz rz 0{8{@{ H{ P{fX{{{ " {{{ { || |(|8|@|P|`|h| p| x|H| | " || || }}}} } (}H} P}JX}}} " }} }} }}}~~ ~0~ 8~J@~~~ B ~ ~~~  ~~~<(hp x  B   > ( 08 @ B  HPX`hpx  T T <@ @ T  0  8HP h  0 ؂   0P X ` p    ؃ B   <  `p. ؄  ( 0 8 2H   $ȅ  0 8.@ p   Ȇ І 0 (8 @P $X   ȇ Ї 2 0@ HX $`  Ȉ Ј.؈  0@ HX ` h 0x Љ ؉ $ 0@ HX `.h  Њ ؊   08 P` hx $ Ћ ؋   2@ Xh p $ Ȍ،    0@ Xh p $ ȍ؍  0 0@ Xh p   0Ў   $@ Xh p . Џ     00` x  $А     00` x  $Б     00` x  $В     20h   $ؓ    .( Xh   ,    (8 @ H 0X  ȕ $Е   (8 @.H x  Ȗ Ж ؖ 0 0@ HX $`  ȗ З ؗ 0 0@ HX $`  Ș И.ؘ  0@ HX `.h  Й ؙ , (8 P` hx . Ț   , HX p  , ؛  ( 0.8 hx   ȜМ xpZZZZZ(ZPZZxZ8$Dim CmdBarMenu As CommandBarComboBoxxZA'X= * P(RL X$T'N P(R**** Nok :B@V :A@thl0l X'& &$6 & &$' $Z@Document Code is invalid in Bookmark. Cannot insert requirement. " QA+ ErrorA@ set:'hh'slError in GetLangCode - ! " QA+ ErrorA@ sfpZZZZ(Z@ZXZpZZlP ` $! `%B@J  vB@x v!f#ZTREQ~  `!t! f `!t!'h f `%B@J v!f$'j j$'hhP f `%B@J  vB@x v!f$'p p$oo'hh f `%B@J  vB@x v!f$'l l$sertBe v$vA@ f `%B@J z P(xeld >No Requirement FormField was found in this cell. Please amend.  QA+ MessageA@ B@ vB@ '\sa'hhh f `%B@J  vB@x v!f$'p p$J p$| pA@ f `%B@J z P(xDate must be in form dd/mm/yy  QA+ MessageA@ '\sh'hh h jHQA@ f `%B@J z P(x)Se"An entry must be made in this cell  QA+ MessageA@  vB@Cell, '\s pHQA@ f `%B@J z P(xey U%Date must be entered in form dd/mm/yy  QA+ MessageA@ ey U vB@e'\sX lHQA@ f `%B@J z P(x - "An entry must be made in this cell  QA+ MessageA@  vB@~!'\skhhh'\slxError in ValidateRandRs - ! " QA+ ErrorA@ '\s(f l ~!!  'va'vhslError in FormFieldFound - ! " QA+ ErrorA@ 'vsxfp( Validates using a table in QAGen'ZhZZZZZZZ(Z@ZXZpZZZZZ !! !( !!Error : Cannot enable hidden text Error in QA MacroA@ h0h(  P(xdden8The first item returned should be the questionnaire codeSe ' J$X"If not, then out we gots z P(x.VisDocument ID Missing "QA Document ErrorA@   vB@3).Visu0h(!Locate the visit number - ~#nnn#~ ' cu z P(x tab !B@B  !(nVisit Number not Found "QA Document ErrorA@ 0).Visuhh`[This time, we get a bookmark, find out which cell its in and validate it against an ID code = 1)in row 1, col 1 of the same table. #id#$error z P(x cuuhOpen the validation dBase WordWorkspaceadmin "$ . COMPUTERNAME$&'bs.TabZZ(Z@ZXZpZQc:\CSIW inspector templates\qagen4.mdb~h:\qa_templates~P:\qaplus\~w:\qa_templates' cuScripting.FileSystemObject$. ts ~$' = F\@  ~$'  %'h   = FIThe QAGen database could not be located. Please contact an administrator.  QA ValidationA@ orm_Inuhx  'QA   %*.Aselect * from questionnaire_question where questionnaire_code = ' J' %,. !. z P(x7No validation records were found in QAGen for document J QA Document ErrorA@ uPhH'4Check that all questions are present in the document'D !._  "~   ' D Bookmark  " for  ",  " 'Dh` B@8H D$display errors z P(xDAt least one of the required bookmarks is missing from the document. .The errors will be displayed in a new document QA Document ErrorA@  B@The following bookmarks for J/ are missing from this report for Visit Number  .  v(fKContact Your super-user for guidance on how to re-insert missing bookmarks.   vB@ D vB@uX hP tu8 h0 YRead through the document, and check that the score is the correct type against the DBaseCFind the relevant question id and response from the response string  P!$!$!X B@J@ z P!vB@xDebug.Print bmark.name !$Q  ' ! ! $'Aselect * from questionnaire_question where questionnaire_code = ' J' and question_code = ' ' %,. !. z P(x Question ' does not exist on the validation table QA Document ErrorA@ u h  z P!v% B@J !'a@ v!f'h(   $$' $ z P(x !B@B  !(nThis response cannot be blank QA Document ErrorA@ uHh@ YIf a score is found that is not of correct type, stop reading records and go to bookmark, @jump to next field and expand selection to highlight whole cell. :Display a message box to show that score is of wrong type. 2Tell user the correct response type for this field "$ Yes/No/NullHQ $YES $NO $ z P(x !B@B  !(n.This response should be 'Yes' or 'No' or Blank QA Document ErrorA@ u h Yes/No/NAHQ $YES $NO $NA z P(x !B@B  !(n-This response should be 'Yes' or 'No' or 'NA' QA Document ErrorA@ u(h Yes/NoHQ $YES $NO z P(x !B@B  !(n%This response should be 'Yes' or 'No' QA Document ErrorA@ uPhHNumberHQ $Z $X z P(x !B@B  !(n&This response should be Numeric or 'X' QA Document ErrorA@ uhx Standard MetHQ $$Z z P(x0 !B@B  !(n(This response should be numeric 0-4 or 9 QA Document ErrorA@ uh U U  $9 .~  ~  z P(x0 !B@B  !(n(This response should be numeric 0-4 or 9 QA Document ErrorA@ uhStandard Met NullHQ $$Z U U  $9 .~  ~  z P(x !B@B  !(n/This response should be numeric 0-4, 9 or Blank QA Document ErrorA@ uxhpah $0 P!v(f0'h 0 $ z P(x !B@B  !(n/This response should be numeric 0-4, 9 or Blank QA Document ErrorA@ uhh`hXStandard ScoreHQ $1H2H3H4HXHN/AHQIt's ok - do nothingHQ z P(x !B@B  !(nScore must be entered QA Document ErrorA@  z vB@u@P8 z P(x  !B@B  !(n0This response should be numeric 1,2,3,4,X or N/A QA Document ErrorA@ uk PercentageHQ %$' $Z U Ud  z P(x  !B@B  !(n0This response should be a Percentage 0-100% or X QA Document ErrorA@ uha $X z P(x` !B@B  !(n0This response should be a Percentage 0-100% or X QA Document ErrorA@ uhhDateHQ :} .} $| z P(xp !B@B  !(n!This response is not a valid date QA Document ErrorA@ ua  z P(x !B@B  !(n!This response is not a valid date QA Document ErrorA@ u`hX $20020101 $ dd/mm/yy$$  z P(x !B@B  !(n!This response is not a valid date QA Document ErrorA@ uhhxap It's a time $ z P(x0 !B@B  !(n!This response is not a valid time QA Document ErrorA@ uhh 10 Char TextHQ $ z P(xh !B@B  !(nThis response cannot be blank QA Document ErrorA@ uh  z P(x !B@B  !(n5This response should be Text of 10 characters or less QA Document ErrorA@ u@h8k0h(  J$\ z P(xuh uh z P(x No bookmarked responses found "QA Document Validation ErrorA@ uXaPNo Errors were found QA Document ValidationA@ hulMajor error with Validation : ! "QA Validation ErrorA@ ulZ   $$'H 'f8ZX$'NlpZZZZ0ZPZhZZerror'T z vB@x v!|! AHCHQ!Cannot insert a Requirement here. Not a Requirement SectionA@ BHDHQ$Cannot insert a Recommendation here. Not a Recommendation SectionA@ k z P(xsh v!|%~!'h v!|%~!' h4You cannot insert a requirement into this table row. Requirement insertion errorA@  z P(xsh v!! P!$B@Selection.Expand (wdWord) vB@ z P(xs8h0  vB@x"tableNo = Selection.Tables.Creatorl v!%~.b !>get the first cell and look for an ID code, enclosed in #id# b%B@J  vB@x v!f#~ v!f#$'   $'  $ h  v!%~%B@J  vB@sha AHCHQ!Cannot insert a Requirement here. Not a Requirement SectionA@ BHDHQ$Cannot insert a Recommendation here. Not a Recommendation SectionA@ k h  v!%~%B@J  vB@sphha`Not in a table<Cant find the ID code on this table, so look in the next one AHCHQ<Cant insert this Requirement here - No section ID was found. Not a Requirement SectionA@ BHDHQ?Cant insert this Recommendation here - No section ID was found. Not a Recommendation SectionA@ k h  v!%~%B@J  vB@s h h  v!%~%B@J  vB@ok'TsP lH Error in Validation Routine : !A@ s f ' $ZLREQTHQC' $AHQ z P(x9This Inspection Requirement should not be in this section 5This section is for Last Inspection Requirements onlyA@ 'BHQ z P(x<This Inspection Recommendation should not be in this section 5This section is for Last Inspection Requirements onlyA@ 'DHQ z P(x<Last Inspection Recommendation should not be in this section 5This section is for Last Inspection Requirements onlyA@ 'k ZLRECOHQD' $AHQ z P(x9This Inspection Requirement should not be in this section 8This section is for Last Inspection Recommendations onlyA@ 'BHQ z P(x<This Inspection Recommendation should not be in this section 8This section is for Last Inspection Recommendations onlyA@ 'CHQ z P(x9Last Inspection Requirement should not be in this section 8This section is for Last Inspection Recommendations onlyA@ 'k(ZTREQTHQA' $BHQ z P(x<This Inspection Recommendation should not be in this section 5This section is for This Inspection Requirements onlyA@ 'CHQ z P(x9Last Inspection Requirement should not be in this section 5This section is for This Inspection Requirements onlyA@ 'DHQ z P(x<Last Inspection Recommendation should not be in this section 5This section is for This Inspection Requirements onlyA@ 'kZTRECOHQB' $AHQ z P(x9This Inspection Requirement should not be in this section 8This section is for This Inspection Recommendations onlyA@ 'CHQ z P(x9Last Inspection Requirement should not be in this section 8This section is for This Inspection Recommendations onlyA@ 'DHQ z P(x<Last Inspection Recommendation should not be in this section 8This section is for This Inspection Recommendations onlyA@ 'kpkhf`0ZZZZZ Z( error'  vB@x v!!A@t P!$B@Selection.Expand (wdWord) vB@A@ z P(xshx $!."Set Ffields = Selection.FormFields  B !$ !$'b ! $!%~B@J GThe first char of formfield name gives us the section code - A,B,C or D  vB@xh v!%~.b !>get the first cell and look for an ID code, enclosed in #id# b%B@J  vB@x v!f#~ v!f#$'   $' $ZLREQTHQ&C' $AHQb ! $!%~B@J  vB@x z P(x$9This Inspection Requirement should not be in this section 5This section is for Last Inspection Requirements onlyA@   B@  vB@x vB@h?s?BHQb ! $!%~B@J  vB@x z P(x$<This Inspection Recommendation should not be in this section 5This section is for Last Inspection Requirements onlyA@   B@  vB@x vB@h=s=DHQb ! $!%~B@J  vB@x z P(x$<Last Inspection Recommendation should not be in this section 5This section is for Last Inspection Requirements onlyA@   B@  vB@x vB@h<s<k<ZLRECOHQ&D' $AHQb ! $!%~B@J  vB@x z P(x$9This Inspection Requirement should not be in this section 8This section is for Last Inspection Recommendations onlyA@   B@  vB@x vB@hX;sP;BHQb ! $!%~B@J  vB@x z P(x$<This Inspection Recommendation should not be in this section 8This section is for Last Inspection Recommendations onlyA@   B@  vB@x vB@h :s:CHQb ! $!%~B@J  vB@x z P(x$9Last Inspection Requirement should not be in this section 8This section is for Last Inspection Recommendations onlyA@   B@  vB@x vB@h8s8k8ZTREQTHQ&A' $BHQb ! $!%~B@J  vB@x z P(x$<This Inspection Recommendation should not be in this section 5This section is for This Inspection Requirements onlyA@   B@  vB@x vB@h7s7CHQb ! $!%~B@J  vB@x z P(x$9Last Inspection Requirement should not be in this section 5This section is for This Inspection Requirements onlyA@   B@  vB@x vB@h`6sX6DHQb ! $!%~B@J  vB@x z P(x$<Last Inspection Recommendation should not be in this section 5This section is for This Inspection Requirements onlyA@   B@  vB@x vB@h05s(5k 5ZTRECOHQ&B' $AHQb ! $!%~B@J  vB@x z P(x$9This Inspection Requirement should not be in this section 8This section is for This Inspection Recommendations onlyA@   B@  vB@x vB@h3s3CHQb ! $!%~B@J  vB@x z P(x$9Last Inspection Requirement should not be in this section 8This section is for This Inspection Recommendations onlyA@   B@  vB@x vB@h2s2DHQb ! $!%~B@J  vB@x z P(x$<Last Inspection Recommendation should not be in this section 8This section is for This Inspection Recommendations onlyA@   B@  vB@x vB@hh1s`1kX1kP1aH1 z P(x AHCHQ<Cant insert this Requirement here - No section ID was found. Not a Requirement SectionA@ BHDHQ?Cant insert this Recommendation here - No section ID was found. Not a Recommendation SectionA@ k 0b ! $!%~B@J  vB@x  B@h/  vB@x  vB@h/s/h/a/Not in a table z P(x AHCHQ<Cant insert this Requirement here - No section ID was found. Not a Requirement SectionA@ BHDHQ?Cant insert this Recommendation here - No section ID was found. Not a Recommendation SectionA@ k@.b ! $!%~B@J  vB@x  B@h-  vB@x  vB@h-s-h-h---  $!%~B@Jok'f`-@ Z H-  $%.'s --'f- &ALooks for a reference to the visit number in the document JD 2002Z "Stored in a cell in format ~#nnn#~Z Z8 ZP Zh Z Z Z Z Z Z Z( ts,h,  P!$!  !!  !t!%6Sometimes tries to read from a cell that doesn't exist   %B@J  P!vB@x@+ P!v!f~#~  P!v!f#~~  P!v!f#$' $Z s*h*s*a*' sx*hp*sh*h`*hX*P*H*@* P!v!f#$' $Z 'a*'h) s)h)s))) !B@B  !(nA@Error in CheckVisitNumber - ! " QA+ ErrorA@ s8)f0)@ Gets the doc Code JD 2002Z Z  P!$!$! B@J z P!vB@x $X $$Z !'Xs`(hX(P(fH( String replace function!Replaces Find with replace in asdZ`  s'h'  }_  } '$  $$ "      } $'P' 'f@'x 1Extracts all the scores from the document JD 2002Z Z Z Z Z8 ZX Zx Z Z Z ts&h&  P!$!$!h& B@JlP& z P!vB@x $X $$Z !, 'h% $Q% z P!v% B@J !    $-Error,'aH% P!v!f'& &,$'&91Just in case a user puts a comma in a score field    $- & & $,'h$l$h$$ ,$'J sP$hH$s@$l8$A@Error Getting Scores - !  QA+ ErrorA@ s#f# MThis is like the token function, but allows you to specify the delimiter - JD9The position identifier 'n' is zero based - same as tokenl8#ZxZZ * ,}'. . ( *'a"'h"s"h" *' (  .  . $' ( '(  ,}'.P"  .  . $'a" 'h!a!'h!s!l!Split: !'B BA@ s!f!~Counts the number of delimeters in a string - used to extract an indefinite number of items from a delimeted list with Split()l Z@ZX' 0's a 2 0 0 2$ ,F  'gh h` 'sP lH Count_Delim: !'B BA@ s f p/isdate cant handle 31/6/02 - converts to 2/6/31ZZZ 6/$'4sh'4 6/$'< 6/$': 6/$'8 8$Z'4sh :$Z'4sh <$Z'4sh :U :U '4h :UHHHHH H HQ < < '4h(HH H HQ < < '4hHQ 8U$> < < '4ha < < '4hphhk`fXSet default return value'><If year is divisible with four then it's a leap year, unless%is divisible by 100 but not by 400... @ '> @d  @ F'>ghXhPfHxZZ  B$N$L'JPyyyy J$T$R'Dm J$T$R'Fd J$T$R'H DU 0000$ FU 00$ HU 00$'sXPP's@f88>==============================================================Converts Nulls to " ">============================================================== V$6'Na` V'NhPfH>=============================================================='Converts a date to standard date format>==============================================================Zx X$6 X'LsPhH X$'Ls(h  X./$'X X$'X X$Tdmmmyyyy-$\$'LsZ'LsfZZZZ010/11/12ddddd$'Hd H$R$'fm H$R$'jyyyy H$R$'h d$n 'dh f10HQ j11HQ ^ d ` d b'l12HQ ^ d b d `'lk 11HQ j10HQ ` d ^ d b'l12HQ ` d b d ^'lk12HQ j11HQ b d ` d ^'l10HQ b d ^ d `'lk k l'\fH>==============================================================/Checks if a string contains text or just spaces(If it just contains spaces, returns true>==============================================================p V$ V$6'nsp'nsfZZ Z8Ph 6$n'|shh`/isdate cant handle 31/6/02 - converts to 2/6/31Kisdate swaps any 2 digit year for the day, if the number of days is invalidIf dm.locale = "UK" ThenUse uk format date checker hereCheck if time is on end 6:}'. . 6 . $'6h( 6U $4'|a'|hElse9 'Standard isdate function here only in the system Now If IsDate(datestr) Then qadate = True Else qadate = False End IfEnd If |( Dont allow dates less than 1753 tp saidyyyy 6$T$R'Dm 6$T$R'Fd 6$T$R'H DU $t FU $t HU $t'r r$1753 '|hhfZZZ0ZHZ` v'~###9### check if already the right length (or more!) or blank### ~ x ~ v'ts8h0###### check if alphanumeric### v'| ~'  |$ ' 0 9  ' |$'|ah v'tsXhPH x ~ '  0 v'v  ' v'tfx>==============================================================EWorks like Left and Right string functions. Use postitive or negativenumbers to determine function.>==============================================================Z v$nFsg  v  Fsg v v  $'|  b v  Fsg v v  $'|h |'f ZPZpZ  v!%~.` !l v!|!:Cannot Insert a row here. Not within a Requirements table.  QA+ ErrorA@ u@ h8 Store current cell position v!|%~!'h v!|%~!' h :You cannot add a new row above the row currently selected.  QA+ ErrorA@ u` hX  `%B@J  vB@x v!f#ZTREQ~ .go back to the original cell and add a new row h  v!%~%B@J h `%t `!tB@ .Selection.Tables.item(1).Cell(row, col).SelectaH 7This table was not recognised as a Requirements section Cannot add row  QA+ ErrorA@ u h h u l :An Error has ocurred while trying to add the new table row  ! " QA+ ErrorA@ u@ l8 ZZZ  v!%~.` !lStore current cell position v!|!/Cannot delete. Not within a Requirements table.  QA+ ErrorA@ uHh@ v!|%~!'h v!|%~!' `%B@J  vB@x v!f#ZTREQ~ h h  v!%~%B@J-You cannot delete the row currently selected.  QA+ ErrorA@ u h .go back to the original cell and add a new row `!t! h  v!%~%B@J h `!t%~B@ `!t!b h v!%~%B@J vB@ h v!%~%B@J vB@ h v!%~%B@J vB@a h  v!%~%B@JThis row cannot be deleted  QA+ ErrorA@ uXhPaH7This table was not recognised as a Requirements section Cannot delete row  QA+ ErrorA@ uhhul9An Error has ocurred while trying to delete the table row  ! " QA+ ErrorA@ u8l00ZpZ  $! B@J  v!( '  vB@ !B@B  !(nlul"Error Occurred in ShowBookmarks - !  QA+ ErrorA@ l0 gerbi1 $B@6l $999n 0gerbi1 $B@.ul$Error while Setting Track Changes - !  QA+ ErrorA@ uPlH8gerbi1 $B@6l $999n 0gerbi1 $B@.ul$Error while Setting Track Changes - !  QA+ ErrorA@ uhl`(P !B@B  !(n B@4 $!* , 0gerbi1 $B@.h !Error While Protecting Document  QA+ ErrorA@ 'h'sxfph` $!* 0gerbi1 $B@6h0 !"Error While Un-Protecting Document  QA+ ErrorA@ 'th'tsfZ(Z@ZXZpZZZZN##############################################################################N### Make sure that you DO NOT have the code AND translang in the same language5### I.e. (Welsh Code) + (Translate into Welsh) = MESS9### I.e. (English Code) + (Translate into English) = MESSN############################################################################## T' ' '  ' $(  $'   $' ' *Now find and replace characters to convert )~'   $'  $' $nprobably a,b,c,A,B,C 'h|  '     $' 'aX|  $'   $' 'h|| 'f{ZhZ $$''Check value of 1st character. a Lower'ax{Upper'h`{ chHQConvert WELSH ch to ENGLISH d E UpperD'azd'hzhzdHQ WConvert ENGLISH d to WELSH ch UpperCH'aPzch'h8zaConvert WELSH d to ENGLISH e UpperE'aye'hyhyddHQConvert WELSH dd to ENGLISH f E UpperF'aPyf'h8yh0yeHQ WConvert ENGLISH e to WELSH d UpperD'axd'hxaConvert WELSH e to ENGLISH g UpperG'aPxg'h8xh0xfHQ WConvert ENGLISH f to WELSH dd UpperDD'awdd'hwaConvert WELSH f to ENGLISH h UpperH'aHwh'h0wh(wffHQConvert WELSH ff to ENGLISH i E UpperI'avi'hvhvgHQ WConvert ENGLISH g to WELSH e UpperE'a(ve'hvaConvert WELSH g to ENGLISH j UpperJ'auj'huhungHQConvert WELSH ng to ENGLISH k E UpperK'a(uk'huhuhHQ WConvert ENGLISH h to WELSH f UpperF'atf'htaConvert WELSH h to ENGLISH L UpperL'a(tl'hthtiHQ WConvert ENGLISH i to WELSH ff UpperFF'asff'hxsaConvert WELSH i to ENGLISH m UpperM'a sm'hshsjHQ WConvert ENGLISH j to WELSH g UpperG'arg'hxraConvert WELSH j to ENGLISH n UpperN'a rn'hrhrkHQConvert ENGLISH k to ENGLISH ng W UpperNG'aqng'hxqhpqlHQ WConvert ENGLISH l to WELSH h UpperH'aqh'hpaConvert WELSH l to ENGLISH o UpperO'apo'hxphppllHQConvert WELSH ll to ENGLISH p E UpperP'app'hohomHQ WConvert ENGLISH m to WELSH i UpperI'apoi'hXoaConvert WELSH m to ENGLISH q UpperQ'aoq'hnhnnHQ WConvert ENGLISH n to WELSH j UpperJ'apnj'hXnaConvert WELSH n to ENGLISH r UpperR'anr'hmhmoHQ WConvert ENGLISH o to WELSH l UpperL'apml'hXmaConvert WELSH o to ENGLISH s UpperS'ams'hlhlpHQ WConvert ENGLISH p to WELSH ll UpperLL'ahlll'hPlaConvert WELSH p to ENGLISH t UpperT'akt'hkhkphHQConvert WELSH ph to ENGLISH u E UpperU'ahku'hPkhHkqHQConvert ENGLISH q to WELSH m W UpperM'ajm'hjhjrHQ WConvert ENGLISH r to WELSH n UpperN'aHjn'h0jaConvert WELSH r to ENGLISH v UpperV'aiv'hihirhHQConvert WELSH rh to ENGLISH w E UpperW'aHiw'h0ih(isHQ WConvert ENGLISH s to WELSH o UpperO'aho'hhaConvert WELSH s to ENGLISH x UpperX'aHhx'h0hh(htHQ WConvert ENGLISH t to WELSH p UpperP'agp'hgaConvert WELSH t to ENGLISH y UpperY'aHgy'h0gh(gthHQConvert WELSH th to ENGLISH z E UpperZ'afz'hfhfuHQConvert ENGLISH u to WELSH ph W UpperPH'a(fph'hfhfvHQConvert ENGLISH v to WELSH r W UpperR'aer'hehxewHQConvert ENGLISH w to WELSH rh W UpperRH'aerh'hdhdxHQConvert ENGLISH x to WELSH s W UpperS'axds'h`dhXdyHQConvert ENGLISH y to WELSH t W UpperT'act'hchczHQConvert ENGLISH z to WELSH th W UpperTH'aXcth'h@ch8ck0cf(c cAttribute VB_Name = "Module1" Option Ex@plicit@Compare Tex( Dim e_desc As Sng*Error_list 2err_counInteger Global code 0FChtS ta|Bool(ean}q/La ngTypbReport 'qCmdBarMenuNmanboBox Sub insertThisRequire@ment() %hreuA Apa.ScreenUpdngFalse'ValiebyTable8ID(.<%TrFuIf "ok" TheT#Afrm6s.0Show AUn`load E nd If GLFPub FuncGetjb()\v@ GoTo std_oHq= Doc6Not IsNull( @'0<> ">= MidH, 2,< 1ZAmeric( )LR HMsg ")uE * isv s >kmark. Cann@/ rǗ.", vbCritical, "QA+> C#B= H 4iC'H2MmF`Exit 7 f3:#"Ai - " &.DrigT e ecR`vRs(Ques|Lۡ!!umciPtj#Cell rC rowdpirtyYA#_%RegulAStriAcom`GAon1tim *aljmyseSeleBOum`For Eac4h %I` veuZ.bsa$.'(1g.G.7 (wdWordl!nn@#a Ԡa#ZTREQ") > 0pRows.c> 2p== 3 G!ef@o # 0$3 H= RemoveNastixes(k"H(ypTrim(3) OP 7AmDo /tPV)N"7#yg10.$fj_ G3w 6hHwNA~P:mFieldF Yd0xwProtPa L9WindowStѬ= MaximizTguNo? v was f%wt c@l. "P`se 0ndInform2gԄMessage'%Collap5}yp, ɮo`88#""2:w:p M`M&:M*t7QAD ,(Or Lene8u  o8.ooo8o80 3o8 e8Q m2ube75 dd/mm/yy_6_6 _3?_3 O End If  rowdirty = TrueP^IfmThen%Select Case ""'+$Actio( $Prot x[O vZ PrivG5 Fpg@FieldF@sd(sel As f )Boolea`}On or GoTo  .&s.cx > 0 [gh $?cy21?pu?S4/ tL S0ub vxpum`Respons@es() 's using a tq QAGDim dbeab0wrsqRecordse D1wWorkspacDxwsbe"StritemqIntegerIDqrQ #(rUtr m Fm bma-k visЏ11ultA comp_nameOSS`3qve.View.ShowHiddenTPLl48# O?ONg7Y1.Number n ID codea+row 1,l 1 of the same table. #id#/If VVbyID(False) = "em ThenqAppltion.W!VowStH= wdMaximizI /'OpenUs1 dBas"SDwsLCre9Workspace4("d"a0dmindbUseJet)2@comp_n= Environ("COMPUTERNAME"  Dim fsoile As @StringmyctIntpeger ABooleaS@str delimsAf@gc:\CSIWspector templFs\qagen4.mdb~h:@_~Pplus\|~wDAY= ^MsgBox " 0 QAG U qab#Sluldbe loc`0d. P =sentaVctRia5.@SvbExclamai#dq@_Og" = %+ 1PLoop Until f"L =db`=ws.oDa @*,, ÁrpdbRecordset("selD * from quesAnaire_ere'" & qC"'E=rs.EOFa&8No r_ $! 0plN! a&, "` *rs @@Urstard xteatype@=ALd"cMoveNextab#!Trim(W ) <> ""\'diJay qsqqAqE)At 1Ct onee{requ@4dFs missX6Y .0Jc wi$I ed!.a new %$IOKOnl>yH-q0s.hAddSR@K.T`(Rfollow s&?-l reportʙbҚ$Hn.InsertADft@"CoXYour super-uguЕDncn h to re-P&6 '% ]O)UnProt VY)ReadErouTghpe,cGQ%s]pRt 6էQD','FAr vacUD id"Kp~o+qP"sF)`WEa0b In6s(6Act(ive(.).#E9On = Rxesuw@!-B.3w6GoTo%Z''Expp(wdC'Debug.P>e E;5e?Du o 3dqresponsestr = Fast_Replace(re, Chr(count), "") aNext " I@f Trim )"" Then +VApplication.WindowState2wdMax imize@On Error Resume f ctiveP.APane.Clos*Vie w.TypJPa geDMsgBox "This cannot be blank", vbO KOnlyQA Doc[ntb"+Exit Sub End IRf 'a score Ifd that#A%of rect t7, stop.adingds ago to bookmark,Pjumpn field expsel@x highlt whole cell.Disy a mess [xshow050wro@+0 T users or:f ftAl-K"SB. CaseDs!aA A "Yes/No/Nullr @m U <> "YES" A@[NOAU~ ?n%Ji9oE?p3qGu S q'4D' ?'NoB=_sr9@Stc 7Qua+FAE) E "EIA_FE _F%j?9_F _F) ' iIesI'NA'߼I;aiIIAGus&q${' _|_|te"I"" j" eו" _G QG"{"F"NumbeL#"(Not Is`ericj)i"XD3UgoD;""g"j"")"" "diX/Di"""`ndard MetߏDp"k")Ͼ3T * gj j )  n`@8 0-4!9CC y  CBCInt 0 Or > N4CQ9"aInStr(1,Pǁ".") >tr ԣjg jo(jI''7#'j'')?MsgBox "This response should be numeric 0-4 or 9", vbOKOnly, "QA DocDnt Error" Exit SubBEnd IfCa"Standard Met Null}@If IsN( Trim(str)) Then< I (CInt  < 0 Or  > 4) Ae3 <> "9"InStr8(1,C.") >,X Application.Windowte = wdMax imizeU> Onu Res@O NextW AcPtive.Pane.Clos View.Typ+PageAWM, 9Blank$ElHϓ= ""ISele@iTr"0eA  a0"xe_]D__]]ijW_^J^cL_ƺ_eb;AZ`? ,ScoretY^ "h(# 1 T"234XN/A|g 'It's ok - do nothing ?^(?^Wj+/M// musta+ered_m- gSCollap(wdCell)? )1B&_m_/}ate__o}{_+__mN1,2,3,4,X~;ooAN## q_FPerc )@?@xFast_Replace٩%J")Rpxװ(FpseA100+---n--)-+--m --a "%-iNN-/|L$U.`X""""""+""m"""E"ճKOnly, "QA Document Erro r" Ex@it SubEnd If>61Case "DateIf InStr(responsestr:") = 0 A.ThenS.Not QA@0) Application.Wind0owStcKwdMaximiz&eB&On Res NextActive4.Pane.Clos6Vie@w.Type.PageAMsgBox "ThiTs f n@Sa valid du, vbO?HEl:xLenv<> 8 x?y-/z!7{>Ao[BBB"yD@UD "2002010@1" Or >Format(Nowdd/mm/yy")L L%*L)gLLLL"LL['It's a tim`XIsR J'l\'o'l]:#/'&$o&]n"_n/&# 10 Char T@o%Trim+Q= ""s$$$*Kg O$j$$)##canbe blankO#?#y!/ 9.> @"? g:j)sho0uld !6 o fc 7acters or less/ / i/ y / 1SelechyZ@!VaRandRs( qCodeQFaP|@ @  vProtp p` J   fuQ15 No bookm arkedfs foundCrit l Ixbs werebOKOnly, "QA Document Validation" End If,Dxit Sub&std_error:"MsgBox "@Major 2 with : " & Err.Descripq, vbCritpical+or FuncE RemoveNasties(responsestr As String) YDim c ouInteger Fd= 0 To 31  1= F<_Replace>, Chr("2)n") Next c = 2~{  IDChec k(/lhret x =debyID(False  Vc Table rridUC*!fFiel RmFfsFsdCellt id@y{rowLonrgco BNoK @f"BDSeleB.Expa(w0FVIf 5s.ȗ8hen Case [GA"A"C Cannot Bi@rt aquireb~here.vGN`ScL BDcom`# oT-"Appl@a.WindowState4wdMaximizeEiA( aH=n7item(1).RowIndex AKwColumn Ca <= 2 T Ae9You c9re9into this X ;RserX)+) )*`‰KW`)A`kve.U< @/''kpWordpaGDGt@ow ʄ'H%CreatoDOn Go`scSB ,SzNumbeNr3po('ghe first c1ZNlook 2fsanh`ude, enclosedH #id\#CB .AP(1, P4,l|).[WGlapdiol@-|rt2"@?Q 9-AEЃk#k&k lJllmnce_l _Ulttl63{_ l( /qн.O seO   'inp=Rt Cnd jeB onk, so bDtFnp< hZ# O&b &cUh{ƑsRrቀ=s#CQ was@Nund)'?'5 r tRe' U((o( !$''n'H'o'Fc,=00= "okd 0wptp,4 Routine𱘳 <q8?ep,RBBo?olean Check_IDCode = False Select Case U(idStr) X"ZLREQT" 'C',4prridn@~ A"6Application.WindowSt$atwdMaximiz8MsgBox "This InspL Requirement should not be in ts" & vbCrLf._P, 2fo@r Last6s` onlyu T\rug7Bc4om@Id`Js ݿJ JI~JD?J{x?J0DJExnd C9&xCOxDx#xx!xxx_SI<y#y%x%%ƝS?ȣ7%`"?y!"C?y_I0a7y_c!%%%?y"*yTA?y1y* xxyx1<lf/y/y5S yV<O<)E )) )s__`_k xISx____$on$$$Kx"Z0/3/3/3/3Py/3F;/3/3/3OH~OPw!/3/3߶#3D/3O?3?3?3o?3?3?3?3?353*?3ofiofO?3?3;?3?3??3O?3?3?3?3?ofa E35CODr  Case "0A" `ActiveDocument.Bookmarks.item("b" & fField.name).S`elect#+ion.Expand (wdWord)$pplicat@WindowState = FMaximize#*MsgBox "This` Inspf0 Require should not be ihn tsvbCrLf_#: 6 "wwO'$cwAwaywi ewfwwwonwH ww :GwhwefCfffn?3no?3?nr+f?3nnO?3n?3n??3?3O?3O_?3?3?ni???3????3?3??3?3?3?353??? ?o3o3o3o3o3o3Oo3o3_o3o3?o3a !`Els+++Gc ã s?A", "s!50CantseHrt baRechere - No ID was found.p`vbOKO*Na+S2  B Es  Z;? ? > _dation Secp" hEndl|AxveDocument.Bookmarks.item("b" & fField.name).Seb1.Expa(wdWord).If del Then eDFte|I>f QT)UExit Fun\9ElsE'Not in a tablApplicB.WindowState = lMaximiz; Case rridY"A", "CTxMsgBox an-sert this Re quire here - No s ID was found.vbOKOnly@?a*B*D3*com)*J+@/o._|_|2yxxZac__ UsXrMNext3On Errojr@Rs [6FCod,ValiLeby_= "okVa e get(s As String)AIntegerDim fA /on(#~$ϧ%B0'sPnta" sAGeric()?0!Oz1.bo)/ -1(% // oA o^/# x1WP= &, "/S13&&%_ 3;6o't B_ORuc\.Pane.Clo*View.Typ3PageS 3Ý- q.Descrip, vbPCrit lKQA+㡤N' End Function ` GetDocCode() As String 'ps the doc F JD 2002>Dim bmarksrBook 8 6{YFor Each> In uments(A@pplica.Ave.napme). hNF.Select~ I .Expa(wdCell)If Left(i, 1) = "X" ANot IsNQric(Mid2) The:#)_7pExit IfNexi Fast_Replace(asd, fi/Fv, r }-F fF,'s BFAwithF i\n @.AiALo@X'U" O~rC&OPEIDo While+=:ti@^InK - 12C#B}, i) &3& RightLen)(7AU@- Loopg%t!Scor 'ExtractsP allBss fromE#a8fFiel"JvmFf sftab@4Oc`oCapAcountI@nteger)lrowtempstra@F PUnProt0This2False,y_Q$ onA.`On Err@Res9> GcmfGoTo std_eAY,G@m","E]}'@7Q"(W"-(Unit:=C, R:=1)N@5.ber <> 0 F5",n#d& d"-bA,"g a EO`U+^= =T?d5Wzdd, P@") 'JuHst @^ca2a uspuH0mmaa 2I]`C/ Oe VOZ!Y"-q"V QX2rnot22'7q= st(0,B-_$_!EE E ߹O>:C3MsgBox V"# t`P " s`l.Descrip, vbExclam◀ xQA+H'ߥ fByVal nhZ, 3_@Za delfO[ is likeotoken Ŋ, butarows you t`QpecifyӃrit,-r'p posi( idinr 'n'zero b/dsЎp`S%%AsR]npr `l"qVarian,pD, (C(a=I`nJ .7oG2"JI,Ro)=4=q (n 0U <(pV6A, p + 1T#)q~nxE!Wxendp#q"}g `fy 0 p sM[=(ByRef@>=MF~= 0$liвc$+z ElseFor pos = 1 To Len(lis`tstr)If Mid8,h, 1)pdelim Then `count$+ 1Next @End If C50_A=>$xit Function std_error:Re9sco"GD: " & Err.DescripAMsgBox  "E4N;  IsUKDate(d As St ring)BooleaU'is cahandle 31/6 /02 -snverts to Z2 3GDYear/ Month Day Z, "/") <> 2lx7SFaʈLH pǃGTruD%= split(0, DN C4n1BC2;NothNumerhic( )86f KB-/M? (CInt(Z>}Ap<2?Select Case '";3, 5,` 7, 8A1^2g E<Or A>`fL8USB4, 6, 9>0dA IsLeapAT2UM/ a29z#!bJ~!a8eE `QEsJC !űPublicĠ*Y§@^eger 'Set default return valW'4 '"yis divisib@wifour tit'sH a p , unless$Jby 100 but not 400...c Mod 4?mR6 = Y(00'8AY_ 0r_(aQ2r an2kD, mldbCbzunblankCOni@GosyPart("y",`HteVUa!(B)mmddmat(Ch(y)r0 {& m~duC ={ `R4""??]7VD'='Co!đNull""  P/Is(aW 0JQa1/s 0d_)s7+? 7a•stardfor$oC 4etws) |!""b(EϾ㗣mOA / I Fast_Replace(s6.:!!Left19_t8Q 3Bs7G,et"!?"mm!B5E"-"U?< sde1f9#(ϵ8pv9df'0VysZPH,1\d^y, a#oam fmt' R510/11/12d"a`Right([O2=  (isesf(f`J&Q S"10N!1 w'51= P & sf & m@ yf Case "12"hfmt = d bEnd Select.1 \& amonth Jx:0 Lrrdr .(ry wGLm9 =GetDateFpormaA)C#  Functi@on  isblank(a) As In tegerC '=:Checks if a st@ring c@ains text or just spacesD If itF , returArue * O n Err@#GoToE_erDCJ!TrimK= "" Or Is0Null@#Exg@.Z D: L6QA<(d=@*7S"+b8BooleaU$K",'Uuk na^ herh'Ba"ime L on enD "2p%In`9E;, p":")cp > 4lAA@= Leftp&4H,D IsUKJCH)M99TfoEj; >ы<'a'St =Xard@#(f (%ly in 6system 8Now4#IsO c)" qab = GbJc%a ' D allowLtes les+- 1753 `tp sa5'y Part(""y", Value)hmRmtrdd palc090(B"y), 4)xIm@2M>dB *pd<0 ]5&?$> 5$,_nVnT p_vp@pnp.h, p_lenHNT Qh1[(uwg3uch1couvrwR < n(" r'###3q cFDal readyR1right%ngth (Nmore!~)vB~q`c>=Tl0E" [e s p.umeri~cYc1E= !WhiW> 0A 0P $$(R, 11  "0" A9u<[9k&- d "= SlhiT-B =q1?-*Wb_a 7(-oC"fr{ &t$=r3  Hw32s*2 z ?='Wor likel|d R-nas. wpos@titive.nxega~determine .D CBb"> JmS"ciO4p_3< I8P@-LeA * -1fOq,E,p+@$B3-'솛<Ro 2F_S:-=@;5^(/O^Public Subsp0Row( 1myTabC,trxPLongGxcolGRdesPL N˓Sxet 5BP.Rs.i(I0.Nqumber = 0 Then  On Error GoTo `std_e8If Selection.Cells.countMsgBox "Cannot Insert a row here. NwithinRequirements table.", vbInformat, "Q4A+"lEx@it SubE`nd If 'Store cu$rr6 cd posi1S=xitem(1).RowIndexqcol Column 2< 3 YouD caddnewabove0 thefly$ sedExclaJmyTBgA(1, @CC=B!GAExpab(wdWord)>`InStrA Text@y#ZTREQ") >F'go back to@originalrJGH1s.h(d, r). G>s.Ac(;I)8*Else ThiD was recognise s s" & @vbCrLf"r$@"m_E;mnF:#A hoYd whil[rying<a]_^J.Descripǃzcal@J A" PubHlic Dht e<(:Dim = A/!`(LongA@CResume N^#Setf inUch!N߹Թߠ= 'Xe:Kd(??ab7EiNaa1?(4*~忠@3A( ?t 1(h_g_g_gorL{1R{1O_O_q [>w0`Obcf0)Iletl]^ s oyPSN2rMb3x3 5r uAB@E2Ry@ Ěbe 2duop1MN #r va &F>` O O q 0  } oo0oJ q oShowBookmarksb!gna@pS\trsSFEach In bAveDP.?ΪW-Font.@lor0`wdRed=G#Wh1ypeq n(xHd W@indow.Pane.ClojView.TR PageG / ho%!9`OcJ -v ao#b# F ## TrChange# CV UnprotP "gerb 0 kyWbyey"v$3@& W?B> A_gCUn+ CC 785K"5g5Un-!_6A6&66 6 nsRegCodes(regc{St gaansL ʇ!7Dim _iFnLoutvin_lengts Inte ichar_remto_conv nverted_a !I_bуet_posAJ '#G Make sure that you DO NOT (havAe2 AND tr@lA thpame u@SHI.e. (Welsh A!) + (2 late o B)(MESSEngliC Su'= +ju%= Len(Ԋ$=+SC>0\s;%X$= "$DLeft5, 11!"("Jde_2& 6= Righx - <53!3'Now f0z alreplac&acters to3.3=<7(1,r)"% : i>cNo ~ _mxap(L\isb 3k A)bably a,b,c,A,B,C+ a9iC !K[Od. 97-rMpLowejUppgSel>CQ S"B"ch"p `zT WELSH !FENG|LI1 TL"ET If char_case = "Upper" Then 0acter_HmapbD"PE(lse$|d>nd If @E C" =TLW 'Convert ENGLISH d to WdELchQCH;choinu?oE{7e%7{d"N<< ;E?DF;Df:DS<ֿeǿd_߁߁߁߁!MAB݅_gG=ĤNg=s-E=fh==od=C==_?=fnfJi+\A_~2  I, i w"3/~g/p4p p|o/H /j J PjSng/n*k+ /0!{c K &kD~h/\1 q6 ///H /L/ L&lmR OJiNO޶  F7=fH m M&mR}mjoβ character_map = "G" pElseTJ|g|nd If R 'Convert WELSH j to ENGLI npIf Ao_caseUpper" The,N;n%n xbCX"k"xrkM ygywTLtWr{n&|DlLTۍѿ6Eo?77O;7oa Es=l`#8lJpKfAE_ΕP"np"""m_m݇_iCI_}ei_B_qQ<n=qs=M=ng=j!!!J QIa j~?NH r׏~~! NR P r H"mRu5o~l' L ]z2ߠB{#^ us 6 S EKs` :5p_,//3 L Plo\2 t T &th>ph%u+ ?$ c U &uq5q.mͶ _M &M? 3ލc @"r_@/7 +| Else  (character_map = "n"En0d If . 'Convert WELSH r to ENGLIEvIf o_casekUpper" Then,V'v%n xCX"rh"xh ywbwTLsVEq?W;w:DsLu[h!䠫 &A?9PH" "ph {"v vrp!0cuR 5r_w w" c" 6_"R^bx xs"" sS&O͎ ? y yt5T&#z z22   T2 T2YS0elec Fu nctio K)^rU~~~~~~~~~~ ~~~~~~~~G 6g5>PGA!w  a q  )  Aa $ 1 q 1 Q !Aay !9Yy 1a1  y TemplateProject ThisDocumentfrmRequirementsModule1F=C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.dllVBA I qP F4C:\Program Files\Microsoft Office\Office\MSWORD8.OLBWord a `0FC:\WINNT\System32\stdole2.tlbstdoleDAO qpmTFC:\WINNT\System32\MSForms.TWDMSForms aA.E .`M ]jsjY CrzNn7t:C:\WINNT\Profiles\cavils.000\LOCALS~1\Temp\VBE\MSForms.EXD iAL-[DR 2C:\Program Files\Microsoft Office\Office\MSO97.DLLOffice i^FValidateRandRsFormFieldFound>C:\Program Files\Common Files\Microsoft Shared\DAO\dao2535.tlb q c~k B*C:\WINNT\system32\COMCTL32.OCX ComctlLib  Y k FəܤNHZ3 F*fvO.[_^ FDocument Document_New Document_Open ProtectFormToolsProtectUnprotectDocument @insertThisRequirement GetLangCodeu FvalidateDocumentResponses RemoveNastiesIDCheckValidatebyTableID Check_IDCode ValidatebyID getBookmarkCheckVisitNumber GetDocCode Fast_ReplaceGetScoresplit Count_delimIsUKDate IsLeapYearstrdateunblankstd_Date GetDateFormatisblankQADatealc090Shift InsertRow DeleteRow ShowBookmarks TrackChangesStopTrackingChangesProtectThisDocUnProtectThisDoc TransRegCodes character_map (((   VBA332.DLL  S ( QA+ Error Error getting language code FA@ FA  0 P  x h  1 " @Document Code is invalid in Bookmark. Cannot insert requirement.   fĤIx8< Error in GetLangCode - p Fl Fh F  i  XrU~~{   q  QuestCode  sel responsestrrrididStrdelsnameasdfindreplacen the_stringdelimliststrdatestrYradateasdfmfyfsfp_varp_lenp_shiftregcode TransLangMyCharTLrU ( )i  ! I 4q a ``1?0    w3'',:L__SRP_2R__SRP_3 ^__SRP_4b~ __SRP_5N<<:lN\\ 6\<,1','dFP`" $ , ` 0L 8QH[Dp)lh`L5P@c p L;,P hl" $  l <h )lh5P(lphhM @ lh=plpllM0 @P  ll=pP:]1  ')lh6P\Tdp >d1x p@wh8 T xD@tp8 dlh`LHP 0  0 x  0  0   0 p  0   0 x  0 8  0   0   0 H  0   0   0 x  0   0   0 0  0   0   0 (  0 h  0   0         !"#9rU ($`$`(`0,`=$!`(I`0$q`(`0,` 00( `!#( `10$9 `$a `0 ` IYq000$`0` ,`00()`0(Q`&(y`/(`)/(`908 `IYiy0000(1`)/(Y`0,`0&,`0&$`$`$!`$I`$q`$ `$!`,"`00,#` !00 pThisDocument_VBA_PROJECTd!frmRequirements CPROJECT1<əܤNHZ3 F*fvO.[_^x%J#*fvO.[_^əܤNHZ34$[LS[6" L<(<,<0<4<8<<<N0{00020906-0000-0000-C000-000000000046}F"*\Rffff*d4613c69e"*\Rffff*e4613c69e*\R0*#1*\R0*#11*\R1*#17b*\R1*#c1H@` `k  (`  8` '( $@x $ $ $(" $&@l @\ @L @< @, @ @ @0ME8 "  "  83  1Xhp x   " D  B 4P @  D(.8h p   "  D * <0 @p @  DP.`   lp@ Error getting language code " QA+ ErrorA@  $B@B46uaX &xhplh= ************************************************************ ProtectForm Macro.< Toggles protection for the active document when the Protect - Form button on the forms toolbar is clicked.9 Retains Form Field Values when the document is protected (NoReset:=True)= ************************************************************ $!* , 0n2gerbi14 $B@.aPrompt User for Password $B@6hXlP= ************************************************************$ ToolsProtectUnprotectDocument Macrof5 Sets protection for the active document when Protect9 Document or Unprotect Document is clicked on Tools menu.9 Retains Form Field Values when the document is protected (NoReset:=True)= ************************************************************ $!* , 0n2gerbi14 $B@.ahPrompt User for Password $B@6h0l( Attribute VB_Name = "ThisDocument" Bas0{00020P906-0C$0046} |CreatablFalse ^PredeclaIdTru "@ExposeTemplateD0eriv$eCustomiz24 P Sub _New()End POpen If Not GetLangCode Then MsgBox "Error getting luage c", vbCritical, "QA+ #ActvV.Cl {Exit]E Debug.@>nt Report*)C>IfLAIProtectForm1>' *8'  Macro.Toggles pCion fAPthe aB d w\ D+ t@ms toolbar is c@lickedRetains Field Va|lu!F@&edD(NoReset:=@@_I :ETypwdNo :=wdAllowOnlyaBs, _cGj, Password:="gerXbi1TM'mpt Userb6E ,Un(RP PT6sEbRU b' Z U$SetTnHDE Z&S W" uUU ' U&+U~ U${ŽUCU `pU U 4U Ta^  *\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.dll#Visual Basic For Applications*\G{00020905-0000-0000-C000-000000000046}#8.0#409#C:\Program Files\Microsoft Office\Office\MSWORD8.OLB#Microsoft Word 8.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation*\G{8EE5806D-11F9-11D4-AB54-0001020E46A8}#2.0#0#C:\WINNT\System32\MSForms.TWD#Microsoft Forms 2.0 Object Library*\G{73036A5D-596A-430B-8672-7ACB4E6E3774}#2.0#0#C:\WINNT\Profiles\cavils.000\LOCALS~1\Temp\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Library.E .`M *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#C:\Program Files\Microsoft Office\Office\MSO97.DLL#Microsoft Office 8.0 Object Library4*\G{00025E04-0000-0000-C000-000000000046}#3.5#0#C:\Program Files\Common Files\Microsoft Shared\DAO\dao2535.tlb#Microsoft DAO 2.5/3.5 Compatibility Library*\G{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0#C:\WINNT\system32\COMCTL32.OCX#Microsoft Windows Common Controls 5.0 (SP2) F%ThisDocument d4613c69e*DJ0frmRequirements b4613c69e*D;- 2Module1 e4613c69e*D@0%P0_ZG|Ӷtjk>O7Ɣ~ J;KT9"d0[]$Xname Wordk VBAWin16~Win32Mac TemplateProjectEstdole`MSFormsCOfficeuDAO ComctlLibn ThisDocument< _Evaluate Document_New;E Document_Open (GetLangCodeMsgBoxR vbCritical+}ActiveDocument\ (ReportCode ProtectForm'ProtectionTypewdNoProtectionProtectfwdAllowOnlyFormFields!NoResetgPassword Unprotect?ToolsProtectUnprotectDocument! frmRequirementswrkJet Workspace3 myDatabase!myRSΘ Recordset bUpdatingtableRequirementsAfieldRequirements0 tablescores currentTableA fieldscores{ currentFieldregcode#EcmdCancel_Click\(codeHide9zcmdInsert_ClickmyDocpDocumentjmyFieldU FormField fieldnamerowaddCRw std_error.txtCodeSetFocustxtText(UnProtectThisDocX SelectionZExpand$dwdCell CellsitemzRowIndex6dTablesCell MoveRightUnitTrim@ (RemoveNasties wdCharactercount0vFontUHidden]TypeText TypeParagraph  getNextNumberACollapseuwdCollapseStart|(LangType' (TransRegCodes8 InsertAfterq5 FormFields-|AddrRange wdFieldFormTextInputk\resulturStartOf&wdWordmExtend?wdExtendd(FCode\ wdCollapseEndSizeBoldItalic! UnderlinewdUnderlineNoneP StrikeThrough"DoubleStrikeThrough1^Outline5EmbossTShadow SmallCaps~cAllCapss_ ColorIndexwdAutoKVEngrave8 Superscript SubscriptVSpacingSScaling`PositionKerningB AnimationwdAnimationNonez0(ProtectThisDoc1Erro Description lvTextList_ItemClickdListItemFkTag&SubItems tsTabs_Change: populateListtxtCode_ChangetxtCode_KeyDownAKeyCode ReturnInteger(ShifttxtText_ChangetxtText_KeyDownOUserForm_Initialize5clvItem ActiveWindow+ViewIShowHiddenTextkNumber- vbInformationnsSearch*sField sSQL/ regPrefixmCreateWorkspacek5dbUseJetGtkEnviron,LCase: OpenDatabase` OpenRecordset|EOF lvTextList ListItemsClearIsNullMoveNextL!xoffFieldYVal Module1be_descz3 Error_list) err_countB(htStatevqCode2 (insertThisRequirementGhret Application*ScreenUpdating! (ValidatebyTableIDמShow (GetDocCodek IsNumeric$*(ValidateRandRsܠ QuestCodemyTableItablemyCellKorCount-8rowdirtycActionR Regulation6Recommendation timescale-myselcRowsUFormFieldFoundOr WindowState|wdWindowStateMaximizeU(QADate/self(validateDocumentResponsesdb\rs_ws_scores=items`hqCountw!qID@rQIDc^ responsestr Responsesbmarksw Bookmarks?nbmarkBookmarkCvisit comp_name+wdWindowStateMinimize4a(GetScoreNBHomeKeywdStory&(CheckVisitNumber*m ActivePane_ wdPageViewv (ValidatebyIDSfsofile%mycount7found+filestru>delims' CreateObject (Count_delim(split) FileExists vbExclamation question_code standard_textD`atype.vbCrLfvbOKOnly DocumentsRight  (Fast_Replace'FChrK~UCase5 (strdateDNow%IsDate2(IDCheckgrridcfFieldFfieldsdCell6nidStrdYcolHtableNovO ColumnIndexPUndoÞDeletexwdTable (Check_IDCodedel/ (getBookmark snamed obookmark` bookmarkErrorwtableStrVisit<WRowc{WCol"+fcellftable5strfcolumnfrows^tempnum6Columnsp9std_errіasd"ufindnreplacefi`tempstrQne the_stringdelimspgliststr?pos(IsUKDate٣datestrϘYear6nMonthDay (IsLeapYearYrp_adateiylmdd[bdate(std_Date(unblanksd_errDatePart DateValue/aXsjsde1 (GetDateFormatdf\mf<^yfd_sf_adayayearamonthEfmt(isblanke, isblank_errbpd^(alc090p_var3=p_lenIh_errUw_varĨw_lensch\counterp_shift: (InsertRowr (DeleteRow (ShowBookmarks`wdRedº (TrackChangesTrackRevisionsPrintRevisions ShowRevisionsu(StopTrackingChanges TransLang^code_incode_outtcode_in_lengthchar_remr char_to_convIconverted_charzclose_bracket_posA character_mapMyChar}TLE_ ascii_value, char_case]Asc!u _B_var_Midp _B_var_LeftQ;A  68q@1Bx %-  20( ,SPSSS<>8@H "Px "6DP bX T @  H XX @ HX p  * $  0  8@<H  B   " 08 HxZZZZZ requirements@.Const tableRecommendations = "recommendations"Z requirement`-Const fieldRecommendations = "recommendation"ZscoreshZZscoresZZ cancel'X B@Zl`ZZZZZl $.^ n!fPlease enter a valid code!A@  nB@pu(h r!f%Please enter some text for this code!A@  rB@puh tuh z vB@x v!|%~!'h h v!%~%B@J z vB@ v!f$$'j  vB@ v!(8 Added by MWJ f vB@8 Added by MWJ vB@h X$$ 'f  vB@ W TW$'Th0 T vB@ vB@Create the bookmark v! n ^!%.b f b( n b(Selection.InsertBefore txtCode b!!(&Include the field within the selection   vB@B b!'  v!B@x  vB@/Selection.MoveRight Unit:=wdCharacter, count:=1=Selection.Font.Hidden = False 'Added by MWJ v!Arial9 999 999999999 99999d999 9n f vB@4 Added by MWJ)Selection.MoveLeft Unit:=wdCell, count:=1*Selection.MoveRight Unit:=wdCell, count:=1Selection.HomeKey Unit:=wdLineSelection.EndKey Unit:=wdLineSelection.TypeBackspaceSelection.EndKey Unit:=wdLineA@ B@ZuHl@Error in cmdInsert_Click - ! "QA ErrorA@ ul( F'F ~!'n ~%'r ~!f'T'Fhllx H'N J'RA'F'n'r'Fu0l(Error in UserForm_Initialize - ! "QA ErrorA@ ul F'F n!freg_codeA'r'Fhlx   'h8l0 F'F r!f R_textA'n'Fhl   'hl`Zlx !!X !( !!Error : Cannot enable hidden text Error in QA MacroA@ hhSelect Case code Case "A" H'N J'R tsTabs.Tabs(1).Visible = False tsTabs.Tabs(2).Visible = False tsTabs.Tabs(3).Visible = False tsTabs.Value = 0 Case "B"+ currentTable = tableRecommendations+ currentField = fieldRecommendations tsTabs.Tabs(0).Visible = False tsTabs.Tabs(2).Visible = False tsTabs.Tabs(3).Visible = False tsTabs.Value = 1 Case "C"( currentTable = tableRequirements( currentField = fieldRequirements tsTabs.Tabs(0).Visible = False tsTabs.Tabs(1).Visible = False tsTabs.Tabs(3).Visible = False tsTabs.Value = 2 Case "D"+ currentTable = tableRecommendations+ currentField = fieldRecommendations tsTabs.Tabs(0).Visible = False tsTabs.Tabs(1).Visible = False tsTabs.Tabs(2).Visible = False tsTabs.Value = 3 End SelectA'FulError in UserForm_Initialize - ! "QA ErrorA@ uPlHZ@Z`.BZxl &!Error with report Code - (Blank). " QA+ ErrorA@ duhadmin "$ .<Z COMPUTERNAME$&'$ $$$(cdcts Q:\templates \qagen4.mdb <%*.@ac:\CSIW inspector templates \qagen4.mdb <%*.@h@select reg_prefix from questionnaire where questionnaire_code =' &' @%,.B B!.$B'a7Error retrieving Reg Prefix from qagen. Cannot continue " QA+ ErrorA@ h  ( SELECT a. R!_text, a.eff_date, a.reg_code, a. R_code FROM  N AS a WHERE requirement_code like ' 3*' and (((a.eff_date)=(select max([eff_date]) from  N where  R_code=a. R_code group by  R _code))) ORDER BY a.reg_code'aH  0 SELECT a. R!_text, a.eff_date, a.reg_code, a. R_code FROM  N AS a WHERE requirement_code like ' *' and   LIKE '* 3*' and (((a.eff_date)=(select max([eff_date]) from  N where  R_code=a. R_code group by  R _code))) ORDER BY a.reg_code'h 0!2B@4  @%,.B B!. R_text$B$6reg_code$B 0!2%.  R_text$B , R_code$B (h BB@8 u l Error in populateList - ! "QA ErrorA@ up lh ZZ ': < $! <!$$> : <!$$> ':h < :'fhAttribute VB_Name = "frmRequirements" Bas0{95081C50-E4F0-48B5-BD8C-12D138FC462D}{3A26A564-F14C-4672-8C15-2C1894508} dCreatablAiFalse PredeclaDIdTru "E`xpose@TemplateDerivCus tomizD Option A3licit Dim wrkJet As Wor`kspacL m "mF#V= CaGharacter,7un1 Fontw8den1!k'Addby MWBJTypeAB A:=" "  Pgraph kHG~="S + at(getN`(Numb0er()*g%Copllap o!FdS0tart4Lang! "WUTansReg>s(t,  cPAf D' cS're the bookmark8h myR=5.I6Ss.@(R e:=, 1+1InpuUt.V= FresulQOtK 'SBePF 3SC * 0DInclupmQ wiKn"sυB2Of:d,tendExSSF1!B" &pG3 'JA!G)se#t ?C?X>e<o:'WP g  !"Arial(l.Siz!12BolX.It]Ppc 䩆U@ZrHlinwdN,ont.keThrough_.Dou_Out]Emb osњShadrfUSmallCpHo .Ae ."ork`w dAuto8En Sv! uper`scrip9bS0 cpngP10yPosi= iKernOAnim= 7S1'S'!KQJ?g? S,r 5Le~f{s~ nHЕKeyFGL -Np?a Bace2+3lK f:dEinij]$ -& .Dec&P, vbCNr"$sQAordCw b lvList_IByVal ComctlLib.aQT}0Not v䌧bUpdating = True  txtCodeitem.Tag lText!lSubIFs(1)Fregc ~ ^8bFalswEnd If&  Z Private  tsTabs_Change(qOn Error GoTo sptd_e7c@urrent4ltableRe@quirems7FieldkfCall@ populIList("", <""~ n""?#Exitl v: MsgBox "in UserForm_Initialize - " &.Description, vbDCrcal2QAT*eCHe(If Not 5Then/; OX݄O.AL'@_\?ASA 3KeyDown(By0Val @As MSUs.ReturnInte ger, Shift @ C>E= 219 LOr21 192 MG0C09xtNh* 24 $4i& "_t5䋥_5Vd #55%?5J7?5 9?5ubqv#Dim lvKAa?@CActiveWindow.View.ShowHidd|en8 be,O Resume N L.Number <> 0 aK:Onn`en hB KAInf !ǠMacroę I12'Select se C''aCa`"Ah ^!ͥ'cހb 6sib(2)t3ePutGHBD"!_wcomwonw20/ / bsS1r #Cr/ 0#o f 1??o5oi2hDooRe  ?#5p 5&3HHv CRk/////"?0Vb/| sS earchQmStr, s#@PD/p'psSQLgSet myRS`mhsPrefixM?#tA#`lRepor""ll+@with r - (Blank).P\+ 91!c:a#w!wrkJ= CreWork spaceCadmin, db°RSAEnviron("COMPUTERpNAME#LO(Left(t , 5))"c0dctsDa`au= .OpenU("Q:\ p& "\qagen4.mddb , rpt E3%my c:\CSIW in|sppn3 &G Lrdset("s1p'from quesq5na where;ϸ ='''..EOF(.=0(0) ElseMsgBox "Error retrieving Reg Prefix from qagen. Cannot continue", vbCritical, "QA+ "ā End Ift If sSearch = "@" Then#sSQLSELECT a." & current Field"_ text,ef@f_date reg_cod 4 _7"FR OM 1Table1 AS a WHEREqu0iremI9 like '-B& "*' a (((a.U)=(select max([ ])!Ewhere7Rj=xgr@oup by) ))EORDER BYXUvˑkn=K6 &l/ m-n%sF$ LIKE '*BD?yƛ?y,y#=wflvTnList.Items.LCl`ySeZyRSwmyDatabase.OpenRecordPset(F)W$hi@mNo.E= /I+ 1 )7A # M@x&$ 'ID="{5A195056-9B0E-4D34-8010-50E711D8713C}" Document=ThisDocument/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=frmRequirements Module=Module1 HelpFile="" Name="TemplateProject" HelpContextID="0" CMG="EFED7E91826F7573757374747474" DPB="DEDC4F82D19ECEACCEAC9D8B7088BD845FD13776D39823FD" GC="CDCF5C8FA47FA57FA57F" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=88, 88, 522, 434, C frmRequirements=0, 0, 0, 0, C, 110, 110, 456, 448, C Module1=0, 0, 0, 0, C XjB*. qhj ZtuQha;jdfn[iaetr ThisDocumentThisDocumentfrmRequirementsfrmRequirementsModule1Module1(  *@T}6~R KQDBTahoma<kIXjB*XjB*6^X$ Image11PROJECTlkLPROJECTwmqfrmRequirements 7o7of( 24Label1$!4txtText ("24Label2t o( #<cmdCancel!( %<cmdInsert*$(4txtCode( *lvTextList 0 3j(Code5TahomaH(,5Tahoma(Text5Tahoma(oCompObjaVBFrame0CompObjjCCancel uTahoma(IInsert uTahomaH,E{5Tahoma!C45]65ͫ0W `0WCodeText Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmRequirements Caption = "Select Response" ClientHeight = 3990 ClientLeft = 45 ClientTop = 330 ClientWidth = 7980 StartUpPosition = 1 'CenterOwner TypeInfoVer = 84 End   FMicrosoft Word Document MSWordDocWord.Document.89qObjectPool5֐o5֐o