Routine: ASURM23P

Package	Total	Call Graph
Supply	7	(ARE,SETAREA,STA)^ASULARST ACC^ASULDIRF ^ASUMSTRD READ^ASUMXDIO ^ASUUDATA PAZ^ASUURHDR (C,O,U)^ASUUZIS
Kernel	1	(,HOME)^%ZIS

Package	Total	Caller Graph
Supply	3	ASU623REPT ASU624REPT ASUCOMOR

Entry Points

Name	Comments	DBIA/ICR reference
SORT	;EP ;
EN	;EP;PRIMARY ENTRY POINT FOR REPORT 21
ACCTGP	;
K	;
STALOOP(X,Y)
NSNFMT	;
HEADER	;EP ;HEADING LINES
PSER	;EP;FOR TASKMAN QUEUE OF PRINT
ROLL(X)	;

External References

Name	Field # of Occurrence
^%ZIS	EN+6
HOME^%ZIS	EN+1
ARE^ASULARST	PSER+6, PSER+12
SETAREA^ASULARST	EN+3
STA^ASULARST	PSER+28
ACC^ASULDIRF	PSER+7, PSER+15
^ASUMSTRD	PSER+28, SORT+8
READ^ASUMXDIO	PSER+21
^ASUUDATA	PSER+9
PAZ^ASUURHDR	K+1, HEADER+3
C^ASUUZIS	K+2
O^ASUUZIS	EN+5
U^ASUUZIS	PSER+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Report must be run from Kernel option" Line Location: EN+2
Function Call: WRITE	Prompt: ?28,ASUV("NSN"),?48,ASUMS("VENAM"),?65,ASUMS("EOQ","TP") Line Location: PSER+31
Function Call: WRITE	Prompt: @(IOF),"REPORT #23 LISTING OF OVERSTOCKED SUPPLIES",?90,ASUK("DT"),?110,"PAGE",?115,$J($FN(ASUC("PG"),","),7) Line Location: HEADER+5
Function Call: WRITE	Prompt: !,"AREA",?6,ASUL(1,"AR","AP"),?9,ASUL(1,"AR","NM") Line Location: HEADER+6
Function Call: WRITE	Prompt: !,?50,"G L ACCOUNT 125.",ASUV("PRTACC"),?68,ASUL(9,"ACC","GP"),! Line Location: HEADER+7
Function Call: WRITE	Prompt: !?4,"INDEX",?20,"DESCRIPTION",?84,"UI" Line Location: HEADER+8
Function Call: WRITE	Prompt: !?6,"STATION",?25,"SLC",?29,"ORDER NUMBER",?50,"VENDOR NAME",?65,"TC",?70,"QTY",?83,"U/COST",?93,"T-VALUE",?101,"CONTACT PERSON TELEPHONE #",! Line Location: HEADER+9
Function Call: WRITE	Prompt: !?20,"STATIONS TOTALS FOR ",Y Line Location: STALOOP+3
Function Call: WRITE	Prompt: ! Line Location: STALOOP+3
Function Call: WRITE	Prompt: ?68,"_______ __________" Line Location: STALOOP+13
Function Call: WRITE	Prompt: !?68,$J($FN(ASUC("TQTY"),","),7),?90,$J($FN(ASUC("TVAL"),",",2),10) Line Location: STALOOP+15
Function Call: WRITE	Prompt: ?110,$J($FN($G(ASUC("TLI")),","),8) Line Location: STALOOP+16
Function Call: WRITE	Prompt: ! Line Location: STALOOP+17
Routine Call	%ZIS Line Location: EN+1
Routine Call	%ZIS Line Location: EN+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ASUMS - [#9002031]	SORT+4, SORT+5, SORT+6
^ASUMX - [#9002032]	SORT+10
^XTMP("ASUR"	PSER+2, PSER+3, PSER+6, PSER+7, PSER+11, PSER+14, PSER+19, PSER+25, PSER+26, SORT+1! , SORT+2, SORT+21

Label References

Name	Line Occurrences
ACCTGP	PSER+7, PSER+15
HEADER	PSER+18, PSER+40, PSER+43, STALOOP+18
K	PSER+9
NSNFMT	PSER+31
PSER	EN+4
ROLL	PSER+37, STALOOP+5
SORT	PSER+2
STALOOP	PSER+39, PSER+42, PSER+45

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ASUC	K+3!, STALOOP+2*, STALOOP+3
ASUC(	STALOOP+2, STALOOP+6, STALOOP+7, STALOOP+9, STALOOP+10, STALOOP+11, STALOOP+12!, ROLL+2, ROLL+3, ROLL+4* , ROLL+5*
ASUC("LINE"	PSER+18, PSER+23, PSER+35, PSER+40, PSER+46, HEADER+2, STALOOP+3, STALOOP+8, STALOOP+18, STALOOP+21*
ASUC("PG"	PSER+5, PSER+10, HEADER+2*, HEADER+3, HEADER+5
ASUC("TLI"	STALOOP+11*, STALOOP+16
ASUC("TQTY"	STALOOP+9*, STALOOP+15, STALOOP+20!
ASUC("TVAL"	STALOOP+10*, STALOOP+15, STALOOP+20!
ASUC(0	PSER+27, PSER+32, PSER+33, PSER+34, PSER+36, SORT+14, SORT+15, SORT+16, SORT+17, SORT+18* , SORT+21
ASUC(1	PSER+29*
>> ASUK(	EN+7
>> ASUK("DT"	HEADER+5, SORT+2, SORT+7
>> ASUK("PTR"	EN+7
>> ASUK("PTRSEL"	EN+4*, K+1
>> ASUL(1	EN+3, PSER+45, HEADER+6
>> ASUL(2	PSER+29, PSER+30, PSER+34
>> ASUL(9	PSER+16, ACCTGP+1*, ACCTGP+2, HEADER+7
ASUMS	K+3!
ASUMS("CST/U"	PSER+32, PSER+33
ASUMS("E#"	PSER+5, PSER+6, PSER+7, PSER+10, PSER+11, PSER+12, PSER+14, PSER+17, PSER+19, PSER+20 , PSER+24, PSER+25, PSER+26, PSER+28, PSER+29, PSER+37, SORT+3, SORT+4, SORT+5, SORT+6 , SORT+10, SORT+20, SORT+21
ASUMS("EOQ"	PSER+31, SORT+16
ASUMS("LSTISS"	SORT+6*, SORT+7
ASUMS("ORD#"	NSNFMT+1, NSNFMT+2, NSNFMT+3
ASUMS("PMIQ"	SORT+17
ASUMS("QTY"	SORT+9, SORT+14, SORT+17
ASUMS("RPQ"	SORT+17
ASUMS("SLC"	PSER+30
ASUMS("VENAM"	PSER+31
ASUMX	K+3!
ASUMX("ACC"	SORT+10*, SORT+11, SORT+12
ASUMX("ACCTYP"	SORT+12*, SORT+21
ASUMX("AR U/I	" , PSER+22
ASUMX("DESC"	PSER+22
ASUMX("E#"	PSER+20*
ASUMX("IDX"	PSER+22
ASUMX("NSN"	NSNFMT+4
>> ASUQ("HDR"	PSER+8*
ASURX	K+3!
ASURX("ACC"	PSER+7, PSER+13, PSER+14*, PSER+15, PSER+19, PSER+25, PSER+26, ACCTGP+1, ACCTGP+2
>> ASUV("ACCGP"	PSER+16*, PSER+42
>> ASUV("AST"	PSER+27, PSER+32, SORT+14, SORT+19*, SORT+21
>> ASUV("LIMOS"	SORT+7*, SORT+13
>> ASUV("NSN"	PSER+31, NSNFMT+2, NSNFMT+3, NSNFMT+4, NSNFMT+5, NSNFMT+6, NSNFMT+7, NSNFMT+8
>> ASUV("PRTACC"	ACCTGP+2*, HEADER+7
>> ASUV("QTYNEED"	SORT+17*
>> ASUV("RPT"	PSER+8*
>> ASUV("STA"	PSER+37, STALOOP+1, STALOOP+2*, STALOOP+6, STALOOP+7, STALOOP+9, STALOOP+10, STALOOP+11, STALOOP+12, ROLL+1 , ROLL+2, ROLL+3, ROLL+4, ROLL+5
>> ASUV("STF"	ROLL+1*, ROLL+2, ROLL+3, ROLL+4, ROLL+5
ASUX	K+3!
ASUX("NDTA"	PSER+9
ASUX(0	PSER+26*, PSER+27
>> DTOUT	PSER+11, PSER+14, PSER+18, PSER+19, PSER+25, PSER+38, PSER+39, PSER+41, PSER+42, PSER+43 , PSER+44, PSER+45, HEADER+4, STALOOP+2, STALOOP+19
>> DUOUT	PSER+11, PSER+14, PSER+18, PSER+19, PSER+25, PSER+38, PSER+39, PSER+41, PSER+42, PSER+43 , PSER+44, PSER+45, HEADER+4, STALOOP+2, STALOOP+19
DUZ(2	EN+2
IO	EN+1
IOF	HEADER+5
>> IOP	EN+6*
IOSL	PSER+18, PSER+40, PSER+46, STALOOP+18
>> POP	EN+6
U	PSER+27, SORT+2, SORT+6, SORT+10, SORT+21
X	PSER+1~, HEADER+1~, STALOOP~, STALOOP+2, STALOOP+3, STALOOP+4, STALOOP+5, STALOOP+6, STALOOP+7, STALOOP+9 , STALOOP+10, STALOOP+11, STALOOP+12, STALOOP+14, STALOOP+16, ROLL~, ROLL+1, ROLL+2, ROLL+3, ROLL+4 , ROLL+5
Y	PSER+1~, PSER+42, PSER+45, HEADER+1~, STALOOP~, STALOOP+3
Z	PSER+1~
>> ZTDESC	EN+5*
>> ZTRTN	EN+5*

Customize PDF page

Package: Supply

Routine: ASURM23P

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

Local Variables

Legend: