ESPWR1.m

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 ---ESPWR1   818     printed  Apr 09, 2024@21:32:25                                                                                                                                                                                                       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