©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
LA7SBCR ;DALOI/JMC - Shipping Barcode Reader Utility ; 7 Feb 1997
Source file <LA7SBCR.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 2 | ^%DT ^DIR |
| Kernel | 1 | ($$LOW,$$UP)^XLFSTR |
| Package | Total | Caller Graph |
|---|---|---|
| Automated Lab Instruments | 3 | LA7SBCR1 LA7SBCR2 LA7SBCR3 |
| Lab Service | 2 | LRORD LRORDGUI |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RD(LA7SDP,LA7CASE) | ; Read input from barcode reader.
; Input ; LA7SDP=array containing default prompt to display ; LA7CASE=0 return scanned text as barcoded ; =1 return scanned text in upper case. ; =2 return scanned text in lower case. |
|
| DT(X) | ; Validate date/time
|
|
| BAR(Y) | ; Ask user if utilizing a barcode reader
; Returns -1 = user aborted ; 0 = No ; 1 = Yes |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | DT+1~, DT+2* |
| DIR | BAR+5~, RD+12~ |
| DIR("A" | BAR+6*, RD+16*, RD+17* |
| DIR("B" | BAR+6* |
| DIR(0 | BAR+6*, RD+18* |
| DIRUT | BAR+5~, BAR+8, RD+12~, RD+20 |
| DTOUT | BAR+5~, RD+12~ |
| DUOUT | BAR+5~, RD+12~ |
| I | RD+12~, RD+15*, RD+16* |
| LA7CASE | RD~, RD+14*, RD+23, RD+24 |
| LA7SDP | RD~, RD+13*, RD+17 |
| LA7SDP( | RD+16 |
| LA7Y | RD+12~, RD+22*, RD+23*, RD+24*, RD+25 |
| X | BAR+5~, RD+12~, DT~ |
| Y | BAR~, BAR+5~, BAR+9, RD+12~, RD+21, RD+22, DT+1~, DT+3*, DT+4 |