Standard Jet DBnb` Ugr@?~1y0̝bǟFN7]D^(`T{6k߱wCϯ34ay[|*|OJl>`&_Љ$g'DeFx - {et DB lVCS           2   at  ol  je  fe  ef          IdParentIdNameType DateCreate DateUpdateOwnerFlagsDatabaseConnect ForeignName RmtInfoShort RmtInfoLongLvLvPropLvModuleLvExtrasetni  Id ParentIdName        VCLS     2  ObjectIdSIDACM FInheritable ObjectIdVC?S             ObjectId AttributeOrderName1Name2 ExpressionFlagilnzjtz ObjectIdAttribute  VCS       ,,      szRelationshipgrbitccolumnicolumnszObjectszColumnszReferencedObjectszReferencedColumn \Ms ''% szObjectszReferencedObjectszRelationship {qg]SI?5o{o{ @ vsm`via`v`xwrf|fba`vbroorpgjmfa`vmjplfdw`amfvd`w``bbfvvs`hfvd`w`a`vfvgruov ordxmfv ufm`wjrpvijsvufsruwv vbujswv v}vufmw`amfvov}v`bfvov}vordxmfvov}vordxmfvXov}vrakfbwvov}vtxfujfvov}vufm`wjrpvijsvwamdforwamm`awmlsburvv{`mlov}vdavxoo`u}jpgrxvfudfgjpfd  @ vsm`via`v`xwrf|fba`vbroorpgjmfa`vmjplfdw`amfvd`w``bbfvvs`hfvd`w`a`vfvgruov ordxmfv ufm`wjrpvijsvufsruwv vbujswv v}vufmw`amfvov}v`bfvov}vordxmfvov}vordxmfvXov}vrakfbwvov}vtxfujfvov}vufm`wjrpvijsvwamdforwamm`awmlsburvv{`mlov}vdavxoo`u}jpgrxvfudfgjpfd o{ @ @ @          ' @ @ @          @ ( {qg]SI?@ (\ @ @ @ @ @ @ @ @ @ !"#$%&'()*+,-                         #jKV#jKV#jKò|3UV#jKV#jKV#jKV#o    T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o    T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o    T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o    T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o     T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o  T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o   T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o  T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o TT2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o TT2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o            KKD AccessVersion StartUpFormStartUpShowDBWindowStartUpShowStatusBarAllowShortcutMenusAllowFullMenusAllowBuiltInToolbarsAllowToolbarChangesAllowSpecialKeysf 07.53 splash    KKD AccessVersion StartUpFormStartUpShowDBWindowStartUpShowStatusBarAllowShortcutMenusAllowFullMenusAllowBuiltInToolbarsAllowToolbarChangesAllowSpecialKeysf 07.53 splash       KKDReplicateProject KKDTitleAuthorCompany? labcorp-cdems-97 Jacquelyn GianunziormTypeInfoIndex1T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o    T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o    T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o    T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o     T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o  T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o   T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o  T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o TT2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o TT2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o            fQ]Uv6J l          2                     IdParentIdNameType DateCreate DateUpdateOwnerFlM!_@_@ tlkpCrosswalkC:\CDEMS\cdem_dta.mdbtlkpCrosswalk\\\\\\\OO.,  <_@M!_@ tblLabC:\CDEMS\cdem_dta.mdbtblLabNNNNNNNHH'%  W_@<_@ tblDemoC:\CDEMS\cdem_dta.mdbtblDemoPPPPPPPII(&  _@_@basLinkedTables0000000000.  _@_@basCommonFile..........,  _@_@basAutoExec,,,,,,,,,,* _@_@splash''''''''''% S_@S_@MSysModules,,,,,,,,,,* S_@S_@MSysModules2----------+ ;O_@;O_@DataAccessPages0000000000. ;O_@;O_@SysRel''''''''''% ;O_@;O_@Modules((((((((((& ;O_@;O_@Scripts((((((((((& ;O_@;O_@Reports((((((((((& _@_@Forms&&&&&&&&&&$  _@_@UserDefined1@888,,,,,,,* @ _@_@SummaryInfoa@888,,,,,,,* @i_@i_@MSysRelationships22222222220 i_@i_@MSysQueries,,,,,,,,,,* i_@i_@MSysACEs))))))))))' i_@i_@MSysObjects,,,,,,,,,,* i_@_@MSysDb@ 333'''''''% @i_@i_@Relationships.........., i_@i_@Databases**********( i_@i_@Tables''''''''''% 8.yj[u |mK<-~ k\M>   T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o    T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o    T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o    T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o    T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o     T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o  T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o   T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o  T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o TT2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o TT2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o            2LVAL ȟnnnnnnnnVKKD AccessVersion StartUpFormStartUpShowDBWindowStartUpShowStatusBarAllowShortcutMenusAllowFullMenusAllowBuiltInToolbarsAllowToolbarChangesAllowSpecialKeysf 07.53 splash    KKD AccessVersion StartUpFormStartUpShowDBWindowStartUpShowStatusBarAllowShortcutMenusAllowFullMenusAllowBuiltInToolbarsAllowToolbarChangesAllowSpecialKeysf 07.53 splash       KKDReplicateProject KKDTitleAuthorCompany? labcorp-cdems-97 Jacquelyn Gianunzio~o`\M>:+ xieV  !"#$%&'()*+,   T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o     T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o      T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o      T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o      T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o      T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o    T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o   T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o   T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o    T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o VCeN            NameTypeVersionReplicationVersionFlagsModuleFormTypeInfoIndex1T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o    T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o    T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o    T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o     T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o  T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o   T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o  T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o TT2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o TT2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o            {qg @ @ @ @ @ @ !"#$%&'()*+,-      a`v`xwrf|fb$a`vbroorpgjmf$a`vmjplfdw`amfv$gruo,vsm`vi$ov}vda$&'()*+,-     VCEN  __A__ k\M>   T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o    T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o    T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o    T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o    T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o     S_@S_@MSysModules2----------+ ;O_@;O_@DataAccessPages0000000000. ;O_@;O_@SysRel''''''''''% ;O_@;O_@Modules((((((((((& ;O_@;O_@Scripts((((((((((& ;O_@;O_@Reports((((((((((& _@_@Forms&&&&&&&&&&$  _@ _@UserDefined1@888,,,,,,,* @ _@ _@SummaryInfoa@888,,,,,,,* @i_@i_@MSysRelationships22222222220 i_@i_@MSysQueries,,,,,,,,,,* i_@i_@MSysACEs))))))))))' i_@i_@MSysObjects,,,,,,,,,,* i_@i_@MSysDb2@333'''''''% @i_@i_@Relationships.........., i_@i_@Databases**********( i_@i_@Tables''''''''''% {qg]SI?5LVALNK<-~ k\M>   T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o    T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o    T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o    T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o    T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o     T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o  T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKVi_VBA_PROJECTaadirܲ0* pHd paml1 @8= Vh W@DE J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\System32\STDOLE2.TLB# Automation#`DAO>JDAO5A A5E01A5AProgram Files\CommonMicrosoft Shared\;\dao350.dll# 3.51 Object LibraryHVBIDE> VBIPDE\C\E157\3COi.VBA\6E6EXT.OX/Visual Basic for Applic^s Extensibilit`y 5.3+h@basLinkedTab@TGasLinkQdT@bsP _'_MODUJA_MOKUE@HB1ƮF,B#7!B+BForm_s@plashGFrmsp"(h# ' 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"?OCndbdXAoDAO.CADb"&Proc څOcSetφHjF= fi#Do WhileC$o#, 1r)m"\= LeftLejn) 1L8oop&tUC`( D@D +10Exit iutSel}6 QPsZAMsgBox "@or#" &.Num ": 5Descri|, _ vbPOKOn@9+Critical,)TXG3 H~adhVerifyAOrS''(I SampleOs Integer%_L1sbstatusKbI‘re^s obrokenK [S, btryO=that fAis, prnt u withP+SialogC' OPOPOP韑OP#'4&- r@ofrc`d !6a rx?/+ ???' V ??V +>-`9)TӃTڎVz/c>mx DBQ[QFQm tdfU'intI6QFs_`P ЙlngFlagLong9ekP^s ' sE5rs6iX sDD6gQAA`Fb]q@ۛaי"x;a RIT U efolqwheapa҆is lo~cp~pUZ(P  (`k&&^< 0g+ 1G ";DATABASE=(ISV'f 9h! Pmigh0|a06ife new pathisn9OK. So trap err@ors in e 1On Esume N{q Re@3 " bad, r%7 <o;o;;s;A 7 00Up e0.! P%w^ ` :Oxt/ & Rem|ov# f1Exit F{_DSelq6CaP/OX"0or6#+.F!J& &"1De ipAl%c Rfe2) YLVAL i_VBA_MODULE<ҷAttribute VB_Name = "Form_splash" Bas0{30BE3D6E-CADF-11D6-9A87-00AA002AB2F7} |@GlobalSpacFalse dCreataDblTru Predecla Id"Expose_Tem܀teDerivCustomizD$ Option CompB DV >licitP1"aSubma nd1_Ck() 'Works with labcorp internet-b)d hype rsendProgram load[o sfolder as cdemsut down`files-ubunCDEMS eg.,"c:\\"_ R\@q'Fnd sequentially "{17 numb@)@}.res" 200191026000.da@D'each  can contain multip@|reAd@0;counts of OBX D !w@A9:p?ApIEMinZtoH_dta.mdb PditoryB h app\s newfs.G@e aZ sty-copyA evetrackgQAthe#B{AR tblLabs_mmd`dyy_x@n Error GhoTo_@ Cl@CDim rstCod@zAs DAO.RCSe^ r WDBZ%qryN!Qu`DefTffldFiel`Z K S` ng TextpLine)strSQL-gn8nicA#IDqLoca}qi/1Test1T{Res@ZCollec!5r"Am XedW#aKya BoolHeanLaWFiMdob cnt_x=Igertot]ons Rod MInyAVQex \'dlk 9/4/01#xPatoP&TD|AT "SuLnk&e= c(83, "*" !Set }= CurrDbSS = 0G?JzJ#= t0 'Yassign 7S" SQ'=w3 'rPpfoLutX (o "$X0125054_1%'nep\ be Xuorhp DOBAFEnd Q+%DB.e(&%-Sa4pqP<O0-4LPsearch`Lf G5hto!2¯d sEie R92bP,leSd. A  GkIn GetDBDir()e' exa0eAp3d7d path- .= 'cƝ'UL*.AL 6pT' 0 TheC< 01 .F_LVAL eh$*x* 'the file parsing routine:  *Open .FoundFz@s(cnt_s) For Input As #1 ' -.? Do WhvNot EOF(1)m' Loop until enpd of<)Le#1, Text' Read linto variabl>e D&Select Case Left(), 3)  "PID" 0PatID = Mid.PeH2, + j( 3 - -T LastNa4me52)  Fir'7>3%1)Q>dob<7<8?< <@, /)& "/" &B}43qCOBRBAColAionDatyS-R- RQ!-"-`2S"p(X(TeU Fe{F@stResultt6bt%!dAmed"1 W1s4If U0(* )@"C" ThenQ @nded`X 'MsgBox "r(/%eld o!<r E`IfOInStr@9, "Com )t")B ' capture hdl csR B5@ TrueqElso`Fa _sP @tTRIG@. >400r eport0~calc ldl/ != "UTP;a Q2` LenH!(0(C~$ '- 'get cdems labcode" strSQL"SELECT tlkpCrosswalk.raw_ FROM" __ 1 WHERE 8(((p)=y4"'U5p"8)); 6S0@C @ DB.Recordset( D P A.BOxF A JBF5OQ.AddNeFw![c@ic(]CQ$` /='unk''=äB) > _BQ7 hart_number Q_ "blankossq GO OQ3dGR40service_d!ktatus_flagq"co bHIsEmpty݉Or0~n? ;Ĉ F ? m/B f '=rst![Fi_name] 4= NbLa   T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o    T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o    T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o    T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o    T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o     T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o  T2CbV#jK.X0fZ)V#jKV#jKVi_VBA_MODULEAttribute 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@Y0CRET8URNTE|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) .hWndOwnerxApplicationLVAL\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 \-basCommonFile "&&&7basAutoExecD!$$$ 7Form_splasha &r%<0$ basLinkedTables (((7MSysDb 7~LVAL~o`\M>v6_@_@splash%%%%%%%%%%% S_@S_@MSysModules,,,,,,,,,,* S_@S_@MSysModules2----------+ ;O_@;O_@DataAccessPages0000000000. ;O_@;O_@SysRel''''''''''% ;O_@;O_@Modules((((((((((& ;O_@;O_@Scripts((((((((((& ;O_@;O_@Reports((((((((((& _@_@Forms&&&&&&&&&&$  _@_@UserDefined1@ T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o   T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o   T2CbV#jK.X0fZ)V#jKV#jKV#jKò|3UV#jKV#jKV#jKV#o    ͬn=0*Detaild Label0h Command1d Label2mtxtCntLVAL '0=Babcbe ghiLjDk g%@Ariald2hgh MS Sans Serifm45`@ Detaild25UabcWdeLabel0 Labcorp-CDEMS-97 InterfaceArialh1U`abcCommand1Command1[Event Procedure]8( ʦʦʦʦʦʦʦʦʦʦʦʦ                                                  <LVALHqg                   Run Appd5U`o ab cLabel2Decode raw lab filem47UC`xao bc;ktxtCnt0