| 1 | ESPOFF3 ;DALISC/CKA - OFFENSE REPORT INPUT (CONT.);9/92
|
|---|
| 2 | ;;1.0;POLICE & SECURITY;;Mar 31, 1994
|
|---|
| 3 | EN Q ;Called from ESPOFF2
|
|---|
| 4 | ;Check if this report falls within VACO 48 hour reporting criteria
|
|---|
| 5 | CHECK ; ENTRY POINT FROM ESPOFF2
|
|---|
| 6 | S ESPCN=0
|
|---|
| 7 | F ESPX=1:1 S ESPCN=$O(^ESP(912,ESPOFN,10,ESPCN)) Q:ESPCN'>0 D
|
|---|
| 8 | . S ESPCL=^ESP(912,ESPOFN,10,ESPCN,0),ESPCC=$P(ESPCL,U),ESPTYPE=$P(ESPCL,U,2),ESPSUB=$P(ESPCL,U,3)
|
|---|
| 9 | . ;BURGLARIES OF CANTEEN, CASHIER, OR PHARMACY
|
|---|
| 10 | . I ESPCC=2,ESPTYPE=7!(ESPTYPE=8)!(ESPTYPE=11) S ESPBULL=1 QUIT
|
|---|
| 11 | . ;RAPES
|
|---|
| 12 | . I ESPCC=8 S ESPBULL=1 QUIT
|
|---|
| 13 | . ;ROBBERIES
|
|---|
| 14 | . I ESPCC=9 S ESPBULL=1 QUIT
|
|---|
| 15 | . ;DRUG THEFTS
|
|---|
| 16 | . I ESPCC=11,ESPTYPE=45 S ESPBULL=1 QUIT
|
|---|
| 17 | . ;FORGED RX'S
|
|---|
| 18 | . I ESPCC=3,ESPTYPE=14,ESPSUB=4 S ESPBULL=1 QUIT
|
|---|
| 19 | . ;POLICE OFFICER ASSAULT
|
|---|
| 20 | . I ESPCC=1 F ESPN=1:1 S VIC=$O(^ESP(912,ESPOFN,30,ESPN)) Q:VIC'>0 I $P(^ESP(912,ESPOFN,30,ESPN,0),U,5)["PO" S ESPBULL=1 QUIT
|
|---|
| 21 | . ;GOVT. PROPERTY THEFT > $5,000
|
|---|
| 22 | . S LOSS=0
|
|---|
| 23 | . I ESPCC=11,ESPTYPE=46 F ESPN=1:1 S PROP=$O(^ESP(912,ESPOFN,90,ESPN)) Q:PROP'>0 S LOSS=LOSS+$P($G(^ESP(912,ESPOFN,90,ESPN,0)),U,3)
|
|---|
| 24 | . I LOSS>5000 S ESPBULL=1
|
|---|
| 25 | ;SEND BULLETIN IF MEETS VACO REPORTING CRITERIA
|
|---|
| 26 | G:'$D(ESPBULL) EXIT
|
|---|
| 27 | S ESPDTR=$P(^ESP(912,ESPOFN,0),U,2),XMB(1)=$$CONV^ESPUOR(ESPDTR),XMB="ESP VACO 48 HR CRITERIA"
|
|---|
| 28 | D EN^XMB
|
|---|
| 29 | EXIT K ESPBULL,ESPCC,ESPCL,ESPCN,ESPN,ESPSUB,ESPTYPE,ESPX,LOSS,PROP,VIC
|
|---|
| 30 | QUIT
|
|---|
