[Home] [Help]
61:
62: RETURN l_msg_data;
63: END GET_MSG_DATA;
64:
65: -- private procedure to log process details in the new table AHL_ENIGMA_PROCESS_LOG
66: PROCEDURE Enter_Process_Log (
67: p_report_type IN VARCHAR2,
68: p_report_file_name IN VARCHAR2,
69: p_object_name IN VARCHAR2,
76: l_msg_data VARCHAR2(2000) := NULL;
77: --
78:
79: BEGIN
80: -- get the next value of the sequence AHL_ENIGMA_PROCESS_LOG_S
81: SELECT AHL_ENIGMA_PROCESS_LOG_S.NEXTVAL INTO l_log_id FROM DUAL;
82:
83: IF (p_process_status <> 'S') THEN
84: -- call the private function Get_Msg_Data
77: --
78:
79: BEGIN
80: -- get the next value of the sequence AHL_ENIGMA_PROCESS_LOG_S
81: SELECT AHL_ENIGMA_PROCESS_LOG_S.NEXTVAL INTO l_log_id FROM DUAL;
82:
83: IF (p_process_status <> 'S') THEN
84: -- call the private function Get_Msg_Data
85: l_msg_data := SUBSTR(Get_Msg_Data(p_msg_count), 1, 2000);
85: l_msg_data := SUBSTR(Get_Msg_Data(p_msg_count), 1, 2000);
86: END IF;
87:
88: -- insert the log in the log table
89: INSERT INTO AHL_ENIGMA_PROCESS_LOG (
90: log_id,
91: last_update_date,
92: last_updated_by,
93: creation_date,