- 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 Feb 18, 2025@23:57:11 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