source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPUCFP3.m@ 949

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

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