Routine: ADEAPC

Package	Total	Call Graph
Patient Care Component	3	EN^APCDALV EN^APCDALVR GETVISIT^APCDAPI4
VA Fileman	3	^%DT (,UPDATE)^DIE ^DIR
IHS Dental System	2	(,BULLT,DENTRY,DENTRY3,VPOV,VPRV)^ADEAPC1 (,ADDPCC)^ADEAPC2
IHS Patient	1	MOD^AUPNVSIT
IHS VA Utilities	1	$$VAL^XBDIQ1
MailMan	1	^XMB
Patient Care Component Reports	1	$$PRIMPROV^APCLV

Package

Total

Call Graph

Patient Care Component

EN^APCDALV EN^APCDALVR GETVISIT^APCDAPI4

VA Fileman

^%DT (,UPDATE)^DIE ^DIR

IHS Dental System

(,BULLT,DENTRY,DENTRY3,VPOV,VPRV)^ADEAPC1 (,ADDPCC)^ADEAPC2

IHS Patient

MOD^AUPNVSIT

IHS VA Utilities

$$VAL^XBDIQ1

MailMan

^XMB

Patient Care Component Reports

$$PRIMPROV^APCLV

Package	Total	Caller Graph
IHS Dental System	2	ADEFIX01 ADEGRL6

Package

Total

Caller Graph

IHS Dental System

ADEFIX01 ADEGRL6

Entry Points

