Help for this page

Select Code to Download

Select or download this

#! / usr/bin/perl -w
use Text::Wrap qw(wrap);
...
}
close (INFILE);
close (OUTFILE);

Select or download this

ISA*00*          *00*          *28*9000000454     *ZZ*J00370         *
+070926*0342*U*00401*000489661*0*P*:~
GS*HP*9000000454*J00370*20070926*03421826*489660*X*004010X091A1~
...
REF*EA*0073294416~
DTM*050*20070913~
DTM*23