; display a status message pertaining to the addition
; of entries to files: 869.2, 870, 771 & 101. Display a status message
; when items are added to the Protocol (101) file.
; Variable list:
; ENTRY-> value of the .01 field for a particular file (60 chars max)
; FILE -> file # where the data will be added
; ERR -> err message? 1 if yes, else null
ACTIVE()
; return 'ACTIVE', for ACTIVE/INACTIVE (2) field in file
; 771
PROID()
; Return the Processing ID data ;IHS/ITSC/CLS 04/25/2003 replaced “PRODUCTION” with “”