ESPORP4 ;DALISC/CKA - PRINT OFFENSE REPORT CONT. ;10/92
;;1.0;POLICE & SECURITY;**14,17**;Mar 31, 1994
EN ;CONTINUED FROME ESPORP3
HELD ;PRINT PROPERTY HELD
G:END EXIT
G:'$D(^ESP(912,ESPID,100)) CIP
F ESPN=0:0 S ESPN=$O(^ESP(912,ESPID,100,ESPN)) Q:ESPN'>0 D G:END EXIT
. D MIN^ESPORP(5) Q:END
. S DIC="^ESP(912,"_ESPID_",100,",DA=ESPN,DR=".01:.03",DIQ(0)="E" D EN^DIQ1 Q:'$D(^UTILITY("DIQ1",$J,912.02,DA))
. D LINES^ESPORP(2) Q:END F I=1:1:16 W "* "
. W "PROPERTY HELD" F I=1:1:17 W " *"
. D LINES^ESPORP(2) Q:END W "ITEM #: ",$G(^UTILITY("DIQ1",$J,912.02,DA,.01,"E"))
. D LINES^ESPORP(1) Q:END W "QUANTITY: ",$G(^UTILITY("DIQ1",$J,912.02,DA,.02,"E"))
. D LINES^ESPORP(1) Q:END W "PURPOSE: ",$G(^UTILITY("DIQ1",$J,912.02,DA,.03,"E"))
. K ^UTILITY($J,"W") S DIWL=10,DIWR=70,DIWF="W"
. D LINES^ESPORP() Q:END W "DESCRIPTION:" D LINES^ESPORP() Q:END
. F ESPN1=0:0 S ESPN1=$O(^ESP(912,ESPID,100,ESPN,10,ESPN1)) Q:ESPN1'>0 S X=^(ESPN1,0) D Q:END
. . D MIN^ESPORP(2) Q:END
. . D ^DIWP
. Q:END
. D ^DIWW
. D LINES^ESPORP() Q:END
CIP ;PRINT CIP WEAPON AND BATON USED
D MIN^ESPORP(4) G:END EXIT
D LINES^ESPORP(2) Q:END
S DIC="^ESP(912,",DA=ESPID,DR="1.01:1.02",DIQ(0)="E" D EN^DIQ1
D LINES^ESPORP() Q:END W "WAS CIP WEAPON USED? ",$G(^UTILITY("DIQ1",$J,912,DA,1.01,"E"))
D LINES^ESPORP() Q:END W "WAS POLICE BATON USED? ",$G(^UTILITY("DIQ1",$J,912,DA,1.02,"E"))
OTH ;PRINT OTHER AGENCY DATA
D MIN^ESPORP(10) G:END EXIT
D LINES^ESPORP(2) Q:END W "OTHER AGENCY NOTIFIED" D LINES^ESPORP() Q:END
G:'$D(^ESP(912,ESPID,110)) ATTY
F ESPN=0:0 S ESPN=$O(^ESP(912,ESPID,110,ESPN)) Q:ESPN'>0 D G:END EXIT
. D MIN^ESPORP(5) Q:END
. S DIC="^ESP(912,"_ESPID_",110,",DA=ESPN,DR=".01;.02;.03",DIQ(0)="E" D EN^DIQ1 Q:'$D(^UTILITY("DIQ1",$J,912.14,DA,.01,"E"))
. D LINES^ESPORP() Q:END W "DATE/TIME NOTIFIED: ",$G(^UTILITY("DIQ1",$J,912.14,DA,.01,"E"))
. D LINES^ESPORP() Q:END W "CONTACT PERSON: ",$G(^UTILITY("DIQ1",$J,912.14,DA,.02,"E"))
. D LINES^ESPORP() Q:END W "AGENCY: ",$G(^UTILITY("DIQ1",$J,912.14,DA,.03,"E"))
ATTY ;PRINT U.S. ATTY DATA
D MIN^ESPORP(10) G:END EXIT
D LINES^ESPORP(2) Q:END W "U.S. ATTORNEY NOTIFIED" D LINES^ESPORP() Q:END
G:'$D(^ESP(912,ESPID,120)) CONT
F ESPN=0:0 S ESPN=$O(^ESP(912,ESPID,120,ESPN)) Q:ESPN'>0 D G:END EXIT
. D MIN^ESPORP(5) Q:END
. S DIC="^ESP(912,"_ESPID_",120,",DA=ESPN,DR=".01",DIQ(0)="E" D EN^DIQ1 Q:'$D(^UTILITY("DIQ1",$J,912.15,DA,.01,"E"))
. D LINES^ESPORP() Q:END W "DATE/TIME NOTIFIED: ",$G(^UTILITY("DIQ1",$J,912.15,DA,.01,"E"))
. D LINES^ESPORP() Q:END W "INSTRUCTIONS RECEIVED:" 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,120,DA,10,IEN)) Q:IEN'>0 S X=^(IEN,0) D Q:END
. . D MIN^ESPORP(2) Q:END
. . D ^DIWP
. D ^DIWW
CONT G ^ESPORP5
EXIT D ^%ZISC
K CL,DA,DIC,DIQ,DIR,DIRUT,DIWF,DIWL,DIWR,ESPDOB,ESPDOBP,DR,DTOUT,DUOUT,END,ESPDTR,ESPID,ESPFN,ESPN,ESPN1,ESPOFF,IEN,PAGE,SSN,X,Y
K ^UTILITY("DIQ1",$J)
QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HESPORP4 3070 printed Sep 23, 2025@20:06:32 Page 2
ESPORP4 ;DALISC/CKA - PRINT OFFENSE REPORT CONT. ;10/92
+1 ;;1.0;POLICE & SECURITY;**14,17**;Mar 31, 1994
EN ;CONTINUED FROME ESPORP3
HELD ;PRINT PROPERTY HELD
+1 if END
GOTO EXIT
+2 if '$DATA(^ESP(912,ESPID,100))
GOTO CIP
+3 FOR ESPN=0:0
SET ESPN=$ORDER(^ESP(912,ESPID,100,ESPN))
if ESPN'>0
QUIT
Begin DoDot:1
+4 DO MIN^ESPORP(5)
if END
QUIT
+5 SET DIC="^ESP(912,"_ESPID_",100,"
SET DA=ESPN
SET DR=".01:.03"
SET DIQ(0)="E"
DO EN^DIQ1
if '$DATA(^UTILITY("DIQ1",$JOB,912.02,DA))
QUIT
+6 DO LINES^ESPORP(2)
if END
QUIT
FOR I=1:1:16
WRITE "* "
+7 WRITE "PROPERTY HELD"
FOR I=1:1:17
WRITE " *"
+8 DO LINES^ESPORP(2)
if END
QUIT
WRITE "ITEM #: ",$GET(^UTILITY("DIQ1",$JOB,912.02,DA,.01,"E"))
+9 DO LINES^ESPORP(1)
if END
QUIT
WRITE "QUANTITY: ",$GET(^UTILITY("DIQ1",$JOB,912.02,DA,.02,"E"))
+10 DO LINES^ESPORP(1)
if END
QUIT
WRITE "PURPOSE: ",$GET(^UTILITY("DIQ1",$JOB,912.02,DA,.03,"E"))
+11 KILL ^UTILITY($JOB,"W")
SET DIWL=10
SET DIWR=70
SET DIWF="W"
+12 DO LINES^ESPORP()
if END
QUIT
WRITE "DESCRIPTION:"
DO LINES^ESPORP()
if END
QUIT
+13 FOR ESPN1=0:0
SET ESPN1=$ORDER(^ESP(912,ESPID,100,ESPN,10,ESPN1))
if ESPN1'>0
QUIT
SET X=^(ESPN1,0)
Begin DoDot:2
+14 DO MIN^ESPORP(2)
if END
QUIT
+15 DO ^DIWP
End DoDot:2
if END
QUIT
+16 if END
QUIT
+17 DO ^DIWW
+18 DO LINES^ESPORP()
if END
QUIT
End DoDot:1
if END
GOTO EXIT
CIP ;PRINT CIP WEAPON AND BATON USED
+1 DO MIN^ESPORP(4)
if END
GOTO EXIT
+2 DO LINES^ESPORP(2)
if END
QUIT
+3 SET DIC="^ESP(912,"
SET DA=ESPID
SET DR="1.01:1.02"
SET DIQ(0)="E"
DO EN^DIQ1
+4 DO LINES^ESPORP()
if END
QUIT
WRITE "WAS CIP WEAPON USED? ",$GET(^UTILITY("DIQ1",$JOB,912,DA,1.01,"E"))
+5 DO LINES^ESPORP()
if END
QUIT
WRITE "WAS POLICE BATON USED? ",$GET(^UTILITY("DIQ1",$JOB,912,DA,1.02,"E"))
OTH ;PRINT OTHER AGENCY DATA
+1 DO MIN^ESPORP(10)
if END
GOTO EXIT
+2 DO LINES^ESPORP(2)
if END
QUIT
WRITE "OTHER AGENCY NOTIFIED"
DO LINES^ESPORP()
if END
QUIT
+3 if '$DATA(^ESP(912,ESPID,110))
GOTO ATTY
+4 FOR ESPN=0:0
SET ESPN=$ORDER(^ESP(912,ESPID,110,ESPN))
if ESPN'>0
QUIT
Begin DoDot:1
+5 DO MIN^ESPORP(5)
if END
QUIT
+6 SET DIC="^ESP(912,"_ESPID_",110,"
SET DA=ESPN
SET DR=".01;.02;.03"
SET DIQ(0)="E"
DO EN^DIQ1
if '$DATA(^UTILITY("DIQ1",$JOB,912.14,DA,.01,"E"))
QUIT
+7 DO LINES^ESPORP()
if END
QUIT
WRITE "DATE/TIME NOTIFIED: ",$GET(^UTILITY("DIQ1",$JOB,912.14,DA,.01,"E"))
+8 DO LINES^ESPORP()
if END
QUIT
WRITE "CONTACT PERSON: ",$GET(^UTILITY("DIQ1",$JOB,912.14,DA,.02,"E"))
+9 DO LINES^ESPORP()
if END
QUIT
WRITE "AGENCY: ",$GET(^UTILITY("DIQ1",$JOB,912.14,DA,.03,"E"))
End DoDot:1
if END
GOTO EXIT
ATTY ;PRINT U.S. ATTY DATA
+1 DO MIN^ESPORP(10)
if END
GOTO EXIT
+2 DO LINES^ESPORP(2)
if END
QUIT
WRITE "U.S. ATTORNEY NOTIFIED"
DO LINES^ESPORP()
if END
QUIT
+3 if '$DATA(^ESP(912,ESPID,120))
GOTO CONT
+4 FOR ESPN=0:0
SET ESPN=$ORDER(^ESP(912,ESPID,120,ESPN))
if ESPN'>0
QUIT
Begin DoDot:1
+5 DO MIN^ESPORP(5)
if END
QUIT
+6 SET DIC="^ESP(912,"_ESPID_",120,"
SET DA=ESPN
SET DR=".01"
SET DIQ(0)="E"
DO EN^DIQ1
if '$DATA(^UTILITY("DIQ1",$JOB,912.15,DA,.01,"E"))
QUIT
+7 DO LINES^ESPORP()
if END
QUIT
WRITE "DATE/TIME NOTIFIED: ",$GET(^UTILITY("DIQ1",$JOB,912.15,DA,.01,"E"))
+8 DO LINES^ESPORP()
if END
QUIT
WRITE "INSTRUCTIONS RECEIVED:"
DO LINES^ESPORP(2)
if END
QUIT
+9 KILL ^UTILITY($JOB,"W")
SET DIWL=3
SET DIWR=78
SET DIWF="W"
SET IEN=0
+10 FOR ESPN1=1:1
SET IEN=$ORDER(^ESP(912,ESPID,120,DA,10,IEN))
if IEN'>0
QUIT
SET X=^(IEN,0)
Begin DoDot:2
+11 DO MIN^ESPORP(2)
if END
QUIT
+12 DO ^DIWP
End DoDot:2
if END
QUIT
+13 DO ^DIWW
End DoDot:1
if END
GOTO EXIT
CONT GOTO ^ESPORP5
EXIT DO ^%ZISC
+1 KILL CL,DA,DIC,DIQ,DIR,DIRUT,DIWF,DIWL,DIWR,ESPDOB,ESPDOBP,DR,DTOUT,DUOUT,END,ESPDTR,ESPID,ESPFN,ESPN,ESPN1,ESPOFF,IEN,PAGE,SSN,X,Y
+2 KILL ^UTILITY("DIQ1",$JOB)
+3 QUIT
