Routine: APCDDVE

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Interaction Calls
Global Variables Directly Accessed
Label References
Local Variables

Package	Total	Call Graph
VA Fileman	3	DD^%DT C^%DTC ^DIR
IHS Patient	2	$$HRN^AUPNPAT DEL^AUPNVSIT
IHS VA Utilities	2	^XBDBQUE $$VALI^XBDIQ1
Patient Care Component	2	UPDLOG^APCDVDEL ^APCDVM2
Kernel	1	($$FMADD,$$FMTE)^XLFDT
Patient Care Component Reports	1	$$VD^APCLV

Package

Total

Call Graph

VA Fileman

DD^%DT C^%DTC ^DIR

IHS Patient

$$HRN^AUPNPAT DEL^AUPNVSIT

IHS VA Utilities

^XBDBQUE $$VALI^XBDIQ1

Patient Care Component

UPDLOG^APCDVDEL ^APCDVM2

Kernel

($$FMADD,$$FMTE)^XLFDT

Patient Care Component Reports

$$VD^APCLV

Entry Points

Name	Comments	DBIA/ICR reference
RDPV	; Determine to run by Posting date or Visit date
BD	;get beginning date
REPORT	;
DONE	;
PRINT	;EP
PV	;
V1	;
MRG1	;call visit merge utility
HEAD	;
ZIS	;call xbdbque
ED	;get ending date
DRIVER	;EP entry point for taskman
PRN1	;print each set of visits
P	; Run by Posting date
XIT	;EP
V	; Run by visit date
MRG	;find all visits that could be merged to visit in APCDVSIT
HEAD2	;
SETTMP	;set tmp for report
HEAD1	;
START	;EP - called from option
PROCESS	;process report
DE2	;
GETDATES	;
PROC	;

External References

