source: FOIAVistA/trunk/r/POLICE_AND_SECURITY-ES/ESPUCF3.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 2.2 KB
Line 
1ESPUCF3 ;DALISC/CKA - UNIFORM CRIME REPORT COUNT AND GET TOTALS- 3/99
2 ;;1.0;POLICE & SECURITY;**27**;Mar 31, 1994
3EN Q ;CALLED FROM ESPUCF1
4RAPE ;RAPE TOTALS
5OFFR ; COUNT RAPE OFFENDER AND VICTIMS
6 S ESPVIC=0
7 F ESPX=1:1 S ESPVIC=$O(^ESP(912,ESPOFN,30,ESPVIC)) Q:ESPVIC'>0 D
8 . S ESPVICT=$P(^ESP(912,ESPOFN,30,ESPVIC,0),U,5) D
9 .. S ^(88)=^ESP(912.3,ESPIEN,1,ESPINS,88)+1
10 .. I ESPTYPE=38 S ^(89)=^ESP(912.3,ESPIEN,1,ESPINS,89)+1 QUIT
11 .. I ESPTYPE=39 S ^(90)=^ESP(912.3,ESPIEN,1,ESPINS,90)+1 QUIT
12 . I ESPVICT="E"!(ESPVICT="PO") S ^(96)=^ESP(912.3,ESPIEN,1,ESPINS,96)+1 QUIT
13 . I ESPVICT="O" S ^(97)=^ESP(912.3,ESPIEN,1,ESPINS,97)+1 QUIT
14 . I ESPVICT="P" S ^(98)=^ESP(912.3,ESPIEN,1,ESPINS,98)+1 QUIT
15 . I ESPVICT="V" S ^(99)=^ESP(912.3,ESPIEN,1,ESPINS,99)+1 QUIT
16 I $D(^ESP(912,ESPOFN,30)) D OFFE
17 QUIT
18OFFE ;COUNT OFFENDERS FOR RAPE
19 S ESPOF=0
20 F ESPX=1:1 S ESPOF=$O(^ESP(912,ESPOFN,40,ESPOF)) Q:ESPOF'>0 D
21 . S ESPOFF=$P(^ESP(912,ESPOFN,40,ESPOF,0),U,11)
22 . I ESPOFF="E"!(ESPOFF="PO") S ^(91)=^ESP(912.3,ESPIEN,1,ESPINS,91)+1 QUIT
23 . I ESPOFF="O" S ^(92)=^ESP(912.3,ESPIEN,1,ESPINS,92)+1 QUIT
24 . I ESPOFF="P" S ^(93)=^ESP(912.3,ESPIEN,1,ESPINS,93)+1 QUIT
25 . I ESPOFF="V" S ^(95)=^ESP(912.3,ESPIEN,1,ESPINS,95)+1 QUIT
26 . S ^(94)=^ESP(912.3,ESPIEN,1,ESPINS,94)+1
27 QUIT
28ROBB ;ROBBERY TOTALS
29 S ^(100)=^ESP(912.3,ESPIEN,1,ESPINS,100)+1
30 I ESPTYPE=40 S ^(101)=^ESP(912.3,ESPIEN,1,ESPINS,101)+1 D ARMED,DOL QUIT
31 I ESPTYPE=41 S ^(104)=^ESP(912.3,ESPIEN,1,ESPINS,104)+1 D STRONG,DOL QUIT
32 I ESPTYPE=58 S ^(107)=^ESP(912.3,ESPIEN,1,ESPINS,107)+1 D DOL QUIT
33 QUIT
34ARMED ;ARMED ROBBERY TOTALS
35 I ESPSUB=11 S ^(102)=^ESP(912.3,ESPIEN,1,ESPINS,102)+1 QUIT
36 I ESPSUB=12 S ^(103)=^ESP(912.3,ESPIEN,1,ESPINS,103)+1 QUIT
37 QUIT
38STRONG ;STRONG ARMED ROBBERY TOTALS
39 I ESPSUB=13 S ^(105)=^ESP(912.3,ESPIEN,1,ESPINS,105)+1 QUIT
40 I ESPSUB=14 S ^(106)=^ESP(912.3,ESPIEN,1,ESPINS,106)+1 QUIT
41 QUIT
42DOL ;ADD DOLLAR TOTALS
43 S ESPDOL=0
44 F ESPX=1:1 S ESPDOL=$O(^ESP(912,ESPOFN,90,ESPDOL)) Q:ESPDOL'>0 D
45 . S ^ESP(912.3,ESPIEN,1,ESPINS,108)=^ESP(912.3,ESPIEN,1,ESPINS,108)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
46 . S ^ESP(912.3,ESPIEN,1,ESPINS,109)=^ESP(912.3,ESPIEN,1,ESPINS,109)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)
47 QUIT
Note: See TracBrowser for help on using the repository browser.