Routine: ASURM79P

Package	Total	Call Graph
Supply	6	SETAREA^ASULARST (PGM,REQ,SST,USR)^ASULDIRR READ^ASUMYDIO DATE^ASUUDATE PAZ^ASUURHDR (O,U)^ASUUZIS
Kernel	2	(,HOME)^%ZIS ^%ZISC

Package	Total	Caller Graph
Supply	3	ASU679ISPG ASUCOMOR ASUCORPX

Entry Points

Name	Comments	DBIA/ICR reference
NEWPAGE	;FF
CMPT	;EP ;SORT
EN	;EP;PRIMARY ENTRY POINT FOR REPORT 79
OUT(X)	;EP; -Print Data line and subtotals for user/sub-station/program
PT	;Set program totals
SETHEADR	;Set hdrs
UT	;Set user totals
SST	;Set totals for sub-stations
HEADER	;Print hdr
PSER	;EP;FOR TASKMAN QUEUE OF PRINT
INITSST	;Initialize counters for sub-station totals 1 and 2
INITUSR	;Initialize counters for program totals 1 and 2
INITPGM	;Initialize counters for program totals 1 and 2
ACC(X)	;Write account -extrinsic
SETDATA	;Set DATA line

External References

Name	Field # of Occurrence
^%ZIS	EN+8
HOME^%ZIS	EN+2
^%ZISC	PSER+31
SETAREA^ASULARST	EN+4
PGM^ASULDIRR	HEADER+5
REQ^ASULDIRR	PSER+11
SST^ASULDIRR	PSER+7
USR^ASULDIRR	PSER+11
READ^ASUMYDIO	CMPT+7
DATE^ASUUDATE	HEADER+1
PAZ^ASUURHDR	PSER+31, HEADER+2
O^ASUUZIS	EN+7
U^ASUUZIS	PSER+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Report must be run from Kernel option" Line Location: EN+3
Function Call: WRITE	Prompt: !?4,$$ACC(ASUX("ACC")) Line Location: PSER+13
Function Call: WRITE	Prompt: !?4,"USER TOT:" Line Location: PSER+14
Function Call: WRITE	Prompt: !,"SUB-STA TOT:" Line Location: PSER+17
Function Call: WRITE	Prompt: !?4,$$ACC(ASUU(1)) Line Location: PSER+19
Function Call: WRITE	Prompt: !,"SUB ST TOT:" Line Location: PSER+21
Function Call: WRITE	Prompt: !,"PROGRAM TOT:" Line Location: PSER+24
Function Call: WRITE	Prompt: !?4,$$ACC(ASUU(1)) Line Location: PSER+26
Function Call: WRITE	Prompt: !,"PROGRAM TOT:" Line Location: PSER+28
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+2
Function Call: WRITE	Prompt: !,"REPORT # 79 SUMMARY OF ISSUES TO PROGRAM",?60,ASUK("DT"),?120,"PAGE ",ASUX("PG"),!,"AREA NAME: ",ASUL(1,"AR","NM") Line Location: HEADER+3
Function Call: WRITE	Prompt: !,"PROGRAM ",ASUL(22,"PGM")," - ",ASUL(22,"PGM","NM"),!!!,"SUB-STA",?13,ASU1(1),?36,ASU1(2),?60,ASU1(3),?82,ASU1(4),?104,ASU1(5),?118,ASU1(6),?126,ASU1(7) Line Location: HEADER+6
Function Call: WRITE	Prompt: !?2,"USER",?20,ASU2(1),?29,ASU2(2),?41,ASU2(3),?52,ASU2(4),?65,ASU2(5),?73,ASU2(6),?84,"REQUESTED",?104,ASU2(8),?118,ASU2(9),?126,ASU2(10) Line Location: HEADER+8
Function Call: WRITE	Prompt: !?4,"ACCNT",?84,ASU2(7),?106,ASU3(1),?119,ASU3(2),?127,ASU3(3) Line Location: HEADER+10
Function Call: WRITE	Prompt: !!,ASUR("LN") Line Location: HEADER+11
Function Call: WRITE	Prompt: ?15,$J($FN(ASUX(X,1),","),7) Line Location: OUT+9
Function Call: WRITE	Prompt: ?25,$J($FN(ASUX(X,2),","),9) Line Location: OUT+10
Function Call: WRITE	Prompt: ?36,$J($FN(ASUX(X,3),","),7) Line Location: OUT+11
Function Call: WRITE	Prompt: ?48,$J($FN(ASUX(X,4),","),9) Line Location: OUT+12
Function Call: WRITE	Prompt: ?60,$J($FN(ASUX(X,5),","),7) Line Location: OUT+13
Function Call: WRITE	Prompt: ?70,$J($FN(ASUX(X,6),","),9) Line Location: OUT+14
Function Call: WRITE	Prompt: ?82,$J($FN(ASUX(X,7),","),4) Line Location: OUT+15
Function Call: WRITE	Prompt: ?89,$J($FN(ASUX(X,8),","),6) Line Location: OUT+16
Function Call: WRITE	Prompt: ?97,$J(ASUX(X,9),4,1) Line Location: OUT+17
Function Call: WRITE	Prompt: ?103,$J($FN(ASUX(X,10),","),5) Line Location: OUT+18
Function Call: WRITE	Prompt: ?108,$J($FN(ASUX(X,11),","),7) Line Location: OUT+19
Function Call: WRITE	Prompt: ?118,$J($FN(ASUX(X,12),","),6) Line Location: OUT+20
Function Call: WRITE	Prompt: ?126,$J($FN(ASUX(X,13),","),6) Line Location: OUT+21
Routine Call	%ZIS Line Location: EN+2
Routine Call	%ZIS Line Location: EN+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ASUMY - [#9002034]	CMPT+3, CMPT+4, CMPT+5
^XTMP("ASUR"	PSER+1, PSER+4, PSER+5, PSER+6, PSER+9, PSER+13, CMPT+1!, CMPT+2, CMPT+11, CMPT+14

Label References

Name	Line Occurrences
$$ACC	PSER+13, PSER+19, PSER+26
CMPT	PSER+1
HEADER	PSER+5, NEWPAGE+1
INITPGM	PSER+5
INITSST	PSER+6
INITUSR	PSER+9
NEWPAGE	PSER+6, PSER+9, PSER+13, PSER+14, PSER+17, PSER+19, PSER+21, PSER+24, PSER+26, PSER+28
OUT	PSER+15, PSER+20, PSER+22, PSER+27, PSER+29, PT+5
PSER	EN+6
SETDATA	PSER+13
SETHEADR	PSER+3

Naked Globals

Name	Field # of Occurrence
^(	PSER+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ASU1	CMPT+15!
ASU1(1	SETHEADR+2*, HEADER+6
ASU1(2	SETHEADR+2*, HEADER+6
ASU1(3	SETHEADR+2*, HEADER+6
ASU1(4	SETHEADR+2*, HEADER+6
ASU1(5	SETHEADR+2*, HEADER+6
ASU1(6	SETHEADR+2*, HEADER+6
ASU1(7	SETHEADR+2*, HEADER+6
ASU2	CMPT+15!
ASU2(1	SETHEADR+4*, HEADER+8
ASU2(10	SETHEADR+4*, HEADER+8
ASU2(2	SETHEADR+4*, HEADER+8
ASU2(3	SETHEADR+4*, HEADER+8
ASU2(4	SETHEADR+4*, HEADER+8
ASU2(5	SETHEADR+4*, HEADER+8
ASU2(6	SETHEADR+4*, HEADER+8
ASU2(7	SETHEADR+4*, HEADER+10
ASU2(8	SETHEADR+4*, HEADER+8
ASU2(9	SETHEADR+4*, HEADER+8
ASU3	CMPT+15!
ASU3(1	SETHEADR+6*, HEADER+10
ASU3(2	SETHEADR+6*, HEADER+10
ASU3(3	SETHEADR+6*, HEADER+10
ASUC	PSER+32!
>> ASUF("OK"	CMPT+6!, CMPT+8*, CMPT+9, CMPT+15!
ASUK	PSER+34!, CMPT+16!
ASUK(	EN+9
ASUK("DT"	HEADER+1, HEADER+3, CMPT+2
ASUK("PTR"	EN+9
ASUK("PTRSEL"	EN+5*, EN+6, PSER+31, PSER+34
>> ASUL(	PSER+33!
>> ASUL(1	EN+4, HEADER+3, CMPT+10
>> ASUL(18	PSER+8
>> ASUL(19	PSER+12
>> ASUL(20	PSER+12
>> ASUL(22	HEADER+6
ASUMY	CMPT+11, CMPT+12, CMPT+13*, CMPT+14, CMPT+15!
ASUMY("E#"	CMPT+3, CMPT+4, CMPT+5*, CMPT+10, CMPT+11, CMPT+14
ASUMY(0	CMPT+8, CMPT+12, CMPT+13
>> ASUP("TYP"	CMPT+16
ASUR	PSER+32!
ASUR("LN"	HEADER+11*
ASUU	PSER+32!
ASUU(0	INITSST+2, INITPGM+1, INITUSR+1, UT+1, SST+1, SST+2, PT+1, PT+2, CMPT+8*
ASUU(1	PSER+18, PSER+19, PSER+25, PSER+26
ASUU(2	PSER+18, PSER+25
ASUW	CMPT+16!
ASUX	PSER+32!, CMPT+13*, CMPT+15!
ASUX(	OUT+9, OUT+10, OUT+11, OUT+12, OUT+13, OUT+14, OUT+15, OUT+16, OUT+17, OUT+18 , OUT+19, OUT+20, OUT+21
ASUX("ACC"	PSER+13*, SST+1, PT+1
ASUX("ARST"	PSER+4*, PSER+5, PSER+6, PSER+9, PSER+13
ASUX("DTA"	PSER+13*, SETDATA+1, SETDATA+2, SETDATA+3, SETDATA+4, SETDATA+5, SETDATA+6, SETDATA+7, SETDATA+8, SETDATA+9 , SETDATA+10, SETDATA+14, SETDATA+15, SETDATA+16, SETDATA+17
ASUX("FLD"	SETDATA+1, SETDATA+2, SETDATA+3, SETDATA+4, SETDATA+5, SETDATA+6, SETDATA+7, SETDATA+8, SETDATA+11, SETDATA+13 , SETDATA+14, SETDATA+15, SETDATA+16, SETDATA+17, UT+1, SST+1, SST+2, PT+1, PT+2
ASUX("PG"	HEADER+2*, HEADER+3
ASUX("PGM"	PSER+5, PSER+6, PSER+9, PSER+13, PSER+25, INITPGM+1, HEADER+5, PT+1*
ASUX("PGU"	INITPGM+2!, PT+2*
ASUX("REQ"	PSER+10*, PSER+11
ASUX("SS"	PSER+18*
ASUX("SST"	PSER+6, PSER+7, PSER+9, PSER+10, PSER+13, PSER+18, INITSST+2, SST+1, CMPT+10, CMPT+11 , CMPT+14
ASUX("SSU"	INITSST+3!, SST+2*
ASUX("US1"	PSER+25*, INITUSR+2!
ASUX("USR"	PSER+9, PSER+10, PSER+11, PSER+13, INITUSR+1, UT+1, CMPT+10, CMPT+11, CMPT+14
>> DUOUT	PSER+4, PSER+5, PSER+6, PSER+9, PSER+13, PSER+14, PSER+17, PSER+18, PSER+19, PSER+21 , PSER+24, PSER+25, PSER+26, PSER+28, HEADER+2
DUZ(2	EN+3
IO	EN+2
IOF	PSER+31, HEADER+2
>> IOP	EN+8*
IOSL	NEWPAGE+1
POP	EN+8, PSER+32!
U	PSER+18, PSER+25, SETDATA+1, SETDATA+2, SETDATA+3, SETDATA+4, SETDATA+5, SETDATA+6, SETDATA+7, SETDATA+8 , SETDATA+9, SETDATA+10, SETDATA+14, SETDATA+15, SETDATA+16, SETDATA+17, SST+1, PT+1, CMPT+2, CMPT+8 , CMPT+13, CMPT+14
X	PSER+33, ACC~, ACC+1, ACC+2, SETDATA+10*, SETDATA+11, OUT~, OUT+9, OUT+10, OUT+11 , OUT+12, OUT+13, OUT+14, OUT+15, OUT+16, OUT+17, OUT+18, OUT+19, OUT+20, OUT+21
Y	PSER+32!
>> ZTDESC	EN+7*
>> ZTRTN	EN+7*

Customize PDF page

Package: Supply

Routine: ASURM79P

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: