Routine: ASUCOMTH

Package	Total	Call Graph
Supply	8	(,STAT)^ASUCOKIL ^ASUCOMOR ^ASUCORUN (SETCTRL,SETLM,SETSTAT,SETTY)^ASUCOSTS ^ASURMSTD (DATE,SETMO,SETRUN)^ASUUDATE CLS^ASUUHDG (Q,S)^ASUUZIS
VA Fileman	2	DT^DILF ^DIR

Package

Total

Call Graph

(,STAT)^ASUCOKIL ^ASUCOMOR ^ASUCORUN (SETCTRL,SETLM,SETSTAT,SETTY)^ASUCOSTS ^ASURMSTD (DATE,SETMO,SETRUN)^ASUUDATE CLS^ASUUHDG (Q,S)^ASUUZIS

DT^DILF ^DIR

Package	Total	Caller Graph
Supply	2	ASU171MCLO ASU172MCLO

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !?15,"S.A.M.S Monthly Closeout Process Running",!! Line Location: ASUCOMTH+4
Function Call: WRITE	Prompt: !,"Monthly closeout will be made for Month and FISCAL year ",!?30,X(0) Line Location: UPDT+2
Function Call: WRITE	Prompt: " for Standard Reports" Line Location: UPDT+16
Function Call: WRITE	Prompt: !!?25,"** ERROR *",7,! Line Location: ERR+1
Function Call: WRITE	Prompt: !,"The Run Control table ASUTBL SITE indicates that month ",ASUP("MO")," should" Line Location: ERR+2
Function Call: WRITE	Prompt: !,"be the month for the monthly closeout, but the current date of ",ASUK("DT")," is",!,"not consistent." Line Location: ERR+3
Function Call: WRITE	Prompt: !!,"The computer program is unable to determine correct Month to closeout." Line Location: ERR+8
Function Call: WRITE	Prompt: 7,!!?10,"** Notify your Supervisor to correct the problem **",7,!! Line Location: ERR+9
Routine Call	DIR Line Location: ASUCOMTH+6 ASUCOMTH+13 UPDT+3 ERR+10

Name	Line Occurrences (* Changed, ! Killed)
^ASUSITE(1	UPDT+6*

Name	Field # of Occurrence
>> %ZIS("A"	UPDT+10*
>> %ZIS("IOPAR"	UPDT+13*
ASUF	END+1!
>> ASUK("DT"	ASUCOMTH+16, ERR+3
>> ASUK("IRPT"	UPDT+26
>> ASUK("PTR"	UPDT+8, UPDT+27
>> ASUK("SRPT"	UPDT+13, UPDT+20, UPDT+22
ASUP	ASUCOMTH+17!, END+1!, KILL+1!
ASUP("AST"	UPDT+9
ASUP("CKP"	UPDT+17, UPDT+30, UPDT+34*
ASUP("ERR"	ASUCOMTH+20, ERR+4, ERR+6
ASUP("HLT"	UPDT+33
ASUP("LSMO"	UPDT+5*
ASUP("MO"	ERR+2
ASUP("MOYR"	UPDT+1, UPDT+5
ASUP("NXMO"	ASUCOMTH+20
ASUP("OK"	ASUCOMTH+17
ASUP("RE*"	ASUCOMTH+19, UPDT+5, UPDT+7*
ASUP("SRP"	UPDT+18*
ASUP("STP"	UPDT+18*
ASUP("TYP"	ASUCOMTH+5*
DIR	ASUCOMTH+7!, ASUCOMTH+13!, UPDT+3!, ERR+10!
DIR("A"	ASUCOMTH+6, UPDT+3
DIR("B"	UPDT+3*
DIR(0	ASUCOMTH+6, ASUCOMTH+13, UPDT+3, ERR+10
DTOUT	ASUCOMTH+8, ASUCOMTH+15, UPDT+15, END+1!
DUOUT	ASUCOMTH+8, ASUCOMTH+14*, ASUCOMTH+15, UPDT+15, END+1!, KILL+1!
>> IOP	UPDT+13*
>> POP	UPDT+16
U	UPDT+6
>> X	ASUCOMTH+8, UPDT+1
>> X(0	UPDT+2
>> XBIOP	UPDT+26*
>> XBRC	UPDT+24*
>> XBRP	UPDT+23*
>> XBRX	UPDT+25*
>> Y	ASUCOMTH+9, UPDT+4

Information