DI222PRE ;HPE/MSC/STAFF - FM22E Preinstall Routine;3:07 AM 14 Aug 2015
V ;;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.
;
; FM22E Preinstall routine
EN ;
D MES^XPDUTL("Initializing FileMan version 22.2...")
D NOASK^DINIT ;Initialize v22.2 with no user intervention
D MES^XPDUTL("Initialization of FileMan version 22.2 has been completed.")
;
LANG ;Language Files Reset
N DIU
S DIU="^DI(.85,",DIU(0)="D" D EN^DIU2
;
STFIX ;Delete erroneous nodes in Sort Template File
;Sprint 10 only. DPC.
K ^DD(.4014,20401,21,1,0)
K ^DD(.4014,20402,21,1,0)
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDI222PRE 837 printed Dec 13, 2024@02:44:31 Page 2
DI222PRE ;HPE/MSC/STAFF - FM22E Preinstall Routine;3:07 AM 14 Aug 2015
V ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
+1 ;;Per VA Directive 6402, this routine should not be modified.
+2 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
+3 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
+4 ;;Licensed under the terms of the Apache License, Version 2.0.
+5 ;
+6 ; FM22E Preinstall routine
EN ;
+1 DO MES^XPDUTL("Initializing FileMan version 22.2...")
+2 ;Initialize v22.2 with no user intervention
DO NOASK^DINIT
+3 DO MES^XPDUTL("Initialization of FileMan version 22.2 has been completed.")
+4 ;
LANG ;Language Files Reset
+1 NEW DIU
+2 SET DIU="^DI(.85,"
SET DIU(0)="D"
DO EN^DIU2
+3 ;
STFIX ;Delete erroneous nodes in Sort Template File
+1 ;Sprint 10 only. DPC.
+2 KILL ^DD(.4014,20401,21,1,0)
+3 KILL ^DD(.4014,20402,21,1,0)
+4 ;
+5 QUIT
