DI222POS.m

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 ---DI222POS   1527     printed  Mar 13, 2025@21:49:15                                                                                                                                                                                                    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