Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMV3PST

GMV3PST.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. ; This routine uses the following IAs:
  1. ; #2263 - ^XPAR calls (supported)
  1. ; #4835 - Add RPCS to OR CPRS GUI CHART option (private)
  1. ; #10141 - ^XPDUTL calls (supported)
  1. ;
  1. ; This routine supports the following IAs:
  1. ; #4833 - ADDRPCS (private)
  1. ;
  1. ; This post-installation:
  1. ; Updates the parameters for the required client version.
  1. ; Adds GMV RPCS to the 'OR CPRS GUI CHART' list of RPCs
  1. ;
  1. EN ; Main entry point
  1. D XPAR,ADDRPCS,DLL
  1. Q
  1. XPAR ; Setup preliminary parameters
  1. ; This submodule is called during the KIDS installation
  1. ; process.
  1. ;
  1. ; Variables:
  1. ; GMV: [Private] Scratch
  1. ; GMVGUI: [Private] Current version of GUI being installed
  1. ; GMVLST: [Private] Scratch List
  1. ;
  1. ; New private variables
  1. N GMV,GMVGUI,GMVLST
  1. ; Announce my intentions
  1. D BMES^XPDUTL("Updating system parameters.")
  1. ; Set current client version
  1. S GMVGUI="5.0.3.19"
  1. ; Deactivate all previous versions from XPAR
  1. D GETLST^XPAR(.GMVLST,"SYS","GMV GUI VERSION")
  1. F GMV=0:0 S GMV=$O(GMVLST(GMV)) Q:'GMV D
  1. .D EN^XPAR("SYS","GMV GUI VERSION",$P(GMVLST(GMV),"^",1),0)
  1. ; Add and/or activate current client versions
  1. D EN^XPAR("SYS","GMV GUI VERSION","VITALS.EXE:"_GMVGUI,1)
  1. D EN^XPAR("SYS","GMV GUI VERSION","VITALSMANAGER.EXE:"_GMVGUI,1)
  1. Q
  1. DLL ;
  1. ; Variables:
  1. ; GMV: [Private] Scratch
  1. ; GMVDLL: [Private] Current version of DLL being installed
  1. ; GMVLST: [Private] Scratch List
  1. ;
  1. ; New private variables
  1. N GMV,GMVDLL,GMVLST
  1. ; Announce my intentions
  1. D BMES^XPDUTL("Updating DLL parameter.")
  1. ; Deactivate all previous versions from XPAR
  1. D GETLST^XPAR(.GMVLST,"SYS","GMV DLL VERSION")
  1. F GMV=0:0 S GMV=$O(GMVLST(GMV)) Q:'GMV D
  1. .D EN^XPAR("SYS","GMV DLL VERSION",$P(GMVLST(GMV),"^",1),0)
  1. ; Add and/or activate current client versions
  1. S GMVDLL="GMV_VITALSVIEWENTER.DLL:v. 01/20/06 09:08" ;T17
  1. D EN^XPAR("SYS","GMV DLL VERSION",GMVDLL,1)
  1. S GMVDLL="GMV_VITALSVIEWENTER.DLL:v. 02/15/06 15:55" ;T18
  1. D EN^XPAR("SYS","GMV DLL VERSION",GMVDLL,1)
  1. S GMVDLL="GMV_VITALSVIEWENTER.DLL:v. 03/14/06 16:35" ;released version (19)
  1. D EN^XPAR("SYS","GMV DLL VERSION",GMVDLL,1)
  1. Q
  1. ADDRPCS ; Add GMV RPCs to CPRS option
  1. N GMVDA,GMVDA1,GMVERR,GMVFDA,GMVIEN,GMVMSG,GMVNAME,GMVNODE,GMVTEST,GMVX
  1. K ^TMP($J),^TMP("GMV 3PST",$J)
  1. S GMVDA=$$FIND1^DIC(19,"","O","OR CPRS GUI CHART","B","","GMVERR")
  1. I 'GMVDA D Q
  1. .S GMVMSG(1)="Cannot find the 'OR CPRS GUI CHART' option."
  1. .S GMVMSG(2)="Cannot add the RPCs needed. Please log a Remedy Ticket."
  1. .D EN^DDIOL(.GMVMSG,"","!?5")
  1. .Q
  1. ; Get list of existing RPCs for OR CPRS GUI CHART option
  1. D GETS^DIQ(19,GMVDA,"320*","I","^TMP($J)","GMVERR")
  1. S GMVX=""
  1. F S GMVX=$O(^TMP($J,19.05,GMVX)) Q:GMVX="" D
  1. .S GMVIEN=+$G(^TMP($J,19.05,GMVX,.01,"I"))
  1. .Q:'GMVIEN
  1. .S ^TMP("GMV 3PST",$J,GMVIEN)=""
  1. .Q
  1. K GMVERR,GMVX
  1. ; get GMV rpcs from table
  1. F GMVX=1:1 S GMVNODE=$T(RPCLIST+GMVX) Q:$P(GMVNODE,";",3)="" D
  1. .S GMVNAME=$P(GMVNODE,";",3)
  1. .Q:GMVNAME=""
  1. .K GMVERR
  1. .S GMVDA1=$$FIND1^DIC(8994,"","O",GMVNAME,"B","","GMVERR")
  1. .Q:'GMVDA1
  1. .Q:$D(^TMP("GMV 3PST",$J,GMVDA1)) ;rpc is already there
  1. .K GMVERR,GMVFDA,GMVIEN
  1. .S GMVFDA(19.05,"+1,"_GMVDA_",",.01)=GMVDA1
  1. .D UPDATE^DIE("","GMVFDA","GMVIEN","GMVERR")
  1. .Q
  1. K ^TMP($J),^TMP("GMV 3PST",$J)
  1. Q
  1. RPCLIST ; List of GMV RPCs to add to OR CPRS GUI CHART option
  1. ;;GMV ADD VM
  1. ;;GMV CONVERT DATE
  1. ;;GMV GET CATEGORY IEN
  1. ;;GMV GET CURRENT TIME
  1. ;;GMV GET VITAL TYPE IEN
  1. ;;GMV LATEST VM
  1. ;;GMV MANAGER
  1. ;;GMV PARAMETER
  1. ;;GMV USER
  1. ;;GMV VITALS/CAT/QUAL
  1. ;;GMV V/M ALLDATA
  1. ;;GMV EXTRACT REC
  1. ;;GMV MARK ERROR
  1. ;;GMV ALLERGY
  1. ;;GMV DLL VERSION
  1. ;;GMV LOCATION SELECT
  1. ;;;