LA7HDR ;DALOI/JMC - LAB HDR ORU (Observation Result) message builder ;12/08/09 16:39
Source file <LA7HDR.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Lab Instruments | 10 | (EXIT,HDRLOAD,RECOVER)^LA7HDR1 BUILDMSG^LA7QRY1 (BCD,STORE)^LA7QRY2 ($$INIT6249,$$P,STARTMSG)^LA7VHLU SETID^LA7VHLU1 $$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 |
| Lab Service | 1 | ($$LRUID,DEM)^LRX |
| Registration | 1 | $$TESTPAT^VADPT |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Lab Service | 3 | CYTOPATHOLOGY EM SURGICAL PATHOLOGY |
| Automated Lab Instruments | 2 | LA7 HDR RECOVER LA7 LAB RESULTS ACTION |
| Kernel | 1 | ^ORD(101 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 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 |
|
| 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 |
|
| BUILD | ; Tasked entry point to build HL7 message to VA's HDR
; Tasked from above. |
|
| RTR(LA7SS) | ;
; Call with LA7SS = list of subscripts that HDR wants separated by ";" ; (LA7SS="CH;MI;EM") |
|
| 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 |
|
| RECOVER | ; Recover failed transmissions or message building
; Called by option Recover/Transmit Lab HDR Result Messages [LA7 HDR RECOVER] |
| Name | Field # of Occurrence |
|---|---|
| ^%ZTLOAD | QUEUE+53 |
| DT^DICRW | BUILD+11 |
| FILE^DIE | BUILD+102 |
| UPDATE^DIE | BUILD+59 |
| CLEAN^DILF | BUILD+60, BUILD+103 |
| EXIT^LA7HDR1 | BUILD+111 |
| HDRLOAD^LA7HDR1 | HDRLOAD+6 |
| RECOVER^LA7HDR1 | RECOVER+3 |
| BUILDMSG^LA7QRY1 | BUILD+86 |
| BCD^LA7QRY2 | BUILD+85 |
| STORE^LA7QRY2 | BUILD+54, BUILD+64, BUILD+74 |
| $$INIT6249^LA7VHLU | BUILD+34 |
| $$P^LA7VHLU | RTR+21 |
| STARTMSG^LA7VHLU | BUILD+77 |
| SETID^LA7VHLU1 | BUILD+89, BUILD+90, BUILD+93, BUILD+94 |
| $$UNESC^LA7VHLU3 | RTR+21 |
| $$DEFCODE^LA7VHLU5 | BUILD+52, BUILD+63, BUILD+73 |
| CHKACC^LA7VMSG | BUILD+80 |
| SENDMSG^LA7VMSG1 | BUILD+87 |
| UPDT6249^LA7VORM1 | BUILD+95 |
| $$LRUID^LRX | BUILD+21 |
| DEM^LRX | BUILD+91 |
| $$TESTPAT^VADPT | QUEUE+33 |
| $$FMADD^XLFDT | BUILD+84 |
| $$PROD^XUPROD | QUEUE+33 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LAHM(62.48 - [#62.48] | QUEUE+38, QUEUE+40, BUILD+23, BUILD+26, BUILD+27 |
| ^LAHM(62.49 - [#62.49] | BUILD+106 |
| ^LR - [#63] | QUEUE+33, APQ+4, BUILD+39, BUILD+49, BUILD+50, BUILD+67, BUILD+69, BUILD+70, BUILD+107 |
| ^LRO(68 - [#68] | QUEUE+22, BUILD+19 |
| ^TMP("LA7-QRY" | BUILD+41!, BUILD+71 |
| ^TMP("LA7HDR" | QUEUE+30!, QUEUE+57* |
| Name | Line Occurrences |
|---|---|
| QUEUE | APQ+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DILOCKTM | BUILD+39 |
| DIQUIET | BUILD+5~, BUILD+9* |
| DT | BUILD+84 |
| FDA | BUILD+5~, BUILD+47~, BUILD+55! |
| FDA(1 | BUILD+98*, BUILD+99*, BUILD+100*, BUILD+101* |
| FDA(2 | BUILD+56*, BUILD+57* |
| FDAIEN | BUILD+47~, BUILD+55! |
| FDAIEN(1 | BUILD+58* |
| GBL | BUILD+5~, BUILD+76* |
| HL | BUILD+5~, BUILD+78 |
| HL("ECH" | RTR+21 |
| HL("FS" | RTR+21 |
| HL("Q" | BUILD+79* |
| >> HLL("LINKS" | RTR+25* |
| >> HLNEXT | RTR+16 |
| >> HLNODE | RTR+17, RTR+18 |
| >> HLNODE( | RTR+20 |
| HLQ | BUILD+5~, BUILD+79* |
| >> HLQUIT | RTR+16 |
| I | QUEUE+16~, QUEUE+43* |
| LA76248 | QUEUE+16~, QUEUE+38*, QUEUE+39, QUEUE+40, BUILD+6~, BUILD+23*, BUILD+25, BUILD+26, BUILD+27 |
| LA76249 | BUILD+6~, BUILD+34*, BUILD+35, BUILD+56, BUILD+57, BUILD+58, BUILD+77, BUILD+89, BUILD+90, BUILD+93 , BUILD+94, BUILD+98, BUILD+99, BUILD+100, BUILD+101, BUILD+106 |
| LA76249P | BUILD+6~, BUILD+34* |
| LA7CODE | BUILD+6~, BUILD+52*, BUILD+63*, BUILD+73* |
| LA7DT | BUILD+6~ |
| LA7EDT | BUILD+83~, BUILD+84*, HDRLOAD~ |
| LA7ER | BUILD+47~, BUILD+55! |
| LA7ERR | BUILD+6~, BUILD+13*, BUILD+78*, BUILD+81 |
| LA7EVENT | HDRLOAD~ |
| LA7EVNT | BUILD+6~, BUILD+13*, BUILD+77 |
| LA7I | RTR+13~, RTR+24* |
| LA7ID | BUILD+6~, BUILD+23*, BUILD+88*, BUILD+89, BUILD+93 |
| LA7INTYP | BUILD+6~, BUILD+27* |
| LA7LIMIT | HDRLOAD~ |
| LA7LNCVR | BUILD+6~ |
| LA7LOAD | BUILD+6~, BUILD+31*, BUILD+82 |
| LA7MTYP | BUILD+17*, BUILD+110! |
| LA7ND | BUILD+6~, BUILD+68*, BUILD+69*, BUILD+70, BUILD+72, BUILD+110! |
| LA7NOMSG | BUILD+6~, BUILD+15*, BUILD+77 |
| LA7NVAF | BUILD+6~, BUILD+13* |
| LA7RSITE | BUILD+6~, BUILD+23*, BUILD+88 |
| LA7SC | BUILD+83~, BUILD+84* |
| LA7SDT | BUILD+83~, BUILD+84*, HDRLOAD~ |
| LA7SEG | RTR+13~, RTR+21 |
| LA7SEG( | RTR+20* |
| LA7SEG(0 | RTR+18* |
| LA7SPEC | BUILD+83~, BUILD+84* |
| LA7SS | RTR~, RTR+24 |
| LA7V | QUEUE+16~, QUEUE+45*, QUEUE+46*, QUEUE+47, QUEUE+48, QUEUE+49 |
| LA7VCH | QUEUE+16~, QUEUE+51, BUILD+110! |
| LA7VCH( | QUEUE+48*, QUEUE+49*, BUILD+50*, BUILD+51, BUILD+52, BUILD+53, BUILD+57 |
| LA7VI | RTR+13~, RTR+16* |
| LA7VJ | RTR+13~, RTR+19*, RTR+20* |
| LA7VT | BUILD+47~ |
| LA7X | BUILD+6~, BUILD+19*, BUILD+20, RTR+13~, RTR+24*, RTR+25* |
| LA7Y | BUILD+6~, BUILD+48*, BUILD+49*, BUILD+50, BUILD+51, BUILD+52, BUILD+53, BUILD+57 |
| LASTYP | QUEUE+16~ |
| LAVERR | QUEUE+16~ |
| >> LRAA | QUEUE+19, QUEUE+22, QUEUE+30, QUEUE+57, BUILD+19, BUILD+21 |
| >> LRAD | QUEUE+30, QUEUE+57, BUILD+19, BUILD+21 |
| >> LRAN | QUEUE+30, QUEUE+57, BUILD+19, BUILD+21 |
| LRDFN | QUEUE+33, APQ~, APQ+4, BUILD+39, BUILD+49, BUILD+50, BUILD+67, BUILD+69, BUILD+70, BUILD+71 , BUILD+101, BUILD+107, BUILD+110! |
| LRIDT | APQ~, BUILD+39, BUILD+49, BUILD+50, BUILD+67, BUILD+69, BUILD+70, BUILD+71, BUILD+83~, BUILD+99 , BUILD+107, BUILD+110! |
| >> LRNIFN | QUEUE+29 |
| LRNLT | BUILD+6~, BUILD+110! |
| LRQUIET | BUILD+6~, BUILD+9* |
| >> LRSA( | QUEUE+49 |
| LRSB | BUILD+47~, BUILD+53*, BUILD+56, BUILD+63*, BUILD+72*, BUILD+73 |
| LRSB( | QUEUE+46, QUEUE+47, QUEUE+48 |
| >> LRSPEC | BUILD+52, BUILD+67*, BUILD+73 |
| LRSS | QUEUE+22~*, QUEUE+25, QUEUE+30, QUEUE+44, QUEUE+51, APQ~, BUILD+39, BUILD+46, BUILD+49, BUILD+50 , BUILD+52, BUILD+62, BUILD+63, BUILD+66, BUILD+67, BUILD+69, BUILD+70, BUILD+71, BUILD+73, BUILD+83~ , BUILD+100, BUILD+107, BUILD+110!, RTR+13~, RTR+15*, RTR+16, RTR+22*, RTR+25 |
| >> LRTMPO("LRIFN" | QUEUE+29, QUEUE+30 |
| LRUID | BUILD+6~, BUILD+20*, BUILD+21*, BUILD+83~, BUILD+89, BUILD+90, BUILD+98, BUILD+110! |
| LRX | RTR+13~, RTR+21*, RTR+22 |
| PNM | BUILD+5~, BUILD+91, BUILD+92, BUILD+93, BUILD+94 |
| RUID | BUILD+5~, BUILD+20* |
| SITE | BUILD+5~, BUILD+23* |
| X | QUEUE+16~ |
| ZTDESC | QUEUE+16~, QUEUE+42* |
| ZTDTH | QUEUE+16~, QUEUE+42* |
| ZTIO | QUEUE+16~, QUEUE+42* |
| ZTRTN | QUEUE+16~, QUEUE+42* |
| ZTSAVE | QUEUE+16~ |
| ZTSAVE( | QUEUE+43* |
| ZTSAVE("LA7MTYP" | QUEUE+52* |
| ZTSAVE("LA7VCH*" | QUEUE+50* |
| ZTSAVE("LRSPEC" | QUEUE+50* |
| ZTSK | QUEUE+16~, QUEUE+54 |
