| [613] | 1 | ESPOFFC ;DALISC/CKA- COMPLETE AN OFFENSE REPORT;8/92
|
|---|
| 2 | ;;1.0;POLICE & SECURITY;;Mar 31, 1994
|
|---|
| 3 | EN ;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
|
|---|
| 7 | START D DT^DICRW
|
|---|
| 8 | OR 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
|
|---|
| 13 | EDIT ;ASK IF WANT TO DISPLAY EDIT THIS REPORT
|
|---|
| 14 | D ASK2^ESPOFFE
|
|---|
| 15 | EXIT K DIC,DTOUT,DUOUT,ESPDTR,ESPID,ESPN,ESPOFN,ESPVAR,Y Q
|
|---|
| 16 | EN1 ;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
|
|---|
| 19 | OR1 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
|
|---|
