Routine: ACHSUSC

Package	Total	Call Graph
Contract Health Management Information System	4	($$DOC,$$PARM)^ACHS ^ACHSAV INIT^ACHSRP2 ^ACHSUD
IHS VA Utilities	2	$$DIR^XBDIR $$EXTSET^XBFUNC
Kernel	1	$$FMTE^XLFDT

Package

Total

Call Graph

Contract Health Management Information System

($$DOC,$$PARM)^ACHS ^ACHSAV INIT^ACHSRP2 ^ACHSUD

IHS VA Utilities

$$DIR^XBDIR $$EXTSET^XBFUNC

Kernel

$$FMTE^XLFDT

Package	Total	Caller Graph
Contract Health Management Information System	9	ACHSAC ACHSAD ACHSAJ ACHSAS ACHSBUG3 ACHSCHK ACHSCHK1 ACHSPA ACHSPAM

Package

Total

Caller Graph

Contract Health Management Information System

ACHSAC ACHSAD ACHSAJ ACHSAS ACHSBUG3 ACHSCHK ACHSCHK1 ACHSPA
ACHSPAM

Name	Comments	DBIA/ICR reference
B4	;
END	;
B5	;
ENDA	;
BC	;
FMT(X)	;
A1	;
A0	;
B1	;WRITE TOTALS FOUND ABOVE
B2	;
B3	;
BC5	;
BC6	;
A0A	;EP.
C1	;
B2A	;

