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

GMVPAR.m

Go to the documentation of this file. 
  1. GMVPAR ; HOIFO/DP - XPARameter RPC ; 31-MAY-2002 10:06:18
  1.  ;;5.0;GEN. MED. REC. - VITALS;**3**;Oct 31, 2002
  1.  ; Integration Agreements:
  1.  ; IA# 2263  [Supported] XPAR parameter call.
  1.  ; IA# 2541  [Supported] Call to XUPARAM.
  1.  ; IA# 10060 [Supported] FILE 200 fields
  1.  ; IA# 10090 [Supported] FILE 4 references
  1.  ;
  1.  ; This routine supports the following IAs:
  1.  ; #4367 - GMV PARAMETER RPC is called at RPC (private)
  1.  ; 
  1.  ;DELLST; [Procedure] Delete list of parameters
  1.  ;D NDEL^XPAR(ENT,PAR,.ERR)
  1.  ;S:'$G(ERR) @RESULTS@(0)="1^All instances removed"
  1.  ;Q
  1.  ;
  1. DELPAR ; [Procedure] Delete single parameter value
  1.  D DEL^XPAR(ENT,PAR,INST,.ERR)
  1.  S:'$G(ERR) @RESULTS@(0)="1^Instance deleted"
  1.  Q
  1.  ;
  1. ENTVAL ; [Procedure] Return value of the entity
  1.  I ENT="SYS" S ENT=$$KSP^XUPARAM("WHERE")
  1.  E  I ENT="DIV" S ENT=$$GET1^DIQ(4,DUZ(2)_",",.01)
  1.  E  I ENT="USR" S ENT=$$GET1^DIQ(200,DUZ_",",.01)
  1.  E  S ENT=$$GET1^DIQ(+$P(ENT,"(",2),+ENT_",",.01)
  1.  S @RESULTS@(0)=ENT
  1.  Q
  1.  ;
  1.  ;GETHDR; [Procedure] Returns common header format
  1.  ;S X=$$FIND1^DIC(8989.51,,"QX",PAR)
  1.  ;I X S @RESULTS@(0)=X_";8989.51^"_PAR
  1.  ;E  S @RESULTS@(0)="-1^No such parameter ["_PAR_"]"
  1.  ;Q
  1.  ;
  1. GETLST ; [Procedure] Return all instances of a parameter
  1.  D GETLST^XPAR(.RET,ENT,PAR,"E",.ERR)
  1.  Q:$G(ERR,0)
  1.  S TMP="RET"
  1.  F  S TMP=$Q(@TMP) Q:TMP=""  D
  1.  .S @RESULTS@($O(@RESULTS@(""),-1)+1)=@TMP
  1.  S @RESULTS@(0)=$O(@RESULTS@(""),-1)
  1.  Q
  1.  ;
  1. GETPAR ; [Procedure] Returns external value of a parameter
  1.  S @RESULTS@(0)=$$GET^XPAR(ENT,PAR,INST,"E")
  1.  Q
  1.  ;
  1.  ;GETWP; [Procedure] Returns WP text for a parameter
  1.  ;D GETWP^XPAR(.RET,ENT,PAR,INST,.ERR)
  1.  ;Q:$G(ERR,0)
  1.  ;S TMP="RET"
  1.  ;F  S TMP=$Q(@TMP) Q:TMP=""  D
  1.  ;.S @RESULTS@($O(@RESULTS@(""),-1)+1)=@TMP
  1.  ;S @RESULTS@(0)=$O(@RESULTS@(""),-1)_U_INST
  1.  ;Q
  1.  ;
  1. RPC(RESULTS,OPTION,ENT,PAR,INST,VAL) ; [Procedure] Main RPC Hit Point
  1.  ; RPC: [GMV PARAMETER]
  1.  ;
  1.  ; Requires that the parameter name in PAR
  1.  ; be in the GMV namespace.
  1.  ;
  1.  ; Input parameters
  1.  ;  1. RESULTS [Literal/Required] No description
  1.  ;  2. OPTION [Literal/Required] No description
  1.  ;  3. ENT [Literal/Required] No description
  1.  ;  4. PAR [Literal/Required] No description
  1.  ;  5. INST [Literal/Required] No description
  1.  ;  6. VAL [Literal/Required] No description
  1.  ;
  1.  N ERR,TMP,RET,TXT,IEN,IENS,ROOT
  1.  S INST=$G(INST,1)
  1.  S PAR=$G(PAR,"GMV")
  1.  S RESULTS=$NA(^TMP($J)) K @RESULTS
  1.  I PAR'?1"GMV".E S ^TMP($J,0)="-1^Non Vitals Measurements Parameter" Q
  1.  D:$T(@OPTION)]"" @OPTION
  1.  I +$G(ERR) K @RESULTS S @RESULTS@(0)="-1^Error: "_(+ERR)_" "_$P(ERR,U,2)
  1.  I '$D(^TMP($J)) S @RESULTS@(0)="-1^No date returned"
  1.  D CLEAN^DILF
  1.  Q
  1.  ;
  1.  ;SETLST; [Procedure] Build list of parameters
  1.  ;N GMVINS ; Instance Counter
  1.  ;D DELLST(ENT,PAR)
  1.  ;S GMVINS=""
  1.  ;F  S GMVINS=$O(VAL(GMVINS)) Q:GMVINS=""  D
  1.  ;.D EN^XPAR(ENT,PAR,GMVINS,VAL(GMVINS),.ERR)
  1.  ;S:'$G(ERR) @RESULTS@(0)="1^List "_PAR_" rebuilt"
  1.  ;Q
  1.  ;
  1. SETPAR ; [Procedure] Set single value into a parameter
  1.  D EN^XPAR(ENT,PAR,INST,VAL,.ERR)
  1.  S:'$G(ERR) @RESULTS@(0)="1^Parameter updated"
  1.  Q
  1.  ;
  1.  ;SETWP; [Procedure] Set WP text into a parameter
  1.  ;S TXT=INST,TMP=""
  1.  ;F  S TMP=$O(VAL(TMP)) Q:TMP=""  D
  1.  ;.S TXT($O(TXT(""),-1)+1,0)=VAL(TMP)
  1.  ;D EN^XPAR(ENT,PAR,INST,.TXT,.ERR)
  1.  ;S:'$G(ERR) @RESULTS@(0)="1^WP Text Saved"
  1.  ;Q
  1.  ;