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