The following lines contain the word 'select', 'insert', 'update' or 'delete':
p_delete_draft IN VARCHAR2
);
PROCEDURE update_acceptance_status
( p_draft_id IN NUMBER,
p_acceptance_action IN VARCHAR2
);
SELECT PO_DRAFTS_S.nextval
INTO l_draft_id
FROM DUAL;
p_delete_processed_draft IN VARCHAR2,
p_acceptance_action IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2
) IS
d_api_name CONSTANT VARCHAR2(30) := 'transfer_draft_to_txn';
PO_LOG.proc_begin(d_module, 'p_delete_processed_draft',
p_delete_processed_draft);
PO_LOG.stmt(d_module, d_position, 'update acceptance action');
update_acceptance_status
( p_draft_id => p_draft_id,
p_acceptance_action => p_acceptance_action
);
PO_DRAFT_APPR_STATUS_PVT.update_approval_status
( p_draft_info => l_draft_info
, x_rebuild_attribs => l_rebuild_attribs -- Bug#4902870
);
p_delete_draft => p_delete_processed_draft
);
PO_HEADERS_DRAFT_PKG.delete_rows
( p_draft_id => p_draft_id,
p_po_header_id => NULL
);
PO_LINES_DRAFT_PKG.delete_rows
( p_draft_id => p_draft_id,
p_po_line_id => NULL
);
PO_LINE_LOCATIONS_DRAFT_PKG.delete_rows
( p_draft_id => p_draft_id,
p_line_location_id => NULL
);
PO_DISTRIBUTIONS_DRAFT_PKG.delete_rows
( p_draft_id => p_draft_id,
p_po_distribution_id => NULL
);
PO_GA_ORG_ASSIGN_DRAFT_PKG.delete_rows
( p_draft_id => p_draft_id,
p_org_assignment_id => NULL
);
PO_PRICE_DIFF_DRAFT_PKG.delete_rows
( p_draft_id => p_draft_id,
p_price_differential_id => NULL
);
PO_NOTIFICATION_CTRL_DRAFT_PKG.delete_rows
( p_draft_id => p_draft_id,
p_notification_id => NULL
);
PO_ATTR_VALUES_DRAFT_PKG.delete_rows
( p_draft_id => p_draft_id,
p_attribute_values_id => NULL
);
PO_ATTR_VALUES_TLP_DRAFT_PKG.delete_rows
( p_draft_id => p_draft_id,
p_attribute_values_tlp_id => NULL
);
DELETE FROM po_drafts
WHERE draft_id = p_draft_id;
SELECT NVL(MAX(FND_API.G_FALSE), FND_API.G_TRUE)
INTO x_draft_info.new_document
FROM po_headers_all POH
WHERE POH.po_header_id = p_po_header_id;
SELECT PHD.type_lookup_code,
PHD.quote_type_lookup_code,
NVL(PHD.global_agreement_flag, 'N')
INTO l_type_lookup_code,
l_quote_type_lookup_code,
x_draft_info.ga_flag
FROM PO_HEADERS_DRAFT_ALL PHD
WHERE PHD.po_header_id = p_po_header_id
AND PHD.draft_id = p_draft_id;
SELECT PHA.type_lookup_code,
PHA.quote_type_lookup_code,
NVL(PHA.global_agreement_flag, 'N')
INTO l_type_lookup_code,
l_quote_type_lookup_code,
x_draft_info.ga_flag
FROM PO_HEADERS_ALL PHA
WHERE PHA.po_header_id = p_po_header_id;
SELECT DFT.draft_id,
DFT.status,
DFT.owner_role
INTO x_draft_id,
x_draft_status,
x_draft_owner_role
FROM po_drafts DFT
WHERE DFT.document_id = p_po_header_id
AND DFT.status <> g_status_COMPLETED;
SELECT request_id
INTO x_request_id
FROM po_drafts
WHERE draft_id = p_draft_id;
SELECT lock_owner_role,
lock_owner_user_id
INTO x_lock_owner_role,
x_lock_owner_user_id
FROM po_headers_all
WHERE po_header_id = p_po_header_id;
UPDATE po_headers_all
SET lock_owner_role = p_role,
lock_owner_user_id = p_role_user_id
WHERE po_header_id = p_po_header_id;
PROCEDURE update_permission_check
( p_calling_module IN VARCHAR2,
p_po_header_id IN NUMBER,
p_role IN VARCHAR2,
p_skip_cat_upload_chk IN VARCHAR2,
x_update_allowed OUT NOCOPY VARCHAR2,
x_locking_applicable OUT NOCOPY VARCHAR2,
x_unlock_required OUT NOCOPY VARCHAR2,
x_message OUT NOCOPY VARCHAR2
) IS
d_api_name CONSTANT VARCHAR2(30) := 'update_permission_check';
x_update_allowed := FND_API.G_TRUE;
x_update_allowed := FND_API.G_FALSE;
x_update_allowed := FND_API.G_FALSE;
x_update_allowed := FND_API.G_FALSE;
x_update_allowed := FND_API.G_FALSE;
x_update_allowed := FND_API.G_FALSE;
x_update_allowed := FND_API.G_FALSE;
x_message := 'PO_UPDATE_NOT_ALLOWED';
x_update_allowed := FND_API.G_FALSE;
x_message := 'PO_UPDATE_NOT_ALLOWED';
x_update_allowed := FND_API.G_FALSE;
SELECT NVL(authorization_status, 'INCOMPLETE')
INTO l_authorization_status
FROM po_headers_all
WHERE po_header_id = p_po_header_id;
l_authorization_status || '. This role cannot update the document ' ||
'in this status');
x_update_allowed := FND_API.G_FALSE;
x_update_allowed := FND_API.G_FALSE;
x_update_allowed := FND_API.G_FALSE;
x_update_allowed := FND_API.G_FALSE;
x_update_allowed := FND_API.G_FALSE;
END update_permission_check;
PROCEDURE update_permission_check
( p_calling_module IN VARCHAR2,
p_po_header_id IN NUMBER,
p_role IN VARCHAR2,
p_skip_cat_upload_chk IN VARCHAR2,
x_update_allowed OUT NOCOPY VARCHAR2,
x_locking_applicable OUT NOCOPY VARCHAR2,
x_unlock_required OUT NOCOPY VARCHAR2,
x_message OUT NOCOPY VARCHAR2,
x_token_name_tbl OUT NOCOPY PO_TBL_VARCHAR30,
x_token_value_tbl OUT NOCOPY PO_TBL_VARCHAR2000
) IS
l_num_records NUMBER;
update_permission_check
( p_calling_module => p_calling_module,
p_po_header_id => p_po_header_id,
p_role => p_role,
p_skip_cat_upload_chk => p_skip_cat_upload_chk,
x_update_allowed => x_update_allowed,
x_locking_applicable => x_locking_applicable,
x_unlock_required => x_unlock_required,
x_message => x_message
);
IF (x_update_allowed = FND_API.G_TRUE) THEN
RETURN;
IF (x_message IN ('PO_DOC_LOCKED', 'PO_UPDATE_NOT_ALLOWED',
'PO_AUTH_STATUS_ERROR', 'PO_DOC_LOCKED_BY_OTHER_ROLE',
'PO_UPLOAD_PENDING_RUNNING', 'PO_UPLOAD_ERROR',
'PO_BUYER_ACCEPTANCE_PENDING',
'PO_LOCKED_BY_PDOI_ERR')) THEN
x_token_name_tbl := PO_TBL_VARCHAR30 ('STYLE_NAME');
END update_permission_check;
PROCEDURE update_permission_check
( p_calling_module IN VARCHAR2,
p_po_header_id IN NUMBER,
p_role IN VARCHAR2,
p_skip_cat_upload_chk IN VARCHAR2,
x_update_allowed OUT NOCOPY VARCHAR2,
x_locking_applicable OUT NOCOPY VARCHAR2,
x_unlock_required OUT NOCOPY VARCHAR2,
x_message OUT NOCOPY VARCHAR2,
x_message_text OUT NOCOPY VARCHAR2
) IS
l_token_name_tbl PO_TBL_VARCHAR30;
update_permission_check
( p_calling_module => p_calling_module,
p_po_header_id => p_po_header_id,
p_role => p_role,
p_skip_cat_upload_chk => p_skip_cat_upload_chk,
x_update_allowed => x_update_allowed,
x_locking_applicable => x_locking_applicable,
x_unlock_required => x_unlock_required,
x_message => x_message,
x_token_name_tbl => l_token_name_tbl,
x_token_value_tbl => l_token_value_tbl
);
IF (x_update_allowed = FND_API.G_TRUE) THEN
RETURN;
END update_permission_check;
SELECT type_lookup_code,
NVL(global_agreement_flag, 'N'),
approved_date,
lock_owner_role
INTO l_type_lookup_code,
l_ga_flag,
l_approved_date,
l_current_lock_owner_role
FROM po_headers_all
WHERE po_header_id = p_po_header_id;
SELECT type_lookup_code,
NVL(global_agreement_flag, 'N')
INTO l_type_lookup_code,
l_ga_flag
FROM po_headers_all
WHERE po_header_id = p_po_header_id;
update_permission_check
( p_calling_module => p_calling_module,
p_po_header_id => p_po_header_id,
p_role => p_role,
x_update_allowed => x_locking_allowed,
x_locking_applicable => l_locking_applicable,
x_unlock_required => l_unlock_required,
x_message => x_message,
x_message_text => x_message_text
);
PROCEDURE update_draft_status
( p_draft_id IN NUMBER,
p_new_status IN VARCHAR2
) IS
d_api_name CONSTANT VARCHAR2(30) := 'update_draft_status';
UPDATE po_drafts
SET status = p_new_status,
request_id = DECODE (p_new_status,
g_status_PDOI_PROCESSING, l_cur_conc_request_id,
NULL)
WHERE draft_id = p_draft_id;
END update_draft_status;
SELECT supplier_auth_enabled_flag
INTO l_supplier_auth_enabled_flag
FROM po_headers_all
WHERE po_header_id = p_po_header_id;
UPDATE po_headers_all
SET supplier_auth_enabled_flag
= p_supplier_auth_enabled_flag
WHERE po_header_id = p_po_header_id;
SELECT cat_admin_auth_enabled_flag
INTO l_cat_admin_auth_enable_flag
FROM po_headers_all
WHERE po_header_id = p_po_header_id;
UPDATE po_headers_all
SET cat_admin_auth_enabled_flag
= p_cat_admin_auth_enable_flag
WHERE po_header_id = p_po_header_id;
SELECT job_status,
-- role_user_id,
job_number,
job_status_display,
is_error
INTO x_upload_status_code,
--x_upload_requestor_role_id,
x_upload_job_number,
x_upload_status_display,
x_upload_is_error
FROM icx_cat_latest_batch_jobs_v
WHERE po_header_Id = p_po_header_id
AND role = p_role;
SELECT job_status,
-- role_user_id,
job_number,
job_status_display
INTO x_upload_status_code,
--x_upload_requestor_role_id,
x_upload_job_number,
x_upload_status_display
FROM icx_cat_latest_batch_jobs_v
WHERE po_header_id = p_po_header_id
AND job_status IN (g_upload_status_PENDING,
g_upload_status_RUNNING,
g_upload_status_ERROR)
AND ROWNUM = 1;
SELECT org_id,
segment1,
revision_num
INTO l_org_id,
l_segment1,
l_revision_num
FROM po_headers_all
WHERE po_header_id = p_po_header_id;
SELECT agent_id
INTO l_agent_id
FROM po_headers_all
WHERE po_header_id = p_po_header_id;
SELECT 1
INTO l_dummy
FROM po_headers_all POH
WHERE POH.po_header_id = p_po_header_id
AND NVL(cancel_flag, 'N') = 'N'
AND NVL(closed_code, 'OPEN') NOT IN ('CLOSED', 'FINALLY CLOSED')
AND NVL(frozen_flag, 'N') <> 'Y'
AND NVL(user_hold_flag, 'N') <> 'Y';
SELECT PH.revision_num
INTO l_orig_revision_num
FROM po_headers_all PH
WHERE PH.po_header_id = p_draft_info.po_header_id;
UPDATE po_headers_all
SET revision_num = l_new_revision_num,
revised_date = SYSDATE
WHERE po_header_id = p_draft_info.po_header_id;
p_delete_draft IN VARCHAR2
) IS
d_api_name CONSTANT VARCHAR2(30) := 'complete_transfer';
IF (p_delete_draft = FND_API.G_FALSE OR
p_delete_draft = 'X') THEN
d_position := 10;
update_draft_status
( p_draft_id => p_draft_info.draft_id,
p_new_status => g_status_COMPLETED
);
IF (p_delete_draft = FND_API.G_TRUE OR
p_delete_draft = 'X') THEN
IF (p_delete_draft = FND_API.G_TRUE) THEN
l_exclude_ctrl_tbl := FND_API.G_FALSE;
ELSIF (p_delete_draft = 'X') THEN
l_exclude_ctrl_tbl := FND_API.G_TRUE;
PROCEDURE update_acceptance_status
( p_draft_id IN NUMBER,
p_acceptance_action IN VARCHAR2
) IS
d_api_name CONSTANT VARCHAR2(30) := 'update_acceptance_status';
UPDATE po_headers_draft_all
SET change_accepted_flag = l_change_accepted_flag
WHERE draft_id = p_draft_id
AND change_accepted_flag IS NULL;
UPDATE po_lines_draft_all
SET change_accepted_flag = l_change_accepted_flag
WHERE draft_id = p_draft_id
AND change_accepted_flag IS NULL;
UPDATE po_line_locations_draft_all
SET change_accepted_flag = l_change_accepted_flag
WHERE draft_id = p_draft_id
AND change_accepted_flag IS NULL;
UPDATE po_distributions_draft_all
SET change_accepted_flag = l_change_accepted_flag
WHERE draft_id = p_draft_id
AND change_accepted_flag IS NULL;
UPDATE po_ga_org_assign_draft
SET change_accepted_flag = l_change_accepted_flag
WHERE draft_id = p_draft_id
AND change_accepted_flag IS NULL;
UPDATE po_price_diff_draft
SET change_accepted_flag = l_change_accepted_flag
WHERE draft_id = p_draft_id
AND change_accepted_flag IS NULL;
UPDATE po_notification_ctrl_draft
SET change_accepted_flag = l_change_accepted_flag
WHERE draft_id = p_draft_id
AND change_accepted_flag IS NULL;
UPDATE po_attribute_values_draft
SET change_accepted_flag = l_change_accepted_flag
WHERE draft_id = p_draft_id
AND change_accepted_flag IS NULL;
UPDATE po_attribute_values_tlp_draft
SET change_accepted_flag = l_change_accepted_flag
WHERE draft_id = p_draft_id
AND change_accepted_flag IS NULL;
END update_acceptance_status;