source: FOIAVistA/tag/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUS6.m@ 1569

Last change on this file since 1569 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 600 bytes
Line 
1XUS6 ;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
4A ;
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
Note: See TracBrowser for help on using the repository browser.