Routine: ASURD13P

Package	Total	Call Graph
Supply	8	(AREA,SETAREA,STAT)^ASULARST (M,MIC,MICK)^ASUMSTRD ^ASURD130 ^ASURD132 DATE^ASUUDATE CLS^ASUUHDG PAZ^ASUURHDR (C,O,U)^ASUUZIS
Kernel	1	(,HOME)^%ZIS
VA Fileman	1	^DIR

Package	Total	Caller Graph
Supply	3	ASU5113DRP ASUCODAY ASUCORPX

Entry Points

Name	Comments	DBIA/ICR reference
PACT	;EP; -PRINT ACCOUNT TOTALS
P0	;EP ;SELECTION
CMPT	;EP ;CREATE EXTRACTS
P5	;VEND & ACCT
MENU	;EP; GET ITEM AND DATE RANGES
ADDMNT	;ADD MONTHS FROM ASUMS FOR INDEX. CHECK EACH USER
HEADER	;HEADER
PSER	;EP;FOR TASKMAN QUEUE OF PRINT
PRTVNDOR	;PRINT VENDOR TOTALS AND HEADERS
NEWVNDR	;EP; -SET VENDOR NAME
END	;

External References

Name	Field # of Occurrence
^%ZIS	ASURD13P+8
HOME^%ZIS	ASURD13P+4
AREA^ASULARST	PSER+14
SETAREA^ASULARST	ASURD13P+5
STAT^ASULARST	PSER+14
M^ASUMSTRD	PSER+27
MIC^ASUMSTRD	ADDMNT+1
MICK^ASUMSTRD	ADDMNT+1
^ASURD130	CMPT+1
^ASURD132	P5+17
DATE^ASUUDATE	PSER+2
CLS^ASUUHDG	PSER+11, MENU+3, MENU+10, MENU+13
PAZ^ASUURHDR	END+3, HEADER+2
C^ASUUZIS	END+4
O^ASUUZIS	ASURD13P+8
U^ASUUZIS	PSER+8
^DIR	MENU+6, MENU+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Report must be run from Kernel option" Line Location: ASURD13P+4
Function Call: WRITE	Prompt: !!,"NO REPORT 13 DATA FOR SELECTED PARAMETERS" Line Location: PSER+11
Function Call: WRITE	Prompt: !!?14,"STATION TOTAL NO ITEMS",?38,ASUC("VENITM",1),?44,"EOV",?48,$J($FN(ASUC("EOQVAL",4),",",2),12) Line Location: PSER+35
Function Call: WRITE	Prompt: @IOF Line Location: END+3
Function Call: WRITE	Prompt: !?18,"REQUIREMENTS ANALYSIS REPORT",!?26,"ITEM SELECTION",!! Line Location: MENU+3
Function Call: WRITE	Prompt: ?26,"PERIOD SELECTION" Line Location: MENU+10
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+2
Function Call: WRITE	Prompt: !?1,"REPORT #13 REQUIREMENTS ANALYSIS",ASUV("HEADER") Line Location: HEADER+3
Function Call: WRITE	Prompt: ?80,$E(ASUK("DT","FM"),4,5),"/",$E(ASUK("DT","FM"),6,7),"/",$E(ASUK("DT","FM"),2,3),?120,"PAGE: ",ASUC("PG") Line Location: HEADER+5
Function Call: WRITE	Prompt: !?3,"AREA: ",ASUL(1,"AR","AP"),?15,ASUL(1,"AR","NM") Line Location: HEADER+6
Function Call: WRITE	Prompt: !?3,"STAT: ",ASUL(2,"STA","CD"),?15,ASUL(2,"STA","NM"),?41,"ACCOUNT: ",$S(ASUT("ACC")=1:"PHARMACY",ASUT("ACC")=3:"SUBSISTENCE",1:"GENERAL SUPPLIES") Line Location: HEADER+7
Function Call: WRITE	Prompt: ?74,"VENDOR: ",$S(ASUV("VEN NM")=" ":ASUT("VNDR"),1:ASUV("VEN NM")),?100,"EOQ TABLE: ",ASUV("EOQTB") Line Location: HEADER+8
Function Call: WRITE	Prompt: !!?3,"INDEX SLC",?32,"USAGE BY MONTH -CURRENT TO OLDEST",!?2,"NUMBER",?16,"ORDER",?35,"ISSUED NO. ISSUED NO.",?65,"ISSUED NO." Line Location: HEADER+9
Function Call: WRITE	Prompt: !?1,"DESCRIPTION",?16,"NUMBER",?34,"MO",?37,"QUANT",?44,"REQ",?48,"MO",?51,"QUANT",?58,"REQ",?62,"MO",?65,"QUANT",?72,"REQ" Line Location: HEADER+10
Function Call: WRITE	Prompt: !,"------------------------------------------------------------------------------------------------------------------------------------",!! Line Location: HEADER+11
Function Call: WRITE	Prompt: !!?3,$E(ASUMX("IDX"),1,5),".",$E(ASUMX("IDX"),6,6),?12,$P(ASUMS(2),U) Line Location: P5+3
Function Call: WRITE	Prompt: !!?16,"VENDOR TOTAL NO ITEMS",?38,ASUC("VENITM"),?44,"EOV",?48,$J($FN(ASUC("EOQVAL",5),",",2),12) Line Location: PACT+2
Function Call: WRITE	Prompt: !!?16,"REQUISITIONED BY:",!?35,"SIGNATURE/TITLE",?58,"DATE:" Line Location: PACT+3
Function Call: WRITE	Prompt: !!?21,"APPROVED BY:",!?35,"SIGNATURE/TITLE",?58,"DATE" Line Location: PACT+4
Function Call: WRITE	Prompt: !!?16,"FUNDS AVAILABLE :",!?35,"SIGNATURE/TITLE",?58,"DATE",! Line Location: PACT+5
Routine Call	%ZIS Line Location: ASURD13P+4
Routine Call	DIR Line Location: MENU+6 MENU+11
Routine Call	%ZIS Line Location: ASURD13P+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ASUMS("B"	PSER+13
^ASUMX - [#9002032]	PSER+8, P5+1
^XTMP("ASUR"	PSER+1!*, PSER+10, PSER+12, PSER+15, PSER+17, PSER+22, PSER+23, PSER+24, PSER+25, HEADER+1

Label References

Name	Line Occurrences
ADDMNT	P5+17
CMPT	PSER+8
END	PSER+11
HEADER	PSER+30, PACT+1, PRTVNDOR+1, PRTVNDOR+2, NEWVNDR+1, NEWVNDR+3
MENU	ASURD13P+6
NEWVNDR	PSER+29
P0	ASURD13P+6, HEADER+4
P5	PSER+30
PACT	PSER+21, PSER+31, NEWVNDR+2
PSER	ASURD13P+7

Naked Globals

Name	Field # of Occurrence
^(	HEADER+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	END+1!
ASUC	END+1!
ASUC("EOQVAL"	PSER+3, PSER+32, PSER+33, PSER+35, PSER+36, PACT+2, PACT+7, PACT+8*
ASUC("LN"	PSER+9, PSER+30, PSER+33, HEADER+1, HEADER+12, P5+4, PACT+1, PACT+6
ASUC("PG"	PSER+9, HEADER+1, HEADER+2, HEADER+5
ASUC("TOT"	PSER+9*
ASUC("VENITM"	PSER+3, PSER+32, PSER+33, PSER+35, P5+18, PACT+2, PACT+6, PACT+8*
ASUC("VENS"	PSER+3, P5+2, PRTVNDOR+2*
ASUD	END+1!
ASUD("R13"	ASURD13P+6, PSER+4, PSER+6, P0+1, P0+2, P0+3, P0+4, P0+5, P0+6, P0+7 , MENU+2, MENU+8, MENU+9, MENU+13*
ASUF	END+1!
ASUF("IO"	MENU+1*, MENU+14!
ASUF("PR"	PSER+16, PSER+20, PSER+21, NEWVNDR+2, NEWVNDR+3
>> ASUK(	ASURD13P+9
>> ASUK("DT"	PSER+1, PSER+2, P0+2, HEADER+5
>> ASUK("PTR"	ASURD13P+9
>> ASUK("PTRSEL"	ASURD13P+7*, END+3
>> ASUL(	END+2!
>> ASUL("EOQVAL"	PSER+3*, PACT+7
>> ASUL(1	ASURD13P+5, HEADER+6
>> ASUL(2	PSER+28, HEADER+7
ASUMS	END+1!
ASUMS("DMD"	PSER+34!
ASUMS("E#"	PSER+13, PSER+26, P5+1
ASUMS("EOQ"	PSER+28
ASUMS("ORD#"	P5+5, P5+6
ASUMS("VENAM"	PSER+29, NEWVNDR+1, NEWVNDR+3
ASUMS(2	P5+3
ASUMX	END+1!
ASUMX("IDX"	P5+2*, P5+3
ASUMX("NSN"	P5+12
ASUMX(0	P5+1*, P5+2
ASUS	END+1!
ASUT	END+1!
ASUT("ACC"	PSER+9, PSER+15, PSER+16, PSER+17, PSER+22, PSER+23, PSER+24, PSER+25, HEADER+1, HEADER+7 , PRTVNDOR+2
ASUT("AR"	PSER+10*, PSER+11, PSER+12, PSER+14, PSER+15, PSER+17, PSER+22, PSER+23, PSER+24, PSER+25 , HEADER+1
ASUT("IDX"	PSER+23*, PSER+24, PSER+25
ASUT("SEQ"	PSER+24*, PSER+25
ASUT("SLC"	PSER+9, PSER+17, PSER+18, PSER+19, PSER+22, PSER+23, PSER+24, PSER+25
ASUT("STA"	PSER+9, PSER+12, PSER+13, PSER+14, PSER+15, PSER+17, PSER+22, PSER+23, PSER+24, PSER+25 , HEADER+1
ASUT("VNDR"	PSER+9, PSER+22, PSER+23, PSER+24, PSER+25, HEADER+8
ASUU	END+1!
ASUU(1	HEADER+1*
ASUU(2	HEADER+1*
ASUV	END+1!
ASUV("ACC"	PSER+9, PSER+16, PRTVNDOR+1
ASUV("EOQTB"	PSER+28*, HEADER+8
ASUV("HEADER"	PSER+5, PSER+6, PSER+7*, HEADER+3
ASUV("M"	PSER+6*
ASUV("ORD#"	P5+6, P5+7, P5+8, P5+10, P5+12, P5+13, P5+14, P5+16, P5+17!
ASUV("PRV MO"	, PSER+5, P0+7*
ASUV("SLC"	PSER+16, PSER+18, PSER+19
ASUV("VEN NM"	, PSER+16, PSER+29, HEADER+8, NEWVNDR+1, NEWVNDR+3*
>> ASUX(0	PSER+25*, PSER+26
DIR	MENU+13!
DIR("A"	MENU+4*
DIR("B"	MENU+11*
DIR(0	MENU+5, MENU+11
DT	P0+2
>> DTOUT	MENU+7, MENU+12
>> DUOUT	ASURD13P+6, PSER+17, PSER+21, PSER+22, PSER+23, PSER+24, PSER+30, PSER+31, MENU+2, MENU+7 , MENU+9, MENU+12, HEADER+2, PACT+1, PRTVNDOR+2, NEWVNDR+2
DUZ(2	ASURD13P+4
IO	ASURD13P+4, MENU+1, MENU+14
IO(0	MENU+1
IOF	END+3, HEADER+2
>> IOP	ASURD13P+8*
>> POP	ASURD13P+8
U	PSER+1, PSER+26, P5+2, P5+3
X	PSER+8, PSER+14, END+1!, END+2*
X1	PSER+14*, END+1!
X2	END+1!
X3	END+1!
X4	END+1!
Y	END+1!, MENU+8, MENU+13
ZTDESC	ASURD13P+8*, END+1!
ZTRTN	ASURD13P+8*, END+1!

Customize PDF page

Package: Supply

Routine: ASURD13P

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: