Routine: LA7SBCR1

Information

LA7SBCR1 ;VA/DALOI/JMC - Shipping Barcode Reader Utility ;JUL 06, 2010 3:14 PM

Source Information

Source file <LA7SBCR1.m>

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
Automated Lab Instruments	1	($$DT,$$RD)^LA7SBCR
VA Fileman	1	GETS^DIQ

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Lab Service	1	LRDPAREF

Entry Points

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.

External References

Name	Field # of Occurrence
GETS^DIQ	DPTSET+14
$$DT^LA7SBCR	PT+57, PT+58
$$RD^LA7SBCR	PT+23, PD1+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GETS^DIQ

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
DPT	PT+71
DPTSET	DPT+9
LPO	PT+68
LPOSET	LPO+6
LRT	PT+74
LRTSET	LRT+9
PD1	PT+77

Local Variables

Legend:

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

Customize PDF page

Package: Automated Lab Instruments

Routine: LA7SBCR1

Call Graph Total: 2

Caller Graph Total: 1