©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
BLRMERG2 ; IHS/TUCSON/DG/ANMC/CLS/ISD/EDE - LAB MERGE ROUTINE [ 12/21/1998 3:55 PM ]
Source file <BLRMERG2.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS VA Utilities | 2 | ^XBGXREFS EN^XBVK |
| IHS Changes To Lab | 1 | (DIE,DIK,IX1,SETVARS)^BLRMERGU |
| MailMan | 1 | ^XMB |
| 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. |
| FileNo | Call Tags |
|---|---|
| ^LR - [#63] | Classic Fileman Calls |
| ^LRO(68 - [#68] | Classic Fileman Calls |
| ^LRO(69 - [#69] | Classic Fileman Calls |
| 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 |
| 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 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | CHG69+4 |
| >> | 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! |