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

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

initial load of WorldVistAEHR

File size: 4.0 KB
Line 
1ESPORM3 ;DALISC/CKA - OFFENSE REPORT IN MAIL MESSAGE CONT. ;3/93
2 ;;1.0;POLICE & SECURITY;;Mar 31, 1994
3EN ;CONTINUED FROME ESPORM2
4WIT ;PRINT WITNESSES
5 G:'$D(^ESP(912,ESPID,50)) VEH
6 D HDR:$Y+5>IOSL
7 F ESPN=0:0 S ESPN=$O(^ESP(912,ESPID,50,ESPN)) Q:ESPN'>0 D
8 . S DIC="^ESP(912,"_ESPID_",50,",DA=ESPN,DR=".02;1.01:1.06;2.01:2.06",DIQ(0)="E" D EN^DIQ1 Q:'$D(^UTILITY("DIQ1",$J,912.06,DA))
9 . S ESPX=" " D MSG F I=1:1:16 S ESPX=ESPX_"* "
10 . S ESPX=ESPX_"WITNESS DATA" F I=1:1:17 S ESPX=ESPX_" *"
11 . D MSG
12 . S ESPX=" " D MSG S ESPX="WITNESS NAME: "_$G(^UTILITY("DIQ1",$J,912.06,DA,.02,"E")) D MSG
13 . S ESPX="HOME ADDRESS: "_$G(^UTILITY("DIQ1",$J,912.06,DA,1.01,"E"))
14 . I $G(^UTILITY("DIQ1",$J,912.06,DA,1.02,"E"))]"" S ESPX=$E(SPACES,1,14)_^("E")
15 . I $G(^UTILITY("DIQ1",$J,912.06,DA,1.03,"E"))]"" S ESPX=$E(SPACES,1,14)_^("E")_","
16 . S ESPX=ESPX_$G(^UTILITY("DIQ1",$J,912.06,DA,1.04,"E"))_" "_$G(^UTILITY("DIQ1",$J,912.04,DA,1.05,"E")) D MSG
17 . S ESPX="HOME PHONE: "_$G(^UTILITY("DIQ1",$J,912.06,DA,1.06,"E")) D MSG
18 . S ESPX="WORK ADDRESS: "_$G(^UTILITY("DIQ1",$J,912.06,DA,2.01,"E")) D MSG
19 . I $G(^UTILITY("DIQ1",$J,912.06,DA,2.02,"E"))]"" S ESPX=$E(SPACES,1,14)_^("E") D MSG
20 . I $G(^UTILITY("DIQ1",$J,912.06,DA,2.03,"E"))]"" S ESPX=$E(SPACES,1,14)_^("E")_","
21 . S ESPX=ESPX_$G(^UTILITY("DIQ1",$J,912.06,DA,2.04,"E"))_" "_$G(^UTILITY("DIQ1",$J,912.04,DA,2.05,"E")) D MSG
22 . S ESPX="WORK PHONE: "_$G(^UTILITY("DIQ1",$J,912.06,DA,2.06,"E")) D MSG
23 ;
24VEH ;PRINT VEHICLE(S)
25 G:'$D(^ESP(912,ESPID,80)) LOST
26 D HDR:$Y+5>IOSL
27 F ESPN=0:0 S ESPN=$O(^ESP(912,ESPID,80,ESPN)) Q:ESPN'>0 D
28 . S DIC="^ESP(912,"_ESPID_",80,",DA=ESPN,DR=".02:.11",DIQ(0)="E" D EN^DIQ1 Q:'$D(^UTILITY("DIQ1",$J,912.09,DA))
29 . S ESPX=" " D MSG F I=1:1:15 S ESPX=ESPX_"* "
30 . S ESPX=ESPX_"VEHICLE INFORMATION" F I=1:1:15 S ESPX=ESPX_" *"
31 . D MSG
32 . S ESPX=" " D MSG S ESPX="LICENSE TAG # & STATE: "_$G(^UTILITY("DIQ1",$J,912.09,DA,.02,"E"))_" "_$G(^UTILITY("DIQ1",$J,912.09,DA,.03,"E")) D MSG
33 . S ESPX="MAKE: "_$G(^UTILITY("DIQ1",$J,912.09,DA,.04,"E"))
34 . S ESPX=ESPX_" MODEL: "_$G(^UTILITY("DIQ1",$J,912.09,DA,.05,"E")) D MSG
35 . S ESPX="STYLE: "_$G(^UTILITY("DIQ1",$J,912.09,DA,.06,"E")) D MSG
36 . S ESPX="COLOR: "_$G(^UTILITY("DIQ1",$J,912.09,DA,.07,"E")) D MSG
37 . S ESPX="DECAL # & COLOR: "_$G(^UTILITY("DIQ1",$J,912.09,DA,.08,"E"))_" "_$G(^UTILITY("DIQ1",$J,912.09,DA,.09,"E")) D MSG
38 . S ESPX="YEAR OF MANUFACTURE: "_$G(^UTILITY("DIQ1",$J,912.09,DA,.1,"E")) D MSG
39 . S ESPX="OWNER NAME: "_$G(^UTILITY("DIQ1",$J,912.09,DA,.11,"E")) D MSG
40LOST ;PRINT LOST PROPERTY
41 G:'$D(^ESP(912,ESPID,90)) CONT
42 D HDR:$Y+5>IOSL
43 F ESPN=0:0 S ESPN=$O(^ESP(912,ESPID,90,ESPN)) Q:ESPN'>0 D
44 . S DIC="^ESP(912,"_ESPID_",90,",DA=ESPN,DR=".01:.04",DIQ(0)="E" D EN^DIQ1 Q:'$D(^UTILITY("DIQ1",$J,912.1,DA))
45 . S ESPX=" " D MSG F I=1:1:15 S ESPX=ESPX_"* "
46 . S ESPX=ESPX_"LOST/STOLEN PROPERTY" F I=1:1:14 S ESPX=ESPX_" *"
47 . D MSG
48 . S ESPX=" " D MSG S ESPX="ITEM NAME: "_$G(^UTILITY("DIQ1",$J,912.1,DA,.01,"E")) D MSG
49 . S ESPX="DESCRIPTION: "_$G(^UTILITY("DIQ1",$J,912.1,DA,.02,"E")) D MSG
50 . S ESPX="DOLLAR LOSS: "_$G(^UTILITY("DIQ1",$J,912.1,DA,.03,"E")) D MSG
51 . S ESPX="DOLLAR RECOVERED: "_$G(^UTILITY("DIQ1",$J,912.1,DA,.04,"E")) D MSG
52CONT G ^ESPORM4
53EXIT K DA,DIC,DIQ,DIRUT,ESPDOB,ESPDOBP,DR,DTOUT,DUOUT,ESPDTR,ESPFN,ESPI,ESPID,ESPL,ESPN,ESPN1,ESPX,I,IEN,PAGE,SPACES,SSN,X,X1,X2,Y
54 K ^UTILITY("DIQ1",$J),^TMP($J,"UORM")
55 QUIT
56HDR ;PRINT HEADING
57 S PAGE=PAGE+1 S ESPX=$E(SPACES,1,25)_"DEPARTMENT OF VETERANS AFFAIRS"_$E(SPACES,1,IOM-10)_"PAGE: "_$J(PAGE,3)
58 D MSG
59 S ESPX=$E(SPACES,1,35)_"VA POLICE"
60 S ESPX=$E(SPACES,1,28)_"UNIFORM OFFENSE REPORT"
61 D MSG
62 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)
63 D MSG
64 S ESPX="VA Facility" D MSG
65 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
66 S ESPX="Automated VA Form 10-1393" D MSG
67 F ESPI=1:1:2 S ESPX=" " D MSG
68 QUIT
69MSG S ^TMP($J,"UORM",ESPL)=ESPX,ESPL=ESPL+1
70 QUIT
Note: See TracBrowser for help on using the repository browser.