- 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 Jan 18, 2025@03:31:17 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