ESPUCFP2.m

ESPUCFP2 ;DALISC/CKA -PRINT UNIFORM CRIME REPORT (CONT)- 3/99

 ;;1.0;POLICE & SECURITY;**27**;Mar 31, 1994

EN Q  ;CALLED FROM ESPUCFP1

PRT ;PRINT REPORT CONTINUED- PRINTS 2ND PAGE

 I $Y+15>IOSL D HDR Q:END

 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 !!?25,"DISTURBANCES         Total # : ",$G(^UTILITY("DIQ1",$J,912.31,DA,46,"E"))

 W !!,"Bomb Threats               :  ",$G(^UTILITY("DIQ1",$J,912.31,DA,47,"E"))

 W ?40,"Demonstrations              :  ",$G(^UTILITY("DIQ1",$J,912.31,DA,48,"E"))

 W !,"Disorderly Conduct         :  ",$G(^UTILITY("DIQ1",$J,912.31,DA,49,"E"))

 W ?40,"Employee Threat             :  ",$G(^UTILITY("DIQ1",$J,912.31,DA,50,"E"))

 W !,"Other Threat               :  ",$G(^UTILITY("DIQ1",$J,912.31,DA,51,"E"))

 W ?40,"Smoking Violation           :  ",$G(^UTILITY("DIQ1",$J,912.31,DA,52,"E"))

 W !,"Trespassing                :  ",$G(^UTILITY("DIQ1",$J,912.31,DA,53,"E"))

 W ?40,"Unauthorized Photograph     :  ",$G(^UTILITY("DIQ1",$J,912.31,DA,54,"E"))

 W !,"Unauth/Poss/Use/Keys/Cards :  ",$G(^UTILITY("DIQ1",$J,912.31,DA,55,"E"))

 W !!,?15,"Offender"

 W !!?10,"Employee: ",$G(^UTILITY("DIQ1",$J,912.31,DA,56,"E"))

 W ?30,"Outsider: ",$G(^UTILITY("DIQ1",$J,912.31,DA,57,"E"))

 W !?10,"Patient : ",$G(^UTILITY("DIQ1",$J,912.31,DA,58,"E"))

 W ?30,"Unknown : ",$G(^UTILITY("DIQ1",$J,912.31,DA,59,"E"))

 W !?10,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.31,DA,60,"E"))

 I $Y+15>IOSL D HDR1 Q:END

 W !!!?21,"MANSLAUGHTER/MURDER      Total # : ",$G(^UTILITY("DIQ1",$J,912.31,DA,61,"E"))+$G(^UTILITY("DIQ1",$J,912.31,DA,62,"E"))

 W !!,"Manslaughter/Murder/Negligent :  ",$G(^UTILITY("DIQ1",$J,912.31,DA,61,"E"))

 W !,"Manslaughter/Murder/Non-Neg.  :  ",$G(^UTILITY("DIQ1",$J,912.31,DA,62,"E"))

 W !!,?15,"Offender",?50,"Victim"

 W !!?10,"Employee: ",$G(^UTILITY("DIQ1",$J,912.31,DA,63,"E")),?45,"Employee      : ",$G(^UTILITY("DIQ1",$J,912.31,DA,68,"E"))

 W !?10,"Outsider: ",$G(^UTILITY("DIQ1",$J,912.31,DA,64,"E")),?45,"Outsider      : ",$G(^UTILITY("DIQ1",$J,912.31,DA,69,"E"))

 W !?10,"Patient : ",$G(^UTILITY("DIQ1",$J,912.31,DA,65,"E")),?45,"Patient       : ",$G(^UTILITY("DIQ1",$J,912.31,DA,70,"E"))

 W !?10,"Unknown : ",$G(^UTILITY("DIQ1",$J,912.31,DA,66,"E")),?45,"Visitor       : ",$G(^UTILITY("DIQ1",$J,912.31,DA,71,"E"))

 W !?10,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.31,DA,67,"E"))

 I $Y+10>IOSL D HDR1 Q:END

 W !!!?16,"NON-CRIMINAL INVESTIGATIONS    Total # : ",$G(^UTILITY("DIQ1",$J,912.31,DA,72,"E"))

 W !!,"Missing Patient Reaction   :  ",$G(^UTILITY("DIQ1",$J,912.31,DA,73,"E"))

 W ?40,"Government Veh. Accident    :  ",$G(^UTILITY("DIQ1",$J,912.31,DA,75,"E"))

 W !,"Personal Veh. Accident     :  ",$G(^UTILITY("DIQ1",$J,912.31,DA,76,"E"))

 W ?40,"Assist Law Officer          :  ",$G(^UTILITY("DIQ1",$J,912.31,DA,77,"E"))

 W !,"Staff Assist               :  ",$G(^UTILITY("DIQ1",$J,912.31,DA,78,"E"))

 W ?40,"Alarm Response              :  ",$G(^UTILITY("DIQ1",$J,912.31,DA,79,"E"))

 W !,"Safety Hazard              :  ",$G(^UTILITY("DIQ1",$J,912.31,DA,80,"E"))

 W ?40,"Information Only            :  ",$G(^UTILITY("DIQ1",$J,912.31,DA,188,"E"))

 I $Y+10>IOSL D HDR1 Q:END

 W !!!?25,"OTHER OFFENSES        Total # : ",$G(^UTILITY("DIQ1",$J,912.31,DA,81,"E"))

 W !!,"Arson                       :  ",$G(^UTILITY("DIQ1",$J,912.31,DA,82,"E"))

 W ?40,"Arson $ Damage              :  ",$G(^UTILITY("DIQ1",$J,912.31,DA,83,"E"))

 W !,"Possession/Stolen Property  :  ",$G(^UTILITY("DIQ1",$J,912.31,DA,84,"E"))

 W ?40,"Receive/Sell Stolen Property:  ",$G(^UTILITY("DIQ1",$J,912.31,DA,85,"E"))

 W !,"Suicide                     :  ",$G(^UTILITY("DIQ1",$J,912.31,DA,86,"E"))

 W ?40,"Suicide Attempt             :  ",$G(^UTILITY("DIQ1",$J,912.31,DA,87,"E"))

 I $Y+15>IOSL D HDR1 Q:END

 W !!!?25,"RAPES               Total # : ",$G(^UTILITY("DIQ1",$J,912.31,DA,88,"E"))

 W !!,"Attempted Rape              :  ",$G(^UTILITY("DIQ1",$J,912.31,DA,89,"E"))

 W !,"Forcible Rape               :  ",$G(^UTILITY("DIQ1",$J,912.31,DA,90,"E"))

 W !!,?15,"Offender",?50,"Victim"

 W !!?10,"Employee: ",$G(^UTILITY("DIQ1",$J,912.31,DA,91,"E")),?45,"Employee      : ",$G(^UTILITY("DIQ1",$J,912.31,DA,96,"E"))

 W !?10,"Outsider: ",$G(^UTILITY("DIQ1",$J,912.31,DA,92,"E")),?45,"Outsider      : ",$G(^UTILITY("DIQ1",$J,912.31,DA,97,"E"))

 W !?10,"Patient : ",$G(^UTILITY("DIQ1",$J,912.31,DA,93,"E")),?45,"Patient       : ",$G(^UTILITY("DIQ1",$J,912.31,DA,98,"E"))

 W !?10,"Unknown : ",$G(^UTILITY("DIQ1",$J,912.31,DA,94,"E")),?45,"Visitor       : ",$G(^UTILITY("DIQ1",$J,912.31,DA,99,"E"))

 W !?10,"Visitor : ",$G(^UTILITY("DIQ1",$J,912.31,DA,95,"E"))

 D PRT^ESPUCFP3

 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 ---ESPUCFP2   5514     printed  Apr 09, 2024@21:32:23                                                                                                                                                                                                    Page 2

