GMV3PST.m

GMV3PST ;HOIFO/FT-POST INSTALLATION FOR GMRV*5*3 ;5/17/05  08:56

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

 ;

 ; This routine uses the following IAs:

 ; #2263  - ^XPAR calls   (supported)

 ; #4835  - Add RPCS to OR CPRS GUI CHART option (private)

 ; #10141 - ^XPDUTL calls (supported)

 ;

 ; This routine supports the following IAs:

 ; #4833 - ADDRPCS     (private)

 ;

 ; This post-installation:

 ; Updates the parameters for the required client version.

 ; Adds GMV RPCS to the 'OR CPRS GUI CHART' list of RPCs

 ;

EN ; Main entry point

 D XPAR,ADDRPCS,DLL

 Q

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.3.19"

 ; 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

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. 01/20/06 09:08" ;T17

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

 S GMVDLL="GMV_VITALSVIEWENTER.DLL:v. 02/15/06 15:55" ;T18

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

 S GMVDLL="GMV_VITALSVIEWENTER.DLL:v. 03/14/06 16:35" ;released version (19)

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

 Q

ADDRPCS ; Add GMV RPCs to CPRS option

 N GMVDA,GMVDA1,GMVERR,GMVFDA,GMVIEN,GMVMSG,GMVNAME,GMVNODE,GMVTEST,GMVX

 K ^TMP($J),^TMP("GMV 3PST",$J)

 S GMVDA=$$FIND1^DIC(19,"","O","OR CPRS GUI CHART","B","","GMVERR")

 I 'GMVDA D  Q

 .S GMVMSG(1)="Cannot find the 'OR CPRS GUI CHART' option."

 .S GMVMSG(2)="Cannot add the RPCs needed. Please log a Remedy Ticket."

 .D EN^DDIOL(.GMVMSG,"","!?5")

 .Q

 ; Get list of existing RPCs for OR CPRS GUI CHART option

 D GETS^DIQ(19,GMVDA,"320*","I","^TMP($J)","GMVERR")

 S GMVX=""

 F  S GMVX=$O(^TMP($J,19.05,GMVX)) Q:GMVX=""  D

 .S GMVIEN=+$G(^TMP($J,19.05,GMVX,.01,"I"))

 .Q:'GMVIEN

 .S ^TMP("GMV 3PST",$J,GMVIEN)=""

 .Q

 K GMVERR,GMVX

 ; get GMV rpcs from table

 F GMVX=1:1 S GMVNODE=$T(RPCLIST+GMVX) Q:$P(GMVNODE,";",3)=""  D

 .S GMVNAME=$P(GMVNODE,";",3)

 .Q:GMVNAME=""

 .K GMVERR

 .S GMVDA1=$$FIND1^DIC(8994,"","O",GMVNAME,"B","","GMVERR")

 .Q:'GMVDA1

 .Q:$D(^TMP("GMV 3PST",$J,GMVDA1))  ;rpc is already there

 .K GMVERR,GMVFDA,GMVIEN

 .S GMVFDA(19.05,"+1,"_GMVDA_",",.01)=GMVDA1

 .D UPDATE^DIE("","GMVFDA","GMVIEN","GMVERR")

 .Q

 K ^TMP($J),^TMP("GMV 3PST",$J)

 Q

RPCLIST ; List of GMV RPCs to add to OR CPRS GUI CHART option 

 ;;GMV ADD VM

 ;;GMV CONVERT DATE

 ;;GMV GET CATEGORY IEN

 ;;GMV GET CURRENT TIME

 ;;GMV GET VITAL TYPE IEN

 ;;GMV LATEST VM

 ;;GMV MANAGER

 ;;GMV PARAMETER

 ;;GMV USER

 ;;GMV VITALS/CAT/QUAL

 ;;GMV V/M ALLDATA

 ;;GMV EXTRACT REC

 ;;GMV MARK ERROR

 ;;GMV ALLERGY

 ;;GMV DLL VERSION

 ;;GMV LOCATION SELECT

 ;;;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GMV3PST   3792     printed  Feb 18, 2025@23:24:36                                                                                                                                                                                                     Page 2

GMV3PST   ;HOIFO/FT-POST INSTALLATION FOR GMRV*5*3 ;5/17/05  08:56

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

 +2       ;

 +3       ; This routine uses the following IAs:

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

 +5       ; #4835  - Add RPCS to OR CPRS GUI CHART option (private)

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

 +7       ;

 +8       ; This routine supports the following IAs:

 +9       ; #4833 - ADDRPCS     (private)

 +10      ;

 +11      ; This post-installation:

 +12      ; Updates the parameters for the required client version.

 +13      ; Adds GMV RPCS to the 'OR CPRS GUI CHART' list of RPCs

 +14      ;

