- ESPUCP3 ;DALISC/CKA -PRINT UNIFORM CRIME REPORT (CONT)- 3/93
- ;;1.0;POLICE & SECURITY;**11,12,22**;Mar 31, 1994
- EN Q ;CALLED FROM ESPUCP2
- PRT ;PRINT REPORT CONTINUED- PRINTS 3RD PAGE
- D HDR Q:END
- W !!?25,"ROBBERY Total # : ",$G(^UTILITY("DIQ1",$J,912.41,DA,100,"E"))
- W !!,"Armed Robbery : ",$G(^UTILITY("DIQ1",$J,912.41,DA,101,"E"))
- W ?40,"$100 & Above : ",$G(^UTILITY("DIQ1",$J,912.41,DA,102,"E"))
- W !?40,"<$100 : ",$G(^UTILITY("DIQ1",$J,912.41,DA,103,"E"))
- W !,"Strong Armed Robbery : ",$G(^UTILITY("DIQ1",$J,912.41,DA,104,"E"))
- W ?40,"$100 & Above : ",$G(^UTILITY("DIQ1",$J,912.41,DA,105,"E"))
- W !?40,"<$100 : ",$G(^UTILITY("DIQ1",$J,912.41,DA,106,"E"))
- W !,"Drugs Only : ",$G(^UTILITY("DIQ1",$J,912.41,DA,107,"E"))
- W ?40,"Robbery Total $ Loss : ",$G(^UTILITY("DIQ1",$J,912.41,DA,108,"E"))
- W !?40,"Robbery Total $ Recovered : ",$G(^UTILITY("DIQ1",$J,912.41,DA,109,"E"))
- I $Y+15>IOSL D HDR1 Q:END
- W !!!?25,"STOPS & ARRESTS Total # : ",$G(^UTILITY("DIQ1",$J,912.41,DA,110,"E"))
- W !!,"Physical Arrests : ",$G(^UTILITY("DIQ1",$J,912.41,DA,111,"E"))
- W !!,?15,"Offender"
- W !!?10,"Employee: ",$G(^UTILITY("DIQ1",$J,912.41,DA,112,"E"))
- W ?30,"Outsider: ",$G(^UTILITY("DIQ1",$J,912.41,DA,113,"E"))
- W !?10,"Patient : ",$G(^UTILITY("DIQ1",$J,912.41,DA,114,"E"))
- W ?30,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.41,DA,115,"E"))
- W !!,"Stops for Questioning : ",$G(^UTILITY("DIQ1",$J,912.41,DA,116,"E"))
- W ?40,"Package Stops : ",$G(^UTILITY("DIQ1",$J,912.41,DA,117,"E"))
- W !?40,"Non-Package Stops : ",$G(^UTILITY("DIQ1",$J,912.41,DA,118,"E"))
- I $Y+15>IOSL D HDR1 Q:END
- W !!!?25,"THEFTS Total # : ",$G(^UTILITY("DIQ1",$J,912.41,DA,119,"E"))
- W !!,"Coin-Operated Machines : ",$G(^UTILITY("DIQ1",$J,912.41,DA,120,"E"))
- W ?40,"Total $ Loss : ",$G(^UTILITY("DIQ1",$J,912.41,DA,121,"E"))
- W !?40,"Total $ Recovery : ",$G(^UTILITY("DIQ1",$J,912.41,DA,122,"E"))
- W !!,"Actual Drug Thefts : ",$G(^UTILITY("DIQ1",$J,912.41,DA,123,"E"))
- W ?40,"Controlled Substance : ",$G(^UTILITY("DIQ1",$J,912.41,DA,125,"E"))
- W !?40,"Non-Controlled Substance : ",$G(^UTILITY("DIQ1",$J,912.41,DA,126,"E"))
- W !!,"Attempted Drug Thefts : ",$G(^UTILITY("DIQ1",$J,912.41,DA,124,"E"))
- W ?40,"Controlled Substance : ",$G(^UTILITY("DIQ1",$J,912.41,DA,127,"E"))
- W !?40,"Non-Controlled Substance : ",$G(^UTILITY("DIQ1",$J,912.41,DA,128,"E"))
- W !!,"Total Drug Thefts : ",$G(^UTILITY("DIQ1",$J,912.41,DA,129,"E"))
- W ?40,"Total Drug $ Loss : ",$G(^UTILITY("DIQ1",$J,912.41,DA,130,"E"))
- W !?40,"Total Drug $ Recovered : ",$G(^UTILITY("DIQ1",$J,912.41,DA,131,"E"))
- I $Y+15>IOSL D HDR1 Q:END
- S ESPBEG=$P(^ESP(912.4,ESPIEN,0),U,1)
- W !!,"Government Property : ",$G(^UTILITY("DIQ1",$J,912.41,DA,132,"E"))
- I ESPBEG<2971001 D
- . W ?40,"$100 & Above : ",$G(^UTILITY("DIQ1",$J,912.41,DA,133,"E"))
- . W !?40,"< $100 : ",$G(^UTILITY("DIQ1",$J,912.41,DA,134,"E"))
- I ESPBEG>2970930.2359 D
- . W ?40,"$1000 & Above : ",$G(^UTILITY("DIQ1",$J,912.41,DA,133.1,"E"))
- . W !?40,"< $1000 : ",$G(^UTILITY("DIQ1",$J,912.41,DA,134.1,"E"))
- W !?40,"Total Gov't $ Loss : ",$G(^UTILITY("DIQ1",$J,912.41,DA,135,"E"))
- W !?40,"Total Gov't $ Recovered : ",$G(^UTILITY("DIQ1",$J,912.41,DA,136,"E"))
- I $Y+10>IOSL D HDR1 Q:END
- W !!,"Personal Property : ",$G(^UTILITY("DIQ1",$J,912.41,DA,137,"E"))
- I ESPBEG<2971001 D
- . W ?40,"$100 & Above : ",$G(^UTILITY("DIQ1",$J,912.41,DA,138,"E"))
- . W !?40,"< $100 : ",$G(^UTILITY("DIQ1",$J,912.41,DA,139,"E"))
- I ESPBEG>2970930.2359 D
- . W ?40,"$1000 & Above : ",$G(^UTILITY("DIQ1",$J,912.41,DA,138.1,"E"))
- . W !?40,"< $1000 : ",$G(^UTILITY("DIQ1",$J,912.41,DA,139.1,"E"))
- W !?40,"Total Personal $ Loss : ",$G(^UTILITY("DIQ1",$J,912.41,DA,140,"E"))
- W !?40,"Total Personal $ Recovered : ",$G(^UTILITY("DIQ1",$J,912.41,DA,141,"E"))
- W !!,"Government Motor Vehicles : ",$G(^UTILITY("DIQ1",$J,912.41,DA,143,"E"))
- W ?40,"Gov't Vehicles Recovered : ",$G(^UTILITY("DIQ1",$J,912.41,DA,146,"E"))
- W !?40,"$ Loss Gov't Vehicles : ",$G(^UTILITY("DIQ1",$J,912.41,DA,144,"E"))
- W !?40,"$ Recovered Gov't Vehicles : ",$G(^UTILITY("DIQ1",$J,912.41,DA,145,"E"))
- W !!,"Private Motor Vehicles : ",$G(^UTILITY("DIQ1",$J,912.41,DA,147,"E"))
- W ?40,"Private Vehicles Recovered : ",$G(^UTILITY("DIQ1",$J,912.41,DA,150,"E"))
- W !?40,"$ Loss Private Vehicles : ",$G(^UTILITY("DIQ1",$J,912.41,DA,148,"E"))
- W !?40,"$ Recovered Private Vehicles: ",$G(^UTILITY("DIQ1",$J,912.41,DA,149,"E"))
- D PRT^ESPUCP4
- QUIT
- EX W !!,"Done." Q
- HDR ;PRINT HEADING
- I $E(IOST,1,2)="C-" S END=$$EOP^ESPUTIL() Q:END
- S PAGE=PAGE+1 W @IOF,!?25,"UNIFORM CRIME REPORT",?70,"PAGE ",$J(PAGE,3)
- W !!,"VA Facility ",$P(^ESP(912.4,ESPIEN,1,1,0),U)
- BDT W ?45,"BEGINNING DATE: ",$G(^UTILITY("DIQ1",$J,912.4,ESPIEN,.01,"E"))
- EDT W !,"Date/Time Printed",?45,"ENDING DATE: ",$G(^UTILITY("DIQ1",$J,912.4,ESPIEN,.02,"E"))
- W !,$$NOW^ESPUTIL()
- QUIT
- HDR1 I $E(IOST,1,2)="C-" S END=$$EOP^ESPUTIL() Q:END
- S PAGE=PAGE+1 W @IOF,!?70,"PAGE ",$J(PAGE,3)
- QUIT
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HESPUCP3 5492 printed Feb 18, 2025@23:57:14 Page 2
- ESPUCP3 ;DALISC/CKA -PRINT UNIFORM CRIME REPORT (CONT)- 3/93
- +1 ;;1.0;POLICE & SECURITY;**11,12,22**;Mar 31, 1994
- EN ;CALLED FROM ESPUCP2
- QUIT
- PRT ;PRINT REPORT CONTINUED- PRINTS 3RD PAGE
- +1 DO HDR
- if END
- QUIT
- +2 WRITE !!?25,"ROBBERY Total # : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,100,"E"))
- +3 WRITE !!,"Armed Robbery : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,101,"E"))
- +4 WRITE ?40,"$100 & Above : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,102,"E"))
- +5 WRITE !?40,"<$100 : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,103,"E"))
- +6 WRITE !,"Strong Armed Robbery : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,104,"E"))
- +7 WRITE ?40,"$100 & Above : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,105,"E"))
- +8 WRITE !?40,"<$100 : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,106,"E"))
- +9 WRITE !,"Drugs Only : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,107,"E"))
- +10 WRITE ?40,"Robbery Total $ Loss : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,108,"E"))
- +11 WRITE !?40,"Robbery Total $ Recovered : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,109,"E"))
- +12 IF $Y+15>IOSL
- DO HDR1
- if END
- QUIT
- +13 WRITE !!!?25,"STOPS & ARRESTS Total # : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,110,"E"))
- +14 WRITE !!,"Physical Arrests : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,111,"E"))
- +15 WRITE !!,?15,"Offender"
- +16 WRITE !!?10,"Employee: ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,112,"E"))
- +17 WRITE ?30,"Outsider: ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,113,"E"))
- +18 WRITE !?10,"Patient : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,114,"E"))
- +19 WRITE ?30,"Visitor : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,115,"E"))
- +20 WRITE !!,"Stops for Questioning : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,116,"E"))
- +21 WRITE ?40,"Package Stops : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,117,"E"))
- +22 WRITE !?40,"Non-Package Stops : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,118,"E"))
- +23 IF $Y+15>IOSL
- DO HDR1
- if END
- QUIT
- +24 WRITE !!!?25,"THEFTS Total # : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,119,"E"))
- +25 WRITE !!,"Coin-Operated Machines : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,120,"E"))
- +26 WRITE ?40,"Total $ Loss : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,121,"E"))
- +27 WRITE !?40,"Total $ Recovery : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,122,"E"))
- +28 WRITE !!,"Actual Drug Thefts : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,123,"E"))
- +29 WRITE ?40,"Controlled Substance : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,125,"E"))
- +30 WRITE !?40,"Non-Controlled Substance : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,126,"E"))
- +31 WRITE !!,"Attempted Drug Thefts : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,124,"E"))
- +32 WRITE ?40,"Controlled Substance : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,127,"E"))
- +33 WRITE !?40,"Non-Controlled Substance : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,128,"E"))
- +34 WRITE !!,"Total Drug Thefts : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,129,"E"))
- +35 WRITE ?40,"Total Drug $ Loss : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,130,"E"))
- +36 WRITE !?40,"Total Drug $ Recovered : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,131,"E"))
- +37 IF $Y+15>IOSL
- DO HDR1
- if END
- QUIT
- +38 SET ESPBEG=$PIECE(^ESP(912.4,ESPIEN,0),U,1)
- +39 WRITE !!,"Government Property : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,132,"E"))
- +40 IF ESPBEG<2971001
- Begin DoDot:1
- +41 WRITE ?40,"$100 & Above : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,133,"E"))
- +42 WRITE !?40,"< $100 : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,134,"E"))
- End DoDot:1
- +43 IF ESPBEG>2970930.2359
- Begin DoDot:1
- +44 WRITE ?40,"$1000 & Above : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,133.1,"E"))
- +45 WRITE !?40,"< $1000 : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,134.1,"E"))
- End DoDot:1
- +46 WRITE !?40,"Total Gov't $ Loss : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,135,"E"))
- +47 WRITE !?40,"Total Gov't $ Recovered : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,136,"E"))
- +48 IF $Y+10>IOSL
- DO HDR1
- if END
- QUIT
- +49 WRITE !!,"Personal Property : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,137,"E"))
- +50 IF ESPBEG<2971001
- Begin DoDot:1
- +51 WRITE ?40,"$100 & Above : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,138,"E"))
- +52 WRITE !?40,"< $100 : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,139,"E"))
- End DoDot:1
- +53 IF ESPBEG>2970930.2359
- Begin DoDot:1
- +54 WRITE ?40,"$1000 & Above : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,138.1,"E"))
- +55 WRITE !?40,"< $1000 : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,139.1,"E"))
- End DoDot:1
- +56 WRITE !?40,"Total Personal $ Loss : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,140,"E"))
- +57 WRITE !?40,"Total Personal $ Recovered : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,141,"E"))
- +58 WRITE !!,"Government Motor Vehicles : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,143,"E"))
- +59 WRITE ?40,"Gov't Vehicles Recovered : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,146,"E"))
- +60 WRITE !?40,"$ Loss Gov't Vehicles : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,144,"E"))
- +61 WRITE !?40,"$ Recovered Gov't Vehicles : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,145,"E"))
- +62 WRITE !!,"Private Motor Vehicles : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,147,"E"))
- +63 WRITE ?40,"Private Vehicles Recovered : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,150,"E"))
- +64 WRITE !?40,"$ Loss Private Vehicles : ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,148,"E"))
- +65 WRITE !?40,"$ Recovered Private Vehicles: ",$GET(^UTILITY("DIQ1",$JOB,912.41,DA,149,"E"))
- +66 DO PRT^ESPUCP4
- +67 QUIT
- EX WRITE !!,"Done."
- QUIT
- HDR ;PRINT HEADING
- +1 IF $EXTRACT(IOST,1,2)="C-"
- SET END=$$EOP^ESPUTIL()
- if END
- QUIT
- +2 SET PAGE=PAGE+1
- WRITE @IOF,!?25,"UNIFORM CRIME REPORT",?70,"PAGE ",$JUSTIFY(PAGE,3)
- +3 WRITE !!,"VA Facility ",$PIECE(^ESP(912.4,ESPIEN,1,1,0),U)
- BDT WRITE ?45,"BEGINNING DATE: ",$GET(^UTILITY("DIQ1",$JOB,912.4,ESPIEN,.01,"E"))
- EDT WRITE !,"Date/Time Printed",?45,"ENDING DATE: ",$GET(^UTILITY("DIQ1",$JOB,912.4,ESPIEN,.02,"E"))
- +1 WRITE !,$$NOW^ESPUTIL()
- +2 QUIT
- HDR1 IF $EXTRACT(IOST,1,2)="C-"
- SET END=$$EOP^ESPUTIL()
- if END
- QUIT
- +1 SET PAGE=PAGE+1
- WRITE @IOF,!?70,"PAGE ",$JUSTIFY(PAGE,3)
- +2 QUIT
