| FILE |
2 |
| NAME |
ANAM01 |
| DESCRIPTION |
This cross reference uses Kernel name standardization APIs to keep the NAME
COMPONENTS (#20) file record associated with the #.01 field synchronized
with the data value stored in that field.
|
| SHORT DESCRIPTION |
This index keeps the NAME COMPONENTS file in synch with the .01 field. |
| TYPE |
MUMPS |
| EXECUTION |
FIELD |
| ACTIVITY |
IR |
| USE |
ACTION |
| ROOT TYPE |
INDEX FILE |
| ROOT FILE |
2 |
| SET LOGIC |
I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.01,.DG20NAME,1.01,+$P($G(^DPT(DA,"NAME")),U),"CL30") K DG20NAME Q |
| CROSS-REFERENCE VALUES |
-
- ORDER NUMBER: 1
- SUBSCRIPT NUMBER: 1
- TYPE OF VALUE: FIELD
- FILE: 2
- FIELD: .01
- COLLATION: forwards
|
| KILL LOGIC |
I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.01,1.01) Q |
