Routine: ACHS3PP2

Package	Total	Call Graph
Contract Health Management Information System	3	$$LOC^ACHS ^ACHS3PP5 BRPT^ACHSFU
Kernel	3	^%ZISC $$HTE^XLFDT $$REPEAT^XLFSTR
IHS VA Utilities	1	$$DIR^XBDIR
VA Fileman	1	COMMA^%DTC

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHS3PP1

Entry Points

Name	Comments	DBIA/ICR reference
SUBTOTL	;
END	;Close device, kill variables, quit
PDATA
DETAIL	;DETAIL LINE
TOTL	;
HEADER2	;
HEADER	;Prints Heading
HEADER1	;
GETPAT	;
NODATA	;

External References

Name	Field # of Occurrence
COMMA^%DTC	DETAIL+3, DETAIL+6, DETAIL+9, SUBTOTL+3, SUBTOTL+6, SUBTOTL+9, TOTL+3, TOTL+6, TOTL+9
^%ZISC	END+1
$$LOC^ACHS	HEADER+7
^ACHS3PP5	NODATA+8
BRPT^ACHSFU	ACHS3PP2+6
$$DIR^XBDIR	PDATA+5, SUBTOTL+17, TOTL+15, NODATA+6
$$HTE^XLFDT	HEADER+5
$$REPEAT^XLFSTR	SUBTOTL+1, TOTL+1, HEADER+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?1,ACHSDOC,?22,ACHSSERV,?30,ACHSIDT,?40 Line Location: DETAIL+1
Function Call: WRITE	Prompt: $J(X,12),?53 Line Location: DETAIL+4
Function Call: WRITE	Prompt: $J(X,12),?65 Line Location: DETAIL+7
Function Call: WRITE	Prompt: $J(X,11) Line Location: DETAIL+10
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80),!?1,"SUBTOTAL",?4,$J(ACHSDOCS,4) Line Location: SUBTOTL+1
Function Call: WRITE	Prompt: ?40,$J(X,12) Line Location: SUBTOTL+4
Function Call: WRITE	Prompt: ?53,$J(X,12) Line Location: SUBTOTL+7
Function Call: WRITE	Prompt: ?65,$J(X,12) Line Location: SUBTOTL+10
Function Call: WRITE	Prompt: !! Line Location: SUBTOTL+11
Function Call: WRITE	Prompt: "PERCENTAGES OF PAYMENT TO OBLIGATED",?59,$E(Z,1,5)_"%" Line Location: SUBTOTL+11
Function Call: WRITE	Prompt: ?71,$E(X,1,5)_"%" Line Location: SUBTOTL+12
Function Call: WRITE	Prompt: !?5,"HOSP - ",ACHS43ST,"",?25,"DENT - ",ACHS57ST,"",?45,"OUTP - ",ACHS64ST,"",?65,"UNKN - ",ACHS0ST,"" Line Location: SUBTOTL+13
Function Call: WRITE	Prompt: !!!!,$$REPEAT^XLFSTR("=",80),!!?1,"TOTAL",?9,$J(ACHSDOCT,4) Line Location: TOTL+1
Function Call: WRITE	Prompt: ?40,$J(X,12) Line Location: TOTL+4
Function Call: WRITE	Prompt: ?53,$J(X,12) Line Location: TOTL+7
Function Call: WRITE	Prompt: ?65,$J(X,12) Line Location: TOTL+10
Function Call: WRITE	Prompt: !! Line Location: TOTL+11
Function Call: WRITE	Prompt: "PERCENTAGES OF PAYMENT TO OBLIGATED",?59,$E(Z,1,5)_"%" Line Location: TOTL+11
Function Call: WRITE	Prompt: ?71,$E(X,1,5)_"%" Line Location: TOTL+12
Function Call: WRITE	Prompt: !?5,"HOSP - ",ACHS43T,"",?25,"DENT - ",ACHS57T,"",?45,"OUTP - ",ACHS64T,"",?65,"UNKN - ",ACHS0T,"" Line Location: TOTL+13
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+2
Function Call: WRITE	Prompt: !,"*",ACHSDAT Line Location: HEADER+6
Function Call: WRITE	Prompt: ?((80/2)-($L(X)/2)),X Line Location: HEADER+8
Function Call: WRITE	Prompt: ?71,ACHSTIM,"",!,"User: ",ACHSUSR,?70,"Device:",IO,"*" Line Location: HEADER+9
Function Call: WRITE	Prompt: !! Line Location: HEADER+10
Function Call: WRITE	Prompt: ?((80/2)-($L(X)/2)),X_ACHSPAGE Line Location: HEADER+12
Function Call: WRITE	Prompt: ! Line Location: HEADER+13
Function Call: WRITE	Prompt: ?((80/2)-($L(X)/2)),X_ACHSFY Line Location: HEADER+15
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("*",80) Line Location: HEADER+16
Function Call: WRITE	Prompt: !!?5,"PATIENT NAME: ",ACHSPATP,?62,"CHART#: ",ACHSHRN Line Location: HEADER1+1
Function Call: WRITE	Prompt: !!?1,"DOCUMENT #" Line Location: HEADER2+1
Function Call: WRITE	Prompt: ?42,"$ OBLIGD $",?55,"$ IHS PMT $",?69,"$ 3P PMT $" Line Location: HEADER2+3
Function Call: WRITE	Prompt: !!!,"NO DATA FOR SPECIFIED FISCAL YEAR FOR ",ACHSPATP Line Location: NODATA+3
Function Call: WRITE	Prompt: !!!! Line Location: NODATA+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	GETPAT+4
^DPT - [#2]	GETPAT+3, NODATA+1
^TMP("ACHS3PP"	ACHS3PP2+15, ACHS3PP2+17, GETPAT+8, GETPAT+9, END+7!, NODATA+4!, NODATA+7

Label References

Name	Line Occurrences
DETAIL	PDATA+1
END	PDATA+5, SUBTOTL+17, TOTL+15, NODATA+6
GETPAT	ACHS3PP2+19
HEADER	ACHS3PP2+17, ACHS3PP2+18, PDATA+3, PDATA+4, PDATA+6
HEADER1	GETPAT+4
HEADER2	GETPAT+5
NODATA	ACHS3PP2+17
SUBTOTL	PDATA+14
TOTL	ACHS3PP2+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACHS0ST	ACHS3PP2+10, PDATA+12, SUBTOTL+13, SUBTOTL+14, SUBTOTL+18*
>> ACHS0T	ACHS3PP2+10, SUBTOTL+14, TOTL+13
ACHS3PP	ACHS3PP2+8, GETPAT+12, PDATA+7, DETAIL+8, END+3!
ACHS3PPS	ACHS3PP2+8, PDATA+7, SUBTOTL+8, SUBTOTL+12, SUBTOTL+15, SUBTOTL+18*, END+3!
ACHS3PPT	ACHS3PP2+8, SUBTOTL+15, TOTL+8, TOTL+12, END+3!
ACHS43ST	ACHS3PP2+9, PDATA+9, SUBTOTL+13, SUBTOTL+14, SUBTOTL+18*, END+6!
ACHS43T	ACHS3PP2+10, SUBTOTL+14, TOTL+13, END+6!
ACHS57ST	ACHS3PP2+9, PDATA+10, SUBTOTL+13, SUBTOTL+14, SUBTOTL+18*, END+6!
ACHS57T	ACHS3PP2+10, SUBTOTL+14, TOTL+13, END+6!
ACHS64	END+7!
ACHS64ST	ACHS3PP2+10, PDATA+11, SUBTOTL+13, SUBTOTL+14, SUBTOTL+18*, END+7!
>> ACHS64T	ACHS3PP2+10, SUBTOTL+14, TOTL+13
ACHSDAT	END+3!, HEADER+5*, HEADER+6
ACHSDOC	GETPAT+7, GETPAT+8, GETPAT+9, DETAIL+1, END+3!
ACHSDOCS	ACHS3PP2+8, GETPAT+13, SUBTOTL+1, SUBTOTL+15, SUBTOTL+18*, END+3!
ACHSDOCT	ACHS3PP2+9, SUBTOTL+15, TOTL+1, END+3!
ACHSFLG	PDATA+13, SUBTOTL+18, END+6!
>> ACHSFY	HEADER+15
ACHSHRN	GETPAT+4*, END+4!, HEADER1+1
ACHSIDT	GETPAT+10*, DETAIL+1, END+4!
ACHSIHSP	ACHS3PP2+9, GETPAT+12, PDATA+7, DETAIL+5, END+4!
ACHSIHSS	ACHS3PP2+9, PDATA+7, SUBTOTL+5, SUBTOTL+11, SUBTOTL+15, SUBTOTL+18*, END+4!
ACHSIHST	ACHS3PP2+9, SUBTOTL+15, TOTL+5, TOTL+11, END+4!
ACHSOBL	ACHS3PP2+8, GETPAT+12, PDATA+7, DETAIL+2, END+5!
ACHSOBLS	ACHS3PP2+8, PDATA+7, SUBTOTL+2, SUBTOTL+11, SUBTOTL+12, SUBTOTL+15, SUBTOTL+18*, END+5!
ACHSOBLT	ACHS3PP2+8, SUBTOTL+15, TOTL+2, TOTL+11, TOTL+12, END+5!
ACHSOST	END+6!
ACHSOT	END+6!
ACHSPAGE	ACHS3PP2+9, ACHS3PP2+16, END+7!, HEADER+3*, HEADER+12
ACHSPAT	ACHS3PP2+14, ACHS3PP2+15, ACHS3PP2+17, GETPAT+3, GETPAT+4, GETPAT+8, GETPAT+9, END+5!, NODATA+1, NODATA+4
ACHSPATP	ACHS3PP2+11!, GETPAT+3, HEADER1+1, NODATA+1, NODATA+2*, NODATA+3
ACHSQIO	END+4!
>> ACHSRTYP	PDATA+1, HEADER2+2
>> ACHSSER	PDATA+8, SUBTOTL+13, TOTL+13
ACHSSERV	GETPAT+11*, DETAIL+1, END+5!
ACHSTIM	END+5!, HEADER+5*, HEADER+9
ACHSUSR	END+5!, HEADER+9
C	ACHS3PP2+9, GETPAT+13, SUBTOTL+18*, END+5!
D	GETPAT+10*, END+5!
DIR	SUBTOTL+16!, TOTL+14!, END+7!
DUZ(2	GETPAT+4
I	END+7!
IO	HEADER+1, HEADER+9
IO("S"	PDATA+4, SUBTOTL+17, TOTL+15, NODATA+8
IOF	HEADER+2
IOST	PDATA+3, PDATA+4, SUBTOTL+17, TOTL+15, NODATA+8
P	END+5!
S	GETPAT+11*, PDATA+9, PDATA+10, PDATA+11, PDATA+12, END+5!
U	GETPAT+3, GETPAT+4, GETPAT+10, GETPAT+11, GETPAT+12, NODATA+1
X	DETAIL+2, DETAIL+4, DETAIL+5, DETAIL+7, DETAIL+8, DETAIL+10, SUBTOTL+2, SUBTOTL+4, SUBTOTL+5, SUBTOTL+7 , SUBTOTL+8, SUBTOTL+10, SUBTOTL+12, TOTL+2, TOTL+4, TOTL+5, TOTL+7, TOTL+8, TOTL+10, TOTL+12* , END+7!, HEADER+7, HEADER+8, HEADER+11, HEADER+12, HEADER+14*, HEADER+15
X2	DETAIL+2, DETAIL+5, DETAIL+8, SUBTOTL+2, SUBTOTL+5, SUBTOTL+8, TOTL+2, TOTL+5, TOTL+8*, END+7!
Y	END+7!, HEADER+5*
Z	GETPAT+9, GETPAT+10, GETPAT+11, GETPAT+12, SUBTOTL+11, TOTL+11*, END+5!
>> ZTQUEUED	END+2
>> ZTREQ	END+2*

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHS3PP2

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: