source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPUCF5.m

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

initial load of WorldVistAEHR

File size: 2.0 KB
Line 
1ESPUCF5 ;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
4VAND ;VANDALISM TOTALS
5OFFV ; COUNT VANDALISM OFFENDERS
6 D VDOL S ESPOF=0,^(152)=^ESP(912.3,ESPIEN,1,ESPINS,152)+1
7 I '$O(^ESP(912,ESPOFN,40,ESPOF)) S ^(156)=^ESP(912.3,ESPIEN,1,ESPINS,156)+1 QUIT
8 F ESPX=1:1 S ESPOF=$O(^ESP(912,ESPOFN,40,ESPOF)) Q:ESPOF'>0 D
9 . S ESPOFF=$P(^ESP(912,ESPOFN,40,ESPOF,0),U,11)
10 . I ESPOFF="E"!(ESPOFF="PO") S ^(153)=^ESP(912.3,ESPIEN,1,ESPINS,153)+1 QUIT
11 . I ESPOFF="O" S ^(154)=^ESP(912.3,ESPIEN,1,ESPINS,154)+1 QUIT
12 . I ESPOFF="P" S ^(155)=^ESP(912.3,ESPIEN,1,ESPINS,155)+1 QUIT
13 . I ESPOFF="V" S ^(157)=^ESP(912.3,ESPIEN,1,ESPINS,157)+1 QUIT
14 . S ^(156)=^ESP(912.3,ESPIEN,1,ESPINS,156)+1 QUIT
15 QUIT
16VICE ;VICE TOTALS
17OFFVIC ; COUNT VICE OFFENDERS
18 S ESPOF=0,^(159)=^ESP(912.3,ESPIEN,1,ESPINS,159)+1
19 F ESPX=1:1 S ESPOF=$O(^ESP(912,ESPOFN,40,ESPOF)) Q:ESPOF'>0 D
20 . S ESPOFF=$P(^ESP(912,ESPOFN,40,ESPOF,0),U,11)
21 . I ESPOFF="E"!(ESPOFF="PO") S ^(166)=^ESP(912.3,ESPIEN,1,ESPINS,166)+1
22 . I ESPOFF="O" S ^(167)=^ESP(912.3,ESPIEN,1,ESPINS,167)+1
23 . I ESPOFF="P" S ^(168)=^ESP(912.3,ESPIEN,1,ESPINS,168)+1
24 . I ESPOFF="V" S ^(170)=^ESP(912.3,ESPIEN,1,ESPINS,170)+1
25 . I ESPOFF'="E",ESPOFF'="PO",ESPOFF'="O",ESPOFF'="P",ESPOFF'="V" S ^(169)=^ESP(912.3,ESPIEN,1,ESPINS,170)+1
26 . I ESPTYPE=50 S ^(160)=^ESP(912.3,ESPIEN,1,ESPINS,160)+1
27 . I ESPTYPE=51 S ^(161)=^ESP(912.3,ESPIEN,1,ESPINS,161)+1
28 . I ESPTYPE=52 S ^(162)=^ESP(912.3,ESPIEN,1,ESPINS,162)+1 QUIT
29 . I ESPTYPE=53 S ^(163)=^ESP(912.3,ESPIEN,1,ESPINS,163)+1 QUIT
30 . I ESPTYPE=54 S ^(164)=^ESP(912.3,ESPIEN,1,ESPINS,164)+1 QUIT
31 . I ESPTYPE=55 S ^(165)=^ESP(912.3,ESPIEN,1,ESPINS,165)+1 QUIT
32 QUIT
33VIO ;VIOLATION TOTALS
34EX QUIT
35VDOL ;VANDALISM DOLLARS
36 S ESPDOL=0
37 F ESPX=1:1 S ESPDOL=$O(^ESP(912,ESPOFN,90,ESPDOL)) Q:ESPDOL'>0 D
38 . S ^ESP(912.3,ESPIEN,1,ESPINS,158)=^ESP(912.3,ESPIEN,1,ESPINS,158)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
39 QUIT
Note: See TracBrowser for help on using the repository browser.