| [613] | 1 | ESPWR1 ;DALISC/CKA -PRINT WORKLOAD REPORT (CONT)- 3/93
|
|---|
| 2 | ;;1.0;POLICE & SECURITY;**17**;Mar 31, 1994
|
|---|
| 3 | EN Q ;CALLED FROM ESPWR
|
|---|
| 4 | PRT ;PRINT REPORT CONTINUED- PRINTS THE REPORT
|
|---|
| 5 | S (END,PAGE)=0 D HDR
|
|---|
| 6 | S ESPN=0
|
|---|
| 7 | F ESPI=1:1 S ESPN=$O(^ESP(911,ESPN)) Q:ESPN'>0 S ESPACT=^(ESPN,0) D
|
|---|
| 8 | . S NAM=$P(ESPACT,U),CODE=$P(ESPACT,U,2)
|
|---|
| 9 | . W !,NAM,?42,CODE,?52,ESPC(ESPN),?62,ESPMIN(ESPN),?72,$J(ESPMIN(ESPN)/60,6,2)
|
|---|
| 10 | QUIT
|
|---|
| 11 | HDR ;PRINT HEADING
|
|---|
| 12 | S PAGE=PAGE+1 W @IOF,!?25,"WORKLOAD REPORT",?(IOM-10),"PAGE: ",$J(PAGE,3)
|
|---|
| 13 | I ESPALL W !?27,"ALL OFFICERS"
|
|---|
| 14 | I 'ESPALL S OFNAM=$P($G(^VA(200,+ESPPO,0)),U) W !?33-($L(OFNAM)/2),OFNAM
|
|---|
| 15 | BDT W !?45,"BEGINNING DATE: " S Y=ESPBD X ^DD("DD") W Y
|
|---|
| 16 | EDT W !?45,"ENDING DATE: " S Y=(ESPED\1) X ^DD("DD") W Y
|
|---|
| 17 | W !!,"DESCRIPTION",?42,"CODE",?52,"NUMBER",?62,"MINUTES",?72,"HOURS"
|
|---|
| 18 | W !
|
|---|
| 19 | QUIT
|
|---|
