Routine: APCDK

Package	Total	Call Graph
VA Fileman	6	C^%DTC ^DIC FILE^DICN ^DIE ^DIK $$GET1^DIQ
Patient Care Component	3	^APCDCHKJ ^APCDKDTC $$EN1^APCDKFDE
IHS Patient	1	MOD^AUPNVSIT
IHS VA Utilities	1	EN^XBNEW

Package	Total	Caller Graph
Patient Care Component	1	APCDKDE
Third Party Billing	1	ABMDVCK

Entry Points

Name	Comments	DBIA/ICR reference
ORDERLOC	;check ordering location
EN	;
UPDLOG(VF,VFI,TV,FV,RD,TYPE)	;EP - CALLED FROM APCDKDE
VENTRIES	;
PROCESS	;Get vars and process visit
EOJ	;
ENCPROV	;
NOVFILES(V)	;check to see if any vfiles, if so return a 1
UPDLOG1	;EP
LABLRO	;
CLIN	;check clinic
UPDMULT	;
ORDPROV	;
RELINK	;repoint v file entry
GVISITS	;go through all A and X visits on this date for this patient
CHECKV	;check visit to see if should be deleted
CHECK	;

External References

Name	Field # of Occurrence
C^%DTC	EN+3
^APCDCHKJ	EN+1
^APCDKDTC	EN+2
$$EN1^APCDKFDE	CHECKV+1
MOD^AUPNVSIT	RELINK+5
^DIC	UPDMULT+2
FILE^DICN	UPDLOG1+5
^DIE	EOJ+1, RELINK+2, UPDMULT+7, LABLRO+7
^DIK	PROCESS+3
$$GET1^DIQ	PROCESS+5
EN^XBNEW	UPDLOG+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LRO(68.999999901 - [#68.999999901]	Classic Fileman Calls
^AUPNVSIT - [#9000010]	Classic Fileman Calls
^APCDKLOG - [#9001003.91]	Classic Fileman Calls
^AMERVSIT - [#9009080]	GET1^DIQ
^AUTTSITE - [#9999999.39]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCDKLOG("AA"	UPDLOG1+3
^AUPNVAST("AD"	NOVFILES+32
^AUPNVBB("AD"	NOVFILES+24
^AUPNVCHS("AD"	NOVFILES+3
^AUPNVCPT("AD"	NOVFILES+15
^AUPNVDEN("AD"	NOVFILES+5
^AUPNVDXP("AD"	NOVFILES+17
^AUPNVELD("AD"	NOVFILES+28
^AUPNVER("AD"	NOVFILES+23
^AUPNVEYE("AD"	NOVFILES+4
^AUPNVHF("AD"	NOVFILES+19
^AUPNVIMM("AD"	NOVFILES+10
^AUPNVINP("AD"	NOVFILES+2
^AUPNVLAB("AD"	NOVFILES+9
^AUPNVMED("AD"	NOVFILES+13
^AUPNVMIC("AD"	NOVFILES+21
^AUPNVMSR("AD"	NOVFILES+1
^AUPNVNOT("AD"	NOVFILES+22
^AUPNVNT("AD"	NOVFILES+27
^AUPNVPHN("AD"	NOVFILES+25
^AUPNVPOD("AD"	NOVFILES+33
^AUPNVPOV("AD"	PROCESS+7, GVISITS+6, NOVFILES+7
^AUPNVPRC("AD"	NOVFILES+8
^AUPNVPRV - [#9000010.06]	GVISITS+10
^AUPNVPRV("AD"	PROCESS+8, GVISITS+7, GVISITS+10, NOVFILES+6
^AUPNVPTH("AD"	NOVFILES+20
^AUPNVRAD("AD"	NOVFILES+18
^AUPNVSIT - [#9000010]	PROCESS+1, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+6, PROCESS+9, GVISITS+1, GVISITS+5, GVISITS+8, GVISITS+9 , ORDERLOC+1, UPDLOG1+5
^AUPNVSIT("AA"	GVISITS+2, GVISITS+3
^AUPNVSIT("B"	EN+6, EN+7
^AUPNVSK("AD"	NOVFILES+11
^AUPNVTC("AD"	NOVFILES+26
^AUPNVTM("AD"	NOVFILES+16
^AUPNVTRC("AD"	NOVFILES+29
^AUPNVTRT("AD"	NOVFILES+14
^AUPNVTXC("AD"	NOVFILES+31
^AUPNVUNH("AD"	NOVFILES+30
^AUPNVXAM("AD"	NOVFILES+12
^DD(	ENCPROV+6, ENCPROV+7, ENCPROV+8, ORDPROV+3, ORDPROV+4, ORDPROV+5
^DD(9000010.06	ENCPROV+6, ENCPROV+7, ENCPROV+8, ORDPROV+3, ORDPROV+4, ORDPROV+5
^DD(9001003.91	UPDMULT+1
^DIC - [#1]	GVISITS+11, VENTRIES+1
^LRO(68.999999901 - [#68.999999901]	LABLRO+6, LABLRO+7
^VA(200 - [#200]	ENCPROV+6, ORDPROV+3

Label References

Name	Line Occurrences
$$NOVFILES	PROCESS+3
CHECK	VENTRIES+2
CHECKV	GVISITS+3
CLIN	ORDPROV+2, ORDPROV+6
EOJ	EN+9
LABLRO	RELINK+4
ORDPROV	ENCPROV+3, ENCPROV+5, ENCPROV+9
PROCESS	EN+7
RELINK	ENCPROV+10, ENCPROV+11, ORDPROV+7, ORDPROV+8, ORDERLOC+1
UPDLOG	RELINK+7
UPDMULT	UPDLOG1+4
VENTRIES	GVISITS+11

Naked Globals

Name	Field # of Occurrence
^(0	GVISITS+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCDFILE	LABLRO+3~*, LABLRO+4
APCDK	EOJ+4!
APCDK("DATE"	EN+3*, EN+6
APCDK("RELINK"	EN+4*
APCDK("VISITS"	EN+4*
APCDK12N	EOJ+4!, CHECK+1, CHECK+2, CHECK+3, CHECK+4, ENCPROV+5, ENCPROV+6, ENCPROV+7, ENCPROV+8, ORDPROV+2 , ORDPROV+3, ORDPROV+4, ORDPROV+5, ORDERLOC+1
APCDKAVC	EOJ+4!, GVISITS+1*, GVISITS+2
APCDKAVD	EOJ+4!, GVISITS+1, GVISITS+2, GVISITS+3
>> APCDKDPP	GVISITS+10*, ENCPROV+10, ORDPROV+7
APCDKDSP	EOJ+4!, GVISITS+10*, ENCPROV+11, ORDPROV+8
APCDKDVR	EOJ+4!
APCDKHI	EOJ+4!
APCDKIEN	LABLRO+6!*, LABLRO+7, LABLRO+8!
APCDKIGR	EOJ+4!, VENTRIES+1*, VENTRIES+2
APCDKMM	EOJ+4!
APCDKNV	EOJ+4!
APCDKORD	LABLRO+4*, LABLRO+5, LABLRO+6, LABLRO+8!
APCDKPAT	EOJ+4!
APCDKV	EN+7*, EOJ+4!, PROCESS+1, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+8 , PROCESS+9, GVISITS+1, GVISITS+4, GVISITS+8, RELINK+7, LABLRO+6, CHECKV+1
APCDKVCT	EOJ+4!
APCDKVD	EN+6*, EN+7, EN+8!
APCDKVDG	EOJ+4!, VENTRIES+1*, CHECK+1, RELINK+2, LABLRO+3
APCDKVFL	EOJ+4!, GVISITS+11*, VENTRIES+1, ENCPROV+3, ENCPROV+6, ENCPROV+7, ENCPROV+8, ORDPROV+3, ORDPROV+4, ORDPROV+5 , RELINK+4, RELINK+7
>> APCDKVFP	ENCPROV+4, ENCPROV+6, ENCPROV+7, ENCPROV+8, ENCPROV+9, ENCPROV+10, ENCPROV+11, ORDPROV+1, ORDPROV+3, ORDPROV+4* , ORDPROV+5*, ORDPROV+6, ORDPROV+7, ORDPROV+8
APCDKX	EOJ+4!
>> APCDKXVS	GVISITS+1, GVISITS+3, GVISITS+4, GVISITS+5, GVISITS+6, GVISITS+7, GVISITS+8, GVISITS+9, GVISITS+10, ORDERLOC+1 , RELINK+2, RELINK+5, RELINK+7, LABLRO+7
APCDLOGX	UPDLOG1+1~, UPDLOG1+3, UPDLOG1+4!, UPDLOG1+6, UPDMULT+1
APCDRUND	EN+4*, EOJ+4!, RELINK+7
APCDVDFN	EOJ+4!, VENTRIES+2*, CHECK+1, RELINK+2, RELINK+7
>> APCDVI	VENTRIES+2*
AUPNVSIT	RELINK+5~*
D0	UPDLOG1+5!
DA	EOJ+1!, EOJ+5!, PROCESS+3, RELINK+2!, UPDLOG1+2~, UPDMULT+5, UPDMULT+8!, LABLRO+7*!
DA(1	UPDMULT+1*
DD	UPDLOG1+5!
>> DFN	PROCESS+3, PROCESS+5, PROCESS+9, GVISITS+2, GVISITS+3
DIADD	UPDLOG1+2~, UPDLOG1+5*!
DIC	EOJ+5!, UPDLOG1+2~, UPDLOG1+5!, UPDMULT+1, UPDMULT+4!, UPDMULT+8!
DIC("DR"	UPDLOG1+5*
DIC("P"	UPDMULT+1*
DIC(0	UPDLOG1+5, UPDMULT+1
DIE	EOJ+1!, EOJ+5!, RELINK+2!, UPDLOG1+2~, UPDMULT+4, UPDMULT+8!, LABLRO+7!
>> DIK	PROCESS+3*
DITC	RELINK+2*!
DIU	EOJ+5!, RELINK+2!
DIV	EOJ+5!, RELINK+2!
DLAYGO	UPDLOG1+2~, UPDLOG1+5*!
DO	UPDLOG1+5!
DR	EOJ+1!, EOJ+5!, RELINK+2!, UPDLOG1+2~, UPDMULT+6, UPDMULT+8!, LABLRO+7!
DT	EN+3, EN+4, PROCESS+3
FV	UPDLOG~, UPDLOG1+3, UPDLOG1+5
I	ENCPROV+11, ORDPROV+8, LABLRO+6*, LABLRO+8!
P	GVISITS+10~
RD	UPDLOG~, UPDLOG1+3, UPDLOG1+5
S	GVISITS+10~*
TV	UPDLOG~, UPDLOG1+5
TYPE	UPDLOG~, UPDLOG1+5
U	EN+4*, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+6, PROCESS+9, GVISITS+1, GVISITS+5, GVISITS+8, GVISITS+9 , GVISITS+10, ENCPROV+5, ENCPROV+6, ENCPROV+7, ENCPROV+8, ENCPROV+11, ORDPROV+2, ORDPROV+3, ORDPROV+4, ORDPROV+5 , ORDPROV+8, ORDERLOC+1, UPDLOG1+5, UPDMULT+1, LABLRO+4, LABLRO+6, LABLRO+7
V	NOVFILES~, NOVFILES+1, NOVFILES+2, NOVFILES+3, NOVFILES+4, NOVFILES+5, NOVFILES+6, NOVFILES+7, NOVFILES+8, NOVFILES+9 , NOVFILES+10, NOVFILES+11, NOVFILES+12, NOVFILES+13, NOVFILES+14, NOVFILES+15, NOVFILES+16, NOVFILES+17, NOVFILES+18, NOVFILES+19 , NOVFILES+20, NOVFILES+21, NOVFILES+22, NOVFILES+23, NOVFILES+24, NOVFILES+25, NOVFILES+26, NOVFILES+27, NOVFILES+28, NOVFILES+29 , NOVFILES+30, NOVFILES+31, NOVFILES+32, NOVFILES+33
VF	UPDLOG~, UPDMULT+1
VFI	UPDLOG~, UPDMULT+6
X	EN+3, GVISITS+10~, ENCPROV+11, ORDPROV+8, UPDLOG1+2~, UPDLOG1+5!, UPDMULT+1, UPDMULT+8!, CHECKV+1
>> X1	EN+3*
>> X2	EN+3*
>> Y	UPDLOG1+6, UPDMULT+5
>> ZTQUEUED	EOJ+3
>> ZTREQ	EOJ+3*

Customize PDF page

Package: Patient Care Component

Routine: APCDK

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 2

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: