| 1 | XQA366PO ;ISC-SF.SEA/JLI - POST INSTALL FOR SURROGATES FOR ALERTS ;9/6/05 14:35
|
|---|
| 2 | ;;8.0;KERNEL;**366**;Jul 10, 1995
|
|---|
| 3 | ;;
|
|---|
| 4 | ; go through alert file and convert any current surrogates to active entries in surrogate multiple
|
|---|
| 5 | N XQAI,XQANOW,X0
|
|---|
| 6 | S XQANOW=$$NOW^XLFDT()
|
|---|
| 7 | F XQAI=0:0 S XQAI=$O(^XTV(8992,XQAI)) Q:XQAI'>0 S X0=$G(^(XQAI,0)) S:X0="" ^XTV(8992,XQAI,0)=XQAI D
|
|---|
| 8 | . N XQALSURO,XQALSTRT,XQALEND
|
|---|
| 9 | . S XQALSURO=$P(X0,U,2),XQALSTRT=$P(X0,U,3),XQALEND=$P(X0,U,4)
|
|---|
| 10 | . I XQALSURO="" Q
|
|---|
| 11 | . I $D(^XTV(8992,XQAI,2)) Q
|
|---|
| 12 | . N XQAIENS,XQAFDA
|
|---|
| 13 | . I XQALSTRT="" S XQALSTRT=XQANOW,XQAFDA(8992,XQAI_",",.03)=XQANOW D FILE^DIE("","XQAFDA") K XQAFDA
|
|---|
| 14 | . S XQAIENS="+1,"_XQAI_",",XQAFDA(8992.02,XQAIENS,.01)=XQALSTRT
|
|---|
| 15 | . S XQAFDA(8992.02,XQAIENS,.02)=XQALSURO
|
|---|
| 16 | . I XQALEND'="" S XQAFDA(8992.02,XQAIENS,.03)=XQALEND
|
|---|
| 17 | . I XQALSTRT'>XQANOW S XQAFDA(8992.02,XQAIENS,.04)=1
|
|---|
| 18 | . D UPDATE^DIE("","XQAFDA")
|
|---|
| 19 | . Q
|
|---|
| 20 | Q
|
|---|
