- 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 Feb 18, 2025@23:38:25 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
