Oracle - Modificar codigo fuente en oracle

Hola!!!! Amigos, miren este es mi problema: tengo que modificar el codigo fuente de un programa en oracle que imprime etiquetas de activos fijos con una impresora zebra, la cosa es que tengo que modifiacr ese codigo pero para que imprima con una impresora datamax, no se como hacerlo, yo no he programado en oracle, por favor, quien pueda ayudarme o orientarme se lo agradezco de antemano.
Este es el codigo que debo modificar:

BEGIN
--
-- Crear archivo para imprimir las etiquetas por Código de Activo
--

--PAUSE;

IF p_tipo = 'A' then
in_file := text_io.fopen('d:\etiquetas\etactivo.txt', 'w');
--
-- Encabezado del archivo
--
text_io.put_line(in_file, '^XA^IB200^COY,0');
text_io.put_line(in_file, '^XZ');
text_io.put_line(in_file, '^XA^PRA^FS');
text_io.put_line(in_file, '^MSY^PF0^FS');

--
-- Cuerpo del archivo
--
for r in c1 loop
BEGIN
if r.nu_ref is not null then
text_io.put_line(in_file, r.l1);
text_io.put_line(in_file, r.l2);
text_io.put_line(in_file, r.l3);
text_io.put_line(in_file, r.l4);
text_io.put_line(in_file, r.l5);
text_io.put_line(in_file, r.l6);
text_io.put_line(in_file, r.l7);
text_io.put_line(in_file, r.l8);
text_io.put_line(in_file, r.l9);
text_io.put_line(in_file, r.l10);
text_io.put_line(in_file, r.l11);
text_io.put_line(in_file, r.l12);
text_io.put_line(in_file, r.l13);
text_io.put_line(in_file, r.l14);
text_io.put_line(in_file, r.l15);
else
text_io.put_line(in_file, r.l1);
text_io.put_line(in_file, r.l2);
text_io.put_line(in_file, r.l3);
text_io.put_line(in_file, r.l4);
text_io.put_line(in_file, r.l5);
text_io.put_line(in_file, r.l6);
text_io.put_line(in_file, r.l7);
text_io.put_line(in_file, r.l8);
text_io.put_line(in_file, r.l9);
text_io.put_line(in_file, r.l10);
text_io.put_line(in_file, r.l11);
text_io.put_line(in_file, r.l12);
text_io.put_line(in_file, r.l14);
text_io.put_line(in_file, r.l15);
end if;
IF r.activo2 is not null then
if r.nu_ref2 is not null then
text_io.put_line(in_file, r.l16);
text_io.put_line(in_file, r.l17);
text_io.put_line(in_file, r.l18);
text_io.put_line(in_file, r.l19);
text_io.put_line(in_file, r.l20);
text_io.put_line(in_file, r.l21);
text_io.put_line(in_file, r.l22);
text_io.put_line(in_file, r.l23);
text_io.put_line(in_file, r.l24);
text_io.put_line(in_file, r.l25);
text_io.put_line(in_file, r.l26);
text_io.put_line(in_file, r.l27);
text_io.put_line(in_file, r.l28);
else
text_io.put_line(in_file, r.l16);
text_io.put_line(in_file, r.l17);
text_io.put_line(in_file, r.l18);
text_io.put_line(in_file, r.l19);
text_io.put_line(in_file, r.l20);
text_io.put_line(in_file, r.l21);
text_io.put_line(in_file, r.l22);
text_io.put_line(in_file, r.l23);
text_io.put_line(in_file, r.l24);
text_io.put_line(in_file, r.l25);
text_io.put_line(in_file, r.l26);
text_io.put_line(in_file, r.l28);
end if;
END IF;
END;
end loop;
--
text_io.put_line(in_file, '^PQ1');
text_io.put_line(in_file, '^XZ');
--
text_io.fclose(in_file);
--
ELSIF p_tipo = 'U' then
--
Gracias nuevamente.