Routine: BLRMERG

Information

BLRMERG ; IHS/TUCSON/DG/ANMC/CLS/ISD/EDE - LAB PATIENT MERGE [ 01/13/1999 4:29 PM ]

Source Information

Source file <BLRMERG.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
IHS VA Utilities	3	^XBFMK ^XBGXREFS EN^XBVK
IHS Changes To Lab	2	^BLRMERG2 (DIE,SETVARS)^BLRMERGU
Toolkit	1	MERGE^XDRMRG1

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
IHS Patient Merge	2	BPMXFX1 BPMXLR
IHS Changes To Lab	1	BLRMERGT

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Entry point for lab merge
XREF69	; KILL/SET X-REFS IN SUBFILE 69.01, FIELD 21 & 69.03, FIELD .01
CHKXREFS	; CHECK FILE 68 & 69 XREFS ; now check xrefs to see if any file 68 or 69 entries left ; "AC" in file 68
LRINFO	; FIND 68, 69 & 9009022 ENTRIES VIA 63 ENTRIES
EOJ	;
FLD01	; KILL/SET X-REFS IN SUBFILE 69.03, FIELD .01
FIXAN1	; FIX LOW LEVEL AN XREF ; fix odd ball "AN" xrefs generated by who knows what ; get field 21 DATE/TIME RESULTS AVAILABLE
FLD21	; KILL/SET X-REFS IN SUBFILE 69.01, FIELD 21
CHG69	; CHG LRDFN IN FILE 69 ; warning - this label done from CHKXREFS also ; Change LRDFN (69.01,.01) to point to TO patient LR entry
MERGE	; Begin merge process
INIT	;
CHG68	;MAKE CHANGE TO FILE 68 ; Change LRDFN (68.02,.01) to point to TO patient LR entry
FIXAN2	; FIX TOP LEVEL AN XREF
BLRTXLOG	; REPOINT BLRTXLOG
XREF68	; KILL/SET X-REFS IN SUBFILE 68.02, FIELD 13
68	; REPOINT FILE 68
69	;MAKE CHANGE TO FILE 69
REP6869	; REPOINT FILE 68, 69 & 9009022
LRINFO2	;

External References

Name	Field # of Occurrence
^BLRMERG2	MERGE+2
DIE^BLRMERGU	INIT+33, BLRTXLOG+13, CHG68+5, CHG69+6
SETVARS^BLRMERGU	LRINFO+5, LRINFO+12
^XBFMK	EOJ+4
^XBGXREFS	XREF68+5, FLD21+3, FLD01+5
EN^XBVK	EOJ+2, EOJ+3
MERGE^XDRMRG1	INIT+10, INIT+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"Cannot determine what version of Lab you are running!" Line Location: INIT+7
Function Call: WRITE	Prompt: !!,*7,"The version of lab you are running is not compatible with this version of",!,"lab merge!" Line Location: INIT+14

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LR - [#63]	Classic Fileman Calls
^LRO(68 - [#68]	Classic Fileman Calls
^LRO(69 - [#69]	Classic Fileman Calls
^BLRTXLOG - [#9009022]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("$ZE"	INIT+9, INIT+16
^BLRTXLOG - [#9009022]	BLRTXLOG+8, BLRTXLOG+9, BLRTXLOG+10
^BLRTXLOG("AAT"	BLRTXLOG+7
^DIC(9.4 - [#9.4]	INIT+4, INIT+12
^DPT - [#2]	INIT+27, INIT+31
^LAB(60 - [#60]	BLRTXLOG+4
^LR - [#63]	LRINFO+2, LRINFO+3, LRINFO+11, BLRTXLOG+2
^LRO(68 - [#68]	68+1, 68+3, XREF68+1, XREF68+4, CHKXREFS+4, CHKXREFS+6, CHKXREFS+7, CHKXREFS+8!, CHKXREFS+13, CHKXREFS+15 , CHKXREFS+16, CHKXREFS+17!
^LRO(69 - [#69]	69+2, FIXAN1+3, FIXAN1+5, FIXAN1+7, FIXAN1+9, FIXAN1+10, FIXAN1+11!, FIXAN2+2, FIXAN2+4, FIXAN2+5 , FIXAN2+6!, FLD21+1, FLD01+2, FLD01+3, CHKXREFS+22, CHKXREFS+25
^TMP("BLRMERG"	INIT+2!, REP6869+1!, REP6869+5!, 68+5, 69+3*, EOJ+1!
^TMP("XDRMRGFR"	INIT+20, INIT+25
^TMP("XDRMRGTO"	INIT+26, INIT+31

Label References

Name	Line Occurrences
68	LRINFO2+2
69	68+7
BLRTXLOG	LRINFO2+1
CHG68	68+2
CHG69	69+2, CHKXREFS+26
CHKXREFS	REP6869+4
EOJ	EN+2, EN+4
FIXAN1	CHG69+10
FIXAN2	CHG69+11
FLD01	XREF69+2
FLD21	XREF69+1
INIT	EN+1
LRINFO	REP6869+3
LRINFO2	LRINFO+8, LRINFO+15
MERGE	EN+3
REP6869	MERGE+1
XREF68	CHG68+3, CHG68+8
XREF69	CHG69+4, CHG69+9

Naked Globals

Name	Field # of Occurrence
^("$ZE"	INIT+9, INIT+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BLRACC	BLRTXLOG+7
>> BLRAIEN	LRINFO+6, LRINFO+13, 68+1, 68+3, CHG68+4, XREF68+1
>> BLRDATE	LRINFO+6, LRINFO+13, BLRTXLOG+11, CHKXREFS+23*
>> BLRDTANM	BLRTXLOG+1, BLRTXLOG+2, BLRTXLOG+3
>> BLRDTSUB	LRINFO+6, LRINFO+13, 68+1, 68+3, CHG68+4, XREF68+1, 69+2, CHG69+5, FIXAN1+3, FIXAN1+5 , FLD21+1, FLD01+1, CHKXREFS+3, CHKXREFS+4, CHKXREFS+6, CHKXREFS+7, CHKXREFS+8, CHKXREFS+12, CHKXREFS+13, CHKXREFS+15 , CHKXREFS+16, CHKXREFS+17, CHKXREFS+21, CHKXREFS+22, CHKXREFS+23, CHKXREFS+25
>> BLRFM	INIT+23*, INIT+25
>> BLRINVDT	LRINFO+3, LRINFO+4, LRINFO+10, LRINFO+11*, BLRTXLOG+2
>> BLRLBPK	INIT+4*, INIT+5, INIT+12
>> BLRLOC	FIXAN1+5, FIXAN1+6, FIXAN1+7, FIXAN1+9, FIXAN1+10, FIXAN1+11, FIXAN2+1, FIXAN2+2*, FIXAN2+4, FIXAN2+5 , FIXAN2+6
>> BLRLTIEN	BLRTXLOG+4*, BLRTXLOG+6, BLRTXLOG+7
>> BLRLTSUB	BLRTXLOG+3*, BLRTXLOG+4
>> BLRN	XREF68+6, XREF68+7, FLD21+4, FLD21+5
>> BLRNEW	INIT+26, INIT+27, BLRTXLOG+12, CHG68+4, CHG69+5, FIXAN1+10, FIXAN2+5, CHKXREFS+7, CHKXREFS+16
>> BLRNUM	LRINFO+6, LRINFO+13, 68+1, 68+3, CHG68+4, XREF68+1
>> BLROLD	INIT+25*, INIT+32, LRINFO+2, LRINFO+3, LRINFO+11, BLRTXLOG+2, FIXAN1+7, FIXAN1+9, FIXAN1+11, FIXAN2+4 , FIXAN2+6, CHKXREFS+4, CHKXREFS+6, CHKXREFS+8, CHKXREFS+13, CHKXREFS+15, CHKXREFS+17, CHKXREFS+22, CHKXREFS+25
>> BLRORDN	68+3*, 68+4, 68+5, 69+2, 69+3
>> BLRQ	EN+2, INIT+1, INIT+36
>> BLRRDT	FIXAN1+3*, FIXAN1+4, FIXAN1+7, FIXAN1+9, FIXAN1+10, FIXAN1+11
>> BLRSPECN	69+1, 69+2, CHG69+5, FIXAN1+3, FIXAN1+5, FLD21+1, FLD01+1, CHKXREFS+24, CHKXREFS+25
>> BLRSTKL	CHG68+2, CHG68+7, XREF68+7, CHG69+3, CHG69+8, FLD21+5, FLD01+6
>> BLRSUB	REP6869+3*, LRINFO+1, LRINFO+2, LRINFO+3, LRINFO+11, BLRTXLOG+2, BLRTXLOG+3
>> BLRTO	INIT+24*, INIT+26, INIT+27, INIT+31, INIT+32, BLRTXLOG+12
>> BLRTXIEN	BLRTXLOG+5, BLRTXLOG+7, BLRTXLOG+8, BLRTXLOG+9, BLRTXLOG+10, BLRTXLOG+12
BLRXREF	XREF68+5, XREF68+8!, FLD21+3, FLD21+6!, FLD01+5, FLD01+7!
BLRXREF(	FLD01+6
BLRXREF(13	XREF68+7
BLRXREF(21	FLD21+5
>> DA	INIT+32, BLRTXLOG+12, CHG68+4, XREF68+1, XREF68+4, CHG69+5, FLD21+1, FLD01+2*, FLD01+3
>> DA(1	CHG68+4, XREF68+1, XREF68+4, CHG69+5, FLD21+1, FLD01+1*, FLD01+2, FLD01+3
>> DA(2	CHG68+4, XREF68+1, XREF68+4, FLD01+1*, FLD01+2, FLD01+3
>> DIE	INIT+32, BLRTXLOG+12, CHG68+4, CHG69+5
>> DR	INIT+32, BLRTXLOG+12, CHG68+4, CHG69+5
U	LRINFO+3, BLRTXLOG+9, XREF68+1, FIXAN1+3, FIXAN1+5, FLD21+1, FLD01+3
>> X	INIT+9, INIT+16, BLRTXLOG+10, BLRTXLOG+11, XREF68+1, XREF68+2, FLD21+1, FLD21+2, FLD01+3, FLD01+4
>> XDRM("NOTALK"	INIT+6, INIT+13
>> XDRMRG("FR"	INIT+20, INIT+23
>> XDRMRG("TO"	INIT+24
>> Y	CHG68+6, CHG69+7, FIXAN1+8, FIXAN1+9, FIXAN1+10, FIXAN1+11, FIXAN2+3, FIXAN2+4, FIXAN2+5, FIXAN2+6 , CHKXREFS+5, CHKXREFS+6, CHKXREFS+7, CHKXREFS+8, CHKXREFS+14, CHKXREFS+15, CHKXREFS+16, CHKXREFS+17
>> ZTQUEUED	INIT+6, INIT+13

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRMERG

Call Graph Total: 6

Caller Graph Total: 3