Routine: APCDVCH1

Package	Total	Call Graph
DRG Grouper	1	$$CODEC^ICDEX

Package	Total	Caller Graph
Patient Care Component	1	APCDVCH

Entry Points

Name	Comments	DBIA/ICR reference
CHKDXOP2	;
CHKDXOP1	;
DUPEOP	;WARNING RE: DUPLICATE OPERATIONS USED;ACCEPT REQUIRED
DUPE	;
C567
CHKDXOP	; CHECK DX VS OPERATIONS AND CHECK FOR DUPLICATE POVS
C6ERR	;

Name	Field # of Occurrence
$$CODEC^ICDEX	CHKDXOP+2, CHKDXOP2+5, C567+3, C567+7, C6ERR+1, C6ERR+2, C6ERR+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"WARNING: Diagnosis missing in V Procedure Entry!!" Line Location: CHKDXOP2+1
Function Call: WRITE	Prompt: !,$C(7),"WARNING: Operation ",$$CODEC^ICDEX(80.1,$P(^AUPNVPRC(APCDPX,0),U))," Not for Diagnosis in V POV file!",!,"Notify your Supervisor or Correct!",! Line Location: CHKDXOP2+5
Function Call: WRITE	Prompt: !,$C(7),"WARNING: Same ICD9 Code used for 2 POV's. Please Review.",! Line Location: DUPE+1
Function Call: WRITE	Prompt: !,$C(7),"WARNING: Same ICD OPERATION/PROCEDURE Code used for 2 OP's. Please Review.",! Line Location: DUPEOP+1
Function Call: WRITE	Prompt: !,$C(7),"WARNING: Procedure Code ",APCDOPC," should not be used with DX code ",APCD2,". Please review.",! Line Location: C567+4
Function Call: WRITE	Prompt: !,$C(7),"WARNING: Procedure Code ",APCDOPC," should not be used with DX code ",APCD2,". Please review.",! Line Location: C567+5
Function Call: WRITE	Prompt: !,$C(7),"WARNING: Procedure Code ",APCDOPC," should not be used with DX code ",APCD2,". Please review.",! Line Location: C567+6
Function Call: WRITE	Prompt: !,$C(7),"WARNING: A Procedure is REQUIRED when ICD DX code ",$$CODEC^ICDEX(80,APCDDX)," is used!",! Line Location: C6ERR+1
Function Call: WRITE	Prompt: !,$C(7),"WARNING: If Diagnosis ",$$CODEC^ICDEX(80,APCDDX)," is used a PROCEDURE is REQUIRED!",! Line Location: C6ERR+3

Name	Line Occurrences (* Changed, ! Killed)
^APCDINPT(5	C567+4
^APCDINPT(6	C567+5, C567+7, C6ERR+2
^APCDINPT(7	C567+6
^AUPNVPOV - [#9000010.07]	CHKDXOP1+1, CHKDXOP1+2, C567+7
^AUPNVPOV("AD"	CHKDXOP+1
^AUPNVPRC - [#9000010.08]	CHKDXOP+2, CHKDXOP2+2, CHKDXOP2+3, CHKDXOP2+5, C567+3, C6ERR+2
^AUPNVPRC("AD"	CHKDXOP+2

Name	Field # of Occurrence
>> APCD1	C567+3, C567+7
>> APCD2	C567+3, C567+4, C567+5, C567+6, C6ERR+2
>> APCDACC	CHKDXOP+3, CHKDXOP+4
APCDDUPE	CHKDXOP+1!, CHKDXOP+3, CHKDXOP1+1*
APCDDUPO	CHKDXOP+2!, CHKDXOP+4, CHKDXOP2+2*
>> APCDDX	CHKDXOP+1, CHKDXOP1+1, CHKDXOP1+2, CHKDXOP2+4, C567+7*, C6ERR+1, C6ERR+2, C6ERR+3
APCDDXP	CHKDXOP+1!
APCDDXP(	CHKDXOP1+1, CHKDXOP1+2*, CHKDXOP2+4
APCDFOUN	CHKDXOP2+4!, CHKDXOP2+5, C6ERR+2!, C6ERR+3
>> APCDOP	C6ERR+2*
>> APCDOPC	C567+3*, C567+4, C567+5, C567+6
>> APCDOPDX	CHKDXOP+2*, CHKDXOP2+1, CHKDXOP2+4
APCDOPP	CHKDXOP+2!
APCDOPP(	CHKDXOP2+2, CHKDXOP2+3*
>> APCDPX	CHKDXOP+2*, CHKDXOP2+2, CHKDXOP2+3, CHKDXOP2+5
APCDVCPS	CHKDXOP+1!
APCDVCPS(	CHKDXOP+1*, C567+7
APCDVPRC	CHKDXOP+2!, C6ERR+1
APCDVPRC(	CHKDXOP+2*, C567+3, C6ERR+2
>> APCDVSIT	CHKDXOP+1, CHKDXOP+2
U	CHKDXOP+2, CHKDXOP1+1, CHKDXOP1+2, CHKDXOP2+2, CHKDXOP2+3, CHKDXOP2+5, C567+3, C567+7, C6ERR+2