[Home] [Help]
400: gpr_price_list_rec.list_source_code := 'BLKT';
401: -- gpr_price_list_rec.description := oe_delayed_requests_pvt.g_delayed_requests(I).paramtext1;
402: gpr_price_list_rec.currency_code := oe_delayed_requests_pvt.g_delayed_requests(I).param2;
403: --11i10 Pricing Changes Start
404: if oe_code_control.get_code_release_level >= '110510' then
405: gpr_price_list_rec.list_source_code := 'BSO';
406: gpr_price_list_rec.orig_system_header_ref :=
407: oe_delayed_requests_pvt.g_delayed_requests(I).entity_id;
408: gpr_price_list_rec.shareable_flag := 'N';
498:
499: -- 11i10 Pricing Change
500: -- Send customer item on price list line record
501: IF oe_delayed_requests_pvt.g_delayed_requests(I).param4 = 'CUST'
502: AND OE_Code_Control.Get_Code_Release_Level >= '110510'
503: THEN
504: gpr_price_list_line_tbl(ind).customer_item_id :=
505: oe_delayed_requests_pvt.g_delayed_requests(I).param8;
506: oe_debug_pub.add('sending cust item id :'||
540: END LOOP;
541:
542: /*
543: -- 11i10 Pricing Changes
544: IF OE_Code_Control.Get_Code_Release_Level >= '110510' THEN
545: -----------------------------------------------------------
546: -- Set up the blanket line qualifier record
547: -----------------------------------------------------------
548: gpr_qualifiers_tbl(K).qualifier_grouping_no := 1;
587:
588: END IF;
589:
590: --Removed for bug8344368
591: /*IF OE_Code_Control.Code_Release_Level >= '110510' THEN
592:
593: gpr_pricing_attr_tbl.delete;
594: K := ppr_price_list_line_tbl.first;
595: WHILE K is not null LOOP
637:
638: */
639:
640: --11i10 Pricing Changes Start
641: if oe_code_control.get_code_release_level >= '110510' then
642: Update oe_blanket_headers
643: set lock_control = lock_control + 1
644: ,last_updated_by = fnd_global.user_id
645: ,last_update_date = sysdate
803:
804: -- 11i10 Pricing Change
805: -- Send customer item on price list line record
806: IF oe_delayed_requests_pvt.g_delayed_requests(I).param4 = 'CUST'
807: AND OE_Code_Control.Get_Code_Release_Level >= '110510'
808: THEN
809: gpr_price_list_line_tbl(k).customer_item_id :=
810: oe_delayed_requests_pvt.g_delayed_requests(I).param8;
811: oe_debug_pub.add('sending cust item id :'||
862:
863: END IF;
864:
865: -- removed for bug8344368
866: /* IF OE_Code_Control.Code_Release_Level >= '110510' THEN
867:
868: gpr_pricing_attr_tbl.delete;
869: K := ppr_price_list_line_tbl.first;
870: WHILE K is not null LOOP
2412: x_return_status := l_return_status;
2413: END IF;
2414:
2415: -- Versioning/Reasons changes (moved to beginning for bug 3775937
2416: if OE_CODE_CONTROL.Code_Release_Level >= '110510' AND
2417: OE_GLOBALS.G_CAPTURED_REASON = 'V' THEN
2418: OE_GLOBALS.G_REASON_CODE := p_line_rec.revision_change_reason_code;
2419: OE_GLOBALS.G_REASON_COMMENTS := p_line_rec.revision_change_comments;
2420: OE_GLOBALS.G_CAPTURED_REASON := 'Y';
3138: AND g_header_rec.new_price_list_id IS NOT NULL)
3139: THEN
3140: -- Only for release before 11i10 check if header and line price list
3141: -- are same.
3142: IF (OE_Code_Control.Get_Code_Release_Level < '110510'
3143: AND OE_GLOBALS.Equal(p_line_rec.price_list_id, g_header_rec.price_list_id))
3144: OR OE_Code_Control.Get_Code_Release_Level >= '110510'
3145: THEN
3146:
3140: -- Only for release before 11i10 check if header and line price list
3141: -- are same.
3142: IF (OE_Code_Control.Get_Code_Release_Level < '110510'
3143: AND OE_GLOBALS.Equal(p_line_rec.price_list_id, g_header_rec.price_list_id))
3144: OR OE_Code_Control.Get_Code_Release_Level >= '110510'
3145: THEN
3146:
3147: if l_debug_level > 0 then
3148: oe_debug_pub.add('qp list line id :'||p_line_rec.qp_list_line_id);
3386:
3387: -- Validate Transaction Phase
3388: -- Added for Pack -j Srini.
3389: IF p_header_rec.operation = oe_globals.g_opr_create and
3390: oe_code_control.get_code_release_level >= '110510'
3391: THEN
3392: If p_header_rec.TRANSACTION_PHASE_CODE is null and
3393: l_old_header_rec.TRANSACTION_PHASE_CODE is null
3394: THEN
3414: END IF;
3415:
3416: -- Get Blanket Agreement Name For Null values
3417: -- Added for Pack -j Srini.
3418: IF oe_code_control.get_code_release_level >= '110510'
3419: THEN
3420: If p_header_rec.sales_document_name is null and
3421: l_old_header_rec.sales_document_name is null
3422: THEN
3427:
3428: g_header_rec := p_header_rec;
3429:
3430: -- Versioning/Reasons changes (moved to beginning for bug 3775937
3431: if OE_CODE_CONTROL.Code_Release_Level >= '110510' AND
3432: OE_GLOBALS.G_CAPTURED_REASON = 'V' THEN
3433: OE_GLOBALS.G_REASON_CODE := p_header_rec.revision_change_reason_code;
3434: OE_GLOBALS.G_REASON_COMMENTS := p_header_rec.revision_change_comments;
3435: OE_GLOBALS.G_CAPTURED_REASON := 'Y';
3451: OE_Order_UTIL.Get_Attribute_Name('BLANKET_NUMBER'));
3452: OE_MSG_PUB.Add;
3453: END IF;
3454: --Enabling Pricing Agreements for pack J
3455: IF OE_CODE_CONTROL.Get_Code_Release_Level < '110510' THEN
3456: IF p_header_rec.sold_to_org_id IS NULL THEN
3457: x_return_status := FND_API.G_RET_STS_ERROR;
3458: fnd_message.set_name('ONT','OE_ATTRIBUTE_REQUIRED');
3459: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
3657:
3658: -- 11i10 Pricing Changes Start
3659: -- In prior releases, existing price list ID would store either
3660: -- the standard price list or new price list
3661: IF OE_CODE_CONTROL.Get_Code_Release_Level < '110510' THEN
3662:
3663: IF p_header_rec.price_list_id IS NULL AND
3664: p_header_rec.price_list_name IS NOT NULL THEN
3665: BEGIN
4043: -- Validations and Record History
4044:
4045: IF NOT OE_GLOBALS.EQUAL(p_header_rec.version_number,
4046: l_old_header_rec.version_number)
4047: AND OE_CODE_CONTROL.CODE_RELEASE_LEVEL < '110510'
4048: THEN
4049:
4050: SELECT /* MOAC_SQL_CHANGE */ version_number
4051: INTO l_db_version_number
4128:
4129: END IF; -- if version number is not equal
4130:
4131: -- Validate WF STATUS for Start and End Date for a BSA. For Pack J
4132: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
4133: THEN
4134: if (NOT OE_GLOBALS.Equal(p_header_rec.start_date_active,l_old_header_rec.start_date_active) OR
4135: NOT OE_GLOBALS.Equal(p_header_rec.end_date_active,l_old_header_rec.end_date_active))
4136: THEN
4151:
4152: END IF; -- if update operation
4153:
4154: -- For bug #4447494
4155: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
4156: THEN
4157: if (NOT OE_GLOBALS.Equal(p_header_rec.sold_to_org_id,l_old_header_rec.sold_to_org_id) and
4158: p_header_rec.operation = oe_globals.g_opr_update) THEN
4159: OE_Delayed_Requests_PVT.Log_Request
4174: IF g_new_price_list THEN
4175: if l_debug_level > 0 then
4176: oe_debug_pub.add('logging request to create blanket price list',1);
4177: end if;
4178: if oe_code_control.get_code_release_level >= '110510' then
4179: l_new_pl_name := p_header_rec.new_price_list_name;
4180: else
4181: l_new_pl_name := p_header_rec.price_list_name;
4182: end if;
4501:
4502: x_return_status := FND_API.G_RET_STS_SUCCESS;
4503:
4504: --Versioning changes
4505: IF OE_CODE_CONTROL.Code_Release_Level >= '110510' AND
4506: NOT g_old_version_captured THEN
4507: query_blanket(p_header_id => p_header_rec.header_id
4508: ,p_x_header_rec => g_old_header_hist_Rec
4509: ,p_x_line_tbl => g_old_line_hist_tbl
4815: p_line_rec.line_id);
4816: end if;
4817:
4818: --Versioning changes
4819: IF OE_CODE_CONTROL.Code_Release_Level >= '110510' AND
4820: NOT g_old_version_captured THEN
4821: query_blanket(p_header_id => p_line_rec.header_id
4822: ,p_x_header_rec => g_old_header_hist_Rec
4823: ,p_x_line_tbl => g_old_line_hist_tbl
5070: end if;
5071: x_return_status := FND_API.G_RET_STS_SUCCESS;
5072:
5073: --Versioning changes
5074: IF OE_CODE_CONTROL.Code_Release_Level >= '110510' AND
5075: NOT g_old_version_captured THEN
5076: query_blanket(p_header_id => p_line_rec.header_id
5077: ,p_x_header_rec => g_old_header_hist_Rec
5078: ,p_x_line_tbl => g_old_line_hist_tbl
5232: WHERE line_id = p_line_id;
5233: END IF;
5234:
5235: --Versioning changes
5236: IF OE_CODE_CONTROL.Code_Release_Level >= '110510' AND
5237: NOT g_old_version_captured THEN
5238: query_blanket(p_header_id => l_header_id
5239: ,p_x_header_rec => g_old_header_hist_Rec
5240: ,p_x_line_tbl => g_old_line_hist_tbl
6827: --p_x_header_rec.org_id := to_number(FND_PROFILE.VALUE('ORG_ID'));
6828: --
6829:
6830: -- Default of Transaction Phase.
6831: IF oe_code_control.get_code_release_level >= '110510' THEN
6832:
6833: IF p_x_header_rec.transaction_phase_code IS NULL THEN
6834: p_x_header_rec.transaction_phase_code :=
6835: fnd_profile.value('ONT_DEF_BSA_TRANSACTION_PHASE');
6856:
6857:
6858: --ABH
6859: --default the contract template id
6860: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
6861: NULL;
6862: -- << place logic here >>
6863: -- << p_x_header_rec.contract_template_id :=
6864: l_order_type_id := p_x_header_rec.order_type_id;
7347: RAISE FND_API.G_EXC_ERROR;
7348: END IF;
7349:
7350:
7351: IF oe_code_control.get_code_release_level >= '110510' and
7352: G_Header_Rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
7353: oe_debug_pub.ADD('Create and Start Flow srini : '||G_Header_Rec.operation) ;
7354: oe_blanket_wf_util.create_and_start_flow(
7355: p_header_id => G_header_rec.header_id,
7375: -- moved instantiate call after create_and_start_flow procedure for bug 3691452
7376:
7377: -- Instantiate the contract template id against the BSA if new record --ABH
7378: IF G_Header_Rec.operation = OE_GLOBALS.G_OPR_CREATE AND
7379: OE_CODE_CONTROL.Get_Code_Release_Level >= '110510'
7380: -- Do not instantiate for copied orders
7381: AND nvl(g_header_rec.source_document_type_id,-1) <> 2
7382: THEN
7383:
7409: END IF;
7410:
7411: END IF;
7412:
7413: IF OE_CODE_CONTROL.Code_Release_Level >= '110510' AND
7414: OE_GLOBALS.G_ROLL_VERSION <> 'N' AND
7415: Not OE_GLOBALS.Equal(G_Header_Rec.operation, OE_GLOBALS.G_OPR_CREATE) THEN
7416: OE_Versioning_Util.Perform_Versioning(p_header_id => g_header_rec.header_id,
7417: p_document_type => 'BLANKETS',
7696: -- 11i10 pricing change - source code is BSO in 11i10.
7697: -- Select from qp tables with source as blanket
7698: -- if exist then return true otherwise false
7699:
7700: IF OE_Code_Control.Get_Code_Release_Level < '110510' THEN
7701:
7702: SELECT 'VALID'
7703: INTO l_dummy
7704: FROM QP_LIST_HEADERS
7769: -- but in the end, latest version number could be same as the old version
7770: -- number. If that occurs, we need not record history.
7771:
7772: -- For 11i10, version update occurs after history is inserted
7773: IF OE_CODE_CONTROL.Code_Release_Level < '110510' AND
7774: l_new_version_number <= g_old_header_hist_rec.version_number THEN
7775: RETURN;
7776: END IF;
7777: