| [613] | 1 | ESPVAL ;DALISC/CKA - OFFENSE REPORT VALIDATION CHECK;11/92
|
|---|
| 2 | ;;1.0;POLICE & SECURITY;;Mar 31, 1994
|
|---|
| 3 | EN ;Q;
|
|---|
| 4 | ;CALLED FROM ESPOFFE
|
|---|
| 5 | S ER=0 W !!,"Data Validation in progress"
|
|---|
| 6 | DTR I $P(^ESP(912,ESPOFN,0),U,2)']"" W !,$C(7),"No Date/Time Received." S ER=1
|
|---|
| 7 | DTO I $P(^ESP(912,ESPOFN,0),U,3)']"" W !,$C(7),"No Date/Time of Offense." S ER=1
|
|---|
| 8 | POL I $P(^ESP(912,ESPOFN,0),U,6)']"" W !,$C(7),"No Investigating Officer." S ER=1
|
|---|
| 9 | CL ;CHECK CLASSIFICATION CODES
|
|---|
| 10 | I '$D(^ESP(912,ESPOFN,10)) W !,$C(7),"No Classification Code." S ER=1
|
|---|
| 11 | F ESPN=0:0 S ESPN=$O(^ESP(912,ESPOFN,10,ESPN)) Q:ESPN'>0 D
|
|---|
| 12 | . S CL=^ESP(912,ESPOFN,10,ESPN,0) I $P(CL,U)']"" W !,$C(7),"No Classification Code." S ER=1 Q:ER
|
|---|
| 13 | . I $O(^ESP(912.8,"AC",$P(CL,U),0)),$P(CL,U,2)']"" W !,$C(7),"No Type for this Classification Code." S ER=1 Q:ER
|
|---|
| 14 | . I $O(^ESP(912.9,"AC",$P(CL,U,2),0)),$P(CL,U,3)']"" W !,$C(7),"No Sub-Type for this Type." S ER=1
|
|---|
| 15 | COMP I ER W !,"This report must have the above before it can be completed."
|
|---|
| 16 | I 'ER W !,"Report Completed." S $P(^ESP(912,ESPOFN,5),U,2)=1
|
|---|
| 17 | EXIT K ER,CL
|
|---|
| 18 | QUIT
|
|---|
