[Home] [Help]
308: gpr_price_list_rec.list_source_code := 'BLKT';
309: -- gpr_price_list_rec.description := oe_delayed_requests_pvt.g_delayed_requests(I).paramtext1;
310: gpr_price_list_rec.currency_code := oe_delayed_requests_pvt.g_delayed_requests(I).param2;
311: --11i10 Pricing Changes Start
312: if oe_code_control.get_code_release_level >= '110510' then
313: gpr_price_list_rec.list_source_code := 'BSO';
314: gpr_price_list_rec.orig_system_header_ref :=
315: oe_delayed_requests_pvt.g_delayed_requests(I).entity_id;
316: gpr_price_list_rec.shareable_flag := 'N';
387:
388: -- 11i10 Pricing Change
389: -- Send customer item on price list line record
390: IF oe_delayed_requests_pvt.g_delayed_requests(I).param4 = 'CUST'
391: AND OE_Code_Control.Get_Code_Release_Level >= '110510'
392: THEN
393: gpr_price_list_line_tbl(K).customer_item_id :=
394: oe_delayed_requests_pvt.g_delayed_requests(I).param8;
395: oe_debug_pub.add('sending cust item id :'||
414: END LOOP;
415:
416: /*
417: -- 11i10 Pricing Changes
418: IF OE_Code_Control.Get_Code_Release_Level >= '110510' THEN
419: -----------------------------------------------------------
420: -- Set up the blanket line qualifier record
421: -----------------------------------------------------------
422: gpr_qualifiers_tbl(K).qualifier_grouping_no := 1;
461:
462: END IF;
463:
464:
465: IF OE_Code_Control.Code_Release_Level >= '110510' THEN
466:
467: gpr_pricing_attr_tbl.delete;
468: K := ppr_price_list_line_tbl.first;
469: WHILE K is not null LOOP
510: END IF; -- end if code release level check to create pricing attributes
511:
512:
513: --11i10 Pricing Changes Start
514: if oe_code_control.get_code_release_level >= '110510' then
515: Update oe_blanket_headers
516: set lock_control = lock_control + 1
517: ,last_updated_by = fnd_global.user_id
518: ,last_update_date = sysdate
674:
675: -- 11i10 Pricing Change
676: -- Send customer item on price list line record
677: IF oe_delayed_requests_pvt.g_delayed_requests(I).param4 = 'CUST'
678: AND OE_Code_Control.Get_Code_Release_Level >= '110510'
679: THEN
680: gpr_price_list_line_tbl(K).customer_item_id :=
681: oe_delayed_requests_pvt.g_delayed_requests(I).param8;
682: oe_debug_pub.add('sending cust item id :'||
721:
722: END IF;
723:
724:
725: IF OE_Code_Control.Code_Release_Level >= '110510' THEN
726:
727: gpr_pricing_attr_tbl.delete;
728: K := ppr_price_list_line_tbl.first;
729: WHILE K is not null LOOP
2267: x_return_status := l_return_status;
2268: END IF;
2269:
2270: -- Versioning/Reasons changes (moved to beginning for bug 3775937
2271: if OE_CODE_CONTROL.Code_Release_Level >= '110510' AND
2272: OE_GLOBALS.G_CAPTURED_REASON = 'V' THEN
2273: OE_GLOBALS.G_REASON_CODE := p_line_rec.revision_change_reason_code;
2274: OE_GLOBALS.G_REASON_COMMENTS := p_line_rec.revision_change_comments;
2275: OE_GLOBALS.G_CAPTURED_REASON := 'Y';
2947: AND g_header_rec.new_price_list_id IS NOT NULL)
2948: THEN
2949: -- Only for release before 11i10 check if header and line price list
2950: -- are same.
2951: IF (OE_Code_Control.Get_Code_Release_Level < '110510'
2952: AND OE_GLOBALS.Equal(p_line_rec.price_list_id, g_header_rec.price_list_id))
2953: OR OE_Code_Control.Get_Code_Release_Level >= '110510'
2954: THEN
2955:
2949: -- Only for release before 11i10 check if header and line price list
2950: -- are same.
2951: IF (OE_Code_Control.Get_Code_Release_Level < '110510'
2952: AND OE_GLOBALS.Equal(p_line_rec.price_list_id, g_header_rec.price_list_id))
2953: OR OE_Code_Control.Get_Code_Release_Level >= '110510'
2954: THEN
2955:
2956: if l_debug_level > 0 then
2957: oe_debug_pub.add('qp list line id :'||p_line_rec.qp_list_line_id);
3195:
3196: -- Validate Transaction Phase
3197: -- Added for Pack -j Srini.
3198: IF p_header_rec.operation = oe_globals.g_opr_create and
3199: oe_code_control.get_code_release_level >= '110510'
3200: THEN
3201: If p_header_rec.TRANSACTION_PHASE_CODE is null and
3202: l_old_header_rec.TRANSACTION_PHASE_CODE is null
3203: THEN
3223: END IF;
3224:
3225: -- Get Blanket Agreement Name For Null values
3226: -- Added for Pack -j Srini.
3227: IF oe_code_control.get_code_release_level >= '110510'
3228: THEN
3229: If p_header_rec.sales_document_name is null and
3230: l_old_header_rec.sales_document_name is null
3231: THEN
3236:
3237: g_header_rec := p_header_rec;
3238:
3239: -- Versioning/Reasons changes (moved to beginning for bug 3775937
3240: if OE_CODE_CONTROL.Code_Release_Level >= '110510' AND
3241: OE_GLOBALS.G_CAPTURED_REASON = 'V' THEN
3242: OE_GLOBALS.G_REASON_CODE := p_header_rec.revision_change_reason_code;
3243: OE_GLOBALS.G_REASON_COMMENTS := p_header_rec.revision_change_comments;
3244: OE_GLOBALS.G_CAPTURED_REASON := 'Y';
3260: OE_Order_UTIL.Get_Attribute_Name('BLANKET_NUMBER'));
3261: OE_MSG_PUB.Add;
3262: END IF;
3263: --Enabling Pricing Agreements for pack J
3264: IF OE_CODE_CONTROL.Get_Code_Release_Level < '110510' THEN
3265: IF p_header_rec.sold_to_org_id IS NULL THEN
3266: x_return_status := FND_API.G_RET_STS_ERROR;
3267: fnd_message.set_name('ONT','OE_ATTRIBUTE_REQUIRED');
3268: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
3466:
3467: -- 11i10 Pricing Changes Start
3468: -- In prior releases, existing price list ID would store either
3469: -- the standard price list or new price list
3470: IF OE_CODE_CONTROL.Get_Code_Release_Level < '110510' THEN
3471:
3472: IF p_header_rec.price_list_id IS NULL AND
3473: p_header_rec.price_list_name IS NOT NULL THEN
3474: BEGIN
3849: -- Validations and Record History
3850:
3851: IF NOT OE_GLOBALS.EQUAL(p_header_rec.version_number,
3852: l_old_header_rec.version_number)
3853: AND OE_CODE_CONTROL.CODE_RELEASE_LEVEL < '110510'
3854: THEN
3855:
3856: SELECT /* MOAC_SQL_CHANGE */ version_number
3857: INTO l_db_version_number
3934:
3935: END IF; -- if version number is not equal
3936:
3937: -- Validate WF STATUS for Start and End Date for a BSA. For Pack J
3938: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
3939: THEN
3940: if (NOT OE_GLOBALS.Equal(p_header_rec.start_date_active,l_old_header_rec.start_date_active) OR
3941: NOT OE_GLOBALS.Equal(p_header_rec.end_date_active,l_old_header_rec.end_date_active))
3942: THEN
3957:
3958: END IF; -- if update operation
3959:
3960: -- For bug #4447494
3961: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
3962: THEN
3963: if (NOT OE_GLOBALS.Equal(p_header_rec.sold_to_org_id,l_old_header_rec.sold_to_org_id) and
3964: p_header_rec.operation = oe_globals.g_opr_update) THEN
3965: OE_Delayed_Requests_PVT.Log_Request
3980: IF g_new_price_list THEN
3981: if l_debug_level > 0 then
3982: oe_debug_pub.add('logging request to create blanket price list',1);
3983: end if;
3984: if oe_code_control.get_code_release_level >= '110510' then
3985: l_new_pl_name := p_header_rec.new_price_list_name;
3986: else
3987: l_new_pl_name := p_header_rec.price_list_name;
3988: end if;
4307:
4308: x_return_status := FND_API.G_RET_STS_SUCCESS;
4309:
4310: --Versioning changes
4311: IF OE_CODE_CONTROL.Code_Release_Level >= '110510' AND
4312: NOT g_old_version_captured THEN
4313: query_blanket(p_header_id => p_header_rec.header_id
4314: ,p_x_header_rec => g_old_header_hist_Rec
4315: ,p_x_line_tbl => g_old_line_hist_tbl
4621: p_line_rec.line_id);
4622: end if;
4623:
4624: --Versioning changes
4625: IF OE_CODE_CONTROL.Code_Release_Level >= '110510' AND
4626: NOT g_old_version_captured THEN
4627: query_blanket(p_header_id => p_line_rec.header_id
4628: ,p_x_header_rec => g_old_header_hist_Rec
4629: ,p_x_line_tbl => g_old_line_hist_tbl
4876: end if;
4877: x_return_status := FND_API.G_RET_STS_SUCCESS;
4878:
4879: --Versioning changes
4880: IF OE_CODE_CONTROL.Code_Release_Level >= '110510' AND
4881: NOT g_old_version_captured THEN
4882: query_blanket(p_header_id => p_line_rec.header_id
4883: ,p_x_header_rec => g_old_header_hist_Rec
4884: ,p_x_line_tbl => g_old_line_hist_tbl
5038: WHERE line_id = p_line_id;
5039: END IF;
5040:
5041: --Versioning changes
5042: IF OE_CODE_CONTROL.Code_Release_Level >= '110510' AND
5043: NOT g_old_version_captured THEN
5044: query_blanket(p_header_id => l_header_id
5045: ,p_x_header_rec => g_old_header_hist_Rec
5046: ,p_x_line_tbl => g_old_line_hist_tbl
6633: --p_x_header_rec.org_id := to_number(FND_PROFILE.VALUE('ORG_ID'));
6634: --
6635:
6636: -- Default of Transaction Phase.
6637: IF oe_code_control.get_code_release_level >= '110510' THEN
6638:
6639: IF p_x_header_rec.transaction_phase_code IS NULL THEN
6640: p_x_header_rec.transaction_phase_code :=
6641: fnd_profile.value('ONT_DEF_BSA_TRANSACTION_PHASE');
6662:
6663:
6664: --ABH
6665: --default the contract template id
6666: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
6667: NULL;
6668: -- << place logic here >>
6669: -- << p_x_header_rec.contract_template_id :=
6670: l_order_type_id := p_x_header_rec.order_type_id;
7153: RAISE FND_API.G_EXC_ERROR;
7154: END IF;
7155:
7156:
7157: IF oe_code_control.get_code_release_level >= '110510' and
7158: G_Header_Rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
7159: oe_debug_pub.ADD('Create and Start Flow srini : '||G_Header_Rec.operation) ;
7160: oe_blanket_wf_util.create_and_start_flow(
7161: p_header_id => G_header_rec.header_id,
7181: -- moved instantiate call after create_and_start_flow procedure for bug 3691452
7182:
7183: -- Instantiate the contract template id against the BSA if new record --ABH
7184: IF G_Header_Rec.operation = OE_GLOBALS.G_OPR_CREATE AND
7185: OE_CODE_CONTROL.Get_Code_Release_Level >= '110510'
7186: -- Do not instantiate for copied orders
7187: AND nvl(g_header_rec.source_document_type_id,-1) <> 2
7188: THEN
7189:
7215: END IF;
7216:
7217: END IF;
7218:
7219: IF OE_CODE_CONTROL.Code_Release_Level >= '110510' AND
7220: OE_GLOBALS.G_ROLL_VERSION <> 'N' AND
7221: Not OE_GLOBALS.Equal(G_Header_Rec.operation, OE_GLOBALS.G_OPR_CREATE) THEN
7222: OE_Versioning_Util.Perform_Versioning(p_header_id => g_header_rec.header_id,
7223: p_document_type => 'BLANKETS',
7499: -- 11i10 pricing change - source code is BSO in 11i10.
7500: -- Select from qp tables with source as blanket
7501: -- if exist then return true otherwise false
7502:
7503: IF OE_Code_Control.Get_Code_Release_Level < '110510' THEN
7504:
7505: SELECT 'VALID'
7506: INTO l_dummy
7507: FROM QP_LIST_HEADERS
7572: -- but in the end, latest version number could be same as the old version
7573: -- number. If that occurs, we need not record history.
7574:
7575: -- For 11i10, version update occurs after history is inserted
7576: IF OE_CODE_CONTROL.Code_Release_Level < '110510' AND
7577: l_new_version_number <= g_old_header_hist_rec.version_number THEN
7578: RETURN;
7579: END IF;
7580: