LA7SBCR1 ;DALOI/JMC - Shipping Barcode Reader Utility ; 23 Feb 2004
Source file <LA7SBCR1.m>
Package | Total | Call Graph |
---|---|---|
Automated Lab Instruments | 1 | ($$DT,$$RD)^LA7SBCR |
VA FileMan | 1 | GETS^DIQ |
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 | 1 | LRDPAREF |
Name | Comments | DBIA/ICR reference |
---|---|---|
PT(LA7,LA7PROM,LA7SCFG) | ; Setup patient/ordering site info from barcode.
; Input: ; LA7=array to return values ; LA7PROM=array of prompts to display to user ; LA7SCFG=array of shipping configuration info |
|
DPT(LA7,LA7X) | ; Lookup in Patient file.
; Check for patient in file #2. |
|
LRT(LA7,LA7X) | ; Lookup in Lab Referral file.
; Clear error flag. |
|
LPO(LA7,LA7SM) | ; Lookup in LAB PENDING ORDERS file #69.6
|
|
DPTSET(LA7,LA7Y) | ; Setup array from Patient file.
|
|
LRTSET(LA7,LA7Y) | ; Setup array from Lab Referral file.
|
|
LPOSET(LA7,LA7Y) | ; Setup array from LAB PENDING ORDERS file #69.6
|
|
PD1 | ; Read PD1 bar code information
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GETS^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | DPT+5, DPTSET+3, DPTSET+11 |
^DPT("SSN" | DPT+2 |
^LRO(69.6 - [#69.6] | LPO+4, LPOSET+3 |
^LRT(67 - [#67] | LRT+3, LRT+6, LRTSET+1, LPOSET+16, LPOSET+17, LPOSET+18 |
Name | Line Occurrences |
---|---|
DPT | PT+71 |
DPTSET | DPT+9 |
LPO | PT+68 |
LPOSET | LPO+6 |
LRT | PT+74 |
LRTSET | LRT+9 |
PD1 | PT+77 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
I | LPOSET+2~, LPOSET+3* |
LA7 | PT~, PT+21*, PT+34*, PT+35*, PT+39*, PT+43, PT+49, PT+54, PT+57, PT+58 , PT+61, PT+68, PT+71, PT+74, DPT~, DPT+9, LRT~, LRT+9, LPO~, LPO+6 , DPTSET~, LRTSET~, LPOSET~ |
LA7("CDT" | PT+57*, PT+58* |
LA7("DFN" | DPTSET+6*, LRTSET+4*, LPOSET+19* |
LA7("DOB" | DPTSET+7*, LRTSET+5*, LPOSET+11*, PD1+41* |
LA7("DPF" | DPTSET+9*, LRTSET+8*, LPOSET+13*, PD1+43* |
LA7("ERROR" | PT+26*, PT+29*, PT+44*, PT+47*, PT+51*, PT+64*, PT+71, PT+74, PT+77, DPT+4* , DPT+7*, LRT+2*, LRT+5*, LRT+8*, LPO+5*, DPTSET+5*, LRTSET+3*, LPOSET+6*, LPOSET+15*, PD1+6* , PD1+9*, PD1+23*, PD1+26*, PD1+30*, PD1+34*, PD1+38*, PD1+44* |
LA7("LPC" | PT+36*, PT+40*, PT+46 |
LA7("LRDFN" | LPOSET+18* |
LA7("PNM" | DPTSET+10*, LRTSET+10*, LPOSET+10*, PD1+40* |
LA7("RACE" | DPTSET+17*, LPOSET+14* |
LA7("RIEN" | DPTSET+11*, LRTSET+11*, LPOSET+16*, LPOSET+17, LPOSET+18, LPOSET+19 |
LA7("RSITE" | PT+49*, PT+50 |
LA7("RUID" | PT+54*, LPO+3 |
LA7("SEX" | DPTSET+12*, LRTSET+12*, LPOSET+12*, PD1+42* |
LA7("SSN" | PT+65*, DPTSET+13*, LRTSET+13*, LPOSET+8, LPOSET+16, PD1+33 |
LA7696 | LPO+2~, LPO+3*, LPO+4*, LPO+5, LPO+6 |
LA7BCS | PT+20~, PT+21*, PT+41*, PT+57, PT+58 |
LA7ERR | DPTSET+2~, DPTSET+15 |
LA7IEN | PT+20~ |
>> LA7PNM | PT+21* |
LA7PROM | PT~, PT+22*, PT+23, PD1+2~, PD1+4*, PD1+7 |
LA7PROM(1 | PD1+5* |
LA7RUID | LPO+2~, LPO+3*, LPO+4 |
LA7SCFG | PT~ |
LA7SCFG("LPC" | PT+46, PD1+25 |
LA7SCFG("RSITE" | PT+50 |
LA7SCFG("SMID" | PT+68 |
LA7SM | LPO~, LPO+4 |
LA7X | PT+20~, PT+61*, PT+64, PT+65, PT+71, PT+74, DPT~, DPT+2, LRT~, LRT+3 |
LA7Y | PT+20~, DPT+2*, DPT+4, DPT+5, DPT+9, LRT+3*, LRT+5, LRT+6, LRT+9, DPTSET~ , DPTSET+3, DPTSET+6, DPTSET+9, DPTSET+11, DPTSET+14, LRTSET~, LRTSET+1, LRTSET+4, LRTSET+8, LRTSET+11 , LPOSET~, LPOSET+3 |
LA7Y( | LPOSET+3*, LPOSET+14 |
LA7Y(0 | DPT+5*, DPT+7, LRT+6*, LRT+8, DPTSET+3*, DPTSET+5, DPTSET+7, DPTSET+10, DPTSET+12, DPTSET+13 , LRTSET+1*, LRTSET+3, LRTSET+5, LRTSET+10, LRTSET+12, LRTSET+13, LPOSET+5, LPOSET+8, LPOSET+10, LPOSET+11 , LPOSET+12 |
LA7Z | PT+20~, PD1+6*, PD1+14*, PD1+15*, PD1+19*, PD1+22, PD1+29, PD1+33, PD1+37, PD1+40 , PD1+41, PD1+42 |
LA7Z("LPC" | PD1+16*, PD1+20*, PD1+25 |
RACE | DPTSET+2~ |
RACE( | DPTSET+16 |
U | DPTSET+9, LRTSET+8, LPOSET+8, LPOSET+10, LPOSET+11, LPOSET+12, LPOSET+14, PD1+29, PD1+33, PD1+37 , PD1+40, PD1+41, PD1+42 |
>> X | DPTSET+16*, DPTSET+17 |
Y | PT+20~, PT+23*, PT+25, PT+28, PT+33, PT+34, PT+36, PT+38, PT+39, PT+40 , PD1+7*, PD1+8, PD1+13, PD1+14, PD1+16, PD1+18, PD1+19, PD1+20 |