Routine: ASURO800

Package	Total	Call Graph
Supply	6	STA^ASULARST (CAT,SSO)^ASULDIRF (REQ,SST)^ASULDIRR READ^ASUMKBIO READ^ASUMXDIO ^ASUUDATE
VA Fileman	2	^DIC ^DIR
Kernel	1	HOME^%ZIS

Package	Total	Caller Graph
Supply	1	ASURO80P

Name	Comments	DBIA/ICR reference
SEL	;LIST REPORT 80 SELECTIONS
READOBJ	;READ OBJECT SUB OBJECT CODE
READCAT	;EP; READ CATEGORY
CONTU	;
EN1	;EP;SELECT NEW PARAMETERS
IBMST	;
PAUSE	;EP;PAUSE AT END OF SCREEN
SCROBJ	;EP ;SCREEN
ASU0EDIR	;
ASURO801	;
ASURO802	;
ASURO803	;
LASL	;LIST LAST REPORT 80'S SELECTIONS
ASURO805	;
SCRCAT	;SCREENING LOGIC

Name	Field # of Occurrence
HOME^%ZIS	ASURO800+4
STA^ASULARST	ASURO803+3
CAT^ASULDIRF	ASURO802+19
SSO^ASULDIRF	ASURO801+15
REQ^ASULDIRR	IBMST+2
SST^ASULDIRR	IBMST+2
READ^ASUMKBIO	IBMST+1
READ^ASUMXDIO	EN1+35, IBMST+4
^ASUUDATE	EN1+39
^DIC	ASU0EDIR+9, ASU0EDIR+11
^DIR	ASURO800+6, EN1+4, EN1+11, EN1+18, EN1+24, ASURO801+4, ASURO802+7, ASURO803+2, PAUSE+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Gathering Data for your Selections",! Line Location: EN1+32
Function Call: WRITE	Prompt: !,"PROCESSING ACCOUNT: ",ASUT(ASUT,"ACC") Line Location: ASURO802+3
Function Call: WRITE	Prompt: !,"SORRY, YOU AREA NOT AUTHORIZED TO RUN THIS REPORT" Line Location: ASURO803+2
Function Call: WRITE	Prompt: !,"Last Selection(s) were:" Line Location: LASL+2
Function Call: WRITE	Prompt: !,"Your Selection(s) are:" Line Location: SEL+2
Function Call: WRITE	Prompt: !,DIR("A"),":" Line Location: READOBJ+1
Function Call: WRITE	Prompt: DIR("B"),"// " Line Location: ASU0EDIR+4
Function Call: WRITE	Prompt: " Field is Required",! Line Location: ASU0EDIR+9
Routine Call	%ZIS Line Location: ASURO800+4
Routine Call	DIC Line Location: ASU0EDIR+9 ASU0EDIR+11
Routine Call	DIR Line Location: ASURO800+6 EN1+4 EN1+11 EN1+18 EN1+24 ASURO801+4 ASURO802+7 ASURO803+2 PAUSE+3

