6: FUNCTION is_contracts_installed RETURN VARCHAR2 IS
7:
8: BEGIN
9:
10: return PON_CONTERMS_UTL_PVT.is_contracts_installed();
11:
12: EXCEPTION
13: WHEN OTHERS THEN
14: RAISE;
32: RETURN VARCHAR2 IS
33:
34: BEGIN
35: IF (p_is_response = 'Y') THEN
36: return pon_conterms_utl_pvt.get_response_doc_type(p_doctype_id);
37: ELSE
38: return pon_conterms_utl_pvt.get_negotiation_doc_type(p_doctype_id);
39: END IF;
40: END get_contracts_document_type;
34: BEGIN
35: IF (p_is_response = 'Y') THEN
36: return pon_conterms_utl_pvt.get_response_doc_type(p_doctype_id);
37: ELSE
38: return pon_conterms_utl_pvt.get_negotiation_doc_type(p_doctype_id);
39: END IF;
40: END get_contracts_document_type;
41:
42:
72: FND_MSG_PUB.initialize();
73: END IF;
74:
75: -- get auction_header_id
76: pon_conterms_utl_pvt.get_auction_header_id(p_doctype_id,
77: p_doc_id,
78: l_auction_header_id,
79: x_return_status,
80: x_msg_data,
85:
86: /*ELINs & CDRLs project : When updating cdrl's in offers, no need
87: * to perform below validation.
88: */
89: IF p_doctype_id NOT IN (PON_CONTERMS_UTL_PVT.OFFER) THEN
90: -- check whether the current user holds the lock on the draft
91: BEGIN
92: -- this is just an existance test but we have to select x into y
93: -- to pass the pl/sql compiler so...
220: return ;
221: end if;
222:
223: -- determine which query to execute depending on the doctype
224: if (p_doctype_id = PON_CONTERMS_UTL_PVT.BID or
225: p_doctype_id = PON_CONTERMS_UTL_PVT.QUOTE or
226: p_doctype_id = PON_CONTERMS_UTL_PVT.OFFER or
227: p_doctype_id = PON_CONTERMS_UTL_PVT.RESPONSE) then
228:
221: end if;
222:
223: -- determine which query to execute depending on the doctype
224: if (p_doctype_id = PON_CONTERMS_UTL_PVT.BID or
225: p_doctype_id = PON_CONTERMS_UTL_PVT.QUOTE or
226: p_doctype_id = PON_CONTERMS_UTL_PVT.OFFER or
227: p_doctype_id = PON_CONTERMS_UTL_PVT.RESPONSE) then
228:
229: -- this is a response
222:
223: -- determine which query to execute depending on the doctype
224: if (p_doctype_id = PON_CONTERMS_UTL_PVT.BID or
225: p_doctype_id = PON_CONTERMS_UTL_PVT.QUOTE or
226: p_doctype_id = PON_CONTERMS_UTL_PVT.OFFER or
227: p_doctype_id = PON_CONTERMS_UTL_PVT.RESPONSE) then
228:
229: -- this is a response
230:
223: -- determine which query to execute depending on the doctype
224: if (p_doctype_id = PON_CONTERMS_UTL_PVT.BID or
225: p_doctype_id = PON_CONTERMS_UTL_PVT.QUOTE or
226: p_doctype_id = PON_CONTERMS_UTL_PVT.OFFER or
227: p_doctype_id = PON_CONTERMS_UTL_PVT.RESPONSE) then
228:
229: -- this is a response
230:
231: l_progress := 101;
342:
343: begin
344: select
345: pah.org_id organization,
346: pon_conterms_utl_pvt.get_legal_entity_id(pah.org_id) entity,
347: -- Bug 4099936
348: -- Decode the doctype_id to the internal name as in PO valueset for the variable POC_XPRT_DOC_TYPE
349: -- Note that this piece of code may not be used as of today since Contract expert is not used for
350: -- response documents
474: x_msg_data := 'no data found for ' || p_doc_id;
475: x_return_status := fnd_api.g_ret_sts_error;
476: return;
477: end;
478: elsif (p_doctype_id = PON_CONTERMS_UTL_PVT.AUCTION or
479: p_doctype_id = PON_CONTERMS_UTL_PVT.REQUEST_FOR_QUOTE or
480: p_doctype_id = PON_CONTERMS_UTL_PVT.SOLICITATION or
481: p_doctype_id = PON_CONTERMS_UTL_PVT.REQUEST_FOR_INFORMATION) then
482:
475: x_return_status := fnd_api.g_ret_sts_error;
476: return;
477: end;
478: elsif (p_doctype_id = PON_CONTERMS_UTL_PVT.AUCTION or
479: p_doctype_id = PON_CONTERMS_UTL_PVT.REQUEST_FOR_QUOTE or
480: p_doctype_id = PON_CONTERMS_UTL_PVT.SOLICITATION or
481: p_doctype_id = PON_CONTERMS_UTL_PVT.REQUEST_FOR_INFORMATION) then
482:
483: -- this is an auction
476: return;
477: end;
478: elsif (p_doctype_id = PON_CONTERMS_UTL_PVT.AUCTION or
479: p_doctype_id = PON_CONTERMS_UTL_PVT.REQUEST_FOR_QUOTE or
480: p_doctype_id = PON_CONTERMS_UTL_PVT.SOLICITATION or
481: p_doctype_id = PON_CONTERMS_UTL_PVT.REQUEST_FOR_INFORMATION) then
482:
483: -- this is an auction
484:
477: end;
478: elsif (p_doctype_id = PON_CONTERMS_UTL_PVT.AUCTION or
479: p_doctype_id = PON_CONTERMS_UTL_PVT.REQUEST_FOR_QUOTE or
480: p_doctype_id = PON_CONTERMS_UTL_PVT.SOLICITATION or
481: p_doctype_id = PON_CONTERMS_UTL_PVT.REQUEST_FOR_INFORMATION) then
482:
483: -- this is an auction
484:
485: l_progress := 102;
602:
603: begin
604: select
605: pah.org_id organization,
606: pon_conterms_utl_pvt.get_legal_entity_id(pah.org_id) entity,
607: -- Bug 4099936
608: -- decode doctype_id to the document type code as per the po value set POC_XPRT_DOC_TYPE associated
609: -- with the doc type system variable.
610: DECODE(pah.doctype_id, 21, 'SOURCING RFI', 5, 'SOURCING RFQ', 1, 'BUYER AUCTION','SOLICITATION') document_type,
897: return ;
898: end if;
899:
900: -- determine which query to execute depending on the doctype
901: if (p_doctype_id = PON_CONTERMS_UTL_PVT.BID or
902: p_doctype_id = PON_CONTERMS_UTL_PVT.QUOTE or
903: p_doctype_id = PON_CONTERMS_UTL_PVT.OFFER or
904: p_doctype_id = PON_CONTERMS_UTL_PVT.RESPONSE) then
905:
898: end if;
899:
900: -- determine which query to execute depending on the doctype
901: if (p_doctype_id = PON_CONTERMS_UTL_PVT.BID or
902: p_doctype_id = PON_CONTERMS_UTL_PVT.QUOTE or
903: p_doctype_id = PON_CONTERMS_UTL_PVT.OFFER or
904: p_doctype_id = PON_CONTERMS_UTL_PVT.RESPONSE) then
905:
906: l_progress := 101;
899:
900: -- determine which query to execute depending on the doctype
901: if (p_doctype_id = PON_CONTERMS_UTL_PVT.BID or
902: p_doctype_id = PON_CONTERMS_UTL_PVT.QUOTE or
903: p_doctype_id = PON_CONTERMS_UTL_PVT.OFFER or
904: p_doctype_id = PON_CONTERMS_UTL_PVT.RESPONSE) then
905:
906: l_progress := 101;
907:
900: -- determine which query to execute depending on the doctype
901: if (p_doctype_id = PON_CONTERMS_UTL_PVT.BID or
902: p_doctype_id = PON_CONTERMS_UTL_PVT.QUOTE or
903: p_doctype_id = PON_CONTERMS_UTL_PVT.OFFER or
904: p_doctype_id = PON_CONTERMS_UTL_PVT.RESPONSE) then
905:
906: l_progress := 101;
907:
908: if (fnd_log.level_exception >= fnd_log.g_current_runtime_level) then
922:
923: x_return_status := fnd_api.g_ret_sts_error;
924: x_msg_data := l_api_name || ' did not expect call with doctype ' || p_doctype_id;
925: return;
926: elsif (p_doctype_id = PON_CONTERMS_UTL_PVT.AUCTION or
927: p_doctype_id = PON_CONTERMS_UTL_PVT.REQUEST_FOR_QUOTE or
928: p_doctype_id = PON_CONTERMS_UTL_PVT.SOLICITATION or --
929: p_doctype_id = PON_CONTERMS_UTL_PVT.REQUEST_FOR_INFORMATION) then
930:
923: x_return_status := fnd_api.g_ret_sts_error;
924: x_msg_data := l_api_name || ' did not expect call with doctype ' || p_doctype_id;
925: return;
926: elsif (p_doctype_id = PON_CONTERMS_UTL_PVT.AUCTION or
927: p_doctype_id = PON_CONTERMS_UTL_PVT.REQUEST_FOR_QUOTE or
928: p_doctype_id = PON_CONTERMS_UTL_PVT.SOLICITATION or --
929: p_doctype_id = PON_CONTERMS_UTL_PVT.REQUEST_FOR_INFORMATION) then
930:
931: l_progress := 102;
924: x_msg_data := l_api_name || ' did not expect call with doctype ' || p_doctype_id;
925: return;
926: elsif (p_doctype_id = PON_CONTERMS_UTL_PVT.AUCTION or
927: p_doctype_id = PON_CONTERMS_UTL_PVT.REQUEST_FOR_QUOTE or
928: p_doctype_id = PON_CONTERMS_UTL_PVT.SOLICITATION or --
930:
931: l_progress := 102;
932:
925: return;
926: elsif (p_doctype_id = PON_CONTERMS_UTL_PVT.AUCTION or
927: p_doctype_id = PON_CONTERMS_UTL_PVT.REQUEST_FOR_QUOTE or
928: p_doctype_id = PON_CONTERMS_UTL_PVT.SOLICITATION or --
929: p_doctype_id = PON_CONTERMS_UTL_PVT.REQUEST_FOR_INFORMATION) then
930:
931: l_progress := 102;
932:
933: -- this is an auction
986:
987: -- select either 'N' or the System Variable code if a value has changed
988: select
989: decode(pah1.org_id,pah2.org_id,'N','OKC$B_ORGANIZATION'),
990: decode(pon_conterms_utl_pvt.get_legal_entity_id(pah1.org_id),
991: pon_conterms_utl_pvt.get_legal_entity_id(pah2.org_id),
992: 'N','OKC$B_LEGAL_ENTITY'),
993: decode(pah1.doctype_id,pah2.doctype_id,'N','OKC$B_DOCUMENT_TYPE'),
994: decode(pah1.document_number,pah2.document_number,'N','OKC$B_SOURCING_DOC_NUMBER'),
987: -- select either 'N' or the System Variable code if a value has changed
988: select
989: decode(pah1.org_id,pah2.org_id,'N','OKC$B_ORGANIZATION'),
990: decode(pon_conterms_utl_pvt.get_legal_entity_id(pah1.org_id),
991: pon_conterms_utl_pvt.get_legal_entity_id(pah2.org_id),
992: 'N','OKC$B_LEGAL_ENTITY'),
993: decode(pah1.doctype_id,pah2.doctype_id,'N','OKC$B_DOCUMENT_TYPE'),
994: decode(pah1.document_number,pah2.document_number,'N','OKC$B_SOURCING_DOC_NUMBER'),
995: decode(pah1.ship_to_location_id,pah2.ship_to_location_id,'N','OKC$B_SHIP_TO_ADDRESS'),
1232: FND_MSG_PUB.initialize();
1233: END IF;
1234:
1235: -- get auction_header_id
1236: pon_conterms_utl_pvt.get_auction_header_id(p_doctype_id,
1237: p_doc_id,
1238: l_auction_header_id,
1239: x_return_status,
1240: x_msg_data,