©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
LA7SBCR2 ;VA/DALOI/JMC - Shipping Barcode Reader Utility ;JUL 06, 2010 3:14 PM
Source file <LA7SBCR2.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Lab Instruments | 2 | ($$DT,$$RD)^LA7SBCR ($$FINDSITE,$$RETFACID)^LA7VHLU2 |
| VA Fileman | 2 | $$GET1^DIQ ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BAR | ; Read SM bar code
|
|
| 1 | ;;User timeout/abort;;
|
|
| 3 | ;;No Shipping Configuration identified in file #62.9;;
|
|
| 2 | ;;Incorrect barcode format;;
|
|
| 5 | ;;No entry in INSTITUTION file #4;;
|
|
| 4 | ;;Sender's Specimen ID source not presently supported;;
|
|
| ERROR | ;; Code/Text of error messages
|
|
| GETSITE | ; Retrieve site info from institution file for this shipping configuration.
; Set ID type from shipping configuration. |
|
| SITE(LA7,LA7PROM,LA7BAR) | ; Setup remote site info.
; Input: ; LA7=array to return values ; LA7PROM=prompt to display to user ; LA7BAR=0/1 using barcode reader ; Screen: Second piece of bar-code must = SITE ; Returns array LA7() |
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LAHM(62.9 - [#62.9] | GETSITE+3, BAR+27, BAR+28 |
| Name | Line Occurrences |
|---|---|
| BAR | SITE+23 |
| GETSITE | SITE+34 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIR | SITE+26~ |
| DIR("A" | SITE+27* |
| DIR("S" | SITE+28* |
| DIR(0 | SITE+27* |
| DIRUT | SITE+26~ |
| DTOUT | SITE+26~ |
| DUOUT | SITE+26~ |
| DUZ(2 | BAR+29 |
| LA7 | SITE~, BAR+4*, BAR+11*, BAR+12*, BAR+16*, BAR+20, BAR+22, BAR+24, BAR+32, BAR+35 |
| LA7( | SITE+21* |
| LA7("ERROR" | SITE+30*, SITE+33, SITE+35*, SITE+37, SITE+38*, GETSITE+7*, GETSITE+14*, GETSITE+21*, BAR+5*, BAR+6* , BAR+20*, BAR+25* |
| LA7("IDTYPE" | GETSITE+4*, GETSITE+7 |
| LA7("LPC" | BAR+13*, BAR+17* |
| LA7("RPSITE" | GETSITE+20* |
| LA7("RSITE" | GETSITE+13* |
| LA7("SCFG" | SITE+31*, SITE+34, SITE+35, GETSITE+3, BAR+29* |
| LA7("SDT" | BAR+32* |
| LA7("SMID" | BAR+35* |
| LA7BAR | SITE~, SITE+23, SITE+25 |
| LA7BCS | BAR+2~, BAR+18* |
| LA7PROM | SITE~, SITE+22*, BAR+4 |
| LA7X | SITE+19~ |
| LRX | GETSITE+2~, GETSITE+9*, GETSITE+10, GETSITE+11, GETSITE+12, GETSITE+13, GETSITE+16*, GETSITE+17, GETSITE+18, GETSITE+19 , GETSITE+20 |
| LRY | GETSITE+2~, GETSITE+10*, GETSITE+11, GETSITE+13, GETSITE+17*, GETSITE+18, GETSITE+20 |
| LRY(99 | GETSITE+12*, GETSITE+13, GETSITE+19*, GETSITE+20 |
| X | SITE+19~, SITE+26~, GETSITE+2~, BAR+23~, BAR+26*, BAR+27*, BAR+28, BAR+29 |
| X(0 | BAR+28*, BAR+29 |
| Y | SITE+19~, SITE+21*, SITE+26~, SITE+30, SITE+31, GETSITE+2~, BAR+2~, BAR+4*, BAR+5, BAR+6 , BAR+10, BAR+11, BAR+13, BAR+15, BAR+16, BAR+17, BAR+23~, BAR+26*, BAR+27, BAR+29* |
| Y(0 | GETSITE+3*, GETSITE+4, GETSITE+9, GETSITE+16 |
| Z | BAR+23~, BAR+24*, BAR+25, BAR+27 |
| Name | Field # of Occurrence |
|---|---|
| $T(ERROR+LA7(1) | SITE+38 |