source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPVAL.m@ 1800

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

initial load of WorldVistAEHR

File size: 1.0 KB
RevLine 
[613]1ESPVAL ;DALISC/CKA - OFFENSE REPORT VALIDATION CHECK;11/92
2 ;;1.0;POLICE & SECURITY;;Mar 31, 1994
3EN ;Q;
4 ;CALLED FROM ESPOFFE
5 S ER=0 W !!,"Data Validation in progress"
6DTR I $P(^ESP(912,ESPOFN,0),U,2)']"" W !,$C(7),"No Date/Time Received." S ER=1
7DTO I $P(^ESP(912,ESPOFN,0),U,3)']"" W !,$C(7),"No Date/Time of Offense." S ER=1
8POL I $P(^ESP(912,ESPOFN,0),U,6)']"" W !,$C(7),"No Investigating Officer." S ER=1
9CL ;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
15COMP 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
17EXIT K ER,CL
18 QUIT
Note: See TracBrowser for help on using the repository browser.