ZOSVKRPI ;BP/RAK - Post install routine ;8/3/10 10:49
;;8.0;KERNEL;**550**;;Build 23
;
EN ;-- entry point for post-install
;
D BMES^XPDUTL(" Begin Post-Install...")
D SAVE
D MES^XPDUTL(" Post-Install complete!")
;
Q
;
SAVE ;-save correct file as %ZOSVKR
;
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="%ZOSVKR",%S="ZOSVKRO",SCR="I 1"
D MOVE^ZTMGRSET
D MES^XPDUTL(" for "_$P($T(@ZTOS^ZTMGRSET),";",3)_".")
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HZOSVKRPI 597 printed Sep 15, 2024@21:39:47 Page 2
ZOSVKRPI ;BP/RAK - Post install routine ;8/3/10 10:49
+1 ;;8.0;KERNEL;**550**;;Build 23
+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 file as %ZOSVKR
+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="%ZOSVKR"
SET %S="ZOSVKRO"
SET SCR="I 1"
+9 DO MOVE^ZTMGRSET
+10 DO MES^XPDUTL(" for "_$PIECE($TEXT(@ZTOS^ZTMGRSET),";",3)_".")
+11 ;
+12 QUIT
