Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: LA7HDR

Package: Automated Lab Instruments

Routine: LA7HDR


Information

LA7HDR ;DALOI/JMC - LAB HDR ORU (Observation Result) message builder ;12/08/09 16:39

Source Information

Source file <LA7HDR.m>

Call Graph

Call Graph

Call Graph Total: 18

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 6

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  

Entry Points

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]

External References

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

Global Variables Directly Accessed

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*

Label References

Name Line Occurrences
QUEUE APQ+6

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All