XDRMPACK ;IHS/OHPRD/JCM - CHECKS PACKAGE FILE FOR SPECIAL MERGES; [ 08/13/92 09:50 AM ]
Source file <XDRMPACK.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 |
|---|---|---|
| START | ;
|
|
| LOOP | ; Checks packages that affects patient merge and edits Merge Package
; mulitple of Duplicate Record file. |
|
| END | ||
| PACKAGE | ; Checks packages that affects patient merge
|
|
| ADD | ;
|
|
| CHECK | ;
|
|
| EDIT | ;
|
|
| STATUS | ; Changes merge status field to ready if no packages affect merge
|
|
| EOJ | ; End of job and cleanup
|
| FileNo | Call Tags |
|---|---|
| ^VA(15 - [#15] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(9.4 - [#9.4] | START+1, LOOP+2, CHECK+2, CHECK+4 |
| ^VA(15 - [#15] | PACKAGE+2, PACKAGE+3 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | CHECK+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | ADD+1*, ADD+3!, ADD+5*, ADD+8!, EDIT+1*, EDIT+4!, STATUS+1*, STATUS+2! |
| DA(1 | ADD+5*, ADD+6, EDIT+1*, EDIT+2 |
| DIE | ADD+1*, ADD+3!, ADD+6*, ADD+8!, EDIT+2*, EDIT+4!, STATUS+1*, STATUS+2! |
| DR | ADD+1*, ADD+3!, ADD+7*, ADD+8!, EDIT+3*, EDIT+4!, STATUS+1*, STATUS+2! |
| DR(2 | ADD+2* |
| U | PACKAGE+3, CHECK+4 |
| >> XDRFL | START+1, LOOP+2, CHECK+2, CHECK+4 |
| >> XDRM("NOTALK" | START+2, START+3, START+4 |
| XDRMI | LOOP+2*, LOOP+3!, EOJ+1! |
| XDRMPACK | START+5*, LOOP+2*, PACKAGE+2, PACKAGE+3, ADD+1, ADD+5, CHECK+2, CHECK+4, EDIT+1, EOJ+1! |
| XDRMPACK("STATUS" | PACKAGE+3, ADD+7, CHECK+3*, CHECK+4*, EDIT+3 |
| >> XDRMPDA | PACKAGE+2, PACKAGE+3, ADD+1, ADD+5, EDIT+1, STATUS+1 |
| XDRZ | CHECK+1*, CHECK+3, CHECK+4, CHECK+5! |
