source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPUCP1.m@ 789

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

initial load of WorldVistAEHR
File size: 4.9 KB
Line 
1ESPUCP1 ;DALISC/CKA -PRINT UNIFORM CRIME REPORT (CONT)- 3/93
2 ;;1.0;POLICE & SECURITY;**11**;Mar 31, 1994
3EN Q ;CALLED FROM ESPUCP
4PRT ;PRINT REPORT CONTINUED- PRINTS FIRST PAGE
5 S DIC="^ESP(912.4,"_ESPIEN_",1,",DA=ESPN,DR="1:188",DIQ(0)="E" D EN^DIQ1 Q:'$D(^UTILITY("DIQ1",$J,912.41,DA))
6 W !!?25,"ASSAULTS Total # : ",$G(^UTILITY("DIQ1",$J,912.41,DA,1,"E"))
7 W !!,"Aggravated : ",$G(^UTILITY("DIQ1",$J,912.41,DA,2,"E"))
8 W ?40,"Dangerous : ",$G(^UTILITY("DIQ1",$J,912.41,DA,3,"E"))
9 W !,"Kidnapping : ",$G(^UTILITY("DIQ1",$J,912.41,DA,4,"E"))
10 W ?40,"No Weapon : ",$G(^UTILITY("DIQ1",$J,912.41,DA,5,"E"))
11 W !,"Simple : ",$G(^UTILITY("DIQ1",$J,912.41,DA,6,"E"))
12 W !!,?15,"Offender",?50,"Victim"
13 W !!?10,"Employee: ",$G(^UTILITY("DIQ1",$J,912.41,DA,7,"E")),?45,"Employee : ",$G(^UTILITY("DIQ1",$J,912.41,DA,12,"E"))
14 W !?10,"Outsider: ",$G(^UTILITY("DIQ1",$J,912.41,DA,8,"E")),?45,"Police Officer : ",$G(^UTILITY("DIQ1",$J,912.41,DA,13,"E"))
15 W !?10,"Patient : ",$G(^UTILITY("DIQ1",$J,912.41,DA,9,"E")),?45,"Outsider : ",$G(^UTILITY("DIQ1",$J,912.41,DA,14,"E"))
16 W !?10,"Unknown : ",$G(^UTILITY("DIQ1",$J,912.41,DA,10,"E")),?45,"Patient : ",$G(^UTILITY("DIQ1",$J,912.41,DA,15,"E"))
17 W !?10,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.41,DA,11,"E")),?45,"Unknown : ",$G(^UTILITY("DIQ1",$J,912.41,DA,16,"E"))
18 W !,?45,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.41,DA,17,"E"))
19 I $Y+5>IOSL D HDR1 Q:END
20 W !!!?25,"BURGLARIES Total # : ",$G(^UTILITY("DIQ1",$J,912.41,DA,18,"E"))
21 W !!,"All Other Areas : ",$G(^UTILITY("DIQ1",$J,912.41,DA,19,"E"))
22 W ?40,"Canteen : ",$G(^UTILITY("DIQ1",$J,912.41,DA,20,"E"))
23 W !,"Agent Cashier : ",$G(^UTILITY("DIQ1",$J,912.41,DA,21,"E"))
24 W ?40,"Locker Areas : ",$G(^UTILITY("DIQ1",$J,912.41,DA,22,"E"))
25 W !,"Office : ",$G(^UTILITY("DIQ1",$J,912.41,DA,23,"E"))
26 W ?40,"Pharmacy : ",$G(^UTILITY("DIQ1",$J,912.41,DA,24,"E"))
27 W !,"Vehicles : ",$G(^UTILITY("DIQ1",$J,912.41,DA,25,"E"))
28 W ?40,"Burglary Total $ Loss : ",$G(^UTILITY("DIQ1",$J,912.41,DA,26,"E"))
29 W !?40,"Burglary Total $ Recovered : ",$G(^UTILITY("DIQ1",$J,912.41,DA,27,"E"))
30 W !!
31 I $Y+15>IOSL D HDR1 Q:END
32 W !?25,"CONTRABAND Total # : ",$G(^UTILITY("DIQ1",$J,912.41,DA,28,"E"))
33 S TOT=$G(^UTILITY("DIQ1",$J,912.41,DA,29,"E"))+$G(^UTILITY("DIQ1",$J,912.41,DA,30,"E"))+$G(^UTILITY("DIQ1",$J,912.41,DA,31,"E"))+$G(^UTILITY("DIQ1",$J,912.41,DA,32,"E"))+$G(^UTILITY("DIQ1",$J,912.41,DA,33,"E"))
34 W !!,"Drugs Total # : ",TOT
35 W ?40,"Forged Prescriptions : ",$G(^UTILITY("DIQ1",$J,912.41,DA,29,"E"))
36 W !?40,"Introduction : ",$G(^UTILITY("DIQ1",$J,912.41,DA,30,"E"))
37 W !?40,"Possession : ",$G(^UTILITY("DIQ1",$J,912.41,DA,31,"E"))
38 W !?40,"Sale : ",$G(^UTILITY("DIQ1",$J,912.41,DA,32,"E"))
39 W !?40,"Under the Influence : ",$G(^UTILITY("DIQ1",$J,912.41,DA,33,"E"))
40 S TOT=$G(^UTILITY("DIQ1",$J,912.41,DA,34,"E"))+$G(^UTILITY("DIQ1",$J,912.41,DA,35,"E"))+$G(^UTILITY("DIQ1",$J,912.41,DA,36,"E"))
41 W !!,"Alcohol Total # : ",TOT
42 W ?40,"Introduction : ",$G(^UTILITY("DIQ1",$J,912.41,DA,34,"E"))
43 W !?40,"Possession : ",$G(^UTILITY("DIQ1",$J,912.41,DA,35,"E"))
44 W !?40,"Under the Influence : ",$G(^UTILITY("DIQ1",$J,912.41,DA,36,"E"))
45 S TOT=$G(^UTILITY("DIQ1",$J,912.41,DA,37,"E"))+$G(^UTILITY("DIQ1",$J,912.41,DA,38,"E"))+$G(^UTILITY("DIQ1",$J,912.41,DA,39,"E"))+$G(^UTILITY("DIQ1",$J,912.41,DA,40,"E"))
46 W !!,"Weapons Total # : ",TOT
47 W ?40,"Firearms : ",$G(^UTILITY("DIQ1",$J,912.41,DA,37,"E"))
48 W !?40,"Knives/Hatchets/Clubs : ",$G(^UTILITY("DIQ1",$J,912.41,DA,38,"E"))
49 W !?40,"Explosives : ",$G(^UTILITY("DIQ1",$J,912.41,DA,39,"E"))
50 W !?40,"Other : ",$G(^UTILITY("DIQ1",$J,912.41,DA,40,"E"))
51 W !,?15,"Offender"
52 W !!?10,"Employee: ",$G(^UTILITY("DIQ1",$J,912.41,DA,41,"E"))
53 W !?10,"Outsider: ",$G(^UTILITY("DIQ1",$J,912.41,DA,42,"E"))
54 W !?10,"Patient : ",$G(^UTILITY("DIQ1",$J,912.41,DA,43,"E"))
55 W !?10,"Unknown : ",$G(^UTILITY("DIQ1",$J,912.41,DA,44,"E"))
56 W !?10,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.41,DA,45,"E"))
57 D PRT^ESPUCP2
58 QUIT
59EX W !!,"Done." Q
60HDR ;PRINT HEADING
61 I $E(IOST,1,2)="C-" W !,"Press RETURN to continue or '^' to exit: " R X:DTIME S END='$T!(X="^") Q:END
62 S PAGE=PAGE+1 W @IOF,!?25,"UNIFORM CRIME REPORT",?70,"Page ",$J(PAGE,3)
63 W !!,"VA Facility ",$P(^ESP(912.4,ESPIEN,1,1,0),U)
64BDT W ?45,"BEGINNING DATE: ",$G(^UTILITY("DIQ1",$J,912.4,ESPIEN,.01,"E"))
65EDT W !,"Date/Time Printed",?45,"ENDING DATE: ",$G(^UTILITY("DIQ1",$J,912.4,ESPIEN,.02,"E"))
66 D NOW^%DTC S Y=% X ^DD("DD") W !,$P(Y,":",1,2)
67 QUIT
68HDR1 I $E(IOST,1,2)="C-" W !,"Press RETURN to continue or '^' to exit: " R X:DTIME S END='$T!(X="^") Q:END
69 S PAGE=PAGE+1 W @IOF,!?70,"PAGE ",$J(PAGE,3)
70 QUIT
Note: See TracBrowser for help on using the repository browser.