The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure update_planned_task_status
( x_errbuf OUT NOCOPY VARCHAR2
, x_retcode OUT NOCOPY VARCHAR2
, p_task_source IN VARCHAR2 DEFAULT NULL
, p_task_query_flag IN VARCHAR2 DEFAULT NULL
, p_terr_flag IN VARCHAR2 DEFAULT NULL
, p_query_id IN VARCHAR2 DEFAULT NULL
, p_commit_horizon IN NUMBER DEFAULT NULL
, p_commit_horizon_uom IN VARCHAR2 DEFAULT NULL
, p_from_task_id IN NUMBER DEFAULT NULL
, p_to_task_id IN NUMBER DEFAULT NULL
, p_commit_horizon_from IN NUMBER DEFAULT NULL
, p_commit_uom_from IN VARCHAR2 DEFAULT NULL
)
is
--
-- variables for API output parameters
--
l_return_status varchar2(2000);
IS SELECT DISTINCT TR.RESOURCE_ID RESOURCE_ID,
TR.RESOURCE_TYPE RESOURCE_TYPE,
TR.RESOURCE_NAME RESOURCE_NAME,
CSF_GANTT_DATA_PKG.GET_RESOURCE_TYPE_NAME( TR.RESOURCE_TYPE ) RESOURCE_TYPE_NAME,
TR.RESOURCE_ID||'-'||TR.RESOURCE_TYPE
FROM CSF_SELECTED_RESOURCES_V TR
ORDER BY UPPER(TR.RESOURCE_NAME);
l_query := 'SELECT DISTINCT NVL(t.parent_task_id, t.task_id) task_id
FROM jtf_tasks_b t
, jtf_task_assignments ta
, jtf_task_statuses_b ts
, (SELECT TO_NUMBER(SUBSTR(column_value
, 1
, INSTR(column_value, ''-'', 1, 1) - 1
)
)resource_id
,SUBSTR(column_value
, INSTR(column_value, ''-'', 1, 1) + 1
, LENGTH(column_value)
) resource_type
FROM TABLE(CAST(:p_res_key AS jtf_varchar2_table_2000))
) res_info
WHERE ta.resource_id = res_info.resource_id
AND ta.resource_type_code = res_info.resource_type
AND ts.task_status_id = ta.assignment_status_id
AND NVL(ts.closed_flag, ''N'') = ''N''
AND NVL(ts.completed_flag, ''N'') = ''N''
AND NVL(ts.cancelled_flag, ''N'') = ''N''
AND NVL(ts.assigned_flag, ''N'') <> ''Y''
AND NVL(ts.working_flag, ''N'') <> ''Y''
AND t.task_id = ta.task_id
AND ta.booking_start_date>=:l_start_date
AND t.task_type_id NOT IN (20,21)
AND NVL(t.deleted_flag, ''N'') <> ''Y''
AND t.source_object_type_code = ''SR''
ORDER BY 1 ASC';
l_query := 'SELECT DISTINCT NVL(t.parent_task_id, t.task_id) task_id
FROM jtf_tasks_b t
, jtf_task_assignments ta
, jtf_task_statuses_b ts
, (SELECT TO_NUMBER(SUBSTR(column_value
, 1
, INSTR(column_value, ''-'', 1, 1) - 1
)
)resource_id
,SUBSTR(column_value
, INSTR(column_value, ''-'', 1, 1) + 1
, LENGTH(column_value)
) resource_type
FROM TABLE(CAST(:1 AS jtf_varchar2_table_2000))
) res_info
WHERE ta.resource_id = res_info.resource_id
AND ta.resource_type_code = res_info.resource_type
AND ts.task_status_id = ta.assignment_status_id
AND NVL(ts.closed_flag, ''N'') = ''N''
AND NVL(ts.completed_flag, ''N'') = ''N''
AND NVL(ts.cancelled_flag, ''N'') = ''N''
AND NVL(ts.assigned_flag, ''N'') <> ''Y''
AND NVL(ts.working_flag, ''N'') <> ''Y''
AND t.task_id = ta.task_id
AND ta.booking_start_date between :2 AND :3
AND t.task_type_id NOT IN (20,21)
AND NVL(t.deleted_flag, ''N'') <> ''Y''
AND t.source_object_type_code = ''SR''
ORDER BY 1 ASC';
l_primary_request_stack.delete;
end update_planned_task_status;