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