Routine: BLRBARD

Package	Total	Call Graph
Kernel	2	^%ZIS ^%ZTLOAD

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	ZIS
^%ZTLOAD	ZIS+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?20,*7,"NO DEVICE SELECTED " Line Location: ZIS+0
Function Call: WRITE	Prompt: 2,27,"P",*3 Line Location: BAR+1
Function Call: WRITE	Prompt: 2,"E4;F4;",3 Line Location: BAR+2
Function Call: WRITE	Prompt: 2,"F4;H0;o160,485;f2;c2;h2;w1;d0,14;",3 Line Location: L0+0
Function Call: WRITE	Prompt: 2,"F4;H1;o200,453;f2;c2;h1;w1;d0,16;",3 Line Location: L1+0
Function Call: WRITE	Prompt: 2,"F4;H2;o133,350;f1;c2;h1;w1;d0,14;",3 Line Location: L2+0
Function Call: WRITE	Prompt: 2,"F4;H3;o0,390;f1;c2;h2;w1;d0,21;",3 Line Location: L3+0
Function Call: WRITE	Prompt: 2,"F4;H4;o30,390;f1;c2;h1;w1;d0,7;",3 Line Location: L4+0
Function Call: WRITE	Prompt: 2,"F4;H5;o30,290;f1;c2;h1;w1;d0,9;",3 Line Location: L5+0
Function Call: WRITE	Prompt: 2,"F4;B6;o50,400;f1;c0,0;h60;w2;d0,5;",3 Line Location: L6+0
Function Call: WRITE	Prompt: 2,"F4;H7;o116,390;f1;c2;h1;w1;d0,13;",3 Line Location: L7+0
Function Call: WRITE	Prompt: 2,"F4;H8;o150,390;f1;c2;h1;w1;d0,22;",3 Line Location: L8+0
Function Call: WRITE	Prompt: 2,"F4;H9;o170,240;f1;c0;h3;w3;b1;d0,4;",3 Line Location: L9+0
Function Call: WRITE	Prompt: 2,"F4;H10;o0,700;f1;c2;h2;w1;d0,14;",3 Line Location: L10+0
Function Call: WRITE	Prompt: 2,"F4;H11;o35,700;f1;c2;h1;w1;d0,16;",3 Line Location: L11+0
Function Call: WRITE	Prompt: 2,"F4;H12;o90,700;f1;c2;h2;w1;d0,14;",3 Line Location: L12+0
Function Call: WRITE	Prompt: 2,"F4;H13;o133,700;f1;c2;h1;w1;d0,20;",3 Line Location: L13+0
Function Call: WRITE	Prompt: 2,"F4;H14;o150,700;f1;c2;h1;w1;d0,7;",3 Line Location: L14+0
Function Call: WRITE	Prompt: 2,"F4;H15;o166,700;f1;c2;h1;w1;d0,7;",3 Line Location: L15+0
Function Call: WRITE	Prompt: 2,"F4;H16;o181,700;f1;c2;h1;w1;d0,16;",3 Line Location: L16+0
Function Call: WRITE	Prompt: 2,"F4;H17;o200,700;f1;c2;h1;w1;d0,13;",3 Line Location: L17+0
Function Call: WRITE	Prompt: 2,27,"C",*3 Line Location: PLAIN+1
Function Call: WRITE	Prompt: 2,27,"P",*3 Line Location: PLAIN+2
Function Call: WRITE	Prompt: 2,"E5;F5;",3 Line Location: PLAIN+3
Function Call: WRITE	Prompt: 2,"F5;H18;o0,450;f1;c2;h2;w1;d0,21;",3 Line Location: L18+0
Function Call: WRITE	Prompt: 2,"F5;H19;o33,450;f1;c2;h1;w1;d0,16;",3 Line Location: L19+0
Function Call: WRITE	Prompt: 2,"F5;H20;o50,450;f1;c2;h1;w1;d0,14;",3 Line Location: L20+0
Function Call: WRITE	Prompt: 2,"F5;H21;o75,450;f1;c2;h2;w1;d0,21;",3 Line Location: L21+0
Function Call: WRITE	Prompt: 2,"F5;H22;o105,450;f1;c2;h1;w1;d0,7;",3 Line Location: L22+0
Function Call: WRITE	Prompt: 2,"F5;H23;o105,350;f1;c2;h1;w1;d0,14;",3 Line Location: L23+0
Function Call: WRITE	Prompt: 2,"F5;H24;o133,280;f1;c2;h1;w1;d0,9;",3 Line Location: L24+0
Function Call: WRITE	Prompt: 2,"F5;H25;o133,450;f1;c2;h1;w1;d0,13;",3 Line Location: L25+0
Function Call: WRITE	Prompt: 2,"F5;H26;o150,450;f1;c2;h1;w1;d0,22;",3 Line Location: L26+0
Function Call: WRITE	Prompt: 2,"F5;H27;o170,240;f1;c0;h3;w3;b1;d0,4;",3 Line Location: L27+0
Function Call: WRITE	Prompt: 2,"F5;H28;o0,700;f1;c2;h2;w1;d0,14;",3 Line Location: L28+0
Function Call: WRITE	Prompt: 2,"F5;H29;o35,700;f1;c2;h1;w1;d0,16;",3 Line Location: L29+0
Function Call: WRITE	Prompt: 2,"F5;H30;o90,700;f1;c2;h2;w1;d0,14;",3 Line Location: L30+0
Function Call: WRITE	Prompt: 2,"F5;H31;o133,700;f1;c2;h1;w1;d0,20;",3 Line Location: L31+0
Function Call: WRITE	Prompt: 2,"F5;H32;o150,700;f1;c2;h1;w1;d0,7;",3 Line Location: L32+0
Function Call: WRITE	Prompt: 2,"F5;H33;o166,700;f1;c2;h1;w1;d0,7;",3 Line Location: L33+0
Function Call: WRITE	Prompt: 2,"F5;H34;o181,700;f1;c2;h1;w1;d0,16;",3 Line Location: L34+0
Function Call: WRITE	Prompt: 2,"F5;H35;o200,700;f1;c2;h1;w1;d0,13;",3 Line Location: L35+0
Function Call: WRITE	Prompt: 2,"R",3 Line Location: L35+1
Function Call: WRITE	Prompt: 2,27,"E4",24,LRAN,!,LRDAT,!,LRTOP,3 Line Location: F5+2
Function Call: WRITE	Prompt: 2,!,PNM,!,HRCN,!,"W:",LRLLOC,3 Line Location: F5+3
Function Call: WRITE	Prompt: 2,!,NUMBER,!,"Order#:",LRCE,!,LRTXT,3 Line Location: F5+4
Function Call: WRITE	Prompt: *2,! Line Location: F5+5
Function Call: WRITE	Prompt: LRURG Condition for execution: $D(LRURG)&(LRURG="STAT") Line Location: F5+5
Function Call: WRITE	Prompt: *3 Line Location: F5+5
Function Call: WRITE	Prompt: 2,!,LRAN,!,LRDAT,3 Line Location: F5+6
Function Call: WRITE	Prompt: 2,!,LRAN,3 Line Location: F5+7
Function Call: WRITE	Prompt: 2,!,PNM,!,HRCN,!,LRLLOC,!,LRDAT,!,LRTXT,3 Line Location: F5+8
Function Call: WRITE	Prompt: 2,23,15,"S30",3 Line Location: F5+9
Function Call: WRITE	Prompt: 2,27,"E5",24,!,LRAN,!,LRDAT,!,LRTOP,3 Line Location: F5+10
Function Call: WRITE	Prompt: 2,!,PNM,!,HRCN,!,DOB,!,"W:",LRLLOC,3 Line Location: F5+11
Function Call: WRITE	Prompt: 2,!,"Order#:",LRCE,!,LRTXT,3 Line Location: F5+12
Function Call: WRITE	Prompt: *2,! Line Location: F5+13
Function Call: WRITE	Prompt: LRURG Condition for execution: $D(LRURG)&(LRURG="STAT") Line Location: F5+13
Function Call: WRITE	Prompt: *3 Line Location: F5+13
Function Call: WRITE	Prompt: 2,!,LRAN,!,LRDAT,3 Line Location: F5+14
Function Call: WRITE	Prompt: 2,!,LRAN,3 Line Location: F5+15
Function Call: WRITE	Prompt: 2,!,PNM,!,HRCN,!,LRLLOC,!,LRDAT,!,LRTXT,3 Line Location: F5+16
Function Call: WRITE	Prompt: 2,23,15,"S30",3 Line Location: F5+17
Routine Call	%ZIS Line Location: ZIS

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	ZIS*
>> DOB	TEST+3*, F5+11
>> HRCN	TEST+2*, F5+3, F5+8, F5+11, F5+16
ION	ZIS+1
>> LRAN	TEST+1*, F5+2, F5+6, F5+7, F5+10, F5+14, F5+15
>> LRCE	TEST+4*, F5+4, F5+12
>> LRDAT	TEST+1*, F5+2, F5+6, F5+8, F5+10, F5+14, F5+16
>> LRLLOC	TEST+4*, F5+3, F5+8, F5+11, F5+16
>> LRTOP	TEST+2*, F5+2, F5+10
>> LRTXT	TEST+4*, F5+4, F5+8, F5+12, F5+16
>> LRURG	TEST+4*, F5+5, F5+13
>> NUMBER	TEST+1*, F5+4
>> PNM	TEST+2*, F5+3, F5+8, F5+11, F5+16
>> POP	ZIS
>> X	BAR+1, F5+1
>> ZTDESC	ZIS+1*
>> ZTDTH	ZIS+1*
>> ZTIO	ZIS+1*
>> ZTRTN	ZIS+1*

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRBARD

Information

Source Information

Call Graph

Call Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
BAR	;FORMAT BAR CODE LABELS
L19
L14
L15
L16
L17
L10
L11
L12
L13
L18
L21
L20
L23
L22
L25
L24
L27
L26
L29
L28
ZIS
PLAIN	;programs format F2 for plain label /no barcoded accession #
FMT	;E3;F3 erases form 3 and accesses form #
L6
L7
L4
L5
L2
L3
L0
L1
L8
L9
F5	;prints sample of label with accession # barcoded
L34
L35
L32
L33
L30
L31
TEST	;sets variables used with the test labels