- 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 Feb 18, 2025@23:56:42 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