ESPUCFP2  ;DALISC/CKA -PRINT UNIFORM CRIME REPORT (CONT)- 3/99

 +1       ;;1.0;POLICE & SECURITY;**27**;Mar 31, 1994

EN        ;CALLED FROM ESPUCFP1

           QUIT 

PRT       ;PRINT REPORT CONTINUED- PRINTS 2ND PAGE

 +1        IF $Y+15>IOSL

               DO HDR

               if END

                   QUIT 

 +2        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"))

 +3        WRITE !!?25,"DISTURBANCES         Total # : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,46,"E"))

 +4        WRITE !!,"Bomb Threats               :  ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,47,"E"))

 +5        WRITE ?40,"Demonstrations              :  ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,48,"E"))

 +6        WRITE !,"Disorderly Conduct         :  ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,49,"E"))

 +7        WRITE ?40,"Employee Threat             :  ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,50,"E"))

 +8        WRITE !,"Other Threat               :  ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,51,"E"))

 +9        WRITE ?40,"Smoking Violation           :  ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,52,"E"))

 +10       WRITE !,"Trespassing                :  ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,53,"E"))

 +11       WRITE ?40,"Unauthorized Photograph     :  ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,54,"E"))

 +12       WRITE !,"Unauth/Poss/Use/Keys/Cards :  ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,55,"E"))

 +13       WRITE !!,?15,"Offender"

 +14       WRITE !!?10,"Employee: ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,56,"E"))

 +15       WRITE ?30,"Outsider: ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,57,"E"))

 +16       WRITE !?10,"Patient : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,58,"E"))

 +17       WRITE ?30,"Unknown : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,59,"E"))

 +18       WRITE !?10,"Visitor : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,60,"E"))

 +19       IF $Y+15>IOSL

               DO HDR1

               if END

                   QUIT 

 +20       WRITE !!!?21,"MANSLAUGHTER/MURDER      Total # : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,61,"E"))+$GET(^UTILITY("DIQ1",$JOB,912.31,DA,62,"E"))

 +21       WRITE !!,"Manslaughter/Murder/Negligent :  ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,61,"E"))

 +22       WRITE !,"Manslaughter/Murder/Non-Neg.  :  ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,62,"E"))

 +23       WRITE !!,?15,"Offender",?50,"Victim"

 +24       WRITE !!?10,"Employee: ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,63,"E")),?45,"Employee      : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,68,"E"))

 +25       WRITE !?10,"Outsider: ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,64,"E")),?45,"Outsider      : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,69,"E"))

 +26       WRITE !?10,"Patient : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,65,"E")),?45,"Patient       : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,70,"E"))

 +27       WRITE !?10,"Unknown : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,66,"E")),?45,"Visitor       : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,71,"E"))

 +28       WRITE !?10,"Visitor : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,67,"E"))

 +29       IF $Y+10>IOSL

               DO HDR1

               if END

                   QUIT 

 +30       WRITE !!!?16,"NON-CRIMINAL INVESTIGATIONS    Total # : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,72,"E"))

 +31       WRITE !!,"Missing Patient Reaction   :  ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,73,"E"))

 +32       WRITE ?40,"Government Veh. Accident    :  ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,75,"E"))

 +33       WRITE !,"Personal Veh. Accident     :  ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,76,"E"))

 +34       WRITE ?40,"Assist Law Officer          :  ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,77,"E"))

 +35       WRITE !,"Staff Assist               :  ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,78,"E"))

 +36       WRITE ?40,"Alarm Response              :  ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,79,"E"))

 +37       WRITE !,"Safety Hazard              :  ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,80,"E"))

 +38       WRITE ?40,"Information Only            :  ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,188,"E"))

 +39       IF $Y+10>IOSL

               DO HDR1

               if END

                   QUIT 

 +40       WRITE !!!?25,"OTHER OFFENSES        Total # : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,81,"E"))

 +41       WRITE !!,"Arson                       :  ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,82,"E"))

 +42       WRITE ?40,"Arson $ Damage              :  ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,83,"E"))

 +43       WRITE !,"Possession/Stolen Property  :  ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,84,"E"))

 +44       WRITE ?40,"Receive/Sell Stolen Property:  ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,85,"E"))

 +45       WRITE !,"Suicide                     :  ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,86,"E"))

 +46       WRITE ?40,"Suicide Attempt             :  ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,87,"E"))

 +47       IF $Y+15>IOSL

               DO HDR1

               if END

                   QUIT 

 +48       WRITE !!!?25,"RAPES               Total # : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,88,"E"))

 +49       WRITE !!,"Attempted Rape              :  ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,89,"E"))

 +50       WRITE !,"Forcible Rape               :  ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,90,"E"))

 +51       WRITE !!,?15,"Offender",?50,"Victim"

 +52       WRITE !!?10,"Employee: ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,91,"E")),?45,"Employee      : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,96,"E"))

 +53       WRITE !?10,"Outsider: ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,92,"E")),?45,"Outsider      : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,97,"E"))

 +54       WRITE !?10,"Patient : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,93,"E")),?45,"Patient       : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,98,"E"))

 +55       WRITE !?10,"Unknown : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,94,"E")),?45,"Visitor       : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,99,"E"))

 +56       WRITE !?10,"Visitor : ",$GET(^UTILITY("DIQ1",$JOB,912.31,DA,95,"E"))

 +57       DO PRT^ESPUCFP3

 +58       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