source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPUCFP2.m@ 701

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

initial load of WorldVistAEHR
File size: 5.3 KB
Line 
1ESPUCFP2 ;DALISC/CKA -PRINT UNIFORM CRIME REPORT (CONT)- 3/99
2 ;;1.0;POLICE & SECURITY;**27**;Mar 31, 1994
3EN Q ;CALLED FROM ESPUCFP1
4PRT ;PRINT REPORT CONTINUED- PRINTS 2ND PAGE
5 I $Y+15>IOSL D HDR Q:END
6 S TOT=$G(^UTILITY("DIQ1",$J,912.31,DA,37,"E"))+$G(^UTILITY("DIQ1",$J,912.31,DA,38,"E"))+$G(^UTILITY("DIQ1",$J,912.31,DA,39,"E"))+$G(^UTILITY("DIQ1",$J,912.31,DA,40,"E"))
7 W !!?25,"DISTURBANCES Total # : ",$G(^UTILITY("DIQ1",$J,912.31,DA,46,"E"))
8 W !!,"Bomb Threats : ",$G(^UTILITY("DIQ1",$J,912.31,DA,47,"E"))
9 W ?40,"Demonstrations : ",$G(^UTILITY("DIQ1",$J,912.31,DA,48,"E"))
10 W !,"Disorderly Conduct : ",$G(^UTILITY("DIQ1",$J,912.31,DA,49,"E"))
11 W ?40,"Employee Threat : ",$G(^UTILITY("DIQ1",$J,912.31,DA,50,"E"))
12 W !,"Other Threat : ",$G(^UTILITY("DIQ1",$J,912.31,DA,51,"E"))
13 W ?40,"Smoking Violation : ",$G(^UTILITY("DIQ1",$J,912.31,DA,52,"E"))
14 W !,"Trespassing : ",$G(^UTILITY("DIQ1",$J,912.31,DA,53,"E"))
15 W ?40,"Unauthorized Photograph : ",$G(^UTILITY("DIQ1",$J,912.31,DA,54,"E"))
16 W !,"Unauth/Poss/Use/Keys/Cards : ",$G(^UTILITY("DIQ1",$J,912.31,DA,55,"E"))
17 W !!,?15,"Offender"
18 W !!?10,"Employee: ",$G(^UTILITY("DIQ1",$J,912.31,DA,56,"E"))
19 W ?30,"Outsider: ",$G(^UTILITY("DIQ1",$J,912.31,DA,57,"E"))
20 W !?10,"Patient : ",$G(^UTILITY("DIQ1",$J,912.31,DA,58,"E"))
21 W ?30,"Unknown : ",$G(^UTILITY("DIQ1",$J,912.31,DA,59,"E"))
22 W !?10,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.31,DA,60,"E"))
23 I $Y+15>IOSL D HDR1 Q:END
24 W !!!?21,"MANSLAUGHTER/MURDER Total # : ",$G(^UTILITY("DIQ1",$J,912.31,DA,61,"E"))+$G(^UTILITY("DIQ1",$J,912.31,DA,62,"E"))
25 W !!,"Manslaughter/Murder/Negligent : ",$G(^UTILITY("DIQ1",$J,912.31,DA,61,"E"))
26 W !,"Manslaughter/Murder/Non-Neg. : ",$G(^UTILITY("DIQ1",$J,912.31,DA,62,"E"))
27 W !!,?15,"Offender",?50,"Victim"
28 W !!?10,"Employee: ",$G(^UTILITY("DIQ1",$J,912.31,DA,63,"E")),?45,"Employee : ",$G(^UTILITY("DIQ1",$J,912.31,DA,68,"E"))
29 W !?10,"Outsider: ",$G(^UTILITY("DIQ1",$J,912.31,DA,64,"E")),?45,"Outsider : ",$G(^UTILITY("DIQ1",$J,912.31,DA,69,"E"))
30 W !?10,"Patient : ",$G(^UTILITY("DIQ1",$J,912.31,DA,65,"E")),?45,"Patient : ",$G(^UTILITY("DIQ1",$J,912.31,DA,70,"E"))
31 W !?10,"Unknown : ",$G(^UTILITY("DIQ1",$J,912.31,DA,66,"E")),?45,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.31,DA,71,"E"))
32 W !?10,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.31,DA,67,"E"))
33 I $Y+10>IOSL D HDR1 Q:END
34 W !!!?16,"NON-CRIMINAL INVESTIGATIONS Total # : ",$G(^UTILITY("DIQ1",$J,912.31,DA,72,"E"))
35 W !!,"Missing Patient Reaction : ",$G(^UTILITY("DIQ1",$J,912.31,DA,73,"E"))
36 W ?40,"Government Veh. Accident : ",$G(^UTILITY("DIQ1",$J,912.31,DA,75,"E"))
37 W !,"Personal Veh. Accident : ",$G(^UTILITY("DIQ1",$J,912.31,DA,76,"E"))
38 W ?40,"Assist Law Officer : ",$G(^UTILITY("DIQ1",$J,912.31,DA,77,"E"))
39 W !,"Staff Assist : ",$G(^UTILITY("DIQ1",$J,912.31,DA,78,"E"))
40 W ?40,"Alarm Response : ",$G(^UTILITY("DIQ1",$J,912.31,DA,79,"E"))
41 W !,"Safety Hazard : ",$G(^UTILITY("DIQ1",$J,912.31,DA,80,"E"))
42 W ?40,"Information Only : ",$G(^UTILITY("DIQ1",$J,912.31,DA,188,"E"))
43 I $Y+10>IOSL D HDR1 Q:END
44 W !!!?25,"OTHER OFFENSES Total # : ",$G(^UTILITY("DIQ1",$J,912.31,DA,81,"E"))
45 W !!,"Arson : ",$G(^UTILITY("DIQ1",$J,912.31,DA,82,"E"))
46 W ?40,"Arson $ Damage : ",$G(^UTILITY("DIQ1",$J,912.31,DA,83,"E"))
47 W !,"Possession/Stolen Property : ",$G(^UTILITY("DIQ1",$J,912.31,DA,84,"E"))
48 W ?40,"Receive/Sell Stolen Property: ",$G(^UTILITY("DIQ1",$J,912.31,DA,85,"E"))
49 W !,"Suicide : ",$G(^UTILITY("DIQ1",$J,912.31,DA,86,"E"))
50 W ?40,"Suicide Attempt : ",$G(^UTILITY("DIQ1",$J,912.31,DA,87,"E"))
51 I $Y+15>IOSL D HDR1 Q:END
52 W !!!?25,"RAPES Total # : ",$G(^UTILITY("DIQ1",$J,912.31,DA,88,"E"))
53 W !!,"Attempted Rape : ",$G(^UTILITY("DIQ1",$J,912.31,DA,89,"E"))
54 W !,"Forcible Rape : ",$G(^UTILITY("DIQ1",$J,912.31,DA,90,"E"))
55 W !!,?15,"Offender",?50,"Victim"
56 W !!?10,"Employee: ",$G(^UTILITY("DIQ1",$J,912.31,DA,91,"E")),?45,"Employee : ",$G(^UTILITY("DIQ1",$J,912.31,DA,96,"E"))
57 W !?10,"Outsider: ",$G(^UTILITY("DIQ1",$J,912.31,DA,92,"E")),?45,"Outsider : ",$G(^UTILITY("DIQ1",$J,912.31,DA,97,"E"))
58 W !?10,"Patient : ",$G(^UTILITY("DIQ1",$J,912.31,DA,93,"E")),?45,"Patient : ",$G(^UTILITY("DIQ1",$J,912.31,DA,98,"E"))
59 W !?10,"Unknown : ",$G(^UTILITY("DIQ1",$J,912.31,DA,94,"E")),?45,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.31,DA,99,"E"))
60 W !?10,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.31,DA,95,"E"))
61 D PRT^ESPUCFP3
62 QUIT
63EX W !!,"Done." Q
64HDR ;PRINT HEADING
65 I $E(IOST,1,2)="C-" W !,"Press RETURN to continue or '^' to exit: " R X:DTIME S END='$T!(X="^") Q:END
66 S PAGE=PAGE+1 W @IOF,!?25,"UNIFORM CRIME REPORT",?70,"PAGE ",$J(PAGE,3)
67 S ESPFACI=$P(^ESP(912.3,ESPIEN,1,ESPN,0),U)
68 S ESPFACI=$P($G(^DG(40.8,ESPFACI,0)),U,1)
69 W !!,"VA Facility ",ESPFACI
70BDT W ?45,"BEGINNING DATE: ",$G(^UTILITY("DIQ1",$J,912.3,ESPIEN,.01,"E"))
71EDT W !,"Date/Time Printed",?45,"ENDING DATE: ",$G(^UTILITY("DIQ1",$J,912.3,ESPIEN,.02,"E"))
72 D NOW^%DTC S Y=% X ^DD("DD") W !,$P(Y,":",1,2)
73 QUIT
74HDR1 I $E(IOST,1,2)="C-" W !,"Press RETURN to continue or '^' to exit: " R X:DTIME S END='$T!(X="^") Q:END
75 S PAGE=PAGE+1 W @IOF,!?25,"UNIFORM CRIME REPORT",?70,"Page ",$J(PAGE,3)
76 QUIT
Note: See TracBrowser for help on using the repository browser.