Routine: LA7SBCR2

Information

LA7SBCR2 ;DALOI/JMC - Shipping Barcode Reader Utility ;05/29/12 10:28

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Automated Lab Instruments	2	($$DT,$$RD)^LA7SBCR ($$FINDSITE,$$RETFACID)^LA7VHLU2
VA FileMan	2	$$GET1^DIQ ^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Lab Service	1	LRORD

Entry Points

Name	Comments	DBIA/ICR reference
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()
GETSITE	; Retrieve site info from institution file for this shipping configuration. ; Set ID type from shipping configuration.
BAR	; Read SM bar code
ERROR	;; Code/Text of error messages
1	;;User timeout/abort;;
2	;;Incorrect barcode format;;
3	;;No Shipping Configuration identified in file #62.9;;
4	;;Sender's Specimen ID source not presently supported;;
5	;;No entry in INSTITUTION file #4;;

Name	Field # of Occurrence
$$GET1^DIQ	GETSITE+12, GETSITE+19, GETSITE+26
^DIR	SITE+30
$$DT^LA7SBCR	BAR+32
$$RD^LA7SBCR	BAR+4
$$FINDSITE^LA7VHLU2	BAR+24
$$RETFACID^LA7VHLU2	GETSITE+14, GETSITE+21, GETSITE+28

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAHM(62.9 - [#62.9]	GETSITE+3, BAR+27, BAR+28

Label References

Name	Line Occurrences
BAR	SITE+24
GETSITE	SITE+35

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	SITE+27~
DIR("A"	SITE+28*
DIR("S"	SITE+29*
DIR(0	SITE+28*
DIRUT	SITE+27~
DTOUT	SITE+27~
DUOUT	SITE+27~
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+22*
LA7("ERROR"	SITE+31, SITE+34, SITE+36, SITE+38, SITE+39, GETSITE+9, GETSITE+16, GETSITE+23, GETSITE+30, BAR+5 , BAR+6, BAR+20, BAR+25*
LA7("HSITE"	GETSITE+29*
LA7("IDTYPE"	GETSITE+4*, GETSITE+7, GETSITE+8
LA7("LPC"	BAR+13, BAR+17
LA7("RPSITE"	GETSITE+22*
LA7("RSITE"	GETSITE+15*
LA7("SCFG"	SITE+32, SITE+35, SITE+36, GETSITE+3, BAR+29
LA7("SDT"	BAR+32*
LA7("SMID"	BAR+35*
LA7BAR	SITE~, SITE+24, SITE+26
LA7BCS	BAR+2~, BAR+18*
LA7PROM	SITE~, SITE+23*, BAR+4
LA7X	SITE+20~
LRX	GETSITE+2~, GETSITE+11, GETSITE+12, GETSITE+13, GETSITE+14, GETSITE+15, GETSITE+18, GETSITE+19, GETSITE+20, GETSITE+21 , GETSITE+22, GETSITE+25*, GETSITE+26, GETSITE+27, GETSITE+28, GETSITE+29, GETSITE+30
LRY	GETSITE+2~, GETSITE+12, GETSITE+13, GETSITE+15, GETSITE+19, GETSITE+20, GETSITE+22, GETSITE+26*, GETSITE+27, GETSITE+29 , GETSITE+30
LRY(99	GETSITE+14, GETSITE+15, GETSITE+21, GETSITE+22, GETSITE+28*, GETSITE+29
X	SITE+20~, SITE+27~, GETSITE+2~, BAR+23~, BAR+26, BAR+27, BAR+28, BAR+29
X(0	BAR+28*, BAR+29
Y	SITE+20~, SITE+22, SITE+27~, SITE+31, SITE+32, 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+8, GETSITE+11, GETSITE+18, GETSITE+25
Z	BAR+23~, BAR+24*, BAR+25, BAR+27

Marked Items

Name	Field # of Occurrence
$T(ERROR+LA7(1)	SITE+39

Customize PDF page

Package: Automated Lab Instruments