ESPUTIL ;DALISC/CKA- CONVERTS UOR # TO DESIRED FORMAT & ZIP CODE TRANSFORMS;3/93
Source file <ESPUTIL.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| EN | ;Miscellaneous
 | 
|
| UORN | ;This is to get a UOR# fm 18 doesn't allow 1990 standard
 | 
|
| XR | ;This is to get a UOR# for UOR xref on DATE/TIME RECEIVED field
 | 
|
| ZIPIN | ; input transform for ZIP - massages user input and returns data
 ; in Fileman internal format (no '-'s)  | 
|
| ZIPOUT | ; output transform for ZIP - prints either ZIP or ZIP+4 (in 12345-1234)
 ; format.  | 
|
| EOP() | ; end of page check - return 1 to quit, 0 to continue
 ;  | 
|
| NOW() | ; return NOW in external format for print on reports
 | 
|
| ID(NODE0) | ;writes identifiers for file 910.2
 | 
|
| SUBTYPE(ESPS,ESPDTR) | ;screen for field #.03/subfile #912.01/file #912
 ; input ; ESPS = what 2nd & 3rd piece of file #912.9 record ; ESPDTR = date/time (internal FM format) when offense report ; received  | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  |