Routine: ACHSCPTH

Package	Total	Call Graph
Contract Health Management Information System	2	(END,HEADER,HEADER1,NODATA,NODATA1)^ACHSCPTI BRPT^ACHSFU
VA Fileman	2	COMMA^%DTC ^DIR
Kernel	1	$$REPEAT^XLFSTR

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSCPTG

Entry Points

Name	Comments	DBIA/ICR reference
P2	;
P3	;
SUBTOTL	;
P1	;EP
END	;
P4	;
VNDRTOT	;
GETADD	;Vendor address
TOTL	;
PRINT	;Prints data totals
GETSERV	;

External References

Name	Field # of Occurrence
COMMA^%DTC	PRINT+3, PRINT+6, SUBTOTL+3, SUBTOTL+6, VNDRTOT+3, VNDRTOT+6, TOTL+3, TOTL+6
END^ACHSCPTI	END+9
HEADER^ACHSCPTI	P2+4, PRINT+10
HEADER1^ACHSCPTI	GETADD+4, PRINT+10
NODATA^ACHSCPTI	P1+4
NODATA1^ACHSCPTI	P1+3
BRPT^ACHSFU	ACHSCPTH+3
^DIR	PRINT+11, SUBTOTL+15, VNDRTOT+11, TOTL+10
$$REPEAT^XLFSTR	SUBTOTL+1, VNDRTOT+1, TOTL+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,ACHSDOC,?12,ACHSSERV,?17,ACHSFROM_"-"_ACHSTO,?35,$J(ACHSWLU,2),?41,$J(ACHSMSG,2),?45,$J(ACHS2TH,2),?51,$J(ACHSSURF,2) Line Location: PRINT+1
Function Call: WRITE	Prompt: ?54,X Line Location: PRINT+4
Function Call: WRITE	Prompt: ?67,X Line Location: PRINT+7
Function Call: WRITE	Prompt: !!,$$REPEAT^XLFSTR("-",80),!,"SUBTOTAL",?25,$J(ACHSDOCS,4) Line Location: SUBTOTL+1
Function Call: WRITE	Prompt: ?54,X Line Location: SUBTOTL+4
Function Call: WRITE	Prompt: ?67,X Line Location: SUBTOTL+7
Function Call: WRITE	Prompt: !!,"PERCENTAGE OF CHGS ALLOWED TO CHGS BILLED" Line Location: SUBTOTL+8
Function Call: WRITE	Prompt: ?66,$E(X,1,5)_"%" Line Location: SUBTOTL+8
Function Call: WRITE	Prompt: !!?3," HOSP - "_ACHS43S_" ",?32," DENT - "_ACHS57S_" ",?62," OUTP - "_ACHS64S_" " Line Location: SUBTOTL+9
Function Call: WRITE	Prompt: !! Line Location: SUBTOTL+15
Function Call: WRITE	Prompt: !!,$$REPEAT^XLFSTR("=",80),!,"VENDOR TOTALS",?25,$J(ACHSVDCT,4) Line Location: VNDRTOT+1
Function Call: WRITE	Prompt: ?56,X Line Location: VNDRTOT+4
Function Call: WRITE	Prompt: ?68,X Line Location: VNDRTOT+7
Function Call: WRITE	Prompt: !!,"PERCENTAGE OF CHGS ALLOWED TO CHGS BILLED" Line Location: VNDRTOT+8
Function Call: WRITE	Prompt: ?66,$E(X,1,5)_"%" Line Location: VNDRTOT+8
Function Call: WRITE	Prompt: !!?3," HOSP - "_ACHSV43_" ",?32," DENT - "_ACHSV57_" ",?62," OUTP - "_ACHSV64_" " Line Location: VNDRTOT+9
Function Call: WRITE	Prompt: !! Line Location: VNDRTOT+11
Function Call: WRITE	Prompt: !!!!,$$REPEAT^XLFSTR("=",80),!!,"TOTAL",?25,$J(ACHSDOCT,4) Line Location: TOTL+1
Function Call: WRITE	Prompt: ?54,X Line Location: TOTL+4
Function Call: WRITE	Prompt: ?67,X Line Location: TOTL+7
Function Call: WRITE	Prompt: !!,"PERCENTAGE OF CHGS ALLOWED TO CHGS BILLED" Line Location: TOTL+8
Function Call: WRITE	Prompt: ?66,$E(X,1,5)_"%" Line Location: TOTL+8
Function Call: WRITE	Prompt: !!?3," HOSP - "_ACHS43T_" ",?32," DENT - "_ACHS57T_" ",?62," OUTP - "_ACHS64T_" " Line Location: TOTL+9
Function Call: WRITE	Prompt: !! Line Location: TOTL+10
Routine Call	DIR Line Location: PRINT+11 SUBTOTL+15 VNDRTOT+11 TOTL+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTVNDR - [#9999999.11]	GETADD+2
^DIC(5 - [#5]	GETADD+3
^TMP("ACHSCPT"	P1+1, P1+4, P2+1, P3+1, P4+1, GETADD+1, GETADD+5, END+6!

Label References

Name	Line Occurrences
END	PRINT+11, SUBTOTL+15, VNDRTOT+11, TOTL+10
P1	VNDRTOT+13
P2	SUBTOTL+17
P3	P4+2
P4	PRINT+12
SUBTOTL	P3+2
TOTL	P1+2
VNDRTOT	P2+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACHS2TH	GETSERV+8*, PRINT+1, END+2!
>> ACHS43	ACHSCPTH+5*
ACHS43S	ACHSCPTH+7, GETSERV+2, SUBTOTL+9, SUBTOTL+11, SUBTOTL+13, SUBTOTL+16*, END+2!
ACHS43T	ACHSCPTH+4, SUBTOTL+11, TOTL+9, END+2!
>> ACHS57	ACHSCPTH+5*
ACHS57S	ACHSCPTH+7, GETSERV+3, SUBTOTL+9, SUBTOTL+11, SUBTOTL+13, SUBTOTL+16*, END+2!
ACHS57T	ACHSCPTH+4, SUBTOTL+11, TOTL+9, END+2!
>> ACHS64	ACHSCPTH+5*
ACHS64S	ACHSCPTH+7, GETSERV+4, SUBTOTL+9, SUBTOTL+11, SUBTOTL+13, SUBTOTL+16*, END+2!
ACHS64T	ACHSCPTH+4, SUBTOTL+11, TOTL+9, END+2!
ACHSCHA	GETSERV+7*, PRINT+5, PRINT+8, END+3!
ACHSCHAS	ACHSCPTH+4, PRINT+8, SUBTOTL+5, SUBTOTL+8, SUBTOTL+10, SUBTOTL+12, SUBTOTL+16*, END+3!
ACHSCHAT	ACHSCPTH+4, SUBTOTL+10, TOTL+5, TOTL+8, END+5!
ACHSCHB	GETSERV+7*, PRINT+2, PRINT+8, END+3!
ACHSCHBS	ACHSCPTH+4, PRINT+8, SUBTOTL+2, SUBTOTL+8, SUBTOTL+10, SUBTOTL+12, SUBTOTL+16*, END+1!, END+3!
ACHSCHBT	ACHSCPTH+4, SUBTOTL+10, TOTL+2, TOTL+8, END+1!
ACHSCODE	P1+5, P2+1, P2+2, P3+1, P4+1, GETADD+1, GETADD+5, END+4!
ACHSDEN	P3+3, P4+1, P4+2, GETADD+1, GETADD+5, END+4!
ACHSDOC	ACHSCPTH+6, P2+3, P3+1*, P3+2, P4+1, GETADD+1, GETADD+5, PRINT+1, END+4!
ACHSDOCA	ACHSCPTH+8*, END+4!
ACHSDOCS	ACHSCPTH+4, PRINT+9, SUBTOTL+1, SUBTOTL+10, SUBTOTL+12, SUBTOTL+16*, END+1!
ACHSDOCT	ACHSCPTH+4, SUBTOTL+10, TOTL+1, END+1!
ACHSFLG	ACHSCPTH+6, GETADD+4, PRINT+9, PRINT+10, PRINT+11, SUBTOTL+16*, END+6!
ACHSFROM	GETSERV+5*, PRINT+1, END+6!
ACHSIOQ	END+5!
ACHSMSG	GETSERV+8*, PRINT+1, END+7!
ACHSPAGE	ACHSCPTH+6, P1+3, P1+4, VNDRTOT+12, END+1!
ACHSSER	GETSERV+1*, GETSERV+2, GETSERV+3, GETSERV+4, END+7!
ACHSSERV	GETSERV+1*, PRINT+1, END+7!
ACHSSURF	GETSERV+8*, PRINT+1, END+7!
ACHSTO	GETSERV+6*, PRINT+1, END+7!
ACHSV43	ACHSCPTH+5, SUBTOTL+13, VNDRTOT+9, VNDRTOT+12*, END+7!
ACHSV57	ACHSCPTH+5, SUBTOTL+13, VNDRTOT+9, VNDRTOT+12*, END+7!
ACHSV64	ACHSCPTH+5, SUBTOTL+13, VNDRTOT+9, VNDRTOT+12*, END+3!
ACHSVA	END+3!
ACHSVADD	GETADD+3*, END+5!
ACHSVCAT	ACHSCPTH+6, SUBTOTL+12, VNDRTOT+5, VNDRTOT+8, VNDRTOT+12*, END+8!
ACHSVCBT	ACHSCPTH+6, SUBTOTL+12, VNDRTOT+2, VNDRTOT+8, VNDRTOT+12*, END+8!
ACHSVCIT	GETADD+3*, END+5!
ACHSVDCT	ACHSCPTH+6, SUBTOTL+12, VNDRTOT+1, VNDRTOT+12*, END+8!
ACHSVEN	GETADD+1*, GETADD+2, END+5!
ACHSVNDR	ACHSCPTH+8, P1+1, P1+2, P1+3, P1+4, P2+1, P3+1, P4+1, GETADD+1, GETADD+5 , END+5!
ACHSVST	GETADD+3*, END+6!
ACHSWLU	GETSERV+7*, PRINT+1, END+8!
ACHSZIP	GETADD+3*, END+6!
C	ACHSCPTH+4, SUBTOTL+16, END+1!
DIR	PRINT+11!, SUBTOTL+14!, VNDRTOT+10!, TOTL+10!, END+8!
DIR(0	PRINT+11, SUBTOTL+15, VNDRTOT+11, TOTL+10
I	END+6!
IO("S"	PRINT+11, SUBTOTL+15, VNDRTOT+11, TOTL+10
IOST	PRINT+10, PRINT+11, SUBTOTL+15, VNDRTOT+11, TOTL+10
U	GETADD+1, GETADD+3, GETSERV+1, GETSERV+5, GETSERV+6, GETSERV+7, GETSERV+8
X	GETADD+5, GETSERV+1, GETSERV+5, GETSERV+6, GETSERV+7, GETSERV+8, PRINT+2, PRINT+4, PRINT+5, PRINT+7 , SUBTOTL+2, SUBTOTL+4, SUBTOTL+5, SUBTOTL+7, SUBTOTL+8, VNDRTOT+2, VNDRTOT+4, VNDRTOT+5, VNDRTOT+7, VNDRTOT+8* , TOTL+2, TOTL+4, TOTL+5, TOTL+7, TOTL+8*, END+6!
X2	PRINT+2, PRINT+5, SUBTOTL+2, SUBTOTL+5, VNDRTOT+2, VNDRTOT+5, TOTL+2, TOTL+5, END+6!
Y	PRINT+11, SUBTOTL+15, VNDRTOT+11, TOTL+10, END+6!
Z	GETADD+2*, GETADD+3, END+6!

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSCPTH

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

Local Variables

Legend: