Routine: ASURD73P

Information

ASURD73P ; IHS/ITSC/LMH -RPT 73 OUTAGE/LOW INV/DUE OUT ;

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Supply	7	(SETAREA,STA)^ASULARST ACC^ASULDIRF ^ASUMSTRD READ^ASUMXDIO ^ASUUDATE PAZ^ASUURHDR (C,O,U)^ASUUZIS
VA Fileman	4	(H,YX)^%DTC ^DIC ^DIE ^DIR
IHS VA Utilities	1	^XBKVAR
Kernel	1	(,HOME)^%ZIS

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Supply	3	ASU125LIRM ASU5173DRP ASUCORPX

Entry Points

Name	Comments	DBIA/ICR reference
P2	;Print Totals and Lines
EN	;EP;PRIMARY ENTRY POINT FOR REPORT 73
CMPT	;EP ;SORT,DUEIN,BKORDER RTN;
CHECKI	;
K	;
PRINTLIN	;EP; PRINT TRANS LINE
ASK	;
HEADER	;Report 73 Header
PSER	;EP;FOR TASKMAN QUEUE OF PRINT
DONE	;
PRINTTOT	;EP; PRINT TOTAL LINE
REMARKS	;EP ;ENTER REMARKS FOR REPORT 73
FINDIDX	;
READSTA	;

External References

