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

KMPDU7A.m

Go to the documentation of this file.
  1. KMPDU7A ;OAK/RAK - CM Tools Routine Utilities ;7/22/04 09:06
  1. ;;3.0;KMPD;;Jan 22, 2009;Build 42
  1. ;
  1. N DATA,DATE,HR,I,LN
  1. ;
  1. ADCL ;- TMG - Average Daily Coversheet Load
  1. ; report data
  1. N KMPDPTNP
  1. S KMPDPTNP=$G(KMPDTM)
  1. S KMPDATE(0)=KMPDATE
  1. D DATA^KMPDTP1(.KMPDATE,KMPDPTNP,"")
  1. I '$D(^TMP($J)) S KMPDY(0)="<No Data To Report>" Q
  1. ;S KMPDY(0)=$$NOW^XLFDT_"^"_$$FMTE^XLFDT($$NOW^XLFDT)
  1. S (DATE,LN)=0
  1. F S DATE=$O(^TMP($J,DATE)) Q:'DATE D
  1. .S DATA=^TMP($J,DATE),LN=LN+1
  1. .S $P(KMPDY(LN),U)=$$FMTE^XLFDT(DATE)
  1. .S $P(KMPDY(LN),U,2)=$FN($P(DATA,U),",",0)
  1. .S $P(KMPDY(LN),U,3)=$FN($P(DATA,U,2),",",0)
  1. .S $P(KMPDY(LN),U,4)=$FN($P(DATA,U,3),",",0)
  1. .S $P(KMPDY(LN),U,5)=$FN($P(DATA,U,4),",",0)
  1. Q
  1. ;
  1. AHCR ;- TMG - Average Hourly Coversheet Load
  1. ; report data
  1. D DATA^KMPDTP3
  1. I '$D(^TMP($J)) S KMPDY(0)="<No Data to Report>" Q
  1. S (DATE,LN)=0
  1. F S DATE=$O(^TMP($J,DATE)) Q:'DATE S HR=0 D
  1. .F S HR=$O(^TMP($J,DATE,HR)) Q:'HR D
  1. ..S DATA=^TMP($J,DATE,HR),LN=LN+1
  1. ..S $P(KMPDY(LN),U)=$$FMTE^XLFDT(DATE)
  1. ..S $P(KMPDY(LN),U,2)=$S($L(HR)=1:"0",1:"")_HR
  1. ..S $P(KMPDY(LN),U,3)=$FN($P(DATA,U),",",0)
  1. ..S $P(KMPDY(LN),U,4)=$FN($P(DATA,U,2),",",0)
  1. ..S $P(KMPDY(LN),U,5)=$FN($P(DATA,U,3),",",0)
  1. ..S $P(KMPDY(LN),U,6)=$FN($P(DATA,U,4),",",0)
  1. ..S $P(KMPDY(LN),U,7)=$FN($P(DATA,U,5),",",0)
  1. Q
  1. ;
  1. CTTLAR ;- TMG - Coversheet TTL Alert Report
  1. I $G(KMPDSRCH)="" S KMPDY(0)="[TTL Search data is missing]" Q
  1. I '$G(KMPDTSEC) S KMPDY(0)="[Threshold Seconds data is missing]" Q
  1. ; report data
  1. D DATA^KMPDTP5
  1. I '$D(^TMP($J)) S KMPDY(0)="<No Data to Report>" Q
  1. S (DATE,LN)=0
  1. F S DATE=$O(^TMP($J,DATE)) Q:'DATE S HR="" D
  1. .F S HR=$O(^TMP($J,DATE,HR)) Q:HR="" D
  1. ..S DATA=^TMP($J,DATE,HR)
  1. ..S $P(KMPDY(LN),U)=$$FMTE^XLFDT(DATE)
  1. ..S $P(KMPDY(LN),U,2)=HR
  1. ..; user name
  1. ..S $P(KMPDY(LN),U,3)=$P(DATA,U,5)
  1. ..; client name
  1. ..S $P(KMPDY(LN),U,4)=$P(DATA,U,6)
  1. ..; ip address
  1. ..S $P(KMPDY(LN),U,5)=$P(DATA,U,9)
  1. ..; time to load
  1. ..S $P(KMPDY(LN),U,6)=$FN($P(DATA,U,4),",",0)
  1. ..S LN=LN+1
  1. Q
  1. ;
  1. DCTTLDR ;- TMG - Daily Coversheet TTL Detailed Report
  1. S KMPDPTNP=KMPDTM
  1. ; report data
  1. D DATA^KMPDTP2
  1. I '$D(^TMP($J)) S KMPDY(0)="<No Data to Report>" Q
  1. S (DATE,LN)=0
  1. F S DATE=$O(^TMP($J,DATE)) Q:'DATE D
  1. .S DATA=^TMP($J,DATE),DATA(1)=$G(^TMP($J,DATE,1))
  1. .F I=1:1:10 D
  1. ..S $P(KMPDY(LN),U)=$$FMTE^XLFDT(DATE)
  1. ..I I<10 S $P(KMPDY(LN),U,2)=$J(I-1*10,2)_" to "_(I*10)
  1. ..E S $P(KMPDY(LN),U,2)="90 or greater"
  1. ..S $P(KMPDY(LN),U,3)=$FN($P(DATA,U,I),",",0)
  1. ..S $P(KMPDY(LN),U,4)=$FN($P(DATA(1),U,I),",",1)_"%"
  1. ..S LN=LN+1
  1. Q
  1. ;
  1. HCTTLDR ;-TMG - Hourly Coversheet TTL Detailed Report
  1. ; report data
  1. D DATA^KMPDTP4
  1. I '$D(^TMP($J)) S KMPDY(0)="<No Data to Report>" Q
  1. S (DATE,LN)=0
  1. F S DATE=$O(^TMP($J,DATE)) Q:'DATE S HR=0 D
  1. .F S HR=$O(^TMP($J,DATE,HR)) Q:'HR D
  1. ..S DATA=^TMP($J,DATE,HR),DATA(1)=$G(^(HR,1))
  1. ..F I=1:1:9 D
  1. ...S $P(KMPDY(LN),U)=$$FMTE^XLFDT(DATE)
  1. ...S $P(KMPDY(LN),U,2)=HR
  1. ...S $P(KMPDY(LN),U,3)=$J(I-1*10,2)_" to "_(I*10)
  1. ...S $P(KMPDY(LN),U,4)=$FN($P(DATA,U,I),",",0)
  1. ...S $P(KMPDY(LN),U,5)=$FN($P(DATA(1),U,I),",",1)
  1. ...S LN=LN+1
  1. Q
  1. ;
  1. RTAHCL ;- TMG - Real-Time Average Hourly Coversheet Load
  1. ; report data
  1. D DATA^KMPDTP7
  1. I '$D(^TMP($J)) S KMPDY(0)="<No Data to Report>" Q
  1. S DATE=$O(^TMP($J,0)) Q:'DATE
  1. S HR="",LN=0
  1. F S HR=$O(^TMP($J,DATE,HR)) Q:HR="" D
  1. .S DATA=^TMP($J,DATE,HR)
  1. .S $P(KMPDY(LN),U)=$$FMTE^XLFDT(DATE)
  1. .S $P(KMPDY(LN),U,2)=HR
  1. .; ttl average
  1. .S $P(KMPDY(LN),U,3)=$FN($P(DATA,U),",",0)
  1. .; ttl minimum
  1. .S $P(KMPDY(LN),U,4)=$FN($P(DATA,U,2),",",0)
  1. .; ttl maximum
  1. .S $P(KMPDY(LN),U,5)=$FN($P(DATA,U,3),",",0)
  1. .; # of cv loads
  1. .S $P(KMPDY(LN),U,6)=$FN($P(DATA,U,5),",",0)
  1. .S LN=LN+1 Q
  1. Q
  1. ;
  1. RTTA ;- TMG - Real-Time Threshold Alert
  1. S KMPDHOUR=$G(KMPDHOUR)
  1. S KMPDTSEC=$G(KMPDTSEC)
  1. I 'KMPDTSEC S KMPDY(0)="[Seconds data is missing]" Q
  1. I $G(KMPDSRCH)="" S KMPDY(0)="[TTL Search data is missing]" Q
  1. S KMPDSRCH(1)=$P(KMPDSRCH,U),KMPDSRCH(2)=$P(KMPDSRCH,U,2,3)
  1. I 'KMPDSRCH(1) S KMPDY(0)="[TTL Search data invalid]" Q
  1. I (KMPDSRCH(1)<4)&('KMPDSRCH(2)) S KMPDY(0)="[TTL Search data missing]" Q
  1. ; report data
  1. D DATA^KMPDTP6
  1. I '$D(^TMP($J)) S KMPDY(0)="<No Data to Report>" Q
  1. S (DATE,LN)=0
  1. F S DATE=$O(^TMP($J,DATE)) Q:'DATE S HR="" D
  1. .F S HR=$O(^TMP($J,DATE,HR)) Q:HR="" D
  1. ..S DATA=^TMP($J,DATE,HR)
  1. ..; date
  1. ..S $P(KMPDY(LN),U)=$$FMTE^XLFDT(DATE)
  1. ..; hour
  1. ..S $P(KMPDY(LN),U,2)=HR
  1. ..; user name
  1. ..S $P(KMPDY(LN),U,3)=$P(DATA,U,5)
  1. ..; client name
  1. ..S $P(KMPDY(LN),U,4)=$P(DATA,U,6)
  1. ..; ip address
  1. ..S $P(KMPDY(LN),U,5)=$P(DATA,U,9)
  1. ..; time to load
  1. ..S $P(KMPDY(LN),U,6)=$P(DATA,U,4)
  1. ..S LN=LN+1
  1. ;
  1. Q