| FILE |
20 |
| NAME |
ADEG |
| DESCRIPTION |
If this entry in the Name Components file corresponds to an entry in the
New Person file, this MUMPS cross-reference updates the DEGREE field in
the New Person file when the DEGREE field in the Name Components file is
changed, to ensure that the two fields are in synch.
|
| SHORT DESCRIPTION |
Update the DEGREE field in the New Person file, if necessary. |
| TYPE |
MUMPS |
| EXECUTION |
RECORD |
| ACTIVITY |
IR |
| USE |
ACTION |
| ROOT TYPE |
INDEX FILE |
| ROOT FILE |
20 |
| SET LOGIC |
I '$G(XUNODEGT),X(1)=200,X(2)=.01,X2(4)]"" N XUNODEGT,DIERR,FDA,MSG S XUNODEGT=1,FDA(200,X(3),10.6)=X(4) D FILE^DIE("","FDA","MSG") |
| CROSS-REFERENCE VALUES |
-
- ORDER NUMBER: 1
- TYPE OF VALUE: FIELD
- FILE: 20
- FIELD: .01
- COLLATION: forwards
-
- ORDER NUMBER: 2
- TYPE OF VALUE: FIELD
- FILE: 20
- FIELD: .02
- COLLATION: forwards
-
- ORDER NUMBER: 3
- TYPE OF VALUE: FIELD
- FILE: 20
- FIELD: .03
- COLLATION: forwards
-
- ORDER NUMBER: 4
- TYPE OF VALUE: FIELD
- FILE: 20
- FIELD: 6
- COLLATION: forwards
|
| KILL LOGIC |
I '$G(XUNODEGT),X(1)=200,X(2)=.01,X2(4)="" N XUNODEGT,DIERR,FDA,MSG S XUNODEGT=1,FDA(200,X(3),10.6)="@" D FILE^DIE("","FDA","MSG") |
