| FILE |
200 |
| NAME |
ANAME |
| DESCRIPTION |
This MUMPS cross-reference keeps the Name field in the New Person file in
by the input transform on the .01 field. If XUITNAME is set, the input
transform returns in the XLFNC array the component parts of the name. This
MUMPS cross-reference can then get the name components from the XLFNC
array to populate the Name Components file.
synch with the corresponding entry in the Name Components file (#20).
The XUNOTRIG flag controls whether this cross-reference is executed. The
form XUEXISTING USER and the XUNEW USER forms both set the XUNOTRIG flag,
because the forms themselves contain the logic necessary to keep the two
files in synch.
XUITNAME is set by the XUEXISTING USER and XUNEW USER forms and is checked
|
| SHORT DESCRIPTION |
Update the corresponding entry in the Name Components file. |
| TYPE |
MUMPS |
| EXECUTION |
FIELD |
| ACTIVITY |
IR |
| USE |
ACTION |
| ROOT TYPE |
INDEX FILE |
| ROOT FILE |
200 |
| SET LOGIC |
I '$G(XUNOTRIG),X2(1)]"" N XUNOTRIG,XUPVAL S XUNOTRIG=1,XUPVAL=$P($G(^VA(200,DA,3.1)),U) K:'$D(XUITNAME) XLFNC S:$D(XLFNC)<2 XLFNC=X2(1) D UPDCOMP^XLFNAME2(200,DA,.01,.XLFNC,10.1,XUPVAL) K XLFNC,XUITNAME |
| CROSS-REFERENCE VALUES |
-
- ORDER NUMBER: 1
- SUBSCRIPT NUMBER: 1
- TYPE OF VALUE: FIELD
- FILE: 200
- FIELD: .01
- COLLATION: forwards
|
| KILL LOGIC |
I '$G(XUNOTRIG),X2(1)="" N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(200,DA,.01) |
