Routine: BPMMRG

Information

BPMMRG ; IHS/OIT/LJF - IHS CODE CALLED BY MERGE FUNCTION

Source file <BPMMRG.m>

Package	Total	Caller Graph
IHS Patient Merge	3	BPM PRINT HS VERIFIED BPM RESET LOST MERGE BPMXDRV
Toolkit	1	XDRMERG

Name	Comments	DBIA/ICR reference
DWAUD(ARRAY)	;EP; remove DW Audit entries for all FROM patients in batch ; called by DQ^XDRMERG0
FIX	;EP; clean up process stopped by error
UPD(DA)	;IHS/PAO/AEF
ENDMRG(XDRFR,BPMTO,I)	;EP; perform end of merge steps ; called by CLOSEIT^XDRMERG
HSQUE	;EP; loop thru pair and print health summaries (VA type) ; Called by HSUM^BPMMRG (see above) ; variables BPMREC1, BPMREC2 & BPMHST set by ZTLOAD if queued
HSUM	;EP; print health summaries for verified or merged pairs ; Called by option BPM HS PRINT VERIFIED
VISITS(BPMRY)	;EP ; flag all visits to be repointed before merge runs ; insures visits are re-exported with new patient pointer ; called by EN^BPMXDRV
PKG	;EP; check to make sure Package file is clean before merge runs ; Called by XDRMERG0

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," Merge Health Summary Type not installed. Contact site manager" Line Location: HSUM+4
Function Call: WRITE	Prompt: !!,"No lost merge processes were found.",!! Line Location: FIX+9
Routine Call	%ZIS Line Location: HSUM+23
Routine Call	DIE Line Location: UPD+5 FIX+7
Routine Call	DIC Line Location: HSUM+16
Routine Call	DIR Line Location: FIX+6

FileNo	Call Tags
^VA(15 - [#15]	GET1^DIQ
^VA(15.2 - [#15.2]	Classic Fileman Calls
^DIC(9.4 - [#9.4]	Classic Fileman Calls, GET1^DIQ
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUPNDWAF - [#9000003.3]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNDWAF - [#9000003.3]	ENDMRG+11*
^AUPNDWAF("B"	ENDMRG+12*
^AUPNPAT - [#9000001]	ENDMRG+6, ENDMRG+7
^AUPNVSIT("AC"	VISITS+5
^DIC(9.4 - [#9.4]	PKG+4, PKG+6!, PKG+9!, PKG+12
^GMT(142 - [#142]	HSUM+3
^VA(15.2 - [#15.2]	FIX+3, FIX+5

Name	Field # of Occurrence
ARRAY	DWAUD~, DWAUD+3
AUPNLK	HSUM+15~
AUPNLK("ALL"	HSUM+15*
AUPNVSIT	VISITS+3~, VISITS+6*
BPMC	FIX+2~, FIX+3, FIX+4, FIX+9
BPMHST	HSUM+2~, HSUM+3*, HSUM+4, HSQUE+4
BPMI	HSQUE+3~, HSQUE+4, FIX+2~, FIX+3, FIX+5, FIX+7
BPMREC1	HSUM+2~, HSUM+17*, HSQUE+4
BPMREC2	HSUM+2~, HSUM+18*, HSQUE+4
BPMRY	VISITS~, VISITS+4
BPMSTAT	HSUM+2~, HSUM+8*, HSUM+9, HSUM+10, HSUM+11, HSUM+12
BPMTO	ENDMRG~, ENDMRG+3, ENDMRG+7
DA	PKG+2~, DWAUD+2~, DWAUD+4, UPD~, FIX+2~, FIX+7
DA(1	PKG+11, PKG+12
DIC	HSUM+2~, HSUM+16*
DIC("A"	HSUM+16*
DIC("S"	HSUM+16*
DIC(0	HSUM+16*
DIE	UPD+2~, UPD+3, FIX+2~, FIX+7, FIX+8!
DIK	PKG+2~, PKG+10~, DWAUD+2~, DWAUD+4
DIK(1	PKG+10*
DIR	UPD+2~, FIX+2~, FIX+6!
DIR("A"	FIX+5*
DIR(0	FIX+5*
DR	UPD+4, FIX+2~, FIX+7, FIX+8!
DT	ENDMRG+11, UPD+4
DUZ	UPD+4
FROM	DWAUD+2~, DWAUD+3, DWAUD+4, VISITS+3~, VISITS+4, VISITS+5
HRCN	HSQUE+5!
I	ENDMRG~, ENDMRG+5
IEN	PKG+2~, PKG+3, PKG+4, PKG+5, PKG+6
SCREEN	HSUM+2~, HSUM+10, HSUM+11, HSUM+12*, HSUM+16
U	ENDMRG+11, FIX+3, FIX+5
VST	VISITS+3~, VISITS+5*, VISITS+6
X	UPD+2~, HSUM+2~
XDRFR	ENDMRG~, ENDMRG+6, ENDMRG+7, ENDMRG+11, ENDMRG+12
Y	UPD+2~, HSUM+2~, HSUM+16, HSUM+17, HSUM+18, FIX+6