source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPOFFC.m@ 1006

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

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1ESPOFFC ;DALISC/CKA- COMPLETE AN OFFENSE REPORT;8/92
2 ;;1.0;POLICE & SECURITY;;Mar 31, 1994
3EN ;This routine allows the officer to complete an open offense report.
4 ;The officer who entered the report is the only one who can complete the report.
5 ;When the officer hits '??' at the DATE/TIME RECEIVED prompt, he/she will see only his incomplete offense reports.
6 S ESPVAR=0
7START D DT^DICRW
8OR S DIC(0)="QAEMZ",DIC("A")="UOR#: ",DIC("S")="I $D(^(5)),'$P(^(5),U,2),$P(^(5),U,3)=DUZ,$P(^(5),U,5)",DIC="^ESP(912,"
9 D ^DIC
10 G:$D(DTOUT)!($D(DUOUT))!(X="") EXIT
11 G:Y<0 OR S ESPDTR=$P(^ESP(912,+Y,0),U,2),(ESPID,ESPOFN)=+Y
12 I $P(^ESP(912,+Y,0),U,8)="C" W !,$C(7),"This report is closed and cannot be edited!" G OR
13EDIT ;ASK IF WANT TO DISPLAY EDIT THIS REPORT
14 D ASK2^ESPOFFE
15EXIT K DIC,DTOUT,DUOUT,ESPDTR,ESPID,ESPN,ESPOFN,ESPVAR,Y Q
16EN1 ;Entry point for an officer to edit his own reports
17 ;It won't ask if the report is completed.
18 D DT^DICRW S ESPVAR=1
19OR1 S DIC(0)="QAEMZ",DIC("A")="UOR#: ",DIC("S")="I $D(^(5)),$P(^(5),U,3)=DUZ,$P(^(5),U,5)",DIC="^ESP(912,"
20 D ^DIC
21 G:$D(DTOUT)!($D(DUOUT))!(X="") EXIT
22 G:Y<0 OR S ESPDTR=$P(^ESP(912,+Y,0),U,2),(ESPID,ESPOFN)=+Y
23 I $P(^ESP(912,+Y,0),U,8)="C" W !,$C(7),"This report is closed and cannot be edited!" G OR1
24 G EDIT
Note: See TracBrowser for help on using the repository browser.