Routine: ASURMDBK

Package	Total	Call Graph
Supply	3	K^ASURMDBK (DATA16,QUE,SELXTRCT)^ASUUTIL ($$LDOM,FPP)^ASUUTIL1
Kernel	2	HOME^%ZIS ^%ZISC
IHS VA Utilities	1	^XBKVAR
VA Fileman	1	^DIR

Package	Total	Caller Graph
Supply	4	ASU697RDBK ASU818RPK ASUCOMOR ASURMDBK

Entry Points

Name	Comments	DBIA/ICR reference
DIV(X1,X2)
QUIT	;----- KILL VARIABLES, CLOSE DEVICE, QUIT
SET	;----- SETS TOTALS IN ^TMP GLOBAL
HDR	;----- WRITES REPORT HEADER
GET	;EP ; GATHER DATA
K	;----- SELECT THE K REPORTS TO PRINT
EN1(ASUDT,ASUTYP,ASURPT)
K1	;----- BUILDS SELECTION ARRAYS
1	;----- LOOP THROUGH THE AREA SUBSCRIPT
PRT	;----- PRINTS THE DATA
3	;----- LOOP THROUGH THE STATION SUBSCRIPT
EN	;EP -- MAIN ENTRY POINT (USER INTERACTIVE)
WRITE(X)	;
KHELP	;----- HELP FOR REPORT SELECTION
LOOPS	;----- LOOPS THROUGH THE ^XTMP("ASUR","RDBK") GLOBAL AND PRINTS ; THE REPORT
2	;----- LOOP THROUGH THE REPORT NUMBER SUBSCRIPT
KLIST	;----- K REPORT LIST
K2	;----- ISSUE PROMPTS TO CHOOSE WHICH REPORT(S)
DQ	;EP -- QUEUED JOB STARTS HERE

External References