Name	Field # of Occurrence
$$DOC^ACHS	B5+1, B5+3, B5+5, B5+6, B5+11, BC6+2
$$PARM^ACHS	B5+3, B5+5
^ACHSAV	A0+6
INIT^ACHSRP2	A0+5
^ACHSUD	A0+1
$$DIR^XBDIR	C1+3
$$EXTSET^XBFUNC	BC6+2
$$FMTE^XLFDT	B5+2, B5+5, BC6+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7," The Register Has Been CLOSED." Line Location: ACHSUSC+4
Function Call: WRITE	Prompt: !?4,"Initial Obligation",?30,$J(ACHSPAYA,8,2) Line Location: B1+1
Function Call: WRITE	Prompt: !?4,"Amount Canceled:",?30,$J("-"_B,8,2),?40,"(",C," Item",$S(C=1:"",1:"s"),")" Line Location: B1+3
Function Call: WRITE	Prompt: !?4,"Amount Of Supplements",?30,$J("+"_A,8,2),?40,"(",A("DT")," )" Line Location: B1+4
Function Call: WRITE	Prompt: !?30,"--------",!,"CURRENT OBLIGATION BALANCE",?30,$J(ACHSBAL,8,2) Line Location: B2+2
Function Call: WRITE	Prompt: ?46,"(IHS)",?52,"(3rd PARTY)" Line Location: B2+8
Function Call: WRITE	Prompt: !?5,$S(ACHSIPN<2:" ",1:""),ACHSIPN Line Location: B2+18
Function Call: WRITE	Prompt: " Interim Payment",$S(ACHSIPN<2:"",1:"s") Line Location: B2+18
Function Call: WRITE	Prompt: " Interim Payment",$S(ACHSIPN<2:"",1:"s") Line Location: B2+18
Function Call: WRITE	Prompt: !?5,$S(ACHSIPN<2:" ",1:""),ACHSIPN," Interim Payment",$S(ACHSIPN<2:"",1:"s")," for a Total of:",$$FMT(ACHSIPP),$$FMT(ACHSIPP3),", as of ",ACHSIPDT Line Location: B2+21
Function Call: WRITE	Prompt: !?17,"Amount of Adjustments:",$$FMT(ACHSZA),$$FMT(ACHSZA1)," (",ACHSZC," Item",$S(ACHSZC=1:"",1:"s"),")" Line Location: B4+3
Function Call: WRITE	Prompt: !?9,"FINAL PAYMENT ON ",$$FMTE^XLFDT(Y),":",$$FMT(ACHS(1)),$$FMT(ACHS(2)) Line Location: B5+2
Function Call: WRITE	Prompt: !?31,"CHECK #:",$J($$DOC^ACHS(2,2),12) Line Location: B5+3
Function Call: WRITE	Prompt: !?9,"DATE CHECK WAS ISSUED: ",$$FMTE^XLFDT(Y) Line Location: B5+5
Function Call: WRITE	Prompt: !?24,"TOTAL PAYMENTS:",$$FMT(ACHSDOCT),$$FMT(ACHS(2)+ACHSZA1+ACHSIPP3) Line Location: B5+8
Function Call: WRITE	Prompt: *7,!!,"DOCUMENT CANCELLED ON ",$$FMTE^XLFDT($P(^ACHSF(DUZ(2),"D",ACHSDIEN,"T",R,0),U)),", Reason: ",$$EXTSET^XBFUNC(9002080.01,63,$$DOC^ACHS(2,8)) Line Location: BC6+2

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(9 - [#9002069]	ACHSUSC+4
^ACHSF - [#9002080]	A0A+4, A1+3, A1+4, B2+1, B2+11, B2+12, B2+13, B2+14, B2+18, B2+21 , B3+1, B3+2, B4+2, B5+7, B5+10, BC5+1, BC6+2

Name	Line Occurrences
$$FMT	B2+18, B2+21, B4+3, B5+2, B5+8
A0	ENDA+3
B2A	B2+18
B3	B3+3
B4	B3+1
B5	B4+2
BC	B2A+1
BC5	BC5+2
BC6	BC5+1
C1	B5+10, B5+11
END	ACHSUSC+4, A0+2, B4+1, B5+12, C1+4
ENDA	B5+12, BC6+1, BC6+3, C1+4

Name	Field # of Occurrence
^(	B3+1, BC5+1
^("ZA"	B5+7
^(0	ACHSUSC+4, BC5+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	A0A+1, A1+8, B1+4
>> A("DT"	A0A+1, A1+8, B1+4
>> ACHS(1	B5+1*, B5+2
>> ACHS(2	B5+1*, B5+2, B5+8
>> ACHSADJ	B5+12
>> ACHSBAL	B2+1*, B2+2
>> ACHSCFY	ACHSUSC+4
>> ACHSDIEN	A0+2, A0A+4, A1+3, A1+4, B2+1, B2+11, B2+12, B2+13, B2+14, B2+18 , B2+21, B3+1, B3+2, B4+2, B5+7, B5+10, BC5+1, BC6+2
>> ACHSDOC0	B2A+1
>> ACHSDOCT	B5+6, B5+7, B5+8
>> ACHSDVEW	ENDA+2
>> ACHSFYWK(	ACHSUSC+4
ACHSIPD	ENDA+1!
ACHSIPDT	B2+14, B2+15, B2+21, B4+1!
ACHSIPN	B2+13*, B2+18, B2+21, B4+1!, ENDA+1!
ACHSIPP	B2+12*, B2+18, B2+21, B4+1!, ENDA+1!
>> ACHSIPP3	A0A+1, A1+17, B2+18, B2+21, B5+8
>> ACHSNOTF	A1+1
>> ACHSPAYA	A0A+4*, B1+1
ACHSSIG	A0+4!
>> ACHSTIEN	A0+3*
>> ACHSTR0	A1+1, A1+4, A1+5, A1+8, A1+11, A1+15, A1+17
>> ACHSTRAN	A1+2, A1+3, A1+4
>> ACHSTTYP	A1+1, A1+5, A1+8, A1+11, A1+15, A1+17
>> ACHSVIEW	ACHSUSC+4, C1+1
ACHSZA	A0A+1, A1+15, B4+3, END+1!
>> ACHSZA1	A0A+1, A1+15, B4+3, B5+8
ACHSZC	A0A+1, A1+15, B4+3, B5+11, END+1!
>> B	A0A+1, A1+11, B1+3
>> C	A0A+1, A1+11, B1+3
DT	ACHSUSC+4
>> DTOUT	A0+2, C1+4
>> DUOUT	A0+2, C1+4
DUZ(2	ACHSUSC+4, A0A+4, A1+3, A1+4, B2+1, B2+11, B2+12, B2+13, B2+14, B2+18 , B2+21, B3+1, B3+2, B4+2, B5+7, B5+10, BC5+1, BC6+2
>> R	B2A+4, B3+1, B3+2, BC+1, BC5+1, BC6+2
>> S	A0A+1, A1+8
U	ACHSUSC+4, A0A+4, A1+5, A1+8, A1+11, A1+15, A1+17, B2+1, B2+12, B2+13 , B2+14, B2A+1, B3+2, B5+7, BC5+1, BC6+2
X	B2A+4, B3+2, B3+3, B4+1, BC+1, BC5+1, BC5+2, BC6+1, FMT~, FMT+1
X2	B5+9!
X3	B5+9!
>> Y	B5+1, B5+2, B5+5

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSUSC

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: