Routine: ASURMDBL

Information

ASURMDBL ; IHS/ITSC/LMH - MANAGEMENT SUPPLY DATA BOOK REPORT L ;

Source Information

Call Graph

Call Graph Total: 6

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

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Supply	3	ASU698RDBL ASU819RPL ASUCOMOR

Entry Points

Name	Comments	DBIA/ICR reference
QUIT	;----- CLEAN UP VARIABLES, CLOSE DEVICE, QUIT
SET	;----- SETS TOTALS IN ^TMP GLOBAL
GET	;EP ; GATHER DATA
4	;----- LOOP THROUGH THE SOURCE CODE SUBSCRIPT
SRC(X1,X2,X3)
1	;----- LOOP THROUGH THE AREA SUBSCRIPT
PRT	;----- PRINTS THE DATA
3	;----- LOOP THROUGH THE STATION SUBSCRIPT
EN	;EP -- MAIN ENTRY POINT (USER INTERACTIVE)
EN1(ASUDT,ASUTYP)
WRITE(X1,X2)
LOOPS	;----- LOOPS THROUGH THE ^XTMP("ASUR","RDBK") GLOBAL AND PRINTS ; THE REPORT
2	;----- LOOP THROUGH THE ACCOUNT SUBSCRIPT
HDR(X1,X2,X3)
PRCNT(X,Y)
DQ	;EP -- QUEUED JOB STARTS HERE

Name	Field # of Occurrence
HOME^%ZIS	EN+3
^%ZISC	QUIT+5
DATA16^ASUUTIL	GET+20
QUE^ASUUTIL	EN+7
SELXTRCT^ASUUTIL	EN+4
$$LDOM^ASUUTIL1	GET+15
FPP^ASUUTIL1	GET+14
^DIR	HDR+8
^XBKVAR	EN+3, DQ+5

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 DATABOOK REPORT L" Line Location: PRT+9
Function Call: WRITE	Prompt: !!,"TOTAL RECEIPTS" Line Location: 3+7
Function Call: WRITE	Prompt: !!,ASUL(4) Line Location: 4+8
Function Call: WRITE	Prompt: !?5,$J($P(X1,U),8,2) Line Location: WRITE+4
Function Call: WRITE	Prompt: ?14,$J(ASUX,4,1) Line Location: WRITE+6
Function Call: WRITE	Prompt: ?19,$J($P(X1,U,2),8,2) Line Location: WRITE+7
Function Call: WRITE	Prompt: ?28,$J(ASUX,4,1) Line Location: WRITE+9
Function Call: WRITE	Prompt: ?33,$J($P(X1,U)+$P(X1,U,2),8,2) Line Location: WRITE+10
Function Call: WRITE	Prompt: ?42,$J(ASUX,4,1) Line Location: WRITE+12
Function Call: WRITE	Prompt: ?48,$J($P(X1,U,3),8,2) Line Location: WRITE+13
Function Call: WRITE	Prompt: ?57,$J(ASUX,4,1) Line Location: WRITE+15
Function Call: WRITE	Prompt: ?62,$J($P(X1,U,4),8,2) Line Location: WRITE+16
Function Call: WRITE	Prompt: ?71,$J(ASUX,4,1) Line Location: WRITE+18
Function Call: WRITE	Prompt: ?76,$J($P(X1,U,3)+$P(X1,U,4),8,2) Line Location: WRITE+19
Function Call: WRITE	Prompt: ?85,$J(ASUX,4,1) Line Location: WRITE+21
Function Call: WRITE	Prompt: ?91,$J($P(X1,U,5),8,2) Line Location: WRITE+22
Function Call: WRITE	Prompt: ?100,$J(ASUX,4,1) Line Location: WRITE+24
Function Call: WRITE	Prompt: ?105,$J($P(X1,U,6),8,2) Line Location: WRITE+25
Function Call: WRITE	Prompt: ?114,$J(ASUX,4,1) Line Location: WRITE+27
Function Call: WRITE	Prompt: ?119,$J($P(X1,U,5)+$P(X1,U,6),8,2) Line Location: WRITE+28
Function Call: WRITE	Prompt: ?128,$J(ASUX,4,1) Line Location: WRITE+30
Function Call: WRITE	Prompt: @IOF Line Location: HDR+10
Function Call: WRITE	Prompt: "MANAGEMENT SUPPLY DATA BOOK for " Line Location: HDR+11
Function Call: WRITE	Prompt: $P(Y," ")," ",$P(Y,",",2) Line Location: HDR+12
Function Call: WRITE	Prompt: ?116,"PAGE ",$J(ASUPAGE,6) Line Location: HDR+13
Function Call: WRITE	Prompt: !,"AREA ",X1 Line Location: HDR+14
Function Call: WRITE	Prompt: !!,"L. RECEIPT VALUES BY MAJOR SOURCES OF SUPPLY" Line Location: HDR+15
Function Call: WRITE	Prompt: !?3,"Category: ",X2 Line Location: HDR+16
Function Call: WRITE	Prompt: !!,"LOCATION: ",X3 Line Location: HDR+17
Function Call: WRITE	Prompt: !!?16,"CURRENT FISCAL YEAR",?58,"PREVIOUS FISCAL YEAR",?98,"PREVIOUS-PREV FISCAL YEAR" Line Location: HDR+18
Function Call: WRITE	Prompt: !?7,"DIRECT",?17,"%",?22,"STOCK",?31,"%",?36,"TOTAL",?45,"%",?50,"DIRECT",?60,"%",?65,"STOCK",?74,"%",?79,"TOTAL",?88,"%",?93,"DIRECT",?103,"%",?108,"STOCK",?117,"%",?122,"TOTAL",?131,"%" Line Location: HDR+19
Function Call: WRITE	Prompt: !?7,"ISSUES",?15,"DIR RECEIPTS",?29,"STK RECEIPTS",?43,"TOT",?50,"ISSUES",?58,"DIR RECEIPTS",?72,"STK RECEIPTS",?86,"TOT",?93,"ISSUES",?101,"DIR RECEIPTS",?115,"STK RECEIPTS",?129,"TOT" Line Location: HDR+20
Function Call: WRITE	Prompt: @IOF Line Location: QUIT+4
Routine Call	%ZIS Line Location: EN+3
Routine Call	DIR Line Location: HDR+8

