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( $`  * , ,   ( F8 : : 0 >0 <p F , >( ,h :  <K[v1 @ @ (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 `,  B  <  * ,8 ,h   :  > @ H Xh   $ From Access 97 Developer's Handbook\b% by Litwin, Getz and Gilbert. (Sybex)$ 0% Copyright 1997. All Rights Reserved.XP^^0^H^`^x^^^^^^^ ^8^P^h^^^^^p`]$ ]$ ]$8]$P]$h]$]$]$]$]$]$ ]$@]$(]$@]$X]$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 j$G'jj $G'j l$G'lj $G'j $G'j n$G'nj h$G'hj0 Allocate string space for the returned strings. $\$'$\'7 Set up the data structure before you call the function  9 !9 j9X 9 9 9 9 9 n9 l9l 9 L91 Didn't think most people would want to deal with these options.9$\999qK[v1 @ @ @ @ 1 This will pass the desired data structure to the3 Windows API, which will in turn it uses to display the Open/Save As Dialog. h $'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. l$G !l'lj !$r'fd0'fk 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 X    '`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  '    $'rdx 'rkhi`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^ K[v1, kRF .Up1MI[#xcnt_`PZ@ r8N"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 rogram Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Vi!hbxME(Hzi@hiB`F `H`J L%`N  P %`T`V`,`X`ZX   * ,8 ,h 2  B    0 (( P *X , ,   $ ( <8 x <   8 : P p  B   > 8 8 *@ ,p ,     > H <X         ( 8@H PX`BhK[v1  B  8 @  >`  * , , 8 @ :P <  >  <0 p x            ,  ( 0 8 @  @H   0   6 F8  b p  B  6H    @ ,  2(` (V    L X p x   6 .  0 :P 4    20 (h   $     ( 08@PX `hpBx $ From Access 97 Developer's Handbook000% by Litwin, Getz and Gilbert. (Sybex)1\% 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 * * $ '* *$ 0'$2z& "S Error# "!6:  "!8 : < ,A@42Hn@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 pelD]]]]]K[v1 @ @ @]](]@]X]p]adhVerifyLinks',% Verify Links using one sample table. B$'F F'>\k9 Get name of folder where application database is located$$'H H @$ ~* Data database found in current directory. H @'Nd0 Let user find data database using common dialog The required file ' @' could not be found.'J J! You can use the next dialog box "to locate the file on your system. $^ $^ $^'J J! If you cannot find this file or #are unsure what to do choose CANCEL'J J! at the next screen and call the 4local database administrator, or program developer:  $^ $^'J J( Washington State Department of Health $^'J J Diabetes Control Program $^'J J (360) 236-3738'J J : < ,A@49 Display Open File dialog using the adhCommonFileOpenSave% function in the basCommonfile module XAccess (*.mdb)*.mdb$`'X b b d'Z   h Xj ZlLocate Data database filen$f'N N$p  User pressed Cancel. -You can't run database until you can locate ' @'.'J J : < ,A@4'>\dx N$r'Nk`kX0Rebuild Links. Check for number of tables first. .L L!!t'V xRelinking tables V$v'F Loop through all tables.4 Reattach those with nonzero-length Connect strings.'T P L!- If connect is blank, its not an Linked table P!z T 'T ;DATABASE= N P(z + The RefreshLink might fail if the new path ! isn't OK. So trap errors inline.h PB@| If one link bad, return False "'>\kk ~ T $v'F P'>\  $v'F z D "S  Error# "!6:  "!8 : < ,A@4n8 \0 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 ' DsK[v1 @ @ @ 6iPX 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"0or#+.F!J& "1De ipA?l%c Re32) Yag, 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 & ";"   Input file % was not found in the CDEMS directory $ ^>Please copy new input file to the CDEMS folder, and try again.A@4"GAttribute 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.TableDefs/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 appe8 (3x  ,  4  *  zV (h`|LnGetOpenFileNameA <b GetSaveFileNameAd( CommDlgExtendedError daxRRLLMEP(@6 < < h0en.hH, fih`datahXx 7 hdataht dihNhser h singh$$h ((e 'h8,,t behP00 hlh44 theh88"h::n yoh<<h@@hDD!hHHthis+`p8  )X scrA%+(p ( )'A%+PpP ʘbBʘXBʘBʘ8BʘB ʘ` B ʘB ʘHCʘCʘC%+fx`  ^^7il 0i Pij pi i i in ih  (%``` +`` iXii +r` Xi`hʘBʘBʘd0BʘBʘBʘ@B ʘ C ʘpCʘ C` p0X`x8H( `o>$*\Rffff*043faff0fd(*\Rffff*043faff0fd\0  * ,8 ,h   (08@HPX H`HpH       K[v     ( 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       B . B( :p 8  * ,  ,P   , 4   *0 `,  B   <  * ,8 ,h   :  > @ H Xh   $ 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]$]$]$8]$]$ ]$@`]$]$]$ ]$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 j$G'jj $G'j l$G'lj $G'j $G'j n$G'nj h$G'K[hj0 Allocate string space for the returned strings. $\$'$\'7 Set up the data structure before you call the function  9 !9 j9X 9 9 9 9 9 n9 l9l 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. h $'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. l$G !l'lj !$r'fd0'fk 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 X    '`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  '    $'rdx 'rkhi`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)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 @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 PROJECTaPROJECTwmjAcessVBADatam Forms +!N4ommonFile=0, 0, 0, 0, C basAutoExec=66, 99, 946, 544, C Form_splash=22, 22, 634, 387, Z 1@6,4'eBER sStö FROMbasLinkedTablesbasLinkedTablesbasCommonFilebasCommonFilebasAutoExecbasAutoExecForm_splashForm_splash@CDEMS !Âq7$ $Afform on'SQQDBVNotng Exit_Command1_Click:0=Babc5e ghij+k[g%@"[Event Procedure] Ariald2hgh0+!zBlob nPropDataTypeInfoK[vMS Sans Serifm45 Tahoma`@ Detaild25U`axbrc+d Label04DynaCare - CDEMS Interface Arialh1U`abciCommand1Command1"[Event Procedure]8( ʦʦʦʦʦʦʦʦʦʦʦʦ                                                                     Run Appd5UK[`o ab c Label20Decode raw DynaCare filem47UCF`a b9cTxtCounterGrcC"( data structure before you call the function  9 j9X 9 9 9 ͬ|*Detaild Label0h Command1d Label2mTxtCounterthese optidhmdhdmthe desired data structure to the3 Wisplashin turn it uses to display th 0CB0Dialog. h $'dH $BlobDeltaUDirDataPropDataCmdbars+!+!Modules*#+!N40"+!+!PropData 1!'$+!+! strDescription: new filter descriptionarItem: new filter Out:$ Retu file filter $G*.*'jbasAutoExecbasCommonFile"basLinkedTableseturned by an API call 2CB0 1CB0 0CB0r's Handbook% byijert. (Sybex)% Copyright 1997. AlMSysDb In:4 strIPropData 2&+!+!PropData DirData%(dPropData%Reports+!+!Scripts),+!+!PropDataDatabases+0-+!N40/.+!+!Blob DirDataCustomGroups1+!+!DataAccessPages +!+!K[Root Entry IOt@=VBA+!IOtVBAProject+!IOtVBA+!IOt^ !"#$'()*+,-./1234578PROJECTaPROJECTwmjAcessVBADatam Forms +!N4  !"#$&()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOQRSUVWXZ[\]^_`bcdefghiklopqrstuvwxyz{|}~nFile=0, 0, 0, 0, C basAutoExec=66, 99, 946, 544, C Form_splash=22, 22, 634, 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="777576FD8A031107110711071107" DPB="0200038A8F8B8F8B8F" GC="8D8F8C1B9CA79DA79D58" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] basLinkedTables=44, 66, 924, 511, basCommoAPHNGVEHVOOWRDEUCJBGGCDUTDHF: hBQHTVGMNZVLCQDQOS Y N//Y p Y <Y  Y  Y  Y Id LValueObjectGuidObjectNameProperty Value/D/E/FYYYId$ObjectGuidProperty$ObjectNameProperty/Name OwnerParentIdRmtInfoLongRmtInfoShortTypeniYYIdParentIdName        Hv1bS Y  Y Y Y  Y  Y Y  Y AttributeExpressionFlagLvExtra Name1 Name2ObjectId Ordernzf edY"ObjectIdAttribute  Root Entry `,H VBA,H`,HVBAProject,H`,HVBA,H,Hdir_VBA_PROJECT" PROJECT-5PROJECTwm2  !"#$%&'()*+,./01ձ0* pHd cdems_dtDa0@ = p }>J J< rs@tdole>stdol@e f%\*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tlb#OLE Automation^DAO>IDAO@ @5E0 1@5@PROGRAM FILES\COMMONMICROSOFT SHARE D\;350.DLL#Micr@osoft 3.51 Object LibraryHVBIDE> VBIDE\\E157\VBA\VBEEXT1.OLB.Visual Basic for Applic\s Extensibi(lit3™"@/am  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#C:\Program Files\Microsoft Office\Office10\M@ g  @ @ @ @ @ @      !"#$%&'()*+,-KLM N!O"P#Q$R%S&T'U(V)W*X+Y,Z-[.\/]0^IdParentIdName         L d* N x Z <  Q  k 3 x1tblLabsNew.*+ gx1tblLabsNew%%% x1tblLabs Ox1 x1 Gx1tblLabsNewtblDemo\@2?3% x1tblLabsNew.clinic_code[tblDemo].[clinic_code]b= wx1tblDemo x1tblLabsNew%%% x1 Gx1 x1 GX@2 'Copy of tblLabstblLabs^@2I=/ Copy of tblLabstblLabsj@2I=/ Copy of tblLabstblLabsf@2I=/  [Copy of tblLabs].chart_number= gtblLabs.lab_date/ gtblLabs.result- gtblLabs.type_test0 gtblLabs.chart_number3 gtblLabs.clinic_code2 gtblLabs Copy of tblLabs///  G G  GLVAL0z @ 111111111 1 1tblLabsNew.chart_number = tblDemo.chart_number((([Copy of tblLabs].chart_number) Is Null))[Copy of tblLabs].type_test = tblLabs.type_test[Copy of tblLabs].chart_number = tblLabs.chart_number[Copy of tblLabs].clinic_code = tblLabs.clinic_code LVAL6l  @@@ @ kf^JkWLJkJomdQuQMLJkMd``dbSY^QLJk^Yb\QOmJL^QkJO`YbOJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^Qk`kvkJMMQkkdL[QMmk`kvkJMQk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkhiv+SYbOkbQs^JLkhivfd^vOvbJMJiQ8hivfd^vOvbJMJiQ:JMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQOC:\Documents and Settings\Jacquelyn Gianunzio\My Documents\DOH\CDEMS\DB filesC:\Documents and Settings\Jacquelyn Gianunzio\My Documents\DOH\CDEMS\DB files\Pure CDEMS\Cdem_dta.mdbC:\Documents and Settings\Jacquelyn Gianunzio\My Documents\DOH\CDEMS\DB files\Pure CDEMS\Cdem_dta.mdbC:\Documents and Settings\Jacquelyn Gianunzio\My Documents\DOH\CDEMS\DB files\Pure CDEMS\Cdem_dta.mdbpYN55 Y  Y  Y  Y Y Y  Y clinic_codechart_numberraw_code resultservice_datestatus_flagtype_code2Y  Y   Y  Y ConnectDatabaseDateCreateDateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeYYIdParentIdName        x1 Gx1tblLabsNewtblDemo\@2?3% x1tblLabsNew.clinic_code[tblDemo].[clinic_code]b= wx1tblDemo x1tblLabsNew%%% x1 Gx1 x1 GX@2 'Copy of tblLabstblLabs^@2I=/ Copy of tblLabstblLabsj@2I=/ Copy of tblLabstblLabsf@2I=/  [Copy of tblLabs].chart_number= gtblLabs.lab_date/ gtblLabs.result- gtblLabs.type_test0 gtblLabs.chart_number3 gtblLabs.clinic_code2 gtblLabs Copy of tblLabs///  G G  Gdv @ @ @111111111 1 1 1 1 11111111111 ?B44rw$ ~ - 6 ? J N  4UC^L y(=Z   Y X Y %@unknown784459M01ha1c6.6cLab@:82* %@unknown784459M01crea1.1cLab@:82* %@CLINIC2345-7ha1c6.2cLab820*" %@CLINIC2345-7crea0.6cLab820*" %@unknown692708M01ha1c5.9cLab@:82* %@unknown692708M01crea0.9cLab@:82* %@unknown772673M01ldl85cLab<640* %@unknown772673M01hdl46cLab<640* %@unknown772673M01trig199cLab@:82* %@unknown772673M01chol171cLab@:82* %@CLINIC2323ldl93cLab0*($ %@CLINIC2323hdl64cLab0*($ %@CLINIC2323trig56cLab2,*& %@CLINIC2323chol168cLab4.,& %@CLINIC2323ha1c7.2cLab4.,& %@CLINIC2323crea0.7cLab4.,& %@unknown653567M01crea2.2cLab@:82* %@unknown982822M01crea1.6cLab@:82* %@CLINIC1234ldl132cLab2,*$ %@CLINIC1234hdl35cLab0*($ %@CLINIC1234trig367cLab4.,& %@CLINIC1234chol240cLab4.,& %@CLINIC1234ha1c11.4cLab60.& %@CLINIC1234crea1.0cLab4.,& %@unknown799405M01ldl97cLab<640* %@unknown799405M01hdl63cLab<640* %@unknown799405M01trig155cLab@:82* %@unknown799405M01chol191cLab@:82* %@clinic1ldl136cLab,&$ %@clinic1hdl69cLab*$" %@clinic1trig135cLab.(&  %@clinic1chol232cLab.(&  %@clinic1ha1c6.8cLab.(&  %@clinic1crea0.9cLab.(&  +@unknown960939M01alcr16.6cLabB<:2* *@unknown804822M01alcr6.1cLab@:82*  *@unknown886997M01alcr9.3cLab@:82* @)@unknown913667M01alcr28.5cLabB<:2* (@unknown772673M01alcr15.8cLabB<:2* (@unknown755158M01alcr3.4cLab@:82* '@unknown819126M01alcr21.2cLabB<:2* '@unknown787509M01alcr17.8cLabB<:2* '@unknown836038M01alcr7.5cLab@:82* '@unknown808112M01alcr0.0cLab@:82* '@unknown764520M01alcr175.1cLabD><2* `'@unknown135936M01alcr3.7cLab@:82* '@unknown801770M01alcr27.8cLabB<:2* &@unknown796606M01alcr21.9cLabB<:2* &@unknown799893M01alcr33.4cLabB<:2* &@unknown693735M01alcr107.1cLabD><2* %@CLINIC2323alcr115.8cLab820& %@PILOT12345alcr7.2cLab4.,& M41`q | + 8 M Z k  |+@Mbs&3H[&@unknown427090M01ha1c5.8cLab@:82* &@unknown816339M01ldl47cLab<640* &@unknown816339M01hdl47cLab<640* &@unknown816339M01trig73cLab>862* &@unknown816339M01chol109cLab@:82* &@unknown816339M01ha1c5.8cLab@:82* &@unknown755158M01ldl77cLab<640* &@unknown755158M01hdl36cLab<640* &@unknown755158M01trig155cLab@:82* &@unknown755158M01chol144cLab@:82* &@unknown755158M01ha1c6.0cLab@:82*  &@unknown685504M01ldl88cLab<640*  &@unknown685504M01hdl49cLab<640*  &@unknown685504M01trig120cLab@:82*  &@unknown685504M01chol161cLab@:82*  &@unknown523430M01ldl81cLab<640*  &@unknown523430M01hdl67cLab<640*  &@unknown523430M01trig137cLab@:82*  &@unknown523430M01chol175cLab@:82*  &@unknown523430M01ha1c6.1cLab@:82*  &@unknown523430M01crea1.7cLab@:82*  &@unknown804822M01ldl84cLab<640*  &@unknown804822M01hdl39cLab<640*  &@unknown804822M01trig197cLab@:82*  &@unknown804822M01chol162cLab@:82*  &@unknown804822M01ha1c7.9cLab@:82*  &@unknown804822M01crea1.3cLab@:82* &@unknown749324M01ldl81cLab<640* &@unknown749324M01hdl34cLab<640* &@unknown749324M01trig298cLab@:82* &@unknown749324M01chol175cLab@:82* &@unknown749324M01crea0.7cLab@:82* &@unknown693735M01ha1c8.8cLab@:82* &@unknown693735M01crea1.1cLab@:82* &@unknown891450M01ldl122cLab>860* &@unknown891450M01hdl42cLab<640* &@unknown891450M01trig88cLab>862* &@unknown891450M01chol182cLab@:82* &@unknown891450M01ha1c5.0cLab@:82* &@unknown891450M01crea0.7cLab@:82* %@unknown9426009M01ldl104cLab@:82, %@unknown9426009M01hdl42cLab>862, %@unknown9426009M01trig179cLabB<:4, %@unknown9426009M01chol182cLabB<:4, %@unknown9426009M01ha1c7.7cLabB<:4, %@unknown784459M01ldl111cLab>860* %@unknown784459M01hdl36cLab<640* %@unknown784459M01trig96cLab>862* %@unknown784459M01chol166cLab@:82* 42`s" 7 D W  d  y ( 9J[l2?R_r&@unknown786990M01ha1c6.1cLab@:82* &@unknown741843M01ldl148cLab>860* &@unknown741843M01hdl53cLab<640* &@unknown741843M01trig132cLab@:82* &@unknown741843M01chol227cLab@:82* &@unknown741843M01ha1c6.3cLab@:82* &@unknown846163M01ldl100cLab>860* &@unknown846163M01hdl56cLab<640* &@unknown846163M01trig106cLab@:82* &@unknown846163M01chol177cLab@:82* &@unknown846163M01ha1c7.8cLab@:82* &@unknown852886M01ha1c6.8cLab@:82* &@unknown910313M01ldl83cLab<640* &@unknown910313M01hdl46cLab<640* &@unknown910313M01trig86cLab>862* &@unknown910313M01chol146cLab@:82* &@unknown910313M01ha1c9.8cLab@:82* &@unknown910313M01crea0.6cLab@:82* &@unknown796606M01ldl79cLab<640* &@unknown796606M01hdl38cLab<640* &@unknown796606M01trig390cLab@:82* &@unknown796606M01chol195cLab@:82* &@unknown796606M01ha1c8.4cLab@:82* &@unknown796606M01crea0.8cLab@:82* &@unknown932243M01ldl24cLab<640* &@unknown932243M01hdl37cLab<640* &@unknown932243M01trig972cLab@:82* &@unknown932243M01chol255cLab@:82* &@unknown932243M01ha1c9.7cLab@:82* &@unknown932243M01crea0.8cLab@:82* &@unknown675066M01ldl88cLab<640* &@unknown675066M01hdl43cLab<640* &@unknown675066M01trig100cLab@:82* &@unknown675066M01chol151cLab@:82* &@unknown675066M01ha1c6.3cLab@:82* &@unknown675066M01crea1.7cLab@:82* &@unknown799893M01ldl111cLab>860* &@unknown799893M01hdl52cLab<640* &@unknown799893M01trig116cLab@:82* &@unknown799893M01chol186cLab@:82* &@unknown799893M01ha1c6.2cLab@:82* &@unknown799893M01crea1.1cLab@:82* &@unknown803708M01ldl71cLab<640* &@unknown803708M01hdl36cLab<640* &@unknown803708M01trig146cLab@:82* &@unknown803708M01chol136cLab@:82* &@unknown427090M01ldl106cLab>860* &@unknown427090M01hdl62cLab<640* &@unknown427090M01trig67cLab>862* &@unknown427090M01chol181cLab@:82* /41^ k / B O \ s " ~+:EV g|)0A'@unknown653567M01crea1.8cLab@:82* '@unknown704273M01ha1c6.8cLab@:82* '@unknown704273M01crea0.9cLab@:82* '@unknown8954203M01ldl46cLab>862, '@unknown8954203M01hdl31cLab>862, '@unknown8954203M01trig213cLabB<:4, '@unknown8954203M01chol120cLabB<:4, '@unknown8954203M01ha1c7.1cLabB<:4, '@unknown8954203M01crea1.3cLabB<:4, '@unknown784459M01ldl108cLab>860* '@unknown784459M01hdl38cLab<640* '@unknown784459M01trig82cLab>862* '@unknown784459M01chol162cLab@:82* '@unknown784459M01ha1c6.6cLab@:82* '@unknown764520M01ldl83cLab<640* '@unknown764520M01hdl52cLab<640* '@unknown764520M01trig244cLab@:82* '@unknown764520M01chol184cLab@:82* '@unknown764520M01ha1c8.7cLab@:82* '@unknown764520M01crea1.7cLab@:82* '@unknown3740104M01ha1c8.1cLabB<:4, '@unknown84999M01ha1c6.5cLab>860( '@unknown862539M01ha1c9.2cLab@:82* '@unknown799502M01ha1c8.7cLab@:82* '@unknown3574341M01ha1c6.4cLabB<:4, '@unknown1949980M01ha1c5.6cLabB<:4, '@unknown795493M01ha1c6.3cLab@:82* `'@unknown783371M01ha1c7.3cLab@:82* `'@unknown799738M01ldl69cLab<640* `'@unknown799738M01hdl35cLab<640* `'@unknown799738M01trig65cLab>862* `'@unknown799738M01chol117cLab@:82* `'@unknown799738M01ha1c8.5cLab@:82* `'@unknown799738M01crea1.3cLab@:82* `'@unknown747747M01ha1c5.7cLab@:82* `'@unknown135936M01ha1c7.7cLab@:82* `'@unknown135936M01crea0.6cLab@:82* `'@unknown784618M01ldl107cLab>860* `'@unknown784618M01hdl64cLab<640* `'@unknown784618M01trig216cLab@:82* `'@unknown784618M01chol214cLab@:82* `'@unknown784618M01ha1c5.9cLab@:82* '@unknown801770M01ldl98cLab<640* '@unknown801770M01hdl44cLab<640* '@unknown801770M01trig121cLab@:82* '@unknown801770M01chol166cLab@:82* '@unknown801770M01ha1c7.0cLab@:82* '@unknown801770M01crea0.7cLab@:82* '@unknown699890M01ha1c5.5cLab@:82* C41^ s" / F S  h  u $ 5FSfs"7JW(@unknown726749M01crea1.7cLab@:82* `(@unknown1954155M01crea2.1cLabB<:4, @(@unknown801309M01ha1c5.8cLab@:82* @(@unknown801309M01crea0.9cLab@:82* @(@unknown799738M01crea1.6cLab@:82* '@unknown832619M01ldl111cLab>860* '@unknown832619M01hdl44cLab<640* '@unknown832619M01trig191cLab@:82* '@unknown832619M01chol193cLab@:82* '@unknown819126M01ldl84cLab<640* '@unknown819126M01hdl38cLab<640* '@unknown819126M01trig110cLab@:82* '@unknown819126M01chol144cLab@:82* '@unknown819126M01ha1c7.9cLab@:82* '@unknown819126M01crea1.2cLab@:82* '@unknown772673M01crea1.0cLab@:82* '@unknown787509M01ldl106cLab>860* '@unknown787509M01hdl86cLab<640* '@unknown787509M01trig153cLab@:82* '@unknown787509M01chol223cLab@:82* '@unknown787509M01ha1c5.7cLab@:82* '@unknown787509M01crea1.1cLab@:82* '@unknown772673M01crea1.0cLab@:82* '@unknown223381M01ldl73cLab<640* '@unknown223381M01hdl40cLab<640* '@unknown223381M01trig113cLab@:82* '@unknown223381M01chol136cLab@:82* '@unknown223381M01ha1c7.0cLab@:82* '@unknown223381M01crea1.4cLab@:82* '@unknown777921M01crea1.7cLab@:82* '@unknown789480M01ha1c6.5cLab@:82* '@unknown789480M01crea0.9cLab@:82* '@unknown808112M01ldl92cLab<640* '@unknown808112M01hdl59cLab<640* '@unknown808112M01trig167cLab@:82* '@unknown808112M01chol184cLab@:82* '@unknown808112M01ha1c7.2cLab@:82* '@unknown836038M01ldl73cLab<640* '@unknown836038M01hdl54cLab<640* '@unknown836038M01trig60cLab>862* '@unknown836038M01chol139cLab@:82* '@unknown836038M01ha1c6.5cLab@:82* '@unknown836038M01crea1.1cLab@:82* '@unknown694743M01crea0.6cLab@:82* '@unknown947419M01ldl80cLab<640* '@unknown947419M01hdl32cLab<640* '@unknown947419M01trig198cLab@:82* '@unknown947419M01chol152cLab@:82* '@unknown947419M01ha1c6.1cLab@:82* )41^ i z - 4 A N [  p}0?L_hw&7)@unknown865548M01ha1c6.6cLab@:82* )@unknown804521M01ldl49cLab<640* )@unknown804521M01hdl34cLab<640* )@unknown804521M01trig201cLab@:82* )@unknown804521M01chol123cLab@:82* )@unknown804521M01crea1.2cLab@:82* `)@unknown5305722M01ldl103cLab@:82, `)@unknown5305722M01hdl61cLab>862, `)@unknown5305722M01trig70cLab@:84, `)@unknown5305722M01chol178cLabB<:4, `)@unknown5305722M01ha1c7.4cLabB<:4, @)@unknown804519M01ha1c6.8cLab@:82* @)@unknown913667M01ldl100cLab>860* @)@unknown913667M01hdl43cLab<640* @)@unknown913667M01trig116cLab@:82* @)@unknown913667M01chol166cLab@:82* @)@unknown913667M01ha1c6.1cLab@:82* @)@unknown913667M01crea1.1cLab@:82*  )@unknown807228M01ha1c7.1cLab@:82*  )@unknown807228M01crea1.0cLab@:82*  )@unknown786803M01ldl117cLab>860*  )@unknown786803M01hdl40cLab<640*  )@unknown786803M01trig253cLab@:82*  )@unknown786803M01chol208cLab@:82*  )@unknown786803M01ha1c7.5cLab@:82*  )@unknown786803M01crea0.9cLab@:82*  )@unknown751874M01ldl77cLab<640*  )@unknown751874M01hdl48cLab<640*  )@unknown751874M01trig133cLab@:82*  )@unknown751874M01chol152cLab@:82*  )@unknown751874M01ha1c6.4cLab@:82*  )@unknown751874M01crea0.9cLab@:82*  )@unknown498994M01ha1c7.0cLab@:82*  )@unknown498994M01crea1.2cLab@:82*  )@unknown7827306M01ldl120cLab@:82,  )@unknown7827306M01hdl47cLab>862,  )@unknown7827306M01trig188cLabB<:4,  )@unknown7827306M01chol205cLabB<:4,  )@unknown7827306M01ha1c6.3cLabB<:4,  )@unknown7827306M01crea1.4cLabB<:4,  )@unknown887305M01ldl88cLab<640*  )@unknown887305M01hdl37cLab<640*  )@unknown887305M01trig306cLab@:82*  )@unknown887305M01chol186cLab@:82*  )@unknown887305M01ha1c7.1cLab@:82*  )@unknown887305M01crea0.9cLab@:82* (@unknown772673M01ha1c11.6cLabB<:2* (@unknown755158M01crea0.9cLab@:82* (@unknown726749M01ha1c6.5cLab@:82* )41^s" 7 @ S  d  q ~1>IRcny(9*@unknown786990M01chol151cLab@:82* *@unknown804822M01ldl111cLab>860* *@unknown804822M01hdl42cLab<640* *@unknown804822M01trig222cLab@:82* *@unknown804822M01chol197cLab@:82* *@unknown804822M01ha1c7.6cLab@:82* *@unknown804822M01crea1.1cLab@:82* `*@unknown5717610M01crea0.8cLabB<:4, `*@unknown801309M01crea0.7cLab@:82* @*@unknown2890558M01ha1c6.7cLabB<:4, @*@unknown2890558M01crea0.6cLabB<:4, @*@unknown852886M01ldl131cLab>860* @*@unknown852886M01hdl70cLab<640* @*@unknown852886M01trig135cLab@:82* @*@unknown852886M01chol228cLab@:82* @*@unknown3210418M01ha1c6.2cLabB<:4, @*@unknown3210418M01crea1.4cLabB<:4,  *@unknown5209780M01ldl116cLab@:82,  *@unknown5209780M01hdl32cLab>862,  *@unknown5209780M01trig174cLabB<:4,  *@unknown5209780M01chol183cLabB<:4,  *@unknown5209780M01ha1c7.2cLabB<:4,  *@unknown5209780M01crea1.0cLabB<:4,  *@unknown886997M01ldl25cLab<640*  *@unknown886997M01hdl43cLab<640*  *@unknown886997M01trig219cLab@:82*  *@unknown886997M01chol112cLab@:82*  *@unknown886997M01ha1c6.5cLab@:82*  *@unknown783012M01ha1c6.1cLab@:82*  *@unknown783012M01crea0.6cLab@:82*  *@unknown693735M01ha1c8.5cLab@:82*  *@unknown693735M01crea1.2cLab@:82* *@unknown807228M01crea1.0cLab@:82* )@unknown679867M01ldl66cLab<640* )@unknown679867M01hdl62cLab<640* )@unknown679867M01trig97cLab>862* )@unknown679867M01chol147cLab@:82* )@unknown679867M01ha1c11.9cLabB<:2* )@unknown679867M01crea0.6cLab@:82* )@unknown4541406M01crea0.6cLabB<:4, )@unknown860735M01ldl40cLab<640* )@unknown860735M01hdl33cLab<640* )@unknown860735M01trig859cLab@:82* )@unknown860735M01chol245cLab@:82* )@unknown860735M01ha1c7.3cLab@:82* )@unknown865548M01ldl81cLab<640* )@unknown865548M01hdl50cLab<640* )@unknown865548M01trig102cLab@:82* )@unknown865548M01chol151cLab@:82* 40bs" 3 B S  b  w & 3FUfw&9FW@+@unknown939695M01ldl107cLab>860* @+@unknown939695M01hdl35cLab<640* @+@unknown939695M01trig113cLab@:82* @+@unknown939695M01chol165cLab@:82*  +@unknown799502M01ha1c7.8cLab@:82*  +@unknown799502M01crea0.9cLab@:82*  +@unknown772019M01ha1c5.3cLab@:82* +@unknown656879M01ldl151cLab>860* +@unknown656879M01hdl41cLab<640* +@unknown656879M01trig191cLab@:82* +@unknown656879M01chol230cLab@:82* +@unknown656879M01ha1c8.2cLab@:82* +@unknown656879M01crea0.8cLab@:82* +@unknown960939M01ldl74cLab<640* +@unknown960939M01hdl36cLab<640* +@unknown960939M01trig174cLab@:82* +@unknown960939M01chol145cLab@:82* +@unknown960939M01ha1c6.3cLab@:82* +@unknown960939M01crea1.4cLab@:82* +@unknown720015M01ldl134cLab>860* +@unknown720015M01hdl53cLab<640* +@unknown720015M01trig88cLab>862* +@unknown720015M01chol205cLab@:82* +@unknown720015M01ha1c7.8cLab@:82* +@unknown720015M01crea0.8cLab@:82* *@unknown807228M01ha1c7.0cLab@:82* *@unknown807228M01crea1.2cLab@:82* *@unknown951985M01ha1c6.6cLab@:82* *@unknown914125M01ldl72cLab<640* *@unknown914125M01hdl45cLab<640* *@unknown914125M01trig174cLab@:82* *@unknown914125M01chol152cLab@:82* *@unknown850819M01ldl123cLab>860* *@unknown850819M01hdl38cLab<640* *@unknown850819M01trig321cLab@:82* *@unknown850819M01chol225cLab@:82* *@unknown850819M01ha1c6.7cLab@:82* *@unknown850819M01crea1.1cLab@:82* *@unknown668614M01ldl180cLab>860* *@unknown668614M01hdl55cLab<640* *@unknown668614M01trig202cLab@:82* *@unknown668614M01chol275cLab@:82* *@unknown668614M01ha1c6.8cLab@:82* *@unknown668614M01crea1.1cLab@:82* *@unknown867009M01ha1c6.5cLab@:82* *@unknown786990M01ldl83cLab<640* *@unknown786990M01hdl43cLab<640* *@unknown786990M01trig124cLab@:82* AMvcP=*z @ -  } j C 0  m Z G p]I6# p]I6# Y 1 Y d d uD$~nRKw.֋9g\QJvF|߃0/wִby _)RL9ml4Ey,pI3DIC)ݮ"p d d uD$~nRKw.֋9g\QJvF|߃0/wִby _)RL9ml4Ey,pI3DIC)ݮ"p d d uD$~nRKw.֋9g\QJvF|߃0/wִby _)RL9ml4Ey,pI3DIC)ݮ"p d d uD$~nRKw.֋9g\QJvF|߃0/wִby _)RL9ml4Ey,pI3DIC)ݮ"p d d TuD$~nRKw.֋9g\QJvF|߃0/wִby _)RL9ml4Ey,pI3DIC)ݮ"p d @ᠦiQMRKw= CN %2ߧJvF|߃0/wp:_jtI_L9ml4Ey,pI3DIC)ݮ"p TuD$~nRKw.֋9g\QJvF|߃0/wִby _)RL9ml4Ey,pI3DIC)ݮ"p d TᠦiQMRKw= CN %2ߧJvF|߃0/wp:_jtI_L9ml4Ey,pI3DIC)ݮ"p uD$~nRKw`_V= kKy JvF|߃0/wִby _)RL9ml4Ey,pI3DIC)ݮ"p d uD$~nRKw.֋9g\QJvF|߃0/wִby _)RL9ml4Ey,pI3DIC)ݮ"p d  d  uD$~nRKw.֋9g\QJvF|߃0/wִby _)RL9ml4Ey,pI3DIC)ݮ"p  d  d  uD$~nRKw.֋9g\QJvF|߃0/wִby _)RL9ml4Ey,pI3DIC)ݮ"p  d  d  uD$~nRKw.֋9g\QJvF|߃0/wִby _)RL9ml4Ey,pI3DIC)ݮ"p  d  d  uD$~nRKw.֋9g\QJvF|߃0/wִby _)RL9ml4Ey,pI3DIC)ݮ"p  d  d  uD$~nRKw.֋9g\QJvF|߃0/wִby _)RL9ml4Ey,pI3DIC)ݮ"p  d d d uD$~nRKw.֋9g\QJvF|߃0/wִby _)RL9ml4Ey,pI3DIC)ݮ"p d d d uD$~nRKw.֋9g\QJvF|߃0/wִby _)RL9ml4Ey,pI3DIC)ݮ"p d a a d uD$~nRKw.֋9g\QJvF|߃0/wִby _)RL9ml4Ey,pI3DIC)ݮ"p d a d uD$~nRKw.֋9g\QJvF|߃0/wִby _)RL9ml4Ey,pI3DIC)ݮ"p d a d uD$~nRKw.֋9g\QJvF|߃0/wִby _)RL9ml4Ey,pI3DIC)ݮ"p d d uD$~nRKw.֋9g\QJvF|߃0/wִby _)RL9ml4Ey,pI3DIC)ݮ"p d a a d uD$~nRKw.֋9g\QJvF|߃0/wִby _)RL9ml4Ey,pI3DIC)ݮ"p d a d uD$~nRKw.֋9g\QJvF|߃0/wִby _)RL9ml4Ey,pI3DIC)ݮ"p d d d a d ᠦiQMRKw= CN %2ߧJvF|߃0/wp:_jtI_L9ml4Ey,pI3DIC)ݮ"p LVAL~VH @ʾtblDemoCreate table in Design view1 DҫbmGIF<7'WI7'Wv=k0Pv=dzI=II<Xk0P<(P<<Create table by using wizard1 DҫbmGIF<7'WI7'Wv=k0Pv=dzI=II<Xk0P<(P<<Create table by entering data1 DҫbmGIF<7'WI7'Wv=k0Pv=dzI=II<Xk0P<(P<<tblDemoable by entering data1 DҫbmGIF<7'WI7'Wv=k0Pv=dzI=II<Xk0P<(P<<tblLabsable by entering data1 DҫbmGIF<7'WI7'Wv=k0Pv=dzI=II<Xk0P<(P<<tblLabs7/1/02_1entering data1 DҫbmGIF<7'WI7'Wv=k0Pv=dzI=II<Xk0P<(P<<tblLabs7/10/02_1ntering data1 DҫbmGIF<7'WI7'Wv=k0Pv=dzI=II<Xk0P<(P<<Create query in Design viewqryPolyDynacare1t9 G8A   R9 0 )/ xk9 eTXU=0\Wx8W'@P @?%0TX\Wb[0%08W\xtb90U90#@#@qryPolyDynacare2t9 G8A   R9 0 )/ xk9 eTXU=0\Wx8W'@P @?%0TX\Wb[0%08W\xtb90U90#@#@splashsplash2^KT6@7@bbb&! bbT6@ 7@T6@T6@b;<bA3@hNd}3@%Vm裂3@M Qt0b,B0bAX裂hNd}xb00Create form by using wizard bbT6@ 7@T6@T6@b;<bA3@hNd}3@%Vm裂3@M Qt0b,B0bAX裂hNd}xb00Create form in Design view bbT6@ 7@T6@T6@b;<bA3@hNd}3@%Vm裂3@M Qt0b,B0bAX裂hNd}xb00Creat^LVALne report in Design viewCreate data access page in Design viewbasAutoExecbasAutoExeclb0$G8b8bb0$eTXU=0\Wx8W'@P @?%0TX\Wb[0%08W\xtb90U90#@#@basCommonFilelb0$G8b8bb0$eTXU=0\Wx8W'@P @?%0TX\Wb[0%08W\xtb90U90#@#@basLinkedTableslb0$G8b8bb0$eTXU=0\Wx8W'@P @?%0TX\Wb[0%08W\xtb90U90#@#@iI^HILVAL @p   k @ -  } j C 0  m Z G MR2.AccessVersion 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 AutoCorrectCpgConversionProjVer 08.50       splash                MR2.AccessVersion 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 AutoCorrectCpgConversionProjVer 08.50       splash                MR28AllowZeroLengthRequired4clinic_code  6chart_number  .raw_code  * result  -service_date 4status_flag  0type_code  MR2bRecordLocksODBCTimeoutMaxRecordsReplicable  <MR2bRecordLocksODBCTimeoutMaxRecordsReplicable  <MR2RecordLocksODBCTimeoutMaxRecordsRecordsetType FilterOrderByOrderByOnOrientation:  <   MR2DescriptionB6 .Handles attached tablesMR2DescriptionH< 4Common file open/save codeMR2DescriptionD8 0Runs initialization codeMR20 Title AuthorCompany labcorp18 0Diabetes Control Project0 (Department of HealthLVALh =*z @ -  } j C 0  m Z G p]I6#>>>>>>>>> > > > >>>>>>>>>>>>>$>% >& >' >( >) >* >+ >, >- >. >/ >0>>>> >> >>>>!>">#T\.f@T\.f@tlkpCrosswalk@3tlkpCrosswalk```````FF:: 4T\.f@T\.f@tblLabs2/28/2003_1DDDDDDDDDDD T\.f@T\.f@tblLab@3tblLabDDDDDDD88,, f}  qtblLabsNewf}C &qtblLabsNew qtblDemoά2s&Copy of tblLabs tblLabsά(v%&mtlkpCrosswalktlkpCrosswalk |tblLabtblLab vcO<)   x e  Dw7dpH7Dw7pH7Dw7qH7Dw7xqH7Dw7qH7uuDw70rH7Dw7rH7Dw7rH7Dw7 DsH7Dw7 sH7Dw7 sH7Dw7 XtH7Dw7 tH7Dw7T\.f@T\.f@tlkpCrosswalk@3tlkpCrosswalk```````FF:: 4T\.f@T\.f@tblLabs2/28/2003_1DDDDDDDDDDD T\.f@T\.f@tblLab@3tblLabDDDDDDD88,, T\.f@T\.f@tblDemo@3tblDemoHHHHHHH::.. T\.f@T\.f@@qryPolyDynacare2@@@@@@@@@@@ T\.f@T\.f@0qryPolyDynacare1@@@@@@@@@@@ 2I@άCII@QRY_FINDS NEW LABSd@A@B^RRFFFFFFFD @-f@ -f@MSysAccessObjectsdDDDDDDDDDDB   OW(f@OW(f@Admind@B8,,,,,,,,,*  /~q @G@basLinkedTablesdd@ALLL@@@@@@@> @ J~q @G@basCommonFiledj@AHHH<<<<<<<: @ S*~q @G@basAutoExecdf@ADDD88888886 @  ۋwq @G@splashd..........,  6 @6 @UserDefinedd88888888886  6 @6 @SummaryInfod@ADDD88888886 @ !@ f@AccessLayoutd4MR2KeepLocal d d uD$~nRKw.֋9g\QJvF|߃0/wִby _)RL9ml4Ey,pd .uD$~nRKw`_V= kKy JvF|߃0/wִby _)RL9ml4Ey,pI3DIC)ݮ"p .d .uD$~nRKw.֋9g\QJvF|߃0/wִby _)RL9ml4Ey,pI3DIC)ݮ"p .d d uD$~nRKw.֋9g\QJvF|߃0/wִby _)RL9ml4Ey,pI3DIC)ݮ"p d 4d 4uD$~nRKw.֋9g\QJvF|߃0/wִby _)RL9ml4Ey,pI3DIC)ݮ"p 4d d uD$~nRKw.֋9g\QJvF|߃0/wִby _)RL9ml4Ey,pI3DIC)ݮ"p d d uD$~nRKw.֋9g\QJvF|߃0/wִby _)RL9ml4Ey,pI3DIC)ݮ"p d d uD$~nRKw.֋9g\QJvF|߃0/wִby _)RL9ml4Ey,pI3DIC)ݮ"p  .>>>>>>>>> > > > >>>>>>>>>>>>>$>% >& >' >( >) >* >+ >, >- >. >/ >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.C4C4C 4C >>>> >> >>>>!>">#M:+ +;K[ + B:J@DDH>MSHL88OBFHBD666@@OOJ8DM:+ +;K[ + B:J@DDH@MSHL88OBFHBD666@@OOJ8DM:+ +;K[+ B:J@DDH@MSHL88OBFHBD666@@OOJ8DM:+ +;K[+ B:J@DDHBMSHL88OBFHBD666@@OOJ8DM:+ +;K[+ B:J@DDHBMSHL88OBFHBD666@@OOJ8DM:+ +;K[+ B:J@DDHDMSHL88OBFHBD666@@OOJ8DM:+ +;K[+ B:J@DDHDMSHL88OBFHBD666@@OOJ8DM:+ +;K[  0<@ .JO`YbOJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^QkMWJbUQ+Wu`kvkJMMQkkdL[QMmk`kvkJMQk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkhiv^JLkmL^Mokmd`mL^OQ`dmL^WQJ^mWmL^^JLmL^`QOmL^kQiqYMQkmL^qYkYmkm^\fMYmvm^\fM^YbYMm^\fMidkksJ^\m^\fOQSJo^mkm^\fQmWbYMYmvm^\fUQbOQi m^\fYbkoiJbMQ!m^\ffMf"m^\ff^JbUoJUQ#m^\fkQmof$m^\fkmJmokS^JUk%m^\fqYkYmmvfQ&JMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQO+ B:J@DDFQMSHL88OBFHBD666@@OOJ8DM:+ +;K['+ B:J@DDFSMSHL88OBFHBD666@@OOJ8DM:+ +;K[(+ B:J@DDH6MSHL88OBFHBD666@@OOJ8DM:+ +;K[)+ B:J@DDH8MSHL88OBFHBD666@@OOJ8DM:+ +;K[*+ B:J@DDH:MSHL88OBFHBD666@@OOJ8DM:+ +;K[++ B:J@DDHMSHL88OBFHBD666@@OOJ8DM:+ +;K[+ B:J@DDH@MSHL88OBFHBD666@@OOJ8DM:+ +;K[+ B:J@DDHBMSHL88OBFHBD666@@OOJ8DM:+ +;K[+ B:J@DDHDMSHL88OBFHBD666@@OOJ8DM:+ +;K[9%`@:%`@MSysAccessObjectsDDDDDDDDDDB j lR@j_@tlkpGender@BBB66666664 @Mix lR@j_@tblVisits@@@@44444442 @2$ lR@2$ lR@{62A57792-CF9B-11D6-8967-00055DDA17C2}nnnnnnnnnnl  lR@ lR@{62A57797-CF9B-11D6-8967-00055DDA17C2}nnnnnnnnnnl  lR@ lR@{62A57796-CF9B-11D6-8967-00055DDA17C2}nnnnnnnnnnl  lR@ lR@{62A57795-CF9B-11D6-8967-00055DDA17C2}nnnnnnnnnnl  lR@ lR@{62A57794-CF9B-11D6-8967-00055DDA17C2}nnnnnnnnnnl 2$ lR@2$ lR@{62A57793-CF9B-11D6-8967-00055DDA17C2}nnnnnnnnnnl  .       ' ( ) *+#*2<CMRV[aej q!t"x#}$%&LVAL :HD) ) ]?@% )  % 4 d   0 H ` h p         ( 0 H X p     d   0 H ` h p         ( 0 H X p     d                         d   0 H ` h p         ( 0 H X p       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     P    $8  :g_@hf@H  @9 `  @9 x  @9   @9   @9   @9   @9   @9   @9   @9 0  @9 H  @9 X  @9 h  @9 p  @9   @9   @9   @9   @9   @9   @9   @9   @9 (  @9 @  @9Patient_IDclinic_codechart_numberlast_namefirst_namedobsexethnicityprimary_languageaddress1address2city statezip phone1 phone2pcpinsurance _datestart_dateend_datelast_update_date migranthomeless otherC:\Documents and Settings\All Users\Documents\Shared Data\seamar\cdem_dta.mdb tblDemo tblDemo ( @  H `  h                   8  @ X  ` x                       0  8 P  X p  x           Patient_ID( clinic_codeH chart_numberh last_name first_name dob sex ethnicity primary_language address1@ address2` city state zip phone1 phone2 pcp insurance _date  start_date8 end_dateX last_update_datex migrant homeless other   &     8   p                                                              h ) x" #P 8 ` 8   8   8   8  P 8   8   8 LVAL  8   8   8   8   8   8   8   8   8   8  P 8  P 8  P 8  P 8   8   8   8   z  # x$ h) $ @9   P 0 ` h p       H        (  `        0  @ @  x P   `   p     X          d  d0  dh  d     dH  d  d  d  d(  `        d@  dx     X  d  d  Ȅ d# # # # (# 0# 8# @# H# P# X# `# h# p# x# # # # # # # # # # #   0 h    H    ( `    @ x     X    8 C:\Documents and Settings\All Users\Documents\Shared Data\seamar\cdem_dta.mdb tblDemo d$ $  d%  d % PrimaryKeyPatient_IDclinic_codechart_numberH%  v ) 8( ( (  & &q & & & & & & & & & & & & & & & & & & & & & & & & & & & & X)   h) H) ) % C:\Documents and Settings\All Users\Documents\Shared Data\se!amar\cdem_dta.mdb tblDemoPrimaryKeyP % )  ) P & h) 8) h) ) 8 LVALNMR2OrderByOnColumnWidthColumnOrderColumnHiddenRequiredAllowZeroLengthDisplayControlDecimaD    4]?    (  H p      H p      ` ` ` ` ` ` ` H p       d  d  d  d   d  d clinic_code tblLabchart_numberraw_code resultservice_datestatus_flagtype_code     $`  Pi_@YO7f@ H Z`     ] clinic_codechart_numberraw_code resultservice_datestatus_flagtype_codeC:\Documents and Settings\All Users\Documents\Shared Data\seamar\cdem_dta.mdb tblLab tblLab ( @  H h  p              clinic_code( chart_numberH raw_codep result service_date status_flag type_code   @    8 X x                                                               ( 0 `  `   `   `   `  P `   `   `   z         x H        (   d  d  dH  d   d  d( D         H    ( ` C:\Documents and Settings\All Users\Documents\Shared Data\seamar\cdem_dta.mdb tblLab dP  dh  d  d   d  d  d  dP type_codePrimaryKeylab_typelab_referallab_dateclinic_codechart_numberK{62A57795-CF9B-11D6-8967-00055DDA17C2}K{62A5778E-CF9B-11D6-8967-00055DDA17C2}  v `  8 H  @ @q @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @       ( C:\Documents and Settings\All Users\Documents\Shared Data\se!amar\cdem_dta.mdb tblLabPrimaryKeyP ( `  ` P @     ` LVALN m Z G p]I6#r_L8%uaN;:'breviation    Yٮ خ Tt;ug>&?ќ21-9aqm >QS%{YDL_ y +Wq]Kvp&N:UJpNPإrp ٮ Tt;ug>&?ќ21-9aqm >QS%{YDL_ y +Wq]Kvp&N:UJpNPإrp ٮ خ t;ug>&?ќ21-9aqm >QS%{YDL_ y +Wq]Kvp&N:UJpNPإrp ٮ خ t;ug>&?ќ21-9aqm >QS%{YDL_ y +Wq]Kvp&N:UJpNPإrp ٮ خ t;ug>&?ќ21-9aqm >QS%{YDL_ y +Wq]Kvp&N:UJpNPإrp ٮ خ t;ug>&?ќ21-9aqm >QS%{YDL_ y +Wq]Kvp&N:UJpNPإrp D T  ]?x @888 d  d  d  d raw_codetlkpCrosswalktype_codeworking_codelab_code h$ PTsf@YO7f@`  x     raw_codetype_codeworking_codelab_codeC:\Documents and Settings\All Users\Documents\Shared Data\seamar\cdem_dta.mdbtlkpCrosswalktlkpCrosswalk x   raw_codextype_codeworking_codelab_code   P8HXhxH         z  H(h P   8  p   d  d  d8  dp 8      8 p  C:\Documents and Settings\All Users\Documents\Shared Data\seamar\cdem_dta.mdbtlkpCrosswalk d d dsecondaryPrimaryKeylab_codev q(xxC:\Documents and Settings\All Users\Documents\Shared Data\se!amar\cdem_dta.mdbtlkpCrosswalkPrimaryKeyPx P((` K[TEw:KXUEEUHOYAZE:A8FHNWHDEQCSLAQDDZQTBK_MYKAEE_:(YWPFEIWHFAGXNODVRZWCIBQYTGTKJ:&5__SRP_7P__SRP_8 T__SRP_9Y_VBA_PROJECT[__SRP_3& __SRP_4 t__SRP_5%g__SRP_6 ' dir>__SRP_0_K%__SRP_1?__SRP_2 :0* 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@bbsBQHTVGMNZVLCQDQOKXUEEUHOYAZE28AQH@VGMNZVC@DOKX U@UE@HOYZA@1g+%Ή,0b!Bˀf3U]XG*2Cmm@nF51WPFEIWHFAGXNODVRZWCIBQY TGTKJ1WP EW%F)G.N,D4R5WC@B5Y;bGKJI1'` RExecGQAu@bo $x`2c0APHNGVEHVOOWRDEUCJBGGCDUTDHFAH/GE@V@OWRbZUJ \G4C UD0I fForm_splashF /jr/_JpHKhFHNWHDEQCSLAQDDZQTBK_MYKAEE_FNHQSIA-D ZTK_LYJA@$&E^Cb"@,(Ib"(C hfrU~~~~~u    (  8Cancelinstring componentstrTablestrDataDatabasestrSampleTableofnFlags InitialDirFilter FilterIndeam  *\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 LibrK[vcP=*z @ -  } j C 0  m Z G ary*\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? h8BQHTVGMNZVLCQDQOKXUEEUHOYAZE053fb73610basLinkedTablesbg+8WPFEIWHFAGXNODVRZWCIBQYTGTKJ073fb73610basCommonFile`'8APHNGVEHVOOWRDEUCJBGGCDUTDHF083fb73610basAutoExecf0I 8FHNWHDEQCSLAQDDZQTBK_MYKAEE_093fb73610Form_splashH^ChH0(0TY@yTKiMyt!L HIdDXDޭ|flZژBu|KAccess As=Dim{MeSELECTVBAWin16~Win32MacVBA6#paml1daostdole`VBIDEAbasLinkedTablesd _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_NOTESTFILECK[v1 5z @ -  } j C 0  m Z G REATE;adhOFN_NONETWORKBUTTONadhOFN_NOLONGNAMES.WadhOFN_EXPLORERzadhOFN_NODEREFERENCELINKSXadhOFN_LONGNAMES InitialDir1 FilterIndex˟ DefaultExtyFileNamej strFilenameefResult IsMissing Application* hWndAccessAppstrDescriptiondvarItem vbNullCharYstrItemintPosr basAutoExecHAutoExec 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]_B_var_lab_date _B_var_referraw_codeK=_B_var_raw_code service_date_B_var_service_date status_flag  type_codef_B_var_status_flag3_B_var_type_codeo _B_str_Right#( _B_str_LeftV _B_str_UCaseKrstCodesBOFy MoveFirstNValueK TxtCountero#txtCount_B_var_txtCountControlsKSetFocus cntrecordsD _B_var_DoScreenIRepainttblLabs2/28/2003_1(FROM~  strInputFilrx  H0046}#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      !"#$%'()*+,-./0123456789:;<=>?@BCDEFGHIJKLMNOPQRSTUVWXYZ[\]0`abcdefghijklmnopqGXChwX&D5Y|*˺{ySFkUxME ,0K[v1 @ @ @ @[LS S<< << <<<<$<4<<<(<8<<<@p , D (  JH D` : 8( < : >  <` @ @ @ VH @` 6  H ( "@ Xh J B 6X  f P <X X 8 F & (08"@0h    BX    8@ H  h     @ (   0*8  *h4  * < :@ ,G   $8  * $ @H &  $@ $@  @@ @ $@$@ "@ ` #h "  * H     (  P0 8 %@ P p!  B <  >8 (3x  ,  4  *  Hd HdP    Hd@ Hd  D  8   3  " @$  : 0h ` P H  " &@ h     h      0 (X` hx,   & 6,CEH    (( 8P  *     Bu     < B  F B0 x  ( 4  , 0@!K[v1 @ @ @ @p x   2G  "xpruns link codendboH]`]x$' Gilbe  " KT  B@ ' quits accessS` Error# "!6:  "!8 : < ,A@4n jumps around quittng accesso: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 O5Lab Ser. Creatinine crea Creatinine"lipid panel (CHOL, TRIG, HDL, LDL)Dalbumin/creatinine ratio, ha1c, creatinine, 24 hr Protein, LFT (AST)/Step 1: acquire disk from dynacare, named .txt"Step 2: floppy in a: drive1comment out routine one and make routine 2 activeinternal 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 fileAstep 3: open this program (now dyna_cdems_1.mdb) and press button0e.) tblLabs_mmddyy_x is then appended to tblLabsf.) summary stats writtenQIf patient nmumbers can't match the program can match non last name date of birthJDEMS requires clinic_code + chart_number to be the key so the clinic_codes5need to be assigned before the appending of new data.@================================================================ On Error GoTo Err_Command1_ClickW]]]]]0]p]dynacare input file]!record inside dynacare input fileDim fs As FileSearchDim varItem As Variant cdems fields]]]]]0]Hsummary fields]`]x]$dynacare file namepatient identifiersDim LastName As StringDim FirstName As String:Dim ResultComment As Boolean 'if result is simply commentS*$\'  .L'0'2to 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_ 2$a 2 '2tblLabs Z_ 2'4#=================================== Create a new TableDef object.: Create fields and append them to the new TableDef object. 4 L%6.  clinic_code :785 B@ chart_number :785 B@ status_flag :785 B@result :785 B@raw_code :785 B@q  L!B@ 4 L%@.#===================================Bsearches for new downloaded dynacare lab files in a:\ floppy drive !BC@D 99HC@J7J d]`$3the clinic_code field put into the CDEMS lab recordtory|pkh<************************************************************6the file parsing routine: moves data into cdems format7Open GetDBDir() & FileName For Input As #1 ' Open file.7L( Open file.qp$Nb  Loop until end of file. " Read line into variable.  $P $P $P  $'$  $P $P $P  $'. MsgBox TextLine MsgBox "start: " & Parse(TextLine, 1) + 1 & "' " & "end: ""K[v1 @ @ @ @ & Parse(TextLine, 2) & "len: " & (Parse(TextLine, 2) - Parse(TextLine, 2) - 1)  $P $P $P  $'(  $P $P $P  $',>If InStr(TestResult, "TRIG. >400") Then 'to report uncalc ldl TestResult = "UTP"End Ifkpna'*CKTdX )MsgBox "good record " & rstCodes!raw_code "'*ride B@ ! !N9"is this lab raw_code in Crosswalk?  L%@.] .No DateGna'*j *na * 8test . ,  B@Runknown )" $ )T , )V * ) . )Lab ) B@^kX dP kH 0 '0#lab results tracked reported'.',na'*'$ V Close file. L!B@`===============================0data now in me.tblLabs - but has no clinic codes[tblLabs Z_ 2]'4 UPDATE 4 INNER JOIN tblDemo ON  4'.[chart_number] = tblDemo.chart_number SET  4).[clinic_code] = [tblDemo].[clinic_code];'  L%b. B@J!=================================2data now needs to be append to tblLabs of dta file  L%b. B@J<************************************************************ &Total patient records in input file: 0 $ ^(Records appended to CDEMS lab table  !d fA@4.Lh0|(j  "!8A@4Exit_Command1_Clickho?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)]`'p'r number of "^" r na p 'p l p$^$^G r 'rj p'Pi=Measurement set is includes the 9 labs being tracked by DEMS:9Lab MiAl/Crea ratio alcr Microalb/Creat:Lab LDL ldl LDL CholesterolDim dob as date service_date <785 B@L ld7Lab Triglyceride trig Triglyceride=But they are entered into tlkpCrosswalk lab_code column e.g.,cr 3type_code working_code raw_code lab_codeatinin:Lab HDL hdl HDL Cholesterol1-------------------------------------------------6Lab Cholesterol chol Cholesterol8 type_code :785 B@ 3Lab AST (SGOT) AST (SGOT) AST(GOT)9Lab HbA1C ha1c Hemoglobin A1CPLab 24HrUrineProtein 24up ???don't know this one -ever order???<d.) tblLabsmddyy_x field clinic_code is updated from tblDemox" wit_This process is designed to allow the matching of patients with unique chart_numbers into CDEMSa:\9Fentsc )P ============================0SELECT tlkpCrosswalk.raw_code FROM tlkpCrosswalk" WHERE (((tlkpCrosswalk.lab_code)=' ('));'( )@ !zB@ 0 )8 B@this displays the txtCounterstrSQL = "INSERT INTO tblLab (clinic_code, chart_number, raw_code, result, service_date, status_flag, type_code) " '& "SELECT clinic_code, chart_number, raw_code, #K[v1 @ @ @ @result, service_date, status_flag, type_code FROM " & strInputFilegINSERT 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  4;' }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 & ";"   Input file % was not found in the CDEMS directory $ ^>Please copy new input file to the CDEMS folder, and try again.A@4"GAttribute 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 "Sub$K[v1 @ @ @ @FolderA.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.TableDefs/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 appe8 (3x  xME<(<,<<< <<<<< <$<0<4<8<<< `D --`\ ilbe %`h`@H%K[v1 @ @ @ @H`l pXhv":<4hX @T @D @4 h($ h @ @ % ( @  @ @ @  h5  * ,8 ,h 2 B    *  ,P ,       < X ` $'x  h p   $  J}X` h $ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved.)Use database order for string comparisons`  Purpose: Do all startup duties$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved. In: None Out: Return value: none History:5 Created 09/14/94 pel; Last Modified 12/20/95 pel]@ varRet = adhInitAutoNum()'d8'k(  $v' B@z "S Error# "!6:  "!8 : < AutoExecA@4nxpih` CDem_dta.mdbtblLab$>'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   'K[v1 @ @ @ @ @    8 :8 x      : : .P  6 : 4 :8 x       B . B( :p 8  * ,  ,P   , 4   *0 `,  B   <  * ,8 ,h   :  > @ H Xh   $ 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]$]$]$8]$]$ ]$@`]$]$]$ ]$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 j$G'jj $G'j l$G'lj $G'j $G'j n$G'nj h$G'hj0 Allocate string space for the returned strings. $\$'$\'7 Set up the data structure before you call the function  9 !9 j9X 9 9 9 9 9 n9 l9l 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. h $'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 the(K[v1 @ @ @ @ @4 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. l$G !l'lj !$r'fd0'fk 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 X    '`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  '    $'rdx 'rkhi`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 NEls)K[v1 @ @ @ @ @A3@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  h p   T]a+hbxME@`DHzzXi@ hiB`Fh `Hd`J` L\%`NL  QH %`TF`VD`,@`X<`Z8Xx%pX(@Hz~^:<4`( x x @ @ @ @ @ @ @ @ @ fprxvt @d @T @D `@ @> @8 V4O (V8(80 Ph`, s8( @$   @ `@``x8z d @` @P @(L @H*K[v1 @ @ @ @ @ @8 @4 0 @ @ HH ` xx Tep  "start p0":<41) Xh " &  d "le@` ne, @\ 2) ' X = M@T extL(P Text@L tLin@< T@, Line@ + 1  ) - @ 1)) 'If P   * ,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 Handbook0-C% by Litwin, Getz and Gilbert. (Sybex)0#% Copyright 1997. All Rights Reserved.it)Use database order for string comparisonsTab  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: +K[v1 @ @ @ @ @ 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 * * $ '* *$ 0'$2z& "S Error# "!6:  "!8 : < ,A@42Hn@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 pelD]]]]]]](]@]X]p]adhVerifyLinks',% Verify Links using one sample table. B$'F F'>\k9 Get name of folder where application database is located$$'H H @$ ~* Data database found in current directory. H @'Nd0 Let user find data database using common dialog The required file ' @' could not be found.'J J! You can use the next dialog box "to locate the file on your system. $^ $^ $^'J J! If you cannot find this file or #are unsure what to do choose CANCEL'J J! at the next screen and call the 4local database administrator, or program developer:  $^ $^'J J( Washington State Department of Health $^'J J Diabetes Control Program $^'J J (360) 236-3738'J J : < ,A@49 Display Open File dialog using the adhCommonFileOpenSave% function in the basCommonfile module XAccess (*.mdb)*.mdb$`'X b b d'Z   h Xj ZlLocate Data database filen$f'N N$p  User pressed Cancel. -You can't run database until you can locate ' @'.'J J : < ,A@4'>\dx N$r'Nk`kX0Rebuild Links. Check for number of tables first. .L L!!t'V xRelinking tables V$v'F Loop through all tables.4 Reattach those with nonzero-length Connect strings.'T P L!- If connect is blank, its not an Linked table P!z T 'T ;DATABASE= N P(z + The RefreshLink might fail if the new path ! isn't OK. So trap errors inline.h PB@|,K[ @ @ @ @ @ If one link bad, return False "'>\kk ~ T $v'F P'>\  $v'F z D "S  Error# "!6:  "!8 : < ,A@4n8 \0 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"0or#+.F!J& "1De ipA?l%c Re32) YancAH0@,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 NEls-K[v1S  @8 @4 0x DefaultExtFileName DialogTitleOpenFile strFilterstrDescriptionvarItemstrItem CHHrU~|  7y7 y a ) 1 ! TK'CTTCXX DD\2XT \D cDlP fDlK$$'4%'D%$ |$\ fD% $ `K*mrU ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ I#)^K     )LbasLinkedTables 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 .K[v1 @ @ @ @ @ _ ZYou can't run database until you can locate ' '.qm.m. Relinking tablesIm. ;DATABASE= A   A `  A 0 Km.Sm.Qm. * *.txt clinic_codem. chart_number raw_code result service_date status_flag type_code1m.J?P2 F" C:\Documents and Settings\All Users\Documents\Shared Data\seamar\ Input file  Creatinine H was not found in the DEMS directory zPlease copy new input 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_code, 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_/K[v1 @ @ @ @ @ @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_code, result, service_date, status_flag, type_code FROM ?` FO٣΅wX&D5Y˺{ySFkUCC:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB  Lbe FROM ?` FO٣΅wX&D5Y˺{ySFkU a ) 1 ! TK'CTTCXX DD\2XT \D cDlP fDlK$$'4%'D%$ |$\ fD% $ `rU 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 ,''0LVALN I@DwMd_(M IDwM_(M IDwM_(M IDwMx_(M IDwM_(MEeu IPb\QDwM0_(MEEeU I`DwM_(Meeeeue IkDwM_(MeEeU Ip`kvDwM D_(MeeU IDwM _(M IDwD q P  ?Pq q 0q q   @q q q 8q q q q 8q q q q q q q q 8q  d  d  d  d raw_codetlkpCrosswalktype_codeworking_codelab_codeq  q q q q $ q Pq 9l QS@.@f@`q N xq N q N q Nraw_codetype_codeworking_codelab_codeC:\Documents and Settings\Jacquelyn Gianunzio\My Documents\DOH\CIDEMS\DB files\Pure CDEMS\Cdem_dta.mdbtlkpCrosswalktlkpCrosswalk q q  q q  q q  q (q raw_codeq type_codeq working_codeq lab_codeq  q q 0 q  Pq 8q Hq Xq hq xq 0q q 0q q 0q q 0q q 0q q 0q q 0q q 0q q 0q q 0q q 0q q 0q q 0q q 0q q 0q q 0q q 0q q 0q q 0q q 0q q 0q q 0q q 0q q 0q q 0q q 0q q 0q q 0q q 0q q 0q q q  q x q q q  q q  q q  q q  q z  q q q q NPq  q 0 q q h q q  q  q  d q  d0 q  dh q  d q 8 q q q q  q 0 q h q  q  q C:\Documents and Settings\Jacquelyn Gianunzio\My Documents\DOH\CIDEMS\DB files\Pure CDEMS\Cdem_dta.mdbtlkpCrosswalk dq  d q  d8q secondaryPrimaryKeylab_codeXq q v Pq Hq q 8q q q qq q q q q q q q q q q q q q q q q q q q q q q q q q q q q q  0q q q q q C:\Documents and Settings\Jacquelyn Gianunzio\My Documents\DQOH\CDEMS\DB files\Pure CDEMS\Cdem_dta.mdbtlkpCrosswalkPrimaryKeyPq q Pq q Pq Pq q q q q q  q LVAL&R aʾtlkpCrosswalkCreate table in Design view1 DҫbmGIF<7'WI7'Wv=k0Pv=dzI=II<Xk0P<(P<<Create table by using wizard1 DҫbmGIF<7'WI7'Wv=k0Pv=dzI=II<Xk0P<(P<<Create table by entering data1 DҫbmGIF<7'WI7'Wv=k0Pv=dzI=II<Xk0P<(P<<tblDemoable by entering data1 DҫbmGIF<7'WI7'Wv=k0Pv=dzI=II<Xk0P<(P<<tblLabsable by entering data1 DҫbmGIF<7'WI7'Wv=k0Pv=dzI=II<Xk0P<(P<<tblLabs7/1/02_1entering data1 DҫbmGIF<7'WI7'Wv=k0Pv=dzI=II<Xk0P<(P<<tblLabs7/10/02_1ntering data1 DҫbmGIF<7'WI7'Wv=k0Pv=dzI=II<Xk0P<(P<<Create query in Design viewqryPolyDynacare1t9 G8A   R9 0 )/ xk9 eTXU=0\Wx8W'@P @?%0TX\Wb[0%08W\xtb90U90#@#@qryPolyDynacare2t9 G8A   R9 0 )/ xk9 eTXU=0\Wx8W'@P @?%0TX\Wb[0%08W\xtb90U90#@#@splashsplash2^KT6@7@bbb&! bbT6@ 7@T6@T6@b;<bA3@hNd}3@%Vm裂3@M Qt0b,B0bAX裂hNd}xb00Create form by using wizard bbT6@ 7@T6@T6@b;<bA3@hNd}3@%Vm裂3@M Qt0b,B0bAX裂hNd}xb00Create form in Design view bbT6@ 7@T6@T6@b;<bA3@hNd}3@%Vm裂3@M Qt0b,B0bAX裂hNd}xb00Creat^LVALne report in Design viewCreate data access page in Design viewbasAutoExecbasAutoExeclb0$G8b8bb0$eTXU=0\Wx8W'@P @?%0TX\Wb[0%08W\xtb90U90#@#@basCommonFilelb0$G8b8bb0$eTXU=0\Wx8W'@P @?%0TX\Wb[0%08W\xtb90U90#@#@basLinkedTableslb0$G8b8bb0$eTXU=0\Wx8W'@P @?%0TX\Wb[0%08W\xtb90U90#@#@^H