ESPORR ;DALISC/CKA - REVIEW COMPLETED OFFENSE REPORT;12/92
;;1.0;POLICE & SECURITY;;Mar 31, 1994
;Locked with ESP SUPERVISOR key
EN ;ASK UOR #- can choose only completed reports
;If hold ESP CHIEF key then can see confidential reports too
;ESPVAR=4
D DT^DICRW S ESPVAR=4
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 $P(^(5),U,2),$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 G PRT^ESPOFFE
EXIT K DIC,ESPDTR,ESPID,ESPOFN,ESPUOR,ESPVAR
QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HESPORR 864 printed Dec 13, 2024@02:30:12 Page 2
ESPORR ;DALISC/CKA - REVIEW COMPLETED OFFENSE REPORT;12/92
+1 ;;1.0;POLICE & SECURITY;;Mar 31, 1994
+2 ;Locked with ESP SUPERVISOR key
EN ;ASK UOR #- can choose only completed reports
+1 ;If hold ESP CHIEF key then can see confidential reports too
+2 ;ESPVAR=4
+3 DO DT^DICRW
SET ESPVAR=4
+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 $P(^(5),U,2),$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 GOTO PRT^ESPOFFE
EXIT KILL DIC,ESPDTR,ESPID,ESPOFN,ESPUOR,ESPVAR
+1 QUIT
