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

KMPDU6.m

Go to the documentation of this file. 
  1. KMPDU6 ;OAK/RAK - CM Tools Utilities ;10/12/12  15:15
  1.  ;;3.0;KMPD;;Jan 22, 2009;Build 42
  1.  ;
  1. RUMENV(KMPDRES) ;-rpc run environment
  1.  ;--------------------------------------------------------
  1.  ; KMPDRES... result return data in format:
  1.  ;              KMPDRES(0)=ErrorNumber^ErrorText
  1.  ;              (see ENV^KMPRUTL1 for specifics)
  1.  ;--------------------------------------------------------
  1.  K KMPDRES
  1.  N ERROR
  1.  D ENVCHECK^KMPRUTL1(.ERROR,1)
  1.  S KMPDRES(0)=ERROR
  1.  ;
  1.  Q
  1.  ;
  1. RUMSS(KMPDRES,KMPDSS) ;-rpc rum start/stop
  1.  ;--------------------------------------------------------
  1.  ; KMPDRES... result return data
  1.  ; KMPDSS.... 0 - stop
  1.  ;            1 - start
  1.  ;--------------------------------------------------------
  1.  K KMPDRES
  1.  S KMPDSS=+$G(KMPDSS)
  1.  N DA,DIE,ERR,ERROR,DR,FDA,I,LINE,X,Y
  1.  ; if start
  1.  I KMPDSS=1 D 
  1.  .S FDA($J,8989.3,"1,",300)="Y"
  1.  .D FILE^DIE("","FDA($J)","ERROR")
  1.  .; if error process and quit
  1.  .I $D(ERROR) D  Q
  1.  ..; put error message into local array
  1.  ..D MSG^DIALOG("AEHW",.ERR,60,10,"ERROR")
  1.  ..; put error message into kmpdres array
  1.  ..S (LINE,I)=0
  1.  ..F  S I=$O(ERR(I)) Q:'I  D 
  1.  ...I LINE=0 S KMPDRES(LINE)="["_ERR(I) S LINE=LINE+1 Q
  1.  ...S KMPDRES(LINE)=ERR(I),LINE=LINE+1
  1.  ..; put close bracket at end of text
  1.  ..S KMPDRES(LINE-1)=KMPDRES(LINE-1)_"]"
  1.  .;
  1.  .S KMPDRES(0)="Resource Usage Monitor (RUM) has been started."
  1.  ;
  1.  ; if stop
  1.  I 'KMPDSS D 
  1.  .S FDA($J,8989.3,"1,",300)="N"
  1.  .D FILE^DIE("","FDA($J)","ERROR")
  1.  .; if error process and quit
  1.  .I $D(ERROR) D  Q
  1.  ..; put error message into local array
  1.  ..D MSG^DIALOG("AEHW",.ERR,60,10,"ERROR")
  1.  ..; put error message into kmpdres array
  1.  ..S (LINE,I)=0
  1.  ..F  S I=$O(ERR(I)) Q:'I  D 
  1.  ...I LINE=0 S KMPDRES(LINE)="["_ERR(I) S LINE=LINE+1 Q
  1.  ...S KMPDRES(LINE)=ERR(I),LINE=LINE+1
  1.  ..; put close bracket at end of text
  1.  ..S KMPDRES(LINE-1)=KMPDRES(LINE-1)_"]"
  1.  .;
  1.  .S KMPDRES(0)="Resource Usage Monitor (RUM) has been stopped."
  1.  ;
  1.  I '$D(KMPDRES(0)) S KMPDRES(0)="[Unable to "_$S(KMPDSS:"start",1:"stop")_" RUM]"
  1.  ;
  1.  Q
  1.  ;
  1. STATUS(KMPDRES,KMPDAPP,KMPDGBL) ;-rpc cp package status
  1.  ;--------------------------------------------------------
  1.  ; KMPDRES... result return data
  1.  ; KMPDAPP... cm application
  1.  ;            H - hl7
  1.  ;            R - rum
  1.  ;            S - sagg
  1.  ;            T - timing
  1.  ; KMPDGLO... global reference containing data
  1.  ;--------------------------------------------------------
  1.  ;
  1.  ;
  1.  K KMPDRES
  1.  I $G(KMPDAPP)="" S @KMPDGBL@(0)="[Type of Application not defined]" Q
  1.  I $L(KMPDAPP)>1 S @KMPDGBL@(0)="[Incorrect Application identifier format]" Q
  1.  I "HRST"'[KMPDAPP S @KMPDGBL@(0)="[Incorrect Application identifier]" Q
  1.  ;I KMPDGBL="" S @KMPDGBL@(0)="[Global for storage is not defined]" Q
  1.  I $G(KMPDGBL)="" S @KMPDGBL@(0)="[Global for storage is not defined]" Q
  1.  ;
  1.  N DATA,I,KMPDNMSP,ROUTINE,VALMAR,X,Z
  1.  ;
  1.  ; kill global with check for ^tmp or ^utility.
  1.  D KILL^KMPDU(.DATA,KMPDGBL)
  1.  ; if error.
  1.  I $E(DATA)="[" S @KMPDGBL@(0)=DATA Q
  1.  ;
  1.  S KMPDNMSP=KMPDAPP
  1.  S ROUTINE="KMPDSS"_$S(KMPDAPP="H"!(KMPDAPP="T"):"D",1:KMPDAPP)
  1.  S X=ROUTINE X ^%ZOSF("TEST") I '$T D  Q
  1.  .S @KMPDGBL@(0)="[Routine "_X_" could not be found]"
  1.  ;
  1.  S ROUTINE="FORMAT^"_X_"(.Z)"
  1.  S VALMAR=$NA(^TMP("KMPDU6",$J))
  1.  ;
  1.  D @ROUTINE
  1.  ;
  1.  I '$D(@VALMAR) S KMPDRES(0)="[No data to report]" K @VALMAR Q
  1.  ;
  1.  ; zero node is application status: started/stopped
  1.  I KMPDAPP="H" S @KMPDGBL@(0)="0"
  1.  I KMPDAPP="R" S @KMPDGBL@(0)=$G(^%ZTSCH("LOGRSRC"))
  1.  I KMPDAPP="S" S @KMPDGBL@(0)=$S($D(^XTMP("KMPS","START")):1,1:0)
  1.  I KMPDAPP="T" S @KMPDGBL@(0)=$G(^KMPTMP("KMPD-CPRS"))
  1.  F I=0:0 S I=$O(@VALMAR@(I)) Q:'I  S @KMPDGBL@(I)=@VALMAR@(I,0)
  1.  ;
  1.  K @VALMAR
  1.  ;
  1.  S KMPDRES=$NA(@KMPDGBL)
  1.  S:'$D(@KMPDGBL) KMPDRES="<No Data To Report>"
  1.  ;
  1.  Q
  1.  ;
  1. USRPARAM(KMPDY,KMPDUZ,KMPDTY,KMPDOP) ;-- rpc - user parameters
  1.  ;-------------------------------------------------------------------
  1.  ; KMPDY... return results
  1.  ; KMPDUZ.. user duz
  1.  ; KMPDTY.. type: 1 - get user parameter info
  1.  ;                2 - set user parameter info
  1.  ; KMPDOP.. option array in format:
  1.  ;           Piece 1: option name
  1.  ;           Piece 2: 1 - do not display option
  1.  ;                    2 - display option
  1.  ;           example: KMPDOP(1)="ErrorLog1^1"
  1.  ;-------------------------------------------------------------------
  1.  ;
  1.  K KMPDY
  1.  ;
  1.  I '$G(KMPDUZ) S KMPDY(0)="[User 'DUZ' not defined]" Q
  1.  S KMPDTY=+$G(KMPDTY)
  1.  I KMPDTY<1!(KMPDTY>2) S KMPDY(0)="[Type parameter out of bounds]" Q
  1.  ;
  1.  ; get parameter data
  1.  I KMPDTY=1 D 
  1.  .S KMPDY(0)="ErrorLog1^"_$$GET^XPAR("USR.`"_KMPDUZ,"KMPD GUI OPTION ERROR LIST",,"Q")
  1.  .S KMPDY(1)="GlobalList1^"_$$GET^XPAR("USR.`"_KMPDUZ,"KMPD GUI OPTION GLOBAL LIST",,"Q")
  1.  .S KMPDY(2)="RoutineSearch1^"_$$GET^XPAR("USR.`"_KMPDUZ,"KMPD GUI OPTION ROUTINE SEARCH",,"Q")
  1.  .S KMPDY(3)="Lookups1^"_$$GET^XPAR("USR.`"_KMPDUZ,"KMPD GUI OPTION LOOKUPS",,"Q")
  1.  .S KMPDY(4)="CodeStats1^"_$$GET^XPAR("USR.`"_KMPDUZ,"KMPD GUI OPTION CODE STATS",,"Q")
  1.  .S KMPDY(5)="CodeEvaluator2^"_$$GET^XPAR("USR.`"_KMPDUZ,"KMPD GUI OPTION CODE EVALUATOR",,"Q")
  1.  .S KMPDY(6)="TimingMonitor1^"_$$GET^XPAR("USR.`"_KMPDUZ,"KMPD GUI OPTION TIMING MONITOR",,"E")
  1.  .S KMPDY(7)="EnvironmentCheck1^"_$$GET^XPAR("USR.`"_KMPDUZ,"KMPD GUI OPTION ENVIRON CHECK",,"Q")
  1.  .S KMPDY(8)="CMToolsParameters1^"_$$GET^XPAR("USR.`"_KMPDUZ,"KMPD GUI OPTION TOOLS PARAMS",,"Q")
  1.  .S KMPDY(9)="EnvironmentSelect^"_$$GET^XPAR("USR.`"_KMPDUZ,"KMPD GUI OPTION ENVIRON SELECT",,"Q")
  1.  .S KMPDY(10)="TimingReports1^"_$$GET^XPAR("USR.`"_KMPDUZ,"KMPD GUI OPTION RPT",,"Q")
  1.  ;
  1.  ; set parameter data
  1.  I KMPDTY=2 D 
  1.  .Q:'$D(KMPDOP)
  1.  .N I,OPT S I="",KMPDY(0)="complete"
  1.  .F  S I=$O(KMPDOP(I)) Q:I=""  S OPT=KMPDOP(I) I OPT]"" D 
  1.  ..I $P(OPT,U)="ErrorLog1" D EN^XPAR("USR.`"_KMPDUZ,"KMPD GUI OPTION ERROR LIST",1,$P(OPT,U,2))
  1.  ..I $P(OPT,U)="GlobalList1" D EN^XPAR("USR.`"_KMPDUZ,"KMPD GUI OPTION GLOBAL LIST",1,$P(OPT,U,2))
  1.  ..I $P(OPT,U)="RoutineSearch1" D EN^XPAR("USR.`"_KMPDUZ,"KMPD GUI OPTION ROUTINE SEARCH",1,$P(OPT,U,2))
  1.  ..I $P(OPT,U)="Lookups1" D EN^XPAR("USR.`"_KMPDUZ,"KMPD GUI OPTION LOOKUPS",1,$P(OPT,U,2))
  1.  ..I $P(OPT,U)="CodeStats1" D EN^XPAR("USR.`"_KMPDUZ,"KMPD GUI OPTION CODE STATS",1,$P(OPT,U,2))
  1.  ..I $P(OPT,U)="CodeEvaluator2" D EN^XPAR("USR.`"_KMPDUZ,"KMPD GUI OPTION CODE EVALUATOR",1,$P(OPT,U,2))
  1.  ..I $P(OPT,U)="TimingMonitor1" D EN^XPAR("USR.`"_KMPDUZ,"KMPD GUI OPTION TIMING MONITOR",1,$P(OPT,U,2))
  1.  ..I $P(OPT,U)="EnvironmentCheck1" D EN^XPAR("USR.`"_KMPDUZ,"KMPD GUI OPTION ENVIRON CHECK",1,$P(OPT,U,2))
  1.  ..I $P(OPT,U)="CMToolsParameters1" D EN^XPAR("USR.`"_KMPDUZ,"KMPD GUI OPTION TOOLS PARAMS",1,$P(OPT,U,2))
  1.  ..I $P(OPT,U)="EnvironmentSelect" D EN^XPAR("USR.`"_KMPDUZ,"KMPD GUI OPTION ENVIRON SELECT",1,$P(OPT,U,2))
  1.  ..I $P(OPT,U)="TimingReports1" D EN^XPAR("USR.`"_KMPDUZ,"KMPD GUI OPTION RPT",1,$P(OPT,U,2))
  1.  ;
  1.  Q