- ESPUCF4 ;DALISC/CKA - UNIFORM CRIME REPORT COUNT AND GET TOTALS- 3/99
- ;;1.0;POLICE & SECURITY;**27**;Mar 31, 1994
- EN Q ;CALLED FROM ESPUCF1
- STOP ;STOP & ARRESTS TOTALS
- OFFA ; COUNT PHYSICAL ARREST OFFENDERS
- S ^(110)=^ESP(912.3,ESPIEN,1,ESPINS,110)+1
- S ESPOF=0
- F ESPX=1:1 S ESPOF=$O(^ESP(912,ESPOFN,40,ESPOF)) Q:ESPOF'>0 D
- . S ESPOFF=$P(^ESP(912,ESPOFN,40,ESPOF,0),U,11) D
- .. I ESPTYPE=42,$P(^ESP(912,ESPOFN,40,ESPOF,0),U,2) S ^(111)=^ESP(912.3,ESPIEN,1,ESPINS,111)+1 D QUIT
- ... I ESPOFF="E"!(ESPOFF="PO") S ^(112)=^ESP(912.3,ESPIEN,1,ESPINS,112)+1 QUIT
- ... I ESPOFF="O" S ^(113)=^ESP(912.3,ESPIEN,1,ESPINS,113)+1 QUIT
- ... I ESPOFF="P" S ^(114)=^ESP(912.3,ESPIEN,1,ESPINS,114)+1 QUIT
- ... I ESPOFF="V" S ^(115)=^ESP(912.3,ESPIEN,1,ESPINS,115)+1 QUIT
- I ESPTYPE=43 S ^(116)=^ESP(912.3,ESPIEN,1,ESPINS,116)+1 D QUIT
- . I ESPSUB=17 S ^(118)=^ESP(912.3,ESPIEN,1,ESPINS,118)+1 QUIT
- . I ESPSUB=18 S ^(117)=^ESP(912.3,ESPIEN,1,ESPINS,117)+1 QUIT
- QUIT
- THEFT ;THEFT TOTALS
- S ^(119)=^ESP(912.3,ESPIEN,1,ESPINS,119)+1
- ;COIN-OPERATED MACHINES
- I ESPTYPE=44 S ^(120)=^ESP(912.3,ESPIEN,1,ESPINS,120)+1 D QUIT
- . S ESPDOL=0
- . F ESPX=1:1 S ESPDOL=$O(^ESP(912,ESPOFN,90,ESPDOL)) Q:ESPDOL'>0 D
- .. S ^ESP(912.3,ESPIEN,1,ESPINS,121)=^ESP(912.3,ESPIEN,1,ESPINS,121)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
- .. S ^ESP(912.3,ESPIEN,1,ESPINS,122)=^ESP(912.3,ESPIEN,1,ESPINS,122)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)
- ;DRUG THEFTS
- I ESPTYPE=45 S ^(129)=^ESP(912.3,ESPIEN,1,ESPINS,129)+1 D D DDOL QUIT
- . I ESPSUB=19 S ^(125)=^ESP(912.3,ESPIEN,1,ESPINS,125)+1,^(123)=^ESP(912.3,ESPIEN,1,ESPINS,123)+1 QUIT
- . I ESPSUB=21 S ^(126)=^ESP(912.3,ESPIEN,1,ESPINS,126)+1,^(123)=^ESP(912.3,ESPIEN,1,ESPINS,123)+1 QUIT
- . I ESPSUB=20 S ^(127)=^ESP(912.3,ESPIEN,1,ESPINS,127)+1,^(124)=^ESP(912.3,ESPIEN,1,ESPINS,124)+1 QUIT
- . I ESPSUB=22 S ^(128)=^ESP(912.3,ESPIEN,1,ESPINS,128)+1,^(124)=^ESP(912.3,ESPIEN,1,ESPINS,124)+1 QUIT
- ;GOVERNMENT PROPERTY
- I ESPTYPE=46 S ^(132)=^ESP(912.3,ESPIEN,1,ESPINS,132)+1 D D GDOL QUIT
- . I ESPSUB=23 S ^(133)=^ESP(912.3,ESPIEN,1,ESPINS,133)+1 QUIT
- . I ESPSUB=24 S ^(134)=^ESP(912.3,ESPIEN,1,ESPINS,134)+1 QUIT
- . I ESPSUB=39 S ^(133.1)=^ESP(912.3,ESPIEN,1,ESPINS,133.1)+1 QUIT
- . I ESPSUB=40 S ^(134.1)=^ESP(912.3,ESPIEN,1,ESPINS,134.1)+1 QUIT
- ;PERSONAL PROPERTY
- I ESPTYPE=47 S ^(137)=^ESP(912.3,ESPIEN,1,ESPINS,137)+1 D D PDOL QUIT
- . I ESPSUB=25 S ^(138)=^ESP(912.3,ESPIEN,1,ESPINS,138)+1 QUIT
- . I ESPSUB=26 S ^(139)=^ESP(912.3,ESPIEN,1,ESPINS,139)+1 QUIT
- . I ESPSUB=41 S ^(138.1)=^ESP(912.3,ESPIEN,1,ESPINS,138.1)+1 QUIT
- . I ESPSUB=42 S ^(139.1)=^ESP(912.3,ESPIEN,1,ESPINS,139.1)+1 QUIT
- ;MOTOR VEHICLES
- I ESPTYPE=48 S ^(142)=^ESP(912.3,ESPIEN,1,ESPINS,142)+1
- ;GOVT VEHICLE
- I ESPSUB=27 S ^(143)=^ESP(912.3,ESPIEN,1,ESPINS,143)+1 D QUIT
- . ;GOVT VEHICLE DOLLARS
- . S ESPDOL=0
- . F ESPX=1:1 S ESPDOL=$O(^ESP(912,ESPOFN,90,ESPDOL)) Q:ESPDOL'>0 D
- .. S ^ESP(912.3,ESPIEN,1,ESPINS,144)=^ESP(912.3,ESPIEN,1,ESPINS,144)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
- .. S ^ESP(912.3,ESPIEN,1,ESPINS,145)=^ESP(912.3,ESPIEN,1,ESPINS,145)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)
- .. I $P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)'="" S ^(146)=^ESP(912.3,ESPIEN,1,ESPINS,146)+1
- ;PRIVATE VEHICLE
- I ESPSUB=28 S ^(147)=^ESP(912.3,ESPIEN,1,ESPINS,147)+1 D QUIT
- . ;PERSONAL VEHICLE DOLLARS
- . S ESPDOL=0
- . F ESPX=1:1 S ESPDOL=$O(^ESP(912,ESPOFN,90,ESPDOL)) Q:ESPDOL'>0 D
- .. S ^ESP(912.3,ESPIEN,1,ESPINS,148)=^ESP(912.3,ESPIEN,1,ESPINS,148)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
- .. S ^ESP(912.3,ESPIEN,1,ESPINS,149)=^ESP(912.3,ESPIEN,1,ESPINS,149)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)
- .. I $P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)'="" S ^(150)=^ESP(912.3,ESPIEN,1,ESPINS,150)+1
- QUIT
- EX Q
- DDOL ;DRUG DOLLARS
- S ESPDOL=0
- F ESPX=1:1 S ESPDOL=$O(^ESP(912,ESPOFN,90,ESPDOL)) Q:ESPDOL'>0 D
- . S ^ESP(912.3,ESPIEN,1,ESPINS,130)=^ESP(912.3,ESPIEN,1,ESPINS,130)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
- . S ^ESP(912.3,ESPIEN,1,ESPINS,131)=^ESP(912.3,ESPIEN,1,ESPINS,131)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)
- QUIT
- GDOL ;GOV'T PROPERTY DOLLARS
- S ESPDOL=0
- F ESPX=1:1 S ESPDOL=$O(^ESP(912,ESPOFN,90,ESPDOL)) Q:ESPDOL'>0 D
- . S ^ESP(912.3,ESPIEN,1,ESPINS,135)=^ESP(912.3,ESPIEN,1,ESPINS,135)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
- . S ^ESP(912.3,ESPIEN,1,ESPINS,136)=^ESP(912.3,ESPIEN,1,ESPINS,136)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)
- QUIT
- PDOL ;PERSONAL PROPERTY DOLLARS
- S ESPDOL=0
- F ESPX=1:1 S ESPDOL=$O(^ESP(912,ESPOFN,90,ESPDOL)) Q:ESPDOL'>0 D
- . S ^ESP(912.3,ESPIEN,1,ESPINS,140)=^ESP(912.3,ESPIEN,1,ESPINS,140)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
- . S ^ESP(912.3,ESPIEN,1,ESPINS,141)=^ESP(912.3,ESPIEN,1,ESPINS,141)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)
- QUIT
- ADOL ;ARSON PROPERTY DOLLARS - CALLED BY ^ESPUCR2 TO TOTAL FOR UCR
- S ESPDOL=0
- F ESPX=1:1 S ESPDOL=$O(^ESP(912,ESPOFN,90,ESPDOL)) Q:ESPDOL'>0 D
- . S ^ESP(912.3,ESPIEN,1,ESPINS,83)=^ESP(912.3,ESPIEN,1,ESPINS,83)+$P($G(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
- QUIT
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HESPUCF4 5109 printed Jan 18, 2025@03:31:36 Page 2
- ESPUCF4 ;DALISC/CKA - UNIFORM CRIME REPORT COUNT AND GET TOTALS- 3/99
- +1 ;;1.0;POLICE & SECURITY;**27**;Mar 31, 1994
- EN ;CALLED FROM ESPUCF1
- QUIT
- STOP ;STOP & ARRESTS TOTALS
- OFFA ; COUNT PHYSICAL ARREST OFFENDERS
- +1 SET ^(110)=^ESP(912.3,ESPIEN,1,ESPINS,110)+1
- +2 SET ESPOF=0
- +3 FOR ESPX=1:1
- SET ESPOF=$ORDER(^ESP(912,ESPOFN,40,ESPOF))
- if ESPOF'>0
- QUIT
- Begin DoDot:1
- +4 SET ESPOFF=$PIECE(^ESP(912,ESPOFN,40,ESPOF,0),U,11)
- Begin DoDot:2
- +5 IF ESPTYPE=42
- IF $PIECE(^ESP(912,ESPOFN,40,ESPOF,0),U,2)
- SET ^(111)=^ESP(912.3,ESPIEN,1,ESPINS,111)+1
- Begin DoDot:3
- +6 IF ESPOFF="E"!(ESPOFF="PO")
- SET ^(112)=^ESP(912.3,ESPIEN,1,ESPINS,112)+1
- QUIT
- +7 IF ESPOFF="O"
- SET ^(113)=^ESP(912.3,ESPIEN,1,ESPINS,113)+1
- QUIT
- +8 IF ESPOFF="P"
- SET ^(114)=^ESP(912.3,ESPIEN,1,ESPINS,114)+1
- QUIT
- +9 IF ESPOFF="V"
- SET ^(115)=^ESP(912.3,ESPIEN,1,ESPINS,115)+1
- QUIT
- End DoDot:3
- QUIT
- End DoDot:2
- End DoDot:1
- +10 IF ESPTYPE=43
- SET ^(116)=^ESP(912.3,ESPIEN,1,ESPINS,116)+1
- Begin DoDot:1
- +11 IF ESPSUB=17
- SET ^(118)=^ESP(912.3,ESPIEN,1,ESPINS,118)+1
- QUIT
- +12 IF ESPSUB=18
- SET ^(117)=^ESP(912.3,ESPIEN,1,ESPINS,117)+1
- QUIT
- End DoDot:1
- QUIT
- +13 QUIT
- THEFT ;THEFT TOTALS
- +1 SET ^(119)=^ESP(912.3,ESPIEN,1,ESPINS,119)+1
- +2 ;COIN-OPERATED MACHINES
- +3 IF ESPTYPE=44
- SET ^(120)=^ESP(912.3,ESPIEN,1,ESPINS,120)+1
- Begin DoDot:1
- +4 SET ESPDOL=0
- +5 FOR ESPX=1:1
- SET ESPDOL=$ORDER(^ESP(912,ESPOFN,90,ESPDOL))
- if ESPDOL'>0
- QUIT
- Begin DoDot:2
- +6 SET ^ESP(912.3,ESPIEN,1,ESPINS,121)=^ESP(912.3,ESPIEN,1,ESPINS,121)+$PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
- +7 SET ^ESP(912.3,ESPIEN,1,ESPINS,122)=^ESP(912.3,ESPIEN,1,ESPINS,122)+$PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)
- End DoDot:2
- End DoDot:1
- QUIT
- +8 ;DRUG THEFTS
- +9 IF ESPTYPE=45
- SET ^(129)=^ESP(912.3,ESPIEN,1,ESPINS,129)+1
- Begin DoDot:1
- +10 IF ESPSUB=19
- SET ^(125)=^ESP(912.3,ESPIEN,1,ESPINS,125)+1
- SET ^(123)=^ESP(912.3,ESPIEN,1,ESPINS,123)+1
- QUIT
- +11 IF ESPSUB=21
- SET ^(126)=^ESP(912.3,ESPIEN,1,ESPINS,126)+1
- SET ^(123)=^ESP(912.3,ESPIEN,1,ESPINS,123)+1
- QUIT
- +12 IF ESPSUB=20
- SET ^(127)=^ESP(912.3,ESPIEN,1,ESPINS,127)+1
- SET ^(124)=^ESP(912.3,ESPIEN,1,ESPINS,124)+1
- QUIT
- +13 IF ESPSUB=22
- SET ^(128)=^ESP(912.3,ESPIEN,1,ESPINS,128)+1
- SET ^(124)=^ESP(912.3,ESPIEN,1,ESPINS,124)+1
- QUIT
- End DoDot:1
- DO DDOL
- QUIT
- +14 ;GOVERNMENT PROPERTY
- +15 IF ESPTYPE=46
- SET ^(132)=^ESP(912.3,ESPIEN,1,ESPINS,132)+1
- Begin DoDot:1
- +16 IF ESPSUB=23
- SET ^(133)=^ESP(912.3,ESPIEN,1,ESPINS,133)+1
- QUIT
- +17 IF ESPSUB=24
- SET ^(134)=^ESP(912.3,ESPIEN,1,ESPINS,134)+1
- QUIT
- +18 IF ESPSUB=39
- SET ^(133.1)=^ESP(912.3,ESPIEN,1,ESPINS,133.1)+1
- QUIT
- +19 IF ESPSUB=40
- SET ^(134.1)=^ESP(912.3,ESPIEN,1,ESPINS,134.1)+1
- QUIT
- End DoDot:1
- DO GDOL
- QUIT
- +20 ;PERSONAL PROPERTY
- +21 IF ESPTYPE=47
- SET ^(137)=^ESP(912.3,ESPIEN,1,ESPINS,137)+1
- Begin DoDot:1
- +22 IF ESPSUB=25
- SET ^(138)=^ESP(912.3,ESPIEN,1,ESPINS,138)+1
- QUIT
- +23 IF ESPSUB=26
- SET ^(139)=^ESP(912.3,ESPIEN,1,ESPINS,139)+1
- QUIT
- +24 IF ESPSUB=41
- SET ^(138.1)=^ESP(912.3,ESPIEN,1,ESPINS,138.1)+1
- QUIT
- +25 IF ESPSUB=42
- SET ^(139.1)=^ESP(912.3,ESPIEN,1,ESPINS,139.1)+1
- QUIT
- End DoDot:1
- DO PDOL
- QUIT
- +26 ;MOTOR VEHICLES
- +27 IF ESPTYPE=48
- SET ^(142)=^ESP(912.3,ESPIEN,1,ESPINS,142)+1
- +28 ;GOVT VEHICLE
- +29 IF ESPSUB=27
- SET ^(143)=^ESP(912.3,ESPIEN,1,ESPINS,143)+1
- Begin DoDot:1
- +30 ;GOVT VEHICLE DOLLARS
- +31 SET ESPDOL=0
- +32 FOR ESPX=1:1
- SET ESPDOL=$ORDER(^ESP(912,ESPOFN,90,ESPDOL))
- if ESPDOL'>0
- QUIT
- Begin DoDot:2
- +33 SET ^ESP(912.3,ESPIEN,1,ESPINS,144)=^ESP(912.3,ESPIEN,1,ESPINS,144)+$PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
- +34 SET ^ESP(912.3,ESPIEN,1,ESPINS,145)=^ESP(912.3,ESPIEN,1,ESPINS,145)+$PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)
- +35 IF $PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)'=""
- SET ^(146)=^ESP(912.3,ESPIEN,1,ESPINS,146)+1
- End DoDot:2
- End DoDot:1
- QUIT
- +36 ;PRIVATE VEHICLE
- +37 IF ESPSUB=28
- SET ^(147)=^ESP(912.3,ESPIEN,1,ESPINS,147)+1
- Begin DoDot:1
- +38 ;PERSONAL VEHICLE DOLLARS
- +39 SET ESPDOL=0
- +40 FOR ESPX=1:1
- SET ESPDOL=$ORDER(^ESP(912,ESPOFN,90,ESPDOL))
- if ESPDOL'>0
- QUIT
- Begin DoDot:2
- +41 SET ^ESP(912.3,ESPIEN,1,ESPINS,148)=^ESP(912.3,ESPIEN,1,ESPINS,148)+$PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
- +42 SET ^ESP(912.3,ESPIEN,1,ESPINS,149)=^ESP(912.3,ESPIEN,1,ESPINS,149)+$PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)
- +43 IF $PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)'=""
- SET ^(150)=^ESP(912.3,ESPIEN,1,ESPINS,150)+1
- End DoDot:2
- End DoDot:1
- QUIT
- +44 QUIT
- EX QUIT
- DDOL ;DRUG DOLLARS
- +1 SET ESPDOL=0
- +2 FOR ESPX=1:1
- SET ESPDOL=$ORDER(^ESP(912,ESPOFN,90,ESPDOL))
- if ESPDOL'>0
- QUIT
- Begin DoDot:1
- +3 SET ^ESP(912.3,ESPIEN,1,ESPINS,130)=^ESP(912.3,ESPIEN,1,ESPINS,130)+$PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
- +4 SET ^ESP(912.3,ESPIEN,1,ESPINS,131)=^ESP(912.3,ESPIEN,1,ESPINS,131)+$PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)
- End DoDot:1
- +5 QUIT
- GDOL ;GOV'T PROPERTY DOLLARS
- +1 SET ESPDOL=0
- +2 FOR ESPX=1:1
- SET ESPDOL=$ORDER(^ESP(912,ESPOFN,90,ESPDOL))
- if ESPDOL'>0
- QUIT
- Begin DoDot:1
- +3 SET ^ESP(912.3,ESPIEN,1,ESPINS,135)=^ESP(912.3,ESPIEN,1,ESPINS,135)+$PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
- +4 SET ^ESP(912.3,ESPIEN,1,ESPINS,136)=^ESP(912.3,ESPIEN,1,ESPINS,136)+$PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)
- End DoDot:1
- +5 QUIT
- PDOL ;PERSONAL PROPERTY DOLLARS
- +1 SET ESPDOL=0
- +2 FOR ESPX=1:1
- SET ESPDOL=$ORDER(^ESP(912,ESPOFN,90,ESPDOL))
- if ESPDOL'>0
- QUIT
- Begin DoDot:1
- +3 SET ^ESP(912.3,ESPIEN,1,ESPINS,140)=^ESP(912.3,ESPIEN,1,ESPINS,140)+$PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
- +4 SET ^ESP(912.3,ESPIEN,1,ESPINS,141)=^ESP(912.3,ESPIEN,1,ESPINS,141)+$PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,4)
- End DoDot:1
- +5 QUIT
- ADOL ;ARSON PROPERTY DOLLARS - CALLED BY ^ESPUCR2 TO TOTAL FOR UCR
- +1 SET ESPDOL=0
- +2 FOR ESPX=1:1
- SET ESPDOL=$ORDER(^ESP(912,ESPOFN,90,ESPDOL))
- if ESPDOL'>0
- QUIT
- Begin DoDot:1
- +3 SET ^ESP(912.3,ESPIEN,1,ESPINS,83)=^ESP(912.3,ESPIEN,1,ESPINS,83)+$PIECE($GET(^ESP(912,ESPOFN,90,ESPDOL,0)),U,3)
- End DoDot:1
- +4 QUIT