Standard Jet DBЕnb` ТUщЉgr@?œ~Ÿџ…š1ХyКэ0МпЬcйфУŸFћŠМN@hь7›зœњЭ(це%Š`’{63спББgC <Б3ђђy[T&|*jњ|™˜§ю"РѕИF‚f_•ја‰$…gЦ'DвюЯeэџЧFЁx эщ-bдT4.0]dЛvа @€ @€џџс‰a iџџџџиџџџџЉБ‘yБсџџ ‰a iџџџџаџџџџБџџ1ƒA щџџџџЉЩёсџџQ9AЁЉpaml1basLinkedTables basCommonFile basAutoExec Form_splashяРF@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA qџџџџ ™)` ЩџJ™_ЏNЊ? 3C:\Program Files\Microsoft Office\Office\MSACC9.OLBAccess ‘џџџџ Й)p^РFq€Њm.Є=C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\DAO\DAO350.DLLDAO ™џџџџ ‘€0РFC:\WINDOWS\SYSTEM\StdOle2.Tlbstdole љџџџџ!iWсРFCC:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLBVBIDE йџџџџ‘  CheckLinkGetDBDiradhVerifyLinks СЩЄsжа˜П Щ ШйРцЬh)aЏNЊ?‰БџџџџK€Њm.ЄI€Њm.ЄS€Њm.ЄQ€Њm.ЄИfФЄŸIЛxЊ8<Л‰ШVBE6.DLL щџџџџ­ и GetDBDir \ Error# : щџџџџj ј щџџџџh  щџџџџ 8 щџџџџS X comdlg32.dll adhVerifyLinks &The required file ' *' could not be found. B You can use the next dialog box  Dto locate the file on your system. B If you cannot find this file or  Fare unsure what to do choose CANCELadh_apiGetOpenFileName * B at the next screen and call the  hlocal database administrator, or program developer:  P Washington State Department of Health 6 Diabetes Control Program (360) 236-3738 Access (*.mdb) *.mdb ,,LL, $,0<H GetOpenFileNameA с xadh_apiGetSaveFileName GetSaveFileNameA с ё˜CommDlgExtendedError CommDlgExtendedError с бИadhCommonFileOpenSaveadhAddFilterItem adhTrimNull 2Locate Data database file щџџџџi  T ZYou can't run database until you can locate ' '. €Њm.Є Relinking tables ;DATABASE= щџџџџ… № щџџџџ`  щџџџџ0 0 щџџџџP P щџџџџ_ pConvertUnixFile щџџџџ‡ А *.* AutoExec cdem_dta.mdb tblLab`чGХX–юЊGPт AutoExecёню—/зЂВр„ЄОѓню—/зЂВр„ЄО|Р•МžеˆГЊ*Вїђню—/зЂВр„ЄО@CžМ7№Э‡Њ?txtCntћм31ЯЭ‡Њ?FormSCžМџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџо YS  Y   Y Y  Y Y  Y  DўY  Y   Y  Y џџ Y a Y dў Y 2ўY  Y   Y  jўY ConnectDatabaseDateCreateDateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeƒџџџџnџџџџiџџџџџџџџƒџџџџџџџџџџџџџџџџџџYџџџџYџџџџIdParentIdName        џџHARDSROBERT^D6&$ џ 7т@@лб@unk^AST (SGOT)23cRICHARDSROBERT^RD42.џ 7т@@лб@unk^crea1.0cRICHARDSROBERT^H:*("џ РVт@€DЭ@unk^ldl160cSORENSONSYDNEY^F8(& џ 7т@aШ@unk^alt45cLINDENWILLIAM^B2&$ џ 7т@aШ@unk^AST (SGOT)27cLINDENWILLIAM^P@42.џ 7т@aШ@unk^crea1.2cLINDENWILLIAM^F6*("џ 7т@aШ@unk^AST (SGOT)27cLINDENWILLIAM^P@42.џ 7т@aШ@unk^crea1.2cLINDENWILLIAM^F6*("џ 7т@€hЪ@OP9271alt22cTARRYRONALD^B4*($џ 7т@€hЪ@OP9271AST (SGOT)26cTARRYRONALD^PB862џ 7т@ёД@unk^alt13cRUBLINV ELIZABETH^J2&$ џ 7т@ёД@unk^AST (SGOT)44cRUBLINV ELIZABETH^X@42.џ `1т@-К@unk^ldl112cLANGSTONMARIAN R^J8(& џ `1т@-К@unk^hdl52cLANGSTONMARIAN R^H6&$ џ `1т@-К@unk^trig72cLANGSTONMARIAN R^J8(&"џ `1т@-К@unk^chol178cLANGSTONMARIAN R^L:*("џ `1т@wЩ@OP3514ha1c6.8cMAKERJERRY^D8.,&џ `1т@€ŽЬ@OP469ha1c7.2cFISHERCHARLES G^L8,*$џ `1т@фФ@unk^crea1.2cSNYDERIOUNE P^F6*("џ `1т@œТ@unk^crea1.0cROMANBARBARA A^H4*("џ РQт@ЋШ@unk^ldl109cTATERAYMOND E^D0(& џ РQт@ЋШ@unk^hdl41cTATERAYMOND E^B.&$ џ РQт@ЋШ@unk^trig268cTATERAYMOND E^F2*("џ РQт@ЋШ@unk^chol204cTATERAYMOND E^F2*("џ РQт@‰Г@OP1912ha1c7.5cPESTELILLIAN^H8.,&џ РQт@•Ъ@OP7117ha1c7.9cOLSONPATRICIA^J8.,&џ РQт@@бм@OP2982ha1c11.4cFESTAMONICA^H:0.&џ €Qт@Dа@OP10437alt49cMORRISONDOLORES^L<,*& џ €Qт@Dа@OP10437AST (SGOT)40cMORRISONDOLORES^ZJ:84 џ aт@@rл@unk^crea1.2cDERDAMICHAEL^D4*("џ €Eт@€їж@unk^ldl91cRUNNIќџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЉOYRSY Y Y  Y 2ўACMFInheritableObjectIdSIDƒџџџџџџ џџџџџџџџџџџџ AtˆYџџџџObjectIdџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ` љUUУ Р#VBAџџџџџџџџ@4эƒФТ` љUUУVBAProjectџџџџ@4эƒФТ` љUUУVBAџџџџџџџџ @4эƒФТ` љUUУ§џџџ§џџџўџџџс§џџџ§џџџ Хџџџџџџџџџџџџџџџџнўџџџџџџџўџџџ"#$%&'()*+3-./012ўџџџ456ўџџџ89:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrsўџџџuvwxyz{|ўџџџ~€PROJECTџџџџv PROJECTwmџџџџџџџџџџџџЄAcessVBADataџџџџџџџџџџџџ‚Forms \іƒФТ x љUUУ‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›ўџџџžŸ ЁЂЃЄЅІЇЈЉЊЋЌ­ЎЏАБВГДЕЖЗИЙўџџџКУОПРСМЛФТНЧШЩЪЫЬЮџџџџ,џџџџџџџџџџџџџџџџежизмрџџџџџџџџџџџџдџџџџџџџџтўџџџуфхцчшŸџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџўџџџ…ўџџџўџџџўџџџўџџџўџџџ‹ўџџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџasCommonFilebasAutoExecbasAutoExecForm_splashForm_splashїъЭЌ–џџџџ|Р•МžеˆГЊ*Вї˜Detaild Label0h Command1d Label2mtxtCntsplash ўџџџўџџџ !"#$%&'()*+,-./0123456789:;<=>?ўџџџABCўџџџEFGHIJKLMNOPQRSTUVWXYZ[\ўџџџ^_`abcdўџџџfžšы Y S Y  Y Y Y  Y ўў Y ўўY  Y ўўAttributeExpressionFlagLvExtra Name1 Name2ObjectId Orderƒџџџџnџџџџzџџџџfџџ edYџџџџ"ObjectIdAttributeџџm__SRP_0џџџџ__SRP_1џџџџџџџџџџџџm__SRP_2 џџџџ __SRP_3џџџџџџџџџџџџ@Ь__SRP_4 џџџџD@__SRP_5џџџџџџџџџџџџ]д__SRP_6џџџџetDirDataџџџџџџџџџџџџCustomGroupsџџџџ.џџџџ\іƒФТ\іƒФТDataAccessPages џџџџџџџџџџџџ\іƒФТ\іƒФТPropDataџџџџџџџџџџџџŽDirData/џџџџ†Cmdbarsџџџџџџџџџџџџ\іƒФТ\іƒФТModules'!\іƒФТ\іƒФТ0џџџџџџџџ \іƒФТ\іƒФТ›‚ТДh@basLinkedTabР%GasL ink€_d T@b‚bsРBKWNEYMBVTZEZ_MVJYHEMWZKEFJK28AKWNQРMYMРPV@Z@Z_РVJPYHРM@ ZQР EFРKB@€1‚Иѕ,'Р%€Ю,0bО*!B+BРfw3УUСXG*€‚2CQР‘mm@nik2ƒ1Ež1EП1Фгъ.Я`Ь РРR€ExecGQ‚Au@bo &xе`2cф0HHџ0)т0 fForm_splasЊhF /rр/_РJVp /СKhKKзo@ˆ" *‘Iџџ"(ЂУIbrU€€€€~~~~~u џџџџџџџџџџџџ    strTableiГ€0* pH‚dф paml1 Ђ@8= Vh ъ@`? J< DAO>„DAO( ™*\G{00025EЈ01-0C  0046}#5.0#0#C:\PROGRAM FILES\C OMMON MICROSOFT €SHARED\w350.DLL#Microsoft 3.51 Object Library €HUstdole>‚fst€dole^f€\€^043+„[W-^2^WINDOWS\SYSTEM\StdOle2.Tlb#OLE Aut€omation/ЦVBIDE> VB IDECЗ€†­€CE157ŸC5.3ФProgram Files\CommonЧHSharedP\VBAС6E6EXT.OLBHRVisual Basic for Applic1s Extensibility. РР+€les\Microsoft Shared\VBA\VBA6\VBE6EXT.OLBVBIDE йџџџџ‘  CheckLinkGetDBDiradhVerifyLinks СЩЄsжа˜П Щ ШйРцЬh)aЏNЊ?‰БџџџџK€Њm.ЄI€Њm.ЄS€Њm.ЄQ€Њm.ЄИfФЄŸIЛxЊ8<Л‰ШVBE6.DLL щџџџџ­ и GetDBDir \ Error# : щџџџџj ј щžšЫ -YSY Y Y  Y ў Y ў Y ў Y ў Y ўccolumn grbiticolumnszColumnszObject$szReferencedColumn$szReferencedObjectszRelationshipƒџџџџџџџџџџџџџџџџџџ ‚ƒџџџџџџџџџџџџџџџџџџ ‚ƒџџџџџџџџџџџџџџџџџџ ‚YџџџџYџџџџYџџџџszObject$szReferencedObjectszRelationshipџџљОv“K*mџџџџrU€€€€~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ЩIя СзŸ6аЗ~џЙ  фџџџџ‰a iџџџџАџџџџ!Aџџс‰a iџџџџиџџџџЉБ‘yБсџџPropDataџџџџџџџџџџџџ‡ 1#"\іƒФТ\іƒФТPropDataџџџџџџџџџџџџˆ 2џџџџ%$\іƒФТ\іƒФТ ‰a iџџџџаџџџџБџџ1ƒA щџџџџЉЩёсџџQ9AЁЉpaml1basLinkedTables basCommonFile basAutoExec Form_splashяРF@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA qџџџџ ™)`PropDataџџџџџџџџџџџџ‰ DirDataџџџџџџџџџџџџŠdReportsџџџџџџџџџџџџ\іƒФТ\іƒФТScripts&)џџџџ\іƒФТ\іƒФТPropDataџџџџџџџџџџџџŒDatabases(-*\іƒФТ\іƒФТ0џџџџ,+\іƒФТ\іƒФТBlob џџџџџџџџџџџџўџџџ ЩџJ™_ЏNЊ? 3C:\Program Files\Microsoft Office\Office\MSACC9.OLBAccess ‘џџџџ Й)p^РFq€Њm.Є=C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\DAO\DAO350.DLLDAO ™џџџџ ‘€0РFC:\WINDOWS\SYSTEM\StdOle2.Tlbstdole љџџџџ!iWсРFCC:\Program Files\Common Fi__SRP_7џџџџџџџџџџџџog__SRP_8žšYЛv1ьЇbи “ N Ф  : ѕ А k & с œ W  Э ˆ C ўЙt/ъЅY ˜Y `kDataIDƒџџџџџџџџџџџџџџџџџџ;<‰YџџџџAOIndexџџ$џѕ^џ Uџћ1џ(дўkfџчl Mєў@Фў (Фўѕ| VFДў]ћ1Єўћ”ўџ6 4џ$џџдўФўДў kjџєЉpjџ„ kfџDTџќіlџџ/ш8(blџ0 4џ$џџџдўФўДўЄў”ўLџ. € єєџў] €єєџў] є %У, єhџќР1ѕlhџFPџѕ @џ U@џѕўў0џUpfџ6@џ0џєpdџ kfџєЫ' kfџєк .kfџє­D@џѕhџMPџ@0џ (0џ`1`џ6@џ0џ l`џєџ] kfџєЉpdџ''@џkdџчhџMPџ@0џ (0џ`1hџ6@џ0џ1ѕlhџFPџѕ @џ U@џѕўў0џUpfџ6@џ0џlє§=є§= :Pџ^§lџџ/\L0blџ`џhџ@џ0џ8D@#lhџ§œlўШўpџ DШў ()lўШў(Шў'˜ў%'Иў%'ьў%lџpџ МlШў=0xџШўlўШў! јШў pQlўdўШў dў h lLџ!*#„ўdў @ /„ў "#„ўdў ` /„ў єџdў ( `ўєџѕѕdў d %`ўєџѕѕdў d l`ўѕл9 0(˜ўџ`ўШўdў l Шў (#l`ў§iИўШўўh@ў6 3„ўѕ џќ"Шўdў l Шў $#l„ўєєџў]/„ўШў є %У% є\џќРѕ\џMьў@мў & мўќі0ў0ў:ьў']ћ4Wмўє+,ўє+.ў\џИ$Јўє+(ўє+*ў\џИ$Јўˆўє+$ўє+&ў\џИ$ˆўћœў(Иўћœўќіє§є§мў(ьўћ”Ьўќ"\џM˜ў@ф§ (ф§`1џ6 мўЈўˆўЬўє§ф§мўє+,ўє+.ў\џИ$Јўє+(ўє+*ў\џИ$Јўˆўє+$ўє+&ў\џИ$ˆўћœў(Иўћœўќіє§є§мў(ьўћ”Ьўќ"\џM˜ў@ф§ (ф§`1 џ6 мўЈўˆўЬўє§ф§мўє+,ўє+.ў\џИ$Јўє+(ўє+*ў\џИ$Јўˆўє+$ўє+&ў\џИ$ˆўћœў(Иўћœўќіє§є§мў(ьўћ”Ьўќ"\џM˜ў@ф§ (ф§`1џ6 мўЈўˆўЬўє§ф§мўє+,ўє+.ў\џИ$Јўє+ўџџџўџџџўџџџ…ўџџџўџџџўџџџўџџџўџџџ‹ўџџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ @€4€€С@@Ы   @   € €@ kf^JkWLJkJomdQuQMLJkMd``dbSY^QLJk^Yb\QOmJL^QkOJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^Qk`kvkJMMQkkdL[QMmk`kvkJMQk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkhoQiv8mL^OQ`dmL^^JLmL^^JLkD:F6<+8m^\fMidkksJ^\JMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQOokQiOQSYbQO$џ ($џѕ^џ Uџћ1џ(дўkfџчl Mєў@Фў (Фўѕ| VFДў]ћ1Єўћ”ўџ6 4џ$џџдўФўДў kjџєЉpjџ„ kfџDTџќіlџџ/ш8(blџ0 4џ$џџџдўФўДўЄў”ўLџ. € єєџў] €єєџў] є %У, єhџќР1ѕlhџFPџѕ @џ U@џѕўў0џUpfџ6@џ0џєpdџ kfџєЫ' kfџєк .kfџє­D@џѕhџMPџ@0џ (0џ`1`џ6@џ0џ l`џєџ] kfџєЉpdџ''@џkdџчhџMPџ@0џ (0џ`1hџ6@џ0џ1ѕlhџFPџѕ @џ U@џѕў§џџџ‚ƒ,б„ˆ‰Š‹†…ŽŒ‡‘’“”•–—˜™š›œžўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў0џUpfџ6@џ0џlє§=є§= :Pџ^§lџџ/\L0blџ`џhџ@џ0џ8D@#lhџ§œlўШўpџ DШў ()lўШў(Шў'˜ў%'Иў%'ьў%lџpџ МlШў=0xџШўlўШў! јШў pQlўdўШў dў h lLџ!*#„ўdў @ /„ў "#„ўdў ` /„ў єџdў ( `ўєџѕѕdў d %`ўєџѕѕdў d l`ўѕл9 0(˜ўџ`ўШўdў l Шў (#l`ў§iИўШўўh@ў6 3„ўѕ џќ"Шўdў l Шў $#l„ўєєџў]/„ўШў є %У% є\џќРѕ\џMьў@мў & мўќі0ў0ў:ьў']ћ4Wмўє+,ўє+.ў\џИ$Јўє+(ўє+*ў\џИ$Јўˆўє+$ўє+&ў\џИ$ˆўћœў(Иўћœўќіє§є§мў(ьўћ”Ьўќ"\џM˜ў@ф§ (ф§`1џ6 мўЈўˆўЬўє§ф§мўє+,ўє+.ў\џИ$Јўє+(ўє+*ў\џИ$Јўˆўє+$ўє+&ў\џИ$ˆўћœў(Иўћœўќіє§є§мў(ьўћ”Ьўќ"\џM˜ў@ф§ (ф§`1 џ6 мўЈўˆўЬўє§ф§мўє+,ўє+.ў\џИ$Јўє+(ўє+*ў\џИ$Јўˆўє+$ўє+&ў\џИ$ˆўћœў(Иўћœўќіє§є§мў(ьўћ”Ьўќ"\џM˜ў@ф§ (ф§`1џ6 мўЈўˆўЬўє§ф§мўє+,ўє+.ў\џИ$Јўє+(ўє+*ў\џИ$Јўˆўє+$ўє+&ў\џИ$ˆўћœў(Иўћœўќіє§є§мў(ьўћ”Ьўќ"\џM˜ў@ф§ (ф§`1џ6 мўЈўˆўЬўє§ф§ 0ў:ьў)]ћ4‡мўє+,ўє+.ў\џИ$Јўє+(ўє+*ў\џИ$Јўˆўє+$ўє+&ў\џИ$ˆўћœў(Иўћœўќіє§є§мў(ьўћ”Ьўќ"\џM˜ў@ф§ (ф§`18џ6 мўЈўˆўЬўє§ф§Ž(мўѕ8џMьў@Ьў (Ьў:˜ў*ћяЈў(ˆўѕ8џMtў@ў (ўћяў:Ф§*ћяє§(ф§ѕ8џMД§@”§ (”§ћя„§`18џ6мўЬўˆўЈўўўф§є§”§„§ 0ў:ьў+]ћ4 мўє+,ўє+.ў\џИ$Јўє+(ўє+*ў\џИ$Јўˆўє+$ўє+&ў\џИ$ˆўћœўџTџCXџXџ DDџќі\џ2XџTџ \џџD cDџќіlџP ќfDџќіlџKџџ$$џ'4џ%'Dџ%ѕ$ |$џќі\џ ќfDџ% џ$ ` џ P џKўџ§•џ  џ џ lџqџ џ}џ  џ џ џ џџ ,'Ьў'ьў:Dџ Nрќџџ-  @€ @€ @€          €€€€€€4žš>  @€ @€ @€ @€ @€ @€ @€ @€ @€ @€666666666 6 6 6 6666666666666$6% 6& 6' 6( 6) 6* 6+ 6, 6- 6. 6/ 60 61 6C 6D 6E6F6G6H6I6J6K;;;€69€6:€6;€6<€66€67€68€6=€6>€6?€6@€6A€6B€62€63€64€65€46L€4;€4;6666 66 6666!6"6#6#6#6#VBAџџџџџџџџ гќUUУ гќUUУVBAProjectџџџџ гќUUУ гќUUУVBAџџџџџџџџ гќUUУ гќUUУdirџџџџџџџџџџџџh__SRP_0џџџџ__SRP_1џџџџџџџџџџџџm__SRP_2 џџџџ  ўџџџўџџџ !"#$%&'()*+,-./0123456789:;<=>?ўџџџABCўџџџEFGHIJKLMNOPQRSTUVWXYZ[\ўџџџ^_`abcdўџџџfghijklmnўџџџpўџџџrstuўџџџwxyz{|}~ўџџџ€dГ€0* pH‚dф paml1 Ђ@8= Vh ъ@`? J< DAO>„DAO( ™*\G{00025EЈ01-0C  0046}#5.0#0#C:\PROGRAM FILES\C OMMON MICROSOFT €SHARED\w350.DLL#Microsoft 3.51 Object Library €HUstdole>‚fst€dole^f€\€^043+„[W-^2^WINDOWS\SYSTEM\StdOle2.Tlb#OLE Aut€omation/ЦVBIDE> VB IDECЗ€†­€CE157ŸC5.3ФProgram Files\CommonЧHSharedP\VBAС6E6EXT.OLBHRVisual Basic for Applic1s Extensibility. РР+€›‚ТДh@basLinkedTabР%GasL ink€_d T@b‚bsРBKWNEYMBVTZEZ_MVJYHEMWZKEFJK28AKWNQРMYMРPV@Z@Z_РVJPYHРM@ ZQР EFРKB@€1‚Иѕ,'Р%€Ю,0bО*!B+BРfw3УUСXG*€‚2CQР‘mm@nik2ƒ1Ež1EП1Фгъ.Я`Ь РРR€ExecGQ‚Au@bo &xе`2cф0HHџ0)т0 fForm_splasЊhF /rр/_РJVp /СKhKK'Л]џџb"@,(ЂУIbrU€€€€~~~~~u џџџџџџџџџџџџ    strTable“K*mџџџџrU€€€€~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ЩIя СзŸ6аЗ~џЙ  фџџџџ‰a iџџџџАџџџџ!AžšN  €@  1 1 1 1 1 1 1 1 1  џ1€€€~~~~~u џџџџџџџџџџџџ    strTableRoot Entryџџџџџџџџ x љUUУпР#VBAџџџџџџџџ@4эƒФТ`н6HGUУVBAProjectџџџџ@4эƒФТ`н6HGUУVBAџџџџџџџџ @4эƒФТ`н6HGUУџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџк§џџџ§џџџнўџџџсўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ-./012ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPROJECTџџџџvPROJECTwmџџџџџџџџџџџџЄAcessVBADataџџџџџџџџџџџџ‚Forms \іƒФТ x љUUУџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџџџџџЭаџџџџжџџџџзмџџџџвлйдоџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџъыьэюя№ёђѓєѕіїўџџџ§џџџњћќ§ўџ0џџџџџџџџ\іƒФТ x љUUУBlob џџџџџџџџџџџџPropDataџџџџƒTypeInfoџџџџџџџџџџџџ„rPropDataCopyџџџџџџџџџџџџўџџџBlobCopyџџџџџџџџџџџџўџџџTypeInfoCopyџџџџџџџџџџџџўџџџџџџџџџџџџџџџasCommonFilebasAutoExecbasAutoExecForm_splashForm_splashžš {4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#C:\Program Files\Microsoft Office\Office\MSACC9.OLB#Microsoft Access 9.0 Object Library*\G{00025E01-0000-0000-C000-000000000046}#5.0#0#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\DAO\DAO350.DLL#Microsoft DAO 3.51 Object LibraryИ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.Tlb#OLE AutomationZ*\G{0002E157-0000-0000-C000-000000000046}#5.3#0#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB#Microsoft Visual Basic for Applications Extensibility 5.3 џџџџџџъ`?џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџДh8BKWNEYMBVTZEZ_MVJYHEMWZKEFJK053f8160eaџџbasLinkedTablesџџbОџџџџѕ,џџ8EKWNEYMBVTZEZ_MVJYHEMWZKEFJK063f8160eaџџ~basCommonFileџџ`Ог.џџ8HKWNEYMBVTZEZ_MVJYHEMWZKEFJK073f8160eaџџюbasAutoExecџџfОџџџџ0 џџ8KKWNEYMBVTZEZ_MVJYHEMWZKEFJK083f8160eaџџћForm_splashџџџџ0џџџџџџџџHo\џџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџфню—/зЂВр„ЄОџџџџчню—/зЂВр„ЄОџџџџъню—/зЂВр„ЄОџџџџэню—/зЂВр„ЄОџџџџџџџџ€ћџИK AccessD€џelseG€џend^€џGoto_€џify€џLoopВ€џthen VBAїтWin16С~Win32MacГВVBA6­# paml1ŠфDAOž‚ basLinkedTables‘d _Evaluateй Ќ(CheckLinkЧZstrTableЉrvarRetыЎ CurrentDbS TableDefs%iFields7ЉErroŠЌ(GetDBDirД GetDBDirErrН dbCurrent=д strDbNameЂ strProcNameЦЃRight UCase5  GetDBDirDoneкMsgBox—RNumberЃ- DescriptionО vbOKOnlyѕВ vbCritical+}Ќ(adhVerifyLinksstrDataDatabaseэ6strSampleTableбadhVerifyLinksErrџd varReturn`DstrDBDirў#strMsgG&DBы\ varFileNameљЋtdf”иTableDefmѕintIш\ intNumTablesIX strFilterгЅlngFlags ƒadhVerifyLinksDonemChrK~Ќ(adhAddFilterItemЛЌ(adhOFN_HIDEREADONLYXOЌ(adhOFN_NOCHANGEDIRžљЌ(adhCommonFileOpenSaveѕьOpenFileњяFilterД;Flagso DialogTitleп„IsNullЏФ Ќ(adhTrimNullУЭCount0vSysCmd—GacSysCmdInitMeterm!Connect\Щ RefreshLinkntacSysCmdUpdateMeterї acSysCmdRemoveMeterЛк basCommonFileЦžš  input file:  RNumber of lab results reported:  DLabs reported in measurement set:    PRecords appended to CDEMS lab table щџџџџb ш щџџџџ;  щџџџџx ( щџџџџ- H щџџџџ ˆ щџџџџ Ј ˆ ok olypЗў'І/зЂВр„ЄОR 4UPDATE tblDemo INNER JOIN & ON (tblDemo.dob =  >.dob) AND (tblDemo.last_name = .last_name) SET  R.chart_number = [tblDemo].[chart_number], N.clinic_code = [tblDemo].[clinic_code]  WHERE ((( ,.clinic_code)='unk'));y€Њm.Є .clinic_code = [tblDemo].[clinic_code]  WHERE ((( ,.clinic_code)='unk'));y€Њm.Є UPDATE . INNER JOIN tblDemo ON  N.[chart_number] = tblDemo.chart_number  SET  R.[clinic_code] = [tblDemo].[clinic_code]  4.[clinic_code]) = 'unk')); ]; щџџџџ. h rINSERT INTO tblLab (clinic_code, chart_number, raw_code,  nresult, service_date, status_flag) SELECT clinic_code, " €chart_number, raw_code, result, service_date, status_flag FROM Files opened:  LTotal patient records in input file:  RNumber of lab results reported:  DLabs reported in measurement set:    PRecords appended to CDEMS lab table щџџџџb ш щџџџџ;  щџџџџx ( щџџџџ- H щџџџџ ˆ щџџџџ Ј ˆ ok olypЗў'І/зЂВр„ЄОRstrDataDatabasestrSampleTableofnFlags InitialDirFilter FilterIndex DefaultExtFileName DialogTitleOpenFile strFilterstrDescriptionvarItemstrItem AI A‰ AЩ( A 8 AIHCancelinstringsection componentUnixFileDOSFilerU€€€€~| /бйБС 1Y Љy  Б ‰ љ Щ љ 6žš џџџџџџџџ,Apџџџџџџџџџџџџб4џџџџ,!(pџџџџџџџџџџџџб4џџџџ$ PpџџџџџџџџџџџџL :”ў§\џ Lџ \ :”ў§Lџ <џ t (”ўќі<џ l Ž ўС”ўb ,џ І :”ў§,џ џ О :”ў§џ  џ ж :”ў§ џ ќў ь c”ўќіќў=(„ўѕtў  ѕџtўћяdўTў  Tў`1Ќў6„ўtўdўTў"(„ўѕtў  tў`1Јў6„ўtўАўqPў ѕL™PўLў$ $lLў™PўLџќ#HўTPў /Hў <џќ"™Pў lЌўTPў lЌўJ™Pў lЈўTPў$ lЈўJ™Pў( џќ#HўTPў0/Hў§”ўќ"™Pў4,џќ#HўTPў</Hў#'„ўtў tў`#HўTPў,/Hў6„ўtў ѕ™Pў*(„ўѕџtў  tў`#HўTPў/Hў6„ўtў ѕџ™Pў ѕ™PўD ѕqPў ќўџІ,Аўќ§ќ§ pњ§<ќ§Аў kњ§pІўўіќ§д,АўЌ§Ќ§ pњ§<Ќ§Аў kњ§pІўўіЌ§kІў l Уј lфў§i”ўblЬў F„ўќіlџ ќd”ўќіlџ§•|а ФbЌ lџќ§i0џџџџЬљ@џџџџ€Ќ§i0DџџЬљ@Д€!ƒўџџџџџLџ  џџАўi џџџџЬљ@%ќў l!џџџ џџ,џ џџџџЈў џџЌў џџџџ<џ №џџ\џ 0џџ џ џџ Hў„ўtўdўTў‘‘‘˜T l  :hџ strDataDatabasestrSampleTableofnFlags InitialDirFilter FilterIndex DefaultExtFileName DialogTitleOpenFile strFilterstrDescriptionvarItemstrItem AI A‰ AЩ( A 8 AIHCancelinstringsection componentUnixFileDOSFilerU€€€ 0a ЉбйБIЩ љ i сq 9 Y y 16Љ СС 1!)!q!Љ!й!!"a"™"й"љ"!#yЉI#!Ё6yq#7‘#Б#Щ# $с$%™%Й%Yс%7&)&q/A&q&Љ 8Љ&ё)' (A(Y(й(9)Щ)!*й*‰+ ,Y y,Ё,б,A-ё-.б.Q/ 01ё1!y8 3Y3 4С4a5y5щ89!9I9бљ!џџџџЉ@4IIqxxxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@8‰iБџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@<Щ‰ёpppџџџџџџџџџџџџџџџџџџџџ@@ Љ1rrrџџџџџџџџџџџџџџџџџџџџ@ DIЩqtttIџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@H Љ‘vvvџџџџџџџџџџџџџџџџџџџџџџџџdзW—H№dџ dџUpvџ5dџьЩ\џ `џ`џ l\џqXџ`џlXџѕа Чj ѕ`џ$ ``џ Ф`џфx\џ `џ`џ Hџ LџLџ ,'єў'џxџM4џ@ѕl\џћў#Tџ*#Pџ*#DџlHџ*Fdџ 2TџPџDџHџ)`џLџ6dџџєў§ џџˆ№(bxџ0 TџPџHџDџ`џLџdџџєў0 ќЦdœ  8џ.єpjџєphџ kjџžšЩЕd Д_Л Z § Д g  Э ‚ п ~ ) о }  ЏNыыЧыЧ€€Ч žbasAutoExecbasCommonFile"basLinkedTablesijфMSysDb 0CB0џџџџh  щџџџџ 8 щџџџџS X comdlg32.dll adhVerifyLinks &The required file ' *' could not be found. B You can use the next dialog box  Dto locate the file on your system. B If you cannot find this file or  Fare unsure what to do choose CANCELadh_apiGetOpenFileName * B at the next screen and call the  hlocal database administrator, or program developer:  P Washington State Department of Health 6 Diabetes Control Program €zzŽzт@zzŽzт@ TMP%#MAU@>ЙШ@3tlkpCrossw€zzŽzт@zzŽzт@ tlkpCrosswalk>ЙШ@3tlkpCrosswalk @?nnnnbbbHH<: џ%€ ћxzŽzт@ ћxzŽzт@ tblLab>ЙШ@3tblLab_>Y;RRRRFFF::., џ%€64xzŽzт@64xzŽzт@ tblDemo>ЙШ@3tblDemo{7;VVVVJJJ<<0. џ%4瘏 вxт@ˆЯА вxт@tblLabs7/28/03_1>Йм@9NNNBBBBBBB@ џ@ €’PƒаOт@ЪєшЌOт@0Query1>Йo@9@@:F::......., џ@(љˆaдxт@)љˆaдxт@MSysAccessObjects>ЙDDDDDDDDDDB џ €€€/ід~q т@яКАaт@basLinkedTables>Йd@9LLL@@@@@@@> џ@ €€€ЋJв~q т@яКАaт@basCommonFile>Йj@9HHH<<<<<<<: џ@ €€€S*Ю~q т@яКАaт@basAutoExec>Йf@9DDD88888886 џ@ €€€ л‹wq т@яКАaт@splash>Й.........., џ€ €6ѓ Вчс@6ѓ Вчс@UserDefined>Й88888888886 џ€ €6ѓ Вчс@6ѓ Вчс@SummaryInfo>ЙР@9DDD88888886 џ@€ €юв!Гчс@Q/3†“zт@AccessLayout>Й4€MR2€KeepLocal Tv<иMA†zz:::::::8 џ@€я€' Вчс@я€' Вчс@SysRel>Й.........., џ€я€' Вчс@я€' Вчс@Scripts>Й0000000000. џ€я€' Вчс@я€' Вчс@Reports>Й0000000000. џ€я€' Вчс@я€' Вчс@Modules>Й0000000000. џ€я€' Вчс@я€' Вчс@Forms>Й,,,,,,,,,,* џ€яКАaт@яКАaт@DataAccessPages>Й@@@@@@@@@@> џZ' Вчс@Z' Вчс@€MSysRelationships?ЛDDDDDDDDDDB џZ' Вчс@˜L\–Mт@€MSysQueries?Л88888888886 џZ' Вчс@˜L\–Mт@€MSysACEs?Л22222222220 џZ' Вчс@Z' Вчс@€MSysObjects?Л88888888886 џZ' Вчс@ŽCКАaт@€MSysDb>Йќ@9:::......., џ@Z' Вчс@Z' Вчс@€Relationships?Л<<<<<<<<<<: џZ' Вчс@Z' Вчс@€Databases?Л44444444442 џZ' Вчс@Z' Вчс@€Tables?Л.........., џ яY7N7Y ˜Y cNDataIDƒџџџџџџџџџџџџџџ,џџџџA0аfN‰YџџџџAOIndexџџ$џѕ^џ Uџћ1џ(дўkfџчl Mєў@Фў (Фўѕ| VFДў]ћ1Єўћ”ўџ6 4џ$џџдўФўДў kjџєЉpjџ„ kfџDTџќіlџџ/ш8(blџ0 4џ$џџџдўФўДўЄў”ўLџ. € єєџў] €єєџў] є %У, єhџќР1ѕlhџFPџѕ @џ U@џѕўў0џUpfџ6@џ0џєpdџ kfџєЫ' kfџєк .kfџє­D@џѕhџMPџ@0џ (0џ`1`џ6@џ0џ l`џєџ] kfџєЉpdџ''@џkdџчhџMPџ@0џ (0џ`1hџ6@џ0џ1ѕlhџFPџѕ @џ U@џѕўў0џUpfџ6@џ0џlє§=є§= :Pџ^§lџџ/\L0blџ`џhџ@џ0џ8D@#lhџ§œlўШўpџ DШў ()lўШў(Шў'˜ў%'Иў%'ьў%lџpџ МlШў=0xџШўlўШў! јШў pQlўdўШў dў h lLџ!*#„ўdў @ /„ў "#„ўdў ` /„ў єџdў ( `ўєџѕѕdў d %`ўєџѕѕdў d l`ўѕл9 0(˜ўџ`ўШўdў l Шў (#l`ў§iИўШўўh@ў6 3„ўѕ џќ"Шўdў l Шў $#l„ўєєџў]/„ўШў є %У% є\џќРѕ\џMьў@мў & мўќі0ў0ў:ьў']ћ4Wмўє+,ўє+.ў\џИ$Јўє+(ўє+*ў\џИ$Јўˆўє+$ўє+&ў\џИ$ˆўћœў(Иўћœўќіє§є§мў(ьўћ”Ьўќ"\џM˜ў@ф§ (ф§`1џ6 мўЈўˆўЬўє§ф§мўє+,ўє+.ў\џИ$Јўє+(ўє+*ў\џИ$Јўˆўє+$ўє+&ў\џИ$ˆўћœў(Иўћœўќіє§є§мў(ьўћ”Ьўќ"\џM˜ў@ф§ (ф§`1 џ6 мўЈўˆўЬўє§ф§мўє+,ўє+.ў\џИ$Јўє+(ўє+*ў\џИ$Јўˆўє+$ўє+&ў\џИ$ˆўћœў(Иўћœўќіє§є§мў(ьўћ”Ьўќ"\џM˜ў@ф§ (ф§`1џ6 мўЈўˆўЬўє§ф§мўє+,ўє+.ў\џИ$Јўє+ўџџџўџџџўџџџ…ўџџџўџџџўџџџўџџџўџџџ‹ўџџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(ўє+*ў\џИ$Јўˆўє+$ўє+&ў\џИ$ˆўћœў(Иўћœўќіє§є§мў(ьўћ”Ьўќ"\џM˜ў@ф§ (ф§`1џ6 мўЈўˆўЬўє§ф§ 0ў:ьў)]ћ4‡мўє+,ўє+.ў\џИ$Јўє+(ўє+*ў\џИ$Јўˆўє+$ўє+&ў\џИ$ˆўћœў(Иўћœўќіє§є§мў(ьўћ”Ьўќ"\џM˜ў@ф§ (ф§`18џ6 мўЈўˆўЬўє§ф§Ž(мўѕ8џMьў@Ьў (Ьў:˜ў*ћяЈў(ˆўѕ8џMtў@ў (ўћяў:Ф§*ћяє§(ф§ѕ8џMД§@”§ (”§ћя„§`18џ6мўЬўˆўЈўўўф§є§”§„§ 0ў:ьў+]ћ4 мўє+,ўє+.ў\џИ$Јўє+(ўє+*ў\џИ$Јўˆўє+$ўє+&ў\џИ$ˆўћœў ўџџџўџџџ !"#$%&'()*+,-./0123456789:;<=>?ўџџџABCўџџџEFGHIJKLMNOPQRSTUVWXYZ[\ўџџџ^_`abcdўџџџfghijklmnўџџџpўџџџrstuўџџџwxyz{|}~ўџџџ€ash/&H00000000 Name="paml1" HelpContextID="0" VersionCompatible32="393222000" CMG="A9AB449C489C489C489C48" DPB="5250BF946995699569" GC="FBF9164FBE50BE5041" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] basLinkedTables=0, 0, 0, 0, C basCommonFile=0, 0, 0, 0, C basAutoExec=0, 0, 0, 0, C Form_splash=22, 22, 507, 360, C basLinkedTablesbasLinkedTablesbasCommonFileb`§џџџџџџџџџџџnrU€€€ џџџџџџџџT(`А0џџџџџџџџщ&$A`Д џџџџџџџџ8`Иџџџџџџџџџџ!9џџџџžšЛv1 @€ @€ @€ @€ @€ @џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџфню—/зЂВр„ЄОџџџџчню—/зЂВр„ЄОџџџџъню—/зЂВр„ЄОџџџџэню—/зЂВр„ЄОџџџџџџџџ€ќџфK AccessD€џelseG€џend^€џGoto_€џIfy€џLoopВ€џThen VBAїтWin16С~Win32MacГВVBA6­# paml1ŠфDAOž‚ basLinkedTables‘d _Evaluateй Ќ(CheckLinkЧZstrTableЉrvarRetыЎ CurrentDbS TableDefs%iFields7ЉErroŠЌ(GetDBDirД GetDBDirErrН dbCurrent=д strDbNameЂ strProcNameЦЃRight UCase5  GetDBDirDoneкMsgBox—RNumberЃ- DescriptionО vbOKOnlyѕВ vbCritical+}Ќ(adhVerifyLinksstrDataDatabaseэ6strSampleTableбadhVerifyLinksErrџd varReturn`DstrDBDirў#strMsgG&DBы\ varFileNameљЋtdf”иTableDefmѕintIш\ intNumTablesIX strFilterгЅlngFlags ƒadhVerifyLinksDonemChrK~Ќ(adhAddFilterItemЛЌ(adhOFN_HIDEREADONLYXOЌ(adhOFN_NOCHANGEDIRžљЌ(adhCommonFileOpenSaveѕьOpenFileњяFilterД;Flagso DialogTitleп„IsNullЏФ Ќ(adhTrimNullУЭCount0vSysCmd—GacSysCmdInitMeterm!Connect\Щ RefreshLinkntacSysCmdUpdateMeterї acSysCmdRemoveMeterЛк basCommonFileЦЎ(!tagOPENFILENAMEy lStructSize/r hWndOwnerЌў hInstance ќstrCustomFilterк˜nMaxCustFilterэ` NFilterIndexcЅstrFile XnMaxFile€ strFileTitle‹” nMaxFileTitleym strInitialDir/(strTitle nFileOffsetIŠnFileExtension9щ strDefExtHA lCustData'5lpfnHookАlpTemplateNameШtЌ(adh_apiGetOpenFileNameHˆofn)О comdlg32.dll?†Ќ(adh_apiGetSaveFileNameјЌ(CommDlgExtendedErrorsЌ(adhOFN_READONLYŽьЌ(adhOFN_OVERWRITEPROMPTЌ(adhOFN_SHOWHELPлŒЌ(adhOFN_NOVALIDATE›єЌ(adhOFN_ALLOWMULTISELECTИJЌ(adhOFN_EXTENSIONDIFFERENTf4Ќ(adhOFN_PATHMUSTEXISTVЌ(adhOFN_FILEMUSTEXISTFЌ(adhOFN_CREATEPROMPTнрЌ(adhOFN_SHAREAWAREiКЌ(adhOFN_NOREADONLYRETURNѕ2Ќ(adhOFN_NOTESTFILECREATE;џЌ(adhOFN_NONETWORKBUTTONЌ(adhOFN_NOLONGNAMES.WЌ(adhOFN_EXPLORERzЌ(adhOFN_NODEREFERENCELINKSXЗЌ(adhOFN_LONGNAMESуГ InitialDirЎ1 FilterIndexЫŸ DefaultExtКyFileNamejУ strFilenameлefResultшж IsMissing˜э ApplicationЅ* hWndAccessAppstrDescriptiond№varItemы vbNullCharкYstrItemуintPosзr basAutoExecѕHЌ(AutoExecьœ AutoExecErru AutoExecDone1фDoCmdЦЇ HourglassЊb Form_splashФg Form_Open-вCancelё˜tempRЊendsub:Ю ExitAccessis RunCommand`ф acCmdExitЪ№Command1_ClickV“rstа RecordsetкцrstCodes“€qryNew{)QueryDefвйtblNewј[fldNewЄFieldќ3TextlineыstrSQLF strCriteriaЈI ClinicCode[ŸClinicIDФƒTestCode%ЅTestNameкTypeTest<Ў TestResultоCollectionD(Иўћœўќіє§є§мў(ьўћ”Ьўќ"\џM˜ў@ф§ (ф§`1Dџ6 мўЈўˆўЬўє§ф§мўє+,ўє+.ў\џИ$Јўє+(ўє+*ў\џИ$Јўˆўє+$ўє+&ў\џИ$ˆўћœў(Иўћœўќіє§є§мў(ьўћ”Ьўќ"\џM˜ў@ф§ (ф§`1<џ6 мўЈўˆўЬўє§ф§3,-*#„ў.*#€§lDџ*#|§.*#x§/*1Xџ2„ў€§|§x§(Шў'˜ў%'Иў%'ьў%lXџpџ МlШў=0tџШў$.ўtџ 0k.ўУ,ўtџ 40k,ўУФ{ tџ ф0:мўlў:ьў%Шўtџ Д0Шў 01lў D2мў`1@џ)Шўlў5мў… 3C@џl@џ3ћ?8џMьў@ 4Фѓ xџ Р0lPџFИў%:ьў%xџ (0lџJѕль lџFИў%:ьў%xџ (0 :Иў5%:ьў%xџ (0l<џFИў%:ьў%xџ (0l@џFИў%:ьў%xџ (0l8џFИў%:ьў%xџ (0:Иў6%:ьў%xџ (0 џMьў@ 7l џJѕЧХ— :Иў8%:ьў%xџ (0А l џFИў%:ьў%xџ (ўџџџџџџK[  @ €@ Fю0ЌшДш‹юя0€ЉNctLLS@LLp…@ќ}@џpЊN№ЋN0ЋN ЉN(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@(„@žšK[v1 @€ @€ @€ @€аЯрЁБс>ўџ ўџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџАЇ$ЛМ‚У€3VBAџџџџџџџџ гќUUУАЇ$ЛМ‚УVBAProjectџџџџ гќUUУАЇ$ЛМ‚УVBAџџџџџџџџ гќUUУАЇ$ЛМ‚У§џџџ§џџџўџџџтўџџџе §џџџb §џџџŠ !"ўџџџ$%&'()*+3-./012ўџџџ456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`aўџџџcdefghўџџџjklmnopqrstuvwxyz{|}~€‚ƒ„…†ўџџџˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ЁЂЃўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџрџџџџџџџџџџџџкџџџџџџџџџџџџџџџџйпџџџџ фхцчшщъыўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPROJECTџџџџvPROJECTwmџџџџџџџџџџџџЄAcessVBADataџџџџџџџџџџџџ‚Forms  гќUUУ ЧљКМ‚Уўџџџўџџџўџџџ…ўџџџўџџџўџџџўџџџўџџџўџџџŒўџџџўџџџўџџџўџџџўџџџ’“”•–—˜™š›œžŸ ЁЂЃЄЅІЇЈЉЊЋЌ­ЎЏАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџasCommonFilebasAutoExecbasAutoExecForm_splashForm_splashїъЭЌ–џџџџ|Р•МžеˆГЊ*Вї˜Detaild Label0h Command1d Label2mtxtCntsplash 0CB0 ўџџџ‘ўџџџ !"#$%&'()*+,-./0123456789:;<=>?ўџџџABCўџџџEFGHIJKLMNOPQRSTUVWXYZ[\ўџџџ^_`abcdўџџџfžšK[v1ghijklmnўџџџpўџџџrstuўџџџwxyz{|}~ўџџџ€PropDataџџџџџџџџџџџџ%PropDataCopyџџџџџџџџџџџџBlobCopyџџџџџџџџџџџџўџџџTypeInfoCopyџџџџџџџџџџџџўџџџ0џџџџџџџџ гќUUУPј/5К‚УBlob џџџџџџџџџџџџуPropDataџџџџƒTypeInfoџџџџ1џџџџ„r`§џџџџџџџџџџџnrU€€€ џџџџџџџџT(`А0џџџџџџџџщ&$A`Д џџџџџџџџ8`Иџџџџџџџџџџ!9џџџџ0&&/0С` ­џџџџџџџџџџYyџџџџ00/nID="{EE12DDF4-2F97-11D7-A2B2-00E01884A4BE}" Module=basLinkedTables Module=basCommonFile Module=basAutoExec DocClass=Form_splџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ~ash/&H00000000 Name="paml1" HelpContextID="0" VersionCompatible32="393222000" CMG="71739C64A064A064A064A0" DPB="5654BBA4456C2B6D2B6D2B" GC="3B39D6C3BAC4BAC445" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] basLinkedTables=0, 0, 0, 0, C basCommonFile=0, 0, 0, 0, C basAutoExec=0, 0, 0, 0, C Form_splash=22, 22, 507, 360, Z Z basLinkedTablesbasLinkedTablesbasCommonFileb,0<H GetOpenFileNџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ <(џџ<,џџ<џџ<џџ< џџ<џџ<џџ<џџ<џџ< џџ<$џџ<0џџ<4џџBKWNEYMBVTZEZ_MVJYHEMWZKEFJK: џџџџ‡Б8EKWNEYMBVTZEZ_MVJYHEMWZKEFJK:џџџџџџџџiв;HKWNEYMBVTZEZ_MVJYHEMWZKEFJK:џџџџџџџџ HKKWNEYMBVTZEZ_MVJYHEMWZKEFJK:џџџџџџџџџџџџ#n__SRP_3џџџџџџџџџџџџ@Ь__SRP_4 џџџџD@__SRP_5žšK[v1 @€ @€ @€џџџџџџџџџџџџ]д__SRP_6џџџџet__SRP_7џџџџџџџџџџџџog__SRP_8 џџџџ‹d__SRP_9џџџџџџџџq_VBA_PROJECTџџџџџџџџџџџџДdirџџџџџџџџџџџџ?__SRP_0џџџџџџџџџџџџўџџџ__SRP_1џџџџџџџџm__SRP_2 џџџџ џџџџˆƒ„…†‰‡‚ŒŽ‘’,џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ;Г€0* pH‚dф paml1 Ђ@8= Vh 0@0Ш@ J< rstdole>stdole f%\*\G{0002043ь0-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.Tlb#OLE Automation#^€DAO>IDAO5@˜ Ž€@5E01@5@Program Files\CommonMicrosoft Shared\€;\dao360.dll#‡ 3.6 Object Li`braryH‚ХVBIDE> VBIЈDE\З€­€Ё\E157\3CNЁ).VBA\Р6E6EXT.OLBˆ/Visual Basic for ApplicТ]s Extensibilit`y 5.3Р+€ТšТДh@basLi€nkedTabTGasLinkQ@ŒdT@bBsРBKWNEYMBVTZEZ_MVJYHEMWZKEFJK28AKˆWNРMYMРPŠV@Z@Z_Р€VJYHРŠM@ ZР EFРšKB@€1BИ8W+Р%@Ю,q0bО!B€РЙРf3„‡G*‹€‚2C€Оmm@Zni2ƒ1Ež1ESП1Фъ-Я`Ь €РсhExecGŒ‚Au xЊo &x`2cф0HЎHџ0т0)€Œ" €ф0fForm€_splashЊF /rр/_РJp /еСKhKK‰ТS/0џџ"Ё,(ЂУIbV№Дд(џџџџЛ# ДhfОџџЖџџrU€€€€~~~~~u џџџџџџџџџџџџ    strTableЬamџ  ф*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#C:\Program Files\Microsoft Office\Office\MSACC9.OLB#Microsoft Access 9.0 Object LibraryИ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.Tlb#OLE Automation*\G{00025E01-0000-0000-C000-000000000046}#5.0#0#C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll#Microsoft DAO 3.6 Object LibraryZ*\G{0002E157-0000-0000-C000-000000000046}#5.3#0#C:\ProgžšK[ram Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB#Microsoft Visual Basic for Applications Extensibility 5.3 џџџџџџџџ00Ш@ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџДh8BKWNEYMBVTZEZ_MVJYHEMWZKEFJK0540c8302fџџbasLinkedTablesџџbОW+џџ8EKWNEYMBVTZEZ_MVJYHEMWZKEFJK0740c8302fџџ~basCommonFileџџ`Оъ-џџ8HKWNEYMBVTZEZ_MVJYHEMWZKEFJK0840c8302fџџюbasAutoExecџџfО0) џџ8KKWNEYMBVTZEZ_MVJYHEMWZKEFJK0940c8302fџџћForm_splashџџџџHSџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџфню—/зЂВр„ЄОџџџџчню—/зЂВр„ЄОџџџџъню—/зЂВр„ЄОџџџџэню—/зЂВр„ЄОџџџџџџџџ€ќџфKAccessD€џelseG€џend^€џGoto_€џIfy€џLoopВ€џThenVBAїтWin16С~Win32MacГВVBA6­#paml1ŠфDAOž‚basLinkedTables‘d _Evaluateй CheckLinkЧZstrTableЉrvarRetыЎ CurrentDbS TableDefs%iFields7ЉErroŠGetDBDirД GetDBDirErrН dbCurrent=д strDbNameЂ strProcNameЦЃRight UCase5  GetDBDirDoneкMsgBox—RNumberЃ- DescriptionО vbOKOnlyѕВ vbCritical+}adhVerifyLinksstrDataDatabaseэ6strSampleTableбadhVerifyLinksErrџd varReturn`DstrDBDirў#strMsgG&DBы\ varFileNameљЋtdf”иTableDefmѕintIш\ intNumTablesIX strFilterгЅlngFlags ƒadhVerifyLinksDonemChrK~adhAddFilterItemЛadhOFN_HIDEREADONLYXOadhOFN_NOCHANGEDIRžљadhCommonFileOpenSaveѕьOpenFileњяFilterД;Flagso DialogTitleп„IsNullЏФ adhTrimNullУЭCount0vSysCmd—GacSysCmdInitMeterm!Connect\Щ RefreshLinkntacSysCmdUpdateMeterї acSysCmdRemoveMeterЛк basCommonFileЦtagOPENFILENAMEy lStructSize/r hWndOwnerЌў hInstance ќstrCustomFilterк˜nMaxCustFilterэ` NFilterIndexcЅstrFile XnMaxFile€ strFileTitle‹” nMaxFileTitleym strInitialDir/(strTitle nFileOffsetIŠnFileExtension9щ strDefExtHA lCustData'5lpfnHookАlpTemplateNameШtadh_apiGetOpenFileNameHˆofn)О comdlg32.dll?†adh_apiGetSaveFileNameјCommDlgExtendedErrorsadhOFN_READONLYŽьadhOFN_OVERWRITEPROMPTadhOFN_SHOWHELPлŒadhOFN_NOVALIDATE›єadhOFN_ALLOWMULTISELECTИJadhOFN_EXTENSIONDIFFERENTf4adhOFN_PATHMUSTEXISTVadhOFN_FILEMUSTEXISTFadhOFN_CREATEPROMPTнрadhOFN_SHAREAWAREiКadhOFN_NOREADONLYRETURNѕ2adhOFN_NOTESTFILECREATE;џadhOFN_NONETWORKBUTTONadhOFN_NOLONGNAMES.WadhOFN_EXPLORERzadhOFN_NODEREFERENCELINKSXЗadhOFN_LONGNAMESуГ InitialDirЎ1 FilterIndexЫŸ DefaultExtКyFileNamejУ strFilenameлefResultшж IsMissing˜э ApplicationЅ* hWndAccessAppstrDescriptiond№varItemы vbNullCharкYstrItemуintPosзr basAutoExecѕHAutoExecьœ AutoExecErru AutoExecDone1фDoCmdЦЇ HourglassЊb Form_splashФg Form_Open-вCancelё˜tempRЊendsub:Ю ExitAccessis RunCommand`ф acCmdExitЪ№Command1_ClickV“rstа RecordsetкцrstCodes“€qžšK[v1 @€ryNew{)QueryDefвйtblNewј[fldNewЄFieldќ3TextlineыstrSQLF strCriteriaЈI ClinicCode[ŸClinicIDФƒTestCode%ЅTestNameкTypeTest<Ў TestResultоCollectionDateЛп AmendedResultЂЉ cnt_recordsы?cnt_totrecordsЈ cnt_personsДd cnt_filesУSTempFileV cnt_tableswp cnt_amendeduф strInputFileзPatID^ LastNameкє FirstNameЖќ ResultCommentб3„ˆџdob—„response—ЌDOSTempвCreateTableDefj CreateField—dbText ёdbDate=€ OpenRecordsetе| FileSearchиD NewSearchf­LookInвPSearchSubFolders­ExecuteYЭ FoundFilesќщConvertUnixFileќEOFє‰ParseBOFщy MoveFirstN€€џraw_codeK=IsDate2ЂAddNewaЃ €€џclinic_codeЉ- €€џchart_numberS €€џresultur €€џservice_dateŒД €€џstatus_flag IsEmpty љ €€џlast_nameыЧ €€џfirst_name?UpdateвќtxtCntкRepaintŒМKillЬRefreshCreateQueryDefzNvbLfT%RecordsAffectedцP vbInformationВninstringсYsectionG componentљ"cnt+positionн position2jUnixFileЈrDOSFileЅгEndValueФ& StartValueр9 OutPutTxtК‡stdole“`VBIDEAџFormтDetail2Label0Œ,Command1šLabel2Ž,€џClickŠуItemзz _B_str_Right#( _B_str_LeftVƒ _B_str_UCaseK _B_var_Chr\; _B_var_StringгŠ _B_var_LeftQс _B_var_CurDirT– _B_var_Datev  _B_var_Midэp€џValueфK€џ_B_var_clinic_codeŠ€џCollect€џ_B_var_chart_numberЏй €џ_B_var_resultэ€џ_B_var_raw_codeд€џ_B_var_service_dateшэ€џ_B_var_status_flag3ю€џ_B_var_last_name0б€џ_B_var_first_namez­ €џ_B_var_dobЈA _B_str_Chrm#€џ_B_var_cnt_amendedзе €џ_B_var_ifPђthernj €џ_B_var_GoTo8<jumpoutX9startО €џ_B_var_EndоFcoolectiondateОPџџxџџџџџџћ џџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЎџџАџџџџџџџџџџџџџџяџџџџџџџџџџџџџџH џџџџ$d__SRP_9џџџџџџџџџџџџq_VBA_PROJECT џџџџ3Šмфhћ#шSДhџџџџŠЖџџџџџџџџџџџџѓню—/зЂВр„ЄО|Р•МžеˆГЊ*Вїђню—/зЂВр„ЄОџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€[LџџџџS џџџџSџџџџ<џџ<џџX<џџ<џџN<џџ<иџџ<мџџ<$џџ<(џџ<,џџ<0џџ<4џџ<8џџ<<џџ<@џџNмўмў 6мўЬўЈўˆўC:ьў?мў мўћяЬў:ИўћяЈўkџD˜ўћяˆў:tў@ћяў`1џ6 мўЬўЈўˆўў{Alџ*#„ўB*#€§lџ*#|§C*#x§lџ*#d§D*#`§lџ*#\§E*#X§lџ*#T§F*#P§G*#L§lџ*#H§H*1Xџ2„ў€§|§x§d§`§\§X§T§P§L§H§ ШўlXџFИў%:ьўI%pџ €QШўlџ'ьў%lџ tJШўpџ DШў $=ШўC:ьў?мў мўћяЬў:ИўћяЈўkџD˜ўћяˆў:tў@ћяў`1џ6 мўЬўЈўˆўў`Klџ*#„ўL*#€§lџ*#|§M*#x§N*#d§lџ*#`§O*#\§G*#X§lџ*#T§P*1Xџ2„ў€§|§x§d§`§\§X§T§ ШўlXџFИў%:ьўI%pџ €QШўlџ'ьў%lџ tJC:ьў?мў мўћяЬў:ИўћяЈўkџD˜ўћяˆў:tўQћяў`1џ6 мўЬўЈўˆўў!RS*#„ўT*#€§lџ*1Xџ2„ў€§ ШўlXџFИў%:ьўI%pџ €QШўlџ'ьў%lџ tJ`ўhўlўШў! јШў plў l hў (#ѕ мў Uѕ ˆў Uѕ V1€§ѕ (§ Uѕ § UДќlџ XJ'Dќ'dќ'„ќѕ@Wl`ўћў#„ў*FЬўмўћяЈўˆўћяў:ьўXћяўk.џDИўћяє§>€§Fф§ћя”§:˜ўYћя„§k0џDtўћя8§(§ћя§§ћяјќ:д§Zћяшќk2џDФ§ћяиќ:Д§[ћяШќ:Є§\ћяИќlДќ§ih§ћяЄќ 2„ў€§)Шўlўhў6.ЬўмўЈўˆўўўє§ф§”§„§8§(§§§јќшќиќШќИќЄќ„ќdќDќ8„œ @b„pўdўPў@ў0ў<џ4џџtџLџHџџќўџџTџXџhџ џ`џ8џDџPџ\џlџpџxџ@џdџџЄ&„ў€§|§x§d§`§\§X§T§P§L§H§ШўlўhўмўЬўЈўˆўўўє§ф§”§„§8§(§§§јќшќиќШќИќЄќ„ќdќDќW8џ.єpjџєphџ kjџЫu khџєЉphџ<(4џkhџчl MTџ@$џ ($џѕ|џ Uџћ464џ$џџp kjџєЉpjџkhџpfџєpjџ kjџЫ# kfџєЉpfџx(4џkfџчl MTџ@$џ ($џѕ^џ Uџћ1џ(дўkfџчl Mєў@Фў (Фўѕ| VFДў]ћ1Єўћ”ўџ6 4џ$џџдўФўДў kjџєЉpjџ„ kfџDTџќіlџџ/ш8(blџ0 4џ$џџџдўФўДўЄў”ўLџ. € єєџў] €єєџў] є %У, єhџќР1ѕlhџFPџѕ @џ U@џѕўў0џUpfџ6@џ0џєpdџ kfџєЫ' kfџєк .kfџє­D@џѕhџMPџ@0џ (0џ`1`џ6@џ0џ l`џєџ] kfџєЉpdџ''@џkdџчhџMPџ@0џ (0џ`1hџ6@џ0џ1ѕlhџFPџѕ @џ U@џѕўў0џUpfџ6@џ0џlє§=є§= :Pџ^§lџџ/\L0blџ`џhџ@џ0џ8D@8D@џџџџр˜d§џџџџ џџ@ўџ`§џџџџ ’–@ўџ\§џџџџ @ўџX§џџџџ @ўџT§џџџџ @ўџP§џџџџ @ўџL§џџџџ @ўџH§џџџџ @ўџ8§џџ џџ @ўџ(§џџ џџ @ўџ§џџ џџ @ўџ§џџ џџ @ўџјќџџ џџ @ўџшќџџ џџ @ўџиќџџ џџ @ўџШќџџ џџ @ўџИќџџ џџ @ўџДќџџџџ ршЄќџџ џџ @ўџ”ќџџ џџ  „ќџџ џџ @ўџtќџџ џџ аdќџџ џџ @ўџTќџџ џџ рXDќџџ џџ р@\ќџџ џџ @ўџLќџџ џџ џџџџ<ќџџ џџ џџџџ˜xџџџџџџџџџџџџџџџџџџџџџџџџ˜џџџџ№џџџџџџџџшџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџш џџџџ˜џџ џџџџџџlџџџ џџџџџџџџџџHџџџџ0Tџџџ џџ @ўџDџџџ џџ јX4џџџ џџ @ўџ$џџџ џџ @ўџџџџ џџ @ўџџџџ џџ @ўџєўџџ џџ @ўџфўџџ џџ џџџџpдўџџ џџ @ўџФўџџ џџ @ўџДўџџ џџ @ўџЄўџџ џџ @ўџ”ўџџ џџ №˜(џџџџи€џџџџџџџџ`џџџџРџџџџџџџџџџџџџџџџџџžšK[џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(x@џџџџРџџ џџџџџџlџџџ џџPџџџџџџџџpPџџџ џџ џџџџњџџџџ@@џџџ џџ @ўџ0џџџ џџ @ўџ џџџ џџ џџџџ џџџџиџџџџџџџџ џџџџџџџџ џџџџџџџџ џџџџџџџџџџџџ pTМЌџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪx€€" € € 0€ џџџџ€P€X `€ џџџџp€x€ ˆ  А BxИ € џџџџ€&€ џџџџ8" @€ L€'€ џџџџ€ :H€ .$€ ,ˆ€ 2И€ (€ JР$€ 8№€ ,0€ џџџџ€ Jр€ 0€ 68€ Pp€ $&€ Hр&€ 0('€ (&€ @&€ X&€ p&€ ˆ&€  &€ №%€ А&€ Р&€ џџџџ€ &Рш€ џџџџ€№€ј€ џџџџ€€€€€ € (€ џџџџ€H€P€X€ џџџџ€@`€ € $Ј€ џџџџ€а€и€р€ш€№€ј€ џџџџ€€€€€ Z`€h€ Р€p€ џџџџ€ x€˜€ €Ј€*А€р€ш€  € џџџџ№ € џџџџ€ % >(.h*˜€ џџџџ€ *Ш€ џџџџ€ X%:02ј€ (@€ *р€ <€ :P€ џџџџ,Ра$и€ џџџџ€ * € $0 € @X ˜ А $И $р   ( $H $p 0˜ 0Ш *ј € H( € џџџџp x € џџџџ € џџџџ€ *Ј € Pи € џџџџ€ џџџџ ( 8 € @ (`  ˆ ˜   € џџџџЈ € џџџџИ € .а € џџџџ€ Bp€ B € H € џџџџ(И,h  *˜  Ш € џџџџ и € џџџџTш T@T˜€ $№€ :TX€ џџџџ€ А аTрN8€ џџџџ ˆT˜T№\и'€ H€ L`ˆ3А€ џџџџ(8@$P  : € 0Ар шј€ џџџџ€ џџџџ  0€ @X hx€˜€  р% ИШ%а%и%€ џџџџ Ш X' иh'p'x'€ џџџџш€ ј0H P`€ h€ И Ра€ и№(Xš0ˆ€ € џџџџ Ј0 Иш€ џџџџ( № € џџџџ   ( 0€А%@€ џџџџH€ p%$ h$+˜Р€ џџџџШа€ џџџџ р4+№(0€ џџџџ€ &8€ @`€ L € №,C€ џџџџ€ џџџџ8B{0€ џџџџ x € џџџџ€ џџџџ € џџџџ€ @АžšK[v1 @€ @€ @€,C№€ џџџџ€ џџџџ ю` € џџџџ  (€ џџџџ€ &8€ B`€ џџџџ,CЈ м!и И а€ Bр(RW(€ џџџџ€ џџџџ€€ џџџџB ˆ€ F€ Bи€ B € Bh€ А€ а€ (р€ 2 € 4@ € x € ,€ € џџџџ€А €2И €0№ € џџџџ€ ( !H!P! X! h!2Gx!А!€ џџџџ€ &И!р!ш! №! "Zƒ"p"€ џџџџ x"€"B ˆ"€ L"€ Bр"€ џџџџ€(#€0#€8#€@#€ џџџџ H# X# h# x#1ˆ# # Ј# И# .Ш#  ш#  ј# '$ 1 $8$€ џџџџ@$H$ P$ `$ p$€$џџџџ@(ЭџџxЭџџp–рruns link codeрOn Error GoTo ExitAccess]ђ`]ђx$№'šЃ ъЌа KT  іB@р' quits accessSџџHІ ЖError# !2Ж:  !4 6 8 (A@0nџџјх№Ѓр jumps around quittng accessoџџР–р4Program loaded into same directory as "cdem_dta.mdb"р&PAML files downloaded with SSH programormaр+download uses olyp@ssh.paml.com as web hostterminр2Files named sequentially "{olyp.###" eg. olyp.1111рр&each file can contain multiple recordsder рTDim TempFile As String 'End-Of-Line Unix chr(10) to MS chr(13) & chr(10) conversion Rs051рDim cnt_amended As IntegerрDProgram counts of OBX records equals number of results in input fileрр/Measurement set is labs being tracked by CDEMS:рIthey will each have an entry in the setup table and in LabCrosswalk tableр On Error GoTo Err_Command1_ClickWџџј]ђа]ђ№]ђ]ђ0]ђP]ђp]ђрDim varItem As Variant]ђЈ]ђР]ђи]ђ№р#2the clinic_code field put into the DEMS lab record]ђрDim LocationCode As String '?]ђ ]ђ8]ђP]ђh]ђ€]ђ˜]ђА]ђШ]ђр]ђјрDim DOSTemp As Stringix cр"file naming convention 4.4, "olyp"]ђ(]ђXрpatient identifiers]ђp]ђˆ]ђ ]ђИр"if result is simply comment]ђа]ђшЌSЖ*$\'э .HЌ'2Ќ'4Ќ'6р/counts PID records (duplicate persons possible)Ќ'8р to move through the found tablesЌ'<рto assign the new table nameр#===================================Жolyp'$р PAML 1st characters of all filesX to DЖunk'"р'clinic_code put on each appended recordр;response = ConvertUnixFile(.FoundFiles(cnt_files), DOSTemp) namin 87dЌЋЬр2 Open file.р#===================================р5Creates an output table name (eg., "tblLabs050501_1")р3these need to be manually erased or they accumulateЖtblLabs ZЖ_ <$Зa <Ќ '<ЙџџАЖtblLabs ZЖ_ <'@р#===================================р Create a new TableDef object.р: Create fields and append them to the new TableDef object.э @ H%P. ѕЖ clinic_code T7R5B@Ж chart_number T7R5B@Жraw_code T7R5B@Жresult T7R5B@Ж service_date V7R5B@Ж status_flag T7R5B@Ж last_name T7R5B@р<optionalЖ first_name T7R5B@р<optionalЖdob V7R5B@р<optionalрA.Fields.Append .CreateField("amended", dbText) 'optionalqџџ  H! žšK[v1Œ@”є?58P”8P”8P”ѕоБоB@э @ H%X. р#===================================рIsearches for new downloaded labcorps lab files in DEMS directory or below р!ZѕC@\р.FileName = "rs043804.200" $Ж*.*9ир#eg.rs112233.365$ 9^З9`C@b7bЌ œџ 8ўЌ5d!p’р(MsgBox " found cnt " & .FoundFiles.Countр<************************************************************рthe file parsing routine:Ќ$hbр" Loop until end of file.Ќ Їр# Read line into variable. Ќ$мъЖPIDKT  ЌЌ$jЌ ЌЌ$j ЌЌ$j Ќ $њ'B  ЌЌ$jЌ ЌЌ$j ЌЌ$j Ќ $њ'D  ЌЌ$jЌ ЌЌ$j ЌЌ$j Ќ $њ'Fрcnt_persons = cnt_persons + 1р3MsgBox "Name: " & PatID & " " & LastName & Chr$(10)C  ЌЌ$jЌ ЌЌ$j ЌЌ$j Ќ $њ'Jрdob in yyyymmdd formatЖOBRKT  ЌЌ$jЌ ЌЌ$j ЌЌ$j Ќ $њ'. .ЌЌ$њЖ/ .ЌЌ$њЖ/ .ЌЌ$њ'.ЖOBXKT  ЌЌ$jЌ ЌЌ$j ЌЌ$j Ќ $њ'(  ЌЌ$jЌ ЌЌ$j ЌЌ$j Ќ $њ',р--------------рEruns match program to return the CDEMS raw code from the lab raw codeІЖ0SELECT tlkpCrosswalk.raw_code FROM tlkpCrosswalkЖ" WHERE (((tlkpCrosswalk.lab_code)=Ж' (Ж'Ж));'э  H%X. !l !hœрA"is this lab raw_code in Crosswalk? B@n "p'*р)MsgBox "good record " & rstCodes!raw_codedџџ` Жna'*kџџH *Жna .$rœ B@t " )€vр =========== BЌ œ B )€xdџџШ Жblank )€xkџџЈ р =========== , )€z * )€p . )€|Жc )€~р =========== D$€ DЌœЖmissing )€‚dџџј D )€‚kџџр р =========== F$€ FЌœЖmissing )€„dџџˆ F )€„kџџp р =========== J$€ JЌœЖ 1/11/1111 )€Jdџџ І$ JЌЌ$њЖ/ JЌЌ$њЖ/ JЌ$мX )€JkџџИ р =========== B@† 2Ќ '2р3lab results tracked reportedkџџX 4Ќ '4р4total labs reportedSџџ( nџџ 4'ˆ џџB@ŠЙџџ ЌVр Close file.џ 8ўШрsteps through filesdџџ ЖThere were no files found.A@0kџџpqџџh H!B@Ž 2ЌœЖ)there were no labs being tracked returnedA@0|џџkџџр===============================р:data now in me.tblLabsXX/xx/xx_x - but has no clinic codesрEthis section fills in clinic code and chart number using lastname&dobр========Ж[tblLabs ZЖ_ <Ж]'@І  ЖUPDATE tblDemo INNER JOIN @Ж ON (tblDemo.dob =  @Ж.dob) AND (tblDemo.last_name =  @Ж.last_name) SET  @Ж).chart_number = [tblDemo].[chart_number], @Ж'.clinic_code = [tblDemo].[clinic_code] Ж WHERE ((( @Ж.clinic_code)='unk'));'эЖ  H%. B@b H!B@Žр:matches on chart_number only those records still unmatchedЖ[tblLabs ZЖ_ <Ж]'@І  ЖUPDATE @Ж INNER JOIN tblDemo ON  @Ж'.[chart_number] = tblDemo.chart_number ЖSET  @Ж).[clinic_code] = [tblDemo].[clinic_code] Ж WHERE ((( @Ж.[clinic_code]) = 'unk'));'эЖ  žšK[ @€ @€H%. B@bр===============================р<data now in me.tblLab - need to append to tblLab of dta fileЖ[tblLabs ZЖ_ <Ж];'@І Ж9INSERT INTO tblLab (clinic_code, chart_number, raw_code, Ж7result, service_date, status_flag) SELECT clinic_code, Ж@chart_number, raw_code, result, service_date, status_flag FROM  @'эЖ  H%. B@bр<************************************************************І+1ЖFiles opened: р!Z!d!pЌ $ZЌ $ZЖ&Total patient records in input file:  6Ќ $ ZЖ)Number of lab results reported:  4Ќ $ZЌ $ZЖ"Labs reported in measurement set:  2 ’Ж(Records appended to CDEMS lab table  !” –A@0oџџА–р@Steps through a string input looking for character "|" (Chr$124)р;when the count of Chr$(124) characters found equals sectionр;Start looking from that point on for character "^" Chr$(94)р;When the count of Chr$94) characters found equals componentрreturn the positionрInputр! instring = the string to parseр+ section = the number of Chr(124) to findр- component = the number of Chr$(94) to findрр&Returns the column position as variant]ђи]ђ№р#holds col for desired nth Chr$(124)]ђр"holds col for desired nth Chr$(94)р"find the column of the desired "|"Ќ'žЌ'  ž ša  Ќ '  ˜  Ќ$њЌ|$Z›G žЌ 'žjЙџџ€рfind the col of the desired "^"  'ЂЌ'ž ž œa ЂЌ 'ЂІ ˜ ЂЌ$њЌ^$Z ˜ ЂЌ$њЌ|$ Z›G žЌ 'žjЙџџР Ђ'jiџџА– рFloops thru the unix file and finds EOL prints this section to new lineр<in file DOSfile- results in file with chr(13) & chr(10) EOLs]ђР]ђи]ђ№]ђ ЄЌЋЬ ІЌЋЬЌ$haЌ ЇЌ Ќ $Z…'ЈЌ'Њ ЈЌa ЈЌ œ Ќ ЈЌ $њ'ЌЌв Ќж ЈЌ 'Њ  Њ$њ'Ќ Ќ $Z…'ЈkџџјЙџџ№ЙџџшЌVЌVЖok'fiџџАџџџџЈр(Works with PAML data file in HL7 format.рDPut downloaded files into subfolder under CDEMS eg.,"c:\cdems\paml\"рRDOSTemp = "DOSTemp" 'temp file converted from UNIX to DOS format and later killedџџџџ(%р Kill DOSTempџџџџx%рcnt_amended = 0џџџџ€%ЃђXџџџџH%џџџџ&dšђk ,Ќ œр alt 84460рcrosswalk entries in lab_codesр ha1c 83036.z1рldl 84999.z178р hdl 83718.z7р chol 82465.z3р trig 84478.z4р crea 82570р ast 84450р 24up 84155.z4џџџџ%рBSome of the PAML codes - confirm that this are what tests you wantр*PAML has 4 different codes for ha1c alone! .$rœdџџА&šђЈ&kџџ &рF7/28/03 includes error checking for missing dates and notes in resultsџџџџH& ,Жcomment„›GšђjрF:this jumps around comment records eg.= \.br\comments: \...џџџџ0(џџџџ9ЙAttribute VB_Name = "Form_splashˆ" ˆBasˆ0{BC95C07C-179E-11D5-88B3-00AA00€2AB2F7} |@GlobalЮSpac’False dCreataDblTru P€redecla IdЏ"ExpoŒse_Temм€teDeriv–CustomizD$Option Comp@ D3T€‰  €dGA2e jЁ va rIdсVariЗ‚‘чTрP№le!у i№jSQLŸ’lСX€yaэЇ`QnicŸЁ7С0с/ cpмicB*;@ A5bBŸ*’AP,9}IDТ'LocaЁmь'?gT.[Л O TypeџБэВ0qf*А#§јColсx€‰p!‚>ADа^/qч cnxt_rƒ)Q$Šћt ot/+persўo№Œ  / ёMR.К#?bБ™‘'G'№w-Of-Line Unix chr(p10)  kP^в3†)Рuconv0џМ с/’z ’БaЮnAq Ђ)In€$л 3ѓS'p"СKidqPifi “!P atЏ%Lastѓ?!3!FiрBЯУгGA0 BooleЁР^ 'ifа-sАiЉcsi№Ўy Umqdq dobggрhpЧа~$RDOS!}г6?= #*(83 , "*"ФЅSet №K= Cur-Q^DаЅ('= џ€WБAѕ&Jx(zХ'г@ё 'TxPа…№(dupА•сЙхУрsibleЄ ac*8= 1rp(р&moI№tth0gh€meџ`бВtq‘ЁѓРЩ•Д' aр™gnBNnZ"Bˆ e=яCS'…№кЄО" ЁОq а!0tа„fr ”UNIXс2GА”šPd l rx ki№CЄ_ШU uјnk"UЁTаТ…ќap Эё2s“ Р/рё“a "~1€ochъa0‹t€1 `ƒ0—•§„'‚ `™Б" РOЯRecords etаП%№'searches forрdownloBa  lab ps f`ks in DEMS d„ir {ory Р belowС УТnРklica: '˜leSb Ѓ .€xc Ё+leNР(@"rs043804р.200"EсzCЂtID & "*.*" 'eg.rs1122@33.365…L ookIn` Ge€tDBDir(e\.уSubFolders€True%ExecutCФIf .„() > 0 ThLenТ‚ F  cnt_ƒ$= 1 „To ounda(s.C@tc'M€sgBox "@.эр р`&е`БJ‚'`}ponse@ConvertUˆnix (.Fц (†), DOSTemp '*6@IГA parsing rouрtine:#сХƒ^СR шb$ЂД AsР #1 ' Ђс ƒЃФ@Do WhM Not EOF˜(1)  ' :p until ЙAЧof‚R†"LРТ У #1, И F‚e  Read b„inЮvariaеЫSelрZ CaA -Left(,ќ 3ХGт „ ep"PIDbW­ Pat€W= Midh Pр*eш2, Љ + (m3bД- s-L`ЏDh[5XА2) oЏ3ЏSFёZПeЎ,. ѓonА6oЙ , 3ПВ'ё0ўp> 33йPяЖ9}с :b9аFвf& Chr$(10ПЯАeр97у‡*, 8ЯТ3пЯТg8фb'Б`[Bymmdd^mŽaДH‡ƒ+OBREWуЇ‘Col1`zС‚џП ќ+П w4П 3П /ŸА9+{ е а/"bџ`0,бjБ €>И, 2_Э"Xaq Test?/?/ џу сBIsСI~(лLЃ4-§У .xAddаЗџ№![2№ЙЕc_code] = Clinic"Ch '=„If Len(PatID) > 0 ThenVРrst![chart_num8ber†=3Else,M"blank"Ond If“ ІvTestResult) < ь18šy‚xr‚u‡PxGoTo jРumpout”o“ƒ'awЦ„Type)“ Р{IsDate(Colle ction)с}service_ўdРСB‹€DOНBDstatus_flagA*"cд“тŒIsEmpty(LastNam`e) Or‚Э=ecЮl@_n€%mРissing•КŸЮџЪ …є0gb…ГТFƒ |Fi,Њ (п Ђ3fяaџ c;_ˆ[ы ц?!Ч­GпA(!dob&AbПЂ`Т?1/1AМ11@эрI C"zMid(` , 5, 2) & "Ќ/" Ц7Ш_s#%э &Р\ftЃ 4)>)* *s  .Upѓcnt_rРecordsррЉ+ 1 'lab ƒЖs trackedрporшted/ E”c/! ИtotKЁ'р(al @su žšK[ @€ Ca8se [k!SeЕыtxtCntЄїKMe.ReАpainаfdg:0LoopБѕClzo #Аа€…бfile.'Kill DOSTem’ Next s 'stepрhrough Bб{Msg Box "p†reH we@noУ Рfound.р0 ‘With DB.Tabl eDefsp fрPу P9qg}ŒUtЮhU"be0XH"@turned89E€xit SubЃ?Ѕ ‘. .Ч–— 'P,a now in me.tblLabsXX/xx _x - €but hasPЄ c2 c@sРРthis sƒzQЬlsaH aР+™2 ™ uAeр'st=‘f& A“ І уst€rInputFPy€$"[„ 1CёDD_ЋС‘t‘s!]”#CІSQLAUP DATE  Demo INNERР JOIN ‘*ƒ$H`J ON ($о.р  п р) AND7vpŸe w.v) SќET/ Ј9ЎPС t].лЏ,o #` ._S’™,2$›" WHERE (((nќ)='unk0'));рSet qryNew#РР2CrepšQuery 3("", pd\Г.Ex№ecutDК Ÿ6s6/`'matches on zonly th“БCЅ8staCun#sДWš= Џ'аЏ'"эЏ' $ "Є'Ÿpџx(Ѕ)0'˜ БNЮѕ)Ї Й%leђ*[x џЙ$ №№ •:У Нx)РЯ Я Я rЯ џХ GпLM€MаLneаvto apWв РV ЦHФ returУ1posiПA]DїФ@va=={$2€@pa4чD t№he n[€#c#@№find'Ч6C jяЂaMhDRB!9a00lumn 'C as v‰>CDim> р\ˆFчЅˆ 'holРzcolAb1desir@_nМth#1ЧAA E2iї]†9C'с",€A?рJ)E Qс= F1ƒ†= 4#D€o Untilто= Oсt(F+Х @If Midfo,af+, 1) ;ц9TaPЃЁ†LoopŸcЃ*AЪ^"Ѓ§…2@ e#C ЬgЌZ  2 _!`2ЯhigЕ! Or4#Ш{`М … #cтœ(2УЂх  &ЂConvertUnixсе(ANeЃDOSЗaG@–'›ЃžuЂKfuЂд aрЏNsР EOL pРЋ@ЯXthiІ•Ёonрљlмinѓ`мбm Pq&-цj…wiр1chЛрs@s&HƒtаsA^a‘2Textс'  qА`Valueчq\ƒSt RЏ1OutPutTxтtЩ O`j 0c` For MA#@$т…б`{c#ƒаі%EOF(1$_†LT#1, E [#І = (,?бBQ„и &<ndёƒ= 0ЃA'р8x> 0’%зb)v=Gђ)х А,, (Ц-Пр;dQ1`w№f#р+џЖЋњ –К4q€,ПЁCїœЖOeMу№ IfУ STFcClose с” 3Р "okаFБ6џџџџ‘Э.Дh`ОџџЖџџ|Њ@џџџџGetOpenFileNameAЊ<GetSaveFileNameAџџџЊdџџ(CommDlgExtendedErrorџџџџџџџџџџџџџџџџџџџџџџџxџџRRLLџџџџџџџџџџџџџџџџџџџџMEPџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ<8џџ<<џџ<џџџџџџX №џџџџ`џџџџџџџџџџџџЬўDџџџџ џџџџ--Œ`„џџџџ\џџџ џџIndeƒюџџџџџџˆџџџџџџџџџџџџџџ%џџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0hHџџџџРlџџџ џџџџџџXџџ@џџPаrі680BPИXџџџџџ џџџџ@ўџTџџџџџ @ўџDџџџ џџ @ўџ4џџџ џџ џџџџP($џџџ џџ P џџџ џџ @ўџџџџџџ A@ўџџџџџџ џџџџџџџџ%џџџџ џџџ џџ џџџџџџџџ(џџџџџ @ўџ џџџџџ  @ўџќўџџ џџ @ўџьўџџ џџ @ўџмўџџ џџ џџџџЬўџџ џџ џџџџџџџџ€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ5€ € *€ ,8€ ,h€ ˜€2 €и€ џџџџB р€ џџџџ€ ш€ ј€ € * € ,P€ , žšK[ФІz8Ж7л  U € @€€€ А€ И€ Ш€ и€ ш€ € <€ џџџџX€ џџџџ€`€ џџџџ$'h€ џџџџ € ˜ ИР Ша€ џџџџ€ир$ш ј€ џџџџ€ (J}0€ˆ€ џџџџ€ џџџџџџџџ рр$ From Access 97 Developer's Handbookre of р% by Litwin, Getz and Gilbert. (Sybex)4 р% Copyright 1997. All Rights Reserved. рЭр)Use database order for string comparisonst valuЭџџ –р Purpose:р Do all startup dutiesрр$ From Access 97 Developer's Handbookpen Fiр% by Litwin, Getz and Gilbert. (Sybex)6 р% Copyright 1997. All Rights Reserved.fileрр In:ђ0р Noneр Out:the р Return value: noneр History:р5 Created 09/14/94 pel; Last Modified 12/20/95 pelЩђ ]ђ@Ж cdem_dta.mdbЖtblLab$:' œрvarRet = adhInitAutoNum()З'№dџџ8З'№kџџ(Ѓє Щ |$r'З іB@јЩ№zџџшЃђр ъSџџаІ ЖError# !2Ж:  !4 6 8 ЖAutoExecA@0nџџxхєpiџџhџџџџ`џџџџГAttribute VB_Name = "basAutoExec" ' From Access 97 Developer's HandbookLby Litwin, Getz 4 Gilbert. (Sybex)NCopyright 1997. All Rs Res@erved.' Option Compare Datae € 'Use dorder for sаng cA1isonsEExplicit € FuncZ%…t(L , ' Purpose†:… Do a€Rstartup рdutie-…іFЁ’‚ Ѓ”ƒЃ–‚ …DIn ^None OutŠ Return value: nH HistoryJ Created 09/14/94 pel; Last @ModifiР1€2/20/95ССZA&On ErrСРgGoTo ]€QDimР r@# As Varia&nBjAva= adhVerifyLinks("cdem_dta.mdb", "€tblLab"Цr„IfThenƒ@…'IInitA$јNumAСС)€ФˆTruФOElsD ŒFaFEnd ьIf6…D@U„QBХКuРлNex€9†$SysCmd(acRemovРeMeterР5A DoР.HourИgla@фШЫY0C<рExit EМЩ%Р_ФSelect |Ca jЂ2с Ѓ*M€sgBox "`@or#" &С:.G '`|€": eD escriтw, _G/ vbOKO nly +@CrРitical`7…%џ`ŽЁ(Ѓcф%I*AСIўџџџџџЌ§џџи Р%џџџџР Jџџџџџџџџ Ииџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџјџџџџј џџџџџџџџр џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџl PTџџџџЈф-Дh`ОџџЖџџ|Њ@џџџџGetOpenFileNameAЊ<GetSaveFileNameAџџџЊdџџ(CommDlgExtendedErrorџџџџџџџџџџџџџџџџџџџџџџџџџxџџMEPџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP<џџ€<џџ<џџџџ<џџ< џџ<џџ<џџ<џџџџШР€џџџџџџџџh€‚0џџh€„Hџџh€†`џџh€Tx џџh€ˆџџh€ŠЈџџh€ŒРџџh€Žиџџh€№ џџh€’$$џџјh€” ((џџh€–8,,џџh€˜P00џџh€hh44џџh€š€88џџh€œ˜::џџh€žА<<џџh€ Ш@@џџh€ЂрDDџџh€ЄџџџџHHџџ+І`pџџџџџџџџџџџџ8 џџ )ƒЈџџџџџџџџXџџџџ€A%+ЌШ(pџџџџџџџџџџџџ  џџ( )ƒЈџџџџџџџџРџџџџ€A%+ЎаPpџџџџџџџџџџџџџџџџџџP ژ^рBџџџџџџџџ