; $$function - Identify
; application screening logic based on precedence at a particular
; GIS process screening point and execute (if exists).
LOG(INFN,INIEN,INSRMC,INUIF,INLOG)
; Log error message.
; Add entry in the UIF ACTIVITY LOG MULTIPLE.
; Used for identifying which screening code suppressed this entry.
; If INUIF is absent, or SR debug is on,
; log message will be in the IFE file only.
; INPUTS:
; INFN File number (Should be 4000, 4004, or 4005)
; INIEN IEN w/in file that was suppressed
; INSRMC SRMC Field number
; INUIF (opt) IEN of the Universal Interface File (Optional)
; INLOG (opt) Boolean: 0 Don't update status, 1: Update status
; INENVSDB (opt) Boolean: 0 no SR debug, 1: Site SR debug is turned on
; INSRCTL("INSRPROC") (opt) Environment variable letting me know
; which gis function is calling me
; INSRCTL("INDEST") (opt) For XMT, its part of ENT^INHE call. (Dest)
; INSRCTL("INBPC") (opt) For RCV, this is part of ENR^INHE call
; INSRCTL("INTT") (opt) For REP, this is part of ENO^INHE call