GMV18PST.m

GMV18PST ;HOIFO/KAM-POST INSTALLATION FOR GMRV*5*18 ;5/16/06 1:35pm

 ;;5.0;GEN. MED. REC. - VITALS;**18**;Oct 31, 2002;Build 7

 ;

 ;

POST ; New private variables

 N GMV,GMVGUI,GMVLST

 ; Announce my intentions

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

 ; Set current client version

 S GMVGUI="5.0.18.1"

 ; 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

GMV18PST  ;HOIFO/KAM-POST INSTALLATION FOR GMRV*5*18 ;5/16/06 1:35pm

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

 +2       ;

 +3       ;

POST      ; New private variables

 +1        NEW GMV,GMVGUI,GMVLST

 +2       ; Announce my intentions

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

 +4       ; Set current client version

 +5        SET GMVGUI="5.0.18.1"

 +6       ; Deactivate all previous versions from XPAR

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

 +8        FOR GMV=0:0

               SET GMV=$ORDER(GMVLST(GMV))

               IF 'GMV

                   QUIT 

               Begin DoDot:1

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

               End DoDot:1

 +10      ; Add and/or activate current client versions

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

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

 +13       QUIT