Routine: ACHSCPTI

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

Package

Total

Call Graph

Kernel

^%ZISC ($$FMTE,$$HTE)^XLFDT $$REPEAT^XLFSTR

Contract Health Management Information System

$$LOC^ACHS ^ACHSCPTD

DRG Grouper

$$CPT^ICPTCOD

IHS VA Utilities

$$C^XBFUNC

VA Fileman

^DIR

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSCPTH

Package

Total

Caller Graph

Contract Health Management Information System

ACHSCPTH

Name	Comments	DBIA/ICR reference
HEADER	;EP
NODATA	;EP
HEADER1	;EP
END	;EP
NODATA1	;EP

Name	Field # of Occurrence
^%ZISC	NODATA1+8, END+2
$$LOC^ACHS	HEADER+5
^ACHSCPTD	NODATA1+9
^DIR	NODATA+4, NODATA1+5
$$CPT^ICPTCOD	HEADER1+3, HEADER1+5
$$C^XBFUNC	NODATA+3
$$FMTE^XLFDT	HEADER+11
$$HTE^XLFDT	HEADER+3
$$REPEAT^XLFSTR	HEADER+13, HEADER1+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+1
Function Call: WRITE	Prompt: !,"*",ACHSDATP 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: !?((80/2)-($L(X)/2)),X,! Line Location: HEADER+12
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("*",80) Line Location: HEADER+13
Function Call: WRITE	Prompt: !!?5,"CPT Code: ",ACHSCOD_" - "_ACHSCODP Line Location: HEADER1+6
Function Call: WRITE	Prompt: !?7,"Vendor: ",$S($D(^AUTTVNDR(ACHSVNDR,0)):$P($G(^AUTTVNDR(ACHSVNDR,0)),U),1:"NOT ON FILE") Line Location: HEADER1+7
Function Call: WRITE	Prompt: !?15,ACHSVADD,!?15,ACHSVCIT," ",?25,ACHSVST," ",?35,ACHSZIP Line Location: HEADER1+8
Function Call: WRITE	Prompt: !!,"# DOC #",?12,"SERV",?17,"DOS FROM-DOS TO",?35,"UNITS",?41,"MSG",?45,"TOOTH",?51,"SURF",?56,"$ CHG BLD $",?68,"$ CHG ALWD $" Line Location: HEADER1+9
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("~",80) Line Location: HEADER1+10
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
Routine Call	DIR Line Location: NODATA+4 NODATA1+5

Name	Line Occurrences (* Changed, ! Killed)
^AUTTVNDR - [#9999999.11]	HEADER1+7, NODATA+2
^ICPT - [#81]	HEADER1+3, HEADER1+5
^TMP("ACHSCPT"	NODATA+5!, NODATA1+7!

Name	Line Occurrences
END	NODATA+6, NODATA1+5
HEADER	NODATA+1, NODATA1+2

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	NODATA+2*, NODATA+3
ACHSBEG	HEADER+11, END+3!
ACHSCOD	HEADER1+5*, HEADER1+6, END+3!
ACHSCODE	HEADER1+3, HEADER1+5, END+3!
ACHSCODP	HEADER1+3*, HEADER1+6, END+3!
ACHSDATP	HEADER+3*, HEADER+4, END+3!
ACHSEND	HEADER+11, END+3!
ACHSFACP	END+4!
ACHSPAGE	HEADER+2*, HEADER+10, END+4!
ACHSTIM	HEADER+3*, HEADER+7, END+4!
ACHSUSR	HEADER+7, END+4!
ACHSVADD	HEADER1+8, END+4!
ACHSVCIT	HEADER1+8, END+4!
ACHSVNDR	HEADER1+7, NODATA+2, NODATA+5, END+4!
ACHSVST	HEADER1+8, END+5!
ACHSZIP	HEADER1+8, END+5!
DIR	NODATA+4!, NODATA1+1!, NODATA1+6!
DIR(0	NODATA+4, NODATA1+3
I	END+5!
IO	HEADER+7
IO("S"	NODATA+4, NODATA1+5, NODATA1+8
IOF	HEADER+1
IOST	NODATA+4, NODATA1+5
U	HEADER1+3, HEADER1+5, HEADER1+7, NODATA+2
>> X	HEADER+5, HEADER+6, HEADER+9, HEADER+10, HEADER+11*, HEADER+12
>> Y	HEADER+3*, NODATA+4, NODATA1+5
>> ZTQUEUED	NODATA1+9, END+1
>> ZTREQ	END+1*

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSCPTI

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: