GMV1PST.m

GMV1PST ;HOIFO/FT-POST INSTALLATION FOR GMRV*5*1 ;10/8/03  14:01

 ;;5.0;GEN. MED. REC. - VITALS;**1**;Oct 31, 2002

 ;

 ; This routine uses the following IAs:

 ; #10141 - ^XPDUTL calls (supported)

 ; #2263  - ^XPAR calls   (supported)

 ;

 ; This post-installation:

 ; Updates the parameters for the required client version

 ;

XPAR ; Setup preliminary parameters

 ; This submodule is called during the KIDS installation

 ; process.

 ;

 ; Variables:

 ;  GMV:    [Private] Scratch

 ;  GMVGUI: [Private] Current version of GUI being installed

 ;  GMVLST: [Private] Scratch List

 ;

 ; New private variables

 N GMV,GMVGUI,GMVLST

 ; Announce my intentions

 D BMES^XPDUTL("Updating system parameters.")

 ; Set current client version

 S GMVGUI="5.0.1.0"

 ; Deactivate all previous versions from XPAR

 D GETLST^XPAR(.GMVLST,"SYS","GMV GUI VERSION")

 F GMV=0:0 S GMV=$O(GMVLST(GMV)) Q:'GMV  D

 .D EN^XPAR("SYS","GMV GUI VERSION",$P(GMVLST(GMV),"^",1),0)

 ; Add and/or activate current client versions

 D EN^XPAR("SYS","GMV GUI VERSION","VITALS.EXE:"_GMVGUI,1)

 D EN^XPAR("SYS","GMV GUI VERSION","VITALSMANAGER.EXE:"_GMVGUI,1)

 Q

GMV1PST   ;HOIFO/FT-POST INSTALLATION FOR GMRV*5*1 ;10/8/03  14:01

 +1       ;;5.0;GEN. MED. REC. - VITALS;**1**;Oct 31, 2002

 +2       ;

 +3       ; This routine uses the following IAs:

 +4       ; #10141 - ^XPDUTL calls (supported)

 +5       ; #2263  - ^XPAR calls   (supported)

 +6       ;

 +7       ; This post-installation:

 +8       ; Updates the parameters for the required client version

 +9       ;

XPAR      ; Setup preliminary parameters

 +1       ; This submodule is called during the KIDS installation

 +2       ; process.

 +3       ;

 +4       ; Variables:

 +5       ;  GMV:    [Private] Scratch

 +6       ;  GMVGUI: [Private] Current version of GUI being installed

 +7       ;  GMVLST: [Private] Scratch List

 +8       ;

 +9       ; New private variables

 +10       NEW GMV,GMVGUI,GMVLST

 +11      ; Announce my intentions

 +12       DO BMES^XPDUTL("Updating system parameters.")

 +13      ; Set current client version

 +14       SET GMVGUI="5.0.1.0"

 +15      ; Deactivate all previous versions from XPAR

 +16       DO GETLST^XPAR(.GMVLST,"SYS","GMV GUI VERSION")

 +17       FOR GMV=0:0

               SET GMV=$ORDER(GMVLST(GMV))

               IF 'GMV

                   QUIT 

               Begin DoDot:1

 +18               DO EN^XPAR("SYS","GMV GUI VERSION",$PIECE(GMVLST(GMV),"^",1),0)

               End DoDot:1

 +19      ; Add and/or activate current client versions

 +20       DO EN^XPAR("SYS","GMV GUI VERSION","VITALS.EXE:"_GMVGUI,1)

 +21       DO EN^XPAR("SYS","GMV GUI VERSION","VITALSMANAGER.EXE:"_GMVGUI,1)

 +22       QUIT