Standard ACE DBnb` Ugr@?~1y0̝cßFNg7C؜( *`J{6߱ihC33*y[)|*| 4if_Љ$g'DeFx -bT4.0Gdv  Y( S (( Y  l Y Y  Y Y  Y  OY  Y   Y  Y  Y  Y  Y 2Y  Y  O Y  Y ConnectDatabaseDateCreateDateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeOOpOYYIdParentIdName        OY| S  'Y Y Y  Y 2`ACMFInheritableObjectIdSID YObjectId YS  Y  Y WY Y  Y ,F Y FOY  Y  ,AttributeExpressionFlagLvExtra Name1 Name2ObjectId Order, OF, O ,FOY"ObjectIdAttribute   -YS  Y Y Y  Y  Y  Y  Y  Y ccolumn grbiticolumnszColumnszObject$szReferencedColumn$szReferencedObjectszRelationship   YYYszObject$szReferencedObjectszRelationship v1b N  : k &      @ @@@@@ kf^JkWLJkJomdQuQMLJkMd``dbSY^QLJk^Yb\QOmJL^QkOJmJJMMQkkfJUQkOJmJLJkQkSdi`k`dOo^QkiQ^JmYdbkWYfkiQfdimkkMiYfmkkvkiQ^mJL^Qk`kvkJMMQkkkmdiJUQ`kvkJMMQkku`^ `kvkJMQk`kvkMd`f^QuMd^o`bk`kvkMd`f^QumvfQ+JmmJMW`Qbm`kvkMd`f^QumvfQ+OQMY`J^`kvkMd`f^QumvfQ+UoYO`kvkMd`f^QumvfQ+YQQQOdoL^Q `kvkMd`f^QumvfQ+YQQQkYbU^Q `kvkMd`f^QumvfQ+^dbU `kvkMd`f^QumvfQ+kWdim `kvkMd`f^QumvfQ+mQum`kvkMd`f^QumvfQ+obkYUbQOLvmQ `kvkbJqfJbQUidofMJmQUdiYQk!`kvkbJqfJbQUidofk"`kvkbJqfJbQUidofmddL[QMmk#`kvkbJqfJbQdL[QMmYOk$`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkmL^OQ`d%mL^^JL&m^\fMidkksJ^\'JMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQO  @ @ @ @ @     %&'     !#%')C H!L"Q#V$v1  @ @ @ @ @ @ @ @ @ @ @ @ @ @ @YYYYYYYYY Y Y Y YYYYYYYYYYYYY$Y% Y& Y' Y( Y) Y* Y+ Y, Y- Y. Y/ Y0 Y1 \$ \% \&\'\(\)\*\+\,\\\Y:Y;\\\ \!\"\#Y<Y=Y>\\ \ \\\YN\\YKYLYMYHYIYJ!YE!YF!YG#YB#YC#YD%\%\%\'Y?'Y@'YA)Y2)Y3)Y4)Y5CY6CY7CY8CY9H\ H\ H\ H\L\L\L\L\Q\Q\Q\Q\V\V\V\V\YYYY YY YYYY!Y"Y#v1 v1@   Q(d _ Z  G q  0 =XTS<CMIBQ~ʃ@~ʃ@tlkpCrosswalkC:\CDEMʃ@Yʃ@ tlkpCrosswalkC:\CDEMS\cdem_dta.mdbtlkpCrosswalk@[yyyy__<: EUʃ@Uʃ@ tblLabC:\CDEMS\cdem_dta.mdbtblLab]]]]]]]QQ.,  ʃ@ʃ@ tblDemoC:\CDEMS\cdem_dta.mdbtblDemoaaaaaaaSS0. ]QrJ@rJ@ MSysNavPaneGroupToObjects4MR2KeepLocal  TTTTTTTTR @L|3rJ@|3rJ@ MSysNavPaneGroups4MR2KeepLocal  TDDDDDDDB @]Cv(XJ@v(XJ@MSysAccessXML4MR2KeepLocal  T|||<<<<<<<: @)yJ@J@ MSysAccessStorageDDDDDDDDDDB  lR@`]@basLinkedTables@@@@@@@@@@>  lR@`]@basCommonFile<<<<<<<<<<:  lR@`]@basAutoExec88888888886  ilR@`]@splash..........,  {DlR@ilR@UserDefinedA@[DDD88888886 @ {DlR@1lR@SummaryInfo@[DDD88888886 @ _ ?lR@'@AccessLayout4MR2KeepLocal T@Zzz:::::::8 @lR@lR@SysRel.........., lR@lR@Scripts0000000000. lR@lR@Reports0000000000. lR@lR@Modules0000000000. lR@lR@Forms,,,,,,,,,,* lR@lR@DataAccessPages@@@@@@@@@@> '1qJ@1qJ@MSysComplexType_AttachmentTTTTTTTTTTT %1qJ@2qJ@MSysComplexType_TextHHHHHHHHHHH #1qJ@2qJ@MSysComplexType_DecimalNNNNNNNNNNN !1qJ@2qJ@MSysComplexType_GUIDHHHHHHHHHHH 1qJ@2qJ@MSysComplexType_IEEEDoubleTTTTTTTTTTT 1qJ@2qJ@MSysComplexType_IEEESingleTTTTTTTTTTT 1qJ@2qJ@MSysComplexType_LongHHHHHHHHHHH 1qJ@2qJ@MSysComplexType_ShortJJJJJJJJJJJ 1qJ@2qJ@MSysComplexType_UnsignedByteXXXXXXXXXXX 1qJ@1qJ@MSysComplexColumnsDDDDDDDDDDD  lR@ lR@MSysRelationshipsDDDDDDDDDDB  lR@ %tR@MSysQueries88888888886  lR@ %tR@MSysACEs22222222220  lR@ lR@MSysObjects88888888886  lR@&ʃ@MSysDb@ [:::......., @ lR@ lR@Relationships<<<<<<<<<<:  lR@ lR@Databases44444444442  lR@ lR@Tables.........., D YN Y sY  Y Y Y ColumnNameComplexID&ComplexTypeObjectID"ConceptualTableIDFlatTableIDB$lSutouMuowoa&llbYYY(IdxConceptualTableIDIdxFlatTableID IdxIDv1@    fYNY  ValuedvfYNY  ValuedvfYNY  ValuedvfYNY  ValuedvfYN  Y  ValuedvfYN""Y  ValuedvfYN$$Y' ValuedvfYN&& Y ' ValuedvaYN(( Y Y  Y Y  Y  Y FileDataFileFlagsFileNameFileTimeStampFileTypeFileURL((((Hv1bV Y- N**Y  Y Y ?  Y  , Y ,.Y .?Y ? DateCreateDateUpdateIdLvNameParentIdType., ?., ?.*@? ,., ?., ?.*A? ,., ?., ?.*B? ,.YYYIdParentIdIdParentIdName**v1b@  )9@ R w * |  > Q  7  ]m [lżG]“P¶mAA@:ʃ@ʃ@VVDJFFHEXAYBIELZEVZMHBADRENFVRN w2ʃ@ݦʃ@DTEGXFCTQOOLRDVYDSLALYIGVDEBVRN whʃ@ݦʃ@AcessVBAData62. wKʃ@Kʃ@@?PROJECT840" Kʃ@Kʃ@@.PROJECTwm<84" Kʃ@Kʃ@l@=dir0,(" Kʃ@Kʃ@> _VBA_PROJECTB>:" Kʃ@Kʃ@39 NCARTBNUIWSZCEACTLHNKDFXAGFGb^Z" Kʃ@Kʃ@ @?DCHHSTIIEKAWHESDYHDAELOXCBTIb^Z" Kʃ@Kʃ@'g2 WWYYWBDSSDUGZDSAZBTIHNDOWEGIb^Z" ʃ@Kʃ@c// FGLYVQBBZTZBEEKKJYOBKXMBNEFLb^Z" ʃ@Kʃ@ AcessVBADataNJF. DCJ@DCJ@-DataAccessPages<84 wDCJ@DCJ@,CustomGroups62. wDCJ@DCJ@+ImExSpecs0,( w߉J@DCJ@*MSysDbDirData'PLH8 ߉J@DCJ@)Blob(&" w߉J@DCJ@(0'  w߉J@DCJ@'Databases0,( w߉J@DCJ@&jiPropDataPLH8 ߉J@߉J@%Scripts,($ w߉J@߉J@$Reports,($ w߉J@DCJ@#% 2CB0 1CB0 0CB0PropData_[WG ߉J@DCJ@"d@.DirData:62" ߉J@DCJ@! PropData GC?/ ߉J@DCJ@ 2  w߉J@DCJ@ PropDataGC?/ ߉J@DCJ@1  w߉J@DCJ@ PropDataGC?/ ߉J@DCJ@0  w߉J@DCJ@Modules,($ w߉J@߉J@Cmdbars,($ w߉J@DCJ@ 1CB0 0CB0PropDataCopy\XT< ߉J@DCJ@*splashsplash1DirDataCopylhdL ߉J@DCJ@ 0CB0PropDataIEA1 ߉J@DCJ@splashDirDataPLH8 ߉J@DCJ@PropDataCopyXTP8 ߉J@[zʃ@BlobDelta0,( w߉J@azʃ@r@.TypeInfo:62" ߉J@[zʃ@PropDataPLH8 ߉J@[zʃ@5,ҧ Blob2.*" ߉J@[zʃ@0  w߉J@DCJ@Forms($  w߉J@ʃ@VBA$  w߉J@ʃ@VBAProject2.* w߉J@ʃ@VBA$  w߉J@߉J@MSysAccessStorage_SCRATCHPLH w߉J@DCJ@MSysAccessStorage_ROOTJFB wLVALҧ -0=5B>a)b*cbe gh6iHjkk ?lg%@ @ Arial1D/13Fd2    hg#h%" @MS Sans Serif    m45I     `,@   Detaild25U`6Zaibc,d#e%N  Label0 PHL7 CDEMS-2007 Lab Interface (eGFR )" @ ArialJZKiLMh1U`6abc, Command1 Command1~ "[Event Procedure] 8( ʦʦʦʦʦʦʦʦʦʦʦʦ                                                                LVAL       c = Run App!%J&K'L(Md5U`62 a&b c,  Label2 (Decode raw lab filesJ2 K&L=Mm47UC`6xao bc,;k  txtCnt 0+lLVAL****φForm_splashForm_splashbasAutoExecbasAutoExecbasCommonFilebasCommonFilebasLinkedTablesbasLinkedTablest{h9xME`   -` (Pr 5  * ,8 ,h 2 B   *  ,P ,       < X ` $h      (J0  $ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved. fil)Use database order for string comparisons%  Purpose: Do all startup duties$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved. In: None Out: Return value: none History:5 Created 09/14/94 pel; Last Modified 12/20/95 pel"]@ cdem_dta.mdbtblLab$>' varRet = adhInitAutoNum()' d8' k($  $v' &B@(z" "S Error# "!6:  "!8 : < AutoExecA@4nx$pih`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(acRemoveForm_splashForm_splashbasAutoExecbasAutoExecbasCommonFilebasCommonFilebasLinkedTablesbasLinkedTablesbasAutoExecbasCommonFile"basLinkedTablesͬn=0*/Detaild /Label0h /Command1d /Label2m/txtCntLVAL 0"h7xME(<<< <XyRl+x@ i(Syb` rror+$/ (ison%`* P`,+>Hzi@hAcceiB`F tz a`H`J7. A L%`N  P o ch%`T6 `Ve if`,ther`Xry:`Z09/1X   * ,8 ,h 2  B    0 (( P *X , ,   $ ( <8 x <   8 : P p  B   > 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 $ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)Comm% Copyright 1997. All Rights Reserved.)Use database order for string cLVAL1omparisonsH  Purpose:) Checks the Link for the named table.! Based on code from Ken Getz.$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved. In: strTable - table to check% Out:6 Return Value - True if successful; False otherwise History:6 Created 09/13/94 pel; Last Modified 07/10/96 pel00]`(2 Check for failure. If can't determine the name of4 the first field in the table, the link must be bad.pp  %% !' "p`'dp'k`iXx Purpose:7 Gets the directory of the currently open database.02 Based on code originally from Mike Gunderloy.$ From Access 97 Developer's Handbookp"% by Litwin, Getz and Gilbert. (Sybex)1,1)% 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.cli&`]]]GetDBDir', .( (!'*5> *$ .\b * * $ '*_code) *$ 0'$O2z& "S Error# "!6:  "!8 : < ,A@4nic_co2Hn@i8 Purpose:1 Check status of Links and relinks if broken.9 If broken, first try the current database directory.7 If that fails, present user with file open dialog.at$ From Access 97 Developer's Handbook5% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved.jB In:ring s4 strDataDatabase - Name of backend data database'6 strSampleTable - Name of a linked table to checkture Out:call7 Return Value - True if successful; False otherwiseX History:6 Created 09/13/94 pel; Last Modified 12/20/95 pel9JD]]]]]]](]@]X]p]adhVerifyLinks', d% Verify Links using one sample table.s th B$'F s F'>\k9 Get name of folder where application database is located$$'Halog. H @$ ~H* Data database found in current directory. H @'N sd0 Let user find data database using common dialogo  The required file ' @' could not be found.'J J! You can use the next dialog box "to locate the file on your system. $^ $^ $^'J. I J! If you cannot find this file or #are unsure what to do choose CANCEL'Joutgoi J! at the next screen and call the 4local database administrator, or program developer:  $^ $^'J' T J( Washington State Department of Health $^'Jld val J Diabetes Control Program $^'JDa J (360) 236-3738'Jhe J : < ,A@49 Display Open File dialog using the adhCommonFileOpenSave% function in the basCommonfile module% b XAccess (*.mdb)*.mdb$`'Xyright b b d'Z   h Xj ZlLocate Data database filen$f'Ntr N$p new  User pressed Cancel.  -You can't run database until you can locate ' @'.'Jfilt J : < ,A@4'>\dx N$r'N k`kX0Rebuild Links. Check for number of tables first.tr .Led by L!!t'V xRelinking tables V$v'Fbo Loop through all tables.4 Reattach those with nonzero-length Connect strings.Reserv'T P L! !YLVALi- If connect is blank, its not an Linked tableinat P!z :2 T 'Tet ;DATABASE= N P(zut n + The RefreshLink might fail if the new path ! isn't OK. So trap errors inline.h PB@|X If one link bad, return False " '>\kk ~ T $v'F P'>\  $v'F z D "S  Error# "!6:  "!8 : < ,A@4 n8 \0 i( {Attribute VB_Name = "basLinkedTables" ' From Access 97 Developer's Han dbookLby Litwin,@ Getz 4 Gilbert. (Sybex)NCopyright 1997.@ All Rs Reserved.' Option Compare Datae 'Use dorder for sng c1isons GExp licitPub Func1heck}(!~ As S')Boolean > ' Purpose: C$s the,nkKnd Y`len' @Based sc ode fKen/FÃ, c E"In 0 Theı !_.E/#g5dnd@)E eikDBDir(bijcSiidirec?($c ly n&ko inal@blMike Gun loy?m0#' ?mc?mE=C+mNonfajN"&G(as a/jj12/2j5jfGoT~o"?OCndbdXAoDAO.CADb"&Proc څOcSetφHjF= fi#Do WhileC$o#, 1r)m"\= LeftLejn) 1L8oop&tUC`( D@D +10Exit iutSel}6 QPsZAMsgBox "@or#" &.Num ": 5Descri|, _ vbPOKOn@9+Critical,)TXG3 H~adhVerifyAOrS''(I SampleOs Integer%_L1sbstatusKbI‘re^s obrokenK [S, btryO=that fAis, prnt u withP+SialogC' OPOPOP韑OP#'4&- r@ofrc`d !6a rx?/+ ???' V ??V +>-`9)TӃTڎVz/c>mx DBQ[QFQm tdfU'intI6QFs_`P ЙlngFlagLong9ekP^s ' sE5rs6iX sDD6gQAA`Fb]q@ۛaי"x;a RIT U efolqwheapa҆is lo~cp~pUZ(P  (`k&&^< 0g+ 1G ";DATABASE=(ISV'f 9h! Pmigh0|a06ife new pathisn9OK. So trap err@ors in e 1On Esume N{q Re@3 " bad, r%7 <o;o;;s;A 7 00Up e0.! P%w^ ` :Oxt/ & Rem|ov# f1Exit F{_DSelq6CaP/OX"0or6#+.F!J& &"1De ipAl%c Rfe2) Y )"ONpN9NMMgʃ@ʃ@ PROJECT,($ wfʃ@ʃ@PROJECTwm0,( wbʃ@ʃ@dir$  weʃ@ʃ@_VBA_PROJECT62. w`ʃ@ʃ@ZRIKTMHBAXYJRDBRECDT_SOVGIIEVRN w;ʃ@ʃ@NQTLAXIPFWCMQDHIQIZJ_APZGSM_VRN wݦʃ@ʃ@c// DTEGXFCTQOOLRDVYDSLALYIGVDEBb^Z" LVAL 4PIhxMEPS<S<S<<<< << (oXeeRN0{30BE3D6E-CADF-11D6-9A87-00AA002AB2F7} p_ X % xrror % L fil% S eg% %% %`1912`&ea`mult`DPr`reco` res``to c`dire`w la``` ``````%```````, &iiLiatchi  -- H`Cl`Cl`HL7x%Pxpx  " 2 .P T L ,( JX L L H &h     (08@ HPX`hpx,   L @ X p     * *0 <` : , $( P   $h 8  $$ 0P$p$ ""0P px  * N ( j0 X     ( "@ "h ,  *   T Th T T Np  T N( $ x T T *8h\ 2 (08 0@ p       @ LVAL5*  (8 @ `  x"    (  8 HX h      ( ( 0 "@ Hh < H P8   "  (8@X ` x       8 H  XhXx -   "08h(p       "  0$8` h    &x @ L L0 ,  T R( > J   N  Vphh   @n   ( 8 f@ 8B ! ""    " ^0" @","  2#  8#X>H#% % (% & &  0&(' 0' ( 0(@(  &H( Bp( ,( () ) )(*++ ++  +(+8+ @+B H+ FP+ B+ B+ B(, p, , (, 2, 4- 8- ,@- p-2x-0-  (-.. .(.28.p.  &x... ..Z.0/ 8/@/ P/xp+Works with labcorp internet-based hypersendeA(Program loaded into SAME folder as cdemsMPut downloaded files into subfolder under CDEMS eg.,"c:\cdems\raw_lab_files\"%FFiles named sequentially "{17 numbers}.res" eg. 200111191200026000.dat&each file can contain multiple recordsDProgram counts of OBX records equals number of results in input fileHEprogram links to cdem_dta.mdb in SAME directory and appends new labs.Ealso create a cdems style copy of every tracked lab in the input fileXwith name tblLabs_mmddyy_x On Error GoTo Err_Command1_ClickWh]@]`]]]]]]]0]H]`]x]]]]]]] ]8]P]h]]]]]]]](!new dlk 9/4/01Acce]@!new dlk 3/2/08 eGFR subroutinetwin]X--------------LFchange line below to match extension of lab raw files -- HL7, dat, txtClinicID = "dat"DeClinicID = "txt""HL7'twin---------------ybunk'% CS*$\'ight .L.'''''''to assign the new table nameof the#===================================6 5Creates an outLVAL6put table name (eg., "tblLabs012505_1")`3these need to be manually erased or they accumulate(!tblLabs Z_ $a  'e)tblLabs Z_ '  L%. Create a new TableDef object. " 2 Create fields and append them to the new TableDef object. P clinic_code 75 B@inks chart_number 75 B@f brraw_code 75 B@result 75 B@th service_date 75 B@n di status_flag 75 B@7 Deamended 75 B@ Last_name 75 B@) First_name 75 B@ReservDOB 75 B@ng sage 75 B@ Namq  L!B@'  L%.Tabl#=================================== OHsearches for new downloaded HL7 lab files in SAME directory as interface Hdfilename = Dir$("C:\USERS\PUBLIC\DOCUMENTS\CDEMS\TRINITY\" & "*." & ClinicID) 'this line to path dir$$*. $ ~'/3use this line if raw files in same dir as interface e sa as th$$ 'MsgBox filename+++++++++++++++++++++++++++where ! Open file.$'$b" Loop until end of file.* D " Read line into variable.H @ $PIDKTser  $ $ $  $'coul  $ $ $  $'ocat  $ $ $  $'!  $ $ $  $'tgoi $/ $/ $'trOBRKTgram  $ $ $  $'nt o $/ $/ $'OBXKT  $ $ $  $'g th  $ $ $  $'   $ $' $0C  '2HMsgBox "result/amended result field " & TestResult & "/" & AmendedResult$pk Comment9to capture hdl commentsn't ru'd'k  TRIG. >400<to report uncalc ldlUTP'kx  UTD'XkP ------------ for nget cdems labcodes* *'0SELECT tlkpCrosswalk.raw_code FROM tlkpCrosswalk& WHERE (((tlkpCrosswalk.lab_code)like ' '));'ring  L%.P ! !A"is this lab raw_code in Crosswalk? B@P!z "'2only returns one recordASE= dna' + Tk--------------------- pat na  B@rrors  )8cliniccode='unk' If ===========urn Fa   )>dblank )~ Tk  ===========  )  )$v  ) c ) =========== $  "F ) dH  )8 k0  ===========  )  ) $ X )k B@============================AeGFR module calculates Glomerular Filtration Rate from creatinine5creates a new lab 'eGFR whenever a 'crea' is receivedAthen there is a special update query added below that updates theI value of the crea and returns a correct eGFR value before writing to thelab temp table, dlk 3/2/08 crea  ' B@  )=cliniccode='unk' ===========   )d blank )kLVAL7  ===========  )eGFR )  )c ) =========== $ F )d  )k  ===========  )  ) $ X )"yyyy X$$$mmdd$ Xmmdd$  )k( B@ddon't write a eGFRk============================  '3lab results tracked reportedk  '4total labs reportedS`nX ' B@8V+++++++++++++++++++++++++++ ~'all done' B@dThere were no files found.A@4k L!B@===============================:data now in me.tblLabsXX/xx/xx_x - but has no clinic codesEthis section fills in clinic code and chart number using lastname&dobFdlk 3/3/08 added creation of eGFR variable whenever a crea is reported========[tblLabs Z_ ]'  Mneed to update eGFR result from the reported crea value with the MDRD formulaKeGFR=186 * TestResult ^ -1.154 * intAge ^ -0.203 * sngGender * sngEthnicity8if gender is stored in tblDemo as 'F' (.742 vs 1) and/orDethnicity as 'black' (1.210 vs. 1) the creatinine result is adjustedegfrHrequires the dob being present in the input lab file or eGFR not writtenOthis returns a 'UTD' if sex is unknown in cdems ('U') or ethnicity not recorded0  !')-1UPDATE tblDemo INNER JOIN  ON (tblDemo.last_name =  #.last_name) AND ([tblDemo].[dob] =   .dob) SET  *.chart_number = [tblDemo].[chart_number],  (.clinic_code = [tblDemo].[clinic_code],  A.result = IIf([tblDemo].[sex]<>'u' And Len([tblDemo].[ethnicity]) And Isdate( .dob), Format(186* .[result]^-1.154!*IIf([tblDemo].[sex]='F',0.742,1),*IIf([tblDemo].[ethnicity]='black',1.21,1)*  %.[age]^-0.203,'#.#'),'UTD') WHERE ((( .clinic_code)='unk') AND (( .raw_code)='eGFR'));'  L%. B@non egfr  UPDATE tblDemo INNER JOIN  ON (tblDemo.dob =  .dob) AND (tblDemo.last_name =  .last_name) SET  ).chart_number = [tblDemo].[chart_number], '.clinic_code = [tblDemo].[clinic_code]  WHERE ((( .clinic_code)='unk') AND (( .raw_code)<>'eGFR'));'  L%. B@d_process all records there are no gfr's to update -this is old code before eGFR added dlk 3/3/08  UPDATE tblDemo INNER JOIN  ON (tblDemo.dob =  .dob) AND (tblDemo.last_name =  .last_name) SET  ).chart_number = [tblDemo].[chart_number], '.clinic_code = [tblDemo].[clinic_code]  WHERE ((( .clinic_code)='unk'));'  L%. B@k L!B@Wthis is routine to update the templab table values if clinic is matching on chartnumber:matches on chart_number only those records still unmatched[tblLabs Z_ ]'+updated code to handle eGFR labs dlk 3/3/08  (  !%)UPDATE tblDemo INNER JOIN  ON (tblDemo.chart_number =  .chart_number) SET  (.clinic_code = [tblDemo].[clinic_code],  A.result = IIf([tblDemo].[sex]<>'u' And Len([tblDemo].[ethnicity]) And Isdate( .dob), Format(186* .[result]^-1.154!*IIf([tblDemo].[sex]='F',0.742,1)+*IIf([tblDemo].[ethnicity]='black',1.21,1)* %.[age]^-0.203,'#.#'),'UTD') WHERE ((( LVAL8.clinic_code)='unk') AND (( .raw_code)='eGFR'));'  L%. B@ UPDATE  INNER JOIN tblDemo ON  '.[chart_number] = tblDemo.chart_number SET  ).[clinic_code] = [tblDemo].[clinic_code]  WHERE ((( .[clinic_code]) = 'unk') AND (( .raw_code)<>'eGFR'));'  L%. B@)this is old code before eGFR added 3/3/08d  UPDATE  INNER JOIN tblDemo ON  '.[chart_number] = tblDemo.chart_number SET  ).[clinic_code] = [tblDemo].[clinic_code] WHERE  .[clinic_code] = 'unk';'  L%. B@k===============================<data now in me.tblLab - need to append to tblLab of dta file[tblLabs Z_ ];' 9INSERT INTO tblLab (clinic_code, chart_number, raw_code, 7result, service_date, status_flag) SELECT clinic_code, @chart_number, raw_code, result, service_date, status_flag FROM  '  L%. B@==== All done. $ ^Total patients in input file:   $ ^!Total lab records in input file:    Lab Records in measurement set:   $ ^Records appended:  !  A@4.L.L| "!8A@4op@Steps through a string input looking for character "|" (Chr$124);when the count of Chr$(124) characters found equals section;Start looking from that point on for character "^" Chr$(94);When the count of Chr$94) characters found equals componentreturn the positionInput! instring = the string to parse+ section = the number of Chr(124) to find- component = the number of Chr$(94) to find&Returns the column position as variant]0]H#holds col for desired nth Chr$(124)]`"holds col for desired nth Chr$(94)"find the column of the desired "|"''  a  '  $|$^G  'jfind the col of the desired "^" ''  a  '  $^$^  $|$ ^G  'j 'iAttribute VB_Name = "Form_splash" Bas0{30BE3D6E-CADF-11D6-9A87-00AA002AB2F7} |@GlobalSpacFalse dCreataDblTru Predecla Id"Expose_Tem܀teDerivCustomizD$ Option CompB DV >licitP1"aSubma nd1_Ck() 'Works with labcorp internet-b)d hype rsendProgram lo ad[o SAME folder as cdemsut downfilesA-o subunCDEMS eg.,"c:\A\raw_#_ \@q'Fn@d sequentially "{17 numb@)}.res" 200191026000.da@D'each  can contain m ultip@|re Ad@0;counts of OBX D !@A9:p?ApEMinZtoH_dta.mdb Pditory h app\ s newfs.@e aZ sty-cop"yA evetr8ackgPAthe#B{AR tblLabs_mmddyy_xOn Error GoTo_H ClCDim rstCodzAs DAO.RSe@^  WDBZa%qryN!QuDefFTgfldFielZ 5" 2Sng TextLine)strSQL-g nnicA#IDqLoca}qi/1TestwB,T{R es`ZCollec!5r"Am@X|edW#aKya B@ooleanL2aWFiMdob cnt_xE`"IgertotHLoA&ons Io@d MIny-Qew \'adlk @9/4/01eGFR  &3/2/08 subrout`##PatOX'- 'change libelow `QmatY@6ensmV!L`Zs -- HL7, \, tx4E'3bidY[ -c S7unk4@= 3(83, "*"puSet L= Curr9.DbYbA= 0sJu(J)zu)J(= D(0 asspign c"" n0 qa'= ~'0`u"g (~ "g012505_1E'nek be pgu~er`i0qPrccuP{S B sDo Ul@ CheckZk(" &e`"_)pFv/*+5LooLVAL9p 9" PGr1Q"qi=".k(t%ryB' ЀE objY aWWB1 fAps(m8@҇UG.ts.AF t B("c>ic_c";b3/ ehart_ q_"T#dservice_`Heq_ld("status_flagCzv_!>wdzDOB/$@("agv0'End 1.(DB.E+0SA70?Of 7аoOPsearch@OfJ8pfoATl2derf V![q1 ir$("C:\USERS\PUBLIC\DOCUMENTS\\TRINITYb\qG"*.an)2 `UisvPUpamGetDBDir()ARnuYthif y` sP( pqRa If <> "" Theb Do Until filename = ""  GetDBDir() &\ 'MsgBdox*'+fOpen^ For Input As #1 ' J.b Wh Not EOF( 1)' Loop uend8 of\<&Linee#1, Text' Read linto variab|le D&Select Case Left(), 3)  a"PID PatIDMid.ParseH2, + j( 3 -$-T LastNC52)  Fir'>M3%1)>dob[7<8< <@, /)& "/"A`7}43COBRCColAionDat!~<S-R- RQ!o-"-`2S" ˮp(X(TeU Fe{F@stResult~V Jv6tVc%)Amed"1W1s4If *U0(* )@"C@" ThenQ cnt_@nd400report0~calc l|dl/ !UTP;a Q2c` LenH!(0(C~c$ '- 'get cdems labco4de" C}"*U.0.* s trSQLP$"SELECT tlkpCrosswalk.raw_A FROM" _  WHERE ((( )likeR8 "'] "));  SFC1 DB.QRecordset(#OH .BOF Ap?J;is th@ in F?O Move‘qType' %!v 'o@nly reCns orA1H"na1,QL+<> I?I9OQ.A`ddNew![cic)]~CQ$` /=`'unk''~=PFB) > EQ7 hart_number Q_ "blankovq R OQ3GR40service_>d`!ˢtatus_flagq"co bHIsEmpty=Orn ;$ F ?  rst![amended] = APResu0lt (End If6'=BFi_nws N 1Last0 /EIf IsDate(dob) ThensRNC"8.Up~dO eGFR module calcul/s Glomerr Filtration R from creninees a new lab 'wTever'' is receivedJt re a special uB query ad@ beHlow atDs value of4 a@return.cdor&t B. befo!writing toA=temp table, dlk 3/2/08$STypeTes*t"M" c(nt_-=+ 1AddNew ![clinic_codeB_CW'='unk' ?b Len(PatID) > 0`har@umberB8ElsZ "blank"9 b !r"Ba aw9"F"servic e_ACollecA status_flagy"c ""@DIsEmpty(`) Or G=H %"FyG '$$?bHbu? f6s<vχBagrJDiff("y", 7{, Now()) + _O Int(Format(, "mmdd"p) < t)' * 'don't lex??Q ߱(_0c0kvordspnk tO0}rackedportVq ptot'CaseR SeQxtxtCn|QMe.@RepainLoopClor#}'+fileA0Dir"v"all = eMaMMsgBox "0"e@no s found.u# DB.TqPDefs fh`&/## 'fin me.tblLabsXX/xx _x - but haLs  csithscj l\s `HŸc n us1l`&GAR3P4ⱀ14`ri ȮA$6PP%strInput% e"[" & K`"_r#!s!]TPU2_'ne3db?535Ӱ#withQ MDRDyrmp 0 s=@186 * ^ -1.154#P`,Age0.203sngGErEth ityXif g#5at@dDemo 'F' (.742 vs 1)/o.q O e ck1.210 .11!RdjusE'egf requiB@"Pq#p e`>P&aiQ2 orcnoXt'*'UTDf s ex pnown,dems ('U')26cNQ &SQL%UPDATE INNER JOIN &s̴trInputFile _ & " ON (tblDemo.last_name =d& sV) AND ([].[do b] &) SEBTjcharupmberWi ],Hlinic_xcodp# #r esultDIIf{sex]<>'u' And Len eth=ity])"Isdate("V .,Format(186*[S]^-1.154*/='F',0.7p42,1N) 4='black',P1.21@*b[age&0.203,'#.#'),'UTD') WHERE ((OB .cl)='8unkBPraw~ eGFR'));"GSet qryNewu@DB.Cre@cQueryDef("",SQL) .Execu teG'non egfr@"UPDA5LVALETE INNER JOIN]O쀆MJt _}GI}u".r`uV<u%G!iF.G |H% '=G_J_J ElsK'process all records there a`no MB'@o up! @-this @old Bbefo` added dlk 3/3/08?U?Uc!-?UB?U4ˢA@]@{J?U#?Udś&4LnL_K EjIfSVAPTable PsP.Refeh'E%routine t&( tem@plab t value (f (kching RCn} M_ly.oDse/sti0uzn#d1HLhabs!GD]R"B_cnt_B s}!]aC43@hand@3s3sIb> 0 Then?`5o#5 Wq }UX/2?]W-D*]l.o! bI" =aoDAAx]3 R ~.oo?;JuEVoooooGH1 ` 2onCT A`DB@_NothingU Exit_Command1_Clic k:C A Subd @ rr gErr.DescrPipti!Rm|e P@PrivFunc Parse( inK` As xStr _#@IntegafcompCnt)aVariant'Steps through a DlookA ("ra +r "|" (3124DU 'whene cou@7 's fd equals? ~" &rom atP poi n`rQ^" B 9fWr6f$dreturposig6'b0=&퀩pa4s`Q? NPthe Ù #(á'!find'6C j$( hDRB!9a0lumn 'C as v>CDimC 'holcolb1desirnth#1AA }E2i]'",A@')E Q7`,1= 4#Do Until= O(F + If Midfo,f+, 1)  Q9TaPLoopc*!B^2 # \- 2 //on28'xOr3h@iq@ rN2CQuPW1{)ʃ@ʃ@'g3 VVDJFFHEXAYBIELZEVZMHBADRENFb^Z" {)ʃ@ʃ@ @?NQTLAXIPFWCMQDHIQIZJ_APZGSM_b^Z" LVAL >lP P,X %h:|VprGetOpenFileNameAEV<igGetSaveFileNameAVd(CommDlgExtendedErrorxMEP(<,<< <,`.ndbo`0twin`2(Syb`Xrror`4ACC`63`8-c`:eG`<cd`>`@`B7 De`D`ltz a`F`H7. A`J`L`N O`P+R`8  )TXame %+X ( )T%+ZP H\LH^L8HbLHdLH`LHbLk 9/HdLneHfLbrouHhL--HjLHlLHnLHpLHrLHtLHvLHxLHzLH|L+fx ^il 0i~ Pij pi i i in ih  T(%``>` +`iXii +rXi`h  * ,8 ,h   (08@HPX H`HpH            ( 8 HXhx BL* < 8( $`  * , ,   ( F8 : : 0 >0 <p F , >( ,h :  < (08@ (Hp  68"p >     (  0 @  H X ` h p LVALh0* pHd paml1 @8= Vh 1@LI J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\system32\e2.tlb#OLE Autom`ation`mVBIDE> VBIDED!DE157D5.3DProgram Files\@CommonMicrosoft Shared\(VBA6E6EXT.OLB#Visual Basic for Applicbs Extensibility ?WDAO>DAOh h4AC9E1DA@-5BAD-@7-86E3-24F4CDCECA 28}#cVPROGRA~1\C OMMONMICROSOFFICE12\ACBE.DLL/Office 1i Access database engine Object Library'"h@@ Lin@kedTab@VGasLink(dT@bsFGLYVQBBZTZBEEKKJYOBKXMBNEFLH28AGYVQBZ@Z@EKKPJYPB@XMNF@ AH@1"%,0(7!B+B Form_splashGrm_3p/5h0WWYYWBDSSDUGZDSAZBTIHNDOWEGI0WW(Y@BSS@U5ZBA4B4I*N@O E@I# I`r(``2jE(xecb1Auzo$x`2cDCHHSTIIEKAWHESDYHDAELOXFCDC@HUT qIKWW`EBY YE`/8OX090 #tuRGCC1mu1oKFKINCARTBNUIWSZCEACTLHNKDFXA(GFGNAR .BNU@WZECLNIDFA`1F`% :b2LVAL^ 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 HandbookAAC% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved. filXP^^0^H^`^x^^^^^^^ ^8^P^h^^^^^p`]$]$ ]$8]$P]$h]$]$]$]$ry:]$reat]$ pel;]$@ed 1]$(]$@]$Xdb]$p]$]$ a]$ )  !'-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.x$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved. In:@ Flags: one or more of the adhOFN_* constants, OR'd together.4 InitialDir: the directory in which to first look4 Filter: a set of file filters, set up by calling) AddFilterItem. See examples.8 FilterIndex: 1-based integer indicating which filter5 set to use, by default (1 if unspecified)? DefaultExt: Extension to use if the user doesn't enter one.& Only useful on file saves.7 FileName: Default value for the file name text box.& DialogTitle: Title for the dialog.3 OpenFile: Boolean(True=Open File/False=Save As) Out:6 Return Value: Either Null or the selected filename]]0]H]`! Give the dialog a caption title. ~$G'~j j$G'jj $G'j l$G'lj $G'j $G'j n$G'nj h$G'hjB0 Allocate string space for the returned strings.am $\$'  $\'>#==7 Set up the data structure before you call the function d T T9.files !90ctor j9X 98 9: 9<name = >9> >9@BLIC\D n9D l9l 9J L9B1 Didn't think most people would want to deal with these options.e 92$\94same d969Nq1 This will pass the desired data structure to the3 Windows API, which will in turn it uses to display the Open/Save As Dialog. h T$R'l dH T$X'k04 The function call filled in the strFileTitle memberTser 4 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 theat4 structure to get information LVALt{h9xME`   -` (Pr t{h9xME`   -` (Pr 5  * ,8 ,h 2 B   *  ,P ,       < X ` $h      (J0  $ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved. fil)Use database order for string comparisons%  Purpose: Do all startup duties$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved. In: None Out: Return value: none History:5 Created 09/14/94 pel; Last Modified 12/20/95 pel"]@ cdem_dta.mdbtblLab$>' varRet = adhInitAutoNum()' d8' k($  $v' &B@(z" "S Error# "!6:  "!8 : < AutoExecA@4nx$pih`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 Y >?Id LValueObjectGuidObjectNameProperty Value, ?>, ?>,DE>? , ?>, ?>,DF>? , ?>, ?>,DG>? ,YYYId$ObjectGuidProperty$ObjectNamePropertyDHv1b@  C C C>YNII Y Y Y  Y  Y ,>Y >?Y ?  Filter FlagsIdNamePosition SelectedObjectIDType ?>, ?>, IK,>? YIdv1aHuCustom ^Tables "w VHJJJ RY NMM  Y Y Y  Y Y ,>Y >?Y ?  FlagsGroupCategoryIDIdName"Object Type GroupObjectIDPosition ?>, ?>, MO,>?  ?>, ?>, MP,>? YYGroupCategoryIDIdv1@@s L yL|O"  w w  w  w  wCustom Group 162.*  w w w w w w w L @ N N N N NNNNNNNNN L @ NNNNNNNN N N  N N N  Y]NRRY Y Y Y  Y ,>Y >?Y ?  FlagsGroupIDIconIdNameObjectIDPosition>, ?>, ?>RT? ,>>, ?>, ?>RU? ,>YYGroupIDIdv1 1 QyLk> ]  \ o[ o Z  o ( o " o  o  o  o  o  o  o o o o o Q @ @SSSSSS S S SSSS S S S  Q @ @SSSSSSSS S S  S  S ZS [S \SRY(-cdeNWWY d Y RY  IdNameTypedvV(h=}0 k " e  a @  q B  ` ) a2tlkpCrosswalk$ tblLab tblDemoVMSysNavPaneObjectIDs2.QMSysNavPaneGroupToObjects<8LMSysNavPaneGroups,(HMSysNavPaneGroupCategories>:CMSysAccessXML$ )MSysAccessStorage,( basLinkedTables($ basCommonFile$  basAutoExec  splashUserDefined SummaryInfo AccessLayout "SysRelScriptsReportsModulesFormsDataAccessPages($'MSysComplexType_Attachment>:%MSysComplexType_Text2.#MSysComplexType_Decimal84!MSysComplexType_GUID2.MSysComplexType_IEEEDouble>:MSysComplexType_IEEESingle>:MSysComplexType_Long2.MSysComplexType_Short40MSysComplexType_UnsignedByteB>MSysComplexColumns.*MSysRelationships,(MSysQueries MSysACEsMSysObjects MSysDbRelationships$ DatabasesTablesOvcP=*z @ -  } j C 0  m Z G p]I6#"q]J7#s`   7apAnryb#X0$-G9 а&[ް9p*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp    7apAnryb#X0$-G9 а&[ް9p*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp  ! ! 7apAnryb#X0$-G9 а&[ް9p*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp ! # # 7apAnryb#X0$-G9 а&[ް9p*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp # ' ' 7apAnryb#X0$-G9 а&[ް9p*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp '   7apAnryb#X0$-G9 а&[ް9p*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp  T 7apAnryb#X0$-셒3C\Fp*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp  C 7apAnryb#X0$-G9 а&[ް9p*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp C C 7apAnryb#X0$-셒3C\Fp*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp C ) 7apAnryb#X0$-G9 а&[ް9p*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp ) ) 7apAnryb#X0$-셒3C\Fp*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp )     7apAnryb#X0$-셒3C\Fp*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp       7apAnryb#X0$-셒3C\Fp*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp       7apAnryb#X0$-셒3C\Fp*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp       7apAnryb#X0$-셒3C\Fp*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp      7apAnryb#X0$-셒3C\Fp*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp     7apAnryb#X0$-셒3C\Fp*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp      7apAnryb#X0$-셒3C\Fp*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp     7apAnryb#X0$-셒3C\Fp*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp     7apAnryb#X0$-셒3C\Fp*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp    7apAnryb#X0$-셒3C\Fp*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp      7apAnryb#X0$-셒3C\Fp*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp     7apAnryb#X0$-셒3C\Fp*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp      7apAnryb#X0$-셒3C\Fp*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp  .LVAL>ʾtblDemoCreate query in Design viewbasAutoExec e^3LVAL @ MR2ANSI Query ModeAccessVersionProjVer"Show Values Limit,Show Values in Indexed4Show Values in Non-Indexed*Show Values in RemoteStartUpForm&StartUpShowDBWindow(StartUpShowStatusBar$AllowShortcutMenusAllowFullMenus(AllowBuiltInToolbars&AllowToolbarChanges$AllowBreakIntoCode AllowSpecialKeys6Track Name AutoCorrect Info0Perform Name AutoCorrectCpgConversion BuildNavPane ClosedNavPane Width NavPane Category*NavPane Category NameNavPane View ByNavPane Sort ByHasOfflineLists8   09.50       splash                       FMR2ANSI Query ModeAccessVersionProjVer"Show Values Limit,Show Values in Indexed4Show Values in Non-Indexed*Show Values in RemoteStartUpForm&StartUpShowDBWindow(StartUpShowStatusBar$AllowShortcutMenusAllowFullMenus(AllowBuiltInToolbars&AllowToolbarChanges$AllowBreakIntoCode AllowSpecialKeys6Track Name AutoCorrect Info0Perform Name AutoCorrectCpgConversion BuildNavPane ClosedNavPane Width NavPane Category*NavPane Category NameNavPane View ByNavPane Sort ByHasOfflineLists8   09.50       splash                       FMR2JOrientation FilterOrderByOnDefaultViewGUID8DisplayViewsOnSharePointSiteTotalsRowFilterOnLoadOrderByOnLoadHideNewFieldColumnHiddenTextAlignAggregateType N F([tlkpCrosswalk].[type_code]="Lab")   xkB'CfQ~      :raw_code      <type_code      Bworking_code      :lab_code      MR2( ReplicateProject MR20 Title AuthorCompany labcorp18 0Diabetes Control Project0 (Department of Health9-vcO<)   x  w d c P O < (xeQ>+  7apAnryb#X0$-셒3C\Fp*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp    7apAnryb#X0$-셒3C\Fp*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp      7apAnryb#X0$-셒3C\Fp*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp     7apAnryb#X0$-셒3C\Fp*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp    7apAnryb#X0$-셒3C\Fp*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp   T 7apAnryb#X0$-셒3C\Fp*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp  V 7apAnryb#X0$-G9 а&[ް9p*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp V V 7apAnryb#X0$-셒3C\Fp*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp V Q 7apAnryb#X0$-G9 а&[ް9p*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp Q Q 7apAnryb#X0$-셒3C\Fp*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp Q L 7apAnryb#X0$-G9 а&[ް9p*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp L L 7apAnryb#X0$-셒3C\Fp*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp L H 7apAnryb#X0$-G9 а&[ް9p*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp H H 7apAnryb#X0$-셒3C\Fp*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp H   7apAnryb#X0$-G9 а&[ް9p*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp  % % 7apAnryb#X0$-G9 а&[ް9p*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp %   7apAnryb#X0$-G9 а&[ް9p*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp    7apAnryb#X0$-G9 а&[ް9p*K fgP1wNMfN/7Q6$A#N,jܣHrD?ٖdzBp MVrJ@rJ@ MSysNavPaneObjectIDs4MR2KeepLocal  TJJJJJJJH @H|3rJ@|3rJ@ MSysNavPaneGroupCategories4MR2KeepLocal  TVVVVVVVT @LVAL_about the chosen file.$. In this example, if you bothered to pass in a 4 value for Flags, we'll fill it in with the outgoing Flags value. l$G T!l'lj T!:$r'fOBRd0'fk ix' Tack a new chunk onto the file filter. o< 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:HMsgB& strFilter: existing file filterlt &- strDescription: new filter description9 varItem: new filter Out:$ Return value: new file filterto r $G*.*'j X    '`PiH5 Trims the Null from a string returned by an API call$ From Access 97 Developer's Handbooklk&% by Litwin, Getz and Gilbert. (Sybex)'% Copyright 1997. All Rights Reserved. In: !4 strItem: string that contains null terminatorP!z Out:28 Return value: same string without null terminator]x  '--     $'rdx 'rkhi`XAttribute VB_Name = "basCommonFi@le" ' From Access 97 Developer's HandbookLby Litwin, Getz 4 Gilbert. (@Sybex)NCopyright 1997. All Rs Reserved.' Option pare PDataeExplicit Type tagOPENFILENAME  lStructSize A@s LonghWndOwner Instancэstrt*i$ CustomnMaxCN IndexD8C7'PeTitl InitialDiBCM7Flags,OffsetAIntegerD\Extensvc!Def lOAH.`lpfnH@TemplateEEnd AADeclFuncšadh_apbiOpe+Lib "comdlg32.dll" _@4Alias "L A" (Xofn$ )Boolean Savew#I C6lmDlgb3dedErrory (0 Pu.b@p@tf 'OFN_READONDLY&H1sOVERWRITE@PROMPTB2SHIDEJ 4NOCHANGE(DIR 8SH@OWHELPb10u VALIDA TEALLOWMULTISE(LEC0EXTENSIONDIFF`N4PATHMUSTEXISC8UAK10uC) /VSHAW TNO>RET8URNTE|ST!NETWORKBUhTTO 2LONGAS" TEXPL`DFY P6CELINK# bT k  ݡnoy("Cal ByRef Variant,V@ 9@_nBSViç0[aultt[fpnYhogVgZUt2Jq^a' This the entry point you'0uso c>a!^k' E Pn/sY d .0e Љ s dlistedubw,ˁoralP O"' d?$In: ': on$e 0amoof" !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++:P value f e :textP boxDG::> :1e:: (True=a @e/False=1Pe !>spa-r2( &50e#= Left(F & "(256, 0), 4.tS%=7 SԻ@NQ9d PuXbe ealkf=Wp2/a.lSStructSize = Len(ofn) .hWndOwnerxApplication\Access*^strFilt^ 8N"Inde>xAKenamenMax9$ TitlJK(Dialog&Flagsk (DefExtÀ ault Init*DiHCur ' Didn't think most peopmwould wano deal withth@ese ops. .hInsthancAH0@,CustomCh-ing(255, 0IEAc F HlpfnHookEnd W( ' This,ll pass8e1sired `data @#u`re toA Windows API, whichCin turn it useEisplayED Open/Save As@WgtFCIf4e@'enCfReso3adh_a`piGetA NElsA3@HIfGe funco caaIfill@G:heGAmember,' ofSFP. You'@h>Swrit pecO codD'a-retrie $tha$ LVAL4 t 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 {)ʃ@ʃ@3< ZRIKTMHBAXYJRDBRECDT_SOVGIIEb^Z" p LVAL ID="{86C5A3CE-D625-4813-B40D-EC5D3926B77D}" DocClass=Form_splash/&H00000000 Module=basAutoExec Module=basCommonFile Module=basLinkedTables Name="paml1" HelpContextID="0" VersionCompatible32="393222000" CMG="AEAC5C176C29F12DF12DF12DF12D" DPB="3735C5AEC7BE51BF51BF51" GC="C0C232B533B5334A" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Form_splash=22, 22, 820, 673, C basAutoExec=46, 46, 782, 513, C basCommonFile=0, 0, 0, 0, C basLinkedTables=46, 46, 782, 515, C b0* pHd paml1 @8= Vh 1@LI J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\system32\e2.tlb#OLE Autom`ation`mVBIDE> VBIDED!DE157D5.3DProgram Files\@CommonMicrosoft Shared\(VBA6E6EXT.OLB#Visual Basic for Applicbs Extensibility ?WDAO>DAOh h4AC9E1DA@-5BAD-@7-86E3-24F4CDCECA 28}#cVPROGRA~1\C OMMONMICROSOFFICE12\ACBE.DLL/Office 1i Access database engine Object Library'"h@@ Lin@kedTab@VGasLink(dT@bsDTEGXFCTQOOLRDVYDSLALYIGVDEB28A@ EG@XFCQ@LO@R@VYU@S@AY@G4V@E@A"H@1".%,07ي!B+B Form_splashGrm_3p/5h0VVDJFFHEXAYBIELZEVZMH@nRENF0V$J/F#E2A-E-ZVZMBDRM@NI`(`C`2jExecbQ1Auzo x`2cNQTLAXIPFWCMQDHIQIZJ_APZGSM_NQ/L@X,PW1MD@*IIJ$AP GS_<090 #tuGCC1m1oKFKIZRIKT/XYJRDBRECDT_SOVG(IIEZ+IVK@%.X1JDFa/CHTSM*VOIE%:b2)ʃ@ʃ@f@adir0,(" LVAL dam  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#C:\Program Files\Microsoft Office\Office12\MSACC.OLB#Microsoft Access 12.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\system32\stdole2.tlb#OLE AutomationZ*\G{0002E157-0000-0000-C000-000000000046}#5.3#0#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB#Microsoft Visual Basic for Applications Extensibility 5.3:*\G{4AC9E1DA-5BAD-4AC7-86E3-24F4CDCECA28}#c.0#0#C:\PROGRA~1\COMMON~1\MICROS~1\OFFICE12\ACEDAO.DLL#Microsoft Office 12.0 Access database engine Object Library 1LI h8DTEGXFCTQOOLRDVYDSLALYIGVDEB0G4baf0febbasLinkedTables7"8VVDJFFHEXAYBIELZEVZMHBADRENF0H4baf0febForm_splashI8NQTLAXIPFWCMQDHIQIZJ_APZGSM_0I4baf0febbasAutoExec908ZRIKTMHBAXYJRDBRECDT_SOVGIIE0J4baf0feb*basCommonFile:H%h0H>jpSFJRrKQƦI-7Ge@A爔jDtD6#,6$DAccessVBAWin16~Win32MacVBA6#paml1stdole`VBIDEADAObasLinkedTablesd _Evaluate CheckLinkZstrTablervarRet CurrentDbS TableDefs%iFields7ErroGetDBDir GetDBDirErr dbCurrent= strDbName strProcNameƣRight UCase5  GetDBDirDoneMsgBoxRNumber- Description vbOKOnly vbCritical+}adhVerifyLinksstrDataDatabase6strSampleTableadhVerifyLinksErrd varReturn`DstrDBDir#strMsgG&DB\ varFileNametdfTableDefmintI\ intNumTablesIX strFilterӥlngFlags adhVerifyLinksDonemChrK~adhAddFilterItemadhOFN_HIDEREADONLYXOadhOFN_NOCHANGEDIRadhCommonFileOpenSaveOpenFileFilter;Flagso DialogTitle߄IsNull adhTrimNullCount0vSysCmdGacSysCmdInitMeterm!Connect\ RefreshLinkntacSysCmdUpdateMeter acSysCmdRemoveMeter Form_splashgCommand1_ClickVrstCodes RecordsetrstqryNew{)QueryDeftblNew[fldNewField3filenamejTextLinestrSQLF ClinicCode[ClinicIDă LocationCode:TestCode%TestNameTypeTest< TestResultCollectionDaLVALte AmendedResult ResultComment3LastName FirstNamedob cnt_records?cnt_totrecords cnt_personsd cnt_filesS cnt_tableswp cnt_amendedu strInputFile cnt_errors;9cnt_eGFRPatID^ CreateTableDefj CreateFielddbText dbDate= dbIntegerb OpenRecordset|EOFParseBOFy MoveFirstNraw_codeK=AddNewa clinic_code- chart_numberSresultur service_date status_flag IsEmpty amendedw First_name? Last_nameIsDate2UpdateagegsDateDiffNow%txtCntRepaintRefreshCreateQueryDefzNExecuteYvbLfT%RecordsAffectedP vbInformationnExit_Command1_ClickiErr_Command1_ClickinstringYsectionG component"cnt+position position2j basAutoExecHAutoExec AutoExecErru AutoExecDone1DoCmdƧ Hourglassb basCommonFiletagOPENFILENAMEy lStructSize/r hWndOwner hInstance strCustomFilterژnMaxCustFilter` NFilterIndexcstrFile XnMaxFile strFileTitle nMaxFileTitleym strInitialDir/(strTitle nFileOffsetInFileExtension9 strDefExtHA lCustData'5lpfnHooklpTemplateNametadh_apiGetOpenFileNameHofn) comdlg32.dll?adh_apiGetSaveFileNameCommDlgExtendedErrorsadhOFN_READONLYadhOFN_OVERWRITEPROMPTadhOFN_SHOWHELPیadhOFN_NOVALIDATEadhOFN_ALLOWMULTISELECTJadhOFN_EXTENSIONDIFFERENTf4adhOFN_PATHMUSTEXISTVadhOFN_FILEMUSTEXISTFadhOFN_CREATEPROMPTadhOFN_SHAREAWAREiadhOFN_NOREADONLYRETURN2adhOFN_NOTESTFILECREATE;adhOFN_NONETWORKBUTTONadhOFN_NOLONGNAMES.WadhOFN_EXPLORERzadhOFN_NODEREFERENCELINKSXadhOFN_LONGNAMES InitialDir1 FilterIndex˟ DefaultExty strFilenameefResult IsMissing Application* hWndAccessAppstrDescriptiondvarItem vbNullCharYstrItemintPosrx  +H)ʃ@ʃ@c _VBA_PROJECTB>:" )ʃ@ʃ@@.PROJECTwm<84" )ʃ@ʃ@ @aPROJECT840" )ݦʃ@ʃ@ AcessVBADataNJF.