Routine: APCDRLR

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT
VA Fileman	4	(,DD)^%DT C^%DTC ^DIK ^DIR
IHS VA Utilities	3	^XBDBQUE $$VAL^XBDIQ1 EN^XBVK
IHS Patient	1	($$HRN,KILL)^AUPNPAT
Patient Care Component Reports	1	($$DEMO,DEMOCHK)^APCLUTL

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
DEMO	;
PURGERL	;EP - CALLED FROM OPTION
PURGE	;
TSKMN	;
PRINT	;EP - called from xbdbque
BROWSE	;
CTR(X,Y)	;EP - Center X in a field Y wide.
INIT	;
HEADER1	;
EOJ	;
DATE(D)	;EP
GETDATE	;
ZIS	;
XTMP(N,D)	;EP - set xtmp 0 node
ED	;get ending date
DRIVER	;
HEADER	;EP
XIT	;
START	;EP - called from option
ZIS1
GETDATES	;
PROC	;EP - called from xbdbque

External References

Name	Field # of Occurrence
^%DT	GETDATE+2
DD^%DT	ED+1, ED+4
C^%DTC	ED+4, PROC+4
^%ZIS	ZIS1
^%ZISC	EOJ+3
^%ZTLOAD	TSKMN+2
$$DEMO^APCLUTL	PROC+7
DEMOCHK^APCLUTL	DEMO+1
$$HRN^AUPNPAT	PRINT+12
KILL^AUPNPAT	XIT+2
^DIK	PURGE+3
^DIR	BD+1, ED+1, ZIS+1, HEADER+2
^XBDBQUE	ZIS+5, BROWSE+2
$$VAL^XBDIQ1	PRINT+24
EN^XBVK	XIT+1
$$FMADD^XLFDT	XTMP+2
$$FMTE^XLFDT	PRINT+6, PRINT+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will print a list of visits on which a V File (ancillary" Line Location: START+3
Function Call: WRITE	Prompt: !,"data item was 'moved' or 're-linked' from one visit to another during the" Line Location: START+4
Function Call: WRITE	Prompt: !,"nightly visit re-linker process or during the post data entry visit re-linking" Line Location: START+5
Function Call: WRITE	Prompt: !,"process.",! Line Location: START+6
Function Call: WRITE	Prompt: !,"You will be asked to enter the date range on which the nightly" Line Location: START+7
Function Call: WRITE	Prompt: !,"visit re-linker was run.",! Line Location: START+8
Function Call: WRITE	Prompt: !!,"Please enter the range of dates on which the 're-linking' occurred." Line Location: GETDATES+1
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !! Line Location: ZIS+4
Function Call: WRITE	Prompt: !!,"There are no visits in the Visit Relinker Log for that time period.",! Line Location: PRINT+2
Function Call: WRITE	Prompt: ?17,$E(APCDX,1,12),?31,"Ordering Prv: ",$E(APCDP,1,25),?75,"# ",APCDA(APCDX,APCDP) Line Location: PRINT+29
Function Call: WRITE	Prompt: !!,"Total # of Visits: ",APCDTOT,! Line Location: PRINT+31
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !?13,"******** CONFIDENTIAL PATIENT INFORMATION ********" Line Location: HEADER1+2
Function Call: WRITE	Prompt: !?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),?($S(80=132:120,1:72)),"Page ",APCDPG,! Line Location: HEADER1+3
Function Call: WRITE	Prompt: !?(80-$L(APCDTEXT)/2),APCDTEXT,! Line Location: HEADER1+5
Function Call: WRITE	Prompt: ?(80-$L(APCDTEXT)/2),APCDTEXT,! Line Location: HEADER1+7
Function Call: WRITE	Prompt: $TR($J(" ",80)," ","-") Line Location: HEADER1+8
Function Call: WRITE	Prompt: !,?25,"TO VISIT",?53,"FROM VISIT" Line Location: HEADER1+9
Function Call: WRITE	Prompt: !,"HRN",?7,"PATIENT",?25,"DATE/TIME (IEN)",?53,"DATE/TIME (IEN)" Line Location: HEADER1+10
Function Call: WRITE	Prompt: !,$TR($J(" ",80)," ","-") Line Location: HEADER1+11
Function Call: WRITE	Prompt: !! Line Location: ZIS1+0
Function Call: WRITE	Prompt: !!,"A Total of ",APCDCNT," Entries Purged.",! Line Location: DRIVER+2
Function Call: WRITE	Prompt: !!,"Purge Data from Visit Relinker Log!" Line Location: INIT+1
Function Call: WRITE	Prompt: ! Line Location: GETDATE+2
Routine Call	DIR Line Location: BD+1 ED+1 ZIS+1 HEADER+2
Routine Call	%ZIS Line Location: ZIS1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^APCDKLOG - [#9001003.91]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCDKLOG - [#9001003.91]	PROC+7, PRINT+9, PRINT+21, PRINT+22, PRINT+23
^APCDKLOG("B"	PROC+5, PROC+6, PURGE+1, PURGE+2
^AUPNVPRV - [#9000010.06]	PRINT+15
^AUPNVPRV("AD"	PRINT+14
^AUPNVSIT - [#9000010]	PROC+7, PRINT+11, PRINT+12
^DD("DD"	GETDATE+1, GETDATE+4
^DIC - [#1]	PRINT+22
^DIC(4 - [#4]	HEADER1+3
^DPT - [#2]	PRINT+12
^VA(200 - [#200]	PRINT+18
^XTMP(	XTMP+2*
^XTMP("APCDRLR"	PROC+8*, PRINT+2, PRINT+4, PRINT+7, PRINT+32!

Label References

Name	Line Occurrences
BD	ED+2, DEMO+2
BROWSE	ZIS+3
EOJ	PURGERL+3, ZIS1+1, ZIS1+2, DRIVER+3
GETDATE	PURGERL+2
HEADER	PRINT+2, PRINT+3, PRINT+5, PRINT+8, PRINT+28
HEADER1	HEADER+1
INIT	PURGERL+1
PURGE	DRIVER+1
TSKMN	ZIS1+2
XIT	START+1, BD+2, ZIS+2, ZIS+3, ZIS+6
XTMP	PROC+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	TSKMN+1*
%DT	GETDATE+2*, EOJ+1!
%DT("A"	GETDATE+2*
>> %ZIS	ZIS1*
APCDA	PRINT+21!
APCDA(	PRINT+25*, PRINT+26, PRINT+27, PRINT+29
>> APCDBD	BD+3*, ED+1, ED+4, PROC+4
>> APCDBDD	ED+4*, HEADER1+6
>> APCDBT	PROC+2*, PROC+8, PRINT+2, PRINT+4, PRINT+7, PRINT+32
>> APCDC	PRINT+26, PRINT+29, PRINT+30
APCDCNT	DRIVER+2, INIT+2, PURGE+3, EOJ+1!
>> APCDD	PRINT+4*, PRINT+6, PRINT+7
>> APCDDEMO	DEMO+1, DEMO+2, PROC+7
APCDDTP	GETDATE+1*, EOJ+1!
APCDDUZ	EOJ+1!
>> APCDED	ED+3*, ED+4, PROC+5
>> APCDEDD	ED+4*, HEADER1+6
>> APCDJOB	PROC+2*, PROC+8, PRINT+2, PRINT+4, PRINT+7, PRINT+32
>> APCDN	PRINT+9*, PRINT+10, PRINT+12
>> APCDODAT	PROC+5*, PROC+6, PROC+8
>> APCDP	PRINT+14, PRINT+17, PRINT+18, PRINT+19, PRINT+27, PRINT+29
>> APCDPG	PRINT+1, HEADER+1, HEADER1+1, HEADER1+3
APCDPGE	GETDATE+4*, PURGE+1, EOJ+1!
APCDPGEY	GETDATE+4*, EOJ+1!
>> APCDPRV	PRINT+15*, PRINT+16, PRINT+18
APCDQ	PRINT+1!, PRINT+4, PRINT+5, PRINT+7, PRINT+8, PRINT+14, PRINT+26, PRINT+27, PRINT+28, HEADER+2*
APCDQUIT	PURGERL+3, INIT+3!, GETDATE+3*
>> APCDR	PROC+6, PROC+7, PROC+8, PRINT+7, PRINT+9, PRINT+21, PRINT+22, PRINT+23
>> APCDSD	ED+4, PROC+4, PROC+5
>> APCDTEXT	HEADER1+4, HEADER1+5, HEADER1+6, HEADER1+7
>> APCDTOT	PROC+2, PROC+8, PRINT+31
>> APCDTV	PRINT+10*, PRINT+11, PRINT+12, PRINT+14
APCDX	PRINT+14, PRINT+15, PRINT+21, PRINT+22, PRINT+23, PRINT+26, PRINT+27, PRINT+29, PURGE+1, PURGE+2 , EOJ+1!
APCDY	PURGE+2*, PURGE+3, EOJ+1!
>> B	PRINT+22*, PRINT+25
D	DATE~, DATE+1, DATE+2, XTMP~, XTMP+2, EOJ+1!
D0	EOJ+1!
D1	EOJ+1!
DA	ZIS+1!, PURGE+3*, EOJ+1!
>> DFN	PRINT+11*, PRINT+12
DIC	EOJ+1!
DIE	EOJ+1!
>> DIK	PURGE+3*
DIR	BD+1!, ED+1!, ZIS+1!, HEADER+2!
DIR("A"	BD+1, ED+1, ZIS+1*
DIR("B"	ZIS+1*
DIR(0	BD+1, ED+1, ZIS+1, HEADER+2
>> DIRUT	BD+1, BD+2, ED+1, ED+2, ZIS+2
DQ	EOJ+1!
DR	EOJ+1!
DT	XTMP+2, GETDATE+1
>> DTOUT	HEADER+2
>> DUOUT	BD+1, ED+1
DUZ(2	PRINT+12, HEADER1+3
>> F	PROC+7, PRINT+22, PRINT+24
>> I	PRINT+23*, PRINT+24
IO	HEADER+2
IO("Q"	ZIS1+2
IO(0	HEADER+2
>> IOCPU	TSKMN+2
IOF	START+2, HEADER1+1
IOM	CTR+1
ION	TSKMN+2
IOSL	PRINT+5, PRINT+8, PRINT+28
IOST	HEADER+2
N	XTMP~, XTMP+1, XTMP+2
>> P	PRINT+24*, PRINT+25
POP	ZIS1+1, EOJ+1!
U	PROC+7, PRINT+10, PRINT+11, PRINT+12, PRINT+15, PRINT+18, PRINT+22, PRINT+23, HEADER1+3
X	ED+4, PROC+4, CTR~, CTR+1, EOJ+1!
>> X1	ED+4, PROC+4
>> X2	ED+4, PROC+4
>> XBIOP	BROWSE+2*
>> XBNS	ZIS+4, BROWSE+2
>> XBRC	ZIS+4, BROWSE+2
>> XBRP	ZIS+4, BROWSE+1
>> XBRX	ZIS+4, BROWSE+2
Y	BD+3, ED+1, ED+3, ED+4, ZIS+3, CTR~, CTR+1, HEADER+2, GETDATE+1*, GETDATE+3 , GETDATE+4, EOJ+1!
>> ZTCPU	TSKMN+2*
>> ZTDESC	TSKMN+2*
>> ZTDTH	TSKMN+2*
>> ZTIO	TSKMN+2*
>> ZTQUEUED	EOJ+2
>> ZTREQ	EOJ+2*
>> ZTRTN	TSKMN+2*
ZTSAVE	TSKMN+1!
ZTSAVE(	TSKMN+1*
ZTSK	EOJ+2!

Customize PDF page

Package: Patient Care Component

Routine: APCDRLR

Information

Source Information

Call Graph

Call Graph Total: 13

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: