Routine: APCLCPTD

Package	Total	Call Graph
Kernel	3	^%ZISC $$OPEN^%ZISH $$FMTE^XLFDT

Package	Total	Caller Graph
Patient Care Component Reports	1	APCLCPT1

Entry Points

Name	Comments	DBIA/ICR reference
DELIMIT	;EP - Set up header line, dash line
AMBHDR	;
OPEN	;write flat file from global
HEADER	;EP
PRNO	;
DONE	;
INPHDR	;
HEADER1	;
PROC	;process printing of report
PRNI	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No data to report.",! Line Location: PROC+3
Function Call: WRITE	Prompt: !,APCLY_U_APCLN_U_APCLCNT Line Location: PRNO+2
Function Call: WRITE	Prompt: !,APCLY_U_APCLN_U_APCLCNT Line Location: PRNI+2
Function Call: WRITE	Prompt: !!,"Ambulatory/Outpatient Services:" Line Location: AMBHDR+1
Function Call: WRITE	Prompt: !!,"CPT Code"_U_"CPT Narrative"_U_"# Subtotaled by CPT" Line Location: AMBHDR+2
Function Call: WRITE	Prompt: !!,"Inpatient Services:" Line Location: INPHDR+1
Function Call: WRITE	Prompt: !!,"CPT Code"_U_"CPT Narrative"_U_"# Subtotaled by CPT" Line Location: INPHDR+2
Function Call: WRITE	Prompt: !,$P(^VA(200,DUZ,0),U,2)_U_$$FMTE^XLFDT(DT)_U_"Page ",APCLPG,! Line Location: HEADER1+2
Function Call: WRITE	Prompt: !,"* CPT Code by Provider Report *",! Line Location: HEADER1+3
Function Call: WRITE	Prompt: X,! Line Location: HEADER1+4

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	DELIMIT+3!, DONE+3!
^VA(200 - [#200]	HEADER1+2
^XTMP("APCLCPT1"	PROC+3, PROC+4, PROC+5, PROC+8, PROC+12, PROC+13, PROC+17, PROC+18, PROC+21, PROC+24 , PRNO+1, PRNI+1
^XTMP("APCLFLAT"	DONE+3!
^XTMP($J	DELIMIT+2!

Name	Field # of Occurrence
>> APCLBD	HEADER1+4
>> APCLCNT	PROC+21, PROC+22, PROC+24, PROC+25, PROC+26, PRNO+1, PRNO+2, PRNI+1, PRNI+2
>> APCLDELC	DELIMIT+4*
>> APCLDELF	OPEN+4
>> APCLDELT	PROC+1, DONE+2
>> APCLDISC	PROC+8*, PROC+9, PROC+12, PROC+13, PROC+17, PROC+18, PROC+21, PROC+24, PRNO+1, PRNI+1
>> APCLED	HEADER1+4
>> APCLFCNT	DELIMIT+1*
>> APCLH	PROC+3, PROC+4, PROC+5, PROC+8, PROC+12, PROC+13, PROC+17, PROC+18, PROC+21, PROC+24 , PRNO+1, PRNI+1
>> APCLHDIR	OPEN+4
>> APCLJ	PROC+3, PROC+4, PROC+5, PROC+8, PROC+12, PROC+13, PROC+17, PROC+18, PROC+21, PROC+24 , PRNO+1, PRNI+1
>> APCLN	PROC+13, PROC+18, PRNO+1, PRNO+2, PRNI+1, PRNI+2
>> APCLOI	PROC+10, PROC+15, PROC+20, PROC+23
>> APCLPG	PROC+2, HEADER+1, HEADER1+1, HEADER1+2
>> APCLPIEC	DELIMIT+4*
>> APCLPIEN	PROC+5*, PROC+8, PROC+12, PROC+13, PROC+17, PROC+18, PROC+21, PROC+24, PRNO+1, PRNI+1
>> APCLPN	PROC+4*, PROC+5, PROC+8, PROC+9, PROC+12, PROC+13, PROC+17, PROC+18, PROC+21, PROC+24 , PRNO+1, PRNI+1
APCLQUIT	PROC+2!, PROC+4, PROC+5, PROC+12, PROC+13, PROC+17, PROC+18
>> APCLY	PROC+12, PROC+13, PROC+17, PROC+18, PRNO+1, PRNO+2, PRNI+1, PRNI+2
DT	HEADER1+2
DUZ	HEADER1+2
IO	OPEN+6
U	PROC+7, PROC+9, PROC+22, PROC+25, PROC+26, PRNO+2, PRNI+2, AMBHDR+2, INPHDR+2, HEADER1+2
>> X	HEADER1+4*
>> Y	OPEN+4*, OPEN+5
>> ZTQUEUED	OPEN+5