KMPDTU02 ;OAK/RAK - CP Tools Compile & File Daily Timing Stats ;2/17/04 09:43 ;;2.0;CAPACITY MANAGEMENT TOOLS;;Mar 22, 2002 ; DAILY ;(KMPDST,KMPDEN);-entry point ;----------------------------------------------------------------------- ; KMPDST... Start date in internal fileman format. ; KMPDEN... End date in internal fileman format. ; ; This API gathers Timing data from ^KMPTMP("KMPDT") and stores it in ; file 8973.2 (CP TIMING) ; ;----------------------------------------------------------------------- ; ;Q:'$G(KMPDST) ;Q:'$G(KMPDEN) ; make sure end date has hours ;S:'$P(KMPDEN,".",2) $P(KMPDEN,".",2)="99" ;S:'$G(DT) DT=$$DT^XLFDT ; W:'$D(ZTQUEUED) !,"Compiling Timing data..." D COMPILE ; Q ; COMPILE ;-- compile & file timing data ; Q:$O(^KMPTMP("KMPDT",""))="" N COUNT,DATA,DATA1,ID,OK,SBSCR,TODAY S TODAY=$P($H,",") Q:'TODAY S SBSCR="",COUNT=0 F S SBSCR=$O(^KMPTMP("KMPDT",SBSCR)) Q:SBSCR="" S ID="" D .F S ID=$O(^KMPTMP("KMPDT",SBSCR,ID)) Q:ID="" S DATA=^(ID) D ..; quit if not 'previous' to DT ..Q:$P($P(DATA,U),".")'