ESPUCP3 ;DALISC/CKA -PRINT UNIFORM CRIME REPORT (CONT)- 3/93
;;1.0;POLICE & SECURITY;**11,12,22**;Mar 31, 1994
EN Q ;CALLED FROM ESPUCP2
PRT ;PRINT REPORT CONTINUED- PRINTS 3RD PAGE
D HDR Q:END
W !!?25,"ROBBERY Total # : ",$G(^UTILITY("DIQ1",$J,912.41,DA,100,"E"))
W !!,"Armed Robbery : ",$G(^UTILITY("DIQ1",$J,912.41,DA,101,"E"))
W ?40,"$100 & Above : ",$G(^UTILITY("DIQ1",$J,912.41,DA,102,"E"))
W !?40,"<$100 : ",$G(^UTILITY("DIQ1",$J,912.41,DA,103,"E"))
W !,"Strong Armed Robbery : ",$G(^UTILITY("DIQ1",$J,912.41,DA,104,"E"))
W ?40,"$100 & Above : ",$G(^UTILITY("DIQ1",$J,912.41,DA,105,"E"))
W !?40,"<$100 : ",$G(^UTILITY("DIQ1",$J,912.41,DA,106,"E"))
W !,"Drugs Only : ",$G(^UTILITY("DIQ1",$J,912.41,DA,107,"E"))
W ?40,"Robbery Total $ Loss : ",$G(^UTILITY("DIQ1",$J,912.41,DA,108,"E"))
W !?40,"Robbery Total $ Recovered : ",$G(^UTILITY("DIQ1",$J,912.41,DA,109,"E"))
I $Y+15>IOSL D HDR1 Q:END
W !!!?25,"STOPS & ARRESTS Total # : ",$G(^UTILITY("DIQ1",$J,912.41,DA,110,"E"))
W !!,"Physical Arrests : ",$G(^UTILITY("DIQ1",$J,912.41,DA,111,"E"))
W !!,?15,"Offender"
W !!?10,"Employee: ",$G(^UTILITY("DIQ1",$J,912.41,DA,112,"E"))
W ?30,"Outsider: ",$G(^UTILITY("DIQ1",$J,912.41,DA,113,"E"))
W !?10,"Patient : ",$G(^UTILITY("DIQ1",$J,912.41,DA,114,"E"))
W ?30,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.41,DA,115,"E"))
W !!,"Stops for Questioning : ",$G(^UTILITY("DIQ1",$J,912.41,DA,116,"E"))
W ?40,"Package Stops : ",$G(^UTILITY("DIQ1",$J,912.41,DA,117,"E"))
W !?40,"Non-Package Stops : ",$G(^UTILITY("DIQ1",$J,912.41,DA,118,"E"))
I $Y+15>IOSL D HDR1 Q:END
W !!!?25,"THEFTS Total # : ",$G(^UTILITY("DIQ1",$J,912.41,DA,119,"E"))
W !!,"Coin-Operated Machines : ",$G(^UTILITY("DIQ1",$J,912.41,DA,120,"E"))
W ?40,"Total $ Loss : ",$G(^UTILITY("DIQ1",$J,912.41,DA,121,"E"))
W !?40,"Total $ Recovery : ",$G(^UTILITY("DIQ1",$J,912.41,DA,122,"E"))
W !!,"Actual Drug Thefts : ",$G(^UTILITY("DIQ1",$J,912.41,DA,123,"E"))
W ?40,"Controlled Substance : ",$G(^UTILITY("DIQ1",$J,912.41,DA,125,"E"))
W !?40,"Non-Controlled Substance : ",$G(^UTILITY("DIQ1",$J,912.41,DA,126,"E"))
W !!,"Attempted Drug Thefts : ",$G(^UTILITY("DIQ1",$J,912.41,DA,124,"E"))
W ?40,"Controlled Substance : ",$G(^UTILITY("DIQ1",$J,912.41,DA,127,"E"))
W !?40,"Non-Controlled Substance : ",$G(^UTILITY("DIQ1",$J,912.41,DA,128,"E"))
W !!,"Total Drug Thefts : ",$G(^UTILITY("DIQ1",$J,912.41,DA,129,"E"))
W ?40,"Total Drug $ Loss : ",$G(^UTILITY("DIQ1",$J,912.41,DA,130,"E"))
W !?40,"Total Drug $ Recovered : ",$G(^UTILITY("DIQ1",$J,912.41,DA,131,"E"))
I $Y+15>IOSL D HDR1 Q:END
S ESPBEG=$P(^ESP(912.4,ESPIEN,0),U,1)
W !!,"Government Property : ",$G(^UTILITY("DIQ1",$J,912.41,DA,132,"E"))
I ESPBEG<2971001 D
. W ?40,"$100 & Above : ",$G(^UTILITY("DIQ1",$J,912.41,DA,133,"E"))
. W !?40,"< $100 : ",$G(^UTILITY("DIQ1",$J,912.41,DA,134,"E"))
I ESPBEG>2970930.2359 D
. W ?40,"$1000 & Above : ",$G(^UTILITY("DIQ1",$J,912.41,DA,133.1,"E"))
. W !?40,"< $1000 : ",$G(^UTILITY("DIQ1",$J,912.41,DA,134.1,"E"))
W !?40,"Total Gov't $ Loss : ",$G(^UTILITY("DIQ1",$J,912.41,DA,135,"E"))
W !?40,"Total Gov't $ Recovered : ",$G(^UTILITY("DIQ1",$J,912.41,DA,136,"E"))
I $Y+10>IOSL D HDR1 Q:END
W !!,"Personal Property : ",$G(^UTILITY("DIQ1",$J,912.41,DA,137,"E"))
I ESPBEG<2971001 D
. W ?40,"$100 & Above : ",$G(^UTILITY("DIQ1",$J,912.41,DA,138,"E"))
. W !?40,"< $100 : ",$G(^UTILITY("DIQ1",$J,912.41,DA,139,"E"))
I ESPBEG>2970930.2359 D
. W ?40,"$1000 & Above : ",$G(^UTILITY("DIQ1",$J,912.41,DA,138.1,"E"))
. W !?40,"< $1000 : ",$G(^UTILITY("DIQ1",$J,912.41,DA,139.1,"E"))
W !?40,"Total Personal $ Loss : ",$G(^UTILITY("DIQ1",$J,912.41,DA,140,"E"))
W !?40,"Total Personal $ Recovered : ",$G(^UTILITY("DIQ1",$J,912.41,DA,141,"E"))
W !!,"Government Motor Vehicles : ",$G(^UTILITY("DIQ1",$J,912.41,DA,143,"E"))
W ?40,"Gov't Vehicles Recovered : ",$G(^UTILITY("DIQ1",$J,912.41,DA,146,"E"))
W !?40,"$ Loss Gov't Vehicles : ",$G(^UTILITY("DIQ1",$J,912.41,DA,144,"E"))
W !?40,"$ Recovered Gov't Vehicles : ",$G(^UTILITY("DIQ1",$J,912.41,DA,145,"E"))
W !!,"Private Motor Vehicles : ",$G(^UTILITY("DIQ1",$J,912.41,DA,147,"E"))
W ?40,"Private Vehicles Recovered : ",$G(^UTILITY("DIQ1",$J,912.41,DA,150,"E"))
W !?40,"$ Loss Private Vehicles : ",$G(^UTILITY("DIQ1",$J,912.41,DA,148,"E"))
W !?40,"$ Recovered Private Vehicles: ",$G(^UTILITY("DIQ1",$J,912.41,DA,149,"E"))
D PRT^ESPUCP4
QUIT
EX W !!,"Done." Q
HDR ;PRINT HEADING
I $E(IOST,1,2)="C-" S END=$$EOP^ESPUTIL() Q:END
S PAGE=PAGE+1 W @IOF,!?25,"UNIFORM CRIME REPORT",?70,"PAGE ",$J(PAGE,3)
W !!,"VA Facility ",$P(^ESP(912.4,ESPIEN,1,1,0),U)
BDT W ?45,"BEGINNING DATE: ",$G(^UTILITY("DIQ1",$J,912.4,ESPIEN,.01,"E"))
EDT W !,"Date/Time Printed",?45,"ENDING DATE: ",$G(^UTILITY("DIQ1",$J,912.4,ESPIEN,.02,"E"))
W !,$$NOW^ESPUTIL()
QUIT
HDR1 I $E(IOST,1,2)="C-" S END=$$EOP^ESPUTIL() Q:END
S PAGE=PAGE+1 W @IOF,!?70,"PAGE ",$J(PAGE,3)
QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HESPUCP3 5492 printed Oct 16, 2024@18:31:27 Page 2
ESPUCP3 ;DALISC/CKA -PRINT UNIFORM CRIME REPORT (CONT)- 3/93
+1 ;;1.0;POLICE & SECURITY;**11,12,22**;Mar 31, 1994
EN ;CALLED FROM ESPUCP2
QUIT
PRT ;PRINT REPORT CONTINUED- PRINTS 3RD PAGE
+1 DO HDR
if END
QUIT
+2 WRITE !!?25,"ROBBERY Total # : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,100,"E"))
+3 WRITE !!,"Armed Robbery : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,101,"E"))
+4 WRITE ?40,"$100 & Above : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,102,"E"))
+5 WRITE !?40,"<$100 : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,103,"E"))
+6 WRITE !,"Strong Armed Robbery : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,104,"E"))
+7 WRITE ?40,"$100 & Above : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,105,"E"))
+8 WRITE !?40,"<$100 : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,106,"E"))
+9 WRITE !,"Drugs Only : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,107,"E"))
+10 WRITE ?40,"Robbery Total $ Loss : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,108,"E"))
+11 WRITE !?40,"Robbery Total $ Recovered : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,109,"E"))
+12 IF $Y+15>IOSL
DO HDR1
if END
QUIT
+13 WRITE !!!?25,"STOPS & ARRESTS Total # : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,110,"E"))
+14 WRITE !!,"Physical Arrests : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,111,"E"))
+15 WRITE !!,?15,"Offender"
+16 WRITE !!?10,"Employee: ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,112,"E"))
+17 WRITE ?30,"Outsider: ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,113,"E"))
+18 WRITE !?10,"Patient : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,114,"E"))
+19 WRITE ?30,"Visitor : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,115,"E"))
+20 WRITE !!,"Stops for Questioning : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,116,"E"))
+21 WRITE ?40,"Package Stops : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,117,"E"))
+22 WRITE !?40,"Non-Package Stops : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,118,"E"))
+23 IF $Y+15>IOSL
DO HDR1
if END
QUIT
+24 WRITE !!!?25,"THEFTS Total # : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,119,"E"))
+25 WRITE !!,"Coin-Operated Machines : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,120,"E"))
+26 WRITE ?40,"Total $ Loss : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,121,"E"))
+27 WRITE !?40,"Total $ Recovery : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,122,"E"))
+28 WRITE !!,"Actual Drug Thefts : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,123,"E"))
+29 WRITE ?40,"Controlled Substance : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,125,"E"))
+30 WRITE !?40,"Non-Controlled Substance : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,126,"E"))
+31 WRITE !!,"Attempted Drug Thefts : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,124,"E"))
+32 WRITE ?40,"Controlled Substance : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,127,"E"))
+33 WRITE !?40,"Non-Controlled Substance : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,128,"E"))
+34 WRITE !!,"Total Drug Thefts : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,129,"E"))
+35 WRITE ?40,"Total Drug $ Loss : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,130,"E"))
+36 WRITE !?40,"Total Drug $ Recovered : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,131,"E"))
+37 IF $Y+15>IOSL
DO HDR1
if END
QUIT
+38 SET ESPBEG=$PIECE(^ESP(912.4,ESPIEN,0),U,1)
+39 WRITE !!,"Government Property : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,132,"E"))
+40 IF ESPBEG<2971001
Begin DoDot:1
+41 WRITE ?40,"$100 & Above : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,133,"E"))
+42 WRITE !?40,"< $100 : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,134,"E"))
End DoDot:1
+43 IF ESPBEG>2970930.2359
Begin DoDot:1
+44 WRITE ?40,"$1000 & Above : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,133.1,"E"))
+45 WRITE !?40,"< $1000 : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,134.1,"E"))
End DoDot:1
+46 WRITE !?40,"Total Gov't $ Loss : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,135,"E"))
+47 WRITE !?40,"Total Gov't $ Recovered : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,136,"E"))
+48 IF $Y+10>IOSL
DO HDR1
if END
QUIT
+49 WRITE !!,"Personal Property : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,137,"E"))
+50 IF ESPBEG<2971001
Begin DoDot:1
+51 WRITE ?40,"$100 & Above : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,138,"E"))
+52 WRITE !?40,"< $100 : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,139,"E"))
End DoDot:1
+53 IF ESPBEG>2970930.2359
Begin DoDot:1
+54 WRITE ?40,"$1000 & Above : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,138.1,"E"))
+55 WRITE !?40,"< $1000 : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,139.1,"E"))
End DoDot:1
+56 WRITE !?40,"Total Personal $ Loss : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,140,"E"))
+57 WRITE !?40,"Total Personal $ Recovered : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,141,"E"))
+58 WRITE !!,"Government Motor Vehicles : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,143,"E"))
+59 WRITE ?40,"Gov't Vehicles Recovered : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,146,"E"))
+60 WRITE !?40,"$ Loss Gov't Vehicles : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,144,"E"))
+61 WRITE !?40,"$ Recovered Gov't Vehicles : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,145,"E"))
+62 WRITE !!,"Private Motor Vehicles : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,147,"E"))
+63 WRITE ?40,"Private Vehicles Recovered : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,150,"E"))
+64 WRITE !?40,"$ Loss Private Vehicles : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,148,"E"))
+65 WRITE !?40,"$ Recovered Private Vehicles: ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,149,"E"))
+66 DO PRT^ESPUCP4
+67 QUIT
EX WRITE !!,"Done."
QUIT
HDR ;PRINT HEADING
+1 IF $EXTRACT(IOST,1,2)="C-"
SET END=$$EOP^ESPUTIL()
if END
QUIT
+2 SET PAGE=PAGE+1
WRITE @IOF,!?25,"UNIFORM CRIME REPORT",?70,"PAGE ",$JUSTIFY(PAGE,3)
+3 WRITE !!,"VA Facility ",$PIECE(^ESP(912.4,ESPIEN,1,1,0),U)
BDT WRITE ?45,"BEGINNING DATE: ",$GET(^UTILITY("DIQ1",$JOB,912.4,ESPIEN,.01,"E"))
EDT WRITE !,"Date/Time Printed",?45,"ENDING DATE: ",$GET(^UTILITY("DIQ1",$JOB,912.4,ESPIEN,.02,"E"))
+1 WRITE !,$$NOW^ESPUTIL()
+2 QUIT
HDR1 IF $EXTRACT(IOST,1,2)="C-"
SET END=$$EOP^ESPUTIL()
if END
QUIT
+1 SET PAGE=PAGE+1
WRITE @IOF,!?70,"PAGE ",$JUSTIFY(PAGE,3)
+2 QUIT
