| 1 | XU8P387X ;FISC/SO-CREATE NEW-STYLE XREF ;5:27 AM 28 Nov 2005
|
|---|
| 2 | ;;8.0;KERNEL;**384**;Jul 10, 1995;Build 8
|
|---|
| 3 | ;
|
|---|
| 4 | N XUXXXR,XUXXRES,XUXXOUT
|
|---|
| 5 | S XUXXXR("FILE")=200
|
|---|
| 6 | S XUXXXR("NAME")="AUSER"
|
|---|
| 7 | S XUXXXR("TYPE")="MU"
|
|---|
| 8 | S XUXXXR("USE")="S"
|
|---|
| 9 | S XUXXXR("EXECUTION")="R"
|
|---|
| 10 | S XUXXXR("ACTIVITY")="IR"
|
|---|
| 11 | S XUXXXR("SHORT DESCR")="Build cross reference of active users"
|
|---|
| 12 | S XUXXXR("DESCR",1)="This is a cross reference of CPRS Active USERs (AUSER):"
|
|---|
| 13 | S XUXXXR("DESCR",2)=" "
|
|---|
| 14 | S XUXXXR("DESCR",3)=" The cross reference is in the format:"
|
|---|
| 15 | S XUXXXR("DESCR",4)=" ^VA(200,""AUSER"",<NAME(#.01) value>,IEN)="""""
|
|---|
| 16 | S XUXXXR("SET")="I DA'<1,$$PROVIDER^XUSER(DA),X(1)]"""",X(3)<1 S ^VA(200,""AUSER"",X(1),DA)="""" Q"
|
|---|
| 17 | S XUXXXR("KILL")="I ((DA'<1&X1(1)'=X2(1))!(DA'<1&X2(2)="""")) K ^VA(200,""AUSER"",X1(1),DA)"
|
|---|
| 18 | S XUXXXR("WHOLE KILL")="K ^VA(200,""AUSER"")"
|
|---|
| 19 | S XUXXXR("SET CONDITION")="Q"
|
|---|
| 20 | S XUXXXR("KILL CONDITION")="Q"
|
|---|
| 21 | S XUXXXR("VAL",1)=.01
|
|---|
| 22 | S XUXXXR("VAL",1,"COLLATION")="F"
|
|---|
| 23 | S XUXXXR("VAL",2)=2
|
|---|
| 24 | S XUXXXR("VAL",2,"COLLATION")="F"
|
|---|
| 25 | S XUXXXR("VAL",3)=7
|
|---|
| 26 | S XUXXXR("VAL",3,"COLLATION")="F"
|
|---|
| 27 | D CREIXN^DDMOD(.XUXXXR,"SW",.XUXXRES,"XUXXOUT")
|
|---|
| 28 | Q
|
|---|
