YS148PST.m

YS148PST ;SLC/KCM - Patch 148 post-init ; 03/28/2019

 ;;5.01;MENTAL HEALTH;**148**;Dec 30, 1994;Build 8

 ;

POST ; post-init

 D EN^XPAR("SYS","YS123 RE-INDEX STATUS",1,"Re-index Skipped")

 I XPDQUES("POST-Q1")=1 QUIT  ; do nothing -- skip selected

 D QTASK(XPDQUES("POST-Q2"))

 Q

QTASK(QTIME) ; Create background task for re-indexing result files

 N ZTRTN,ZTDESC,ZTDTH,ZTIO,ZTSAVE,ZTSK,YS148IN,MSG

 S YS148IN=DUZ

 S ZTIO=""

 S ZTRTN="REIDX^YS148IDX"

 S ZTDESC="Re-index MH Results"

 S ZTDTH=QTIME

 S ZTSAVE("YS148IN")=""

 D ^%ZTLOAD

 I '$G(ZTSK) S MSG="Unsuccessful queue of re-indexing job." I 1

 E  S MSG="Re-indexing queued as TASK #"_ZTSK

 D MES^XPDUTL(MSG)

 D EN^XPAR("SYS","YS123 RE-INDEX STATUS",1,MSG)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---YS148PST   734     printed  Apr 09, 2024@21:23:19                                                                                                                                                                                                     Page 2

YS148PST  ;SLC/KCM - Patch 148 post-init ; 03/28/2019

 +1       ;;5.01;MENTAL HEALTH;**148**;Dec 30, 1994;Build 8

 +2       ;

POST      ; post-init

 +1        DO EN^XPAR("SYS","YS123 RE-INDEX STATUS",1,"Re-index Skipped")

 +2       ; do nothing -- skip selected

           IF XPDQUES("POST-Q1")=1

               QUIT 

 +3        DO QTASK(XPDQUES("POST-Q2"))

 +4        QUIT 

QTASK(QTIME) ; Create background task for re-indexing result files

 +1        NEW ZTRTN,ZTDESC,ZTDTH,ZTIO,ZTSAVE,ZTSK,YS148IN,MSG

 +2        SET YS148IN=DUZ

 +3        SET ZTIO=""

 +4        SET ZTRTN="REIDX^YS148IDX"

 +5        SET ZTDESC="Re-index MH Results"

 +6        SET ZTDTH=QTIME

 +7        SET ZTSAVE("YS148IN")=""

 +8        DO ^%ZTLOAD

 +9        IF '$GET(ZTSK)

               SET MSG="Unsuccessful queue of re-indexing job."

               IF 1

 +10      IF '$TEST

               SET MSG="Re-indexing queued as TASK #"_ZTSK

 +11       DO MES^XPDUTL(MSG)

 +12       DO EN^XPAR("SYS","YS123 RE-INDEX STATUS",1,MSG)

 +13       QUIT