Routine: ACHSDNL5

Package	Total	Call Graph
Contract Health Management Information System	2	(CPI,RTRN)^ACHS LINES^ACHSFU
VA Fileman	1	COMMA^%DTC

Package

Total

Call Graph

Contract Health Management Information System

(CPI,RTRN)^ACHS LINES^ACHSFU

VA Fileman

COMMA^%DTC

Package	Total	Caller Graph
Contract Health Management Information System	2	ACHSDNL2 ACHSDNL4

Package

Total

Caller Graph

Contract Health Management Information System

ACHSDNL2 ACHSDNL4

Name	Field # of Occurrence
COMMA^%DTC	ACHSDNL5+5, ACHSDNL5+6, VEND0, VEND0+1, VEND1+1, VEND1+2, V2+1, V2+2, TOTAL+6, TOTAL+16 , TOTAL+20, TOTAL+21
CPI^ACHS	END+1
RTRN^ACHS	END+1
LINES^ACHSFU	TOTAL+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $S(ACHSUMET=1:" VENDOR(S)",1:" VENDOR(S) suggested"),?48,"CHARGES" Line Location: ACHSDNL5+3
Function Call: WRITE	Prompt: !,$P(^(0),U) Line Location: ACHSDNL5+4
Function Call: WRITE	Prompt: ?40,$J(X,6),"(ACTUAL)" Line Location: ACHSDNL5+5
Function Call: WRITE	Prompt: ?40,$J(X,6),"(EST.)" Line Location: ACHSDNL5+6
Function Call: WRITE	Prompt: !,$P(ACHSPPRO,U,3) Line Location: VEND0+0
Function Call: WRITE	Prompt: ?40,$J(X,6),"(ACTUAL)" Line Location: VEND0+0
Function Call: WRITE	Prompt: ?40,$J(X,6),"(EST.)" Line Location: VEND0+1
Function Call: WRITE	Prompt: !,$P(^(0),U),?40 Line Location: VEND1+0
Function Call: WRITE	Prompt: $J(X,6),"(ACTUAL)" Line Location: VEND1+1
Function Call: WRITE	Prompt: $J(X,6),"(EST.)" Line Location: VEND1+2
Function Call: WRITE	Prompt: !,$P(A(1),U) Line Location: V2+0
Function Call: WRITE	Prompt: ?40,$J(X,6),"(ACTUAL)" Line Location: V2+1
Function Call: WRITE	Prompt: ?40,$J(X,6),"(EST.)" Line Location: V2+2
Function Call: WRITE	Prompt: ?30,$E(ACHS("-"),1,30),! Line Location: TOTAL+6
Function Call: WRITE	Prompt: ?30,"TOTAL:",?40,$J(X,6) Line Location: TOTAL+6
Function Call: WRITE	Prompt: !,ACHS("-"),!," OTHER RESOURCES",?37,"AMOUNT PAID (IF ANY)" Line Location: TOTAL+8
Function Call: WRITE	Prompt: !,$P(INSR,U) Line Location: TOTAL+14
Function Call: WRITE	Prompt: ?40,$J(X,6) Line Location: TOTAL+16
Function Call: WRITE	Prompt: !?30,$E(ACHS("-"),1,30),!?30,"TOTAL: ",?40,$J(X,6) Line Location: TOTAL+20
Function Call: WRITE	Prompt: !,ACHS("-"),!?28,"BALANCE:",?40,$J(X,6),! Line Location: TOTAL+21
Function Call: WRITE	Prompt: ! Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: !?DIWL-1,$P(X,U),!?DIWL-1,$P(X,U,2) Line Location: SUBADDR+2
Function Call: WRITE	Prompt: " ",$P(^(0),U,2) Line Location: SUBADDR+2
Function Call: WRITE	Prompt: " ",$P(X,U,4),! Line Location: SUBADDR+3

