Routine: PSULRHL3

Information

PSULRHL3 ;HCIOFO/BH - Daily file procesing ; 1/20/11 3:03pm

Name	Comments	DBIA/ICR reference
PROCESS	; This process loops through the file containing parsed HL7 data. ; This process runs each day and collects up to the previous days data. ; The data is ordered by facility. All the data for the facility for ; for up to the previous day gets filed into one flat file for PBM to ; process. A pre-init sub routine CULL loops through all x-refs that ; indicate processed data for facility and date and culls the data and ; removes the FD x-ref. ;
OPEN()	; Open the output directory
CLOSE	; Set Cross ref indicating that facilities data for the day got ; processed, and close the output file.
FILE	; File the lab data to the output file in the following single string format.
ERROR(CODE,FAC,MESSAGE)	; Error processing
CULL	; Cull all entries for a facility that have been processed on or before the date in FD x-ref
ERORDSP	; Display errors
HEAD	;
PRTC	;press return to continue prompt

Name	Line Occurrences
Function Call: WRITE	Prompt: STR_LABA_LABB_LABC,! Line Location: FILE+44
Function Call: WRITE	Prompt: "No Error's to report." Line Location: ERORDSP+5
Function Call: WRITE	Prompt: !," "_MSG,! Line Location: ERORDSP+17
Function Call: WRITE	Prompt: " "_DATE,?71,"Page ",PG,!! Line Location: HEAD+2
Function Call: WRITE	Prompt: " Error log for PBM III national database processing.",! Line Location: HEAD+3
Function Call: WRITE	Prompt: " ---------------------------------------------------",! Line Location: HEAD+4