Standard Jet DBnb` Ugr@?~1y0̝bǟFN7]D^(`T{6b߱wCϯ34ay[|*|OJl>`&_Љ$g'DeFx -M{VC!S $$          2                     IdParentIdNameType DateCreate DateUpdateOwnerFlagsDatabaseConnect ForeignName RmtInfoShort RmtInfoLongLvLvPropLvModuleLvExtra  Id ParentIdName        VCaS  #   2  ObjectIdSIDACM FInheritable ObjectIdVC?S             ObjectId AttributeOrderName1Name2 ExpressionFlagilnzjtz ObjectIdAttribute  VCS             szRelationshipgrbitccolumnicolumnszObjectszColumnszReferencedObjectszReferencedColumn   szObjectszReferencedObjectszRelationship {qg]SI?5   o{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`wjrpvijsvtu},gjpdvpf{m`avtu}srm}d}p`b`ufWtu}srm}d}p`b`ufXwamdforewamm`awamm`avX X^ XVVY,Wwamm`avY Y VY,Wewamm`avY Y VY,Xewamm`avY Y VY,Yewmlsburvv{`ml`bbfvvm`}rxwov}vdavxoo`u}jpgrxvfudfgjpfd o{ @ @ @ @          eeee- {qg]SI?@ ( @ @ @ @ @ @ @ @ @ @ @ @ !"#$%&'()*+,-                     !"#'99  9 9 9 999999-$-%-&    @ @ @  ( ( ( ( ( ( ( ( (  (  (  (  (  ( ( ( ( ( ( ( ( ( ((((((R Q]Uv6J qppAyV4kf@yV4kf@ tlkpCrosswalkD:\DYNACARE\cdem_dta.mdyV4kf@yV4kf@ tlkpCrosswalkD:\DYNACARE\cdem_dta.mdbtlkpCrosswalk#kkkk___RR., %e kf@$(~llf@AccessLayout*@@+E99-------+ @-ASbkf@Tbkf@tblLabs2/28/2003_13@ ???33333331 @&Qbkf@&Qbkf@@qryPolyDynacare2[@ |@+I==1111111/ @ wQbkf@wQbkf@0qryPolyDynacare1[@@*I==1111111/ @ S@Pbkf@wQbkf@QRY_FINDS NEW LABS@@*K??33333331 @ Obkf@rkf@basLinkedTables0000000000.  Obkf@rkf@basCommonFile..........,  Obkf@rkf@basAutoExec,,,,,,,,,,* Nbkf@Ũkf@splash''''''''''% ΔMbkf@ΔMbkf@MSysModules,,,,,,,,,,* ΔMbkf@ΔMbkf@MSysModules2----------+ cakf@cakf@DataAccessPages0000000000. cakf@cakf@SysRel''''''''''% cakf@cakf@Modules((((((((((& cakf@cakf@Scripts((((((((((& cakf@cakf@Reports((((((((((& cakf@cakf@Forms&&&&&&&&&&$  cQakf@Nbkf@UserDefined1@888,,,,,,,* @ cQakf@RJWbkf@SummaryInfoz@888,,,,,,,* @ Pakf@ Pakf@MSysRelationships22222222220  Pakf@ Pakf@MSysQueries,,,,,,,,,,*  Pakf@ Pakf@MSysACEs))))))))))'  Pakf@ Pakf@MSysObjects,,,,,,,,,,*  Pakf@RJWbkf@MSysDbr@:333'''''''% @ Pakf@ Pakf@Relationships..........,  Pakf@ Pakf@Databases**********(  Pakf@ Pakf@Tables''''''''''% 8.yj[u |mK<-~ k\M>   ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o    ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o    ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o    ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o    ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o     ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o  ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o   ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o  ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o Tۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o Tۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o            LVAL:!k8888888888888888888žĔĔĔĔĔĔĔĔĔĔĔĔĔĔĔĔĔĔĔĔĔĔĔĔĔĔes LimitShow Values in IndexedShow Values in Non-IndexedShow Values in Remote StartUpFormStartUpShowDBWindowStartUpShowStatusBarAllowShortcutMenusAllowFullMenusAllowBuiltInToolbarsAllowToolbarChangesAllowBreakIntoCodeAllowSpecialKeysTrack Name AutoCorrect InfoPerform Name AutoCorrect CpgConversion  07.53      splash              KKDANSI Query Mode AccessVersionProjVerShow Values LimitShow Values in IndexedShow ValuesKKD!AllowZeroLengthRequired) clinic_code  * chart_number  &raw_code  $ result  KKD!AllowZeroLengthRequired) clinic_code  * chart_number  &raw_code  $ result  ! service_date KKD KeepLocal TKKDTitleAuthorCompanyX labcorp1  Diabetes Control Project Department of HealthKKD!AllowZeroLengthRequired) clinic_code  * chart_number  &raw_code  $ result  ! service_date ) status_flag  ' type_code  KKD8 RecordLocks ODBCTimeout MaxRecords Replicable  <KKD8 RecordLocks ODBCTimeout MaxRecords Replicable  <KKDp RecordLocks ODBCTimeout MaxRecords RecordsetTypeFilterOrderBy OrderByOn Orientation Replicable:  <   KKDReplicateProject :(~o`\M>:+ xieVGC4% - -ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o -  ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o   ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o   ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o     ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o      ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o      ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o      ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o      ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o    ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o   ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o   ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o    ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o VCe N            NameTypeVersionReplicationVersionFlagsModuleFormTypeInfoIndex1 cQakf@cQakf@UserDefined1@888,,,,,,,* @ cQakf@cQakf@SummaryInfoU@888,,,,,,,* @ Pakf@ Pakf@MSysRelationships22222222220  Pakf@ Pakf@MSysQueries,,,,,,,,,,*  Pakf@ Pakf@MSysACEs))))))))))'  Pakf@ Pakf@MSysObjects,,,,,,,,,,*  Pakf@ Pakf@MSysDbd@333'''''''% @ Pakf@ Pakf@Relationships..........,  Pakf@ Pakf@Databases**********(  Pakf@ Pakf@Tables''''''''''% {qgyj[u |mK<-~ k\M>   ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o    ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o    ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o    ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o    ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o     ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o  ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV a`v`xwrf|fb$a`vbroorpgjmf$a`vmjplfdw`amfv$gruo,vsm`vi$ov}vda$ov}vda$()*+,-     VCEN  __A__ΔMbkf@ΔMbkf@MSysModules2----------+ cakf@cakf@DataAccessPages0000000000. cakf@cakf@SysRel''''''''''% cakf@cakf@Modules((((((((((& cakf@cakf@Scripts((((((((((& cakf@cakf@Reports((((((((((& cakf@cakf@Forms&&&&&&&&&&$  cQakf@cQakf@UserDefined1@888,,,,,,,* @ cQakf@cQakf@SummaryInfoU@888,,,,,,,* @ Pakf@ Pakf@MSysRelationships22222222220  Pakf@ Pakf@MSysQueries,,,,,,,,,,*  Pakf@ Pakf@MSysACEs))))))))))'  Pakf@ Pakf@MSysObjects,,,,,,,,,,*  Pakf@ Pakf@MSysDbd@333'''''''% @ Pakf@ Pakf@Relationships..........,  Pakf@ Pakf@Databases**********(  Pakf@ Pakf@Tables''''''''''% {VCN              clinic_code chart_numberraw_coderesult service_date status_flag type_codei_VBA_PROJECTaadir 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@bbsP _(_MODULE2 JA_(MOKUE@HB1FF,B#b!B+BZ@&I]LG@%Cmm@nF($>$`$=$ExecG=bB$Auo@x@KcHfForm_splashF`"r #_7p58h55""%(6b{i_VBA_MODULEZ |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(PVCN              clinic_code chart_numberraw_coderesult service_date status_flag type_code     nnotnd 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) Y{i_VBA_MODULE Attribute 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 unspecifixAKenamenMax9$ 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 {NO@1"s`QB3/ eviation     ۇ O8V#jKȴOݏ ToV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o      ۇ O8V#jKȴOݏ ToV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o      ۇ O8V#jKȴOݏ ToV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o     ۇ O8V#jKȴOݏ ToV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o    ۇ O8V#jKȴOݏ ToV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o     ۇ O8V#jKȴOݏ ToV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o    ۇ O8V#jKȴOݏ ToV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o    ۇ O8V#jKȴOݏ ToV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o   ۇ O8V#jKȴOݏ ToV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o     ۇ O8V#jKȴOݏ ToV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o    ۇ O8V#jKȴOݏ TLVAL "<9 ;u ub<Ƹ?;;h;`; p;;;;;;;p;;;;;;;;;;;;;;p;;;;;;; 2   2   2   2     2   2  clinic_codetblLab chart_numberraw_coderesult service_date status_flag type_code;;;;;$ ;;Pi_@3kf@;~ (;~ 8;~ H;~ P;~ `;~ p;~clinic_code chart_numberraw_coderesult service_date status_flag type_codeD:\DYNACARE\cdem_dta.mdbtblLabtblLab ;; ;; ;; ;; ;0; 8;H; P;`; clinic_code; chart_number;raw_code;result; service_date ; status_flag8; type_codeP; ;p;x ; ;@;`;;;;h; ;h; ;h; ;h; ;h; ;h; ;h; ;h; ;h; ;h; ;h; ;h; ;h; ;h; ;h; ;h; ;h; ;h; ;h; ;h; ;h; ;h; ;h; ;h; ;h; ;h; ;h; ;h; ;h; ;h;;P;; ;; ; ; ; ; ; ; ; ; ; ; ; ; ; |;  `;;`;; ~; ; ; ; ; ;8 ;( ;h ;8 ; ;H ; ;X ;  ;  ;  ; 8 ;h ;  ;  ;D ;(;0;8;@;H;P; ; ; ;8 ;h ; ; ; ;D:\DYNACARE\cdem_dta.kLVALwȱmdbtblLab ; (; 8; H;X; h; x; ; ;type_code PrimaryKeylab_type lab_referallab_date clinic_code chart_number&{62A57795-CF9B-11D6-8967-00055DDA17C2}&{62A5778E-CF9B-11D6-8967-00055DDA17C2};;v ;;;;;p;ps;p;p;p;p;p;p;p;p;p;p;p;p;p;p;p;p;p;p;p;p;p;p;p;p;p;p;p;p;P; h;`;@;; `;D:\DYNACARE\cdem_dta.mdbtblLab PrimaryKey;`;;h ;;;p;`;0;`;; ;LVAL ,<; ubu?0 ; ; ;  ;   @; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;  2   2   2   2 raw_code tlkpCrosswalk type_code working_codelab_code; ; ; x; ; $ ; 0; j_@yV4kf@8; 8ԹH; 8ԹӹX; 8Թ h; 8Թ raw_code type_code working_codelab_codeD:\DYNACARE\cdem_dta.mdb tlkpCrosswalk tlkpCrosswalk X; h;  p; ;  ; ;  ; ; raw_codeX; type_codep; working_code; lab_code;  ; ;  ;  0; @; P; `; p; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;  ; @ ; ; ;  ; ;  ; ;  ; ;  |;  ; ; ;  ; 8Թ0; ; ( ; ; X ; ;  ; ;  ;  ( ;  X ;   ; 8x ; ; ; ; ; ( ; X ;  ;  ; D:\DYNACARE\cdem_dta.mdb tlkpCrosswalk  ;   ;  ; secondary PrimaryKeylab_code8 ; ; v `;  ; @; P; ; ; s ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; aMSysDb `### ?MSysDb `### ?Form_splashUWL &v%@4( basAutoExecI((( ?basCommonFile5B***?basLinkedTablesB2;,,, ?zLVAL~o`\M>v6Nbkf@Nbkf@splash%%%%%%%%%%% ΔMbkf@ΔMbkf@MSysModules,,,,,,,,,,* ΔMbkf@ΔMbkf@MSysModules2----------+ cakf@cakf@DataAccessPages0000000000. cakf@cakf@SysRel''''''''''% cakf@cakf@Modules((((((((((& cakf@cakf@Scripts((((((((((& cakf@cakf@Reports((((((((((& cakf@cakf@Forms&&&&&&&&&&$  cQakf@Nbkf@UserDefined1@ ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o   ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o   ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o   ͬ|*Detaild Label0h Command1d Label2mTxtCounterLVAL '0=Babc5e ghij+k[g%@[Event Procedure]Ariald2hgh MS Sans Serifm45Tahoma`@ Detaild25U`axbrc+dLabel0DynaCare - CDEMS InterfaceArialh1U`abciCommand1Command1[Event Procedure]8( ʦʦʦʦʦʦʦʦʦʦʦʦ                                                  LVALqg                   Run Appd5U`o ab cLabel2Decode raw DynaCare filem47UCF`a b9c TxtCounterGrcC"( xFJyfS6z`C tblLabsNew.*$ gtblLabsNew tblLabs O  G tblLabsNewtblDemo.@))  tblLabsNew.clinic_code[tblDemo].[clinic_code]E" w sptblDemo  sptblLabsNew   G sp   G sp,@) ' Copy of tblLabstblLabs/@)."  Copy of tblLabstblLabs5@)."  Copy of tblLabstblLabs3@)."  [Copy of tblLabs].chart_number6 g tblLabs.lab_date( g tblLabs.result& g tblLabs.type_test) g tblLabs.chart_number, g tblLabs.clinic_code+ g sptblLabs  spCopy of tblLabs   G  G sp   GLVALi=]Uv6J } S@Pbkf@Pbkf@QRY_FINDS NEW LABS@???33333331 @ Obkf@Obkf@basLinkedTables0000000000.  Obkf@Obkf@basCommonFile..........,  Obkf@Obkf@basAutoExec,,,,,,,,,,* Nbkf@Obkf@splash''''''''''% ΔMbkf@ΔMbkf@MSysModules,,,,,,,,,,* ΔMbkf@ΔMbkf@MSysModules2----------+ cakf@cakf@DataAccessPages0000000000. cakf@cakf@SysRel''''''''''% cakf@cakf@Modules((((((((((& cakf@cakf@Scripts((((((((((& cakf@cakf@Reports((((((((((& cakf@cakf@Forms&&&&&&&&&&$  cQakf@Nbkf@UserDefined1@888,,,,,,,* @ cQakf@Nbkf@SummaryInfoU@888,,,,,,,* @ Pakf@ Pakf@MSysRelationships22222222220  Pakf@ Pakf@MSysQueries,,,,,,,,,,*  Pakf@ Pakf@MSysACEs))))))))))'  Pakf@ Pakf@MSysObjects,,,,,,,,,,* tblLabsNew.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_codeLVALhQ]Uv6J άf}C &qtblLabsNew qtblDemo qtblDemoά2s&Copy of tblLabs tblLabsdLVALńv]Uv6J q @vsm`via`v`xwrf|fba`vbroorpgjmfa`vmjplfdw`amfvd`w``bbfvvs`hfvʾtlkpCrosswalkQRY_FINDS NEW LABSbasAutoExec[:ʾtlkpCrosswalkQRY_FINDS NEW LABSbasAutoExec[:άf}  qtblLabsNewLVALqg@  ; ; ; ; ; ; ;  ; ; ; ; ; D:\DYNACARE\cdem_dta.mdb tlkpCrosswalk PrimaryKey; ; `; ; `; ; ; ; ; ; ;  ; VCN..           h   clinic_code chart_numberraw_coderesult service_date status_flag type_codeRbkf@Rbkf@tblLab''''''''''% JQbkf@Rbkf@ tblDemoM@,tblDemo;;;;;;;44(& &Qbkf@&Qbkf@@qryPolyDynacare2[@ |@+I==1111111/ @ wQbkf@wQbkf@0qryPolyDynacare1[@@*I==1111111/ @ S@Pbkf@wQbkf@QRY_FINDS NEW LABS@@*K??33333331 @ Obkf@Obkf@basLinkedTables0000000000.  Obkf@Obkf@basCommonFile..........,  Obkf@Obkf@basAutoExec,,,,,,,,,,* Nbkf@Obkf@splash''''''''''% ΔMbkf@ΔMbkf@MSysModules,,,,,,,,,,* ΔMbkf@ΔMbkf@MSysModules2----------+ cakf@cakf@DataAccessPages0000000000. cakf@cakf@SysRel''''''''''% cakf@cakf@Modules((((((((((& cakf@cakf@Scripts((((((((((& cakf@cakf@Reports((((((((((& cakf@cakf@Forms&&&&&&&&&&$  cQakf@Nbkf@UserDefined1@888,,,,,,,* @ cQakf@Nbkf@SummaryInfoU@888,,,,,,,* @ Pakf@ Pakf@MSysRelationships22222222220  Pakf@ Pakf@MSysQueries,,,,,,,,,,*  Pakf@ Pakf@MSysACEs))))))))))'  Pakf@ Pakf@MSysObjects,,,,,,,,,,*  Pakf@ Pakf@MSysDbd@333'''''''% @ Pakf@ Pakf@Relationships..........,  Pakf@ Pakf@Databases**********(  Pakf@ Pakf@Tables''''''''''% { @ @ @ @ @ @ @ @ @ @ !"#$%&'()*+,-                     !"     Mbkf@MSysModules,,,,,,,,,,* ΔMbkf@ΔMbkf@MSysModules2----------+ cakf@cakf@DataAccessPages0000000000. cakf@cakf@SysRel''''''''''% cakf@cakf@Modules((((((((((& cakf@cakf@Scripts((((((((((& cakf@cakf@Reports((((((((((& cakf@cakf@Forms&&&&&&&&&&$  cQakf@Nbkf@UserDefined1@888,,,,,,,* @ cQakf@Nbkf@SummaryInfoU@888,,,,,,,* @ Pakf@ Pakf@MSysRelationships22222222220  Pakf@ Pakf@MSysQueries,,,,,,,,,,*  Pakf@ Pakf@MSysACEs))))))))))'  Pakf@ Pakf@MSysO-.S%nA\/hD"zO(g: rM(x%@unknown772673M01ldl85cLab" %@unknown772673M01hdl46cLab" %@unknown772673M01trig199cLab$!  %@unknown772673M01chol171cLab$!  %@CLINIC2323ldl93cLab %@CLINIC2323hdl64cLab %@CLINIC2323trig56cLab %@CLINIC2323chol168cLab %@CLINIC2323ha1c7.2cLab %@CLINIC2323crea0.7cLab %@unknown653567M01crea2.2cLab$!  %@unknown982822M01crea1.6cLab$!  %@CLINIC1234ldl132cLab %@CLINIC1234hdl35cLab %@CLINIC1234trig367cLab %@CLINIC1234chol240cLab %@CLINIC1234ha1c11.4cLab %@CLINIC1234crea1.0cLab %@unknown799405M01ldl97cLab" %@unknown799405M01hdl63cLab" %@unknown799405M01trig155cLab$!  %@unknown799405M01chol191cLab$!  %@clinic1ldl136cLab %@clinic1hdl69cLab %@clinic1trig135cLab %@clinic1chol232cLab %@clinic1ha1c6.8cLab %@clinic1crea0.9cLab +@unknown960939M01alcr16.6cLab%"! *@unknown804822M01alcr6.1cLab$!   *@unknown886997M01alcr9.3cLab$!  @)@unknown913667M01alcr28.5cLab%"! (@unknown772673M01alcr15.8cLab%"! (@unknown755158M01alcr3.4cLab$!  '@unknown819126M01alcr21.2cLab%"! '@unknown787509M01alcr17.8cLab%"! '@unknown836038M01alcr7.5cLab$!  '@unknown808112M01alcr0.0cLab$!  '@unknown764520M01alcr175.1cLab&#" `'@unknown135936M01alcr3.7cLab$!  '@unknown801770M01alcr27.8cLab%"! &@unknown796606M01alcr21.9cLab%"! &@unknown799893M01alcr33.4cLab%"! &@unknown693735M01alcr107.1cLab&#" %@CLINIC2323alcr115.8cLab  %@PILOT12345alcr7.2cLab -,}T'vJg: ]0|Q&rGh=b &@unknown685504M01ldl88cLab"  &@unknown685504M01hdl49cLab"  &@unknown685504M01trig120cLab$!   &@unknown685504M01chol161cLab$!   &@unknown523430M01ldl81cLab"  &@unknown523430M01hdl67cLab"  &@unknown523430M01trig137cLab$!   &@unknown523430M01chol175cLab$!   &@unknown523430M01ha1c6.1cLab$!   &@unknown523430M01crea1.7cLab$!   &@unknown804822M01ldl84cLab"  &@unknown804822M01hdl39cLab"  &@unknown804822M01trig197cLab$!   &@unknown804822M01chol162cLab$!   &@unknown804822M01ha1c7.9cLab$!   &@unknown804822M01crea1.3cLab$!  &@unknown749324M01ldl81cLab" &@unknown749324M01hdl34cLab" &@unknown749324M01trig298cLab$!  &@unknown749324M01chol175cLab$!  &@unknown749324M01crea0.7cLab$!  &@unknown693735M01ha1c8.8cLab$!  &@unknown693735M01crea1.1cLab$!  &@unknown891450M01ldl122cLab#  &@unknown891450M01hdl42cLab" &@unknown891450M01trig88cLab#  &@unknown891450M01chol182cLab$!  &@unknown891450M01ha1c5.0cLab$!  &@unknown891450M01crea0.7cLab$!  %@unknown9426009M01ldl104cLab$!  %@unknown9426009M01hdl42cLab#  %@unknown9426009M01trig179cLab%"! %@unknown9426009M01chol182cLab%"! %@unknown9426009M01ha1c7.7cLab%"! %@unknown784459M01ldl111cLab#  %@unknown784459M01hdl36cLab" %@unknown784459M01trig96cLab#  %@unknown784459M01chol166cLab$!  %@unknown784459M01ha1c6.6cLab$!  %@unknown784459M01crea1.1cLab$!  %@CLINIC2345-7ha1c6.2cLab  %@CLINIC2345-7crea0.6cLab  %@unknown692708M01ha1c5.9cLab$!  %@unknown692708M01crea0.9cLab$!  -,yN#rGj=`3U(xKnAd&@unknown910313M01crea0.6cLab$!  &@unknown796606M01ldl79cLab" &@unknown796606M01hdl38cLab" &@unknown796606M01trig390cLab$!  &@unknown796606M01chol195cLab$!  &@unknown796606M01ha1c8.4cLab$!  &@unknown796606M01crea0.8cLab$!  &@unknown932243M01ldl24cLab" &@unknown932243M01hdl37cLab" &@unknown932243M01trig972cLab$!  &@unknown932243M01chol255cLab$!  &@unknown932243M01ha1c9.7cLab$!  &@unknown932243M01crea0.8cLab$!  &@unknown675066M01ldl88cLab" &@unknown675066M01hdl43cLab" &@unknown675066M01trig100cLab$!  &@unknown675066M01chol151cLab$!  &@unknown675066M01ha1c6.3cLab$!  &@unknown675066M01crea1.7cLab$!  &@unknown799893M01ldl111cLab#  &@unknown799893M01hdl52cLab" &@unknown799893M01trig116cLab$!  &@unknown799893M01chol186cLab$!  &@unknown799893M01ha1c6.2cLab$!  &@unknown799893M01crea1.1cLab$!  &@unknown803708M01ldl71cLab" &@unknown803708M01hdl36cLab" &@unknown803708M01trig146cLab$!  &@unknown803708M01chol136cLab$!  &@unknown427090M01ldl106cLab#  &@unknown427090M01hdl62cLab" &@unknown427090M01trig67cLab#  &@unknown427090M01chol181cLab$!  &@unknown427090M01ha1c5.8cLab$!  &@unknown816339M01ldl47cLab" &@unknown816339M01hdl47cLab" &@unknown816339M01trig73cLab#  &@unknown816339M01chol109cLab$!  &@unknown816339M01ha1c5.8cLab$!  &@unknown755158M01ldl77cLab" &@unknown755158M01hdl36cLab" &@unknown755158M01trig155cLab$!  &@unknown755158M01chol144cLab$!  &@unknown755158M01ha1c6.0cLab$!  &-+zO$pEg;Z-}P%rEi<'@unknown799502M01ha1c8.7cLab$!  '@unknown3574341M01ha1c6.4cLab%"! '@unknown1949980M01ha1c5.6cLab%"! '@unknown795493M01ha1c6.3cLab$!  `'@unknown783371M01ha1c7.3cLab$!  `'@unknown799738M01ldl69cLab" `'@unknown799738M01hdl35cLab" `'@unknown799738M01trig65cLab#  `'@unknown799738M01chol117cLab$!  `'@unknown799738M01ha1c8.5cLab$!  `'@unknown799738M01crea1.3cLab$!  `'@unknown747747M01ha1c5.7cLab$!  `'@unknown135936M01ha1c7.7cLab$!  `'@unknown135936M01crea0.6cLab$!  `'@unknown784618M01ldl107cLab#  `'@unknown784618M01hdl64cLab" `'@unknown784618M01trig216cLab$!  `'@unknown784618M01chol214cLab$!  `'@unknown784618M01ha1c5.9cLab$!  '@unknown801770M01ldl98cLab" '@unknown801770M01hdl44cLab" '@unknown801770M01trig121cLab$!  '@unknown801770M01chol166cLab$!  '@unknown801770M01ha1c7.0cLab$!  '@unknown801770M01crea0.7cLab$!  '@unknown699890M01ha1c5.5cLab$!  &@unknown786990M01ha1c6.1cLab$!  &@unknown741843M01ldl148cLab#  &@unknown741843M01hdl53cLab" &@unknown741843M01trig132cLab$!  &@unknown741843M01chol227cLab$!  &@unknown741843M01ha1c6.3cLab$!  &@unknown846163M01ldl100cLab#  &@unknown846163M01hdl56cLab" &@unknown846163M01trig106cLab$!  &@unknown846163M01chol177cLab$!  &@unknown846163M01ha1c7.8cLab$!  &@unknown852886M01ha1c6.8cLab$!  &@unknown910313M01ldl83cLab" &@unknown910313M01hdl46cLab" &@unknown910313M01trig86cLab#  &@unknown910313M01chol146cLab$!  &@unknown910313M01ha1c9.8cLab$!  $-+yLoBd6U(tIj>a6 '@unknown777921M01crea1.7cLab$!  '@unknown789480M01ha1c6.5cLab$!  '@unknown789480M01crea0.9cLab$!  '@unknown808112M01ldl92cLab" '@unknown808112M01hdl59cLab" '@unknown808112M01trig167cLab$!  '@unknown808112M01chol184cLab$!  '@unknown808112M01ha1c7.2cLab$!  '@unknown836038M01ldl73cLab" '@unknown836038M01hdl54cLab" '@unknown836038M01trig60cLab#  '@unknown836038M01chol139cLab$!  '@unknown836038M01ha1c6.5cLab$!  '@unknown836038M01crea1.1cLab$!  '@unknown694743M01crea0.6cLab$!  '@unknown947419M01ldl80cLab" '@unknown947419M01hdl32cLab" '@unknown947419M01trig198cLab$!  '@unknown947419M01chol152cLab$!  '@unknown947419M01ha1c6.1cLab$!  '@unknown653567M01crea1.8cLab$!  '@unknown704273M01ha1c6.8cLab$!  '@unknown704273M01crea0.9cLab$!  '@unknown8954203M01ldl46cLab#  '@unknown8954203M01hdl31cLab#  '@unknown8954203M01trig213cLab%"! '@unknown8954203M01chol120cLab%"! '@unknown8954203M01ha1c7.1cLab%"! '@unknown8954203M01crea1.3cLab%"! '@unknown784459M01ldl108cLab#  '@unknown784459M01hdl38cLab" '@unknown784459M01trig82cLab#  '@unknown784459M01chol162cLab$!  '@unknown784459M01ha1c6.6cLab$!  '@unknown764520M01ldl83cLab" '@unknown764520M01hdl52cLab" '@unknown764520M01trig244cLab$!  '@unknown764520M01chol184cLab$!  '@unknown764520M01ha1c8.7cLab$!  '@unknown764520M01crea1.7cLab$!  '@unknown3740104M01ha1c8.1cLab%"! '@unknown84999M01ha1c6.5cLab#  '@unknown862539M01ha1c9.2cLab$!  -+yL!oBd7 Z-|O!l?b4~ )@unknown7827306M01hdl47cLab#   )@unknown7827306M01trig188cLab%"!  )@unknown7827306M01chol205cLab%"!  )@unknown7827306M01ha1c6.3cLab%"!  )@unknown7827306M01crea1.4cLab%"!  )@unknown887305M01ldl88cLab"  )@unknown887305M01hdl37cLab"  )@unknown887305M01trig306cLab$!   )@unknown887305M01chol186cLab$!   )@unknown887305M01ha1c7.1cLab$!   )@unknown887305M01crea0.9cLab$!  (@unknown772673M01ha1c11.6cLab%"! (@unknown755158M01crea0.9cLab$!  (@unknown726749M01ha1c6.5cLab$!  (@unknown726749M01crea1.7cLab$!  `(@unknown1954155M01crea2.1cLab%"! @(@unknown801309M01ha1c5.8cLab$!  @(@unknown801309M01crea0.9cLab$!  @(@unknown799738M01crea1.6cLab$!  '@unknown832619M01ldl111cLab#  '@unknown832619M01hdl44cLab" '@unknown832619M01trig191cLab$!  '@unknown832619M01chol193cLab$!  '@unknown819126M01ldl84cLab" '@unknown819126M01hdl38cLab" '@unknown819126M01trig110cLab$!  '@unknown819126M01chol144cLab$!  '@unknown819126M01ha1c7.9cLab$!  '@unknown819126M01crea1.2cLab$!  '@unknown772673M01crea1.0cLab$!  '@unknown787509M01ldl106cLab#  '@unknown787509M01hdl86cLab" '@unknown787509M01trig153cLab$!  '@unknown787509M01chol223cLab$!  '@unknown787509M01ha1c5.7cLab$!  '@unknown787509M01crea1.1cLab$!  '@unknown772673M01crea1.0cLab$!  '@unknown223381M01ldl73cLab" '@unknown223381M01hdl40cLab" '@unknown223381M01trig113cLab$!  '@unknown223381M01chol136cLab$!  '@unknown223381M01ha1c7.0cLab$!  '@unknown223381M01crea1.4cLab$!  $-+yLoBd7 V+vIi>a6 )@unknown860735M01hdl33cLab" )@unknown860735M01trig859cLab$!  )@unknown860735M01chol245cLab$!  )@unknown860735M01ha1c7.3cLab$!  )@unknown865548M01ldl81cLab" )@unknown865548M01hdl50cLab" )@unknown865548M01trig102cLab$!  )@unknown865548M01chol151cLab$!  )@unknown865548M01ha1c6.6cLab$!  )@unknown804521M01ldl49cLab" )@unknown804521M01hdl34cLab" )@unknown804521M01trig201cLab$!  )@unknown804521M01chol123cLab$!  )@unknown804521M01crea1.2cLab$!  `)@unknown5305722M01ldl103cLab$!  `)@unknown5305722M01hdl61cLab#  `)@unknown5305722M01trig70cLab$!  `)@unknown5305722M01chol178cLab%"! `)@unknown5305722M01ha1c7.4cLab%"! @)@unknown804519M01ha1c6.8cLab$!  @)@unknown913667M01ldl100cLab#  @)@unknown913667M01hdl43cLab" @)@unknown913667M01trig116cLab$!  @)@unknown913667M01chol166cLab$!  @)@unknown913667M01ha1c6.1cLab$!  @)@unknown913667M01crea1.1cLab$!   )@unknown807228M01ha1c7.1cLab$!   )@unknown807228M01crea1.0cLab$!   )@unknown786803M01ldl117cLab#   )@unknown786803M01hdl40cLab"  )@unknown786803M01trig253cLab$!   )@unknown786803M01chol208cLab$!   )@unknown786803M01ha1c7.5cLab$!   )@unknown786803M01crea0.9cLab$!   )@unknown751874M01ldl77cLab"  )@unknown751874M01hdl48cLab"  )@unknown751874M01trig133cLab$!   )@unknown751874M01chol152cLab$!   )@unknown751874M01ha1c6.4cLab$!   )@unknown751874M01crea0.9cLab$!   )@unknown498994M01ha1c7.0cLab$!   )@unknown498994M01crea1.2cLab$!   )@unknown7827306M01ldl120cLab$!  -+zLpCb5 U'rEe8 V+z*@unknown786990M01hdl43cLab" *@unknown786990M01trig124cLab$!  *@unknown786990M01chol151cLab$!  *@unknown804822M01ldl111cLab#  *@unknown804822M01hdl42cLab" *@unknown804822M01trig222cLab$!  *@unknown804822M01chol197cLab$!  *@unknown804822M01ha1c7.6cLab$!  *@unknown804822M01crea1.1cLab$!  `*@unknown5717610M01crea0.8cLab%"! `*@unknown801309M01crea0.7cLab$!  @*@unknown2890558M01ha1c6.7cLab%"! @*@unknown2890558M01crea0.6cLab%"! @*@unknown852886M01ldl131cLab#  @*@unknown852886M01hdl70cLab" @*@unknown852886M01trig135cLab$!  @*@unknown852886M01chol228cLab$!  @*@unknown3210418M01ha1c6.2cLab%"! @*@unknown3210418M01crea1.4cLab%"!  *@unknown5209780M01ldl116cLab$!   *@unknown5209780M01hdl32cLab#   *@unknown5209780M01trig174cLab%"!  *@unknown5209780M01chol183cLab%"!  *@unknown5209780M01ha1c7.2cLab%"!  *@unknown5209780M01crea1.0cLab%"!  *@unknown886997M01ldl25cLab"  *@unknown886997M01hdl43cLab"  *@unknown886997M01trig219cLab$!   *@unknown886997M01chol112cLab$!   *@unknown886997M01ha1c6.5cLab$!   *@unknown783012M01ha1c6.1cLab$!   *@unknown783012M01crea0.6cLab$!   *@unknown693735M01ha1c8.5cLab$!   *@unknown693735M01crea1.2cLab$!  *@unknown807228M01crea1.0cLab$!  )@unknown679867M01ldl66cLab" )@unknown679867M01hdl62cLab" )@unknown679867M01trig97cLab#  )@unknown679867M01chol147cLab$!  )@unknown679867M01ha1c11.9cLab%"! )@unknown679867M01crea0.6cLab$!  )@unknown4541406M01crea0.6cLab%"! )@unknown860735M01ldl40cLab" (-+{N!pCe8 [.}Q$rGh<@+@unknown939695M01chol165cLab$!   +@unknown799502M01ha1c7.8cLab$!   +@unknown799502M01crea0.9cLab$!   +@unknown772019M01ha1c5.3cLab$!  +@unknown656879M01ldl151cLab#  +@unknown656879M01hdl41cLab" +@unknown656879M01trig191cLab$!  +@unknown656879M01chol230cLab$!  +@unknown656879M01ha1c8.2cLab$!  +@unknown656879M01crea0.8cLab$!  +@unknown960939M01ldl74cLab" +@unknown960939M01hdl36cLab" +@unknown960939M01trig174cLab$!  +@unknown960939M01chol145cLab$!  +@unknown960939M01ha1c6.3cLab$!  +@unknown960939M01crea1.4cLab$!  +@unknown720015M01ldl134cLab#  +@unknown720015M01hdl53cLab" +@unknown720015M01trig88cLab#  +@unknown720015M01chol205cLab$!  +@unknown720015M01ha1c7.8cLab$!  +@unknown720015M01crea0.8cLab$!  *@unknown807228M01ha1c7.0cLab$!  *@unknown807228M01crea1.2cLab$!  *@unknown951985M01ha1c6.6cLab$!  *@unknown914125M01ldl72cLab" *@unknown914125M01hdl45cLab" *@unknown914125M01trig174cLab$!  *@unknown914125M01chol152cLab$!  *@unknown850819M01ldl123cLab#  *@unknown850819M01hdl38cLab" *@unknown850819M01trig321cLab$!  *@unknown850819M01chol225cLab$!  *@unknown850819M01ha1c6.7cLab$!  *@unknown850819M01crea1.1cLab$!  *@unknown668614M01ldl180cLab#  *@unknown668614M01hdl55cLab" *@unknown668614M01trig202cLab$!  *@unknown668614M01chol275cLab$!  *@unknown668614M01ha1c6.8cLab$!  *@unknown668614M01crea1.1cLab$!  *@unknown867009M01ha1c6.5cLab$!  *@unknown786990M01ldl83cLab" l-|@+@unknown939695M01ldl107cLab#  @+@unknown939695M01hdl35cLab" @+@unknown939695M01trig113cLab$!  ~~~~~~~~~~ok\M@ ( ( ( ( ( ( ( ( (  (  (  (  (  ( ( ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o   ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o   ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o   ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o LVALȎŎŎ[[[[((((56J  KKD!AllowZeroLengthRequired) clinic_code  * chart_number  &raw_code  $ result  ! service_date ) status_flag  ' type_code KKD!AllowZeroLengthRequired) clinic_code  * chart_number  &raw_code  $ result  ! service_date ) status_flag  ' type_code  KKD!AllowZeroLengthRequired) clinic_code  * chart_number  &raw_code  $ result  ! service_date ) status_flag  ' type_code  KKD!AllowZeroLengthRequired) clinic_code  * chart_number  &raw_code  $ result  ! service_date ) status_flag  ' type_code  KKDANSI Query Mode AccessVersionProjVerShow Values LimitShow Values in IndexedShow Values in Non-IndexedShow Values in Remote StartUpFormStartUpShowDBWindowStartUpShowStatusBarAllowShortcutMenusAllowFullMenusAllowBuiltInToolbarsAllowToolbarChangesAllowBreakIntoCodeAllowSpecialKeysTrack Name AutoCorrect InfoPerform Name AutoCorrect CpgConversionBuild  07.53      splash                 LVAL <i_VBA_MODULE/xshb"( LX P> bb"*\Rffff*73e63856c*\R2*#24*\R2*#26*\R0*#e+x`@ C:i\C` S\+"` //)oka &, Ge$`(`*+<`NHzzXtrini> hi@ C`Dh he n`Fd B`H`n Ge J\rom $`LL  OH  $`RF@`TD`*@`V<`X8Hx$ME   * ,8 ,h 2  B    0 (( P *X , ,   $ ( <8 x <   8 : P p  B LVAL =   > 8 8 *@ ,p ,     > H <X         ( 8@H PX`Bh  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 LVAL >$ From Access 97 Developer's Handbookati% by Litwin, Getz and Gilbert. (Sybex)G{% Copyright 1997. All Rights Reserved.)Use database order for string comparisons000  Purpose:) Checks the Link for the named table.! Based on code from Ken Getz.$ From Access 97 Developer's Handbook2E1% by Litwin, Getz and Gilbert. (Sybex)00% Copyright 1997. All Rights Reserved.am In:mmo 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 pelZ`(2 Check for failure. If can't determine the name of4 the first field in the table, the link must be bad.  %%!' 'ap'h`fXx 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$`ZZZGetDBDir'* .& &!'( ($ ,\_ ( ( $ '( ($ .'"0s$ P Error# !4:  !6 8 : *A@20Hk@f8 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 GilbeLVAL ?rt. (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 pelBZZZZZZZ(Z@ZXZpZadhVerifyLinks'*% Verify Links using one sample table. @$'D D'<Zh9 Get name of folder where application database is located$"'F F >$ ~* Data database found in current directory. F >'La0 Let user find data database using common dialog The required file ' >' could not be found.'H H! You can use the next dialog box "to locate the file on your system. $\ $\ $\'H H! If you cannot find this file or #are unsure what to do choose CANCEL'H H! at the next screen and call the 4local database administrator, or program developer:  $\ $\'H H( Washington State Department of Health $\'H H Diabetes Control Program $\'H H (360) 236-3738'H H 8 : *A@29 Display Open File dialog using the adhCommonFileOpenSave% function in the basCommonfile module VAccess (*.mdb)*.mdb$^'V ` ` b'X   f Vh XjLocate Data database filel$d'L L$n  User pressed Cancel. -You can't run database until you can locate ' >'.'H H 8 : *A@2'<Zax L$p'Lh`hX0Rebuild Links. Check for number of tables first. .LVAL @J J!!r'T vRelinking tables T$t'D Loop through all tables.4 Reattach those with nonzero-length Connect strings.'R N J!- If connect is blank, its not an Linked table N!x R 'R ;DATABASE= L N(x + The RefreshLink might fail if the new path ! isn't OK. So trap errors inline.h NB@z If one link bad, return False '<Zhh | R $t'D N'<Z  ~$t'D s B P  Error# !4:  !6 8 : *A@2k8 Z0 f( |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%LVAL AL13bstatusKbreA^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` :OxtNLVALZ/ & Remo>v# f1Exit F{_DSelq6CaPOX"0or#+.F!J& "1De ipA?l%c Re32) Y__SRP_6<rU~} A  i 0   0 x  0 d  a__SRP_7rU (`Y0$`,`y00pLVAL Ci_VBA_MODULE5|@GetOpenFileNameA<GetSaveFileNameAd(CommDlgExtendedErrorxZl Jh` RR'(@<< <bb&*\Rffff*23e63856c\0 h0hH8h`>hVx*hhhhhhh h8hPhjhhhhhhh+`8  )X$+ ( )$+P ʐ`LLʐXLʐLʐ0LLʐLʐXLʐLLʐHLʐLʐLL0HLHL+dx ^^ij 0i Pih piLVAL D i i il if  ($``` +^iVii +pXi`ʐLʐLʐb0LʐLʐLʐLʐ LʐpLʐLX p0X`x0H`(MEP  * ,8 ,h   (08@HPX H`HpH            ( 8 HXhx BL* < 8( $`  * ,LVAL E ,   ( 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[[[[[m`Z$LVAL FZ$Z$Z$Z$0Z$XZ$Z$Z$0Z$Z$ Z$@XZ$Z$Z$ Z$HZ$Z$pZ$   !'-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 filenameZZ0ZHZ`! Give the dialog a caption title. $F'g h$F'hg $F'g j$F'jg $F'g $F'g l$F'lg f$F'fg0 Allocate string space for the returned strings. $^$'$^'7 Set up the data structure before you call the function  9 !9 h9V 9 9 9 9 9 l9 j9j 9 L91 LVAL GDidn't think most people would want to deal with these options.9$^999n1 This will pass the desired data structure to the3 Windows API, which will in turn it uses to display the Open/Save As Dialog. f $'aH $'h04 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. j$F !j'jg !$p'da0'dh fx' 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 $F*.*'g V    '^fH5 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 terminatorZx  }'   LVAL H $'pax 'phhf`XRRAttribute 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/LVALa.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 LVAL Ji_VBA_MODULEx?hf[ (6 LLL<,<0<4<8<<<bb"*\Rffff*63e63856c"*\Rffff*73e63856c*\R1*#15*\R1*#8f*\R1*#8e*\R1*#1c*\R0*#10*\R0*#16*\R0*#1*\R0*#11 `o --`\ $@0p00XH@l H0<~t 8:2@X @pT @D @4 @$ @ @X lC@  nt@ 80-@ @ @ @ `XME5  * ,8 ,h 2 B    *  ,P ,       < XLVAL K ` $'h     . #  (J0  $ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex) C% 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 pelZ@ CDem_dta.mdbtblLab$<' varRet = adhInitAutoNum()'a8'h(  ~$t' B@s P Error# !4:  !6 8 : AutoExecA@2kxpfh`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 (H Jp D : 8H < : > <@ @ @ @ V@ @ 6  H0 x " X J B` 6  f Ph < X 8P F &       ( LVAL O0 "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 LVAL P  (0 8 @Pp xB   F B  8 (H 4p  , 0 ! ! !  @!P!2`!! !! !xpruns link codeHZ`Zx$' ) !B@  x  HQ  B@' quits accessP@ Error# !4:  !6 8 : *A@2k  jumps around quittng accessl: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 trig 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: driveALVAL Qstep 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_ClickTZZZZ0ZPZpZZdynacare input fileZ!record inside dynacare input fileDim fs As FileSearchDim varItem As Variant cdems fieldsZ$3the clinic_code field put into the CDEMS lab recordZZZ Z8ZPZhsummary fieldsZZZ$dynacare file namepatient identifiersDim LastName As StringDim FirstName As StringDim dob as date:Dim ResultComment As Boolean 'if result is simply commentS*$^'& .J'6'8to 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_ 8$^ 8 '8tLVAL RblLabs Z_ 8':#=================================== Create a new TableDef object.: Create fields and append them to the new TableDef object. : J%<.  clinic_code @7>5B@ chart_number @7>5B@raw_code @7>5B@result @7>5B@ service_date B7>5B@ status_flag @7>5B@ type_code @7>5B@n  J!B@ : J%D.#===================================Bsearches for new downloaded dynacare lab files in a:\ floppy drive !FC@H 9a:\9J9LC@N7N a  Input file % was not found in the CDEMS directory $ \>Please copy new input file to the CDEMS folder, and try again.A@2uHh@<************************************************************6the file parsing routine: moves data into cdems format7Open GetDBDir() & FileName For Input As #1 ' Open file.7P( Open file.nH $R_  Loop until end of file. 6 ) &" Read line into variable. & &$T &$T &$T  $'* & &$T &$T &$T  $'4 MsgBox TextLine MsgBox "start: " & Parse(TextLine, 1) + 1 & "' " & "end: " & Parse(TextLine, 2) & "len: " & (Parse(TextLine, 2) - Parse(TextLine, 2) - 1) & &$T &$T &$T  $'. & &$T &$T &$T  $'2>If InStr(TestResult, "TRIG. >400") Then 'to report uncalc ldl TestResult = "UTP"End If =============0SELECT tlkpCrosswalk.raw_code FROM tlkpCrosswalk" WHERE (((tlkpCrosswalk.lab_code)=' .'));'$ $ J%DLVAL S. !V !R9"is this lab raw_code in Crosswalk? B@X "Z'0 )MsgBox "good record " & rstCodes!raw_codeaH na'0h0 =============== 4No DateFna'0g 0na 0 8test 4 2  B@\unknown )( * )^ 2 )` 0 )Z 4 )bc )dLab )f B@hhah 6 '6#lab results tracked reported'4'2na'0'* B@jthis displays the txtCounterhS Close file. J!B@l===============================0data now in me.tblLabs - but has no clinic codes[tblLabs Z_ 8]': UPDATE : INNER JOIN tblDemo ON  :'.[chart_number] = tblDemo.chart_number SET  :).[clinic_code] = [tblDemo].[clinic_code];'$ $ J%n. B@N!=================================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, tyLVAL Tpe_code FROM " & strInputFile $ J%n. B@N<************************************************************ &Total patient records in input file: 6 $ \(Records appended to CDEMS lab table  !p rA@2.Jtuv !6A@2Exit_Command1_Clicktl?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 variantZh"holds col for desired nth Chr$(94)Z'|'~ number of "^" ~ z^ | '| x |$^$\F ~ '~g` |'TfPHGAttribute VB_Name = "Form_splash" Bas0{BC95C07C-179E-11D5-88B3-00AA002AB2F7} |Creatabl!True Pr@edeclaId"ExposBeFals @TemteDeriv%Customiz$ Option CompA DUw =licit P/aSub Open(Cancel As Integer) 'runs link codY On Error GoTo Exit@Access Dim strProc,Sngtx8  = AutoExec(C Me!TxtCounter0Me.@ 0 Then\E%MsgBox< ""c&LVAL V " was no`t fou6DCDEMS diroryChr$(10) _`Ple@ copyi `f,`r@ gain.Ex8it  GIf'*6?aBparsing rine: mlov`Bfa@>cdemsrma^ti'S GetDBDiri`.& (F LC,As #1 ' gc.FA,s0(1) ho WhAN 5EOFe' ure`8ofb0DM@e!TxtCterK΀;lF me #1, T"' Read UevariqbjPatID!Mid(e, :PePo, (2) -A1)N Coll`*9w=  5) ne, 6, - }I'$67Vrtt:6& !'}"  7len , B1 TestOIpOQ 3_VjRn/!,!04, '`RInStr' stTRIG. >400")rS`@report4calc ldl1: "UTP['Kї 7 SQL"SELECT tlkpCrosswalk.% FROM"EX5t" WHERE (((nb{)=\"'Q p"));8 wX rzC0qj?{t>r` `KU.BOF AJJ`M~i@yfi?) M]Fi{T@!u<"good R9#w"na:"֗ N"No>"s?ZV<> Len(a1B3!@6K .AddڽA)![]q2unknP/*" ("h"![ a!"$_T7A"cODr@!.UpDAO( *\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 Automation/ 5E15755.3rogram Files\CommonBSharedP\VBA6E6EXT.OLBKVisual Basic for ApplicB*s Extensibility. +Bh@basLinkedTab% __MODU LE2VB_MODULED@HB1"B,Bb!B+Bl@@C'`5sExec| OfPForm_s plash|;/-`*(*+b__SRP_0K)^ Form_splash Form_splash basAutoExec basAutoExecbasLinkedTablesbasLinkedTablesrU~~~~~~~~~~~~] bSMq  a ) 1 Q a ) !a A!)paml1basLinkedTables basCommonFile basAutoExec Form_splashF=C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.DLLVBA a PJ_N? 3C:\Program Files\Microsoft Office\Office\MSACC8.OLBAccess y`^FCommand1_ClickParse T=C:\PROGRAM FIL4LVAL@ES\COMMON FILES\MICROSOFT SHARED\DAO\DAO350.DLLDAO  p0FC:\WINDOWS\SYSTEM\stdole2.tlbstdole !ikSMqmSMq|*lSMqAC7?Label0EC7?Command1Label2@C7? TxtCounter31?FormSC7?Detail Form_OpenAutoExec  TxtCounter]协N?tpY?P;|? VBA332.DLL   fĤIx8<@ČF1BJ h)aN? `GXGP  S  Error# :  CheckLinkGetDBDiradhVerifyLinks tblLab CDem_dta.mdb AutoExec adhVerifyLinks    The required file ' ' could not be found.F__SRP_1frU~~~~~u    )y ) )( )a8 )HCancelinstring componentstrTablestrDataDatabasestrSampleTableGLVAL ?fz frmReports txtClinicList (ActivePeriodj start_date;qend_date^ txtStartDatea txtEndDate̿ basCommonFile(!tagOPENFILENAMEy lStructSize/r hWndOwner hInstance  strFilterӥstrCustomFilterژnMaxCustFilter` NFilterIndexcstrFile XnMaxFile strFileTitle nMaxFileTitleym strInitialDir/(strTitleFlagso nFileOffsetInFileExtension9 strDefExtHA lCustData'5lpfnHooklpTemplateNamet(adh_apiGetOpenFileNameHofn) comdlg32.dll?(adh_apiGetSaveFileName(CommDlgExtendedErrors(adhOFN_READONLY(adhOFN_OVERWRITEPROMPT(adhOFN_HIDEREADONLYXO(adhOFN_NOCHANGEDIR(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(adhCommonFileOpenSave InitialDir1Filter; FilterIndex˟ DefaultExtyFileNamej DialogTitle߄OpenFile strFilenameefResult IsMissing Application* hWndAccessApp (adhTrimNull(adhAddFilterItemstrDescriptiondvarItem vbNullCharYstrItemintPosr Form_frmReports btnRun_ClickResponse Err_btnCancelݯ lstQueriesdlstSelectClinic7yDateDiffIsNullcmbMed!a cmbService y cmbCondition cmbLab2[txtLabResultValueZ)cmbLabResultOperater%acNormalMaximizeFy OpenReport acViewPreview2 OpenQuery Exit_Click"cmdClose_Click!PErr_cmdClose_ClickExit_cmdClose_Click rstDefaultsKLVAL @ Recordset rstClinicList OpenRecordset| MoveFirstNclinic_defaulto txtClinicEOF clinic_code-Comments)MoveNextL!RequeryfraOptPeriod_ClickA fraOptPeriod lblLastDaysMVisible txtLastdays!_ lblStartDatec lblEndDateDateAdd/6lstQueries_Click strShowListSrststrSQLF lblconditionlblMedlblLab- lblServiceTrim@ColumniBOFy ColumnHeadsֻlstQueries_DblClickىlstSelectClinic_AfterUpdateYtxtLastdays_AfterUpdater basLinkedTablesd CheckLinkZstrTabler TableDefs%iFields7strDataDatabase6strSampleTableadhVerifyLinksErrd varReturn`DstrDBDir#strMsgG& varFileNametdfTableDefmintI\ intNumTablesIXlngFlags adhVerifyLinksDonemcount0vacSysCmdInitMeterm!Connect\ RefreshLinkntacSysCmdUpdateMeter  Form_frmSummary chkActive_Clickjcnt+ctlControlControlsK chkActive;cmbCriteria_1__AfterUpdate cmbCriteria(1)txtTestValue(1)cmbCriteria_10__AfterUpdateFcmbCriteria(10)txtTestValue(10)cmbCriteria_2__AfterUpdate!cmbCriteria(2)txtTestValue(2)cmbCriteria_3__AfterUpdatecmbCriteria(3)txtTestValue(3)cmbCriteria_4__AfterUpdateI^cmbCriteria(4) txtTestValue(4) cmbCriteria_5__AfterUpdate^6cmbCriteria(5)1txtTestValue(5)2cmbCriteria_6__AfterUpdate1cmbCriteria(6)VtxtTestValue(6)WcmbCriteria_7__AfterUpdateFcmbCriteria(7){txtTestValue(7)|cmbCriteria_8__AfterUpdateڟcmbCriteria(8)txtTestValue(8)cmbCriteria_9__AfterUpdatewcmbCriteria(9)txtTestValue(9)cmdCalculate_ClickrstCount rstPercentqdfQueryDef strSQL_Count strSQL_Total LVAL ai_VBA_PROJECTa^  *\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.DLL#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#8.0#0#C:\Program Files\Microsoft Office\Office\MSACC8.OLB#Microsoft Access 8.0 Object Library*\G{00025E01-0000-0000-C000-000000000046}#5.0#0#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\DC:\PROGRAM FI#Microsoft DAO 3.51 Object Libraryc>hbasLinkedTables 73e63856c*Db"basCommonFile 23e63856c*D`'basAutoExec 63e63856c*Df0 Form_splash 53e63856c*D0H;hH0dSMqfSMqhSMqjSMq`C Access VBALVAL bWin16~Win32Mac paml1DAOstdole` VBIDEA basLinkedTablesd _Evaluate (CheckLinkZstrTablervarRet CurrentDbS TableDefs%iFields7Erro(GetDBDir GetDBDirErr dbCurrent= strDbName strProcNameƣRight UCase5  GetDBDirDoneMsgBoxRNumber- Description vbOKOnly vbCritical+}(adhVerifyLinksstrDataDatabase6strSampleTableadhVerifyLinksErrd varReturn`DstrDBDir#strMsgG&DB\ varFileNametdfTableDefmintI\ intNumTablesIX strFilterӥlngFlags adhVerifyLinksDonemChrK~(adhAddFilterItem(adhOFN_HIDEREADONLYXO(adhOFN_NOCHANGEDIR(adhCommonFileOpenSaveOpenFileFilter;Flagso DialogTitle߄IsNull (adhTrimNullCount0vSysCmdGacSysCmdInitMeterm!Connect\ RefreshLinkntacSysCmdUpdateMeter acSysCmdRemoveMeter basCommonFile(!tagOPENFILENAMEy lStructSize/r hWndOwner hInstance strCustomFilterژnMaxCustFilter` NFilterIndexcstrFile XnMaxFile strFileTitle nMaxFileTitleym strInitialDir/(strTitle nFileOffsetInFileExtension9 strDefExtHA lCustData'5lpfnHooklpTemplateNamet(adh_apiGetOpenFileNameHofn) comdlg32.dll?(adh_apiGetSaveFileName(CommDlgExtendedErrors(adhOFN_READONLY(adhOFN_OVERWRITEPROMPT(adhOFN_SHOWHELPی(adhOFN_NOVALIDATE(adhOFN_ALLOWMULTISELECTJ(adhOFN_EXTENSIONDIFFERENTf4(adhOFN_PATHMUSTEXISTV(adhOFN_FILEMUSTEXISTF(adhOFN_CREATEPROMPT(adhOFN_SHAREAWAREi(adhOFN_NOREADONLYRETURN2(adhOFN_NOTESTFILECREATE;(adhOFN_NONETWORKBUTTON(adhOFN_NOLONGNAMES.W(adhOFN_EXPLORERz(adhOFN_NODEREFERENCELINKSX(adhOFN_LONGNAMESLVAL c InitialDir1 FilterIndex˟ DefaultExtyFileNamej strFilenameefResult IsMissing Application* hWndAccessAppstrDescriptiondvarItem vbNullCharYstrItemintPosr basAutoExecH(AutoExec 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 MoveFirstNraw_codeK=AddNewa chart_numberSResultur service_date status_flag  type_codefUpdateRepaintRefreshCreateQueryDefzNRecordsAffectedP vbInformationnExit_Command1_ClickiErr_Command1_ClickinstringY component"positioncnt+FormDetail2Label0,Label2,ClickControlsKItemz`  H@@x@ H)H dir0* pHd paml1 @8= Vh @c> J< DAO>DAO( *\G{00025E01-0C  0046}#5.0#0#C:\PROGRAM FILES\C OMMON MICROSOFT SHARED\D /#Microsoft H 3.51 Object LibraryHAh basLinkedTables _VBA_MODULE2!VBr_MtDULE H1"E ,4b!+%:CommonFile9'`5AutoELVALdH@@x@ H)H dir0* 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 Automation/ 5E15755.3rogram Files\CommonBSharedP\VBA6E6EXT.OLBKVisual Basic for ApplicB*s Extensibility. +Bh@basLinkedTab% __MODU LE2VB_MODULED@HB1"B,Bb!B+Bl@@C'`5sExec| OfPForm_s plash|;/-`*(*+b__SRP_0K)^ Form_splash Form_splash basAutoExec basAutoExecbasLinkedTablesbasLinkedTablesrU~~~~~~~~~~~~] bSMq  a ) 1 Q a ) !a A!)paml1basLinkedTables basCommonFile basAutoExec Form_splashF=C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.DLLVBA a PJ_N? 3C:\Program Files\Microsoft Office\Office\MSACC8.OLBAccess y`^FCommand1_Clickxec-|ÀM9fPForm_splash|;8[-T(UCW4LVAL@ES\COMMON FILES\MICROSOFT SHARED\DAO\DAO350.DLLDAO  p0FC:\WINDOWS\SYSTEM\stdole2.tlbstdole !ikSMqmSMq|*lSMqAC7?Label0EC7?Command1Label2@C7? TxtCounter31?FormSC7?Detail Form_OpenAutoExec  TxtCounter]协N?tpY?P;|? VBA332.DLL   fĤIx8<@ČF1BJ h)aN? `GXGP  S  Error# :  CheckLinkGetDBDiradhVerifyLinks tblLab CDem_dta.mdb AutoExec adhVerifyLinks    The required file ' ' could not be found.F__SRP_1frU~~~~~u    )y ) )( )a8 )HCancelinstring componentstrTablestrDataDatabasestrSampleTableG4ȝQL3kf@3kf@ tblLabD:\DYNACARE\cdem_dta.mdbtblLabu !]]]]QQQKK'% %Hilf@Hilf@tblLabs3/3/03_33@ :<<<0000000. @73pkf@ qkf@tblLabs3/3/03_23@ :<<<0000000. @7c\kf@]kf@tblLabs3/3/03_13@:<<<0000000. @1kf@1kf@ tblDemoD:\DYNACARE\cdem_dta.mdbtblDemoSSSSSSSLL(&