Routine: LA7SBCR2

Information

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

Package	Total	Caller Graph
Lab Service	2	LRORD LRORDGUI

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()

Name	Line Occurrences
BAR	SITE+23
GETSITE	SITE+34

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