Routine: APCDRVH

Information

APCDRVH ; IHS/CMI/LAB - VISIT REVIEW HOSPITALIZATIONS ;

Source file <APCDRVH.m>

Package	Total	Call Graph
Patient Care Component	3	ERR^APCDRV ^APCDRVH1 ^APCDRVH2
DRG Grouper	1	$$ICDDX^ICDEX

Package	Total	Caller Graph
Patient Care Component	1	APCDRV

Name	Comments	DBIA/ICR reference
GETPOVS	;
ERR	;
CHECKPVS	;
E11	;CHECK SECONDARY FOR REQUIRED ACCEPT COMMAND/INVALID SECONDARY PVS
SETPOV	;
E1W	;
XIT	;
E3	;IF PRIMARY DX IS V30-V39(.1) ADM SRV MUST BE ,11
E4	;IF PRIM DX (V30-V39 (.0 OR ,.1)) AGE CANNOT BE > 3 DAYS
C2	;CERTAIN "V" CODES CANNOT BE PRIMARY DXS
C1	;IF PRIMARY DX IS A "V" CODE SECONDARY MUST BE "V" CODE ALSO
E1	;CERTAIN CODES REQUIRE AN ACCEPT COMMAND
CHKHOSP	;CHECK HOSPITALIZATION EDITS
GETTS	;
E2	;IF CODE V30-V39 (.0) ADM SRV MUST BE NEWBORN

Name	Line Occurrences (* Changed, ! Killed)
^APCDINPT(3	E4+1
^APCDINPT(4	E2+1, E4+1
^AUPNVINP - [#9000010.02]	CHKHOSP+4
^AUPNVINP("AD"	CHKHOSP+3, CHKHOSP+4
^AUPNVPOV - [#9000010.07]	SETPOV+1
^AUPNVPOV("AD"	GETPOVS+1
^AUPNVSIT - [#9000010]	CHKHOSP+1
^DIC(45.7 - [#45.7]	GETTS+4

Name	Line Occurrences
CHECKPVS	CHKHOSP+13
ERR	CHKHOSP+3, CHKHOSP+5, CHKHOSP+10, CHKHOSP+11, GETTS+2, GETTS+3, GETTS+5, GETTS+6, E2+1, E4+1
GETPOVS	CHKHOSP+9
GETTS	CHKHOSP+6
SETPOV	GETPOVS+1
XIT	CHKHOSP+3, CHKHOSP+5, CHKHOSP+10, CHKHOSP+11

Name	Field # of Occurrence
APCD1	XIT+1!, GETPOVS+1*, SETPOV+3
APCD2	XIT+1!, GETPOVS+1*, SETPOV+1, SETPOV+2, SETPOV+3
APCD3	CHKHOSP+11, XIT+1!, GETPOVS+1, SETPOV+2
APCDACC	XIT+1!, CHECKPVS+1
APCDACCO	XIT+1!
APCDADM	XIT+2!
APCDDIS	XIT+2!
APCDDS	CHKHOSP+8, XIT+1!, GETTS+1, GETTS+3, GETTS+4, GETTS+6
APCDDUPE	XIT+1!
APCDDUPO	XIT+1!
APCDDX	XIT+1!
APCDDXC	XIT+1!
APCDDXOP	XIT+1!
APCDDXP	XIT+1!
APCDE	CHKHOSP+3, CHKHOSP+5, CHKHOSP+10, CHKHOSP+11, XIT+2!, GETTS+2, GETTS+3, GETTS+5, GETTS+6, E2+1* , E4+1*
APCDE("ENTRY"	CHKHOSP+3, CHKHOSP+5, CHKHOSP+10, CHKHOSP+11, GETTS+2, GETTS+3, GETTS+5, GETTS+6, E2+1, E4+1
APCDE("FILE"	CHKHOSP+3, CHKHOSP+5, CHKHOSP+10, CHKHOSP+11, GETTS+2, GETTS+3, GETTS+5, GETTS+6, E2+1, E4+1
APCDFOUN	XIT+1!
APCDIACC	XIT+1!
APCDICD9	XIT+1!
APCDOPC	XIT+1!
APCDOPDX	XIT+1!
APCDOPP	XIT+1!
APCDPOV	XIT+1!, XIT+2!
APCDPOV(	SETPOV+3*
APCDPOV("P"	CHKHOSP+10, SETPOV+2*, E2+1, E4+1
APCDPREC	XIT+1!, SETPOV+1*, SETPOV+2, SETPOV+3
APCDPX	XIT+1!
APCDSC	XIT+1!, SETPOV+1*, SETPOV+2, SETPOV+3
APCDTS	CHKHOSP+7, XIT+1!, GETTS+1, GETTS+2, GETTS+4, GETTS+5, E2+1
APCDVINP	CHKHOSP+4*, XIT+2!, GETTS+2, GETTS+3, GETTS+5, GETTS+6
APCDVINR	CHKHOSP+4*, CHKHOSP+5, XIT+1!, GETTS+1
APCDVREC	CHKHOSP+1*, CHKHOSP+2, XIT+2!
>> APCDVSIT	CHKHOSP+1, CHKHOSP+3, CHKHOSP+4, CHKHOSP+5, CHKHOSP+10, CHKHOSP+11, GETPOVS+1, E2+1, E4+1
>> AUPNDAYS	E4+1
U	CHKHOSP+2, CHKHOSP+5, GETTS+1, GETTS+4, SETPOV+1, SETPOV+2, SETPOV+3, E2+1, E4+1