Routine: ASURM15P

Package	Total	Call Graph
Kernel	2	HOME^%ZIS ^%ZISC
IHS VA Utilities	1	^XBKVAR
Supply	1	(DATA16,DT,QUE,SELXTRCT)^ASUUTIL
VA Fileman	1	^DIR

Package	Total	Caller Graph
Supply	3	ASU615REPT ASU811R15 ASUCOMOR

Entry Points

Name	Comments	DBIA/ICR reference
QUIT	;----- CLEAN UP VARIABLES, CLOSE DEVICE, QUIT
SET	;----- SETS DATA INTO ^XTMP("ASUR","R15") GLOBAL
HDR	;----- WRITES REPORT HEADER
WRITE(X)	;----- WRITES TOTALS
GET	;EP ; GATHER DATA
4	;----- LOOP THROUGH THE USER SUBSCRIPT
1	;----- LOOP THROUGH THE AREA SUBSCRIPT
PRT	;----- PRINTS THE DATA
3	;----- LOOP THROUGH THE SUB-STATION SUBSCRIPT
EN	;EP -- MAIN ENTRY POINT (USER INTERACTIVE)
5	;----- LOOP THROUGH THE CAN SUBSCRIPT
EN1(ASUDT,ASUTYP)
7	;----- LOOP THROUGH THE SUBOBJECT SUBSCRIPT
6	;----- LOOP THROUGH THE GL ACCOUNT SUBSCRIPT
LOOPS	;----- Loops 1-7 loop through the ^XTMP("ASUR","R15") global and ; print the report
2	;----- LOOP THROUGH THE STATION SUBSCRIPT
DQ	;EP -- QUEUED JOB STARTS HERE

External References

