[Home] [Help]
399: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
400: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
401: END IF;
402:
403: ozf_utility_pvt.debug_message('Discount LineId created is: '||l_discountLineId);
404:
405:
406: END LOOP;
407:
455:
456: OPEN c_offerId(cp_listHeaderId => p_sourceObjectId);
457: FETCH c_offerId INTO l_sourceOfferId;
458: IF c_offerId%NOTFOUND THEN
459: OZF_Utility_PVT.Error_Message('OZF_OFFR_CPY_NO_OFFER');
460: RAISE FND_API.G_EXC_ERROR;
461: END IF;
462: CLOSE c_offerId;
463:
473: l_vo_disc_rec.name := l_pbh.discount_table_name;
474: l_vo_disc_rec.description := l_pbh.description;
475: l_vo_disc_rec.tier_level := l_pbh.tier_level;
476:
477: ozf_utility_pvt.debug_message('Calling create PBH disc');
478: OZF_Volume_Offer_disc_PVT.Create_vo_discount(
479: p_api_version_number => 1.0
480: , p_init_msg_list => FND_API.G_FALSE
481: , p_commit => FND_API.G_FALSE
488: , p_vo_disc_rec => l_vo_disc_rec
489: , x_vo_discount_line_id => l_discountLineId
490: );
491:
492: ozf_utility_pvt.debug_message('PBH Id is:'||l_discountLineId);
493:
494: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
495: RAISE FND_API.G_EXC_ERROR;
496: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
515: RAISE FND_API.G_EXC_ERROR;
516: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
518: END IF;
519: ozf_utility_pvt.debug_message('Discount Tier created is:'||l_discountLineId);
520:
521: -- create products
522: copy_vo_products
523: (
873: END IF;
874:
875: -- copy qualifiers
876: IF AMS_CpyUtility_PVT.is_copy_attribute ('ELIG', p_attributes_table) = FND_API.G_TRUE THEN
877: ozf_utility_pvt.debug_message('Copy Eligibility');
878: copy_vo_qualifiers
879: (
880: p_api_version => 1.0
881: , p_init_msg_list => FND_API.G_FALSE
894: END IF;
895: -- copy market options
896: -- market options are created with default options, so update the market options to the ones in the source offer
897: IF AMS_CpyUtility_PVT.is_copy_attribute ('MKT_OPT', p_attributes_table) = FND_API.G_TRUE THEN
898: ozf_utility_pvt.debug_message('Copy Market Options');
899: copy_vo_mkt_options
900: (
901: p_api_version => 1.0
902: , p_init_msg_list => FND_API.G_FALSE
916: END IF;
917: END IF;
918: END IF;
919:
920: ozf_utility_pvt.debug_message('QplistHeaderId returned :'||l_listHeaderId);
921:
922: ozf_utility_pvt.debug_message('OfferId :'||l_offer_id);
923: x_OfferId := l_offer_id;
924: x_listHeaderId := l_listHeaderId;
918: END IF;
919:
920: ozf_utility_pvt.debug_message('QplistHeaderId returned :'||l_listHeaderId);
921:
922: ozf_utility_pvt.debug_message('OfferId :'||l_offer_id);
923: x_OfferId := l_offer_id;
924: x_listHeaderId := l_listHeaderId;
925: -- exception
926: EXCEPTION
1817: END IF; -- end end date validation if
1818:
1819: IF l_offer_rec.offer_type IN ('SCAN_DATA', 'NET_ACCRUAL') OR (l_offer_rec.offer_type = 'LUMPSUM' AND l_offer_rec.custom_setup_id <> 110) THEN -- not applicable to soft fund
1820: IF l_modifier_list_rec.start_date_active IS NULL THEN
1821: ozf_utility_pvt.error_message('OZF_OFFR_NO_START_DATE');
1822: RAISE FND_API.G_EXC_ERROR;
1823: END IF;
1824: END IF; -- end scan data lumpsum start date validation if
1825:
1872: FETCH c_count_qp_code INTO l_count_qp_code;
1873: CLOSE c_count_qp_code;
1874:
1875: IF l_count_ozf_code > 0 OR l_count_qp_code > 0 THEN
1876: ozf_utility_pvt.error_message('OZF_OFFR_COPY_DUP_CODE');
1877: RAISE FND_API.G_EXC_ERROR;
1878: END IF;
1879: END IF; -- end validate source code
1880:
2001: ,l_offer_rec.offer_type
2002: ,l_offer_rec.offer_code
2003: ,l_offer_rec.reusable
2004: ,l_offer_rec.custom_setup_id
2005: ,ozf_utility_pvt.get_default_user_status('OZF_OFFER_STATUS','DRAFT')
2006: ,l_offer_rec.owner_id
2007: ,1
2008: ,l_offer_rec.customer_reference
2009: ,l_offer_rec.buying_group_contact_id