Routine: ACHSPAI

Package	Total	Call Graph
Contract Health Management Information System	4	($$DIET,RTRN)^ACHS ^ACHSEOBG SEL^ACHSPAM (,$$SELTRANS)^ACHSUD
IHS VA Utilities	2	$$VAL^XBDIQ1 $$DIR^XBDIR
Kernel	1	$$REPEAT^XLFSTR

Package

Total

Call Graph

($$DIET,RTRN)^ACHS ^ACHSEOBG SEL^ACHSPAM (,$$SELTRANS)^ACHSUD

$$VAL^XBDIQ1 $$DIR^XBDIR

$$REPEAT^XLFSTR

Package	Total	Caller Graph
Contract Health Management Information System	4	ACHS CALC INTEREST ACHS EDIT INTEREST ACHS INTEREST DISPLAY ACHSEOB3

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
DISP	;EP - Display Interest info from selected doc.
PROMPT	; Prompt user for input to Interest fields from EOBR.
EDIT	;EP - From Option. Edit Interest and Penalty Data.
AUTO	;EP - For auto EOBR processing of Interest data.
PROCESS	;TRY TO ENTER THE DATA
INT	;EP - Calculate Interest amount.
END	; Kill vars, quit.

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,$P(^DD(9002080.02,ACHS,0),U),$E($$REPEAT^XLFSTR(".",35),1,35-$L($P(^(0),U)))," ",$$VAL^XBDIQ1(9002080.02,.DA,ACHS) Line Location: DISP+6
Function Call: WRITE	Prompt: !,"You need to enter Pay amount, Interest rate, and # days late." Line Location: INT+2
Function Call: WRITE	Prompt: !,"The calculated Interest Amount is $",$FN(ACHSPACHSI.01*ACHSD/360,",",2) Line Location: INT+9
Function Call: WRITE	Prompt: !," ( amt * rate * days / 360 )" Line Location: INT+10
Function Call: WRITE	Prompt: !," ( ",ACHSP," * ( ",ACHSI," * .01 ) * ",ACHSD," / 360 )" Line Location: INT+11

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(2 - [#9002062]	AUTO+4
^ACHS(3 - [#9002063]	AUTO+10
^DD(9002080.02	DISP+6

Name	Field # of Occurrence
^(0	DISP+6

Name	Field # of Occurrence
>> %	AUTO+4, AUTO+5, AUTO+10, AUTO+11, AUTO+16, AUTO+24, AUTO+28, AUTO+32
>> ACHS	PROMPT+7, DISP+6, AUTO+1*
>> ACHS(	PROMPT+7, AUTO+1
>> ACHS(22	PROCESS+1, AUTO+4, AUTO+5, AUTO+6, AUTO+7
>> ACHS(23	PROCESS+1, AUTO+10, AUTO+11, AUTO+12, AUTO+13
>> ACHS(24	PROCESS+1, AUTO+16, AUTO+17
>> ACHS(25	PROCESS+1, AUTO+20, AUTO+21
>> ACHS(26	PROCESS+1, AUTO+24, AUTO+25
>> ACHS(27	PROCESS+1, AUTO+28, AUTO+29
>> ACHS(28	PROCESS+1, AUTO+32, AUTO+33
ACHSD	INT+1~, INT+7*, INT+9, INT+11
>> ACHSDIEN	EDIT+4, PROMPT+3, PROMPT+4, PROMPT+6, DISP+2, DISP+3, DISP+5
>> ACHSEDAT	PROCESS+3, AUTO+6, AUTO+12*
>> ACHSEOBR("I"	AUTO+1
>> ACHSERRE	PROCESS+3, AUTO+6, AUTO+12*
ACHSI	INT+1~, INT+5*, INT+9, INT+11
>> ACHSISAO	PROCESS+3
ACHSP	INT+1~, INT+3*, INT+9, INT+11
>> ACHSTIEN	PROMPT+4, PROMPT+6, DISP+3, DISP+5
D0	END+1!, PROMPT+2*
D1	END+1!, PROMPT+3*
>> DA	PROMPT+6, PROMPT+7, DISP+5, DISP+6
>> DA(1	PROMPT+6, DISP+5
>> DA(2	PROMPT+6, DISP+5
DIC	PROMPT+1~
DIE	PROMPT+1~
DR	END+1!
>> DTOUT	EDIT+4, EDIT+7, PROMPT+5, PROMPT+7, DISP+2, DISP+4, INT+4, INT+6, INT+8
>> DUOUT	EDIT+4, EDIT+7, PROMPT+5, PROMPT+7, DISP+2, DISP+4, INT+4, INT+6, INT+8
DUZ(2	PROMPT+2, PROMPT+6, DISP+5, AUTO+10
U	PROCESS+1, DISP+6
>> X	PROMPT+7
>> ZTQUEUED	PROCESS+2

Information