ZOSVKSP2 ;BP/RAK/JML - Post install routine ;7/26/2004
;;8.0;KERNEL;**670**;3/1/2018;Build 45
;
EN ;-- entry point for post-install
;
D BMES^XPDUTL(" Begin Post-Install...")
D SAVE
D MES^XPDUTL(" Post-Install complete!")
;
Q
;
SAVE ;-save correct files as '%' routines
;
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)_".")
;
Q
;
PRE ; Stop RUM handler prior to installing anything.
N DA,DIE,DR
S DIE=8989.3,DA=1,DR="300///NO" D ^DIE
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HZOSVKSP2 752 printed Dec 13, 2024@02:15:41 Page 2
ZOSVKSP2 ;BP/RAK/JML - Post install routine ;7/26/2004
+1 ;;8.0;KERNEL;**670**;3/1/2018;Build 45
+2 ;
EN ;-- entry point for post-install
+1 ;
+2 DO BMES^XPDUTL(" Begin Post-Install...")
+3 DO SAVE
+4 DO MES^XPDUTL(" Post-Install complete!")
+5 ;
+6 QUIT
+7 ;
SAVE ;-save correct files as '%' routines
+1 ;
+2 NEW %D,%S,SCR,ZTOS
+3 SET ZTOS=$$OSNUM^ZTMGRSET
+4 ; if not supported
+5 IF ZTOS'=3
Begin DoDot:1
+6 DO MES^XPDUTL(" "_$PIECE($TEXT(@ZTOS^ZTMGRSET),";",3)_" is not supported. No routine saved!")
End DoDot:1
QUIT
+7 ; supported
+8 SET %D="%ZOSVKSD^%ZOSVKR"
SET %S="ZOSVKSD^ZOSVKRO"
SET SCR="I 1"
+9 DO MOVE^ZTMGRSET
+10 DO MES^XPDUTL(" for "_$PIECE($TEXT(@ZTOS^ZTMGRSET),";",3)_".")
+11 ;
+12 QUIT
+13 ;
PRE ; Stop RUM handler prior to installing anything.
+1 NEW DA,DIE,DR
+2 SET DIE=8989.3
SET DA=1
SET DR="300///NO"
DO ^DIE
+3 QUIT
+4 ;
