ESPORP1 ;DALISC/CKA - PRINT OFFENSE REPORT CONT. ;10/92
;;1.0;POLICE & SECURITY;**14,17**;Mar 31, 1994
EN ;
COMP ;PRINT COMPLAINANTS
F ESPN=0:0 S ESPN=$O(^ESP(912,ESPID,20,ESPN)) Q:ESPN'>0 D G EXIT:END
. S DIC="^ESP(912,"_ESPID_",20,",DA=ESPN,DR=".02;.03;1.01:1.06;2.01:2.06",DIQ(0)="E" D EN^DIQ1 Q:'$D(^UTILITY("DIQ1",$J,912.03,DA))
. D LINES^ESPORP(2) Q:END
. F I=1:1:16 W "* "
. W "COMPLAINANT DATA" F I=1:1:15 W " *"
. D LINES^ESPORP(2) Q:END
. W "COMPLAINANT NAME: ",$G(^UTILITY("DIQ1",$J,912.03,DA,.02,"E"))
. D LINES^ESPORP() Q:END
. W "STATUS: ",$G(^UTILITY("DIQ1",$J,912.03,DA,.03,"E"))
. D LINES^ESPORP() Q:END
. W "HOME ADDRESS: ",$G(^UTILITY("DIQ1",$J,912.03,DA,1.01,"E"))
. I $G(^UTILITY("DIQ1",$J,912.03,DA,1.02,"E"))]"" D LINES^ESPORP() Q:END W ?14,$G(^UTILITY("DIQ1",$J,912.03,DA,1.02,"E"))
. I $G(^UTILITY("DIQ1",$J,912.03,DA,1.03,"E"))]"" D LINES^ESPORP() Q:END W ?14,$G(^UTILITY("DIQ1",$J,912.03,DA,1.03,"E")),","
. W $G(^UTILITY("DIQ1",$J,912.03,DA,1.04,"E"))," ",$G(^UTILITY("DIQ1",$J,912.03,DA,1.05,"E"))
. D LINES^ESPORP() Q:END
. W "HOME PHONE: ",$G(^UTILITY("DIQ1",$J,912.03,DA,1.06,"E"))
. D LINES^ESPORP() Q:END
. W "WORK ADDRESS: ",$G(^UTILITY("DIQ1",$J,912.03,DA,2.01,"E"))
. I $G(^UTILITY("DIQ1",$J,912.03,DA,2.02,"E"))]"" D LINES^ESPORP() Q:END W ?14,$G(^UTILITY("DIQ1",$J,912.03,DA,2.02,"E"))
. I $G(^UTILITY("DIQ1",$J,912.03,DA,2.03,"E"))]"" D LINES^ESPORP() Q:END W ?14,$G(^UTILITY("DIQ1",$J,912.03,DA,2.03,"E")),","
. W $G(^UTILITY("DIQ1",$J,912.03,DA,2.04,"E"))," ",$G(^UTILITY("DIQ1",$J,912.03,DA,2.05,"E"))
. D LINES^ESPORP() Q:END
. W "WORK PHONE: ",$G(^UTILITY("DIQ1",$J,912.03,DA,2.06,"E"))
VIC ;PRINT VICTIMS
G:'$D(^ESP(912,ESPID,30)) CONT
F ESPN=0:0 S ESPN=$O(^ESP(912,ESPID,30,ESPN)) Q:ESPN'>0!(END) D
. S DIC="^ESP(912,"_ESPID_",30,",DA=ESPN,DR=".02:.07;1.01:1.06;2.01:2.06",DIQ(0)="E" D EN^DIQ1 Q:'$D(^UTILITY("DIQ1",$J,912.04,DA))
. D MIN^ESPORP(15) Q:END
. D LINES^ESPORP(2) Q:END F I=1:1:17 W "* "
. W "VICTIM DATA"
. F I=1:1:17 W " *"
. D LINES^ESPORP(2) Q:END W "VICTIM NAME: ",$G(^UTILITY("DIQ1",$J,912.04,DA,.02,"E"))
. D LINES^ESPORP() Q:END W "SEX: ",$G(^UTILITY("DIQ1",$J,912.04,DA,.03,"E"))
. W ?20,"RACE: ",$G(^UTILITY("DIQ1",$J,912.04,DA,.04,"E"))
. D LINES^ESPORP() Q:END W "STATUS: ",$G(^UTILITY("DIQ1",$J,912.04,DA,.05,"E"))
. D LINES^ESPORP() Q:END W "DRIVER'S LICENSE & STATE: ",$G(^UTILITY("DIQ1",$J,912.04,DA,.06,"E"))," ",$G(^UTILITY("DIQ1",$J,912.04,DA,.07,"E"))
. D LINES^ESPORP() Q:END W "HOME ADDRESS: ",$G(^UTILITY("DIQ1",$J,912.04,DA,1.01,"E"))
. I $G(^UTILITY("DIQ1",$J,912.04,DA,1.02,"E"))]"" D LINES^ESPORP() Q:END W ?14,$G(^UTILITY("DIQ1",$J,912.04,DA,1.02,"E"))
. I $G(^UTILITY("DIQ1",$J,912.04,DA,1.03,"E"))]"" D LINES^ESPORP() Q:END W ?14,$G(^UTILITY("DIQ1",$J,912.04,DA,1.03,"E")),","
. W $G(^UTILITY("DIQ1",$J,912.04,DA,1.04,"E"))," ",$G(^UTILITY("DIQ1",$J,912.04,DA,1.05,"E"))
. D LINES^ESPORP() Q:END W "HOME PHONE: ",$G(^UTILITY("DIQ1",$J,912.04,DA,1.06,"E"))
. D LINES^ESPORP() Q:END W "WORK ADDRESS: ",$G(^UTILITY("DIQ1",$J,912.04,DA,2.01,"E"))
. I $G(^UTILITY("DIQ1",$J,912.04,DA,2.02,"E"))]"" D LINES^ESPORP() Q:END W ?14,$G(^UTILITY("DIQ1",$J,912.04,DA,2.02,"E"))
. I $G(^UTILITY("DIQ1",$J,912.04,DA,2.03,"E"))]"" D LINES^ESPORP() Q:END W ?14,$G(^UTILITY("DIQ1",$J,912.04,DA,2.03,"E")),","
. W $G(^UTILITY("DIQ1",$J,912.04,DA,2.04,"E"))," ",$G(^UTILITY("DIQ1",$J,912.04,DA,2.05,"E"))
. D LINES^ESPORP() Q:END W "WORK PHONE: ",$G(^UTILITY("DIQ1",$J,912.04,DA,2.06,"E"))
. K ^UTILITY($J,"W") S DIWL=10,DIWR=70,DIWF="W",IEN=0
. D LINES^ESPORP() Q:END W "MEDICAL TREATMENT:",!
. F ESPN1=1:1 S IEN=$O(^ESP(912,ESPID,30,ESPN,10,IEN)) Q:IEN'>0 S X=^(IEN,0) D Q:END
. . D MIN^ESPORP(2) Q:END
. . D ^DIWP
. Q:END
. D ^DIWW
CONT G:END EXIT G ^ESPORP2
EXIT K DA,DIC,DIQ,DIWF,DIWL,DIWR,ESPDOB,ESPDOBP,DR,END,ESPDTR,ESPID,ESPFN,ESPN,ESPN1,IEN,PAGE,SSN,X
K ^UTILITY("DIQ1",$J)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HESPORP1 4046 printed Nov 22, 2024@17:40:09 Page 2
ESPORP1 ;DALISC/CKA - PRINT OFFENSE REPORT CONT. ;10/92
+1 ;;1.0;POLICE & SECURITY;**14,17**;Mar 31, 1994
EN ;
COMP ;PRINT COMPLAINANTS
+1 FOR ESPN=0:0
SET ESPN=$ORDER(^ESP(912,ESPID,20,ESPN))
if ESPN'>0
QUIT
Begin DoDot:1
+2 SET DIC="^ESP(912,"_ESPID_",20,"
SET DA=ESPN
SET DR=".02;.03;1.01:1.06;2.01:2.06"
SET DIQ(0)="E"
DO EN^DIQ1
if '$DATA(^UTILITY("DIQ1",$JOB,912.03,DA))
QUIT
+3 DO LINES^ESPORP(2)
if END
QUIT
+4 FOR I=1:1:16
WRITE "* "
+5 WRITE "COMPLAINANT DATA"
FOR I=1:1:15
WRITE " *"
+6 DO LINES^ESPORP(2)
if END
QUIT
+7 WRITE "COMPLAINANT NAME: ",$GET(^UTILITY("DIQ1",$JOB,912.03,DA,.02,"E"))
+8 DO LINES^ESPORP()
if END
QUIT
+9 WRITE "STATUS: ",$GET(^UTILITY("DIQ1",$JOB,912.03,DA,.03,"E"))
+10 DO LINES^ESPORP()
if END
QUIT
+11 WRITE "HOME ADDRESS: ",$GET(^UTILITY("DIQ1",$JOB,912.03,DA,1.01,"E"))
+12 IF $GET(^UTILITY("DIQ1",$JOB,912.03,DA,1.02,"E"))]""
DO LINES^ESPORP()
if END
QUIT
WRITE ?14,$GET(^UTILITY("DIQ1",$JOB,912.03,DA,1.02,"E"))
+13 IF $GET(^UTILITY("DIQ1",$JOB,912.03,DA,1.03,"E"))]""
DO LINES^ESPORP()
if END
QUIT
WRITE ?14,$GET(^UTILITY("DIQ1",$JOB,912.03,DA,1.03,"E")),","
+14 WRITE $GET(^UTILITY("DIQ1",$JOB,912.03,DA,1.04,"E"))," ",$GET(^UTILITY("DIQ1",$JOB,912.03,DA,1.05,"E"))
+15 DO LINES^ESPORP()
if END
QUIT
+16 WRITE "HOME PHONE: ",$GET(^UTILITY("DIQ1",$JOB,912.03,DA,1.06,"E"))
+17 DO LINES^ESPORP()
if END
QUIT
+18 WRITE "WORK ADDRESS: ",$GET(^UTILITY("DIQ1",$JOB,912.03,DA,2.01,"E"))
+19 IF $GET(^UTILITY("DIQ1",$JOB,912.03,DA,2.02,"E"))]""
DO LINES^ESPORP()
if END
QUIT
WRITE ?14,$GET(^UTILITY("DIQ1",$JOB,912.03,DA,2.02,"E"))
+20 IF $GET(^UTILITY("DIQ1",$JOB,912.03,DA,2.03,"E"))]""
DO LINES^ESPORP()
if END
QUIT
WRITE ?14,$GET(^UTILITY("DIQ1",$JOB,912.03,DA,2.03,"E")),","
+21 WRITE $GET(^UTILITY("DIQ1",$JOB,912.03,DA,2.04,"E"))," ",$GET(^UTILITY("DIQ1",$JOB,912.03,DA,2.05,"E"))
+22 DO LINES^ESPORP()
if END
QUIT
+23 WRITE "WORK PHONE: ",$GET(^UTILITY("DIQ1",$JOB,912.03,DA,2.06,"E"))
End DoDot:1
if END
GOTO EXIT
VIC ;PRINT VICTIMS
+1 if '$DATA(^ESP(912,ESPID,30))
GOTO CONT
+2 FOR ESPN=0:0
SET ESPN=$ORDER(^ESP(912,ESPID,30,ESPN))
if ESPN'>0!(END)
QUIT
Begin DoDot:1
+3 SET DIC="^ESP(912,"_ESPID_",30,"
SET DA=ESPN
SET DR=".02:.07;1.01:1.06;2.01:2.06"
SET DIQ(0)="E"
DO EN^DIQ1
if '$DATA(^UTILITY("DIQ1",$JOB,912.04,DA))
QUIT
+4 DO MIN^ESPORP(15)
if END
QUIT
+5 DO LINES^ESPORP(2)
if END
QUIT
FOR I=1:1:17
WRITE "* "
+6 WRITE "VICTIM DATA"
+7 FOR I=1:1:17
WRITE " *"
+8 DO LINES^ESPORP(2)
if END
QUIT
WRITE "VICTIM NAME: ",$GET(^UTILITY("DIQ1",$JOB,912.04,DA,.02,"E"))
+9 DO LINES^ESPORP()
if END
QUIT
WRITE "SEX: ",$GET(^UTILITY("DIQ1",$JOB,912.04,DA,.03,"E"))
+10 WRITE ?20,"RACE: ",$GET(^UTILITY("DIQ1",$JOB,912.04,DA,.04,"E"))
+11 DO LINES^ESPORP()
if END
QUIT
WRITE "STATUS: ",$GET(^UTILITY("DIQ1",$JOB,912.04,DA,.05,"E"))
+12 DO LINES^ESPORP()
if END
QUIT
WRITE "DRIVER'S LICENSE & STATE: ",$GET(^UTILITY("DIQ1",$JOB,912.04,DA,.06,"E"))," ",$GET(^UTILITY("DIQ1",$JOB,912.04,DA,.07,"E"))
+13 DO LINES^ESPORP()
if END
QUIT
WRITE "HOME ADDRESS: ",$GET(^UTILITY("DIQ1",$JOB,912.04,DA,1.01,"E"))
+14 IF $GET(^UTILITY("DIQ1",$JOB,912.04,DA,1.02,"E"))]""
DO LINES^ESPORP()
if END
QUIT
WRITE ?14,$GET(^UTILITY("DIQ1",$JOB,912.04,DA,1.02,"E"))
+15 IF $GET(^UTILITY("DIQ1",$JOB,912.04,DA,1.03,"E"))]""
DO LINES^ESPORP()
if END
QUIT
WRITE ?14,$GET(^UTILITY("DIQ1",$JOB,912.04,DA,1.03,"E")),","
+16 WRITE $GET(^UTILITY("DIQ1",$JOB,912.04,DA,1.04,"E"))," ",$GET(^UTILITY("DIQ1",$JOB,912.04,DA,1.05,"E"))
+17 DO LINES^ESPORP()
if END
QUIT
WRITE "HOME PHONE: ",$GET(^UTILITY("DIQ1",$JOB,912.04,DA,1.06,"E"))
+18 DO LINES^ESPORP()
if END
QUIT
WRITE "WORK ADDRESS: ",$GET(^UTILITY("DIQ1",$JOB,912.04,DA,2.01,"E"))
+19 IF $GET(^UTILITY("DIQ1",$JOB,912.04,DA,2.02,"E"))]""
DO LINES^ESPORP()
if END
QUIT
WRITE ?14,$GET(^UTILITY("DIQ1",$JOB,912.04,DA,2.02,"E"))
+20 IF $GET(^UTILITY("DIQ1",$JOB,912.04,DA,2.03,"E"))]""
DO LINES^ESPORP()
if END
QUIT
WRITE ?14,$GET(^UTILITY("DIQ1",$JOB,912.04,DA,2.03,"E")),","
+21 WRITE $GET(^UTILITY("DIQ1",$JOB,912.04,DA,2.04,"E"))," ",$GET(^UTILITY("DIQ1",$JOB,912.04,DA,2.05,"E"))
+22 DO LINES^ESPORP()
if END
QUIT
WRITE "WORK PHONE: ",$GET(^UTILITY("DIQ1",$JOB,912.04,DA,2.06,"E"))
+23 KILL ^UTILITY($JOB,"W")
SET DIWL=10
SET DIWR=70
SET DIWF="W"
SET IEN=0
+24 DO LINES^ESPORP()
if END
QUIT
WRITE "MEDICAL TREATMENT:",!
+25 FOR ESPN1=1:1
SET IEN=$ORDER(^ESP(912,ESPID,30,ESPN,10,IEN))
if IEN'>0
QUIT
SET X=^(IEN,0)
Begin DoDot:2
+26 DO MIN^ESPORP(2)
if END
QUIT
+27 DO ^DIWP
End DoDot:2
if END
QUIT
+28 if END
QUIT
+29 DO ^DIWW
End DoDot:1
CONT if END
GOTO EXIT
GOTO ^ESPORP2
EXIT KILL DA,DIC,DIQ,DIWF,DIWL,DIWR,ESPDOB,ESPDOBP,DR,END,ESPDTR,ESPID,ESPFN,ESPN,ESPN1,IEN,PAGE,SSN,X
+1 KILL ^UTILITY("DIQ1",$JOB)
+2 QUIT
