| [613] | 1 | ESPORP4 ;DALISC/CKA - PRINT OFFENSE REPORT CONT. ;10/92
|
|---|
| 2 | ;;1.0;POLICE & SECURITY;**14,17**;Mar 31, 1994
|
|---|
| 3 | EN ;CONTINUED FROME ESPORP3
|
|---|
| 4 | HELD ;PRINT PROPERTY HELD
|
|---|
| 5 | G:END EXIT
|
|---|
| 6 | G:'$D(^ESP(912,ESPID,100)) CIP
|
|---|
| 7 | F ESPN=0:0 S ESPN=$O(^ESP(912,ESPID,100,ESPN)) Q:ESPN'>0 D G:END EXIT
|
|---|
| 8 | . D MIN^ESPORP(5) Q:END
|
|---|
| 9 | . 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))
|
|---|
| 10 | . D LINES^ESPORP(2) Q:END F I=1:1:16 W "* "
|
|---|
| 11 | . W "PROPERTY HELD" F I=1:1:17 W " *"
|
|---|
| 12 | . D LINES^ESPORP(2) Q:END W "ITEM #: ",$G(^UTILITY("DIQ1",$J,912.02,DA,.01,"E"))
|
|---|
| 13 | . D LINES^ESPORP(1) Q:END W "QUANTITY: ",$G(^UTILITY("DIQ1",$J,912.02,DA,.02,"E"))
|
|---|
| 14 | . D LINES^ESPORP(1) Q:END W "PURPOSE: ",$G(^UTILITY("DIQ1",$J,912.02,DA,.03,"E"))
|
|---|
| 15 | . K ^UTILITY($J,"W") S DIWL=10,DIWR=70,DIWF="W"
|
|---|
| 16 | . D LINES^ESPORP() Q:END W "DESCRIPTION:" D LINES^ESPORP() Q:END
|
|---|
| 17 | . F ESPN1=0:0 S ESPN1=$O(^ESP(912,ESPID,100,ESPN,10,ESPN1)) Q:ESPN1'>0 S X=^(ESPN1,0) D Q:END
|
|---|
| 18 | . . D MIN^ESPORP(2) Q:END
|
|---|
| 19 | . . D ^DIWP
|
|---|
| 20 | . Q:END
|
|---|
| 21 | . D ^DIWW
|
|---|
| 22 | . D LINES^ESPORP() Q:END
|
|---|
| 23 | CIP ;PRINT CIP WEAPON AND BATON USED
|
|---|
| 24 | D MIN^ESPORP(4) G:END EXIT
|
|---|
| 25 | D LINES^ESPORP(2) Q:END
|
|---|
| 26 | S DIC="^ESP(912,",DA=ESPID,DR="1.01:1.02",DIQ(0)="E" D EN^DIQ1
|
|---|
| 27 | D LINES^ESPORP() Q:END W "WAS CIP WEAPON USED? ",$G(^UTILITY("DIQ1",$J,912,DA,1.01,"E"))
|
|---|
| 28 | D LINES^ESPORP() Q:END W "WAS POLICE BATON USED? ",$G(^UTILITY("DIQ1",$J,912,DA,1.02,"E"))
|
|---|
| 29 | OTH ;PRINT OTHER AGENCY DATA
|
|---|
| 30 | D MIN^ESPORP(10) G:END EXIT
|
|---|
| 31 | D LINES^ESPORP(2) Q:END W "OTHER AGENCY NOTIFIED" D LINES^ESPORP() Q:END
|
|---|
| 32 | G:'$D(^ESP(912,ESPID,110)) ATTY
|
|---|
| 33 | F ESPN=0:0 S ESPN=$O(^ESP(912,ESPID,110,ESPN)) Q:ESPN'>0 D G:END EXIT
|
|---|
| 34 | . D MIN^ESPORP(5) Q:END
|
|---|
| 35 | . 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"))
|
|---|
| 36 | . D LINES^ESPORP() Q:END W "DATE/TIME NOTIFIED: ",$G(^UTILITY("DIQ1",$J,912.14,DA,.01,"E"))
|
|---|
| 37 | . D LINES^ESPORP() Q:END W "CONTACT PERSON: ",$G(^UTILITY("DIQ1",$J,912.14,DA,.02,"E"))
|
|---|
| 38 | . D LINES^ESPORP() Q:END W "AGENCY: ",$G(^UTILITY("DIQ1",$J,912.14,DA,.03,"E"))
|
|---|
| 39 | ATTY ;PRINT U.S. ATTY DATA
|
|---|
| 40 | D MIN^ESPORP(10) G:END EXIT
|
|---|
| 41 | D LINES^ESPORP(2) Q:END W "U.S. ATTORNEY NOTIFIED" D LINES^ESPORP() Q:END
|
|---|
| 42 | G:'$D(^ESP(912,ESPID,120)) CONT
|
|---|
| 43 | F ESPN=0:0 S ESPN=$O(^ESP(912,ESPID,120,ESPN)) Q:ESPN'>0 D G:END EXIT
|
|---|
| 44 | . D MIN^ESPORP(5) Q:END
|
|---|
| 45 | . 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"))
|
|---|
| 46 | . D LINES^ESPORP() Q:END W "DATE/TIME NOTIFIED: ",$G(^UTILITY("DIQ1",$J,912.15,DA,.01,"E"))
|
|---|
| 47 | . D LINES^ESPORP() Q:END W "INSTRUCTIONS RECEIVED:" D LINES^ESPORP(2) Q:END
|
|---|
| 48 | . K ^UTILITY($J,"W") S DIWL=3,DIWR=78,DIWF="W",IEN=0
|
|---|
| 49 | . F ESPN1=1:1 S IEN=$O(^ESP(912,ESPID,120,DA,10,IEN)) Q:IEN'>0 S X=^(IEN,0) D Q:END
|
|---|
| 50 | . . D MIN^ESPORP(2) Q:END
|
|---|
| 51 | . . D ^DIWP
|
|---|
| 52 | . D ^DIWW
|
|---|
| 53 | CONT G ^ESPORP5
|
|---|
| 54 | EXIT D ^%ZISC
|
|---|
| 55 | 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
|
|---|
| 56 | K ^UTILITY("DIQ1",$J)
|
|---|
| 57 | QUIT
|
|---|
