program jms_parse ;

uses
	Classes, sysutils;

type
	HeaderLineType = record
		p_last_name    : string ;
		p_first_name   : string ;
		dos_from       : TDateTime ;
		dos_to         : TDateTime ;
		p_address      : string ;
		p_city         : string ;
		p_state        : string ;
		p_zip          : string ;
		f_name         : string ;
		f_address      : string ;
		f_city         : string ;
		f_state        : string ;
		f_zip          : string ;
		account_number : string ;
		in_out_network : Boolean ;
		claim_id       : longint ;
	end ;

	DetailLineType = record
		dos_from       : TDateTime ;
		dos_to         : TDateTime ;
		description    : string ;
		revenue_code   : string ;
		hcpcs_cpt_code : string ;
		modifiers      : string ;
		units          : string ;
		unit_price     : string ;
		charges        : string ;
		tiff_id        : string ;
	end ;

	TotalLineType = record
		file_date          : string ;
		detail_line_count  : string ;
		summary_line_count : string ;
	end ;

	ProcessedLineType = record
		pdf_filename  : string ;
		claim_id      : longint ;
		file_id       : longint ;
		returned_date : TDateTime ;
	end ;

function JmsDateToDate (const date_str : string) : TDateTime ;
var
	yr, mo, da : word ;

begin
	Val(Copy(date_str, 0, 2), yr) ;
	Val(Copy(date_str, 3, 2), mo) ;
	Val(Copy(date_str, 5, 2), da) ;

	JmsDateToDate := EncodeDate (2000 + yr, mo, da) ;
end ;

function ReadFileIntoStringList (const filename : string) : TStringList ;
begin
	ReadFileIntoStringList := TStringList.Create ;
	ReadFileIntoStringList.LoadFromFile (filename) ;
end ;

function ParseProcessedLine (const line : string) : ProcessedLineType ;
(* 123_456.pdf|060508*)
var
	underscore_pos : integer ;
	period_pos     : integer ;
	pipe_pos       : integer ;

begin
	underscore_pos := Pos('_', line) ;
	period_pos     := Pos('.', line) ;
	pipe_pos       := Pos('|', line) ;

	Val(Copy(line, 0, underscore_pos-1), ParseProcessedLine.claim_id) ;
	Val(Copy(line, underscore_pos+1, period_pos-underscore_pos-1),
			ParseProcessedLine.file_id) ;

	ParseProcessedLine.pdf_filename  := Copy(line, 0, pipe_pos-1) ;
	ParseProcessedLine.returned_date := JmsDateToDate(Copy(line, pipe_pos+1, 6)) ;
end;

var
	lines       : TStringList ;
	index       : integer ;
	the_line    : ProcessedLineType ;

begin
	lines := ReadFileIntoStringList ('20060920.PROCESSED') ;

	for index := 0 to lines.Count - 1 do
		begin
			the_line := ParseProcessedLine (lines[index]) ;
			writeln (the_line.pdf_filename, ':',
					the_line.claim_id, ':',
					the_line.file_id, ':',
					FormatDateTime('mm/dd/yy', the_line.returned_date)) ;
		end ;
end.