Routine: ACHSAS

Call Graph

Package	Total	Call Graph
Contract Health Management Information System	6	($$DOC,$$LOCK,$$PARM,$$ZEROTH,FMT)^ACHS ACT^ACHSACT AUTH^ACHSBMC (FYCVT,OBLM,READ)^ACHSFU ^ACHSUSC (CKB,SBAENT,SBQ)^ACHSUUP
IHS VA Utilities	1	$$DIR^XBDIR
Kernel	1	$$NOW^XLFDT

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSAS

Name	Comments	DBIA/ICR reference
QUIT	; Kill vars, quit.
C	; Confirm data.
SB1	;
END	;
S11	;
A1	; Setup environment.
ENDC	;
SBA	; Check for funds available.
B2	; Enter ammount of suplement.
SKILL	;
D1	; Create internal transaction.

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: A1+6
Function Call: WRITE	Prompt: !!,"Amount Of Supplement: " Line Location: B2+1
Function Call: WRITE	Prompt: !," Enter The Amount To Be Added (e.g. 150.00)." Line Location: B2+6
Function Call: WRITE	Prompt: *7," NO AMOUNT ADDED",!! Line Location: B2+7
Function Call: WRITE	Prompt: *7," ??" Line Location: B2+10
Function Call: WRITE	Prompt: " (" Line Location: C+2
Function Call: WRITE	Prompt: ")" Line Location: C+5
Function Call: WRITE	Prompt: !!," * Document Updated *" Line Location: END+1
Function Call: WRITE	Prompt: !,"ERROR :Unknown DCR account number." Line Location: SB1+2
Function Call: WRITE	Prompt: !,"LOCK UNSUCCESSFUL, SBA^ACHSAS." Line Location: SBA+1
Function Call: WRITE	Prompt: *7,!,"Funds are not available for this transaction",!,"Transaction Cancelled" Line Location: SBA+7

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(9 - [#9002069]	SBA+2
^ACHSF - [#9002080]	SB1+1, SB1+3, SB1+4, S11+2, S11+3, S11+4, S11+5, SKILL+1, SKILL+2, SKILL+3 , SKILL+4!, SKILL+5*

Name	Field # of Occurrence
>> ACHS("CHK"	S11+6*
>> ACHSACFY	A1+12*, SBA+2, SBA+6
>> ACHSACWK	A1+12*
>> ACHSADAM	B2+12*
>> ACHSCFY	SBA+6
>> ACHSCNC	A1+14, D1+2, END+1, S11+8, SBA+1, SBA+7
>> ACHSDCR	SB1+1*, SB1+2
>> ACHSDIEN	A1+4, END+1, ENDC+1, SB1+1, SB1+3, SB1+4, S11+2, S11+3, S11+4, S11+5 , SKILL+1, SKILL+2, SKILL+3, SKILL+4, SKILL+5
>> ACHSESDO	C+1*, C+3, D1+4, SBA+7
>> ACHSFYWK(	A1+12
ACHSREF	END+2*!
>> ACHSTIEN	S11+3*
>> ACHSX	A1+10*
>> ACHSY	A1+12
>> DFN	D1+4
>> DIRUT	C+7
DT	D1+4, S11+3, SKILL+4
>> DTOUT	B2+3
>> DUOUT	A1+3, B2+4, B2+14, C+8
DUZ	S11+5
DUZ(2	A1+12, SB1+1, SB1+3, SB1+4, S11+2, S11+3, S11+4, S11+5, SKILL+1, SKILL+2 , SKILL+3, SKILL+4, SKILL+5, SBA+2
>> F	B2+9*
>> I	B2+9*
>> LS	SB1+1*, S11+4, SKILL+5
>> M	S11+1*, S11+2, S11+3, S11+4, S11+5, SKILL+4
>> T	D1+4*, S11+3
U	D1+4, SB1+1, S11+1, S11+4, S11+5, SKILL+1, SKILL+2, SKILL+3, SKILL+5, SBA+3 , SBA+4
X	C+3, QUIT+1!, SB1+1, SKILL+1, SKILL+2, SKILL+3, SBA+2, SBA+3, SBA+4
X1	QUIT+1!, SBA+3*, SBA+7
X2	QUIT+1!, SBA+4*, SBA+7
>> Y	B2+6, B2+7, B2+8, B2+9, B2+10, B2+12, C+1, C+6, C+8, SB1+4 , S11+1*, S11+3