Routine: ACHSUF

Package	Total	Call Graph
Contract Health Management Information System	2	$$LOCK^ACHS AUTO^ACHSNEW
IHS VA Utilities	1	$$DIR^XBDIR

Package

Total

Call Graph

Contract Health Management Information System

$$LOCK^ACHS AUTO^ACHSNEW

IHS VA Utilities

$$DIR^XBDIR

Package	Total	Caller Graph
Contract Health Management Information System	44	ACHSA ACHSAC ACHSBUG3 ACHSCHF ACHSDSF ACHSDST ACHSDSTE ACHSDSU ACHSEOB3 ACHSEOB9 ACHSEOBB ACHSIC3 ACHSMD0 ACHSNEW ACHSODB ACHSODP ACHSODP2 ACHSODQ ACHSPAC ACHSPDC ACHSPDC1 ACHSRELG ACHSRGPR ACHSRP1 ACHSRPF ACHSSIG1 ACHSSIG2 ACHSSIGA ACHSSIGB ACHSTX2 ACHSTX7X ACHSTXA1 ACHSTXAR ACHSTXF ACHSTXF1 ACHSTXP2 ACHSTXX ACHSVAR ACHSVDC ACHSVDF ACHSVND ACHSVUR ACHSVUR2 ACHSVURT

Package

Total

Caller Graph

Contract Health Management Information System

ACHSA  ACHSAC  ACHSBUG3  ACHSCHF  ACHSDSF  ACHSDST  ACHSDSTE  ACHSDSU
ACHSEOB3  ACHSEOB9  ACHSEOBB  ACHSIC3  ACHSMD0  ACHSNEW  ACHSODB  ACHSODP
ACHSODP2  ACHSODQ  ACHSPAC  ACHSPDC  ACHSPDC1  ACHSRELG  ACHSRGPR  ACHSRP1
ACHSRPF  ACHSSIG1  ACHSSIG2  ACHSSIGA  ACHSSIGB  ACHSTX2  ACHSTX7X  ACHSTXA1
ACHSTXAR  ACHSTXF  ACHSTXF1  ACHSTXP2  ACHSTXX  ACHSVAR  ACHSVDC  ACHSVDF
ACHSVND  ACHSVUR  ACHSVUR2  ACHSVURT

Entry Points

Name	Comments	DBIA/ICR reference
INIT	;EP
ERR	;
FY	;EP - Set FY and Current FY.
WK	;SET ACHSFYWK ARRAY
FC	;EP - Set Finance Code.
WK1	;
S18	;
I1	;
S17	;
S16	;
S15	;
INITEND	;
C3	;
C2	;
C1	;
CEND	;
END	;
GLOBERR	;EP.
H	;EP - From DIR via HELP^ACHS().
K	;
FNCDERR	;
INERR	;
C0SUB	;EP - Ensure the number of registers agree with 0th node. ; Set the ACHSFYWK array. ; ACHSRX is Fiscal Year. ACHSRXX is Register (DCR) number.
ERR1	;

