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