Routine: APCDVLK

Package	Total	Call Graph
Kernel	1	$$FMADD^XLFDT
Patient Care Component Reports	1	$$PRIMPROV^APCLV
VA Fileman	1	^%DT

Package	Total	Caller Graph
Patient Care Component	20	APCDACC APCDACCR APCDCAF1 APCDCAF3 APCDCVD APCDDISP APCDEAP APCDEL APCDEM APCDFINQ APCDGHVD APCDHHF APCDKUL APCDKULD APCDRETR APCDRPOV APCDVDEL APCDVMDD APCDVMRG APCHPST
Patient Care Component Reports	2	APCLSMU APCLSMU2
Quality Assurance	2	AQAOENTR AQAOPC3
IHS Patient Registration	1	AGEVC

Entry Points

Name	Comments	DBIA/ICR reference
RDV
WRITE	; WRITE VISITS FOR SELECT
XIT	; KILL VARIABLES AND QUIT
VDPASSED	; FOR CALLER PASSING VISIT DATE
SRDR
SELECT	; SELECT EXISTING VISIT

Name	Line Occurrences
Function Call: READ	Timeout: $S($D(DTIME):DTIME,1:300) Variable: X Line Location: RDV+0
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: RDV+0
Function Call: WRITE	Prompt: !!,"PATIENT: ",$P(^DPT(APCDPAT,0),U)," has one or more VISITs on this date.",! Line Location: SELECT+1
Function Call: READ	Timeout: $S($D(DTIME):DTIME,1:300) Variable: APCDVLI Line Location: SRDR+0
Function Call: WRITE	Prompt: $C(7),$C(7) Line Location: SRDR+2
Function Call: WRITE	Prompt: $C(7),$C(7) Line Location: SRDR+3
Function Call: WRITE	Prompt: !,APCDVLI," TIME: ",APCDVLT,"LOC: ",APCDVLOC," TYPE: ",$P(APCDVLX,U,3)," CAT: ",$P(APCDVLX,U,7)," CLINIC: ",$S($P(APCDVLX,U,8)]"":$E($P(^DIC(40.7,$P(APCDVLX,U,8),0),U),1,8),1:"<NONE>") Line Location: WRITE+5
Function Call: WRITE	Prompt: !?3,"Hospital Location: ",$P($G(^SC($P(APCDVLX,U,22),0)),U) Line Location: WRITE+7
Function Call: WRITE	Prompt: !?3,"Primary Provider: ",$$PRIMPROV^APCLV(APCDVLKT(APCDVLI),"N") Line Location: WRITE+8

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	VDPASSED+7, SELECT+2, XIT+1
^AUPNVSIT("AA"	VDPASSED+6, VDPASSED+7
^AUTTLOC - [#9999999.06]	WRITE+3
^DIC(40.7 - [#40.7]	WRITE+5
^DPT - [#2]	SELECT+1
^SC - [#44]	WRITE+7

Name	Field # of Occurrence
^(0	VDPASSED+7, WRITE+3, XIT+1

Name	Field # of Occurrence
>> %DT	RDV+2*
APCDA11	SELECT+2*, WRITE+6, XIT+3!
>> APCDCAT	XIT+1*
>> APCDCLN	XIT+1*
>> APCDDATE	XIT+1*
>> APCDGHVD	XIT+2*
>> APCDLOC	XIT+1*
>> APCDLOOK	APCDVLK+25, APCDVLK+26, VDPASSED+11, SRDR+4, XIT+1
>> APCDPAT	VDPASSED+6, VDPASSED+7, SELECT+1
>> APCDTYPE	XIT+1*
APCDVLDC	VDPASSED+2*, VDPASSED+5, XIT+3!
APCDVLDT	APCDVLK+27, VDPASSED+11, XIT+3!
APCDVLI	VDPASSED+2, VDPASSED+8, VDPASSED+11, SELECT+2, SRDR, SRDR+1, SRDR+2, SRDR+3, SRDR+4, WRITE+5 , WRITE+8, XIT+2, XIT+3!
APCDVLID	VDPASSED+5*, VDPASSED+6, XIT+3!
>> APCDVLK	APCDVLK+26
APCDVLKT	VDPASSED+1!, VDPASSED+10, XIT+3!
APCDVLKT(	VDPASSED+8*, SELECT+2, SRDR+3, SRDR+4, WRITE+8
APCDVLKT(1	VDPASSED+11
APCDVLL	VDPASSED+5, VDPASSED+6, VDPASSED+7, SELECT+2*, XIT+3!
APCDVLOC	WRITE+2, WRITE+3, WRITE+4*, WRITE+5, WRITE+9!, XIT+3!
APCDVLT	WRITE+1*, WRITE+5, WRITE+9!, XIT+3!
APCDVLV	VDPASSED+2, VDPASSED+7, VDPASSED+8, SELECT+3*, XIT+3!
APCDVLX	SELECT+2*, WRITE+1, WRITE+3, WRITE+5, WRITE+6, WRITE+7, XIT+3!
>> APCDVSIT	XIT+1*
DTIME	RDV, SRDR
U	APCDVLK+25*, VDPASSED+7, SELECT+1, WRITE+3, WRITE+5, WRITE+6, WRITE+7, XIT+1
>> X	RDV*, RDV+1, RDV+3
Y	APCDVLK+27*, RDV+4!, VDPASSED+2!, XIT+3!