Routine: ASUCOSTS

Package	Total	Call Graph
IHS VA Utilities	1	^XBKVAR
Kernel	1	HOME^%ZIS
VA Fileman	1	^DIR

Package

Total

Call Graph

IHS VA Utilities

^XBKVAR

Kernel

HOME^%ZIS

VA Fileman

^DIR

Package	Total	Caller Graph
Supply	16	ASU179STAS ASUCODAY ASUCOHKP ASUCOKIL ASUCOMOR ASUCOMTH ASUCORPX ASUCORUN ASUCOUTP ASUCOYER ASUMKBPS ASURDINV ASURDPRT ASURMSTD ASURQSTD ASUW2SAM

Package

Total

Caller Graph

Supply

ASU179STAS ASUCODAY ASUCOHKP ASUCOKIL ASUCOMOR ASUCOMTH ASUCORPX ASUCORUN
ASUCOUTP ASUCOYER ASUMKBPS ASURDINV ASURDPRT ASURMSTD ASURQSTD ASUW2SAM

Entry Points

Name	Comments	DBIA/ICR reference
SETSX	;EP ;RPTXTR
SETSY	;EP ;YR
CKM	;;
SETSP	;EP ;UPDT
SETSS	;EP ;STNDRD
SETSM	;EP ;MTHLY
SETSI	;EP ;INV
CKS	;;
CKY	;;
CKX	;;
HELP	;;0;but NO FURTHUR HELP IS AVAILABLE.
SETSTA	;EP ;STAT
SETSTAT	;EP ;
SETCTRL	;EP ;
RPTS	;
SETST	;EP ;TRNS
EN2	;EP ;
SETS	;EP ;
GETSTAT	;EP ;
SETTY	;EP ;TYP
PAUSE	;
SETLD	;EP ;LAST UPDATE
CKI	;;
SETLM	;EP ;LAST MTH
SETLY	;EP ; LAST YR

Name	Field # of Occurrence
HOME^%ZIS	ASUCOSTS+5
^DIR	PAUSE+1
^XBKVAR	ASUCOSTS+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,?25,"R U N S T A T U S R E P O R T I N G",!! Line Location: ASUCOSTS+5
Function Call: WRITE	Prompt: @IOF Line Location: ASUCOSTS+6
Function Call: WRITE	Prompt: !!,"The status of the last closeout which was a '",ASUP("LSTN"),"' was : " Line Location: EN2+6
Function Call: WRITE	Prompt: $P($T(HELP),";",4) Line Location: EN2+12
Function Call: WRITE	Prompt: $P($T(HELP),";",4) Line Location: EN2+13
Function Call: WRITE	Prompt: !!,"If the problem causing processing to end has been addressed," Line Location: EN2+39
Function Call: WRITE	Prompt: !,"the UPDATE RESTART option will start at that point and continue." Line Location: EN2+40
Function Call: WRITE	Prompt: !! Line Location: PAUSE+1
Function Call: WRITE	Prompt: ! Line Location: RPTS+1
Function Call: WRITE	Prompt: !?5,"Invoice Reports Printed" Line Location: RPTS+3
Function Call: WRITE	Prompt: !?5,"Invoice Reports Did NOT Print" Line Location: RPTS+5
Function Call: WRITE	Prompt: !?5,"Standard Reports Printed" Line Location: RPTS+7
Function Call: WRITE	Prompt: !?5,"Standard Reports Did NOT Print" Line Location: RPTS+9
Routine Call	%ZIS Line Location: ASUCOSTS+5
Routine Call	DIR Line Location: PAUSE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ASUSITE(1	SETCTRL+3, SETCTRL+5, SETCTRL+7, SETCTRL+8, SETCTRL+10, SETCTRL+11, GETSTAT+2, GETSTAT+4, SETSP+1, SETST+1 , SETSS+1, SETSI+1, SETSM+1, SETSX+1, SETSY+1, SETTY+1, SETS+2, SETSTA+1, SETLD+1, SETLM+1 , SETLY+1, SETSTAT+2, SETSTAT+6*

Name	Line Occurrences
EN2	ASUCOSTS+6
HELP	EN2+12, EN2+13
PAUSE	EN2+7
RPTS	EN2+38
SETCTRL	EN2+2
SETS	SETSTAT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ASUD("R13"	SETCTRL+10, SETCTRL+11, SETCTRL+12!, SETCTRL+13!
>> ASUK("DT"	SETCTRL+18, SETCTRL+29, SETSTAT+4
>> ASUK("IRPT"	SETCTRL+26, SETCTRL+27, SETCTRL+34, SETCTRL+35
>> ASUK("SRPT"	SETCTRL+15, SETCTRL+16, SETCTRL+23, SETCTRL+24
>> ASUL(2	SETCTRL+17, SETCTRL+28
>> ASUP	EN2+11*, EN2+12, EN2+13, EN2+14, EN2+17, EN2+21, EN2+24, EN2+27, EN2+30
>> ASUP(	EN2+13, EN2+17, SETCTRL+3, SETCTRL+5, GETSTAT+2, GETSTAT+4, SETS+2, SETSTAT+2, SETSTAT+6
>> ASUP("A13"	SETCTRL+9, SETCTRL+12, SETCTRL+13
>> ASUP("AIV"	SETCTRL+25
>> ASUP("ARMS"	SETCTRL+8*
>> ASUP("AST"	SETCTRL+14
>> ASUP("CKI"	SETSI+1
>> ASUP("CKM"	SETSM+1
>> ASUP("CKP"	EN2+1, EN2+7, SETSP+1
>> ASUP("CKS"	EN2+31, SETSS+1
>> ASUP("CKT"	SETST+1
>> ASUP("CKX"	SETSX+1
>> ASUP("CKY"	EN2+7, SETSY+1
>> ASUP("HLT"	SETCTRL+1*, SETSTAT+3
>> ASUP("IVD"	SETCTRL+25, SETCTRL+26, SETCTRL+28, SETCTRL+29, SETCTRL+30, SETCTRL+31, SETCTRL+32, SETCTRL+33, SETCTRL+35
>> ASUP("IVR"	RPTS+2, SETSI+1, SETTY+2*
>> ASUP("LOOP"	SETCTRL+2, SETCTRL+3, SETCTRL+4, SETCTRL+5, GETSTAT+1, GETSTAT+2, GETSTAT+3, GETSTAT+4, SETS+1, SETS+2 , SETSTAT+1, SETSTAT+2, SETSTAT+5*, SETSTAT+6
>> ASUP("LSDT"	SETLD+1, SETSTAT+4*
>> ASUP("LSMO"	SETCTRL+6, SETLM+1
>> ASUP("LSTN"	EN2+5*, EN2+6
>> ASUP("LSTY"	EN2+4*, EN2+5
>> ASUP("LSYR"	SETLY+1
>> ASUP("MOW"	SETCTRL+8*
>> ASUP("NXMO"	SETCTRL+8*
>> ASUP("OLIB"	SETCTRL+8*
>> ASUP("STD"	SETCTRL+14, SETCTRL+15, SETCTRL+17, SETCTRL+18, SETCTRL+19, SETCTRL+20, SETCTRL+21, SETCTRL+22, SETCTRL+24
>> ASUP("STR"	RPTS+6, SETSS+1, SETTY+2*
>> ASUP("STS"	SETTY+2*, SETSTA+1
>> ASUP("TYP"	EN2+4, SETCTRL+17, SETTY+1
>> ASUP("UPLD"	SETCTRL+7*
DIR	PAUSE+1~
DIR(0	PAUSE+1*
IOF	ASUCOSTS+5, ASUCOSTS+6
U	SETCTRL+3, SETCTRL+5, SETCTRL+7, SETCTRL+8, SETCTRL+10, SETCTRL+11, GETSTAT+2, GETSTAT+4, SETSP+1, SETST+1 , SETSS+1, SETSI+1, SETSM+1, SETSX+1, SETSY+1, SETTY+1, SETS+2, SETSTA+1, SETLD+1, SETLM+1 , SETLY+1, SETSTAT+2, SETSTAT+6
>> X	EN2+16, EN2+18, EN2+20, EN2+23, EN2+26, EN2+29, EN2+33, EN2+36, EN2+37, SETCTRL+6 , SETCTRL+8, SETCTRL+20, SETCTRL+21, SETCTRL+22, SETCTRL+23, SETCTRL+31, SETCTRL+32, SETCTRL+33, SETCTRL+34

Customize PDF page

Package: Supply

Routine: ASUCOSTS

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 16

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(CKM+ASUP(1)+1	EN2+16, EN2+23, EN2+26, EN2+29, EN2+33, EN2+36
$T(HELP	EN2+12, EN2+13
$T(HELP+ASUP(1)	EN2+10, EN2+11