The following lines contain the word 'select', 'insert', 'update' or 'delete':
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'10: Start show error');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'20:Return status for '||p_api_name||':'||p_return_status);
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
(20+i)||':Error-'||FND_MSG_PUB.Get(p_msg_index=>i,p_encoded =>'F' ));
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'100: End show error');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'10:Start get_wf_params ');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'30:po_header_id = '|| to_char(x_po_header_id));
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'40:po doc type= '|| x_po_doc_type);
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'50:po sub type= '|| x_po_doc_subtype);
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'100:End get_wf_params ');
SELECT start_date,
end_date,
revision_num
INTO
l_po_start_date,
l_po_end_date,
l_po_revision_num
FROM po_headers_all
WHERE po_header_id = p_po_header_id;
MESSAGE =>'30: After Select.po found');
ELSIF (p_action_code = 'U') then -- If call is for update of deliverables
--SQL WHAT: Selects start date and end date from archive table for
-- last but one archival since this is always called after
-- archive of PO, the latest will have same value as working copy
--SQL WHY: These values are used to send changed dates for update deliverables
--SQl Join:None
SELECT start_date,
end_date
INTO
l_archive_start_date,
l_archive_end_date
FROM po_headers_archive_all
WHERE po_header_id = p_po_header_id
AND revision_num = (l_po_revision_num-1);
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'10: Start function contract_terms_Changed ');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'120:Previous version does not have terms');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'130: Return status before the call'||l_return_status);
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'132: Call OKC_TERMS_UTIL_GRP.contract_terms_amended');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'135: Return status after call to CONTRACT_TERMS_AMENDED'||l_return_status);
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'138: K contract terms changed: N'||l_k_terms_changed);
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'140: Return status Before the call'||l_return_status);
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'142: Call OKC_TERMS_UTIl_GRP.IS_ARTICLE_AMENDED');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'150: Return status after call to IS_ARTICLE_AMENDED'||l_return_status);
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'155: K Articles changed: N'||l_k_terms_changed);
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'160: Call OKC_TERMS_UTIl_GRP.Is_Deliverable_Amended');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'162: Return status Before the call'||l_return_status);
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'165: Return status after call to Is_Deliverable_Amended'||l_return_status);
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'170: K Deliverables changed: N'||l_k_terms_changed);
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'175:K deliverables Changed: Y'||l_k_terms_changed);
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'180:K Terms Changed: Y'||l_k_terms_changed);
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'190:K Contract terms Changed: Y'||l_k_terms_changed);
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'120:Not a Procurement contract');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'200 End: contract_terms_Changed ');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'250: End contracts_call_exception: contract_terms_Changed ');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'300: End IN Exception: contract_terms_Changed ');
PROCEDURE UPDATE_CONTERMS_DATES(p_po_header_id IN NUMBER,
p_po_doc_type IN VARCHAR2,
p_po_doc_subtype IN VARCHAR2,
p_conterms_exist_flag IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER
) IS
l_articles_upd_date DATE;
l_api_name CONSTANT VARCHAR(30) := 'UPDATE_CONTERMS_DATES';
MESSAGE =>'10: Start UPDATE_CONTERMS_DATES');
l_k_api_name:='OKC_TERMS_UTIl_GRP.Get_Last_Update_Date';
MESSAGE =>'70: Before call to OKC_TERMS_UTIl_GRP.Get_Last_Update_Date');
OKC_TERMS_UTIl_GRP.Get_Last_Update_Date(
p_api_version => 1.0,
p_doc_id => p_po_header_id,
p_doc_type => PO_CONTERMS_UTL_GRP.Get_Po_Contract_Doctype(p_po_doc_subtype),
x_deliverable_changed_date => l_deliv_upd_date,
x_terms_changed_date => l_articles_upd_date,
x_return_status => x_return_status,
x_msg_data => x_msg_data,
x_msg_count => x_msg_count);
MESSAGE =>'80: After call to OKC_...Get_Last_Update_Date. Status'||x_return_status);
MESSAGE =>'120: Before update of dates in po headers'||l_deliv_upd_date);
UPDATE PO_HEADERS_ALL
SET conterms_articles_upd_date = l_articles_upd_date,
conterms_deliv_upd_date = l_deliv_upd_date,
last_updated_by = FND_GLOBAL.user_id,
last_update_login = FND_GLOBAL.login_id,
last_update_date = sysdate
WHERE po_header_id = p_po_header_id;
MESSAGE =>'200: End: UPDATE_CONTERMS_DATES');
MESSAGE =>'300: End Update_conTerms_dates.In Exception l_Contracts_call_exception');
, VALUE => 'PO_CONTERMS_WF_PVT.UPDATE_CONTERMS_DATES');
MESSAGE =>'400: End Update_conTerms_dates.In Exception OTHERS');
p_procedure_name =>'UPDATE_CONTERMS_DATES');
END UPDATE_CONTERMS_DATES;
PROCEDURE UPDATE_CONTRACT_TERMS(p_po_header_id IN NUMBER,
p_signed_date IN DATE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER) IS
l_conterms_exist_flag PO_HEADERS_ALL.CONTERMS_EXIST_FLAG%TYPE;
l_api_name CONSTANT VARCHAR(30) := 'UPDATE_CONTRACT_TERMS';
MESSAGE =>'10: Start: UPDATE_CONTRACT_TERMS');
SELECT conterms_exist_flag,
type_lookup_code,
revision_num,
cancel_flag,
DECODE(type_lookup_code, 'STANDARD', 'PO', 'BLANKET', 'PA', 'CONTRACT', 'PA', NULL)
INTO l_conterms_exist_flag,
l_po_doc_subtype,
l_po_revision_num,
l_cancel_flag,
l_po_doc_type
FROM po_headers_all
WHERE po_header_id = p_po_header_id;
MESSAGE =>'30: After Select. Conterms Exist'||l_conterms_exist_flag);
l_k_api_name:='OKC_MANAGE_DELIVERABLES_GRP.updateDeliverables';
MESSAGE =>'100:Count-event codes passed for OKC_MANAGE_DELIVERABLES_GRP.updateDeliverables:'||l_event_tbl.count);
MESSAGE =>'110: Before call to OKC_MANAGE_DELIVERABLES_GRP.updateDeliverables');
OKC_MANAGE_DELIVERABLES_GRP.updateDeliverables (
p_api_version => 1.0,
p_bus_doc_id => p_po_header_id,
p_bus_doc_type => PO_CONTERMS_UTL_GRP.Get_Po_Contract_Doctype(l_po_doc_subtype),
p_bus_doc_version => l_po_revision_num,
p_bus_doc_date_events_tbl => l_event_tbl,
x_msg_data => x_msg_data,
x_msg_count => x_msg_count,
x_return_status => x_return_status);
MESSAGE =>'120: After call to OKC_MANAGE_DELIVERABLES_GRP.updateDeliverables');
--signed revision fails as PDOI does not track action updates to
--PO_ACTION_HISTORY table.Instead of checking the revision at PO
--and disabling the deliverables at OKC,by this fix trying to disable
--the deliverables which are for those document revisions which is less
--than the current revision number -1.
/*
-- Bug 3652222 START
IF g_fnd_debug = 'Y' then
PO_DEBUG.debug_stmt(g_module_prefix||l_api_name, '133',
'Before call Get_Last_Signed_Revision');
MESSAGE =>'210: End Update Contract Terms');
MESSAGE =>'300: End Update_contract Terms.In Exception l_Contracts_call_exception');
, VALUE => 'PO_CONTERMS_WF_PVT.UPDATE_CONTRACT_TERMS');
p_procedure_name =>'UPDATE_CONTRACT_TERMS');
MESSAGE =>'400: End Update_contract_terms.In Exception others');
END UPDATE_CONTRACT_TERMS;
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'10: Start function IS_STANDARD_CONTRACT ');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'100: returned value from Contracts'||result);
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'140:Not a Procurement contract');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'200 End: IS_STANDARD_CONTRACT ');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'250: End contracts_call_exception: IS_STANDARD_CONTRACT ');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'300: End IN Exception: IS_STANDARD_CONTRACT ');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'10: Start function IS_CONTRACT_TEMPLATE_EXPIRED ');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'100: returned value from Contracts'||result);
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'140:Not a Procurement contract');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'200 End: IS_CONTRACT_TEMPLATE_EXPIRED ');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'250: End contracts_call_exception: IS_CONTRACT_TEMPLATE_EXPIRED ');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'300: End IN Exception: IS_CONTRACT_TEMPLATE_EXPIRED ');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'10: Start function IS_CONTRACT_ARTICLES_EXIST ');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'100: returned value from Contracts'||result);
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'140:Not a Procurement contract');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'200 End: IS_CONTRACT_ARTICLES_EXIST ');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'250: End contracts_call_exception: IS_CONTRACT_ARTICLES_EXIST ');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'300: End IN Exception: IS_CONTRACT_ARTICLES_EXIST ');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'10: Start function IS_CONTRACT_ARTICLES_AMENDED');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'100: returned value from Contracts'||result);
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'140:Not a Procurement contract');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'200 End: IS_CONTRACT_ARTICLES_AMENDED ');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'250: End contracts_call_exception: IS_CONTRACT_ARTICLES_AMENDED ');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'300: End IN Exception: IS_CONTRACT_ARTICLES_AMENDED ');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'10: Start function IS_CONTRACT_DELIVRABLS_EXIST');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'100: returned value from Contracts'||result);
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'140:Not a Procurement contract');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'200 End: IS_CONTRACT_DELIVRABLS_EXIST ');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'250: End contracts_call_exception: IS_CONTRACT_DELIVRABLS_EXIST ');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'300: End IN Exception: IS_CONTRACT_DELIVRABLS_EXIST ');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'10: Start function IS_CONTRACT_ARTICLES_AMENDED');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'100: returned value from Contracts'||result);
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'140:Not a Procurement contract');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'200 End: IS_CONTRACT_DELIVRABLS_AMENDED ');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'250: End contracts_call_exception: IS_CONTRACT_DELIVRABLS_AMENDED ');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'300: End IN Exception: IS_CONTRACT_DELIVRABLS_AMENDED ');
SELECT revision_num
INTO l_bus_doc_version
FROM po_headers_all
WHERE po_header_id = p_bus_doc_id;