Routine: ECSUM2

Package	Total	Call Graph
CPT HCPCS Codes	1	$$CPT^ICPTCOD
VA FileMan	1	^DIR

Entry Points

Name	Field # of Occurrence
^DIR	PAGE+4
$$CPT^ICPTCOD	SETP+6

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?3,"Category: "_ECCN Line Location: CAT+1
Function Call: WRITE	Prompt: !!,?25,"CATEGORY AND PROCEDURE SUMMARY",!,?25,"Run Date : ",ECRDT Line Location: HEADER+2
Function Call: WRITE	Prompt: !,?25,"LOCATION: "_ECLN,!,?25,"SERVICE: "_ECSN,!,?25,"DSS UNIT: "_ECDN,! Line Location: HEADER+2
Function Call: WRITE	Prompt: !,?25,"LOCATION: "_ECLN,!,?25,"SERVICE: "_ECSN,!,?25,"DSS UNIT: "_ECDN,! Line Location: HEADER+2
Function Call: WRITE	Prompt: !!,?3,"Category: "_ECCN Line Location: CATS+1
Function Call: WRITE	Prompt: !,?3,"Procedure: ",$E(ECPN,1,30)," (",$S(ECFILE=81:"CPT",1:"EC"),")",?52,"Nat'l No.: ",NATN Line Location: SETP+9
Function Call: WRITE	Prompt: ?70,"INACTIVE" Line Location: SETP+11
Function Call: WRITE	Prompt: ! Line Location: PAGE+3
Function Call: WRITE	Prompt: !!,?3,"Category: "_ECCN Line Location: MORE+0
Routine Call	DIR Line Location: PAGE+4

Name	Line Occurrences (* Changed, ! Killed)
^EC(725 - [#725]	SETP+7
^EC(726 - [#726]	SETC+2
^ECJ - [#720.3]	SETP+2, SETP+11
^ECJ("AP"	CATS+1, PROC+1, SETP+1
^SC - [#44]	SETP+3

Name	Field # of Occurrence
^("PRO"	SETP+2
^(0	SETC+2, SETP+3, SETP+7

Name	Field # of Occurrence
DIR	PAGE+4!
DIR(0	PAGE+4*
>> EC2	SETP+3*, SETP+10
>> EC4	SETP+2*, SETP+3
>> ECC	START, START+1, SETC+1, SETC+2, CATS+1, PROC+1, SETP+1
>> ECCN	START+1, CAT+1, SETC+1, SETC+2*, HEADER+3, CATS+1, MORE
>> ECD	CATS+1, PROC+1, SETP+1
>> ECDN	HEADER+2
>> ECFILE	SETP+4*, SETP+5, SETP+6, SETP+7, SETP+9
>> ECJLP	START+1
>> ECL	CATS+1, PROC+1, SETP+1
>> ECLN	HEADER+2
>> ECMORE	START, SETC+3, CATS+2, PROC+2, MORE
>> ECOUT	CAT+1, CATS+1, PROC+1, SETP+12, PAGE+4*
>> ECP	PROC+1*, SETP+1, SETP+4, SETP+6, SETP+7
>> ECPG	START, CAT+1, END, HEADER+1*, CATS+1, SETP+12, PAGE+2
>> ECPN	SETP+5, SETP+6, SETP+7, SETP+8, SETP+9
>> ECPSY	SETP+1*, SETP+2, SETP+11
>> ECPSYN	SETP+2*, SETP+8
>> ECRDT	HEADER+2
>> ECSN	HEADER+2
>> I	HEADER+2*
IOF	HEADER+1
IOSL	CAT+1, CATS+1, SETP+12
IOST	HEADER+1, PAGE+2
JJ	PAGE+1~, PAGE+3*
>> NATN	SETP+5, SETP+6, SETP+7*, SETP+9
SS	PAGE+1~, PAGE+3*
>> X	SETP+6*
>> Y	PAGE+4