| FILE |
2.3215 |
| NAME |
ACVCOM1 |
| DESCRIPTION |
This MUMPS x-ref will trigger an update to the Combat Vet Eligibility End
Date field under the following conditions:
If the COMBAT VETERAN END DATE (#.5295) of the PATIENT file (#2) is null
AND either
The SERVICE SEPARATION DATE [LAST] (#.327) is missing
OR
The SERVICE SEPARATION DATE [LAST] (#.327) is less than the
OEF/OIF TO DATE - #.03 in subfile 2.3215
|
| SHORT DESCRIPTION |
Set CV End Date based on OEF/OIF fields |
| TYPE |
MUMPS |
| EXECUTION |
FIELD |
| USE |
ACTION |
| ROOT TYPE |
INDEX FILE |
| ROOT FILE |
2.3215 |
| SET LOGIC |
N DGZ S DGZ=$S(X2(3)'DGCV(DA(1),DGZ) |
| SET CONDITION CODE |
I '$P($G(^DPT(DA(1),.52)),"^",15) S X=$$CVELIG^DGCV(DA(1)) |
| CROSS-REFERENCE VALUES |
-
- ORDER NUMBER: 1
- TYPE OF VALUE: FIELD
- FILE: 2.3215
- FIELD: .03
- COLLATION: forwards
-
- ORDER NUMBER: 2
- TYPE OF VALUE: COMPUTED VALUE
- COMPUTED CODE: S X=$P($$LAST^DGENOEIF(DA(1)),U)
-
- ORDER NUMBER: 3
- TYPE OF VALUE: COMPUTED VALUE
- COMPUTED CODE: S X=$S($D(^DPT(DA(1),.3216)):$P($$LAST^DGMSEUTL(DA(1)),U,2),1:$P($G(^DPT(DA(1),.32)),U,7))
|
| KILL LOGIC |
Q |
