- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMV18PST 697 printed Jan 18, 2025@02:59:15 Page 2
- 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