| FILE |
2 |
| NAME |
ACVCOM |
| DESCRIPTION |
This multi-level MUMPS x-ref will trigger an update to the Combat Vet
years, and will only be updated if information in these fields has
changed.
Eligibility End Date field under the following conditions:
1) Service Separation Date [Last] is precise and > 2981111 AND EITHER
2) Combat To Date is after 11/11/98 OR
Persian Gulf To Date is after 11/11/98 OR
Somalia To Date is after 11/11/98 OR
Yugoslavia To Date is after 11/11/98
The Combat vet field will be set to the Service Separation Date + 2
|
| SHORT DESCRIPTION |
Update Combat Vet Eligibility End Date |
| TYPE |
MUMPS |
| EXECUTION |
RECORD |
| USE |
ACTION |
| ROOT TYPE |
INDEX FILE |
| ROOT FILE |
2 |
| SET LOGIC |
N DGZ S DGZ=$S(X2(10):X2(10),1:X2(1)) D SETCV^DGCV(DA,DGZ) |
| SET CONDITION CODE |
I '$P($G(^DPT(DA,.52)),"^",15) S X=$$CVELIG^DGCV(DA) |
| CROSS-REFERENCE VALUES |
-
- ORDER NUMBER: 1
- TYPE OF VALUE: FIELD
- FILE: 2
- FIELD: .327
- COLLATION: forwards
-
- ORDER NUMBER: 10
- TYPE OF VALUE: COMPUTED VALUE
- COMPUTED CODE: S X=$P($$LAST^DGMSEUTL(DA),U,2)
-
- ORDER NUMBER: 2
- TYPE OF VALUE: FIELD
- FILE: 2
- FIELD: .5294
- COLLATION: forwards
-
- ORDER NUMBER: 3
- TYPE OF VALUE: FIELD
- FILE: 2
- FIELD: .322021
- COLLATION: forwards
-
- ORDER NUMBER: 4
- TYPE OF VALUE: FIELD
- FILE: 2
- FIELD: .322018
- COLLATION: forwards
-
- ORDER NUMBER: 5
- TYPE OF VALUE: FIELD
- FILE: 2
- FIELD: .322012
- COLLATION: forwards
-
- ORDER NUMBER: 6
- TYPE OF VALUE: FIELD
- FILE: 2
- FIELD: .5291
- COLLATION: forwards
-
- ORDER NUMBER: 7
- TYPE OF VALUE: FIELD
- FILE: 2
- FIELD: .322019
- COLLATION: forwards
-
- ORDER NUMBER: 8
- TYPE OF VALUE: FIELD
- FILE: 2
- FIELD: .322016
- COLLATION: forwards
-
- ORDER NUMBER: 9
- TYPE OF VALUE: FIELD
- FILE: 2
- FIELD: .32201
- COLLATION: forwards
|
| KILL LOGIC |
Q |
| KILL CONDITION CODE |
Q |