Name	Field # of Occurrence
HOME^%ZIS	EN+3
^%ZISC	QUIT+5
K^ASURMDBK	EN+4
DATA16^ASUUTIL	GET+21
QUE^ASUUTIL	EN+8
SELXTRCT^ASUUTIL	EN+5
$$LDOM^ASUUTIL1	GET+15
FPP^ASUUTIL1	GET+14
^DIR	HDR+3, K2+9, K2+25
^XBKVAR	EN+3, DQ+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"THIS REPORT REQUIRES 132 COLUMNS!" Line Location: EN+6
Function Call: WRITE	Prompt: !!,"NO DATA FOR DATA BOOK REPORT ",ASULIST(2,ASUL(2)) Line Location: 2+6
Function Call: WRITE	Prompt: !!,"TOTAL" Line Location: 2+9
Function Call: WRITE	Prompt: !!,$E(ASUL(3),1,15) Line Location: 3+7
Function Call: WRITE	Prompt: ?18,$J($P(X,U),10,2),?30,$J($$DIV($P(X,U),$P(X,U)+$P(X,U,2)),5,1) Line Location: WRITE+3
Function Call: WRITE	Prompt: ?37,$J($P(X,U,2),10,2),?49,$J($$DIV($P(X,U,2),$P(X,U)+$P(X,U,2)),5,1) Line Location: WRITE+4
Function Call: WRITE	Prompt: ?57,$J($P(X,U,3),10,2),?69,$J($$DIV($P(X,U,3),$P(X,U,3)+$P(X,U,4)),5,1) Line Location: WRITE+5
Function Call: WRITE	Prompt: ?76,$J($P(X,U,4),10,2),?88,$J($$DIV($P(X,U,4),$P(X,U,3)+$P(X,U,4)),5,1) Line Location: WRITE+6
Function Call: WRITE	Prompt: ?96,$J($P(X,U,5),10,2),?108,$J($$DIV($P(X,U,5),$P(X,U,5)+$P(X,U,6)),5,1) Line Location: WRITE+7
Function Call: WRITE	Prompt: ?115,$J($P(X,U,6),10,2),?127,$J($$DIV($P(X,U,6),$P(X,U,5)+$P(X,U,6)),5,1) Line Location: WRITE+8
Function Call: WRITE	Prompt: @IOF Line Location: HDR+5
Function Call: WRITE	Prompt: "MANAGEMENT SUPPLY DATA BOOK for " Line Location: HDR+6
Function Call: WRITE	Prompt: $P(Y," ")," ",$P(Y,",",2) Line Location: HDR+7
Function Call: WRITE	Prompt: !,"AREA ",ASUL(1) Line Location: HDR+8
Function Call: WRITE	Prompt: !!,ASULIST(2,ASUL(2))," - ","DIRECT ISSUE VALUE versus STOCK ISSUE VALUE" Line Location: HDR+9
Function Call: WRITE	Prompt: !!?26,"CURRENT FISCAL YEAR",?65,"PREVIOUS FISCAL YEAR",?103,"PREV-PREV FISCAL YEAR" Line Location: HDR+10
Function Call: WRITE	Prompt: !?18,"DIRECT ISS",?34,"%",?37,"STOCK ISSU",?53,"%",?57,"DIRECT ISS",?73,"%",?76,"STOCK ISSU",?92,"%",?96,"DIRECT ISS",?112,"%",?115,"STOCK ISSU",?131,"%" Line Location: HDR+11
Function Call: WRITE	Prompt: !,"STATION",?23,"VALUE",?31,"D.I.",?42,"VALUE",?50,"S.I.",?62,"VALUE",?70,"D.I.",?81,"VALUE",?89,"S.I.",?101,"VALUE",?109,"D.I.",?120,"VALUE",?128,"S.I." Line Location: HDR+12
Function Call: WRITE	Prompt: !,"DIRECT ISSUE VALUE versus STOCK ISSUE VALUE Reports:",! Line Location: K2+3
Function Call: WRITE	Prompt: !?3,I,?8,ASULIST(2,I) Line Location: K2+4
Function Call: WRITE	Prompt: " ",$P(ASULIST(2,ASURPT)," ",2) Line Location: K2+12
Function Call: WRITE	Prompt: *7," ??" Line Location: K2+20
Function Call: WRITE	Prompt: ! Line Location: K2+23
Function Call: WRITE	Prompt: !?3,I_" "_ASULIST(4,I) Line Location: K2+24
Function Call: WRITE	Prompt: ! Line Location: K2+25
Function Call: WRITE	Prompt: *7," ??" Line Location: K2+38
Function Call: WRITE	Prompt: !!?5,"Select ONE report by number or name, or" Line Location: KHELP+2
Function Call: WRITE	Prompt: !?5,"enter report NUMBERS separated by commas, or select a range of" Line Location: KHELP+3
Function Call: WRITE	Prompt: !?5,"NUMBERS: for example '1,2,5', or '1-5', or '1,2,5-7'," Line Location: KHELP+4
Function Call: WRITE	Prompt: !?5,"or select 'A' for All." Line Location: KHELP+5
Function Call: WRITE	Prompt: !?5,"DO NOT mix numbers and names.",! Line Location: KHELP+6
Function Call: WRITE	Prompt: @IOF Line Location: QUIT+4
Routine Call	%ZIS Line Location: EN+3
Routine Call	DIR Line Location: HDR+3 K2+9 K2+25

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ASUH - [#9002036]	GET+19
^ASUH("AX"	GET+17, GET+18
^DD("DD"	HDR+7
^XTMP("ASUR"	DQ+7, GET+13!, SET+2, SET+3, SET+4, SET+5, 1+2, 2+5, 2+10, 3+3 , 3+6, QUIT+3!

Label References

Name	Line Occurrences
$$DIV	WRITE+3, WRITE+4, WRITE+5, WRITE+6, WRITE+7, WRITE+8
2	1+4
3	2+7
GET	DQ+7
HDR	2+4, 2+8, 3+5
K1	PRT+9, K+11
K2	K+11, K2+12, K2+38
LOOPS	PRT+9
PRT	DQ+8
QUIT	EN+4, EN+5, EN+9, DQ+8
SET	GET+29
WRITE	2+11, 3+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	HDR+2~
ASU	GET+12~
ASU("DT"	GET+16, GET+23, GET+24, GET+25
ASU0	GET+12~, GET+19*, GET+20, GET+26, GET+27
ASU1	GET+12~, GET+16, GET+17, GET+18, GET+23, GET+24, GET+25
ASU2	GET+12~, GET+18*, GET+19, GET+21
ASUCNT	K2+2~, K2+18, K2+19, K2+21, K2+24*, K2+25
ASUD	GET+12~
ASUD("ACC"	GET+28*, SET+2, SET+4
ASUD("AREA"	SET+2, SET+3, SET+4, SET+5
ASUD("STA"	SET+4, SET+5
ASUD("TRANS"	GET+19*
ASUD("VAL"	SET+2, SET+3, SET+4, SET+5
ASUDATA	2+2~, 2+10, 2+11, 3+2~, 3+6, 3+8, K1+2~, K1+3*, K1+5, K1+6
ASUDT	EN+2~, EN+5, EN1~, GET+14, GET+15*, GET+17, HDR+7
>> ASUK("PTRSEL"	QUIT+4
ASUL	PRT+7~
ASUL(1	1+2*, 1+3, 2+5, 2+10, 3+3, 3+6, HDR+8
ASUL(2	2+3*, 2+5, 2+6, 2+10, 3+3, 3+6, HDR+9
ASUL(3	3+3*, 3+4, 3+6, 3+7
ASULIST	PRT+7~, K+10~
ASULIST(1	K1+6*, K2+14, K2+16, K2+17, K2+21, K2+27
ASULIST(2	2+6, HDR+9, K+12, K1+6*, K2+4, K2+12, K2+19, K2+34, K2+35
ASULIST(3	K2+15!, K2+17*, K2+18
ASULIST(4	K2+15!, K2+19*, K2+20, K2+21, K2+24, K2+27
ASUOUT	PRT+7~, PRT+8, 1+2, 2+3, 2+4, 2+7, 2+8, 3+3, 3+5, HDR+3
ASUPAGE	PRT+7~, HDR+3, HDR+4*
ASUPC	GET+12~, GET+22, GET+23, GET+24, GET+25, GET+26, GET+27, SET+2, SET+3, SET+4 , SET+5
ASURPT	EN+2~, EN+4, EN1~, 2+3, K+12, K2+10, K2+11, K2+12, K2+13, K2+14* , K2+17, K2+20, K2+21, K2+22!, K2+25, K2+26, K2+27, K2+29, K2+36, K2+37* , K2+38
ASUTYP	EN+2~, EN1~, GET+15
ASUX	K2+2~, K2+16, K2+17, K2+18, K2+19, K2+29*, K2+30, K2+31, K2+32, K2+33 , K2+35
ASUZ	K2+2~, K2+28, K2+32, K2+34, K2+35, K2+36
DIR	HDR+2~, HDR+3!, K2+2~, K2+25!
DIR("?"	K2+7*
DIR("??"	K2+8*
DIR("A"	K2+6*
DIR(0	HDR+3, K2+5, K2+25*
I	2+2~, 2+3, K+10~, K+12, K1+2~, K1+3, K2+2~, K2+4, K2+24, K2+29
IOF	HDR+5, QUIT+4
IOSL	2+8, 3+5
IOST	HDR+3
J	K1+2~, K1+4, K1+6, K2+2~, K2+33, K2+34
U	GET+19, SET+2, SET+3, SET+4, SET+5, WRITE+3, WRITE+4, WRITE+5, WRITE+6, WRITE+7 , WRITE+8
X	WRITE~, WRITE+3, WRITE+4, WRITE+5, WRITE+6, WRITE+7, WRITE+8, HDR+2~, K2+2~
X1	DIV~, DIV+7
X2	DIV~, DIV+6, DIV+7
Y	HDR+2~, HDR+3, HDR+7*, K2+2~, K2+10, K2+25
ZTSAVE	EN+8, QUIT+2!
ZTSAVE("ASUDT"	EN+7*
ZTSAVE("ASURPT"	EN+7*
ZTSAVE("ASUTYP"	EN+7*

Customize PDF page

Package: Supply

Routine: ASURMDBK

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items