| FILE |
702 |
| NAME |
AVPR |
| DESCRIPTION |
This is an action index that updates the VPR
when the fields in this index are changed.
|
| SHORT DESCRIPTION |
Trigger updates to VPR |
| TYPE |
MUMPS |
| EXECUTION |
RECORD |
| USE |
ACTION |
| ROOT TYPE |
INDEX FILE |
| ROOT FILE |
702 |
| SET LOGIC |
Q ;I $T(UPD^VPRPROC)]"" D UPD^VPRPROC(X2(1),DA_";MDD(702,") |
| SET CONDITION CODE |
S:X2(1)'="" X=1 |
| CROSS-REFERENCE VALUES |
-
- ORDER NUMBER: 1
- TYPE OF VALUE: FIELD
- FILE: 702
- FIELD: .01
- COLLATION: forwards
-
- ORDER NUMBER: 2
- TYPE OF VALUE: FIELD
- FILE: 702
- FIELD: .02
- COLLATION: forwards
-
- ORDER NUMBER: 3
- TYPE OF VALUE: FIELD
- FILE: 702
- FIELD: .04
- COLLATION: forwards
|
| KILL LOGIC |
Q ;I $T(DEL^VPRPROC)]"" D DEL^VPRPROC(X1(1),DA_";MDD(702,") |
| KILL CONDITION CODE |
S:(X1(1)'=""&(X2(1)="")) X=1 |
