source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPSCR1.m@ 1006

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

initial load of WorldVistAEHR

File size: 3.7 KB
Line 
1ESPSCR1 ;DALISC/CKA - OFFENSE REPORT SCREENS-NAMES & NARRATIVE;2/93
2 ;;1.0;POLICE & SECURITY;**12**;Mar 31, 1994
3EN Q ;CALLED FROM ESPOFF
4COMP ;COMPLAINANT SCREEN
5 S ESPNOT=0
6 F ESPN=1:1 Q:'$D(ESPFN)&(ESPN'=1)!($D(DTOUT)) D Q:ESPNOT
7 . I $D(^TMP($J,"UOR","C",ESPN)) D WARN I 'ESPNOT K ^TMP($J,"UOR","C")
8 . Q:ESPNOT
9 . W !!,"COMPLAINANT #",ESPN
10 . K ESPFN D EN^ESPMNI
11 . I $D(ESPFN),(ESPFN>0) S ^TMP($J,"UOR","C",ESPN)=ESPFN
12 QUIT
13VIC ;VICTIM SCREEN
14 S ESPNOT=0
15 F ESPN=1:1 Q:'$D(ESPFN)&(ESPN'=1)!($D(DTOUT)) D Q:ESPNOT
16 . I $D(^TMP($J,"UOR","V",ESPN)) D WARN I 'ESPNOT K ^TMP($J,"UOR","V")
17 . Q:ESPNOT
18 . W !!,"VICTIM #",ESPN
19 . K ESPFN D EN^ESPMNI
20 . Q:$D(DTOUT)
21 . I $D(ESPFN),(ESPFN>0) S ^TMP($J,"UOR","V",ESPN)=ESPFN W !,"MEDICAL TREATMENT: " S DWLW=80,DWPK=1,DIC="^TMP($J,""MT"","_ESPN_",",DIWESUB="MEDICAL TREATMENT" D EN^DIWE
22 QUIT
23WIT ;WITNESS SCREEN
24 S ESPNOT=0
25 F ESPN=1:1 Q:'$D(ESPFN)&(ESPN'=1)!($D(DTOUT)) D Q:ESPNOT
26 . I $D(^TMP($J,"UOR","W",ESPN)) D WARN I 'ESPNOT K ^TMP($J,"UOR","W")
27 . Q:ESPNOT
28 . W !!,"WITNESS #",ESPN
29 . K ESPFN D EN^ESPMNI
30 . I $D(ESPFN),(ESPFN>0) S ^TMP($J,"UOR","W",ESPN)=ESPFN
31 QUIT
32NARR ;NARRATIVE SCREEN
33 W !!,"ORIGIN:"
34 S DWLW=80,DWPK=1,DIC="^TMP($J,""N1"",",DIWESUB="ORIGIN" D EN^DIWE
35 I $D(DTOUT) S NOUPD=1 Q
36 W !!,"INITIAL OBSERVATION:"
37 S DWLW=80,DWPK=1,DIC="^TMP($J,""N2"",",DIWESUB="INITIAL OBSERVATION" D EN^DIWE
38 I $D(DTOUT) S NOUPD=1 Q
39 W !!,"INVESTIGATION:"
40 S DWLW=80,DWPK=1,DIC="^TMP($J,""N3"",",DIWESUB="INVESTIGATION" D EN^DIWE
41 I $D(DTOUT) S NOUPD=1 Q
42 W !!,"DISPOSITION:"
43 S DWLW=80,DWPK=1,DIC="^TMP($J,""N4"",",DIWESUB="DISPOSITION" D EN^DIWE
44 I $D(DTOUT) S NOUPD=1 Q
45 QUIT
46NOTIF ;NOTIFICATIONS SCREEN INPUT
47 S ESPNOT=0 K DIRUT
48 F ESPN=1:1 Q:$D(DIRUT) D OAN Q:ESPNOT
49 Q:$D(DTOUT)
50 S ESPNOT=0 K DIRUT
51 F ESPN=1:1 Q:$D(DIRUT) D ATY Q:ESPNOT!($D(DTOUT))
52 QUIT
53NOTIN ;NOTIFICATIONS INPUT
54OAN ;OTHER AGENCY NOTIFIED
55 I $D(^TMP($J,"UOR","OTH",ESPN)) D WARN I 'ESPNOT K ^TMP("UOR","OTH")
56 QUIT:ESPNOT
57 W !!,"OTHER AGENCY"
58OAG S DIR(0)="912.14,.01" D RD Q:$D(DIRUT) S ESPD(.01)=Y
59CONT S DIR(0)="912.14,.02" D RD G:$D(DUOUT) SNO G:$D(DTOUT) NOUPD S ESPD(.02)=Y
60AG S DIR(0)="912.14,.03" D RD G:$D(DUOUT) SNO G:$D(DTOUT) NOUPD S ESPD(.03)=Y
61SNO S ^TMP($J,"UOR","OTH",ESPN)=ESPD(.01)_"^"_$G(ESPD(.02))_"^"_$G(ESPD(.03))
62 K DIRUT
63 QUIT
64ATY ;U.S. ATTORNEY NOTIFIED
65 I $D(^TMP($J,"UOR","ATY",ESPN)) D WARN I 'ESPNOT K ^TMP("UOR","ATY")
66 QUIT:ESPNOT
67 W !!,"U.S. ATTORNEY"
68 S DIR(0)="912.15,.01" D RD Q:$D(DIRUT) S ESPD(.01)=Y
69INSTR W !,"Instructions Received: " S DWLW=80,DWPK=1,DIC="^TMP($J,""INS"","_ESPN_",",DIWESUB="Instructions Received" D EN^DIWE
70 I $D(DTOUT) S NOUPD=1 Q
71 S ^TMP($J,"UOR","ATY",ESPN)=ESPD(.01)_"^"
72 QUIT
73HELD ;PROPERTY (HELD) SCREEN INPUT
74 S ESPNOT=0 K DIRUT
75 F ESPN=1:1 Q:$D(DIRUT) D PHIN Q:ESPNOT!($D(DTOUT))
76 QUIT
77PHIN ;PROPERTY HELD INPUT
78 I $D(^TMP($J,"UOR","PH",ESPN)) D WARN I 'ESPNOT K ^TMP("UOR","PH")
79 QUIT:ESPNOT
80 W !!,"ITEM #",ESPN
81NUM S DIR(0)="912.02,.01" D RD Q:$D(DIRUT) S ESPD(.01)=Y
82QUAN S DIR(0)="912.02,.02" D RD G:$D(DUOUT) SPH G:$D(DTOUT) NOUPD S ESPD(.02)=Y
83PUR S DIR(0)="912.02,.03" D RD G:$D(DUOUT) SPH G:$D(DTOUT) NOUPD S ESPD(.03)=Y
84DESC W !,"Description: " S DWLW=80,DWPK=1,DIC="^TMP($J,""DE"","_ESPD(.01)_"," D EN^DIWE
85 I $D(DTOUT) S NOUPD=1 Q
86SPH S ^TMP($J,"UOR","PH",ESPN)=ESPD(.01)_"^"_$G(ESPD(.02))_"^"_$G(ESPD(.03))
87 QUIT
88EXIT QUIT
89NO W $C(7),!!?5,"NO '^'S ALLOWED!",!!
90 QUIT
91NOUPD W !!,$C(7),?20,"NO UPDATING HAS OCCURRED!!!",!! K ESPCL,ESPD,ESPDTR,ESPX,ESPY,^TMP($J) S NOUPD=1 QUIT
92RD D ^DIR I $S($L(X)>1&($E(X)=U):1,($L(X)>1&(X[U)):1,1:0) D NO K X,Y G RD
93 K DIR
94 QUIT
95WARN W !!,$C(7),"Warning: The names that you have previously entered will be replaced if you enter a name."
96 S DIR(0)="Y",DIR("A")="Are you sure you want to do this",DIR("B")="NO" D ^DIR K DIR
97 I 'Y S ESPNOT=1
98 QUIT
Note: See TracBrowser for help on using the repository browser.