Routine: ASURO26B

Information

ASURO26B ; IHS/ITSC/LMH - WAREHOUSE BIN LABEL REPORT 26B ;

Package	Total	Call Graph
Supply	5	(ARE,STA)^ASULARST ACC^ASULDIRF ^ASUMSTRD IDX^ASUMXDIO PAZ^ASUURHDR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	^DIC ^DIR

Package	Total	Caller Graph
Supply	1	ASU826BWBL

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No device selected or report queued." Line Location: ASURO26B+9
Function Call: WRITE	Prompt: !,"Queued" Line Location: ASURO26B+10
Function Call: WRITE	Prompt: !!,"REPORT N0. 26B WAREHOUSE BIN LABELS" Line Location: QUE+4
Function Call: WRITE	Prompt: !,ASUR("HEAD"),!!! Line Location: QUE+5
Function Call: WRITE	Prompt: !,"INDEX # ",$P(ASU1(1),U,2),?25,"SLC: ",$P(ASU1(1),U,3) Line Location: PL+3
Function Call: WRITE	Prompt: ?42,"INDEX # ",$P(ASU1(1),U,4),?67,"SLC: ",$P(ASU1(1),U,5) Line Location: PL+4
Function Call: WRITE	Prompt: ?82,"INDEX # ",$P(ASU1(1),U,6),?107,"SLC: ",$P(ASU1(1),U,7) Line Location: PL+5
Function Call: WRITE	Prompt: !,"UNIT OF ISS: ",$J($P(ASU1(2),U,2),2),?25,"RPQ: ",$P(ASU1(2),U,3) Line Location: PL+8
Function Call: WRITE	Prompt: ?42,"UNIT OF ISS: ",$P(ASU1(2),U,4),?67,"RPQ: ",$P(ASU1(2),U,5) Line Location: PL+9
Function Call: WRITE	Prompt: ?82,"UNIT OF ISS: ",$P(ASU1(2),U,6),?107,"RPQ: ",$P(ASU1(2),U,7) Line Location: PL+10
Function Call: WRITE	Prompt: !,"DESC: ",$P(ASU1(3),U,2),?42,"DESC: ",$P(ASU1(3),U,3),?82,"DESC: ",$P(ASU1(3),U,4) Line Location: PL+13
Function Call: WRITE	Prompt: !?6,$P(ASUR(4),U,2),?48,$P(ASUR(4),U,3),?88,$P(ASUR(4),U,4),!! Line Location: PL+16
Routine Call	DIC Line Location: B0+9
Routine Call	DIR Line Location: B0+5
Routine Call	%ZIS Line Location: ASURO26B+9

Name	Line Occurrences (* Changed, ! Killed)
^ASUMS - [#9002031]	EN1+1, EN1+2
^XTMP("ASUR"	QUE+8, QUE+9, QUE+10, QUE+11, QUE+12, B0+1!, B0+2, SORT+3

Name	Field # of Occurrence
^(	QUE+12

Name	Field # of Occurrence
%ZIS	ASURO26B+9!*
>> ASU1(1	ASURO26B+7!, QUE+13, PL+3, PL+4, PL+5, B3+3*
>> ASU1(2	ASURO26B+7!, QUE+13, PL+8, PL+9, PL+10, B3+4*
>> ASU1(3	ASURO26B+7!, QUE+13, PL+13, B3+5*
ASUC	QUE+7, QUE+12, KIL+1!, B3+7*
>> ASUF("DLIDX"	EN1+3
>> ASUK("DT"	B0+2
>> ASUL(1	SORT+3
>> ASUL(2	SORT+3
>> ASUMS("AR"	EN1+4
>> ASUMS("E#"	EN1+1, EN1+2, EN1+6
>> ASUMS("RPQ"	SORT+1
>> ASUMS("SLC"	EN1+10, SORT+2*, SORT+3
>> ASUMS("STA"	EN1+5
>> ASUMX("ACC"	EN1+7, EN1+9, SORT+3
>> ASUMX("AR U/I	" , SORT+1
>> ASUMX("DESC"	SORT+1
>> ASUMX("IDX"	EN1+6
ASUR	B3+7!, B0+1!
ASUR("26B"	ASURO26B+4, QUE+12, KIL+1!, B3+4, B3+5, B3+6, B0+8, B0+10, EN1+8, EN1+9 , EN1+10, KILL+1!
ASUR("HEAD"	QUE+5, B0+6, B0+10
ASUR("IDX"	EN1+6*, SORT+3
ASUR(4	ASURO26B+7!, PL+16, B3+6*
ASURD	KIL+1!
ASURD(1	QUE+8*, QUE+9, QUE+10, QUE+11, QUE+12
ASURD(2	QUE+9*, QUE+10, QUE+11, QUE+12
ASURD(3	QUE+10*, QUE+11, QUE+12
ASURD(4	QUE+11*, QUE+12, B3+3
ASURD(5	QUE+12*, B3+3
>> DIC	B0+9*
>> DIC("A"	B0+9*
>> DIC(0	B0+9*
>> DIR("A"	B0+3*
>> DIR(0	B0+4*
>> DIROUT	B0+5
>> DIRUT	B0+5
IO	QUE+3
IO("Q"	ASURO26B+9!, ASURO26B+10!
ION	ASURO26B+10
IOP	ASURO26B+9!
>> POP	ASURO26B+9
U	PL+3, PL+4, PL+5, PL+8, PL+9, PL+10, PL+13, PL+16, B3+3, B3+4 , B3+5, B3+6, B0+2, B0+10, SORT+1
>> X	B0+5, SORT+1*, SORT+3
>> Y	B0+6, B0+9
>> Y(0	B0+10
ZTDTH	ASURO26B+10!*
>> ZTIO	ASURO26B+10*
>> ZTRTN	ASURO26B+10*
ZTSAVE	ASURO26B+10!
ZTSAVE("ASUR(""HEAD"")"	ASURO26B+10*
ZTSAVE("ASURO26B("	ASURO26B+10*
ZTSAVE("DUZ*"	ASURO26B+10*
ZTSK	ASURO26B+10!