source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPORR.m@ 1693

Last change on this file since 1693 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 846 bytes
Line 
1ESPORR ;DALISC/CKA - REVIEW COMPLETED OFFENSE REPORT;12/92
2 ;;1.0;POLICE & SECURITY;;Mar 31, 1994
3 ;Locked with ESP SUPERVISOR key
4EN ;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
9OR 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
14ORC 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
16PRT G PRT^ESPOFFE
17EXIT K DIC,ESPDTR,ESPID,ESPOFN,ESPUOR,ESPVAR
18 QUIT
Note: See TracBrowser for help on using the repository browser.