Name	Line Occurrences (* Changed, ! Killed)
^ASUL(3 - [#9002039.03]	ASURO801+8, ASURO801+9, ASURO801+10, READOBJ+11
^ASUL(7 - [#9002039.07]	ASURO802+12, ASURO802+13, ASURO802+14, READCAT+13
^ASUL(9 - [#9002039.09]	EN1+7
^ASUMK("C"	ASURO803+9, ASURO803+12
^ASUMX - [#9002032]	EN1+34
^XTMP("ASUR"	ASURO800+5, EN1+2!, EN1+3, EN1+7, EN1+13, EN1+16, EN1+30!, EN1+36, EN1+38, EN1+40* , ASURO801+10, ASURO801+16, ASURO801+19, ASURO802+1, ASURO802+14, ASURO802+21, ASURO803+4, ASURO803+5, ASURO803+7, ASURO803+8 , IBMST+3, IBMST+5, IBMST+6, IBMST+10, IBMST+11, IBMST+12, IBMST+18, CONTU+1, CONTU+2, CONTU+3 , CONTU+4, CONTU+5, CONTU+6

Name	Line Occurrences
ASU0EDIR	READOBJ+4, READCAT+9
ASURO801	EN1+16
ASURO802	ASURO801+19
ASURO803	EN1+41
CONTU	LASL+3
EN1	EN1+31
IBMST	ASURO803+12
PAUSE	LASL+2, SEL+2, CONTU+2, CONTU+4, CONTU+6
READCAT	ASURO802+18
READOBJ	ASURO801+14
SCROBJ	ASURO801+9
SEL	EN1+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ASUA(1	CONTU+3*, CONTU+4, CONTU+5, CONTU+6
>> ASUA(2	CONTU+5*, CONTU+6
ASUC	LASL+1, LASL+2, SEL+1, SEL+2, CONTU+2, CONTU+4, CONTU+6, CONTU+7!, PAUSE+1, PAUSE+4
ASUF	CONTU+7!
ASUF("ALL"	EN1+4, EN1+6, EN1+42!, ASURO801+1, ASURO801+7, ASURO801+13, ASURO802+4, ASURO802+11, ASURO802+16
ASUF("OK"	EN1+17, EN1+27, EN1+29*, EN1+31
>> ASUK("DT"	EN1+3, EN1+39, EN1+40
>> ASUL	CONTU+1*, CONTU+2, CONTU+3, CONTU+4, CONTU+5, CONTU+6
>> ASUL(1	ASURO803+1, ASURO803+4
>> ASUL(18	IBMST+2*, IBMST+5, IBMST+6, IBMST+10
>> ASUL(2	ASURO803+1*, ASURO803+2, ASURO803+3, ASURO803+4, ASURO803+5, IBMST+5, IBMST+6, IBMST+10, IBMST+11, IBMST+12 , IBMST+18
>> ASUL(3	ASURO801+15, ASURO801+16, ASURO802+1, ASURO802+11, ASURO802+12, READOBJ+7, READOBJ+9*, READOBJ+11, SCRCAT+1
>> ASUL(7	ASURO802+13, ASURO802+14, ASURO802+19, ASURO802+21, READCAT+12, READCAT+13
>> ASUL(9	SCRCAT+1
>> ASUMK("CFY"	IBMST+7, IBMST+13
>> ASUMK("E#"	ASURO803+8, ASURO803+9, ASURO803+11, ASURO803+12, IBMST+2
>> ASUMK("IDX"	IBMST+3
>> ASUMK("PFY"	IBMST+8, IBMST+14
>> ASUMK("PPY"	IBMST+9, IBMST+15
ASUMS	CONTU+7!
ASUMX	CONTU+7!
ASUMX("ACC"	EN1+36, IBMST+5, IBMST+6, IBMST+10, IBMST+11, IBMST+12, IBMST+18
ASUMX("CAT"	EN1+35, EN1+36, IBMST+5, IBMST+6, IBMST+10, IBMST+11, IBMST+12, IBMST+18
ASUMX("DESC"	IBMST+5, IBMST+6, IBMST+10, IBMST+11, IBMST+12, IBMST+17, IBMST+18
ASUMX("E#"	EN1+33, EN1+34, EN1+38, IBMST+3*, IBMST+11
ASUMX("IDX"	EN1+38, IBMST+16
ASUMX("SOBJ"	EN1+36, IBMST+5, IBMST+6, IBMST+10, IBMST+11, IBMST+12, IBMST+18
>> ASUS("CHG"	READOBJ+12, READCAT+17
>> ASUS("OPTN"	ASURO802+18, READCAT+5, READCAT+6, READCAT+7*, READCAT+8!
ASUT	EN1+1*, EN1+15, EN1+16, ASURO801+4, ASURO801+9, ASURO801+10, ASURO801+12, ASURO801+14, ASURO801+16, ASURO801+18 , ASURO801+19, ASURO802+1, ASURO802+2, ASURO802+3, ASURO802+7, ASURO802+14, ASURO802+17, ASURO802+18, ASURO802+21, CONTU+7! , READOBJ+1, READOBJ+3, READOBJ+7, READOBJ+11, SCROBJ+1, READCAT+4, READCAT+7, READCAT+12, READCAT+13, READCAT+14 , READCAT+16, READCAT+17
ASUT(	EN1+15, EN1+16, ASURO801+4, ASURO801+9, ASURO801+10, ASURO801+12, ASURO801+14, ASURO801+16, ASURO801+18, ASURO801+19* , ASURO802+1, ASURO802+2, ASURO802+3, ASURO802+7, ASURO802+14, ASURO802+17, ASURO802+18, ASURO802+21, READOBJ+1, READOBJ+3 , READOBJ+7, READOBJ+11, SCROBJ+1, READCAT+4, READCAT+7, READCAT+12, READCAT+13, READCAT+14, READCAT+16, READCAT+17
ASUT("TRCD"	ASURO801+13*, READOBJ+12, READCAT+17
ASUV	CONTU+7!
ASUV("ACC"	ASURO802+2, ASURO802+3*
ASUV("SOBJ"	READOBJ+10*
ASUX	IBMST+12, IBMST+13, IBMST+14, IBMST+15, IBMST+16, IBMST+17, IBMST+18, CONTU+7!
ASUX("IDX"	ASURO803+6, ASURO803+7, ASURO803+8
ASUX(2	IBMST+6, IBMST+7, IBMST+8, IBMST+9, IBMST+10
DIC	ASU0EDIR+5, ASU0EDIR+6, ASU0EDIR+12!
DIC("A"	ASU0EDIR+3*
DIC("B"	ASU0EDIR+4*
DIC("S"	ASU0EDIR+2*
DIC("W"	READCAT+3*
DIC(0	ASU0EDIR+7*
DIR	ASURO800+6!, EN1+6!, EN1+9!, EN1+25!, ASURO801+7!, ASURO801+17!, ASURO802+10!, ASURO802+22!, ASURO803+2!, PAUSE+2~ , READOBJ+13!, READCAT+1~
DIR("?"	ASURO800+6, EN1+11, READOBJ+3, READCAT+4
DIR("A"	ASURO800+6, EN1+4, EN1+11, EN1+18, EN1+23, ASURO801+4, ASURO801+13, ASURO802+7, ASURO802+18*, READOBJ+1 , ASU0EDIR+3
DIR("B"	ASU0EDIR+4
DIR("S"	READOBJ+2, READCAT+2, ASU0EDIR+2
DIR(0	ASURO800+6, EN1+4, EN1+11, EN1+18, ASURO801+4, ASURO801+13, ASURO802+7, ASURO803+2, PAUSE+3, READCAT+8 , ASU0EDIR+5, ASU0EDIR+7, ASU0EDIR+8
>> DIROUT	READOBJ+5, READCAT+10
>> DTOUT	ASURO800+8, EN1+4, EN1+10, EN1+12, EN1+14, EN1+30, ASURO801+5, ASURO801+12, ASURO801+14, ASURO802+8 , ASURO802+17, ASURO802+20, LASL+2, SEL+2, CONTU+1, CONTU+2, CONTU+3, CONTU+4, CONTU+5, CONTU+6 , READOBJ+5, READCAT+10, ASU0EDIR+9
>> DUOUT	ASURO800+8, EN1+4, EN1+10, EN1+12, EN1+14, EN1+30, ASURO801+5, ASURO801+12, ASURO801+14, ASURO802+8 , ASURO802+17, ASURO802+20, ASURO803+2*, LASL+2, SEL+2, CONTU+1, CONTU+2, CONTU+3, CONTU+4, CONTU+5 , CONTU+6, READOBJ+5, READCAT+10, ASU0EDIR+9
IO	ASURO800+4
IOSL	PAUSE+1
U	EN1+3, EN1+7, ASURO801+10, ASURO801+16, ASURO802+1, ASURO802+13, ASURO802+14, ASURO802+21, ASURO803+5, IBMST+5 , IBMST+7, IBMST+8, IBMST+9, IBMST+11, IBMST+13, IBMST+14, IBMST+15, IBMST+16, IBMST+17, CONTU+2 , CONTU+4, CONTU+6, READOBJ+10, READOBJ+11, READCAT+12, READCAT+13, ASU0EDIR+5, ASU0EDIR+6, ASU0EDIR+7, ASU0EDIR+8
X	EN1+7, EN1+42!, ASURO801+7!, ASURO801+9, ASURO801+17!, ASURO802+10!, ASURO802+13*, ASURO802+22!, READOBJ+13!, READCAT+1~ , ASU0EDIR+1~
Y	ASURO800+7, ASURO800+9, EN1+5, EN1+10, EN1+12, EN1+13, EN1+19, EN1+26, ASURO801+2, ASURO801+6 , ASURO801+8, ASURO801+9, ASURO801+10, ASURO801+17!, ASURO802+5, ASURO802+9, ASURO802+10!, ASURO802+11, ASURO802+12, ASURO802+13 , ASURO802+14, ASURO802+22!, READOBJ+6, READOBJ+9, READOBJ+10, READOBJ+13!, SCROBJ+1, READCAT+1~, READCAT+11, READCAT+12 , SCRCAT+1, ASU0EDIR+9

Customize PDF page

Package: Supply

Routine: ASURO800

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: