RGI15PST ;Hines OI/GJC-POST-INIT FOR RG*1.0*15 ;01/03/01
Source file <RGI15PST.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN1 | ; 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. |
|
EN2(RGDFN) | ; determine the LAST TREATMENT DATE for a single
; patient called from our seeding process above. ; input: RGDFN - the dfn of the patient |
|
KILL | ; kill and quit
|
|
ENCDT(DFN,INPDT) | ; 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. |