| FILE |
2 |
| NAME |
ACVCOM2 |
| DESCRIPTION |
This MUMPS cross reference will trigger an update to the Combat Veteran
End Date field #.5295 if the Service Separation Date for the
last (most recent) military service episode is entered.
|
| SHORT DESCRIPTION |
Update Combat Veteran End Date |
| TYPE |
MUMPS |
| EXECUTION |
FIELD |
| ACTIVITY |
IR |
| USE |
ACTION |
| ROOT TYPE |
WHOLE FILE |
| ROOT FILE |
2.3216 |
| SET LOGIC |
D SETCV^DGCV(DA(1),X2(2)) |
| SET CONDITION CODE |
I '$P($G(^DPT(DA(1),.52)),U,15) S X=$$CVELIG^DGCV(DA(1)) |
| CROSS-REFERENCE VALUES |
-
- ORDER NUMBER: 1
- TYPE OF VALUE: FIELD
- FILE: 2.3216
- FIELD: .02
- COLLATION: forwards
-
- ORDER NUMBER: 2
- TYPE OF VALUE: COMPUTED VALUE
- COMPUTED CODE: S X=$P($$LAST^DGMSEUTL(DA(1)),U,2)
|
| KILL LOGIC |
Q |
