| FILE |
5 |
| NAME |
ADUALC |
| DESCRIPTION |
This cross reference is used to maintain the dual REGULAR "C" cross
2)= Q
3)= Used in conjunction with the 'ADUALC'
xref.
5,2 VA STATE CODE 0;3 FREE TEXT
CROSS-REFERENCE: 5^C
1)= Q
2)= Q
3)= Used in conjunction with the 'ADUALC'
xref.
reference on the ABBREVIATION(#1) field and the VA STATE CODE(#2) field
and replaces the SET and KILL logic on the REGULAR traditional cross
reference. The REGULAR traditional cross references SET and KILL
logic are set to a "Q" so look ups will not error out.
5,1 ABBREVIATION 0;2 FREE TEXT (Required)
CROSS-REFERENCE: 5^C
1)= Q
|
| SHORT DESCRIPTION |
MU |
| TYPE |
MUMPS |
| EXECUTION |
RECORD |
| ACTIVITY |
IR |
| USE |
SORTING ONLY |
| ROOT TYPE |
INDEX FILE |
| ROOT FILE |
5 |
| SET LOGIC |
I ((X2(1)'="")!(X1(1)'=X2(1))),X2(1)'="" S ^DIC(5,"C",X2(1),DA)="" I ((X2(2)'="")!(X1(2)'=X2(2))),X2(2)'="" S ^DIC(5,"C",X2(2),DA)="" Q |
| CROSS-REFERENCE VALUES |
-
- ORDER NUMBER: 1
- TYPE OF VALUE: FIELD
- FILE: 5
- FIELD: 1
- COLLATION: forwards
-
- ORDER NUMBER: 2
- TYPE OF VALUE: FIELD
- FILE: 5
- FIELD: 2
- COLLATION: forwards
|
| KILL LOGIC |
I ((X2(1)="")!(X1(1)'=X2(1))),X1(1)'="" K ^DIC(5,"C",X1(1),DA) I ((X2(2)="")!(X1(2)'=X2(2))),X1(2)'="" K ^DIC(5,"C",X1(2),DA) Q |
| KILL ENTIRE INDEX CODE |
K ^DIC(5,"C") |
