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: LA7QRY2

Package: Automated Lab Instruments

Routine: LA7QRY2


Information

LA7QRY2 ;DALOI/JMC - Lab HL7 Query Utility ;Nov 3, 2006

Source Information

Source file <LA7QRY2.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Automated Lab Instruments 1 $$DEFCODE^LA7VHLU5  
Kernel 1 $$UP^XLFSTR  
Master Patient Index VistA 1 ($$GETDFN,$$GETICN)^MPIF001  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Automated Lab Instruments 3 LA7HDR  LA7HDR1  LA7QRY  

Entry Points

Name Comments DBIA/ICR reference
SEARCH ; Search subscript for a specific collection date/time
CHSS ; Search "CH" datanames for matching codes
BCD ; Search by specimen collection date.
APSS ; Search AP subscripts for matching codes
; AP results are currently not coded - use defaults
BBSS ; Search BB subscript for matching codes
; *** This subscript currently not supported ***
SETDFN(LA7X) ; Setup DFN and other lab variables.
PATID ; Resolve patient id and establish patient environment
BRAD ; Search by results available date (completion date).
; Assumes cross-references still exist for dates in LRO(69) global.
; Collects specimen date/time values for a given LRDFN and completion date.
; Cross-reference is by date only, time stripped from start date.
; Uses cross-reference ^LRO(69,DT,1,"AN",'LOCATION',LRDFN,LRIDT)=""
SCLIST(SCLST,LA7SLST) ; Setup subscript search list
; Call with SCLST = list of subscripts to search, "," delimited
; LA7SLST = array reference to return parsed subscript array
MISS ; Search "MI" subscripts for matching codes
CHECK ; Check NLT order/result and LOINC codes.
STORE ; Store entry for building in HL7 message

External References

