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/XQA366PO.m@ 1326

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

initial load of FOIAVistA 6/30/08 version

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