Routine: APCDVCH

Package	Total	Call Graph
IHS Patient	2	$$AGE^AUPNPAT $$CHKE1^AUPNSICD
Patient Care Component	2	^APCDVCH1 ^APCDVCH2
DRG Grouper	1	($$CODEC,$$ICDDX)^ICDEX
Kernel	1	$$VERSION^XPDUTL
Patient Care Component Reports	1	$$VD^APCLV
VA Fileman	1	^%DTC

Package

Total

Call Graph

IHS Patient

$$AGE^AUPNPAT $$CHKE1^AUPNSICD

Patient Care Component

^APCDVCH1 ^APCDVCH2

DRG Grouper

($$CODEC,$$ICDDX)^ICDEX

Kernel

$$VERSION^XPDUTL

Patient Care Component Reports

$$VD^APCLV

VA Fileman

^%DTC

Package	Total	Caller Graph
Patient Care Component	1	APCDVCHK

Package

Total

Caller Graph

Patient Care Component

APCDVCHK

Entry Points

Name	Comments	DBIA/ICR reference
C11	;
GETPOVS	;
C12	;
CHECKPVS	;
E11	;
GETACC	;
SETPOV	;
E1W	;
XIT	;
E3	;IF PRIM 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 PRIM DXS
C1	;IF PRIM DX IS A "V" CODE SEC MUST BE "V" CODE ALSO
E1	;CERTAIN CODES REQUIRE AN ACCEPT COMMAND
CHKHOSP	;
GETTS	;
E2	;IF CODE V30-V39 (.0) ADM SRV MUST BE NEWBORN

External References

Name	Field # of Occurrence
^%DTC	CHKHOSP+10
^APCDVCH1	CHKHOSP+13
^APCDVCH2	CHKHOSP+11
$$VD^APCLV	CHKHOSP+19, CHKHOSP+24, CHKHOSP+25
$$AGE^AUPNPAT	CHKHOSP+24, CHKHOSP+25
$$CHKE1^AUPNSICD	CHKHOSP+17
$$CODEC^ICDEX	CHKHOSP+15, SETPOV+2, SETPOV+3
$$ICDDX^ICDEX	CHKHOSP+19
$$VERSION^XPDUTL	CHKHOSP+21

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: CHKHOSP+2
Function Call: WRITE	Prompt: !,$C(7),"WARNING: No PRINCIPLE DX entered for this Hospitalization!",! Line Location: CHKHOSP+7
Function Call: WRITE	Prompt: !,$C(7),"WARNING: Multiple PRINCIPLE DXs entered for this Hospitalization!",! Line Location: CHKHOSP+8
Function Call: WRITE	Prompt: !,"External Cause code used for POV" Line Location: CHKHOSP+17
Function Call: WRITE	Prompt: !,APCDICD_" Diagnosis used" Line Location: CHKHOSP+18
Function Call: WRITE	Prompt: !,"Gender of Patient invalid for this ICD code "_APCDICD Line Location: CHKHOSP+19
Function Call: WRITE	Prompt: !,"WARNING: ICD code invalid for age, please review "_APCDICD Line Location: CHKHOSP+26
Function Call: WRITE	Prompt: !,"Age invalid for this ICD code. PLEASE REVIEW: "_APCDICD Line Location: CHKHOSP+27
Function Call: WRITE	Prompt: !,$C(7),"WARNING: Admitting Service Missing",! Line Location: GETTS+2
Function Call: WRITE	Prompt: !,$C(7),"WARNING: Discharge Service Missing",! Line Location: GETTS+3
Function Call: WRITE	Prompt: !,$C(7),"WARNING: Admitting Service Code Missing",! Line Location: GETTS+5
Function Call: WRITE	Prompt: !,$C(7),"WARNING: Discharge Service Code Missing",! Line Location: GETTS+6
Function Call: WRITE	Prompt: !,$C(7),"WARNING: Diagnosis Code ",$P(APCDVCPV("P"),U)," cannot be used as a PRIMARY DX! Please review.",! Line Location: C2+1
Function Call: WRITE	Prompt: !,$C(7),"WARNING: Primary DX is ",$P(APCDVCPV("P"),U)," therefore Admitting Service must",!,"be NEWBORN (07)!",! Line Location: E2+1
Function Call: WRITE	Prompt: !,$C(7),"WARNING: Primary DX is ",$P(APCDVCPV("P"),U)," therefore Admitting Service must",!,"be PEDIATRICS (11)!",! Line Location: E3+1
Function Call: WRITE	Prompt: !,$C(7),"WARNING: Primary DX is ",$P(APCDVCPV("P"),U)," therefore Age of Patient cannot be",!,"greater than 3 days!",! Line Location: E4+1
Function Call: WRITE	Prompt: !,$C(7),"WARNING: You have used ICD code ",APCDICD9,", please review with Your Supervisor.",! Line Location: E1W+1
Function Call: WRITE	Prompt: !,$C(7),"WARNING: The primary POV for this Hospitalization is a V Code, therefore",!,"the Secondary POVs must be V codes. Please correct this Visit.",! Line Location: C12+1

Name	Line Occurrences (* Changed, ! Killed)
^APCDINPT(2	C2+1
^APCDINPT(3	E4+1
^APCDINPT(4	E2+1, E4+1
^APCDINPT(8	E1+1, E11+1
^APCDINPT(9	CHKHOSP+26
^AUPNVINP - [#9000010.02]	GETTS+1
^AUPNVINP("AD"	CHKHOSP+1, GETTS+1
^AUPNVPOV - [#9000010.07]	CHKHOSP+15, SETPOV+1
^AUPNVPOV("AD"	CHKHOSP+15, GETPOVS+1
^AUPNVSIT - [#9000010]	CHKHOSP+24, CHKHOSP+25
^DIC(45.7 - [#45.7]	GETTS+4
^ICD9 - [#80]	CHKHOSP+23

Name	Line Occurrences
CHECKPVS	CHKHOSP+12
E11	E1+2
E1W	E1+1, E11+1
GETACC	CHKHOSP+9
GETPOVS	CHKHOSP+6
GETTS	CHKHOSP+3
SETPOV	GETPOVS+1
XIT	CHKHOSP+7, CHKHOSP+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CHKHOSP+19*, CHKHOSP+22, XIT+2!
A	CHKHOSP+20, CHKHOSP+22, CHKHOSP+23*, CHKHOSP+24, XIT+2!
APCD1	XIT+1!, GETPOVS+1, SETPOV+3, E1+2, E11+1
APCD2	XIT+1!, GETPOVS+1*, SETPOV+1, SETPOV+2, SETPOV+3
APCD3	CHKHOSP+8, XIT+1!, XIT+2!, GETPOVS+1, SETPOV+2
APCDACC	XIT+1!, GETACC+1*, E1+1, E11+1
APCDACCO	XIT+1!
APCDADM	XIT+2!
APCDAGEE	CHKHOSP+14!, CHKHOSP+16!, CHKHOSP+24, CHKHOSP+25, CHKHOSP+26, CHKHOSP+27, XIT+2!
>> APCDDATE	CHKHOSP+10
APCDDIS	XIT+2!
APCDDS	CHKHOSP+5, 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	XIT+2!
APCDFOUN	XIT+1!
APCDIACC	XIT+1!
>> APCDICD	CHKHOSP+15*, CHKHOSP+18, CHKHOSP+19, CHKHOSP+26, CHKHOSP+27
APCDICD9	XIT+1!, E1+1, E11+1, E1W+1
>> APCDICDP	CHKHOSP+15*, CHKHOSP+17, CHKHOSP+19, CHKHOSP+23
APCDOP	XIT+2!
APCDOPC	XIT+1!
APCDOPDX	XIT+1!
APCDOPP	XIT+1!
APCDPREC	XIT+1!, SETPOV+1*, SETPOV+2, SETPOV+3
APCDPX	XIT+1!
APCDSC	XIT+1!, SETPOV+1*, SETPOV+2, SETPOV+3
APCDTS	CHKHOSP+4, XIT+1!, GETTS+1, GETTS+2, GETTS+4, GETTS+5, E2+1
APCDVCPS	XIT+1!
APCDVCPV	XIT+1!, XIT+2!
APCDVCPV(	SETPOV+3*
APCDVCPV("P"	CHKHOSP+7, SETPOV+2*, C2+1, E1+1, E2+1, E4+1
APCDVCPV("S"	E1+2, E11+1
APCDVINR	XIT+1!, GETTS+1*
APCDVPRC	XIT+2!
>> APCDVREC	CHKHOSP+26
>> APCDVSIT	CHKHOSP+1, CHKHOSP+15, CHKHOSP+19, CHKHOSP+24, CHKHOSP+25, GETTS+1, GETPOVS+1
>> AUPNDAYS	CHKHOSP+10*, E4+1
>> AUPNDOB	CHKHOSP+10
>> AUPNSEX	CHKHOSP+19
B	CHKHOSP+20, CHKHOSP+22, CHKHOSP+23*, CHKHOSP+25, XIT+2!
U	CHKHOSP+15, CHKHOSP+19, CHKHOSP+22, CHKHOSP+23, CHKHOSP+24, CHKHOSP+25, CHKHOSP+26, GETTS+1, GETTS+4, SETPOV+1 , SETPOV+2, SETPOV+3, C2+1, E1+1, E2+1, E4+1, E11+1
>> X	CHKHOSP+10, CHKHOSP+15*
>> X1	CHKHOSP+10*
>> X2	CHKHOSP+10*

Customize PDF page

Package: Patient Care Component

Routine: APCDVCH

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: