source: FOIAVistA/trunk/r/POLICE_AND_SECURITY-ES/ESPOFF3.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.3 KB
Line 
1ESPOFF3 ;DALISC/CKA - OFFENSE REPORT INPUT (CONT.);9/92
2 ;;1.0;POLICE & SECURITY;;Mar 31, 1994
3EN Q ;Called from ESPOFF2
4 ;Check if this report falls within VACO 48 hour reporting criteria
5CHECK ; 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
29EXIT K ESPBULL,ESPCC,ESPCL,ESPCN,ESPN,ESPSUB,ESPTYPE,ESPX,LOSS,PROP,VIC
30 QUIT
Note: See TracBrowser for help on using the repository browser.