| FILE | 
9.7 | 
| NAME | 
AKIDS | 
| DESCRIPTION | 
This cross reference will be used by InterSystems FM2Class (FileMan to
class) FM2Class will be able to check, based on $H, when a file was
last updated by a KIDS patch or package.
 
 | 
| SHORT DESCRIPTION | 
Used by FM2Class to track patches that modify files | 
| TYPE | 
MUMPS | 
| EXECUTION | 
FIELD | 
| ACTIVITY | 
I | 
| USE | 
SORTING ONLY | 
| ROOT TYPE | 
WHOLE FILE | 
| ROOT FILE | 
9.714 | 
| SET LOGIC | 
S ^XPD(9.7,"AKIDS",$E(X(1),1,11),$E(X(2),1,30),$E(X(3),1,30),DA(1))="" | 
| CROSS-REFERENCE VALUES | 
- 
- ORDER NUMBER:    1
 
- SUBSCRIPT NUMBER:    1
 
- TYPE OF VALUE:    COMPUTED VALUE
 
- COMPUTED CODE:    S X=$H
 
- MAXIMUM LENGTH:    11
 
- COLLATION:    backwards
 
- LOOKUP PROMPT:    $H
 
 
- 
- ORDER NUMBER:    2
 
- SUBSCRIPT NUMBER:    2
 
- TYPE OF VALUE:    FIELD
 
- FILE:    9.714
 
- FIELD:    .01
 
- MAXIMUM LENGTH:    30
 
- COLLATION:    forwards
 
 
- 
- ORDER NUMBER:    3
 
- SUBSCRIPT NUMBER:    3
 
- TYPE OF VALUE:    COMPUTED VALUE
 
- COMPUTED CODE:    S X=$P(^XPD(9.7,DA(1),0),U)
 
- MAXIMUM LENGTH:    30
 
- LOOKUP PROMPT:    Patch
 
 
 
 | 
| KILL LOGIC | 
K ^XPD(9.7,"AKIDS",$E(X(1),1,11),$E(X(2),1,30),$E(X(3),1,30),DA(1)) | 
| KILL ENTIRE INDEX CODE | 
K ^XPD(9.7,"AKIDS") |