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 |
|