Routine: APCPHOS1

Information

APCPHOS1 ; IHS/TUCSON/LAB - REVIEW HOSPITALIZATIONS - CONT. AUGUST 14, 1992 ; [ 09/08/99 7:41 AM ]

Package	Total	Caller Graph
Patient Care Component Data Transmission	1	APCPHOSP

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

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

Name	Line Occurrences
C567	CHKDXOP+8
C6ERR	C567+6
CHKDXOP1	CHKDXOP+1
CHKDXOP2	CHKDXOP+4
DUPE	CHKDXOP+6
DUPEOP	CHKDXOP+7
XIT	CHKDXOP+3, CHKDXOP+5, CHKDXOP+6, CHKDXOP+7

Name	Field # of Occurrence
>> APCP("V DFN"	CHKDXOP+1, CHKDXOP+4, DUPE+1, DUPEOP+1, C6ERR+1, C6ERR+3
APCP1	XIT+1!, C567+1, C567+2, C567+3, C567+4, C567+6
APCP2	XIT+1!, C567+1, C567+2, C567+3, C567+4, C6ERR+2
APCPDUPE	CHKDXOP+1!, CHKDXOP+6, XIT+1!, CHKDXOP1+1*
APCPDUPO	CHKDXOP+2!, CHKDXOP+7, XIT+1!, CHKDXOP2+3*
APCPDX	CHKDXOP+1, XIT+1!, CHKDXOP1+1, CHKDXOP1+2, CHKDXOP2+5, C567+6*, C6ERR+2
>> APCPE	CHKDXOP+1, CHKDXOP+3, CHKDXOP+4, CHKDXOP+5, C567+1, C567+5
>> APCPE("EDFN"	CHKDXOP2+2, DUPE+1, DUPEOP+1, C567+2, C567+3, C567+4, C6ERR+1, C6ERR+3
>> APCPE("ERROR"	CHKDXOP2+2, DUPE+1, DUPEOP+1, C567+2, C567+3, C567+4, C6ERR+1, C6ERR+3
>> APCPE("FILE"	CHKDXOP2+2, DUPE+1, DUPEOP+1, C567+2, C567+3, C567+4, C6ERR+1, C6ERR+3
APCPHDXP	CHKDXOP+1!, XIT+1!
APCPHDXP(	CHKDXOP1+1, CHKDXOP1+2*, CHKDXOP2+5
APCPHIT	XIT+1!, CHKDXOP2+5!, C6ERR+2!, C6ERR+3
APCPODX	XIT+1!, CHKDXOP2+1*, CHKDXOP2+2, CHKDXOP2+5
APCPOPC	XIT+1!, C567+1, C567+2, C567+3, C567+4, C6ERR+2
APCPOPP	CHKDXOP+2!, XIT+1!
APCPOPP(	CHKDXOP2+3, CHKDXOP2+4*
APCPOPX	CHKDXOP+4*, XIT+1!, CHKDXOP2+1, CHKDXOP2+2, CHKDXOP2+3, CHKDXOP2+4
APCPPOVS	CHKDXOP+1!, XIT+1!
APCPPOVS(	CHKDXOP+1*, C567+6
APCPPR	XIT+1!
APCPPRC	XIT+1!
>> APCPV("ACC"	CHKDXOP+6, CHKDXOP+7
APCPVPRC	CHKDXOP+2!, XIT+1!, C6ERR+1
APCPVPRC(	CHKDXOP2+1*, C567+1, C6ERR+2
U	CHKDXOP1+1, CHKDXOP1+2, CHKDXOP2+1, CHKDXOP2+3, CHKDXOP2+4, C567+1, C567+6, C6ERR+2