| 1 | XUS9 ;SF/RWF - Find a user ;01/21/2003 08:45
|
---|
| 2 | ;;8.0;KERNEL;**258**;Jul 10, 1995
|
---|
| 3 | N %,%H,DA,DIC,I,Y,X,XU1,XU2,XU3,XU4,XU5,XU6,XUSER,XUJOB,XUVOL,XUCI,XUDT
|
---|
| 4 | 1 X ^%ZOSF("UCI") S XU1=$P(Y,",",1),XU2=^%ZOSF("VOL"),X="T-1",%DT="" D ^%DT S XU4=Y
|
---|
| 5 | A S DIC="^VA(200,",DIC(0)="AEMQ",DIC("A")="Find User: " D ^DIC G EXIT:Y'>0 S DA=+Y,XUSER=$P(Y,"^",2)
|
---|
| 6 | W !!,"User: ",XUSER,$S($D(^XUSEC(0,"CUR",DA))=10:" is found on;",1:" isn't currently on the system")
|
---|
| 7 | F XU5=0:0 S XU5=$O(^XUSEC(0,"CUR",DA,XU5)) Q:XU5'>0 D B
|
---|
| 8 | W !,"DONE" G A
|
---|
| 9 | EXIT ;K %,%H,DA,DIC,I,Y,X
|
---|
| 10 | EX2 ;K XU1,XU2,XU3,XU4,XU5,XU6,XUSER,XUJOB,XUVOL,XUCI,XUDT
|
---|
| 11 | Q
|
---|
| 12 | B ;Find
|
---|
| 13 | G:XU5<XU4 REMOVE ;Sign-on more than 24 hours old.
|
---|
| 14 | S XU3=$S($D(^XUSEC(0,XU5,0)):^(0),1:"") G REMOVE:'$L(XU3),REMOVE:$P(XU3,"^",4)
|
---|
| 15 | S XUCI=$P(XU3,"^",8),XUVOL=$P(XU3,"^",5),Y=XU5,XUJOB=$P(XU3,"^",3),XU6=XUJOB D DD^%DT S XUDT=Y
|
---|
| 16 | I XUJOB>2048 S X1=16,X=XUJOB D CNV^XTBASE S XU6=XUJOB_" ("_Y_")"
|
---|
| 17 | W !,"Job: ",XU6," on ",XUCI,",",XUVOL,$S($P(XU3,"^",10)]"":":"_$P(XU3,"^",10),1:"")," from ",XUDT
|
---|
| 18 | W !,"Device: ",$P(XU3,"^",2) W:$P(XU3,"^",9)]"" " (",$P(XU3,"^",9),")"
|
---|
| 19 | Q:XUCI'=XU1!(XUVOL'=XU2) G:$S($D(^XUTL("XQ",XUJOB,"DUZ")):^("DUZ"),1:0)'=DA REMOVE
|
---|
| 20 | W !?3,"Menu path:"
|
---|
| 21 | I $D(^XUTL("XQ",XUJOB,"T")) F I=1:1:^XUTL("XQ",XUJOB,"T") Q:'$D(^XUTL("XQ",XUJOB,I)) S Y=^(I) W !,?I*3+2,$P(Y,"^",3)
|
---|
| 22 | W !
|
---|
| 23 | Q
|
---|
| 24 | REMOVE ;Questionable entry removed
|
---|
| 25 | ;If we have a sign-off time just remove the "CUR" X-ref.
|
---|
| 26 | I $P($G(^XUSEC(0,XU5,0)),"^",4) K ^XUSEC(0,"CUR",DA,XU5) Q
|
---|
| 27 | N FDA
|
---|
| 28 | S FDA(3.081,XU5_",",3)=$$NOW^XLFDT,FDA(3.081,XU5_",",16)=1
|
---|
| 29 | D UPDATE^DIE("","FDA")
|
---|
| 30 | Q
|
---|
| 31 | INQ Q:'$D(D0) N DA X ^%ZOSF("UCI") S XU1=$P(Y,",",1),XU2=^%ZOSF("VOL"),DA=D0,XU4=DT-1
|
---|
| 32 | F XU5=0:0 S XU5=$O(^XUSEC(0,"CUR",DA,XU5)) Q:XU5'>0 D B
|
---|
| 33 | G EX2
|
---|