Name	Field # of Occurrence
HOME^%ZIS	EN+3
^%ZISC	QUIT+5
DATA16^ASUUTIL	GET+30
DT^ASUUTIL	GET+18
QUE^ASUUTIL	EN+7
SELXTRCT^ASUUTIL	EN+4
^DIR	HDR+3
^XBKVAR	EN+3, DQ+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"THIS REPORT REQUIRES 132 COLUMNS!" Line Location: EN+5
Function Call: WRITE	Prompt: !!,"NO DATA FOR REPORT 15" Line Location: PRT+10
Function Call: WRITE	Prompt: !!,"AREA ",ASUL(1)," TOTALS" Line Location: 1+8
Function Call: WRITE	Prompt: !,"STATION ",ASUL(2)," TOTALS" Line Location: 2+9
Function Call: WRITE	Prompt: !,"SUB-STATION ",ASUL(3)," TOTALS" Line Location: 3+9
Function Call: WRITE	Prompt: ! Line Location: 3+11
Function Call: WRITE	Prompt: !?25,ASUI,?31,"TOTAL" Line Location: 4+9
Function Call: WRITE	Prompt: !?8,"USER CODE TOTALS" Line Location: 4+13
Function Call: WRITE	Prompt: ! Line Location: 4+15
Function Call: WRITE	Prompt: !?17,"CAN TOTALS" Line Location: 5+8
Function Call: WRITE	Prompt: ! Line Location: 5+10
Function Call: WRITE	Prompt: !?2,$E(ASUL(3),1,2),?8,ASUL(4),?17,ASUL(5),?25,ASUL(6),?31,"TOTAL" Line Location: 6+10
Function Call: WRITE	Prompt: !?2,$E(ASUL(3),1,2),?8,ASUL(4),?17,ASUL(5),?25,ASUL(6),?38,$J($P(ASUDATA,U),10,2),?66,$S(ASUL(7)="268H":"",1:$E(ASUL(7),3,4)) Line Location: 7+7
Function Call: WRITE	Prompt: ?70,$J($P(ASUDATA,U,3),10,2),?84,$J($P(ASUDATA,U,4),10,2),?104,$J($P(ASUDATA,U,5),10,2),?118,$J($P(ASUDATA,U,6),10,2) Line Location: 7+8
Function Call: WRITE	Prompt: ?38,$J($P(X,U),10,2),?52,$J($P(X,U,2),10,2),?70,$J($P(X,U,3),10,2),?84,$J($P(X,U,4),10,2),?104,$J($P(X,U,5),10,2),?118,$J($P(X,U,6),10,2) Line Location: WRITE+2
Function Call: WRITE	Prompt: @IOF Line Location: HDR+5
Function Call: WRITE	Prompt: "REPORT #15 MONTHLY COST REPORT FOR ",$S(ASUTYP="M":"MONTH ",ASUTYP="I":"EXTRACT DATE ",1:"") Line Location: HDR+6
Function Call: WRITE	Prompt: Y Line Location: HDR+7
Function Call: WRITE	Prompt: ?116,"PAGE ",$J(ASUPAGE,6) Line Location: HDR+8
Function Call: WRITE	Prompt: !,"AREA ",$G(ASUL(1)),!,"STAT ",$G(ASUL(2)) Line Location: HDR+9
Function Call: WRITE	Prompt: !!,"SUB",?18,"COMMON",?27,"G L",?33,"STOCK ISSUES-OBJECT CLASS 26",?65,"DIRECT ISSUES-OBJECT CLASS 26",?101,"FUEL OIL OBJ-SUBOBJ 26.8H" Line Location: HDR+10
Function Call: WRITE	Prompt: !,"STAT",?8,"USER",?14,"ACCOUNTING",?26,"ACCT",?34,"CURRENT MONTH",?54,"YEAR-TO-",?66,"CURRENT MONTH",?87,"YEAR-TO-",?100,"CURRENT MONTH",?121,"YEAR-TO-" Line Location: HDR+11
Function Call: WRITE	Prompt: !,"CODE",?8,"CODE",?18,"NUMBER",?27,"NO.",?32,"SUBOBJ",?43,"VALUE",?52,"DATE VALUE",?64,"SUBOBJ",?75,"VALUE",?85,"DATE VALUE",?97,"SUBOBJ",?109,"VALUE",?119,"DATE VALUE" Line Location: HDR+12
Function Call: WRITE	Prompt: ! Line Location: HDR+13
Function Call: WRITE	Prompt: @IOF Line Location: QUIT+4
Routine Call	%ZIS Line Location: EN+3
Routine Call	DIR Line Location: HDR+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ASUH - [#9002036]	GET+27
^ASUH("AX"	GET+25, GET+26
^DD("DD"	HDR+7
^XTMP("ASUR"	GET+17!, PRT+10, 1+3, 1+6, 2+3, 2+7, 3+3, 3+7, 4+3, 4+11 , 5+3, 5+6, 6+3, 6+6, 7+3, 7+5, QUIT+3!

Label References

Name	Line Occurrences
2	1+5
3	2+6
4	3+6
5	4+5
6	5+5
7	6+5
GET	DQ+7
HDR	1+7, 2+5, 2+8, 3+5, 3+8, 4+8, 4+12, 5+7, 6+9, 7+6
LOOPS	PRT+11
PRT	DQ+7
QUIT	EN+4, EN+8, DQ+7
SET	GET+33
WRITE	1+9, 2+10, 3+10, 4+10, 4+14, 5+9, 6+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	HDR+2~
ASU	DQ+5~
ASU("DT"	GET+20, GET+21, GET+22*, GET+24, GET+25
ASU("TC"	GET+23*, GET+29
ASU0	GET+16~, GET+27*, GET+28, GET+29, SET+30, SET+31, SET+32, SET+34, SET+35, SET+36 , SET+43
ASU1	GET+16~, GET+24, GET+25, GET+26, SET+29, SET+33
ASU2	GET+16~, GET+26*, GET+27, GET+30
ASUD	DQ+5~
ASUD("OBJ"	SET+31, SET+32, SET+35, SET+36, SET+43
ASUD("STATUS"	GET+31, GET+32
ASUD("TRANS"	GET+27*, GET+29
ASUD("VAL"	SET+42, SET+46
ASUDATA	1+2~, 1+6, 1+9, 2+2~, 2+7, 2+10, 3+2~, 3+7, 3+10, 4+2~ , 4+7, 4+10, 4+11, 4+14, 5+2~, 5+6, 5+9, 6+2~, 6+6, 6+8 , 6+11, 7+2~, 7+5, 7+7, 7+8
ASUDT	EN+2~, EN+4, EN1~, GET+18, HDR+7
ASUDT("DXTRACT"	GET+19, SET+29, SET+33
ASUGLOB	SET+28~, SET+41, SET+42, SET+45, SET+46
ASUI	GET+16~, GET+23, 4+2~, 4+6, 4+7, 4+9, 6+2~, 6+7*, 6+8
>> ASUK("PTRSEL"	QUIT+4
ASUL	PRT+8~
ASUL(1	1+3*, 1+4, 1+6, 1+8, 2+3, 2+7, 3+3, 3+7, 4+3, 4+11 , 5+3, 5+6, 6+3, 6+6, 7+3, 7+5, HDR+9
ASUL(2	2+3*, 2+4, 2+7, 2+9, 3+3, 3+7, 4+3, 4+11, 5+3, 5+6 , 6+3, 6+6, 7+3, 7+5, HDR+9
ASUL(3	3+3*, 3+4, 3+7, 3+9, 4+3, 4+6, 4+7, 4+11, 5+3, 5+6 , 6+3, 6+6, 6+8, 6+10, 7+3, 7+5, 7+7
ASUL(4	4+3*, 4+4, 4+6, 4+7, 4+11, 5+3, 5+6, 6+3, 6+6, 6+8 , 6+10, 7+3, 7+5, 7+7
ASUL(5	5+3*, 5+4, 5+6, 6+3, 6+6, 6+10, 7+3, 7+5, 7+7
ASUL(6	6+3*, 6+4, 6+6, 6+8, 6+10, 7+3, 7+5, 7+7
ASUL(7	7+3*, 7+4, 7+5, 7+7
ASUOOT	SET+28~, SET+38, SET+40, SET+41, SET+44*, SET+45
ASUOUT	PRT+8~, PRT+9, 1+3, 1+5, 1+7, 2+3, 2+6, 2+8, 3+3, 3+6 , 3+8, 4+3, 4+5, 4+6, 4+8, 4+12, 5+3, 5+5, 5+7, 6+3 , 6+5, 6+9, 7+3, 7+6, HDR+3
ASUPAGE	PRT+8~, 3+5, HDR+3, HDR+4*, HDR+8
ASUPC	SET+28~, SET+37*, SET+42, SET+43, SET+46
ASUPCM	SET+28~, SET+30, SET+31, SET+32, SET+34, SET+35, SET+36, SET+37
ASUPCY	SET+28~, SET+30, SET+31, SET+32, SET+34, SET+35, SET+36, SET+37, SET+43
ASUTOT	PRT+8~
ASUTOT("ACC"	4+6, 4+7, 6+8*
ASUTYP	EN+2~, EN1~, GET+18, HDR+6
ASUX	SET+28~, SET+39*, SET+40
DIR	HDR+2~, HDR+3!
DIR(0	HDR+3*
IOF	HDR+5, QUIT+4
IOSL	1+7, 2+8, 3+8, 4+8, 4+12, 5+7, 6+9, 7+6
IOST	HDR+3
U	GET+27, SET+42, SET+46, 6+8, 7+7, 7+8, WRITE+2
X	WRITE~, WRITE+2, HDR+2~
Y	HDR+2~, HDR+3, HDR+7*
ZTSAVE	EN+7, QUIT+2!
ZTSAVE("ASUDT"	EN+6*
ZTSAVE("ASUTYP"	EN+6*

Customize PDF page

Package: Supply

Routine: ASURM15P

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: