20 lines
799 B
Mathematica
20 lines
799 B
Mathematica
|
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
|