©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
LA7HDR ;VA/DALOI/JMC - LAB HDR ORU (Observation Result) message builder ; 13-Aug-2013 09:09 ; MKK
Source file <LA7HDR.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Lab Instruments | 9 | (EXIT,HDRLOAD,RECOVER)^LA7HDR1 BUILDMSG^LA7QRY1 (BCD,STORE)^LA7QRY2 ($$INIT6249,$$P,STARTMSG)^LA7VHLU $$UNESC^LA7VHLU3 $$DEFCODE^LA7VHLU5 CHKACC^LA7VMSG SENDMSG^LA7VMSG1 UPDT6249^LA7VORM1 |
| Kernel | 3 | ^%ZTLOAD $$FMADD^XLFDT $$PROD^XUPROD |
| VA Fileman | 3 | DT^DICRW (FILE,UPDATE)^DIE CLEAN^DILF |
| IHS Changes To Lab | 1 | ENTRYAUD^BLRUTIL |
| Lab Service | 1 | $$LRUID^LRX |
| Registration | 1 | $$TESTPAT^VADPT |
| Package | Total | Caller Graph |
|---|---|---|
| Automated Lab Instruments | 1 | LA7 HDR RECOVER |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RTR(LA7SS) | ;
; Call with LA7SS = list of subscripts that HDR wants separated by ";" ; (LA7SS="CH;MI;EM") |
|
| APQ(LRDFN,LRSS,LRIDT) | ; Anatomic Pathology (CY,EM,SP) subscript entry point from FileMan cross-reference on specific fields.
; Called by field #.11 in sub-files #63.02, 63.08, 63.09 - AP does not work through CPRS extended action protocols |
|
| QUEUE | ;
; Called by protocol LA7 LAB RESULTS ACTION ; and below (APQ) for AP subscripts ; Call with: ; LRAA - accession area (CH,MI subscript) ; LRAD - accession date (CH,MI subscript) ; LRAN - accession number (CH,MI subscript) ; LRIDT - inverse date/time (collection date/time) ; LRSS - test subscript defined in LABORATORY TEST file (#60) ; LRDFN - IEN in LAB DATA file (#63) ; LRSPEC - specimen ; LRSB (Optional) - array of Chemistry results ; ex. glucose LRSB(2)=LR NODE |
|
| HDRLOAD(LA7SDT,LA7EDT,LA7LIMIT,LA7EVENT) | ; Load patient's historical lab results to HDR (Health Data Repository).
; Call with LA7SDT = start date of data extraction in FileMan format ; LA7EDT = end date of data extraction in FileMan format ; LA7LIMIT = # of messages to create this session (default =1000) ; LA7EVENT = name of HL7 event protocol to transmit messages |
|
| BUILD | ; Tasked entry point to build HL7 message to VA's HDR
; Tasked from above. |
|
| RECOVER | ; Recover failed transmissions or message building
; Called by option Recover/Transmit Lab HDR Result Messages [LA7 HDR RECOVER] |
|
| NOLRSPEC() | ; EP - Check LRSPEC Variable
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZTLOAD | QUEUE+55 |
| ENTRYAUD^BLRUTIL | QUEUE+14, NOLRSPEC+1, BUILD+3, BUILD+33 |
| DT^DICRW | BUILD+11 |
| FILE^DIE | BUILD+98 |
| UPDATE^DIE | BUILD+62 |
| CLEAN^DILF | BUILD+63, BUILD+99 |
| EXIT^LA7HDR1 | BUILD+107 |
| HDRLOAD^LA7HDR1 | HDRLOAD+6 |
| RECOVER^LA7HDR1 | RECOVER+3 |
| BUILDMSG^LA7QRY1 | BUILD+89 |
| BCD^LA7QRY2 | BUILD+88 |
| STORE^LA7QRY2 | BUILD+57, BUILD+67, BUILD+77 |
| $$INIT6249^LA7VHLU | BUILD+40 |
| $$P^LA7VHLU | RTR+19 |
| STARTMSG^LA7VHLU | BUILD+80 |
| $$UNESC^LA7VHLU3 | RTR+19 |
| $$DEFCODE^LA7VHLU5 | BUILD+55, BUILD+66, BUILD+76 |
| CHKACC^LA7VMSG | BUILD+83 |
| SENDMSG^LA7VMSG1 | BUILD+90 |
| UPDT6249^LA7VORM1 | BUILD+92 |
| $$LRUID^LRX | BUILD+25 |
| $$TESTPAT^VADPT | QUEUE+33 |
| $$FMADD^XLFDT | BUILD+87 |
| $$PROD^XUPROD | QUEUE+33 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LAHM(62.48 - [#62.48] | QUEUE+40, QUEUE+42, BUILD+27, BUILD+30, BUILD+31 |
| ^LAHM(62.49 - [#62.49] | BUILD+102 |
| ^LR - [#63] | QUEUE+33, NOLRSPEC+5, APQ+4, BUILD+14, BUILD+52, BUILD+53, BUILD+70, BUILD+72, BUILD+73, BUILD+103 |
| ^LRO(68 - [#68] | QUEUE+22, BUILD+23 |
| ^TMP("LA7-QRY" | BUILD+44!, BUILD+74 |
| ^TMP("LA7HDR" | QUEUE+30!, QUEUE+59* |
| Name | Line Occurrences |
|---|---|
| $$NOLRSPEC | QUEUE+35 |
| QUEUE | APQ+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DILOCKTM | BUILD+14 |
| DIQUIET | BUILD+5~, BUILD+9* |
| DT | BUILD+87 |
| FDA | BUILD+5~, BUILD+50~, BUILD+58! |
| FDA(1 | BUILD+94*, BUILD+95*, BUILD+96*, BUILD+97* |
| FDA(2 | BUILD+59*, BUILD+60* |
| FDAIEN | BUILD+50~, BUILD+58! |
| FDAIEN(1 | BUILD+61* |
| GBL | BUILD+5~, BUILD+79* |
| HL | BUILD+5~, BUILD+81 |
| HL("ECH" | RTR+19 |
| HL("FS" | RTR+19 |
| HL("Q" | BUILD+82* |
| >> HLL("LINKS" | RTR+23* |
| >> HLNEXT | RTR+14 |
| >> HLNODE | RTR+15, RTR+16 |
| >> HLNODE( | RTR+18 |
| HLQ | BUILD+5~, BUILD+82* |
| >> HLQUIT | RTR+14 |
| I | QUEUE+16~, QUEUE+45* |
| LA76248 | QUEUE+16~, QUEUE+40*, QUEUE+41, QUEUE+42, BUILD+6~, BUILD+27*, BUILD+29, BUILD+30, BUILD+31 |
| LA76249 | BUILD+6~, BUILD+40*, BUILD+41, BUILD+59, BUILD+60, BUILD+61, BUILD+80, BUILD+94, BUILD+95, BUILD+96 , BUILD+97, BUILD+102 |
| LA76249P | BUILD+6~, BUILD+40* |
| >> LA7CODE | BUILD+55*, BUILD+66*, BUILD+76* |
| LA7DT | BUILD+6~ |
| LA7EDT | BUILD+86~, BUILD+87*, HDRLOAD~ |
| LA7ER | BUILD+50~, BUILD+58! |
| LA7ERR | BUILD+6~, BUILD+16*, BUILD+81*, BUILD+84 |
| LA7EVENT | HDRLOAD~ |
| LA7EVNT | BUILD+6~, BUILD+16*, BUILD+80 |
| LA7I | RTR+11~, RTR+22* |
| LA7ID | BUILD+6~, BUILD+27*, BUILD+91* |
| LA7INTYP | BUILD+6~, BUILD+31* |
| LA7LIMIT | HDRLOAD~ |
| LA7LNCVR | BUILD+6~ |
| LA7LOAD | BUILD+6~, BUILD+37*, BUILD+85 |
| LA7MTYP | BUILD+21*, BUILD+106! |
| LA7ND | BUILD+71*, BUILD+72*, BUILD+73, BUILD+75, BUILD+106! |
| LA7NOMSG | BUILD+6~, BUILD+19*, BUILD+80 |
| LA7NVAF | BUILD+6~, BUILD+16* |
| LA7RSITE | BUILD+6~, BUILD+27*, BUILD+91 |
| LA7SC | BUILD+86~, BUILD+87* |
| LA7SDT | BUILD+86~, BUILD+87*, HDRLOAD~ |
| LA7SEG | RTR+11~, RTR+19 |
| LA7SEG( | RTR+18* |
| LA7SEG(0 | RTR+16* |
| LA7SPEC | BUILD+86~, BUILD+87* |
| LA7SS | RTR~, RTR+22 |
| LA7V | QUEUE+16~, QUEUE+47*, QUEUE+48*, QUEUE+49, QUEUE+50, QUEUE+51 |
| LA7VCH | QUEUE+16~, QUEUE+53, BUILD+106! |
| LA7VCH( | QUEUE+50*, QUEUE+51*, BUILD+53*, BUILD+54, BUILD+55, BUILD+56, BUILD+60 |
| LA7VI | RTR+11~, RTR+14* |
| LA7VJ | RTR+11~, RTR+17*, RTR+18* |
| LA7VT | BUILD+50~ |
| LA7X | BUILD+6~, BUILD+23*, BUILD+24, RTR+11~, RTR+22*, RTR+23* |
| LA7Y | BUILD+6~, BUILD+51*, BUILD+52*, BUILD+53, BUILD+54, BUILD+55, BUILD+56, BUILD+60 |
| LASTYP | QUEUE+16~ |
| LAVERR | QUEUE+16~ |
| >> LRAA | QUEUE+19, QUEUE+22, QUEUE+30, QUEUE+59, BUILD+23, BUILD+25 |
| >> LRAD | QUEUE+30, QUEUE+59, BUILD+23, BUILD+25 |
| >> LRAN | QUEUE+30, QUEUE+59, BUILD+23, BUILD+25 |
| LRDFN | QUEUE+33, NOLRSPEC+5, APQ~, APQ+4, BUILD+14, BUILD+52, BUILD+53, BUILD+70, BUILD+72, BUILD+73 , BUILD+74, BUILD+97, BUILD+103, BUILD+106! |
| LRIDT | NOLRSPEC+5, APQ~, BUILD+14, BUILD+52, BUILD+53, BUILD+70, BUILD+72, BUILD+73, BUILD+74, BUILD+86~ , BUILD+95, BUILD+103, BUILD+106! |
| >> LRNIFN | QUEUE+29 |
| LRNLT | BUILD+106! |
| LRQUIET | BUILD+6~, BUILD+9* |
| >> LRSA( | QUEUE+51 |
| LRSB | BUILD+50~, BUILD+56*, BUILD+59, BUILD+66*, BUILD+75*, BUILD+76 |
| LRSB( | QUEUE+48, QUEUE+49, QUEUE+50 |
| >> LRSPEC | NOLRSPEC+3, NOLRSPEC+5*, NOLRSPEC+7, BUILD+55, BUILD+70*, BUILD+76 |
| LRSS | QUEUE+22~*, QUEUE+25, QUEUE+30, QUEUE+46, QUEUE+53, NOLRSPEC+5, APQ~, BUILD+14, BUILD+49, BUILD+52 , BUILD+53, BUILD+55, BUILD+65, BUILD+66, BUILD+69, BUILD+70, BUILD+72, BUILD+73, BUILD+74, BUILD+76 , BUILD+86~, BUILD+96, BUILD+103, BUILD+106!, RTR+11~, RTR+13*, RTR+14, RTR+20*, RTR+23 |
| >> LRTMPO("LRIFN" | QUEUE+29, QUEUE+30 |
| LRUID | BUILD+6~, BUILD+24*, BUILD+25*, BUILD+86~, BUILD+91, BUILD+94, BUILD+106! |
| LRX | RTR+11~, RTR+19*, RTR+20 |
| RUID | BUILD+5~, BUILD+24* |
| SITE | BUILD+5~, BUILD+27* |
| U | NOLRSPEC+5 |
| X | QUEUE+16~ |
| ZTDESC | QUEUE+16~, QUEUE+44* |
| ZTDTH | QUEUE+16~, QUEUE+44* |
| ZTIO | QUEUE+16~, QUEUE+44* |
| ZTRTN | QUEUE+16~, QUEUE+44* |
| ZTSAVE | QUEUE+16~, QUEUE+54* |
| ZTSAVE( | QUEUE+45* |
| ZTSAVE("LA7VCH*" | QUEUE+52* |
| ZTSAVE("LRSPEC" | QUEUE+52* |
| ZTSK | QUEUE+16~, QUEUE+56 |