The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure insert_error(P_INTERFACE_ID NUMBER, P_ERROR VARCHAR2, P_ERROR_TYPE NUMBER) IS
BEGIN
/** Bug 2728127 -- removing GROUP_ID from insert as table 'wip_interface_errors'
does not have the column--this causes package to be INVALID **/
insert into wip_interface_errors (INTERFACE_ID, ERROR_TYPE, ERROR)
values (P_INTERFACE_ID, P_ERROR_TYPE, P_ERROR);
END insert_error;
SELECT count(*)
INTO x_count
FROM WIP_JOB_DTLS_INTERFACE
WHERE group_id = p_group_id
AND process_status = WIP_CONSTANTS.ERROR
AND wip_entity_id = p_wip_entity_id
AND organization_id = p_organization_id
AND load_type = WIP_JOB_DETAILS.WIP_OP_LINK
AND substitution_type= p_substitution_type;
SELECT prior_operation, next_operation
FROM wip_operation_networks
WHERE wip_entity_id = p_wip_entity_id
AND organization_id = p_organization_id;
select interface_id, operation_seq_num, next_network_op_seq_num
FROM WIP_JOB_DTLS_INTERFACE wjdi
WHERE wjdi.group_id = p_group_id
AND process_phase = WIP_CONSTANTS.ML_VALIDATION
AND process_status in (WIP_CONSTANTS.RUNNING,WIP_CONSTANTS.WARNING)
AND wip_entity_id = p_wip_entity_id
AND organization_id = p_organization_id
AND load_type = WIP_JOB_DETAILS.WIP_OP_LINK
AND substitution_type = p_subst_type;
/* AND exists (select 1
FROM WIP_OPERATION_NETWORKS
WHERE wip_entity_id = wjdi.wip_entity_id
AND organization_id = wjdi.organization_id
AND prior_operation = wjdi.operation_seq_num
AND next_operation = wjdi.next_network_op_seq_num);
update wip_job_dtls_interface wjdi
set process_status = wip_constants.error
where wjdi.group_id = p_group_id
and process_phase = wip_constants.ml_validation
and process_status in (wip_constants.running,
wip_constants.pending,
wip_constants.warning)
and wip_entity_id = p_wip_entity_id
and organization_id = p_organization_id
and load_type = wip_job_details.wip_op_link
and substitution_type = p_subst_type;
select interface_id
FROM WIP_JOB_DTLS_INTERFACE wjdi
WHERE wjdi.group_id = p_group_id
AND process_phase = WIP_CONSTANTS.ML_VALIDATION
AND process_status in (WIP_CONSTANTS.RUNNING,WIP_CONSTANTS.WARNING)
AND wip_entity_id = p_wip_entity_id
AND organization_id = p_organization_id
AND load_type = WIP_JOB_DETAILS.WIP_OP_LINK
AND substitution_type = p_subst_type
AND not exists (select 1
FROM WIP_OPERATIONS
WHERE wip_entity_id = p_wip_entity_id
AND organization_id = p_organization_id
AND operation_seq_num = p_operation_seq_num);
update wip_job_dtls_interface wjdi
set process_status = wip_constants.error
where wjdi.group_id = p_group_id
and process_phase = wip_constants.ml_validation
and process_status in (wip_constants.running,
wip_constants.pending,
wip_constants.warning)
and wip_entity_id = p_wip_entity_id
and organization_id = p_organization_id
and load_type = wip_job_details.wip_op_link
and substitution_type = p_subst_type;
SELECT distinct operation_seq_num,
next_network_op_seq_num,
last_update_date, last_updated_by, creation_date, created_by,
last_update_login, request_id, program_application_id,
program_id, program_update_date,
attribute_category, attribute1,
attribute2,attribute3,attribute4,attribute5,attribute6,attribute7,
attribute8,attribute9,attribute10,attribute11,attribute12,
attribute13,attribute14,attribute15
FROM WIP_JOB_DTLS_INTERFACE
WHERE group_id = p_group_id
AND process_phase = WIP_CONSTANTS.ML_VALIDATION
AND process_status in (WIP_CONSTANTS.RUNNING,WIP_CONSTANTS.WARNING)
AND wip_entity_id = p_wip_entity_id
AND organization_id = p_organization_id
AND load_type = WIP_JOB_DETAILS.WIP_OP_LINK
AND substitution_type = p_subst_type;
SELECT distinct operation_seq_num,
next_network_op_seq_num,
last_update_date, last_updated_by, creation_date, created_by,
last_update_login, request_id, program_application_id,
program_id, program_update_date,
attribute_category, attribute1,
attribute2,attribute3,attribute4,attribute5,attribute6,attribute7,
attribute8,attribute9,attribute10,attribute11,attribute12,
attribute13,attribute14,attribute15
FROM WIP_JOB_DTLS_INTERFACE
WHERE group_id = p_group_id
AND process_phase = WIP_CONSTANTS.ML_VALIDATION
AND process_status in (WIP_CONSTANTS.RUNNING,WIP_CONSTANTS.WARNING)
AND wip_entity_id = p_wip_entity_id
AND organization_id = p_organization_id
AND load_type = WIP_JOB_DETAILS.WIP_OP_LINK
AND substitution_type = p_subst_type;
select operation_completed,first_unit_start_date
into l_completed, l_next_op_start_date
from wip_operations
where wip_entity_id = p_wip_entity_id
and operation_seq_num = l_operation_seq_num;
select operation_completed, last_unit_completion_date
into l_prev_op_complete, l_previous_op_completion_date
from wip_operations
where wip_entity_id = p_wip_entity_id
and operation_seq_num = l_operation_seq_num;
select interface_id into l_interface_id
FROM WIP_JOB_DTLS_INTERFACE wjdi
WHERE wjdi.group_id = p_group_id
AND process_phase = WIP_CONSTANTS.ML_VALIDATION
AND process_status in (WIP_CONSTANTS.RUNNING,WIP_CONSTANTS.WARNING)
AND wip_entity_id = p_wip_entity_id
AND organization_id = p_organization_id
AND load_type = WIP_JOB_DETAILS.WIP_OP_LINK
AND operation_seq_num = from_id
AND next_network_op_seq_num = to_id
AND substitution_type = p_subst_type;
update wip_job_dtls_interface wjdi
set process_status = wip_constants.error
where wjdi.group_id = p_group_id
and process_phase = wip_constants.ml_validation
and process_status in (wip_constants.running,
wip_constants.pending,
wip_constants.warning)
and wip_entity_id = p_wip_entity_id
and organization_id = p_organization_id
and load_type = wip_job_details.wip_op_link
and substitution_type = p_subst_type;
insert into wip_interface_errors (
interface_id,
error_type,
error,
last_update_date,
creation_date
) values (
4567,
1,
substr(fnd_message.get,1,500),
sysdate,
sysdate
);
select interface_id
FROM WIP_JOB_DTLS_INTERFACE wjdi
WHERE wjdi.group_id = p_group_id
AND process_phase = WIP_CONSTANTS.ML_VALIDATION
AND process_status in (WIP_CONSTANTS.RUNNING,WIP_CONSTANTS.WARNING)
AND wip_entity_id = p_wip_entity_id
AND organization_id = p_organization_id
AND load_type = WIP_JOB_DETAILS.WIP_OP_LINK
AND substitution_type = p_subst_type
AND exists (select 1
FROM WIP_OPERATION_NETWORKS
WHERE wip_entity_id = wjdi.wip_entity_id
AND organization_id = wjdi.organization_id
AND prior_operation = wjdi.operation_seq_num
AND next_operation = wjdi.next_network_op_seq_num);
if (p_subst_type = WIP_JOB_DETAILS.WIP_DELETE) then
if c_op_link_rows%NOTFOUND then
l_error_exists := true;
update wip_job_dtls_interface wjdi
set process_status = wip_constants.error
where wjdi.group_id = p_group_id
and process_phase = wip_constants.ml_validation
and process_status in (wip_constants.running,
wip_constants.pending,
wip_constants.warning)
and wip_entity_id = p_wip_entity_id
and organization_id = p_organization_id
and load_type = wip_job_details.wip_op_link
and substitution_type = p_subst_type;
/* main delete, call the above. If any validation fail, it won't go on
with the next validations */
Procedure Delete_Op_Link(p_group_id in number,
p_wip_entity_id in number,
p_organization_id in number,
p_substitution_type in number,
x_err_code out nocopy varchar2,
x_err_msg out nocopy varchar2,
x_return_status out nocopy varchar2) IS
BEGIN
Exist_Op_Link(p_group_id, p_wip_entity_id, p_organization_id, p_substitution_type,
x_err_code , x_err_msg, x_return_status);
x_err_msg := 'ERROR IN WIPOLVDB.DELETE_OP_LINK: ' || SQLERRM;
END Delete_Op_Link;
SELECT distinct operation_seq_num,
next_network_op_seq_num,
last_update_date, last_updated_by, creation_date, created_by,
last_update_login, request_id, program_application_id,
program_id, program_update_date,
attribute_category, attribute1,
attribute2,attribute3,attribute4,attribute5,attribute6,attribute7,
attribute8,attribute9,attribute10,attribute11,attribute12,
attribute13,attribute14,attribute15
FROM WIP_JOB_DTLS_INTERFACE
WHERE group_id = p_group_id
AND process_phase = WIP_CONSTANTS.ML_VALIDATION
AND process_status in (WIP_CONSTANTS.RUNNING,WIP_CONSTANTS.WARNING)
AND wip_entity_id = p_wip_entity_id
AND organization_id = p_organization_id
AND load_type = WIP_JOB_DETAILS.WIP_OP_LINK
AND substitution_type = p_substitution_type;