GMV43PST.m

GMV43PST ;SLCIO/JLC - FIX PARAMETER SETTINGS ;10/29/20  16:26

 ;;5.0;GEN. MED. REC. - VITALS;**43**;Oct 31, 2002;Build 35

 Q

 ; This routine uses the following IAs:

 ; 2263 - ^XPAR                  (supported)

 ;

EN ; main entry point

 D XPAR

 Q

XPAR ; Update the GUI version parameters. This subroutine 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,GMVDLL,GMVLST

 ; Announce my intentions

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

 ; Set current client version

 S GMVDLL="5.0.43.2"

 ; Deactivate all previous versions from XPAR

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

 S GMV=0

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

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

 . Q

 ; Add and/or activate current client versions

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

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GMV43PST   1003     printed  Mar 13, 2025@21:03                                                                                                                                                                                                       Page 2

GMV43PST  ;SLCIO/JLC - FIX PARAMETER SETTINGS ;10/29/20  16:26

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

 +2        QUIT 

 +3       ; This routine uses the following IAs:

 +4       ; 2263 - ^XPAR                  (supported)

 +5       ;

EN        ; main entry point

 +1        DO XPAR

 +2        QUIT 

XPAR      ; Update the GUI version parameters. This subroutine is called during the

 +1       ; KIDS installation process.

 +2       ;

 +3       ; Variables:

 +4       ;  GMV:    [Private] Scratch

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

 +6       ;  GMVLST: [Private] Scratch List

 +7       ;

 +8       ; NEW private variables

 +9        NEW GMV,GMVDLL,GMVLST

 +10      ; Announce my intentions

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

 +12      ; Set current client version

 +13       SET GMVDLL="5.0.43.2"

 +14      ; Deactivate all previous versions from XPAR

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

 +16       SET GMV=0

 +17       FOR 

               SET GMV=$ORDER(GMVLST(GMV))

               if 'GMV

                   QUIT 

               Begin DoDot:1

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

 +19               QUIT 

               End DoDot:1

 +20      ; Add and/or activate current client versions

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

 +22       QUIT