| FILE |
130 |
| NAME |
AG |
| DESCRIPTION |
Automatically capture the timestamp fields when the corresponding
field is entered or changed.
|
| SHORT DESCRIPTION |
Timestamp fields update |
| TYPE |
MUMPS |
| EXECUTION |
FIELD |
| ACTIVITY |
IR |
| USE |
ACTION |
| ROOT TYPE |
INDEX FILE |
| ROOT FILE |
130 |
| SET LOGIC |
N I S (X,I)=0 F S I=$O(X1(I)) Q:'I I X1(I)'=X2(I) S X=1 Q |
| SET CONDITION CODE |
N I S I=0 F S I=$O(X1(I)) Q:'I I X1(I)'=X2(I) D NOW^%DTC S $P(^SRF(DA,"VERD"),"^",I+2)=% |
| CROSS-REFERENCE VALUES |
-
- ORDER NUMBER: 1
- TYPE OF VALUE: FIELD
- FILE: 130
- FIELD: 71
- COLLATION: forwards
-
- ORDER NUMBER: 2
- TYPE OF VALUE: FIELD
- FILE: 130
- FIELD: 72
- COLLATION: forwards
-
- ORDER NUMBER: 3
- TYPE OF VALUE: FIELD
- FILE: 130
- FIELD: 73
- COLLATION: forwards
|
| KILL LOGIC |
N I S (X,I)=0 F S I=$O(X1(I)) Q:'I I X1(I)'=X2(I) S X=1 Q |
| KILL CONDITION CODE |
N I S I=0 F S I=$O(X1(I)) Q:'I I X1(I)'=X2(I) D NOW^%DTC S $P(^SRF(DA,"VERD"),"^",I+2)=% |
