ESPUCF4 ;DALISC/CKA - UNIFORM CRIME REPORT COUNT AND GET TOTALS- 3/99
;;1.0;POLICE & SECURITY;**27**;Mar 31, 1994
EN Q ;CALLED FROM ESPUCF1
STOP ;STOP & ARRESTS TOTALS
OFFA ; COUNT PHYSICAL ARREST OFFENDERS
S ^(110)=^ESP(912.3,ESPIEN,1,ESPINS,110)+1
S ESPOF=0
F ESPX=1:1 S ESPOF=$O(^ESP(912,ESPOFN,40,ESPOF)) Q:ESPOF'>0 D
. S ESPOFF=$P(^ESP(912,ESPOFN,40,ESPOF,0),U,11) D
.. I ESPTYPE=42,$P(^ESP(912,ESPOFN,40,ESPOF,0),U,2) S ^(111)=^ESP(912.3,ESPIEN,1,ESPINS,111)+1 D QUIT
... I ESPOFF="E"!(ESPOFF="PO") S ^(112)=^ESP(912.3,ESPIEN,1,ESPINS,112)+1 QUIT
... I ESPOFF="O" S ^(113)=^ESP(912.3,ESPIEN,1,ESPINS,113)+1 QUIT
... I ESPOFF="P" S ^(114)=^ESP(912.3,ESPIEN,1,ESPINS,114)+1 QUIT
... I ESPOFF="V" S ^(115)=^ESP(912.3,ESPIEN,1,ESPINS,115)+1 QUIT
I ESPTYPE=43 S ^(116)=^ESP(912.3,ESPIEN,1,ESPINS,116)+1 D QUIT
. I ESPSUB=17 S ^(118)=^ESP(912.3,ESPIEN,1,ESPINS,118)+1 QUIT
. I ESPSUB=18 S ^(117)=^ESP(912.3,ESPIEN,1,ESPINS,117)+1 QUIT
QUIT
THEFT ;THEFT TOTALS
S ^(119)=^ESP(912.3,ESPIEN,1,ESPINS,119)+1
;COIN-OPERATED MACHINES
I ESPTYPE=44 S ^(120)=^ESP(912.3,ESPIEN,1,ESPINS,120)+1 D QUIT
. S ESPDOL=0
. F ESPX=1:1 S ESPDOL=$O(^ESP(912,ESPOFN,90,ESPDOL)) Q:ESPDOL'>0 D
.. S ^ESP(912.3,ESPIEN,1,ESPINS,121)=^ESP(912.3,ESPIEN,1,ESPINS,121)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
.. S ^ESP(912.3,ESPIEN,1,ESPINS,122)=^ESP(912.3,ESPIEN,1,ESPINS,122)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)
;DRUG THEFTS
I ESPTYPE=45 S ^(129)=^ESP(912.3,ESPIEN,1,ESPINS,129)+1 D D DDOL QUIT
. I ESPSUB=19 S ^(125)=^ESP(912.3,ESPIEN,1,ESPINS,125)+1,^(123)=^ESP(912.3,ESPIEN,1,ESPINS,123)+1 QUIT
. I ESPSUB=21 S ^(126)=^ESP(912.3,ESPIEN,1,ESPINS,126)+1,^(123)=^ESP(912.3,ESPIEN,1,ESPINS,123)+1 QUIT
. I ESPSUB=20 S ^(127)=^ESP(912.3,ESPIEN,1,ESPINS,127)+1,^(124)=^ESP(912.3,ESPIEN,1,ESPINS,124)+1 QUIT
. I ESPSUB=22 S ^(128)=^ESP(912.3,ESPIEN,1,ESPINS,128)+1,^(124)=^ESP(912.3,ESPIEN,1,ESPINS,124)+1 QUIT
;GOVERNMENT PROPERTY
I ESPTYPE=46 S ^(132)=^ESP(912.3,ESPIEN,1,ESPINS,132)+1 D D GDOL QUIT
. I ESPSUB=23 S ^(133)=^ESP(912.3,ESPIEN,1,ESPINS,133)+1 QUIT
. I ESPSUB=24 S ^(134)=^ESP(912.3,ESPIEN,1,ESPINS,134)+1 QUIT
. I ESPSUB=39 S ^(133.1)=^ESP(912.3,ESPIEN,1,ESPINS,133.1)+1 QUIT
. I ESPSUB=40 S ^(134.1)=^ESP(912.3,ESPIEN,1,ESPINS,134.1)+1 QUIT
;PERSONAL PROPERTY
I ESPTYPE=47 S ^(137)=^ESP(912.3,ESPIEN,1,ESPINS,137)+1 D D PDOL QUIT
. I ESPSUB=25 S ^(138)=^ESP(912.3,ESPIEN,1,ESPINS,138)+1 QUIT
. I ESPSUB=26 S ^(139)=^ESP(912.3,ESPIEN,1,ESPINS,139)+1 QUIT
. I ESPSUB=41 S ^(138.1)=^ESP(912.3,ESPIEN,1,ESPINS,138.1)+1 QUIT
. I ESPSUB=42 S ^(139.1)=^ESP(912.3,ESPIEN,1,ESPINS,139.1)+1 QUIT
;MOTOR VEHICLES
I ESPTYPE=48 S ^(142)=^ESP(912.3,ESPIEN,1,ESPINS,142)+1
;GOVT VEHICLE
I ESPSUB=27 S ^(143)=^ESP(912.3,ESPIEN,1,ESPINS,143)+1 D QUIT
. ;GOVT VEHICLE DOLLARS
. S ESPDOL=0
. F ESPX=1:1 S ESPDOL=$O(^ESP(912,ESPOFN,90,ESPDOL)) Q:ESPDOL'>0 D
.. S ^ESP(912.3,ESPIEN,1,ESPINS,144)=^ESP(912.3,ESPIEN,1,ESPINS,144)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
.. S ^ESP(912.3,ESPIEN,1,ESPINS,145)=^ESP(912.3,ESPIEN,1,ESPINS,145)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)
.. I $P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)'="" S ^(146)=^ESP(912.3,ESPIEN,1,ESPINS,146)+1
;PRIVATE VEHICLE
I ESPSUB=28 S ^(147)=^ESP(912.3,ESPIEN,1,ESPINS,147)+1 D QUIT
. ;PERSONAL VEHICLE DOLLARS
. S ESPDOL=0
. F ESPX=1:1 S ESPDOL=$O(^ESP(912,ESPOFN,90,ESPDOL)) Q:ESPDOL'>0 D
.. S ^ESP(912.3,ESPIEN,1,ESPINS,148)=^ESP(912.3,ESPIEN,1,ESPINS,148)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
.. S ^ESP(912.3,ESPIEN,1,ESPINS,149)=^ESP(912.3,ESPIEN,1,ESPINS,149)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)
.. I $P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)'="" S ^(150)=^ESP(912.3,ESPIEN,1,ESPINS,150)+1
QUIT
EX Q
DDOL ;DRUG DOLLARS
S ESPDOL=0
F ESPX=1:1 S ESPDOL=$O(^ESP(912,ESPOFN,90,ESPDOL)) Q:ESPDOL'>0 D
. S ^ESP(912.3,ESPIEN,1,ESPINS,130)=^ESP(912.3,ESPIEN,1,ESPINS,130)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
. S ^ESP(912.3,ESPIEN,1,ESPINS,131)=^ESP(912.3,ESPIEN,1,ESPINS,131)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)
QUIT
GDOL ;GOV'T PROPERTY DOLLARS
S ESPDOL=0
F ESPX=1:1 S ESPDOL=$O(^ESP(912,ESPOFN,90,ESPDOL)) Q:ESPDOL'>0 D
. S ^ESP(912.3,ESPIEN,1,ESPINS,135)=^ESP(912.3,ESPIEN,1,ESPINS,135)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
. S ^ESP(912.3,ESPIEN,1,ESPINS,136)=^ESP(912.3,ESPIEN,1,ESPINS,136)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)
QUIT
PDOL ;PERSONAL PROPERTY DOLLARS
S ESPDOL=0
F ESPX=1:1 S ESPDOL=$O(^ESP(912,ESPOFN,90,ESPDOL)) Q:ESPDOL'>0 D
. S ^ESP(912.3,ESPIEN,1,ESPINS,140)=^ESP(912.3,ESPIEN,1,ESPINS,140)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
. S ^ESP(912.3,ESPIEN,1,ESPINS,141)=^ESP(912.3,ESPIEN,1,ESPINS,141)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)
QUIT
ADOL ;ARSON PROPERTY DOLLARS - CALLED BY ^ESPUCR2 TO TOTAL FOR UCR
S ESPDOL=0
F ESPX=1:1 S ESPDOL=$O(^ESP(912,ESPOFN,90,ESPDOL)) Q:ESPDOL'>0 D
. S ^ESP(912.3,ESPIEN,1,ESPINS,83)=^ESP(912.3,ESPIEN,1,ESPINS,83)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HESPUCF4 5109 printed Nov 22, 2024@17:40:28 Page 2
ESPUCF4 ;DALISC/CKA - UNIFORM CRIME REPORT COUNT AND GET TOTALS- 3/99
+1 ;;1.0;POLICE & SECURITY;**27**;Mar 31, 1994
EN ;CALLED FROM ESPUCF1
QUIT
STOP ;STOP & ARRESTS TOTALS
OFFA ; COUNT PHYSICAL ARREST OFFENDERS
+1 SET ^(110)=^ESP(912.3,ESPIEN,1,ESPINS,110)+1
+2 SET ESPOF=0
+3 FOR ESPX=1:1
SET ESPOF=$ORDER(^ESP(912,ESPOFN,40,ESPOF))
if ESPOF'>0
QUIT
Begin DoDot:1
+4 SET ESPOFF=$PIECE(^ESP(912,ESPOFN,40,ESPOF,0),U,11)
Begin DoDot:2
+5 IF ESPTYPE=42
IF $PIECE(^ESP(912,ESPOFN,40,ESPOF,0),U,2)
SET ^(111)=^ESP(912.3,ESPIEN,1,ESPINS,111)+1
Begin DoDot:3
+6 IF ESPOFF="E"!(ESPOFF="PO")
SET ^(112)=^ESP(912.3,ESPIEN,1,ESPINS,112)+1
QUIT
+7 IF ESPOFF="O"
SET ^(113)=^ESP(912.3,ESPIEN,1,ESPINS,113)+1
QUIT
+8 IF ESPOFF="P"
SET ^(114)=^ESP(912.3,ESPIEN,1,ESPINS,114)+1
QUIT
+9 IF ESPOFF="V"
SET ^(115)=^ESP(912.3,ESPIEN,1,ESPINS,115)+1
QUIT
End DoDot:3
QUIT
End DoDot:2
End DoDot:1
+10 IF ESPTYPE=43
SET ^(116)=^ESP(912.3,ESPIEN,1,ESPINS,116)+1
Begin DoDot:1
+11 IF ESPSUB=17
SET ^(118)=^ESP(912.3,ESPIEN,1,ESPINS,118)+1
QUIT
+12 IF ESPSUB=18
SET ^(117)=^ESP(912.3,ESPIEN,1,ESPINS,117)+1
QUIT
End DoDot:1
QUIT
+13 QUIT
THEFT ;THEFT TOTALS
+1 SET ^(119)=^ESP(912.3,ESPIEN,1,ESPINS,119)+1
+2 ;COIN-OPERATED MACHINES
+3 IF ESPTYPE=44
SET ^(120)=^ESP(912.3,ESPIEN,1,ESPINS,120)+1
Begin DoDot:1
+4 SET ESPDOL=0
+5 FOR ESPX=1:1
SET ESPDOL=$ORDER(^ESP(912,ESPOFN,90,ESPDOL))
if ESPDOL'>0
QUIT
Begin DoDot:2
+6 SET ^ESP(912.3,ESPIEN,1,ESPINS,121)=^ESP(912.3,ESPIEN,1,ESPINS,121)+$PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
+7 SET ^ESP(912.3,ESPIEN,1,ESPINS,122)=^ESP(912.3,ESPIEN,1,ESPINS,122)+$PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)
End DoDot:2
End DoDot:1
QUIT
+8 ;DRUG THEFTS
+9 IF ESPTYPE=45
SET ^(129)=^ESP(912.3,ESPIEN,1,ESPINS,129)+1
Begin DoDot:1
+10 IF ESPSUB=19
SET ^(125)=^ESP(912.3,ESPIEN,1,ESPINS,125)+1
SET ^(123)=^ESP(912.3,ESPIEN,1,ESPINS,123)+1
QUIT
+11 IF ESPSUB=21
SET ^(126)=^ESP(912.3,ESPIEN,1,ESPINS,126)+1
SET ^(123)=^ESP(912.3,ESPIEN,1,ESPINS,123)+1
QUIT
+12 IF ESPSUB=20
SET ^(127)=^ESP(912.3,ESPIEN,1,ESPINS,127)+1
SET ^(124)=^ESP(912.3,ESPIEN,1,ESPINS,124)+1
QUIT
+13 IF ESPSUB=22
SET ^(128)=^ESP(912.3,ESPIEN,1,ESPINS,128)+1
SET ^(124)=^ESP(912.3,ESPIEN,1,ESPINS,124)+1
QUIT
End DoDot:1
DO DDOL
QUIT
+14 ;GOVERNMENT PROPERTY
+15 IF ESPTYPE=46
SET ^(132)=^ESP(912.3,ESPIEN,1,ESPINS,132)+1
Begin DoDot:1
+16 IF ESPSUB=23
SET ^(133)=^ESP(912.3,ESPIEN,1,ESPINS,133)+1
QUIT
+17 IF ESPSUB=24
SET ^(134)=^ESP(912.3,ESPIEN,1,ESPINS,134)+1
QUIT
+18 IF ESPSUB=39
SET ^(133.1)=^ESP(912.3,ESPIEN,1,ESPINS,133.1)+1
QUIT
+19 IF ESPSUB=40
SET ^(134.1)=^ESP(912.3,ESPIEN,1,ESPINS,134.1)+1
QUIT
End DoDot:1
DO GDOL
QUIT
+20 ;PERSONAL PROPERTY
+21 IF ESPTYPE=47
SET ^(137)=^ESP(912.3,ESPIEN,1,ESPINS,137)+1
Begin DoDot:1
+22 IF ESPSUB=25
SET ^(138)=^ESP(912.3,ESPIEN,1,ESPINS,138)+1
QUIT
+23 IF ESPSUB=26
SET ^(139)=^ESP(912.3,ESPIEN,1,ESPINS,139)+1
QUIT
+24 IF ESPSUB=41
SET ^(138.1)=^ESP(912.3,ESPIEN,1,ESPINS,138.1)+1
QUIT
+25 IF ESPSUB=42
SET ^(139.1)=^ESP(912.3,ESPIEN,1,ESPINS,139.1)+1
QUIT
End DoDot:1
DO PDOL
QUIT
+26 ;MOTOR VEHICLES
+27 IF ESPTYPE=48
SET ^(142)=^ESP(912.3,ESPIEN,1,ESPINS,142)+1
+28 ;GOVT VEHICLE
+29 IF ESPSUB=27
SET ^(143)=^ESP(912.3,ESPIEN,1,ESPINS,143)+1
Begin DoDot:1
+30 ;GOVT VEHICLE DOLLARS
+31 SET ESPDOL=0
+32 FOR ESPX=1:1
SET ESPDOL=$ORDER(^ESP(912,ESPOFN,90,ESPDOL))
if ESPDOL'>0
QUIT
Begin DoDot:2
+33 SET ^ESP(912.3,ESPIEN,1,ESPINS,144)=^ESP(912.3,ESPIEN,1,ESPINS,144)+$PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
+34 SET ^ESP(912.3,ESPIEN,1,ESPINS,145)=^ESP(912.3,ESPIEN,1,ESPINS,145)+$PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)
+35 IF $PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)'=""
SET ^(146)=^ESP(912.3,ESPIEN,1,ESPINS,146)+1
End DoDot:2
End DoDot:1
QUIT
+36 ;PRIVATE VEHICLE
+37 IF ESPSUB=28
SET ^(147)=^ESP(912.3,ESPIEN,1,ESPINS,147)+1
Begin DoDot:1
+38 ;PERSONAL VEHICLE DOLLARS
+39 SET ESPDOL=0
+40 FOR ESPX=1:1
SET ESPDOL=$ORDER(^ESP(912,ESPOFN,90,ESPDOL))
if ESPDOL'>0
QUIT
Begin DoDot:2
+41 SET ^ESP(912.3,ESPIEN,1,ESPINS,148)=^ESP(912.3,ESPIEN,1,ESPINS,148)+$PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
+42 SET ^ESP(912.3,ESPIEN,1,ESPINS,149)=^ESP(912.3,ESPIEN,1,ESPINS,149)+$PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)
+43 IF $PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)'=""
SET ^(150)=^ESP(912.3,ESPIEN,1,ESPINS,150)+1
End DoDot:2
End DoDot:1
QUIT
+44 QUIT
EX QUIT
DDOL ;DRUG DOLLARS
+1 SET ESPDOL=0
+2 FOR ESPX=1:1
SET ESPDOL=$ORDER(^ESP(912,ESPOFN,90,ESPDOL))
if ESPDOL'>0
QUIT
Begin DoDot:1
+3 SET ^ESP(912.3,ESPIEN,1,ESPINS,130)=^ESP(912.3,ESPIEN,1,ESPINS,130)+$PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
+4 SET ^ESP(912.3,ESPIEN,1,ESPINS,131)=^ESP(912.3,ESPIEN,1,ESPINS,131)+$PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)
End DoDot:1
+5 QUIT
GDOL ;GOV'T PROPERTY DOLLARS
+1 SET ESPDOL=0
+2 FOR ESPX=1:1
SET ESPDOL=$ORDER(^ESP(912,ESPOFN,90,ESPDOL))
if ESPDOL'>0
QUIT
Begin DoDot:1
+3 SET ^ESP(912.3,ESPIEN,1,ESPINS,135)=^ESP(912.3,ESPIEN,1,ESPINS,135)+$PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
+4 SET ^ESP(912.3,ESPIEN,1,ESPINS,136)=^ESP(912.3,ESPIEN,1,ESPINS,136)+$PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)
End DoDot:1
+5 QUIT
PDOL ;PERSONAL PROPERTY DOLLARS
+1 SET ESPDOL=0
+2 FOR ESPX=1:1
SET ESPDOL=$ORDER(^ESP(912,ESPOFN,90,ESPDOL))
if ESPDOL'>0
QUIT
Begin DoDot:1
+3 SET ^ESP(912.3,ESPIEN,1,ESPINS,140)=^ESP(912.3,ESPIEN,1,ESPINS,140)+$PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
+4 SET ^ESP(912.3,ESPIEN,1,ESPINS,141)=^ESP(912.3,ESPIEN,1,ESPINS,141)+$PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)
End DoDot:1
+5 QUIT
ADOL ;ARSON PROPERTY DOLLARS - CALLED BY ^ESPUCR2 TO TOTAL FOR UCR
+1 SET ESPDOL=0
+2 FOR ESPX=1:1
SET ESPDOL=$ORDER(^ESP(912,ESPOFN,90,ESPDOL))
if ESPDOL'>0
QUIT
Begin DoDot:1
+3 SET ^ESP(912.3,ESPIEN,1,ESPINS,83)=^ESP(912.3,ESPIEN,1,ESPINS,83)+$PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
End DoDot:1
+4 QUIT