Name	Line Occurrences (* Changed, ! Killed)
^ASUL(5 - [#9002039.05]	SRC+9, SRC+11
^ASUTH(	GET+18, GET+19
^DD("DD"	HDR+12
^XTMP("ASUR"	DQ+6, GET+13!, SET+2, SET+3, SET+4, SRC+10, SRC+11, PRT+9, 1+3, 2+2 , 3+3, 3+8, 4+3, 4+4, 4+6, QUIT+3!

Name	Line Occurrences
$$PRCNT	WRITE+5, WRITE+8, WRITE+11, WRITE+14, WRITE+17, WRITE+20, WRITE+23, WRITE+26, WRITE+29
2	1+4
3	2+4
4	3+5
GET	DQ+6
HDR	3+4, 3+6, 4+7
LOOPS	PRT+11
PRT	DQ+7
QUIT	EN+4, EN+8, DQ+7
SET	GET+26
SRC	SET+2
WRITE	3+9, 4+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	HDR+7~
ASU	GET+12~
ASU("DT"	GET+17, GET+22, GET+23, GET+24
ASU0	GET+12~, GET+16*, GET+18, GET+19, GET+20, GET+25
ASU1	GET+12~, GET+17, GET+18, GET+19, GET+22, GET+23, GET+24
ASU2	GET+12~, GET+19*, GET+20
ASUD	GET+12~
ASUD("ACCNAM"	SET+2, SET+3, SET+4
ASUD("AREA"	SET+2, SET+3, SET+4
ASUD("SRC"	SET+4
ASUD("STA"	SET+2, SET+3, SET+4
ASUD("VAL"	SET+3, SET+4
ASUDATA	1+2~, 3+2~, 3+8, 3+9, 4+2~, 4+6, 4+9
ASUDATA2	1+2~, 3+2~, 3+8, 3+9, 4+2~, 4+3, 4+9
ASUDT	EN+2~, EN+4, EN1~, GET+14, GET+15*, GET+18, HDR+12
>> ASUK("PTRSEL"	QUIT+4
ASUL	PRT+8~
ASUL(1	1+3*, 2+2, 3+3, 3+4, 3+6, 3+8, 4+3, 4+4, 4+6, 4+7
ASUL(2	2+2*, 2+3, 3+3, 3+4, 3+6, 3+8, 4+3, 4+4, 4+6, 4+7
ASUL(3	3+3*, 3+4, 3+6, 3+8, 4+3, 4+4, 4+6, 4+7
ASUL(4	4+4*, 4+5, 4+6, 4+8
ASUOUT	PRT+8~, PRT+10, 1+3, 1+4, 2+2, 2+4, 3+3, 3+4, 3+5, 3+6 , 4+4, 4+7, HDR+8
ASUPAGE	PRT+8~, HDR+8, HDR+9*, HDR+13
ASUPC	GET+12~, GET+21, GET+22, GET+23, GET+24, GET+25*, SET+3, SET+4
ASUTYP	EN+2~, EN1~, GET+15
ASUX	WRITE+3~, WRITE+5, WRITE+6, WRITE+8, WRITE+9, WRITE+11, WRITE+12, WRITE+14, WRITE+15, WRITE+17* , WRITE+18, WRITE+20, WRITE+21, WRITE+23, WRITE+24, WRITE+26, WRITE+27, WRITE+29, WRITE+30
DIR	HDR+7~, HDR+8!
DIR(0	HDR+8*
IOF	HDR+10, QUIT+4
IOSL	3+6, 4+7
IOST	HDR+8
U	SET+3, SET+4, SRC+11, WRITE+4, WRITE+5, WRITE+7, WRITE+8, WRITE+10, WRITE+11, WRITE+13 , WRITE+14, WRITE+16, WRITE+17, WRITE+19, WRITE+20, WRITE+22, WRITE+23, WRITE+25, WRITE+26, WRITE+28 , WRITE+29
X	HDR+7~, PRCNT~, PRCNT+3, PRCNT+4
X1	SRC~, SRC+10, SRC+11, WRITE~, WRITE+4, WRITE+5, WRITE+7, WRITE+8, WRITE+10, WRITE+11 , WRITE+13, WRITE+14, WRITE+16, WRITE+17, WRITE+19, WRITE+20, WRITE+22, WRITE+23, WRITE+25, WRITE+26 , WRITE+28, WRITE+29, HDR~, HDR+14
X2	SRC~, SRC+10, SRC+11, WRITE~, WRITE+11, WRITE+20, WRITE+29, HDR~, HDR+16
X3	SRC~, SRC+10, SRC+11, HDR~, HDR+17
X4	SRC+8~, SRC+9*, SRC+11
Y	HDR+7~, HDR+8, HDR+12*, PRCNT~, PRCNT+4
ZTSAVE	EN+7, QUIT+2!
ZTSAVE("ASUDT"	EN+6*
ZTSAVE("ASUTYP"	EN+6*

Customize PDF page

Package: Supply

Routine: ASURMDBL

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: