Routine: APCDVCHK

Package	Total	Call Graph
IHS VA Utilities	4	$$VALI^XBDIQ1 ^XBFMK $$PROVCLSC^XBFUNC1 EN^XBNEW
Patient Care Component	4	$$ERRORCHK^APCDCAF RNU^APCDCAF4 $$FINDPEND^APCDCAF6 ^APCDVCH
VA Fileman	4	FILE^DICN ^DIE IX1^DIK ^DIR
DRG Grouper	1	$$CODEC^ICDEX
Kernel	1	$$NOW^XLFDT
Patient Care Component Reports	1	$$CLINIC^APCLV

Package

Total

Call Graph

IHS VA Utilities

$$VALI^XBDIQ1 ^XBFMK $$PROVCLSC^XBFUNC1 EN^XBNEW

Patient Care Component

$$ERRORCHK^APCDCAF RNU^APCDCAF4 $$FINDPEND^APCDCAF6 ^APCDVCH

VA Fileman

FILE^DICN ^DIE IX1^DIK ^DIR

DRG Grouper

$$CODEC^ICDEX

Kernel

$$NOW^XLFDT

Patient Care Component Reports

$$CLINIC^APCLV

Package	Total	Caller Graph
Patient Care Component	17	APCDEA2 APCDEAP APCDEAPC APCDEATC APCDEDTC APCDEFM APCDEGP0 APCDEGP1 APCDEH1 APCDEHI2 APCDEHTC APCDEL1 APCDELM APCDEM APCDPE2 APCDVMDD APCDVMRG
IHS Changes To ADT	2	ADGCALLS BDGPCCEL

Package

Total

Caller Graph

Patient Care Component

APCDEA2  APCDEAP  APCDEAPC  APCDEATC  APCDEDTC  APCDEFM  APCDEGP0  APCDEGP1
APCDEH1  APCDEHI2  APCDEHTC  APCDEL1  APCDELM  APCDEM  APCDPE2  APCDVMDD
APCDVMRG

IHS Changes To ADT

ADGCALLS BDGPCCEL

Entry Points

Name	Comments	DBIA/ICR reference
CHKER	;IHS/CMI/GRL Check for ER visit w/o V ER record
CHA	;
CHKH1	;
DISC200	;
CHKDXOP2	;
CHKCHA	;
UPDATE	;
UPD1	;
N
CHA2	;
START	;
DISC	;
CHKH	;
UPD0	;EP
CHKEHR	;
CHKEHR2	;
ADDCANT	;
R	;
CHKPRC	;check outpatient procedures vs. dx for priv. billing
UPDATEX	;

External References

Name	Field # of Occurrence
$$ERRORCHK^APCDCAF	UPD1+5
RNU^APCDCAF4	UPD1+8
$$FINDPEND^APCDCAF6	R+2
^APCDVCH	START+13
$$CLINIC^APCLV	START+18
FILE^DICN	UPDATE+2
^DIE	CHKH1+12, UPD1+2, UPD1+6, UPD1+7
IX1^DIK	ADDCANT+2
^DIR	CHKH1+6, CHKER+8
$$CODEC^ICDEX	CHKDXOP2+2
$$VALI^XBDIQ1	R+2
^XBFMK	UPD1+1, UPDATEX+2
$$PROVCLSC^XBFUNC1	DISC200+3
EN^XBNEW	R+1
$$NOW^XLFDT	UPDATE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"WARNING: No purpose of visit entered for this visit!",!,$C(7) Line Location: START+8
Function Call: WRITE	Prompt: !,"WARNING: No provider of service entered for this VISIT!",!,$C(7) Line Location: START+9
Function Call: WRITE	Prompt: !,"WARNING: No Clinic Type entered for this visit!",!,$C(7) Line Location: START+10
Function Call: WRITE	Prompt: !,"WARNING: No V Hospitalization record has been created!",$C(7) Line Location: START+11
Function Call: WRITE	Prompt: !,"WARNING: No V CHS record has been created!",$C(7) Line Location: START+12
Function Call: WRITE	Prompt: !,"WARNING: No primary provider entered for this visit!",!,$C(7) Line Location: START+15
Function Call: WRITE	Prompt: !,"WARNING: Multiple primary providers were entered for this visit!",!,$C(7) Line Location: START+16
Function Call: WRITE	Prompt: !,$C(7),"WARNING: Operation ",$$CODEC^ICDEX(80.1,$P(^AUPNVPRC(APCDPX,0),U,1))," Not for Diagnosis in V POV file!",!,"Notify your Supervisor or Correct!",! Line Location: CHKDXOP2+2
Function Call: WRITE	Prompt: !,"This visit will be exported to the Data Warehouse." Line Location: CHKH1+8
Function Call: WRITE	Prompt: !,"Don't forget to finalize the coding so this Hospitalization visit ",!,"can be exported.",! Line Location: CHKH1+9
Function Call: WRITE	Prompt: !!,"Please update the visit status for this visit.",! Line Location: N+0
Function Call: WRITE	Prompt: !!,"WARNING: COMMUNITY HEALTH NURSE RECORD - NO ACTIVITY TIME ENTERED",$C(7) Line Location: CHA2+2
Function Call: WRITE	Prompt: !!,"WARNING ... Emergency Clinic visit with NO ER record!",$C(7),! Line Location: CHKER+3
Function Call: WRITE	Prompt: !!,"updating status failed" Line Location: UPDATE+3
Function Call: WRITE	Prompt: !!,"You must enter a status" Line Location: UPD1+4
Function Call: WRITE	Prompt: !!,"This visit has the following error: ",APCDERR,!,"You cannot mark a visit as Reviewed/Completed if there is an error." Line Location: UPD1+6
Function Call: WRITE	Prompt: !!,"A chart Deficiency reason is required." Line Location: R+2
Routine Call	DIE Line Location: CHKH1+12 UPD1+2 UPD1+6 UPD1+7
Routine Call	DIR Line Location: CHKH1+6 CHKER+8

FileNo	Call Tags
^AUPNVSIT - [#9000010]	Classic Fileman Calls
^AUPNVINP - [#9000010.02]	Classic Fileman Calls
^AUPNVCA - [#9000010.45]	Classic Fileman Calls
^AUPNCANT - [#9000095]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	START+19, CHKEHR2+3
^APCDSITE - [#9001001.2]	CHKCHA+1, R+2
^AUPNCANT - [#9000095]	ADDCANT+1*
^AUPNVCA - [#9000010.45]	UPD1+3
^AUPNVCHS("AD"	START+12
^AUPNVER("AD"	CHKER+2
^AUPNVINP("AD"	START+11, CHKH1+2, CHKH1+12
^AUPNVPOV - [#9000010.07]	CHKPRC+1
^AUPNVPOV("AD"	START+8, CHKPRC+1, CHKH1+4, CHA+5
^AUPNVPRC - [#9000010.08]	CHKPRC+2, CHKDXOP2+2
^AUPNVPRC("AD"	START+17, CHKPRC+2
^AUPNVPRV - [#9000010.06]	START+14, DISC200+1
^AUPNVPRV("AD"	START+9, START+14, CHKH1+3, CHA+4, CHA+8
^AUPNVSIT - [#9000010]	START+2, START+3, START+19, CHKEHR2+2, CHKEHR2+3, UPDATE+2, ADDCANT+1
^AUPNVTM("AD"	CHA2+2
^AUTTLOC - [#9999999.06]	START+7
^VA(200 - [#200]	DISC200+2

Name	Line Occurrences
CHKCHA	CHKH+2
CHKDXOP2	CHKPRC+2
CHKEHR	START+19, CHKEHR2+3
CHKER	START+18
CHKH1	CHKH+1
CHKPRC	START+17
DISC	CHA+8
DISC200	DISC+1
R	R+2
UPD1	UPD1+4, UPD1+6
UPDATE	N
UPDATEX	UPDATE+3, UPD1+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCD1	CHKH+3!
APCD2	CHKH+3!
>> APCDCAF	CHKEHR+1
APCDCAR	UPD1+3*, UPD1+4, UPD1+6, UPD1+7, UPD1+8, UPDATEX+3!
APCDDS	CHKH+3!
APCDDX	CHKH+3!, CHKPRC+1, CHKDXOP2+1
APCDDXP	CHKH+3!, CHKPRC+1!
APCDDXP(	CHKPRC+1*, CHKDXOP2+1
APCDERR	CHKH+3!, UPD1+5*, UPD1+6
APCDFOUN	CHKH+3!, CHKDXOP2+1!*, CHKDXOP2+2
>> APCDMPQ	START+16, CHKER+10
>> APCDNOCL	START+10*
APCDOPDX	CHKH+3!, CHKPRC+2!*, CHKDXOP2+1
APCDPX	CHKH+3!, CHKPRC+2*, CHKDXOP2+2
APCDRV	CHA2+3!
APCDRV("AP"	DISC200+1*, DISC200+2, DISC200+3
APCDRV("CHA D	ISC" , DISC200+3*, DISC200+4
APCDRV("CHA"	CHA+6, CHA2+1, DISC200+5
APCDRV("DISC"	DISC200+1*
APCDRV(1	CHA+7*
APCDRV(2	CHA+7, CHA+8, DISC200+1
APCDTS	CHKH+3!
APCDVC1	START+14*, START+15, START+16, CHKH+3!
APCDVC2	START+14*, CHKH+3!
APCDVCA	UPDATE+5*, UPD1+2, UPD1+3, UPD1+6, UPDATEX+3!
APCDVCL	START+14*, CHKH+3!
APCDVCLC	START+5, START+6, START+7, START+10, CHKH+3!
APCDVCPV	CHKH+3!
APCDVREC	START+3*, START+4, START+5, START+10, START+11, START+12, START+13, START+17, CHKH+1, CHKH+3! , CHA+2, CHA+3
>> APCDVSIT	START+2, START+3, START+8, START+9, START+11, START+12, START+14, START+17, START+18, START+19 , CHKPRC+1, CHKPRC+2, CHKH1+2, CHKH1+3, CHKH1+4, CHKH1+12, CHKEHR2+2, CHKEHR2+3, CHA+4, CHA+5 , CHA+8, CHA2+2, CHKER+2, UPDATE+2, UPD1+5, UPD1+7, R+2, ADDCANT+1, ADDCANT+2
D0	UPDATE+1!, UPDATE+4!, UPD0+1!
DA	CHKH1+12, CHKER+1!, UPDATE+5, UPD1+2!, UPD1+6, UPD1+7!, ADDCANT+2
DD	UPDATE+1!, UPDATE+4!, UPD0+1!
DIADD	UPDATE+2*, UPDATE+4!, UPDATEX+1!
DIC	UPDATE+1!, UPDATE+2*, UPDATE+4!, UPD0+1!
DIC("DR"	UPDATE+2*
DIC(0	UPDATE+2*
DIE	CHKH1+12, UPD1+2!, UPD1+6, UPD1+7!
>> DIK	ADDCANT+2*
DIR	CHKH1+5!, CHKH1+6!, CHKER+1!, CHKER+8!
DIR("A"	CHKH1+6, CHKER+4, CHKER+5, CHKER+6
DIR("B"	CHKH1+6, CHKER+7
DIR(0	CHKH1+6, CHKER+4
DIRUT	CHKH1+5!, CHKH1+6*, CHKH1+7
DLAYGO	UPDATE+2*, UPDATE+4!, UPDATEX+1!
DO	UPDATE+1!, UPD0+1!
DR	CHKH1+12, UPD1+2!, UPD1+6, UPD1+7!
DT	UPD1+7
DTOUT	CHKH1+5!
DUOUT	CHKH1+5!, CHKH1+6
DUZ	UPDATE+2
DUZ("AG"	CHA+1
DUZ(2	START+19, CHKEHR2+3, CHKCHA+1, R+2
U	START+4, START+5, START+7, START+10, START+11, START+12, START+13, START+14, START+17, START+19 , CHKH+1, CHKPRC+1, CHKPRC+2, CHKDXOP2+2, CHKEHR2+2, CHKEHR2+3, CHKCHA+1, CHA+2, CHA+3, DISC200+1 , UPDATE+2, UPD1+3, R+2, ADDCANT+1
X	CHKH1+5!, CHKER+1!, UPDATE+2*
Y	CHKH1+5!, CHKH1+9, CHKER+1!, CHKER+9, CHKER+10, UPDATE+3, UPDATE+5

Customize PDF page

Package: Patient Care Component

Routine: APCDVCHK

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 19

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: