source: FOIAVistA/tag/r/CAPACITY_MANAGEMENT_RUM-KMPR/KMPRPN03.m@ 628

KMPRPN03 ;OAK/RAK - Print Package RUM Stats ;11/19/04  09:01
 ;;2.0;CAPACITY MANAGEMENT - RUM;**1**;May 28, 2003
EN ;-- entry point.
 ;
 N %ZIS,CONT,DIR,KMPRDATE,KMPRNAM,MESSAGE,POP
 N X,Y,ZTDESC,ZTRTN,ZTSAVE,ZTSK
 ;
 D HDR^KMPDUTL4(" Package Resource Usage ")
 W !,?2,"This option will display the package Resource Usage Monitor statistics.",!
 W ?2,"The printout summarizes the statistics of the options, protocols and",!
 W ?2,"tasks for a selected namespace as percentages.",!!
 ;
 K DIR S DIR(0)="FO^1:999:0^K:X="" "" X"
 S DIR("A")="Select Package Namespace (case sensitive)"
 D ^DIR Q:Y=""!(Y="^")
 S KMPRNAM=Y
 ;
 ; determine start date from file 8970.1
 D RUMDATES^KMPRUTL(.KMPRDATE)
 Q:'KMPRDATE
 ;
 ; select output device.
 S %ZIS="Q",%ZIS("A")="Device: ",%ZIS("B")="HOME"
 W ! D ^%ZIS I POP W !,"No action taken." Q
 ; if queued.
 I $D(IO("Q")) K IO("Q") D  Q
 .S ZTDESC="RUM Package Resource Usage for '"_KMPRNAM_"'."
 .S ZTRTN="EN1^KMPRPN03"
 .S ZTSAVE("KMPRDATE")="",ZTSAVE("KMPRNAM")=""
 .D ^%ZTLOAD W:$G(ZTSK) !,"Task #",ZTSK
 .D EXIT
 ;
 ; if output to terminal display message.
 W:$E(IOST,1,2)="C-" !?3,"compiling data for: "
 ;
EN1 ;-- entry point from taskman.
 ;
 Q:'$G(KMPRDATE)
 Q:$G(KMPRNAM)=""
 ;
 N DOTS,ELEMENT,KMPRARRY
 ;
 S DOTS=$S($E(IOST,1,2)="C-":0,1:1)
 D ELEARRY^KMPRUTL("ELEMENT") Q:'$D(ELEMENT)
 S KMPRARRY=$NA(^TMP("KMPR PKG %",$J))
 K @KMPRARRY
 D PKGDATA^KMPRUTL2(KMPRNAM,$P(KMPRDATE,U),$P(KMPRDATE,U,2),KMPRARRY,DOTS)
 D PRINT,EXIT
 K @KMPRARRY
 ;
 Q
 ;
EXIT ;
 S:$D(ZTQUEUED) ZTREQ="@"
 D ^%ZISC
 K KMPUDATE,KMPUNAM
 ;
 Q
 ;
PRINT ;-- print data from KMPRARRY.
 ;
 Q:'$D(ELEMENT)
 Q:$G(KMPRARRY)=""
 ;
 U IO
 ;
 I '$D(@KMPRARRY) D HDR W !,"<<<No Data to Report>>>" Q
 ;
 N DATA,I,NODE,PIECE,SITE,TOTALS,TYP
 ;
 ; facility name.
 S SITE=$P($$SITE^VASITE,U,2)
 S NODE="",CONT=1
 F  S NODE=$O(@KMPRARRY@(NODE)) Q:NODE=""  D  Q:'CONT
 .D HDR S I=0
 .F  S I=$O(ELEMENT(I)) Q:'I  D  Q:'CONT
 ..W !,$P(ELEMENT(I),U) S PIECE=$P(ELEMENT(I),U,2)
 ..S TOTALS=$P($G(@KMPRARRY@(NODE,"TOTALS")),U,PIECE)
 ..F TYP=KMPRNAM,"PRTCL","RPC","HL7","TASK","OTH" D 
 ...S DATA=$P($G(@KMPRARRY@(NODE,TYP)),U,PIECE)
 ...W ?($S(TYP=KMPRNAM:20,TYP="PRTCL":30,TYP="RPC":40,TYP="HL7":50,TYP="TASK":60,1:70))
 ...W $J($S('TOTALS:"n/a",1:$FN(DATA/TOTALS*100,"",1)),6)
 .;
 .; back to NODE level.
 .; if no more entries send message  else use default.
 .S MESSAGE=""
 .S:$O(@KMPRARRY@(NODE))="" MESSAGE="Press RETURN to continue"
 .D CONTINUE^KMPDUTL4(MESSAGE,2,.CONT)
 ;
 Q
 ;
HDR ;
 W:$Y @IOF
 W !?29,"Package Resource Usage"
 W !?(80-$L($G(SITE))\2),$G(SITE)
 W !?17,"Node ",$G(NODE)," from ",$P(KMPRDATE,U,3)," to ",$P(KMPRDATE,U,4)
 W !?(80-($L(KMPRNAM)+12)\2),"'",KMPRNAM,"' Namespace"
 W !
 W !?20,"   %   ",?30,"    %    ",?40,"    %    ",?50,"    %    ",?60,"   %  ",?70,"All Other"
 W !?20,"Options",?30,"Protocols",?40,"   RPC",?50,"   HL7",?60," Tasks",?70,"Packages"
 W !
 ;
 Q