Routine: BLRMERG2

Information

BLRMERG2 ; IHS/TUCSON/DG/ANMC/CLS/ISD/EDE - LAB MERGE ROUTINE [ 12/21/1998 3:55 PM ]

Source Information

Source file <BLRMERG2.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
IHS VA Utilities	2	^XBGXREFS EN^XBVK
IHS Changes To Lab	1	(DIE,DIK,IX1,SETVARS)^BLRMERGU
MailMan	1	^XMB

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Changes To Lab	1	BLRMERG

Entry Points

Name	Comments	DBIA/ICR reference
FLD14	; KILL/SET "AAUA" XREF FROM FILE 63 FIELD 14
MERGE	;TRANSFER ^LR ENTRIES FROM OLD TO NEW
BULLT	; Send bulletin re: reprinting of cumulative report
SHIFT	; MAKE DATE/TIME UNIQUE FOR BOTH PATIENTS (SUBSCRIPT)
AUTXREF	; KILL/SET AUTOPSY X-REFS IN FILE 63 FIELDS 11 AND 14
SHIFT2	; FIND INVERSE DATE/TIME SLOT ; Up by .000001 old date/time variable, check if $D(BLRODT+.000001) ; "From" patient, if it does exist, up by another .000001, check ; again, if okay, check to see if the "To" patient has this date/time
START	;
CHG69	; Changes DATE(TIME) COLLECTION field (^DD(69.01,10,0)) value ; the following code not for CY,SP,EM,AU because they do not have ; a .1 node, which points to file 69 (Order).
CHG68	; Changes INVERSE DATE field (^DD(68.01,13.5,0)) value
FLD11	; KILL/SET "AAU" XREF FROM FILE 63 FIELD 11
PREMERGE	; PREMERGE CHECK ; Check to see if any "From" patient nodes have same collection ; date/time as "To" patient nodes, if they do, then uptick by one ; second until date/time unique for both "From" and "To" patients.

External References

Name	Field # of Occurrence
DIE^BLRMERGU	CHG68+6, CHG69+13
DIK^BLRMERGU	SHIFT+15, MERGE+41, MERGE+42
IX1^BLRMERGU	SHIFT+17, MERGE+20
SETVARS^BLRMERGU	CHG68+1
^XBGXREFS	FLD11+3, FLD14+3
EN^XBVK	BULLT+15
^XMB	BULLT+13

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	BULLT+6, BULLT+9
^DPT - [#2]	MERGE+43!, BULLT+4, BULLT+5
^LAC("LRAC" - [#64.7]	MERGE+42
^LR - [#63]	PREMERGE+7, SHIFT+1, SHIFT+6, SHIFT+13, SHIFT2+5, CHG69+4, MERGE+3, MERGE+12, MERGE+13, MERGE+15* , MERGE+18, MERGE+23, MERGE+29, MERGE+32*, FLD11+1, FLD14+1
^LRO(68 - [#68]	CHG68+4, CHG69+4, CHG69+6, CHG69+7
^LRO(69 - [#69]	CHG69+10, CHG69+11

Label References

Name	Line Occurrences
AUTXREF	MERGE+24, MERGE+25
BULLT	START+3
CHG68	SHIFT+3
CHG69	SHIFT+4
FLD11	AUTXREF+3
FLD14	AUTXREF+4
MERGE	START+2
PREMERGE	START+1
SHIFT	PREMERGE+7
SHIFT2	SHIFT+2

Naked Globals

Name	Field # of Occurrence
^(0	CHG69+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BLRACC	CHG69+4*
>> BLRAIEN	CHG68+2, CHG68+4, CHG68+5, CHG69+4*, CHG69+5, CHG69+6, CHG69+7
>> BLRDATE	CHG69+4*, CHG69+6, CHG69+7, CHG69+10, CHG69+11, CHG69+12
>> BLRDTSUB	CHG68+3, CHG68+4, CHG68+5
>> BLRDUZ	BULLT+1*, BULLT+14
>> BLRFM	MERGE+43, BULLT+4, BULLT+6
>> BLRINVD	MERGE+17*
>> BLRINVDT	PREMERGE+6, PREMERGE+7, SHIFT+1, SHIFT+9, SHIFT+10, SHIFT+15, CHG69+4, MERGE+18*, MERGE+19
>> BLRN	FLD11+4, FLD11+5, FLD14+4, FLD14+5
>> BLRNDT	SHIFT+1, SHIFT+6, SHIFT2+5, CHG69+12
>> BLRNEW	PREMERGE+7, SHIFT2+5, MERGE+6, MERGE+12, MERGE+13, MERGE+15, MERGE+18, MERGE+19, MERGE+32, MERGE+36 , AUTXREF+1, BULLT+3
>> BLRNGBL	SHIFT+10, SHIFT+11, MERGE+6, MERGE+7, MERGE+36*, MERGE+37
>> BLRNINVD	SHIFT+6, SHIFT+10, SHIFT+13, SHIFT+17, SHIFT2+5*, CHG68+5
>> BLRNUM	CHG68+5, CHG69+4*, CHG69+7
>> BLRODT	SHIFT+1*, CHG69+11
>> BLROGBL	SHIFT+7, SHIFT+9, SHIFT+10, SHIFT+11, MERGE+2, MERGE+5, MERGE+6, MERGE+7, MERGE+33, MERGE+35 , MERGE+36, MERGE+37
>> BLROLD	PREMERGE+7, SHIFT+1, SHIFT+6, SHIFT+13, SHIFT+15, SHIFT+17, SHIFT2+5, CHG69+4, MERGE+3, MERGE+23 , MERGE+29, MERGE+32, MERGE+41, MERGE+42, AUTXREF+2, BULLT+2
>> BLRORDN	CHG69+7*, CHG69+8, CHG69+10
>> BLRSPECN	CHG69+9, CHG69+10, CHG69+11, CHG69+12
>> BLRSTKL	MERGE+24, MERGE+25, AUTXREF+1, FLD11+5, FLD14+5
>> BLRSUB	PREMERGE+5, PREMERGE+7, SHIFT+1, SHIFT+6, SHIFT+13, SHIFT+15, SHIFT+17, SHIFT2+5, CHG69+3, CHG69+4 , MERGE+1, MERGE+3, MERGE+5, MERGE+6, MERGE+12, MERGE+13, MERGE+15, MERGE+18, MERGE+19, MERGE+28* , MERGE+29*, MERGE+30, MERGE+32, MERGE+35, MERGE+36
>> BLRTO	BULLT+5, BULLT+9
BLRXREF	FLD11+3, FLD11+6!, FLD14+3, FLD14+6!
BLRXREF(11	FLD11+5
BLRXREF(14	FLD14+5
C	MERGE+10~, MERGE+11, MERGE+12, MERGE+14
>> DA	SHIFT+15, SHIFT+17, CHG68+5, CHG69+12, MERGE+19, MERGE+41, MERGE+42, AUTXREF+1, AUTXREF+2*, FLD11+1 , FLD14+1
>> DA(1	SHIFT+15, SHIFT+17, CHG68+5, CHG69+12, MERGE+19*
>> DA(2	CHG68+5*
>> DIE	CHG68+5, CHG69+12
>> DIK	SHIFT+15, SHIFT+17, MERGE+19, MERGE+41, MERGE+42*
>> DR	CHG68+5, CHG69+12
DUZ	BULLT+1, BULLT+14
DUZ(2	BULLT+6, BULLT+9
L	MERGE+10~, MERGE+11, MERGE+12, MERGE+14
U	SHIFT+6, SHIFT+13, CHG69+4, MERGE+14, FLD11+1, FLD14+1, BULLT+4, BULLT+5, BULLT+6, BULLT+9
X	MERGE+10~, MERGE+13, MERGE+14, MERGE+15, FLD11+1, FLD11+2, FLD14+1, FLD14+2
>> XMB	BULLT+12*
>> XMB(1	BULLT+2*
>> XMB(2	BULLT+3*
>> XMB(3	BULLT+4*
>> XMB(4	BULLT+5*
>> XMB(5	BULLT+6, BULLT+7, BULLT+8
>> XMB(6	BULLT+9, BULLT+10, BULLT+11
XMDT	BULLT+16!
Y	MERGE+10~, MERGE+11, MERGE+12
Y1	BULLT+16!

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRMERG2

Call Graph Total: 4

Caller Graph Total: 1