| 1 | ESPORR ;DALISC/CKA - REVIEW COMPLETED OFFENSE REPORT;12/92
|
---|
| 2 | ;;1.0;POLICE & SECURITY;;Mar 31, 1994
|
---|
| 3 | ;Locked with ESP SUPERVISOR key
|
---|
| 4 | EN ;ASK UOR #- can choose only completed reports
|
---|
| 5 | ;If hold ESP CHIEF key then can see confidential reports too
|
---|
| 6 | ;ESPVAR=4
|
---|
| 7 | D DT^DICRW S ESPVAR=4
|
---|
| 8 | I $D(^XUSEC("ESP CHIEF",DUZ)) G ORC
|
---|
| 9 | 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,"
|
---|
| 10 | D ^DIC
|
---|
| 11 | G:$D(DTOUT)!($D(DUOUT))!(X="") EXIT
|
---|
| 12 | G:Y<0 OR S ESPDTR=$P(^ESP(912,+Y,0),U,2),(ESPID,ESPOFN)=+Y
|
---|
| 13 | G PRT
|
---|
| 14 | 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,"
|
---|
| 15 | 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
|
---|
| 16 | PRT G PRT^ESPOFFE
|
---|
| 17 | EXIT K DIC,ESPDTR,ESPID,ESPOFN,ESPUOR,ESPVAR
|
---|
| 18 | QUIT
|
---|