Name Field # of Occurrence
$$DEFCODE^LA7VHLU5 CHSS+7, MISS+11, APSS+9
$$GETDFN^MPIF001 PATID+21
$$GETICN^MPIF001 PATID+23
$$UP^XLFSTR SCLIST+13

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT("D" PATID+29
^DPT - [#2] SETDFN+2
^DPT("SSN" PATID+13
^LR - [#63] PATID+36, BCD+11, BCD+12, BRAD+34, BRAD+35, SEARCH+3, CHSS+5, CHSS+6, MISS+5, MISS+6
^LRO(69 - [#69] BRAD+11, BRAD+19
^TMP( CHECK+13
^TMP("LA7-61" SEARCH+13
^TMP("LA7-NLT" CHECK+18
^TMP("LA7-QRY" STORE+2*

Label References

Name Line Occurrences
APSS SEARCH+20, SEARCH+22, SEARCH+24, SEARCH+26
BBSS SEARCH+28
CHECK CHSS+8, MISS+12, APSS+10
CHSS SEARCH+16
MISS SEARCH+18
SEARCH BCD+15, BRAD+24, BRAD+36, BRAD+38
SETDFN PATID+14, PATID+24, PATID+30
STORE CHECK+7, CHECK+14, CHECK+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN PATID+4*, PATID+34, PATID+35, SETDFN+2*
I BRAD+14*, SCLIST+6~, SCLIST+9*, SCLIST+14*, SCLIST+15
>> LA761 SEARCH+11*, SEARCH+12*, SEARCH+13, CHSS+7, MISS+11
LA763 BCD+2~, BRAD+6~, SEARCH+2!
LA763(0 BRAD+35*, BRAD+37, SEARCH+3*, SEARCH+5, SEARCH+7, SEARCH+11
LA7CODE CHSS+7*, MISS+11*, APSS+3~, APSS+9*, CHECK+11, CHECK+13, CHECK+16, CHECK+17, STORE+2
LA7DT BRAD+6~, BRAD+18*, BRAD+19*, BRAD+21
>> LA7EDT BCD+6, BRAD+10
>> LA7EDT(0 BCD+4*, BCD+6*, BCD+11
>> LA7EDT(1 BRAD+10*, BRAD+12, BRAD+19, BRAD+38, MISS+9
LA7I CHECK+2~, CHECK+9*, CHECK+11, CHECK+13, CHECK+16, CHECK+17
LA7ND MISS+2~, MISS+4*, MISS+5*, MISS+6, MISS+10
>> LA7PTID PATID+5*, PATID+11, PATID+13, PATID+19, PATID+21, PATID+23, PATID+29
>> LA7PTID("TYPE" PATID+5*, PATID+27
>> LA7PTYP PATID+4*, PATID+12*, PATID+20*, PATID+28*, PATID+33
>> LA7QERR SCLIST+14
>> LA7QERR(1 PATID+23*, PATID+33*
>> LA7QERR(2 PATID+34*
>> LA7QERR(3 PATID+35*
>> LA7QERR(4 PATID+36*
>> LA7QERR(5 PATID+22*
>> LA7QERR(7 SCLIST+17*
LA7QUIT BCD+2~, BCD+10*, BCD+12, BCD+14*, CHECK+2~, CHECK+8*, CHECK+9, CHECK+15*, CHECK+18*
LA7ROOT BRAD+6~, BRAD+20*, BRAD+21*, BRAD+22, BRAD+23
>> LA7SCDE CHECK+7
>> LA7SDT BCD+5, BRAD+10, MISS+9
>> LA7SDT(0 BCD+4*, BCD+5*, BCD+14
>> LA7SDT(1 BRAD+10*, BRAD+11, BRAD+18, BRAD+38, MISS+9
LA7SLST SCLIST~
LA7SLST( SCLIST+9*, SCLIST+16*
LA7SRC BRAD+6~, BRAD+10*, BRAD+13*, BRAD+14*, BRAD+17, BRAD+29, BRAD+32
LA7X PATID+2~, PATID+13*, PATID+14, PATID+21*, PATID+22, PATID+23, PATID+24, PATID+29*, PATID+30, BRAD+6~
, BRAD+37*, BRAD+38, CHSS+2~, CHSS+6*, CHSS+7, MISS+2~, MISS+6*, MISS+8, MISS+9, CHECK+2~
, CHECK+17*, CHECK+18, SETDFN~, SETDFN+2
>> LRDFN PATID+4*, PATID+35, PATID+36, BCD+11, BCD+12, BRAD+22, BRAD+34, BRAD+35, SEARCH+3, CHSS+5
, CHSS+6, MISS+5, MISS+6, STORE+2, SETDFN+2*
>> LRIDT BCD+10*, BCD+11*, BCD+12*, BCD+14, BRAD+23*, BRAD+33*, BRAD+34*, BRAD+35, SEARCH+3, CHSS+5
, CHSS+6, MISS+5, MISS+6, STORE+2
LRSB CHSS+2~, CHSS+4*, CHSS+5*, CHSS+6, CHSS+7, MISS+2~, MISS+10*, MISS+11, APSS+3~, APSS+8*
, APSS+9, STORE+2
>> LRSS BCD+8*, BCD+9*, BCD+11, BCD+12, BRAD+23*, BRAD+24*, BRAD+30*, BRAD+31*, BRAD+32, BRAD+34
, BRAD+35, BRAD+36, BRAD+37, SEARCH+3, SEARCH+5, SEARCH+7, SEARCH+11, SEARCH+16, SEARCH+18, SEARCH+20
, SEARCH+22, SEARCH+24, SEARCH+26, SEARCH+28, CHSS+5, CHSS+6, CHSS+7, MISS+5, MISS+6, MISS+11
, APSS+6, APSS+9, STORE+2
>> LRSSLST( BCD+9, BRAD+14, BRAD+24, BRAD+31
RC SCLIST+6~
SCALL SCLIST+6~, SCLIST+13*, SCLIST+16
SCLST SCLIST~, SCLIST+9, SCLIST+12, SCLIST+13*, SCLIST+14, SCLIST+15, SCLIST+17
TMP SCLIST+6~, SCLIST+15*, SCLIST+16
X BRAD+6~, BRAD+11*, BRAD+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All