Name	Field # of Occurrence
H^%DTC	REMARKS+4
YX^%DTC	REMARKS+4
^%ZIS	EN+5
HOME^%ZIS	EN+1
SETAREA^ASULARST	EN+2
STA^ASULARST	HEADER+5
ACC^ASULDIRF	HEADER+7
^ASUMSTRD	CMPT+5
READ^ASUMXDIO	CMPT+7
^ASUUDATE	PSER+1
PAZ^ASUURHDR	K+5, HEADER+2
C^ASUUZIS	K+7
O^ASUUZIS	EN+4
U^ASUUZIS	PSER+1
^DIC	FINDIDX+3
^DIE	FINDIDX+7
^DIR	READSTA+1, ASK+1
^XBKVAR	REMARKS+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Report must be run from Kernel option" Line Location: EN+1
Function Call: WRITE	Prompt: !,"NO DATA FOR REPORT #73",?27,ASUK("DT") Line Location: PSER+5
Function Call: WRITE	Prompt: @(IOF) Line Location: K+6
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+2
Function Call: WRITE	Prompt: !?5,"REPORT #73 STOCK OUTAGE -LOW INVENTORY -DUE OUT REPORT" Line Location: HEADER+3
Function Call: WRITE	Prompt: ?70,ASUX("DT"),?85,"PAGE",?90,ASUC("PG") Line Location: HEADER+4
Function Call: WRITE	Prompt: !?5,"STATION: ",ASUL(2,"STA","CD"),?23,ASUL(2,"STA","NM") Line Location: HEADER+6
Function Call: WRITE	Prompt: !?5,"GL ACCOUNT 125.",ASUL(9,"ACC"),?23,ASUL(9,"ACC","NM") Line Location: HEADER+8
Function Call: WRITE	Prompt: !!?60,"QTY DUE",?85,"DUE DUE DUE OUT EOQ" Line Location: HEADER+9
Function Call: WRITE	Prompt: !?7,"INDEX",?61,"ON",?68,"IN PO",?85,"IN",?93,"OUT",?102,"TO TYPE" Line Location: HEADER+10
Function Call: WRITE	Prompt: !?2,"NUMBER DESCRIPTION",?46,"UI",?50,"PAMIQ",?59,"HAND",?68,"QTY" Line Location: HEADER+11
Function Call: WRITE	Prompt: ?77,"NO.",?85,"DATE QTY",?99,"LOC USER CODE",! Line Location: HEADER+12
Function Call: WRITE	Prompt: ?67,$J(ASUV("QTY","D/I"),5) Line Location: PRINTLIN+7
Function Call: WRITE	Prompt: ?75,ASUV("D/I","PO#") Line Location: PRINTLIN+8
Function Call: WRITE	Prompt: !?40,"TOTAL",?59,$J($P(ASUX(0,"IDX"),U,8),5) Line Location: PRINTTOT+2
Function Call: WRITE	Prompt: !!,"USER NOT DEFINED -USE KERNEL" Line Location: REMARKS+1
Routine Call	%ZIS Line Location: EN+1
Routine Call	DIE Line Location: FINDIDX+7
Routine Call	DIC Line Location: FINDIDX+3
Routine Call	DIR Line Location: READSTA+1 ASK+1
Routine Call	%ZIS Line Location: EN+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ASUMS - [#9002031]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ASUL(19 - [#9002039.19]	P2+8
^ASUL(20 - [#9002039.2]	P2+7
^ASUMB - [#9002035]	CMPT+15
^ASUMB("C"	CMPT+14
^ASUMS - [#9002031]	CMPT+3, CMPT+4, CHECKI+1
^ASUMS("B"	REMARKS+5, REMARKS+6, CHECKI+1, READSTA+2
^DD("DD"	PSER+2
^VA(200 - [#200]	REMARKS+3
^XTMP("ASUR"	PSER+2, PSER+5, PSER+12, PSER+13, PSER+14, PSER+20, PSER+21, CMPT+1!, CMPT+21, CMPT+31*

Label References

Name	Line Occurrences
ASK	FINDIDX+4
CHECKI	REMARKS+5
CMPT	PSER+4
DONE	ASK+2
FINDIDX	REMARKS+6, ASK+3
HEADER	PSER+16, PRINTLIN+5, PRINTTOT+1
K	PSER+5
P2	PSER+22, PSER+23
PRINTTOT	PSER+28
PSER	EN+3
READSTA	REMARKS+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ASUAB	CMPT+32!, CMPT+35!
ASUAB(	CMPT+17*, CMPT+30
ASUAD	CMPT+32!, CMPT+35!
ASUAD(	CMPT+11, CMPT+12, CMPT+28, CMPT+29
ASUC	K+1!
ASUC("ACCTOT"	PSER+6, PSER+29, PSER+30, K+2!
ASUC("B/O"	PSER+6, PRINTLIN+2, PRINTTOT+4, PRINTTOT+5*
ASUC("GTOT"	PSER+6, PSER+30, PSER+32, K+2!
ASUC("LI"	PSER+20*, PSER+23, K+2!
ASUC("LN"	PSER+6, PSER+15, PSER+16, PSER+31, HEADER+1, HEADER+13, PRINTLIN+4, PRINTLIN+5, PRINTTOT+1*
ASUC("PG"	HEADER+1*, HEADER+2, HEADER+4
ASUC("QTY"	PSER+6, PRINTLIN+1, PRINTTOT+3, PRINTTOT+5*
ASUC("TR"	REMARKS+5*, DONE+1!
>> ASUF("DLIDX"	CMPT+5
>> ASUK(	EN+6
>> ASUK("DT"	PSER+1, PSER+3, PSER+5, CMPT+1
>> ASUK("PTR"	EN+6
>> ASUK("PTRSEL"	EN+3*, K+6
>> ASUL(	K+3!
>> ASUL(1	EN+2, PSER+11
>> ASUL(2	PSER+10, HEADER+6, CMPT+2
>> ASUL(9	HEADER+8
>> ASUMB("E#"	CMPT+13, CMPT+14, CMPT+15, CMPT+16
>> ASUMB("LOC"	CMPT+16*, CMPT+17
>> ASUMB("QTYB/O"	CMPT+16*, CMPT+17
>> ASUMB("USR"	CMPT+16*, CMPT+17
>> ASUMB(1	CMPT+15*, CMPT+16
ASUMS	K+1!, K+4!, CMPT+36!
ASUMS("D/I"	CMPT+10, CMPT+11, CMPT+12
ASUMS("E#"	PSER+6, CMPT+2, CMPT+3, CMPT+4, CMPT+5, CMPT+7, REMARKS+3, REMARKS+6, CHECKI+1, READSTA+2 , DONE+1!
ASUMS("EOQ"	CMPT+6, CMPT+19
ASUMS("PMIQ"	CMPT+8, CMPT+19
ASUMS("QTY"	CMPT+8, CMPT+9*, CMPT+19
ASUMS("R73"	CMPT+20
ASUMS("STA"	CMPT+18, CMPT+21, CMPT+31
ASUMX	K+1!, CMPT+36!
ASUMX("ACC"	CMPT+18, CMPT+21, CMPT+31
ASUMX("AR U/I	" , CMPT+19
ASUMX("DESC"	CMPT+18
ASUMX("E#"	CMPT+7*, CMPT+14, CMPT+15
ASUMX("IDX"	CMPT+18, CMPT+21, CMPT+31
>> ASUU(10	REMARKS+3, REMARKS+6, CHECKI+3
>> ASUU(11	REMARKS+3, REMARKS+6, CHECKI+2
>> ASUU(12	PSER+13, PSER+29, K+1!, CMPT+27, CMPT+28, CMPT+29, CMPT+30, CMPT+31, CMPT+36!
>> ASUU(13	PSER+20, PSER+23, K+1!, PRINTLIN+3, PRINTLIN+6, PRINTLIN+11
ASUV	K+1!
ASUV("B/O"	PSER+29!, P2+4, P2+5, P2+7, P2+8, PRINTLIN+2, PRINTLIN+10, CMPT+9, CMPT+13, CMPT+15* , CMPT+17, CMPT+22, CMPT+25, CMPT+36!
ASUV("D/I"	PSER+7, PSER+29!, P2+2, P2+3, PRINTLIN+8, PRINTLIN+9, CMPT+9, CMPT+11*, CMPT+12, CMPT+22 , CMPT+23, CMPT+36!
ASUV("DI#"	CMPT+10*, CMPT+11, CMPT+12
ASUV("IDX"	CMPT+5*
ASUV("QTY"	PSER+7, P2+1, PRINTLIN+1, PRINTLIN+7
ASUV("R73DTE"	REMARKS+4*, DONE+1!
ASUV("R73PER"	REMARKS+3*, DONE+1!
ASUV("ST"	REMARKS+3, REMARKS+5, CHECKI+1, CHECKI+2, CHECKI+3, DONE+1!
ASUX	K+1!
ASUX("ACC"	PSER+8, PSER+12, PSER+13, PSER+14, PSER+20, PSER+21, PSER+30, HEADER+7
ASUX("DT"	PSER+3*, HEADER+4
ASUX("IDX"	PSER+8, PSER+13, PSER+14, PSER+20, PSER+21
ASUX("STA"	PSER+8, PSER+10, PSER+11, PSER+12, PSER+13, PSER+14, PSER+20, PSER+21, HEADER+5
ASUX("TRL"	PSER+19, PSER+20, PSER+21, CMPT+23, CMPT+25, CMPT+26*, CMPT+27
ASUX(0	PSER+14, PSER+17, PSER+18, PSER+21, PSER+23, PSER+24, PSER+25, PSER+26, PSER+27, P2+1 , P2+2, P2+3, P2+4, P2+5, P2+6, P2+7, PRINTLIN+6, PRINTLIN+11, PRINTTOT+2, CMPT+18 , CMPT+19, CMPT+20, CMPT+21, CMPT+28, CMPT+29, CMPT+30, CMPT+31*
>> DA	FINDIDX+5*
DIC	FINDIDX+1*, DONE+1!
DIC("A"	FINDIDX+2*
DIC(0	FINDIDX+2*
DIE	FINDIDX+5*, DONE+1!
DIR	ASK+1!, DONE+1!
DIR("A"	READSTA+1, ASK+1
DIR("B"	ASK+1*
DIR(0	REMARKS+3, CHECKI+2, ASK+1*
DR	FINDIDX+6*, DONE+1!
DT	REMARKS+3
>> DTOUT	READSTA+1, FINDIDX+4, ASK+2
>> DUOUT	PSER+12, PSER+13, PSER+16, PSER+28, HEADER+2, PRINTLIN+3, PRINTLIN+5, PRINTTOT+1, READSTA+1, FINDIDX+4 , ASK+2
DUZ	REMARKS+1, REMARKS+3
DUZ(2	EN+1
IO	EN+1
IOF	K+6, HEADER+2
>> IOP	EN+5*
IOSL	PSER+6, PSER+16, PSER+31, PRINTLIN+5, PRINTTOT+1
>> POP	EN+5
U	PSER+2, PSER+17, PSER+18, PSER+24, PSER+25, PSER+26, PSER+27, P2+1, P2+2, P2+3 , P2+4, P2+5, P2+6, P2+7, P2+8, PRINTLIN+6, PRINTLIN+11, PRINTTOT+2, CMPT+1, CMPT+4 , CMPT+11, CMPT+12, CMPT+16, CMPT+17, CMPT+18, CMPT+19, CMPT+20, CMPT+30, REMARKS+2, REMARKS+3 , CHECKI+1
X	K+3, K+4!, REMARKS+3, READSTA+1
Y	PSER+2, PSER+3, PSER+4, PSER+5, K+4!, REMARKS+4, FINDIDX+4, FINDIDX+5, ASK+3
Y(0	READSTA+2
>> ZTDESC	EN+4*
>> ZTRTN	EN+4*

Customize PDF page

Package: Supply

Routine: ASURD73P

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: