XDRMPACK ;IHS/OHPRD/JCM - CHECKS PACKAGE FILE FOR SPECIAL MERGES; [ 08/13/92 09:50 AM ]
Source file <XDRMPACK.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| STATUS | ; Changes merge status field to ready if no packages affect merge | |
| END | ||
| PACKAGE | ; Checks packages that affects patient merge | |
| EDIT | ; | |
| EOJ | ; End of job and cleanup | |
| START | ; | |
| ADD | ; | |
| CHECK | ; | |
| LOOP | ; Checks packages that affects patient merge and edits Merge Package ; mulitple of Duplicate Record file. | 
| Name | Field # of Occurrence | 
|---|---|
| ^DIE | ADD+3, ADD+8, EDIT+4, STATUS+2 | 
| 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 | Line Occurrences | 
|---|---|
| ADD | PACKAGE+2 | 
| CHECK | PACKAGE+3, ADD+4 | 
| EDIT | PACKAGE+3 | 
| END | START+1 | 
| EOJ | END | 
| PACKAGE | LOOP+2 | 
| STATUS | START+1 | 
| 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! |