source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPORM4.m

Last change on this file was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 3.1 KB
Line 
1ESPORM4 ;DALISC/CKA - OFFENSE REPORT IN MAIL MESSAGE CONT. ;4/93
2 ;;1.0;POLICE & SECURITY;;Mar 31, 1994
3EN ;CONTINUED FROME ESPORM3
4HELD ;PRINT PROPERTY HELD
5 G:'$D(^ESP(912,ESPID,100)) CIP
6 D HDR:$Y+5>IOSL
7 F ESPN=0:0 S ESPN=$O(^ESP(912,ESPID,100,ESPN)) Q:ESPN'>0 D
8 . S DIC="^ESP(912,"_ESPID_",100,",DA=ESPN,DR=".01:.03",DIQ(0)="E" D EN^DIQ1 Q:'$D(^UTILITY("DIQ1",$J,912.02,DA))
9 . S ESPX=" " D MSG F I=1:1:16 S ESPX=ESPX_"* "
10 . S ESPX=ESPX_"PROPERTY HELD" F I=1:1:17 S ESPX=ESPX_" *"
11 . D MSG
12 . S ESPX=" " D MSG S ESPX="ITEM #: "_$G(^UTILITY("DIQ1",$J,912.02,DA,.01,"E")) D MSG
13 . S ESPX="QUANTITY: "_$G(^UTILITY("DIQ1",$J,912.02,DA,.02,"E")) D MSG
14 . S ESPX="PURPOSE: "_$G(^UTILITY("DIQ1",$J,912.02,DA,.03,"E")) D MSG
15 . S ESPX="DESCRIPTION:" D MSG S ESPX=" " D MSG
16 . F ESPN1=0:0 S ESPN1=$O(^ESP(912,ESPID,100,ESPN,10,ESPN1)) Q:ESPN1'>0 S ESPX=$E(SPACES,1,7)_^(ESPN1,0) D MSG
17 . S ESPX=" " D MSG
18CIP ;PRINT CIP WEAPON AND BATON USED
19 F ESPN=1:1:3 S ESPX=" " D MSG
20 S DIC="^ESP(912,",DA=ESPID,DR="1.01:1.02",DIQ(0)="E" D EN^DIQ1
21 S ESPX="WAS CIP WEAPON USED? "_$G(^UTILITY("DIQ1",$J,912,DA,1.01,"E")) D MSG
22 S ESPX="WAS POLICE BATON USED? "_$G(^UTILITY("DIQ1",$J,912,DA,1.02,"E")) D MSG
23OTH ;PRINT OTHER AGENCY DATA
24 S ESPX=" " D MSG S ESPX="OTHER AGENCY NOTIFIED" D MSG S ESPX=" " D MSG
25 G:'$D(^ESP(912,ESPID,110)) ATTY
26 D HDR:$Y+5>IOSL
27 F ESPN=0:0 S ESPN=$O(^ESP(912,ESPID,110,ESPN)) Q:ESPN'>0 D
28 . S DIC="^ESP(912,"_ESPID_",110,",DA=ESPN,DR=".01;.02;.03",DIQ(0)="E" D EN^DIQ1 Q:'$D(^UTILITY("DIQ1",$J,912.14,DA,.01,"E"))
29 . S ESPX="DATE/TIME NOTIFIED: "_$G(^UTILITY("DIQ1",$J,912.14,DA,.01,"E")) D MSG
30 . S ESPX="CONTACT PERSON: "_$G(^UTILITY("DIQ1",$J,912.14,DA,.02,"E")) D MSG
31 . S ESPX="AGENCY: "_$G(^UTILITY("DIQ1",$J,912.14,DA,.03,"E")) D MSG
32ATTY ;PRINT U.S. ATTY DATA
33 S ESPX=" " D MSG S ESPX="U.S. ATTORNEY NOTIFIED" D MSG S ESPX=" " D MSG
34 G:'$D(^ESP(912,ESPID,120)) CONT
35 D HDR:$Y+5>IOSL
36 F ESPN=0:0 S ESPN=$O(^ESP(912,ESPID,120,ESPN)) Q:ESPN'>0 D
37 . S DIC="^ESP(912,"_ESPID_",120,",DA=ESPN,DR=".01",DIQ(0)="E" D EN^DIQ1 Q:'$D(^UTILITY("DIQ1",$J,912.15,DA,.01,"E"))
38 . S ESPX="DATE/TIME NOTIFIED: "_$G(^UTILITY("DIQ1",$J,912.15,DA,.01,"E")) D MSG
39 . S ESPX="INSTRUCTIONS RECEIVED:" D MSG S ESPX=" " D MSG
40 . S IEN=0
41 . F ESPN1=1:1 S IEN=$O(^ESP(912,ESPID,120,DA,10,IEN)) Q:IEN'>0 S ESPX=$E(SPACES,1,7)_^(IEN,0) D MSG
42CONT G ^ESPORM5
43EXIT K DA,DIC,DIQ,DIRUT,ESPDOB,ESPDOBP,DR,DTOUT,DUOUT,ESPDTR,ESPFN,ESPI,ESPID,ESPL,ESPN,ESPN1,ESPOFF,ESPX,ESPZ,I,IEN,PAGE,SPACES,SSN,X,X1,X2,XMDUN,XMSUB,XMTEXT,Y
44 K ^UTILITY("DIQ1",$J),^TMP($J,"UORM")
45 QUIT
46HDR ;PRINT HEADING
47 S PAGE=PAGE+1 S ESPX=$E(SPACES,1,25)_"DEPARTMENT OF VETERANS AFFAIRS"_$E(SPACES,1,IOM-10)_"PAGE: "_$J(PAGE,3)
48 D MSG
49 S ESPX=$E(SPACES,1,35)_"VA POLICE"
50 S ESPX=$E(SPACES,1,28)_"UNIFORM OFFENSE REPORT"
51 D MSG
52 S ESPX=$E(SPACES,1,30)_"UOR# "_$E(ESPDTR,2,3)_"-"_$E(ESPDTR,4,5)_"-"_$E(ESPDTR,6,7)_"-"_$TR($E($P(ESPDTR,".",2)_"ZZZZ",1,4),"Z",0)
53 D MSG
54 S ESPX="VA Facility" D MSG
55 I $D(^ESP(912,ESPID,5)),$P(^(5),U)'="" S ESPX=$S($D(^DIC(4,$P(^(5),U),0)):$P(^(0),U),1:"") D MSG
56 S ESPX="Automated VA Form 10-1393" D MSG
57 F ESPI=1:1:2 S ESPX=" " D MSG
58 QUIT
59MSG S ^TMP($J,"UORM",ESPL)=ESPX,ESPL=ESPL+1
60 QUIT
Note: See TracBrowser for help on using the repository browser.