Routine: ASURO80P

Package	Total	Call Graph
Supply	6	(ARE,SETAREA)^ASULARST ACC^ASULDIRF ^ASURO800 CLS^ASUUHDG PAZ^ASUURHDR (C,O,U)^ASUUZIS
Kernel	1	(,HOME)^%ZIS

Package	Total	Caller Graph
Supply	1	ASU880IVLC

Entry Points

Name	Comments	DBIA/ICR reference
P2	;
P3	;
PRLINE	;PRINT LINE
EN	;EP;PRIMARY ENTRY POINT FOR REPORT 80
TOTNAM	;;
P4	;
P5	;
K	;
PRLI2	;
HEADER	;EP; -PRINT HEADER
PSER	;EP;FOR TASKMAN QUEUE OF PRINT
P1	;
PRLIN3	;
PRLIN2	;
PRTOTL	;EP; -PRINT TOTALS
ZEROTOT	;
PRDASH	;
ROLLTOT	;EP ;ACCUMULATE TOTALS

External References

Name	Field # of Occurrence
^%ZIS	EN+9
HOME^%ZIS	EN+2
ARE^ASULARST	PSER+13
SETAREA^ASULARST	EN+4
ACC^ASULDIRF	P5+6
^ASURO800	EN+6
CLS^ASUUHDG	PSER+21
PAZ^ASUURHDR	HEADER+2
C^ASUUZIS	K+6
O^ASUUZIS	EN+8
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: !,"NO DATA FOR REPORT 80" Line Location: PSER+4
Function Call: WRITE	Prompt: !?5,$P(ASUA(ASUV("LEV"),ASUV("SST")),U) Line Location: PRLINE+1
Function Call: WRITE	Prompt: ?55+((ASUV("PIECE")-5)*7),$J($P(ASUA(ASUV("LEV"),ASUV("SST")),U,ASUV("PIECE")),7) Line Location: PRLIN3+1
Function Call: WRITE	Prompt: !,$P($T(TOTNAM+ASUV("LEV")),";",4) Line Location: PRTOTL+2
Function Call: WRITE	Prompt: ! Line Location: PRTOTL+29
Function Call: WRITE	Prompt: ?X," ========" Line Location: PRTOTL+31
Function Call: WRITE	Prompt: ?X," ________" Line Location: PRDASH+1
Function Call: WRITE	Prompt: ! Line Location: PRDASH+2
Function Call: WRITE	Prompt: @IOF,!,"REPORT #80 ANALYSIS OF ISSUE VALUES BY ITEM/LOCATION/CATEGORY",?71,"PAGE :",$J(ASUC("PG"),3) Line Location: HEADER+3
Function Call: WRITE	Prompt: !,"AREA: ",ASUL(1,"AR","AP")," -",ASUL(1,"AR","NM"),?35,"DATE : ",ASUV("DT") Line Location: HEADER+4
Function Call: WRITE	Prompt: !,"STAT: ",ASUL(2,"STA","CD")," -",ASUL(2,"STA","NM") Line Location: HEADER+5
Function Call: WRITE	Prompt: ?40,"GL ACCOUNT : ",ASUV("ACC")," ",$P(ASUA("ACC"),U,2) Line Location: HEADER+6
Function Call: WRITE	Prompt: !,"OBJECT/SUBOBJECT CODE: ",$E(ASUV("OBJ"),1,2),".",$E(ASUV("OBJ"),3,4)," -",$P(ASUA("OBJ"),U,2),! Line Location: HEADER+7
Function Call: WRITE	Prompt: !,"CATEGORY: ",ASUV("CAT")," -",$P(ASUA("CAT"),U,2),! Line Location: HEADER+8
Function Call: WRITE	Prompt: !?3,"INDEX ITEM PERCENT OF TOTAL" Line Location: HEADER+9
Function Call: WRITE	Prompt: !?2,"NUMBER DESCRIPTION STORES STOCK ISSUE VALUES ISSUE VALUE",?78,"U" Line Location: HEADER+10
Function Call: WRITE	Prompt: !?6,"USING LOCATION",?32,"FY-",$E(ASUV("FY"),2,3),?42,"FY-",$E((ASUV("FY")-1),2,3),?52,"FY-",$E((ASUV("FY")-2),2,3) Line Location: HEADER+11
Function Call: WRITE	Prompt: ?59,"FY-",$E(ASUV("FY"),2,3),?66,"FY-",$E((ASUV("FY")-1),2,3),?73,"FY-",$E((ASUV("FY")-2),2,3) Line Location: HEADER+12
Function Call: WRITE	Prompt: ! Line Location: HEADER+13
Function Call: WRITE	Prompt: "_" Line Location: HEADER+13
Function Call: WRITE	Prompt: !! Line Location: HEADER+14
Routine Call	%ZIS Line Location: EN+2
Routine Call	%ZIS Line Location: EN+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PSER+6
^XTMP("ASUR"	PSER+4, PSER+5, PSER+14, PSER+17, P1+1, P1+3, P1+4, P1+6, P1+7, P4+2 , P4+3, P5+2, P5+5

Label References

Name	Line Occurrences
HEADER	PRTOTL+1, PRTOTL+9, P4+8, P5+8
K	PSER+1, PSER+18, PSER+19
P1	PSER+17
P3	PRLINE+3, PRTOTL+10, PRTOTL+20
P4	P1+8
P5	P4+11
PRDASH	PRTOTL+6, PRTOTL+21
PRLI2	PRTOTL+9, PRTOTL+26
PRLIN2	PRLINE+3, PRTOTL+19
PRLIN3	PRLINE+3, PRTOTL+19
PRLINE	P5+9
PRTOTL	PSER+20, P1+10, P1+12, P4+13, P5+11
PSER	EN+5
ROLLTOT	PRTOTL+4, P5+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ASUA(	PRLINE+1, PRLIN2+2, PRLIN2+3, PRLIN2+7, PRLIN2+9, PRLIN3+1, PRTOTL+10, PRTOTL+16, PRTOTL+17, PRTOTL+33! , P3+1, P3+3, P3+4!, ROLLTOT+1, ROLLTOT+3*, ZEROTOT+1!
>> ASUA("ACC"	P1+1*, HEADER+6
>> ASUA("AR"	PSER+12*, PSER+13
>> ASUA("CAT"	P1+7*, HEADER+8
>> ASUA("DS2"	P4+7*, P4+9
>> ASUA("IDX"	P4+6*, P4+9
>> ASUA("OBJ"	P1+4*, HEADER+7
>> ASUA("STA"	PSER+14*
>> ASUA(0	P4+4, P4+5, P5+5*
ASUC	K+1!
ASUC("LN"	PRLINE+2, PRLI2+1, PRTOTL+3, PRTOTL+15, PRTOTL+18, PRTOTL+22, PRTOTL+24, PRTOTL+28, PRTOTL+30, PRTOTL+32* , PRDASH+2, HEADER+15, P4+10*, P5+7
ASUC("PG"	PSER+6, HEADER+1, HEADER+2, HEADER+3
ASUF	K+1!
ASUF("HDR"	PSER+3, PRLI2+1, PRTOTL+1, PRTOTL+9, PRTOTL+13, HEADER+15, P4+8, P5+7*, P5+8
>> ASUK(	EN+10, PRLI2+1, P5+7
>> ASUK("PTR"	EN+10, PRLI2+1, P5+7
>> ASUK("PTRSEL"	EN+5*, K+5
>> ASUL(	K+2!
>> ASUL(1	EN+4, PSER+13, HEADER+4
>> ASUL(2	PSER+9, HEADER+5
ASUP	K+1!
ASUS	K+1!
ASUT	K+1!
>> ASUU(1	P3+2, P3+3, ROLLTOT+2, ROLLTOT+3, P4+5*
>> ASUU(2	PRTOTL+8, PRTOTL+11, PRTOTL+14, PRTOTL+27
>> ASUU(3	HEADER+13*
>> ASUU(4	PRTOTL+31, PRDASH+1
ASUV	K+1!
ASUV("%"	PRLIN2+5, PRLIN2+8, PRLIN2+9
ASUV("%SST"	PRLIN2+7*, PRLIN2+8
ASUV("%TOT"	PRLIN2+3*, PRLIN2+4, PRLIN2+8
ASUV("ACC"	PSER+19, P1+1*, HEADER+6
ASUV("ARE"	PSER+12*, PSER+13
ASUV("CAT"	PSER+19, P1+7*, HEADER+8
ASUV("DT"	PSER+6*, HEADER+4
ASUV("FY"	PSER+5*, HEADER+11, HEADER+12
ASUV("LEV"	PSER+20, P1+10, P1+12, PRLINE+1, PRLIN2+2, PRLIN2+3, PRLIN2+7, PRLIN2+9, PRLIN3+1, PRTOTL+4 , PRTOTL+5, PRTOTL+10, PRTOTL+16, PRTOTL+17, PRTOTL+33, P3+1, P3+3, P3+4, ROLLTOT+1, ROLLTOT+3 , ZEROTOT+1, P4+13, P5+3, P5+11
ASUV("OBJ"	PSER+19, P1+4*, HEADER+7
ASUV("PIECE"	PRLIN2+1, PRLIN2+2, PRLIN2+3, PRLIN2+7, PRLIN2+9, PRLIN3+1
ASUV("SST"	PRLINE+1, PRLIN2+2, PRLIN2+7, PRLIN2+9, PRLIN3+1, PRTOTL+8, PRTOTL+10, PRTOTL+11, PRTOTL+14, PRTOTL+16* , PRTOTL+17, PRTOTL+25, PRTOTL+27, P3+1, P3+3, P3+4, P5+4*, P5+5
ASUX	K+1!
ASUX("ACC"	PSER+16, PSER+17, P1+1, P1+3, P1+4, P1+6, P1+7, P4+2, P4+3, P5+2 , P5+5, P5+6
ASUX("CAT"	P1+5, P1+6, P1+7, P4+2, P4+3, P5+2, P5+5
ASUX("DSC"	P4+1, P4+2, P4+3, P4+9, P5+2, P5+5
ASUX("OBJ"	P1+2, P1+3, P1+4, P1+6, P1+7, P4+2, P4+3, P5+2, P5+5
ASUX("SST"	P5+1, P5+2, P5+4, P5+5
ASUX("STA"	PSER+4, PSER+9, PSER+12, PSER+14, PSER+17, P1+3, P1+6, P4+2, P4+3, P5+2 , P5+5
ASUX(0	P4+3*, P4+5, P4+6, P4+7
DFOUT	K+3!
DIR	K+3!
DLOUT	K+3!
DTOUT	EN+7, PSER+1, PSER+18, K+3!, P1+3, P1+6, P1+9, P1+11, P4+2, P4+12 , P5+2
DUOUT	EN+7, PSER+1, PSER+18, K+3!, P1+3, P1+6, P1+9, P1+11, P4+2, P4+12 , P5+2
DUZ(2	EN+3
IO	EN+2
IOF	HEADER+3
>> IOP	EN+9*
>> POP	EN+9
U	PSER+5, PSER+14, PRLINE+1, PRLIN2+2, PRLIN2+3, PRLIN2+7, PRLIN2+9, PRLIN3+1, PRTOTL+17, HEADER+6 , HEADER+7, HEADER+8, P3+1, P3+3, ROLLTOT+3, P4+5, P4+6, P4+7
X	K+2, K+4!, PRTOTL+31, PRDASH+1*
X1	K+4!
X2	K+4!
X3	K+4!
X4	K+4!
Y	PSER+5*, PSER+6, K+4!
>> ZTDESC	EN+8*
>> ZTRTN	EN+8*

Customize PDF page

Package: Supply

Routine: ASURO80P

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items