| FILE |
704.005 |
| NAME |
LSTMSG |
| SHORT DESCRIPTION |
Keeps track of absolute last message sent. |
| TYPE |
REGULAR |
| EXECUTION |
RECORD |
| ACTIVITY |
IR |
| USE |
LOOKUP & SORTING |
| ROOT TYPE |
INDEX FILE |
| ROOT FILE |
704.005 |
| SET LOGIC |
S ^MDC(704.005,"LSTMSG",$E(X(1),1,99),$E(X(2),1,14),$E(X(3),1,30),DA)="" |
| SET CONDITION CODE |
S X=(X2(3)'="A08") |
| CROSS-REFERENCE VALUES |
-
- ORDER NUMBER: 1
- SUBSCRIPT NUMBER: 1
- TYPE OF VALUE: FIELD
- FILE: 704.005
- FIELD: .01
- MAXIMUM LENGTH: 99
- COLLATION: forwards
-
- ORDER NUMBER: 2
- SUBSCRIPT NUMBER: 2
- TYPE OF VALUE: FIELD
- FILE: 704.005
- FIELD: .02
- MAXIMUM LENGTH: 14
- COLLATION: backwards
-
- ORDER NUMBER: 3
- SUBSCRIPT NUMBER: 3
- TYPE OF VALUE: FIELD
- FILE: 704.005
- FIELD: .07
- MAXIMUM LENGTH: 30
- COLLATION: forwards
|
| KILL LOGIC |
K ^MDC(704.005,"LSTMSG",$E(X(1),1,99),$E(X(2),1,14),$E(X(3),1,30),DA) |
| KILL ENTIRE INDEX CODE |
K ^MDC(704.005,"LSTMSG") |