Routine: APCDVMRG

Information

APCDVMRG ; IHS/CMI/LAB - VISIT MERGE ;

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

Package	Total	Caller Graph
Patient Care Component	3	APCDALV1 APCDCAF1 APCDCAF3

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Select 'From' visit.",! Line Location: APCDVMRG+6
Function Call: WRITE	Prompt: !!,"Select 'To' visit.",! Line Location: APCDVMRG+10
Function Call: WRITE	Prompt: !!,"'From' and 'To' the same. Bye!" Line Location: APCDVMRG+13
Function Call: WRITE	Prompt: !!,"Cannot merge from a visit that has a Claim associate with it." Line Location: APCDVMRG+14
Function Call: WRITE	Prompt: !!,"* FROM VISIT *" Line Location: APCDVMRG+15
Function Call: WRITE	Prompt: !!,"* TO VISIT *" Line Location: APCDVMRG+17
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+11
Function Call: WRITE	Prompt: ! Line Location: GETPAT+1
Routine Call	DIC Line Location: GETPAT+3

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	ZTSK+1
^ABSBITMS(9002302	APCDVMRG+14
^AUPNVSIT - [#9000010]	APCDVMRG+9, RDR+7, RDR+8

Name	Line Occurrences
EOJ	APCDVMRG+5, APCDVMRG+8, APCDVMRG+12, APCDVMRG+13, APCDVMRG+14, RDR+1, RDR+2, RDR+4, RDR+6, RDR+15
GETPAT	APCDVMRG+4
GETVISIT	APCDVMRG+7, APCDVMRG+11
RDR	RDR+3
ZTSK	RDR+12

Name	Field # of Occurrence
>> %	ZTSK+2*
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	APCDVMRG+5, GETPAT+2, GETPAT+5, EOJ+1!
APCDSEX	EOJ+1!
APCDTYPE	EOJ+1!
>> APCDVDSP	APCDVMRG+16, APCDVMRG+18, RDR+13*
>> APCDVLDT	APCDVMRG+9*
APCDVLK	GETVISIT+1!
APCDVMF	APCDVMRG+8, APCDVMRG+9, APCDVMRG+13, APCDVMRG+14, APCDVMRG+16, RDR+2, RDR+7, RDR+8, RDR+9, RDR+10 , EOJ+1!
>> APCDVMQF	RDR+6
APCDVMT	APCDVMRG+12, APCDVMRG+13, APCDVMRG+18, RDR+1, RDR+7, RDR+8, RDR+9, RDR+13, RDR+14, EOJ+1!
APCDVMX	RDR+3*, RDR+4, EOJ+1!
APCDVSIT	RDR+14*!, EOJ+1!
APCDVV	APCDVMRG+7, APCDVMRG+11, GETVISIT+4, EOJ+1!
AUPNDAYS	EOJ+2!
AUPNDOB	EOJ+2!
AUPNDOD	EOJ+2!
AUPNPAT	EOJ+2!
AUPNSEX	EOJ+2!
AUPNVSIT	RDR+10*, EOJ+2!
DIC	GETPAT+3*!
DIC(0	GETPAT+3*
DR	APCDVMRG+16!, APCDVMRG+18!, RDR+13!
DT	ZTSK+3
DTIME	RDR+3
U	RDR+7, RDR+8
>> X	ZTSK+1*
>> Y	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!