Routine: BLRLABLD

Package	Total	Call Graph
VA Fileman	1	^%DT

Entry Points

Name	Comments	DBIA/ICR reference
PRT	;plain label..no barcode
FLAG
EN
BAR	;barcode label..accession number barcoded

External References

Name	Field # of Occurrence
^%DT	PRT+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: 2,"R",3 Line Location: BAR+1
Function Call: WRITE	Prompt: 2,27,"E4",24,LRACC,3 Line Location: BAR+2
Function Call: WRITE	Prompt: 2,!,LRDAT,!,LRTOP,3 Line Location: BAR+3
Function Call: WRITE	Prompt: 2,!,$E(PNM,1,27),!,HRCN,!,"W:"_$E(LRLLOC,1,7)_" B:"_LRRB,3 Line Location: BAR+4
Function Call: WRITE	Prompt: 2,!,$E("0000",$L(LRAN),4)_LRAN,3 Line Location: BAR+5
Function Call: WRITE	Prompt: *2,!,"Order#:",LRCE,!,$E(LRTXT,1,32) Line Location: BAR+6
Function Call: WRITE	Prompt: "..." Condition for execution: $L(LRTXT)>32 Line Location: BAR+6
Function Call: WRITE	Prompt: 2,!,BLRURG,3 Line Location: BAR+8
Function Call: WRITE	Prompt: 2,!,LRACC,3 Line Location: BAR+9
Function Call: WRITE	Prompt: 2,!,LRDAT,3 Line Location: BAR+10
Function Call: WRITE	Prompt: 2,!,LRACC,3 Line Location: BAR+11
Function Call: WRITE	Prompt: 2,!,$E(PNM,1,27),!,HRCN,!,"W:"_$E(LRLLOC,1,7)_" B:"_LRRB,3 Line Location: BAR+12
Function Call: WRITE	Prompt: *2,!,LRDAT,!,$E(LRTXT,1,32) Line Location: BAR+13
Function Call: WRITE	Prompt: "..." Condition for execution: $L(LRTXT)>32 Line Location: BAR+13
Function Call: WRITE	Prompt: 2,23,15,"S30",12,*3 Line Location: BAR+14
Function Call: WRITE	Prompt: 2,"R",3 Line Location: PRT+1
Function Call: WRITE	Prompt: 2,27,"E5",24,!,LRACC,3 Line Location: PRT+2
Function Call: WRITE	Prompt: 2,!,LRDAT,!,LRTOP,3 Line Location: PRT+3
Function Call: WRITE	Prompt: 2,!,$E(PNM,1,27),!,HRCN,!,"DOB:"_$E(Y,4,5)_"/"_$E(Y,6,7)_"/"_$E(Y,2,3),!,"W:"_$E(LRLLOC,1,7)_" B:"_LRRB,3 Line Location: PRT+5
Function Call: WRITE	Prompt: *2,!,"Order#:",LRCE,!,$E(LRTXT,1,32) Line Location: PRT+6
Function Call: WRITE	Prompt: "..." Condition for execution: $L(LRTXT)>32 Line Location: PRT+6
Function Call: WRITE	Prompt: 2,!,BLRURG,3 Line Location: PRT+8
Function Call: WRITE	Prompt: 2,!,LRACC,3 Line Location: PRT+9
Function Call: WRITE	Prompt: 2,!,LRDAT,3 Line Location: PRT+10
Function Call: WRITE	Prompt: 2,!,LRACC,3 Line Location: PRT+11
Function Call: WRITE	Prompt: 2,!,$E(PNM,1,27),!,HRCN,!,"W:"_$E(LRLLOC,1,7)_" B:"_LRRB,3 Line Location: PRT+12
Function Call: WRITE	Prompt: *2,!,LRDAT,!,$E(LRTXT,1,32) Line Location: PRT+13
Function Call: WRITE	Prompt: "..." Condition for execution: $L(LRTXT)>32 Line Location: PRT+13
Function Call: WRITE	Prompt: 2,23,15,"S30",12,*3 Line Location: PRT+14

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	EN+2
^LAB(62.05 - [#62.05]	BAR+7, PRT+7

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BLRURG	EN+4, FLAG+3!, BAR+7, BAR+8, BAR+15!, PRT+7*, PRT+8, PRT+15!
>> DOB	PRT+4
>> FLAG	EN+5*, FLAG
>> HRCN	BAR+4, BAR+12, PRT+5, PRT+12
I1	EN+1~, EN+5*
J	EN+1~, EN+5*
>> LRACC	BAR+2, BAR+9, BAR+11, PRT+2, PRT+9, PRT+11
>> LRAN	BAR+5
>> LRBAR	FLAG+2
>> LRCE	BAR+6, PRT+6
>> LRDAT	BAR+3, BAR+10, BAR+13, PRT+3, PRT+10, PRT+13
>> LRDTXT	FLAG*
>> LRLLOC	BAR+4, BAR+12, PRT+5, PRT+12
>> LRLPNM	FLAG+1*
>> LRRB	EN+3*, BAR+4, BAR+12, PRT+5, PRT+12
>> LRTOP	BAR+3, PRT+3
>> LRTS(	EN+5
>> LRTXT	EN+5*, FLAG, BAR+6, BAR+13, PRT+6, PRT+13
>> LRURG0	BAR+7, PRT+7
>> PNM	FLAG+1, BAR+4, BAR+12, PRT+5, PRT+12
U	BAR+7, PRT+7
>> X	EN+2, PRT+4
>> Y	PRT+5
>> ZTQUEUED	EN
>> ZTREQ	EN*

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRLABLD

Information

Source Information

Call Graph

Call Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: