[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: (
846: END IF;
847:
848: -- copy qualifiers
849: IF AMS_CpyUtility_PVT.is_copy_attribute ('ELIG', p_attributes_table) = FND_API.G_TRUE THEN
850: ozf_utility_pvt.debug_message('Copy Eligibility');
851: copy_vo_qualifiers
852: (
853: p_api_version => 1.0
854: , p_init_msg_list => FND_API.G_FALSE
867: END IF;
868: -- copy market options
869: -- market options are created with default options, so update the market options to the ones in the source offer
870: IF AMS_CpyUtility_PVT.is_copy_attribute ('MKT_OPT', p_attributes_table) = FND_API.G_TRUE THEN
871: ozf_utility_pvt.debug_message('Copy Market Options');
872: copy_vo_mkt_options
873: (
874: p_api_version => 1.0
875: , p_init_msg_list => FND_API.G_FALSE
889: END IF;
890: END IF;
891: END IF;
892:
893: ozf_utility_pvt.debug_message('QplistHeaderId returned :'||l_listHeaderId);
894:
895: ozf_utility_pvt.debug_message('OfferId :'||l_offer_id);
896: x_OfferId := l_offer_id;
897: x_listHeaderId := l_listHeaderId;
891: END IF;
892:
893: ozf_utility_pvt.debug_message('QplistHeaderId returned :'||l_listHeaderId);
894:
895: ozf_utility_pvt.debug_message('OfferId :'||l_offer_id);
896: x_OfferId := l_offer_id;
897: x_listHeaderId := l_listHeaderId;
898: -- exception
899: EXCEPTION
1768: END IF; -- end end date validation if
1769:
1770: 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
1771: IF l_modifier_list_rec.start_date_active IS NULL THEN
1772: ozf_utility_pvt.error_message('OZF_OFFR_NO_START_DATE');
1773: RAISE FND_API.G_EXC_ERROR;
1774: END IF;
1775: END IF; -- end scan data lumpsum start date validation if
1776:
1823: FETCH c_count_qp_code INTO l_count_qp_code;
1824: CLOSE c_count_qp_code;
1825:
1826: IF l_count_ozf_code > 0 OR l_count_qp_code > 0 THEN
1827: ozf_utility_pvt.error_message('OZF_OFFR_COPY_DUP_CODE');
1828: RAISE FND_API.G_EXC_ERROR;
1829: END IF;
1830: END IF; -- end validate source code
1831:
1939: ,l_offer_rec.offer_type
1940: ,l_offer_rec.offer_code
1941: ,l_offer_rec.reusable
1942: ,l_offer_rec.custom_setup_id
1943: ,ozf_utility_pvt.get_default_user_status('OZF_OFFER_STATUS','DRAFT')
1944: ,l_offer_rec.owner_id
1945: ,1
1946: ,l_offer_rec.customer_reference
1947: ,l_offer_rec.buying_group_contact_id