- 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 ---[H[J[2J[HGMV3PST 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 ;;;