Routine: XU8P387X

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")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P387X   1137     printed  Apr 23, 2025@18:22:03                                                                                                                                                                                                    Page 2

XU8P387X  ;FISC/SO-CREATE NEW-STYLE XREF ;5:27 AM  28 Nov 2005

 +1       ;;8.0;KERNEL;**384**;Jul 10, 1995;Build 8

 +2       ;

 +3        NEW XUXXXR,XUXXRES,XUXXOUT

 +4        SET XUXXXR("FILE")=200

 +5        SET XUXXXR("NAME")="AUSER"

 +6        SET XUXXXR("TYPE")="MU"

 +7        SET XUXXXR("USE")="S"

 +8        SET XUXXXR("EXECUTION")="R"

 +9        SET XUXXXR("ACTIVITY")="IR"

 +10       SET XUXXXR("SHORT DESCR")="Build cross reference of active users"

 +11       SET XUXXXR("DESCR",1)="This is a cross reference of CPRS Active USERs (AUSER):"

 +12       SET XUXXXR("DESCR",2)=" "

 +13       SET XUXXXR("DESCR",3)=" The cross reference is in the format:"

 +14       SET XUXXXR("DESCR",4)=" ^VA(200,""AUSER"",<NAME(#.01) value>,IEN)="""""

 +15       SET XUXXXR("SET")="I DA'<1,$$PROVIDER^XUSER(DA),X(1)]"""",X(3)<1 S ^VA(200,""AUSER"",X(1),DA)="""" Q"

 +16       SET XUXXXR("KILL")="I ((DA'<1&X1(1)'=X2(1))!(DA'<1&X2(2)="""")) K ^VA(200,""AUSER"",X1(1),DA)"

 +17       SET XUXXXR("WHOLE KILL")="K ^VA(200,""AUSER"")"

 +18       SET XUXXXR("SET CONDITION")="Q"

 +19       SET XUXXXR("KILL CONDITION")="Q"

 +20       SET XUXXXR("VAL",1)=.01

 +21       SET XUXXXR("VAL",1,"COLLATION")="F"

 +22       SET XUXXXR("VAL",2)=2

 +23       SET XUXXXR("VAL",2,"COLLATION")="F"

 +24       SET XUXXXR("VAL",3)=7

 +25       SET XUXXXR("VAL",3,"COLLATION")="F"

 +26       DO CREIXN^DDMOD(.XUXXXR,"SW",.XUXXRES,"XUXXOUT")

 +27       QUIT

XU8P387X.m