2146:
2147: --
2148: --
2149: PROCEDURE create_ghr_errorlog (
2150: p_program_name IN ghr_process_log.program_name%TYPE,
2151: p_log_text IN ghr_process_log.log_text%TYPE,
2152: p_message_name IN ghr_process_log.message_name%TYPE,
2153: p_log_date IN ghr_process_log.log_date%TYPE
2154: )
2147: --
2148: --
2149: PROCEDURE create_ghr_errorlog (
2150: p_program_name IN ghr_process_log.program_name%TYPE,
2151: p_log_text IN ghr_process_log.log_text%TYPE,
2152: p_message_name IN ghr_process_log.message_name%TYPE,
2153: p_log_date IN ghr_process_log.log_date%TYPE
2154: )
2155: IS
2148: --
2149: PROCEDURE create_ghr_errorlog (
2150: p_program_name IN ghr_process_log.program_name%TYPE,
2151: p_log_text IN ghr_process_log.log_text%TYPE,
2152: p_message_name IN ghr_process_log.message_name%TYPE,
2153: p_log_date IN ghr_process_log.log_date%TYPE
2154: )
2155: IS
2156: --
2149: PROCEDURE create_ghr_errorlog (
2150: p_program_name IN ghr_process_log.program_name%TYPE,
2151: p_log_text IN ghr_process_log.log_text%TYPE,
2152: p_message_name IN ghr_process_log.message_name%TYPE,
2153: p_log_date IN ghr_process_log.log_date%TYPE
2154: )
2155: IS
2156: --
2157: l_message_name ghr_process_log.message_name%TYPE;
2153: p_log_date IN ghr_process_log.log_date%TYPE
2154: )
2155: IS
2156: --
2157: l_message_name ghr_process_log.message_name%TYPE;
2158: BEGIN
2159: --
2160: l_message_name := NVL (p_message_name, 'Please see log text');
2161:
2158: BEGIN
2159: --
2160: l_message_name := NVL (p_message_name, 'Please see log text');
2161:
2162: INSERT INTO ghr_process_log
2163: (process_log_id, program_name, log_text,
2164: message_name, log_date
2165: )
2166: VALUES (ghr_process_log_s.NEXTVAL, p_program_name, p_log_text,
2162: INSERT INTO ghr_process_log
2163: (process_log_id, program_name, log_text,
2164: message_name, log_date
2165: )
2166: VALUES (ghr_process_log_s.NEXTVAL, p_program_name, p_log_text,
2167: l_message_name, p_log_date
2168: );
2169: EXCEPTION
2170: WHEN NO_DATA_FOUND