- 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 Jan 18, 2025@03:31:34 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