[Home] [Help]
86:
87: cursor get_oper_status (p_operation_id in number)
88: is
89: select revision_status_code
90: from ahl_operations_b
91: where operation_id = p_operation_id;
92:
93: l_api_name VARCHAR2(30) := 'process_association';
94: l_api_version NUMBER := 1.0;
283: OPEN get_oper_status (p_x_association_tbl(1).OBJECT_ID);
284: FETCH get_oper_status INTO l_obj_status;
285: IF (get_oper_status%FOUND AND l_obj_status = 'APPROVAL_REJECTED')
286: THEN
287: UPDATE ahl_operations_b
288: SET revision_status_code = 'DRAFT'
289: WHERE operation_id = p_x_association_tbl(1).OBJECT_ID;
290: END IF;
291: CLOSE get_oper_status;