source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XU8P387X.m@ 1111

Last change on this file since 1111 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1XU8P387X ;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
Note: See TracBrowser for help on using the repository browser.