| [613] | 1 | ESPUCR5 ;DALISC/CKA - UNIFORM CRIME REPORT COUNT AND GET TOTALS- 1/92
|
|---|
| 2 | ;;1.0;POLICE & SECURITY;;Mar 31, 1994
|
|---|
| 3 | EN Q ;CALLED FROM ESPUCR1
|
|---|
| 4 | VAND ;VANDALISM TOTALS
|
|---|
| 5 | OFFV ; COUNT VANDALISM OFFENDERS
|
|---|
| 6 | D VDOL S ESPOF=0,^(152)=^ESP(912.4,ESPIEN,1,ESPINS,152)+1
|
|---|
| 7 | I '$O(^ESP(912,ESPOFN,40,ESPOF)) S ^(156)=^ESP(912.4,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.4,ESPIEN,1,ESPINS,153)+1 QUIT
|
|---|
| 11 | . I ESPOFF="O" S ^(154)=^ESP(912.4,ESPIEN,1,ESPINS,154)+1 QUIT
|
|---|
| 12 | . I ESPOFF="P" S ^(155)=^ESP(912.4,ESPIEN,1,ESPINS,155)+1 QUIT
|
|---|
| 13 | . I ESPOFF="V" S ^(157)=^ESP(912.4,ESPIEN,1,ESPINS,157)+1 QUIT
|
|---|
| 14 | . S ^(156)=^ESP(912.4,ESPIEN,1,ESPINS,156)+1 QUIT
|
|---|
| 15 | QUIT
|
|---|
| 16 | VICE ;VICE TOTALS
|
|---|
| 17 | OFFVIC ; COUNT VICE OFFENDERS
|
|---|
| 18 | S ESPOF=0,^(159)=^ESP(912.4,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.4,ESPIEN,1,ESPINS,166)+1
|
|---|
| 22 | . I ESPOFF="O" S ^(167)=^ESP(912.4,ESPIEN,1,ESPINS,167)+1
|
|---|
| 23 | . I ESPOFF="P" S ^(168)=^ESP(912.4,ESPIEN,1,ESPINS,168)+1
|
|---|
| 24 | . I ESPOFF="V" S ^(170)=^ESP(912.4,ESPIEN,1,ESPINS,170)+1
|
|---|
| 25 | . I ESPOFF'="E",ESPOFF'="PO",ESPOFF'="O",ESPOFF'="P",ESPOFF'="V" S ^(169)=^ESP(912.4,ESPIEN,1,ESPINS,170)+1
|
|---|
| 26 | . I ESPTYPE=50 S ^(160)=^ESP(912.4,ESPIEN,1,ESPINS,160)+1
|
|---|
| 27 | . I ESPTYPE=51 S ^(161)=^ESP(912.4,ESPIEN,1,ESPINS,161)+1
|
|---|
| 28 | . I ESPTYPE=52 S ^(162)=^ESP(912.4,ESPIEN,1,ESPINS,162)+1 QUIT
|
|---|
| 29 | . I ESPTYPE=53 S ^(163)=^ESP(912.4,ESPIEN,1,ESPINS,163)+1 QUIT
|
|---|
| 30 | . I ESPTYPE=54 S ^(164)=^ESP(912.4,ESPIEN,1,ESPINS,164)+1 QUIT
|
|---|
| 31 | . I ESPTYPE=55 S ^(165)=^ESP(912.4,ESPIEN,1,ESPINS,165)+1 QUIT
|
|---|
| 32 | QUIT
|
|---|
| 33 | VIO ;VIOLATION TOTALS
|
|---|
| 34 | EX QUIT
|
|---|
| 35 | VDOL ;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.4,ESPIEN,1,ESPINS,158)=^ESP(912.4,ESPIEN,1,ESPINS,158)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
|
|---|
| 39 | QUIT
|
|---|
