The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT status
INTO l_prior_lock_status
FROM ZPB_DC_OBJECTS
WHERE object_id = p_object_id;
UPDATE ZPB_DC_OBJECTS
SET status = 'LOCKED',
prior_lock_status = l_prior_lock_status,
freeze_flag = 'Y',
--who columns
last_updated_by = fnd_global.USER_ID,
last_update_date = SYSDATE,
last_update_login = fnd_global.LOGIN_ID
WHERE object_id = p_object_id;
x_msg :='Row updated successfully';
SELECT prior_lock_status
INTO l_prior_lock_status
FROM ZPB_DC_OBJECTS
WHERE object_id = p_object_id;
UPDATE ZPB_DC_OBJECTS
SET status = l_prior_lock_status,
freeze_flag = 'N',
--who columns
last_updated_by = fnd_global.USER_ID,
last_update_date = SYSDATE,
last_update_login = fnd_global.LOGIN_ID
WHERE object_id = p_object_id
AND status = 'LOCKED';
x_msg :='Row updated successfully';
UPDATE ZPB_DC_OBJECTS
SET status = 'DISTRIBUTION_PENDING',
freeze_flag = 'N',
distributor_user_id = -100,
--who columns
last_updated_by = fnd_global.USER_ID,
last_update_date = SYSDATE,
last_update_login = fnd_global.LOGIN_ID
WHERE object_id = p_object_id;
x_msg :='Row updated successfully';