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

KMPDU7.m

Go to the documentation of this file.
  1. KMPDU7 ;OAK/RAK - CM Tools Routine Utilities ;7/22/04 09:06
  1. ;;3.0;KMPD;;Jan 22, 2009;Build 42
  1. ;
  1. ;
  1. SBLIST(KMPDY,KMPDLIST,KMPDSS,KMPDGBL) ;-- rpc search by list
  1. ;-------------------------------------------------------------------
  1. ; KMPDY()... return array (see LISTSEL^KMPDTU10 for details)
  1. ; KMPDLIST.. search by list
  1. ; 2 - client name
  1. ; 3 - ip address
  1. ; KMPDSS.... free text - timing monitor subscript
  1. ; KMPDGBL... global name to store results
  1. ;-------------------------------------------------------------------
  1. ;
  1. K KMPDY
  1. S KMPDLIST=+$G(KMPDLIST),KMPDSS=$G(KMPDSS)
  1. I (KMPDLIST<2)!(KMPDLIST>3) S KMPDY(0)="[Search By entry is invalid]" Q
  1. I KMPDSS="" S KMPDY(0)="[Subscript is null]" Q
  1. ;
  1. N I
  1. ;
  1. K ^TMP("KMPDTU10-LIST",$J)
  1. D:KMPDLIST=2 LISTSELR^KMPDTU10
  1. D:KMPDLIST=3 LISTSELH^KMPDTU10
  1. I '$O(^TMP("KMPDTU10-LIST",$J,0)) S KMPDY(0)="<No Data to Report>" Q
  1. ;
  1. F I=0:0 S I=$O(^TMP("KMPDTU10-LIST",$J,I)) Q:'I D
  1. .S @KMPDGBL@(I)=$G(^TMP("KMPDTU10-LIST",$J,I,0))
  1. ;
  1. S KMPDY=$NA(@KMPDGBL)
  1. ;
  1. Q
  1. ;
  1. TMGDATES(KMPDY,KMPDSS) ;-- rpc timing date ranges
  1. ;-------------------------------------------------------------------
  1. ; KMPDY()... return value
  1. ; KMPDY(0)=FMStartDate^FMEndDate^ExtStartDate^ExtEndDate
  1. ; KMPDY(1)=FMDate^ExtDate
  1. ; KMPDY(2)=FMDate^ExtDate
  1. ; KMPDY(...)=...
  1. ; KMPDSS.... timing subscript
  1. ;-------------------------------------------------------------------
  1. ;
  1. K KMPDY
  1. ;
  1. I $G(KMPDSS)="" S KMPDY(0)="[Timing Subscript is not defined]" Q
  1. ;
  1. N DATE,I,LN,SESSION
  1. ;
  1. S DATE=$$DATERNG1^KMPDTU10(KMPDSS,.SESSION)
  1. I 'DATE S KMPDY(0)="<There are no Timing Monitor Dates available>" Q
  1. S $P(KMPDY(0),U)=$P(DATE,U)
  1. S $P(KMPDY(0),U,2)=$$FMTE^XLFDT($P(DATE,U))
  1. S $P(KMPDY(0),U,3)=$P(DATE,U,2)
  1. S $P(KMPDY(0),U,4)=$$FMTE^XLFDT($P(DATE,U,2))
  1. S (I,LN)=0
  1. F S I=$O(SESSION(I)) Q:'I D
  1. .S LN=LN+1
  1. .S KMPDY(LN)=I_"^"_$$FMTE^XLFDT(I)
  1. ;
  1. ;
  1. Q
  1. ;
  1. TMGMON(KMPDY,KMPDSTM) ;-- timing monitor data
  1. ;-------------------------------------------------------------------
  1. ; remote procedure: KMPD TMG MON DATA
  1. ;
  1. ; KMPDY()... return value:
  1. ; KMPDY(0)= ^piece 1: Last Updated
  1. ; piece 2: Running Time
  1. ; piece 3: Update Minutes
  1. ; piece 4: alert seconds
  1. ; piece 5: start time
  1. ; KMPDY(...) Hour^AverageDeltaSeconds^AverageCount
  1. ;
  1. ; KMPDSTM... monitor start time in internal fileman format. if not
  1. ; defined this will be set as NOW.
  1. ;-------------------------------------------------------------------
  1. ;
  1. K KMPDY
  1. ;
  1. S:'$G(KMPDSTM) KMPDSTM=$$NOW^XLFDT
  1. ;
  1. N DATA,I,KMPUTIME,KMPUTMP,LN,NOW
  1. ;
  1. D DATA^KMPDTM
  1. I '$D(KMPUTMP) S KMPDY(0)="<No Timing Monitor Data to Report>" Q
  1. ;
  1. S NOW=$$NOW^XLFDT
  1. S DATA=$G(^KMPD(8973,1,19))
  1. ; zero node: LastUpdated^RunningTime^UpdateMinutes^AlertSeconds
  1. S $P(KMPDY(0),U)=$P($$FMTE^XLFDT(NOW),"@",2)
  1. S $P(KMPDY(0),U,2)=$$FMDIFF^XLFDT(NOW,KMPDSTM,3)
  1. S $P(KMPDY(0),U,3)=$S($P(DATA,U):$P(DATA,U),1:10)
  1. S $P(KMPDY(0),U,4)=$S($P(DATA,U,2):$P(DATA,U,2),1:30)
  1. S $P(KMPDY(0),U,5)=KMPDSTM
  1. ;
  1. S LN=0
  1. F I=0:0 S I=$O(KMPUTMP(I)) Q:'I D
  1. .S LN=LN+1,KMPDY(LN)=$G(KMPUTMP(I,0))
  1. ;
  1. Q
  1. ;
  1. TMGRPT(KMPDY,KMPDRPT,KMPDTM,KMPDATE,KMPDSRCH,KMPDTSEC,KMPDHOUR) ;-- rpc - timing reports
  1. ;-------------------------------------------------------------------
  1. ; KMPDY()... array containing report
  1. ; KMPDRPT... report name (free text)
  1. ; KMPDTM.... time frame - prime time or non-prime time
  1. ; KMPDATE... date (fileman format)
  1. ; KMPDSRCH.. ttl search text
  1. ; 1: User Name
  1. ; 2: Client Name
  1. ; 3: IP Address
  1. ; 4: All Items
  1. ; KMPDTSEC.. seconds
  1. ; KMPDTHR... hour
  1. ;-------------------------------------------------------------------
  1. ;
  1. K KMPDY
  1. ;
  1. S KMPDRPT=$G(KMPDRPT)
  1. I KMPDRPT="" S KMPDY(0)="[There is no Report Name]" Q
  1. S KMPDTM=$G(KMPDTM)
  1. I KMPDTM="" S KMPDY(0)="[There is no Time Frame]" Q
  1. I '$D(KMPDATE) S KMPDY(0)="[There is no Ending Date]" Q
  1. ;
  1. N DATA,DATE,HR,I,KMPDPTNP,LN
  1. ;
  1. K ^TMP($J)
  1. ;
  1. I KMPDRPT="TMG - Average Daily Coversheet Load" D ADCL^KMPDU7A
  1. I KMPDRPT="TMG - Average Hourly Coversheet Load" D AHCR^KMPDU7A
  1. I KMPDRPT="TMG - Coversheet TTL Alert Report" D CTTLAR^KMPDU7A
  1. I KMPDRPT="TMG - Daily Coversheet TTL Detailed Report" D DCTTLDR^KMPDU7A
  1. I KMPDRPT="TMG - Hourly Coversheet TTL Detailed Report" D HCTTLDR^KMPDU7A
  1. I KMPDRPT="TMG - Real-Time Average Hourly Coversheet Load" D RTAHCL^KMPDU7A
  1. I KMPDRPT="TMG - Real-Time Threshold Alert" D RTTA^KMPDU7A
  1. ;
  1. S:'$D(KMPDY) KMPDY(0)="<No Data to Report>"
  1. ;
  1. Q
  1. ;
  1. TMGSST(KMPDY,KMPDSST) ;-- rpc - start/stop timing monitor
  1. ;-------------------------------------------------------------------
  1. ; KMPDY()... array containing timing monitor status
  1. ; 0 - timing monitor is off
  1. ; 1 - timing monitor is on
  1. ; KMPSST.... start/stop
  1. ; 0 - stop timing monitor
  1. ; 1 - start timing monitor
  1. ;-------------------------------------------------------------------
  1. ;
  1. S KMPDSST=+$G(KMPDSST)
  1. S:KMPDSST>1 KMPDSST=1
  1. S ^KMPTMP("KMPD-CPRS")=KMPDSST
  1. S KMPDY(0)=KMPDSST
  1. Q
  1. ;
  1. TMGSTAT(KMPDY) ;-- rpc - timing monitor status
  1. ;-------------------------------------------------------------------
  1. ; KMPDY()... array containing timing monitor status
  1. ; 0 - timing monitor is off
  1. ; 1 - timing monitor is on
  1. ;-------------------------------------------------------------------
  1. ;
  1. S KMPDY(0)=$G(^KMPTMP("KMPD-CPRS"))
  1. ;
  1. Q