| FILE |
200 |
| NAME |
AUSER |
| DESCRIPTION |
This is a cross reference of CPRS Active USERs (AUSER):
The cross reference is in the format:
^VA(200,"AUSER",<NAME(#.01) value>,IEN)=""
|
| SHORT DESCRIPTION |
Build cross reference of active users |
| TYPE |
MUMPS |
| EXECUTION |
RECORD |
| ACTIVITY |
IR |
| USE |
SORTING ONLY |
| ROOT TYPE |
INDEX FILE |
| ROOT FILE |
200 |
| SET LOGIC |
I DA'<1,$$PROVIDER^XUSER(DA),X(1)]"",X(3)<1 S ^VA(200,"AUSER",X(1),DA)="" Q |
| SET CONDITION CODE |
Q |
| CROSS-REFERENCE VALUES |
-
- ORDER NUMBER: 1
- TYPE OF VALUE: FIELD
- FILE: 200
- FIELD: .01
- COLLATION: forwards
-
- ORDER NUMBER: 2
- TYPE OF VALUE: FIELD
- FILE: 200
- FIELD: 2
- COLLATION: forwards
-
- ORDER NUMBER: 3
- TYPE OF VALUE: FIELD
- FILE: 200
- FIELD: 7
- COLLATION: forwards
|
| KILL LOGIC |
I ((DA'<1&X1(1)'=X2(1))!(DA'<1&X2(2)="")) K ^VA(200,"AUSER",X1(1),DA) |
| KILL CONDITION CODE |
Q |
| KILL ENTIRE INDEX CODE |
K ^VA(200,"AUSER") |
