Standard Jet DBnb` Ugr@?~1y0̝cßFNh7mל(#%`d{6߱GgC<3y[&|*O|"Qd4sXf_Љ$g'DeFx -bT4.0 #dvuuu1Yq I. !.C)/AB1CICy%!%Q%%// I&&&&9' (1(( @ < ,,qy??7iCQ7CQCiC@:4a @8ppp@<DONLYXO(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-Cancel ExitAccessistempRendsub: RunCommand` acCmdExitCommand1_ClickVrst RecordsetqryNew{)QueryDeftblNew[fldNewField3strSQLFTextLine clinic_code-PatID^ TestCode%TestNameTypeTest< TestResultCollectionDate cnt_records? cnt_tableswp strInputFileCreateTableDefj CreateFielddbText dbDate= dbBooleanf OpenRecordset| FileSearchD NewSearchflookinPSearchSubFoldersExecuteY FoundFilesEOFParseAddNewa chart_numberSResultur Type_TestSlab_date2referUpdateRefreshCreateQueryDefzNRecordsAffectedP vbInformationnExit_Command1_ClickiErr_Command1_ClickinstringY component"positioncnt+FormDetail2Label0,Command1Label2,Click _B_var_Chr\;ItemzLabYSerl CreatinineCiCrea&AST2uSGOT Triglyceridetrig: CholesterolG7chol)hdlnldlҭHbA1Cha1cLHrUrineProtein= MiAl&VratioD-dbstringxCZ _B_var_Stringӊ _B_var_Datev _B_str_Chrm# _B_var_Midp_B_var_clinic_codeCollect_B_var_chart_number _B_var_Result_B_var_Type_Test YS "" Y   Y Y  Y Y  Y  Y  Y   Y  Y  Y  Y  Y 2Y  Y   Y  Y ConnectDatabaseDateCreateDateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeYYIdParentIdName        th@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 EExplicit 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("Dem_dta.mdb", "tblLabs"rIfThen@'IInitA$NumA)ĈTruOElsD FaFEnd If6D@UQBuNex9$SysCmd(acRemoveMeter5A Do.Hourgla@Y0C?@BCDEFGHIJKLMNOPoRSTUVWXYZ[\]^_`abcdefghijklmnpqrstuvwxyz{|}~PROJECTaPROJECTwmjAcessVBADatam Forms +!L7Root Entry z<VBA+!^VBAProject+!^VBA +!^!   -/012356RSTUVWXYZ[\]^_`abcdefghijklmn  !"#$&()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOQRSUVWXZ[\]^_`bcdefghiklopqrstuvwxyz{|}~0+!zBlob nPropDataTypeInfo YSY  Y Y Y  Y  Y Y  Y AttributeExpressionFlagLvExtra Name1 Name2ObjectId Ordernzf edY"ObjectIdAttributeRDEUCJBGGCDUTDHF:_BQHTVGMNZVLCQDQOKXUEEUHOYAZE: Q;FHNWHDEQCSLAQDDZQTBK_MYKAEE_:A`WPFEIWHFAGXNODVRZWCIBQYTGTKJ: 6ABCDETU__SRP_7P__SRP_8 T__SRP_9Y_VBA_PROJECT(/," /@dirA__SRP_0K%__SRP_1?__SRP_2 =0* pHd paml1 @8= Vh @`o> 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\SY STEM\12.tlb#OLE Automati,on/VB@IDE> VBIDE5CCE157C5.3PcProgram Files\C`ommonHShared\VB A6E6EX T.OLBHRVisual Basic for A pplic1s Extensibility  -YSY Y Y  Y  Y  Y  Y  Y ccolumn grbiticolumnszColumnszObject$szReferencedColumn$szReferencedObjectszRelationship   YYYszObject$szReferencedObjectszRelationship 2&+!+!PropData DirData%1dModules)#+!L70"+!+!PropData 1!'$+!+!DataAccessPages +!+!PropData%BlobCopyBlobDeltaCopy strDescription: new filter descriptionarItem: new filter Out:$ Retu file filter $G*.*'jbasAutoExecbasCommonFile"basLinkedTableseturned by an API callijess 97 Developer's Handbook% byMSysDbert. (Sybex)% Copyright 1997. Al 2CB0 1CB0 0CB0 In:4 strI  !"#$&()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOQRSUVWXZ[\]^_`bcdefghiklopqrstuvwxyz{|}~ommonFile=0, 0, 0, 0, C basAutoExec=66, 99, 946, 544, C Form_splash=22, 22, 634, 387, Z p0XbasLinkedTablesbasLinkedTablesbasCommonFilebasCommonFilebasAutoExecbasAutoExecForm_splashForm_splash( `o>$*\Rffff*043faff0fd0=Babc5e ghij+k[g%@"[Event Procedure] Ariald2hghnQx$x *kx 4*kID="{0D5AA6ED-E239-47FE-8207-0C2F8B2A2CB2}" Module=basLinkedTables Module=basCommonFile Module=basAutoExec DocClass=Form_splash/&H00000000 Name="paml1" HelpContextID="0" VersionCompatible32="393222000" CMG="C7C5C6014A0F1513151315131Yv1b N  : k & W  C t/Y Y DataID/@YAOIndex \d+\ $+\ $k+\ $kDk\M(@ %`1T6d+\ $+\ $k+\ $kDk\M(@ %`1@6d+\ $+\ $k+\ $kDk\M(@ %`1L6d+\ $+\ $k+\ $kDk\M(@ %`1D6lLC l&2'CH l(2))CH l*2A+CH l,2Y-CH l.2q/CH l021CH l223CH l425CH6CH l@726CHlH6?lHJl@JlDJ x 8:9%:(%x (8lTF%:(%x (8lDF%:(:%x (8lHF%:(%x (8l@F%:(%x (8:;%:(%x (8:<%:(%x (8x d8 k>p>=C@=CD6CH=CTK=t D $>C:(? :k#*#>d#*#J*#ll#h*F 2lhdirF__SRP_0<{$__SRP_1?__SR @@@Z  @@@ @  @ @@@kf^JkWLJkJomdQuQMLJkMd``dbSY^QLJk^Yb\QOmJL^QkJO`YbOJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^Qk`kvkJMMQkkdL[QMmk`kvkJMMQkku`^`kvkJMQk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkhiv+SYbOkbQs^JLkhivfd^vOvbJMJiQ8hivfd^vOvbJMJiQ:mL^OQ`dmL^^JL mL^^JLk::F:66<+8m^\fMidkksJ^\!JMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQOokQiOQSYbQOS\SYSTEM\stdole2.tlbstdole !iWFCc:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLBVBIDE _lŔH_^2TUJCZM`Fp|*#~ɼ@V݂в31?FormSC7?EC7?Command1Label2 Form_OpenCommand1_ClickParse PAutoExec fĤIx8<ɤs h)aN?Q y `GXGP Error# : VBE6.DLL A  Q A S  Dem_dta.mdb tblLabs CheckLinkGetDBDiradhVerifyLinks AutoExec 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 CANCEL 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<Hadh_apiGetOpenFileName comdlg32.dll GetOpenFileNameA Iy0adh_apiGetSaveFileName GetSaveFileNameA IYPCommDlgExtendedError CommDlgExtendedError I9padhCommonFileOpenSaveadhAddFilterItem adhTrimNull 2Locate Data database file _ ZYou can't run database until you can locate ' '.qm.m. Relinking tablesIm. ;DATABASE= A   A `  A 0 Km.Sm.Qm. * *.txt clini  @ @ @ @           !.4m Name AutoCorrectCpgConversionProjVer 08.50       splash                0L00HH@@xH  @ @ @ @ @ @ @ @ @ @ @ @>>>>>>>>> > > > >>>>>>>>>>>>>$>% >& >' >( >) >* >+ >, >- >. >/ >0 >1 >2 >3 >4>F>G>H>I>J>K>LCCCCCCCCC C C ><>=>>>?>9>:>;>@>A>B>C>D>E>5>6>7>8.C.C.C.C4C4C 4C >>>> >> >>>>!>">#>#>#>#VBAProject+!N4VBA+!dirA__SRP_0K%__SRP_1?__SRP_2   !"#$&()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOQRSUVWXZ[\]^_`bcdefghiklopqrstuvwxyz{|}~=0* pHd paml1 @8= Vh @`o> 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\SY STEM\12.tlb#OLE Automati,on/VB@IDE> VBIDE5CCE157C5.3PcProgram Files\C`ommonHShared\VB A6E6EX T.OLBHRVisual Basic for A pplic1s Extensibility +Eh@basLinkedTa"b%GasLinDk_dT@bAbsBQHTVGMNZVLCQDQOKXUEEUHOY@AZE28AQH@VGMNZV C@DOK(XU@UE@HhOYZA@1h.'%΁,0b*!B+Bfw3UXG*2Cmm@nF51WPFEIWHFAGXNODVRZWCIBQYTGTKJ1WP EW%F)G.N,D4R5WC@B5Y;GKJI1%(` RExecGFAu@bo $x`2c0APHNGVEHVOOWRDEUCJBGGCDUTDHFAH/G E@V@OWRbZUJ \G4jC UD0@ fForm_splashF /r/_JpHKhFHNWHDEQCSLAQDDZQTBK_MYKAEE_FNHQSIA-D ZTK_LYJA@$E'K"@,3I"rU~~~~~u      (  8Cancelinstring componentstrTabl  @ @ @ 111111111 1 1 1 1 111111111111111ofnFlags InitialDirFilteram  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#C:\Program Files\Microsoft Office\Office10\MSACC.OLB#Microsoft Access 10.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 `o>h8BQHTVGMNZVLCQDQOKXUEEUHOYAZE033faff0fdbasLinkedTablesbh.8WPFEIWHFAGXNODVRZWCIBQYTGTKJ043faff0fdbasCommonFile`%(8APHNGVEHVOOWRDEUCJBGGCDUTDHF043fb0217dbasAutoExecf0@ 8FHNWHDEQCSLAQDDZQTBK_MYKAd6 c=t<'''  ,>F 6   p XDP8dlX`@L\ptxHhTHlhdppxpv kvs kxpx<(Dkxl Md@4 %4^$ K$46D4$n kvpvkxpz/h$  D4$4@HZTK_LYJA@$EE"@,3I"rU~~~~~u      (  8Cancelinstring componentstrTabl ut file to the DEMS folder, and try again.1 F Hgb A1C ha1c Cholesterol chol Triglyceride trig HDL Cholesterol hdl LDL Cholesterol ldl crea AST(GOT) lft Microalb/Creat alcr na No Date unknown Result Type_Test lab_date refer [tblLabs ] UPDATE . INNER JOIN tblDemo ON  N.[chart_number] = tblDemo.chart_number  SET  R.[clinic_code] = [tblDemo].[clinic_code];ym.Q >INSERT INTO tblLabs (clinic_codsoft Access 10.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 `o>h8BQHTVGMNZVLCQDQOKXUEEUHOYAZE033faff0fdbasLinkedTablesbh.8WPFEIWHFAGXNODVRZWCIBQYTGTKJ043faff0fdbasCommonFile`%(8APHNGVEHVOOWRDEUCJBGGCDUTDHF023faff0fdbasAutoExecf0 8FHNWHDEQCSLAQDDZQTBK_MYKAEE_043fb00f6cForm_splash0HRhH0(0TY@yTKiMyt!L HIdDXDޭ|flZژBu|K Access As=Dim{MeSELECT VBAWin16~Win32MacVBA6# paml1daostdole`VBIDEA basLinkedTablesd _Evaluate (CheckLinkZstrTablervarRet CurrentDbS TableDefs%iFields7Erro(GetDBDir GetDBDirErr dbCur ckParse PAutoExec fĤIx8<ɤs h)aN?Q y `GXGP Error# : VBE6.DLL A  Q A S e, chart_number, type_test, result, lab_date, refer) SELECT clinic_code, chart_number, type_test, result, lab_date, refer FROM  LTotal patient records in input file:  NRecords appended to DEMS lab table A _  A b ( A  H A ; h A x  c LabZ bINSERT INTO tblLabs (clinic_code, chart_number, raw_code, result, service_date,status_flag,type_code) SELECT clinic_code, chart_number, type_test, result, lab_date, refer FROM  PRecords appended to CDEMS lab table  ; ` xINSERT INTO tblLabs (clinic_code, chart_number, raw_code, result, service_date, status_flag, type_code) SELECT clinic_code, chart_number, raw_code, result, service_date, status_flag FROM  TxtCounterP;|? CDem_dta.mdb tblLab6 INSERT INTO tblLabs (clinic_code, chart_number, raw_code, result, service_date, status_flag, type_code) _,јO"C G>MpHoe;bC@6x s6 INSERT INTO tblLabs (clinic_code, chart_number, raw_code, result, service_date, status_flag, type_code) 1 SELECT clinic_code, chart_number, raw_code, result, service_date, status_flag, type_code FROM  GetDBDir \ A j  A h  A   TxtCounter T txtCounttpY?5 INSERT INTO tblLab (clinic_code, chart_number, raw_code, result, service_date, status_flag, type_code)  `SELECT tlkpCrosswalk.raw_code FROM tlkpCrosswalk D WHERE (((tlkpCrosswalk.lab_code)= ' ));7,htCKbGlBj?1?Lm^L;@C7?6 INSERT INTO tblLab ( clinic_code, chart_number, raw_code, r Dem_dta.mdb tblLabs CheckLinkGetDBDiradhVerifyLinks AutoExec adhVerifyLinks &The required file ' *' co* de, chart_number, raw_code, result, service_date, status_flag, type_code) SELECT clinic_code, chart_number, raw_code, result, service_date, status_flag FROM  TxtCounterP;|?6 INSERT INTO tblLabs (clinic_code, chart_number, raw_code, result, service_date, status_flag, type_code) _,јO"C G>MpHoe;bC@6x s6 INSERT INTO tblLabs (clinic_code, chart_number, raw_code, result, service_date, status_flag, type_code) 1 SELECT clinic_code, chart_number, raw_code, result, service_date, status_flag, type_code FROM  GetDBDir \ A j  A h  A   TxtCounter T txtCounttpY?5 INSERT INTO tblLab (clinic_code, chart_number, raw_code, result, service_date, status_flag, type_code)  `SELECT tlkpCrosswalk.raw_code FROM tlkpCrosswalk D WHERE (((tlkpCrosswalk.lab_code)= ' ));7,htCKbGlBj?1?Lm^L;@C7?6 INSERT INTO tblLab ( clinic_code, chart_number, raw_code, result, service_date, status_flag, type_code ) SELECT .clinic_code, .chart_number,  .raw_code,  .result, .service_date, .status_flag, .type_code FROM 5 INSERT INTO tblLab (clinic_code, chart_number, raw_code, result, service_date, status_flag, type_code )) SELECT clinic_code, chart_number, raw_codesult, service_date, status_flag, type_code ) SELECT .clinic_code, .chart_number,  .raw_code,  .result, .service_date, .status_flag, .type_code FROM 5 INSERT INTO tblLab (clinic_code, chart_number, raw_code, result, service_date, status_flag, type_code )) SELECT clinic_code, chart_number, raw_code, result, service_date, status_flag, type_code FROM ?` FO٣΅wX&D5Y˺{ySFkU `  ( d% dlT'''l\*#*# #*#!*F 263  l $"l,"d _ Z g  ~ ) }  Z~Ɛ!!ƈ!3I componentstrTablestrDataDatabasestrSampleTableofnFlags InitialDirFilter FiReports+!+!Scripts(++!+!PropDataDatabases*/,+!L70.-+!+!Blob .@f@.@f@@TMP%#MAU@d@3tlkpCrosswalkZZZZZZZ@@42 .@f@.@f@@tlkpCrosswalkd@3tlkpCrosswalk @_nnnnbbbHH<: %>f@>f@@tblLabd@3tblLabFFFFFFF::., u^ @ J~q @G@basCommonFiledj@AHHH<<<<<<<: @ S*~q @G@basAutoExecdf@ADDD88888886 @  ۋwq @G@splashd..........,  6 @6 @UserDefinedd88888888886  6 @6 @SummaryInfod@ADDD88888886 @ !@Dlǭf@AccessLayoutd4MR2KeepLocal Tv`&Rzz:::::::8 @' @' @SysReld.........., ' @' @Scriptsd0000000000. ' @' @Reportsd0000000000. ' @' @Modulesd0000000000. ' @' @Formsd,,,,,,,,,,* G@G@DataAccessPagesd@@@@@@@@@@> Z' @Z' @MSysRelationshipsfDDDDDDDDDDB Z' @lF44G@MSysQueriesf88888888886 Z' @lF44G@MSysACEsf22222222220 Z' @Z' @MSysObjectsf88888888886 Z' @0G@MSysDbd@ A:::......., @Z' @Z' @Relationshipsf<<<<<<<<<<: Z' @Z' @Databasesf44444444442 Z' @Z' @Tablesf..........,  Y1N1Y Y DataID0YAOIndexэ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)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 ' Re$ad#1inpvariijPatIDMid(e, Pev, (2) -A1)U Coll@*@W 5) ne, 6, - }I'57@^rxt: 14Q8'}" 7len , B1 TestT_eXpOQ 3_VjRv04, '0RInStr stTRIG. >400")BS-report4calc 8ldl1: "UTP['K!- K7 `SQL"SELECT tlkpCrosswalk.Au FROM"%X5t" WHERE (((uɲ)=a("'Q p"));8 X 4CAjtr` `KR.BOF AJJ`Mv"w1fpiR? M]FiT!u<"g d% dlT''v1NestrDataDatabasestrSampleTableofnFlags InitialDirFilterK*mrU ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  Io3 T;iB]I%  a   a   Ia   A Y?i)basLinkedTables basCommonFile basAutoExec Form_splashpaml1F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA a `J_N?4C:\Program Files\Microsoft Office\Office10\MSACC.OLBAccess Y p^FDetailAC7?Label0=C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\DAO\DAO350.DLLDAO i 0FC:\WINDOWS\SYSTEM\stdole2.tlbstdole !iWFCc:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLBVBIDE _lŔH_^2TUJCZM`Fp|*#~ɼ@V݂в31?FormSC7?EC7?Command1Label2 Form_OpenCommand1_ClickParse PAutoExec fĤIx8<ɤs h)aN?Q y `GXGP Error# : VBE6.DLL A  Q A S  Dem_dta.mdb tblLabs CheckLinkGetDBDiradhVerifyLinks AutoExec 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 CANCEL 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<Hadh_apiGetOpenFileName comdlg32.dll GetOpenFileNameA Iy0adh_apiGetSaveFileName GetSaveFileNameA IYPCommDlgExtendedError CommDlgExtendedError I9padhCommonFileOpenSaveadhAddFilterItem adhTrimNull 2Locate Data database file _ ZYou can't run database unt?K[ @@@ @ 00SysAccessObjectsULLLLLLLLLLJ on-Indexed*Show Values in RemoteAppTitleStartUpForm&StartUpShowDBWindow(StartUpShowStatusBarStartUpMenuBar$AllowShortcutMenusAllowFullMenus(AllowBuiltInToolbars&AllowToolbarChanges$AllowBreakIntoCode AllowSpecialKeysAppIcon,StartupShortcutMenuBar6Track Name AutoCorrect Info0Perform Name AutoCorrectCpgConversionProjVer 08.50       splash                0L00HH@@xHK[v1Γg ggg˼ @ @ @ @ @ @ࡱ>  Root Entry +4B .VBA+!+4BVBAProject+!+4BVBA+!+4B  _%678:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^`abcd5fghijklmnopqrstuvwxyz{|}~PROJECTa PROJECTwmjAcessVBADatamForms +!N4  !"#$%&'()*+,-./0123456789:;<=>?@Abcdefghiklopqrstuvwxyz{|}~0, 0, C basAutoExec=66, 99, 946, 544, C Form_splash=22, 22, 634, 387, Z 34, 387, Z Z 1@6,4'eBER sStö FROMbasLinkedTablesbasLinkedTablesbasCommonFilebasCommonFilebasAutoExecbasAutoExecForm_splashForm_splash@CDEMS !Âq7$ $Afform on'SQQDBVNotng Exit_Command1_Click:0=Babc5e ghij+k[g%@"[Event Procedure] Ariald2hghnlH*#,*#-*1`2"'%'ID="{0D5AA6ED-E239-47FE-8207-0C2F8B2A2CB2}" Module=basLinkedTables Module=basCommonFile Module=basAutoExec DocClass=Form_splash/&H00000000 Name="paml1" HelpContextID="0" VersionCompatible32="393222000" CMG="6062616765676567656765" DPB="C0C2C1C2C2C2C2C2" GC="20222122222222DD" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8EK[v1P=*z @ -  } j C 0  m Z G 43-00A0C911005A};VBE;&H00000000 [Workspace] basLinkedTables=44, 66, 924, 511, basCommonFile=0, 0, __SRP_7__SRP_8__SRP_9_VBA_PROJECTMADYBXHZUGWJHEKFNLHCLITYUDZE:Q/YGRUKIJBQMAQTDHMCOIXITSITIPG:e3DOHCARLDBRLPNDROSFCIFKCDLWHI: LEKNOLNIHOVNUDEAUDXAGMPQNWGL:9K_VBA_PROJECT !dir9__SRP_5g__SRP_6 APHNGVEHVOOWRDEUCJBGGCDUTDHF:hBQHTVGMNZVLCQDQOKXUEEUHOYAZE:8FHNWHDEQCSLAQDDZQTBK_MYKAEE_:(YWPFEIWHFAGXNODVRZWCIBQYTGTKJ:550* pHd paml1 @8= Vh @6? 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\SY STEM\12.tlb#OLE Automati,on/VB@IDE> VBIDE5CCE157C5.3Program Files\CommonHShared\VBA6E6EXT.OLBHRVisual Basic for Applic1s Extensibilpity +h@basLinkedTab%GasLinkQ_dT@bbsMADYBXHZUGWJHEKFNLHCLITYUDZ0E28ADY@OXHZUGWJEKFN@HC@IYjD@ EB@ 1!%΁d,0b+f3UX.G*2Cmjm@ni21YGRUKIJBQMAQTDHMCOIXITSITIPG1Y-R'KJ3QM6Q,D)M0O@"XTSBINP K[ @I1%` RExe0cGAu@boPx`2c0DOHCARLD@BRLPND@qFCIFKCDLWDHIDOCR`-D@P/DR`S@"CF2C\L4H)fForm_splashF /r/_Jp/KhLEKNOLNIHOVNUDEAUDXAGMPQNWGLL@KONHVUr*AGXG 3P*Q W/LI5"@,( IbIb"t{hfxME` am  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{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 6? h8MADYBXHZUGWJHEKFNLHCLITYUDZE013fb9ef94basLinkedTablesb!8YGRUKIJBQMAQTDHMCOIXITSITIPG023fb9ef94basCommonFile`%8DOHCARLDBRLPNDROSFCIFKCDLWHI033fb9ef94basAutoExecf08LEKNOLNIHOVNUDEAUDXAGMPQNWGL043fb9ef94Form_splashH5h0Hik'ލK24y9 ӿ F@oD{9 I)a/.̀BoeyBAccessVBAWin16~Win32MacVBA6#paml1daostdole`VBIDEAbasLinkedTablesd _Evaluate CheckLinkZstrTablervarRet CurrentDbS TableDefs%iFields7ErroGetDBDir GetDBDirErr dbCurrent= strDbName strProcNameƣRight UCase5  GetDBDirDoneMsgBoxRNumber- Description vbOKOnly vbCritical+}adhVerifyLinksstrDataDatabase6strSampleTableadhVerifyLinksErrd varReturn`DsK[Z_  f  q  z ' 2 ? LQ\ ix'trDBDir#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-Cancel ExitAccessistempR TxtCountero#Command1SetFocusendsub: RunCommand` acCmdExitCommand1_ClickVrstCodes RecordsetrstqryNew{)QueryDeftblNew[fldNewField3strSQLFTextLine clinic_code-PatID^ TestCode%TestNameTypeTest< TestResultCollectionDate cnt_records? cnt_tableswp strInputFileCreateTableDefj CreateFielddbText dbDate= OpenRecordset| FileSearchD NewSearchfLookInPSearchSubFoldersExecuteY FoundFilesEOFParseBOFy MoveFirstNrrU hH7 ?YKQ7a ) y ! i- - Iq!i1Yq I. !.K)/AB1CICy%!%Q%%// I&&&&9' (1(( HI K3 ,2qKQKYK@:4a @8ppp@<rrr@ @ 1tttI@DQvvv@HC!9?xxxW@Kkd dUpv5d3(<%L:P%` L` $L,)`L` ` `<( `` l(q$`l$  `$ ` ` `4x( ``  LL ,''K[vcP=*z @ -  } j C 0  m Z G xMP@ l(# *# *#l*Fd 2 )`L6d @( x0 `Ld , >(:$NS  `1X6$ Qpp:p8C\G:$ :k8D`Ǽ /6 k8p8Z8:$ :k8D`146&'%'%'%l4F$%p lQh lh@'% %:$% pQ[ ` ()@'% %:$% pQ[ ` ()@'% %:$% pQ[ ` ()@'% %:$% pQ[ ` ()@'%%:$% pQ[ ` ()@'% %:$% pQ[ ` ()@'% %:$% pQ[ ` ()c#lhp D ()"'%'%'$%l4p Qt!  p Q  h l\ @ ! `  (  d % d lT'''"l\*##*# $#*#%*F 263  l  $&l]/c  '44k:D%:$% L $,) Xd+X,(+X,(k+X,(kDkXM$@ )`1P6d+X,(+X,(k+X,(kDkXM$@ )`1<6d+X,(+X,(k+X,(kDkXM$@ )`1H6d+X,(+X,(k+X,(kDkXM$@ )`1@63*+*#,*#lH*#,*#-*1`2"'%'%'$%l`p Qx$x .kx 4.k x .::$%x . 0/ D0`1D)51CD l<221CDlD1?lDJl*#ll4*#h?*1`2 lh l`F%:$7%p Ql'$%l t@*AB*#C*#l4*#D*1`2 l`F%:$7%p Ql'$%l t@u $1dl X@'''@Ek:#*#>d#*#F*#ll#h*F 2lhd6 c=p<'''  ,>F 6  , p X@xL4`hT\<HXlptDdPHlhdppxpv kvs kxpx<(Dkxl Md@4 )4^$ G$46D4$n kvpvkxpz/h$  D4$4@Hpvkxpz/h$  D4$4@H kvpvkxpz/h$  D4$4@H, status_flag, aw_codeK=AddNewa chart_numberSResultur service_date status_flag  type_codefUpdateRepaintRefreshCreateQueryDefzNRecordsAffectedP vbInformationnExit_Command1_ClickiErr_Command1_ClickinstringY component"positioncnt+x  HK[b g n  y & / : G TYdq"/rU T(`$0&$A`( 0` ,0&&nIq!i 1Yq I. !.:)/!"9"y"""#a### $1$i$$$%!%Q%%// I&&&&9' (1((9: < ,,q @9Q:9@:4a @8ppp@<rrr@ @ 1tttI@DQvvvWLK d dUpv5d\ `` l\qX`lX o `$ `` `x\ `` H LL ,''xM4@l\#T*#P*#DlH*Fd 2TPDH)`L6d ( x0 TPHD`Ld >(:( NS `1\6$ Qtp>p< C`G:(  :kp>=C@=CD6CH=CTK=t D $>C:(? :k#*#>d#*#J*#ll#h*F 2lhd6 c=t<'''  ,>F 6   p XDP8dlX`@L\ptxHhTHlhdppxpv kvs kxpx<(Dkxl Md@4 %4^$ K$46D4$n kvpvkxpz/h$  D4$4@H A Y?i)basLinkedTables basCommonFile basAutoExec Form_splashpaml1F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA a `J_N?4C:\Program Fi P K   lq }     ,'':D N l#X*#T *# l*F$ 2XT ) 6$ RT, l\4 XT  $k0rU $`nWrU~| /i  1 1qi A ii  y Aa ) ! Qy===Y>>Kk04(8%HL FP%`d$ d D` 0'L `!H 0(4 ,)>0F h) d`LH4$ #dd $ldpzpz`( h(0d`LH4 0K*Clh$ lh=thdt (>d1plp +#d,?/dwlpJlp -1p> lp .1xK` #hh $l`q\hx` #hh $P #TT ,$'' lM,@%l`#d*#X&*#LlP*F< 2dXLP)hT6<  04 xplt0 dXPLhT< KSC@l (h h7pz" 1d'ld *F #?/5}ld *FL *#*1`/gl`*#*F      `1`/6l` *# *1`/Ol` *# *F    `1`/6 -l`*F  `1`6-l`*F  `1`6 l`*1`)''@M@`M(@ 6':(NC<  1@\ D@ k>pD@)kDD%:( %$ |hpF@\ DQ@[8H4!H (!lJ/ kFpF :("LH ,!/5K H l!$0 #@@ $l0@pz"*'%kFD(%$ |h H4!YpzK$'%'(%$ |hK0 #@@ $l0q,@x0 #@@ $ #$$ ,$''@M(@%l0#*#(&*#l *F 2( )@$6 " `K[v1NL 4 84h<H@`L\d@ ( @$aLd , >(:$NS  P__SRP_8 T__SRP_9Y_VBA_PROJECT :/rU (`90$`,`Y00n D ()"'%'%'$%l4p QrU~| 0 x  0 x  0   al]/c  '44k:D%rU ,p4,(p4$qPpL`  )Ii0` 00(` P5hxMEPS<S<S<<<< << (  X  R $N0{BC95C07C-179E-11D5-88B3-00AA002AB2F7} @i`,`x   %  % L(ru% H`% h % "%`& `cess`(Erro`* "`,`.`0nd q`2`4m lo`6tory`8ile.`:aCar`<ited,Viz(ludei|Hy DEi HOL,`~Dal`io, %0"  0 8@ H Xhx    B  & @"H @P > , D (H Jp D : 8H <K[v1S  : > <@ @ @ @ V@ @ 6  H0 x " X J B` 6  f Ph < X 8P F &       ( 0 "8 0`     B 0 8 @ H P X  ` x         @ `  x  *  * 4  *( <X : , $   *H $x @$$( Pp$$"  (  *@ Hp      B <  >H(,   *  H( Hp    H` H  D 8 X  h    @  ` p 0     " & 8 Xh         08@ HX,`  & 6,(X  ( (8 8`  0  (( @ BP   (0 8 @Pp xB  F B  8 (H 4p  , 0 ! ! !  @!P!2`!! !! !xpruns link codendboH]`]x$' Gilbe )$ 0 ! B@ x " KT  B@' quits accessS@ Error# "!6:  "!8 : < ,A@4 Dn jumps around quittng accessr'o:Program loaded into same directory as "cdem_dta.mdb" file.8Works with DynaCare data file in delimited field format. &Dynacare files provided weekly on disk=Measurement set is includes the 9 labs being tracked by DEMS:"lipid panel (CHOL, TRIG, HDL, LDL)Dalbumin/creatinine ratio, ha1c, creatinine, 24 hr Protein, LFT (AST)=But they are entered into tlkpCrosswalk lab_code column e.g.,3type_code working_code raw_code lab_code1-------------------------------------------------5Lab Ser. Creatinine crea Creatinine3Lab AST (SGOT) AST (SGOT) AST(GOT)7Lab Triglyceride tri K[v1(`g Triglyceride6Lab Cholesterol chol Cholesterol:Lab HDL hdl HDL Cholesterol:Lab LDL ldl LDL Cholesterol9Lab HbA1C ha1c Hemoglobin A1CPLab 24HrUrineProtein 24up ???don't know this one -ever order???9Lab MiAl/Crea ratio alcr Microalb/Creat/Step 1: acquire disk from dynacare, named .txt"Step 2: floppy in a: driveAstep 3: open this program (now dyna_cdems_1.mdb) and press buttoninternal stepsa.) program opens "a:\*.txt"Rb.) program creates new table internally "tblLabs2/28/03_1" with tblLabs structureDc.) program fills the tblLabsmdyy_x with data from dynacare lab file<d.) tblLabsmddyy_x field clinic_code is updated from tblDemo0e.) tblLabs_mmddyy_x is then appended to tblLabsf.) summary stats written_This process is designed to allow the matching of patients with unique chart_numbers into CDEMSJDEMS requires clinic_code + chart_number to be the key so the clinic_codes5need to be assigned before the appending of new data.QIf patient nmumbers can't match the program can match non last name date of birth1comment out routine one and make routine 2 active@================================================================ On Error GoTo Err_Command1_ClickW]]]]0]P]p]]dynacare input file]!record inside dynacare input fileDim fs As FileSearchDim varItem As Variant cdems fields]$3the clinic_code field put into the CDEMS lab record]]] ]8]P]hsummary fields]]]$dynacare file namepatient identifiersDim LastName As StringDim FirstName As StringDim dob as date:Dim ResultComment As Boolean 'if result is simply commentS*$\'( .L'8':to assign the new table name#===================================*.txt' opens the txt file in the floppy#===================================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. < L%>.   clinic_code B7@5 B@ chart_number B7@5 B@raw_code B7@5 B@result B7@5 B@ service_date D7@5 B@ status_flag B7@5 B@ type_code B7@5 B@q  L!B@ < L%F.#===================================Bsearches for new downloaded dynacare lab files in a:\ floppy drive !HC@J 9a:\9L9NC@P7P d  Input file % was not found in the CDEMS directory $ ^>Please copy new input file to the CDEMS folder, and try again.A@4|Hk@<************************************************************6the file parsing routine: moves data into cdems format7Open GetDBDir() & FileName For Input As #1 ' Open file.7R( Open file.qH $Tb  Loop until end of file. 8 ) (" Read line into variable. ( ($V ($V ($V  $', ( ($V ($V ($V  $'6 Ms K[v1 @ @ @ @ @ @ @gBox TextLine MsgBox "start: " & Parse(TextLine, 1) + 1 & "' " & "end: " & Parse(TextLine, 2) & "len: " & (Parse(TextLine, 2) - Parse(TextLine, 2) - 1) ( ($V ($V ($V  $'0 ( ($V ($V ($V  $'4>If InStr(TestResult, "TRIG. >400") Then 'to report uncalc ldl TestResult = "UTP"End If =============0SELECT tlkpCrosswalk.raw_code FROM tlkpCrosswalk" WHERE (((tlkpCrosswalk.lab_code)=' 0'));'& & L%F. !X !T9"is this lab raw_code in Crosswalk? B@Z "\'2 )MsgBox "good record " & rstCodes!raw_codedH na'2k0 =============== 6No DateGna'2j 2na 2 8test 6 4  B@^unknown )* , )` 4 )b 2 )\ 6 )dc )fLab )h B@jkdk 8 '8#lab results tracked reported'6'4na'2', B@lthis displays the txtCounterhV Close file. L!B@n===============================0data now in me.tblLabs - but has no clinic codes[tblLabs Z_ :]'< UPDATE < INNER JOIN tblDemo ON  <'.[chart_number] = tblDemo.chart_number SET  <).[clinic_code] = [tblDemo].[clinic_code];'& & L%p. B@P!=================================2data now needs to be append to tblLabs of dta file }strSQL = "INSERT INTO tblLab (clinic_code, chart_number, raw_code, result, service_date, status_flag, type_code )"'& "SELECT " & strInputFile & ".clinic_code, " & strInputFile & ".chart_number, " & strInputFile & ".raw_code, "'& strInputFile & ".result, " & strInputFile & ".service_date, " & strInputFile & ".status_flag, "'& strInputFile & ".type_code FROM " & strInputFile & ";"gINSERT INTO tblLab (clinic_code, chart_number, raw_code, result, service_date, status_flag, type_code )OSELECT clinic_code, chart_number, raw_code, result, service_date, status_flag, type_code FROM  <;'&strSQL = "INSERT INTO tblLab (clinic_code, chart_number, raw_code, result, service_date, status_flag, type_code) " '& "SELECT clinic_code, chart_number, raw_code, result, service_date, status_flag, type_code FROM " & strInputFile & L%p. B@P<************************************************************ &Total patient records in input file: 8 $ ^(Records appended to CDEMS lab table  !r tA@4.Lv|x "!8A@4Exit_Command1_Clickvo?Steps through a string input looking for character "^" Chr$(94);When the count of Chr$94) characters found equals componentreturn the positionInput! instring = the string to parse- component = the number of Chr$(94) to find&Returns the column position as variant]h"holds col for desired nth Chr$(94)]'~' number of "^"  |a ~ '~ z ~$^$^G  'j` ~'ViPHGAttribute VB_Name = "Form_splash" Bas0{BC95C07C-179E-11D5-88B3-00AA002AB2F7} |@GlobalSpacFalse dCreataDblTru Predecla Id"Expose_Tem܀teDerivCustomizD$Option Comp@ D3T  eInt_s "d7cP#InW '6"!=sS,'p N nt:i rt Last$Fi6dobDO#< Bo an@ifTsuZsiPy GS-= s(83, "*" P<= Curr}@Dq= 0 cnt_tables = 1 'to assign the new  namea '=VF0ileNr"* .txt"opens^ f" infloppy/f'Creatan output (eg., "tblLabs051_1T")3'ssted ~be manually eHras orVy accumul4PDo Until Chec@kLink(5"0 & D"_ )Fals + 16LoopstrInqk6$ ' T a€TDef object.Bfields a`nd apwRhemASŐ SeiblN= DlB. ( :kWpith < 5 .F.A("clinic_code", dbTextAohart_n umber.rawsresultservice<_dAe:status_fla g +,type64E CA7 =e<s6e:#Crst [`O JRecordsetBZsearchf z!download`|dynacare labBsaa:\ c drivu PMlication`HleS  .S Ece {kIn!y "SubFolderA.Ex0ecutćIf () > 0` Then\E%MsgBox ""c& " was not0 fou6DCDEMS diroryChr$(10) _`Ple@ copyi `Jf,Btr@gain.Exit  GIf|'*6?aBparsing rine: mo6v`Bfa@>cdemsrmat/i'S GetDBDir`.4& (F LC,As #1 ' 3c.FA,s(1) ho WhAN 5EOFIe' ue9`8ofb0DMe !TxtCter'Aga6D# me #1, T"' Read UevariqbjPatIDMid(e, PePo, (a2) -A1)N Collg`*9w=  5) ne, 6, - I>'$67Vrt:6& !'>"  7leNn , B1 TestOIpOQ 3_VjRn/!,!0r4, 'A`RInStr'stTRIG. >400")rS`@report4calc ldl1: "UTP{['Kї 7 SQL"SELECT tlkpCros@swalk.% FROM"EX5t" WHEREp (((nb{)=\"'Q p"));8 X ;rzC0qj?{tr` `KU.BOxF AJJ`Mi@yfi? M]FiT@!u<"good R9R#w"na:"G N"No"s?ZV<> á Len(a1B3!@6K .AddڽA![]q2unknP/*" ("h"![ a!"$?_T7A"cODr@!.Up w End I f HElse\cnt_records =  + 1 'lab results trackedportedeCollectionDate D""TestR: ypena)PatID$Me.Repaint'this displayBhe txtCounter4LoopClose #\] file. DB.TableDef K[ @ @ @s/fjh` '=data now in me.tblLabs - but has clinic codes-strInputFBp[" & & "_tO2s "]SQLUPDATE  INNER JOIN Demo ON% _ & M .[chart_nu`mber] .I"SET=_=AA8 ] H;@4#Set qryNew@eCreQueryf("",+=) .ExecLut_k==kneeto be appe' varRet = adhInitAutoNum()'d8'k(  $v' B@z "S Error# "!6:  "!8 : < AutoExecA@4nxpih`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@Y0C@\ D@ k>pD@)kDD%:( %$ |hpF@\ DQ@[8H4!H (!lJ/ kFpF :("LH ,!/5K H l!$0 #@@ $l0@pzlP P,X %h`|LnGetOpenFileNameA<GetSaveFileNameAd(CommDlgExtendedErrorxMEP(<<< <` P`heck` rel`X9 `data`t di`N`ser `sing``e '`t be` `l the`"`n yo```!`this+`8  )X scr%+ ( )'%+P HLiabeHLHbLHdLJHL4HLFileHLhComHL% fHLmmonHL HLHLHLHLHLHLHLHLHL+fx ^il 0i Pij pi i i in ih  (%``` +`iXii +rXi`h  * ,8 ,h   (08@HPX H`HpH            ( 8 HXhx BL* < 8( $`  * ,