Change these lines
(setq datafile (open filename "W"))
(setq data_line "Part,Factory,Block Name,Position X,Position Y,Position Z,Scale X,Scale Y,Scale Z,Layer Name")
(write-line data_line datafile)
on this one:
(setq datafile (open filename [color=red]"A"[/color]))
~'J'~