Standard Jet DBnb` Ugr@?~1y0̝cßFN`7xߜ(6-`q{6߱RoC43y[.|*"|XZf_Љ$g'DeFx -bT4.0dv Y7S 77 Y   Y Y  Y Y  Y  Y  Y  r Y s Y E Y a Y d Y 2Y  Y   Y  jY ConnectDatabaseDateCreateDateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeniYYIdParentIdName        OYS6Y Y Y  Y 2ACMFInheritableObjectIdSIDM elYObjectId YSY  Y Y Y  Y  Y Y  Y AttributeExpressionFlagLvExtra Name1 Name2ObjectId Ordernzf edY"ObjectIdAttribute -YS Y Y Y  Y  Y  Y  Y  Y ccolumn grbiticolumnszColumnszObject$szReferencedColumn$szReferencedObjectszRelationship   YYYszObject$szReferencedObjectszRelationshipYv1b N  : k & W  C t/ @@PP 4 ?@t  @@@ @@@ @@@  @@@ @Si`^dUUQiSi``JYbSdi`LJkMd``dbSY^QJO`YbOJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^Qk`kvkJMMQkkdL[QMmk`kvkJMQk`kvkbJqfJbQUidofMJmQUdiYQk `kvkbJqfJbQUidofk `kvkbJqfJbQUidofmddL[QMmk `kvkbJqfJbQdL[QMmYOk `kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkmL^Mokmd`mL^OQ`dmL^WQJ^mWmL^^JLmL^`QOmL^kQiqYMQkmL^qYkYmkm^\fMYmvm^\fM^YbYMm^\fMidkksJ^\m^\fOQSJo^mk m^\fQmWbYMYmv!m^\fUQbOQi"m^\fYbkoiJbMQ#m^\ffMf$m^\ff^JbUoJUQ%m^\fkQmof&m^\fkmJmokS^JUk'm^\fqYkYmmvfQ(JMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQO+ SFJQS6QF:>>F88OHHS>F88OHHS>F88OHHS>F88OHHS>F88OHHS>F88OHHS>F88OHHS>F88OHHS>F88OHHS>F88OHHS?@ABCDEFGHIJKL    P1 11777===DDDMMMPPPYY Y!]"]#]$b%b&b'g(g)g*l+l,l-p.p/p0u1u2u3|4|5|6789:;<=>?@ABCDEFGHI     !"# H @@@@@+ SFJQS6QF:>>F88OHHS>F88OHHS>F88OHHS>F88OHHS>F88OHHS>F88OHHS>F88OHHS>F88OHHS>F88OHHS>F88OHHS>F88OHHS>F88OHHS>F88OHHS>F88OHHS>F88OHHS>F88OHHS>F88OHHS>F88OHHS>F88OHHS>F88OHHS @ڢ@H:d@tlkpSetupZ@@@@44444442 @,@@tlkpPLanguageZm@HHH<<<<<<<: @}&u@-]u@tlkpPCPZ0@<<<0000000. @ u@,@tlkpGenderZ@BBB66666664 @p/@/@tlkpEthnicityZ@HHH<<<<<<<: @l)@@tlkpDefaultsZ#@FFF:::::::8 @g`V@V@tlkpCrosswalkZ@HHH<<<<<<<: @bk@[{j@tlkpClinicZ@BBB66666664 @])@^@tlkpCityZ'@>>>22222220 @PV@V@tblServicesZd@DDD88888886 @MV@V@tblMedZ@:::......., @DV@V@tblLabZ}@:::......., @=ԽV@kV@tblHealthZ@@@@44444442 @7IV@86@tblDemoZh<<<0000000. @Dd@;1Dd@MSysAccessObjectsZDDDDDDDDDDB   cN3>V@cN3>V@AdminZ@ @8,,,,,,,,,*  6}@i8}@basCommonFileZj@HHH<<<<<<<: @ dW@dW@frmMainFormZT@DDD88888886 @ z9J]@z9J]@frmLoggerZX@@@@44444442 @ 4@4@UserDefinedZB@DDD88888886 @ tcV@Dd@AccessLayoutZ4MR2KeepLocal T@zz:::::::8 @6V@6V@SysRelZ.........., 6V@6V@ScriptsZ0000000000. 6V@6V@ReportsZ0000000000. 6V@6V@ModulesZ0000000000. 6V@6V@FormsZ,,,,,,,,,,* 6V@6V@DataAccessPagesZ@@@@@@@@@@> 6V@6V@MSysRelationshipsXDDDDDDDDDDB 6V@6V@MSysQueriesX88888888886 6V@6V@MSysACEsX22222222220 6V@6V@MSysObjectsX88888888886 6V@NW1@MSysDbZ@:::......., @6V@6V@RelationshipsX<<<<<<<<<<: 6V@6V@DatabasesX44444444442 6V@6V@TablesX..........,  Y/AccessN/Y Y pDataIDSrpot0BaYAOIndexv1K[00SysAccessObjectsLLLLLLLLLLJ  erx-b aux-b.b ep.b.b&H.b "none"raw_code       maworking_code       m[type_code     RK[ࡱ> 608Root Entry# B29IVBAu  B2VBAProjectu  B2VBAu  B25  !"$%&'()*+,-.32714:<=>?@ABCDEGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuwxyz{|}~PROJECTPROJECTwmAcessVBAData Forms "hu  B PropDataCopyImExSpecs^2^2PropData QDirData"CustomGroups53hu hu DataAccessPages hu hu Root Entry# 2IVBAu բ VBAProjectu բ VBAu բ xvalueReqofnFlags InitialDirFilter FilterIndex DefaultExtFileName DialogTitleOpenFilestrTable,rU h$` $A` $` K[n  1Y @4appp@8rrr@ <)Qttt @@qvvv@Dzzz@H|||@L@ P)~~~I@T@X @\!xxxsW0   xD<'8%'H%'X%:h%x$ `x `xDD$ b x0-zlp$ hp $llpchBPTkzDX%p$ hp T lP2/P)pTv* zdh/'''*#P*#L*#H*#D *#@*#<*#8 *#4*#0*#, *#(*#$*#  *F^ 1t2PLHD@<840,($ 60( btXPLHD@<840,($ pT<PXHrU .)  !gIgqgyccWI[ iSI_W9a 1 9aY)Aa rU )  Q y 9I!A"i""Q# $$A%&& ( ((()9)9!i) *)1* ,a- 01 45 89)::: <=i>>> @yAA1ByB)C177i3. DDEYEEFFF)G HHII1JyJ LAMMM9NN PaQR!SiS TU XYQVVV \] `iaaa de hyiii lmnn pq tuvv x)yz!{ ww i a!Y!9!@4appp@8rrr@ <)Qttt @@qvvv@Dzzz@H|||@L@ P)~~~I@T@XK[ @\!xxxsW$KX$ QX\X:8%:H%\ QXx'H%x tX:8%:H%\ QXx'H%x tX:8%:H%\ QXx'H%x tX:8%:H%\ QXx'H%x tX:8%:H%\ QXx'H%x tX:8%:H%\ QXx'H%x tX:8%:H%\ QXx'H%x tX:8%:H%\ QXx'H%x tX:8%:H%\ QXx'H%x t4X! X pQ40X 0 h #,0 `/,*#,0 @/, 0 ((0 d%(0 dl(*r(X0 lX (l(Xc$ kr#,*F%! !/,5  @*, krX0 lX $>,1hX"C,, #pf/,kf&:H"%X$ `X $XG'%f%:"%:%%lhF8%:H&%X$ `X $XN'(*#,)*#**#+*#,*#-*#.*#/*1t2, XltF8%:H%\ QXx'H%x tkp(x Xl(pp0C,, #pf/,kf1&:H0%X$ `X $XG'%f%:0%:1%lhF8%:H&%X$ `X $X23*#,4*1t/, XltF8%:H%\ QXx'H%x t5C,, #pf/,kf&:H5%X$ `X $XG'%f%:5%:6%lhF8%:H&%X$ `X $X78*#,9*1t/, XltF8%:H%\ QXx'H%x t:C,, #pf/,kf&:H:%X$ `X $XG'%f%::%:;%lhF8%:H&%X$ `X $X<=*#,>*1t/, XltF8%:H%\ QXx'H%x t?C,, #pf/,kf&:H?%X$ `X $XG'%f%:?%:@%lhF8%:H&%X$ `X $XAB*#,C*1t/, XltF8%:H%\ QXx'H%x tDC,, #pf/,kfm&:HD%X$ `X $XG'%f%:D%:E%lhF8%:H&%X$ `X $XFG*#,H*1t/, XltF8%:H%\ QXx'H%x tIC,, #pf/,kf<&:HI%X$ `X $XG'%f%:I%:J%lhF8%:H&%X$ `X $XKL*#,M*1t/, XltF8%:H%\ QXx'H%x tNC,, #/, &:HN%X$ `X $XG'%f%:N%:O%lhF8%:H&%X$ `X $XPQ*#,R*1t/, XltF8%:H%\ QXx'H%x tSC,, #pf/,kf &:HS%X$ `X $XG'%f%:S%:T%lhF8%:H&%X$ `X $X*UV*#,W*#X*#Y*1t2, XltF8%:H%\ QXx'H%x tZC,, #pf/,kf &:HZ%X$ `X $XG'%f%:Z%:[%lhF8%:H&%X$ `X $X*\]*#,^*#_*#`*1t2, XltF8%:H%\ QXx'H%x taC,, #pf/,kf &:Ha%X$ `X $XG'%f%:a%:b%lhF8%:H&%X$ `X $Xcd*#,e*1t/, XltF8%:H%\ QXx'H%x tfC,, #pf/,kfg &:Hf%X$ `X $XG'%f%:f%:g%lhF8%:H&%X$ `X $X!hi*#,j*#k*1t2, XltF8%:H%\ QXx'H%x tlC,, #pf/,kfA &:Hl%X$ `X $XG'%f%:l%:m%lhF8%:H&%X$ `X $Xno*#,p*1t/, XltF8%:H%\ QXx'H%x tqC,, #pf/,kf&:Hq%X$ `X $XG'%f%:q%:r%lhF8%:H&%X$ `X $X!st*#,u*#v*1t2K[, XltF8%:H%\ QXx'H%x twC,, #pf/,kf&:Hw%X$ `X $XG'%f%:w%:x%lhF8%:H&%X$ `X $Xyz*#,{*1t/, XltF8%:H%\ QXx'H%x t rd${c0'''|(4X! X p4 l (l(#,*#*#*#}*#kp#*F 2 ,)X46"C,, #/,W&:H"%X$ `X $X~C,, #/,&:H~%X$ `X $XfC,, #/,&:Hf%X$ `X $XlC,, #/, &:Hl%X$ `X $XqC,, #/,G&:Hq%X$ `X $XaC,, #/,&:Ha%X$ `X $XZC,, #/,&:HZ%X$ `X $XwC,, #/,&:Hw%X$ `X $X5C,, #/,7&:H5%X$ `X $X0C,, #/,s&:H0%X$ `X $XSC,, #/,&:HS%X$ `X $XIC,, #/,&:HI%X$ `X $XNC,, #/,'&:HN%X$ `X $X:C,, #/,c&:H:%X$ `X $X?C,, #/,&:H?%X$ `X $XDC,, #/,&:HD%X$ `X $X<''', XX ,>,F X6 $< b$0`txh\D,X4xD<'8%'H%'X%:h%x$ `x `$xDD$ b x0-zlp$ hp $llpchBPTkzDX%p$ hp T lP2/P)pTv* zdh/'''*#P*#L*#H*#D *#@*#<*#8 *#4*#0*#, *#(*#$*#  *F^ 1t2PLHD@<840,($ 60( btXPLHD@<840,($ pT<PXH   !"$%&'()*+,-.KKC3YG_1[!g@4vvv@8!ttt@< @@appp@Drrr@ H)|||I@LIAq~~~ @PzzzpW $lp$ p PQltp(\p! )p \cL]4p5\3(,%l:L%pt *p (+l ,)pl8'' :,N<<@:L N\\^ 1x6\< )\p! )p \fL]4pK[5\3(,%l:L%pt *p (+l ,)pl | pp ,  ll  '' l#*F<0*#*#l*F\ 2)pl6\<  , btx4 pl\< K|7'%'%'%'%'(%'8%'H%'X x`1x6X4lxFh%$  T 0) ( bxXpKO@P:T%dh$ h Td $P $@0)hdP5@J@P:T%dh$ h Td $P $@`1p)hdP5@7'%'%'%'%'%'%' %'@0 x0`1p6@04lpFT%dh$ h Td 0)hd4lpF %d:T%h Lh $d,)hd%lp*#x$ P/+h: %'T%x$ lh=thd(T%ht Th (d , l!*#( %Pt TP ( , l*#!*#(%t T ( , l*#!*#(%t T ( , l*#!*1l2)hdPt Pklld(T%ht Th (Qdo@ l*#!*#( %Pt TP (Qo0 l*#!*#(%t T (Qop l*#!*#(%t T (Qo` l*#\!*1l2\)hP6@0p` t llh! )h "h c=t c=#xX hh  lXqThlT^Z+'`'p'0:T-N@@ 6@0p`l'`'p'0X hh  lX#$*# dd , l*F@ 2)hd6@0p`(4 bxltph\hdP@0p`-K l %! :`&0  `K1t$lt '#\qp/\lp%lptM`@L ( L`1t5LltCtltCx/Ct / 0, bxt\LLH<@rU \$`$A` $` ,`a/0n AfrmLoggerfrmMainForm#0#C 2CB0 0CB0es\Common Files\Mic 2CB0 0CB0 3CB0ao360.dll#MicDAO 3.6 Object LibrarybasCommonFilesC  4CB0 4CB0ZIVFEDGFHDJFZ_NTTLSHLFHXji8872Form_frmLogger iIy 1 @4vvv@8!ttt@< @@appp@Drrr@ H)|||I@LIAq~~~ @PzzzpW0 8  0   pKO@PK[:T%dh$ h Td $P $@0)hdP5@J@P:T%dh$ h Td $P $@`1p)hdP5@7'%'%'%'%'%'%' %'@0 x0`1p6@04lpFT%dh$ h Td 0)hd4lpF %d:T%h L h $ d,)hd%   lp*#x$ P/+h: %'T%x$ lh=thd(T%ht Th (d ,l*#( %Pt TP ( ,l*#*#(%t T ( ,l*#*#(%t T ( ,l*#*1l2)hdPt Pklld(T%ht Th (Qdo@l*#*#( %Pt TP (Qo0l*#*#(%t T (Qopl*#*#(%t T (Qo`l*#\*1l2\)hP6@0p` t llh! h h c=t c=xl'`'p'0X hh lX#*# dd ,l*F@ 2)hd6@0p`e$p4 bxltph\hdP@0p`0   LH<@:0%:1%lhF8%:H&%XrU~| !y ))  q{A"s{!oo i{ysIikkkk/y+,\$L4d1plp #d?/dqlpJlp 1p8 lp 1xK` hh l`q\hx` hh P TT ,'' lM,@l`#d*#X*#LlP*F< 2dXLP)hT6<  ~,4 bxplt0 dXPLhT< C`X $ lX=hXTh (>T1dTh (lTJp^/T;Th (($k^>TFD :]A6D$ k^p^Q5Th (($2k^>TFD l6D$K XX lqXx XX   ,''$`M4@l#T*#*#l*FD 2T)X6D$ 4 bld`h4 TXD$Kk04(8%HL FP%`d $ d D` 0L `H 04 ,>0F h) d`LH4$ dK[d ldpzpz`( bh(0d`LH4 \rrU ,p4,(p4$qPpL` !Aa$`$`(`0##rmLogger=74, 0, 944, 780, basCommonFile=76, 121, 965, 890, Z Form_frmMainFormForm_frmMainFormForm_frmLoggerForm_frmLoggerbasCommonFilebasCommonFileEt ~mE mmqmSlF9'languaggMPL$M { /akpvE''~/a#a (pe%^."Y" $08=Babe g hij4&kW@H$7з~ U Arial8 hAuto HP OfficeJet R80xi on SMAnID="{F8AEF0C3-2448-11D9-9F37-00D0B77EFFB9}" DocClass=Form_frmMainForm/&H00000000 DocClass=Form_frmLogger/&H00000000 Module=basCommonFile Name="grouper1" HelpContextID="0" VersionCompatible32="393222000" CMG="D6D4D00C70344238423842384238" DPB="ACAEAA62563957395739" GC="828084505B515B51A4" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Form_frmMainForm=-14, -3, 798, 399, Form_feGg-APHBEHHCTTSWNDYKIQHMEUTDHXEI:~ YWYYFXLZJKTLWDHLEKRSIVFIYKMI:v9FPRAETDKUCNMYDFECXDEK[NKDCAXH_:FZ^_VBA_PROJECT; dir>Z  :0* pHdgrouper1,@ Z= n _J %J< AD@ODB> ADOB *\G{0201-a10-8 AA006D2EA4}#2.1#0#C:\Program Files (x86)\@Common\System\a do\ms21.tlb#Microsoft ActiveX Data Objects / Li`braryKDAO>DA^ \25E\p00-C\46}#5.0\QShared\>\dao360.dlla 3.6^ \A)+Form_frmLoggerGorm(_fLg(ge@BAPHBEHHCTTSWNDYKIQHMEUTDHX EI28APHBE@ HCT@SWN@zYKIQ@MU@DXIB@ 1_B,B/tr"(B+B`basC}Gbas o4m2nF0il33YWYYFXLZJKTLWDHLEKRSIVFIYKM3Y.YY XLZJ0T@W3HERS5VI@ 8KM@S 3)3!01@!eMainG. A@/ fM@6i3l3FPRAETDKUCNMYDFECXDENKDCAXH_g*FgRWEB/KU#N YF0CX E5K*C X@2_3 G3a ) ))( )8 )H )X )h )Iam  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#C:\Program Files (x86)\Microsoft Office\Office12\MSACC.OLB#Microsoft Access 12.0 Object Library**\G{00000201-0000-0010-8000-00AA006D2EA4}#2.1#0#C:\Program Files (x86)\Common Files\System\ado\msado21.tlb#Microsoft ActiveX Data Objects 2.1 Library(*\G{00025E01-0000-0000-C000-000000000046}#5.0#0#C:\Program Files (x86)\Common Files\Microsoft Shared\DAO\dao360.dll#Microsoft DAO 3.6 Object LibraryK[ _J )8APHBEHHCTTSWNDYKIQHMEUTDHXEI014eec981dForm_frmLoggertr_8YWYYFXLZJKTLWDHLEKRSIVFIYKMI024eec981dlbasCommonFile)8FPRAETDKUCNMYDFECXDENKDCAXH_034eec981d Form_frmMainForm0 GP0ȉLR}-WK-9LVU>ED|A<0>AccessVBAWin16~Win32MacVBA6#grouper1ADODBsDAOForm_frmLogger _EvaluatechkStopNewUsers_AfterUpdatehcresponsecnn% ConnectionNewConnectStop] NewConnectOK^CurrentProject$chkStopNewUsers:h Properties+MsgBoxR vbInformationnupdateList_Exit Form_Load{updateList_ErrorvbCrLfErro Description  vbExclamationNumber-cmdNew_Logger_Path_Clickerr_code strfilepath\adhCommonFileOpenSaveAddrrst Recordset strUserlist)txtLast_Logger_Path.JET_SCHEMA_USERROSTERO< OpenSchemaDadSchemaProviderSpecificQFields7EOF TrimToNullxMoveNextL!DisplayJetRoster/ RowSource2valueReq~EtrimStr nullPosPTrimToNull_ErrIsNullChrK~TrimToNull_Exit basCommonFiletagOPENFILENAMEy lStructSize/r hWndOwner hInstance  strfilterӥstrCustomFilterژnMaxCustFilter` NFilterIndexcstrFile XnMaxFile strFileTitle nMaxFileTitleym strInitialDir/(strTitleFlagso nFileOffsetInFileExtension9 strDefExtHA lCustData'5lpfnHooklpTemplateNametadh_apiGetOpenFileNameHofn) comdlg32.dll?adh_apiGetSaveFileNameCommDlgExtendedErrorsadhOFN_READONLYadhOFN_OVERWRITEPROMPTadhOFN_HIDEREADONLYXOadhOFN_NOCHANGEDIRadhOFN_SHOWHELPیadhOFN_NOVALIDATEadhOFN_ALLOWMULTISELECTJadhOFN_EXTENSIONDIFFERENTf4adhOFN_PATHMUSTEXISTVadhOFN_FILEMUSTEXISTFadhOFN_CREATEPROMPTadhOFN_SHAREAWAREiadhOFN_NOREADONLYRETURN2adhOFN_NOTESTFILECREATE;adhOFN_NONETWORKBUTTONadhOFN_NOLONGNAMES.WadhOFN_EXPLORERzadhOFN_NODEREFERENCELINKSXadhOFN_LONGNAMES InitialDir1Filter; FilterIndex˟ DefaultExtyFileNamej DialogTitle߄OpenFileintPosr strFilenameefResult vbNullCharY IsMissing Application* hWndAccessAppGetDBDir GetDBDirErr dbCurrent= strDbName strProcNameƣ CurrentDbSRight UCase5  GetDBDirDonevbOKOnly vbCritical+} GetDBNameposition CheckLinkZstrTablervarRet TableDefs%iForm_frmMainFormcmdGrouper_ClickWqdfquerydefstrSQLFcnt_foundfiles] cnt_patients>cnt+blnTableExistsij strProgressDdb\CreateQueryDefzNExecuteY FileSearchD NewSearchfLookInPSearchSubFolders FoundFilesCount0v txtProgress͗RepaintDoCmdƧ DeleteObjectTacTableTransferDatabase)acImport+sRecordsAffectedPvbLfT%vbCr$cmdLogger_Click OpenFormintCnt.- References K[start` m 6 `   ` 8 ` P \LP  @ @ 0G)xME PS<S<S<< <<<<XN0{F8AEF0F8-2448-11D9-9F37-00D0B77EFFB9} (, X %```to t`` Con` `  % @h ,`D`%hI " b   J L0 6  B 0 @:P  <  6 H XBh  B  (B8  8  P f8      R $X   N 0( $X   $  R D  h(  L Hd`  x  $  B R( b  . X8     $  > N( Px * P h 8 P ` . X ~8    .0 X` ~ 8 P ` * N f0    ( L0    0 P D` X     ,8 Rh (N  ( 8 Xh* K[ P (     (0 JX 8    ! (!@!*`! P! ! # #  # ##(# J$ h$ % %  % %%,% T(& & ( ((  8( X(p(*( P( ) ) *   0*  @*   P*X*n`* 6* .+ 88+<p+<+8+@(,8h,<,<, < -D`-@-8-D .Dh.D.<. V8// ///  / "/ */0 00 "80 @0`0h0 p0$0 0  (0 X2`2 h2 x2xp<`\When grouper.mdb opens the existing patient tables are cleared (tbldemo, tblMed, tblLabs...)x]@]`]x]]]]]] .C===================================================================Eclearing out tables: demo, crosswalk, setup,ethnicity, pcp, insurancedemoDELETE tblDemo.* FROM tblDemo; %.  B@ crosswalk*DELETE tlkpCrosswalk.* FROM tlkpCrosswalk; %.  B@setup"DELETE tlkpSetup.* FROM tlkpSetUp; %.  B@clinic$DELETE tlkpclinic.* FROM tlkpclinic; %.  B@pcpDELETE tlkpPCP.* FROM tlkpPCP; %.  B@language*DELETE tlkpPLanguage.* FROM tlkpPLanguage; %.  B@ Insurance*DELETE tlkpInsurance.* FROM tlkpInsurance; %.  B@ ethnicity*DELETE tlkpEthnicity.* FROM tlkpEthnicity; %.  B@city DELETE tlkpcity.* FROM tlkpcity; %.  B@J==========================================================================_All patient data now cleared. program searches for "*" & "dta.mdb" files in current folder only ! C@"$9$*dta.mdb99&C@7 L============================================================================cycle through each found file 5(!* show progressFile: ', B@.Hsteps through found "*" & "dta.mdb" files and appends them to the master*------------------------------------------.foundfiles(index) = the path 7('==============================tblDemoKif prgram errors for some reason these add tables are still in database and>everything is messed up - so need to check for their existence tblDemoAdd$' G 4 tblDemoAdd 0B@2j 8Microsoft Access tblDemo tblDemoAdd 0B@6 K[   LINSERT INTO tblDemo (clinic_code, chart_number, last_name, first_name, dob, Psex, ethnicity, primary_language, address1, address2, city, state, zip, phone1, aphone2, pcp, insurance, _date, start_date, end_date, last_update_date, migrant, homeless, other) eSELECT tblDemoAdd.clinic_code, tblDemoAdd.chart_number, tblDemoAdd.last_name, tblDemoAdd.first_name, htblDemoAdd.dob, tblDemoAdd.sex, tblDemoAdd.ethnicity, tblDemoAdd.primary_language, tblDemoAdd.address1, [tblDemoAdd.address2, tblDemoAdd.city, tblDemoAdd.state, tblDemoAdd.zip, tblDemoAdd.phone1, dtblDemoAdd.phone2, tblDemoAdd.pcp, tblDemoAdd.insurance, tblDemoAdd.[_date], tblDemoAdd.start_date, ltblDemoAdd.end_date, tblDemoAdd.last_update_date, tblDemoAdd.migrant, tblDemoAdd.homeless, tblDemoAdd.other FROM tblDemoAdd;'  %.  B@  !: '============================= tlkpCrosswalk<this deletes the current tlkpCrosswalk, then imports new oneLnext step tries to append the current tlkpCrosswalk to what;s there already-[so you end up with a master crosswalk table holding list across clinics if not all the sametlkpCrosswalkAdd$' G 4tlkpCrosswalkAdd 0B@2j 8Microsoft Access  tlkpCrosswalktlkpCrosswalkAdd 0B@6JINSERT INTO tlkpCrosswalk ( raw_code, type_code, working_code, lab_code ) ]SELECT tlkpCrosswalkAdd.raw_code, tlkpCrosswalkAdd.type_code, tlkpCrosswalkAdd.working_code, 0tlkpCrosswalkAdd.lab_code FROM tlkpCrosswalkAdd;'  %.  B@============================= tlkpSetUp8this deletes the current tlkpSetUp, then imports new oneHnext step tries to append the current tlkpSetUp to what's there already-Jso you end up with a master setup table across clinics if not all the same tlkpSetUpAdd$' G 4 tlkpSetUpAdd 0B@2j 8Microsoft Access  tlkpSetUp tlkpSetUpAdd 0B@6@INSERT INTO tlkpSetUp (type_field, health_status,related_field) WSELECT tlkpSetUpAdd.type_field, tlkpSetUpAdd.health_status, tlkpSetUpAdd.related_field FROM tlkpSetUpAdd;'  %.  B@=====================languagetlkpPLanguageAdd$' G 4tlkpPLanguageAdd 0B@2j 8Microsoft Access  tlkpPLanguagetlkpPLanguageAdd 0B@6&INSERT INTO tlkpPLanguage (planguage) "SELECT tlkpPLanguageAdd.planguage FROM tlkpPLanguageAdd;'  %.  B@===================== ethnicitytlkpEthnicityAdd$' G 4tlkpEthnicityAdd 0B@2j 8Microsoft Access  tlkpEthnicitytlkpEthnicityAdd 0B@6&INSERT INTO tlkpEthnicity (ethnicity) "SELECT tlkpEthnicityAdd.ethnicity FROM tlkpEthnicityAdd;'  %.  B@=====================city tlkpCityAdd$' G 4 tlkpCityAdd 0B@2j 8Microsoft Access tlkpCity tlkpCityAdd 0B@6INSERT INTO tlkpCity (city) SELECT tlkpCityAdd.city FROM tlkpCityAdd;'  %.  B@=====================pcp tlkpPCPAdd$' G 4 tlkpPCPAdd 0B@2j 8Microsoft Access tlkpPCP tlkpPCPAdd 0B@6+INSERT INTO tlkpPCP (clinic_code,provider) (SELECT tlkpPCPAdd.clinic_code, provider FROM tlkpPCPAdd;'  %.  B@===================== insurancetlkpInsuranceAdd$G 4tlkpInsuran K[ceAdd 0B@2j 8Microsoft Access  tlkpInsurancetlkpInsuranceAdd 0B@6;INSERT INTO tlkpInsurance (insurance_name, insurance_type) HSELECT tlkpInsuranceAdd.insurance_name, tlkpInsuranceAdd.insurance_type FROM tlkpInsuranceAdd;'  %.  B@=====================clinic tlkpClinicAdd$' G 4 tlkpClinicAdd 0B@2j 8Microsoft Access  tlkpClinic tlkpClinicAdd 0B@6  INSERT INTO tlkpClinic (clinic, Aclinic_code, type_form, type_flowsheet, type_overflow, comments) QSELECT tlkpclinicAdd.clinic, tlkpClinicAdd.clinic_code, tlkpClinicAdd.type_form, RtlkpClinicAdd.type_flowsheet, tlkpClinicAdd.type_overflow, tlkpClinicAdd.comments FROM tlkpClinicAdd;'  %.  B@======================VISITS tblVisitsAdd$' G 4 tblVisitsAdd 0B@2j 8Microsoft Access  tblVisits tblVisitsAdd 0B@6 XINSERT INTO tblVisits (clinic_code, chart_number, visit_date, type_visit, bp_diastolic, /bp_systolic, weight, height, next_visit_date ) nSELECT tblVisitsAdd.clinic_code, tblVisitsAdd.chart_number, tblVisitsAdd.visit_date, tblVisitsAdd.type_visit, |tblVisitsAdd.bp_diastolic, tblVisitsAdd.bp_systolic, tblVisitsAdd.weight, tblVisitsAdd.height, tblVisitsAdd.next_visit_date FROM tblVisitsAdd;'  %.  B@==========================LABS tblLabAdd$' G 4 tblLabAdd 0B@2j 8Microsoft Access tblLab tblLabAdd 0B@6iINSERT INTO tblLab ( clinic_code, chart_number, raw_code, result, service_date, status_flag, type_code ) \SELECT tblLabAdd.clinic_code, tblLabAdd.chart_number, tblLabAdd.raw_code, tblLabAdd.result, RtblLabAdd.service_date, tblLabAdd.status_flag, tblLabAdd.type_code FROM tblLabAdd;'  %.  B@==========================COMORBIDS (Health) tblHealthAdd$' G 4 tblHealthAdd 0B@2j 8Microsoft Access  tblHealth tblHealthAdd 0B@6 _INSERT INTO tblHealth ( clinic_code, chart_number, raw_code, start_date, end_date, specialist, [educator, comment, type_code ) SELECT tblHealthAdd.clinic_code, tblHealthAdd.chart_number, `tblHealthAdd.raw_code, tblHealthAdd.start_date, tblHealthAdd.end_date, tblHealthAdd.specialist, VtblHealthAdd.educator, tblHealthAdd.comment, tblHealthAdd.type_code FROM tblHealthAdd;'  %.  B@==========================MEDS tblMedAdd$' G 4 tblMedAdd 0B@2j 8Microsoft Access tblMed tblMedAdd 0B@6\INSERT INTO tblMed ( clinic_code, chart_number, raw_code, start_date, end_date, type_code ) `SELECT tblMedAdd.clinic_code, tblMedAdd.chart_number, tblMedAdd.raw_code, tblMedAdd.start_date, 7tblMedAdd.end_date, tblMedAdd.type_code FROM tblMedAdd;'  %.  B@==========================SERVICEStblServicesAdd$' G 4tblServicesAdd 0B@2j 8Microsoft Access  tblServicestblServicesAdd 0B@6 bINSERT INTO tblServices ( clinic_code, chart_number, raw_code, status_flag, service_date, result, ncomment, type_code ) SELECT tblServicesAdd.clinic_code, tblServicesAdd.chart_number, tblServicesAdd.raw_code, htblServicesAdd.status_flag, tblServicesAdd.service_date, tblServicesAdd.result, tblServicesAdd.comment, -tblServicesAdd.type_code FROM tblServicesAdd;'  %.  K[B@==========================NOTES (Custom) tblCustomAdd$' G 4 tblCustomAdd 0B@2j 8Microsoft Access  tblCustom tblCustomAdd 0B@6CINSERT INTO tblCustom ( clinic_code, chart_number, [date], [note] )aSELECT tblCustomAdd.clinic_code, tblCustomAdd.chart_number, tblCustomAdd.date, tblCustomAdd.note FROM tblCustomAdd;'  %.  B@*------------------------------------------ kqFiles found = ! !(!* < >$Total patients now in master base =  A@&/-----------------------------------------------'clear temp tables to leave program tidy tblDemoAdd$G 4 tblDemoAdd 0B@2j tblVisitAdd$G 4 tblVisitAdd 0B@2j tblHealthAdd$G 4 tblHealthAdd 0B@2j tblMedAdd$G 4 tblMedAdd 0B@2jtblServicesAdd$G 4tblServicesAdd 0B@2j tblLabAdd$G 4 tblLabAdd 0B@2j tblVisitsAdd$G 4 tblVisitsAdd 0B@2j tblCustomAdd$G 4 tblCustomAdd 0B@2j tlkpSetUpAdd$G 4 tlkpSetUpAdd 0B@2jtlkpCrosswalkAdd$G 4tlkpCrosswalkAdd 0B@2j tlkpClinicAdd$G 4 tlkpClinicAdd 0B@2j tlkpPCPAdd$G 4 tlkpPCPAdd 0B@2jtlkpInsuranceAdd$G 4tlkpInsuranceAdd 0B@2jtlkpPLanguageAdd$G 4tlkpPLanguageAdd 0B@2jtlkpEthnicityAdd$G 4tlkpEthnicityAdd 0B@2j tlkpCityAdd$G 4 tlkpCityAdd 0B@2jO-------------------------------------------------------------------------------|h<` 2!4A@& Exit_Command1_Clicko((#DoCmd.OpenForm ("frmJetUserRoster") frmLogger 0B@Bohcheck for references]] D F!* D$F!adodbGHj D 5WARNING your settings need adjusting to run Logger-2k < > < >.Logger-2k requires a library reference set to  > <5Microsoft ActiveX Data Objects 2.1 Library (or later) > <LOpen new module -> Tools-> References-> Select a 'ActiveX' library & restart > <0 Or call CDEMS technical support for assistance.   $&'| H o Attribute VB_Name = "Form_frmMai"n," Bas0{F8AEF0F8-2448-11D9-9F37-00D0B77EFFB9} |Global!SpacIFalse dCreatablTru Predecl2aId"Ex0pose_TemplateDerivCust0omizD$Option Com2p@ DT  g@;l~:`"PL  IGH dG   FW_%I%E%^  @y_ I !  @a}?## Alldata now ĮH. pam~a(rch`f"*" & "dta !" in cÒ for onl@ Wit`h App on.Sch .New@LookIn@GetDBDir?"F`D sSubFBs@F#yGE#If uF() > 0 TjPcyopgh eachhvЊ j= 1 u.Fks.Cǰy 0'shB@etxtf1j: 1Me.Reptep7zC s tanPd ap}d}m tor~mast{!v - '.g{(index)Az$"H(kf$ d_w@Qlif3gr3Porsr so0s0 addَ`8;48bGev th1zis mCup - neP:ck irӕey `K[heckLink(" Addx+2(K)2 DoCmd.DeleteObject ac~ #TPsfer5`Import pMiqoft AccP_v [], g|, @c 6Ģ2INSERT INdTO% (sw", chart_number, l)-_n ,0oA>14pzrU(O u{(Ʒ[0 e w!/""8#H2$-$;0=9 K;[ qdf.Execute cnt_patients =  8+RecordsAffectedr '=N'tlkpCro@sswalkhis deletes the curr /,n impor@new on'next ste p triHo @appendR to what;;re already-Mso you #up with a m"a3r ce table holding list a clinics if $no llGsam]6blnT$ Ex CheckLink(" Add")If ( ) Then DoCmd.DObjK0,  CTransfer$Da:asIcIaMi:oft Access", _H [FileN;], M !, FalsPGstrSQL"INSERT INTOˈ ( raw_codeypeworFk@fDlabB ) "+& "S`ELECTZ.tGh.N %FROM ;"FUSet!Ddb.CteQueryDef("WCL xℂxUp'txwbwwtb" w'wwset`vttbCttp 0?t?t.t?bs?s.sb (dfield, health_status,retla`_q.i ah Et ~mE mmqmSlF9'languaggMPL$M { './a/a/a /akpvE''~/a#a (pe%^."Y" $YY" _B&'ethqity&"E"ep fIb4"kpv""Ϥ (f""."""" Q|L|E"v'c"leO"O"OOC!!p!!_!_!} ( .q  DANBHV'pc[\PCP p|`#providero g .c uo!d!C_!_!_!_!-/A! { 'insu@rance  HIf (CheckLink(" tlkpIAdd")) Then DoCmd.DeleteObject acTable, j CTsferDatabaseGImportHMicrosoft Acces s", _ K[FileName], w+, Fals|&strSQL = "INSERT INHTO  (_n9, type) "N& "SELECT ">. # + +FRdOM*;"eS@et qdfjdb.CreateQueryDefl("G<) .@ExecutH'= 'clinDicblnE`xists@̒C  G?E y (Qˏ_codA_form, low0sheeoverf, comments٣C ߁Q# }.EJ]XGgK%6_ ^^^F`&K'VISI TS^blVisits^_t ?^_K ^?])%^Kchart_numb er, va%_d$], bp_diastoli&cNesyewe(ighbhnext_ c,`* 2. `iaN MG* l[lL|ab blBSblfAq-}"lkpUp_ Cswalk??6ZqOOG&PCPCInsuc~eZ1 Languag]Ethnicity ZpC/)PToV0fxit SuK[bQerr:gErrpscripf Rme EBm't_Cpand1_Cphk[ kPrivp cmdLogger(q'OpenForm ("frmJetUЭRohb_rms/ 1 _Load'cC@tr reen DimotCn@s Inte cPpon As String@= 1 To RCw#0E(in!).!|adodb"cGo@ O`"f= ("WARNING your se,tt |e0adj`7 to run Logger-2k" & vbLf0Cr h_ D" requires a l@ibrary$ference s@ ToolsRe Sel\*'s'[&\start1 Or call CDEMS techni support fRassFi"~.",C(rit+OK Only) Exit Sub ;: & nd ach found file 5*!, show progressFile: '. B@0Hsteps through found "*" & "dta.mdb" files and appends them to the master*------------------------------------------.foundfiles(index) = the path 7*'==============================tblDemoKif prgram errors for some reason these add tables are still in databal P4) ))|VGetOpenFileNameA<GetSaveFileNameAd(CommDlgExtendedErrorxMEP(0 <p F , >( ,h :  <(08@HP  <X8   R82 6 "H p >           0 8 @ H 8P       8 : P p x    : : .( X 6` : 4 : P h           B( *0 ,` ,      (H P  `hp xB  B    0 @P  `     B08 @ B H *P , ,  8 :( h   $ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)p% Copyright 1997. All Rights Reserved.XP^^0^H^`^x^^^^^^^ ^8^P^h^^^^^p`]$to t]$ ]$8]$P Con]$h]$]$6.]$]$]$]$ ]$@]$(]$@]$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)% K[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.4 OpenFile: Boo lean(True=Open File/False=Save As) Out:6 Return Value: Either Null or the selected filename]](]H]`]x]6description with null followed by the filter with nullAccess (*.mdb) *.mdb*.* 'v dialogue variables $G'j $G v'j $G'j $G   'j3 hides read only and hidden files $G'j $G'j $GLocate Data database file'j $G'j0 Allocate string space for the returned strings. $\$'$\'7 Set up the data structure before you call the function  9p !9r 9v 9| 9~ 9 9 9 9 9 9 L91 Didn't think most people would want to deal with these options.9t$\9x9z9q(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.  $'dp $'kX4 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. $G !'jnow strip null from end !~ '  !~  $ (~k !~'@d'@ki$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved.8]]] GetDBDir' . !' $ \b   $ ' $ 'z 2Sp Error# 2!8:  2!4   A@& ni8]x]]] GetDBName' . !' !' ! $\b  'h !  2$'@8z0( 2S Error# 2!8:  2!4   A@&ni$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved.]@2 Check for failure. If can't determine the name of4 the first field in the table, the link must be bad.  %%R!' 2'dX 'kH i@ 8 Attribute VB_Name = "basCommonFi@le" ' From Access 97 Developer's HandbookLby Litwin, Getz 4 Gilbert. (@Sybex)NCopyright 1997. All Rs Reserved.' Option pare PDaK[taeExplicit Type tagOPENFILENAME  lStructSize A@s LonghWndOwner Instancstrfilt*i$ CustomnMa.xCN IndexD+C7' $Titl InitipalDiBCM7F0lags,OffsetAInt0egerD\Extensvc0Def lOAH.lpfnH@TemplateEEnd AADeclFuncšadh_apiOpe+Lib "comdlg32.@dll" _@4A@lias "L A" (ofn$ )Boolean Savew#I 6lmDlgb3dedErrlory(0 p Pub@p@tf 'OFN_REA DONLY&H1sOVERWRITEPROMP TB2SHIDEJ 4NOCHA@NGEDIR 8SHOWHELPb10u VAL`IDATEALLOWMULT@ISELEC0EXTENSI@ONDIFF`N4PATHMUSTEXISCN8UAK10uCG) /VSHAWπ TNO>RETURNTEST!NETWOR@KBUTTO 2CLONGAS" TEXPL`DFY P6CELINK# bT k  noy("Cal ByRef Variant,V@ 9@_nBSVi0[aultt[JYhogVgZUt2Jq^a' This the entry point you' 0uso ca!^k' De Pn/sY d .0e Љ s dlistedubw,ˁoralP O"' d?$In: ': on!r moof" !adh_* cots, OR'd toge]r%q):d@irecto`in which`prst l2Q'A(: a Q/@A,Bup?AV1Add-tem. $Se@ xa0esY D: 1-d P"Apdicat #q (to 0%,q defa2 (1 if unspecified! W4: rx2Sar doesn|'tA,p Onlyfulo++8:P value f e n- te@xt boxDG:: :1e::  !(Tr(ue=q Pe/False=AP<Out(Return Jue`iP r Nu0;$ sel`%ed 3DimaPoZ1 ȤJfc$L@descriw  nfollow`@0 ` $(*.mdb)" & vbChar"ra* -'P"v!iblesIf IsPMiss@2('?)ّRn y"!*Pp v O(Crjjk= o_B=Orv1N-d'hip rea6d78a`0den)g(? ; P2;)ȷ Then DialogTitle = "Locate Data dbase file" If IsMissing(OpenF6)@True d' AllstrAn spacor the returned s.6 [namALeft(N& SI(256, 0), ) 7 (Set8 up@s>ucDe before you callfunction1With of.l3SizVn(HhWndOwnerAppli(. Access /^t{NIndex' GnMaxLen( -S L Flags5DefExtault Init@DiYCur|U'dn'tuink most peopwould wano d`eal wy'sA@opAkh@Instan= 0 $CustomYr5 Ac# F 255lpfnHook>0End Th is,passcA+1sir֌toA 'ndows API, whichin !s i ese "isplay%w~/Save As x#ãA&fRes7adh_apiGetEA|gEls`&e  $|If#yC{ lls#heASmember'}) P. You' -h)wri!specO c,odDFo!rie $that iJfa'@inBepsted)&E# &'! might`checkoCfcg-'gI in`maY aboube chos@ "e%.' IAaKexam@e,D bo@/K BN)avaluKe&.JAl"`goJNot/dC=` n.#b now!!ip nu@7from end' C` 4PoInw R.@E, vbN Char&`> 0 a?% `H,nt- 1 f ?A^JmCommo7;t k7o/=  6!Fr Pu*bn % >DB9`Y()CP' F!p 97 D03loper's HandbPby Litwi$n,z  Gil0;t. (Sybexd' Copyr3199$7. Rs 1`Herv81On ErrGoTo UDDim ddberebOA|O.ђ !DbH=Proc3G= Db&5= .V o lWhS$,& <> "\A = a*~) *LoopU p.UCDUDone: }oxi)&ptSelect dMsgBox "or#" &.Nump$": 5Descri, _0@OKOnly4 +C``l,FuAoଉA33 /4/4B(%)ata)) )4poson1-Ikgq#=+DB +3+tr$" +&(n.(+$D%.Mid|, e.8`-C^-a _WA!1, 50  .G.LJ.Pc . ..8rr..0vb.... 0 Then*CheckLinkFals`FE HTru#nd If E FunctioZ ...v.p.////t8}Y)trK[xME PS<S<S<<<<<< b FdN0{8F3BE70F-D8C4-4B79-B7A1-215CC9B2F108} #` p %@L\C@Ls\ : `>DA ,A X % Dxaddi%`>to t`H@LL Con,V!i^ (i ```b8x%Pxx "    0 @ P <`.T  ( :8.x    d 8 @ "HP  X`&h  " > 8 Z0 " N  H :` ^    $("Px&    : ~J "z    0  8 HPX ` hx, & B  $ 20 h p x    ,   ( 0 H P X ` h p x     x]@]X]x] !. "5 Stop additional users from logging into the database\P Jet OLEDB:Connection Control ,$~.The database is now locked to additional users (Database Locked.$&' "e4 You can now allow users to open the database again. Jet OLEDB:Connection Control ,$kP*HA,|8.0 Problems with JetUserRoster 0 0 2!4 6 Error Number 2!8A@&*o<] @'>last_logger_path > !$B@BA,|`<XoP8requires reference to (adodb) Aactivex data objects 2.1+2if reference not present errors and exitsK[ the formSon loading check if a value for "last_Logger_path" in the currentproject propertiesfills this into the text boxGif none, user must request a file to proceed using basCommonFile module IMPORTANTBbefore releasing clear the property value for logger_last_path by:4go into debug window (Ctl+G) enter (withou"<> signs:W<> this clears the internal value<]@]`]]last_logger_path %$last_logger_path %$'>d @'>last_logger_path > !$B@BkH > )J]&{947bb102-5d43-11d1-bdbf-00c04fb92675}ocnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=\\smartie\shareddocs\data\mstr cdems\cdem_dta.mdb"-Provider=Microsoft.Jet.OLEDB.4.0;Data Source= > B@ P L %N.D D%R!; D%R!; D%R!; D%R!;'H D!T ( H D%R$V; D%R$V; D%R$V; D%R$V;'H DB@X H Z(\.D.|< 2!8^KT"You need to pick a file to monitorA@&|HS@ 2!8 means:  2!4A@&|no Make the value a text string+ Remove all values after the null character]H]`d ^$fGFalse'^j ^X '`% Locate the terminating Null (if any) `$ h'b b " Return the characters before it ` b $'`d `'`kj `'Vzd'`jpih`Attribute VB_Name = "Form_frmLog@ger" Bas0{8F3BE70F-D8C4-4B79-B7A1-215CC9B2F108} |GlobaBlSpacFalse dCre atablTru PredecdlaId"E`xpose_TemplateDerivCus`tomizD$Option Codmp@ DT 0 P&* Sub chkStopNewUsers_AfterHUpd()Dim respoBnAs Sng cnn  ADODB.Connec:xst + 21 OK 2Set )= CurrentProj) -If,AAV Then'(op addi!A#al u6 f rom l@ing into tHhe @:abF .perti es("J$OL0EDB:D1CTnt`rol")7  J= Msg`Box("%F @is now!ckt )", vPbInf@a/,D "n LoA .z"fECDC' You canqBallCCopen@ aga8in.1aBOKAaEnd IfAuBList_EPxit:C" BLoadAA rror * "4blems with 5WRosW " B&`(CrLf Err.Descrbi"c, _ Ex`tm-or Number" Resu ! ka)jmmdF__Path_Clickm On cGoTo err_cod@  nstrfilepoq  =@`hmonFO=Sav" all^.Add "la5eer_a R B8A 8`7J#"@ 'requi ife@U(adodb) Aa vexj obs 2.1+ 'ifnot pA)ors a@Re] Ps^!l!4'lPcheck a value~ D!6B!BcÔpÔ jB`4l ~ftext boxcnonde,b m@`quea ;  ceus9 modul9` IMPORTANT`be@e` leacr{ !yH;b=! Dby 5'godebug lnd(Ctl+G) * c(nou"<> signs|<>$C3&ern0߁411zh5 h13r`jRecordset)3046aElK6 pW(Len(?4c3)))DY 2In8>(o8__8[ad?>>o d >-, ;\Me!txtLALpJQ~JET_SCHEMA_USERROSTERW "{947bb102-5d43-11d1-bdbf-00c04fb92675!'iL"`vider=Microsoft.p`.{.4.0;q`Bt Source= \\smaQ:\shdocs\d ata\m c dPe\Q_dta.mdbOO Az"4f`ha)=RYGmaNSP Specific, ,> / !P+= .Fields(0).r& "b1\162O3qWh! g NotREOFa$ & TrimToNull(z ) b _16_ 22_2E3U MoveN^` WenQFs `y).Row(C3%qg!h`_| !(&v " (vSel CM i94 d "nefP wgito1ձ mea ah2?w2 H%FunRYraReqQYVariantɀp Makero w@'B' Rem M"n`(`arerq`maAYbPosaLoq!KkK[#_QdIs"/ $a#z@H c(F!qa͑pmin@ngll (Qny@B  = In1,, Chr$Br > 0E& turc@TRs iu!A Left(,- 1Rl  !\ If TrimToNull_Exit:   = t1Str\ Function rrv\p""fResume1xEnd L        x8]@]X 5 Stop additional users from logging into the database Jet OLEDB:Connection Control B,] e4 You can now allow users to open the database again. Jet OLEDB:Connection Control B,k`&XA@|H(@ Problems with JetUserRoster " " *!, . Error Number *!0A@ &o6] :'8last_logger_path 8 <!B@>A@|`6XoP8requires reference to (adodb) Aactivex data objects 2.1+2if reference not present errors and exits the formSon loading check if a value for "last_Logger_path" in the currentproject propertiesfills this into the text boxGif none, user must request a file to proceed using basCommonFile module IMPORTANTBbefore releasing clear the property value for logger_last_path by:4go into debug window (Ctl+G) enter (withou"<> signs:W<> this clears the internal value6]H]h]]last_logger_path <%last_logger_path <%'8d :'8last_logger_path 8 <!B@>kH 8 )L]&{947bb102-5d43-11d1-bdbf-00c04fb92675}ocnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=\\smartie\shareddocs\data\mstr cdems\cdem_dta.mdb"-Provider=Microsoft.Jet.OLEDB.4.0;Data Source= 8 BB@ R N B%P.F F%T!; F%T!; F%T!; F%T!;'J F!V ( J F%T$X; F%T$X; F%T$X; F%T$X;'J FB@Z J \(^.F.B|6 *!0 means:  *!,A@ |o` Make the value a text string+ Remove all values after the null character]P]hf `$hGFalse'`j `X 'b% Locate the terminating Null (if any) b$ j'd d " Return the characters before it b d $'bd b'bkl b'Xzf'bli <!D.B.The database is now locked to additional users $Database Locked.$ 'H ( ] 8 ^KT *!0| S "You need to pick a file to monitorA@  n Attribute VB_Name = "Form_frmLog@ger" Bas0{8F3BE70F-D8C4-4B79-B7A1-215CC9B2F108} |GlobaBlSpacFalse dCre atablTru PredecdlaId"E`xpose_TemplateDerivCus`tomizD$Option Codmp@ DT 0 P&* Sub chkStopNewUsers_AfterHUpd()Dim respoBnAs Sng cnn  ADODB.Connec:xst + 21 OK 2Set )= CurrentProj) -If,AAV Then'(op addi!A#al u6 f rom l@ing into tHhe @:abF .perti es("J$OL0EDB:D1CTnt`rol")7  J= Msg`Box("%F @is now!ckt )", vPbInf@a/,D "n LoA .z"fECDC' You canqBallCCopen@ aga8in.1aBOKAaEnd IfAuBList_EPxit:C" BLoadAA rror * "4blems with 5WRosW " B&`(CrLf Err.Descrbi"c, _ Ex`tm-or Number" Resu ! ka)jmmdF__Path_Clickm On K[cGoTo err_cod@  nstrfilepoq  =@`hmonFO=Sav" all^.Add "la5eer_a R B8A 8`7J#"@ 'requi ife@U(adodb) Aa vexj obs 2.1+ 'ifnot pA)ors a@Re] Ps^!l!4'lPcheck a value~ D!6B!BcÔpÔ jB`4l ~ftext boxcnonde,b m@`quea ;  ceus9 modul9` IMPORTANT`be@e` leacr{ !yH;b=! Dby 5'godebug lnd(Ctl+G) * c(nou"<> signs|<>$C3&ern0߁411zh5 h13r`jRecordset)3046aElK6 pW(Len(?4c3)))DY 2In8>(o8__8[ad?>>o d >-, ;\Me!txtLALpJQ~JET_SCHEMA_USERROSTERW "{947bb102-5d43-11d1-bdbf-00c04fb92675!'iL"`vider=Microsoft.p`.{.4.0;q`Bt Source= \\smaQ:\shdocs\d ata\m c dPe\Q_dta.mdbOO Az"4f`ha)=RYGmaNSP Specific, ,> / !P+= .Fields(0).r& "b1\162O3qWh! g NotREOFa$ & TrimToNull(z ) b _16_ 22_2E3U MoveN^` WenQFs `y).Row(C3%qg!h`_| !(&v " (vSel CM i94 d "nefP wgito1ձ mea ah2?w2 H%FunRYraReqQYVariantɀp Makero w@'B' Rem M"n`(`arerq`maAYbPosaLoq!Kk#_QdIs"/ $a#z@H c(F!qa͑pmin@ngll (Qny@B  = In1,, Chr$Br > 0E& turc@TRs iu!A Left(,- 1Rl  !\ If TrimToNull_Exit:   = t1Str\ Function rrv\p""fResume1xEnd Lzi phone=0"bk, <_d` enfdT upamji+nPh0+@=s, o$r)`C SxCTE".j=.Xfiw<XXp>oA>14pzrU(O u{(Ʒ[0 e w!/""8#H2$-$;0=9 K;[ qdf.Execute PROJECTPROJECTwmAcessVBADataForms "hu hu gger=74, 0, 944, 780, basCommonFile=76, 121, 965, 890, Z xForm_frmMainFormForm_frmMainFormForm_frmLoggerForm_frmLoggerbasCommonFilebasCommonFileEt ~mE mmqmSlF9'languaggMPL$M {  /akpvE''~/a#a (pe%^."Y" $08=Babe g hij4&kW@H$7з~ U Arial8 hAuto HP OfficeJet R80xi on SMA0hu hu Blob  PropDataTypeInfo    !XC od,,LetterDINU"4$XH K[$$$$P>HP OfficeJet R80xiAuto HP OfficeJet R80xi on SMARTIE\\SMARTIE\HPlan"[Event Procedure]d2 Tahomahgh Tahomam45 Tahoma`@ DetailH$7з~ d5U`,ab] cI Label0݊GROUPER: combines all files in current folder ending with "*dta.mdb" H$7з~h1U`aHb@c@cmdGrouperCommand1"[Event Procedure](ڭڭ " " """" """ "" " ڭHFind Next/Y=17з~d25U`-aKbcde Label2 CDEMS PowerTools7Y=17з~m47UC`ab cJktxtProgress_SM7з~d5U7`<ab:c, Label5 Start!$-/A"^Nd5U`,ab] cI Label6LLOGGER: audits and controls CDEMS use WcSO? 8 P Xͬ H$7з~Detaild Label0h cmdGrouperd Label2mtxtProgressd Label5d Label6mText8d Label9h cmdLogger(0 8 "dhm dhdmddhmd :  BlobDelta s2 hu hu Blob PropData 08=Babe gh ij0*k=J]@ v1K[×L4nt U Arial8 hAuto HP OfficeJet R80xi on SMAXC od,,LetterDINU"4$XH $$$$\>HP OfficeJet R80xiAuto HP OfficeJet R80xi on SMARTIE\\SMARTIE\HPlan"[Event Procedure]d2de Tahomae12hgh Tahomaj1ghm45 Tahoman2 Tahomaw2` DetailTNk~?A@ze25]`<a<blc Box1Th [Dm~]Wd5`abc Label0 Logger6-EpH8&in03UA`ahbcd DisplayJetRosterValue List&1440;1440;1440;1440LShow the current users in the databaseI5GJxgY]d5U`wabcdeCol1_LabelhList Of Users In Database (includes this connection)Verdana+}\%|Km7F`` a,b<c,k&txtLast_Logger_PathA3QH$˺ ݄h1`Pab@c@i$cmdNew_Logger_PathChange path"[Event Procedure]@( Ȥ > K[!@YIKrVc( j2U`abcichkStopNewUsers"[Event Procedure] False-j>E$pd5U`,abVcdelblStop_UsersStop new users":O[M{ozlp$ hp $llpchBPTkzDX%p$ hp T lP2/P)pTv* zdh/'''*#P*#L*#H*#D *#@*#<*#8 *#4*#0*#, *#(*#$*#  *F^ 1t2PLHD@<840,($ 60( TypeInfoBlobDeltaPropDataCopy DirData8ͬ ;yK!\ɲDetaild Label0eBox1nDisplayJetRosterd Col1_LabelmtxtLast_Logger_Pathh cmdNew_Logger_Pathd lblStop_UsersjchkStopNewUsers0-00AA006D2EAdehjmnwedndmhjdsoft ActiveX Data Objects 2.1y*\G{00025E01-0000frmLoggerfrmMainForm#0#C 2CB0 0CB0es\Common Files\Mic 2CB0 0CB0 3CB0ao360.dll#MicDAO 3.6 Object LibrarybasCommonFilesC  4CB0 4CB0ZIVFEDGFHDJFZ_NTTLSHLFHXij8872Form_frmLoggerPropData!PropDataCopy%Cmdbarshu hu Modules+'hu hu 4%hu hu PropData& PropDataCopyK[DirData$($PropData)PropDataCopyReportshu hu Scripts*-hu hu PropDataDatabases,2.hu hu 01/hu hu Blob 0PropData QDirData"CustomGroups3hu hu DataAccessPages hu hu K last_logger_pathC:\CDEMS\cdem_dta.mdbdf.Execute cnt_patients =  8+RecordsMSysDbkpCro@sswalkhis deletes the curr /,n impor@new on'next ste p triHo @appendR to what;;re already-Mso you #up with a m"a3r ce table holding list a clinics if $no llGsam]6blnT$ Ex CheckLink(" Add")If ( ) Then DoCmd.DObjK0,  CTransfer$Da:asIcIaMi:oft Access", _H [FileN;], M !, FalsRoot Entry#բ IVBAu բ VBAProjectu բ VBAu բ    !"$%&'()*+,-.PROJECTPROJECTwmAces M M My  @ @ @ @ @ @      !"#$%&'()*+, !"#$%&'()*+,-. aYN22 Y d Y dY  Y clinic_codechart_numberdatenotec23c_a_mri24da_s_a25iciwg 26htta2Y7YYYYL{F8AEF0EC-2448-11D9-9F37-00D0B77EFFB9}chart_numberclinic_codedatePrimaryKey22s v1b @  1 1 1 1YN 88Y  Y d Y dd Y dd Y ddY  Y  Y d Y d Y  dd Y  d Y rd Y a Y r Y  s Y   Y d Y dY  Y Y Y $ Y d Y d Y Patient_IDclinic_codechart_numberlast_namefirst_namedobsexethnicity primary_languageaddress1address2city statezip phone1 phone2pcpinsurance _datestart_dateend_date last_update_datemigranthomeless otherE281-89-0F9crn8:rceraK8;ersvea8<taYDY=YYYPY1Y MYYYY.rE.rF.rG.rH.rI.rJchart_numberclinic_codePatient_IDPrimaryKeyHv1b 7 7 7 7| |YN  >> Y d Y d Y dY  Y d Y d Y d Y d Y dclinic_codechart_numberraw_codestart_dateend_datespecialisteducatorcommenttype_code>?>@ dY>At>BIDoa_>Crr_m>si ir>guY7YgYYYYYL{F8AEF0E9-2448-11D9-9F37-00D0B77EFFB9}L{F8AEF0EE-2448-11D9-9F37-00D0B77EFFB9}chart_numberclinic_code$condition_icd_codePrimaryKeytype_codes v1b  = = = = = YN EE Y d Y d Y d Y dY  Y d Y dclinic_codechart_numberraw_code resultservice_datestatus_flagtype_codecocmEFypEG?EH@ dYEIAEJBaEKCr_ELi i E EY7YgYYYYYYYL{F8AEF0E8-2448-11D9-9F37-00D0B77EFFB9}L{F8AEF0EF-2448-11D9-9F37-00D0B77EFFB9}chart_numberclinic_codelab_datelab_referallab_typePrimaryKeytype_code v1b N @ D D D D D D D oYNNN Y d Y d Y _dY  Y od Y dclinic_codechart_numberraw_codestart_dateend_datetype_codeYNON-MN.N/DacerNKerNYY 7YgYYYYL{F8AEF0ED-2448-11D9-9F37-00D0B77EFFB9}L{F8AEF0F0-2448-11D9-9F37-00D0B77EFFB9}clinic_codePrimaryKeyraw_codetype_code v1b @@  M ;YN QQ Y d Y d Y d Y Y  Y  Y  Y edclinic_codechart_numberraw_codestatus_flagservice_date resultcommenttype_codeQRQSQTYQUQV QW QX  Q  QY7YgYYYYYYYL{F8AEF0EB-2448-11D9-9F37-00D0B77EFFB9}L{F8AEF0F1-2448-11D9-9F37-00D0B77EFFB9}chart_numberclinic_codePrimaryKeyservice_codeservice_datestatus_flagtype_codeQQW v1b N  @  P P P P P P Pz ~YN  ZZ Y d Y dY  Y dY Y  Y  Y Y clinic_codechart_numbervisit_datetype_visitbp_diastolicbp_systolic weight heightnext_visit_dateZ[Z\ZY7YYL{F8AEF0EA-2448-11D9-9F37-00D0B77EFFB9}clinic_codePrimaryKeyv1 Y Y'YN^^Y  Y bdCity_IDCity@b b ^_b  b b ^`b  b b ^ab YYYCityCity_IDPrimaryKeyv1 ] ] ]x YNcc Y d Y d Y d Y 0d Y 9d Y 9cd Y c ClinicClinic_codeClinic_groupType_FormType_FlowsheetType_OverFlowCommentsc9c9ce9cc9c9cf9cYYClinic_codePrimaryKeyccHv1b@ bHealthy Body ClinicPilot321$$" ;bfY^dmdbfY^dmd! YNhh Y d Y  d Y  d Y  draw_codetype_codeworking_codelab_coden_dchinucetthjey_dhkY=YDYMYPYYY.rD.rE.rF.rGlab_codePrimaryKeysecondaryv1 g g gmYNmmY  Y  Y d Y dIDclinic_default(clinic_support_local$clinic_support_DCPYmoYPrimaryKeyv1@@lPILOT lnqYNqqY  Y dEthnicity_IDEthnicity^_qs^`qtYYEthnicityEthnicity_IDv1\pvAfrican AmericanWhite HispanicBlack Asian Am Indian p@JSiYMJbJ`QiYMJbrJ`YbOYJbrJkYJbrL^JM\rWYkfJbYMrsWYmQr p @rrrrrr fYNvvY  Y  Y Gender_IDSex GenderTcTcvxcTTcTcvycTTcTcvzcTTcTcv{cTYYYY GenderGender_IDPrimaryKeySexHv1buFFemaleMMaleUUnknown u @SQ`J^Qw`J^Qwob\bdsbwuwwwuwwwuSw`wow!YAccessN}} Y $ Y pdInsurance_nameInsurance_typeqs}YPrimaryKeyv1@@|Unknown4 SelfPay4 Medicare3 Medicaid2  |@`QOYMJYO~`QOYMJiQ~kQ^SfJv~ob\bdsb~:YN Y d Y hd Y dClinic_codeProviderCommentsbbYPrimaryKeyv1PilotLocum Tenums PILOTDudley Dooright  @fY^dmOoO^QvOddiYUWmfY^dm^dMo`mQbo`kqY NY  Y dPLanguage_IDPLanguage^_^`YYPLanguagePLanguage_IDv1@@SpanishEnglish@QbU^YkWkfJbYkW% YN Y d Y d Y dY health_statusrelated_fieldtype_field ordercTcTcTcTcTcTccTcTcTccTcTcTcYYYYhealth_statusPrimaryKeyrelated_fieldtype_fieldHv1b@     YAccessN Y d Y p status&status_abbreviationYYPrimaryKeyv1referralr declinedd completedc MOi+YAccessN Y $ Y p type_visit.type_visit_abbreviationYPrimaryKeyv1@ phonep officeo labl ^dfQ 0 { L /|_J{F8AEF0F1-2448-11D9-9F37-00D0B77EFFB9}tblServicestype_codetlkpCrosswalktype_codepZ{F8AEF0F1-2448-11D9-9F37-00D0B77EFFB9}tblServicesraw_codetlkpCrosswalkraw_codepZ{F8AEF0F0-2448-11D9-9F37-00D0B77EFFB9}tblMedtype_codetlkpCrosswalktype_codexfZ{F8AEF0F0-2448-11D9-9F37-00D0B77EFFB9}tblMedraw_codetlkpCrosswalkraw_codevfZ{F8AEF0EF-2448-11D9-9F37-00D0B77EFFB9}tblLabtype_codetlkpCrosswalktype_codexfZ{F8AEF0EF-2448-11D9-9F37-00D0B77EFFB9}tblLabraw_codetlkpCrosswalkraw_codevfZ{F8AEF0EE-2448-11D9-9F37-00D0B77EFFB9}tblHealthtype_codetlkpCrosswalktype_code~lZ{F8AEF0EE-2448-11D9-9F37-00D0B77EFFB9}tblHealthraw_codetlkpCrosswalkraw_code|lZ{F8AEF0ED-2448-11D9-9F37-00D0B77EFFB9}tblMedchart_numbertblDemochart_number~fZ{F8AEF0ED-2448-11D9-9F37-00D0B77EFFB9}tblMedclinic_codetblDemoclinic_code|fZ{F8AEF0EC-2448-11D9-9F37-00D0B77EFFB9}tblCustomchart_numbertblDemochart_numberlZ{F8AEF0EC-2448-11D9-9F37-00D0B77EFFB9}tblCustomclinic_codetblDemoclinic_codelZ{F8AEF0EB-2448-11D9-9F37-00D0B77EFFB9}tblServiceschart_numbertblDemochart_numberpZ{F8AEF0EB-2448-11D9-9F37-00D0B77EFFB9}tblServicesclinic_codetblDemoclinic_codepZ{F8AEF0EA-2448-11D9-9F37-00D0B77EFFB9}tblVisitschart_numbertblDemochart_numberlZ{F8AEF0EA-2448-11D9-9F37-00D0B77EFFB9}tblVisitsclinic_codetblDemoclinic_codelZ{F8AEF0E9-2448-11D9-9F37-00D0B77EFFB9}tblHealthchart_numbertblDemochart_numberlZ{F8AEF0E9-2448-11D9-9F37-00D0B77EFFB9}tblHealthclinic_codetblDemoclinic_codelZ{F8AEF0E8-2448-11D9-9F37-00D0B77EFFB9}tblLabchart_numbertblDemochart_number~fZ{F8AEF0E8-2448-11D9-9F37-00D0B77EFFB9}tblLabclinic_codetblDemoclinic_code|fZ D = Y Phu_ I ]> 9 W1@W1@ MSysNavPaneObjectIDsZ4MR2KeepLocal  TJJJJJJJH @*1@*1@ MSysNavPaneGroupToObjectsZ4MR2KeepLocal  TTTTTTTTR @c*1@*1@ MSysNavPaneGroupsZ4MR2KeepLocal  TDDDDDDDB @,*1@c*1@ MSysNavPaneGroupCategoriesZ4MR2KeepLocal  TVVVVVVVT @|/@<6@tlkpInsuranceZ&@HHH<<<<<<<: @YKV@kV@tblVisitsZ@@@@44444442 @1PV@kV@tblCustomZ@@@@44444442 @ L6V@L6V@SummaryInfoZ@DDD88888886 @V@V@{F8AEF0F1-2448-11D9-9F37-00D0B77EFFB9}Znnnnnnnnnnl V@V@{F8AEF0F0-2448-11D9-9F37-00D0B77EFFB9}Znnnnnnnnnnl kV@kV@{F8AEF0EF-2448-11D9-9F37-00D0B77EFFB9}Znnnnnnnnnnl kV@kV@{F8AEF0EE-2448-11D9-9F37-00D0B77EFFB9}Znnnnnnnnnnl kV@kV@{F8AEF0ED-2448-11D9-9F37-00D0B77EFFB9}Znnnnnnnnnnl kV@kV@{F8AEF0EC-2448-11D9-9F37-00D0B77EFFB9}Znnnnnnnnnnl  1 M = D M PQQvcP=*z @ -  } j C 0  m Z G p]I6#r_L8%uaN;'Z  Z  U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p  Z Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z  Z  U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p  Z  Z  U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p  Z  Z  U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p  Z  Z  U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p  Z Z Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z Z Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z _ _ Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z _ Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z _ Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z _ _ Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z _ Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z Z _ Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z .LVAL>ʾtlkpCrosswalkCreate query in Design viewfrmMainFormbasCommonFile"{^3LVAL v4  MR2OrderByOnColumnWidthColumnOrderColumnHiddenRequiredAllowZeroLengthDisplayControlDefaultValue Yraw_code      mU result      mNservice_date    _clinic_code      machart_number     MR2OrderByOnColumnWidthColumnOrderColumnHiddenRequiredAllowZeroLengthDisplayControlDefaultValue Yraw_code      mU result      mNservice_date    _clinic_code      machart_number      mmstatus_flag      m "c"mtype_code     "Lab"   mMR2OrderByOnColumnWidthColumnOrderColumnHiddenRequiredAllowZeroLengthDisplayControlDescriptionDefaultValue Yraw_code      m]specialist      mYeducator      mWcomment      m_clinic_code      machart_number      mJstart_date    end_date   P Hdate patient now longer with this dx   mktype_code    "Dx"   mMR2OrderByOnColumnWidthColumnOrderColumnHiddenRequiredAllowZeroLengthDisplayControl Gnote V    achart_number      m_clinic_code      m>date    MR2DescriptionH< 4Common file open/save codeMR2 GUIDNameMap0 H$7з~  UMR2 GUIDNameMap4  v1×L4nt  UMR2( ReplicateProject MR20 Title AuthorCompanyV grouper1 Dusty Knobel  WSDOHLVALά(j7&qtblDemotblDemo qtblLabtblLab2qtblHealthtblHealthqtblVisitstblVisits>qtblServicestblServices$btblCustomtblCustomJqtblMedtblMed&~tlkpCrosswalktlkpCrosswalkJvcbO< (   x e Q > +   z g T @-}iVC/ lXE2 n[Z Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z |Z |U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p |Z uZ uU|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p uZ pZ pU|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p pZ lZ lU|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p lZ gZ gU|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p gZ bZ bU|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p bZ ]Z ]U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p ]Z YZ YU|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p YZ PZ PU|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p PZ MZ MU|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p MZ DZ DU|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p DZ =Z =U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p =Z 7Z 7U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p 7Z 1Z 1U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p 1Z Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z Z TU|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z TU|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p LVALhMR2OrderByOnOrientationColumnWidthColumnOrderColumnHiddenRequiredAllowZeroLengthDisplayControlDefaultValue$UnicodeCompression FormatInputMaskDescriptionValidationRuleValidationText FilterOrderByNameMapCaption    UFz)7з~86@tblDemoFz)7з~Fz)7з~Patient_IDFz)7з~Fz)7з~clinic_codeFz)7з~Fz)7з~chart_numberFz)7з~Fz)7з~last_nameFz)7з~Fz)7з~first_nameFz)7з~Fz)7з~dobFz)7з~Fz)7з~sexFz)7з~Fz)7з~ethnicityFz)7з~Fz)7з~primary_languageFz)7з~Fz)7з~address1Fz)7з~Fz)7з~address2Fz)7з~Fz)7з~cityFz)7з~Fz)7з~stateFz)7з~Fz)7з~zipFz)7з~Fz)7з~phone1Fz)7з~Fz)7з~phone2Fz)7з~Fz)7з~pcpFz)7з~Fz)7з~insuranceFz)7з~Fz)7з~_dateFz)7з~Fz)7з~start_dateFz)7з~Fz)7з~end_dateFz)7з~Fz)7з~last_update_dateFz)7з~Fz)7з~migrantFz)7з~Fz)7з~homelessFz)7з~Fz)7з~otherclinic_code      m "CLINIC"  jchart_number      m  dlast_name      m  ffirst_name      m  baddress1      m  baddress2      m  Zcity      m  d pcp      m  ""  pinsurance      m  ""  \ _date     mm/dd/yyyyV& last_update_date    \ state      m  X zip      m   phone1   $ (@@@) @@@-@@@@6 .!\(999") "000\-0000;0;x   m   phone2   $ (@@@) @@@-@@@@6 .!\(999") "000\-0000;0;x   m  bstart_date    mm/dd/yy APatient_ID   X dob    mm/dd/yyyy nmigrant    "U"   m  phomeless    LVAL  "U"   m  f sex    "U"   m  dethnicity      m  r& primary_language      m  ^end_date    mm/dd/yy 2 other    for storing semi permanent hx and special facts like alternate phone contacts and specialists/allergies   m  CLVAL YMR2OrderByOnColumnWidthColumnOrderColumnHiddenRequiredAllowZeroLengthDisplayControlValidationRuleValidationTextOrientation FilterOrderByNameMapDescription FormatCaptionInputMaskDefaultValue$UnicodeCompression    U^SM7з~^@tlkpCity^SM7з~^SM7з~City_ID^SM7з~^SM7з~CityZCity      m ;City_ID   MR2OrderByOnColumnWidthColumnOrderColumnHiddenRequiredAllowZeroLengthDisplayControlDecimalPlaces _clinic_code      machart_number      mJvisit_date    ]type_visit      mabp_diastolic      m_bp_systolic      mU weight      mT$next_visit_date    U height      mMR2OrderByOnColumnWidthColumnOrderColumnHiddenRequiredAllowZeroLengthDisplayControl FormatDescriptionDefaultValue Yraw_code      mjservice_date     yyyy/mm/ddMcomment     _clinic_code      machart_number      mstatus_flag   P Hd=declined, r=referral, c=completed, "c"   mU result      mutype_code    "Service"   mMR2OrderByOnColumnWidthColumnOrderColumnHiddenRequiredAllowZeroLengthDisplayControlDefaultValue _clinic_code      machart_number      mYraw_code      mJstart_date    Yend_date      mktype_code    "Rx"   mLVALhkHMR2OrderByOnDescriptionColumnWidthColumnOrderColumnHiddenRequiredAllowZeroLengthDisplayControl#  New[Ethnicity      mEEthnicity_ID   MR2OrderByOnColumnWidthColumnOrderColumnHiddenDescriptionRequiredAllowZeroLengthDisplayControl 1 ID   "clinic_default   x penter 4 char string to use as selected clinic at startup   m.(clinic_support_local   (  enter IS contact   m*$clinic_support_DCP   * "enter DCP contact   mMR2OrderByOnDescriptionOrientationDefaultViewColumnWidthColumnOrderColumnHiddenRequiredAllowZeroLengthDisplayControlDefaultValuea : 2new replaces problemlist2  Yraw_code       maworking_code       m[type_code       mmlab_code    "none"    mMR2DOrderByOnOrientationDefaultViewColumnWidthColumnOrderColumnHiddenDescriptionRequiredAllowZeroLengthDisplayControlDefaultValue FilterOrderByNameMapS   * "tlkpClinic.Clinic  U*MMD/-[{j@tlkpClinicSnF<&3z5*MMD/-ClinicjGQߍ BEA*MMD/-Clinic_code.RU(Gna*MMD/-Clinic_group.@BC*MMD/-Type_Form>1`&`L5H*MMD/-Type_FlowsheetR ^GE]*MMD/-Type_OverFlow83E(*MMD/-Comments Clinic 2  , $Stores clinic name    m}Clinic_code    4 char code    mcComments     Status  Type_Form    P Hcustom rptProgressNote(1-3) page one  ""    m"Type_Flowsheet       m. &custompage two (1+)  ""aClinic_group       m Type_OverFlow   x pcustom visit note to display extra items from visit note  1    mLVALZ 4 MR2OrderByOnColumnWidthColumnOrderColumnHiddenRequiredAllowZeroLengthDisplayControl [PLanguage      mEPLanguage_ID   MR2OrderByOnColumnWidthColumnOrderColumnHiddenDescriptionRequiredAllowZeroLengthDisplayControl Clinic_code   , $Stores clinic name   mgProvider    PCP   mYComments      mMR2OrderByOnColumnWidthColumnOrderColumnHiddenRequiredAllowZeroLengthDisplayControlDefaultValueDescriptionValidationRuleValidationTextOrientation FilterOrderByNameMap FormatInputMaskCaption$UnicodeCompression     U]SM7з~<6@tlkpInsurance]SM7з~]SM7з~Insurance_name]SM7з~]SM7з~Insurance_typen"Insurance_name      m "Insurance_type      m  4 z0:none 1:commercial 2:medicaid 3:medicare 4: unknown 5 other MR2OrderByOnColumnWidthColumnOrderColumnHiddenDescriptionRequiredAllowZeroLengthDisplayControlInputMaskDefaultValue Gender_ID    these match the values used by form frmNewPatient's "sex" option buttonsU Gender      mg Sex       m  L "U"LVAL YƸƸƸƸƸƸMR2rAccessVersion BuildAppTitleStartUpForm&StartUpShowDBWindow(StartUpShowStatusBarStartUpMenuBar$AllowShortcutMenusAllowFullMenus(AllowBuiltInToolbars&AllowToolbarChanges AllowSpecialKeysAppIcon,StartupShortcutMenuBarHijriCalendarProjVerNavPane ClosedNavPane Width NavPane Category*NavPane Category Name 08.50 (  Form.frmMainForm            MR2rAccessVersion BuildAppTitleStartUpForm&StartUpShowDBWindow(StartUpShowStatusBarStartUpMenuBar$AllowShortcutMenusAllowFullMenus(AllowBuiltInToolbars&AllowToolbarChanges AllowSpecialKeysAppIcon,StartupShortcutMenuBarHijriCalendarProjVerNavPane ClosedNavPane Width NavPane Category*NavPane Category Name 08.50 (  Form.frmMainForm            W   MR2OrderByOnColumnWidthColumnOrderColumnHiddenRequiredAllowZeroLengthDisplayControl ]type_visit      mw4.type_visit_abbreviation      mMR2OrderByOnColumnWidthColumnOrderColumnHiddenRequiredAllowZeroLengthDisplayControl U status      mo,&status_abbreviation      mMR2OrderByOnOrientationDefaultViewColumnWidthColumnOrderColumnHiddenRequiredAllowZeroLengthDisplayControlDecimalPlacesDescriptionDefaultValueValidationRuleValidationText FilterOrderByNameMap FormatInputMaskCaption$UnicodeCompression   B : U[ TLׅŸH:d@tlkpSetup솞NS^ [ TLׅŸhealth_status 6oYN Y Y Y  Y Y Y ~Y  Filter FlagsIdNamePosition SelectedObjectIDType~,~,,~YIdv1  K[sVBADataForms "hu  B rmLogger=74, 0, 944, 780, basCommonFile=76, 121, 965, 890, Z Form_frmMainFormForm_frmMainFormForm_frmLoggerForm_frmLoggerbasCommonFilebasCommonFileEt ~mE mmqmSlF9'languaggMPL$M {  /akpvE''~/a#a (pe%^."Y" $08=Babe g hij4&kW@H$7з~ U Arial8 hAuto HP OfficeJet R80xi on SMATypeInfoBlobDeltaPropDataCopy# DirData8   !PropDataCopyBlobDelta4 s2 hu hu Blob PropData 0hu hu Blob  PropDataTypeInfo nID="{F8AEF0C3-2448-11D9-9F37-00D0B77EFFB9}" DocClass=Form_frmMainForm/&H00000000 DocClass=FormK[_frmLogger/&H00000000 Module=basCommonFile Name="grouper1" HelpContextID="0" VersionCompatible32="393222000" CMG="929094343238323832383238" DPB="3436329E764177417741" GC="D6D4D078D0B873B973B98C" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Form_frmMainForm=-14, -3, 798, 399, Form_fͬ ;yK!\ɲDetaild Label0eBox1nDisplayJetRosterd Col1_LabelmtxtLast_Logger_Pathh cmdNew_Logger_Pathd lblStop_UsersjchkStopNewUsers0-00AA006D2EAdehjmnwedndmhjdsoft ActiveX Data Objects 2.1*\G{00025E01-0000K last_logger_pathC:\CDEMS\cdem_dta.mdbdf.Execute cnt_patients =  8+RecordsMSysDbkpCro@sswalkhis deletes the curr /@new on'next ste p triHo @appendR to what;;re already-Mso you #up with a m"a3r ce table holding list a clinics if $no llGsam]6blnT$ Ex CheckLink(" Add")If ( ) Then DoCmd.DObjK0,  CTransfer$Da:asIcIaMi:oft Access", _H [FileN;], M !, Fals_VBA_PROJECTiCJVFEDGFHDJFZ_NTTLSHLFHXQQCK: $eGFJVFEDGFHDJFZ_NTTLSHLFHXQQCK:gZIVFEDGFHDJFZ_NTTLSHLFHXQQCK: H-__SRP_42~__SRP_5 lZ __SRP_6 __SRP_7 dir__SRP_1 __SRP_2N__SRP_3 R  !"#$%&'()*+,-./013456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijkmnopqrstuvwxyz{|}~0* pHdgrouper1,@ Z= n _J %J< AD@ODB> ADOB *\G{0201-a10-8 AA006D2EA4}#2.1#0#C:\Program Files\Common System\@ado\ms21.tlb#Microsoft ActiveX Data Obj ects , LibraryHDAO>"~DA[  Y25EY00-CY46}#5.0YNShared\;\dao3600.dll^ 3,.6[ Y)TForm_frmLoggerGormP_fLgPge@BZIVFEDGFHDJFZ_NTTLSHLFHXQ@QCK28ZIVFEU@sGHJZ@NT@LSHLXQ@CKB1#B,B/tr"T(B+B0bas{~GK[basC1m5onil33CJ3CJ?30o73!01@eMainG A0 fM@6i3l53F3F33kP3arU~~~~~~~~o    ) ) ))( )8 )H )X )h )Iam  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#C:\Program Files\Microsoft Office\Office\MSACC9.OLB#Microsoft Access 9.0 Object Library*\G{00000201-0000-0010-8000-00AA006D2EA4}#2.1#0#C:\Program Files\Common Files\System\ado\msado21.tlb#Microsoft ActiveX Data Objects 2.1 Library*\G{00025E01-0000-0000-C000-000000000046}#5.0#0#C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll#Microsoft DAO 3.6 Object Library _J )8ZIVFEDGFHDJFZ_NTTLSHLFHXQQCK054a5f0ecdForm_frmLoggertr#8CJVFEDGFHDJFZ_NTTLSHLFHXQQCK064a5f0ecdnbasCommonFileo78FJVFEDGFHDJFZ_NTTLSHLFHXQQCK084a5f0ecd Form_frmMainForm0kPP0Dlp8з~Glp8з~Jlp8з~0(EAccess ascase=dimDelseGEndSelectSubVBAWin16~Win32MacVBA6#grouper1DAOADODBsForm_frmLogger _EvaluatechkStopNewUsers_UpdateNewConnectStop] NewConnectOK^chkStopNewUsers:hadoCnZ Properties+MsgBoxRvbCrLf vbInformationnupdateList_ExitupdateList_ErrorErro Description  vbExclamationNumber-chkStopNewUsers_ClickfcmdNew_Logger_Path_Clickerr_code strfilepath\adhCommonFileOpenSaveCurrentProject$Addr Form_Load{cnn% Connectionrst Recordset strUserlist)txtLast_Logger_Path.JET_SCHEMA_USERROSTERO< OpenSchemaDadSchemaProviderSpecificQFields7EOF TrimToNullxMoveNextL!DisplayJetRoster/ RowSource2valueReq~EtrimStr nullPosPTrimToNull_ErrIsNullChrK~TrimToNull_Exit basCommonFiletagOPENFILENAMEy lStructSize/r hWndOwner hInstance  strfilterӥstrCustomFilterژnMaxCustFilterK[` NFilterIndexcstrFile XnMaxFile strFileTitle nMaxFileTitleym strInitialDir/(strTitleFlagso nFileOffsetInFileExtension9 strDefExtHA lCustData'5lpfnHooklpTemplateNametadh_apiGetOpenFileNameHofn) comdlg32.dll?adh_apiGetSaveFileNameCommDlgExtendedErrorsadhOFN_READONLYadhOFN_OVERWRITEPROMPTadhOFN_HIDEREADONLYXOadhOFN_NOCHANGEDIRadhOFN_SHOWHELPیadhOFN_NOVALIDATEadhOFN_ALLOWMULTISELECTJadhOFN_EXTENSIONDIFFERENTf4adhOFN_PATHMUSTEXISTVadhOFN_FILEMUSTEXISTFadhOFN_CREATEPROMPTadhOFN_SHAREAWAREiadhOFN_NOREADONLYRETURN2adhOFN_NOTESTFILECREATE;adhOFN_NONETWORKBUTTONadhOFN_NOLONGNAMES.WadhOFN_EXPLORERzadhOFN_NODEREFERENCELINKSXadhOFN_LONGNAMES InitialDir1Filter; FilterIndex˟ DefaultExtyFileNamej DialogTitle߄OpenFileintPosr strFilenameefResult vbNullCharY IsMissing Application* hWndAccessAppGetDBDir GetDBDirErr dbCurrent= strDbName strProcNameƣ CurrentDbSRight UCase5  GetDBDirDonevbOKOnly vbCritical+} GetDBNameposition CheckLinkZstrTablervarRet TableDefs%i Form_Form16cmdGrouper_ClickWqdfquerydefstrSQLFcnt_foundfiles] cnt_patients>cnt+blnTableExistsij strProgressDdb\CreateQueryDefzNExecuteY FileSearchD NewSearchfLookInPSearchSubFolders FoundFilesCount0v txtProgress͗RepaintDoCmdƧ DeleteObjectTacTableTransferDatabase)acImport+sRecordsAffectedPvbLfT%vbCr$cmdLogger_Click OpenFormintCnt.-response ReferencesstartFormDetail2Label0, cmdGrouperNLabel2,Label5,Label6,Text8~Label9, cmdLoggerBClickItemzBox1, Col1_LabelacmdNew_Logger_PathB lblStop_UsersEUpdateValueKControlsK _B_var_Stringӊ _B_var_LeftQ _B_var_CurDirT _B_str_Chrm#chkStopNewUsers_AfterUpdatehc AfterUpdate _B_var_CallForm_frmMainForm _B_str_Right#( _B_str_LeftV _B_str_UCaseK _B_var_adoCnGv _B_var_cnn6<_B_var_response responsI' _B_var_select'Eform_load9cancelQCancel _B_var_Cancel[_B_var_strDbNameǛ _B_var_Midp`  o 6 hAuto HP OfficeJet R80xi on SMA .q  DANBHV'pc[\PCP p|`#providero g .c uo!d!C_!_!_!_!-/A! { 'insu@rance  HIf (CheckLink(" tlkpIAdd")) Then DoCmd.DeleteObject acTable, j CTsferDatabaseGImportHMicrosoft Acces s", _ K[FileName], w+      !"#%&'()*+,-./0123456789:;<=>?@ABCDEFGIJKLMNOPQRSTUVWXYZ[\]^,05eP),o@k[PWH$7з~M5gnxME K[@[LS S<<<` N( Px *. PG h  8 P ` .. XG ~8     ..0 XG` ~  8 P ` *. NG f0     (. LG0      0 P D<` XG      ,.8 RGh (N*   ( 8 Xh*. PG (*      (.0 JGX 8     ! (!@!*.`! PG! !!  # #  # ##(.# JG$ h$  % %  % %%,.% TG(& !&  ( ((  8( X(p(*.( PG( )  ) *   0*  @*   P*X*n`* 6* .+ 8<8+<<p+<<+8<+@<(,8<h,<<,<<, << -D<`-@<-8<-D< .D<h.D<.<<. V8// /<//  / " / */<0 00 "80 @0`0h0 -p0$G0 0  (0 X2`2 h2 x2xp6`\When grouper.mdb opens the existing patient tables are cleared (tbldemo, tblMed, tblLabs...)gx]@]`]x]]]]]] .639C===================================================================Eclearing out tables: demo, crosswalk, setup,ethnicity, pcp, insurancedemoDELETE tblDemo.* FROM tblDemo; %.  B@  crosswalk*DELETE tlkpCrosswalk.* FROM tlkpCrosswalk; %.  B@ setup"DELETE tlkpSetup.* FROM tlkpSetUp; %.  B@ clini!K[c$DELETE tlkpclinic.* FROM tlkpclinic; %.  B@ pcpDELETE tlkpPCP.* FROM tlkpPCP; %.  B@ language*DELETE tlkpPLanguage.* FROM tlkpPLanguage; %.  B@  Insurance*DELETE tlkpInsurance.* FROM tlkpInsurance; %.  B@  ethnicity*DELETE tlkpEthnicity.* FROM tlkpEthnicity; %.  B@ city DELETE tlkpcity.* FROM tlkpcity; %.  B@ J==========================================================================_All patient data now cleared. program searches for "*" & "dta.mdb" files in current folder only !"C@$$9&*dta.mdb99(C@ 7  L============================================================================cycle through each found file 5*!, show progressFile: '. B@0Hsteps through found "*" & "dta.mdb" files and appends them to the master*------------------------------------------.foundfiles(index) = the path 7*'==============================tblDemoKif prgram errors for some reason these add tables are still in database and>everything is messed up - so need to check for their existence tblDemoAdd$' G 6 tblDemoAdd 2B@4j :Microsoft Access tblDemo tblDemoAdd 2B@8    LINSERT INTO tblDemo (clinic_code, chart_number, last_name, first_name, dob, Psex, ethnicity, primary_language, address1, address2, city, state, zip, phone1, aphone2, pcp, insurance, _date, start_date, end_date, last_update_date, migrant, homeless, other) eSELECT tblDemoAdd.clinic_code, tblDemoAdd.chart_number, tblDemoAdd.last_name, tblDemoAdd.first_name, htblDemoAdd.dob, tblDemoAdd.sex, tblDemoAdd.ethnicity, tblDemoAdd.primary_language, tblDemoAdd.address1, [tblDemoAdd.address2, tblDemoAdd.city, tblDemoAdd.state, tblDemoAdd.zip, tblDemoAdd.phone1, dtblDemoAdd.phone2, tblDemoAdd.pcp, tblDemoAdd.insurance, tblDemoAdd.[_date], tblDemoAdd.start_date, ltblDemoAdd.end_date, tblDemoAdd.last_update_date, tblDemoAdd.migrant, tblDemoAdd.homeless, tblDemoAdd.other FROM tblDemoAdd;'  %.  B@   !< '============================= tlkpCrosswalk<this deletes the current tlkpCrosswalk, then imports new oneLnext step tries to append the current tlkpCrosswalk to what;s there already-[so you end up with a master crosswalk table holding list across clinics if not all the sametlkpCrosswalkAdd$' G 6tlkpCrosswalkAdd 2B@4j :Microsoft Access  tlkpCrosswalktlkpCrosswalkAdd 2B@8JINSERT INTO tlkpCrosswalk ( raw_code, type_code, working_code, lab_code ) ]SELECT tlkpCrosswalkAdd.raw_code, tlkpCrosswalkAdd.type_code, tlkpCrosswalkAdd.working_code, 0tlkpCrosswalkAdd.lab_code FROM tlkpCrosswalkAdd;'  %.  B@ ============================= tlkpSetUp8this deletes the current tlkpSetUp, then imports new oneHnext step tries to append the current tlkpSetUp to what's there already-Jso you end up with a master setup table across clinics if not all the same tlkpSetUpAdd$' G 6 tlkpSetUpAdd 2B@4j :Microsoft Access  tlkpSetUp tlkpSetUpAdd 2B@8@INSERT INTO tlkpSetUp (type_field, health_status,related_field) WSELECT tlkpSetUpAdd.type_field, tlkpSetUpAdd.health_status, tlkpSetUpAdd.related_field FROM tlkpSetUpAdd;'  "K[%.  B@ =====================languagetlkpPLanguageAdd$' G 6tlkpPLanguageAdd 2B@4j :Microsoft Access  tlkpPLanguagetlkpPLanguageAdd 2B@8&INSERT INTO tlkpPLanguage (planguage) "SELECT tlkpPLanguageAdd.planguage FROM tlkpPLanguageAdd;'  %.  B@ ===================== ethnicitytlkpEthnicityAdd$' G 6tlkpEthnicityAdd 2B@4j :Microsoft Access  tlkpEthnicitytlkpEthnicityAdd 2B@8&INSERT INTO tlkpEthnicity (ethnicity) "SELECT tlkpEthnicityAdd.ethnicity FROM tlkpEthnicityAdd;'  %.  B@ =====================city tlkpCityAdd$' G 6 tlkpCityAdd 2B@4j :Microsoft Access tlkpCity tlkpCityAdd 2B@8INSERT INTO tlkpCity (city) SELECT tlkpCityAdd.city FROM tlkpCityAdd;'  %.  B@ =====================pcp tlkpPCPAdd$' G 6 tlkpPCPAdd 2B@4j :Microsoft Access tlkpPCP tlkpPCPAdd 2B@8+INSERT INTO tlkpPCP (clinic_code,provider) (SELECT tlkpPCPAdd.clinic_code, provider FROM tlkpPCPAdd;'  %.  B@ ===================== insurancetlkpInsuranceAdd$G 6tlkpInsuranceAdd 2B@4j :Microsoft Access  tlkpInsurancetlkpInsuranceAdd 2B@8;INSERT INTO tlkpInsurance (insurance_name, insurance_type) HSELECT tlkpInsuranceAdd.insurance_name, tlkpInsuranceAdd.insurance_type FROM tlkpInsuranceAdd;'  %.  B@ =====================clinic tlkpClinicAdd$' G 6 tlkpClinicAdd 2B@4j :Microsoft Access  tlkpClinic tlkpClinicAdd 2B@8  INSERT INTO tlkpClinic (clinic, Aclinic_code, type_form, type_flowsheet, type_overflow, comments) QSELECT tlkpclinicAdd.clinic, tlkpClinicAdd.clinic_code, tlkpClinicAdd.type_form, RtlkpClinicAdd.type_flowsheet, tlkpClinicAdd.type_overflow, tlkpClinicAdd.comments FROM tlkpClinicAdd;'  %.  B@ ======================VISITS tblVisitsAdd$' G 6 tblVisitsAdd 2B@4j :Microsoft Access  tblVisits tblVisitsAdd 2B@8 XINSERT INTO tblVisits (clinic_code, chart_number, visit_date, type_visit, bp_diastolic, /bp_systolic, weight, height, next_visit_date ) nSELECT tblVisitsAdd.clinic_code, tblVisitsAdd.chart_number, tblVisitsAdd.visit_date, tblVisitsAdd.type_visit, |tblVisitsAdd.bp_diastolic, tblVisitsAdd.bp_systolic, tblVisitsAdd.weight, tblVisitsAdd.height, tblVisitsAdd.next_visit_date FROM tblVisitsAdd;'  %.  B@ ==========================LABS tblLabAdd$' G 6 tblLabAdd 2B@4j :Microsoft Access tblLab tblLabAdd 2B@8iINSERT INTO tblLab ( clinic_code, chart_number, raw_code, result, service_date, status_flag, type_code ) \SELECT tblLabAdd.clinic_code, tblLabAdd.chart_number, tblLabAdd.raw_code, tblLabAdd.result, RtblLabAdd.service_date, tblLabAdd.status_flag, tblLabAdd.type_code FROM tblLabAdd;'  %.  B@ ==========================COMORBIDS (Health) tblHealthAdd$' G 6 tblHealthAdd 2B@4j :Microsoft Access  tblHealth tblHealthAdd 2B#K[@8 _INSERT INTO tblHealth ( clinic_code, chart_number, raw_code, start_date, end_date, specialist, [educator, comment, type_code ) SELECT tblHealthAdd.clinic_code, tblHealthAdd.chart_number, `tblHealthAdd.raw_code, tblHealthAdd.start_date, tblHealthAdd.end_date, tblHealthAdd.specialist, VtblHealthAdd.educator, tblHealthAdd.comment, tblHealthAdd.type_code FROM tblHealthAdd;'  %.  B@ ==========================MEDS tblMedAdd$' G 6 tblMedAdd 2B@4j :Microsoft Access tblMed tblMedAdd 2B@8\INSERT INTO tblMed ( clinic_code, chart_number, raw_code, start_date, end_date, type_code ) `SELECT tblMedAdd.clinic_code, tblMedAdd.chart_number, tblMedAdd.raw_code, tblMedAdd.start_date, 7tblMedAdd.end_date, tblMedAdd.type_code FROM tblMedAdd;'  %.  B@ ==========================SERVICEStblServicesAdd$' G 6tblServicesAdd 2B@4j :Microsoft Access  tblServicestblServicesAdd 2B@8 bINSERT INTO tblServices ( clinic_code, chart_number, raw_code, status_flag, service_date, result, ncomment, type_code ) SELECT tblServicesAdd.clinic_code, tblServicesAdd.chart_number, tblServicesAdd.raw_code, htblServicesAdd.status_flag, tblServicesAdd.service_date, tblServicesAdd.result, tblServicesAdd.comment, -tblServicesAdd.type_code FROM tblServicesAdd;'  %.  B@ ==========================NOTES (Custom) tblCustomAdd$' G 6 tblCustomAdd 2B@4j :Microsoft Access  tblCustom tblCustomAdd 2B@8CINSERT INTO tblCustom ( clinic_code, chart_number, [date], [note] )aSELECT tblCustomAdd.clinic_code, tblCustomAdd.chart_number, tblCustomAdd.date, tblCustomAdd.note FROM tblCustomAdd;'  %.  B@ *------------------------------------------ kqFiles found = !"!*!, > @$Total patients now in master base =  A@ /-----------------------------------------------'clear temp tables to leave program tidy tblDemoAdd$G 6 tblDemoAdd 2B@4j tblVisitAdd$G 6 tblVisitAdd 2B@4j tblHealthAdd$G 6 tblHealthAdd 2B@4j tblMedAdd$G 6 tblMedAdd 2B@4jtblServicesAdd$G 6tblServicesAdd 2B@4j tblLabAdd$G 6 tblLabAdd 2B@4j tblVisitsAdd$G 6 tblVisitsAdd 2B@4j tblCustomAdd$G 6 tblCustomAdd 2B@4j tlkpSetUpAdd$G 6 tlkpSetUpAdd 2B@4jtlkpCrosswalkAdd$G 6tlkpCrosswalkAdd 2B@4j tlkpClinicAdd$G 6 tlkpClinicAdd 2B@4j tlkpPCPAdd$G 6 tlkpPCPAdd 2B@4jtlkpInsuranceAdd$G 6tlkpInsuranceAdd 2B@4jtlkpPLanguageAdd$G 6tlkpPLanguageAdd 2B@4jtlkpEthnicityAdd$G 6tlkpEthnicityAdd 2B@4j tlkpCityAdd$G 6 tlkpCityAdd 2B@4jO-------------------------------------------------------------------------------|h6` *!,A@  Exit_Command1_Clicko((#DoCmd.OpenForm ("frmJetUserRoster") frmLogger 2B@Dohcheck for references]] F J!, F$J!adodbGLj F 5WARNING your settings need adjusting to run Logger-2k > @ > @.Logger-2k requires a library reference set to  @ >5Microsoft$K[ ActiveX Data Objects 2.1 Library (or later) @ >LOpen new module -> Tools-> References-> Select a 'ActiveX' library & restart @ >0 Or call CDEMS technical support for assistance.   $ 'H| L o Attribute VB_Name = "Form_frmMai"n," Bas0{F8AEF0F8-2448-11D9-9F37-00D0B77EFFB9} |Global!SpacIFalse dCreatablTru Predecl2aId"Ex0pose_TemplateDerivCust0omizD$Option Com2p@ DT  g@;l~:`"PL  IGH dG   FW_%I%E%^  @y_ I !  @a}?## Alldata now ĮH. pam~a(rch`f"*" & "dta !" in cÒ for onl@ Wit`h App on.Sch .New@LookIn@GetDBDir?"F`D sSubFBs@F#yGE#If uF() > 0 TjPcyopgh eachhvЊ j= 1 u.Fks.Cǰy 0'shB@etxtf1j: 1Me.Reptep7zC s tanPd ap}d}m tor~mast{!v - '.g{(index)Az$"H(kf$ d_w@Qlif3gr3Porsr so0s0 addَ`8;48bGev th1zis mCup - neP:ck irӕey `heckLink(" Addx+2(K)2 DoCmd.DeleteObject ac~ #TPsfer5`Import pMiqoft AccP_v [], g|, @c 6Ģ2INSERT INdTO% (sw", chart_number, l)-_n ,0oA>14pzrU(O u{(Ʒ[0 e w!/""8#H2$-$;0=9 K;[ qdf.Execute cnt_patients =  8+RecordsAffectedr '=N'tlkpCro@sswalkhis deletes the curr /,n impor@new on'next ste p triHo @appendR to what;;re already-Mso you #up with a m"a3r ce table holding list a clinics if $no llGsam]6blnT$ Ex CheckLink(" Add")If ( ) Then DoCmd.DObjK0,  CTransfer$Da:asIcIaMi:oft Access", _H [FileN;], M !, FalsPGstrSQL"INSERT INTOˈ ( raw_codeypeworFk@fDlabB ) "+& "S`ELECTZ.tGh.N %FROM ;"FUSet!Ddb.CteQueryDef("WCL xℂxUp'txwbwwtb" w'wwset`vttbCttp 0?t?t.t?bs?s.sb (dfield, health_status,retla`_q.i ah Et ~mE mmqmSlF9'languaggMPL$M { './a/a/a /akpvE''~/a#a (pe%^."Y" $YY" _B&'ethqity&"E"ep fIb4"kpv""Ϥ (f""."""" Q|L|E"v'c"leO"O"OOC!!p!!_!_!} ( .q  DANBHV'pc[\PCP p|`#providero g .c uo!d!C_!_!_!_!-/A! { 'insu@rance  HIf (CheckLink(" tlkpIAdd")) Then DoCmd.DeleteObject acTable, j CTsferDatabaseGImportHMicrosoft Acces s", _ K[FileName], w+, Fals|&strSQL = "INSERT INHTO  (_n9, type) "N& "SELECT ">. # + +FRdOM*;"eS@et qdfjdb.CreateQueryDefl("G<) .@ExecutH'= 'clinDicblnE`xists@̒C  G?E y (Qˏ_codA_form, low0sheeoverf, comments٣C ߁Q# }.EJ]XGgK%6_ ^^^F`&K'VISI TS^blVisits^_t ?^_K ^?])%^Kchart_numb er, va%_d$], bp_diastoli&cNesyewe(ighbhnext_ c,`* 2. `iaN MG* l[lL|ab blBSblfAq-}"lkpUp_ Cswalk??6ZqOOG&PCPCInsuc~eZ1 Languag]Ethnicity ZpC/)PToV0fxit SubQerr:gErrpscripf Rme EBm't_Cpand1_Cphk[ kPrivp cmdLogger(q'OpenForm ("frmJetUЭRohb_rms/ 1 _Load'cC@tr reen DimotCn@s Inte cPpon As String@= 1 To RCw#0E(in!).!|adodb"cGo@ O`"f= ("WARNING your se,tt |e0adj`7 to run Logger-2k" & vbLf0Cr h_ D" requires a l@ibrary$ference s@ ToolsRe Sel\*'s'[&\start1 Or call CDEMS techni support fRassFi"~.",C(rit+OK Only) Exit Sub ;: & nd DemoAdd.phone2, tblDemoAdd.pcp, tblDemoAdd.insurance, tblDemoAdd.[_datlPLi7)|@GetOpenFileNameA<GetSaveFileNameAz adbe(. CommDlgExtendedErrorxMEP@0 <p F , >( ,h :  <(08@HP  <X8*   R82 6 "=H "p >             0 8 @ #H 8P   *    8 : P  p ,x  ,  : : .( X 6` : 4 : P h      )       B( *0 ,` ,      (H  P  `hp xBx  B     ( 8H  ;X x  5   Bx(0 8 B @ *H ,x ,  8 :  k` $  $ From Access 97 Developer's HandbookB% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved.XP^^0^H^`^x^^^^^^^ ^8^P(K[^h^^^^^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:h@ 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 filterx5 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.4 OpenFile: Boo lean(True=Open File/False=Save As)` Out:6 Return Value: Either Null or the selected filename]](]H]`]x]6description with null followed by the filter with nullAccess (*.mdb) *.mdb*.* 'x dialogue variables $G'j $G x'j $G'j $G   'j3 hides read only and hidden files $G'j $G'j $GLocate Data database file'j $G'j0 Allocate string space for the returned strings. $\$'$\'7 Set up the data structure before you call the function  9r !9t 9x 9~ 9 9 9 9 9 9 9 L91 Didn't think most people would want to deal with these options.9v$\9z9|9q(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.  $'dp $'kX4 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. $G !'jnow strip null from end ! '  !  $ (k !':d':ki$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved.8]]] GetDBDir' . !' $ \b   $ ' $ 'z *Sp Error# *!0:  *!,   A@  ni8]x]] GetDBName' . !' !' ! $\b  'p !  2$'H@)K[z80 *S  Error# *!0:  *!,   A@ ni$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved.](2 Check for failure. If can't determine the name of4 the first field in the table, the link must be bad.  %%T!' *'d` 'kP iH @ ]8Attribute 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 Instancstrfilt*i$ CustomnMa.xCN IndexD+C7' $Titl InitipalDiBCM7F0lags,OffsetAInt0egerD\Extensvc0Def lOAH.lpfnH@TemplateEEnd AADeclFuncšadh_apiOpe+Lib "comdlg32.@dll" _@4A@lias "L A" (ofn$ )Boolean Savew#I 6lmDlgb3dedErrlory(0 p Pub@p@tf 'OFN_REA DONLY&H1sOVERWRITEPROMP TB2SHIDEJ 4NOCHA@NGEDIR 8SHOWHELPb10u VAL`IDATEALLOWMULT@ISELEC0EXTENSI@ONDIFF`N4PATHMUSTEXISCN8UAK10uCG) /VSHAWπ TNO>RETURNTEST!NETWOR@KBUTTO 2CLONGAS" TEXPL`DFY P6CELINK# bT k  noy("Cal ByRef Variant,V@ 9@_nBSVi0[aultt[JYhogVgZUt2Jq^a' This the entry point you' 0uso ca!^k' De Pn/sY d .0e Љ s dlistedubw,ˁoralP O"' d?$In: ': on!r moof" !adh_* cots, OR'd toge]r%q):d@irecto`in which`prst l2Q'A(: a Q/@A,Bup?AV1Add-tem. $Se@ xa0esY D: 1-d P"Apdicat #q (to 0%,q defa2 (1 if unspecified! W4: rx2Sar doesn|'tA,p Onlyfulo++8:P value f e n- te@xt boxDG:: :1e::  !(Tr(ue=q Pe/False=AP<Out(Return Jue`iP r Nu0;$ sel`%ed 3DimaPoZ1 ȤJfc$L@descriw  nfollow`@0 ` $(*.mdb)" & vbChar"ra* -'P"v!iblesIf IsPMiss@2('?)ّRn y"!*Pp v O(Crjjk= o_B=Orv1N-d'hip rea6d78a`0den)g(? ; P2;)ȷ Then DialogTitle = "Locate Data dbase file" If IsMissing(OpenF6)@True d' AllstrAn spacor the returned s.6 [namALeft(N& SI(256, 0), ) 7 (Set8 up@s>ucDe before you callfunction1With of.l3SizVn(HhWndOwnerAppli(. Access /^t{NIndex' GnMaxLen( -S L Flags5DefExtault Init@DiYCur|U'dn'tuink most peopwould wano d`eal wy'sA@opAkh@Instan= 0 $CustomYr5 Ac# F 255lpfnHook>0End Th is,passcA+1sir֌toA 'ndows API, whichin !s i ese "isplay%w~/Save As x#ãA&fRes7adh_apiGetEA|gEls`&e  $|If#yC{ lls#heASmember'}) P. You' -h)wri!specO c,odDFo!rie $that iJfa'@inBepsted)&E# &'! might`checkoCfcg-'gI in`maY aboube chos@ "e%.' IAaKexam@e,D bo@/K BN)avaluKe&.JAl"`goJNot/dC=` n.#b now!!ip nu@7from end' C` 4PoInw R.@E, vbN Char&`> 0 a?% `H,nt- 1 f ?A^JmCommo7;t k7o/=  6!Fr Pu*bn % >DB9`Y()CP' F!p 97 D03loper's HandbPby Litwi$n,z  Gil0;t. (Sybexd' Copyr3199$7. Rs 1`Herv81On ErrGoTo UDDim ddberebOA|O.ђ !DbH=Proc3G= Db&5= .V o lWhS$,& <> "\A = a*~) *LoopU p.UCDUDone: }oxi)&*K[ptSelect dMsgBox "or#" &.Nump$": 5Descri, _0@OKOnly4 +C``l,FuAoଉA33 /4/4B(%)ata)) )4poson1-Ikgq#=+DB +3+tr$" +&(n.(+$D%.Mid|, e.8`-C^-a _WA!1, 50  .G.LJ.Pc . ..8rr..0vb.... 0 Then*CheckLinkFals`FE HTru#nd If E FunctioZ iT id it ` @@%xK#)trcH 8з~;yK!\ɲcH 8з~xME [LS S<<<<<<< <$<(<,<0<4<8<<<@H 8 Z "  NH  H : ^0   $O"J7&4 @  4H :X ~J% "+hz            ` X ,+ p x &l   (B 0 $8 2`      ,$  ( (8 %` x           x8]@]X 5 Stop additional users from logging into the database Jet OLEDB:Connection Control B,] e4 You can now allow users to open the database again. Jet OLEDB:Connection Control B,k`&XA@|H(@ Problems with JetUserRoster " " *!, . Error Number *!0A@ &o6] :'8last_logger_path 8 <!B@>A@|`6XoP8requires reference to (adodb) Aactivex data objects 2.1+2if reference not present errors and exits the formSon loading check if a value for "last_Logger_path" in the current,K[project propertiesfills this into the text boxGif none, user must request a file to proceed using basCommonFile module IMPORTANTBbefore releasing clear the property value for logger_last_path by:4go into debug window (Ctl+G) enter (withou"<> signs:W<> this clears the internal value6]H]h]]last_logger_path <%last_logger_path <%'8d :'8last_logger_path 8 <!B@>kH 8 )L]&{947bb102-5d43-11d1-bdbf-00c04fb92675}ocnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=\\smartie\shareddocs\data\mstr cdems\cdem_dta.mdb"-Provider=Microsoft.Jet.OLEDB.4.0;Data Source= 8 BB@ R N B%P.F F%T!; F%T!; F%T!; F%T!;'J F!V ( J F%T$X; F%T$X; F%T$X; F%T$X;'J FB@Z J \(^.F.B|6 *!0 means:  *!,A@ |o` Make the value a text string+ Remove all values after the null character]P]hf `$hGFalse'`j `X 'b% Locate the terminating Null (if any) b$ j'd d " Return the characters before it b d $'bd b'bkl b'Xzf'bli <!D.B.The database is now locked to additional users $Database Locked.$ 'H ( ] 8 ^KT *!0| S "You need to pick a file to monitorA@  n Attribute VB_Name = "Form_frmLog@ger" Bas0{8F3BE70F-D8C4-4B79-B7A1-215CC9B2F108} |GlobaBlSpacFalse dCre atablTru PredecdlaId"E`xpose_TemplateDerivCus`tomizD$Option Codmp@ DT 0 P&* Sub chkStopNewUsers_AfterHUpd()Dim respoBnAs Sng cnn  ADODB.Connec:xst + 21 OK 2Set )= CurrentProj) -If,AAV Then'(op addi!A#al u6 f rom l@ing into tHhe @:abF .perti es("J$OL0EDB:D1CTnt`rol")7  J= Msg`Box("%F @is now!ckt )", vPbInf@a/,D "n LoA .z"fECDC' You canqBallCCopen@ aga8in.1aBOKAaEnd IfAuBList_EPxit:C" BLoadAA rror * "4blems with 5WRosW " B&`(CrLf Err.Descrbi"c, _ Ex`tm-or Number" Resu ! ka)jmmdF__Path_Clickm On cGoTo err_cod@  nstrfilepoq  =@`hmonFO=Sav" all^.Add "la5eer_a R B8A 8`7J#"@ 'requi ife@U(adodb) Aa vexj obs 2.1+ 'ifnot pA)ors a@Re] Ps^!l!4'lPcheck a value~ D!6B!BcÔpÔ jB`4l ~ftext boxcnonde,b m@`quea ;  ceus9 modul9` IMPORTANT`be@e` leacr{ !yH;b=! Dby 5'godebug lnd(Ctl+G) * c(nou"<> signs|<>$C3&ern0߁411zh5 h13r`jRecordset)3046aElK6 pW(Len(?4c3)))DY 2In8>(o8__8[ad?>>o d >-, ;\Me!txtLALpJQ~JET_SCHEMA_USERROSTERW "{947bb102-5d43-11d1-bdbf-00c04fb92675!'iL"`vider=Microsoft.p`.{.4.0;q`Bt Source= \\smaQ:\shdocs\d ata\m c dPe\Q_dta.mdbOO Az"4f`ha)=RYGmaNSP Specific, ,> / !P+= .Fields(0).r& "b1\162O3qWh! g NotREOFa$ & TrimToNull(z ) b _16_ 22_2E3U MoveN^` WenQFs `y).Row(C3%qg!h`_| !(&v " (vSel CM i94 d "nefP wgito1ձ mea ah2?w2 H%FunRYraReqQYVariantɀp Makero-K[ w@'B' Rem M"n`(`arerq`maAYbPosaLoq!Kk#_QdIs"/ $a#z@H c(F!qa͑pmin@ngll (Qny@B  = In1,, Chr$Br > 0E& turc@TRs iu!A Left(,- 1Rl  !\ If TrimToNull_Exit:   = t1Str\ Function rrv\p""fResume1xEnd Ltermine the name of4 the first field in the table, the link must be bad.  %%T!' *'d` 'kP iH @ ]8Attribute 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 Instancstrfilt*i$ CustomnMa.xCN IndexD+C7' $Titl InitipalDiBCM7F0lags,OffsetAInt0egerD\Extensvc0Def lOAH.lpfnH@TemplateEEnd AADeclFuncšadh_apiOpe+Lib "comdlg32.@dll" _@4A@lias "L A" (ofn$ )Boolean Savew#I 6lmDlgb3dedErrlory(0 p Pub@p@tf 'OFN_REA DONLY&H1sOVERWRITEPROMP TB2SHIDEJ 4NOCHA@NGEDIR 8SHOWHELPb10u VAL`IDATEALLOWMULT@ISELEC0EXTENSI@ONDIFF`N4PATHMUSTEXISCN8UAK10uCG) /VSHAWπ TNO>RETURNTEST!NETWOR@KBUTTO 2CLONGAS" TEXPL`DFY P6CELINK# bT k  noy("Cal ByRef Variant,V@ 9@_nBSVi0[aultt[JYhogVgZUt2Jq^a' This the entry point you' 0uso ca!^k' De Pn/sY d .0e Љ s dlistedubw,ˁoralP O"' d?$In: ': on!r moof" !adh_* cots, OR'd toge]r%q):d@irecto`in which`prst l2Q'A(: a Q/@A,Bup?AV1Add-tem. $Se@ xa0esY D: 1-d P"Apdicat #q (to 0%,q defa2 (1 if unspecified! W4: rx2Sar doesn|'tA,p Onlyfulo++8:P value f e n- te@xt boxDG:: :1e::  !(Tr(ue=q Pe/False=AP<Out(Return Jue`iP r Nu0;$ sel`%ed 3DimaPoZ1 ȤJfc$L@descriw  nfollow`@0 ` $(*.mdb)" & vbChar"ra* -'P"v!iblesIf IsPMiss@2('?)ّRn y"!*Pp v O(Crjjk= o_B=Orv1N-d'hip rea6d78a`0den)g(? ; P2;)ȷ Then DialogTitle = "Locate Data dbase file" If IsMissing(OpenF6)@True d' AllstrAn spacor the returned s.6 [namALeft(N& SI(256, 0), ) 7 (Set8 up@s>ucDe before you callfunction1With of.l3SizVn(HhWndOwnerAppli(. Access /^t{NIndex' GnMaxLen( -S L Flags5DefExtault Init@DiYCur|U'dn'tuink most peopwould wano d`eal wy'sA@opAkh@Instan= 0 $CustomYr5 Ac# F 255lpfnHook>0End Th is,passcA+1sir֌toA 'ndows API, whichin !s i ese "isplay%w~/Save As x#ãA&fRes7adh_apiGetEA|gEls`&e  $|If#yC{ lls#heASmember'}) P. You' -h)wri!specO c,odDFo!rie $that iJfa'@inBepsted)&E# &'! might`checkoCfcg-'gI in`maY aboube chos@ "e%.' IAaKexam@e,D bo@/K BN)avaluKe&.JAl"`goJNot/dC=` n.#b now!!ip nu@7from end' C` 4PoInw R.@E, vbN Char&`> 0 a?% `H,nt- 1 f ?A^JmCommo7;t k7o/=  6!Fr Pu*bn % >DB9`Y()CP' F!p 97 D03loper's HandbPby Litwi$n,z  Gil0;t. (Sybexd' Copyr3199$7. Rs 1`Herv81On ErrGoTo UDDim ddberebOA|O.ђ !DbH=Proc3G= Db&5= .V o lWhS$,& <> "\A = a*~) *LoopU p.UCDUDone: }oxi)&. RY N Y Y Y  Y @Y ,Y Y  FlagsGroupCategoryIDIdName"Object Type GroupObjectIDPosition,,,,,,YYGroupCategoryIDIdv1@@:  vcb t a ` p66_dQ^$.ӅԚ̊l8J;=Nc fb8V4Akt7CWO|NCYr{p Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z p66_dQ^$.ӅԚ̊l8J;=Nc fb8V4Akt7CWO|NCYr{p p66_dQ^$.ӅԚ̊l8J;=Nc fb8V4Akt7CWO|NCYr{p p66_dQ^$.ӅԚ̊l8J;=Nc fb8V4Akt7CWO|NCYr{p Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p Z Z U|dQ^jfFJr_.D̊l8J;=$ARO} JkV4Akt7CWO|NCYr{p   @   @ YNY Y Y Y  Y ,Y Y  FlagsGroupIDIconIdNameObjectIDPosition,,,,,,YYGroupIDIdv1  @ @ @ @        @ @ @ @     qOCustomg e e/ yL|O  }Custom Group 162.*&" } } } } } } }p yLk> ] 0  | O " n A   w w w w w w w w| wu wp wl wg wb w]  wY  wP  w M  w D  w = w 7 w 1 w w  w  w  w w w w wRY76V@NY  Y Y  IdNameTypedv%7h=dA W 0  Y 6  { V - y J ' o  L)g\%MSysNavPaneObjectIDs2.MSysNavPaneGroupToObjects<8MSysNavPaneGroups,(MSysNavPaneGroupCategories>:{F8AEF0F1-2448-11D9-9F37-00D0B77EFFB9}VR{F8AEF0F0-2448-11D9-9F37-00D0B77EFFB9}VR{F8AEF0EF-2448-11D9-9F37-00D0B77EFFB9}VR{F8AEF0EE-2448-11D9-9F37-00D0B77EFFB9}VR{F8AEF0ED-2448-11D9-9F37-00D0B77EFFB9}VR{F8AEF0EC-2448-11D9-9F37-00D0B77EFFB9}VR{F8AEF0EB-2448-11D9-9F37-00D0B77EFFB9}VR{F8AEF0EA-2448-11D9-9F37-00D0B77EFFB9}VR{F8AEF0E9-2448-11D9-9F37-00D0B77EFFB9}VR {F8AEF0E8-2448-11D9-9F37-00D0B77EFFB9}VRtlkpVisitType$ tlkpStatusFlags($tlkpSetuptlkpPLanguage$ tlkpPCP|tlkpInsurance$ utlkpGenderptlkpEthnicity$ ltlkpDefaults"gtlkpCrosswalk$ btlkpClinic]tlkpCityYtblVisitsPtblServices MtblMedDtblLab=tblHealth7tblDemo1tblCustomMSysAccessObjects,( Admin  basCommonFile$  frmMainForm  frmLoggerUserDefined SummaryInfo AccessLayout "SysRelScriptsReportsModulesFormsDataAccessPages($MSysRelationships,(MSysQueries MSysACEsMSysObjects MSysDbRelationships$ DatabasesTablesV LVALh MR2AccessVersion BuildAppTitleStartUpForm&StartUpShowDBWindow(StartUpShowStatusBarStartUpMenuBar$AllowShortcutMenusAllowFullMenus(AllowBuiltInToolbars&AllowToolbarChanges AllowSpecialKeysAppIcon,StartupShortcutMenuBarHijriCalendarProjVerNavPane ClosedNavPane Width NavPane Category*NavPane Category NameNavPane View ByNavPane Sort By 08.50 (  Form.frmMainForm            W  MR2AccessVersion BuildAppTitleStartUpForm&StartUpShowDBWindow(StartUpShowStatusBarStartUpMenuBar$AllowShortcutMenusAllowFullMenus(AllowBuiltInToolbars&AllowToolbarChanges AllowSpecialKeysAppIcon,StartupShortcutMenuBarHijriCalendarProjVerNavPane ClosedNavPane Width NavPane Category*NavPane Category NameNavPane View ByNavPane Sort By 08.50 (  Form.frmMainForm            W     ˏ Tables" }