ESPWR1 ;DALISC/CKA -PRINT WORKLOAD REPORT (CONT)- 3/93
;;1.0;POLICE & SECURITY;**17**;Mar 31, 1994
EN Q ;CALLED FROM ESPWR
PRT ;PRINT REPORT CONTINUED- PRINTS THE REPORT
S (END,PAGE)=0 D HDR
S ESPN=0
F ESPI=1:1 S ESPN=$O(^ESP(911,ESPN)) Q:ESPN'>0 S ESPACT=^(ESPN,0) D
. S NAM=$P(ESPACT,U),CODE=$P(ESPACT,U,2)
. W !,NAM,?42,CODE,?52,ESPC(ESPN),?62,ESPMIN(ESPN),?72,$J(ESPMIN(ESPN)/60,6,2)
QUIT
HDR ;PRINT HEADING
S PAGE=PAGE+1 W @IOF,!?25,"WORKLOAD REPORT",?(IOM-10),"PAGE: ",$J(PAGE,3)
I ESPALL W !?27,"ALL OFFICERS"
I 'ESPALL S OFNAM=$P($G(^VA(200,+ESPPO,0)),U) W !?33-($L(OFNAM)/2),OFNAM
BDT W !?45,"BEGINNING DATE: " S Y=ESPBD X ^DD("DD") W Y
EDT W !?45,"ENDING DATE: " S Y=(ESPED\1) X ^DD("DD") W Y
W !!,"DESCRIPTION",?42,"CODE",?52,"NUMBER",?62,"MINUTES",?72,"HOURS"
W !
QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HESPWR1 818 printed Dec 13, 2024@02:31:01 Page 2
ESPWR1 ;DALISC/CKA -PRINT WORKLOAD REPORT (CONT)- 3/93
+1 ;;1.0;POLICE & SECURITY;**17**;Mar 31, 1994
EN ;CALLED FROM ESPWR
QUIT
PRT ;PRINT REPORT CONTINUED- PRINTS THE REPORT
+1 SET (END,PAGE)=0
DO HDR
+2 SET ESPN=0
+3 FOR ESPI=1:1
SET ESPN=$ORDER(^ESP(911,ESPN))
if ESPN'>0
QUIT
SET ESPACT=^(ESPN,0)
Begin DoDot:1
+4 SET NAM=$PIECE(ESPACT,U)
SET CODE=$PIECE(ESPACT,U,2)
+5 WRITE !,NAM,?42,CODE,?52,ESPC(ESPN),?62,ESPMIN(ESPN),?72,$JUSTIFY(ESPMIN(ESPN)/60,6,2)
End DoDot:1
+6 QUIT
HDR ;PRINT HEADING
+1 SET PAGE=PAGE+1
WRITE @IOF,!?25,"WORKLOAD REPORT",?(IOM-10),"PAGE: ",$JUSTIFY(PAGE,3)
+2 IF ESPALL
WRITE !?27,"ALL OFFICERS"
+3 IF 'ESPALL
SET OFNAM=$PIECE($GET(^VA(200,+ESPPO,0)),U)
WRITE !?33-($LENGTH(OFNAM)/2),OFNAM
BDT WRITE !?45,"BEGINNING DATE: "
SET Y=ESPBD
XECUTE ^DD("DD")
WRITE Y
EDT WRITE !?45,"ENDING DATE: "
SET Y=(ESPED\1)
XECUTE ^DD("DD")
WRITE Y
+1 WRITE !!,"DESCRIPTION",?42,"CODE",?52,"NUMBER",?62,"MINUTES",?72,"HOURS"
+2 WRITE !
+3 QUIT
