| FILE |
2 |
| NAME |
ANAM2191 |
| DESCRIPTION |
This cross reference uses Kernel name standardization APIs to keep the NAME
COMPONENTS (#20) file record associated with the #.2191 field synchronized
with the data value stored in that field.
|
| SHORT DESCRIPTION |
This index keeps the NAME COMPONENTS file in synch with field #.2191. |
| 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,.2191,.DG20NAME,1.03,+$P($G(^DPT(DA,"NAME")),U,3),"CL35") K DG20NAME Q |
| CROSS-REFERENCE VALUES |
-
- ORDER NUMBER: 1
- SUBSCRIPT NUMBER: 1
- TYPE OF VALUE: FIELD
- FILE: 2
- FIELD: .2191
- COLLATION: forwards
|
| KILL LOGIC |
I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.2191,1.03) Q |
