source: FOIAVistA/trunk/r/POLICE_AND_SECURITY-ES/ESPOFF2.m@ 794

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

initial load of FOIAVistA 6/30/08 version

File size: 3.6 KB
Line 
1ESPOFF2 ;DALISC/CKA - OFFENSE REPORT INPUT (CONT.);9/92
2 ;;1.0;POLICE & SECURITY;**39**;Mar 31, 1994
3EN ;Q;Requires ^TMP($J) be defined
4 ;Continuation from ESPOFF1- stuffing data in Offense file
5W ;STUFF WITNESS DATA
6 F ESPN=0:0 S ESPN=$O(^TMP($J,"UOR","W",ESPN)) Q:ESPN="" S ESPFN=^(ESPN) D
7 . S:'$D(^ESP(912,ESPOFN,50,0)) ^(0)="^912.06^^"
8 . K DD,DO S DIC="^ESP(912,"_ESPOFN_",50,",DIC(0)="L",DLAYGO=912,X=ESPN,DA(1)=ESPOFN D FILE^DICN
9 . S WIT0=$G(^ESP(910,ESPFN,0)),^ESP(912,ESPOFN,50,ESPN,0)=ESPN_"^"_ESPFN
10 . S ^ESP(912,ESPOFN,50,ESPN,1)=$G(^ESP(910,ESPFN,1)),^ESP(912,ESPOFN,50,ESPN,2)=$G(^ESP(910,ESPFN,2))
11 . S DIK="^ESP(912,"_ESPOFN_",50,",DA=ESPN D IX1^DIK K DIK,DA
12MO ;STUFF METHOD OF OPERATION DATA
13 S %X="^TMP("_$J_",""MO"",",%Y="^ESP(912,"_ESPOFN_",60," D %XY^%RCR
14NAR ;STUFF NARRATIVE DATA
15 ;STUFF ORIGIN
16 S %X="^TMP("_$J_",""N1"",",%Y="^ESP(912,"_ESPOFN_",70," D %XY^%RCR
17 ;STUFF INITIAL DISPOSITION
18 S %X="^TMP("_$J_",""N2"",",%Y="^ESP(912,"_ESPOFN_",72," D %XY^%RCR
19 ;STUFF INVESTIGATION
20 S %X="^TMP("_$J_",""N3"",",%Y="^ESP(912,"_ESPOFN_",73," D %XY^%RCR
21 ;STUFF DISPOSITION
22 S %X="^TMP("_$J_",""N4"",",%Y="^ESP(912,"_ESPOFN_",74," D %XY^%RCR
23VEH ;STUFF VEHICLE DATA
24 F ESPN=0:0 S ESPN=$O(^TMP($J,"UOR","VE",ESPN)) Q:ESPN="" S VEH=^(ESPN) D
25 . S:'$D(^ESP(912,ESPOFN,80,0)) ^(0)="^912.09^^"
26 . K DD,DO S DIC="^ESP(912,"_ESPOFN_",80,",DIC(0)="L",DLAYGO=912,X=ESPN,DA(1)=ESPOFN D FILE^DICN
27 . S ^ESP(912,ESPOFN,80,ESPN,0)=^TMP($J,"UOR","VE",ESPN)
28 . ;X-REF
29 . S DIK="^ESP(912,"_ESPOFN_",80,",DA=ESPN D IX1^DIK K DIK,DA
30LOST ;STUFF LOST PROPERTY DATA
31 S ESPX=""
32 F ESPN=1:1 S ESPX=$O(^TMP($J,"UOR","P",ESPX)) Q:ESPX="" S LOST=^(ESPX) D
33 . S:'$D(^ESP(912,ESPOFN,90,0)) ^(0)="^912.1^^"
34 . K DD,DO S DIC="^ESP(912,"_ESPOFN_",90,",DIC(0)="L",DLAYGO=912,X=ESPX,DA(1)=ESPOFN D FILE^DICN
35 . S ^ESP(912,ESPOFN,90,ESPN,0)=^TMP($J,"UOR","P",ESPX)
36 . ;X-REF
37 . S DIK="^ESP(912,"_ESPOFN_",90,",DA=ESPN D IX1^DIK K DIK,DA
38HELD ;STUFF HELD PROPERTY DATA
39 F ESPN=0:0 S ESPN=$O(^TMP($J,"UOR","PH",ESPN)) Q:ESPN="" S HELD=^(ESPN) D
40 . S:'$D(^ESP(912,ESPOFN,100,0)) ^(0)="^912.02^^"
41 . K DD,DO S DIC="^ESP(912,"_ESPOFN_",100,",DIC(0)="L",DLAYGO=912,X=ESPN,DA(1)=ESPOFN
42 . S ^ESP(912,ESPOFN,100,ESPN,0)=^TMP($J,"UOR","PH",ESPN)
43 . ;STUFF DESCRIPTION
44 . S %X="^TMP("_$J_",""DE"","_ESPN_",",%Y="^ESP(912,"_ESPOFN_",100,"_ESPN_",10," D %XY^%RCR
45 . ;X-REF
46 . S DIK="^ESP(912,"_ESPOFN_",100,",DA=ESPN D IX1^DIK K DIK,DA
47OTH ;STUFF OTHER AGENCY NOTIFICATION DATA
48 F ESPN=0:0 S ESPN=$O(^TMP($J,"UOR","OTH",ESPN)) Q:ESPN="" S OTH=^(ESPN) D
49 . S:'$D(^ESP(912,ESPOFN,110,0)) ^(0)="^912.14D^^"
50 . K DD,DO S DIC="^ESP(912,"_ESPOFN_",110,",DIC(0)="L",DLAYGO=912,X=ESPN,DA(1)=ESPOFN
51 . S ^ESP(912,ESPOFN,110,ESPN,0)=^TMP($J,"UOR","OTH",ESPN)
52 . ;X-REF
53 . S DIK="^ESP(912,"_ESPOFN_",110,",DA=ESPN D IX1^DIK K DIK,DA
54ATY ;STUFF U.S. ATTORNEY NOTIFICATIONS DATA
55 F ESPN=0:0 S ESPN=$O(^TMP($J,"UOR","ATY",ESPN)) Q:ESPN="" S ATY=^(ESPN) D
56 . S:'$D(^ESP(912,ESPOFN,120,0)) ^(0)="^912.15D^^"
57 . K DD,DO S DIC="^ESP(912,"_ESPOFN_",120,",DIC(0)="L",DLAYGO=912,X=ESPN,DA(1)=ESPOFN
58 . S ^ESP(912,ESPOFN,120,ESPN,0)=^TMP($J,"UOR","ATY",ESPN)
59 . ;STUFF INSTRUCTIONS RECEIVED
60 . S %X="^TMP("_$J_",""INS"","_ESPN_",",%Y="^ESP(912,"_ESPOFN_",120,"_ESPN_",10," D %XY^%RCR
61 . ;X-REF
62 . S DIK="^ESP(912,"_ESPOFN_",120,",DA=ESPN D IX1^DIK K DIK,DA
63 N DC S DC=$P(UOR0,U,6),DIK="^ESP(912,",DA=ESPOFN D IX1^DIK K DIK,DA,DC
64 W !!,"Done."
65 L -^ESP(912,ESPOFN)
66 D CHECK^ESPOFF3
67 S ESPID=ESPOFN
68EXIT K %X,%Y,ATY,CH,CHD,CL,COMP0,DA,DD,DIC,DIR,DIRUT,DIK,DO,DUOUT,ESPCL,ESPD,ESPFN,ESPI,ESPN,ESPNO,ESPNOT,ESPN1,ESPOFF,ESPS,ESPTEST,ESPX,ESPY,HELD,I,LOST,NOUPD,OFF,OFF0,OFF3,OTH,TMPN,UOR0,VEH,VIC0,WIT0,X,Y,^TMP($J)
69 D PRT^ESPOFFE
70 QUIT
Note: See TracBrowser for help on using the repository browser.