XQA366PO.m

XQA366PO ;ISC-SF.SEA/JLI - POST INSTALL FOR SURROGATES FOR ALERTS ;9/6/05  14:35

 ;;8.0;KERNEL;**366**;Jul 10, 1995

 ;;

 ; go through alert file and convert any current surrogates to active entries in surrogate multiple

 N XQAI,XQANOW,X0

 S XQANOW=$$NOW^XLFDT()

 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

 . N XQALSURO,XQALSTRT,XQALEND

 . S XQALSURO=$P(X0,U,2),XQALSTRT=$P(X0,U,3),XQALEND=$P(X0,U,4)

 . I XQALSURO="" Q

 . I $D(^XTV(8992,XQAI,2)) Q

 . N XQAIENS,XQAFDA

 . I XQALSTRT="" S XQALSTRT=XQANOW,XQAFDA(8992,XQAI_",",.03)=XQANOW D FILE^DIE("","XQAFDA") K XQAFDA

 . S XQAIENS="+1,"_XQAI_",",XQAFDA(8992.02,XQAIENS,.01)=XQALSTRT

 . S XQAFDA(8992.02,XQAIENS,.02)=XQALSURO

 . I XQALEND'="" S XQAFDA(8992.02,XQAIENS,.03)=XQALEND

 . I XQALSTRT'>XQANOW S XQAFDA(8992.02,XQAIENS,.04)=1

 . D UPDATE^DIE("","XQAFDA")

 . Q

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XQA366PO   901     printed  Apr 09, 2024@21:09:02                                                                                                                                                                                                     Page 2

XQA366PO  ;ISC-SF.SEA/JLI - POST INSTALL FOR SURROGATES FOR ALERTS ;9/6/05  14:35

 +1       ;;8.0;KERNEL;**366**;Jul 10, 1995

 +2       ;;

 +3       ; go through alert file and convert any current surrogates to active entries in surrogate multiple

 +4        NEW XQAI,XQANOW,X0

 +5        SET XQANOW=$$NOW^XLFDT()

 +6        FOR XQAI=0:0

               SET XQAI=$ORDER(^XTV(8992,XQAI))

               if XQAI'>0

                   QUIT 

               SET X0=$GET(^(XQAI,0))

               if X0=""

                   SET ^XTV(8992,XQAI,0)=XQAI

               Begin DoDot:1

 +7                NEW XQALSURO,XQALSTRT,XQALEND

 +8                SET XQALSURO=$PIECE(X0,U,2)

                   SET XQALSTRT=$PIECE(X0,U,3)

                   SET XQALEND=$PIECE(X0,U,4)

 +9                IF XQALSURO=""

                       QUIT 

 +10               IF $DATA(^XTV(8992,XQAI,2))

                       QUIT 

 +11               NEW XQAIENS,XQAFDA

 +12               IF XQALSTRT=""

                       SET XQALSTRT=XQANOW

                       SET XQAFDA(8992,XQAI_",",.03)=XQANOW

                       DO FILE^DIE("","XQAFDA")

                       KILL XQAFDA

 +13               SET XQAIENS="+1,"_XQAI_","

                   SET XQAFDA(8992.02,XQAIENS,.01)=XQALSTRT

 +14               SET XQAFDA(8992.02,XQAIENS,.02)=XQALSURO

 +15               IF XQALEND'=""

                       SET XQAFDA(8992.02,XQAIENS,.03)=XQALEND

 +16               IF XQALSTRT'>XQANOW

                       SET XQAFDA(8992.02,XQAIENS,.04)=1

 +17               DO UPDATE^DIE("","XQAFDA")

 +18               QUIT 

               End DoDot:1

 +19       QUIT