ESPORP5 ;DALISC/CKA - PRINT OFFENSE REPORT CONT. ;10/92
;;1.0;POLICE & SECURITY;**11,14,17,21,25,39**;Mar 31, 1994
EN ;CONTINUED FROM ESPORP4
NARR ;PRINT NARRATIVE
D MIN^ESPORP(10) G:END EXIT
K ^UTILITY($J,"W") S DIWL=3,DIWR=78,DIWF="W",IEN=0 D LINES^ESPORP(2) G:END EXIT
F I=1:1:18 W "* "
W "NARRATIVE" F I=1:1:17 W " *"
D LINES^ESPORP(2) Q:END W ?10,"ORIGIN:" D LINES^ESPORP(2) Q:END
F ESPN=1:1 S IEN=$O(^ESP(912,ESPID,70,IEN)) Q:IEN'>0 S X=^(IEN,0) D Q:END
. D:($Y+2>IOSL) HDR^ESPORP Q:END
. D ^DIWP
G:END EXIT
D ^DIWW
K ^UTILITY($J,"W") S DIWL=3,DIWR=78,DIWF="W",IEN=0
D MIN^ESPORP(2) G:END EXIT
D LINES^ESPORP(2) G:END EXIT W ?10,"INITIAL OBSERVATION:" D LINES^ESPORP(2) G:END EXIT
F ESPN=1:1 S IEN=$O(^ESP(912,ESPID,72,IEN)) Q:IEN'>0 S X=^(IEN,0) D Q:END
. D:($Y+2>IOSL) HDR^ESPORP Q:END
. D ^DIWP
G:END EXIT
D ^DIWW
;
K ^UTILITY($J,"W") S DIWL=3,DIWR=78,DIWF="W",IEN=0
D MIN^ESPORP(8) G:END EXIT
D LINES^ESPORP(2) G:END EXIT W ?10,"INVESTIGATION:" D LINES^ESPORP(2) G:END EXIT
F ESON=1:1 S IEN=$O(^ESP(912,ESPID,73,IEN)) Q:IEN'>0 S X=^(IEN,0) D Q:END
. D:($Y+2>IOSL) HDR^ESPORP Q:END
. D ^DIWP
G:END EXIT
D ^DIWW
;
K ^UTILITY($J,"W") S DIWL=3,DIWR=78,DIWF="W",IEN=0
D MIN^ESPORP(10) G:END EXIT
D LINES^ESPORP(2) G:END EXIT W ?10,"DISPOSITION:" D LINES^ESPORP(2) G:END EXIT
F ESPN=1:1 S IEN=$O(^ESP(912,ESPID,74,IEN)) Q:IEN'>0 S X=^(IEN,0) D Q:END
. D:($Y+2>IOSL) HDR^ESPORP Q:END
. D ^DIWP
G:END EXIT
D ^DIWW
SIG D MIN^ESPORP(5) G:END EXIT
D LINES^ESPORP(5) G:END EXIT
S DIC="^ESP(912,",DA=ESPID,DR=".06",DIQ(0)="I" D EN^DIQ1
S ESPOFF=$G(^UTILITY("DIQ1",$J,912,DA,.06,"I"))
G:ESPOFF']"" FOL
S DIC="^VA(200,",DA=ESPOFF,DR="20.2;910.1",DIQ(0)="E" D EN^DIQ1
D LINES^ESPORP() G:END EXIT
W $G(^UTILITY("DIQ1",$J,200,DA,20.2,"E"))," # ",BADGE
D LINES^ESPORP() G:END EXIT W "INVESTIGATING OFFICER"
FOL ;PRINT FOLLOW-UP NOTES
G:'$D(^ESP(912,ESPID,130)) EXIT
D HDR^ESPORP G:END EXIT
F ESPN=0:0 S ESPN=$O(^ESP(912,ESPID,130,ESPN)) Q:ESPN'>0!(END) D
. D HDR^ESPORP:$Y+10>IOSL&(ESPN'=1) Q:END
. D LINES^ESPORP(1) Q:END W "FOLLOW-UP NOTES:" D LINES^ESPORP(2) Q:END
. K ^UTILITY($J,"W") S DIWL=3,DIWR=78,DIWF="W",IEN=0
. F ESPN1=1:1 S IEN=$O(^ESP(912,ESPID,130,ESPN,10,IEN)) Q:IEN'>0 S X=^(IEN,0) D Q:END
. . D:($Y+2>IOSL) HDR^ESPORP Q:END
. . D ^DIWP
. Q:END
. D ^DIWW
. S DIC="^ESP(912,"_ESPID_",130,",DA=ESPN,DR=".01",DIQ(0)="I" D EN^DIQ1
. S ESPOFF=$G(^UTILITY("DIQ1",$J,912.17,DA,.01,"I"))
. Q:ESPOFF']""
. S DIC="^VA(200,",DA=ESPOFF,DR="20.2;910.1",DIQ(0)="E" D EN^DIQ1
. D LINES^ESPORP(5) Q:END
. W $G(^UTILITY("DIQ1",$J,200,DA,20.2,"E"))," # ",$G(^UTILITY("DIQ1",$J,200,DA,910.1,"E"))
. D LINES^ESPORP(1) Q:END
. W "FOLLOW-UP INVESTIGATOR"
. D LINES^ESPORP(5) Q:END
EXIT D ^%ZISC
K CL,DA,DIC,DIQ,DIR,DIRUT,DIWF,DIWL,DIWR,ESPDOB,ESPDOBP,DR,DTOUT,DUOUT,END,ESPDTR,ESPID,ESPFN,ESON,ESPN,ESPN1,ESPOFF,IEN,PAGE,SSN,X,Y,Z,POP
K ^UTILITY("DIQ1",$J)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HESPORP5 3032 printed Sep 23, 2025@20:06:33 Page 2
ESPORP5 ;DALISC/CKA - PRINT OFFENSE REPORT CONT. ;10/92
+1 ;;1.0;POLICE & SECURITY;**11,14,17,21,25,39**;Mar 31, 1994
EN ;CONTINUED FROM ESPORP4
NARR ;PRINT NARRATIVE
+1 DO MIN^ESPORP(10)
if END
GOTO EXIT
+2 KILL ^UTILITY($JOB,"W")
SET DIWL=3
SET DIWR=78
SET DIWF="W"
SET IEN=0
DO LINES^ESPORP(2)
if END
GOTO EXIT
+3 FOR I=1:1:18
WRITE "* "
+4 WRITE "NARRATIVE"
FOR I=1:1:17
WRITE " *"
+5 DO LINES^ESPORP(2)
if END
QUIT
WRITE ?10,"ORIGIN:"
DO LINES^ESPORP(2)
if END
QUIT
+6 FOR ESPN=1:1
SET IEN=$ORDER(^ESP(912,ESPID,70,IEN))
if IEN'>0
QUIT
SET X=^(IEN,0)
Begin DoDot:1
+7 if ($Y+2>IOSL)
DO HDR^ESPORP
if END
QUIT
+8 DO ^DIWP
End DoDot:1
if END
QUIT
+9 if END
GOTO EXIT
+10 DO ^DIWW
+11 KILL ^UTILITY($JOB,"W")
SET DIWL=3
SET DIWR=78
SET DIWF="W"
SET IEN=0
+12 DO MIN^ESPORP(2)
if END
GOTO EXIT
+13 DO LINES^ESPORP(2)
if END
GOTO EXIT
WRITE ?10,"INITIAL OBSERVATION:"
DO LINES^ESPORP(2)
if END
GOTO EXIT
+14 FOR ESPN=1:1
SET IEN=$ORDER(^ESP(912,ESPID,72,IEN))
if IEN'>0
QUIT
SET X=^(IEN,0)
Begin DoDot:1
+15 if ($Y+2>IOSL)
DO HDR^ESPORP
if END
QUIT
+16 DO ^DIWP
End DoDot:1
if END
QUIT
+17 if END
GOTO EXIT
+18 DO ^DIWW
+19 ;
+20 KILL ^UTILITY($JOB,"W")
SET DIWL=3
SET DIWR=78
SET DIWF="W"
SET IEN=0
+21 DO MIN^ESPORP(8)
if END
GOTO EXIT
+22 DO LINES^ESPORP(2)
if END
GOTO EXIT
WRITE ?10,"INVESTIGATION:"
DO LINES^ESPORP(2)
if END
GOTO EXIT
+23 FOR ESON=1:1
SET IEN=$ORDER(^ESP(912,ESPID,73,IEN))
if IEN'>0
QUIT
SET X=^(IEN,0)
Begin DoDot:1
+24 if ($Y+2>IOSL)
DO HDR^ESPORP
if END
QUIT
+25 DO ^DIWP
End DoDot:1
if END
QUIT
+26 if END
GOTO EXIT
+27 DO ^DIWW
+28 ;
+29 KILL ^UTILITY($JOB,"W")
SET DIWL=3
SET DIWR=78
SET DIWF="W"
SET IEN=0
+30 DO MIN^ESPORP(10)
if END
GOTO EXIT
+31 DO LINES^ESPORP(2)
if END
GOTO EXIT
WRITE ?10,"DISPOSITION:"
DO LINES^ESPORP(2)
if END
GOTO EXIT
+32 FOR ESPN=1:1
SET IEN=$ORDER(^ESP(912,ESPID,74,IEN))
if IEN'>0
QUIT
SET X=^(IEN,0)
Begin DoDot:1
+33 if ($Y+2>IOSL)
DO HDR^ESPORP
if END
QUIT
+34 DO ^DIWP
End DoDot:1
if END
QUIT
+35 if END
GOTO EXIT
+36 DO ^DIWW
SIG DO MIN^ESPORP(5)
if END
GOTO EXIT
+1 DO LINES^ESPORP(5)
if END
GOTO EXIT
+2 SET DIC="^ESP(912,"
SET DA=ESPID
SET DR=".06"
SET DIQ(0)="I"
DO EN^DIQ1
+3 SET ESPOFF=$GET(^UTILITY("DIQ1",$JOB,912,DA,.06,"I"))
+4 if ESPOFF']""
GOTO FOL
+5 SET DIC="^VA(200,"
SET DA=ESPOFF
SET DR="20.2;910.1"
SET DIQ(0)="E"
DO EN^DIQ1
+6 DO LINES^ESPORP()
if END
GOTO EXIT
+7 WRITE $GET(^UTILITY("DIQ1",$JOB,200,DA,20.2,"E"))," # ",BADGE
+8 DO LINES^ESPORP()
if END
GOTO EXIT
WRITE "INVESTIGATING OFFICER"
FOL ;PRINT FOLLOW-UP NOTES
+1 if '$DATA(^ESP(912,ESPID,130))
GOTO EXIT
+2 DO HDR^ESPORP
if END
GOTO EXIT
+3 FOR ESPN=0:0
SET ESPN=$ORDER(^ESP(912,ESPID,130,ESPN))
if ESPN'>0!(END)
QUIT
Begin DoDot:1
+4 if $Y+10>IOSL&(ESPN'=1)
DO HDR^ESPORP
if END
QUIT
+5 DO LINES^ESPORP(1)
if END
QUIT
WRITE "FOLLOW-UP NOTES:"
DO LINES^ESPORP(2)
if END
QUIT
+6 KILL ^UTILITY($JOB,"W")
SET DIWL=3
SET DIWR=78
SET DIWF="W"
SET IEN=0
+7 FOR ESPN1=1:1
SET IEN=$ORDER(^ESP(912,ESPID,130,ESPN,10,IEN))
if IEN'>0
QUIT
SET X=^(IEN,0)
Begin DoDot:2
+8 if ($Y+2>IOSL)
DO HDR^ESPORP
if END
QUIT
+9 DO ^DIWP
End DoDot:2
if END
QUIT
+10 if END
QUIT
+11 DO ^DIWW
+12 SET DIC="^ESP(912,"_ESPID_",130,"
SET DA=ESPN
SET DR=".01"
SET DIQ(0)="I"
DO EN^DIQ1
+13 SET ESPOFF=$GET(^UTILITY("DIQ1",$JOB,912.17,DA,.01,"I"))
+14 if ESPOFF']""
QUIT
+15 SET DIC="^VA(200,"
SET DA=ESPOFF
SET DR="20.2;910.1"
SET DIQ(0)="E"
DO EN^DIQ1
+16 DO LINES^ESPORP(5)
if END
QUIT
+17 WRITE $GET(^UTILITY("DIQ1",$JOB,200,DA,20.2,"E"))," # ",$GET(^UTILITY("DIQ1",$JOB,200,DA,910.1,"E"))
+18 DO LINES^ESPORP(1)
if END
QUIT
+19 WRITE "FOLLOW-UP INVESTIGATOR"
+20 DO LINES^ESPORP(5)
if END
QUIT
End DoDot:1
EXIT DO ^%ZISC
+1 KILL CL,DA,DIC,DIQ,DIR,DIRUT,DIWF,DIWL,DIWR,ESPDOB,ESPDOBP,DR,DTOUT,DUOUT,END,ESPDTR,ESPID,ESPFN,ESON,ESPN,ESPN1,ESPOFF,IEN,PAGE,SSN,X,Y,Z,POP
+2 KILL ^UTILITY("DIQ1",$JOB)
+3 QUIT
