ESPUCFP1 ;DALISC/CKA -PRINT UNIFORM CRIME REPORT (CONT)- 3/99
;;1.0;POLICE & SECURITY;**27**;Mar 31, 1994
EN Q ;CALLED FROM ESPUCFP
PRT ;PRINT REPORT CONTINUED- PRINTS FIRST PAGE
S DIC="^ESP(912.3,"_ESPIEN_",1,",DA=ESPN,DR="1:188",DIQ(0)="E" D EN^DIQ1 Q:'$D(^UTILITY("DIQ1",$J,912.31,DA))
W !!?25,"ASSAULTS Total # : ",$G(^UTILITY("DIQ1",$J,912.31,DA,1,"E"))
W !!,"Aggravated : ",$G(^UTILITY("DIQ1",$J,912.31,DA,2,"E"))
W ?40,"Dangerous : ",$G(^UTILITY("DIQ1",$J,912.31,DA,3,"E"))
W !,"Kidnapping : ",$G(^UTILITY("DIQ1",$J,912.31,DA,4,"E"))
W ?40,"No Weapon : ",$G(^UTILITY("DIQ1",$J,912.31,DA,5,"E"))
W !,"Simple : ",$G(^UTILITY("DIQ1",$J,912.31,DA,6,"E"))
W !!,?15,"Offender",?50,"Victim"
W !!?10,"Employee: ",$G(^UTILITY("DIQ1",$J,912.31,DA,7,"E")),?45,"Employee : ",$G(^UTILITY("DIQ1",$J,912.31,DA,12,"E"))
W !?10,"Outsider: ",$G(^UTILITY("DIQ1",$J,912.31,DA,8,"E")),?45,"Police Officer : ",$G(^UTILITY("DIQ1",$J,912.31,DA,13,"E"))
W !?10,"Patient : ",$G(^UTILITY("DIQ1",$J,912.31,DA,9,"E")),?45,"Outsider : ",$G(^UTILITY("DIQ1",$J,912.31,DA,14,"E"))
W !?10,"Unknown : ",$G(^UTILITY("DIQ1",$J,912.31,DA,10,"E")),?45,"Patient : ",$G(^UTILITY("DIQ1",$J,912.31,DA,15,"E"))
W !?10,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.31,DA,11,"E")),?45,"Unknown : ",$G(^UTILITY("DIQ1",$J,912.31,DA,16,"E"))
W !,?45,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.31,DA,17,"E"))
I $Y+10>IOSL D HDR1 Q:END
W !!!?25,"BURGLARIES Total # : ",$G(^UTILITY("DIQ1",$J,912.31,DA,18,"E"))
W !!,"All Other Areas : ",$G(^UTILITY("DIQ1",$J,912.31,DA,19,"E"))
W ?40,"Canteen : ",$G(^UTILITY("DIQ1",$J,912.31,DA,20,"E"))
W !,"Agent Cashier : ",$G(^UTILITY("DIQ1",$J,912.31,DA,21,"E"))
W ?40,"Locker Areas : ",$G(^UTILITY("DIQ1",$J,912.31,DA,22,"E"))
W !,"Office : ",$G(^UTILITY("DIQ1",$J,912.31,DA,23,"E"))
W ?40,"Pharmacy : ",$G(^UTILITY("DIQ1",$J,912.31,DA,24,"E"))
W !,"Vehicles : ",$G(^UTILITY("DIQ1",$J,912.31,DA,25,"E"))
W ?40,"Burglary Total $ Loss : ",$G(^UTILITY("DIQ1",$J,912.31,DA,26,"E"))
W !?40,"Burglary Total $ Recovered : ",$G(^UTILITY("DIQ1",$J,912.31,DA,27,"E"))
W !!
I $Y+15>IOSL D HDR1 Q:END
W !?25,"CONTRABAND Total # : ",$G(^UTILITY("DIQ1",$J,912.31,DA,28,"E"))
S TOT=$G(^UTILITY("DIQ1",$J,912.31,DA,29,"E"))+$G(^UTILITY("DIQ1",$J,912.31,DA,30,"E"))+$G(^UTILITY("DIQ1",$J,912.31,DA,31,"E"))+$G(^UTILITY("DIQ1",$J,912.31,DA,32,"E"))+$G(^UTILITY("DIQ1",$J,912.31,DA,33,"E"))
W !!,"Drugs Total # : ",TOT
W ?40,"Forged Prescriptions : ",$G(^UTILITY("DIQ1",$J,912.31,DA,29,"E"))
W !?40,"Introduction : ",$G(^UTILITY("DIQ1",$J,912.31,DA,30,"E"))
W !?40,"Possession : ",$G(^UTILITY("DIQ1",$J,912.31,DA,31,"E"))
W !?40,"Sale : ",$G(^UTILITY("DIQ1",$J,912.31,DA,32,"E"))
W !?40,"Under the Influence : ",$G(^UTILITY("DIQ1",$J,912.31,DA,33,"E"))
S TOT=$G(^UTILITY("DIQ1",$J,912.31,DA,34,"E"))+$G(^UTILITY("DIQ1",$J,912.31,DA,35,"E"))+$G(^UTILITY("DIQ1",$J,912.31,DA,36,"E"))
W !!,"Alcohol Total # : ",TOT
W ?40,"Introduction : ",$G(^UTILITY("DIQ1",$J,912.31,DA,34,"E"))
W !?40,"Possession : ",$G(^UTILITY("DIQ1",$J,912.31,DA,35,"E"))
W !?40,"Under the Influence : ",$G(^UTILITY("DIQ1",$J,912.31,DA,36,"E"))
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"))
W !!,"Weapons Total # : ",TOT
W ?40,"Firearms : ",$G(^UTILITY("DIQ1",$J,912.31,DA,37,"E"))
W !?40,"Knives/Hatchets/Clubs : ",$G(^UTILITY("DIQ1",$J,912.31,DA,38,"E"))
W !?40,"Explosives : ",$G(^UTILITY("DIQ1",$J,912.31,DA,39,"E"))
W !?40,"Other : ",$G(^UTILITY("DIQ1",$J,912.31,DA,40,"E"))
I $Y+7>IOSL D HDR1 Q:END
W !,?15,"Offender"
W !!?10,"Employee: ",$G(^UTILITY("DIQ1",$J,912.31,DA,41,"E"))
W !?10,"Outsider: ",$G(^UTILITY("DIQ1",$J,912.31,DA,42,"E"))
W !?10,"Patient : ",$G(^UTILITY("DIQ1",$J,912.31,DA,43,"E"))
W !?10,"Unknown : ",$G(^UTILITY("DIQ1",$J,912.31,DA,44,"E"))
W !?10,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.31,DA,45,"E"))
D PRT^ESPUCFP2
QUIT
EX W !!,"Done." Q
HDR ;PRINT HEADING
I $E(IOST,1,2)="C-" W !,"Press RETURN to continue or '^' to exit: " R X:DTIME S END='$T!(X="^") Q:END
S PAGE=PAGE+1 W @IOF,!?25,"UNIFORM CRIME REPORT",?70,"Page ",$J(PAGE,3)
S ESPFACI=$P(^ESP(912.3,ESPIEN,1,ESPN,0),U)
S ESPFACI=$P($G(^DG(40.8,ESPFACI,0)),U,1)
W !!,"VA Facility ",ESPFACI
BDT W ?45,"BEGINNING DATE: ",$G(^UTILITY("DIQ1",$J,912.3,ESPIEN,.01,"E"))
EDT W !,"Date/Time Printed",?45,"ENDING DATE: ",$G(^UTILITY("DIQ1",$J,912.3,ESPIEN,.02,"E"))
D NOW^%DTC S Y=% X ^DD("DD") W !,$P(Y,":",1,2)
QUIT
HDR1 I $E(IOST,1,2)="C-" W !,"Press RETURN to continue or '^' to exit: " R X:DTIME S END='$T!(X="^") Q:END
S PAGE=PAGE+1 W @IOF,!?25,"UNIFORM CRIME REPORT",?70,"PAGE ",$J(PAGE,3)
QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HESPUCFP1 5235 printed Nov 22, 2024@17:40:32 Page 2
ESPUCFP1 ;DALISC/CKA -PRINT UNIFORM CRIME REPORT (CONT)- 3/99
+1 ;;1.0;POLICE & SECURITY;**27**;Mar 31, 1994
EN ;CALLED FROM ESPUCFP
QUIT
PRT ;PRINT REPORT CONTINUED- PRINTS FIRST PAGE
+1 SET DIC="^ESP(912.3,"_ESPIEN_",1,"
SET DA=ESPN
SET DR="1:188"
SET DIQ(0)="E"
DO EN^DIQ1
if '$DATA(^UTILITY("DIQ1",$JOB,912.31,DA))
QUIT
+2 WRITE !!?25,"ASSAULTS Total # : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,1,"E"))
+3 WRITE !!,"Aggravated : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,2,"E"))
+4 WRITE ?40,"Dangerous : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,3,"E"))
+5 WRITE !,"Kidnapping : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,4,"E"))
+6 WRITE ?40,"No Weapon : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,5,"E"))
+7 WRITE !,"Simple : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,6,"E"))
+8 WRITE !!,?15,"Offender",?50,"Victim"
+9 WRITE !!?10,"Employee: ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,7,"E")),?45,"Employee : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,12,"E"))
+10 WRITE !?10,"Outsider: ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,8,"E")),?45,"Police Officer : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,13,"E"))
+11 WRITE !?10,"Patient : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,9,"E")),?45,"Outsider : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,14,"E"))
+12 WRITE !?10,"Unknown : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,10,"E")),?45,"Patient : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,15,"E"))
+13 WRITE !?10,"Visitor : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,11,"E")),?45,"Unknown : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,16,"E"))
+14 WRITE !,?45,"Visitor : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,17,"E"))
+15 IF $Y+10>IOSL
DO HDR1
if END
QUIT
+16 WRITE !!!?25,"BURGLARIES Total # : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,18,"E"))
+17 WRITE !!,"All Other Areas : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,19,"E"))
+18 WRITE ?40,"Canteen : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,20,"E"))
+19 WRITE !,"Agent Cashier : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,21,"E"))
+20 WRITE ?40,"Locker Areas : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,22,"E"))
+21 WRITE !,"Office : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,23,"E"))
+22 WRITE ?40,"Pharmacy : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,24,"E"))
+23 WRITE !,"Vehicles : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,25,"E"))
+24 WRITE ?40,"Burglary Total $ Loss : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,26,"E"))
+25 WRITE !?40,"Burglary Total $ Recovered : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,27,"E"))
+26 WRITE !!
+27 IF $Y+15>IOSL
DO HDR1
if END
QUIT
+28 WRITE !?25,"CONTRABAND Total # : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,28,"E"))
+29 SET TOT=$GET(^UTILITY("DIQ1",$JOB,912.31,DA,29,"E"))+$GET(^UTILITY("DIQ1",$JOB,912.31,DA,30,"E"))+$GET(^UTILITY("DIQ1",$JOB,912.31,DA,31,"E"))+$GET(^UTILITY("DIQ1",$JOB,912.31,DA,32,"E"))+$GET(^UTILITY("DIQ1",$JOB,912.31,DA,33,"E"))
+30 WRITE !!,"Drugs Total # : ",TOT
+31 WRITE ?40,"Forged Prescriptions : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,29,"E"))
+32 WRITE !?40,"Introduction : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,30,"E"))
+33 WRITE !?40,"Possession : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,31,"E"))
+34 WRITE !?40,"Sale : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,32,"E"))
+35 WRITE !?40,"Under the Influence : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,33,"E"))
+36 SET TOT=$GET(^UTILITY("DIQ1",$JOB,912.31,DA,34,"E"))+$GET(^UTILITY("DIQ1",$JOB,912.31,DA,35,"E"))+$GET(^UTILITY("DIQ1",$JOB,912.31,DA,36,"E"))
+37 WRITE !!,"Alcohol Total # : ",TOT
+38 WRITE ?40,"Introduction : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,34,"E"))
+39 WRITE !?40,"Possession : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,35,"E"))
+40 WRITE !?40,"Under the Influence : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,36,"E"))
+41 SET TOT=$GET(^UTILITY("DIQ1",$JOB,912.31,DA,37,"E"))+$GET(^UTILITY("DIQ1",$JOB,912.31,DA,38,"E"))+$GET(^UTILITY("DIQ1",$JOB,912.31,DA,39,"E"))+$GET(^UTILITY("DIQ1",$JOB,912.31,DA,40,"E"))
+42 WRITE !!,"Weapons Total # : ",TOT
+43 WRITE ?40,"Firearms : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,37,"E"))
+44 WRITE !?40,"Knives/Hatchets/Clubs : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,38,"E"))
+45 WRITE !?40,"Explosives : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,39,"E"))
+46 WRITE !?40,"Other : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,40,"E"))
+47 IF $Y+7>IOSL
DO HDR1
if END
QUIT
+48 WRITE !,?15,"Offender"
+49 WRITE !!?10,"Employee: ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,41,"E"))
+50 WRITE !?10,"Outsider: ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,42,"E"))
+51 WRITE !?10,"Patient : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,43,"E"))
+52 WRITE !?10,"Unknown : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,44,"E"))
+53 WRITE !?10,"Visitor : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,45,"E"))
+54 DO PRT^ESPUCFP2
+55 QUIT
EX WRITE !!,"Done."
QUIT
HDR ;PRINT HEADING
+1 IF $EXTRACT(IOST,1,2)="C-"
WRITE !,"Press RETURN to continue or '^' to exit: "
READ X:DTIME
SET END='$TEST!(X="^")
if END
QUIT
+2 SET PAGE=PAGE+1
WRITE @IOF,!?25,"UNIFORM CRIME REPORT",?70,"Page ",$JUSTIFY(PAGE,3)
+3 SET ESPFACI=$PIECE(^ESP(912.3,ESPIEN,1,ESPN,0),U)
+4 SET ESPFACI=$PIECE($GET(^DG(40.8,ESPFACI,0)),U,1)
+5 WRITE !!,"VA Facility ",ESPFACI
BDT WRITE ?45,"BEGINNING DATE: ",$GET(^UTILITY("DIQ1",$JOB,912.3,ESPIEN,.01,"E"))
EDT WRITE !,"Date/Time Printed",?45,"ENDING DATE: ",$GET(^UTILITY("DIQ1",$JOB,912.3,ESPIEN,.02,"E"))
+1 DO NOW^%DTC
SET Y=%
XECUTE ^DD("DD")
WRITE !,$PIECE(Y,":",1,2)
+2 QUIT
HDR1 IF $EXTRACT(IOST,1,2)="C-"
WRITE !,"Press RETURN to continue or '^' to exit: "
READ X:DTIME
SET END='$TEST!(X="^")
if END
QUIT
+1 SET PAGE=PAGE+1
WRITE @IOF,!?25,"UNIFORM CRIME REPORT",?70,"PAGE ",$JUSTIFY(PAGE,3)
+2 QUIT
