RGDRM03 ;BAY/ALS-MPI/PD AWARE DUPLICATE RECORD MERGE ;03/17/00
Source file <RGDRM03.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(ARRAY) | ; Entry point
|
|
| MRGCMOR | ; If the 'FROM' record has a CMOR and the 'TO' record does not, set the
; field in the 'TO' record and delete the field in the 'FROM' record. ; The CMOR score will be recalculated for the TO record when ; merge completes. |
|
| DEL | ; Delete field in 'FROM' record
|
|
| EXIT | ;
|
|
| GETSCR(DFN) | ; Get CMOR score and calculation date given IEN (DFN) of patient file (#2)
|
|
| EXIT2 | ;
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | MRGCMOR+4, MRGCMOR+7, DEL+1, DEL+4, GETSCR+3 |
| Name | Line Occurrences |
|---|---|
| EXIT2 | GETSCR+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | EN~, EN+1, EN+2, EN+3, EN+4, EN+13, EN+14 |
| DA | MRGCMOR+5*, MRGCMOR+6!, DEL+2*, DEL+3!, GETSCR+4*, GETSCR+5! |
| DFN | GETSCR~, GETSCR+1, GETSCR+3, GETSCR+4, GETSCR+6, GETSCR+7 |
| >> DFNFRM | EN+1*, EN+2, EN+3, EN+4, EN+5, EN+7, EN+8, EN+13, EN+14, DEL+1 , DEL+2, DEL+4 |
| >> DFNTO | EN+2*, EN+3, EN+4, EN+5, EN+7, EN+8, EN+10, EN+13, EN+14, MRGCMOR+4 , MRGCMOR+5, MRGCMOR+7 |
| DIC | GETSCR+4*, GETSCR+5! |
| DIE | MRGCMOR+5*, MRGCMOR+6!, DEL+2*, DEL+3! |
| DIQ | GETSCR+4*, GETSCR+5! |
| DIQ(0 | GETSCR+4* |
| DR | MRGCMOR+5*, MRGCMOR+6!, DEL+2*, DEL+3!, GETSCR+4*, GETSCR+5! |
| >> HLMTIEN | EN+10 |
| IEN | EN+12*, EN+13*, EN+14, EN+16! |
| IENFRM | EN+3*, EN+4, EN+13, EN+16! |
| IENTO | EN+4*, EN+13, EN+16! |
| RETURN | EN+5*, EN+6, EN+9, EN+10, EXIT+1, GETSCR+2~, GETSCR+3*, GETSCR+8*, EXIT2+1 |
| SCORE | GETSCR+2~, GETSCR+6*, GETSCR+8 |
| SCOREDT | GETSCR+2~, GETSCR+7*, GETSCR+8 |
| SCR | GETSCR+2~ |
| SCR(2 | GETSCR+6, GETSCR+7 |