XUS6 ;ISCSF/RWF - Clear users at startup. ;06/17/2003 13:18
;;8.0;KERNEL;**258,312**;Jul 10, 1995
I '$D(ZTQUEUED) W !,"This is only to be run by taskman at startup." Q
A ;
N I,J,NOW,FDA,IEN,ERR S I=0,NOW=$$NOW^XLFDT
F S I=$O(^XUSEC(0,"CUR",I)),J=0 Q:I'>0 F S J=$O(^XUSEC(0,"CUR",I,J)) Q:J'>0 D
. I $D(^XUSEC(0,J,0))[0 K ^XUSEC(0,"CUR",I,J) Q ;No data record.
. S FDA(3.081,J_",",3)=NOW,FDA(3.081,J_",",16)=1 D UPDATE^DIE("","FDA","IEN","ERR")
. K FDA,IEN,ERR
. Q
;Clear the signed on flag.
F I=0:0 S I=$O(^VA(200,I)) Q:I'>0 I $P($G(^VA(200,I,1.1)),U,3) S $P(^VA(200,I,1.1),U,3)=0
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUS6 613 printed Nov 22, 2024@17:22:07 Page 2
XUS6 ;ISCSF/RWF - Clear users at startup. ;06/17/2003 13:18
+1 ;;8.0;KERNEL;**258,312**;Jul 10, 1995
+2 IF '$DATA(ZTQUEUED)
WRITE !,"This is only to be run by taskman at startup."
QUIT
A ;
+1 NEW I,J,NOW,FDA,IEN,ERR
SET I=0
SET NOW=$$NOW^XLFDT
+2 FOR
SET I=$ORDER(^XUSEC(0,"CUR",I))
SET J=0
if I'>0
QUIT
FOR
SET J=$ORDER(^XUSEC(0,"CUR",I,J))
if J'>0
QUIT
Begin DoDot:1
+3 ;No data record.
IF $DATA(^XUSEC(0,J,0))[0
KILL ^XUSEC(0,"CUR",I,J)
QUIT
+4 SET FDA(3.081,J_",",3)=NOW
SET FDA(3.081,J_",",16)=1
DO UPDATE^DIE("","FDA","IEN","ERR")
+5 KILL FDA,IEN,ERR
+6 QUIT
End DoDot:1
+7 ;Clear the signed on flag.
+8 FOR I=0:0
SET I=$ORDER(^VA(200,I))
if I'>0
QUIT
IF $PIECE($GET(^VA(200,I,1.1)),U,3)
SET $PIECE(^VA(200,I,1.1),U,3)=0
+9 QUIT