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! |