EN        ; Main entry point

 +1        DO XPAR

           DO ADDRPCS

           DO DLL

 +2        QUIT 

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.3.19"

 +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 

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      ;T17

           SET GMVDLL="GMV_VITALSVIEWENTER.DLL:v. 01/20/06 09:08"

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

 +17      ;T18

           SET GMVDLL="GMV_VITALSVIEWENTER.DLL:v. 02/15/06 15:55"

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

 +19      ;released version (19)

           SET GMVDLL="GMV_VITALSVIEWENTER.DLL:v. 03/14/06 16:35"

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

 +21       QUIT 

ADDRPCS   ; Add GMV RPCs to CPRS option

 +1        NEW GMVDA,GMVDA1,GMVERR,GMVFDA,GMVIEN,GMVMSG,GMVNAME,GMVNODE,GMVTEST,GMVX

 +2        KILL ^TMP($JOB),^TMP("GMV 3PST",$JOB)

 +3        SET GMVDA=$$FIND1^DIC(19,"","O","OR CPRS GUI CHART","B","","GMVERR")

 +4        IF 'GMVDA

               Begin DoDot:1

 +5                SET GMVMSG(1)="Cannot find the 'OR CPRS GUI CHART' option."

 +6                SET GMVMSG(2)="Cannot add the RPCs needed. Please log a Remedy Ticket."

 +7                DO EN^DDIOL(.GMVMSG,"","!?5")

 +8                QUIT 

               End DoDot:1

               QUIT 

 +9       ; Get list of existing RPCs for OR CPRS GUI CHART option

 +10       DO GETS^DIQ(19,GMVDA,"320*","I","^TMP($J)","GMVERR")

 +11       SET GMVX=""

 +12       FOR 

               SET GMVX=$ORDER(^TMP($JOB,19.05,GMVX))

               if GMVX=""

                   QUIT 

               Begin DoDot:1

 +13               SET GMVIEN=+$GET(^TMP($JOB,19.05,GMVX,.01,"I"))

 +14               if 'GMVIEN

                       QUIT 

 +15               SET ^TMP("GMV 3PST",$JOB,GMVIEN)=""

 +16               QUIT 

               End DoDot:1

 +17       KILL GMVERR,GMVX

 +18      ; get GMV rpcs from table

 +19       FOR GMVX=1:1

               SET GMVNODE=$TEXT(RPCLIST+GMVX)

               if $PIECE(GMVNODE,";",3)=""

                   QUIT 

               Begin DoDot:1

 +20               SET GMVNAME=$PIECE(GMVNODE,";",3)

 +21               if GMVNAME=""

                       QUIT 

 +22               KILL GMVERR

 +23               SET GMVDA1=$$FIND1^DIC(8994,"","O",GMVNAME,"B","","GMVERR")

 +24               if 'GMVDA1

                       QUIT 

 +25      ;rpc is already there

                   if $DATA(^TMP("GMV 3PST",$JOB,GMVDA1))

                       QUIT 

 +26               KILL GMVERR,GMVFDA,GMVIEN

 +27               SET GMVFDA(19.05,"+1,"_GMVDA_",",.01)=GMVDA1

 +28               DO UPDATE^DIE("","GMVFDA","GMVIEN","GMVERR")

 +29               QUIT 

               End DoDot:1

 +30       KILL ^TMP($JOB),^TMP("GMV 3PST",$JOB)

 +31       QUIT 

RPCLIST   ; List of GMV RPCs to add to OR CPRS GUI CHART option 

 +1       ;;GMV ADD VM

 +2       ;;GMV CONVERT DATE

 +3       ;;GMV GET CATEGORY IEN

 +4       ;;GMV GET CURRENT TIME

 +5       ;;GMV GET VITAL TYPE IEN

 +6       ;;GMV LATEST VM

 +7       ;;GMV MANAGER

 +8       ;;GMV PARAMETER

 +9       ;;GMV USER

 +10      ;;GMV VITALS/CAT/QUAL

 +11      ;;GMV V/M ALLDATA

 +12      ;;GMV EXTRACT REC

 +13      ;;GMV MARK ERROR

 +14      ;;GMV ALLERGY

 +15      ;;GMV DLL VERSION

 +16      ;;GMV LOCATION SELECT

 +17      ;;;