source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPWR1.m@ 1593

Last change on this file since 1593 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 799 bytes
Line 
1ESPWR1 ;DALISC/CKA -PRINT WORKLOAD REPORT (CONT)- 3/93
2 ;;1.0;POLICE & SECURITY;**17**;Mar 31, 1994
3EN Q ;CALLED FROM ESPWR
4PRT ;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
11HDR ;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
15BDT W !?45,"BEGINNING DATE: " S Y=ESPBD X ^DD("DD") W Y
16EDT 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
Note: See TracBrowser for help on using the repository browser.