ESPUCF2 ;DALISC/CKA - UNIFORM CRIME REPORT COUNT AND GET TOTALS- 3/33
;;1.0;POLICE & SECURITY;**27**;Mar 31, 1994
EN Q ;CALLED FROM ESPUCF1
DIST ;DISTURBANCE TOTALS
OFFD ; COUNT DISTURBANCE OFFENDERS
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),^(46)=^ESP(912.3,ESPIEN,1,ESPINS,46)+1 D
.. I ESPTYPE=16 S ^(47)=^ESP(912.3,ESPIEN,1,ESPINS,47)+1 QUIT
.. I ESPTYPE=17 S ^(48)=^ESP(912.3,ESPIEN,1,ESPINS,48)+1 QUIT
.. I ESPTYPE=18 S ^(49)=^ESP(912.3,ESPIEN,1,ESPINS,49)+1 QUIT
.. I ESPTYPE=19 S ^(50)=^ESP(912.3,ESPIEN,1,ESPINS,50)+1 QUIT
.. I ESPTYPE=20 S ^(51)=^ESP(912.3,ESPIEN,1,ESPINS,51)+1 QUIT
.. I ESPTYPE=21 S ^(52)=^ESP(912.3,ESPIEN,1,ESPINS,52)+1 QUIT
.. I ESPTYPE=24 S ^(53)=^ESP(912.3,ESPIEN,1,ESPINS,53)+1 QUIT
.. I ESPTYPE=25 S ^(54)=^ESP(912.3,ESPIEN,1,ESPINS,54)+1 QUIT
.. I ESPTYPE=26 S ^(55)=^ESP(912.3,ESPIEN,1,ESPINS,55)+1 QUIT
. I ESPOFF="E"!(ESPOFF="PO") S ^(56)=^ESP(912.3,ESPIEN,1,ESPINS,56)+1 QUIT
. I ESPOFF="O" S ^(57)=^ESP(912.3,ESPIEN,1,ESPINS,57)+1 QUIT
. I ESPOFF="P" S ^(58)=^ESP(912.3,ESPIEN,1,ESPINS,58)+1 QUIT
. I ESPOFF="V" S ^(60)=^ESP(912.3,ESPIEN,1,ESPINS,60)+1 QUIT
. S ^(59)=^ESP(912.3,ESPIEN,1,ESPINS,59)+1
QUIT
MUR ;MANSLAUGHTER/MURDER TOTALS
OFFM ;COUNT MURDER OFFENDER AND VICTIMS
S ESPVIC=0
F ESPX=1:1 S ESPVIC=$O(^ESP(912,ESPOFN,30,ESPVIC)) Q:ESPVIC'>0 D
. S ESPVICT=$P(^ESP(912,ESPOFN,30,ESPVIC,0),U,5) D
.. I ESPTYPE=27 S ^(61)=^ESP(912.3,ESPIEN,1,ESPINS,61)+1 QUIT
.. I ESPTYPE=28 S ^(62)=^ESP(912.3,ESPIEN,1,ESPINS,62)+1 QUIT
. I ESPVICT="E"!(ESPVICT="PO") S ^(68)=^ESP(912.3,ESPIEN,1,ESPINS,68)+1 QUIT
. I ESPVICT="O" S ^(69)=^ESP(912.3,ESPIEN,1,ESPINS,69)+1 QUIT
. I ESPVICT="P" S ^(70)=^ESP(912.3,ESPIEN,1,ESPINS,70)+1 QUIT
. I ESPVICT="V" S ^(71)=^ESP(912.3,ESPIEN,1,ESPINS,71)+1 QUIT
I $D(^ESP(912,ESPOFN,30)) D OFFE
QUIT
OFFE 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)
. I ESPOFF="E"!(ESPOFF="PO") S ^(63)=^ESP(912.3,ESPIEN,1,ESPINS,63)+1 QUIT
. I ESPOFF="O" S ^(64)=^ESP(912.3,ESPIEN,1,ESPINS,64)+1 QUIT
. I ESPOFF="P" S ^(65)=^ESP(912.3,ESPIEN,1,ESPINS,65)+1 QUIT
. I ESPOFF="V" S ^(67)=^ESP(912.3,ESPIEN,1,ESPINS,67)+1 QUIT
. S ^(66)=^ESP(912.3,ESPIEN,1,ESPINS,66)+1
QUIT
NON ;NON-CRIMINAL TOTALS
S ^(72)=^ESP(912.3,ESPIEN,1,ESPINS,72)+1
I ESPTYPE=29 S ^(73)=^ESP(912.3,ESPIEN,1,ESPINS,73)+1 QUIT
I ESPTYPE=30,ESPSUB=9 S ^(75)=^ESP(912.3,ESPIEN,1,ESPINS,75)+1 QUIT
I ESPTYPE=30,ESPSUB=10 S ^(76)=^ESP(912.3,ESPIEN,1,ESPINS,76)+1 QUIT
I ESPTYPE=31 S ^(77)=^ESP(912.3,ESPIEN,1,ESPINS,77)+1 QUIT
I ESPTYPE=32 S ^(78)=^ESP(912.3,ESPIEN,1,ESPINS,78)+1 QUIT
I ESPTYPE=33 S ^(79)=^ESP(912.3,ESPIEN,1,ESPINS,79)+1 QUIT
I ESPTYPE=34 S ^(80)=^ESP(912.3,ESPIEN,1,ESPINS,80)+1 QUIT
I ESPTYPE=59 S ^(188)=^ESP(912.3,ESPIEN,1,ESPINS,188)+1 QUIT
QUIT
OTH ;OTHER OFFENSES TOTALS
S ^(81)=^ESP(912.3,ESPIEN,1,ESPINS,81)+1
I ESPTYPE=35 S ^(82)=^ESP(912.3,ESPIEN,1,ESPINS,82)+1 D ADOL^ESPUCF4 QUIT ; ADOL^ESPUCF4 TOTALS DOLLAR LOSSES DUE TO ARSON.
I ESPTYPE=37 S ^(84)=^ESP(912.3,ESPIEN,1,ESPINS,84)+1 QUIT
I ESPTYPE=36 S ^(85)=^ESP(912.3,ESPIEN,1,ESPINS,85)+1 QUIT
I ESPTYPE=22 S ^(86)=^ESP(912.3,ESPIEN,1,ESPINS,86)+1 QUIT
I ESPTYPE=23 S ^(87)=^ESP(912.3,ESPIEN,1,ESPINS,87)+1 QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HESPUCF2 3422 printed Dec 13, 2024@02:30:24 Page 2
ESPUCF2 ;DALISC/CKA - UNIFORM CRIME REPORT COUNT AND GET TOTALS- 3/33
+1 ;;1.0;POLICE & SECURITY;**27**;Mar 31, 1994
EN ;CALLED FROM ESPUCF1
QUIT
DIST ;DISTURBANCE TOTALS
OFFD ; COUNT DISTURBANCE OFFENDERS
+1 SET ESPOF=0
+2 FOR ESPX=1:1
SET ESPOF=$ORDER(^ESP(912,ESPOFN,40,ESPOF))
if ESPOF'>0
QUIT
Begin DoDot:1
+3 SET ESPOFF=$PIECE(^ESP(912,ESPOFN,40,ESPOF,0),U,11)
SET ^(46)=^ESP(912.3,ESPIEN,1,ESPINS,46)+1
Begin DoDot:2
+4 IF ESPTYPE=16
SET ^(47)=^ESP(912.3,ESPIEN,1,ESPINS,47)+1
QUIT
+5 IF ESPTYPE=17
SET ^(48)=^ESP(912.3,ESPIEN,1,ESPINS,48)+1
QUIT
+6 IF ESPTYPE=18
SET ^(49)=^ESP(912.3,ESPIEN,1,ESPINS,49)+1
QUIT
+7 IF ESPTYPE=19
SET ^(50)=^ESP(912.3,ESPIEN,1,ESPINS,50)+1
QUIT
+8 IF ESPTYPE=20
SET ^(51)=^ESP(912.3,ESPIEN,1,ESPINS,51)+1
QUIT
+9 IF ESPTYPE=21
SET ^(52)=^ESP(912.3,ESPIEN,1,ESPINS,52)+1
QUIT
+10 IF ESPTYPE=24
SET ^(53)=^ESP(912.3,ESPIEN,1,ESPINS,53)+1
QUIT
+11 IF ESPTYPE=25
SET ^(54)=^ESP(912.3,ESPIEN,1,ESPINS,54)+1
QUIT
+12 IF ESPTYPE=26
SET ^(55)=^ESP(912.3,ESPIEN,1,ESPINS,55)+1
QUIT
End DoDot:2
+13 IF ESPOFF="E"!(ESPOFF="PO")
SET ^(56)=^ESP(912.3,ESPIEN,1,ESPINS,56)+1
QUIT
+14 IF ESPOFF="O"
SET ^(57)=^ESP(912.3,ESPIEN,1,ESPINS,57)+1
QUIT
+15 IF ESPOFF="P"
SET ^(58)=^ESP(912.3,ESPIEN,1,ESPINS,58)+1
QUIT
+16 IF ESPOFF="V"
SET ^(60)=^ESP(912.3,ESPIEN,1,ESPINS,60)+1
QUIT
+17 SET ^(59)=^ESP(912.3,ESPIEN,1,ESPINS,59)+1
End DoDot:1
+18 QUIT
MUR ;MANSLAUGHTER/MURDER TOTALS
OFFM ;COUNT MURDER OFFENDER AND VICTIMS
+1 SET ESPVIC=0
+2 FOR ESPX=1:1
SET ESPVIC=$ORDER(^ESP(912,ESPOFN,30,ESPVIC))
if ESPVIC'>0
QUIT
Begin DoDot:1
+3 SET ESPVICT=$PIECE(^ESP(912,ESPOFN,30,ESPVIC,0),U,5)
Begin DoDot:2
+4 IF ESPTYPE=27
SET ^(61)=^ESP(912.3,ESPIEN,1,ESPINS,61)+1
QUIT
+5 IF ESPTYPE=28
SET ^(62)=^ESP(912.3,ESPIEN,1,ESPINS,62)+1
QUIT
End DoDot:2
+6 IF ESPVICT="E"!(ESPVICT="PO")
SET ^(68)=^ESP(912.3,ESPIEN,1,ESPINS,68)+1
QUIT
+7 IF ESPVICT="O"
SET ^(69)=^ESP(912.3,ESPIEN,1,ESPINS,69)+1
QUIT
+8 IF ESPVICT="P"
SET ^(70)=^ESP(912.3,ESPIEN,1,ESPINS,70)+1
QUIT
+9 IF ESPVICT="V"
SET ^(71)=^ESP(912.3,ESPIEN,1,ESPINS,71)+1
QUIT
End DoDot:1
+10 IF $DATA(^ESP(912,ESPOFN,30))
DO OFFE
+11 QUIT
OFFE SET ESPOF=0
+1 FOR ESPX=1:1
SET ESPOF=$ORDER(^ESP(912,ESPOFN,40,ESPOF))
if ESPOF'>0
QUIT
Begin DoDot:1
+2 SET ESPOFF=$PIECE(^ESP(912,ESPOFN,40,ESPOF,0),U,11)
+3 IF ESPOFF="E"!(ESPOFF="PO")
SET ^(63)=^ESP(912.3,ESPIEN,1,ESPINS,63)+1
QUIT
+4 IF ESPOFF="O"
SET ^(64)=^ESP(912.3,ESPIEN,1,ESPINS,64)+1
QUIT
+5 IF ESPOFF="P"
SET ^(65)=^ESP(912.3,ESPIEN,1,ESPINS,65)+1
QUIT
+6 IF ESPOFF="V"
SET ^(67)=^ESP(912.3,ESPIEN,1,ESPINS,67)+1
QUIT
+7 SET ^(66)=^ESP(912.3,ESPIEN,1,ESPINS,66)+1
End DoDot:1
+8 QUIT
NON ;NON-CRIMINAL TOTALS
+1 SET ^(72)=^ESP(912.3,ESPIEN,1,ESPINS,72)+1
+2 IF ESPTYPE=29
SET ^(73)=^ESP(912.3,ESPIEN,1,ESPINS,73)+1
QUIT
+3 IF ESPTYPE=30
IF ESPSUB=9
SET ^(75)=^ESP(912.3,ESPIEN,1,ESPINS,75)+1
QUIT
+4 IF ESPTYPE=30
IF ESPSUB=10
SET ^(76)=^ESP(912.3,ESPIEN,1,ESPINS,76)+1
QUIT
+5 IF ESPTYPE=31
SET ^(77)=^ESP(912.3,ESPIEN,1,ESPINS,77)+1
QUIT
+6 IF ESPTYPE=32
SET ^(78)=^ESP(912.3,ESPIEN,1,ESPINS,78)+1
QUIT
+7 IF ESPTYPE=33
SET ^(79)=^ESP(912.3,ESPIEN,1,ESPINS,79)+1
QUIT
+8 IF ESPTYPE=34
SET ^(80)=^ESP(912.3,ESPIEN,1,ESPINS,80)+1
QUIT
+9 IF ESPTYPE=59
SET ^(188)=^ESP(912.3,ESPIEN,1,ESPINS,188)+1
QUIT
+10 QUIT
OTH ;OTHER OFFENSES TOTALS
+1 SET ^(81)=^ESP(912.3,ESPIEN,1,ESPINS,81)+1
+2 ; ADOL^ESPUCF4 TOTALS DOLLAR LOSSES DUE TO ARSON.
IF ESPTYPE=35
SET ^(82)=^ESP(912.3,ESPIEN,1,ESPINS,82)+1
DO ADOL^ESPUCF4
QUIT
+3 IF ESPTYPE=37
SET ^(84)=^ESP(912.3,ESPIEN,1,ESPINS,84)+1
QUIT
+4 IF ESPTYPE=36
SET ^(85)=^ESP(912.3,ESPIEN,1,ESPINS,85)+1
QUIT
+5 IF ESPTYPE=22
SET ^(86)=^ESP(912.3,ESPIEN,1,ESPINS,86)+1
QUIT
+6 IF ESPTYPE=23
SET ^(87)=^ESP(912.3,ESPIEN,1,ESPINS,87)+1
QUIT
