Routine: ASURMDBA

Information

ASURMDBA ; IHS/ITSC/LMH - MANAGEMENT SUPPLY DATA BOOK REPORT A ;

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	ASU691RDBA ASU815RPA ASUCOMOR

Entry Points

Name	Comments	DBIA/ICR reference
QUIT	;CLEAN UP VARIABLES, CLOSE DEVICE, QUIT
SET	;----- SETS COUNTS IN ^TMP GLOBAL
HDR	;----- WRITES REPORT HEADER
GET	;EP ; GATHER DATA
REV	;----- SETS UP REVERSAL TRANSACTION CODE ARRAY
1	;----- LOOP THROUGH THE AREA SUBSCRIPT
PRT	;----- PRINTS THE REPORT
3	;----- LOOP THROUGH THE STATION SUBSCRIPT
EN	;EP -- MAIN ENTRY POINT (USER INTERACTIVE)
EN1(ASUDT,ASUTYP)
WRITE(X)	;----- WRITES DATA
LOOPS	;----- LOOPS THROUGH THE ^TMP("ASU",$J,"ASURMDBA") GLOBAL AND PRINTS ; THE REPORT
2	;----- LOOP THROUGH THE ACCOUNT SUBSCRIPT
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+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 A" Line Location: PRT+8
Function Call: WRITE	Prompt: !,"TOTAL" Line Location: 2+9
Function Call: WRITE	Prompt: !,$E(ASUL(3),1,20) Line Location: 3+7
Function Call: WRITE	Prompt: ?24,$J($P(X,U),8),?34,$J($P(X,U,2),8),?44,$J($P(X,U,3),8) Line Location: WRITE+5
Function Call: WRITE	Prompt: ?54,$J(ASUX,4,1) Line Location: WRITE+7
Function Call: WRITE	Prompt: ?61,$J($P(X,U,4),8),?71,$J($P(X,U,5),8),?81,$J($P(X,U,6),8) Line Location: WRITE+8
Function Call: WRITE	Prompt: ?91,$J(ASUX,4,1) Line Location: WRITE+10
Function Call: WRITE	Prompt: ?98,$J($P(X,U,7),8),?108,$J($P(X,U,8),8),?118,$J($P(X,U,9),8) Line Location: WRITE+11
Function Call: WRITE	Prompt: ?128,$J(ASUX,4,1) Line Location: WRITE+13
Function Call: WRITE	Prompt: ! Line Location: WRITE+14
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: !!,"A. RECORDS PROCESSED INTO THE SUPPLY ACCOUNTING AND MANAGEMENT SYSTEM (SAMS)" Line Location: HDR+9
Function Call: WRITE	Prompt: !?3,"Category: ",ASUL(2) Line Location: HDR+10
Function Call: WRITE	Prompt: !!?29,"CURRENT FISCAL YEAR",?66,"PREVIOUS FISCAL YEAR",?103,"PREV-PREV FISCAL YEAR" Line Location: HDR+11
Function Call: WRITE	Prompt: !?25,"Number Number Number %",?62,"Number Number Number %",?99,"Number Number Number %" Line Location: HDR+12
Function Call: WRITE	Prompt: !,"STATION",?25,"Regular Reversal Rejects Rej",?62,"Regular Reversal Rejects Rej",?99,"Regular Reversal Rejects Rej" 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

Name	Line Occurrences (* Changed, ! Killed)
^ASUH("AX"	GET+18, GET+19
^DD("DD"	HDR+7
^XTMP("ASUR"	DQ+6, GET+13!, SET+2, SET+3, PRT+8, 1+2, 2+3, 2+8, 3+3, 3+6 , QUIT+3!

Name	Line Occurrences
$$PRCNT	WRITE+6, WRITE+9, WRITE+12
2	1+4
3	2+6
GET	DQ+6
HDR	2+5, 2+7, 3+5
LOOPS	PRT+10
PRT	DQ+7
QUIT	EN+4, EN+8, DQ+7
REV	GET+16
SET	GET+28
WRITE	2+10, 3+8

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	HDR+2~
ASU	GET+12~
ASU("DT"	GET+17, GET+22, GET+23, GET+24
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
ASUD("AREA"	SET+2, SET+3
ASUD("STA"	SET+3
ASUD("STATUS"	GET+25, GET+26, GET+27
ASUD("TRANS"	GET+25, GET+26
ASUDATA	2+2~, 2+8, 2+10, 3+2~, 3+6, 3+8
ASUDT	EN+2~, EN+4, EN1~, GET+14, GET+15*, GET+18, HDR+7
>> ASUK("PTRSEL"	QUIT+4
ASUL	PRT+7~
ASUL(1	1+2*, 1+3, 2+3, 2+8, 3+3, 3+6, HDR+8
ASUL(2	2+3*, 2+4, 2+8, 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+3, 2+5, 2+6, 2+7, 3+3, 3+5 , HDR+3
ASUPAGE	PRT+7~, HDR+3, HDR+4*
ASUPC	GET+12~, GET+21, GET+22, GET+23, GET+24, GET+25, GET+26, GET+27*, SET+2, SET+3
ASUREV	GET+12~, REV+4!, REV+5*
ASUREV(	GET+25, GET+26, REV+5*
ASUTYP	EN+2~, EN1~, GET+15
ASUX	WRITE+4~, WRITE+6, WRITE+7, WRITE+9, WRITE+10, WRITE+12*, WRITE+13
DIR	HDR+2~, HDR+3!
DIR(0	HDR+3*
IOF	HDR+5, QUIT+4
IOSL	2+7, 3+5
IOST	HDR+3
U	SET+2, SET+3, WRITE+5, WRITE+6, WRITE+8, WRITE+9, WRITE+11, WRITE+12
X	WRITE~, WRITE+5, WRITE+6, WRITE+8, WRITE+9, WRITE+11, WRITE+12, HDR+2~, PRCNT~, PRCNT+3 , PRCNT+4
Y	HDR+2~, HDR+3, HDR+7*, PRCNT~, PRCNT+4
ZTSAVE	EN+7, QUIT+2!
ZTSAVE("ASUDT"	EN+6*
ZTSAVE("ASUTYP"	EN+6*

Customize PDF page

Package: Supply

Routine: ASURMDBA

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: