[Home] [Help]
955:
956: --Bug # 4618856 - if statement is added to check the return status
957: IF (x_return_status = 'S') THEN
958:
959: /* Bug#3297238: call the insert table handlers of pa_obj_status_changes and pa_ci_comments here */
960: IF P_PA_DEBUG_MODE = 'Y' THEN
961: pa_debug.write_file('ChangeCiStatus: before call to ADD_STATUS_CHANGE_COMMENT');
962: END IF;
963:
1885: l_wf_process pa_project_statuses.workflow_process%TYPE;
1886: l_item_key pa_wf_processes.item_key%TYPE;
1887: l_prev_status pa_obj_status_changes.old_project_status_code%TYPE;
1888: l_curr_status pa_obj_status_changes.new_project_status_code%TYPE;
1889: l_comment pa_ci_comments.comment_text%TYPE;
1890: BEGIN
1891:
1892: OPEN c_wf_type;
1893: FETCH c_wf_type INTO l_wf_item_type, l_wf_process;
1931: ,x_return_status => x_return_status
1932: ,x_msg_count => x_msg_count
1933: ,x_msg_data => x_msg_data);
1934:
1935: /* Bug#3297238: call the insert table handlers of pa_obj_status_changes and pa_ci_comments here */
1936:
1937: fnd_message.set_name('PA', 'PA_CI_ABORT_WF_COMMENT');
1938: l_comment := fnd_message.get;
1939:
1991: l_ci_action_id NUMBER;
1992: l_rowid VARCHAR2(255);
1993: l_new_sysstatus pa_project_statuses.project_system_status_code%TYPE;
1994: l_old_sysstatus pa_project_statuses.project_system_status_code%TYPE;
1995: l_comment_text pa_ci_comments.comment_text%TYPE;
1996: l_obj_status_change_id NUMBER;
1997: l_new_status_name pa_project_statuses.project_status_name%TYPE;
1998: l_old_status_name pa_project_statuses.project_status_name%TYPE;
1999:
2038: X_CREATION_DATE => P_CREATION_DATE,
2039: X_LAST_UPDATE_DATE => P_LAST_UPDATE_DATE,
2040: X_LAST_UPDATE_LOGIN => P_LAST_UPDATE_LOGIN);
2041:
2042: PA_CI_COMMENTS_PKG.INSERT_ROW(
2043: P_CI_COMMENT_ID => L_CI_COMMENT_ID,
2044: P_CI_ID => P_OBJECT_ID,
2045: P_TYPE_CODE => P_TYPE_CODE,
2046: P_COMMENT_TEXT => L_COMMENT_TEXT,