Name	Comments	DBIA/ICR reference
END
VMOD
BULLT
INTERACT	;
CONTRACT	;IHS/SET/HMW 2-6-2003 Modified this subroutine to append ` to APCDALVR("APCDCLN")
DSERV
WRITE	; WRITE VISITS FOR SELECT
REV(ADEV)	;IHS/OIT/HMW 9-22-2005 16Mark visit as reviewed
BSDADD1	;
VISIT(ADEV,ADEADD)	;
SELECT	; SELECT EXISTING VISIT

External References

Name	Field # of Occurrence
^%DT	BULLT
^ADEAPC1	ADEAPC+29, ADEAPC+41
BULLT^ADEAPC1	ADEAPC+48
DENTRY^ADEAPC1	ADEAPC+46
DENTRY3^ADEAPC1	ADEAPC+47
VPOV^ADEAPC1	ADEAPC+67
VPRV^ADEAPC1	ADEAPC+65
^ADEAPC2	ADEAPC+27
ADDPCC^ADEAPC2	ADEAPC+69
EN^APCDALV	VISIT+7
EN^APCDALVR	VMOD
GETVISIT^APCDAPI4	VISIT+6, VISIT+22, VISIT+38, BSDADD1+4
$$PRIMPROV^APCLV	WRITE+9
MOD^AUPNVSIT	ADEAPC+62
^DIE	ADEAPC+62
UPDATE^DIE	REV+3
^DIR	SELECT+7
$$VAL^XBDIQ1	WRITE+10
^XMB	BULLT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"PATIENT: ",$P(^DPT(ADEPAT,0),U)," has one or more VISITs on this date.",!,"If one of these is your visit, please select it",! Line Location: SELECT+3
Function Call: WRITE	Prompt: !,ADEC," Create New Visit",! Line Location: SELECT+5
Function Call: WRITE	Prompt: !,ADEC," TIME: ",ADEVLT,"LOC: ",ADEVLOC," TYPE: ",$P(ADEX,U,3)," CAT: ",$P(ADEX,U,7)," CLINIC: ",$S($P(ADEX,U,8)]"":$E($P(^DIC(40.7,$P(ADEX,U,8),0),U),1,8),1:"<NONE>") Line Location: WRITE+6
Function Call: WRITE	Prompt: !?3,"Hospital Location: ",$P($G(^SC($P(ADEX,U,22),0)),U) Line Location: WRITE+8
Function Call: WRITE	Prompt: !?3,"Provider on Visit: ",ADETIU Line Location: WRITE+9
Function Call: WRITE	Prompt: !?3,"Dental ADA Codes: ",ADEB Line Location: WRITE+11
Routine Call	DIE Line Location: REV+3
Routine Call	DIE Line Location: ADEAPC+62
Routine Call	DIR Line Location: SELECT+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ADEPARAM - [#9002006]	ADEAPC+6, ADEAPC+16, ADEAPC+18, VISIT+25
^ADEPCD - [#9002007]	ADEAPC+9, ADEAPC+26, ADEAPC+53, DSERV+1, DSERV+3
^AUPNVDEN("AD"	VISIT+31, WRITE+10
^AUPNVPOV("AD"	ADEAPC+67
^AUPNVPRV - [#9000010.06]	ADEAPC+57, ADEAPC+58, ADEAPC+59
^AUPNVPRV("AD"	ADEAPC+51, ADEAPC+54
^AUPNVSIT - [#9000010]	SELECT+4
^AUTTADA - [#9999999.31]	DSERV+4
^AUTTLOC - [#9999999.06]	WRITE+4
^AUTTSITE(1	ADEAPC+6, ADEAPC+16, ADEAPC+18, VISIT+25
^DD("DD"	BULLT
^DD(9000010.06	ADEAPC+53
^DIC(16 - [#16]	ADEAPC+53
^DIC(40.7 - [#40.7]	ADEAPC+11, CONTRACT+3, WRITE+6
^DPT - [#2]	BULLT+1, SELECT+3
^SC - [#44]	WRITE+8

Name	Line Occurrences
BSDADD1	SELECT+8, SELECT+9
BULLT	ADEAPC+34
CONTRACT	ADEAPC+22
DSERV	ADEAPC+24
INTERACT	VISIT+25
VISIT	ADEAPC+33
VMOD	ADEAPC+28
WRITE	SELECT+4

Name	Field # of Occurrence
^(0	ADEAPC+9, WRITE+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	BULLT*
ADEA	SELECT+1~, SELECT+4, WRITE+10
ADEADA	END!
ADEADA(	DSERV+5*
ADEADD	ADEAPC+31~, ADEAPC+32, ADEAPC+33, ADEAPC+38, VISIT~, VISIT+3, VISIT+10, VISIT+29, VISIT+33, VISIT+41 , INTERACT+3, BSDADD1+7
>> ADEAPC("ADELOC"	ADEAPC+15, ADEAPC+16, ADEAPC+18, ADEAPC+20!
>> ADEAPC("ADETYP"	ADEAPC+17, ADEAPC+18, ADEAPC+19, ADEAPC+20!
ADEB	SELECT+1~, WRITE+10*, WRITE+11
ADEBSD	VISIT+2~, VISIT+22, VISIT+38, BSDADD1+4
ADEBSD("CLINI	C CODE" , VISIT+19*
ADEBSD("FORCE	ADD" , VISIT+37, SELECT+8, SELECT+9, BSDADD1+3
ADEBSD("PAT"	VISIT+13*
ADEBSD("SITE"	VISIT+15*
ADEBSD("SRV C	AT" , VISIT+17*
ADEBSD("TIME	RANGE" , VISIT+18*
ADEBSD("USR"	VISIT+20*
ADEBSD("VISIT	DATE" , VISIT+14, TYPE" , VISIT+16
ADEBSOUT	VISIT+2~, VISIT+22, VISIT+38, BSDADD1+4
ADEBSOUT(	VISIT+28, VISIT+29, INTERACT+3, SELECT+4
ADEBSOUT(0	VISIT+39, VISIT+40, INTERACT+3, BSDADD1+5, BSDADD1+6
ADEC	END!, DSERV+1, SELECT+1~, SELECT+4, SELECT+5, SELECT+7, SELECT+9, WRITE+1, WRITE+6
>> ADECON	CONTRACT+1
ADEDA	ADEAPC+52~, ADEAPC+54*, ADEAPC+56
>> ADEDFN	ADEAPC+9, ADEAPC+26, ADEAPC+53, ADEAPC+69, DSERV+1, DSERV+3
ADEFDA	REV+1~
ADEFDA(9000010	REV+2*
ADEHIT	ADEAPC+44~, ADEAPC+45, ADEAPC+59, ADEAPC+65, VISIT+2~, VISIT+3, VISIT+28, VISIT+29, VISIT+33, INTERACT+3
ADEI	END!, DSERV+1*, DSERV+5, DSERV+6, DSERV+7, DSERV+8, DSERV+9
ADEIEN	REV+1~
ADEMSG	REV+1~
>> ADENEWVS	ADEAPC+25
ADENOD	DSERV+2~, DSERV+3*, DSERV+4, DSERV+5, DSERV+7, DSERV+8, DSERV+9
ADEOP	END!
ADEOP(	DSERV+7*
>> ADEPAT	ADEAPC+10, VISIT+13, BULLT+1, SELECT+3
ADEPRV	ADEAPC+52~, ADEAPC+53*, ADEAPC+59
ADEQTY	END!
ADEQTY(	DSERV+6*
ADESER	END!, DSERV, DSERV+1, DSERV+3
ADETFEE	END+2!
ADETFEE(	DSERV+8*
>> ADETIU	WRITE+9*
ADETSUR	END+1!
ADETSUR(	DSERV+9*
ADEV	ADEAPC+31~, ADEAPC+32, ADEAPC+33, ADEAPC+34, ADEAPC+37, ADEAPC+40~, ADEAPC+51, ADEAPC+54, ADEAPC+67, ADEAPC+69 , END!, REV~, REV+2, VISIT~, VISIT+3, VISIT+8, VISIT+9, VISIT+28, VISIT+29, VISIT+31 , VISIT+36, VISIT+40, INTERACT+3, SELECT+2, SELECT+10, BSDADD1+2, BSDADD1+6
ADEV1	SELECT+1~, SELECT+4!*, WRITE+1, WRITE+9, WRITE+10
ADEVLOC	SELECT+1~, WRITE+3, WRITE+4, WRITE+5*, WRITE+6
ADEVLT	SELECT+1~, WRITE+2*, WRITE+6
ADEVPRV	ADEAPC+52~
ADEW	ADEAPC+44~, ADEAPC+47
ADEX	END!, SELECT+1~, SELECT+4*, WRITE+2, WRITE+4, WRITE+6, WRITE+7, WRITE+8
>> ADEX1(	SELECT+10, WRITE+1*
>> ADEX11	SELECT+4*, WRITE+7
ADEY	END!
APCDALVR	ADEAPC+7!, ADEAPC+52~, END!, VISIT+21~
APCDALVR("APCDACS"	ADEAPC+13*
APCDALVR("APCDAFLG"	VISIT+8, VMOD+1
APCDALVR("APCDATMP"	VMOD*
APCDALVR("APCDCLN"	ADEAPC+11, ADEAPC+12, VISIT+19, CONTRACT+3, CONTRACT+4
APCDALVR("APCDDATE"	ADEAPC+9*, VISIT+14
APCDALVR("APCDLOC"	ADEAPC+9*, ADEAPC+15, VISIT+15
APCDALVR("APCDPAT"	ADEAPC+10*
APCDALVR("APCDTNQ"	CONTRACT+5*
APCDALVR("APCDTYPE"	ADEAPC+14, ADEAPC+19, VISIT+16, CONTRACT+2*
APCDALVR("APCDVSIT"	ADEAPC+37*, VISIT+9
>> APCDANE	ADEAPC+8*
>> APCDAUTO	ADEAPC+8*
>> AUPNTALK	ADEAPC+8*
DA	ADEAPC+52~, ADEAPC+55~, ADEAPC+56*, ADEAPC+57, ADEAPC+58, ADEAPC+59, SELECT+7!
DIE	ADEAPC+52~, ADEAPC+60*
DIR	SELECT+6!, SELECT+7!
DIR("A"	SELECT+7*
DIR(0	SELECT+7*
>> DIRUT	SELECT+8
>> DR	ADEAPC+61*
DUZ	VISIT+20
U	ADEAPC+9, ADEAPC+18, ADEAPC+53, ADEAPC+58, ADEAPC+59, VISIT+25, DSERV+4, DSERV+5, DSERV+7, DSERV+8 , DSERV+9, BULLT+1, INTERACT+3, SELECT+3, WRITE+4, WRITE+6, WRITE+7, WRITE+8
>> V	INTERACT+3*
>> X	BULLT*
XMB	ADEAPC+44~, ADEAPC+48, END!, BULLT+1*
XMB(1	BULLT+1*
XMB(2	BULLT+1*
XMB(6	BULLT+1*
XMB(7	VMOD+1*
>> XMDUZ	BULLT+1*
Y	END!, BULLT+1, SELECT+9, SELECT+10

Customize PDF page

Package: IHS Dental System

Routine: ADEAPC

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items