Routine: ACHSCPTF

Package	Total	Call Graph
Contract Health Management Information System	3	$$LOC^ACHS ^ACHSCPTD BRPT^ACHSFU
Kernel	3	^%ZISC ($$FMTE,$$HTE)^XLFDT $$REPEAT^XLFSTR
VA Fileman	2	COMMA^%DTC ^DIR
DRG Grouper	1	$$CPT^ICPTCOD
IHS VA Utilities	1	$$C^XBFUNC

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSCPTE

Entry Points

Name	Comments	DBIA/ICR reference
P2	;
NODATA1	;
SUBTOTL	; Print subtotals.
P1	;
END	;Close device, kill variables, quit
TOTL	; Print totals.
HEADER	;Prints heading
HEADER1	;Prints Vendor
PRINT	;Prints data totals
NODATA	;

External References

Name	Field # of Occurrence
COMMA^%DTC	PRINT+3, PRINT+6, SUBTOTL+3, SUBTOTL+6, TOTL+3, TOTL+6
^%ZISC	END+2
$$LOC^ACHS	HEADER+5
^ACHSCPTD	NODATA1+8
BRPT^ACHSFU	ACHSCPTF+4
^DIR	PRINT+9, SUBTOTL+13, TOTL+11, NODATA+4, NODATA1+5
$$CPT^ICPTCOD	P2+8, P2+10
$$C^XBFUNC	NODATA+3
$$FMTE^XLFDT	HEADER+12
$$HTE^XLFDT	HEADER+3
$$REPEAT^XLFSTR	SUBTOTL+1, TOTL+1, HEADER+14, HEADER1+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?1,$J(ACHSCOD,6)_"-"_ACHSCODP,?40,$J(ACHSDOCS,4) Line Location: PRINT+1
Function Call: WRITE	Prompt: ?50,X Line Location: PRINT+4
Function Call: WRITE	Prompt: ?65,X Line Location: PRINT+7
Function Call: WRITE	Prompt: !! Line Location: PRINT+9
Function Call: WRITE	Prompt: !!,$$REPEAT^XLFSTR("-",80),!?1,"SUBTOTAL",?10,ACHSCS,?40,$J(ACHSDOCT,4) Line Location: SUBTOTL+1
Function Call: WRITE	Prompt: ?50,X Line Location: SUBTOTL+4
Function Call: WRITE	Prompt: ?65,X Line Location: SUBTOTL+7
Function Call: WRITE	Prompt: !!?1,"PERCENTAGE OF CHGS ALLOWED TO CHGS BILLED" Line Location: SUBTOTL+8
Function Call: WRITE	Prompt: ?61,$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+13
Function Call: WRITE	Prompt: !!!!,$$REPEAT^XLFSTR("=",80),!!?1,"TOTAL",?10,ACHSCT,?40,$J(ACHSDGT,4) Line Location: TOTL+1
Function Call: WRITE	Prompt: ?50,X Line Location: TOTL+4
Function Call: WRITE	Prompt: ?65,X Line Location: TOTL+7
Function Call: WRITE	Prompt: !!?1,"PERCENTAGE OF CHGS ALLOWED TO CHS BILLED" Line Location: TOTL+8
Function Call: WRITE	Prompt: ?61,$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+11
Function Call: WRITE	Prompt: !!!,$$C^XBFUNC("NO DATA AVAILABLE FOR "_%_" FOR SPECIFIED DATE RANGE",80),!!!! Line Location: NODATA+3
Function Call: WRITE	Prompt: !!!,"NO DATA AVAILABLE FOR SPECIFIED CRITERIA",!!!! Line Location: NODATA1+4
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+1
Function Call: WRITE	Prompt: !,"*",ACHSDAT Line Location: HEADER+4
Function Call: WRITE	Prompt: ?((80/2)-($L(X)/2)),X Line Location: HEADER+6
Function Call: WRITE	Prompt: ?71,ACHSTIM,"",!,"User: ",ACHSUSR,?70,"Device:",IO,"*" Line Location: HEADER+7
Function Call: WRITE	Prompt: !! Line Location: HEADER+8
Function Call: WRITE	Prompt: ?((80/2)-($L(X)/2)),X_ACHSPAGE Line Location: HEADER+10
Function Call: WRITE	Prompt: ! Line Location: HEADER+11
Function Call: WRITE	Prompt: ?((80/2)-($L(X)/2)),X,! Line Location: HEADER+13
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("*",80) Line Location: HEADER+14
Function Call: WRITE	Prompt: !!?23,"Vendor: ",$S($D(^AUTTVNDR(ACHSVNDR,0)):$P($G(^AUTTVNDR(ACHSVNDR,0)),U),1:"NOT ON FILE"),!!?1,"CPTCODE",?40,"# DOCS #",?52,"$ CHG BLD $",?66,"$ CHG ALWD $",!,$$REPEAT^XLFSTR("~",80) Line Location: HEADER1+1
Routine Call	DIR Line Location: PRINT+9 SUBTOTL+13 TOTL+11 NODATA+4 NODATA1+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTVNDR - [#9999999.11]	NODATA+2, HEADER1+1
^ICPT - [#81]	P2+8, P2+10
^TMP("ACHSCPT"	P1+1, P1+4, P2+1, P2+3, P2+4, P2+5, PRINT+10, END+8!, NODATA+5!, NODATA1+6!

Label References

Name	Line Occurrences
END	PRINT+9, SUBTOTL+13, TOTL+11, NODATA1+5, NODATA1+7
HEADER	P1+6, PRINT+8, PRINT+9, NODATA+1, NODATA1+2
HEADER1	P1+6, PRINT+8, PRINT+9
NODATA	P1+4
NODATA1	P1+3
P1	SUBTOTL+15, NODATA+6
P2	PRINT+14
SUBTOTL	P2+2
TOTL	P1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	NODATA+2*, NODATA+3
ACHS43	PRINT+11*, END+4!
ACHS43S	ACHSCPTF+5, PRINT+11, SUBTOTL+9, SUBTOTL+11, SUBTOTL+14*, END+4!
ACHS43T	ACHSCPTF+5, SUBTOTL+11, TOTL+9, END+4!
ACHS57	PRINT+11*, END+4!
ACHS57S	ACHSCPTF+5, PRINT+11, SUBTOTL+9, SUBTOTL+11, SUBTOTL+14*, END+4!
ACHS57T	ACHSCPTF+5, SUBTOTL+11, TOTL+9, END+4!
ACHS64	PRINT+11*, END+4!
ACHS64S	ACHSCPTF+5, PRINT+11, SUBTOTL+9, SUBTOTL+11, SUBTOTL+14*, END+4!
ACHS64T	ACHSCPTF+5, SUBTOTL+11, TOTL+9, END+4!
ACHSBEG	END+5!, HEADER+12
ACHSCHA	P2+5, PRINT+5, PRINT+12, PRINT+13, END+3!
ACHSCHAS	ACHSCPTF+5, PRINT+12, SUBTOTL+5, SUBTOTL+8, SUBTOTL+10, SUBTOTL+14*, END+7!
ACHSCHAT	ACHSCPTF+5, SUBTOTL+10, TOTL+5, TOTL+8, END+7!
ACHSCHB	P2+4, PRINT+2, PRINT+12, PRINT+13, END+3!
ACHSCHBS	ACHSCPTF+5, PRINT+12, SUBTOTL+2, SUBTOTL+8, SUBTOTL+10, SUBTOTL+14*, END+3!
ACHSCHBT	ACHSCPTF+5, SUBTOTL+10, TOTL+2, TOTL+8, END+7!
ACHSCOD	P2+10*, PRINT+1, END+5!
ACHSCODE	P1+5, P2+1, P2+2, P2+3, P2+4, P2+5, P2+8, P2+10, PRINT+10, END+6!
ACHSCODP	P2+8*, PRINT+1, END+5!
ACHSCS	ACHSCPTF+5, PRINT+12, SUBTOTL+1, SUBTOTL+11, SUBTOTL+14*, END+5!
ACHSCT	ACHSCPTF+5, SUBTOTL+11, TOTL+1, END+5!
ACHSDAT	END+6!, HEADER+3*, HEADER+4
ACHSDGT	ACHSCPTF+5, SUBTOTL+10, TOTL+1, END+6!
ACHSDOC	ACHSCPTF+5*, END+6!
ACHSDOCS	P2+3, PRINT+1, PRINT+12, PRINT+13, END+3!
ACHSDOCT	ACHSCPTF+5, PRINT+12, SUBTOTL+1, SUBTOTL+10, SUBTOTL+14*, END+6!
ACHSEND	END+5!, HEADER+12
ACHSPAGE	ACHSCPTF+5, SUBTOTL+14, END+3!, NODATA+5, HEADER+2, HEADER+10
ACHSQIO	END+7!
ACHSTIM	END+6!, HEADER+3*, HEADER+7
ACHSUSR	END+7!, HEADER+7
ACHSVNDR	ACHSCPTF+6, P1+1, P1+2, P1+3, P1+4, P2+1, P2+3, P2+4, P2+5, PRINT+10 , END+7!, NODATA+2, NODATA+5, HEADER1+1
C	ACHSCPTF+5, PRINT+13, SUBTOTL+14*, END+3!
DIR	PRINT+9!, SUBTOTL+12!, TOTL+10!, END+8!, NODATA+4!, NODATA1+1!, NODATA1+6!
DIR(0	PRINT+9, SUBTOTL+13, TOTL+11, NODATA+4, NODATA1+3*
I	END+7!
IO	HEADER+7
IO("S"	PRINT+9, SUBTOTL+13, TOTL+11, NODATA+4, NODATA1+5
IO(0	NODATA+4
IOF	HEADER+1
IOST	PRINT+8, PRINT+9, SUBTOTL+13, TOTL+11, NODATA+4, NODATA1+5
U	P2+3, P2+4, P2+5, P2+8, P2+10, PRINT+11, NODATA+2, HEADER1+1
>> X	PRINT+2, PRINT+4, PRINT+5, PRINT+7, SUBTOTL+2, SUBTOTL+4, SUBTOTL+5, SUBTOTL+7, SUBTOTL+8, TOTL+2 , TOTL+4, TOTL+5, TOTL+7, TOTL+8, HEADER+5, HEADER+6, HEADER+9, HEADER+10, HEADER+12*, HEADER+13
X2	PRINT+2, PRINT+5, SUBTOTL+2, SUBTOTL+5, TOTL+2, TOTL+5, END+8!
>> Y	PRINT+9, SUBTOTL+13, TOTL+11, NODATA+4, NODATA1+5, HEADER+3*
Z	PRINT+10*, PRINT+11, END+5!
>> ZTQUEUED	END+1, NODATA+4, NODATA1+8
>> ZTREQ	END+1*

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSCPTF

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: