Standard Jet DBnb` Ugr@?~1y0̝cßFNc7=ܜ(s.`4 {6߱lC73Ty[-|*|I{2f_Љ$g'DeFx -bT4.0 dv YMSS  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 OwnerParentIdRmtInfoLongRmtInfoShortTypeni\-YYIdParentIdName        OYOSY Y Y  Y 2ACMFInheritableObjectIdSID YObjectId Y MSS Y  Y Y Y  Y  Y Y  Y AttributeExpressionFlagLvExtra Name1 Name2ObjectId Ordernzf edY"ObjectIdAttribute -YMSSY Y Y  Y  Y  Y  Y  Y ccolumn grbiticolumnszColumnszObject$szReferencedColumn$szReferencedObjectszRelationship   YYYszObject$szReferencedObjectszRelationshipYv1b N  : k & W  C t/  <@@   @   kf^JkWLJkJomdQuQMLJkMd``dbSY^QLJk^Yb\QOmJL^QkOJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^Qk`kvkJMMQkkdL[QMmk`kvkJMQk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkhoQiv8mL^OQ`dmL^^JLm^\fMidkksJ^\JMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQO6  @ @ @          Y  @ @ @ @ @ @ @ @ @ @444444444 4 4 4 4444444444444$4% 4& 4' 4( 4) 4* 4+ 4, 4- 4. 4/ 40 41 4C 4D 4E4F4G4H4I4J4K4L::494:4;4<4647484=4>4?4@4A4B424344454444 44 4444!4"4#N  @  1 1 1 1 1 1 1 1 1  1   0d _ Z g  ~ ) }  Nx rxN@xN@ tlkpCrosswalku@3tlkpCrosswalk @-@8zzznbbbHH<: eN@N@ tblLabu@3tblLab,ƐRRRRFFF::., %K@K@ tblDemou@3tblDemo*VVVVJJJ<<0. % PO@O@0Query1uo@8@@9F::......., @|g @ @MSysAccessObjectsuDDDDDDDDDDB  /~q @} My@basLinkedTablesud@8LLL@@@@@@@> @ J~q @} My@basCommonFileuj@8HHH<<<<<<<: @ S*~q @} My@basAutoExecuf@8DDD88888886 @  ۋwq @} My@splashu..........,  6 @6 @UserDefinedu88888888886  6 @6 @SummaryInfou@8DDD88888886 @ !@xH@AccessLayoutu4MR2KeepLocal T#5szz:::::::8 @' @' @SysRelu.........., ' @' @Scriptsu0000000000. ' @' @Reportsu0000000000. ' @' @Modulesu0000000000. ' @' @Formsu,,,,,,,,,,* j\Ly@j\Ly@DataAccessPagesu@@@@@@@@@@> Z' @Z' @MSysRelationshipstDDDDDDDDDDB Z' @L\M@MSysQueriest88888888886 Z' @L\M@MSysACEst22222222220 Z' @Z' @MSysObjectst88888888886 Z' @T My@MSysDbu@8:::......., @Z' @Z' @Relationshipst<<<<<<<<<<: Z' @Z' @Databasest44444444442 Z' @Z' @Tablest..........,  Y,ȕklN,Y Y DataIDx\0YAOIndexv1K[ (0ctLLS@LL\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\` P\MSysAccountsbxaK[ࡱ>  , !"#$%&'()*+./012345789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijmnopqrstuvwxyz{|}~Root Entry pvA3VBApvApvAVBAProjectpvApvAVBApvApvAdir __SRP_0__SRP_1Pm__SRP_2 Z.  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOQRSTUVWXY[\]^_`abcdefghijklmnpqrsuvwxyz{|}0* pHd paml1 @8= Vh @JiF J< rstdole>stdole f%\*\G{00020430-C 0046}#2.0#0#C:\WINNT\Sys@tem32\c2.tlb#OLE Automation^!DAO>IDAO@ @5E01@5@Program Files\CommonMicrosoft S@hared\;\dao360.dll# 3.6 Object Library HVBIDE> VB@IDE\ \E157 \3CN).VBA\6E6EXT.OLB/Visual Basic for Applic]s Extensibility 5.3+š h@basLinkedTDabTGasLink@dT@bBsXHJBZEFTXIQHUDNYYYZFJJGHTKCC28APHJNZ@NFU@X@QQURNDYBZFJGTKC@A1B8+%@΁,q0b!Bf3G*2Cmm@ni21SWUELJIGRNFAQDZFDCZIFAZODGIE1SWU0L*I*RNXAQ1/D,ZE6FZO@GM@EI15(` hExe0cGAuxo@x`2c0GKZMFUNAVWJFYDOVXGQMBQRDPQOFJG*ZMU@AVUJY@OXUQB@R`Q200 fForm_splashF /r/Z_Jp/KhOZFLAAMHQJWYWDXBRTHPNUWONOB$0O,L+AHJ@Y`(DXLRKHPU`OO10K"@,\3I"K*mrU~~~~~~~~~~~~~~~~~~~? I-y;rzLz  a q 9 Y K[y a q iyYAya q Q A 1  )  !IbasLinkedTables basCommonFile basAutoExec Form_splashpaml1F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA a `J_N? 3C:\Program Files\Microsoft Office\Office\MSACC9.OLBAccess Y p0FC:\WINNT\System32\stdole2.tlbstdole a^F=C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dllDAO aWFCC:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLBVBIDE y1dFCur* h3oEmzB$|*y7P)>Dx?2TAC7?Label231?Form@C7?txtCntSC7?DetailEC7?Command1Label0 Form_OpenCommand1_ClickParseConvertUnixFile TAutoExec fĤIx8<ɤs h)aN? `GXGP Error# : VBE6.DLL     S  cdem_dta.mdb tblLab CheckLinkGetDBDiradhVerifyLinks AutoExec adhVerifyLinks &The required file ' *' could not be found. B You can use the next dialog box  Dto locate the file on your system. B If you cannot find this file or  *.mdb Fare unsure what to do choose CANCEL B at the next screen and call the  hlocal database administrator, or program developer:  P Washington State Department of Health 6 Diabetes Control Program (360) 236-3738 Access (*.mdb) ,,LL, $,0<Hadh_apiGetOpenFileName comdlg32.dll GetOpenFileNameA 0adh_apiGetSaveFileName GetSaveFileNameA PCommDlgExtendedError CommDlgExtendedError padhCommonFileOpenSaveadhAddFilterItem adhTrimNullSm. 2Locate Data database file ZYou can't run database until you can locate ' '.qm.m. Relinking tablesIm. ;DATABASE=     `   0 Km.Qm.zrU~~~~~u    A  (  8 IHCancelinstringsection compoK[nentUnixFileDOSFilestrTablestrDataDatabasestrSampleTableofnFlags InitialDirFilter FilterIndex DefaultExtFileName DialogTitleOpenFile strFilterstrDescriptionvarItemstrItemrU 0  9 1 Y Q @4Aaivvv@8 @<xxx@@ 1ppp@ DIqtttI@HAarrrdWHd dUpv5d\ `` l\qX`lX j `$ `` `x\ `` H LL ,''xM4@l\#T*#P*#DlH*Fd 2TPDH)`L6d ( x0 TPHD`Ld0   0   0   8D@rU T(__SRP_3o__SRP_4 tt__SRP_5~g__SRP_6 x`0&$A` 8`9Q0&&/0` q00/nrU~|  9 1 Y Q TK'CTTCXX DD\2XT \D cDlP fDlK$$'4%'D%$ |$\ fD% $ ` P K   lq }     ,'':D N l#X*#T *# l*F$ 2XT ) 6$ RT, l\4 XT  $krU $`nrU~| * y) A A A)aK[Q  YI9 i9 Y  Kk04(8%HL FP%`d$ d D` 0'L `!H 0(4 ,)>0F h) d`LH4$ #dd $ldpzpz`( h(0d`LH4 0 x  KSC@l (h h7pz" 1d'ld *F #?/5}ld *FL *#*1`/gl`*#*F      `1`/6l` *# *1`/Ol` *# *F    `1`/6 -l`*F  `1`6-l`*F  `1`6 l`*1`)''@M@`M(@ 6':(NC<  1@\ D@ k>pD@)kDD%:( %$ |hpF@\ DQ@[8H4!H (!lJ/ kFpF :("LH ,!/5K H l!$0 #@@ $l0@pz"*'%kFD(%$ |h H4!YpzK$'%'(%$ |hK0 #@@ $l0q,@x0 #@@ $ #$$ ,$''@M(@%l0#*#(&*#l *F 2( )@$6 " `L 4 84h<H@`L\d@ ( @$arU (`0$`,`00nrU~| 0 x  __SRP_7__SRP_8 __SRP_9_VBA_PROJECT 0 x  0   arU , p4,(p4$PpL` )Aay0` 9a00(`y nID="{7E32B1EB-8F32-4D8C-9F4C-90947CF38EFD}" Module=basLinkedTables Module=basCommonFile Module=basAutoExec DocClass=Form_splash/&H00000000 Name="paml1" HelpContextID="0" VersionCompatible32="393222000" CMG="C7C5E472E4967A9A7A9A7A9A7A9A" DPB="6163428743874387" GC="FBF9D886738773878C" [Host Extender Info] &am  *\G{000204EF-0000-0000-C000-00K[0000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#C:\Program Files\Microsoft Office\Office\MSACC9.OLB#Microsoft Access 9.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation*\G{00025E01-0000-0000-C000-000000000046}#5.0#0#C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll#Microsoft DAO 3.6 Object LibraryZ*\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 JiF h8XHJBZEFTXIQHUDNYYYZFJJGHTKCC0346a8cea7basLinkedTablesb+8SWUELJIGRNFAQDZFDCZIFAZODGIE0446a8cea7basCommonFile`5(8GKZMFUNAVWJFYDOVXGQMBQRDQOFJ0246a8cea7basAutoExecf00 8OZFLAAMHQJWYWDXBRTHPNUWONOBE0146a8cea7Form_splash0HKh0H(!d@s :N\]#jıHjwBdνWBBbG Access VBAWin16~Win32MacVBA6# paml1stdole` DAO VBIDEA basLinkedTablesd _Evaluate (CheckLinkZstrTablervarRet CurrentDbS TableDefs%iFields7Erro(GetDBDir GetDBDirErr dbCurrent= strDbName strProcNameƣRight UCase5  GetDBDirDoneMsgBoxRNumber- Description vbOKOnly vbCritical+}(adhVerifyLinksstrDataDatabase6strSampleTableadhVerifyLinksErrd varReturn`DstrDBDir#strMsgG&DB\ varFileNametdfTableDefmintI\ intNumTablesIX strFilterӥlngFlags adhVerifyLinksDonemChrK~(adhAddFilterItem(adhOFN_HIDEREADONLYXO(adhOFN_NOCHANGEDIR(adhCommonFileOpenSaveOpenFileFilter;Flagso DialogTitle߄IsNull (adhTrimNullCount0vSysCmdGacSysCmdInitMeterm!Connect\ RefreshLinkntacSysCmdUpdateMeter acSysCmdRemoveMeter basCommonFile(!tagOPENFILENAMEy lStructSize/r hWndOwner hInstance strCustomFilterژnMaxCustFilter` NFilterIndexcstrFile XnMaxFile strFileTitle nMaxFileTitleym strInitialDir/(strTitle nFileOffsetInFileExtenK[sion9 strDefExtHA lCustData'5lpfnHooklpTemplateNamet(adh_apiGetOpenFileNameHofn) comdlg32.dll?(adh_apiGetSaveFileName(CommDlgExtendedErrors(adhOFN_READONLY(adhOFN_OVERWRITEPROMPT(adhOFN_SHOWHELPی(adhOFN_NOVALIDATE(adhOFN_ALLOWMULTISELECTJ(adhOFN_EXTENSIONDIFFERENTf4(adhOFN_PATHMUSTEXISTV(adhOFN_FILEMUSTEXISTF(adhOFN_CREATEPROMPT(adhOFN_SHAREAWAREi(adhOFN_NOREADONLYRETURN2(adhOFN_NOTESTFILECREATE;(adhOFN_NONETWORKBUTTON(adhOFN_NOLONGNAMES.W(adhOFN_EXPLORERz(adhOFN_NODEREFERENCELINKSX(adhOFN_LONGNAMES InitialDir1 FilterIndex˟ DefaultExtyFileNamej strFilenameefResult IsMissing Application* hWndAccessAppstrDescriptiondvarItem vbNullCharYstrItemintPosr basAutoExecH(AutoExec AutoExecErru AutoExecDone1DoCmdƧ Hourglassb Form_splashg Form_Open-CanceltempRendsub: ExitAccessis RunCommand` acCmdExitCommand1_ClickVrst RecordsetrstCodesqryNew{)QueryDeftblNew[fldNewField3TextLinestrSQLF strCriteriaI ClinicCode[ClinicIDăTestCode%TestNameTypeTest< TestResultCollectionDate AmendedResult cnt_records?cnt_totrecords cnt_personsd cnt_filesSTempFileV cnt_tableswp cnt_amendedu strInputFilePatID^ LastName FirstName ResultComment3dobresponseDOSTempҍCreateTableDefj CreateFielddbText dbDate= OpenRecordset| FileSearchD NewSearchfLookInPSearchSubFoldersExecuteY FoundFilesConvertUnixFileEOFParseBOFy MoveFirstNraw_codeK=IsDate2AddNewa clinic_code- chart_numberS IsNumeric$*resultur service_date status_flag IsEmpty  last_name first_name?amendedwUpdatetxtCntRepaintKillRefreshCreateQueryDefzNvbLfT%RecordsAffectedP vbInformationninstringYsectionG component"cnt+position position2jUnixFilerDOSFileEndValue& StartValue9 OutPutTxtFormDetail2Label0,Command1Label2,Click _B_var_Chr\;ItemzbLfzyx  H@@x@ H)H 38 Access (*.mdb) ,,LL, $,0<Hadh_apiGetOpenFileName comdlg32.dll GetOpenFileNameA 0adh_apiGetSaveFileName GetSaveFileNameA PCommGKZMFUNAVWJFYDOVXGQMBQRDQOFJ:-OOZFLAAMHQJWYWDXBRTHPNUWONOBE:6VhSWUELJIGRNFAQDZFDCZIFAZODGIE:l6XHJBZEFTXIQHUDNYYYZFJJGHTKCC:(9(* hfxME,6 K[LLL <0<4<8<<< `o --`\ %`@@ 8@xX@l NDh@ystPWbe>v":<4m@X mo@xT xi@D LL@4 Pr@$ s\@` QT@ \P@ es8%on @ e\@ @  @ @ @ @ h`JiF $*\Rffff*0246a8cea7*\R0*#14*\R0*#1*\R0*#19*\R0*#1a*\R0*#13*\R1*#25*\R1*#98*\R1*#99*\R1*#16$*\Rffff*0346a8cea75  * ,8 ,h 2 B    *  ,P ,       < X ` $'h      $   (J}0  $ From Access 97 Developer's HandbookHandbo% by Litwin, Getz and Gilbert. (Sybex)(Syb% Copyright 1997. All Rights Reserved.)Use database order for string comparisons`  Purpose: Do all startup duties$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved. In: None Out: Return value: none History:5 Created 09/14/94 pel; Last Modified 12/20/95 pel]@ cdem_dta.mdbtblLab$>' varRet = adhInitAutoNum()'d8'k(  $v' B@z "S Error# "!6:  "!8 : < AutoExecA@4nxpih`Attribute VB_Name = "basAutoExec" ' From Access 97 Developer's HandbookLby Litwin, Getz 4 Gilbert. (Sybex)NCopyright 1997. All Rs Res@erved.' Option Compare Datae 'Use dorder for sng cA1isonsEExplicit FuncZ%t(L , ' Purpose: Do aRstartup dutie-F  DIn ^None Out Return value: nH HistoryJ Created 09/14/94 pel; Last @Modifi12/20/95ZA&On ErrgGoTo ]QDim r@# As Varia&nBjAva= adhVerifyLinks("cdem_dta.mdb", "tblLab"rIfThen@'IInitA$NumA)ĈTruOElsD FaFEnd If6D@UQBuNex9$SysCmd(acRemoveMeter5A Do.Hourgla@Y0CDx?2Txy7P)>Dx?2T h3oEmzB$MEL @SLS S L LX  R 6LLL `@" :<4`D(`F`H`J`L `NX`P`R,n ` X ##>ixiii  ``` j` ` aiii  ` ```H %  % %@x`h@@d @ ` @\ @X  @T @8P @L @PH @D @4 @$ @ @ @  `4    xTXJiF $*\Rffff*0146a8cea7*\R3*#2e*\R3*#24*\R3*#2f*\R3*#26*\R3*#29*\R0*#14*\R0*#1*\R1*#25*\R1*#98*\R1*#99*\R1*#20*\R0*#19*\R0*#1a*\R0*#13$*\Rffff*0246a8cea7v48x<p@tDrHK["   0 PX ` px    Bx  & 8" @ :H 0 4  P ,H Jx  6 P &X     B@ $H px% J%  8@H*P   %>.*@ *p R::8  *x < : ,(Xh$p  * $ @0 H $P $x   $ $ 00 0` * .     *( PX    4     ( 8 .P  B " ,(  *X    T TTX $ :T  p TN  HTXT*  @ LX R ' & @0 p  0    \x        (8@P  X hx   0H P` hX  (%'\'8  @P Xh  p  0 (        ( H$X$   4   &( @P L ,  8B  h     @,      &( BP ,   B(R  Z & pP@(  B   F B B( Bp  ( 2! 4H! ! ,!  K[!2!0!  (("P"X" `"p"2""  &""" "#Z#x# ##B  # L# B# 0$8$@$H$ P$`$ p$ $$$ $ $ $ $ % % (%@% H%P% X% h% x%%*xpruns link codendboOn Error GoTo ExitAccess a]`]x$' " KT  B@ ' quits accessSH Error# "!6:  "!8 : < ,A@4n jumps around quittng accesso4Program loaded into same directory as "cdem_dta.mdb")Works with QUEST data file in HL7 format.-QUEST files downloaded with Lightning programIPut downloaded files into subfolder under CDEMS eg.,"c:\cdems\lab_files\"&each file can contain multiple recordsDProgram counts of OBX records equals number of results in input file/Measurement set is labs being tracked by CDEMS:Ithey will each have an entry in the setup table and in LabCrosswalk table On Error GoTo Err_Command1_ClickWx]]]]0]P]p]Dim varItem As Variant]]]]#3the clinic_code field put into the CDEMS lab record]Dim LocationCode As String '?] ]8]P]h]]]]]];End-Of-Line Unix chr(10) to MS chr(13) & chr(10) conversion](]Xpatient identifiers]p]]]"if result is simply comment]]]S*$\'  .L'6'8':/counts PID records (duplicate persons possible)'< to move through the found tables'@to assign the new table name#===================================DOSTemp'R<temp file converted from UNIX to DOS format and later killedunk'&'clinic_code put on each appended recordSEA'('QUEST 1st three characters of all files#===================================5Creates an output table name (eg., "tblLabs050501_1")3these need to be manually erased or they accumulatetblLabs Z_ @$a @ '@xtblLabs Z_ @'D#=================================== Create a new TableDef object.: Create fields and append them to the new TableDef object. D L%T.  clinic_code X7V5 B@ chart_number X7V5 B@raw_code X7V5 B@result X7V5 B@ service_date Z7V5 B@ status_flag X7V5 B@ last_name X7V5 B@<optional first_name X7V5 B@<optionaldob Z7V5 B@<optionalamended X7V5 B@<optionalq  L!B@ D L%\.#===================================Jsearches for new downloaded labcorps lab files in CDEMS directory or below !^C@`*.hl79..FileName = ClinicID & "*.*" 'eg.rs112233.365$$9b9dC@f7f <5h!t(MsgBox " found cnt " & .FoundFiles.Count <7h R$j'P<************************************************************the file parsing routine: R# Open f K[ile.$lb" Loop until end of file. # Read line into variable. $PIDKT  $n $n $n  $'F  $n $n $n  $'H  $n $n $n  $'Jcnt_persons = cnt_persons + 13MsgBox "Name: " & PatID & " " & LastName & Chr$(10)  $n $n $n  $'Ndob in yyyymmdd formatOBRKT  $n $n $n  $'2 4 2$/ 2$/ 2$'2OBXKT  $n $n $n  $',  $n $n $n  $'0   $n $'4k--------------Eruns match program to return the CDEMS raw code from the lab raw code dlk-amended tlkpC* ,*',44dlk-amended -- optional for multiple Quest lab codes'" " L%\. !p !lA"is this lab raw_code in Crosswalk? B@r "t'.)MsgBox "good record " & rstCodes!raw_codedh na'.kP .na 2$v 4$0C B 'B2HMsgBox "result/amended result field " & TestResult & "/" & AmendedResultk B@x & )z =========== F F )|dP blank )|k0  =========== 0$~ 0 )d UTP )k . )t 2 )c ) =========== H$ Hmissing )dP H )k8  =========== J$ Jmissing )d J )k  =========== N$ N 1/11/1111 )Ndp $ N$/ N$/ N$X )Nk 4$ 4F )d 4 )k =========== B@ 6 '63lab results tracked reportedkH 8 '84total labs reportedSn 8' B@V Close file. RA@ <steps through filesdThere were no files found.A@4k`qX L!B@ 6)there were no labs being tracked returnedA@4|k===============================:data now in me.tblLabsXX/xx/xx_x - but has no clinic codesEthis section fills in clinic code and chart number using lastname&dob========[tblLabs Z_ @]'D  UPDATE tblDemo INNER JOIN D ON (tblDemo.dob =  D.dob) AND (tblDemo.last_name =  D.last_name) SET  D).chart_number = [tblDemo].[chart_number], D'.clinic_code = [tblDemo].[clinic_code]  WHERE ((( D.clinic_code)='unk'));'" " L%. B@f L!B@:matches on chart_number only those records still unmatched[tblLabs Z_ @]'D  UPDATE D INNER JOIN tblDemo ON  D'.[chart_number] = tblDemo.chart_number SET  D).[clinic_code] = [tblDemo].[clinic_code]  WHERE ((( D.[clinic_code]) = 'unk'));'" " L%. B@f===============================<data now in me.tblLab - need to append to tblLab of dta file[tblLabs Z_ @ K[];'D 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  D'" " L%. B@f<************************************************************+1Files opened: !^!h!t $^ $^&Total patient records in input file:  : $ ^)Number of lab results reported:  8 $^ $^"Labs reported in measurement set:  6 (Records appended to CDEMS lab table  ! A@4 B ko@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]]#holds col for desired nth Chr$(124)]"holds col for desired nth Chr$(94)"find the column of the desired "|"''  a  '  $|$^G  'jxfind the col of the desired "^" ''  a  '  $^$^  $|$ ^G  'j 'ni Floops thru the unix file and finds EOL prints this section to new line<in file DOSfile- results in file with chr(13) & chr(10) EOLs]]]]  $la   $^'' a    $'   '  $'   $^'kVVok'ji] dlk-amended]$ dlk-amended'B dlk-amended!=========== dlk-amended sectionTthis section prints if any amended records returned to clinic - dlk-amended section0SELECT tlkpCrosswalk.raw_code FROM tlkpCrosswalk' WHERE (((tlkpCrosswalk.lab_code) like ' ,'));'" strSQL = "SELECT tlkpCrosswalk.raw_code FROM tlkpCrosswalk" ' & " WHERE (((tlkpCrosswalk.lab_code)=" & "'" & TestName & "'" & "));"& 4$0C B 'B4HMsgBox "result/amended result field " & TestResult & "/" & AmendedResult*$  $(,0An exception has occurred. Raw data file contained  B updated results. These are in the temp tblLabs Z_ @ temp table. 5Amended labs must be added manually to CDEMS tblLabs. 3Open the indicated temp lab table and search for an @amended result not equal to 'F'. Note chart #, lab code & result 'to make the change manually in tblLabs. ,Call the CDEMS Technical Support Specialist  +if you have questions about how to do this. +@ 1-800-478-3563 (WA only) or 360-387-2928.A@4(vAttribute VB_Name = "Form_splash" Bas0{BC95C07C-179E-11D5-88B3-00AA002AB2F7} |@GlobalSpacFalse dCreataDblTru Predecla Id"Expose_Tem܀teDerivCustomizD$Option Comp@ D3T  !Eq$mp(Gw]-Of-%Unix chr(10) VK3)euconv  07}Da -IQJ S'p#KidPifi1Pat'La$st# FiDaIABoole@O 'if/s0ZSsiyPYmT dobw7g`YpO&@&D 0` Then  BF?cnt_G= 1 To .Found5s.Ct 'MsgBox "[ 5& B ponse@*ConvertUnix ((f), D@OSTemp'*6Cthe? parsing routinez: CfQ a"Q As #1X ' A$.Do Wh@J Not EOF(1)C' 8p u ntil AofWL #1, B' RPead EeUto variAkSelX Ca@+ Left(, ~3Ee"8PIDUPatU= Midh P)e2, T+ (m3b- s-LDf[5X`2) OcUFe, 6ct'`p z`e@e 3fq}:p6(& Chr$(10[-b -7-8c-n(q'lZymmdd!]maG+OBRUVCol1x1q + w4 :, /9+{ $/"a`0,ai >, 2_" Xq Test?/0.<>xt#>g60%@1) R3F/7c O3_(1AmYedY,~K1@N%1 '-  runs ,ch program p]return 1j3raw cod krok~ U A8"} &`dp#1'dlk- --& 5 miple Qup !sqSQL"SELECT tlkpCrosswalk. B_ FROM" _ WHERE ((()=13"'Q"));.1   ! { 1  }k~ebZO O sS?  Cp DB.@+p.BOF AJbis*@ߐ )A%? Mov qpType%%!E$pgood @0Œq3xElsųG"na%@Ifo @<> BIsa\({_)rH=U!`(N)1;C"[#cPUC=_ f/஠bU:nesult End If Trst.AddNew>![clinic_code] = CfC 3'=!If Len(PatID) > 0 Then+hart_nupmberCElse&"bla8nk"'vIsNumeric(TestR)!z~rwQ<"8UTP:grawƇTypeA+ service_datollectionD@tatus_fldagE"cT1deEmpty(LastName) OVr=l@_n%missingXj#SEY~ qIs Fi9 ( @fa t[ ?!# ?!(!dob&Ab#`?1/1A11/@I Ca(Mid(` , 5, 2) & "/"7_s# &\ft 4))* 3, dlk-`bnded s{/UCase0(Ame= "C"ؤcnt_ = + 1'MsgB K[ox "#/e field a)+J`JLL$?O"t 'F_'"6 mz_8q . 0 ThenA DAn excepA ha`Eccurred.c- aw ; contai2 @: uptd8 ws4 `se are3the tempądᐴ A$(@4s mus(t b d*manually8+T Oh in^d!h0A?a@si < 8s(e$\0t eq@'F'. Notec #,Kcq# mak'@(pnge &{C!b!Tech{SupAp Speciali(@if you@Hv@e quesJs about hSdo@ i@@ 1-800-478-3563 (WA only) or 360-387-292D8.` E-IfY aSub!PrivFuncZParse(ining As StlgɃ#@IntegacomponႧ)Variant3'Steps rough a|Olook 1 !ga?r "|" (O124$'w8P2WO(s$Y3"Bt romat popD(H^"R$(96W?hr$}R*sP?44SIr posiQ2QF=!p1wDL 6ちa fP8g:5;8RU1lumn# PvI#DimaU!!D#w 'holqcoldesiU nth %29/+'q@! p%o(o01 = 4Do Until=%jns+ hMid7,, 1?1qiT1 FLo|opS !j ^rA V2   &$ 2 //on284Or 3hPBs2{ rN2cQuP QConvertUnix(!'QDOS' K'`FSOu%urndn`.EOL5z;n{@Ӡ'hPq-'%!wi1ch`&HsA^2TextL' q`Valueq:StROutPutTdxt F`hMA#`.`0%EOF(1$_ S#1, E 3' = In(,Bq &=57nd= 0,8۠.1w=) ,, (-;d`wP#+6A 4a,2OeM s # 4cClo *ConvertUnixFile = "ok" End Function leDef object. D L%T.  clinic_code X7V5 B@ chart_number X7V5 B@raw_code X7V5 B@result X7V5 B@ service_date Z7V5 B@ status_flag X7V5 B@ last_name X7V5 B@<optional first_name X7V5 B@<optionaldob Z7V5 B@<optionalamended