[Home] [Help]
1005:
1006: --Bug # 4618856 - if statement is added to check the return status
1007: IF (x_return_status = 'S') THEN
1008:
1009: /* Bug#3297238: call the insert table handlers of pa_obj_status_changes and pa_ci_comments here */
1010: IF P_PA_DEBUG_MODE = 'Y' THEN
1011: pa_debug.write_file('ChangeCiStatus: before call to ADD_STATUS_CHANGE_COMMENT');
1012: END IF;
1013:
1981: l_wf_process pa_project_statuses.workflow_process%TYPE;
1982: l_item_key pa_wf_processes.item_key%TYPE;
1983: l_prev_status pa_obj_status_changes.old_project_status_code%TYPE;
1984: l_curr_status pa_obj_status_changes.new_project_status_code%TYPE;
1985: l_comment pa_ci_comments.comment_text%TYPE;
1986: BEGIN
1987:
1988: OPEN c_wf_type;
1989: FETCH c_wf_type INTO l_wf_item_type, l_wf_process;
2027: ,x_return_status => x_return_status
2028: ,x_msg_count => x_msg_count
2029: ,x_msg_data => x_msg_data);
2030:
2031: /* Bug#3297238: call the insert table handlers of pa_obj_status_changes and pa_ci_comments here */
2032:
2033: fnd_message.set_name('PA', 'PA_CI_ABORT_WF_COMMENT');
2034: l_comment := fnd_message.get;
2035:
2087: l_ci_action_id NUMBER;
2088: l_rowid VARCHAR2(255);
2089: l_new_sysstatus pa_project_statuses.project_system_status_code%TYPE;
2090: l_old_sysstatus pa_project_statuses.project_system_status_code%TYPE;
2091: l_comment_text pa_ci_comments.comment_text%TYPE;
2092: l_obj_status_change_id NUMBER;
2093: l_new_status_name pa_project_statuses.project_status_name%TYPE;
2094: l_old_status_name pa_project_statuses.project_status_name%TYPE;
2095:
2134: X_CREATION_DATE => P_CREATION_DATE,
2135: X_LAST_UPDATE_DATE => P_LAST_UPDATE_DATE,
2136: X_LAST_UPDATE_LOGIN => P_LAST_UPDATE_LOGIN);
2137:
2138: PA_CI_COMMENTS_PKG.INSERT_ROW(
2139: P_CI_COMMENT_ID => L_CI_COMMENT_ID,
2140: P_CI_ID => P_OBJECT_ID,
2141: P_TYPE_CODE => P_TYPE_CODE,
2142: P_COMMENT_TEXT => L_COMMENT_TEXT,