DI222POS ;HPE/MSC/STAFF- Post Installation Routine for FileMan v22.2;05/10/2016
;;22.2;VA FileMan;;Jan 05, 2016;Build 42
;;Per VA Directive 6402, this routine should not be modified.
;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
;;Licensed under the terms of the Apache License, Version 2.0.
Q
;
POST ;Post Installation Things
N SCR S SCR="I 1" ;From:OS+2^ZTMGRSET
N ZTOS S ZTOS=$$OSNUM^ZTMGRSET ;From: B+1^ZTMGRSET DBIA:
D MES^XPDUTL("Saving Routine: DIDT, As: %DT")
D MES^XPDUTL("Saving Routine: DIDTC, As: %DTC")
D MES^XPDUTL("Saving Routine: DIRCR, As: %RCR")
D MES^XPDUTL(" ")
N %S,%D
S %S="DIDT^DIDTC^DIRCR",%D="%DT^%DTC^%RCR"
D MOVE^ZTMGRSET ;DBIA:
D MES^XPDUTL(" ")
;
N RTN
S RTN="%DT" D DISP
S RTN="%DTC" D DISP
S RTN="%RCR" D DISP
;
;
;D MES^XPDUTL("Initializing Meta Data Dictionary(#.9)")
;D ^DDD
;
; Hard code ^DD("STRING_LIMIT") to 4094
; - ref VA SME RdM & Release Notes 2.3.4
;
S ^DD("STRING_LIMIT")=4094
;
; Initiate DI SCREENMAN NO MOUSE - disabled
; - ref Release Note 1.1.1
;
K ERR D ADD^XPAR("SYS","DI SCREENMAN NO MOUSE",,1,.ERR) I ERR'=0 D CHG^XPAR("SYS","DI SCREENMAN NO MOUSE",,1,.ERR)
;
;
; Initiate ^DD("DD")
; - Ensure that default is 5U
;
S ^DD("DD")="S Y=$$FMTE^DILIBF(Y,""5U"")"
;
;
D CLEAN^DILF
Q
DISP ;DISPLAY ROUTINE TEXT
D MES^XPDUTL($T(@("+1^"_RTN)))
D MES^XPDUTL($T(@("+2^"_RTN)))
D MES^XPDUTL(" ")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDI222POS 1527 printed Dec 13, 2024@02:44:30 Page 2
DI222POS ;HPE/MSC/STAFF- Post Installation Routine for FileMan v22.2;05/10/2016
+1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
+4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
+5 ;;Licensed under the terms of the Apache License, Version 2.0.
+6 QUIT
+7 ;
POST ;Post Installation Things
+1 ;From:OS+2^ZTMGRSET
NEW SCR
SET SCR="I 1"
+2 ;From: B+1^ZTMGRSET DBIA:
NEW ZTOS
SET ZTOS=$$OSNUM^ZTMGRSET
+3 DO MES^XPDUTL("Saving Routine: DIDT, As: %DT")
+4 DO MES^XPDUTL("Saving Routine: DIDTC, As: %DTC")
+5 DO MES^XPDUTL("Saving Routine: DIRCR, As: %RCR")
+6 DO MES^XPDUTL(" ")
+7 NEW %S,%D
+8 SET %S="DIDT^DIDTC^DIRCR"
SET %D="%DT^%DTC^%RCR"
+9 ;DBIA:
DO MOVE^ZTMGRSET
+10 DO MES^XPDUTL(" ")
+11 ;
+12 NEW RTN
+13 SET RTN="%DT"
DO DISP
+14 SET RTN="%DTC"
DO DISP
+15 SET RTN="%RCR"
DO DISP
+16 ;
+17 ;
+18 ;D MES^XPDUTL("Initializing Meta Data Dictionary(#.9)")
+19 ;D ^DDD
+20 ;
+21 ; Hard code ^DD("STRING_LIMIT") to 4094
+22 ; - ref VA SME RdM & Release Notes 2.3.4
+23 ;
+24 SET ^DD("STRING_LIMIT")=4094
+25 ;
+26 ; Initiate DI SCREENMAN NO MOUSE - disabled
+27 ; - ref Release Note 1.1.1
+28 ;
+29 KILL ERR
DO ADD^XPAR("SYS","DI SCREENMAN NO MOUSE",,1,.ERR)
IF ERR'=0
DO CHG^XPAR("SYS","DI SCREENMAN NO MOUSE",,1,.ERR)
+30 ;
+31 ;
+32 ; Initiate ^DD("DD")
+33 ; - Ensure that default is 5U
+34 ;
+35 SET ^DD("DD")="S Y=$$FMTE^DILIBF(Y,""5U"")"
+36 ;
+37 ;
+38 DO CLEAN^DILF
+39 QUIT
DISP ;DISPLAY ROUTINE TEXT
+1 DO MES^XPDUTL($TEXT(@("+1^"_RTN)))
+2 DO MES^XPDUTL($TEXT(@("+2^"_RTN)))
+3 DO MES^XPDUTL(" ")
+4 QUIT
