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