[Home] [Help]
499: -- with given auction_header_id (p_source_auction_header_id)
500: --
501: -- Parameters:
502: -- IN : p_api_version NUMBER Required
503: -- IN : p_init_msg_list VARCHAR2 DEFAULT FND_API.G_TRUE Optional
504: -- IN : p_is_conc_call VARCHAR2 Required This indicates if the
505: -- procedure is called online or via a concurrent program
506: -- IN : p_source_auction_header_id NUMBER Required, auction_header_id
507: -- of the source negotiation
562: --
563: -- OUT : x_return_status VARCHAR2, flag to indicate if the copy procedure
564: -- was successful or not; It can have
565: -- following values -
566: -- FND_API.G_RET_STS_SUCCESS (Success)
567: -- FND_API.G_RET_STS_ERROR (Success with warning)
568: -- FND_API.G_RET_STS_UNEXP_ERROR (Failed due to error)
569: -- g_ret_conc_req_submitted (if a concurrent request is submitted)
570: --
563: -- OUT : x_return_status VARCHAR2, flag to indicate if the copy procedure
564: -- was successful or not; It can have
565: -- following values -
566: -- FND_API.G_RET_STS_SUCCESS (Success)
567: -- FND_API.G_RET_STS_ERROR (Success with warning)
568: -- FND_API.G_RET_STS_UNEXP_ERROR (Failed due to error)
569: -- g_ret_conc_req_submitted (if a concurrent request is submitted)
570: --
571: -- OUT : x_msg_count NUMBER, the number of warning of error messages due
564: -- was successful or not; It can have
565: -- following values -
566: -- FND_API.G_RET_STS_SUCCESS (Success)
567: -- FND_API.G_RET_STS_ERROR (Success with warning)
568: -- FND_API.G_RET_STS_UNEXP_ERROR (Failed due to error)
569: -- g_ret_conc_req_submitted (if a concurrent request is submitted)
570: --
571: -- OUT : x_msg_count NUMBER, the number of warning of error messages due
572: -- to this procedure call. It will have following
688: -- If it is a concurrent call, then make use of
689: -- p_large_auction_header_id. This is the header id of the
690: -- auction whose header has been created.
691: --
692: if p_is_conc_call = FND_API.G_TRUE
693: then
694: LOG_MESSAGE('copy_negotiation','This is a concurrent call...');
695: l_large_auction_header_id := p_large_auction_header_id;
696: end if;
701: l_is_award_approval_reqd := 'Y';
702: l_retain_attachments := 'Y';
703: g_added_inactv_attr_grp_msg := 'N';
704:
705: g_return_status := FND_API.G_RET_STS_SUCCESS;
706:
707: --
708: --Check for StyleId here
709: --If it is -1, then the styleId of the source auction
738:
739: --
740: -- Standard call to check for call compatibility
741: --
742: IF NOT FND_API.COMPATIBLE_API_CALL ( l_api_version,
743: p_api_version,
744: l_api_name,
745: G_PKG_NAME )
746: THEN
743: p_api_version,
744: l_api_name,
745: G_PKG_NAME )
746: THEN
747: RAISE FND_API.G_EXC_ERROR;
748: END IF;
749:
750: --
751: -- Initialize message list if p_init_msg_list is set to TRUE
752: -- We initialize the list by default. User should pass proper
753: -- value to p_init_msg_list in case this initialization is not
754: -- wanted
755: --
756: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
757: LOG_MESSAGE('copy_negotiation','Initializing the FND_MSG_PUB stack');
758: FND_MSG_PUB.INITIALIZE;
759: LOG_MESSAGE('copy_negotiation','Clearing the FND_MESSAGE stack');
760: FND_MESSAGE.CLEAR;
764: -- Initialize APIto return the status as success initially
765: -- Will be setting it to ERRORs in the exception block
766: -- whenever required
767: --
768: x_return_status := FND_API.G_RET_STS_SUCCESS;
769:
770: --
771: --Check if the source auction is a
772: --super large one or not.
796: -- The way I am adding this error may get changed in the future.
797: -- So, please be aware of that
798: FND_MESSAGE.SET_NAME('PON','PON_INVALID_TP_CONTACT_ID');
799: FND_MSG_PUB.ADD;
800: RAISE FND_API.G_EXC_ERROR;
801: END;
802: --
803: -- Get the company name for the given trading_partner_id
804: -- The resultant company name will be used in the trading partner
814: -- The way I am adding this error may get changed in the future.
815: -- So, please be aware of that
816: FND_MESSAGE.SET_NAME('PON','PON_INVALID_TP_ID');
817: FND_MSG_PUB.ADD;
818: RAISE FND_API.G_EXC_ERROR;
819: END;
820:
821: --
822: -- Check if the value of the p_is_award_approval_reqd parameter is
850: -- future.
851: -- So, please be aware of that
852: FND_MESSAGE.SET_NAME('PON','PON_INV_COPY_OPTION');
853: FND_MSG_PUB.ADD;
854: RAISE FND_API.G_EXC_ERROR;
855: END IF;
856:
857: g_err_loc := '-1. Doing validation checks prior to copy';
858: --
860: --If creating a header row,
861: --in case of new round or amendment take a DB lock here
862: --
863: IF
864: ((l_is_super_large_auction = 'Y' AND p_is_conc_call = FND_API.G_FALSE) or (l_is_super_large_auction = 'N'))
865: AND
866: (p_copy_type = g_new_rnd_copy OR p_copy_type = g_amend_copy)
867: THEN
868:
894: LOG_MESSAGE('copy_negotiation','l_newround_amendment_count : ' || l_newround_amendment_count);
895:
896: if l_newround_amendment_count <> 0 then
897:
898: LOG_MESSAGE('copy_negotiation','Adding error to the FND stack to indicate parallel new rounds creation error and raising FND_API.G_EXC_ERROR');
899: FND_MESSAGE.SET_NAME('PON','PON_MULTI_NEWRND_OR_AMND_ERR');
900: FND_MSG_PUB.ADD;
901: RAISE FND_API.G_EXC_ERROR;
902:
897:
898: LOG_MESSAGE('copy_negotiation','Adding error to the FND stack to indicate parallel new rounds creation error and raising FND_API.G_EXC_ERROR');
899: FND_MESSAGE.SET_NAME('PON','PON_MULTI_NEWRND_OR_AMND_ERR');
900: FND_MSG_PUB.ADD;
901: RAISE FND_API.G_EXC_ERROR;
902:
903: end if;
904:
905: elsif p_copy_type = g_amend_copy then
914: LOG_MESSAGE('copy_negotiation','l_newround_amendment_count : ' || l_newround_amendment_count);
915:
916: if l_newround_amendment_count <> 0 then
917:
918: LOG_MESSAGE('copy_negotiation','Adding error to the FND stack to indicate parallel amendments creation error and raising FND_API.G_EXC_ERROR;');
919: FND_MESSAGE.SET_NAME('PON','PON_MULTI_NEWRND_OR_AMND_ERR');
920: FND_MSG_PUB.ADD;
921: RAISE FND_API.G_EXC_ERROR;
922:
917:
918: LOG_MESSAGE('copy_negotiation','Adding error to the FND stack to indicate parallel amendments creation error and raising FND_API.G_EXC_ERROR;');
919: FND_MESSAGE.SET_NAME('PON','PON_MULTI_NEWRND_OR_AMND_ERR');
920: FND_MSG_PUB.ADD;
921: RAISE FND_API.G_EXC_ERROR;
922:
923: end if;
924:
925: end if;
924:
925: end if;
926:
927: EXCEPTION
928: WHEN FND_API.G_EXC_ERROR THEN
929: ROLLBACK TO PON_NEGOTIATION_COPY_GRP;
930: x_return_status := FND_API.G_RET_STS_ERROR ;
931: FND_MSG_PUB.COUNT_AND_GET( p_count => x_msg_count,
932: p_data => x_msg_data
926:
927: EXCEPTION
928: WHEN FND_API.G_EXC_ERROR THEN
929: ROLLBACK TO PON_NEGOTIATION_COPY_GRP;
930: x_return_status := FND_API.G_RET_STS_ERROR ;
931: FND_MSG_PUB.COUNT_AND_GET( p_count => x_msg_count,
932: p_data => x_msg_data
933: );
934:
963: -- The way I am adding this error may get changed in the future.
964: -- So, please be aware of that
965: FND_MESSAGE.SET_NAME('PON','PON_INVALID_NEG_NUM');
966: FND_MSG_PUB.ADD;
967: RAISE FND_API.G_EXC_ERROR;
968: END;
969:
970: -- load data for negotiation style
971: SET_NEG_STYLE ( p_source_auction_header_id => p_source_auction_header_id,
996:
997:
998:
999:
1000: if (l_is_super_large_auction = 'Y' AND p_is_conc_call = FND_API.G_FALSE) or (l_is_super_large_auction = 'N')
1001: then
1002: --
1003: -- Get the new auction_header_id for the new negotiation document
1004: -- from
1168:
1169: end if;
1170:
1171:
1172: if (l_is_super_large_auction = 'Y' AND p_is_conc_call = FND_API.G_TRUE) or l_is_super_large_auction = 'N' then
1173: -- control comes here if
1174: -- (1) It is a super large auction and the
1175: -- it is a call from concurrent procedure where we have the
1176: -- header for the new auction already created in
1305: --in pon_auction_headers_all for p_auction_header_id
1306: EXCEPTION
1307: WHEN OTHERS THEN
1308: ROLLBACK TO PON_NEGOTIATION_COPY_GRP;
1309: x_return_status := FND_API.G_RET_STS_ERROR;
1310: FND_MSG_PUB.COUNT_AND_GET( p_count => x_msg_count,
1311: p_data => x_msg_data
1312: );
1313: LOG_MESSAGE('copy_negotiation','An error in the procedure. Error at:'||g_err_loc || ' :' || SQLCODE || ' :' || SQLERRM);
1808: EXCEPTION
1809: WHEN OTHERS THEN
1810: FND_MESSAGE.SET_NAME('PON','PON_AUC_NO_DATA_EXISTS');
1811: FND_MSG_PUB.ADD;
1812: RAISE FND_API.G_EXC_ERROR;
1813: END;
1814:
1815: --
1816: -- Staggered Closing is applicable only for AUCTION.
1862:
1863: --
1864: -- Check possible error
1865: --
1866: IF (l_MinBidPriceVal3 <> FND_API.G_RET_STS_SUCCESS) THEN
1867: -- Log Error
1868: LOG_MESSAGE('copy_negotiation','Could not find the default value for enforce min bid price control. Please check the negotiation configuration.');
1869: l_MinBidPriceVal1 := 'N';
1870: END IF;
3660:
3661: g_added_inactv_attr_grp_msg := 'Y';
3662:
3663: -- Set the warning flag on
3664: g_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3665:
3666: END IF;
3667:
3668: --
4109: -- Now l_val1 has default Attr_group
4110: --
4111: -- Check possible error
4112: --
4113: IF (l_val3 <> FND_API.G_RET_STS_SUCCESS) THEN
4114: -- Log Error
4115: LOG_MESSAGE('copy_negotiation','Could not find the default line attribute group. Please check the negotiation configuration.');
4116: l_val1 := 'GENERAL';
4117: END IF;
6034: -- give warning for inactive suppliers
6035: FND_MESSAGE.SET_NAME('PON','PON_INACTIVE_SUPP_INVITEE_W'||'_'||g_message_suffix);
6036: FND_MESSAGE.SET_TOKEN('LIST',l_supplier_names);
6037: FND_MSG_PUB.ADD;
6038: g_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6039: --}
6040: END IF;
6041:
6042: --bug 7376924, begin of inactive supplier contact handling logic
6101: -- give warning for inactive suppliers
6102: FND_MESSAGE.SET_NAME('PON','PON_RS_REJECTED_INVITEE_W'||'_'||g_message_suffix);
6103: FND_MESSAGE.SET_TOKEN('LIST',l_supplier_names);
6104: FND_MSG_PUB.ADD;
6105: g_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6106: --}
6107: END IF;
6108: END IF; --}
6109: END;
6497: FND_MESSAGE.SET_TOKEN('LIST',l_inactive_mem);
6498: FND_MSG_PUB.ADD;
6499:
6500: -- Set the status
6501: g_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6502: --}
6503: END IF;
6504: END;
6505: --} End of COPY_NEG_TEAM
6831: FND_MESSAGE.SET_NAME('PON','PON_INACTIVE_FORMS_COPY_INFO');
6832: FND_MSG_PUB.ADD;
6833:
6834: -- Set the status
6835: g_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6836: END IF;
6837:
6838: -- Call the COPY_FORM_CHILDREN to copy children
6839: LOG_MESSAGE('copy_negotiation','Copy Form and section children data is starting');
9067: );
9068:
9069: END IF; --CALL_PON_LRG_DRAFT_TO_LRG_PF = 'TRUE'
9070:
9071: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9072: THEN
9073: x_return_status := l_return_status;
9074: x_msg_count := 1;
9075: x_msg_data := l_error_msg_update;
9178: FND_MESSAGE.SET_NAME('PON','PON_GENERIC_ERR');
9179: FND_MESSAGE.SET_TOKEN('TOKEN',l_error_code_update||' - '||l_error_msg_update);
9180: FND_MSG_PUB.ADD;
9181: LOG_MESSAGE('copy_lines_and_children','Error while updating source negotiation. Error:'||l_error_msg_update);
9182: RAISE FND_API.G_EXC_ERROR;
9183: END IF;
9184:
9185: END IF;
9186:
9225:
9226: LOG_MESSAGE('copy_lines_and_children','Returning with status:'||x_return_status);
9227:
9228: EXCEPTION
9229: WHEN FND_API.G_EXC_ERROR THEN
9230: ROLLBACK TO PON_NEGOTIATION_COPY_GRP;
9231: x_return_status := FND_API.G_RET_STS_ERROR ;
9232: FND_MSG_PUB.COUNT_AND_GET( p_count => x_msg_count,
9233: p_data => x_msg_data
9227:
9228: EXCEPTION
9229: WHEN FND_API.G_EXC_ERROR THEN
9230: ROLLBACK TO PON_NEGOTIATION_COPY_GRP;
9231: x_return_status := FND_API.G_RET_STS_ERROR ;
9232: FND_MSG_PUB.COUNT_AND_GET( p_count => x_msg_count,
9233: p_data => x_msg_data
9234: );
9235:
9237:
9238: -- Why another block? We can have only one block. Let me see
9239: WHEN OTHERS THEN
9240: ROLLBACK TO PON_NEGOTIATION_COPY_GRP;
9241: x_return_status := FND_API.G_RET_STS_ERROR;
9242: FND_MSG_PUB.COUNT_AND_GET( p_count => x_msg_count,
9243: p_data => x_msg_data
9244: );
9245: LOG_MESSAGE('copy_lines_and_children','An error in the procedure. Error at:'||g_err_loc || ' :' || SQLCODE || ' :' || SQLERRM);
9299: -- The way I am adding this error may get changed in the future.
9300: -- So, please be aware of that
9301: FND_MESSAGE.SET_NAME('PON','PON_AUC_NO_DATA_EXISTS');
9302: FND_MSG_PUB.ADD;
9303: RAISE FND_API.G_EXC_ERROR;
9304: END;
9305:
9306: g_rfi_doctype_id := l_rfi_doctype_id;
9307:
9315: EXCEPTION
9316: WHEN OTHERS THEN
9317: FND_MESSAGE.SET_NAME('PON','PON_AUC_NO_DATA_EXISTS');
9318: FND_MSG_PUB.ADD;
9319: RAISE FND_API.G_EXC_ERROR;
9320: END;
9321:
9322: g_rfq_doctype_id := l_rfq_doctype_id;
9323:
9331: EXCEPTION
9332: WHEN OTHERS THEN
9333: FND_MESSAGE.SET_NAME('PON','PON_AUC_NO_DATA_EXISTS');
9334: FND_MSG_PUB.ADD;
9335: RAISE FND_API.G_EXC_ERROR;
9336: END;
9337:
9338: g_auction_doctype_id := l_auction_doctype_id;
9339:
9350: x_pref_meaning => l_pref_unused_1,
9351: x_status => l_pref_unused_2,
9352: x_exception_msg => l_pref_unused_3);
9353:
9354: IF (l_pref_unused_2 <> FND_API.G_RET_STS_SUCCESS) THEN
9355: -- Log Error
9356: LOG_MESSAGE('copy_negotiation','Could not retrieve RETRIEVE_PARTY_PREF_COVER for p_pref_name= RANK_INDICATOR . Exception msg =' || l_pref_unused_3);
9357: l_pref_rank_indicator := 'NONE';
9358: END IF;
9377: x_pref_meaning => l_pref_pf_unused_1,
9378: x_status => l_pref_pf_unused_2,
9379: x_exception_msg => l_pref_pf_unused_3);
9380:
9381: IF (l_pref_pf_unused_2 <> FND_API.G_RET_STS_SUCCESS) THEN
9382: -- Log Error
9383: LOG_MESSAGE('copy_negotiation','Could not retrieve RETRIEVE_PARTY_PREF_COVER for p_pref_name= PF_TYPE_ALLOWED . Exception msg =' || l_pref_pf_unused_3);
9384: l_pref_pf_type := 'NONE';
9385:
10197: -- So, please be aware of that
10198: --
10199: FND_MESSAGE.SET_NAME('PON','PON_INVALID_BIZ_RULE');
10200: FND_MSG_PUB.ADD;
10201: RAISE FND_API.G_EXC_ERROR;
10202: END;
10203:
10204: --
10205: -- If we are copying a draft created from PO then Currency Code can be null
10461: -- So, please be aware of that
10462: FND_MESSAGE.SET_NAME('PON','PON_CONTRACT_COPY_ERR');
10463: FND_MESSAGE.SET_TOKEN('REASON',SUBSTR(l_error_message,1,300));
10464: FND_MSG_PUB.ADD;
10465: RAISE FND_API.G_EXC_ERROR;
10466: RETURN;
10467: END IF;
10468:
10469: LOG_MESSAGE('copy_negotiation','Copy Contracts: 3. Contract Site Id is:' || l_site_id);
10503: -- So, please be aware of that
10504: FND_MESSAGE.SET_NAME('PON','PON_CONTRACT_COPY_ERR');
10505: FND_MESSAGE.SET_TOKEN('REASON','Could not determine contact_id for fnd_user_id ' || fnd_global.user_id());
10506: FND_MSG_PUB.ADD;
10507: RAISE FND_API.G_EXC_ERROR;
10508: RETURN;
10509: END;
10510:
10511: --
10535: mo_global.set_policy_context('S', p_org_id);
10536:
10537: OKC_TERMS_COPY_GRP.COPY_DOC(
10538: p_api_version => 1.0,
10539: p_init_msg_list => FND_API.G_FALSE,
10540: p_commit => FND_API.G_FALSE,
10541: p_source_doc_type => p_contracts_doctype,
10542: p_source_doc_id => l_source_doc_id,
10543: p_target_doc_type => l_contracts_doctype,
10536:
10537: OKC_TERMS_COPY_GRP.COPY_DOC(
10538: p_api_version => 1.0,
10539: p_init_msg_list => FND_API.G_FALSE,
10540: p_commit => FND_API.G_FALSE,
10541: p_source_doc_type => p_contracts_doctype,
10542: p_source_doc_id => l_source_doc_id,
10543: p_target_doc_type => l_contracts_doctype,
10544: p_target_doc_id => l_auction_header_id,
10574: mo_global.set_policy_context(l_old_policy, l_old_org_id);
10575:
10576: LOG_MESSAGE('copy_negotiation',' Policy context is reset');
10577:
10578: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10579: -- Log Error
10580: LOG_MESSAGE('copy_negotiation','Could not copy contracts for source_id =' || l_source_doc_id || ' to target document number =' || p_document_number );
10581: --
10582: -- The way I am adding this error may get changed in the future.
10584: --
10585: FND_MESSAGE.SET_NAME('PON','PON_CONTRACT_COPY_ERR');
10586: FND_MESSAGE.SET_TOKEN('REASON','Can not copy contracts for source_id =' || l_source_doc_id || '. Error returned by OKC_TERMS_COPY_GRP.COPY_DOC API is - ' || SUBSTR(l_msg_data,1,150));
10587: FND_MSG_PUB.ADD;
10588: RAISE FND_API.G_EXC_ERROR;
10589: RETURN;
10590: END IF;
10591: --}
10592: END IF;
10741: EXCEPTION
10742: WHEN NO_DATA_FOUND THEN
10743: FND_MESSAGE.SET_NAME('PON','PON_INVALID_STYLE_ID');
10744: FND_MSG_PUB.ADD;
10745: RAISE FND_API.G_EXC_ERROR;
10746: END;
10747:
10748: else
10749:
10759: EXCEPTION
10760: WHEN NO_DATA_FOUND THEN
10761: FND_MESSAGE.SET_NAME('PON','PON_INVALID_NEG_NUM');
10762: FND_MSG_PUB.ADD;
10763: RAISE FND_API.G_EXC_ERROR;
10764: END;
10765:
10766: end if;
10767:
11189: PROCEDURE PON_CONC_COPY_SUPER_LARGE_NEG (
11190: EFFBUF OUT NOCOPY VARCHAR2,
11191: RETCODE OUT NOCOPY VARCHAR2,
11192: p_api_version IN NUMBER,
11193: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_TRUE,
11194: p_source_auction_header_id IN NUMBER,
11195: p_trading_partner_id IN NUMBER ,
11196: p_trading_partner_contact_id IN NUMBER ,
11197: p_language IN VARCHAR2,
11230:
11231: COPY_NEGOTIATION(
11232: p_api_version => p_api_version,
11233: p_init_msg_list => p_init_msg_list,
11234: p_is_conc_call => FND_API.G_TRUE,
11235: p_source_auction_header_id => p_source_auction_header_id,
11236: p_trading_partner_id => p_trading_partner_id,
11237: p_trading_partner_contact_id => p_trading_partner_contact_id,
11238: p_language => p_language,