| [613] | 1 | ESPUCR3 ;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 | RAPE ;RAPE TOTALS
|
|---|
| 5 | OFFR ; 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.4,ESPIEN,1,ESPINS,88)+1
|
|---|
| 10 | .. I ESPTYPE=38 S ^(89)=^ESP(912.4,ESPIEN,1,ESPINS,89)+1 QUIT
|
|---|
| 11 | .. I ESPTYPE=39 S ^(90)=^ESP(912.4,ESPIEN,1,ESPINS,90)+1 QUIT
|
|---|
| 12 | . I ESPVICT="E"!(ESPVICT="PO") S ^(96)=^ESP(912.4,ESPIEN,1,ESPINS,96)+1 QUIT
|
|---|
| 13 | . I ESPVICT="O" S ^(97)=^ESP(912.4,ESPIEN,1,ESPINS,97)+1 QUIT
|
|---|
| 14 | . I ESPVICT="P" S ^(98)=^ESP(912.4,ESPIEN,1,ESPINS,98)+1 QUIT
|
|---|
| 15 | . I ESPVICT="V" S ^(99)=^ESP(912.4,ESPIEN,1,ESPINS,99)+1 QUIT
|
|---|
| 16 | I $D(^ESP(912,ESPOFN,30)) D OFFE
|
|---|
| 17 | QUIT
|
|---|
| 18 | OFFE ;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.4,ESPIEN,1,ESPINS,91)+1 QUIT
|
|---|
| 23 | . I ESPOFF="O" S ^(92)=^ESP(912.4,ESPIEN,1,ESPINS,92)+1 QUIT
|
|---|
| 24 | . I ESPOFF="P" S ^(93)=^ESP(912.4,ESPIEN,1,ESPINS,93)+1 QUIT
|
|---|
| 25 | . I ESPOFF="V" S ^(95)=^ESP(912.4,ESPIEN,1,ESPINS,95)+1 QUIT
|
|---|
| 26 | . S ^(94)=^ESP(912.4,ESPIEN,1,ESPINS,94)+1
|
|---|
| 27 | QUIT
|
|---|
| 28 | ROBB ;ROBBERY TOTALS
|
|---|
| 29 | S ^(100)=^ESP(912.4,ESPIEN,1,ESPINS,100)+1
|
|---|
| 30 | I ESPTYPE=40 S ^(101)=^ESP(912.4,ESPIEN,1,ESPINS,101)+1 D ARMED,DOL QUIT
|
|---|
| 31 | I ESPTYPE=41 S ^(104)=^ESP(912.4,ESPIEN,1,ESPINS,104)+1 D STRONG,DOL QUIT
|
|---|
| 32 | I ESPTYPE=58 S ^(107)=^ESP(912.4,ESPIEN,1,ESPINS,107)+1 D DOL QUIT
|
|---|
| 33 | QUIT
|
|---|
| 34 | ARMED ;ARMED ROBBERY TOTALS
|
|---|
| 35 | I ESPSUB=11 S ^(102)=^ESP(912.4,ESPIEN,1,ESPINS,102)+1 QUIT
|
|---|
| 36 | I ESPSUB=12 S ^(103)=^ESP(912.4,ESPIEN,1,ESPINS,103)+1 QUIT
|
|---|
| 37 | QUIT
|
|---|
| 38 | STRONG ;STRONG ARMED ROBBERY TOTALS
|
|---|
| 39 | I ESPSUB=13 S ^(105)=^ESP(912.4,ESPIEN,1,ESPINS,105)+1 QUIT
|
|---|
| 40 | I ESPSUB=14 S ^(106)=^ESP(912.4,ESPIEN,1,ESPINS,106)+1 QUIT
|
|---|
| 41 | QUIT
|
|---|
| 42 | DOL ;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.4,ESPIEN,1,ESPINS,108)=^ESP(912.4,ESPIEN,1,ESPINS,108)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
|
|---|
| 46 | . S ^ESP(912.4,ESPIEN,1,ESPINS,109)=^ESP(912.4,ESPIEN,1,ESPINS,109)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)
|
|---|
| 47 | QUIT
|
|---|
