Routine: APCDVMDD

Package	Total	Call Graph
Patient Care Component	5	^APCDVCHK UPDLOG^APCDVDEL ^APCDVDSP ^APCDVLK ^APCDVM2
Kernel	2	^%ZTLOAD $$FMTE^XLFDT
VA Fileman	2	^DIC ^DIR
IHS Patient	1	DEL^AUPNVSIT

Package	Total	Caller Graph
Patient Care Component	1	APCDCAF1

Entry Points

Name	Comments	DBIA/ICR reference
RDR	;EP
EOJ	; EOJ CLEAN UP
GETVISIT	;
GETPAT	; GET PATIENT
WRITE	; WRITE VISITS FOR SELECT
EN1	;EP
ZTSK	;

External References

Name	Field # of Occurrence
^%ZTLOAD	ZTSK+3
^APCDVCHK	RDR+15
UPDLOG^APCDVDEL	RDR+10
^APCDVDSP	APCDVMDD+24, APCDVMDD+26, RDR+14
^APCDVLK	GETVISIT+3
^APCDVM2	RDR+5
DEL^AUPNVSIT	RDR+11
^DIC	GETPAT+3
^DIR	APCDVMDD+20
$$FMTE^XLFDT	WRITE+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option is used to merge 2 visits on 2 different dates.",!,"Be very careful in using this option. This will normally need to be used only",!,"when a lab or radiology visit that occurred after midnight needs to be merged",! Line Location: APCDVMDD+3
Function Call: WRITE	Prompt: "to a visit that occurred before midnight.",!! Line Location: APCDVMDD+4
Function Call: WRITE	Prompt: !!,"Select 'From' visit.",! Line Location: APCDVMDD+8
Function Call: WRITE	Prompt: !!,"Select 'To' visit.",! Line Location: APCDVMDD+12
Function Call: WRITE	Prompt: !!,"'From' and 'To' the same. Bye!" Line Location: APCDVMDD+15
Function Call: WRITE	Prompt: !!,"Cannot merge from a visit that has a Claim associate with it." Line Location: APCDVMDD+16
Function Call: WRITE	Prompt: !!!,"You will be merging the following 2 visits:" Line Location: APCDVMDD+17
Function Call: WRITE	Prompt: !,"FROM VISIT:" Line Location: APCDVMDD+18
Function Call: WRITE	Prompt: !,"TO VISIT:" Line Location: APCDVMDD+19
Function Call: WRITE	Prompt: !! Line Location: APCDVMDD+20
Function Call: WRITE	Prompt: !!,"* FROM VISIT *" Line Location: APCDVMDD+23
Function Call: WRITE	Prompt: !!,"* TO VISIT *" Line Location: APCDVMDD+25
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"'TO' VISIT NOT DEFINED" Line Location: RDR+1
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"'FROM' VISIT NOT DEFINED" Line Location: RDR+2
Function Call: READ	Prompt: "Do you want to merge the two visits? (Y/N) Y//" Formatting: !! Timeout: $S($D(DTIME):DTIME,1:300) Variable: APCDVMX Line Location: RDR+3
Function Call: WRITE	Prompt: $C(7) Line Location: RDR+3
Function Call: WRITE	Prompt: !!,"*** ERROR encountered. QFLG=",APCDVMQF Line Location: RDR+6
Function Call: WRITE	Prompt: !!,"* MERGED VISIT *" Line Location: RDR+12
Function Call: WRITE	Prompt: ! Line Location: GETPAT+1
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT($P($P(APCDAX,U),"."))," TIME: ",APCDAT,"TYPE: ",$P(APCDAX,U,3)," CATEGORY: ",$P(APCDAX,U,7) Line Location: WRITE+4
Function Call: WRITE	Prompt: " CLINIC: ",$S($P(APCDAX,U,8)]"":$E($P(^DIC(40.7,$P(APCDAX,U,8),0),U),1,8),1:"<NONE>"),?56,"DEC: ",$S($P(APCDAX,U,9):$P(APCDAX,U,9),1:0) Line Location: WRITE+5
Function Call: WRITE	Prompt: ?64,"VCN: ",$P(APCDA11,U,3) Line Location: WRITE+6
Routine Call	DIC Line Location: GETPAT+3
Routine Call	DIR Line Location: APCDVMDD+20

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	ZTSK+1
^ABSBITMS(9002302	APCDVMDD+16
^AUPNVSIT - [#9000010]	RDR+7, RDR+8, WRITE+2
^DIC(40.7 - [#40.7]	WRITE+5

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ZTSK+2*
APCDA11	WRITE+1~, WRITE+2*, WRITE+6
APCDAT	WRITE+1~, WRITE+3*, WRITE+4, WRITE+7!
>> APCDAX	APCDVMDD+18, APCDVMDD+19, WRITE+2*, WRITE+3, WRITE+4, WRITE+5
APCDCAT	EOJ+1!
APCDCLN	EOJ+1!
APCDDATE	EOJ+1!
APCDDOB	EOJ+1!
APCDDOD	EOJ+1!
APCDLOC	EOJ+1!
APCDLOOK	GETVISIT+2*, GETVISIT+4, GETVISIT+5!
APCDPAT	APCDVMDD+7, GETPAT+2, GETPAT+5, EOJ+1!
APCDSEX	EOJ+1!
APCDTYPE	EOJ+1!
>> APCDVDSP	APCDVMDD+24, APCDVMDD+26, RDR+14*
APCDVLK	GETVISIT+1!
APCDVMF	APCDVMDD+10, APCDVMDD+15, APCDVMDD+16, APCDVMDD+18, APCDVMDD+24, RDR+2, RDR+7, RDR+8, RDR+10, RDR+11 , EOJ+1!
>> APCDVMQF	RDR+6
APCDVMT	APCDVMDD+14, APCDVMDD+15, APCDVMDD+19, APCDVMDD+26, RDR+1, RDR+7, RDR+8, RDR+10, RDR+14, RDR+15 , EOJ+1!
APCDVMX	RDR+3*, RDR+4, EOJ+1!
APCDVSIT	RDR+15*!, EOJ+1!
APCDVV	APCDVMDD+9, APCDVMDD+13, GETVISIT+4, EOJ+1!
AUPNDAYS	EOJ+2!
AUPNDOB	EOJ+2!
AUPNDOD	EOJ+2!
AUPNPAT	EOJ+2!
AUPNSEX	EOJ+2!
AUPNVSIT	RDR+11*, EOJ+2!
DA	APCDVMDD+20!
DIC	GETPAT+3*!
DIC(0	GETPAT+3*
DIR	APCDVMDD+20!
DIR("A"	APCDVMDD+20*
DIR("B"	APCDVMDD+20*
DIR(0	APCDVMDD+20*
>> DIRUT	APCDVMDD+21
DR	APCDVMDD+24!, APCDVMDD+26!, RDR+14!
DT	ZTSK+3
DTIME	RDR+3
U	RDR+7, RDR+8, WRITE+4, WRITE+5, WRITE+6
>> X	ZTSK+1*
>> Y	APCDVMDD+22, GETPAT+4, GETPAT+5
>> ZTDESC	ZTSK+3*
>> ZTDTH	ZTSK+3*
>> ZTIO	ZTSK+3*
>> ZTRTN	ZTSK+3*
ZTSAVE	ZTSK+2!
ZTSAVE(	ZTSK+2*
ZTSK	ZTSK+4!

Customize PDF page

Package: Patient Care Component

Routine: APCDVMDD

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
EOJ	APCDVMDD+7, APCDVMDD+10, APCDVMDD+14, APCDVMDD+15, APCDVMDD+16, APCDVMDD+21, APCDVMDD+22, RDR+1, RDR+2, RDR+4 , RDR+6, RDR+16
GETPAT	APCDVMDD+6
GETVISIT	APCDVMDD+9, APCDVMDD+13
RDR	RDR+3
WRITE	APCDVMDD+18, APCDVMDD+19
ZTSK	RDR+13