Routine: ACHSDNS1

Package	Total	Call Graph
Contract Health Management Information System	3	(ERPT,RTRN)^ACHS HDR^ACHSDNS BRPT^ACHSFU
IHS VA Utilities	1	$$C^XBFUNC
VA Fileman	1	COMMA^%DTC

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSDNS

Entry Points

Name	Comments	DBIA/ICR reference
A	; Main loop.
END	; Kill vars, do ERPT, quit.
K	;
GRNDTOT	;
TOTALS	;
A1	;PRINT DATE OF SERVICE OR DATE OF ISSUE REPORT
PRT	;PRINT TOTALS
A3	;PRINT COMMUNITY REPORT
A4	;PRINT OTHER RESOURCE REPORT....
A6
NEED	;
N1	;
PRTOT	;PRINT TOTALS FOR COMMUNITY AND PAYOR REPORT
NEEDTOT	;

External References

Name	Field # of Occurrence
COMMA^%DTC	TOTALS+8, NEEDTOT+2, A1+6, PRTOT+6, GRNDTOT+1, PRT+5
ERPT^ACHS	K+3
RTRN^ACHS	A6+2, TOTALS+3, NEED+2, END+1, GRNDTOT+5, PRT+7
HDR^ACHSDNS	ACHSDNS1+10, A6+2, TOTALS+5, NEED+4, A3+6, A4+3, PRT+7
BRPT^ACHSFU	ACHSDNS1+5
$$C^XBFUNC	ACHSDNS1+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $P(^ACHSDENS(ACHSRES,0),U),! Line Location: A+5
Function Call: WRITE	Prompt: !,ACHS("-"),! Line Location: A6+1
Function Call: WRITE	Prompt: !,"(No denials for standard reasons are on file for this time period.)" Line Location: TOTALS+2
Function Call: WRITE	Prompt: !,"TOTALS.........",!! Line Location: TOTALS+6
Function Call: WRITE	Prompt: !,ACHS("="),!,"GRAND TOTALS:",?42,$J(ACHS(1),6),?59,X,!,ACHS("="),! Line Location: TOTALS+8
Function Call: WRITE	Prompt: !,"UNMET NEED: SURGICAL" Line Location: NEED+4
Function Call: WRITE	Prompt: " (NONE)" Line Location: NEED+5
Function Call: WRITE	Prompt: !! Line Location: NEED+6
Function Call: WRITE	Prompt: !,ACHS("-"),!!,"UNMET NEED: NON-SURGICAL" Line Location: N1+1
Function Call: WRITE	Prompt: " (NONE)" Line Location: N1+2
Function Call: WRITE	Prompt: !! Line Location: N1+3
Function Call: WRITE	Prompt: !,ACHS("="),! Line Location: NEEDTOT+1
Function Call: WRITE	Prompt: "GRAND TOTALS:",?42,$J(ACHS(3),6),?59,X,!,ACHS("="),! Line Location: NEEDTOT+2
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: ?41-$L(ACHS(ACHSTYPE)),ACHS(ACHSTYPE),":",?42,$J(ACHS(1),6),$J(ACHS(1)/$S(ACHSTOT1:ACHSTOT1,1:1)*100,6,1),"%" Line Location: A1+4
Function Call: WRITE	Prompt: ?59,X,$J(ACHS(2)/$S(ACHSTOT2:ACHSTOT2,1:1)*100,6,1),"%",! Line Location: A1+6
Function Call: WRITE	Prompt: !,"TOTAL " Line Location: PRTOT+1
Function Call: WRITE	Prompt: ?41-$L(ACHS(ACHSTYPE)),ACHS(ACHSTYPE),":",?42,$J(ACHS(1),6),$J(ACHS(1)/$S(ACHSTOT1:ACHSTOT1,1:1)*100,6,1),"%" Line Location: PRTOT+5
Function Call: WRITE	Prompt: ?59,X,$J(ACHS(2)/$S(ACHSTOT2:ACHSTOT2,1:1)*100,6,1),"%",! Line Location: PRTOT+7
Function Call: WRITE	Prompt: ACHS("="),!,"GRAND TOTALS:" Line Location: GRNDTOT+2
Function Call: WRITE	Prompt: ?42,$J(ACHSTOT1,6) Line Location: GRNDTOT+3
Function Call: WRITE	Prompt: ?59,X,!,ACHS("="),! Line Location: GRNDTOT+4
Function Call: WRITE	Prompt: !,$P(^ACHSDENS(ACHSRES,0),U),! Line Location: PRT+2
Function Call: WRITE	Prompt: ?41-$L(ACHS(ACHSTYPE)),ACHS(ACHSTYPE),":",?42,$J(ACHS(1),6),$J(ACHS(1)/$S(ACHSTOT1:ACHSTOT1,1:1)*100,6,1),"%" Line Location: PRT+3
Function Call: WRITE	Prompt: ?59,X,$J(ACHS(2)/$S(ACHSTOT2:ACHSTOT2,1:1)*100,6,1),"%",! Line Location: PRT+5
Function Call: WRITE	Prompt: !,ACHS("-"),! Line Location: PRT+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSDENS - [#9002073]	A+3, A+5, PRT+2
^DD("DD"	ACHSDNS1+8
^DD(9002071.01	ACHSDNS1+10, ACHSDNS1+11
^TMP($J	ACHSDNS1+6!, A+2, A+4, TOTALS+6, TOTALS+8, NEED+5, NEED+6, N1+2, N1+3, A1+2 , A3+2, A3+5, A3+8, A3+9, A3+11, A3+15, A3+16, A4+2, A4+5, A4+7 , A4+9, A4+13, A4+14, PRTOT+2, PRTOT+3, PRT+1

Label References

Name	Line Occurrences
@(	A+1, A6, TOTALS+7, NEED+7, N1+4
A	A+3, A6+3
A1	A1+7
END	ACHSDNS1+10
GRNDTOT	A3+19, A4+18
K	A+1, A6+2, TOTALS+4, NEED+3
N1	NEED+5
NEED	TOTALS+2
NEEDTOT	N1+2
PRT	A3+12, A4+10
PRTOT	A3+18, A4+16
TOTALS	A+3

Naked Globals

Name	Field # of Occurrence
^(	A1+2, A3+11, A3+16, A4+9, A4+14
^("TOTAL"	A+4, TOTALS+6, TOTALS+8, NEED+6, N1+3, PRTOT+2, PRT+1
^(0	ACHSDNS1+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	K+2!
>> ACHS	ACHSDNS1+11*
>> ACHS(	ACHSDNS1+11, A1+3, A1+4, A3+10, A3+17, A4+8, A4+15, PRTOT+5, PRT+3
>> ACHS("-"	A6+1, N1+1, PRT+6
>> ACHS("="	TOTALS+8, NEEDTOT+1, NEEDTOT+2, GRNDTOT+2, GRNDTOT+4
>> ACHS("BDT"	ACHSDNS1+8*, ACHSDNS1+9
>> ACHS("EDT"	ACHSDNS1+9*
>> ACHS(1	TOTALS+8, A1+2, A1+4, A3+11, A3+16, A4+9, A4+14, PRTOT+5, PRT+3
>> ACHS(2	TOTALS+8, A1+2, A1+6, A3+11, A3+16, A4+9, A4+14, PRTOT+6, PRTOT+7, PRT+5
>> ACHS(3	ACHSDNS1+7, NEED+6, N1+3*, NEEDTOT+2
>> ACHS(4	ACHSDNS1+7, NEED+6, N1+3*, NEEDTOT+2
>> ACHS(5	ACHSDNS1+7, A+5, TOTALS+2
>> ACHSBDT	ACHSDNS1+8
>> ACHSBM	A+1*, A6+2, PRT+7
ACHSCOM	K+1!, A3+1, A3+2, A3+3, A3+5, A3+8, A3+9, A3+11, A3+15, A3+16
>> ACHSEDT	ACHSDNS1+8
ACHSINS	K+1!, A4+1, A4+2, A4+5, A4+7, A4+9, A4+13, A4+14
ACHSISDT	K+2!
ACHSPART	ACHSDNS1+7, TOTALS+1, NEED+1*, K+2!
ACHSQUIT	K+1!, A3+1, A3+2, A3+5, A3+8, A3+13, A4+1, A4+2, A4+5, A4+13 , A4+17
ACHSRES	ACHSDNS1+7, A+2, A+3, A+4, A+5, TOTALS+6, NEED+4, NEED+5, N1+1, N1+2 , K+2!, A1+2, A3+7, A3+8, A3+9, A3+11, A4+4, A4+5*, A4+7, A4+9 , PRT+1, PRT+2
ACHSRPT	ACHSDNS1+10, ACHSDNS1+12, A+1, K+1!, PRTOT+3
ACHSST	K+1!, A3+4, A3+5, A3+8, A3+9, A3+11, A3+15, A3+16
ACHSSUB	ACHSDNS1+12*, A+1, A6, TOTALS+7, NEED+7, N1+4, K+1!
>> ACHST1	ACHSDNS1+9*
ACHSTOT1	A+4, TOTALS+6, NEED+6, N1+3, K+2!, A1+4, PRTOT+2, PRTOT+3, PRTOT+5, GRNDTOT+3 , PRT+1*, PRT+3
ACHSTOT2	A+4, TOTALS+6, NEED+6, N1+3, K+2!, A1+5, A1+6, PRTOT+2, PRTOT+7, GRNDTOT+1 , PRT+1, PRT+4, PRT+5
ACHSTYPE	A+4, TOTALS+6, NEED+4, N1+1, K+2!, A1+2, A1+3, A1+4, A3+9, A3+10 , A3+11, A3+14, A3+15, A3+16, A3+17, A4+6, A4+7, A4+8, A4+9, A4+12* , A4+13*, A4+14, A4+15, PRTOT+5, PRT+3
DA	K+2!
>> DTOUT	A6+2, TOTALS+4, NEED+3, GRNDTOT+5, PRT+7
>> DUOUT	A6+2, TOTALS+4, NEED+3, GRNDTOT+5, PRT+7
>> I	ACHSDNS1+11*
IOF	END+1
U	ACHSDNS1+11, A+4, A+5, TOTALS+6, TOTALS+8, NEED+6, N1+3, A1+2, A3+11, A3+16 , A4+9, A4+14, PRTOT+2, PRTOT+3, PRT+1, PRT+2
>> X	TOTALS+8, NEEDTOT+2, A1+6, PRTOT+6, PRTOT+7, GRNDTOT+1, GRNDTOT+4, PRT+5
>> X2	TOTALS+8, NEEDTOT+2, A1+6, PRTOT+6, GRNDTOT+1, PRT+5
>> Y	ACHSDNS1+8*, ACHSDNS1+9
ZTSK	K+2!

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSDNS1

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: