ZOSVKSP3 ;SP/JML - VSM 3 Post install routine ;10/16/2020
;;8.0;KERNEL;**740**;3/1/2018;Build 6
;
EN ;-- entry point for post-install
;
D MES^XPDUTL(" Begin Post-Install...")
D STOPMON^KMPVCBG("VBEM",1)
D MES^XPDUTL(" VBEM Monitor Stopped...")
;
N %D,%S,SCR,ZTOS
S ZTOS=$$OSNUM^ZTMGRSET
; if not supported
I ZTOS'=3 D Q
.D MES^XPDUTL(" "_$P($T(@ZTOS^ZTMGRSET),";",3)_" is not supported. No routine saved!")
; supported
S %D="%ZOSVKSD^%ZOSVKR",%S="ZOSVKSD^ZOSVKRO",SCR="I 1"
D MOVE^ZTMGRSET
D MES^XPDUTL(" for "_$P($T(@ZTOS^ZTMGRSET),";",3)_".")
;
D STARTMON^KMPVCBG("VBEM",1)
D MES^XPDUTL(" VBEM Monitor Restarted...")
D MES^XPDUTL(" Post-Install complete!")
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HZOSVKSP3 720 printed Dec 13, 2024@02:15:42 Page 2
ZOSVKSP3 ;SP/JML - VSM 3 Post install routine ;10/16/2020
+1 ;;8.0;KERNEL;**740**;3/1/2018;Build 6
+2 ;
EN ;-- entry point for post-install
+1 ;
+2 DO MES^XPDUTL(" Begin Post-Install...")
+3 DO STOPMON^KMPVCBG("VBEM",1)
+4 DO MES^XPDUTL(" VBEM Monitor Stopped...")
+5 ;
+6 NEW %D,%S,SCR,ZTOS
+7 SET ZTOS=$$OSNUM^ZTMGRSET
+8 ; if not supported
+9 IF ZTOS'=3
Begin DoDot:1
+10 DO MES^XPDUTL(" "_$PIECE($TEXT(@ZTOS^ZTMGRSET),";",3)_" is not supported. No routine saved!")
End DoDot:1
QUIT
+11 ; supported
+12 SET %D="%ZOSVKSD^%ZOSVKR"
SET %S="ZOSVKSD^ZOSVKRO"
SET SCR="I 1"
+13 DO MOVE^ZTMGRSET
+14 DO MES^XPDUTL(" for "_$PIECE($TEXT(@ZTOS^ZTMGRSET),";",3)_".")
+15 ;
+16 DO STARTMON^KMPVCBG("VBEM",1)
+17 DO MES^XPDUTL(" VBEM Monitor Restarted...")
+18 DO MES^XPDUTL(" Post-Install complete!")
+19 ;
+20 QUIT