| 1 | ESPOFF0 ;DALISC/CKA - OFFENSE REPORT INPUT -CONTINUED;7/92
|
|---|
| 2 | ;;1.0;POLICE & SECURITY;;Mar 31, 1994
|
|---|
| 3 | EN Q ;continued from ESPOFF
|
|---|
| 4 | 1 W !!!,$P($T(SCR+1),";;",2)
|
|---|
| 5 | D COMP^ESPSCR1
|
|---|
| 6 | G:$D(DTOUT) NOUPD
|
|---|
| 7 | E1 D A G:$D(ESPOUT) NOUPD G:X="^" SAVE G:X?1"^"1N @$E(X,2)
|
|---|
| 8 | 2 W !!!,$P($T(SCR+2),";;",2)
|
|---|
| 9 | D VIC^ESPSCR1
|
|---|
| 10 | E2 G:$D(DTOUT) NOUPD D A G:$D(ESPOUT) NOUPD G:X="^" SAVE G:X?1"^"1N @$E(X,2)
|
|---|
| 11 | 3 W !!!,$P($T(SCR+3),";;",2) D OFFE^ESPSCR
|
|---|
| 12 | E3 G:$D(DTOUT) NOUPD D A G:$D(ESPOUT) NOUPD G:X="^" SAVE G:X?1"^"1N @$E(X,2)
|
|---|
| 13 | 4 W !!!,$P($T(SCR+4),";;",2)
|
|---|
| 14 | D WIT^ESPSCR1
|
|---|
| 15 | E4 G:$D(DTOUT) NOUPD D A G:$D(ESPOUT) NOUPD G:X="^" SAVE G:X?1"^"1N @$E(X,2)
|
|---|
| 16 | 5 W !!!,$P($T(SCR+5),";;",2) D VEH^ESPSCR0
|
|---|
| 17 | E5 G:$D(DTOUT) NOUPD D A G:$D(ESPOUT) NOUPD G:X="^" SAVE G:X?1"^"1N @$E(X,2)
|
|---|
| 18 | 6 W !!!,$P($T(SCR+6),";;",2) D PROP^ESPSCR0
|
|---|
| 19 | E6 G:$D(DTOUT) NOUPD D A G:$D(ESPOUT) NOUPD G:X="^" SAVE G:X?1"^"1N @$E(X,2)
|
|---|
| 20 | 7 W !!!,$P($T(SCR+7),";;",2) D HELD^ESPSCR1
|
|---|
| 21 | E7 G:$D(DTOUT) NOUPD D A G:$D(ESPOUT) NOUPD G:X="^" SAVE G:X?1"^"1N @$E(X,2)
|
|---|
| 22 | 8 W !!!,$P($T(SCR+8),";;",2) D NOTIF^ESPSCR1
|
|---|
| 23 | E8 G:$D(DTOUT) NOUPD D A G:$D(ESPOUT) NOUPD G:X="^" SAVE G:X?1"^"1N @$E(X,2)
|
|---|
| 24 | 9 W !!!,$P($T(SCR+9),";;",2),!,"NARRATIVE:"
|
|---|
| 25 | D NARR^ESPSCR1
|
|---|
| 26 | G:$D(DTOUT) NOUPD D A G:$D(ESPOUT) NOUPD G:X="^" SAVE G:X?1"^"1N @$E(X,2)
|
|---|
| 27 | G ^ESPOFF1
|
|---|
| 28 | EXIT W:$D(DTOUT)!($D(ESPOUT)) $C(7)
|
|---|
| 29 | K DIC,DIR,DIRUT,DUOUT,ESPCL,ESPD,ESPDTR,ESPFN,ESPN,ESPNOT,ESPOUT,ESPS,ESPTEST,ESPVAR,ESPX,ESPY,I,NOUPD,X,Y,^TMP($J)
|
|---|
| 30 | QUIT
|
|---|
| 31 | A R !!!,"Enter:<RET> to continue, ^N for screen N or '^' to abort: ",X:DTIME
|
|---|
| 32 | I '$T S ESPOUT=1 Q
|
|---|
| 33 | Q:X=""!(X="^")
|
|---|
| 34 | G:X["?" HELP
|
|---|
| 35 | I $E(X,2)<1!($E(X,2)>9) W !,$C(7),"NUMBER MUST BE 1-9." G A
|
|---|
| 36 | QUIT
|
|---|
| 37 | HELP I X["?" W !!,"Enter '^' to stop or <RET> to continue or enter '^N' to jump to screen # N."
|
|---|
| 38 | W !!! F I=1:1:9 W !?10,$P($T(SCR+I),";;",2)
|
|---|
| 39 | G A
|
|---|
| 40 | QUIT
|
|---|
| 41 | SAVE S DIR(0)="Y",DIR("A")="Do you want to save and edit later",DIR("B")="YES" D ^DIR K DIR I 'Y G NOUPD
|
|---|
| 42 | G ^ESPOFF1
|
|---|
| 43 | ;
|
|---|
| 44 | NOUPD W !!,$C(7),?20,"NO UPDATING HAS OCCURRED!!!",!! K ESPCL,ESPD,ESPDTR,ESPX,ESPY,^TMP($J) G:$D(DTOUT)!($D(ESPOUT)) EXIT G DTR^ESPOFF
|
|---|
| 45 | SCR ;
|
|---|
| 46 | ;;Screen 1 - Complainant
|
|---|
| 47 | ;;Screen 2 - Victim
|
|---|
| 48 | ;;Screen 3 - Offender
|
|---|
| 49 | ;;Screen 4 - Witness
|
|---|
| 50 | ;;Screen 5 - Vehicle
|
|---|
| 51 | ;;Screen 6 - Property (Lost)
|
|---|
| 52 | ;;Screen 7 - Property (Held)
|
|---|
| 53 | ;;Screen 8 - Notification
|
|---|
| 54 | ;;Screen 9 - Narrative
|
|---|
