GMV28PST.m

GMV28PST ;HIOFO/FT - FIX PARAMETER SETTINGS ; 04/13/15 03:30pm

 ;;5.0;GEN. MED. REC. - VITALS;**28**;Oct 31, 2002;Build 13

 Q

 ; This routine uses the following IAs:

 ; 2263 - ^XPAR                  (supported)

 ; 

EN ; main entry point 

 D DLL

 Q

DLL ;

 ; Variables:

 ;  GMV:    [Private] Scratch

 ;  GMVDLL: [Private] Current version of DLL being installed

 ;  GMVLST: [Private] Scratch List

 ;

 ; New private variables

 N GMV,GMVDLL,GMVLST

 ; Announce my intentions

 D BMES^XPDUTL("Updating DLL parameter.")

 ; Deactivate all previous versions from XPAR

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

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

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

 ; Add and/or activate current client versions

 S GMVDLL="GMV_VITALSVIEWENTER.DLL:v. 08/11/09 15:00" ;Bug in Patch 26 not checking correctly

 D EN^XPAR("SYS","GMV DLL VERSION",GMVDLL,1)

 S GMVDLL="GMV_VITALSVIEWENTER.DLL:v. 01/21/11 12:52" ;patch 26

 D EN^XPAR("SYS","GMV DLL VERSION",GMVDLL,1)

 S GMVDLL="5.0.28.5" ;patch 28

 D EN^XPAR("SYS","GMV DLL VERSION",GMVDLL,1)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GMV28PST   1115     printed  Mar 13, 2025@21:02:53                                                                                                                                                                                                    Page 2

GMV28PST  ;HIOFO/FT - FIX PARAMETER SETTINGS ; 04/13/15 03:30pm

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

 +2        QUIT 

 +3       ; This routine uses the following IAs:

 +4       ; 2263 - ^XPAR                  (supported)

 +5       ; 

EN        ; main entry point 

 +1        DO DLL

 +2        QUIT 

DLL       ;

 +1       ; Variables:

 +2       ;  GMV:    [Private] Scratch

 +3       ;  GMVDLL: [Private] Current version of DLL being installed

 +4       ;  GMVLST: [Private] Scratch List

 +5       ;

 +6       ; New private variables

 +7        NEW GMV,GMVDLL,GMVLST

 +8       ; Announce my intentions

 +9        DO BMES^XPDUTL("Updating DLL parameter.")

 +10      ; Deactivate all previous versions from XPAR

 +11       DO GETLST^XPAR(.GMVLST,"SYS","GMV DLL VERSION")

 +12       FOR GMV=0:0

               SET GMV=$ORDER(GMVLST(GMV))

               if 'GMV

                   QUIT 

               Begin DoDot:1

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

               End DoDot:1

 +14      ; Add and/or activate current client versions

 +15      ;Bug in Patch 26 not checking correctly

           SET GMVDLL="GMV_VITALSVIEWENTER.DLL:v. 08/11/09 15:00"

 +16       DO EN^XPAR("SYS","GMV DLL VERSION",GMVDLL,1)

 +17      ;patch 26

           SET GMVDLL="GMV_VITALSVIEWENTER.DLL:v. 01/21/11 12:52"

 +18       DO EN^XPAR("SYS","GMV DLL VERSION",GMVDLL,1)

 +19      ;patch 28

           SET GMVDLL="5.0.28.5"

 +20       DO EN^XPAR("SYS","GMV DLL VERSION",GMVDLL,1)

 +21       QUIT