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