Routine: ACHSCPTC

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

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSCPTB

Entry Points

Name	Comments	DBIA/ICR reference
P1A	;
SUBTOTL	;
P1	;
END	;Close device, kill variables, quit
HEADER	;Prints heading
TOTAL	;
HEADER1	;
NODATA	;

External References

Name	Field # of Occurrence
COMMA^%DTC	P1A+23, P1A+26, SUBTOTL+3, SUBTOTL+6, TOTAL+3, TOTAL+6
^%ZISC	END+2
$$LOC^ACHS	HEADER+5
BRPT^ACHSFU	ACHSCPTC+6
^DIR	P1A+29, SUBTOTL+13, TOTAL+11, NODATA+5
$$CPT^ICPTCOD	P1A+13, P1A+17
$$FMTE^XLFDT	HEADER+9
$$HTE^XLFDT	HEADER+3
$$REPEAT^XLFSTR	SUBTOTL+1, TOTAL+1, HEADER+10, HEADER1+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?1,$J(ACHSCOD,6)_" - "_$J($E(ACHSCODP,1,30),30),?40,$J(ACHSDOCS,4) Line Location: P1A+21
Function Call: WRITE	Prompt: ?51,X Line Location: P1A+24
Function Call: WRITE	Prompt: ?66,X Line Location: P1A+27
Function Call: WRITE	Prompt: !! Line Location: P1A+29
Function Call: WRITE	Prompt: !!,$$REPEAT^XLFSTR("-",80),!,"SUBTOTAL",?10,ACHSCS,?40,$J(ACHSDST,4) Line Location: SUBTOTL+1
Function Call: WRITE	Prompt: ?51,X Line Location: SUBTOTL+4
Function Call: WRITE	Prompt: ?66,X Line Location: SUBTOTL+7
Function Call: WRITE	Prompt: !! Line Location: SUBTOTL+8
Function Call: WRITE	Prompt: "PERCENTAGE OF CHGS ALLOWED TO CHGS BILLED",?64,$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),!!,"TOTAL",?10,ACHSCT,?40,$J(ACHSDOCT,4) Line Location: TOTAL+1
Function Call: WRITE	Prompt: ?51,X Line Location: TOTAL+4
Function Call: WRITE	Prompt: ?66,X,! Line Location: TOTAL+7
Function Call: WRITE	Prompt: ! Line Location: TOTAL+8
Function Call: WRITE	Prompt: "PERCENTAGE OF CHGS ALLOWED TO CHGS BILLED" Line Location: TOTAL+8
Function Call: WRITE	Prompt: "PERCENTAGE OF CHGS ALLOWED TO CHGS BILLED" Line Location: TOTAL+8
Function Call: WRITE	Prompt: !!?3," HOSP - "_ACHS43T_" ",?32," DENT - "_ACHS57T_" ",?62," OUTP - "_ACHS64T_" " Line Location: TOTAL+9
Function Call: WRITE	Prompt: !! Line Location: TOTAL+11
Function Call: WRITE	Prompt: !!!,"NO DATA AVAILABLE FOR SPECIFIED CRITERIA",!!!! Line Location: NODATA+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,?71,ACHSTIM,"",!,"User: ",ACHSUSR,?70,"Device:",IO,"*",!! Line Location: HEADER+6
Function Call: WRITE	Prompt: ?((80/2)-($L(X)/2)),X_ACHSPAGE Line Location: HEADER+8
Function Call: WRITE	Prompt: !?((80/2)-($L(X)/2)),X,!,$$REPEAT^XLFSTR("*",80) Line Location: HEADER+10
Function Call: WRITE	Prompt: !!?1,"CPTCODE",?40,"# DOCS #",?52,"$ CHG BLD $",?66,"$ CHG ALWD $",!,$$REPEAT^XLFSTR("~",80) Line Location: HEADER1+1
Routine Call	DIR Line Location: P1A+29 SUBTOTL+13 TOTAL+11 NODATA+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTADA - [#9999999.31]	P1A+13, P1A+17
^AUTTREVN - [#9999999.72]	P1A+13, P1A+17
^TMP("ACHSCPT"	P1+1, P1+4, P1A+1, P1A+3, P1A+4, P1A+5, P1A+31, END+5!, NODATA+6!
^TMP("ACHSINDX"	P1A+10

Label References

Name	Line Occurrences
END	P1A+29, SUBTOTL+13, TOTAL+11
HEADER	P1+5, P1A+28, P1A+29, NODATA+3
HEADER1	P1A+28, P1A+29
NODATA	P1+4
P1	SUBTOTL+15, NODATA+8
P1A	P1A+34
SUBTOTL	P1A+2
TOTAL	P1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACHS43	P1A+32*, P1A+33, END+3!
ACHS43S	ACHSCPTC+8, P1A+33, SUBTOTL+9, SUBTOTL+11, SUBTOTL+14*, END+3!
ACHS43T	ACHSCPTC+8, SUBTOTL+11, TOTAL+9, END+3!
ACHS57	P1A+32*, P1A+33, END+3!
ACHS57S	ACHSCPTC+8, P1A+33, SUBTOTL+9, SUBTOTL+11, SUBTOTL+14*, END+3!
ACHS57T	ACHSCPTC+8, SUBTOTL+11, TOTAL+9, END+4!
ACHS64	P1A+32*, P1A+33, END+4!
ACHS64S	ACHSCPTC+8, P1A+33, SUBTOTL+9, SUBTOTL+11, SUBTOTL+14*, END+5!
ACHS64T	ACHSCPTC+8, SUBTOTL+11, TOTAL+9, END+5!
ACHSBEG	END+5!, HEADER+9
ACHSCHA	P1A+5*, P1A+25, P1A+30, END+6!
ACHSCHAS	ACHSCPTC+8, P1A+30, SUBTOTL+5, SUBTOTL+8, SUBTOTL+10, SUBTOTL+14*, END+6!
ACHSCHAT	ACHSCPTC+8, SUBTOTL+10, TOTAL+5, TOTAL+8, END+6!
ACHSCHB	P1A+4*, P1A+22, P1A+30, END+6!
ACHSCHBS	ACHSCPTC+8, P1A+30, SUBTOTL+2, SUBTOTL+8, SUBTOTL+10, SUBTOTL+14*, END+6!
ACHSCHBT	ACHSCPTC+8, SUBTOTL+10, TOTAL+2, TOTAL+8, END+6!
ACHSCOD	P1A+17*, P1A+21, END+6!
ACHSCODE	P1+3, P1A+1, P1A+2, P1A+3, P1A+4, P1A+5, P1A+10, P1A+13, P1A+17, P1A+31 , END+7!
ACHSCODP	P1A+13*, P1A+21, END+7!
ACHSCS	ACHSCPTC+8, P1A+30, SUBTOTL+1, SUBTOTL+10, SUBTOTL+14*, END+7!
ACHSCT	ACHSCPTC+8, SUBTOTL+10, TOTAL+1, END+7!
ACHSDAT	END+4!, HEADER+3*, HEADER+4
>> ACHSDCPT	P1A+10*, P1A+13, P1A+17
ACHSDOC	ACHSCPTC+7*, END+3!, END+4!
ACHSDOCS	ACHSCPTC+8, P1A+3, P1A+21, P1A+30, END+3!
ACHSDOCT	ACHSCPTC+8, SUBTOTL+10, TOTAL+1, END+4!
ACHSDST	ACHSCPTC+7, P1A+30, SUBTOTL+1, SUBTOTL+10, SUBTOTL+14*, END+5!
ACHSEND	END+7!, HEADER+9
ACHSPAGE	ACHSCPTC+8, SUBTOTL+14, END+3!, NODATA+7, HEADER+2, HEADER+8
ACHSQIO	END+7!
ACHSTIM	END+4!, HEADER+3*, HEADER+6
ACHSUSR	END+5!, HEADER+6
ACHSVNDR	ACHSCPTC+9, P1+1, P1+2, P1+4, P1A+1, P1A+3, P1A+4, P1A+5, P1A+31, END+4! , NODATA+6
C	P1+4*, END+3!
DIR	P1A+29!, SUBTOTL+12!, TOTAL+10!, END+7!, NODATA+1!, NODATA+6!
DIR(0	P1A+29, SUBTOTL+13, TOTAL+11, NODATA+2
I	END+4!
IO	HEADER+6
IO("S"	P1A+29, SUBTOTL+13, TOTAL+11, NODATA+5
IOF	HEADER+1
IOST	P1A+28, P1A+29, SUBTOTL+13, TOTAL+11, NODATA+5
U	P1A+3, P1A+4, P1A+5, P1A+13, P1A+17, P1A+32
X	P1A+22, P1A+24, P1A+25, P1A+27, SUBTOTL+2, SUBTOTL+4, SUBTOTL+5, SUBTOTL+7, SUBTOTL+8, TOTAL+2 , TOTAL+4, TOTAL+5, TOTAL+7, END+4!, HEADER+5, HEADER+6, HEADER+7, HEADER+8, HEADER+9, HEADER+10
X2	P1A+22, P1A+25, SUBTOTL+2, SUBTOTL+5, TOTAL+2, TOTAL+5, END+5!
Y	P1A+29, SUBTOTL+13, TOTAL+11, END+5!, NODATA+5, HEADER+3*
Z	P1A+31, P1A+32, TOTAL+8, END+7!
>> ZTQUEUED	END+1
>> ZTREQ	END+1*

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSCPTC

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: