757: END log;
758:
759:
760: PROCEDURE print_log IS
761: uFile_type utl_file.file_type;
762: attachment_id pls_integer;
763: BEGIN
764: /* IF g_instlmode = 'EMBEDDED' THEN
765: return;
794: fnd_log_attachment.close(attachment_id);
795: end if;
796: g_aflog_module_name:=null;
797: else
798: uFile_type := utl_file.fopen(g_file_path,g_file_name,'W');
799: FOR loop_count IN 1..g_message_stack.COUNT LOOP
800: utl_file.put_line(uFile_type,
801: RTRIM(g_message_stack(loop_count).message_text));
802: END LOOP;
796: g_aflog_module_name:=null;
797: else
798: uFile_type := utl_file.fopen(g_file_path,g_file_name,'W');
799: FOR loop_count IN 1..g_message_stack.COUNT LOOP
800: utl_file.put_line(uFile_type,
801: RTRIM(g_message_stack(loop_count).message_text));
802: END LOOP;
803: utl_file.fclose(uFile_type);
804: end if;
799: FOR loop_count IN 1..g_message_stack.COUNT LOOP
800: utl_file.put_line(uFile_type,
801: RTRIM(g_message_stack(loop_count).message_text));
802: END LOOP;
803: utl_file.fclose(uFile_type);
804: end if;
805: end if;
806: END IF;
807: EXCEPTION
804: end if;
805: end if;
806: END IF;
807: EXCEPTION
808: WHEN utl_file.write_error THEN
809: if (utl_file.is_open(uFile_type)) then
810: utl_file.fclose(uFile_type);
811: end if;
812: setErrorInfo(2,30,'ECX_UTL_WRITE_ERROR' || '- ECX_DEBUG.PRINT_LOG');
805: end if;
806: END IF;
807: EXCEPTION
808: WHEN utl_file.write_error THEN
809: if (utl_file.is_open(uFile_type)) then
810: utl_file.fclose(uFile_type);
811: end if;
812: setErrorInfo(2,30,'ECX_UTL_WRITE_ERROR' || '- ECX_DEBUG.PRINT_LOG');
813: raise ecx_utils.program_exit;
806: END IF;
807: EXCEPTION
808: WHEN utl_file.write_error THEN
809: if (utl_file.is_open(uFile_type)) then
810: utl_file.fclose(uFile_type);
811: end if;
812: setErrorInfo(2,30,'ECX_UTL_WRITE_ERROR' || '- ECX_DEBUG.PRINT_LOG');
813: raise ecx_utils.program_exit;
814:
811: end if;
812: setErrorInfo(2,30,'ECX_UTL_WRITE_ERROR' || '- ECX_DEBUG.PRINT_LOG');
813: raise ecx_utils.program_exit;
814:
815: WHEN utl_file.invalid_path THEN
816: setErrorInfo(2,30,
817: 'ECX_UTL_INVALID_PATH' || ' - ECX_DEBUG.PRINT_LOG');
818: raise ecx_utils.program_exit;
819:
816: setErrorInfo(2,30,
817: 'ECX_UTL_INVALID_PATH' || ' - ECX_DEBUG.PRINT_LOG');
818: raise ecx_utils.program_exit;
819:
820: WHEN utl_file.invalid_operation THEN
821: setErrorInfo(2,30,
822: 'ECX_UTL_INVALID_OPERATION' || ' - ECX_DEBUG.PRINT_LOG');
823: raise ecx_utils.program_exit;
824:
822: 'ECX_UTL_INVALID_OPERATION' || ' - ECX_DEBUG.PRINT_LOG');
823: raise ecx_utils.program_exit;
824:
825: WHEN OTHERS THEN
826: if (utl_file.is_open(uFile_type)) then
827: utl_file.fclose(uFile_type);
828: end if;
829: setErrorInfo(2,30,
830: SQLERRM || ' - ECX_DEBUG.PRINT_LOG');
823: raise ecx_utils.program_exit;
824:
825: WHEN OTHERS THEN
826: if (utl_file.is_open(uFile_type)) then
827: utl_file.fclose(uFile_type);
828: end if;
829: setErrorInfo(2,30,
830: SQLERRM || ' - ECX_DEBUG.PRINT_LOG');
831: raise ecx_utils.program_exit;