ESPUCM6 ;DALISC/CKA -UNIFORM CRIME REPORT IN MAIL MESSAGE (CONT)- 4/93
;;1.0;POLICE & SECURITY;**13**;Mar 31, 1994
EN Q ;CALLED FROM ESPUCM5
PRT ;PRINT REPORT CONTINUED- PRINTS 6TH PAGE
D HDR
S ESPX=" " D MSG S ESPX=$E(SPACES,1,25)_"VIOLATION CHARGES Total # : "_$G(^UTILITY("DIQ1",$J,912.41,DA,171,"E")) D MSG
S ESPX=" " D MSG S ESPX="Courtesy Warnings Total # : "_$G(^UTILITY("DIQ1",$J,912.41,DA,172,"E")) D MSG
S ESPX=" " D MSG S ESPX="Non-Traffic : "_$G(^UTILITY("DIQ1",$J,912.41,DA,173,"E")) D MSG
S ESPX="Moving : "_$G(^UTILITY("DIQ1",$J,912.41,DA,174,"E")) D MSG
S ESPX="Parking : "_$G(^UTILITY("DIQ1",$J,912.41,DA,175,"E")) D MSG
S ESPX=" " D MSG S ESPX=$E(SPACES,1,3)_"Offender" D MSG
S ESPX=" " D MSG S ESPX="Employee: "_$G(^UTILITY("DIQ1",$J,912.41,DA,176,"E")) D MSG
S ESPX="Outsider: "_$G(^UTILITY("DIQ1",$J,912.41,DA,177,"E")) D MSG
S ESPX="Patient : "_$G(^UTILITY("DIQ1",$J,912.41,DA,178,"E")) D MSG
S ESPX="Visitor : "_$G(^UTILITY("DIQ1",$J,912.41,DA,179,"E")) D MSG
S ESPX=" " D MSG S ESPX="USDC Notice Total # : "_$G(^UTILITY("DIQ1",$J,912.41,DA,180,"E")) D MSG
S ESPX=" " D MSG S ESPX="Non-Traffic : "_$G(^UTILITY("DIQ1",$J,912.41,DA,181,"E")) D MSG
S ESPX="Moving : "_$G(^UTILITY("DIQ1",$J,912.41,DA,182,"E")) D MSG
S ESPX="Parking : "_$G(^UTILITY("DIQ1",$J,912.41,DA,183,"E")) D MSG
S ESPX=" " D MSG S ESPX=$E(SPACES,1,3)_"Offender" D MSG
S ESPX=" " D MSG S ESPX="Employee: "_$G(^UTILITY("DIQ1",$J,912.41,DA,184,"E")) D MSG
S ESPX="Outsider: "_$G(^UTILITY("DIQ1",$J,912.41,DA,185,"E")) D MSG
S ESPX="Patient : "_$G(^UTILITY("DIQ1",$J,912.41,DA,186,"E")) D MSG
S ESPX="Visitor : "_$G(^UTILITY("DIQ1",$J,912.41,DA,187,"E")) D MSG
W "..Done.",!!
I ESPFLG D
.W "The report will be forwarded to the national database. You may now enter"
.W !,"any additional people you would like to forward this report to.",!
SEND ;SEND MAIL MESSAGE
S XMSUB="UNIFORM CRIME REPORT"
S XMTEXT="^TMP($J,""UCM"","
S XMDUN="Police & Security Package"
D ^XMD
I ESPFLG D VAPTX
QUIT
HDR ;PRINT HEADING
S PAGE=PAGE+1 S ESPX=$E(SPACES,1,25)_"DEPARTMENT OF VETERANS AFFAIRS"_$E(SPACES,1,(IOM-65))_"PAGE: "_$J(PAGE,3) D MSG
S ESPX=$E(SPACES,1,35)_"VA POLICE" D MSG S ESPX=$E(SPACES,1,33)_"UNIFORM CRIME REPORT" D MSG
S ESPX=" " D MSG S ESPX="VA Facility "_$P(^ESP(912.4,ESPIEN,1,1,0),U) D MSG
QUIT
MSG S ^TMP($J,"UCM",ESPL)=ESPX,ESPL=ESPL+1
QUIT
;
VAPTX S XMY("XXX@Q-VAP.DOMAIN.EXT")=""
D ENT1^XMD
W !,"...Forwarded to National Database.",!
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HESPUCM6 2652 printed Sep 23, 2025@20:07:01 Page 2
ESPUCM6 ;DALISC/CKA -UNIFORM CRIME REPORT IN MAIL MESSAGE (CONT)- 4/93
+1 ;;1.0;POLICE & SECURITY;**13**;Mar 31, 1994
EN ;CALLED FROM ESPUCM5
QUIT
PRT ;PRINT REPORT CONTINUED- PRINTS 6TH PAGE
+1 DO HDR
+2 SET ESPX=" "
DO MSG
SET ESPX=$EXTRACT(SPACES,1,25)_"VIOLATION CHARGES Total # : "_$GET(^UTILITY("DIQ1",$JOB,912.41,DA,171,"E"))
DO MSG
+3 SET ESPX=" "
DO MSG
SET ESPX="Courtesy Warnings Total # : "_$GET(^UTILITY("DIQ1",$JOB,912.41,DA,172,"E"))
DO MSG
+4 SET ESPX=" "
DO MSG
SET ESPX="Non-Traffic : "_$GET(^UTILITY("DIQ1",$JOB,912.41,DA,173,"E"))
DO MSG
+5 SET ESPX="Moving : "_$GET(^UTILITY("DIQ1",$JOB,912.41,DA,174,"E"))
DO MSG
+6 SET ESPX="Parking : "_$GET(^UTILITY("DIQ1",$JOB,912.41,DA,175,"E"))
DO MSG
+7 SET ESPX=" "
DO MSG
SET ESPX=$EXTRACT(SPACES,1,3)_"Offender"
DO MSG
+8 SET ESPX=" "
DO MSG
SET ESPX="Employee: "_$GET(^UTILITY("DIQ1",$JOB,912.41,DA,176,"E"))
DO MSG
+9 SET ESPX="Outsider: "_$GET(^UTILITY("DIQ1",$JOB,912.41,DA,177,"E"))
DO MSG
+10 SET ESPX="Patient : "_$GET(^UTILITY("DIQ1",$JOB,912.41,DA,178,"E"))
DO MSG
+11 SET ESPX="Visitor : "_$GET(^UTILITY("DIQ1",$JOB,912.41,DA,179,"E"))
DO MSG
+12 SET ESPX=" "
DO MSG
SET ESPX="USDC Notice Total # : "_$GET(^UTILITY("DIQ1",$JOB,912.41,DA,180,"E"))
DO MSG
+13 SET ESPX=" "
DO MSG
SET ESPX="Non-Traffic : "_$GET(^UTILITY("DIQ1",$JOB,912.41,DA,181,"E"))
DO MSG
+14 SET ESPX="Moving : "_$GET(^UTILITY("DIQ1",$JOB,912.41,DA,182,"E"))
DO MSG
+15 SET ESPX="Parking : "_$GET(^UTILITY("DIQ1",$JOB,912.41,DA,183,"E"))
DO MSG
+16 SET ESPX=" "
DO MSG
SET ESPX=$EXTRACT(SPACES,1,3)_"Offender"
DO MSG
+17 SET ESPX=" "
DO MSG
SET ESPX="Employee: "_$GET(^UTILITY("DIQ1",$JOB,912.41,DA,184,"E"))
DO MSG
+18 SET ESPX="Outsider: "_$GET(^UTILITY("DIQ1",$JOB,912.41,DA,185,"E"))
DO MSG
+19 SET ESPX="Patient : "_$GET(^UTILITY("DIQ1",$JOB,912.41,DA,186,"E"))
DO MSG
+20 SET ESPX="Visitor : "_$GET(^UTILITY("DIQ1",$JOB,912.41,DA,187,"E"))
DO MSG
+21 WRITE "..Done.",!!
+22 IF ESPFLG
Begin DoDot:1
+23 WRITE "The report will be forwarded to the national database. You may now enter"
+24 WRITE !,"any additional people you would like to forward this report to.",!
End DoDot:1
SEND ;SEND MAIL MESSAGE
+1 SET XMSUB="UNIFORM CRIME REPORT"
+2 SET XMTEXT="^TMP($J,""UCM"","
+3 SET XMDUN="Police & Security Package"
+4 DO ^XMD
+5 IF ESPFLG
DO VAPTX
+6 QUIT
HDR ;PRINT HEADING
+1 SET PAGE=PAGE+1
SET ESPX=$EXTRACT(SPACES,1,25)_"DEPARTMENT OF VETERANS AFFAIRS"_$EXTRACT(SPACES,1,(IOM-65))_"PAGE: "_$JUSTIFY(PAGE,3)
DO MSG
+2 SET ESPX=$EXTRACT(SPACES,1,35)_"VA POLICE"
DO MSG
SET ESPX=$EXTRACT(SPACES,1,33)_"UNIFORM CRIME REPORT"
DO MSG
+3 SET ESPX=" "
DO MSG
SET ESPX="VA Facility "_$PIECE(^ESP(912.4,ESPIEN,1,1,0),U)
DO MSG
+4 QUIT
MSG SET ^TMP($JOB,"UCM",ESPL)=ESPX
SET ESPL=ESPL+1
+1 QUIT
+2 ;
VAPTX SET XMY("XXX@Q-VAP.DOMAIN.EXT")=""
+1 DO ENT1^XMD
+2 WRITE !,"...Forwarded to National Database.",!
+3 QUIT
