ESPOFFE ;DALISC/CKA- OFFENSE REPORT EDIT;8/92
;;1.0;POLICE & SECURITY;**3,12,15,21**;Mar 31, 1994
EN ;The program will check for CHIEF key.
;If don't have key-Must be completed and unconfidential-OR
;If have key- can edit any OPEN report ORC
D DT^DICRW S ESPVAR=1
I $D(^XUSEC("ESP CHIEF",DUZ)) G ORC
OR S DIC(0)="QAEMZ",DIC("A")="UOR#: ",DIC("S")="I $D(^(5)),$P(^(5),U,2),'$P(^(5),U,4),$P(^(5),U,5),$P(^(0),U,8)=""O""",DIC="^ESP(912,"
D ^DIC
G:$D(DTOUT)!($D(DUOUT))!(X="") EXIT
G:Y<0 OR S ESPDTR=$P(^ESP(912,+Y,0),U,2),(ESPID,ESPOFN)=+Y
G PRT
ORC S DIC(0)="QAEMZ",DIC("A")="UOR#: ",DIC("S")="I $D(^(5)),$P(^(5),U,5),$P(^(0),U,8)=""O""",DIC="^ESP(912,"
D ^DIC G:$D(DTOUT)!($D(DUOUT))!(X="") EXIT G:Y<0 ORC S ESPDTR=$P(^ESP(912,+Y,0),U,2),(ESPID,ESPOFN)=+Y
PRT ;CALLS ESPORP,ESPORP1,ESPORP2- PRINTS THE REPORT
Q S %ZIS="Q" D ^%ZIS G:POP EXIT I '$D(IO("Q")) U IO D START^ESPORP G OK
S ZTRTN="START^ESPORP",ZTSAVE("ESP*")="",ZTDESC="OFFENSE REPORT" D ^%ZTLOAD,HOME^%ZIS
W !!!!
OK G:ESPVAR=4 CLO
S DIR(0)="Y",DIR("A")="Do you want to edit",DIR("B")="YES" D ^DIR K DIR W !!
I $D(DTOUT) W $C(7) G EXIT
I Y G EDIT
;if ESPVAR=0, report is incomplete, resume editing own
;if ESPVAR=1, report could be incomplete or complete, editing own or any if chief
;if ESPVAR=2, opened a closed report
;if ESPVAR=3, created a report
;if ESPVAR=4, reviewing a completed report
I (ESPVAR=0)!(ESPVAR=3) G COMP
I ESPVAR=1,$P($G(^ESP(912,ESPOFN,5)),U,2),$D(^XUSEC("ESP CHIEF",DUZ)) G CLO
I ESPVAR=1,$D(^XUSEC("ESP CHIEF",DUZ)) G COMP
G EXIT
EDIT ;CALL DIE TO EDIT OFFENSE REPORT
S DIE="^ESP(912,",DA=ESPOFN,DR="[ESP OFFENSE REPORT EDIT 1"
L +^ESP(912,DA):1 I '$T W !,"Another user is editing this record!!" G EXIT
D ^DIE
S DIE="^ESP(912,",DA=ESPOFN,DR="[ESP OFFENSE REPORT EDIT 2"
D ^DIE
S DIE="^ESP(912,",DA=ESPOFN,DR="[ESP OFFENSE REPORT EDIT 3"
D ^DIE
S DIE="^ESP(912,",DA=ESPOFN,DR="[ESP OFFENSE REPORT 4"
D ^DIE
S DIE="^ESP(912,",DA=ESPOFN,DR="[ESP OFFENSE REPORT 5"
D ^DIE
I ESPVAR=0!(ESPVAR=3) G COMP
I ESPVAR=1,$P($G(^ESP(912,ESPOFN,5)),U,2),$D(^XUSEC("ESP CHIEF",DUZ)) G CLO
I ESPVAR=2 G CLO
G EXIT
COMP ;ASK IF WANT TO COMPLETE REPORT OR NOT
W !! S DIR(0)="Y",DIR("A")="Is the report completed",DIR("?")="Answer YES or NO.",DIR("??")="^W !,""Answer NO if you don't wish to complete the report at this time. Answer YES if you do."""
D ^DIR K DIR
I 'Y!($D(DIRUT)) G EXIT
D ^ESPVAL
I $P(^ESP(912,ESPOFN,5),U,2) D SEND
G EXIT
CLO ;ASK IF WANT TO CLOSE THE REPORT
I ('$D(^XUSEC("ESP CHIEF",DUZ))&'$D(^XUSEC("ESP SUPERVISOR",DUZ))) G EXIT
I ESPVAR=4 D SAT I UNSAT G EXIT
G:$D(DTOUT) EXIT
I '$P(^ESP(912,ESPOFN,5),U,2) W !!,$C(7),"The report must be completed before closing!" G EXIT
CLO1 ;entry point from 'close an offense report' option
S DIR(0)="Y",DIR("A")="Do you want to close the report",DIR("?")="Answer YES or NO.",DIR("??")="^W !,""Answer NO if you don't want to close the report. Answer YES if you do."""
D ^DIR K DIR
I 'Y!($D(DIRUT)) G EXIT
I Y S $P(^ESP(912,ESPOFN,0),U,8)="C" W !!,"The report is now closed."
L -^ESP(912,ESPOFN)
EXIT K %ZIS,DA,DIC,DIE,DIR,DIRUT,DR,DTOUT,DUOUT,ESPDTR,ESPID,ESPN,ESPNO,ESPOFN,ESPVAR,ESPY,POP,UNSAT,Y,ZTDESC,ZTRTN,ZTSAVE Q
SEND S ESPDTR=$P(^ESP(912,ESPOFN,0),U,2),XMB(1)=$$CONV^ESPUOR(ESPDTR),XMB(2)=$P($G(^VA(200,+$P(^ESP(912,ESPOFN,0),U,6),0)),U),XMB(3)=$P($G(^VA(200,+$P($G(^ESP(912,ESPOFN,5)),U,3),0)),U)
S XMB="ESP UOR COMPLETED" D EN^XMB
QUIT
ASK2 ;CALLED FROM ESPOFFC- COMPLETE A REPORT
S DIR(0)="Y",DIR("A")="Do you want to print the report first",DIR("B")="NO" D ^DIR K DIR
I $D(DTOUT) W $C(7) G EXIT
I 'Y G OK
G PRT
SAT ;ASK IF REPORT IS COMPLETED FULLY AND SEND BULLETIN TO OFFICER
;IF ADDITIONAL INFO NEEDED
S UNSAT=0
S DIR(0)="Y",DIR("A")="Is the report completed fully",DIR("B")="YES" D ^DIR K DIR
Q:Y!($D(DIRUT))
S ESPDTR=$P(^ESP(912,ESPOFN,0),U,2),XMB(1)=$$CONV^ESPUOR(ESPDTR),XMB="ESP SUPERVISOR REVIEW",XMY($P(^ESP(912,ESPOFN,0),U,6))="" D EN^XMB
S UNSAT=1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HESPOFFE 4051 printed Sep 23, 2025@20:06:17 Page 2
ESPOFFE ;DALISC/CKA- OFFENSE REPORT EDIT;8/92
+1 ;;1.0;POLICE & SECURITY;**3,12,15,21**;Mar 31, 1994
EN ;The program will check for CHIEF key.
+1 ;If don't have key-Must be completed and unconfidential-OR
+2 ;If have key- can edit any OPEN report ORC
+3 DO DT^DICRW
SET ESPVAR=1
+4 IF $DATA(^XUSEC("ESP CHIEF",DUZ))
GOTO ORC
OR SET DIC(0)="QAEMZ"
SET DIC("A")="UOR#: "
SET DIC("S")="I $D(^(5)),$P(^(5),U,2),'$P(^(5),U,4),$P(^(5),U,5),$P(^(0),U,8)=""O"""
SET DIC="^ESP(912,"
+1 DO ^DIC
+2 if $DATA(DTOUT)!($DATA(DUOUT))!(X="")
GOTO EXIT
+3 if Y<0
GOTO OR
SET ESPDTR=$PIECE(^ESP(912,+Y,0),U,2)
SET (ESPID,ESPOFN)=+Y
+4 GOTO PRT
ORC SET DIC(0)="QAEMZ"
SET DIC("A")="UOR#: "
SET DIC("S")="I $D(^(5)),$P(^(5),U,5),$P(^(0),U,8)=""O"""
SET DIC="^ESP(912,"
+1 DO ^DIC
if $DATA(DTOUT)!($DATA(DUOUT))!(X="")
GOTO EXIT
if Y<0
GOTO ORC
SET ESPDTR=$PIECE(^ESP(912,+Y,0),U,2)
SET (ESPID,ESPOFN)=+Y
PRT ;CALLS ESPORP,ESPORP1,ESPORP2- PRINTS THE REPORT
Q SET %ZIS="Q"
DO ^%ZIS
if POP
GOTO EXIT
IF '$DATA(IO("Q"))
USE IO
DO START^ESPORP
GOTO OK
+1 SET ZTRTN="START^ESPORP"
SET ZTSAVE("ESP*")=""
SET ZTDESC="OFFENSE REPORT"
DO ^%ZTLOAD
DO HOME^%ZIS
+2 WRITE !!!!
OK if ESPVAR=4
GOTO CLO
+1 SET DIR(0)="Y"
SET DIR("A")="Do you want to edit"
SET DIR("B")="YES"
DO ^DIR
KILL DIR
WRITE !!
+2 IF $DATA(DTOUT)
WRITE $CHAR(7)
GOTO EXIT
+3 IF Y
GOTO EDIT
+4 ;if ESPVAR=0, report is incomplete, resume editing own
+5 ;if ESPVAR=1, report could be incomplete or complete, editing own or any if chief
+6 ;if ESPVAR=2, opened a closed report
+7 ;if ESPVAR=3, created a report
+8 ;if ESPVAR=4, reviewing a completed report
+9 IF (ESPVAR=0)!(ESPVAR=3)
GOTO COMP
+10 IF ESPVAR=1
IF $PIECE($GET(^ESP(912,ESPOFN,5)),U,2)
IF $DATA(^XUSEC("ESP CHIEF",DUZ))
GOTO CLO
+11 IF ESPVAR=1
IF $DATA(^XUSEC("ESP CHIEF",DUZ))
GOTO COMP
+12 GOTO EXIT
EDIT ;CALL DIE TO EDIT OFFENSE REPORT
+1 SET DIE="^ESP(912,"
SET DA=ESPOFN
SET DR="[ESP OFFENSE REPORT EDIT 1"
+2 LOCK +^ESP(912,DA):1
IF '$TEST
WRITE !,"Another user is editing this record!!"
GOTO EXIT
+3 DO ^DIE
+4 SET DIE="^ESP(912,"
SET DA=ESPOFN
SET DR="[ESP OFFENSE REPORT EDIT 2"
+5 DO ^DIE
+6 SET DIE="^ESP(912,"
SET DA=ESPOFN
SET DR="[ESP OFFENSE REPORT EDIT 3"
+7 DO ^DIE
+8 SET DIE="^ESP(912,"
SET DA=ESPOFN
SET DR="[ESP OFFENSE REPORT 4"
+9 DO ^DIE
+10 SET DIE="^ESP(912,"
SET DA=ESPOFN
SET DR="[ESP OFFENSE REPORT 5"
+11 DO ^DIE
+12 IF ESPVAR=0!(ESPVAR=3)
GOTO COMP
+13 IF ESPVAR=1
IF $PIECE($GET(^ESP(912,ESPOFN,5)),U,2)
IF $DATA(^XUSEC("ESP CHIEF",DUZ))
GOTO CLO
+14 IF ESPVAR=2
GOTO CLO
+15 GOTO EXIT
COMP ;ASK IF WANT TO COMPLETE REPORT OR NOT
+1 WRITE !!
SET DIR(0)="Y"
SET DIR("A")="Is the report completed"
SET DIR("?")="Answer YES or NO."
SET DIR("??")="^W !,""Answer NO if you don't wish to complete the report at this time. Answer YES if you do."""
+2 DO ^DIR
KILL DIR
+3 IF 'Y!($DATA(DIRUT))
GOTO EXIT
+4 DO ^ESPVAL
+5 IF $PIECE(^ESP(912,ESPOFN,5),U,2)
DO SEND
+6 GOTO EXIT
CLO ;ASK IF WANT TO CLOSE THE REPORT
+1 IF ('$DATA(^XUSEC("ESP CHIEF",DUZ))&'$DATA(^XUSEC("ESP SUPERVISOR",DUZ)))
GOTO EXIT
+2 IF ESPVAR=4
DO SAT
IF UNSAT
GOTO EXIT
+3 if $DATA(DTOUT)
GOTO EXIT
+4 IF '$PIECE(^ESP(912,ESPOFN,5),U,2)
WRITE !!,$CHAR(7),"The report must be completed before closing!"
GOTO EXIT
CLO1 ;entry point from 'close an offense report' option
+1 SET DIR(0)="Y"
SET DIR("A")="Do you want to close the report"
SET DIR("?")="Answer YES or NO."
SET DIR("??")="^W !,""Answer NO if you don't want to close the report. Answer YES if you do."""
+2 DO ^DIR
KILL DIR
+3 IF 'Y!($DATA(DIRUT))
GOTO EXIT
+4 IF Y
SET $PIECE(^ESP(912,ESPOFN,0),U,8)="C"
WRITE !!,"The report is now closed."
+5 LOCK -^ESP(912,ESPOFN)
EXIT KILL %ZIS,DA,DIC,DIE,DIR,DIRUT,DR,DTOUT,DUOUT,ESPDTR,ESPID,ESPN,ESPNO,ESPOFN,ESPVAR,ESPY,POP,UNSAT,Y,ZTDESC,ZTRTN,ZTSAVE
QUIT
SEND SET ESPDTR=$PIECE(^ESP(912,ESPOFN,0),U,2)
SET XMB(1)=$$CONV^ESPUOR(ESPDTR)
SET XMB(2)=$PIECE($GET(^VA(200,+$PIECE(^ESP(912,ESPOFN,0),U,6),0)),U)
SET XMB(3)=$PIECE($GET(^VA(200,+$PIECE($GET(^ESP(912,ESPOFN,5)),U,3),0)),U)
+1 SET XMB="ESP UOR COMPLETED"
DO EN^XMB
+2 QUIT
ASK2 ;CALLED FROM ESPOFFC- COMPLETE A REPORT
+1 SET DIR(0)="Y"
SET DIR("A")="Do you want to print the report first"
SET DIR("B")="NO"
DO ^DIR
KILL DIR
+2 IF $DATA(DTOUT)
WRITE $CHAR(7)
GOTO EXIT
+3 IF 'Y
GOTO OK
+4 GOTO PRT
SAT ;ASK IF REPORT IS COMPLETED FULLY AND SEND BULLETIN TO OFFICER
+1 ;IF ADDITIONAL INFO NEEDED
+2 SET UNSAT=0
+3 SET DIR(0)="Y"
SET DIR("A")="Is the report completed fully"
SET DIR("B")="YES"
DO ^DIR
KILL DIR
+4 if Y!($DATA(DIRUT))
QUIT
+5 SET ESPDTR=$PIECE(^ESP(912,ESPOFN,0),U,2)
SET XMB(1)=$$CONV^ESPUOR(ESPDTR)
SET XMB="ESP SUPERVISOR REVIEW"
SET XMY($PIECE(^ESP(912,ESPOFN,0),U,6))=""
DO EN^XMB
+6 SET UNSAT=1
+7 QUIT
