* Big assumption here that the line is always the same length
text to lcLine noshow flags 1
---------------------------------------------------------------------------------------------------
endtext

text to lcData noshow flags 1
---------------------------------------------------------------------------------------------------
00000015 Copy this block into a file called Import.txt and put into appropriate Export directory
---------------------------------------------------------------------------------------------------
1,HIPAA,HIPAA,20080102,EXP_00D7280001.TIF
1,Office Notes,Office Notes,20080102,EXP_00D7260001.TIF
1,Prescriptions,Prescriptions,20080102,EXP_00D7160001.TIF
---------------------------------------------------------------------------------------------------
00000016 Copy this block into a file called Import.txt and put into appropriate Export directory
---------------------------------------------------------------------------------------------------
1,HIPAA,HIPAA,20080102,EXP_00D7280001.TIF
1,Office Notes,Office Notes,20080102,EXP_00D7260001.TIF
endtext

do while not Empty(lcData)
	lcHeader	= Strextract(lcData, lcLine, lcLine, 1, 4)
	lcData		= Substr(lcData, Len(lcHeader) + 1)
	lcBody		= Strextract(lcData, '', lcLine, 1)
	if Empty(lcBody) && There were no more lines
		lcBody		= lcData
	endif

       * Do something with lcHeader and lcBody

	lcData		= Substr(lcData, Len(lcBody) + 1)
enddo