| 1 | ESPSCR ;DALISC/CKA - OFFENSE REPORT SCREENS;8/92
|
|---|
| 2 | ;;1.0;POLICE & SECURITY;;Mar 31, 1994
|
|---|
| 3 | EN ;
|
|---|
| 4 | OFFE ;OFFENDER SCREEN INPUT
|
|---|
| 5 | S ESPNOT=0
|
|---|
| 6 | F ESPN=1:1 Q:'$D(ESPFN)&(ESPN'=1)!($D(DTOUT)) D OFIN Q:ESPNOT
|
|---|
| 7 | QUIT
|
|---|
| 8 | OFIN I $D(^TMP($J,"UOR","O",ESPN)) D WARN I 'ESPNOT K ^TMP($J,"UOR","O")
|
|---|
| 9 | Q:ESPNOT S ESPTEST=""
|
|---|
| 10 | W !!,"OFFENDER #",ESPN
|
|---|
| 11 | K ESPFN D EN^ESPMNI
|
|---|
| 12 | I $D(DTOUT) S NOUPD=1 Q
|
|---|
| 13 | S ESPNO=0 I '$D(ESPFN) D DESCR
|
|---|
| 14 | I $D(DTOUT) S NOUPD=1 Q
|
|---|
| 15 | PERS I 'ESPNO S DIR(0)="912.05,3.01" D RD G:$D(DTOUT) NOUPD G:$D(DUOUT) SO S ESPD(3.01)=Y
|
|---|
| 16 | SO F ESPX=.04:.01:.1 S ESPTEST=ESPTEST_$G(ESPD(ESPX))
|
|---|
| 17 | QUIT:'$D(ESPFN)&(ESPTEST="")&($G(ESPD(3.01))="")
|
|---|
| 18 | S ^TMP($J,"UOR","O",ESPN)=$G(ESPFN)_"^^^"_$G(ESPD(.04))_"^"_$G(ESPD(.05))_"^"_$G(ESPD(.06))_"^"_$G(ESPD(.07))_"^"_$G(ESPD(.08))_"^"_$G(ESPD(.09))_"^"_$G(ESPD(.1)),^TMP($J,"UOR","OPERS",ESPN)=$G(ESPD(3.01))_"^"
|
|---|
| 19 | K ESPD S ESPI=1
|
|---|
| 20 | OFF S DIR(0)="912.11,.01" D RD Q:$D(DIRUT) S ESPOFF(ESPI)=+Y
|
|---|
| 21 | DISP S DIR(0)="912.11,.02" D RD G:$D(DUOUT) SOF G:$D(DTOUT) NOUPD S ESPDISP(ESPI)=+Y
|
|---|
| 22 | S CHD(ESPI)=""
|
|---|
| 23 | CHD I ESPDISP(ESPI)=1 S DIR(0)="912.11,.04" D RD G:$D(DUOUT) SOF G:$D(DTOUT) NOUPD S CHD(ESPI)=Y
|
|---|
| 24 | SOF S ^TMP($J,"UOR","O",ESPN,ESPI,0)=ESPOFF(ESPI)_"^"_$G(ESPDISP(ESPI))_"^^"_$G(CHD(ESPI))
|
|---|
| 25 | YN S DIR(0)="Y",DIR("A")="Do you want to enter another offense for this offender",DIR("B")="NO" D ^DIR K DIR
|
|---|
| 26 | G:$D(DTOUT) NOUPD
|
|---|
| 27 | I "01"'[Y W !!,$C(7),?5,"You must enter Yes or No." G YN
|
|---|
| 28 | I Y S ESPI=ESPI+1 G OFF
|
|---|
| 29 | QUIT
|
|---|
| 30 | EXIT K ESPNO,ESPTEST,X,Y
|
|---|
| 31 | QUIT
|
|---|
| 32 | NO W $C(7),!!?5,"NO '^'S ALLOWED!",!!
|
|---|
| 33 | QUIT
|
|---|
| 34 | NOUPD W !!,$C(7),?20,"NO UPDATING HAS OCCURRED!!!",!! K ESPCL,ESPD,ESPDTR,ESPX,ESPY,^TMP($J) S NOUPD=1 QUIT
|
|---|
| 35 | DESCR ;Enter unknown offender description
|
|---|
| 36 | S DIR(0)="Y",DIR("A")="Do you wish to enter an unknown offender description",DIR("B")="NO" D ^DIR K DIR
|
|---|
| 37 | G:$D(DTOUT) NOUPD
|
|---|
| 38 | I 'Y S ESPNO=1 QUIT
|
|---|
| 39 | W !!,"UNKNOWN OFFENDER DESCRIPTION"
|
|---|
| 40 | RACE S DIR(0)="912.05,.04" D RD Q:$D(DUOUT)!($D(DTOUT)) S ESPD(.04)=$P(Y,U)
|
|---|
| 41 | HGHT S DIR(0)="912.05,.05" D RD Q:$D(DUOUT)!($D(DTOUT)) S ESPD(.05)=Y
|
|---|
| 42 | WGHT S DIR(0)="912.05,.06" D RD Q:$D(DUOUT)!($D(DTOUT)) S ESPD(.06)=Y
|
|---|
| 43 | HAIR S DIR(0)="912.05,.07" D RD Q:$D(DUOUT)!($D(DTOUT)) S ESPD(.07)=$P(Y,U)
|
|---|
| 44 | EYE S DIR(0)="912.05,.08" D RD Q:$D(DUOUT)!($D(DTOUT)) S ESPD(.08)=$P(Y,U)
|
|---|
| 45 | SKIN S DIR(0)="912.05,.09" D RD Q:$D(DUOUT)!($D(DTOUT)) S ESPD(.09)=$P(Y,U)
|
|---|
| 46 | SCAR S DIR(0)="912.05,.1" D RD Q:$D(DUOUT)!($D(DTOUT)) S ESPD(.1)=Y
|
|---|
| 47 | QUIT
|
|---|
| 48 | RD 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
|
|---|
| 49 | K DIR
|
|---|
| 50 | QUIT
|
|---|
| 51 | WARN W !!,$C(7),"Warning: The names that you have previously entered will be replaced if you enter a name."
|
|---|
| 52 | S DIR(0)="Y",DIR("A")="Are you sure you want to do this",DIR("B")="NO" D ^DIR K DIR
|
|---|
| 53 | I 'Y S ESPNOT=1
|
|---|
| 54 | QUIT
|
|---|
