ESPOFF0 ;DALISC/CKA - OFFENSE REPORT INPUT -CONTINUED;7/92
;;1.0;POLICE & SECURITY;;Mar 31, 1994
EN Q ;continued from ESPOFF
1 W !!!,$P($T(SCR+1),";;",2)
D COMP^ESPSCR1
G:$D(DTOUT) NOUPD
E1 D A G:$D(ESPOUT) NOUPD G:X="^" SAVE G:X?1"^"1N @$E(X,2)
2 W !!!,$P($T(SCR+2),";;",2)
D VIC^ESPSCR1
E2 G:$D(DTOUT) NOUPD D A G:$D(ESPOUT) NOUPD G:X="^" SAVE G:X?1"^"1N @$E(X,2)
3 W !!!,$P($T(SCR+3),";;",2) D OFFE^ESPSCR
E3 G:$D(DTOUT) NOUPD D A G:$D(ESPOUT) NOUPD G:X="^" SAVE G:X?1"^"1N @$E(X,2)
4 W !!!,$P($T(SCR+4),";;",2)
D WIT^ESPSCR1
E4 G:$D(DTOUT) NOUPD D A G:$D(ESPOUT) NOUPD G:X="^" SAVE G:X?1"^"1N @$E(X,2)
5 W !!!,$P($T(SCR+5),";;",2) D VEH^ESPSCR0
E5 G:$D(DTOUT) NOUPD D A G:$D(ESPOUT) NOUPD G:X="^" SAVE G:X?1"^"1N @$E(X,2)
6 W !!!,$P($T(SCR+6),";;",2) D PROP^ESPSCR0
E6 G:$D(DTOUT) NOUPD D A G:$D(ESPOUT) NOUPD G:X="^" SAVE G:X?1"^"1N @$E(X,2)
7 W !!!,$P($T(SCR+7),";;",2) D HELD^ESPSCR1
E7 G:$D(DTOUT) NOUPD D A G:$D(ESPOUT) NOUPD G:X="^" SAVE G:X?1"^"1N @$E(X,2)
8 W !!!,$P($T(SCR+8),";;",2) D NOTIF^ESPSCR1
E8 G:$D(DTOUT) NOUPD D A G:$D(ESPOUT) NOUPD G:X="^" SAVE G:X?1"^"1N @$E(X,2)
9 W !!!,$P($T(SCR+9),";;",2),!,"NARRATIVE:"
D NARR^ESPSCR1
G:$D(DTOUT) NOUPD D A G:$D(ESPOUT) NOUPD G:X="^" SAVE G:X?1"^"1N @$E(X,2)
G ^ESPOFF1
EXIT W:$D(DTOUT)!($D(ESPOUT)) $C(7)
K DIC,DIR,DIRUT,DUOUT,ESPCL,ESPD,ESPDTR,ESPFN,ESPN,ESPNOT,ESPOUT,ESPS,ESPTEST,ESPVAR,ESPX,ESPY,I,NOUPD,X,Y,^TMP($J)
QUIT
A R !!!,"Enter:<RET> to continue, ^N for screen N or '^' to abort: ",X:DTIME
I '$T S ESPOUT=1 Q
Q:X=""!(X="^")
G:X["?" HELP
I $E(X,2)<1!($E(X,2)>9) W !,$C(7),"NUMBER MUST BE 1-9." G A
QUIT
HELP I X["?" W !!,"Enter '^' to stop or <RET> to continue or enter '^N' to jump to screen # N."
W !!! F I=1:1:9 W !?10,$P($T(SCR+I),";;",2)
G A
QUIT
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
G ^ESPOFF1
;
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
SCR ;
;;Screen 1 - Complainant
;;Screen 2 - Victim
;;Screen 3 - Offender
;;Screen 4 - Witness
;;Screen 5 - Vehicle
;;Screen 6 - Property (Lost)
;;Screen 7 - Property (Held)
;;Screen 8 - Notification
;;Screen 9 - Narrative
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HESPOFF0 2289 printed Nov 22, 2024@17:39:52 Page 2
ESPOFF0 ;DALISC/CKA - OFFENSE REPORT INPUT -CONTINUED;7/92
+1 ;;1.0;POLICE & SECURITY;;Mar 31, 1994
EN ;continued from ESPOFF
QUIT
1 WRITE !!!,$PIECE($TEXT(SCR+1),";;",2)
+1 DO COMP^ESPSCR1
+2 if $DATA(DTOUT)
GOTO NOUPD
E1 DO A
if $DATA(ESPOUT)
GOTO NOUPD
if X="^"
GOTO SAVE
if X?1"^"1N
GOTO @$EXTRACT(X,2)
2 WRITE !!!,$PIECE($TEXT(SCR+2),";;",2)
+1 DO VIC^ESPSCR1
E2 if $DATA(DTOUT)
GOTO NOUPD
DO A
if $DATA(ESPOUT)
GOTO NOUPD
if X="^"
GOTO SAVE
if X?1"^"1N
GOTO @$EXTRACT(X,2)
3 WRITE !!!,$PIECE($TEXT(SCR+3),";;",2)
DO OFFE^ESPSCR
E3 if $DATA(DTOUT)
GOTO NOUPD
DO A
if $DATA(ESPOUT)
GOTO NOUPD
if X="^"
GOTO SAVE
if X?1"^"1N
GOTO @$EXTRACT(X,2)
4 WRITE !!!,$PIECE($TEXT(SCR+4),";;",2)
+1 DO WIT^ESPSCR1
E4 if $DATA(DTOUT)
GOTO NOUPD
DO A
if $DATA(ESPOUT)
GOTO NOUPD
if X="^"
GOTO SAVE
if X?1"^"1N
GOTO @$EXTRACT(X,2)
5 WRITE !!!,$PIECE($TEXT(SCR+5),";;",2)
DO VEH^ESPSCR0
E5 if $DATA(DTOUT)
GOTO NOUPD
DO A
if $DATA(ESPOUT)
GOTO NOUPD
if X="^"
GOTO SAVE
if X?1"^"1N
GOTO @$EXTRACT(X,2)
6 WRITE !!!,$PIECE($TEXT(SCR+6),";;",2)
DO PROP^ESPSCR0
E6 if $DATA(DTOUT)
GOTO NOUPD
DO A
if $DATA(ESPOUT)
GOTO NOUPD
if X="^"
GOTO SAVE
if X?1"^"1N
GOTO @$EXTRACT(X,2)
7 WRITE !!!,$PIECE($TEXT(SCR+7),";;",2)
DO HELD^ESPSCR1
E7 if $DATA(DTOUT)
GOTO NOUPD
DO A
if $DATA(ESPOUT)
GOTO NOUPD
if X="^"
GOTO SAVE
if X?1"^"1N
GOTO @$EXTRACT(X,2)
8 WRITE !!!,$PIECE($TEXT(SCR+8),";;",2)
DO NOTIF^ESPSCR1
E8 if $DATA(DTOUT)
GOTO NOUPD
DO A
if $DATA(ESPOUT)
GOTO NOUPD
if X="^"
GOTO SAVE
if X?1"^"1N
GOTO @$EXTRACT(X,2)
9 WRITE !!!,$PIECE($TEXT(SCR+9),";;",2),!,"NARRATIVE:"
+1 DO NARR^ESPSCR1
+2 if $DATA(DTOUT)
GOTO NOUPD
DO A
if $DATA(ESPOUT)
GOTO NOUPD
if X="^"
GOTO SAVE
if X?1"^"1N
GOTO @$EXTRACT(X,2)
+3 GOTO ^ESPOFF1
EXIT if $DATA(DTOUT)!($DATA(ESPOUT))
WRITE $CHAR(7)
+1 KILL DIC,DIR,DIRUT,DUOUT,ESPCL,ESPD,ESPDTR,ESPFN,ESPN,ESPNOT,ESPOUT,ESPS,ESPTEST,ESPVAR,ESPX,ESPY,I,NOUPD,X,Y,^TMP($JOB)
+2 QUIT
A READ !!!,"Enter:<RET> to continue, ^N for screen N or '^' to abort: ",X:DTIME
+1 IF '$TEST
SET ESPOUT=1
QUIT
+2 if X=""!(X="^")
QUIT
+3 if X["?"
GOTO HELP
+4 IF $EXTRACT(X,2)<1!($EXTRACT(X,2)>9)
WRITE !,$CHAR(7),"NUMBER MUST BE 1-9."
GOTO A
+5 QUIT
HELP IF X["?"
WRITE !!,"Enter '^' to stop or <RET> to continue or enter '^N' to jump to screen # N."
+1 WRITE !!!
FOR I=1:1:9
WRITE !?10,$PIECE($TEXT(SCR+I),";;",2)
+2 GOTO A
+3 QUIT
SAVE SET DIR(0)="Y"
SET DIR("A")="Do you want to save and edit later"
SET DIR("B")="YES"
DO ^DIR
KILL DIR
IF 'Y
GOTO NOUPD
+1 GOTO ^ESPOFF1
+2 ;
NOUPD WRITE !!,$CHAR(7),?20,"NO UPDATING HAS OCCURRED!!!",!!
KILL ESPCL,ESPD,ESPDTR,ESPX,ESPY,^TMP($JOB)
if $DATA(DTOUT)!($DATA(ESPOUT))
GOTO EXIT
GOTO DTR^ESPOFF
SCR ;
+1 ;;Screen 1 - Complainant
+2 ;;Screen 2 - Victim
+3 ;;Screen 3 - Offender
+4 ;;Screen 4 - Witness
+5 ;;Screen 5 - Vehicle
+6 ;;Screen 6 - Property (Lost)
+7 ;;Screen 7 - Property (Held)
+8 ;;Screen 8 - Notification
+9 ;;Screen 9 - Narrative