Name	Field # of Occurrence
DD^%DT	ED+1
C^%DTC	ED+4
UPDLOG^APCDVDEL	MRG1+3
^APCDVM2	MRG1+1
$$VD^APCLV	MRG+6
$$HRN^AUPNPAT	PRN1+4, PRN1+6
DEL^AUPNVSIT	MRG1+4
^DIR	RDPV+3, BD+1, ED+1, REPORT+2, DONE+1, HEAD+1
^XBDBQUE	ZIS+2
$$VALI^XBDIQ1	SETTMP+2, SETTMP+4
$$FMADD^XLFDT	DRIVER+3
$$FMTE^XLFDT	PRN1+4, PRN1+6, HEAD2+2, HEAD2+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will go through the visit file, find all instances where there",!,"are 2 'E - Historical Event' visits on the same day to the same location",!,"and AUTOMATICALLY merge them together.",! Line Location: START+2
Function Call: WRITE	Prompt: !,"You will be asked for a date range for which to run this report.",!,"It takes a long time to process so you may want to queue it to run after hours." Line Location: START+3
Function Call: WRITE	Prompt: !,"You may optionally receive a report detailing which visits where merged ",!,"together.",!! Line Location: START+4
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !!,"NO Event Visits in the date range were auto merged.",! Line Location: PRINT+4
Function Call: WRITE	Prompt: !!,"FROM VISIT: ",?14,$$FMTE^XLFDT($P($P(F,U),"."),"5D"),?26,$$HRN^AUPNPAT($P(F,U,4),DUZ(2),2),?41,$P(^AUTTLOC($P(F,U,5),0),U,7),?47,$P(F,U,6),?65,$P(F,U,7) Line Location: PRN1+4
Function Call: WRITE	Prompt: !,?65,$P(^XTMP("APCDDVE",APCDJOB,APCDBT,"E MERGE",APCDC,"FROM"),U,X) Line Location: PRN1+5
Function Call: WRITE	Prompt: !," TO VISIT: ",?14,$$FMTE^XLFDT($P(T,U),"5D"),?26,$$HRN^AUPNPAT($P(T,U,4),DUZ(2),2),?41,$P(^AUTTLOC($P(T,U,5),0),U,7),?47,$P(T,U,6),?65,$P(T,U,7) Line Location: PRN1+6
Function Call: WRITE	Prompt: !,?65,$P(^XTMP("APCDDVE",APCDJOB,APCDBT,"E MERGE",APCDC,"TO"),U,X) Line Location: PRN1+7
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !,$P(^VA(200,DUZ,0),U,2),?50,$$FMTE^XLFDT(DT),?72,"Page ",APCDPG,! Line Location: HEAD2+2
Function Call: WRITE	Prompt: !?29,"PCC Data Entry Module" Line Location: HEAD2+3
Function Call: WRITE	Prompt: !?23,"*********************************" Line Location: HEAD2+4
Function Call: WRITE	Prompt: !?23,"* VISIT REVIEW ERROR REPORT *" Line Location: HEAD2+5
Function Call: WRITE	Prompt: !?23,"*********************************" Line Location: HEAD2+6
Function Call: WRITE	Prompt: !?((80-$L(X))/2),X Line Location: HEAD2+8
Function Call: WRITE	Prompt: !!,"Report of Visits Merged for ",$S(APCDPROC="P":"Posting",APCDPROC="V":"VISIT",1:"Posting")," Date Range: ",$$FMTE^XLFDT(APCDBD,"5D")," through ",$$FMTE^XLFDT(APCDED,"5D") Line Location: HEAD2+9
Function Call: WRITE	Prompt: !,$TR($J(" ",80)," ","-") Line Location: HEAD2+10
Routine Call	DIR Line Location: RDPV+3 BD+1 ED+1 REPORT+2 DONE+1 HEAD+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	P+2, V1+1, PROC+1, PROC+2, PROC+3, PROC+4, PROC+5, MRG+2, MRG+3, MRG+4 , MRG+7, MRG+8, MRG+9, MRG+10, MRG1+2*
^AUPNVSIT("AC"	MRG+1
^AUPNVSIT("ADWO"	PV+1
^AUPNVSIT("AMRG"	P+1
^AUPNVSIT("B"	V+1, V+2, V1+1
^AUTTLOC - [#9999999.06]	PRN1+4, PRN1+6
^AUTTSITE(1	RDPV+2
^DIC - [#1]	SETTMP+3, SETTMP+5, DE2+1, DE2+2
^VA(200 - [#200]	HEAD2+2
^XTMP("APCDDVE"	DRIVER+2!, DRIVER+3, PRINT+4, PRINT+5, DONE+3!, PRN1+2, PRN1+3, PRN1+5, PRN1+7, SETTMP+2 , SETTMP+4, DE2+2

Name	Line Occurrences
@(	PRINT+3, PROCESS+1
BD	ED+2
DE2	SETTMP+3, SETTMP+5
DONE	PRINT+2, PRINT+4
GETDATES	REPORT+3
HEAD	PRN1+1
MRG	PROC+6
MRG1	MRG+12
PRN1	PRINT+5
PROC	P+2, PV+1, V1+1
PROCESS	DRIVER+4
SETTMP	MRG+11
V1	V+2
XIT	RDPV+4, BD+2, ZIS+3, DONE+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	XIT+2!, SETTMP+2, SETTMP+4
>> %1	SETTMP+2, SETTMP+4
%DT	XIT+2!
%ZIS	XIT+2!
APCDBD	BD+3*, ED+1, ED+4, XIT+1!, HEAD2+9
APCDBDFN	XIT+1!, P+1*, P+2
APCDBEEP	RDPV+1*, XIT+1!
APCDBT	DRIVER+1*, DRIVER+2, PRINT+4, PRINT+5, DONE+3, PRN1+2, PRN1+3, PRN1+5, PRN1+7, XIT+1! , SETTMP+2, SETTMP+4, DE2+2
APCDC	DRIVER+1, PRINT+5, PRN1+2, PRN1+3, PRN1+5, PRN1+7, XIT+1!, SETTMP+2*, SETTMP+4, DE2+2
APCDED	ED+3*, XIT+1!, P+2, V+2, HEAD2+9
APCDET	DRIVER+5*, XIT+1!
APCDJOB	DRIVER+1*, DRIVER+2, PRINT+4, PRINT+5, DONE+3, PRN1+2, PRN1+3, PRN1+5, PRN1+7, XIT+1! , SETTMP+2, SETTMP+4, DE2+2
APCDODAT	XIT+1!, PV+1, V+1, V+2, V1+1
APCDP	XIT+1!, SETTMP+3, SETTMP+5, DE2+2*
APCDPG	PRINT+1, XIT+1!, HEAD2+1, HEAD2+2
APCDPROC	RDPV+5*, BD+1, ED+1, XIT+1!, PROCESS+1, HEAD2+9
APCDQUIT	PRINT+1, PRINT+5, DONE+1, PRN1+1, XIT+1!, HEAD+1
APCDRPT	REPORT+1, REPORT+4, DRIVER+3, PRINT+2, XIT+1!, SETTMP+1
APCDSD	ED+4*, XIT+1!, P+1, V+1, V+2
APCDSITE	RDPV+1, RDPV+2, XIT+1!
APCDV	XIT+1!, MRG+1*, MRG+2, MRG+3, MRG+4, MRG+5, MRG+6, MRG+7, MRG+8, MRG+9 , MRG+10, MRG1+1, SETTMP+5
>> APCDVDFN	DE2+2*
>> APCDVDG	DE2+1*
>> APCDVFLE	SETTMP+3, SETTMP+5, DE2+1, DE2+2
>> APCDVIGR	DE2+1*, DE2+2
>> APCDVIST	SETTMP+3, SETTMP+5
APCDVMF	MRG1+1*, MRG1+2, MRG1+3, MRG1+4, MRG1+5!
APCDVMT	MRG1+1*, MRG1+3, MRG1+5!
APCDVREC	XIT+1!, PROC+5*, MRG+7, MRG+8, MRG+9
APCDVSIT	XIT+1!, P+2, PV+1, V1+1*, PROC+1, PROC+2, PROC+3, PROC+4, PROC+5, MRG+5 , MRG+6, MRG+10, MRG1+1, SETTMP+2, SETTMP+3, SETTMP+4
AUPNVSIT	MRG1+4*, MRG1+5!
DA	REPORT+2!
DFN	XIT+1!, PROC+5*, MRG+1
DIR	RDPV+3!, BD+1!, ED+1!, REPORT+2!, DONE+1!, HEAD+1!
DIR("A"	RDPV+3, BD+1, ED+1, REPORT+2
DIR("B"	RDPV+3, ED+1, REPORT+2*
DIR(0	RDPV+3, BD+1, ED+1, REPORT+2, DONE+1, HEAD+1
>> DIRUT	RDPV+3, RDPV+4, BD+1, BD+2, ED+1*, ED+2, REPORT+3
DLOUT	XIT+2!
DT	DRIVER+3, HEAD2+2
>> DTOUT	HEAD+1
DUOUT	RDPV+3, BD+1, ED+1, XIT+2!
DUZ	HEAD2+2
DUZ(2	RDPV+1, RDPV+2, PRN1+4, PRN1+6
>> F	PRN1+2*, PRN1+4
IO	DONE+1, HEAD+1
IO("Q"	XIT+2!
IO(0	DONE+1, HEAD+1
IOF	START+1, DONE+2, HEAD1+1
IOSL	PRN1+1
IOST	PRINT+3, DONE+1, HEAD+1
>> T	PRN1+3*, PRN1+6
U	DRIVER+3, PRN1+4, PRN1+5, PRN1+6, PRN1+7, P+2, PROC+1, PROC+2, PROC+3, PROC+4 , PROC+5, MRG+2, MRG+3, MRG+4, MRG+7, MRG+8, MRG+9, MRG+10, MRG1+2, SETTMP+2 , SETTMP+4, DE2+2, HEAD2+2
X	ED+4, PRN1+5, PRN1+7, XIT+2!, MRG+10, HEAD2+7, HEAD2+8
X1	ED+4*, XIT+2!
X2	ED+4*, XIT+2!
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	RDPV+5, BD+3, ED+1, ED+3, REPORT+4, XIT+2!, MRG+10*, HEAD+1

Customize PDF page

Package: Patient Care Component

Routine: APCDDVE

Information

Source Information