DG53177P ;ALB/SEK - VALIDATE ELIGIBILITY CODE FILES ROUTINE; 20 JULY 1998
Source file <DG53177P.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PRINT1 | ; Print ELIGIBILITY CODE file discrepancies
|
|
QUIT | ||
EN | ;
|
|
ERR3 | ||
NODEZ | ; check ^DIC(8.1,0 for 21 entries
|
|
CORR | ||
; Print MAS ELIGIBILITY CODE file discrepancies
|
||
ERR2 | ||
ERR1 | ||
QUIT1 | ||
DATA | ; IEN^NAME^INACTIVE of MAS ELIGIBILIY CODE file (#8.1)
|
|
CHECK | ; Checking the ELIGIBILITY CODE file (#8)
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(8 - [#8] | CHECK+9, CHECK+10 |
^DIC(8.1 - [#8.1] | EN+8, NODEZ+1 |
Name | Line Occurrences |
---|---|
@( | PRINT1+9 |
CHECK | NODEZ+4 |
CORR | NODEZ+1 |
NODEZ | PRINT+1 |
EN+6 | |
PRINT1 | CHECK+9 |
QUIT | CORR+2, PRINT1+1 |
QUIT1 | PRINT1+14 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DG1 | EN+3~, EN+6*, CHECK+3~, CHECK+8*, CHECK+9*, CHECK+10, CHECK+12, CHECK+15, CHECK+16, PRINT1+6~ , PRINT1+7*, PRINT1+8*, PRINT1+9, PRINT1+11, PRINT1+12 |
DG2 | EN+3~, PRINT+3*, PRINT+4, PRINT+6, CHECK+3~, CHECK+10*, CHECK+11, CHECK+12, CHECK+14, CHECK+15 , CHECK+16, PRINT1+6~, PRINT1+10*, PRINT1+11*, PRINT1+12 |
DGACT | EN+3~, EN+7*, EN+9, PRINT+5*, PRINT+7, PRINT+9, CHECK+3~, CHECK+13*, CHECK+15, CHECK+16 |
DGERR | EN+4!, QUIT! |
DGERR( | EN+8*, EN+10*, PRINT+4, PRINT+6, PRINT1+8, PRINT1+11, PRINT1+12 |
DGERR(1 | CHECK+12* |
DGERR(2 | CHECK+15* |
DGERR(3 | CHECK+16* |
DGIEN | EN+3~, EN+7*, EN+8, PRINT+5*, PRINT+7, PRINT+9 |
DGN | EN+3~, EN+5*, EN+8*, EN+10*, PRINT+1, PRINT+3, NODEZ+4, CHECK+3~, CHECK+8*, CHECK+12* , CHECK+15*, CHECK+16*, PRINT1+1 |
DGNAME | EN+3~, EN+7*, EN+9, PRINT+5*, PRINT+7, PRINT+9 |
DGP | CHECK+3~, CHECK+11*, CHECK+12 |
DGS | EN+3~, EN+8*, EN+9 |
DGSACT | EN+3~, CHECK+3~, CHECK+14*, CHECK+15, CHECK+16 |
DGX | EN+3~, EN+6*, EN+7, EN+8, EN+10, PRINT+4*, PRINT+5 |
DGX1 | EN+3~, PRINT+6* |
Name | Field # of Occurrence |
---|---|
$T(DATA+DG1 | EN+6 |
$T(DATA+DGP | CHECK+13 |