; entry point to check the TREATING FACILITY LIST (TFL-391.91) file
; for the proper LAST TREATMENT DATE. This code is part of the post
; init for RG*1*15.
; find the last patient check out date/time. 'ADFN'
; cross-reference accessed through DBIA: 2953
; Input: DFN - ien of the patient (file 2)
; INPDT - date (if any) obtained from the DATE LAST TREATED
; (#.03) field on the TFL (#391.91) file.
; Send a completion email message to the user who installed this patch.
; Show the number of patient records processed, elapsed time and the
; number of patient records processed per minute.