Standard Jet DBnb` Ugr@?~1y0̝cßFN@h7ל(%`{63߱gC <3y[T&|*j|"Ff_Љ$g'DeFx -bT4.0]dv @ @a iy a i1A Q9Apaml1basLinkedTables basCommonFile basAutoExec Form_splashF@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA q )`J_N? 3C:\Program Files\Microsoft Office\Office\MSACC9.OLBAccess  )p^Fqm.=C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\DAO\DAO350.DLLDAO  0FC:\WINDOWS\SYSTEM\StdOle2.Tlbstdole !iWFCC:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLBVBIDE  CheckLinkGetDBDiradhVerifyLinks ɤs h)aN?Km.Im.Sm.Qm.fĤIx8<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`GXGP AutoExec//|*/@C7?txtCnt31?FormSC YS  Y   Y Y  Y Y  Y  DY  Y   Y  Y  Y a Y d Y 2Y  Y   Y  jY ConnectDatabaseDateCreateDateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeniYYIdParentIdName        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^ldl91cRUNNIOYRSY Y Y  Y 2ACMFInheritableObjectIdSID  AtYObjectIdRoot Entry`UU #VBA@4`UUVBAProject@4`UUVBA @4`UU "#$%&'()*+3-./01245689:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrsuvwxyz{|~PROJECTv PROJECTwmAcessVBADataForms \x UU,asCommonFilebasAutoExecbasAutoExecForm_splashForm_splashͬ|*Detaild Label0h Command1d Label2mtxtCntsplash  !"#$%&'()*+,-./0123456789:;<=>?ABCEFGHIJKLMNOPQRSTUVWXYZ[\^_`abcdf Y S Y  Y Y Y  Y  Y Y  Y AttributeExpressionFlagLvExtra Name1 Name2ObjectId Ordernzf edY"ObjectIdAttributem__SRP_0__SRP_1m__SRP_2  __SRP_3@__SRP_4 D@__SRP_5]__SRP_6etDirDataCustomGroups.\\DataAccessPages \\PropDataDirData/Cmdbars\\Modules'!\\0 \\h@basLinkedTab%GasL ink_d T@bbsBKWNEYMBVTZEZ_MVJYHEMWZKEFJK28AKWNQMYMPV@Z@Z_VJPYHM@ ZQ EFKB@1,'%΁,0b*!B+Bfw3UXG*2CQmm@nik21E1E1.` RExecGQAu@bo &x`2c0HH0)0 fForm_splashF /r/_JVp/KhKKo@"*I"(IbrU~~~~~u    strTablei0* pHd paml1 @8= Vh @`? J< DAO>DAO( *\G{00025E01-0C  0046}#5.0#0#C:\PROGRAM FILES\C OMMON MICROSOFT SHARED\w350.DLL#Microsoft 3.51 Object Library HUstdole>fstdole^f\^043+[W-^2^WINDOWS\SYSTEM\StdOle2.Tlb#OLE Automation/VBIDE> VBIDECCE157C5.3Program Files\CommonHSharedP\VBA6E6EXT.OLBHRVisual Basic for Applic1s Extensibility. +les\Microsoft Shared\VBA\VBA6\VBE6EXT.OLBVBIDE  CheckLinkGetDBDiradhVerifyLinks ɤs h)aN?Km.Im.Sm.Qm.fĤIx8<VBE6.DLL   GetDBDir \ Error# : j  -YSY Y Y  Y  Y  Y  Y  Y ccolumn grbiticolumnszColumnszObject$szReferencedColumn$szReferencedObjectszRelationship   YYYszObject$szReferencedObjectszRelationshipvK*mrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ I 6з~  a i!Aa iyPropData 1#"\\PropData 2%$\\ a i1A Q9Apaml1basLinkedTables basCommonFile basAutoExec Form_splashF@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA q )`PropData DirDatadReports\\Scripts&)\\PropDataDatabases(-*\\0,+\\Blob J_N? 3C:\Program Files\Microsoft Office\Office\MSACC9.OLBAccess  )p^Fqm.=C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\DAO\DAO350.DLLDAO  0FC:\WINDOWS\SYSTEM\StdOle2.Tlbstdole !iWFCC:\Program Files\Common Fi__SRP_7og__SRP_8Yv1b N  : k & W  C t/Y Y `kDataID;<YAOIndex$^ U1(kfl M@ (| VF]16 4$ kjpj kfDTl/8(bl0 4$L. ] ]  %, h1lhFP @ U@0Upf6@0pd kf' kf .kfD@hMP@0 (0`1`6@0 l`] kfpd''@kdhMP@0 (0`1h6@01lhFP @ U@0Upf6@0l== :P^l/\L0bl`h@08D@#lhlp D ()l('%'%'%lp l=0xl!  pQld d h lL!*#d @ / "#d ` / d ( `d d %`d d l`9 0(`d l  (#l`ih@6 3 "d l  $#l]/  %% \\M@ & 00:']4W+,+.\$+(+*\$+$+&\$(("\M@ (`16 +,+.\$+(+*\$+$+&\$(("\M@ (`1 6 +,+.\$+(+*\$+$+&\$(("\M@ (`16 +,+.\$+ @4@@   @    @ kf^JkWLJkJomdQuQMLJkMd``dbSY^QLJk^Yb\QOmJL^QkOJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^Qk`kvkJMMQkkdL[QMmk`kvkJMQk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkhoQiv8mL^OQ`dmL^^JLmL^^JLkD:F6<+8m^\fMidkksJ^\JMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQOokQiOQSYbQO$ ($^ U1(kfl M@ (| VF]16 4$ kjpj kfDTl/8(bl0 4$L. ] ]  %, h1lhFP @ U@0Upf6@0pd kf' kf .kfD@hMP@0 (0`1`6@0 l`] kfpd''@kdhMP@0 (0`1h6@01lhFP @ U@,0Upf6@0l== :P^l/\L0bl`h@08D@#lhlp D ()l('%'%'%lp l=0xl!  pQld d h lL!*#d @ / "#d ` / d ( `d d %`d d l`9 0(`d l  (#l`ih@6 3 "d l  $#l]/  %% \\M@ & 00:']4W+,+.\$+(+*\$+$+&\$(("\M@ (`16 +,+.\$+(+*\$+$+&\$(("\M@ (`1 6 +,+.\$+(+*\$+$+&\$(("\M@ (`16 +,+.\$+(+*\$+$+&\$(("\M@ (`16  0:)]4+,+.\$+(+*\$+$+&\$(("\M@ (`186 (8M@ (:*(8Mt@ (:*(8M@ (`186 0:+]4 +,+.\$+(+*\$+$+&\$TCXX DD\2XT \D cDlP fDlK$$'4%'D%$ |$\ fD% $ ` P K   lq }     ,'':D N-  @ @ @          4>  @ @ @ @ @ @ @ @ @ @666666666 6 6 6 6666666666666$6% 6& 6' 6( 6) 6* 6+ 6, 6- 6. 6/ 60 61 6C 6D 6E6F6G6H6I6J6K;;;696:6;6<6667686=6>6?6@6A6B6263646546L4;4;6666 66 6666!6"6#6#6#6#VBA UU UUVBAProject UU UUVBA UU UUdirh__SRP_0__SRP_1m__SRP_2    !"#$%&'()*+,-./0123456789:;<=>?ABCEFGHIJKLMNOPQRSTUVWXYZ[\^_`abcdfghijklmnprstuwxyz{|}~d0* pHd paml1 @8= Vh @`? J< DAO>DAO( *\G{00025E01-0C  0046}#5.0#0#C:\PROGRAM FILES\C OMMON MICROSOFT SHARED\w350.DLL#Microsoft 3.51 Object Library HUstdole>fstdole^f\^043+[W-^2^WINDOWS\SYSTEM\StdOle2.Tlb#OLE Automation/VBIDE> VBIDECCE157C5.3Program Files\CommonHSharedP\VBA6E6EXT.OLBHRVisual Basic for Applic1s Extensibility. +h@basLinkedTab%GasL ink_d T@bbsBKWNEYMBVTZEZ_MVJYHEMWZKEFJK28AKWNQMYMPV@Z@Z_VJPYHM@ ZQ EFKB@1,'%΁,0b*!B+Bfw3UXG*2CQmm@nik21E1E1.` RExecGQAu@bo &x`2c0HH0)0 fForm_splashF /r/_JVp/KhKK']b"@,(IbrU~~~~~u    strTableK*mrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ I 6з~  a i!AN  @  1 1 1 1 1 1 1 1 1  1~~~~~u    strTableRoot Entryx UU#VBA@4`6HGUVBAProject@4`6HGUVBA @4`6HGU-./012PROJECTvPROJECTwmAcessVBADataForms \x UU0\x UUBlob PropDataTypeInforPropDataCopyBlobCopyTypeInfoCopyasCommonFilebasAutoExecbasAutoExecForm_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_MVJYHEMWZKEFJK053f8160eabasLinkedTablesb,8EKWNEYMBVTZEZ_MVJYHEMWZKEFJK063f8160ea~basCommonFile`.8HKWNEYMBVTZEZ_MVJYHEMWZKEFJK073f8160eabasAutoExecf0 8KKWNEYMBVTZEZ_MVJYHEMWZKEFJK083f8160eaForm_splash0Ho\hH0////K AccessDelseGend^Goto_ifyLoopthen VBAWin16~Win32MacVBA6# paml1DAO basLinkedTablesd _Evaluate (CheckLinkZstrTablervarRet CurrentDbS TableDefs%iFields7Erro(GetDBDir GetDBDirErr dbCurrent= strDbName strProcNameƣRight UCase5  GetDBDirDoneMsgBoxRNumber- Description vbOKOnly vbCritical+}(adhVerifyLinksstrDataDatabase6strSampleTableadhVerifyLinksErrd varReturn`DstrDBDir#strMsgG&DB\ varFileNametdfTableDefmintI\ intNumTablesIX strFilterӥlngFlags adhVerifyLinksDonemChrK~(adhAddFilterItem(adhOFN_HIDEREADONLYXO(adhOFN_NOCHANGEDIR(adhCommonFileOpenSaveOpenFileFilter;Flagso DialogTitle߄IsNull (adhTrimNullCount0vSysCmdGacSysCmdInitMeterm!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'));ym. .clinic_code = [tblDemo].[clinic_code]  WHERE ((( ,.clinic_code)='unk'));ym. 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 ,Ap4,!(p4$ PpL :\ L \ :L < t (< l  b ,  :,   :   :   c=(t  tdT  T`16tdT"(t  t`16tqP LPL$ $lLPL#HTP /H <"P lTP lJP lTP$ lJP( #HTP0/H"P4,#HTP</H#'t t`#HTP,/H6t P*(t  t`#HTP/H6t P PD qP , p< kp, p< kpk l  libl Fl dl| b li0@i0D@!L i @% l! ,   < \ 0  HtdTT 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""""!#yI#!6yq#7### $$%%%Y%7&)&q/A&q& 8&)' (A(Y((9))!**+ ,Y y,,,A--..Q/ 011!y8 3Y3 44a5y589!9I9!@4IIqxxx@8i @<ppp@@ 1rrr@ DIqtttI@H vvvdWHd dUpv5d\ `` l\qX`lX j `$ `` `x\ `` H LL ,''xM4@l\#T*#P*#DlH*Fd 2TPDH)`L6d (bx0 TPHD`Ld0 d  8.pjph kjd _ Z g  ~ ) }  Nǀ basAutoExecbasCommonFile"basLinkedTablesijMSysDb 0CB0h   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 zzz@zzz@ TMP%#MAU@>@3tlkpCrosswzzz@zzz@ tlkpCrosswalk>@3tlkpCrosswalk @?nnnnbbbHH<: % xzz@ xzz@ tblLab>@3tblLab_>Y;RRRRFFF::., %64xzz@64xzz@ tblDemo>@3tblDemo{7;VVVVJJJ<<0. %4ט x@ϰ x@tblLabs7/28/03_1>@9NNNBBBBBBB@ @ PO@O@0Query1>o@9@@:F::......., @(ax@)ax@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/3z@AccessLayout>4MR2KeepLocal Tv<MAzz:::::::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' @Ca@MSysDb>@9:::......., @Z' @Z' @Relationships?<<<<<<<<<<: Z' @Z' @Databases?44444444442 Z' @Z' @Tables?..........,  Y7N7Y Y cNDataID,A0fNYAOIndex$^ U1(kfl M@ (| VF]16 4$ kjpj kfDTl/8(bl0 4$L. ] ]  %, h1lhFP @ U@0Upf6@0pd kf' kf .kfD@hMP@0 (0`1`6@0 l`] kfpd''@kdhMP@0 (0`1h6@01lhFP @ U@0Upf6@0l== :P^l/\L0bl`h@08D@#lhlp D ()l('%'%'%lp l=0xl!  pQld d h lL!*#d @ / "#d ` / d ( `d d %`d d l`9 0(`d l  (#l`ih@6 3 "d l  $#l]/  %% \\M@ & 00:']4W+,+.\$+(+*\$+$+&\$(("\M@ (`16 +,+.\$+(+*\$+$+&\$(("\M@ (`1 6 +,+.\$+(+*\$+$+&\$(("\M@ (`16 +,+.\$+(+*\$+$+&\$(("\M@ (`16  0:)]4+,+.\$+(+*\$+$+&\$(("\M@ (`186 (8M@ (:*(8Mt@ (:*(8M@ (`186 0:+]4 +,+.\$+(+*\$+$+&\$  !"#$%&'()*+,-./0123456789:;<=>?ABCEFGHIJKLMNOPQRSTUVWXYZ[\^_`abcdfghijklmnprstuwxyz{|}~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`!9v1 @ @ @ @ @ @////K AccessDelseGend^Goto_IfyLoopThen VBAWin16~Win32MacVBA6# paml1DAO basLinkedTablesd _Evaluate (CheckLinkZstrTablervarRet CurrentDbS TableDefs%iFields7Erro(GetDBDir GetDBDirErr dbCurrent= strDbName strProcNameƣRight UCase5  GetDBDirDoneMsgBoxRNumber- Description vbOKOnly vbCritical+}(adhVerifyLinksstrDataDatabase6strSampleTableadhVerifyLinksErrd varReturn`DstrDBDir#strMsgG&DB\ varFileNametdfTableDefmintI\ intNumTablesIX strFilterӥlngFlags adhVerifyLinksDonemChrK~(adhAddFilterItem(adhOFN_HIDEREADONLYXO(adhOFN_NOCHANGEDIR(adhCommonFileOpenSaveOpenFileFilter;Flagso DialogTitle߄IsNull (adhTrimNullCount0vSysCmdGacSysCmdInitMeterm!Connect\ RefreshLinkntacSysCmdUpdateMeter acSysCmdRemoveMeter basCommonFile(!tagOPENFILENAMEy lStructSize/r hWndOwner hInstance strCustomFilterژnMaxCustFilter` NFilterIndexcstrFile XnMaxFile strFileTitle nMaxFileTitleym strInitialDir/(strTitle nFileOffsetInFileExtension9 strDefExtHA lCustData'5lpfnHooklpTemplateNamet(adh_apiGetOpenFileNameHofn) comdlg32.dll?(adh_apiGetSaveFileName(CommDlgExtendedErrors(adhOFN_READONLY(adhOFN_OVERWRITEPROMPT(adhOFN_SHOWHELPی(adhOFN_NOVALIDATE(adhOFN_ALLOWMULTISELECTJ(adhOFN_EXTENSIONDIFFERENTf4(adhOFN_PATHMUSTEXISTV(adhOFN_FILEMUSTEXISTF(adhOFN_CREATEPROMPT(adhOFN_SHAREAWAREi(adhOFN_NOREADONLYRETURN2(adhOFN_NOTESTFILECREATE;(adhOFN_NONETWORKBUTTON(adhOFN_NOLONGNAMES.W(adhOFN_EXPLORERz(adhOFN_NODEREFERENCELINKSX(adhOFN_LONGNAMES InitialDir1 FilterIndex˟ DefaultExtyFileNamej strFilenameefResult IsMissing Application* hWndAccessAppstrDescriptiondvarItem vbNullCharYstrItemintPosr basAutoExecH(AutoExec AutoExecErru AutoExecDone1DoCmdƧ Hourglassb Form_splashg Form_Open-CanceltempRendsub: ExitAccessis RunCommand` acCmdExitCommand1_ClickVrst RecordsetrstCodesqryNew{)QueryDeftblNew[fldNewField3TextlinestrSQLF strCriteriaI ClinicCode[ClinicIDăTestCode%TestNameTypeTest< TestResultCollectionD(("\M@ (`1D6 +,+.\$+(+*\$+$+&\$(("\M@ (`1<6 3,-*#.*#lD*#|.*#x/*1X2|x('%'%'%lXp l=0t$.t 0k.,t 40k,{ t 0:l:%t 0 01l D2`1@)l5 3C@l@3?8M@ 4 x 0lPF%:%x (0lJ lF%:%x (0 :5%:%x (0l  Root Entry$3VBA UU$VBAProject UU$VBA UU$ b  !"$%&'()*+3-./012456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`acdefghjklmnopqrstuvwxyz{|}~ PROJECTvPROJECTwmAcessVBADataForms  UU asCommonFilebasAutoExecbasAutoExecForm_splashForm_splashͬ|*Detaild Label0h Command1d Label2mtxtCntsplash 0CB0  !"#$%&'()*+,-./0123456789:;<=>?ABCEFGHIJKLMNOPQRSTUVWXYZ[\^_`abcdfK[v1ghijklmnprstuwxyz{|}~PropData%PropDataCopyBlobCopyTypeInfoCopy0 UUP/5Blob PropDataTypeInfo1r`nrU T(`0&$A` 8`!90&&/0` Yy00/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 GetOpenFileNxME<(<,<<< <<<<< <$<0<4BKWNEYMBVTZEZ_MVJYHEMWZKEFJK: 8EKWNEYMBVTZEZ_MVJYHEMWZKEFJK:i;HKWNEYMBVTZEZ_MVJYHEMWZKEFJK: HKKWNEYMBVTZEZ_MVJYHEMWZKEFJK:#n__SRP_3@__SRP_4 D@__SRP_5K[v1 @ @ @]__SRP_6et__SRP_7og__SRP_8 d__SRP_9q_VBA_PROJECTdir?__SRP_0__SRP_1m__SRP_2  ,;0* pHd paml1 @8= Vh 0@0@ J< rstdole>stdole f%\*\G{00020430-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`braryHVBIDE> VBIDE\\E157\3CN).VBA\6E6EXT.OLB/Visual Basic for Applic]s Extensibilit`y 5.3+šh@basLinkedTabTGasLinkQ@dT@bBsBKWNEYMBVTZEZ_MVJYHEMWZKEFJK28AKWNMYMPV@Z@Z_VJYHM@ Z EFKB@1B8W+%@΁,q0b!Bf3G*2Cmm@Zni21E1ES1-` hExecGAuxo &x`2c0HH00)" 0fForm_splashF /r/_Jp/KhKKS/0",(IbV(# hfrU~~~~~u    strTableam  *\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:\ProgK[ram Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB#Microsoft Visual Basic for Applications Extensibility 5.3 00@ h8BKWNEYMBVTZEZ_MVJYHEMWZKEFJK0540c8302fbasLinkedTablesbW+8EKWNEYMBVTZEZ_MVJYHEMWZKEFJK0740c8302f~basCommonFile`-8HKWNEYMBVTZEZ_MVJYHEMWZKEFJK0840c8302fbasAutoExecf0) 8KKWNEYMBVTZEZ_MVJYHEMWZKEFJK0940c8302fForm_splashHShH0////KAccessDelseGend^Goto_IfyLoopThenVBAWin16~Win32MacVBA6#paml1DAObasLinkedTablesd _Evaluate CheckLinkZstrTablervarRet CurrentDbS TableDefs%iFields7ErroGetDBDir GetDBDirErr dbCurrent= strDbName strProcNameƣRight UCase5  GetDBDirDoneMsgBoxRNumber- Description vbOKOnly vbCritical+}adhVerifyLinksstrDataDatabase6strSampleTableadhVerifyLinksErrd varReturn`DstrDBDir#strMsgG&DB\ varFileNametdfTableDefmintI\ intNumTablesIX strFilterӥlngFlags adhVerifyLinksDonemChrK~adhAddFilterItemadhOFN_HIDEREADONLYXOadhOFN_NOCHANGEDIRadhCommonFileOpenSaveOpenFileFilter;Flagso DialogTitle߄IsNull adhTrimNullCount0vSysCmdGacSysCmdInitMeterm!Connect\ RefreshLinkntacSysCmdUpdateMeter acSysCmdRemoveMeter basCommonFiletagOPENFILENAMEy lStructSize/r hWndOwner hInstance strCustomFilterژnMaxCustFilter` NFilterIndexcstrFile XnMaxFile strFileTitle nMaxFileTitleym strInitialDir/(strTitle nFileOffsetInFileExtension9 strDefExtHA lCustData'5lpfnHooklpTemplateNametadh_apiGetOpenFileNameHofn) comdlg32.dll?adh_apiGetSaveFileNameCommDlgExtendedErrorsadhOFN_READONLYadhOFN_OVERWRITEPROMPTadhOFN_SHOWHELPیadhOFN_NOVALIDATEadhOFN_ALLOWMULTISELECTJadhOFN_EXTENSIONDIFFERENTf4adhOFN_PATHMUSTEXISTVadhOFN_FILEMUSTEXISTFadhOFN_CREATEPROMPTadhOFN_SHAREAWAREiadhOFN_NOREADONLYRETURN2adhOFN_NOTESTFILECREATE;adhOFN_NONETWORKBUTTONadhOFN_NOLONGNAMES.WadhOFN_EXPLORERzadhOFN_NODEREFERENCELINKSXadhOFN_LONGNAMES InitialDir1 FilterIndex˟ DefaultExtyFileNamej strFilenameefResult IsMissing Application* hWndAccessAppstrDescriptiondvarItem vbNullCharYstrItemintPosr basAutoExecHAutoExec AutoExecErru AutoExecDone1DoCmdƧ Hourglassb Form_splashg Form_Open-CanceltempRendsub: ExitAccessis RunCommand` acCmdExitCommand1_ClickVrst RecordsetrstCodesqK[v1 @ryNew{)QueryDeftblNew[fldNewField3TextlinestrSQLF strCriteriaI ClinicCode[ClinicIDăTestCode%TestNameTypeTest< TestResultCollectionDate AmendedResult cnt_records?cnt_totrecords cnt_personsd cnt_filesSTempFileV cnt_tableswp cnt_amendedu strInputFilePatID^ LastName FirstName ResultComment3dobresponseDOSTempҍCreateTableDefj CreateFielddbText dbDate= OpenRecordset| FileSearchD NewSearchfLookInPSearchSubFoldersExecuteY FoundFilesConvertUnixFileEOFParseBOFy MoveFirstNraw_codeK=IsDate2AddNewa clinic_code- chart_numberSresultur service_date status_flag IsEmpty  last_name first_name?UpdatetxtCntRepaintKillRefreshCreateQueryDefzNvbLfT%RecordsAffectedP vbInformationninstringYsectionG component"cnt+position position2jUnixFilerDOSFileEndValue& StartValue9 OutPutTxtstdole`VBIDEAFormDetail2Label0,Command1Label2,ClickItemz _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_MidpValueK_B_var_clinic_codeCollect_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_dobA _B_str_Chrm#_B_var_cnt_amended _B_var_ifPthernj _B_var_GoTo8<jumpoutX9start _B_var_EndFcoolectiondatePx  H $d__SRP_9q_VBA_PROJECT 3h#Sh/|*/xME [LS S<N 6C:? :kD:t@`16 {Al*#B*#l*#|C*#xl*#dD*#`l*#\E*#Xl*#TF*#PG*#Ll*#HH*1X2|xd`\XTPLH lXF%:I%p Ql'%l tJp D $=C:? :kD:t@`16 `Kl*#L*#l*#|M*#xN*#dl*#`O*#\G*#Xl*#TP*1X2|xd`\XT lXF%:I%p Ql'%l tJC:? :kD:tQ`16 !RS*#T*#l*1X2 lXF%:I%p Ql'%l tJ`hl!  pl l h (#  U  U V1 ( U  Ul XJ'D'd'@Wl`#*F:Xk.D>F:Yk0Dt8(:Zk2D:[:\lih 2)lh6.8(dD8 @bpdP@0<4tLHTXh `8DP\lpx@d&|xd`\XTPLHlh8(dDW8.pjph kju khph<(4khl MT@$ ($| U464$p kjpjkhpfpj kj# kfpfx(4kfl MT@$ ($^ U1(kfl M@ (| VF]16 4$ kjpj kfDTl/8(bl0 4$L. ] ]  %, h1lhFP @ U@0Upf6@0pd kf' kf .kfD@hMP@0 (0`1`6@0 l`] kfpd''@kdhMP@0 (0`1h6@01lhFP @ U@0Upf6@0l== :P^l/\L0bl`h@08D@8D@d @` @\ @X @T @P @L @H @8 @( @ @ @ @ @ @ @ @  @  @t d @T XD @\ @L < x  l H0T @D X4 @$ @ @ @ @ p @ @ @ @ (`K[(x@ l PpP @@ @0 @    pTx"   0 PX ` px    Bx  & 8" @ L' :H .$ , 2 ( J$ 8 ,0 J 0 68 Pp $& H& 0(' (& @& X& p& & & % & & &    ( HPX @` $   Z`h p  x*      % >(.h* *  X%:02 (@ * < :P ,$  * $0 @X   $ $   ( $H $p 0 0 * H( p x   * P  ( 8 @ (`      .  Bp B H (,h  *    T T@T $ :TX   TN8  TT\' H L`3 (8@$P  : 0     0 @X hx % %%%   X' h'p'x'  0H P` h  (X0   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$$@(xpruns link codeOn Error GoTo ExitAccess]`]x$'  KT  B@' quits accessSH Error# !2:  !4 6 8 (A@0n jumps around quittng accesso4Program loaded into same directory as "cdem_dta.mdb"&PAML files downloaded with SSH programorma+download uses olyp@ssh.paml.com as web hosttermin2Files 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 Rs051Dim cnt_amended As IntegerDProgram 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"](]Xpatient 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 Dunk'"'clinic_code put on each appended record;response = ConvertUnixFile(.FoundFiles(cnt_files), DOSTemp) namin 87d2 Open file.#===================================5Creates an output table name (eg., "tblLabs050501_1")3these need to be manually erased or they accumulatetblLabs 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@<optionaldob V7R5B@<optionalA.Fields.Append .CreateField("amended", dbText) 'optionalq  H! K[v1@?58P8P8PB@ @ H%X. #===================================Isearches for new downloaded labcorps lab files in DEMS directory or below !ZC@\.FileName = "rs043804.200" $*.*9#eg.rs112233.365$ 9^9`C@b7b 85d!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  $'Fcnt_persons = cnt_persons + 13MsgBox "Name: " & PatID & " " & LastName & Chr$(10)C  $j $j $j  $'Jdob in yyyymmdd formatOBRKT  $j $j $j  $'. .$/ .$/ .$'.OBXKT  $j $j $j  $'(  $j $j $j  $',--------------Eruns match program to return the CDEMS raw code from the lab raw code0SELECT tlkpCrosswalk.raw_code FROM tlkpCrosswalk" WHERE (((tlkpCrosswalk.lab_code)=' ('));'  H%X. !l !hA"is this lab raw_code in Crosswalk? B@n "p'*)MsgBox "good record " & rstCodes!raw_coded` na'*kH *na .$r B@t " )v =========== B B )xd blank )xk  =========== , )z * )p . )|c )~ =========== D$ Dmissing )d D )k  =========== F$ Fmissing )d F )kp  =========== J$ J 1/11/1111 )Jd $ J$/ J$/ J$X )Jk  =========== B@ 2 '23lab results tracked reportedkX 4 '44total labs reportedS( n 4' B@ V Close file. 8steps through filesdThere were no files found.A@0kpqh H!B@ 2)there were no labs being tracked returnedA@0|k===============================:data now in me.tblLabsXX/xx/xx_x - but has no clinic codesEthis 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<************************************************************+1Files 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 componentreturn the positionInput! 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  '  $|$ZG  'jfind the col of the desired "^" ''  a  '  $^$Z  $|$ ZG  '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'kVVok'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 DOSTempx%cnt_amended = 0%XH%&dk , alt 84460crosswalk entries in lab_codes ha1c 83036.z1ldl 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! .$rd&&k&F7/28/03 includes error checking for missing dates and notes in resultsH& ,commentGjF:this jumps around comment records eg.= \.br\comments: \...0(9Attribute VB_Name = "Form_splash" Bas0{BC95C07C-179E-11D5-88B3-00AA002AB2F7} |@GlobalSpacFalse dCreataDblTru Predecla Id"Expose_Tem܀teDerivCustomizD$Option Comp@ D3T  dGA2ej va rIdVariTPle! ijSQLlXya`Qnic70/ cpicB*;@ A5bB*AP,9}ID'Locam'?gT.[ O Type0qf*#Colxp!>AD^/q cnxt_r)Q$t ot/+perso / MR.#?b'G'w-Of-Line Unix chr(p10) kP^3)uconv0 /z anAq )In$ 3S'p"KidqPifi !P at%Last?!3!FiBGA0 Boole^ 'if-sicsiy Umqdq dobgghp~$RDOS!}6?= #*(83 , "*"ĥSet K= Cur-Q^DХ('= WA&Jx(z'@ 'TxP(dupsible ac*8= 1rp(&moItth0ghme`ѝtqɕ'agnBNnZ"B e=CS'ڤ" q !0tЁfrUNIX2GPd l rx kiC_Uunk"UT…ap 2s /a "~1ocha0t1 `0' `" ORecords etп%'searches fordownloBa  lab ps f`ks in DEMS dir{ory  below nklica: 'leSb  .xc +leN(@"rs043804.200"EzCtID & "*.*" 'eg.rs1122@33.365L ookIn` GetDBDir(e\.SubFoldersTrue%ExecutCIf .() > 0 ThLen F cnt_$= 1 Toounda(s.C@tc'MsgBox "@. `&`J'`}ponse@ConvertUnix (.F (), DOSTemp'*6@IA parsing routine:#Ń^R b$ As #1 '  @Do WhM Not EOF(1) ' :p until AofR"L #1, Fe Read binvariaSelZ CaA -Left(, 3G  ep"PIDbWPatW= Midh P*e2, + (m3b- s-L`Dh[5X2) o3SFZe,. on6o, 3'0p>33P9} :b9Ff& Chr$(10e97*, 83g8b'`[Bymmdd^maH+OBREWCol1`z + w4 3 /9+{ /"b`0,j >, 2_"Xaq Test?/?/ BIsI~(L4- .xAddз![2c_code] = Clinic"Ch '=If Len(PatID) > 0 ThenVrst![chart_num8ber=3Else,M"blank"Ond If vTestResult) < 18yxruPxGoTo jumpouto'awƄType) {IsDate(Collection)}service_dBDOBDstatus_flagA*"cԓIsEmpty(LastNam`e) Or=ecl@_n%missing 0gbF |Fi, ( 3fa c;_[ ?!ǭGA(!dob&Ab`?1/1A11@I C"zMid(` , 5, 2) & "/"7_s#% &\ft 4)>)* *s .Upcnt_records+ 1 'lab s trackedported/ Ec/! totK'(al @su K[ @ Ca8se [k!SetxtCntKMe.Repainfdg:0LoopClzo #file.'Kill DOSTem Next s 'stephrough B{Msg Box "preH we@no found.0 With DB.TableDefsp fP P9qg}UthU"be0XH"@turned89Exit Sub? . .ǖ 'P,a now in me.tblLabsXX/xx _x - but hasP c2 c@sthis szQlsaH a+2  uAe'st=f& A strInputFPy$"[ 1CDD_ts!]#CSQLAUP DATE Demo INNER JOIN *$H`J ON ($.  ) AND7vpe w.v) SET/ 9P t].ۯ,o #` ._S,2$" WHERE (((n)='unk0'));Set qryNew#2CrepQuery 3("", pd\.ExecutD 6s6/`'matches on zonly thC8staCun#sW= ''"' $ "'px()0' N) %le*[x $  : x) r GLMMLnevto apW V H retur1posiA]D@va=={$2@pa4Dthe n[#c#@find'6C jaMhDRB!9a00lumn 'C as v>CDim> \F 'holzcolAb1desir@_nth#1AA E2i]9C'",A?J)E Q= F1= 4#Do Until= Ot(F+ @If Midfo,af+, 1);9TaPLoopc*A^"2@ e#C gZ  2 _!`2hig! Or4#{` #c(2â &ConvertUnix(ANeDOSaG@'uKfu aுNs EOL p@Xthionlin`m Pq&-jwi1chs@s&HtsA^a2Text'  q`Valueq\StR1OutPutTxt O`j 0c` For MA#@$`{c#%EOF(1$_LT#1, E [# = (,?BQ &<nd= 0A'8x> 0%b)v=G) ,, (-;dQ1`wf#+ 4q,COeM If STFcClose  3 "okF6.h`|@GetOpenFileNameA<GetSaveFileNameAd(CommDlgExtendedErrorxRRLLMEP<8<<<X `D --`\ Inde%`@00hHl X@Pr680BPX @T @D @4 P($ P @ A@ % ( @  @ @ @  `5  * ,8 ,h 2 B    *  ,P , K[z87  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.mdbtblLab$:' varRet = adhInitAutoNum()'d8'k(  |$r' B@z S Error# !2:  !4 6 8 AutoExecA@0nxpih`Attribute VB_Name = "basAutoExec" ' From Access 97 Developer's HandbookLby Litwin, Getz 4 Gilbert. (Sybex)NCopyright 1997. All Rs Res@erved.' Option Compare Datae 'Use dorder for sng cA1isonsEExplicit FuncZ%t(L , ' Purpose: Do aRstartup dutie-F  DIn ^None Out Return value: nH HistoryJ Created 09/14/94 pel; Last @Modifi12/20/95ZA&On ErrgGoTo ]QDim r@# As Varia&nBjAva= adhVerifyLinks("cdem_dta.mdb", "tblLab"rIfThen@'IInitA$NumA)ĈTruOElsD FaFEnd If6D@UQBuNex9$SysCmd(acRemoveMeter5A Do.Hourgla@Y0C0 <p F , >( ,h :  < (08@ (Hp  68"=p" >      (  0  @  H X ` h #p 8x   *    8 :8 x  ,  ,  : : .P  6 : 4 :8 x       B . B( :p 8  * ,  ,P   , 4   *0 `,6  B  <  * ,8 ,h   :  > @ H X#h   $ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved.XP^^0^H^`^x^^^^^^^ ^8^P^h^^^^^p`]$]$]$]$]$0]$X]$]$]$0]$]$ ]$@X]$]$]$ ]$H]$]$p]$   !'-6 This is the entry point you'll use to call the common1 file open/save dialog. The parameters are listed below, and all are optional.$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved. In:@ Flags: one or more of the adhOFN_* constants, OR'd together.4 InitialDir: the directory in which to first look4 Filter: a set of file filters, set up by calling) AddFilterItem. See examples.8 FilterIndex: 1-based integer indicating which filter5 set to use, by default (1 if unspecified)? DefaultExt: Extension to use if the user doesn't enter one.& Only useful on file saves.7 FileName: Default value for the file name text box.& DialogTitle: Title for the dialog.3 OpenFile: Boolean(True=Open File/False=Save As) Out:6 Return Value: Either Null or the selected filename]]0]H]`! Give the dialog a caption title. $G'j f$G'fj $G'j h$G'hj $G'j $G'j j$G'jj d$G'dj0 Allocate string space for the returned strings. $\$'$\'7 Set up the data structure before you call the function  9 !9 f9T 9 9 9 K[v?@?58P8P8P9 9 j9 h9h 9 L91 Didn't think most people would want to deal with these options.9$\999q1 This will pass the desired data structure to the3 Windows API, which will in turn it uses to display the Open/Save As Dialog. d $'dH $'k04 The function call filled in the strFileTitle member4 of the structure. You'll have to write special code' to retrieve that if you're interested. 0 You might care to check the Flags member of the4 structure to get information about the chosen file.. In this example, if you bothered to pass in a4 value for Flags, we'll fill it in with the outgoing Flags value. h$G !h'hj !$n'bd0'bk ix' Tack a new chunk onto the file filter.< That is, take the old value, stick onto it the description,3 (like "Databases"), a null character, the skeleton1 (like "*.mdb;*.mda") and a final null character.$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved. In:& strFilter: existing file filter- strDescription: new filter description varItem: new filter Out:$ Return value: new file filter $G*.*'j T    '\iH5 Trims the Null from a string returned by an API call$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved. In:4 strItem: string that contains null terminator Out:8 Return value: same string without null terminator]x  '    $'ndx 'nkhi`XAttribute VB_Name = "basCommonFi@le" ' From Access 97 Developer's HandbookLby Litwin, Getz 4 Gilbert. (@Sybex)NCopyright 1997. All Rs Reserved.' Option pare PDataeExplicit Type tagOPENFILENAME  lStructSize A@s LonghWndOwner Instancэstrt*i$ CustomnMaxCN IndexD8C7'PeTitl InitialDiBCM7Flags,OffsetAIntegerD\Extensvc!Def lOAH.`lpfnH@TemplateEEnd AADeclFuncšadh_apbiOpe+Lib "comdlg32.dll" _@4Alias "L A" (Xofn$ )Boolean Savew#I C6lmDlgb3dedErrory (0 Pu.b@p@tf 'OFN_READONDLY&H1sOVERWRITE@PROMPTB2SHIDEJ 4NOCHANGE(DIR 8SH@OWHELPb10u VALIDA TEALLOWMULTISE(LEC0EXTENSIONDIFF`N4PATHMUSTEXISC8UAK10uC) /VSHAW TNO>RET8URNTE|ST!NETWORKBUhTTO 2LONGAS" TEXPL`DFY P6CELINK# bT k  ݡnoy("Cal ByRef Variant,V@ 9@_nBSViç0[aultt[JYhogVgZUt2Jq^a' This  the entry point you'0uso ca!^k' f PHn/sY d .90e Љs dlistedurbw,oralP "' d$In: ': one 0aDmoof !adh_* cots, OR'd toger% q):directo`in w0hich`prst l2Q'A(: a Q@A,BupAVG1Add-tem. Se@ xa0esY D: 1-d P"Apdicat #q to 0%,q defa2 (1 if unspecifie !>spa-r2( &K[v1D H 8 f  J^  D 2,pj h b50e#= LefLt(B & "(256, 0), 4.tS%=7 S@NQ9datPJtQuXbe ealkfͳWp2/a.lSStructSize = Len(ofn) .hWndOwnerxApplication\Access*^strFilt^ 8N"Inde>xAKenamenMax9$ TitlJK(Dialog&Flagsk (DefExtÀ ault Init*DiHCur ' Didn't think most peopmwould wano deal withth@ese ops. .hInsthancAH0@,CustomCh-ing(255, 0IEAc F HlpfnHookEnd W( ' This,ll pass8e1sired `data @#u`re toA Windows API, whichCin turn it useEisplayED Open/Save As@WgtFCIf4e@'enCfReso3adh_a`piGetA NElsA3@HIfGe funco caaIfill@G:heGAmember,' ofSFP. You'@h>Swrit pecO codD'a-retrie $that if y0in{`ested)&%T h &'! mig ht`c8checkCfcg-'+?ge`nformA" aboube chosen "e$ ' ICAaKexam@e,D bo@K BN)avalu`.or Ke&.JAl"`go@cJNot IsMissi)L J. MCommon'D,dTs, tak` co 0,@Ii` A dg,c ' (li@"Dba`p"), @,a8rac nke0letoD&*.mdb;a")T a yan@nFrom A 97 Dnloper's H b@Eby Litwin, "z Gil~t. (Sybexd@' Copyrbo1997. A@Rs erveAx3'In:4v: exist+1r~:`1]5!; #OutRe]R66$66"*.*" 2- &-0-& vbA4CharXcx /6] =ByV@#u26o2pNA`nP) f$bs@\pbp#anro2dV'e''r 'd ''l~ ' @['1:` hc8 0 r'LeftD- 1^#+ &]Q'S ]@ cdem_dta.mdbtblLab$:DMQ+hbxME@`Bh tz a`Dd`F`7. A H\%`JL  MH o ch%`PF6 `RDe if`(@ther`T<ry:`V809/1xied %@`8z `xpose: Gets the red ly o@` @P h(L @H @8 @4 0 @ @ hx(p,680(Xh (dK[v1 @ @ @ @` @\ 'X @T (P @L @< @, @  @  pX(@H (z  ~Z680\ (   @ @ @ @ @ @ @ @ @ blntr t @d @T @D @ @> @8  V 4O P V` (|` 0 x h , sX( @$ (  @    * ,8 ,h 2  B    0 (( P *X , ,   $ ( <8 x <   8 : kP $p  B   > 8 8 *@ ,p ,     > H <X          ( 8@H PX`Bxh  B  8 @  >`  * , , 8 @ :P <  >  <0 p x            ,   ( 0 8 @  @H  ' 0   6 F8 g b Op  B-  6-H   ) @ ,  2'( ` (V:    L )X p x   6 !.)  0 :P 4      20 (h   $ $  *  ( 08$@PX `hpBxxK[v1 @ @ @ @ @ $ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved.)Use database order for string comparisons  Purpose:) Checks the Link for the named table.! Based on code from Ken Getz.$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved. In: strTable - table to check Out:6 Return Value - True if successful; False otherwise History:6 Created 09/13/94 pel; Last Modified 07/10/96 pel]`(2 Check for failure. If can't determine the name of4 the first field in the table, the link must be bad.  %%!' 'dp'k`iXx Purpose:7 Gets the directory of the currently open database.2 Based on code originally from Mike Gunderloy.$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved. In: None Out:8 Return Value - The name of the directory as a string History:6 Created 09/13/94 pel; Last Modified 12/20/95 pel"`]]]GetDBDir'( .$ $!'& &$ *\b & & $ '& &$ ,' .z" S Error# !2:  !4 6 8 (A@0.Hn@i8 Purpose:1 Check status of Links and relinks if broken.9 If broken, first try the current database directory.7 If that fails, present user with file open dialog.$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved. In:4 strDataDatabase - Name of backend data database6 strSampleTable - Name of a linked table to check Out:7 Return Value - True if successful; False otherwise History:6 Created 09/13/94 pel; Last Modified 12/20/95 pel@]]]]]]](]@]X]p]adhVerifyLinks'(% Verify Links using one sample table. >$'B B':Xk9 Get name of folder where application database is located$ 'D D <$ ~* Data database found in current directory. D <'Jd0 Let user find data database using common dialog The required file ' <' could not be found.'F F! You can use the next dialog box "to locate the file on your system. $Z $Z $Z'F F! If you cannot find this file or #are unsure what to do choose CANCEL'F F! at the next screen and call the 4local database administrator, or program developer:  $Z $Z'F F( Washington State Department of Health $Z'F F Diabetes Control Program $Z'F F (360) 236-3738'F F 6 8 (A@09 Display Open File dialog using the adhCommonFileOpenSave% function in the basCommonfile module TAccess (*.mdb)*.mdb$\'T ^ ^ `'V   d Tf VhLocate Data database filej$b'J J$l  User pressed Cancel. -You can't run database until you can locate ' <'.'F F 6 8 (A@0K[v1':Xdx J$n'Jk`kX0Rebuild Links. Check for number of tables first. .H H!!p'R tRelinking tables R$r'B Loop through all tables.4 Reattach those with nonzero-length Connect strings.'P L H!- If connect is blank, its not an Linked table L!v P 'P ;DATABASE= J L(v + The RefreshLink might fail if the new path ! isn't OK. So trap errors inline.h LB@x If one link bad, return False ':Xkk z P $r'B L':X  |$r'B z @ S  Error# !2:  !4 6 8 (A@0n8 X0 i( |Attribute VB_Name = "basLinkedTables" ' From Access 97 Developer's Han dbookLby Litwin,@ Getz 4 Gilbert. (Sybex)NCopyright 1997.@ All Rs Reserved.' Option Compare Datae 'Use dorder for sng c1isons GExp licitPub Func1heck}(!~ As S')Boolean > ' Purpose: C$s the,nkKnd Y`len' @Based sc ode fKen/FÃ, c E"In 0 Theı !_.E/#g5dnd@)E eikDBDir(bijcSiidirec?($c ly n&ko inal@blMike Gun loy?m0#' ?mc?mE=C+mNonfajN"&G(as a/jj12/2j5jfGoT~o"?OCnd~bdXAo DbҦProc  O@AcSe tiF= di#Do While$ao!#, 1)l"\= LeftLen)1`Loop%&s@tUC( DCd00Exit ttSel6 QOsAMsgBox "or#" &.Num~": 5Descri|, _ vbOKOn9+Critical,)XG3 Hk~adhVerifyO2S''(I @Samples Integer%L13bstatusKbreA^s pobrokeNnKZS, bt-`9)TATVy/c>m DBQwFQmp tdfintI5A1EsPF_ ?4  ln gFlagLonge9d]s ' Ds6iPX sC5G g@_HF\q@0abw;qa RI @U folwhe4apais locp~{pY(P  (3kb&&1^##3s")'"߶<{ OAP'=߂?Q k'yTRfi AusmdbSCa`q2" requu0dsV'pqK&)p"'@unot @fo.`&&uYouwa]an0\ nbyx w"pٳ t׵he file on your system." & Chr(10)$3) strMsg = & " If cannotnd thisrB& _ "are unsuwhat to do choose CANpCEL"r4next screen avcalJl{erlo @databa2a dminiaator, or program developer>:"c WashingtState Department of Health(Diabetes Control PU!(36236`-3738VrBoxs, vbOKOnly +Criti@M,cName +' Display Op`Fdialog us@BbadhCo0mmon Sav@œ' functi@Kin g ©modul c"@terAddI(g, "Access (*.mdXb)"@B"HlngFlagsOFN_HIDEREADONLYx Or NOCHANGEDIRKMvar@%eRCOG1@JM :=True, "C:= 0g+ 1G ";DATABAxSE=(Ik'+K[z87  U  \ D . 08BF:&f 9h! m(igh0|a06ife new pathisn9OK. So trap errors in e 1On Esume N{yq Re@3 " bad, r%7 <o;o;;s;A 7O 00Up e0.! P%w^ o` :Oxt/ & Remo>v# f1Exit F{_DSelq6CaPOX"0or#+.F!J& "1De ipA?l%c Re32) Y  ( 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$$8(xpruns link codeOn Error GoTo ExitAccess]`]x$'  KT  B@' quits accessSH Error# !2:  !4 6 8 (A@0n jumps around quittng accesso4Program loaded into same directory as "cdem_dta.mdb"&PAML files downloaded with SSH programorma+download uses olyp@ssh.paml.com as web hosttermin2Files 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 Rs051Dim cnt_amended As IntegerDProgram 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"](]Xpatient 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 Dunk'"'clinic_code put on each appended record;response = ConvertUnixFile(.FoundFiles(cnt_files), DOSTemp) namin 87d2 Open file.#===================================5Creates an output table name (eg., "tblLabs050501_1")3these need to be manually erased or they accumulatetblLabs 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@<optionaldob V7R5B@<optionalA.Fields.Append .CreateField("amended", dbText) 'optionalq  H!B@ K[v@ H%X. #===================================Isearches for new downloaded labcorps lab files in DEMS directory or below !ZC@\.FileName = "rs043804.200" $*.*9#eg.rs112233.365$ 9^9`C@b7b 85d!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  $'Fcnt_persons = cnt_persons + 13MsgBox "Name: " & PatID & " " & LastName & Chr$(10)C  $j $j $j  $'Jdob in yyyymmdd formatOBRKT  $j $j $j  $'. .$/ .$/ .$'.OBXKT  $j $j $j  $'(  $j $j $j  $',--------------Eruns match program to return the CDEMS raw code from the lab raw code0SELECT tlkpCrosswalk.raw_code FROM tlkpCrosswalk" WHERE (((tlkpCrosswalk.lab_code)=' ('));'  H%X. !l !hA"is this lab raw_code in Crosswalk? B@n "p'*)MsgBox "good record " & rstCodes!raw_coded` na'*kH *na .$r B@t " )v =========== B B )xd blank )xk  =========== , )z * )p . )|c )~ =========== D$ Dmissing )d D )k  =========== F$ Fmissing )d F )kp  =========== J$ J 1/11/1111 )Jd $ J$/ J$/ J$X )Jk  =========== B@ 2 '23lab results tracked reportedkX 4 '44total labs reportedS( n 4' B@ V Close file. 8steps through filesdThere were no files found.A@0kpqh H!B@ 2)there were no labs being tracked returnedA@0|k===============================:data now in me.tblLabsXX/xx/xx_x - but has no clinic codesEthis 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'));'  H%. K[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<************************************************************+1Files 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 componentreturn the positionInput! 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  '  $|$ZG  'jfind the col of the desired "^" ''  a  '  $^$Z  $|$ ZG  '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'kVVok'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 DOSTempx%cnt_amended = 0%XH% ,$\GjC:this jumps around comment records eg.= \.br\comments: \...&dk , alt 84460crosswalk entries in lab_codes ha1c 83036.z1ldl 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! .$rd&&k&F7/28/03 includes error checking for missing dates and notes in resultsH&9Attribute VB_Name = "Form_splash" Bas0{BC95C07C-179E-11D5-88B3-00AA002AB2F7} |@GlobalSpacFalse dCreataDblTru Predecla Id"Expose_Tem܀teDerivCustomizD$Option Comp@ D3T  dGA2ej va rIdVariTPle! ijSQLlXya`Qnic70/ cpicB*;@ A5bB*AP,9}ID'Locam'?gT.[ O Type0qf*#Colxp!>AD^/q cnxt_r)Q$t ot/+perso / MR.#?b'G'w-Of-Line Unix chr(p10) kP^3)uconv0 /z anAq )In$ 3S'p"KidqPifi !P at%Last?!3!FiBGA0 Boole^ 'if-sicsiy Umqdq dobgghp~$RDOS!}6?= #*(83 , "*"ĥSet K= Cur-Q^DХ('= WA&Jx(z'@ 'TxP(dupsible ac*8= 1rp(&moItth0ghme`ѝtqɕ'agnBNnZ"B e=CS'ڤ" q !0tЁfrUNIX2GPd l rx kiC_Uunk"UT…ap 2s /a "~1ocha0t1 `0' `" ORecords etп%'searches fordownloBa  lab ps f`ks in DEMS dir{ory  below nklica: 'leSb  .xc +leN(@"rs043804.200"EzCtID & "*.*" 'eg.rs1122@33.365L ookIn` GetDBDir(e\.SubFoldersTrue%ExecutCIf .() > 0 ThLen F cnt_$= 1 Toounda(s.C@tc'MsgBox "@. `&`J'`}ponse@ConvertUnix (.F (), DOSTemp'*6@IA parsing routine:#Ń^R b$ As #1 '  @Do WhM Not EOF(1) ' :p until AofR"L #1, Fe Read binvariaSelZ CaA -Left(, 3G  ep"PIDbWPatW= Midh P*e2, + (m3b- s-L`Dh[5X2) o3SFZe,. on6o, 3'0p>33P9} :b9Ff& Chr$(10e97*, 83g8b'`[Bymmdd^maH+OBREWCol1`z + w4 3 /9+{ /"b`0,j >, 2_"Xaq Test?/?/ BIsI(L)- .Add'![ode] = C@linicC d '=If Len(PatID) > 0` ThenVrst![chart_number=3Else,M"blank"O`nd IfvTestResult) < 18y}xruPxGoTo jumpxouto'aw_cĄType) {IsDate(CollecPtion)}service_dBDOBDstatus_flagA*"cԓIsEmpty(LastName) Or=c2l@_n%missing 0gbF Fi, ( 3fa c;_[ ?!GA(!dob&AbG`?1/1A1^1@I C"zMid(` , 5, 2) & "/"7_s# &\ft 4))* *s .Upcnt_re`cords+ 1 'lab s trackedportted/ Ec/! t\otK'al @suCase [k!SetxtCntK[KMe.RepXainfdg:LoopClo= #file.'Kill DOSTem Next s 'stephrough B{MsgBox "pre $we@no f`ound.0  With DB.TableDefsp fP? P9qg}UthgU"be0XH"t urned89Exit Sub . .ǖ 'P,a now in me.tblLabsXX/xx _x - b@ut hasP Rc2 c|st`his szQlfsaH a+  uAe'stf& A strInputFP$"[ 1CDD_Ցts!]CSQLAUPDATE Demo INNER JOIN *$HA`J ON ($.o  )p AND7vpe w.v) SE~T/ 9P ].ۯ,o #` .S/,2$" WHERE (((n)='unk'));Set qryNew2CrepQuery 3("", pd\.ExexcutD 6s6/`'matches on zonly thCɥ8staCun#W= ''"' $ "'px()0' N) ӹ%le*[x $  : x) r GLMMLnevto appeIof dta^`&!o!R!II10 @INSERT HTVOH(,+, r4,"t@1?s3ϱ4DLECT[r=o#te FROM j O & strInputFile  Set qryNew = DB.CreateQueryDe f("",SQ L)f^.Execut'*8VMsgBox "s opened: "Application.Search@.Found-. C t)Chr(10) 3) _& "Total p$ent records Lin f: 9cnt_persons&$+&Number @of lab&sultsport](tot9& ULab%Qmeasuremq\setS)v(bLf xRqapded to CDEMS,taxbleB)AYt Affec1, vbInform_AS End SubPriv@ Funch Parse(ining As Str@qInteger, componA5 D)AVarianto'Steps thro`ugh ai lookA)@ chara@.r@ "|" (Y$124'when@eunF(AGs fd equals FsC-"artGromat po*inr !^"сz$(9 W V H retur1posiA]Dw@va==$2@pa4Dthe n[#c#@find'6C jaMhDRB!9a0lumn 'C as vÉ>CDim \F 'ho"lzcolb1desir@_nth#1AA E2i]9C'",AJ)E Q= 1= 4#Do Until= Ot(F+ If (Midfo,f+, 1);9TaPLoopc*A^"2@ e#C Z  2 _!`2higy! Or4#` o#c(2â  &ConvertUnix(ANeDOSaG@'uKu aுNs EOL p@thionlin`ܡ Pq-jdwi1chs@s&7HtsA^2Text' q`Valueq\StR1Out@PutTxt  O`j 0c For MA#@$o`{c#%EOF(1$_LTp#1, E # = (,BQ' &<nd= 0A'8> 0%b)v=) ,, (-;dQ1`wf#+ 4q,CwOeM ?ABCEFGHIJKLMNOPQRSTUVWXYZ[\^_`abcdfghijklmnprstuwxyz{|}~`nrU T(`0&$A` 8`!90&&/0` Yy00/nID="{EE12DDF4-2F97-11D7-A2B2-00E01884A4BE}" Module=basLinkedTables Module=basCommonFile Module=basAutoExec DocClass=Form_splash/&H00000000 Name="paml1" HelpContextID="0" VersionCompatible32="393222000" CMG="CDCF2071203A243A243A243A24" DPB="9A9877484549454945" GC="67658A9F9AA166A266A299" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [K[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 basLinkedTablesbasLinkedTablesbasCommonFilebBKWNEYMBVTZEZ_MVJYHEMWZKEFJK: `O:EKWNEYMBVTZEZ_MVJYHEMWZKEFJK:A<HKWNEYMBVTZEZ_MVJYHEMWZKEFJK:8?KKWNEYMBVTZEZ_MVJYHEMWZKEFJK:oy__SRP_7og__SRP_8 d__SRP_9q_VBA_PROJECTdirh__SRP_0__SRP_1m__SRP_2  DirDataPropDataCmdbars UU UUModules(" UU UU0 UUP/5Blob PropDataTypeInforPropData%PropDataCopyBlobCopyTypeInfoCopyasCommonFilebasAutoExecbasAutoExecForm_splashForm_splashͬ|*Detaild Label0h Command1d Label2mtxtCntsplash 0CB0Scripts'* UU UUPropDataK[Databases).+ UU UU0-, UU UUBlob DirDataCustomGroups/ UU UUDataAccessPages  UU UU__SRP_3@__SRP_4 D@__SRP_5]__SRP_6etd0* pHd paml1 @8= Vh @`? J< DAO>DAO( *\G{00025E01-0C  0046}#5.0#0#C:\PROGRAM FILES\C OMMON MICROSOFT SHARED\w350.DLL#Microsoft 3.51 Object Library HUstdole>fstdole^f\^043+[W-^2^WINDOWS\SYSTEM\StdOle2.Tlb#OLE Automation/VBIDE> VBIDECCE157C5.3Program Files\CommonHSharedP\VBA6E6EXT.OLBHRVisual Basic for Applic1s Extensibility. +h@basLinkedTab%GasL ink_d T@bbsBKWNEYMBVTZEZ_MVJYHEMWZKEFJK28AKWNQMYMPV@Z@Z_VJPYHM@ ZQ EFKB@1,'%΁,0b*!B+Bfw3UXG*2CQmm@nik21E1E1.` RExecGQAu@bo &x`2c0HH0)0 fForm_splashF /r/_JVp/KhKK'w^b"@,(IbrU~~~~~u    strTableam  *\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\2% UU UUPropData DirData$0dReports UU UU0! UU UUPropData 1 &# UU UUPropData K[M_MeAbasAutoExecbasCommonFile"basLinkedTablesijMSysDb 2CB0 1CB0 0CB00=Babc5e ghk iXj$k g%@"[Event Procedure] Arial8 h4Lexmark 3200 Series ColorFine` odXX  Lexmark 3200 Series ColorFineLPT1:LPT1:P/winspoolLexmark 3200 Series ColorFineLPT1:d2hghMS Sans Serifm45`@ Detaild25U`axbrc+d Label0*PAML - DEMS Interface Arialh1U`abcCommand1Command1"[Event Procedure]8( ʦʦʦʦʦʦʦʦʦʦʦʦ                                                                     1  @ @ @ @ @ @ @      !"#$%&'()*+,-./@ A!B"C#D$E%F&G'H(I)J*K+L,M-N.O/P0Q1R2S3T4U5V6We        3  z87  U  X@2 ' tblDemotblLabs8/28/2002_2d@2OC  tblDemotblLabs8/28/2002_2L@2OC  tblLabs8/28/2002_2.clinic_code[tblDemo].[clinic_code]rM w tblLabs8/28/2002_2.chart_number[tblDemo].[chart_number]uO w tblLabs8/28/2002_2555  tblDemo   G    GLVALP @ 1 1 1 1 1 1((([tblLabs8/28/2002_2].clinic_code)="unk"))tblDemo.last_name = [tblLabs8/28/2002_2].last_nametblDemo.dob = [tblLabs8/28/2002_2].dob LVAL8p   @  kf^JkWLJkJomdQuQMLJkMd``dbSY^QLJk^Yb\QOmJL^QkOJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^Qk`kvkJMMQkkdL[QMmk`kvkJMQk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkhoQiv8JMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQOC:\DOCUMENTS AND SETTINGS\JACQUELYN GIANC:\DOCUMENTS AND SETTINGS\JACQUELYN GIANUNZIO\MY DOCUMENTS\DOH\CDEMS\DB FILES\TEST AREA\Cdem_dta.mdbC:\DOCUMENTS AND SETTINGS\JACQUELYN GIANUNZIO\MY DOCUMENTS\DOH\CDEMS\DB FILES\TEST AREA\Cdem_dta.mdbC:\DOCUMENTS AND SETTINGS\JACQUELYN GIANUNZIO\MY DOCUMENTS\DOH\CDEMS\DB FILES\TEST AREA\Cdem_dta.mdb Y N  55 Y ' Y  Y  Y eY Y  Y  Y Yclinic_codechart_numberraw_code resultservice_datestatus_flaglast_namefirst_namedob           tblDemotblLabs8/28/2002_2d@2OC  tblDemotblLabs8/28/2002_2L@2OC  tblLabs8/28/2002_2.clinic_code[tblDemo].[clinic_code]rM w tblLabs8/28/2002_2.chart_number[tblDemo].[chart_number]uO w tblLabs8/28/2002_2555  tblDemo   G    Gdv @  1 1 1 1 1 1 1 1 1AMvcP=*z @ -  } j C 0  m Z G p]I6#"! p]I6# Y  Y 4> ?  ?   ?   ?  ?  @<}b =jJoHf*Ì\E~1O9W/ C胟+0zR:U"9]zRpۮ˜*Ip ? T T<}b =jJoHf*Ì\E~1O9W/ C胟+0zR:U"9]zRpۮ˜*Ip T <}b =jJoHf*Ì\E~1O9W/ C胟+0zR:U"9]zRpۮ˜*Ip ?   >         ?  ? ? >    ? ? >   ? > <}b =jJoHf*Ì\E~1O9W/ C胟+0zR:U"9]zRpۮ˜*Ip ? LVAL;8D7P*7 {P*p  ?%7 P*7 (7 (&7   d7 7 7 07 H7 `7 h7 p7 7 7 7 7 7 7 7 7 (7 07 H7 X7 p7 7 7 7 7 d7 7 7 07 H7 `7 h7 p7 7 7 7 7 7 7 7 7 (7 07 H7 X7 p7 7 7 7 7 d7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 d7 7 7 07 H7 `7 h7 p7 7 7 7 7 7 7 7 7 (7 07 H7 X7 p7 7 7 7 7   d  d  d  d     d  d   d   d   d            d  d      d  d  ȅ Patient_ID tblDemoclinic_codechart_numberlast_namefirst_namedobsexethnicityprimary_languageaddress1address2city statezip phone1 phone2pcpinsurance _datestart_dateend_datelast_update_date migranthomeless other@ 7 7  7 P 7 0 7 $h7 7 4/@64xzz@H 7 p3P ` 7 p3P x 7 p3P  7 p3P  7 p3P  7 p3P  7 p3P  7 p3P  7 p3P  7 p3P 0 7 p3P H 7 p3P X 7 p3P h 7 p3P p 7 p3P  7 p3P  7 p3P  7 p3P  7 p3P  7 p3P  7 p3P  7 p3P  7 p3P ( 7 p3P @ 7 p3PPatient_IDclinic_codechart_numberlast_namefirst_namedobsexethnicityprimary_languageaddress1address2city statezip phone1 phone2pcpinsurance _datestart_dateend_datelast_update_date migranthomeless otherC:\DOCUMENTS AND SETTINGS\JACQUELYN GIANUNZIO\MY DOCUMENTS\DOH\CGDEMS\DB FILES\TEST AREA\Cdem_dta.mdb tblDemo tblDemo X7 p7  x7 7  7 7  7 7  7 7 7 7  7 7  7 87  @7 h7  p7 7  7 7  7 7  7 7  7 7  7 7  7 7  7 (7  07 H7  P7 `7  h7 7  7 7  7 7  7 7  7 7  7 7 Patient_IDX7 clinic_codex7 chart_number7 last_name7 first_name7 dob7 sex7 ethnicity 7 primary_language@7 address1p7 address27 city7 state7 zip7 phone17 phone27 pcp 7 insurance07 _dateP7 start_dateh7 end_date7 last_update_date7 migrant7 homeless7 other7  7 @'7 !7  7 87 7 7 p7 7 (7 7 (7 7 (7 7 (7 7 (7 7 (7 7 (7 7 (7 7 (7 7 (7 7 (7 7 (7 7 (7 7 (7 7 (7 7 (7 7 (7 7 (7 7 (7 7 (7 7 (7 7 (7 7 (7 7 (7 7 (7 7 (7 7 (7 7 (7 7 (7 7 (7 7 h7 `*7 "7 #P7 h7 `7 h7  7 h7  7 h7  7 h7  P7 h7YLVALi  7 h7  7 h7  7 h7  7 h7  7 h7  7 h7  7 h7  7 h7  7 h7  7 h7  7 h7  7 h7  P7 h7  P7 h7  P7 h7  P7 h7  7 h7  7 h7  7 h7  7 z  $7 $7 )7 $7 p3P7 7 (7 7 `7 7 7 7 7 7 7 7 @7 7 x7 7 7 7 7 7  7  7 X7 7 7 0 7 7 @ 7 7 P 7 87 ` 7 p7 p 7 7 7 7 7 7 7 P7 7 7 7 7 7 7 7 07 7 7  d(7  d`7  d7  d7 7  @7  dx7  d7  d7  d 7  dX7  7  7  7  87  dp7  d7 7 7 P7 7  d7  d7  ȃ07 d8#7 @#7 H#7 P#7 X#7 `#7 h#7 p#7 x#7 #7 #7 #7 #7 #7 #7 #7 #7 #7 #7 #7 #7 #7 #7 #7 #7 7 (7 `7 7 7 7 @7 x7 7 7  7 X7 7 7 7 87 p7 7 7 7 P7 7 7 7 07 h7 C:\DOCUMENTS AND SETTINGS\JACQUELYN GIANUNZIO\MY DOCUMENTS\DOH\CGDEMS\DB FILES\TEST AREA\Cdem_dta.mdb tblDemo d8%7 P%7  dh%7  d%7 PrimaryKeyPatient_IDclinic_codechart_number%7 7 v )7 (7 h)7 x)7 7 @'7 @'7q @'7 @'7 @'7 @'7 @'7 @'7 @'7 @'7 @'7 @'7 @'7 @'7 @'7 @'7 @'7 @'7 @'7 @'7 @'7 @'7 @'7 @'7 @'7 @'7 @'7 @'7 @'7 @'7 )7  (7 )7 )7 H*7 (&7 C:\DOCUMENTS AND SETTINGS\JACQUELYN GIANUNZIO\MY DOCUMENTS\DOOH\CDEMS\DB FILES\TEST AREA\Cdem_dta.mdb tblDemoPrimaryKeyP7 (&7 )7 !7 )7 P7 @'7 )7 )7 )7 0*7 h7 LVAL D t  z @ -  } j C 0  m Z G               rmax@max@tlkpCrosswalkP@3tlkpCrosswalk```````FF:: 4max@max@tblLabs7/28/03_1@@@@@@MR28AllowZeroLengthRequired4clinic_code  6chart_number  .raw_code  * result  -service_date 4status_flag  0last_name  2first_name   dob MR2LRecordLocksODBCTimeoutMaxRecords  <MR2DescriptionB6 .Handles attached tablesMR2DescriptionH< 4Common file open/save codeMR2DescriptionD8 0Runs initialization codeMR20 Title AuthorCompany labcorp18 0Diabetes Control Project0 (Department of HealthMR2AccessVersion Build"Show Values Limit,Show Values in Indexed4Show Values in Non-Indexed*Show Values in RemoteAppTitleStartUpForm&StartUpShowDBWindow(StartUpShowStatusBarStartUpMenuBar$AllowShortcutMenusAllowFullMenus(AllowBuiltInToolbars&AllowToolbarChanges$AllowBreakIntoCode AllowSpecialKeysAppIcon,StartupShortcutMenuBar6Track Name AutoCorrect Info0Perform Name AutoCorrectCpgConversion 08.50       splash               LVAL @ @ @ @ @ @ @ @ 666666666 6 6 6 6666666666666$6% 6& 6' 6( 6) 6* 6+ 6, 6- 6. 6/ 60 61 6C 6D696:6;6<6667686=6>6?6@6A6B626364656666 66 6666!6"6#C &tblDemo tblLabs8/28/2002_2vc ~ ) }  N?eDwBdBDwBBDwBBDwBxBDwBԁBuuDwB0BDwBBDwB肗BDwB DBDwB BDwB BDwB XB DwB BDwBBDwBlBDwBȅBDwB$BNmax@max@tlkpCrosswalkP@3tlkpCrosswalk```````FF:: 4max@max@tblLabs7/28/03_1@@@@@@@@@@@ max@max@tblLabP@3tblLabDDDDDDD88,, max@max@tblDemoP@3tblDemoHHHHHHH::..  max@max@0Query1,,,,,,,,,,, (ax@)ax@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 @ !@ax@AccessLayout>4MR2KeepLocal Tv7zz:::::::8 @' @' @SysRel>.........., ' @' @Scripts>0000000000. ' @' @Reports>0000000000. ' @' @Modules>0000000000. ' @' @Forms>,,,,,,,,,,* a@a@DataAccessPages>@@@@@@@@@@> Z' @Z' @MSysRelationships?DDDDDDDDDDB Z' @L\M@MSysQueries?88888888886 Z' @L\M@MSysAC? ?  4? 4 +  {  g T A -}jVC0 lYE2 n[[[[  DRUr yo|hoن]Y)biTi<)7K9P]%ۑsH-*o$3kGUq_j]UE"  DRUr yo|hoن]Y)biTi<)7K9P]%ۑsH-*o$3kGUq_j]UE"IQtf޲2p   DRUr yo|hoن]Y)biTi<)7K9P]%ۑsH-*o$3kGUq_j]UE"IQtf޲2p   DRUr yo|hoن]Y)biTi<)7K9P]%ۑsH-*o$3kGUq_j]UE"IQtf޲2p  | |DRUr yo|hoن]Y)biTi<)7K9P]%ۑsH-*o$3kGUq_j]UE"IQtf޲2p | x xDRUr yo|hoن]Y)biTi<)7K9P]%ۑsH-*o$3kGUq_j]UE"IQtf޲2p x u uDRUr yo|hoن]Y)biTi<)7K9P]%ۑsH-*o$3kGUq_j]UE"IQtf޲2p u n nDRUr yo|hoن]Y)biTi<)7K9P]%ۑsH-*o$3kGUq_j]UE"IQtf޲2p n i iDRUr yo|hoن]Y)biTi<)7K9P]%ۑsH-*o$3kGUq_j]UE"IQtf޲2p i e eDRUr yo|hoن]Y)biTi<)7K9P]%ۑsH-*o$3kGUq_j]UE"IQtf޲2p e _ _DRUr yo|hoن]Y)biTi<)7K9P]%ۑsH-*o$3kGUq_j]UE"IQtf޲2p _ Z ZDRUr yo|hoن]Y)biTi<)7K9P]%ۑsH-*o$3kGUq_j]UE"IQtf޲2p Z V VDRUr yo|hoن]Y)biTi<)7K9P]%ۑsbasLinkedTablesbasLinkedTables!>ww _! iHММ"w4w! 0!POevThe expression you entered refers to an object that is closed or(wbasCommonFiles!>ww _! iHММ"w4w! 0!POevThe expression you entered refers to an object that is closed or(wbasAutoExeces!>ww _! iHММ"w4w! 0!POevThe expression you entered refers to an object that is closed or(w'^3LVALY;N @ @ @ @ @ @ @D _p G ?  @   H p      H p      ` ` ` ` ` ` ` H p       d  d  d  d   d  d clinic_code tblLabchart_numberraw_code resultservice_datestatus_flagtype_code     $  Pi_@ xzz@ H PM` PM PM  PM  PM  PM  PMclinic_codechart_numberraw_code resultservice_datestatus_flagtype_codeC:\DOCUMENTS AND SETTINGS\JACQUELYN GIANUNZIO\MY DOCUMENTS\DOH\CGDEMS\DB FILES\TEST AREA\Cdem_dta.mdb tblLab tblLab X p  x               8 clinic_codeX chart_numberx raw_code result service_date status_flag type_code        8 X x   @  @  @  @  @  @  @  @  @  @  @  @  @  @  @  @  @  @  @  @  @  @  @  @  @  @  @  @  @  @  (               P          z    X  PM  @  x         X   d  d@  dx  d   d   dX D        @ x     X  C:\DOCUMENTS AND SETTINGS\JACQUELYN GIANUNZIO\MY DOCUMENTS\DOH\CGDEMS\DB FILES\TEST AREA\Cdem_dta.mdb tblLab d  d  d  d   d(  d@  d`  d type_codePrimaryKeylab_typelab_referallab_dateclinic_codechart_numberK{62A57795-CF9B-11D6-8967-00055DDA17C2}K{62A5778E-CF9B-11D6-8967-00055DDA17C2}  v       q                             H  @ X 8   C:\DOCUMENTS AND SETTINGS\JACQUELYN GIANUNZIO\MY DOCUMENTS\DOOH\CDEMS\DB FILES\TEST AREA\Cdem_dta.mdb tblLabPrimaryKeyP     P  X ( X   LVALND   p  ?P  0   @   8    8        8  d  d  d  d raw_codetlkpCrosswalktype_codeworking_codelab_code      $ P j_@zzz@` N x N  N  Nraw_codetype_codeworking_codelab_codeC:\DOCUMENTS AND SETTINGS\JACQUELYN GIANUNZIO\MY DOCUMENTS\DOH\CGDEMS\DB FILES\TEST AREA\Cdem_dta.mdbtlkpCrosswalktlkpCrosswalk           ( raw_code type_code working_code lab_code    0  P 8 H X h x 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0     x          z     NP  0 h    d  d0  dh  d 8  0 h   C:\DOCUMENTS AND SETTINGS\JACQUELYN GIANUNZIO\MY DOCUMENTS\DOH\CGDEMS\DB FILES\TEST AREA\Cdem_dta.mdbtlkpCrosswalk d  d   d8 secondaryPrimaryKeylab_codeX  v P H  8   q                               0     C:\DOCUMENTS AND SETTINGS\JACQUELYN GIANUNZIO\MY DOCUMENTS\DOOH\CDEMS\DB FILES\TEST AREA\Cdem_dta.mdbtlkpCrosswalkPrimaryKeyP  P P P       K[N$Run Appd5U`o ab c Label20Decode raw Labcorps filem47UC`abgc;k txtCnt0conv0 /z anAq )In$ 3S'p"KidqPifi !P at%Last?!3!FiBGA0 Boole^ 'if-sicsiy Umqdq dobgghp~$RDOS!}6?= #*(83 , "*"ĥSet K= Cur-Q^DХ('= WA&Jx(z'@ 'TxP(dupsible ac*8= 1rp(&moItth0ghme`ѝtqɕ'agnBNnZ"B e=CS'ڤ" q !0tЁfrUNIX2GPd l rx kiC_Uunk"UT…ap 2s /a "~1ocha0t1 `0' `"?@BCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_abcdefghijklmnopqrstuvwxyz{|}~h#E$q^hP/|*/x//ME [LS S(L(LX  N(> LLL P*LLL*LLLLLPLLL*LLL*LLLLLLLLL*LLL*LL<<<<<<<<<N0{BC95C07C-179E-11D5-88B3-00AA002AB2F7}  `o@i `(x`v  `|J   x % t % Hp(ns l% lHoTo % hh$% d %``' `0\`PX2` T6 `"P`$Lju`&Hcces`(D`*p@o sa`,<m_dt`.88rks `04ile `22`40nloa`6.al p`8 wnlo@ZTV 8.`<t do subf`@(.,"c`Bes\"`D d se`F#.##`H `JXain `L ,j `0kX ##7i xiii  `j`h`f f`p k` Zi ii  `h`f`d``!K[`^S H %  % %@x`pp680@d @(` @\ @X  @T @@P @L @XH @D @4 @$ @ @ @ @ Pp (Ppp@t ph ` \ Hl @h d `  q (` @P 8 {H @ x { (jr 0 . r@, @* @( @& @$  @ @ @ @ @ @ @ P @  @| @x @h pd @` @\ @X @T @P @L @H @8 @( @ @ @ @ @ @ @ @  @  @t d @T XD @\ @L < Xxh8 hj `jl Z@PT @D @4 @$ @ @ @ @ @ @( @@ @X @ (``(x@Hf @fl P(@P hZ@@ @0 @    pTP`?$*\Rffff*083f8160ea*\R2*#2e*\R2*#24*\R2*#2f*\R2*#26*\R2*#29$*\Rffff*073f8160ea*\R0*#13*\R0*#1a*\R0*#19*\R1*#20*\R1*#99*\R1*#98*\R1*#25*\R0*#1*\R0"K[r-^ J  { 6 g " S  ? p+*#14*\R0*#f*\R0*#12$*\Rffff*053f8160ea*\R2*#27*\R2*#27*\R2*#6*\R2*#1e*\R1*#8f<*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#..\..\..\..\..\..\..\..\Program Files\Microsoft Office\Office\MSO9.DLL#Microsoft Office 9.0 Object Library*#85<*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#..\..\..\..\..\..\..\..\Program Files\Microsoft Office\Office\MSO9.DLL#Microsoft Office 9.0 Object Library*#82*\R0*#11*\R2*#28*\R2*#2a*\R2*#1f*\R2*#30*\R2*#30*\R0*#e*\R1*#98*\R2*#24*\R2*#27*\R2*#1e*\R1*#8f<*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#..\..\..\..\..\..\..\..\Program Files\Microsoft Office\Office\MSO9.DLL#Microsoft Office 9.0 Object Library*#85<*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#..\..\..\..\..\..\..\..\Program Files\Microsoft Office\Office\MSO9.DLL#Microsoft Office 9.0 Object Library*#82*\R2*#2e*\R2*#28*\R2*#2a*\R2*#1f*\R2*#30*\R1*#98*\R2*#24*\R2*#27*\R2*#1e*\R1*#8f<*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#..\..\..\..\..\..\..\..\Program Files\Microsoft Office\Office\MSO9.DLL#Microsoft Office 9.0 Object Library*#85<*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#..\..\..\..\..\..\..\..\Program Files\Microsoft Office\Office\MSO9.DLL#Microsoft Office 9.0 Object Library*#82x48p<r@tDvHx"   0 PX ` px    Bx  & 8" @ L' :H .$ , 2 ( J$ 8 ,0 J 0 68 Pp $& H& 0(' (& @& X& p& & & % & & &    ( HPX @` $   Z`h p  x*      % >(.h* *  X%:0#K[  @   2 (@ * < :P ,$  * $0 @X   $ $   ( $H $p 0 0 * H( p x   * P  ( 8 @ (`      .  Bp B H (,h  *    T T@T $ :TX   TN8  TT\' H L`3 (8@$P  : 0     0 @X hx % %%%   X' h'p'x'  0H P` h  (X0   0  (      ( 0%@ H p%$ h$+   4+(0  &8 @` L ,C  8B{0  x     @,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$$@(xpruns link codeOn Error GoTo ExitAccess]`]x$'  KT  B@' quits accessSH Error# !2:  !4 6 8 (A@0n jumps around quittng accesso4Program loaded into same directory as "cdem_dta.mdb"&PAML files downloaded with SSH programorma+download uses olyp@ssh.paml.com as web hosttermin2Files 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 Rs051Dim cnt_amended As IntegerDProgram counts of OBX records equals number of results in input file$K[ @ @ @ @ @ @/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"](]Xpatient 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 Dunk'"'clinic_code put on each appended record;response = ConvertUnixFile(.FoundFiles(cnt_files), DOSTemp) namin 87d2 Open file.#===================================5Creates an output table name (eg., "tblLabs050501_1")3these need to be manually erased or they accumulatetblLabs 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@<optionaldob V7R5B@<optionalA.Fields.Append .CreateField("amended", dbText) 'optionalq  H!B@ @ H%X. #===================================Isearches for new downloaded labcorps lab files in DEMS directory or below !ZC@\.FileName = "rs043804.200" $*.*9#eg.rs112233.365$ 9^9`C@b7b 85d!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  $'Fcnt_persons = cnt_persons + 13MsgBox "Name: " & PatID & " " & LastName & Chr$(10)C  $j $j $j  $'Jdob in yyyymmdd formatOBRKT  $j $j $j  $'. .$/ .$/ .$'.OBXKT  $j $j $j  $'(  $j $j $j  $',--------------Eruns match program to return the CDEMS raw code from the lab raw code0SELECT tlkpCrosswalk.raw_code FROM tlkpCrosswalk" WHERE (((tlkpCrosswalk.lab_code)=' ('));'  H%X. !l !hA"is this lab raw_code in Crosswalk? B@n "p'*)MsgBox "good reco%K[ @ @ @ @ @ @ @rd " & rstCodes!raw_coded` na'*kH *na .$r B@t " )v =========== B B )xd blank )xk  =========== , )z * )p . )|c )~ =========== D$ Dmissing )d D )k  =========== F$ Fmissing )d F )kp  =========== J$ J 1/11/1111 )Jd $ J$/ J$/ J$X )Jk  =========== B@ 2 '23lab results tracked reportedkX 4 '44total labs reportedS( n 4' B@ V Close file. 8steps through filesdThere were no files found.A@0kpqh H!B@ 2)there were no labs being tracked returnedA@0|k===============================:data now in me.tblLabsXX/xx/xx_x - but has no clinic codesEthis 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'));'  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<************************************************************+1Files 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 componentreturn the positionInput! 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  '  $|$ZG  'jfind the col of the desired "^" ''  a  '  $^$Z  $|$ ZG &K[ @  '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'kVVok'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 DOSTempx%cnt_amended = 0%XH%&dk , alt 84460crosswalk entries in lab_codes ha1c 83036.z1ldl 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! .$rd&&k&F7/28/03 includes error checking for missing dates and notes in resultsH& ,commentGjF:this jumps around comment records eg.= \.br\comments: \...0(9Attribute VB_Name = "Form_splash" Bas0{BC95C07C-179E-11D5-88B3-00AA002AB2F7} |@GlobalSpacFalse dCreataDblTru Predecla Id"Expose_Tem܀teDerivCustomizD$Option Comp@ D3T  dGA2ej va rIdVariTPle! ijSQLlXya`Qnic70/ cpicB*;@ A5bB*AP,9}ID'Locam'?gT.[ O Type0qf*#Colxp!>AD^/q cnxt_r)Q$t ot/+perso / MR.#?b'G'w-Of-Line Unix chr(p10) kP^3)uconv0 /z anAq )In$ 3S'p"KidqPifi !P at%Last?!3!FiBGA0 Boole^ 'if-sicsiy Umqdq dobgghp~$RDOS!}6?= #*(83 , "*"ĥSet K= Cur-Q^DХ('= WA&Jx(z'@ 'TxP(dupsible ac*8= 1rp(&moItth0ghme`ѝtqɕ'agnBNnZ"B e=CS'ڤ" q !0tЁfrUNIX2GPd l rx kiC_Uunk"UT…ap 2s /a "~1ocha0t1 `0' `" ORecords etп%'searches fordownloBa  lab ps f`ks in DEMS dir{ory  below nklica: 'leSb  .xc +leN(@"rs043804.200"EzCtID & "*.*" 'eg.rs1122@33.365L ookIn` GetDBDir(e\.SubFoldersTrue%ExecutCIf .() > 0 ThLen F cnt_$= 1 Toounda(s.C@tc'MsgBox "@. `&`J'`}ponse@ConvertUnix (.F (), DOSTemp'*6@IA parsing routine:#Ń^R b$ As #1 '  @Do WhM Not EOF(1) ' :p until AofR"L #1, Fe Read binvariaSelZ CaA -Left(, 3G  ep"PIDbWPatW= Midh P*e2, + (m3b- s-L`Dh[5X2) o3SFZe,. on6o, 3'0p>33P9} :b9Ff& Chr$(10e97*, 83g8b'`[Bymmdd^maH+OBREWCol1`z + w4 3 /9+{ /"b`0,j >, 2_"Xaq Test?/?/ BIsI~(L4- .xAddз![2c_code] = Clinic"Ch '=If Len(PatID) > 0 ThenVrst![chart_num8ber=3Else,M"blank"Ond If vTestResult) < 18yxruPxGoTo jumpouto'awƄType) {IsDate(Collection)}service_dBDOBDstatus_flagA*"cԓIsEmpty(LastNam`e) Or=ecl@_n%missing 0gbF |Fi, ( 3fa c;_[ ?!ǭGA(!dob&Ab`?1/1A11@I C"zMid(` , 5, 2) & "/"7_s#% &\ft 4)>)* *s .Upcnt_records+ 1 'lab s trackedported/ Ec/! totK'(al @suCa8se [k!SetxtCntKMe.Repainfdg:0LoopClzo #file.'Kill DOSTem Next s 'stephrough B{Msg Box "preH we@no found.0 With DB.TableDefsp fP P9qg}UthU"be0XH"@turned89Exit Sub? . .ǖ 'P,a now in me.tblLabsXX/xx _x - but hasP c2 c@sthis szQlsaH a+2  uAe'st=f& A strInputFPy$"[ 1CDD_ts!]#CSQLAUP DATE Demo INNER JOIN *$H`J ON ($.  ) AND7vpe w.v) SET/ 9P t].ۯ,o #` ._S,2$" WHERE (((n)='unk0'));Set qryNew#2CrepQuery 3("", pd\.ExecutD 6s6/`'matches on zonly thC8staCun#sW= ''"' $ "'px()0' N) %le*[x $  : x) r GLMMLnevto apW V H retur1posiA]D@va=={$2@pa4Dthe n[#c#@find'6C jaMhDRB!9a00lumn 'C as v>CDim> \F 'holzcolAb1desir@_nth#1AA E2i]9C'",A?J)E Q= F1= 4#Do Until= Ot(F+ @If Midfo,af+, 1);9TaPLoopc*A^"2@ e#C gZ  2 _!`(K[ @@2hig! Or4#{` #c(2â &ConvertUnix(ANeDOSaG@'uKfu aுNs EOL p@Xthionlin`m Pq&-jwi1chs@s&HtsA^a2Text'  q`Valueq\StR1OutPutTxt O`j 0c` For MA#@$`{c#%EOF(1$_LT#1, E [# = (,?BQ &<nd= 0A'8x> 0%b)v=G) ,, (-;dQ1`wf#+ 4q,COeM If STFcClose  3 "okF6]P]h]]]]]]Dim DOSTemp As Stringix c"file naming convention 4.4, "olyp"](( hfxME,6 LLL<0<4<8<<< `o --`\ Inde%@0(0hH@l X0@:|r680B@X @hT @D @4 @$ @P @ A@ (%@ @ @  @ @ @ @ `X`?$*\Rffff*073f8160ea$*\Rffff*053f8160ea*\R1*#16*\R1*#99*\R1*#98*\R1*#25*\R0*#13*\R0*#1a*\R0*#19*\R0*#1*\R0*#145  * ,8 ,h 2 B    *  ,P ,       < 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.mdbtblLab$:' varRet = adhInitAutoNum()'d8'k(  |$r' B@z S Error# !2:  !4 6 8 AutoExecA@0nxpih`Attribute VB_Name = "basAutoExec" ' From Acc)K[@@@ess 97 Developer's HandbookLby Litwin, Getz 4 Gilbert. (Sybex)NCopyright 1997. All Rs Res@erved.' Option Compare Datae 'Use dorder for sng cA1isonsEExplicit FuncZ%t(L , ' Purpose: Do aRstartup dutie-F  DIn ^None Out Return value: nH HistoryJ Created 09/14/94 pel; Last @Modifi12/20/95ZA&On ErrgGoTo ]QDim r@# As Varia&nBjAva= adhVerifyLinks("cdem_dta.mdb", "tblLab"rIfThen@'IInitA$NumA)ĈTruOElsD FaFEnd If6D@UQBuNex9$SysCmd(acRemoveMeter5A Do.Hourgla@Y0C Lh0hHh`hTx hhhhh h$$h ((h8,,hP00hhh44h88h::h<<h@@hDDhHH+`p8  )XA%+(p ( )A%+PpP ʘ^BʘXBʘBʘ0BʘB ʘX B ʘB ʘHCʘCʘC~%+bx` k ^^7ih 0i Pif$ pi4 iD iT ijd idt  (@%` `0` +\` $kiT ii +n`pPkXi `rʘBʘBʘ`0BʘBʘBʘ@*K[d _ Z g  ~  _ D9FyRD+iB ʘ C ʘpCʘ CX p0X`x0H 8 `` Hp 8 ` H  8 P `bl ` 8 `\ p `fL `< `, ( `  P  `j x 8 `d 8 ` \Ln@ @ @ t @ d @T x P0 `A%  -@L @H  % x H@  % J   `\x @@h @d @(T @XD @4 @$ Hxp(`nx8``tH@` @P @(`?$*\Rffff*063f8160ea(*\Rffff*063f8160ea\0*\R0*#13*\R0*#f*\R1*#99*\R1*#98*\R0*#11*\R0*#e  * ,8 ,h   (08@HPX H`HpH            ( 8 HXhx BL*, < 8( $`  * , ,   ( F8 : : 0 >0 <p F , >( ,h :  < (08@ (Hp  68"=p" >      (  0  @  H X ` h #p 8x   *    8 :8 x  ,  ,  : : .P  6 : 4 :8 x  +K[N Y aY     B . B( :p 8  * ,  ,P   , 4   *0 `,6  B  <  * ,8 ,h   :  > @ H X#h   $ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved.XP^^0^H^`^x^^^^^^^ ^8^P^h^^^^^p`]$]$]$]$]$0]$X]$]$]$0]$]$ ]$@X]$]$]$ ]$H]$]$p]$   !'-6 This is the entry point you'll use to call the common1 file open/save dialog. The parameters are listed below, and all are optional.$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved. In:@ Flags: one or more of the adhOFN_* constants, OR'd together.4 InitialDir: the directory in which to first look4 Filter: a set of file filters, set up by calling) AddFilterItem. See examples.8 FilterIndex: 1-based integer indicating which filter5 set to use, by default (1 if unspecified)? DefaultExt: Extension to use if the user doesn't enter one.& Only useful on file saves.7 FileName: Default value for the file name text box.& DialogTitle: Title for the dialog.3 OpenFile: Boolean(True=Open File/False=Save As) Out:6 Return Value: Either Null or the selected filename]]0]H]`! Give the dialog a caption title. $G'j f$G'fj $G'j h$G'hj $G'j $G'j j$G'jj d$G'dj0 Allocate string space for the returned strings. $\$'$\'7 Set up the data structure before you call the function  9 !9 f9T 9 9 9 9 9 j9 h9h 9 L91 Didn't think most people would want to deal with these options.9$\999q1 This will pass the desired data structure to the3 Windows API, which will in turn it uses to display the Open/Save As Dialog. d $'dH $'k04 The function call filled in the strFileTitle member4 of the structure. You'll have to write special code' to retrieve that if you're interested. 0 You might care to check the Flags member of the4 structure to get information about the chosen file.. In this example, if you bothered to pass in a4 value for Flags, we'll fill it in with the outgoing Flags value. h$G !h'hj !$n'bd0'bk ix,K[0 z @ -  } j C 0  m Z G ' Tack a new chunk onto the file filter.< That is, take the old value, stick onto it the description,3 (like "Databases"), a null character, the skeleton1 (like "*.mdb;*.mda") and a final null character.$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved. In:& strFilter: existing file filter- strDescription: new filter description varItem: new filter Out:$ Return value: new file filter $G*.*'j T    '\iH5 Trims the Null from a string returned by an API call$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved. In:4 strItem: string that contains null terminator Out:8 Return value: same string without null terminator]x  '    $'ndx 'nkhi`XAttribute VB_Name = "basCommonFi@le" ' From Access 97 Developer's HandbookLby Litwin, Getz 4 Gilbert. (@Sybex)NCopyright 1997. All Rs Reserved.' Option pare PDataeExplicit Type tagOPENFILENAME  lStructSize A@s LonghWndOwner Instancэstrt*i$ CustomnMaxCN IndexD8C7'PeTitl InitialDiBCM7Flags,OffsetAIntegerD\Extensvc!Def lOAH.`lpfnH@TemplateEEnd AADeclFuncšadh_apbiOpe+Lib "comdlg32.dll" _@4Alias "L A" (Xofn$ )Boolean Savew#I C6lmDlgb3dedErrory (0 Pu.b@p@tf 'OFN_READONDLY&H1sOVERWRITE@PROMPTB2SHIDEJ 4NOCHANGE(DIR 8SH@OWHELPb10u VALIDA TEALLOWMULTISE(LEC0EXTENSIONDIFF`N4PATHMUSTEXISC8UAK10uC) /VSHAW TNO>RET8URNTE|ST!NETWORKBUhTTO 2LONGAS" TEXPL`DFY P6CELINK# bT k  ݡnoy("Cal ByRef Variant,V@ 9@_nBSViç0[aultt[JYhogVgZUt2Jq^a' This  the entry point you'0uso ca!^k' f PHn/sY d .90e Љs dlistedurbw,oralP "' d$In: ': one 0aDmoof !adh_* cots, OR'd toger% q):directo`in w0hich`prst l2Q'A(: a Q@A,BupAVG1Add-tem. Se@ xa0esY D: 1-d P"Apdicat #q to 0%,q defa2 (1 if unspecifie !>spa-r2( &50e#= LefLt(B & "(256, 0), 4.tS%=7 S@NQ9datPJtQuXbe ealkfͳWp2/a.lSStructSize = Len(ofn) .hWndOwnerxApplication\Access*^strFilt^ 8N"Inde>xAKenamenMax9$ TitlJK(Dialog&Flagsk (DefExtÀ ault Init*DiHCur ' Didn't think most peopmwould wano deal withth@ese ops. .hInsthancAH0@,CustomCh-ing(255, 0IEAc F HlpfnHookEnd W( ' This,ll pass8e1sired `data @#u`re toA Windows API, whichCin turn it useEisplayED Open/Save As@WgtFCIf4e@'enCfReso3adh_a`piGetA NElsA3@HIfGe funco caaIfill@G:heGAmember,' ofSFP. You'@h>Swrit pecO codD'a-retrie $that if y0in{`ested)&%T h &'! mig ht`c8checkCfcg-'+?ge`nformA" aboube chosen "e$ ' ICAaKexam@e,D bo@K BN)avalu`.or Ke&.JAl"`go@cJNot IsMissi-K[vcP<) y  e R ? +   { h T A . )L J. MCommon'D,dTs, tak` co 0,@Ii` A dg,c ' (li@"Dba`p"), @,a8rac nke0letoD&*.mdb;a")T a yan@nFrom A 97 Dnloper's H b@Eby Litwin, "z Gil~t. (Sybexd@' Copyrbo1997. A@Rs erveAx3'In:4v: exist+1r~:`1]5!; #OutRe]R66$66"*.*" 2- &-0-& vbA4CharXcx /6] =ByV@#u26o2pNA`nP) f$bs@\pbp#anro2dV'e''r 'd ''l~ ' @['1:` hc8 0 r'LeftD- 1^#+ &]Q'S lab results tracked reportedkX 4 '44total labs reportedS( n 4' B@ V Close file. 8steps through filesdThere were no files found.A@0kpqh H!B@ 2)there were no labs being trD,hbxMEP@(LX N> LLLLLLL L`Bh tz a`Dd`F`7. A H\%`JL  MH o ch%`PF6 `RDe if`(@ther`T<ry:`V809/1xied %@``z `xpose: Gets the re@d ly o@ ` @PP @8L @hH @8 @4 @0 @ @ hh` xh*,680@@h @(d @` @\ '@XX @T @pP @L @< @, @ @ @ @ hpX(@H8  8 `  `:z  ~Z680\@( @P @  @h @ .K[5 = 251N kk5,55@ @ @ @ @ @ @@ ^`blntr@X t @p d @ T @D @ @ @> @ 8  V@4O P V( z|@0 x h@, ` s@ ( @$ @  @ `?$*\Rffff*053f8160ea*\R2*#24*\R2*#26*\R1*#99*\R1*#98*\R2*#24*\R2*#25*\R2*#27*\R2*#28*\R2*#2a*\R0*#13*\R0*#1a*\R0*#19*\R0*#f*\R0*#1*\R0*#14*\R0*#11$*\Rffff*063f8160ea*\R2*#1f*\R1*#16   * ,8 ,h 2  B    0 (( P *X , ,   $ ( <8 x <   8 : kP $p  B   > 8 8 *@ ,p ,     > H <X          ( 8@H PX`Bxh  B  8 @  >`  * , , 8 @ :P <  >  <0 p x            ,   ( 0 8 @  @H  ' 0   6 F8 g b Op  B-  6-H   ) @ ,  2'( ` (V:    L )X p x   6 !.)  0 :P 4      20 (h   $ $  *  ( 08$@PX `hpBxx $ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved.)Use database order for string comparisons/K[v1b N   Purpose:) Checks the Link for the named table.! Based on code from Ken Getz.$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved. In: strTable - table to check Out:6 Return Value - True if successful; False otherwise History:6 Created 09/13/94 pel; Last Modified 07/10/96 pel]`(2 Check for failure. If can't determine the name of4 the first field in the table, the link must be bad.  %%!' 'dp'k`iXx Purpose:7 Gets the directory of the currently open database.2 Based on code originally from Mike Gunderloy.$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved. In: None Out:8 Return Value - The name of the directory as a string History:6 Created 09/13/94 pel; Last Modified 12/20/95 pel"`]]]GetDBDir'( .$ $!'& &$ *\b & & $ '& &$ ,' .z" S Error# !2:  !4 6 8 (A@0.Hn@i8 Purpose:1 Check status of Links and relinks if broken.9 If broken, first try the current database directory.7 If that fails, present user with file open dialog.$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved. In:4 strDataDatabase - Name of backend data database6 strSampleTable - Name of a linked table to check Out:7 Return Value - True if successful; False otherwise History:6 Created 09/13/94 pel; Last Modified 12/20/95 pel@]]]]]]](]@]X]p]adhVerifyLinks'(% Verify Links using one sample table. >$'B B':Xk9 Get name of folder where application database is located$ 'D D <$ ~* Data database found in current directory. D <'Jd0 Let user find data database using common dialog The required file ' <' could not be found.'F F! You can use the next dialog box "to locate the file on your system. $Z $Z $Z'F F! If you cannot find this file or #are unsure what to do choose CANCEL'F F! at the next screen and call the 4local database administrator, or program developer:  $Z $Z'F F( Washington State Department of Health $Z'F F Diabetes Control Program $Z'F F (360) 236-3738'F F 6 8 (A@09 Display Open File dialog using the adhCommonFileOpenSave% function in the basCommonfile module TAccess (*.mdb)*.mdb$\'T ^ ^ `'V   d Tf VhLocate Data database filej$b'J J$l  User pressed Cancel. -You can't run database until you can locate ' <'.'F F 6 8 (A@0':Xdx J$n'Jk`kX0Rebuild Links. Check for number of tables first. .H H!!p'R tRelinking tables R$r'B Loop through all tables.4 Reattach those with nonzer0K[F V j . z >  L W  k 0 ~BMo-length Connect strings.'P L H!- If connect is blank, its not an Linked table L!v P 'P ;DATABASE= J L(v + The RefreshLink might fail if the new path ! isn't OK. So trap errors inline.h LB@x If one link bad, return False ':Xkk z P $r'B L':X  |$r'B z @ S  Error# !2:  !4 6 8 (A@0n8 X0 i( |Attribute VB_Name = "basLinkedTables" ' From Access 97 Developer's Han dbookLby Litwin,@ Getz 4 Gilbert. (Sybex)NCopyright 1997.@ All Rs Reserved.' Option Compare Datae 'Use dorder for sng c1isons GExp licitPub Func1heck}(!~ As S')Boolean > ' Purpose: C$s the,nkKnd Y`len' @Based sc ode fKen/FÃ, c E"In 0 Theı !_.E/#g5dnd@)E eikDBDir(bijcSiidirec?($c ly n&ko inal@blMike Gun loy?m0#' ?mc?mE=C+mNonfajN"&G(as a/jj12/2j5jfGoT~o"?OCnd~bdXAo DbҦProc  O@AcSe tiF= di#Do While$ao!#, 1)l"\= LeftLen)1`Loop%&s@tUC( DCd00Exit ttSel6 QOsAMsgBox "or#" &.Num~": 5Descri|, _ vbOKOn9+Critical,)XG3 Hk~adhVerifyO2S''(I @Samples Integer%L13bstatusKbreA^s pobrokeNnKZS, bt-`9)TATVy/c>m DBQwFQmp tdfintI5A1EsPF_ ?4  ln gFlagLonge9d]s ' Ds6iPX sC5G g@_HF\q@0abw;qa RI @U folwhe4apais locp~{pY(P  (3kb&&1^##3s")'"߶<{ OAP'=߂?Q k'yTRfi AusmdbSCa`q2" requu0dsV'pqK&)p"'@unot @fo.`&&uYouwa]an0\ nbyx w"pٳ t׵he file on your system." & Chr(10)$3) strMsg = & " If cannotnd thisrB& _ "are unsuwhat to do choose CANpCEL"r4next screen avcalJl{erlo @databa2a dminiaator, or program developer>:"c WashingtState Department of Health(Diabetes Control PU!(36236`-3738VrBoxs, vbOKOnly +Criti@M,cName +' Display Op`Fdialog us@BbadhCo0mmon Sav@œ' functi@Kin g ©modul c"@terAddI(g, "Access (*.mdXb)"@B"HlngFlagsOFN_HIDEREADONLYx Or NOCHANGEDIRKMvar@%eRCOG1@JM :=True, "C:= 0g+ 1G ";DATABAxSE=(Ik'+f 9h! m(igh0|a06ife new pathisn9OK. So trap errors in e 1On Esume N{yq Re@3 " bad, r%7 <o;o;;s;A 7O 00Up e0.! P%w^ o` :Oxt/ & Remo>v# f1Exit F{_DSelq6CaPOX"01K[or#+.F!J& "1De ipA?l%c Re32) YOu# r{NFMAPe A dd `?Item( h, _ DescriO" varCaaVari) (_aDa new`D,dTs, tak` co 0,@Ii` A dg,c ' (li@"Dba`p"), @,a8rac nke0letoD&*.mdb;a")T a yan@nFrom A 97 Dnloper's H b@Eby Litwin, "z Gil~t. (Sybexd@' Copyrbo1997. A@Rs erveAx3'In:4v: exist+1r~:`1]5!; #OutRe]R66$66"*.*"TCXX DD\2XT \D cDlP fDlK$$'4%'D%$ |$\ fD% $ ` P K   lq }     ,'':D N l#X*#T *# l*F$ 2XT ) 6$ RT,bl\4 XT  $krU $` 1Qq0` 00(`1nrU~|  I q i TK'CT,rU (`a0$`,`00nrU~| Y qy A!y ,\$L40F h) d`LH4$ dd  ldpzpz-C`(bh(0d`LH4 ,K Clh$ Qhtdt (>d1plp #d ?/dqlpJlp 1p8 lp 1xK` hh  l`q\hx` hh  P TT , '' lM,@l`#d*#X*#LlP*F< 2dXLP)hT6<  ~,4bxplt0 dXPLhT< KSC@l (h h7pz" 1d'ld *F #?/5}ld *FL *#*1`/gl`*#*F      `1`/6l`*#*1`/Ol`*#*F    `2K[1`/6 -l` *F  `1`6-l`!*F  `1`6 l`"*1`)''@M@`M(@ 6':(#N$C< % 1@\ D@ ,k>pD@)kDD%:(-%$ |hpF@\ DQ@[8H4H (lJ/ kFpF :(.LH ,/5K H l$0 @@  l0@pz"*'%kFD(%$ |h H4YpzK$'%'(%$ |hK0 @@  l0q,@x0 @@   $$ , ''@M(@l0#*#(*#l *F 2( )@$6 " `L4 84h<H@`L\d@ ( @$a06 *#d *FThD:4 $`1x/d6TD$XT(bxdTD$`l Ctlt pr krQ#krtM`@P  P`1x5P[ltCx,`,bxtParU ,Ap4,!(p4$ PpL :\ L \ :L < t (< l  b ,  :,   :   :   c=(t  tdT  T`16tdT"(t  t`16tqP LPL$ $lLPL#HTP /H <"P lTP lJP lTP$ lJP( #HTP0/H"P4,#HTP</H#'t t`#HTP,/H6t P*(t  t`#HTP/H6t P PD qP , p< kp, p< kpk l  libl Fl dl| b li0`i0D`!L i `% l! ,   < \ 0  HtdTT 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""""!#yI#!6yq#7### $$%%%Y%7&)&q/A&q& 8&)' (A(Y((9))!**+ ,Y y,,,A--..Q/ 011!y8 3Y3 44a5y589!9I93K[!@4IIqxxx@8i @<ppp@@ 1rrr@ DIqtttI@H vvvdWHd dUpv5d\ `` l\qX`lX j `$ `` `x\ `` H LL ,''xM4@l\#T*#P*#DlH*Fd 2TPDH)`L6d (bx0 TPHD`Ld0 d  8.pjph kju khph<(4khl MT@$ ($| U464$p kjpjkhpfpj kj# kfpfx(4kfl MT@$ ($^ U1(kfl M@ (| VF]16 4$ kjpj kfDTl/8(bl0 4$L. ] ]  %, h1lhFP @ U@0Upf6@0pd kf' kf .kfD@hMP@0 (0`1`6@0 l`] kfpd''@kdhMP@0 (0`1h6@01lhFP @ U@0Upf6@0l== :P^l/\L0bl`h@08D@#lhlp D ()l('%'%'%lp l=0xl!  pQld d h lL!*#d @ / "#d ` / d ( `d d %`d d l`9 0(`d l  (#l`ih@6 3 "d l  $#l]/  %% \\M@ & 00:']4W+,+.\$+(+*\$+$+&\$(("\M@ (`16 +,+.\$+(+*\$+$+&\$(("\M@ (`1 6 +,+.\$+(+*\$+$+&\$(("\M@ (`16 +,+.\$+(+*\$+$+&\$(("\M@ (`16  0:)]4+,+.\$+(+*\$+$+&\$(("\M@ (`186 (8M@ (:*(8Mt@ (:*(8M@ (`186 0:+]4 +,+.\$+(+*\$+$+&\$K*mrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ]Hqk-j  a i!Aa iy a i1A Q9A4K[paml1basLinkedTables basCommonFile basAutoExec Form_splashF@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA q )`J_N? 3C:\Program Files\Microsoft Office\Office\MSACC9.OLBAccess  )p^Fqm.=C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\DAO\DAO350.DLLDAO  0FC:\WINDOWS\SYSTEM\StdOle2.Tlbstdole !iWFCC:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLBVBIDE  CheckLinkGetDBDiradhVerifyLinks ɤs h)aN?Km.Im.Sm.Qm.fĤIx8<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`GXGP AutoExec//|*/@C7?txtCnt31?FormSC7?DetailAC7?Label0EC7?Command1Label2 Form_OpenCommand1_ClickParse DOSTemp unk rs tblLabs _ clinic_codem. chart_number raw_code result service_date status_flag last_name first_name dob]协N?25K[ F1 F PID OBR / OBX `SELECT tlkpCrosswalk.raw_code FROM tlkpCrosswalk D WHERE (((tlkpCrosswalk.lab_code)= ' ));1m. na blank c missing 1/11/1111 4There were no files found. Rthere were no labs being tracked returned [tblLabs ] 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'));ym. 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'/REF-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\2% UU UUPropData DirData$0dReports UU UU0! UU UUPropData 1 &# UU UUPropData 6