source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPUCP5.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: 2.8 KB
Line 
1ESPUCP5 ;DALISC/CKA -PRINT UNIFORM CRIME REPORT (CONT)- 3/93
2 ;;1.0;POLICE & SECURITY;;Mar 31, 1994
3EN Q ;CALLED FROM ESPUCP4
4PRT ;PRINT REPORT CONTINUED- PRINTS 5TH PAGE
5 D HDR Q:END
6 W !!,"Motor Vehicles : ",$G(^UTILITY("DIQ1",$J,912.41,DA,142,"E"))
7 W !!,"Government Motor Vehicle : ",$G(^UTILITY("DIQ1",$J,912.41,DA,143,"E"))
8 W !,"$ Loss : ",$G(^UTILITY("DIQ1",$J,912.41,DA,144,"E"))
9 W !,"$ Recovered : ",$G(^UTILITY("DIQ1",$J,912.41,DA,145,"E"))
10 W !,"Gov't Vehicles Recovered : ",$G(^UTILITY("DIQ1",$J,912.41,DA,146,"E"))
11 W !!,"Private Motor Vehicle : ",$G(^UTILITY("DIQ1",$J,912.41,DA,147,"E"))
12 W !,"$ Loss : ",$G(^UTILITY("DIQ1",$J,912.41,DA,148,"E"))
13 W !,"$ Recovered : ",$G(^UTILITY("DIQ1",$J,912.41,DA,149,"E"))
14 W !,"Private Veh's Recovered : ",$G(^UTILITY("DIQ1",$J,912.41,DA,150,"E"))
15 W !!?25,"VANDALISM"
16 W !,"Total # : ",$G(^UTILITY("DIQ1",$J,912.41,DA,152,"E"))
17 W !,"Total $ : ",$G(^UTILITY("DIQ1",$J,912.41,DA,158,"E"))
18 W !!,?10,"Offender"
19 W !!,"Employee: ",$G(^UTILITY("DIQ1",$J,912.41,DA,153,"E"))
20 W !,"Outsider: ",$G(^UTILITY("DIQ1",$J,912.41,DA,154,"E"))
21 W !,"Patient : ",$G(^UTILITY("DIQ1",$J,912.41,DA,155,"E"))
22 W !,"Unknown : ",$G(^UTILITY("DIQ1",$J,912.41,DA,156,"E"))
23 W !,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.41,DA,157,"E"))
24 W !!?25,"VICE SOLICITING Total # : ",$G(^UTILITY("DIQ1",$J,912.41,DA,159,"E"))
25 W !!,"Bribery : ",$G(^UTILITY("DIQ1",$J,912.41,DA,160,"E"))
26 W !,"Forgery : ",$G(^UTILITY("DIQ1",$J,912.41,DA,161,"E"))
27 W !,"Fraud : ",$G(^UTILITY("DIQ1",$J,912.41,DA,162,"E"))
28 W !,"Gambling : ",$G(^UTILITY("DIQ1",$J,912.41,DA,163,"E"))
29 W !,"Solicitation/Prostitution : ",$G(^UTILITY("DIQ1",$J,912.41,DA,164,"E"))
30 W !,"Sexual Misconduct : ",$G(^UTILITY("DIQ1",$J,912.41,DA,165,"E"))
31 W !!,?10,"Offender"
32 W !!,"Employee: ",$G(^UTILITY("DIQ1",$J,912.41,DA,166,"E"))
33 W !,"Outsider: ",$G(^UTILITY("DIQ1",$J,912.41,DA,167,"E"))
34 W !,"Patient : ",$G(^UTILITY("DIQ1",$J,912.41,DA,168,"E"))
35 W !,"Unknown : ",$G(^UTILITY("DIQ1",$J,912.41,DA,169,"E"))
36 W !,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.41,DA,170,"E"))
37 D PRT^ESPUCP6
38 QUIT
39EX W !!,"Done." Q
40HDR ;PRINT HEADING
41 I $E(IOST,1,2)="C-" W !,"Press RETURN to continue or '^' to exit: " R X:DTIME S END='$T!(X="^") Q:END
42 S PAGE=PAGE+1 W @IOF,!?25,"UNIFORM CRIME REPORT",?(IOM-10),"PAGE: ",$J(PAGE,3)
43 W !!,"VA Facility ",$P(^ESP(912.4,ESPIEN,1,1,0),U)
44BDT W ?45,"BEGINNING DATE: ",$G(^UTILITY("DIQ1",$J,912.4,ESPIEN,.01,"E"))
45EDT W !,"Date/Time Printed",?45,"ENDING DATE: ",$G(^UTILITY("DIQ1",$J,912.4,ESPIEN,.02,"E"))
46 D NOW^%DTC S Y=% X ^DD("DD") W !,$P(Y,":",1,2)
47 QUIT
Note: See TracBrowser for help on using the repository browser.