| 1 | XUS6 ;ISCSF/RWF - Clear users at startup. ;06/17/2003 13:18
|
|---|
| 2 | ;;8.0;KERNEL;**258,312**;Jul 10, 1995
|
|---|
| 3 | I '$D(ZTQUEUED) W !,"This is only to be run by taskman at startup." Q
|
|---|
| 4 | A ;
|
|---|
| 5 | N I,J,NOW,FDA,IEN,ERR S I=0,NOW=$$NOW^XLFDT
|
|---|
| 6 | 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
|
|---|
| 7 | . I $D(^XUSEC(0,J,0))[0 K ^XUSEC(0,"CUR",I,J) Q ;No data record.
|
|---|
| 8 | . S FDA(3.081,J_",",3)=NOW,FDA(3.081,J_",",16)=1 D UPDATE^DIE("","FDA","IEN","ERR")
|
|---|
| 9 | . K FDA,IEN,ERR
|
|---|
| 10 | . Q
|
|---|
| 11 | ;Clear the signed on flag.
|
|---|
| 12 | 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
|
|---|
| 13 | Q
|
|---|
