Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ESPWR

ESPWR.m

Go to the documentation of this file.
  1. ESPWR ;DALISC/CKA - WORKLOAD REPORT- 3/93
  1. ;;1.0;POLICE & SECURITY;**17,33**;Mar 31, 1994
  1. START ;
  1. S ESPALL=0
  1. SELOFF S DIR(0)="FO^3:30",DIR("A")="Select OFFICER",DIR("B")="ALL" D ^DIR
  1. I X="^" G EX
  1. I Y="ALL" S ESPALL=1 G DATE
  1. I $D(DTOUT) W $C(7) G EX
  1. S DIC="^VA(200,",DIC(0)="EMQZ",D="AK.ESP POLICE"
  1. D IX^DIC
  1. I Y=-1 W !,$C(7),"This officer is not a current police officer." G SELOFF
  1. S ESPPO=Y
  1. DATE ;ASK BEGINNING & ENDING DATE
  1. D DT^DICRW K BEGDATE,ENDDATE W !!,"**** Date Range Selection ****",!
  1. S %DT="AE",%DT(0)="-NOW",%DT("A")=" Beginning DATE : " D ^%DT K %DT
  1. G:Y<0 EX
  1. S (BEGDATE,ESPBD)=Y
  1. W ! S %DT="AE",%DT("A")=" Ending DATE: " D ^%DT
  1. G:$D(DTOUT) EX
  1. G:Y<ESPBD HELP W ! S ENDDATE=Y,ESPED=Y+.9
  1. ZERO S ESPI=0 F ESPX=1:1 S ESPI=$O(^ESP(911,ESPI)) Q:ESPI'>0 S ESPC(ESPI)=0,ESPMIN(ESPI)=0
  1. COUNT ;GO THROUGH "B" X-REF TO COUNT AND GET TOTALS
  1. I 'ESPALL G ONE
  1. S ESPDT=ESPBD-.0005
  1. F ESPI=1:1 S ESPDT=$O(^ESP(910.1,"B",ESPDT)) Q:ESPDT>ESPED!(ESPDT'>0) D
  1. . S ESPIEN=0
  1. . F ESPJ=1:1 S ESPIEN=$O(^ESP(910.1,"B",ESPDT,ESPIEN)) Q:ESPIEN'>0 D
  1. .. S ESPOFF=0
  1. .. F ESPZ=1:1 S ESPOFF=$O(^ESP(910.1,ESPIEN,10,ESPOFF)) Q:ESPOFF'>0 D
  1. ... ;COUNT AND GET TOTALS
  1. ... S ESPACT=0
  1. ... F ESPY=1:1 S ESPACT=$O(^ESP(910.1,ESPIEN,10,ESPOFF,10,ESPACT)) Q:ESPACT'>0 D
  1. .... S ESPI=$P(^ESP(910.1,ESPIEN,10,ESPOFF,10,ESPACT,0),U) I $D(ESPC(ESPI)) S ESPC(ESPI)=ESPC(ESPI)+$P(^(0),U,2),ESPMIN(ESPI)=ESPMIN(ESPI)+$P(^(0),U,3)
  1. G PRT
  1. ONE ;ONLY ONE OFFICER
  1. S ESPDT=ESPBD-.0005
  1. F ESPI=1:1 S ESPDT=$O(^ESP(910.1,"B",ESPDT)) Q:ESPDT>ESPED!(ESPDT'>0) D
  1. . S ESPIEN=0
  1. . F ESPJ=1:1 S ESPIEN=$O(^ESP(910.1,"B",ESPDT,ESPIEN)) Q:ESPIEN'>0 D
  1. .. S ESPOFF=0
  1. .. F ESPZ=1:1 S ESPOFF=$O(^ESP(910.1,ESPIEN,10,ESPOFF)) Q:ESPOFF'>0 D:+ESPPO=$P(^ESP(910.1,ESPIEN,10,ESPOFF,0),U)
  1. ... ;COUNT AND GET TOTALS
  1. ... S ESPACT=0
  1. ... F ESPY=1:1 S ESPACT=$O(^ESP(910.1,ESPIEN,10,ESPOFF,10,ESPACT)) Q:ESPACT'>0 D
  1. .... S ESPI=$P(^ESP(910.1,ESPIEN,10,ESPOFF,10,ESPACT,0),U) I $D(ESPC(ESPI)) S ESPC(ESPI)=ESPC(ESPI)+$P(^(0),U,2),ESPMIN(ESPI)=ESPMIN(ESPI)+$P(^(0),U,3)
  1. PRT ;PRINT REPORT
  1. Q S %ZIS="Q" D ^%ZIS G:POP EX I '$D(IO("Q")) U IO D PRT^ESPWR1 G EX
  1. S ZTRTN="PRT^ESPWR1",ZTSAVE("ESP*")="",ZTDESC="WORKLOAD REPORT" D ^%ZTLOAD,HOME^%ZIS G EX
  1. W !!,"Done."
  1. EX D ^%ZISC
  1. W:$D(DTOUT) $C(7)
  1. K %ZIS,%DT,BEGDATE,CODE,DIC,DIR,END,ENDDATE,ESPACT,ESPALL,ESPBD,ESPC,ESPDT,ESPED,ESPI,ESPIEN,ESPJ,ESPMIN,ESPN,ESPPO,ESPOFF,ESPX,ESPY,ESPZ,NAM,OFNAM,PAGE,X,Y
  1. QUIT
  1. ;
  1. HELP W "??",!?5,"Ending date must not be before beginning date" G DATE