source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPORP3.m@ 808

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

initial load of WorldVistAEHR
File size: 3.6 KB
Line 
1ESPORP3 ;DALISC/CKA - PRINT OFFENSE REPORT CONT. ;10/92
2 ;;1.0;POLICE & SECURITY;**6,10,17**;Mar 31, 1994
3EN ;CONTINUED FROM ESPORP2
4WIT ;PRINT WITNESSES
5 G:'$D(^ESP(912,ESPID,50)) VEH
6 F ESPN=0:0 S ESPN=$O(^ESP(912,ESPID,50,ESPN)) Q:ESPN'>0!(END) D
7 . 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))
8 . D MIN^ESPORP(10) Q:END
9 . D LINES^ESPORP(2) Q:END F I=1:1:16 W "* "
10 . W "WITNESS DATA" F I=1:1:17 W " *"
11 . D LINES^ESPORP(2) Q:END W "WITNESS NAME: ",$G(^UTILITY("DIQ1",$J,912.06,DA,.02,"E"))
12 . D LINES^ESPORP() Q:END W "HOME ADDRESS: ",$G(^UTILITY("DIQ1",$J,912.06,DA,1.01,"E"))
13 . I $G(^UTILITY("DIQ1",$J,912.06,DA,1.02,"E"))]"" D LINES^ESPORP() Q:END W ?14,$G(^UTILITY("DIQ1",$J,912.06,DA,1.02,"E"))
14 . I $G(^UTILITY("DIQ1",$J,912.06,DA,1.03,"E"))]"" D LINES^ESPORP() Q:END W ?14,$G(^UTILITY("DIQ1",$J,912.06,DA,1.03,"E")),","
15 . W $G(^UTILITY("DIQ1",$J,912.06,DA,1.04,"E"))," ",$G(^UTILITY("DIQ1",$J,912.06,DA,1.05,"E"))
16 . D LINES^ESPORP() Q:END W "HOME PHONE: ",$G(^UTILITY("DIQ1",$J,912.06,DA,1.06,"E"))
17 . D LINES^ESPORP() Q:END W "WORK ADDRESS: ",$G(^UTILITY("DIQ1",$J,912.06,DA,2.01,"E"))
18 . I $G(^UTILITY("DIQ1",$J,912.06,DA,2.02,"E"))]"" D LINES^ESPORP() Q:END W ?14,$G(^UTILITY("DIQ1",$J,912.06,DA,2.02,"E"))
19 . I $G(^UTILITY("DIQ1",$J,912.06,DA,2.03,"E"))]"" D LINES^ESPORP() Q:END W ?14,$G(^UTILITY("DIQ1",$J,912.06,DA,2.03,"E")),","
20 . W $G(^UTILITY("DIQ1",$J,912.06,DA,2.04,"E"))," ",$G(^UTILITY("DIQ1",$J,912.06,DA,2.05,"E"))
21 . D LINES^ESPORP() Q:END W "WORK PHONE: ",$G(^UTILITY("DIQ1",$J,912.06,DA,2.06,"E"))
22 ;
23VEH ;PRINT VEHICLE(S)
24 G:'$D(^ESP(912,ESPID,80)) LOST
25 F ESPN=0:0 S ESPN=$O(^ESP(912,ESPID,80,ESPN)) Q:ESPN'>0!(END) D
26 . 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))
27 . D MIN^ESPORP(10) Q:END
28 . D LINES^ESPORP(2) Q:END F I=1:1:15 W "* "
29 . W "VEHICLE INFORMATION" F I=1:1:15 W " *"
30 . D LINES^ESPORP(2) Q:END W "LICENSE TAG # & STATE: ",$G(^UTILITY("DIQ1",$J,912.09,DA,.02,"E"))," ",$G(^UTILITY("DIQ1",$J,912.09,DA,.03,"E"))
31 . D LINES^ESPORP() Q:END W "MAKE: ",$G(^UTILITY("DIQ1",$J,912.09,DA,.04,"E"))
32 . W ?35,"MODEL: ",$G(^UTILITY("DIQ1",$J,912.09,DA,.05,"E"))
33 . D LINES^ESPORP() Q:END W "STYLE: ",$G(^UTILITY("DIQ1",$J,912.09,DA,.06,"E"))
34 . D LINES^ESPORP() Q:END W "COLOR: ",$G(^UTILITY("DIQ1",$J,912.09,DA,.07,"E"))
35 . D LINES^ESPORP() Q:END W "DECAL # & COLOR: ",$G(^UTILITY("DIQ1",$J,912.09,DA,.08,"E"))," " W:$G(^UTILITY("DIQ1",$J,912.09,DA,.09,"E"))'=0 ^("E")
36 . D LINES^ESPORP() Q:END W "YEAR OF MANUFACTURE: ",$G(^UTILITY("DIQ1",$J,912.09,DA,.1,"E"))
37 . D LINES^ESPORP() Q:END W "OWNER NAME: ",$G(^UTILITY("DIQ1",$J,912.09,DA,.11,"E"))
38LOST ;PRINT LOST PROPERTY
39 G:END EXIT
40 G:'$D(^ESP(912,ESPID,90)) CONT
41 F ESPN=0:0 S ESPN=$O(^ESP(912,ESPID,90,ESPN)) Q:ESPN'>0!(END) D
42 . 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))
43 . D MIN^ESPORP(10) Q:END
44 . D LINES^ESPORP(2) Q:END F I=1:1:15 W "* "
45 . W "LOST/STOLEN PROPERTY" F I=1:1:14 W " *"
46 . D LINES^ESPORP(2) Q:END W "ITEM NAME: ",$G(^UTILITY("DIQ1",$J,912.1,DA,.01,"E"))
47 . D LINES^ESPORP() Q:END W "DESCRIPTION: ",$G(^UTILITY("DIQ1",$J,912.1,DA,.02,"E"))
48 . D LINES^ESPORP() Q:END W "DOLLAR LOSS: ",$G(^UTILITY("DIQ1",$J,912.1,DA,.03,"E"))
49 . D LINES^ESPORP() Q:END W "DOLLAR RECOVERED: ",$G(^UTILITY("DIQ1",$J,912.1,DA,.04,"E"))
50CONT G ^ESPORP4
51EXIT K CL,DA,DIC,DIQ,DIR,DIRUT,DIWF,DIWL,DIWR,ESPDOB,ESPDOBP,DR,DTOUT,DUOUT,END,ESPDTR,ESPID,ESPFN,ESPN,ESPN1,IEN,PAGE,SSN,X,Y
52 K ^UTILITY("DIQ1",$J)
53 QUIT
Note: See TracBrowser for help on using the repository browser.