| FILE |
773 |
| NAME |
AHNEW |
| SHORT DESCRIPTION |
This x-ref is used to look up the original message to check duplicate |
| TYPE |
MUMPS |
| EXECUTION |
FIELD |
| ACTIVITY |
IR |
| USE |
ACTION |
| ROOT TYPE |
INDEX FILE |
| ROOT FILE |
773 |
| SET LOGIC |
N HDR,FLD S HDR=$G(^HLMA(DA,"MSH",1,0)) Q:HDR']"" S:$G(^HLMA(DA,"MSH",2,0))]"" HDR=HDR_$G(^HLMA(DA,"MSH",2,0)) S FLD=$E(HDR,4) Q:FLD']"" S HDR=$P(HDR,FLD,3,6) S:HDR]"" ^HLMA("AH-NEW",HDR,X,DA)="" |
| CROSS-REFERENCE VALUES |
-
- ORDER NUMBER: 1
- SUBSCRIPT NUMBER: 1
- TYPE OF VALUE: FIELD
- FILE: 773
- FIELD: 2
- MAXIMUM LENGTH: 60
- COLLATION: forwards
|
| KILL LOGIC |
N HDR,FLD S HDR=$G(^HLMA(DA,"MSH",1,0)) Q:HDR']"" S:$G(^HLMA(DA,"MSH",2,0))]"" HDR=HDR_$G(^HLMA(DA,"MSH",2,0)) S FLD=$E(HDR,4) Q:FLD']"" S HDR=$P(HDR,FLD,3,6) K:HDR]"" ^HLMA("AH-NEW",HDR,X,DA) |
| KILL ENTIRE INDEX CODE |
K ^HLMA("AH-NEW") |
