XUS6.m

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 ---XUS6   613     printed  Apr 09, 2024@21:10:16                                                                                                                                                                                                         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