source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPORP5.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.9 KB
RevLine 
[613]1ESPORP5 ;DALISC/CKA - PRINT OFFENSE REPORT CONT. ;10/92
2 ;;1.0;POLICE & SECURITY;**11,14,17,21,25,39**;Mar 31, 1994
3EN ;CONTINUED FROM ESPORP4
4NARR ;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
41SIG 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"
50FOL ;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
71EXIT 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
Note: See TracBrowser for help on using the repository browser.