source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPUCP3.m@ 767

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

initial load of WorldVistAEHR
File size: 5.3 KB
Line 
1ESPUCP3 ;DALISC/CKA -PRINT UNIFORM CRIME REPORT (CONT)- 3/93
2 ;;1.0;POLICE & SECURITY;**11,12,22**;Mar 31, 1994
3EN Q ;CALLED FROM ESPUCP2
4PRT ;PRINT REPORT CONTINUED- PRINTS 3RD PAGE
5 D HDR Q:END
6 W !!?25,"ROBBERY Total # : ",$G(^UTILITY("DIQ1",$J,912.41,DA,100,"E"))
7 W !!,"Armed Robbery : ",$G(^UTILITY("DIQ1",$J,912.41,DA,101,"E"))
8 W ?40,"$100 & Above : ",$G(^UTILITY("DIQ1",$J,912.41,DA,102,"E"))
9 W !?40,"<$100 : ",$G(^UTILITY("DIQ1",$J,912.41,DA,103,"E"))
10 W !,"Strong Armed Robbery : ",$G(^UTILITY("DIQ1",$J,912.41,DA,104,"E"))
11 W ?40,"$100 & Above : ",$G(^UTILITY("DIQ1",$J,912.41,DA,105,"E"))
12 W !?40,"<$100 : ",$G(^UTILITY("DIQ1",$J,912.41,DA,106,"E"))
13 W !,"Drugs Only : ",$G(^UTILITY("DIQ1",$J,912.41,DA,107,"E"))
14 W ?40,"Robbery Total $ Loss : ",$G(^UTILITY("DIQ1",$J,912.41,DA,108,"E"))
15 W !?40,"Robbery Total $ Recovered : ",$G(^UTILITY("DIQ1",$J,912.41,DA,109,"E"))
16 I $Y+15>IOSL D HDR1 Q:END
17 W !!!?25,"STOPS & ARRESTS Total # : ",$G(^UTILITY("DIQ1",$J,912.41,DA,110,"E"))
18 W !!,"Physical Arrests : ",$G(^UTILITY("DIQ1",$J,912.41,DA,111,"E"))
19 W !!,?15,"Offender"
20 W !!?10,"Employee: ",$G(^UTILITY("DIQ1",$J,912.41,DA,112,"E"))
21 W ?30,"Outsider: ",$G(^UTILITY("DIQ1",$J,912.41,DA,113,"E"))
22 W !?10,"Patient : ",$G(^UTILITY("DIQ1",$J,912.41,DA,114,"E"))
23 W ?30,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.41,DA,115,"E"))
24 W !!,"Stops for Questioning : ",$G(^UTILITY("DIQ1",$J,912.41,DA,116,"E"))
25 W ?40,"Package Stops : ",$G(^UTILITY("DIQ1",$J,912.41,DA,117,"E"))
26 W !?40,"Non-Package Stops : ",$G(^UTILITY("DIQ1",$J,912.41,DA,118,"E"))
27 I $Y+15>IOSL D HDR1 Q:END
28 W !!!?25,"THEFTS Total # : ",$G(^UTILITY("DIQ1",$J,912.41,DA,119,"E"))
29 W !!,"Coin-Operated Machines : ",$G(^UTILITY("DIQ1",$J,912.41,DA,120,"E"))
30 W ?40,"Total $ Loss : ",$G(^UTILITY("DIQ1",$J,912.41,DA,121,"E"))
31 W !?40,"Total $ Recovery : ",$G(^UTILITY("DIQ1",$J,912.41,DA,122,"E"))
32 W !!,"Actual Drug Thefts : ",$G(^UTILITY("DIQ1",$J,912.41,DA,123,"E"))
33 W ?40,"Controlled Substance : ",$G(^UTILITY("DIQ1",$J,912.41,DA,125,"E"))
34 W !?40,"Non-Controlled Substance : ",$G(^UTILITY("DIQ1",$J,912.41,DA,126,"E"))
35 W !!,"Attempted Drug Thefts : ",$G(^UTILITY("DIQ1",$J,912.41,DA,124,"E"))
36 W ?40,"Controlled Substance : ",$G(^UTILITY("DIQ1",$J,912.41,DA,127,"E"))
37 W !?40,"Non-Controlled Substance : ",$G(^UTILITY("DIQ1",$J,912.41,DA,128,"E"))
38 W !!,"Total Drug Thefts : ",$G(^UTILITY("DIQ1",$J,912.41,DA,129,"E"))
39 W ?40,"Total Drug $ Loss : ",$G(^UTILITY("DIQ1",$J,912.41,DA,130,"E"))
40 W !?40,"Total Drug $ Recovered : ",$G(^UTILITY("DIQ1",$J,912.41,DA,131,"E"))
41 I $Y+15>IOSL D HDR1 Q:END
42 S ESPBEG=$P(^ESP(912.4,ESPIEN,0),U,1)
43 W !!,"Government Property : ",$G(^UTILITY("DIQ1",$J,912.41,DA,132,"E"))
44 I ESPBEG<2971001 D
45 . W ?40,"$100 & Above : ",$G(^UTILITY("DIQ1",$J,912.41,DA,133,"E"))
46 . W !?40,"< $100 : ",$G(^UTILITY("DIQ1",$J,912.41,DA,134,"E"))
47 I ESPBEG>2970930.2359 D
48 . W ?40,"$1000 & Above : ",$G(^UTILITY("DIQ1",$J,912.41,DA,133.1,"E"))
49 . W !?40,"< $1000 : ",$G(^UTILITY("DIQ1",$J,912.41,DA,134.1,"E"))
50 W !?40,"Total Gov't $ Loss : ",$G(^UTILITY("DIQ1",$J,912.41,DA,135,"E"))
51 W !?40,"Total Gov't $ Recovered : ",$G(^UTILITY("DIQ1",$J,912.41,DA,136,"E"))
52 I $Y+10>IOSL D HDR1 Q:END
53 W !!,"Personal Property : ",$G(^UTILITY("DIQ1",$J,912.41,DA,137,"E"))
54 I ESPBEG<2971001 D
55 . W ?40,"$100 & Above : ",$G(^UTILITY("DIQ1",$J,912.41,DA,138,"E"))
56 . W !?40,"< $100 : ",$G(^UTILITY("DIQ1",$J,912.41,DA,139,"E"))
57 I ESPBEG>2970930.2359 D
58 . W ?40,"$1000 & Above : ",$G(^UTILITY("DIQ1",$J,912.41,DA,138.1,"E"))
59 . W !?40,"< $1000 : ",$G(^UTILITY("DIQ1",$J,912.41,DA,139.1,"E"))
60 W !?40,"Total Personal $ Loss : ",$G(^UTILITY("DIQ1",$J,912.41,DA,140,"E"))
61 W !?40,"Total Personal $ Recovered : ",$G(^UTILITY("DIQ1",$J,912.41,DA,141,"E"))
62 W !!,"Government Motor Vehicles : ",$G(^UTILITY("DIQ1",$J,912.41,DA,143,"E"))
63 W ?40,"Gov't Vehicles Recovered : ",$G(^UTILITY("DIQ1",$J,912.41,DA,146,"E"))
64 W !?40,"$ Loss Gov't Vehicles : ",$G(^UTILITY("DIQ1",$J,912.41,DA,144,"E"))
65 W !?40,"$ Recovered Gov't Vehicles : ",$G(^UTILITY("DIQ1",$J,912.41,DA,145,"E"))
66 W !!,"Private Motor Vehicles : ",$G(^UTILITY("DIQ1",$J,912.41,DA,147,"E"))
67 W ?40,"Private Vehicles Recovered : ",$G(^UTILITY("DIQ1",$J,912.41,DA,150,"E"))
68 W !?40,"$ Loss Private Vehicles : ",$G(^UTILITY("DIQ1",$J,912.41,DA,148,"E"))
69 W !?40,"$ Recovered Private Vehicles: ",$G(^UTILITY("DIQ1",$J,912.41,DA,149,"E"))
70 D PRT^ESPUCP4
71 QUIT
72EX W !!,"Done." Q
73HDR ;PRINT HEADING
74 I $E(IOST,1,2)="C-" S END=$$EOP^ESPUTIL() Q:END
75 S PAGE=PAGE+1 W @IOF,!?25,"UNIFORM CRIME REPORT",?70,"PAGE ",$J(PAGE,3)
76 W !!,"VA Facility ",$P(^ESP(912.4,ESPIEN,1,1,0),U)
77BDT W ?45,"BEGINNING DATE: ",$G(^UTILITY("DIQ1",$J,912.4,ESPIEN,.01,"E"))
78EDT W !,"Date/Time Printed",?45,"ENDING DATE: ",$G(^UTILITY("DIQ1",$J,912.4,ESPIEN,.02,"E"))
79 W !,$$NOW^ESPUTIL()
80 QUIT
81HDR1 I $E(IOST,1,2)="C-" S END=$$EOP^ESPUTIL() Q:END
82 S PAGE=PAGE+1 W @IOF,!?70,"PAGE ",$J(PAGE,3)
83 QUIT
Note: See TracBrowser for help on using the repository browser.