| FILE | 
2.3215 | 
| NAME | 
ALSTUP | 
| SHORT DESCRIPTION | 
TRIGGER THE DATE/TIME OF LAST CHANGE WHEN ANY PERTINENT FIELDS CHANGE | 
| TYPE | 
MUMPS | 
| EXECUTION | 
RECORD | 
| ACTIVITY | 
IR | 
| USE | 
ACTION | 
| ROOT TYPE | 
INDEX FILE | 
| ROOT FILE | 
2.3215 | 
| SET LOGIC | 
N DATA,DGENDA S DATA(.05)=$$NOW^XLFDT,DGENDA=DA,DGENDA(1)=DA(1) I $$UPD^DGENDBS(2.3215,.DGENDA,.DATA) | 
| SET CONDITION CODE | 
S X=$S($G(X2(1))'=""&($G(X1(1))'=$G(X2(1))):1,$G(X1(2))'=$G(X2(2)):1,$G(X1(3))'=$G(X2(3)):1,1:0) | 
| CROSS-REFERENCE VALUES | 
- 
- ORDER NUMBER:    1
 
- TYPE OF VALUE:    FIELD
 
- FILE:    2.3215
 
- FIELD:    .01
 
- COLLATION:    forwards
 
 
- 
- ORDER NUMBER:    2
 
- TYPE OF VALUE:    FIELD
 
- FILE:    2.3215
 
- FIELD:    .02
 
- COLLATION:    forwards
 
 
- 
- ORDER NUMBER:    3
 
- TYPE OF VALUE:    FIELD
 
- FILE:    2.3215
 
- FIELD:    .03
 
- COLLATION:    forwards
 
 
 
 | 
| KILL LOGIC | 
N DATA,DGENDA S DATA(.05)=$$NOW^XLFDT,DGENDA=DA,DGENDA(1)=DA(1) I $$UPD^DGENDBS(2.3215,.DGENDA,.DATA) |