Routine: ASURO26A

Package	Total	Call Graph
Supply	4	SETAREA^ASULARST DIS^ASUMDIRM READ^ASUMKBIO PAZ^ASUURHDR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	^DIC ^DIR

Package	Total	Caller Graph
Supply	2	ASU826ACBL ASURO26P

Entry Points

Name	Comments	DBIA/ICR reference
USER	;Process Users in Sub Station
DIR	;Menu
1	;;CUPBOARD STOCK BIN LABELS -ALPHA SEQ BY SUB STATION AND USER
COLUMN	;Display columns
A1	;
A0	;
3	;;CUPBOARD STOCK BIN LABLES -INDEX SEQ
2	;;CUPBOARD STOCK BIN LABLES -ALPHA SEQ BY CATEGORY
BLANK	;blank out one labels worth of print fields
KILSS	;
NEWPAGE	;Form feed code
COMPUTE	;
HED	;Header vars
BUILD	;Process Indexs in User
BYE	;
SLC	;Order on ASU1(16)...it will be in form STORAGE LOCATION H,R,or *
Q	;Queue
SST	;EP ;
LIST	;EP ;Taskman Entry Point
SU	;Select User for Sub-Station
EXIT	;
LOOP	;
USR	;EP ;

External References

Name	Field # of Occurrence
^%ZIS	Q+3
^%ZISC	BYE+6
^%ZTLOAD	Q+6
SETAREA^ASULARST	ASURO26A+7
DIS^ASUMDIRM	BUILD+8
READ^ASUMKBIO	BUILD+5
PAZ^ASUURHDR	BYE+6, NEWPAGE+2
^DIC	SST+16, SU+9, SU+12
^DIR	DIR+5, SST+8, USR+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,ASU1(10)," ",$P($T(@ASU1(10)),";",3) Line Location: DIR+2
Function Call: WRITE	Prompt: !,"Report Queued.." Line Location: Q+6
Function Call: WRITE	Prompt: !!,"****** NO DATA FOUND *******" Line Location: EXIT+1
Function Call: WRITE	Prompt: @IOF Line Location: BYE+6
Function Call: WRITE	Prompt: @IOF Line Location: NEWPAGE+3
Function Call: WRITE	Prompt: !,ASUX(1),ASUC(1,1),?15,ASUX(2),ASUC(1,2),?24,ASUX(3) Line Location: COLUMN+1
Function Call: WRITE	Prompt: ?41,ASUX(1),ASUC(2,1),?55,ASUX(2),ASUC(2,2),?64,ASUX(3) Line Location: COLUMN+2
Function Call: WRITE	Prompt: ?81,ASUX(1),ASUC(3,1),?95,ASUX(2),ASUC(3,2),?104,ASUX(3) Line Location: COLUMN+3
Function Call: WRITE	Prompt: !,ASUC(1,3) Line Location: COLUMN+4
Function Call: WRITE	Prompt: ?41,ASUC(2,3) Line Location: COLUMN+5
Function Call: WRITE	Prompt: ?81,ASUC(3,3) Line Location: COLUMN+6
Function Call: WRITE	Prompt: !,ASUC(1,4),?37,ASUC(1,5) Line Location: COLUMN+7
Function Call: WRITE	Prompt: ?41,ASUC(2,4),?73,ASUC(2,5) Line Location: COLUMN+8
Function Call: WRITE	Prompt: ?81,ASUC(3,4),?115,ASUC(3,5) Line Location: COLUMN+9
Function Call: WRITE	Prompt: !,ASUX(4),ASUC(1,6),?7,ASUX(5),ASUC(1,7),?13,ASUX(6),ASUC(1,8),?21,ASUX(7),ASUC(1,9) Line Location: COLUMN+10
Function Call: WRITE	Prompt: ?41,ASUX(4),ASUC(2,6),?51,ASUX(5),ASUC(2,7),?57,ASUX(6),ASUC(2,8),?65,ASUX(7),ASUC(2,9) Line Location: COLUMN+11
Function Call: WRITE	Prompt: ?81,ASUX(4),ASUC(3,6),?87,ASUX(5),ASUC(3,7),?93,ASUX(6),ASUC(3,8),?101,ASUX(7),ASUC(3,9) Line Location: COLUMN+12
Function Call: WRITE	Prompt: !! Line Location: COLUMN+13
Routine Call	DIC Line Location: SST+16 SU+9 SU+12
Routine Call	DIR Line Location: DIR+5 SST+8 USR+10
Routine Call	%ZIS Line Location: Q+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ASUL(18 - [#9002039.18]	Classic Fileman Calls
^ASUL(20 - [#9002039.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ASUL(18 - [#9002039.18]	SST+17
^ASUMK - [#9002033]	A0+4, USER+5, BUILD+3, USR+21
^ASUMS - [#9002031]	BUILD+14
^ASUMS("C"	BUILD+9, BUILD+10, BUILD+11
^ASUMX - [#9002032]	BUILD+15
^XTMP("ASUR"	ASURO26A+5!, ASURO26A+6, EXIT+1, BYE+4!, BUILD+29, A1+1, A1+6, A1+8, A1+10, A1+12 , A1+14, SLC+2, SLC+4, LOOP+4, LOOP+8

Label References

Name	Line Occurrences
A0	COMPUTE+2
A1	LIST+1
BLANK	LOOP+11
BUILD	USER+5, USER+8
COLUMN	LOOP+2
COMPUTE	Q+7, Q+8
DIR	ASURO26A+9
EXIT	ASURO26A+10
HED	LIST+1
KILSS	SST+8
LIST	Q+8
LOOP	SLC+8
NEWPAGE	A1+15, A1+17, A1+19, A1+21, A1+23, SLC+9, SLC+11, COLUMN+14
SLC	A1+14
SST	DIR+8
SU	USR+18, USR+22
USER	A0+4, A0+7
USR	DIR+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	Q+3!*
ASU1	Q+5*, BYE+2!
ASU1(	EXIT+3!
ASU1(10	DIR+2*
ASU1(11	BYE+1!, A1+4!, A1+5, A1+6, A1+8, A1+10, A1+12, A1+14, SLC+2, SLC+4 , LOOP+4, LOOP+8
ASU1(12	BYE+1!, A1+4!, A1+7, A1+8, A1+10, A1+12, A1+14, SLC+2, SLC+4, LOOP+4 , LOOP+8
ASU1(13	BYE+1!, A1+4!, A1+9, A1+10, A1+12, A1+14, SLC+2, SLC+4, LOOP+4, LOOP+8
ASU1(14	BYE+1!, A1+4!, A1+11, A1+12, A1+14, SLC+2, SLC+4, SLC+5, LOOP+4, LOOP+8
ASU1(15	BYE+1!, A1+4!, A1+13, A1+14, SLC+2, SLC+4, SLC+5, LOOP+4, LOOP+8
ASU1(16	BYE+1!, A1+4!, SLC+1, SLC+2, SLC+4, SLC+6, LOOP+4, LOOP+8
ASU1(17	BYE+1!, A1+4!, SLC+3, SLC+4, SLC+6, LOOP+4, LOOP+8
ASU1(18	BYE+1!, A1+4!, SLC+7, SLC+8, LOOP+4, LOOP+8
ASU1(19	BYE+1!, A1+4!, LOOP+2, LOOP+12
ASU1(20	BYE+1!, A1+4!, LOOP+9, BLANK+2
ASU1(21	LOOP+1, LOOP+6, LOOP+7, LOOP+9, LOOP+10, LOOP+11*, BLANK+1, BLANK+2
>> ASU2(2	A1+7, A1+8, A1+22*, A1+23
>> ASU2(3	A1+9, A1+10, A1+20*, A1+21
>> ASU2(4	A1+11, A1+12, A1+18*, A1+19
>> ASU2(5	A1+13, A1+14, A1+16*, A1+17
>> ASU2(6	A1+15, SLC+1, SLC+2, SLC+12*
>> ASU2(7	SLC+3, SLC+4, SLC+10*, SLC+11
>> ASU2(8	SLC+7, SLC+9, LOOP+2, LOOP+6
>> ASU2(9	LOOP+3, LOOP+4, LOOP+5, LOOP+10*
ASUC	BYE+2!, BYE+5!, A0+8!
ASUC(	LOOP+9, BLANK+2
ASUC("IDX"	BUILD+3*, BUILD+4
ASUC("LAB"	COLUMN+14*
ASUC(1	COLUMN+1, COLUMN+4, COLUMN+7, COLUMN+10
ASUC(2	COLUMN+2, COLUMN+5, COLUMN+8, COLUMN+11
ASUC(3	COLUMN+3, COLUMN+6, COLUMN+9, COLUMN+12
ASUE	BYE+5!
ASUF	EXIT+4!, BYE+2!
ASUF("BK"	LOOP+7, BLANK+1, COLUMN+2, COLUMN+3, COLUMN+5, COLUMN+6, COLUMN+8, COLUMN+9, COLUMN+11, COLUMN+12
ASUF("NOQUE"	Q+2*, BYE+2!, BYE+5!
ASUF("QU"	ASURO26A+8!, DIR+2, DIR+6, DIR+8!, DIR+9!, Q+7!, KILSS+1
ASUFB	BYE+2!
>> ASUK("DT"	ASURO26A+6
ASUL	BYE+3!
ASUL(1	A0+3, A0+4, USER+4, BUILD+6, BUILD+28
ASUL(2	A0+6, USR+22
ASUMB	EXIT+4!, BYE+2!
ASUMK	A0+8!
ASUMK("E#"	USER+1, USER+5, USER+8, BUILD+1, BUILD+2, BUILD+3, BUILD+7, BUILD+9, BUILD+10, BUILD+11 , BUILD+13, BUILD+14, BUILD+15
ASUMK("SST"	BUILD+28
ASUMK("ULQTY"	BUILD+28
ASUMK("USR"	BUILD+28
ASUMS	EXIT+4!, BYE+2!, A0+8!
ASUMS("E#"	BUILD+6, BUILD+7, BUILD+8, BUILD+9, BUILD+10, BUILD+11, BUILD+12, BUILD+14, BUILD+28
ASUMS("EOQ"	BUILD+16*
ASUMS("SLC"	BUILD+17*, BUILD+23
ASUMS(2	BUILD+14*, BUILD+16, BUILD+17
ASUMU	BYE+2!
ASUMX	EXIT+4!, BYE+2!, A0+8!
ASUMX("ACC"	BUILD+18*, BUILD+22
ASUMX("AR U/I	" , BUILD+27
ASUMX("CAT"	BUILD+19*, BUILD+24
ASUMX("DESC"	BUILD+20, BUILD+21, BUILD+26, BUILD+27, BUILD+28
ASUMX("IDX"	BUILD+26, BUILD+27
ASUMX(0	BUILD+15*, BUILD+18, BUILD+19, BUILD+20, BUILD+21
ASUNW	EXIT+1, EXIT+4!
ASUNW(0	COMPUTE+2*
ASUNW(4	COMPUTE+1*, COMPUTE+2
ASUR	EXIT+4!, BYE+3!
ASUT	EXIT+4!, BYE+3!, BYE+5!
ASUT(0	LOOP+8*, LOOP+9
ASUTG	COMPUTE+2*, EXIT+4!, BYE+3!
ASUU	A0+8!
ASUU("SELU"	USR+17, USR+18, USR+20, USR+21, USR+22, SU+8, SU+9, SU+11, SU+12
ASUU("SST"	DIR+7!, A0+1, A0+7, SST+6!, SST+11, SST+17, KILSS+1, USR+16, USR+18, SU+7
ASUU("USR"	USER+2, USER+8, USR+7!, USR+13, SU+9, SU+12*
ASUV	EXIT+4!, BYE+5!
ASUV("RP26"	COMPUTE+1, BUILD+24, BUILD+26
ASUX	BYE+3!, A0+8!
ASUX("ACCG"	BUILD+22*, BUILD+29
ASUX("CAT"	BUILD+24, BUILD+25, BUILD+29
ASUX("IDX"	BUILD+26*, BUILD+29
ASUX("SLC"	BUILD+23*, BUILD+29
ASUX("STA"	A0+3, A0+4, A0+6, A0+7, USER+1, BUILD+29
ASUX("USR"	USER+4, USER+5, USER+7, USER+8, BUILD+1, BUILD+29
ASUX(0	HED+1*
ASUX(1	HED+1*, COLUMN+1, COLUMN+2, COLUMN+3
ASUX(2	HED+1*, COLUMN+1, COLUMN+2, COLUMN+3
ASUX(3	HED+1*, COLUMN+1, COLUMN+2, COLUMN+3
ASUX(31	SST+10, SST+13
ASUX(32	SST+6*
ASUX(33	USR+12, USR+15
ASUX(4	HED+1*, COLUMN+10, COLUMN+11, COLUMN+12
ASUX(5	HED+1*, COLUMN+10, COLUMN+11, COLUMN+12
ASUX(6	HED+1*, COLUMN+10, COLUMN+11, COLUMN+12
ASUX(7	HED+1*, COLUMN+10, COLUMN+11, COLUMN+12
DIC	SST+14, SST+18!, KILSS+2!, SU+8, SU+11*
DIC("A"	SST+14, SU+8, SU+11*
DIC(0	SST+14, SU+8, SU+11*
DIR	EXIT+4!, BYE+3!, SST+6!, KILSS+2!, USR+7!
DIR("A"	DIR+3, SST+7, USR+9*
DIR("B"	USR+8*
DIR(0	DIR+3, SST+7, USR+9*
>> DUOUT	NEWPAGE+2, SU+9, SU+12
IO	A1+3
IO("Q"	Q+3!, Q+7
IO(0	EXIT+1
IOF	BYE+6, NEWPAGE+3
ION	Q+4
IOP	Q+3!
>> POP	Q+3, Q+7
U	ASURO26A+6, BUILD+16, BUILD+17, BUILD+18, BUILD+19, BUILD+20, BUILD+21, BUILD+27, BUILD+28, LOOP+9 , SST+17
X	DIR+2, EXIT+3, A0+1, A0+2, USER+2, USER+3, BUILD+27, BUILD+28*, BUILD+29, BUILD+30!
Y	BUILD+8, SST+8, SST+9, SST+15, SST+16, SST+17, KILSS+2!, USR+11, SU+9, SU+12
ZRTN	Q+1*, EXIT+4!
ZTDESC	BYE+3!
ZTDTH	Q+4!
ZTIO	Q+4*, BYE+3!
ZTRTN	BYE+3!
ZTSAVE	Q+4!
ZTSAVE(	Q+5*
ZTSK	Q+4!

Marked Items

Customize PDF page

Package: Supply

Routine: ASURO26A

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items