Name	Field # of Occurrence
$$LOCK^ACHS	INIT+2, INITEND+1
AUTO^ACHSNEW	S16+9
$$DIR^XBDIR	S16+5, S16+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"LOCK FAILED AT INIT+2^ACHSUF" Line Location: INIT+2
Function Call: WRITE	Prompt: 7,7,!!!,"THE CHS SYSTEM HAS NOT BEEN INITIALIZED FOR THE CURRENT FISCAL YEAR",!! Line Location: S16+4
Function Call: WRITE	Prompt: !!,"SETTING UP NEW FISCAL YEAR. PLEASE WAIT........" Line Location: S16+8
Function Call: WRITE	Prompt: 7,7,!!,"A NEW FISCAL YEAR "_ACHSCFY_" HAS BEEN SET UP.",!,"PLEASE NOTIFY THE CONTRACT HEALTH MANAGER.",! Line Location: S16+13

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(9 - [#9002069]	ACHSUF+5, ACHSUF+10, ACHSUF+14, ACHSUF+15, ACHSUF+16, ACHSUF+18, ACHSUF+19, I1+3, I1+4, I1+5* , I1+6, END+5, C0SUB+3, C1+1, C2+1, C3+1, C3+2, C3+3, WK1+1, WK1+4
^ACHSF - [#9002080]	FY+4*, FY+7, FY+10, FY+14, FY+16
^AUTTAREA - [#9999999.21]	FC+4
^AUTTLOC - [#9999999.06]	FC+2, FC+4

Label References

Name	Line Occurrences
C0SUB	ACHSUF+8, END+3, S16+11
C1	C1+2, C3+4
CEND	C1+2, C3+1
END	ACHSUF+15, ACHSUF+16, ACHSUF+18, S18+2
ERR	ACHSUF+10
ERR1	INERR+2, FNCDERR+2, GLOBERR+2, S16+10
FC	ACHSUF+6
FNCDERR	FC+3
FY	ACHSUF+11
GLOBERR	ACHSUF+9, END+4
I1	I1+7
INITEND	I1+2
K	ACHSUF+7, ERR1+3, S16+6
S15	ACHSUF+15, ACHSUF+16
S16	ACHSUF+12, ACHSUF+14
S17	ACHSUF+19
S18	S15+2
WK	C0SUB+3
WK1	WK1+2, WK1+5

Name	Field # of Occurrence
^(0	ACHSUF+15, ACHSUF+16, I1+6, FY+7, FY+14, FY+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACHS	C2+1*
>> ACHS("FYX"	K+1!, C2+1*
>> ACHS("SETNEW"	S16+1
>> ACHS("YR"	S16+7*
>> ACHS("ZL"	ACHSUF+15, ACHSUF+16, K+1!
>> ACHSACFY	ACHSUF+14, ACHSUF+15, ACHSUF+16, ACHSUF+18, ACHSUF+19, S16+7, FY+1, FY+14, FY+16, FY+17
ACHSACWK	ACHSUF+13*, ACHSUF+14, ACHSUF+15, ACHSUF+16, ACHSUF+18, ACHSUF+19, K+1!
>> ACHSAUTO	S16+7*
>> ACHSCFY	ACHSUF+12, ACHSUF+13, S16+13, FY+17*
ACHSCHSS	ACHSUF+3, ACHSUF+4, K+1!, S15+1, S18+1
ACHSERR	ACHSUF+7, ACHSUF+9, INIT+2, END+1, END+4, ERR1+1, S16+6, S16+10, C3+1, C3+2 , C3+3*, FC+1!
>> ACHSFC	FC+2, FC+3, FC+4
>> ACHSFYDT	FY+10, FY+11
>> ACHSFYWK(	ACHSUF+12, ACHSUF+13, I1+1, I1+3, C2+1, WK1+4
ACHSGCHK	END+2!
>> ACHSISAO	ERR+1, ERR1+2, INERR+1, FNCDERR+1, GLOBERR+1, S15+1, S16+2, S17+2, S18+1
ACHSRX	C0SUB+4, C1+1, C1+2, C2+1, C3+1, C3+2, C3+3, CEND+1!, WK+1, WK1+1 , WK1+2, WK1+3!, WK1+4
ACHSRXX	C0SUB+4, C1+3, C2+1*, CEND+1!
ACHSSRXX	C1+4, C2+1, C3+3, CEND+1!
ACHSTCNT	C1+3, C2+1, C3+2, CEND+1!
ACHSXX	I1+3*, I1+5, K+1!
DT	ACHSUF+15, ACHSUF+16, END+5, C0SUB+3, FY+1, FY+10, FY+11, FY+14, FY+16
>> DTOUT	S16+6
>> DUOUT	S16+6
DUZ(2	ACHSUF+5, ACHSUF+10, ACHSUF+12, ACHSUF+13, ACHSUF+14, ACHSUF+15, ACHSUF+16, ACHSUF+18, ACHSUF+19, I1+1 , I1+3, I1+4, I1+5, I1+6, END+5, C0SUB+3, C1+1, C2+1, C3+1, C3+2 , C3+3, FY+4, FY+7, FY+10, FY+14, FY+16, FC+2, FC+4, WK1+1, WK1+4
IO(0	S16+3, S16+12, S17+1
>> R	INIT+1, I1+1, I1+2, I1+3, I1+4, I1+5, I1+6
U	ACHSUF+15, ACHSUF+16, I1+6, C3+2, C3+3, FY+4, FY+7, FY+10, FY+14, FY+16 , FC+2, FC+4, WK1+4
>> X	I1+3*, I1+4, I1+5, I1+6
>> Y	S16+5*, S16+6

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSUF

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 44

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: