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 ---[H[J[2J[HYS148PST 734 printed Nov 22, 2024@17:22:28 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