Name	Line Occurrences (* Changed, ! Killed)
^ACHSDEN - [#9002071]	ACHSDNL5+4, V1+1, VEND1, VEND2, V2, TOTAL+7, TOTAL+10, TOTAL+11
^AUTNINS - [#9999999.18]	TOTAL+13
^AUTTVNDR - [#9999999.11]	ACHSDNL5+4, VEND1, ADDR+2
^DIC(5 - [#5]	SUBADDR+2

Name	Line Occurrences
ADDR	T2, TYPE1
END	TOTAL+7
SUBADDR	T4, T5
T2	ACHSDNL5+5
T4	VEND0
T5	V2+1
TOTAL	VEND2, V2
TYPE1	VEND1+1
V1	T2+1
V2	T5+1
VEND0	ACHSDNL5+4
VEND1	VEND1, TYPE1+1
VEND2	V1+1, VEND1

Name	Field # of Occurrence
^(	VEND1, V2
^(0	ACHSDNL5+4, V1+1, VEND1, VEND2, TOTAL+7, SUBADDR+2
^(13	ADDR+2

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	ACHSDNL5+4, TOTAL+10, TOTAL+11, END+2!, ADDR+2*
A(1	VEND1, VEND1+1, VEND1+2, V2, V2+1, V2+2, T5
A(2	VEND1*, TYPE1
>> ACHS("-"	TOTAL+6, TOTAL+8, TOTAL+20, TOTAL+21
>> ACHSA	ACHSDNL5+4, V1+1, VEND1, VEND2, V2, TOTAL+7, TOTAL+10, TOTAL+11
ACHSDOS	END+2!
ACHSISDT	END+2!
ACHSNAME	END+2!
ACHSNAMP	END+2!
ACHSPDR	END+2!
ACHSPPRO	ACHSDNL5+4*, ACHSDNL5+5, ACHSDNL5+6, VEND0, VEND0+1, T4, END+2!
>> ACHSQUIT	ACHSDNL5+2, TOTAL+5
ACHSRQDT	END+2!
ACHSST	END+2!, SUBADDR+2*
ACHSTOT	END+2!
ACHSTOT("$"	ACHSDNL5+3, ACHSDNL5+5, ACHSDNL5+6, VEND0, VEND0+1, VEND1+1, VEND1+2, V2+1, V2+2*, TOTAL+6 , TOTAL+21
ACHSTOT1	END+2!
ACHSTOT1("$"	TOTAL+8, TOTAL+15, TOTAL+20, TOTAL+21
>> ACHSUMET	ACHSDNL5+3
ACHSVPTR	ACHSDNL5+4, TYPE1, END+2!, ADDR+1, ADDR+2
>> DA(1	V1+1, VEND1
>> DA(2	VEND2, V2
>> DIWL	SUBADDR+1*, SUBADDR+2
DTOUT	END+2!
DUOUT	END+2!
DUZ(2	ACHSDNL5+4, V1+1, VEND1, VEND2, V2, TOTAL+7, TOTAL+10, TOTAL+11
INSR	TOTAL+12, TOTAL+13, TOTAL+14, TOTAL+18!
IOF	END+1
OTHRES	TOTAL+11*, TOTAL+12, TOTAL+15, TOTAL+18!
U	ACHSDNL5+4, ACHSDNL5+5, ACHSDNL5+6, VEND0, VEND0+1, T4, V1+1, VEND1, VEND1+1, VEND1+2 , VEND2, V2, V2+1, V2+2, T5, TOTAL+7, TOTAL+12, TOTAL+14, TOTAL+15, ADDR+2 , SUBADDR+2, SUBADDR+3
X	ACHSDNL5+5, ACHSDNL5+6, VEND0, VEND0+1, T4, VEND1+1, VEND1+2, V2+1, V2+2, T5 , TOTAL+6, TOTAL+15, TOTAL+16, TOTAL+18!, TOTAL+20, TOTAL+21, ADDR+2*, SUBADDR+2, SUBADDR+3

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSDNL5

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
T5
END	;EP.
ADDR	;EP.
VEND2
SUBADDR	;EP.
VEND0
VEND1
T2
V1	;
V2
TOTAL	;
TYPE1
T4