Routine: ASURMDBC

Information

ASURMDBC ; IHS/ITSC/LMH - MANAGEMENT SUPPLY DATA BOOK REPORT C ;

Source Information

Source file <ASURMDBC.m>

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	ASU693RDBC ASU816RPC ASUCOMOR

Entry Points

Name	Comments	DBIA/ICR reference
QUIT	;----- CLEAN UP VARIABLES, CLOSE DEVICE, QUIT
SET	;----- SETS COUNTS AND TOTALS IN ^TMP GLOBAL
HDR	;----- PRINTS HEADER
GET	;EP ; GATHER DATA
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(X)	;----- WRITES THE DATA
LOOPS	;----- LOOPS THROUGH THE ^TMP("ASU",$J,"ASUDBC") GLOBAL AND PRINTS ; THE REPORT
2	;----- LOOP THROUGH THE ACCOUNT SUBSCRIPT
DQ	;EP -- QUEUED JOB STARTS HERE

External References

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+14
FPP^ASUUTIL1	GET+13
^DIR	HDR+3
^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 C" Line Location: PRT+8
Function Call: WRITE	Prompt: !,"TOTAL" Line Location: 2+8
Function Call: WRITE	Prompt: !,$E(ASUL(3),1,20) Line Location: 3+7
Function Call: WRITE	Prompt: ! Line Location: 3+9
Function Call: WRITE	Prompt: ?$P(ASUCOL,U,I),$J($P(X,U,I),4) Line Location: WRITE+7
Function Call: WRITE	Prompt: ?$P(ASUCOL,U,I+1),$J($P(X,U,I+1),10,2) 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: !!,"C. INVENTORY ADJUSTMENTS, LINE ITEMS and VALUES" Line Location: HDR+9
Function Call: WRITE	Prompt: !," Category: ",ASUL(2) Line Location: HDR+10
Function Call: WRITE	Prompt: !!?31,"CURRENT FISCAL YEAR",?68,"PREVIOUS FISCAL YEAR",?102,"PREVIOUS-PREV FISCAL YEAR" Line Location: HDR+11
Function Call: WRITE	Prompt: !?24,"DEBIT ADJUSTMNTS",?42,"CRED ADJUSTMENTS",?61,"DEBIT ADJUSTMNTS",?79,"CRED ADJUSTMENTS",?98,"DEBIT ADJUSTMNTS",?116,"CRED ADJUSTMENTS" Line Location: HDR+12
Function Call: WRITE	Prompt: !,"STATION",?24,"# LI",?35,"VALUE",?42,"# LI",?53,"VALUE",?61,"# LI",?72,"VALUE",?79,"# LI",?90,"VALUE",?98,"# LI",?108,"VALUE",?116,"# LI",?127,"VALUE" Line Location: HDR+13
Function Call: WRITE	Prompt: ! Line Location: HDR+14
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+18
^ASUTH("AX"	GET+16, GET+17
^DD("DD"	HDR+7
^XTMP("ASUR"	DQ+6, GET+12!, SET+2, SET+3, SET+4, SET+5, PRT+8, 1+2, 2+2, 2+7 , 3+3, 3+6, QUIT+3!

Label References

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

Local Variables

Name	Field # of Occurrence
%	HDR+2~
ASU	GET+11~
ASU("DT"	GET+15, GET+22, GET+23, GET+24
>> ASU0	GET+18*
ASU1	GET+11~, GET+15, GET+16, GET+17, GET+22, GET+23, GET+24
ASU2	GET+11~, GET+17*, GET+18, GET+20
ASUCOL	WRITE+4~, WRITE+5*, WRITE+7, WRITE+8
ASUD	GET+11~
ASUD("ACCNAM"	SET+2, SET+3, SET+4, SET+5
ASUD("AREA"	SET+2, SET+3, SET+4, SET+5
ASUD("STA"	SET+4, SET+5
ASUD("TRANS"	GET+18*, GET+19, GET+25, GET+26
ASUD("VAL"	SET+3, SET+5
ASUDATA	2+7, 2+9, 3+2~, 3+6, 3+8
ASUDT	EN+2~, EN+4, EN1~, GET+13, GET+14*, GET+16, HDR+7
>> ASUK("PTRSEL"	QUIT+4
ASUL	PRT+7~
ASUL(1	1+2*, 1+3, 2+2, 2+7, 3+3, 3+6, HDR+8
ASUL(2	2+2*, 2+3, 2+7, 3+3, 3+6, HDR+10
ASUL(3	3+3*, 3+4, 3+6, 3+7
ASUOUT	PRT+7~, PRT+9, 1+2, 1+4, 2+2, 2+4, 2+5, 2+6, 3+3, 3+5 , HDR+3
ASUPAGE	PRT+7~, HDR+3, HDR+4*
ASUPC	GET+11~, GET+21, GET+22, GET+23, GET+24, GET+25, GET+26, SET+2, SET+3, SET+4 , SET+5
ASUTYP	EN+2~, EN1~, GET+14
DIR	HDR+2~, HDR+3!
DIR(0	HDR+3*
I	WRITE+4~, WRITE+6*, WRITE+7, WRITE+8
IOF	HDR+5, QUIT+4
IOSL	2+6, 3+5
IOST	HDR+3
U	GET+18, SET+2, SET+3, SET+4, SET+5, WRITE+7, WRITE+8
X	WRITE~, WRITE+7, WRITE+8, 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: ASURMDBC

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:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed