| 1 | ESPUCR1 ;DALISC/CKA - UNIFORM CRIME REPORT COUNT AND GET TOTALS- 1/92
|
|---|
| 2 | ;;1.0;POLICE & SECURITY;;Mar 31, 1994
|
|---|
| 3 | EN Q ;CALLED FROM ESPUCR
|
|---|
| 4 | SET ;CALLED FROM ESPUCR TO ADD CRIME REPORT TOTALS IN CRIME DATA FILE
|
|---|
| 5 | S ESPCL=^ESP(912,ESPOFN,10,ESPCN,0),ESPCC=$P(ESPCL,U),ESPTYPE=$P(ESPCL,U,2),ESPSUB=$P(ESPCL,U,3)
|
|---|
| 6 | I ESPCC=1 D ASLT QUIT
|
|---|
| 7 | I ESPCC=2 D BURG QUIT
|
|---|
| 8 | I ESPCC=3 D CONT QUIT
|
|---|
| 9 | I ESPCC=4 D DIST^ESPUCR2 QUIT
|
|---|
| 10 | I ESPCC=5 D MUR^ESPUCR2 QUIT
|
|---|
| 11 | I ESPCC=6 D NON^ESPUCR2 QUIT
|
|---|
| 12 | I ESPCC=7 D OTH^ESPUCR2 QUIT
|
|---|
| 13 | I ESPCC=8 D RAPE^ESPUCR3 QUIT
|
|---|
| 14 | I ESPCC=9 D ROBB^ESPUCR3 QUIT
|
|---|
| 15 | I ESPCC=10 D STOP^ESPUCR4 QUIT
|
|---|
| 16 | I ESPCC=11 D THEFT^ESPUCR4 QUIT
|
|---|
| 17 | I ESPCC=12 D VAND^ESPUCR5 QUIT
|
|---|
| 18 | I ESPCC=13 D VICE^ESPUCR5 QUIT
|
|---|
| 19 | I ESPCC=14 D VIO^ESPUCR5 QUIT
|
|---|
| 20 | EXIT QUIT
|
|---|
| 21 | ASLT ;ASSAULT TOTALS
|
|---|
| 22 | OF ; COUNT VICTIMS AND OFFENDERS
|
|---|
| 23 | S ESPVIC=0
|
|---|
| 24 | F ESPX=1:1 S ESPVIC=$O(^ESP(912,ESPOFN,30,ESPVIC)) Q:ESPVIC'>0 D
|
|---|
| 25 | . S ESPVICT=$P(^ESP(912,ESPOFN,30,ESPVIC,0),U,5),^(1)=^ESP(912.4,ESPIEN,1,ESPINS,1)+1 D
|
|---|
| 26 | .. I ESPTYPE=1 S ^(2)=^ESP(912.4,ESPIEN,1,ESPINS,2)+1 QUIT
|
|---|
| 27 | .. I ESPTYPE=2 S ^(3)=^ESP(912.4,ESPIEN,1,ESPINS,3)+1 QUIT
|
|---|
| 28 | .. I ESPTYPE=3 S ^(4)=^ESP(912.4,ESPIEN,1,ESPINS,4)+1 QUIT
|
|---|
| 29 | .. I ESPTYPE=4 S ^(5)=^ESP(912.4,ESPIEN,1,ESPINS,5)+1 QUIT
|
|---|
| 30 | .. I ESPTYPE=5 S ^(6)=^ESP(912.4,ESPIEN,1,ESPINS,6)+1 QUIT
|
|---|
| 31 | . I ESPVICT="E" S ^(12)=^ESP(912.4,ESPIEN,1,ESPINS,12)+1 QUIT
|
|---|
| 32 | . I ESPVICT="PO" S ^(13)=^ESP(912.4,ESPIEN,1,ESPINS,13)+1 QUIT
|
|---|
| 33 | . I ESPVICT="O" S ^(14)=^ESP(912.4,ESPIEN,1,ESPINS,14)+1 QUIT
|
|---|
| 34 | . I ESPVICT="P" S ^(15)=^ESP(912.4,ESPIEN,1,ESPINS,15)+1 QUIT
|
|---|
| 35 | . I ESPVICT="V" S ^(17)=^ESP(912.4,ESPIEN,1,ESPINS,17)+1 QUIT
|
|---|
| 36 | . S ^(16)=^ESP(912.4,ESPIEN,1,ESPINS,16)+1
|
|---|
| 37 | I $D(^ESP(912,ESPOFN,30)) D OFFE
|
|---|
| 38 | QUIT
|
|---|
| 39 | OFFE ;COUNT OFFENDERS
|
|---|
| 40 | S ESPOF=0
|
|---|
| 41 | F ESPX=1:1 S ESPOF=$O(^ESP(912,ESPOFN,40,ESPOF)) Q:ESPOF'>0 D
|
|---|
| 42 | . S ESPOFF=$P(^ESP(912,ESPOFN,40,ESPOF,0),U,11)
|
|---|
| 43 | . I ESPOFF="E"!(ESPOFF="PO") S ^(7)=^ESP(912.4,ESPIEN,1,ESPINS,7)+1 QUIT
|
|---|
| 44 | . I ESPOFF="O" S ^(8)=^ESP(912.4,ESPIEN,1,ESPINS,8)+1 QUIT
|
|---|
| 45 | . I ESPOFF="P" S ^(9)=^ESP(912.4,ESPIEN,1,ESPINS,9)+1 QUIT
|
|---|
| 46 | . I ESPOFF="V" S ^(11)=^ESP(912.4,ESPIEN,1,ESPINS,11)+1 QUIT
|
|---|
| 47 | . S ^(10)=^ESP(912.4,ESPIEN,1,ESPINS,10)+1
|
|---|
| 48 | QUIT
|
|---|
| 49 | BURG ;BURGLARY TOTALS
|
|---|
| 50 | S ^(18)=^ESP(912.4,ESPIEN,1,ESPINS,18)+1
|
|---|
| 51 | I ESPTYPE=6 S ^(19)=^ESP(912.4,ESPIEN,1,ESPINS,19)+1 D DOL QUIT
|
|---|
| 52 | I ESPTYPE=7 S ^(20)=^ESP(912.4,ESPIEN,1,ESPINS,20)+1 D DOL QUIT
|
|---|
| 53 | I ESPTYPE=8 S ^(21)=^ESP(912.4,ESPIEN,1,ESPINS,21)+1 D DOL QUIT
|
|---|
| 54 | I ESPTYPE=9 S ^(22)=^ESP(912.4,ESPIEN,1,ESPINS,22)+1 D DOL QUIT
|
|---|
| 55 | I ESPTYPE=10 S ^(23)=^ESP(912.4,ESPIEN,1,ESPINS,23)+1 D DOL QUIT
|
|---|
| 56 | I ESPTYPE=11 S ^(24)=^ESP(912.4,ESPIEN,1,ESPINS,24)+1 D DOL QUIT
|
|---|
| 57 | I ESPTYPE=12 S ^(25)=^ESP(912.4,ESPIEN,1,ESPINS,25)+1 D DOL QUIT
|
|---|
| 58 | QUIT
|
|---|
| 59 | DOL ;ADD DOLLAR TOTALS
|
|---|
| 60 | S ESPDOL=0
|
|---|
| 61 | F ESPX=1:1 S ESPDOL=$O(^ESP(912,ESPOFN,90,ESPDOL)) Q:ESPDOL'>0 D
|
|---|
| 62 | . S ^ESP(912.4,ESPIEN,1,ESPINS,26)=^ESP(912.4,ESPIEN,1,ESPINS,26)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
|
|---|
| 63 | . S ^ESP(912.4,ESPIEN,1,ESPINS,27)=^ESP(912.4,ESPIEN,1,ESPINS,27)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)
|
|---|
| 64 | QUIT
|
|---|
| 65 | CONT ;CONTRABAND TOTALS
|
|---|
| 66 | OFC ;CONTRABAND OFFENDER TOTALS
|
|---|
| 67 | S ESPOF=0
|
|---|
| 68 | F ESPX=1:1 S ESPOF=$O(^ESP(912,ESPOFN,40,ESPOF)) Q:ESPOF'>0 D
|
|---|
| 69 | . S ESPOFF=$P(^ESP(912,ESPOFN,40,ESPOF,0),U,11),^(28)=^ESP(912.4,ESPIEN,1,ESPINS,28)+1 D
|
|---|
| 70 | .. ;ALCOHOL CONTRABAND
|
|---|
| 71 | .. I ESPTYPE=13 D
|
|---|
| 72 | ... I ESPSUB=1 S ^(34)=^ESP(912.4,ESPIEN,1,ESPINS,34)+1 QUIT
|
|---|
| 73 | ... I ESPSUB=2 S ^(35)=^ESP(912.4,ESPIEN,1,ESPINS,35)+1 QUIT
|
|---|
| 74 | ... I ESPSUB=3 S ^(36)=^ESP(912.4,ESPIEN,1,ESPINS,36)+1
|
|---|
| 75 | .. ;DRUG CONTRABAND
|
|---|
| 76 | .. I ESPTYPE=14 D
|
|---|
| 77 | ... I ESPSUB=4 S ^(29)=^ESP(912.4,ESPIEN,1,ESPINS,29)+1 QUIT
|
|---|
| 78 | ... I ESPSUB=5 S ^(30)=^ESP(912.4,ESPIEN,1,ESPINS,30)+1 QUIT
|
|---|
| 79 | ... I ESPSUB=6 S ^(31)=^ESP(912.4,ESPIEN,1,ESPINS,31)+1 QUIT
|
|---|
| 80 | ... I ESPSUB=7 S ^(32)=^ESP(912.4,ESPIEN,1,ESPINS,32)+1 QUIT
|
|---|
| 81 | ... I ESPSUB=8 S ^(33)=^ESP(912.4,ESPIEN,1,ESPINS,33)+1 QUIT
|
|---|
| 82 | .. ;WEAPON CONTRABAND
|
|---|
| 83 | .. I ESPTYPE=15 D
|
|---|
| 84 | ... I ESPSUB=35 S ^(37)=^ESP(912.4,ESPIEN,1,ESPINS,37)+1 QUIT
|
|---|
| 85 | ... I ESPSUB=36 S ^(38)=^ESP(912.4,ESPIEN,1,ESPINS,38)+1 QUIT
|
|---|
| 86 | ... I ESPSUB=37 S ^(39)=^ESP(912.4,ESPIEN,1,ESPINS,39)+1 QUIT
|
|---|
| 87 | ... I ESPSUB=38 S ^(40)=^ESP(912.4,ESPIEN,1,ESPINS,40)+1 QUIT
|
|---|
| 88 | . I ESPOFF="E"!(ESPOFF="PO") S ^(41)=^ESP(912.4,ESPIEN,1,ESPINS,41)+1 QUIT
|
|---|
| 89 | . I ESPOFF="O" S ^(42)=^ESP(912.4,ESPIEN,1,ESPINS,42)+1 QUIT
|
|---|
| 90 | . I ESPOFF="P" S ^(43)=^ESP(912.4,ESPIEN,1,ESPINS,43)+1 QUIT
|
|---|
| 91 | . I ESPOFF="V" S ^(45)=^ESP(912.4,ESPIEN,1,ESPINS,45)+1 QUIT
|
|---|
| 92 | . S ^(44)=^ESP(912.4,ESPIEN,1,ESPINS,44)+1
|
|---|
| 93 | QUIT
|
|---|
