Routine: ACHSA

Information

ACHSA ; IHS/ITSC/PMF - ENTER DOCUMENTS (1/8)-(FY,TOS) ; [ 10/16/2001 8:16 AM ]

Source file <ACHSA.m>

Package	Total	Call Graph
Contract Health Management Information System	6	$$FYSEL^ACHS ^ACHSA1 ($$LINK,GETREF)^ACHSBMC (FC,FY)^ACHSUF CKB^ACHSUUP ^ACHSVAR
IHS VA Utilities	2	$$DIR^XBDIR EN^XBVK

Package	Total	Caller Graph
Contract Health Management Information System	10	ACHSA1 ACHSA3 ACHSA4 ACHSA44 ACHSA5 ACHSA6 ACHSA7 ACHSAB ACHSAI ACHSAL

Name	Comments	DBIA/ICR reference
FY	; Select FY.
A3	;EP.
A1A	;EP.
A1C	;
END	;EP - For fast-out (ACHSQUIT) of initial document.

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7," The Register Has Been CLOSED." Line Location: ACHSA+22
Function Call: WRITE	Prompt: !,"NOTE PRIOR FY!.",! Line Location: A1A+8
Function Call: WRITE	Prompt: !!,*7,"Fiscal year '",ACHSACFY,"' does not exist. -- TRY AGAIN" Line Location: FY+3

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(9 - [#9002069]	ACHSA+22, FY+3

Name	Field # of Occurrence
%DT	END+1!
>> ACHSACFY	ACHSA+16, A1A+7, A1A+8, FY+1*, FY+3, FY+4, A1C+1
>> ACHSACWK	A1C+1*
>> ACHSAFLG	ACHSA+16*, A1A+7
>> ACHSBLKF	A1A+12
>> ACHSCFY	ACHSA+13, ACHSA+14, ACHSA+16, ACHSA+22, A1A+7, A1A+8, FY+4
>> ACHSCNC	A1C+6
>> ACHSFYWK(	ACHSA+14, ACHSA+22, A1C+1
ACHSOUT	A1A+2!
>> ACHSREF	A1A+12*
>> ACHSSLOC	A1A+12
>> ACHSTYP	A3+1, A3+6*
DT	ACHSA+22
>> DTOUT	A1A+12, FY+2, A3+5
>> DUOUT	ACHSA+22, A1A+12, FY+2, A1C+6, A3+4
DUZ(2	ACHSA+14, ACHSA+22, FY+3, A1C+1
I	END+1!
M	END+1!
P	END+1!
R	END+1!
S	END+1!
U	ACHSA+22
>> Y	A3+1, A3+2, A3+3*, A3+5, A3+6
Z	END+1!