19 lines
846 B
Mathematica
19 lines
846 B
Mathematica
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
|