source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPUCF2.m@ 1378

Last change on this file since 1378 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 3.3 KB
RevLine 
[613]1ESPUCF2 ;DALISC/CKA - UNIFORM CRIME REPORT COUNT AND GET TOTALS- 3/33
2 ;;1.0;POLICE & SECURITY;**27**;Mar 31, 1994
3EN Q ;CALLED FROM ESPUCF1
4DIST ;DISTURBANCE TOTALS
5OFFD ; COUNT DISTURBANCE OFFENDERS
6 S ESPOF=0
7 F ESPX=1:1 S ESPOF=$O(^ESP(912,ESPOFN,40,ESPOF)) Q:ESPOF'>0 D
8 . S ESPOFF=$P(^ESP(912,ESPOFN,40,ESPOF,0),U,11),^(46)=^ESP(912.3,ESPIEN,1,ESPINS,46)+1 D
9 .. I ESPTYPE=16 S ^(47)=^ESP(912.3,ESPIEN,1,ESPINS,47)+1 QUIT
10 .. I ESPTYPE=17 S ^(48)=^ESP(912.3,ESPIEN,1,ESPINS,48)+1 QUIT
11 .. I ESPTYPE=18 S ^(49)=^ESP(912.3,ESPIEN,1,ESPINS,49)+1 QUIT
12 .. I ESPTYPE=19 S ^(50)=^ESP(912.3,ESPIEN,1,ESPINS,50)+1 QUIT
13 .. I ESPTYPE=20 S ^(51)=^ESP(912.3,ESPIEN,1,ESPINS,51)+1 QUIT
14 .. I ESPTYPE=21 S ^(52)=^ESP(912.3,ESPIEN,1,ESPINS,52)+1 QUIT
15 .. I ESPTYPE=24 S ^(53)=^ESP(912.3,ESPIEN,1,ESPINS,53)+1 QUIT
16 .. I ESPTYPE=25 S ^(54)=^ESP(912.3,ESPIEN,1,ESPINS,54)+1 QUIT
17 .. I ESPTYPE=26 S ^(55)=^ESP(912.3,ESPIEN,1,ESPINS,55)+1 QUIT
18 . I ESPOFF="E"!(ESPOFF="PO") S ^(56)=^ESP(912.3,ESPIEN,1,ESPINS,56)+1 QUIT
19 . I ESPOFF="O" S ^(57)=^ESP(912.3,ESPIEN,1,ESPINS,57)+1 QUIT
20 . I ESPOFF="P" S ^(58)=^ESP(912.3,ESPIEN,1,ESPINS,58)+1 QUIT
21 . I ESPOFF="V" S ^(60)=^ESP(912.3,ESPIEN,1,ESPINS,60)+1 QUIT
22 . S ^(59)=^ESP(912.3,ESPIEN,1,ESPINS,59)+1
23 QUIT
24MUR ;MANSLAUGHTER/MURDER TOTALS
25OFFM ;COUNT MURDER OFFENDER AND VICTIMS
26 S ESPVIC=0
27 F ESPX=1:1 S ESPVIC=$O(^ESP(912,ESPOFN,30,ESPVIC)) Q:ESPVIC'>0 D
28 . S ESPVICT=$P(^ESP(912,ESPOFN,30,ESPVIC,0),U,5) D
29 .. I ESPTYPE=27 S ^(61)=^ESP(912.3,ESPIEN,1,ESPINS,61)+1 QUIT
30 .. I ESPTYPE=28 S ^(62)=^ESP(912.3,ESPIEN,1,ESPINS,62)+1 QUIT
31 . I ESPVICT="E"!(ESPVICT="PO") S ^(68)=^ESP(912.3,ESPIEN,1,ESPINS,68)+1 QUIT
32 . I ESPVICT="O" S ^(69)=^ESP(912.3,ESPIEN,1,ESPINS,69)+1 QUIT
33 . I ESPVICT="P" S ^(70)=^ESP(912.3,ESPIEN,1,ESPINS,70)+1 QUIT
34 . I ESPVICT="V" S ^(71)=^ESP(912.3,ESPIEN,1,ESPINS,71)+1 QUIT
35 I $D(^ESP(912,ESPOFN,30)) D OFFE
36 QUIT
37OFFE S ESPOF=0
38 F ESPX=1:1 S ESPOF=$O(^ESP(912,ESPOFN,40,ESPOF)) Q:ESPOF'>0 D
39 . S ESPOFF=$P(^ESP(912,ESPOFN,40,ESPOF,0),U,11)
40 . I ESPOFF="E"!(ESPOFF="PO") S ^(63)=^ESP(912.3,ESPIEN,1,ESPINS,63)+1 QUIT
41 . I ESPOFF="O" S ^(64)=^ESP(912.3,ESPIEN,1,ESPINS,64)+1 QUIT
42 . I ESPOFF="P" S ^(65)=^ESP(912.3,ESPIEN,1,ESPINS,65)+1 QUIT
43 . I ESPOFF="V" S ^(67)=^ESP(912.3,ESPIEN,1,ESPINS,67)+1 QUIT
44 . S ^(66)=^ESP(912.3,ESPIEN,1,ESPINS,66)+1
45 QUIT
46NON ;NON-CRIMINAL TOTALS
47 S ^(72)=^ESP(912.3,ESPIEN,1,ESPINS,72)+1
48 I ESPTYPE=29 S ^(73)=^ESP(912.3,ESPIEN,1,ESPINS,73)+1 QUIT
49 I ESPTYPE=30,ESPSUB=9 S ^(75)=^ESP(912.3,ESPIEN,1,ESPINS,75)+1 QUIT
50 I ESPTYPE=30,ESPSUB=10 S ^(76)=^ESP(912.3,ESPIEN,1,ESPINS,76)+1 QUIT
51 I ESPTYPE=31 S ^(77)=^ESP(912.3,ESPIEN,1,ESPINS,77)+1 QUIT
52 I ESPTYPE=32 S ^(78)=^ESP(912.3,ESPIEN,1,ESPINS,78)+1 QUIT
53 I ESPTYPE=33 S ^(79)=^ESP(912.3,ESPIEN,1,ESPINS,79)+1 QUIT
54 I ESPTYPE=34 S ^(80)=^ESP(912.3,ESPIEN,1,ESPINS,80)+1 QUIT
55 I ESPTYPE=59 S ^(188)=^ESP(912.3,ESPIEN,1,ESPINS,188)+1 QUIT
56 QUIT
57OTH ;OTHER OFFENSES TOTALS
58 S ^(81)=^ESP(912.3,ESPIEN,1,ESPINS,81)+1
59 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.
60 I ESPTYPE=37 S ^(84)=^ESP(912.3,ESPIEN,1,ESPINS,84)+1 QUIT
61 I ESPTYPE=36 S ^(85)=^ESP(912.3,ESPIEN,1,ESPINS,85)+1 QUIT
62 I ESPTYPE=22 S ^(86)=^ESP(912.3,ESPIEN,1,ESPINS,86)+1 QUIT
63 I ESPTYPE=23 S ^(87)=^ESP(912.3,ESPIEN,1,ESPINS,87)+1 QUIT
Note: See TracBrowser for help on using the repository browser.