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
