©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
LA7SBCR1 ;VA/DALOI/JMC - Shipping Barcode Reader Utility ;JUL 06, 2010 3:14 PM
Source file <LA7SBCR1.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Lab Instruments | 1 | ($$DT,$$RD)^LA7SBCR |
| VA Fileman | 1 | GETS^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DPT(LA7,LA7X) | ; Lookup in Patient file.
; Check for patient in file #2. |
|
| LPO(LA7,LA7SM) | ; Lookup in LAB PENDING ORDERS file #69.6
|
|
| LRTSET(LA7,LA7Y) | ; Setup array from Lab Referral file.
|
|
| PD1 | ; Read PD1 bar code information
|
|
| LPOSET(LA7,LA7Y) | ; Setup array from LAB PENDING ORDERS file #69.6
|
|
| 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 |
|
| LRT(LA7,LA7X) | ; Lookup in Lab Referral file.
; Clear error flag. |
|
| DPTSET(LA7,LA7Y) | ; Setup array from Patient file.
|
| 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 |