Routine: APCLPVC2

Package	Total	Call Graph
DRG Grouper	1	$$ICDDX^ICDEX
Patient Care Component Reports	1	DONE^APCLOSUT

Entry Points

Name	Field # of Occurrence
DONE^APCLOSUT	DONE+1
$$ICDDX^ICDEX	PRICD1+2

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,APCLAPC,?7,APCLAPNM,?54,$J(APCLCNT,6),! Line Location: PRNT3+4
Function Call: WRITE	Prompt: !?7,"ICD9",?14,"ICD9 Description",!?7,"------",?14,"------------------------" Line Location: PRNT3+6
Function Call: WRITE	Prompt: !?14,"Other ICD9 Codes",?54,$J(APCLCNT-APCLCNTL,6) Line Location: PRNT3+8
Function Call: WRITE	Prompt: !?7,APCLICNO,?14,APCLINM,?54,$J(-APCLCNTI,6) Line Location: PRICD1+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: HEAD+1
Function Call: WRITE	Prompt: $P(^DIC(4,APCLSITE,0),"^"),?58,APCLDTP,?72,"Page ",APCLPG,! Line Location: HEAD1+1
Function Call: WRITE	Prompt: !,"POV Counts for Ambulatory Visits from ",APCLSDY," through ",APCLFDY,"." Line Location: HEAD1+2
Function Call: WRITE	Prompt: !,"For Patients whose Community of Residence is ",APCLCOM,"." Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,"ICD9 Subcounts are restricted to the leading ",APCLLIM," Purposes of Visit.",! Line Location: HEAD1+4
Function Call: WRITE	Prompt: !,"APC",?7,"APC Category",?55,"Count" Line Location: HEAD1+5
Function Call: WRITE	Prompt: !,APCL80D Line Location: HEAD1+6

Name	Line Occurrences (* Changed, ! Killed)
^AUTTRCD - [#9999999.08]	PRNT3+1
^AUTTRCD("B"	PRNT3+1
^DD("DD"	APCLPVC2+7
^DIC(4 - [#4]	HEAD1+1
^ICD9 - [#80]	PRICD1+2
^XTMP("APCLPVC"	APCLPVC2+11, CNT, CNT+1, CNT+3, CNT1, CNT1+1, PRNT1+1, PRNT2+1, PRNT3, PRNT3+7 , PRICD, DONE+2!

Name	Field # of Occurrence
>> APCL80D	APCLPVC2+6*, HEAD1+6
>> APCLAPC	APCLPVC2+10, APCLPVC2+11, CNT, CNT+1, CNT+3, CNT1, CNT1+1, PRNT2, PRNT2+1, PRNT3 , PRNT3+1, PRNT3+4, PRNT3+7, PRICD
>> APCLAPNM	PRNT3+1*, PRNT3+4
>> APCLBT	APCLPVC2+11, CNT, CNT+1, CNT+3, CNT1, CNT1+1, PRNT1+1, PRNT2+1, PRNT3, PRNT3+7 , PRICD, DONE+2
>> APCLCNT	APCLPVC2+9, CNT, CNT+1, CNT1, CNT1+1, PRNT3, PRNT3+4, PRNT3+8
>> APCLCNTI	PRNT3+7*, PRICD, PRICD1+4, PRICD1+5
>> APCLCNTL	PRNT3+7, PRNT3+8, PRICD1+5
>> APCLCNTR	PRNT1, PRNT1+1, PRNT2+1, PRNT3
>> APCLCOM	HEAD1+3
>> APCLDTP	APCLPVC2+7*, HEAD1+1
>> APCLFD	APCLPVC2+7
>> APCLFDY	APCLPVC2+7*, HEAD1+2
>> APCLICLN	PRICD1+2*
>> APCLICNO	PRICD1+2*, PRICD1+4
>> APCLINM	PRICD1+2*, PRICD1+4
>> APCLINO	CNT+2, CNT+3, CNT1, CNT1+1, PRICD*, PRICD1+2
>> APCLJOB	APCLPVC2+11, CNT, CNT+1, CNT+3, CNT1, CNT1+1, PRNT1+1, PRNT2+1, PRNT3, PRNT3+7 , PRICD, DONE+2
>> APCLLIM	PRNT3+5, PRNT3+7, PRNT3+8, PRICD, HEAD1+4
>> APCLLIMC	PRNT3+7, PRNT3+8, PRICD, PRICD1
>> APCLPG	APCLPVC2+9, PRNT3+2, HEAD, HEAD1+1
>> APCLQUIT	PRNT1+1, PRNT2+1, PRNT3+3, PRNT3+7, PRICD, PRICD1+3, HEAD+1*
>> APCLSD	APCLPVC2+7
>> APCLSDY	APCLPVC2+7*, HEAD1+2
>> APCLSITE	APCLPVC2+8*, HEAD1+1
DT	APCLPVC2+7
DTIME	HEAD+1
DUZ(2	APCLPVC2+8
>> I	APCLPVC2+11*
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1
IOSL	PRNT3+3, PRICD1+3
IOST	HEAD+1
>> X	HEAD+1*
>> Y	APCLPVC2+7*