Routine: ASURM16P

Information

ASURM16P ; IHS/ITSC/LMH - REPORT 16 STATION MONTHLY SUB-SUB-ACTIVITY ;

Source Information

Source file <ASURM16P.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Kernel	2	HOME^%ZIS ^%ZISC
IHS VA Utilities	1	^XBKVAR
Supply	1	(DATA16,DT,HDR16,QUE,SELXTRCT,TC16,WRITE16)^ASUUTIL

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Supply	4	ASU616REPT ASU617REPT ASU812R16 ASUCOMOR

Entry Points

Name	Comments	DBIA/ICR reference
QUIT	;----- CLEAN UP VARIABLES, CLOSE DEVICE, QUIT
SET	;----- SETS DATA INTO ^XTMP("ASUR","R16") GLOBAL
GET	;EP -- GETS THE DATA
4	;----- LOOP THROUGH THE SUB-SUB-ACTIVITY SUBSCRIPT
1	;----- LOOP THROUGH THE AREA SUBSCRIPT
PRT	;----- PRINT THE DATA
3	;----- LOOP THROUGH THE SUB-STATION SUBSCRIPT
EN	;EP -- MAIN ENTRY POINT (USER INTERACTIVE)
5	;----- LOOP THROUGH THE GENERAL LEDGER ACCOUNT SUBSCRIPT
EN1(ASUDT,ASUTYP)
LOOPS	;----- LOOPS THROUGH ^XTMP("ASUR","R16") GLOBAL AND PRINTS ; THE REPORT
2	;----- LOOP THROUGH THE STATION SUBSCRIPT
DQ	;EP -- QUEUED JOB STARTS HERE

External References

Name	Field # of Occurrence
HOME^%ZIS	EN+3
^%ZISC	QUIT+5
DATA16^ASUUTIL	GET+26
DT^ASUUTIL	GET+15
HDR16^ASUUTIL	1+4, 2+5, 2+7, 2+9, 2+13, 3+4, 5+6
QUE^ASUUTIL	EN+7
SELXTRCT^ASUUTIL	EN+4
TC16^ASUUTIL	GET+20
WRITE16^ASUUTIL	2+12, 2+16, 5+8
^XBKVAR	EN+3, DQ+7

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 REPORT 16" Line Location: PRT+11
Function Call: WRITE	Prompt: !,"ALL ACCT ",$P(ASUD("ACC"),".",2) Line Location: 2+10
Function Call: WRITE	Prompt: !,"STA TOTAL" Line Location: 2+14
Function Call: WRITE	Prompt: !?1,$S(ASUL(3)="UNK":"",1:$P(ASUL(3)," ")),?6,$S(ASUL(4)="UNK":"",1:ASUL(4)),?10,$P(ASUL(5),".",2) Line Location: 5+7
Function Call: WRITE	Prompt: @IOF Line Location: QUIT+4
Routine Call	%ZIS Line Location: EN+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ASUH - [#9002036]	GET+24
^ASUH("AX"	GET+22, GET+23
^XTMP("ASUR"	GET+14!, SET+24, SET+25, SET+26, SET+27, SET+28, SET+29, PRT+11, 1+2, 2+3 , 2+8, 2+11, 2+15, 3+2, 4+2, 5+3, 5+5, QUIT+3!

Label References

Name	Line Occurrences
2	1+5
3	2+6
4	3+5
5	4+4
GET	DQ+8
LOOPS	PRT+20
PRT	DQ+8
QUIT	EN+4, EN+8, DQ+8
SET	GET+30

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ASU	DQ+6~
ASU("DT"	GET+17, GET+18, GET+19*, GET+21, GET+22
ASU("TC"	GET+27, SET+21, SET+22
ASU0	GET+13~, GET+24*, GET+25
ASU1	GET+13~, GET+21, GET+22, GET+23, SET+22
ASU2	GET+13~, GET+23*, GET+24, GET+26
ASUD	DQ+6~
ASUD("ACC"	SET+24, SET+29, 2+8*, 2+10, 2+11
ASUD("AREA"	SET+24, SET+25, SET+26, SET+27, SET+28, SET+29, PRT+14
ASUD("SSA"	SET+28, SET+29
ASUD("SST"	SET+27, SET+28, SET+29
ASUD("STA"	SET+24, SET+26, SET+27, SET+28, SET+29, PRT+15
ASUD("STATUS"	GET+28, GET+29
ASUD("TRANS"	GET+24*, GET+27, SET+21, SET+22
ASUD("VAL"	SET+24, SET+25, SET+26, SET+27, SET+28, SET+29
ASUDATA	2+2~, 2+11, 2+12, 2+15, 2+16, 5+2~, 5+5*, 5+8
ASUDT	EN+2~, EN+4, EN1~, GET+15, 1+4, 2+5, 2+7, 2+9, 2+13, 3+4 , 5+6
ASUDT("DXTRACT"	GET+16, SET+22
ASUHDR	PRT+9~, 1+4, 2+5, 2+7, 2+9, 2+13, 3+4, 5+6
ASUHDR(1	PRT+13*
ASUHDR(2	PRT+14*
ASUHDR(3	PRT+15*
ASUHDR(4	PRT+16*
ASUHDR(5	PRT+17*
ASUHDR(6	PRT+18*
>> ASUK("PTRSEL"	QUIT+4
ASUL	PRT+9~
ASUL(1	1+2*, 1+3, 2+3, 2+8, 2+11, 2+15, 3+2, 4+2, 5+3, 5+5
ASUL(2	2+3*, 2+4, 2+8, 2+11, 2+15, 3+2, 4+2, 5+3, 5+5
ASUL(3	3+2*, 3+3, 4+2, 5+3, 5+5, 5+7
ASUL(4	4+2*, 4+3, 5+3, 5+5, 5+7
ASUL(5	5+3*, 5+4, 5+5, 5+7
ASUOUT	PRT+9~, PRT+10*, 1+2, 1+4, 1+5, 2+3, 2+5, 2+6, 2+7, 2+8 , 2+9, 2+13, 3+2, 3+4, 3+5, 4+2, 4+4, 5+3, 5+6
ASUPAGE	PRT+9~, 1+4, 2+5, 2+7, 2+9, 2+13, 3+4, 5+6
ASUPC	SET+20~, SET+23*, SET+24, SET+25, SET+26, SET+27, SET+28, SET+29
ASUPCM	SET+20~, SET+22*, SET+23
ASUPCY	SET+20~, SET+21*, SET+23
ASUTYP	EN+2~, EN1~, GET+15, 1+4, 2+5, 2+7, 2+9, 2+13, 3+4, 5+6
IOF	QUIT+4
IOSL	2+9, 2+13, 5+6
U	GET+24, SET+24, SET+25, SET+26, SET+27, SET+28, SET+29
ZTSAVE	EN+7, QUIT+2!
ZTSAVE("ASUDT"	EN+6*
ZTSAVE("ASUTYP"	EN+6*

Customize PDF page

Package: Supply

Routine: ASURM16P

Call Graph Total: 4

Caller Graph Total: 4