Routine: ASURMDBH

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

Package	Total	Caller Graph
Supply	3	ASU695RDBH ASU817RPH ASUCOMOR

Entry Points

Name	Comments	DBIA/ICR reference
SORT	;----- SORTS THE DATA
COUNT	;----- COUNTS THE LINE ITEMS AND DOCUMENTS
EN	;EP -- MAIN ENTRY POINT (USER INTERACTIVE)
WRITE(X)	;----- WRITES DATA
GET	;EP ; GATHER DATA
HDR(X1,X2)
QUIT	;----- CLEAN UP VARIABLES, CLOSE DEVICE, QUIT
1	;----- LOOP THROUGH THE AREA SUBSCRIPT
PRT	;----- PRINTS THE DATA
3	;----- LOOP THROUGH THE STATION SUBSCRIPT
EN1(ASUDT,ASUTYP)
SET1	;----- SORTS DATA IN ^TMP GLOBAL
SET2	;----- SETS COUNTS IN ^TMP GLOBAL
LOOPS	;----- LOOPS THROUGH THE ^XTMP("ASUR","RDBH","B") 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	SORT+20
QUE^ASUUTIL	EN+7
SELXTRCT^ASUUTIL	EN+4
$$LDOM^ASUUTIL1	SORT+14
FPP^ASUUTIL1	SORT+13
^DIR	HDR+7
^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 H" Line Location: PRT+8
Function Call: WRITE	Prompt: !!,"TOTAL" Line Location: 2+9
Function Call: WRITE	Prompt: !!,ASUL(3) Line Location: 3+8
Function Call: WRITE	Prompt: ?23,$J($P(X,U),5) Line Location: WRITE+2
Function Call: WRITE	Prompt: ?29,$J($P(X,U,2),5) Line Location: WRITE+3
Function Call: WRITE	Prompt: ?36,$J(($P(X,U,2)/$P(X,U)),4,1) Line Location: WRITE+4
Function Call: WRITE	Prompt: ?41,$J($P(X,U,3),5) Line Location: WRITE+5
Function Call: WRITE	Prompt: ?47,$J($P(X,U,4),5) Line Location: WRITE+6
Function Call: WRITE	Prompt: ?54,$J(($P(X,U,4)/$P(X,U,3)),4,1) Line Location: WRITE+7
Function Call: WRITE	Prompt: ?60,$J($P(X,U,5),5) Line Location: WRITE+8
Function Call: WRITE	Prompt: ?66,$J($P(X,U,6),5) Line Location: WRITE+9
Function Call: WRITE	Prompt: ?73,$J(($P(X,U,6)/$P(X,U,5)),4,1) Line Location: WRITE+10
Function Call: WRITE	Prompt: ?78,$J($P(X,U,7),5) Line Location: WRITE+11
Function Call: WRITE	Prompt: ?84,$J($P(X,U,8),5) Line Location: WRITE+12
Function Call: WRITE	Prompt: ?91,$J(($P(X,U,8)/$P(X,U,7)),4,1) Line Location: WRITE+13
Function Call: WRITE	Prompt: ?97,$J($P(X,U,9),5) Line Location: WRITE+14
Function Call: WRITE	Prompt: ?103,$J($P(X,U,10),5) Line Location: WRITE+15
Function Call: WRITE	Prompt: ?110,$J(($P(X,U,10)/$P(X,U,9)),4,1) Line Location: WRITE+16
Function Call: WRITE	Prompt: ?115,$J($P(X,U,11),5) Line Location: WRITE+17
Function Call: WRITE	Prompt: ?121,$J($P(X,U,12),5) Line Location: WRITE+18
Function Call: WRITE	Prompt: ?128,$J(($P(X,U,12)/$P(X,U,11)),4,1) Line Location: WRITE+19
Function Call: WRITE	Prompt: @IOF Line Location: HDR+9
Function Call: WRITE	Prompt: "MANAGEMENT SUPPLY DATA BOOK for " Line Location: HDR+10
Function Call: WRITE	Prompt: $P(Y," ")," ",$P(Y,",",2) Line Location: HDR+11
Function Call: WRITE	Prompt: ?116,"PAGE ",$J(ASUPAGE,6) Line Location: HDR+12
Function Call: WRITE	Prompt: !,"AREA ",X1 Line Location: HDR+13
Function Call: WRITE	Prompt: !!,"H. RECEIVING DOCUMENTS and LINE ITEMS RECEIVED" Line Location: HDR+14
Function Call: WRITE	Prompt: !?3,"Category: ",X2 Line Location: HDR+15
Function Call: WRITE	Prompt: !!,?31,"CURRENT FISCAL YEAR",?68,"PREVIOUS FISCAL YEAR",?104,"PREV-PREV FISCAL YEAR" Line Location: HDR+16
Function Call: WRITE	Prompt: !,?25,"Stores Stock",?43,"Direct Issue",?62,"Stores Stock",?80,"Direct Issue",?99,"Stores Stock",?117,"Direct Issue" Line Location: HDR+17
Function Call: WRITE	Prompt: !,"STATION",?23,"# DOC",?30,"# LI",?37,"AVG",?41,"# DOC",?48,"# LI",?55,"AVG",?60,"# DOC",?67,"# LI",?74,"AVG",?78,"# DOC",?85,"# LI",?92,"AVG",?97,"# DOC",?104,"# LI",?111,"AVG",?115,"# DOC",?122,"# LI",?129,"AVG" Line Location: HDR+18
Function Call: WRITE	Prompt: @IOF Line Location: QUIT+4
Routine Call	%ZIS Line Location: EN+3
Routine Call	DIR Line Location: HDR+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ASUH - [#9002036]	SORT+18
^ASUH("AX"	SORT+16, SORT+17
^DD("DD"	HDR+11
^XTMP("ASUR"	DQ+6, SORT+12!, SET1+2, SET1+3, COUNT+5, COUNT+6, COUNT+7, COUNT+8, COUNT+9, SET2+2* , SET2+3*, PRT+8, 1+2, 2+3, 2+8, 3+3, 3+7, QUIT+3!

Label References

Name	Line Occurrences
2	1+2
3	2+5
COUNT	GET+5
GET	DQ+6
HDR	2+4, 2+6, 3+5
LOOPS	PRT+10
PRT	DQ+7
QUIT	EN+4, EN+8, DQ+7
SET1	SORT+26
SET2	COUNT+10
SORT	GET+5
WRITE	2+10, 3+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	HDR+6~
ASU	SORT+11~
ASU("DT"	SORT+15, SORT+22, SORT+23, SORT+24
ASU0	SORT+11~, SORT+18*, SORT+19, SORT+25
ASU1	SORT+11~, SORT+15, SORT+16, SORT+17, SORT+22, SORT+23, SORT+24
ASU2	SORT+11~, SORT+17*, SORT+18, SORT+20, SET1+2
ASUD	SORT+11~
ASUD("ACCNAM"	SET1+2, SET1+3
ASUD("AREA"	SET1+2, SET1+3
ASUD("STA"	SET1+2, SET1+3
ASUD("TRANS"	SORT+18*
ASUD("VOUCH"	SET1+3
ASUDATA	2+2~, 2+8, 2+10, 3+2~, 3+7, 3+9
ASUDT	EN+2~, EN+4, EN1~, SORT+13, SORT+14*, SORT+16, HDR+11
>> ASUK("PTRSEL"	QUIT+4
ASUL	COUNT+4~, PRT+7~
ASUL(1	COUNT+5, COUNT+6, COUNT+7, COUNT+8, COUNT+9, SET2+2, SET2+3, 1+2, 2+3, 2+4 , 2+6, 2+8, 3+3, 3+5, 3+7
ASUL(2	COUNT+6, COUNT+7, COUNT+8, COUNT+9, SET2+2, SET2+3, 2+3, 2+4, 2+6, 2+8 , 3+3, 3+5, 3+7
ASUL(3	COUNT+7, COUNT+8, COUNT+9, SET2+3, 3+3, 3+4, 3+7, 3+8
ASUL(4	COUNT+8*, COUNT+9, SET2+2, SET2+3
ASUL(5	COUNT+9*
ASUOUT	PRT+7~, PRT+9, 1+2, 2+3, 2+4, 2+5, 2+7, 3+3, 3+6, HDR+7
ASUPAGE	PRT+7~, HDR+7, HDR+8*, HDR+12
ASUPC	SORT+11~, SORT+21, SORT+22, SORT+23, SORT+24, SORT+25*, SET1+2, SET1+3
ASUTYP	EN+2~, EN1~, SORT+14
DIR	HDR+6~, HDR+7!
DIR(0	HDR+7*
IOF	HDR+9, QUIT+4
IOSL	2+6, 3+5
IOST	HDR+7
U	SORT+18, SET2+2, SET2+3, WRITE+2, WRITE+3, WRITE+4, WRITE+5, WRITE+6, WRITE+7, WRITE+8 , WRITE+9, WRITE+10, WRITE+11, WRITE+12, WRITE+13, WRITE+14, WRITE+15, WRITE+16, WRITE+17, WRITE+18 , WRITE+19
X	WRITE~, WRITE+2, WRITE+3, WRITE+4, WRITE+5, WRITE+6, WRITE+7, WRITE+8, WRITE+9, WRITE+10 , WRITE+11, WRITE+12, WRITE+13, WRITE+14, WRITE+15, WRITE+16, WRITE+17, WRITE+18, WRITE+19, HDR+6~
X1	HDR~, HDR+13
X2	HDR~, HDR+15
Y	HDR+6~, HDR+7, HDR+11*
ZTSAVE	EN+7, QUIT+2!
ZTSAVE("ASUDT"	EN+6*
ZTSAVE("ASUTYP"	EN+6*

Customize PDF page

Package: Supply

Routine: ASURMDBH

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: