| 1 | ESPORP5 ;DALISC/CKA - PRINT OFFENSE REPORT CONT. ;10/92
|
|---|
| 2 | ;;1.0;POLICE & SECURITY;**11,14,17,21,25,39**;Mar 31, 1994
|
|---|
| 3 | EN ;CONTINUED FROM ESPORP4
|
|---|
| 4 | NARR ;PRINT NARRATIVE
|
|---|
| 5 | D MIN^ESPORP(10) G:END EXIT
|
|---|
| 6 | K ^UTILITY($J,"W") S DIWL=3,DIWR=78,DIWF="W",IEN=0 D LINES^ESPORP(2) G:END EXIT
|
|---|
| 7 | F I=1:1:18 W "* "
|
|---|
| 8 | W "NARRATIVE" F I=1:1:17 W " *"
|
|---|
| 9 | D LINES^ESPORP(2) Q:END W ?10,"ORIGIN:" D LINES^ESPORP(2) Q:END
|
|---|
| 10 | F ESPN=1:1 S IEN=$O(^ESP(912,ESPID,70,IEN)) Q:IEN'>0 S X=^(IEN,0) D Q:END
|
|---|
| 11 | . D:($Y+2>IOSL) HDR^ESPORP Q:END
|
|---|
| 12 | . D ^DIWP
|
|---|
| 13 | G:END EXIT
|
|---|
| 14 | D ^DIWW
|
|---|
| 15 | K ^UTILITY($J,"W") S DIWL=3,DIWR=78,DIWF="W",IEN=0
|
|---|
| 16 | D MIN^ESPORP(2) G:END EXIT
|
|---|
| 17 | D LINES^ESPORP(2) G:END EXIT W ?10,"INITIAL OBSERVATION:" D LINES^ESPORP(2) G:END EXIT
|
|---|
| 18 | F ESPN=1:1 S IEN=$O(^ESP(912,ESPID,72,IEN)) Q:IEN'>0 S X=^(IEN,0) D Q:END
|
|---|
| 19 | . D:($Y+2>IOSL) HDR^ESPORP Q:END
|
|---|
| 20 | . D ^DIWP
|
|---|
| 21 | G:END EXIT
|
|---|
| 22 | D ^DIWW
|
|---|
| 23 | ;
|
|---|
| 24 | K ^UTILITY($J,"W") S DIWL=3,DIWR=78,DIWF="W",IEN=0
|
|---|
| 25 | D MIN^ESPORP(8) G:END EXIT
|
|---|
| 26 | D LINES^ESPORP(2) G:END EXIT W ?10,"INVESTIGATION:" D LINES^ESPORP(2) G:END EXIT
|
|---|
| 27 | F ESON=1:1 S IEN=$O(^ESP(912,ESPID,73,IEN)) Q:IEN'>0 S X=^(IEN,0) D Q:END
|
|---|
| 28 | . D:($Y+2>IOSL) HDR^ESPORP Q:END
|
|---|
| 29 | . D ^DIWP
|
|---|
| 30 | G:END EXIT
|
|---|
| 31 | D ^DIWW
|
|---|
| 32 | ;
|
|---|
| 33 | K ^UTILITY($J,"W") S DIWL=3,DIWR=78,DIWF="W",IEN=0
|
|---|
| 34 | D MIN^ESPORP(10) G:END EXIT
|
|---|
| 35 | D LINES^ESPORP(2) G:END EXIT W ?10,"DISPOSITION:" D LINES^ESPORP(2) G:END EXIT
|
|---|
| 36 | F ESPN=1:1 S IEN=$O(^ESP(912,ESPID,74,IEN)) Q:IEN'>0 S X=^(IEN,0) D Q:END
|
|---|
| 37 | . D:($Y+2>IOSL) HDR^ESPORP Q:END
|
|---|
| 38 | . D ^DIWP
|
|---|
| 39 | G:END EXIT
|
|---|
| 40 | D ^DIWW
|
|---|
| 41 | SIG D MIN^ESPORP(5) G:END EXIT
|
|---|
| 42 | D LINES^ESPORP(5) G:END EXIT
|
|---|
| 43 | S DIC="^ESP(912,",DA=ESPID,DR=".06",DIQ(0)="I" D EN^DIQ1
|
|---|
| 44 | S ESPOFF=$G(^UTILITY("DIQ1",$J,912,DA,.06,"I"))
|
|---|
| 45 | G:ESPOFF']"" FOL
|
|---|
| 46 | S DIC="^VA(200,",DA=ESPOFF,DR="20.2;910.1",DIQ(0)="E" D EN^DIQ1
|
|---|
| 47 | D LINES^ESPORP() G:END EXIT
|
|---|
| 48 | W $G(^UTILITY("DIQ1",$J,200,DA,20.2,"E"))," # ",BADGE
|
|---|
| 49 | D LINES^ESPORP() G:END EXIT W "INVESTIGATING OFFICER"
|
|---|
| 50 | FOL ;PRINT FOLLOW-UP NOTES
|
|---|
| 51 | G:'$D(^ESP(912,ESPID,130)) EXIT
|
|---|
| 52 | D HDR^ESPORP G:END EXIT
|
|---|
| 53 | F ESPN=0:0 S ESPN=$O(^ESP(912,ESPID,130,ESPN)) Q:ESPN'>0!(END) D
|
|---|
| 54 | . D HDR^ESPORP:$Y+10>IOSL&(ESPN'=1) Q:END
|
|---|
| 55 | . D LINES^ESPORP(1) Q:END W "FOLLOW-UP NOTES:" D LINES^ESPORP(2) Q:END
|
|---|
| 56 | . K ^UTILITY($J,"W") S DIWL=3,DIWR=78,DIWF="W",IEN=0
|
|---|
| 57 | . F ESPN1=1:1 S IEN=$O(^ESP(912,ESPID,130,ESPN,10,IEN)) Q:IEN'>0 S X=^(IEN,0) D Q:END
|
|---|
| 58 | . . D:($Y+2>IOSL) HDR^ESPORP Q:END
|
|---|
| 59 | . . D ^DIWP
|
|---|
| 60 | . Q:END
|
|---|
| 61 | . D ^DIWW
|
|---|
| 62 | . S DIC="^ESP(912,"_ESPID_",130,",DA=ESPN,DR=".01",DIQ(0)="I" D EN^DIQ1
|
|---|
| 63 | . S ESPOFF=$G(^UTILITY("DIQ1",$J,912.17,DA,.01,"I"))
|
|---|
| 64 | . Q:ESPOFF']""
|
|---|
| 65 | . S DIC="^VA(200,",DA=ESPOFF,DR="20.2;910.1",DIQ(0)="E" D EN^DIQ1
|
|---|
| 66 | . D LINES^ESPORP(5) Q:END
|
|---|
| 67 | . W $G(^UTILITY("DIQ1",$J,200,DA,20.2,"E"))," # ",$G(^UTILITY("DIQ1",$J,200,DA,910.1,"E"))
|
|---|
| 68 | . D LINES^ESPORP(1) Q:END
|
|---|
| 69 | . W "FOLLOW-UP INVESTIGATOR"
|
|---|
| 70 | . D LINES^ESPORP(5) Q:END
|
|---|
| 71 | EXIT D ^%ZISC
|
|---|
| 72 | 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
|
|---|
| 73 | K ^UTILITY("DIQ1",$J)
|
|---|
| 74 | Q
|
|---|
