95: log_msg(G_ldr_program||' Concurrent program exists. Skipping Create');
96: END IF;
97:
98: log_msg('End Register_Loader_Program');
99: RETURN FND_API.G_ret_sts_success;
100: EXCEPTION
101: WHEN OTHERS THEN
102: log_msg('EXCEPTION: '|| fnd_program.message());
103: log_msg('EXCEPTION: '|| sqlerrm);
100: EXCEPTION
101: WHEN OTHERS THEN
102: log_msg('EXCEPTION: '|| fnd_program.message());
103: log_msg('EXCEPTION: '|| sqlerrm);
104: RETURN FND_API.G_ret_sts_error;
105: END Register_Loader_Program;
106:
107: /* ---------------------------------------------------------------------
108: | PUBLIC PROCEDURE |
600: --
601: -- Call SQL*Loader to load data into interface table
602: --
603: -- If it doesn't exist, the oader program has to be registered first.
604: IF (Register_Loader_Program <> FND_API.G_ret_sts_success)
605: THEN
606: log_msg('ERROR: Could not register SQL*loader');
607: RAISE loader_exception;
608: ELSE