Routine: ASURD72P

Package	Total	Call Graph
Supply	7	(SETAREA,STA)^ASULARST ^ASUMSTRD ^ASUMSTWR READ^ASUMXDIO (DATE,TIME)^ASUUDATE PAZ^ASUURHDR (O,U)^ASUUZIS
Kernel	1	(,HOME)^%ZIS
VA Fileman	1	H^%DTC

Package	Total	Caller Graph
Supply	3	ASU5272DRP ASUCORPX ASURDINV

Entry Points

Name	Comments	DBIA/ICR reference
P2	;RPT 72 UNDELVRD PO FOLLOW UP
P1	;READ EXTRACT DATA
CMPT	;EP ;SORT RPT 72 -XTR ^ASUX
HEADER	;
K	;
STANDARD	;EP; FOR STANDARD PRINT
START	;
PSER	;EP;FOR TASKMAN QUEUE OF PRINT
REPRINT	;ENTRY TO RECREATE REPORT 72 INCLUDING ITEMS ON LAST PRINT

External References

Name	Field # of Occurrence
H^%DTC	START+2, CMPT+2, CMPT+10, CMPT+14
^%ZIS	START+8
HOME^%ZIS	START+2
SETAREA^ASULARST	START+5
STA^ASULARST	HEADER+6
^ASUMSTRD	CMPT+5
^ASUMSTWR	CMPT+23
READ^ASUMXDIO	CMPT+9
DATE^ASUUDATE	START+1, CMPT+1
TIME^ASUUDATE	START+1, CMPT+1
PAZ^ASUURHDR	K+3, HEADER+2
O^ASUUZIS	START+7
U^ASUUZIS	PSER+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Report must be run from Kernel option" Line Location: START+4
Function Call: WRITE	Prompt: !,*7,"NO DATA FOR REPORT #72" Line Location: PSER+3
Function Call: WRITE	Prompt: ?27,ASUX("DT") Line Location: PSER+3
Function Call: WRITE	Prompt: !,"NO STATION MASTERS LOADED" Line Location: PSER+4
Function Call: WRITE	Prompt: @IOF Line Location: K+4
Function Call: WRITE	Prompt: !!?1,$E(ASUV("IDX"),1,5),".",$E(ASUV("IDX"),6,6) Line Location: P2+2
Function Call: WRITE	Prompt: ?10,ASUMX("DESC",1) Line Location: P2+3
Function Call: WRITE	Prompt: ?41,ASUMX("AR U/I") Line Location: P2+4
Function Call: WRITE	Prompt: ?44,$J($FN(ASUMS("D/I","QTY"),","),7) Line Location: P2+5
Function Call: WRITE	Prompt: ?52,$J($FN(ASUMS("QTY","O/H"),","),8) Line Location: P2+6
Function Call: WRITE	Prompt: ?60,$J($FN(ASUMS("PMIQ"),","),6) Line Location: P2+7
Function Call: WRITE	Prompt: ?67,$J($FN(ASUV("PASTDU"),","),6) Line Location: P2+8
Function Call: WRITE	Prompt: ?74,$E(ASUMS("LTM")),".",$E(ASUMS("LTM"),2,2) Line Location: P2+9
Function Call: WRITE	Prompt: !?10,ASUMX("DESC",2) Line Location: P2+10
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+2
Function Call: WRITE	Prompt: !?1,"REPORT #72 UNDELIVERED PURCHASE ORDER -FOLLOW UP REPORT" Line Location: HEADER+3
Function Call: WRITE	Prompt: ?61,ASUX("DT"),?74,"PAGE ",ASUC("PG") Line Location: HEADER+3
Function Call: WRITE	Prompt: !?3,"AREA: ",ASUL(1,"AR","AP"),?15,ASUL(1,"AR","NM") Line Location: HEADER+4
Function Call: WRITE	Prompt: !?3,"STAT: ",ASUL(2,"STA"),?15,ASUL(2,"STA","NM") Line Location: HEADER+5
Function Call: WRITE	Prompt: !?3,"STAT: ",ASUL(2,"STA","E#"),?15,ASUL(2,"STA","NM") Line Location: HEADER+6
Function Call: WRITE	Prompt: !?1,"PURCHASE ORDER NO. ",ASUV("D/IPO#")," -",?31,"DELIVERY DUE DATE: " Line Location: HEADER+7
Function Call: WRITE	Prompt: ?50,X Line Location: HEADER+7
Function Call: WRITE	Prompt: !!!?49,"DUE QTY NO.",!?3,"INDEX",?50,"IN",?58,"ON",?68,"DAYS",?75,"LT",!?2,"NUMBER DESCRIPTION",?41,"UI",?49,"QTY",?56,"HAND",?62,"PAMIQ",?68,"LATE",?74,"MOS" Line Location: HEADER+8
Routine Call	%ZIS Line Location: START+2
Routine Call	%ZIS Line Location: START+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ASUMS - [#9002031]	PSER+4, CMPT+3, CMPT+4
^ASUR7(72	REPRINT+1, REPRINT+2
^DD("DD"	PSER+2, HEADER+7
^XTMP("ASUR"	START+3, PSER+2, PSER+3, PSER+7, PSER+8, PSER+13, P1+1, CMPT+1!, CMPT+21

Label References

Name	Line Occurrences
CMPT	START+3
HEADER	PSER+3, P2+1
K	PSER+3, PSER+4, PSER+7
P1	PSER+14
P2	PSER+14
PSER	START+6
STANDARD	REPRINT+1
START	REPRINT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %H	START+2, CMPT+2, CMPT+10, CMPT+14
ASUC	K+1!
ASUC("LN"	PSER+1, PSER+11, P2+1, P2+11, HEADER+1, HEADER+9*
ASUC("PG"	HEADER+1*, HEADER+2, HEADER+3
>> ASUF("DLIDX"	CMPT+6
>> ASUF("DUEIN"	CMPT+7, CMPT+9, CMPT+23, CMPT+24!
>> ASUF("RPTD"	CMPT+11, CMPT+14, CMPT+15*, CMPT+24!
>> ASUK(	START+9
>> ASUK("DT"	START+2, CMPT+1, CMPT+2, CMPT+17
>> ASUK("PTR"	START+9
>> ASUK("PTRSEL"	START+6*, K+4
>> ASUL(	K+2!
>> ASUL(1	START+5, HEADER+4
>> ASUL(2	HEADER+6
ASUMS	CMPT+24!
ASUMS("AR"	PSER+3, PSER+4, HEADER+4
ASUMS("D/I"	PSER+5, PSER+8, PSER+9, PSER+11, PSER+13, P1+1, P1+2, P1+6, P2+5, HEADER+7 , CMPT+8, CMPT+10, CMPT+12, CMPT+13, CMPT+14, CMPT+17, CMPT+18, CMPT+19, CMPT+20, CMPT+21
ASUMS("E#"	CMPT+3, CMPT+4, CMPT+5, CMPT+6*, CMPT+9
ASUMS("LTM"	P1+10*, P2+9, CMPT+20
ASUMS("PMIQ"	P1+8*, P2+7, CMPT+20
ASUMS("QTY"	P1+7*, P2+6, CMPT+20
ASUMS("STA"	PSER+7*, PSER+8, PSER+13, P1+1, HEADER+6, CMPT+19, CMPT+21
ASUMX	K+1!, CMPT+24!
ASUMX("AR U/I	" , P1+5*, P2+4, CMPT+20
ASUMX("DESC"	P1+3, P1+4, P2+3, P2+10, CMPT+19
ASUMX("E#"	CMPT+9*
ASUMX("IDX"	PSER+5, PSER+13, PSER+14, P1+1, P2+11, CMPT+19, CMPT+21
ASUV	K+1!, CMPT+24!
ASUV("D/IPO#"	PSER+1, PSER+9, PSER+11*, PSER+12, HEADER+7
ASUV("DUEDT"	CMPT+10*
ASUV("DUEIN"	CMPT+7*, CMPT+8, CMPT+10, CMPT+12, CMPT+13, CMPT+14, CMPT+17, CMPT+18, CMPT+19, CMPT+20 , CMPT+21
ASUV("E#"	CMPT+5*, CMPT+6
ASUV("IDX"	PSER+1, PSER+14, P2+2, P2+11*
ASUV("PASTDU"	P1+9, P2+8, CMPT+11, CMPT+20
ASUV("R72 LAS	T DT" , REPRINT+2*, CMPT+13
ASUV("RPTD"	CMPT+15*
>> ASUX("DT"	PSER+2*, PSER+3, HEADER+3
>> ASUX(0	P1+1*, P1+2, P1+3, P1+4, P1+5, P1+6, P1+7, P1+8, P1+9, P1+10
DIC	K+1!
>> DIRUT	PSER+3, PSER+8, PSER+13, PSER+14, P2+1, HEADER+2
DUZ(2	START+4
IO	START+2
IOF	K+4, HEADER+2
>> IOP	START+8*
IOSL	PSER+1, PSER+11, P2+1
>> POP	START+8
U	PSER+2, PSER+4, P1+2, P1+3, P1+4, P1+5, P1+6, P1+7, P1+8, P1+9 , P1+10, CMPT+1, CMPT+19, CMPT+20
X	START+2, PSER+3, PSER+4, K+1!, K+2, HEADER+7, CMPT+2, CMPT+10, CMPT+14, CMPT+19 , CMPT+20*, CMPT+21, CMPT+22!
X2	K+1!, CMPT+10, CMPT+11, CMPT+14, CMPT+15
X3	START+2, K+1!, CMPT+2, CMPT+10, CMPT+11, CMPT+14, CMPT+15
Y	PSER+2*, K+1!
>> ZTDESC	START+7*
>> ZTRTN	START+7*

Customize PDF page

Package: Supply

Routine: ASURD72P

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: