LA7QRY2 ;DALOI/JMC - Lab HL7 Query Utility ;Nov 3, 2006
Source file <LA7QRY2.m>
Package | Total | Call Graph |
---|---|---|
Automated Lab Instruments | 1 | $$DEFCODE^LA7VHLU5 |
Kernel | 1 | $$UP^XLFSTR |
Master Patient Index VistA | 1 | ($$GETDFN,$$GETICN)^MPIF001 |
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 |
---|---|---|
Automated Lab Instruments | 3 | LA7HDR LA7HDR1 LA7QRY |
Name | Comments | DBIA/ICR reference |
---|---|---|
PATID | ; Resolve patient id and establish patient environment
|
|
BCD | ; Search by specimen collection date.
|
|
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)="" |
|
SEARCH | ; Search subscript for a specific collection date/time
|
|
CHSS | ; Search "CH" datanames for matching codes
|
|
MISS | ; Search "MI" subscripts for matching codes
|
|
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 *** |
|
CHECK | ; Check NLT order/result and LOINC codes.
|
|
STORE | ; Store entry for building in HL7 message
|
|
SETDFN(LA7X) | ; Setup DFN and other lab variables.
|
|
SCLIST(SCLST,LA7SLST) | ; Setup subscript search list
; Call with SCLST = list of subscripts to search, "," delimited ; LA7SLST = array reference to return parsed subscript array |
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* |
>> | 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 |