©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
LA7QRY2 ;VA/DALOI/JMC - Lab HL7 Query Utility ; 13-Aug-2013 09:09 ; MKK
Source file <LA7QRY2.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Lab Instruments | 1 | $$DEFCODE^LA7VHLU5 |
| IHS Changes To Lab | 1 | ENTRYAUD^BLRUTIL |
| Kernel | 1 | $$UP^XLFSTR |
| Uncategorized | 1 | ($$GETDFN,$$GETICN)^MPIF001 |
| Package | Total | Caller Graph |
|---|---|---|
| Automated Lab Instruments | 4 | LA7CHDR LA7HDR LA7HDR1 LA7QRY |
| 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
|
| 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+15 |
| ^TMP("LA7-61" | SEARCH+13 |
| ^TMP("LA7-NLT" | CHECK+20 |
| ^TMP("LA7-QRY" | STORE+2* |
| 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+9, CHECK+16, CHECK+20 |
| >> | 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+13, CHECK+15, CHECK+18, CHECK+19, 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+4~, CHECK+11*, CHECK+13, CHECK+15, CHECK+18, CHECK+19 |
| 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+4~, CHECK+10*, CHECK+11, CHECK+17*, CHECK+20* |
| LA7ROOT | BRAD+6~, BRAD+20*, BRAD+21*, BRAD+22, BRAD+23 |
| >> LA7SCDE | CHECK+9 |
| >> 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+4~ , CHECK+19*, CHECK+20, 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 |