[Home] [Help]
1: PACKAGE BODY OE_Blanket_util AS
2: /* $Header: OEXUBSOB.pls 120.31.12020000.5 2013/01/08 10:22:09 sipillut ship $ */
3: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_Blanket_Util';
4:
5: PROCEDURE Insert_History_Records
1: PACKAGE BODY OE_Blanket_util AS
2: /* $Header: OEXUBSOB.pls 120.31.12020000.5 2013/01/08 10:22:09 sipillut ship $ */
3: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_Blanket_Util';
4:
5: PROCEDURE Insert_History_Records
6: (p_header_rec IN OUT NOCOPY OE_Blanket_PUB.Header_Rec_Type
7: ,p_line_tbl IN OUT NOCOPY OE_Blanket_PUB.Line_Tbl_Type
1063: --
1064: BEGIN
1065:
1066: if l_debug_level > 0 then
1067: oe_debug_pub.add('Entering OE_BLANKET_UTIL.VALIDATE_ATTRIBUTES',1);
1068: end if;
1069: x_return_status := FND_API.G_RET_STS_SUCCESS;
1070:
1071: -- Validate header attributes
1602: END IF;
1603:
1604: if l_debug_level > 0 then
1605: oe_debug_pub.add('After blanket header_desc_flex ' || x_return_status,2);
1606: oe_debug_pub.add('Exiting OE_BLANKET_UTIL.VALIDATE_ATTRIBUTES',1);
1607: end if;
1608: EXCEPTION
1609:
1610: WHEN FND_API.G_EXC_ERROR THEN
1649: --
1650: BEGIN
1651:
1652: if l_debug_level > 0 then
1653: oe_debug_pub.add('Enter procedure OE_blanket_util.validate line Attributes',1);
1654: end if;
1655:
1656: x_return_status := FND_API.G_RET_STS_SUCCESS;
1657: -- Compare line attributes with header record if the header record is
2123:
2124: END IF; -- 5562785
2125:
2126: if l_debug_level > 0 then
2127: oe_debug_pub.add('Exiting procedure OE_BLANKET_UTIL.Validate Line Attributes',1);
2128: end if;
2129:
2130: EXCEPTION
2131:
2374:
2375:
2376:
2377: if l_debug_level > 0 then
2378: oe_debug_pub.add('Enter OE_BLANKET_UTIL.Validate ENTITY - Line',1);
2379: oe_debug_pub.add('Operation : '||p_line_rec.operation);
2380: oe_debug_pub.add('Price List ID : '||p_line_rec.price_list_id);
2381: oe_debug_pub.add('Unit List Price : '||p_line_rec.unit_list_price);
2382: oe_debug_pub.add('Line end date : '||p_line_rec.end_date_active);
2421: end if;
2422:
2423: -- added for bug 3443777 need to call validate entity for reasons capture
2424: IF (p_line_rec.operation <> OE_GLOBALS.g_opr_delete)
2425: and not OE_BLANKET_UTIL.is_end_date_operation(p_line_rec, l_old_line_rec) -- Added for bug 9027699
2426:
2427: THEN
2428:
2429: /* IF p_line_rec.operation = oe_globals.g_opr_update AND p_line_rec.end_date_active = trunc(sysdate) AND
2501:
2502: -- Customer Item Validation
2503: IF (p_line_rec.operation = oe_globals.g_opr_update or p_line_rec.operation = oe_globals.g_opr_create) AND
2504: p_line_rec.ITEM_IDENTIFIER_TYPE = 'CUST' then
2505: oe_blanket_util.Get_Inventory_Item(p_x_line_rec => p_line_rec,
2506: x_return_status => l_return_status);
2507: END if;
2508: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2509: oe_debug_pub.add('Raise and Error in Customer ITem Validation oe_blanket_util.Get_Inventory_Item');
2505: oe_blanket_util.Get_Inventory_Item(p_x_line_rec => p_line_rec,
2506: x_return_status => l_return_status);
2507: END if;
2508: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2509: oe_debug_pub.add('Raise and Error in Customer ITem Validation oe_blanket_util.Get_Inventory_Item');
2510: RAISE FND_API.G_EXC_ERROR;
2511: END IF;
2512: --PP Revenue Recognition
2513: --bug 4893057
2873: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_ATTR_CLOSED');
2874: OE_MSG_PUB.Add;
2875: END IF;
2876: --Srini
2877: --oe_blanket_util.Get_Inventory_Item(p_x_line_rec => p_line_rec,
2878: -- x_return_status => l_return_status);
2879: --End srini
2880: --display warning if we haven't fulfilled minimum requirements
2881:
3301: END IF; --bug 3443777, need to call validate entity for reasons capture
3302:
3303: if l_debug_level > 0 then
3304: -- Done validating entity
3305: oe_debug_pub.add('Exit OE_BLANKET_UTIL.Validate ENTITY- Line',1);
3306: end if;
3307:
3308: EXCEPTION
3309:
3348: BEGIN
3349: x_return_status := FND_API.G_RET_STS_SUCCESS;
3350:
3351: if l_debug_level > 0 then
3352: oe_debug_pub.add('Enter OE_BLANKET_UTIL.Validate_ENTITY- Header',1);
3353: oe_debug_pub.add('Operation :'||p_header_rec.operation);
3354: oe_debug_pub.add('new end date :'||p_header_rec.end_date_active);
3355: oe_debug_pub.add('old end date :'||l_old_header_rec.end_date_active);
3356: end if;
4220:
4221: g_header_rec := p_header_rec;
4222:
4223: if l_debug_level > 0 then
4224: oe_debug_pub.add('Exit OE_BLANKET_UTIL.Validate_ENTITY- Header',1);
4225: end if;
4226:
4227: EXCEPTION
4228: WHEN FND_API.G_EXC_ERROR THEN
4250:
4251: x_return_status := FND_API.G_RET_STS_SUCCESS;
4252:
4253: if l_debug_level > 0 then
4254: oe_debug_pub.add('Entering OE_BLANKET_UTIL.INSERT_ROW - Header ID :'||
4255: p_header_rec.header_id);
4256: end if;
4257: --bug 7139169
4258: OE_GLOBALS.Set_Context;
4467: );
4468:
4469: OE_Blanket_Header_Security.g_check_all_cols_constraint := 'Y'; /* Bug # 5516348 */
4470: if l_debug_level > 0 then
4471: oe_debug_pub.add('Exiting OE_BLANKET_UTIL.INSERT_ROW- Header', 1);
4472: end if;
4473:
4474: EXCEPTION
4475:
4624: AND END_DATE_ACTIVE IS NULL;
4625:
4626: OE_Blanket_Header_Security.g_check_all_cols_constraint := 'Y'; /* Bug # 5516348 */
4627: if l_debug_level > 0 then
4628: oe_debug_pub.add('Exiting OE_BLANKET_UTIL.UPDATE_ROW', 1);
4629: end if;
4630:
4631: EXCEPTION
4632:
4671: -- hashraf ... start of pack J
4672: x_return_status := FND_API.G_RET_STS_SUCCESS;
4673:
4674: if l_debug_level > 0 then
4675: oe_debug_pub.add('Entering OE_BLANKET_UTIL.DELETE_ROW - HEADER ID :'||
4676: p_header_id);
4677: end if;
4678:
4679: BEGIN
4697:
4698: IF l_transaction_phase_code IS NOT NULL THEN
4699:
4700: IF l_transaction_phase_code = 'N' THEN
4701: oe_debug_pub.add('OE_BLANKET_UTIL.Delete_Row WF negotiate');
4702: OE_Order_WF_Util.delete_row(p_type=>'NEGOTIATE', p_id => p_header_id);
4703: ELSE
4704: oe_debug_pub.add('OE_BLANKET_UTIL.Delete_Row WF blanket');
4705: OE_Order_WF_Util.delete_row(p_type=>'BLANKET', p_id => p_header_id);
4700: IF l_transaction_phase_code = 'N' THEN
4701: oe_debug_pub.add('OE_BLANKET_UTIL.Delete_Row WF negotiate');
4702: OE_Order_WF_Util.delete_row(p_type=>'NEGOTIATE', p_id => p_header_id);
4703: ELSE
4704: oe_debug_pub.add('OE_BLANKET_UTIL.Delete_Row WF blanket');
4705: OE_Order_WF_Util.delete_row(p_type=>'BLANKET', p_id => p_header_id);
4706: END IF;
4707:
4708: END IF;
4705: OE_Order_WF_Util.delete_row(p_type=>'BLANKET', p_id => p_header_id);
4706: END IF;
4707:
4708: END IF;
4709: oe_debug_pub.add('OE_BLANKET_UTIL.Delete_Row after WF delete');
4710:
4711: -- 11i10 Pricing Changes
4712: OE_Blanket_Pricing_Util.Deactivate_Pricing
4713: (p_blanket_header_id => p_header_id
4740:
4741: --for bug 3348870
4742: For r_line_id in c_line_id
4743: Loop
4744: OE_Blanket_Util.Delete_Row(p_line_id => r_line_id.line_id
4745: ,x_return_status => X_RETURN_STATUS);
4746: End Loop;
4747:
4748: --End bug
4757: DELETE FROM OE_BLANKET_HEADERS_EXT
4758: WHERE order_number=l_order_number;
4759:
4760: if l_debug_level > 0 then
4761: oe_debug_pub.add('Exiting OE_BLANKET_UTIL.DELETE_ROW', 1);
4762: end if;
4763:
4764: EXCEPTION
4765: WHEN FND_API.G_EXC_ERROR THEN
4810:
4811: x_return_status := FND_API.G_RET_STS_SUCCESS;
4812:
4813: if l_debug_level > 0 then
4814: oe_debug_pub.add('Entering OE_BLANKET_UTIL.INSERT_ROW - Line ID :'||
4815: p_line_rec.line_id);
4816: end if;
4817:
4818: --Versioning changes
5034: );
5035:
5036: OE_Blanket_Line_Security.g_check_all_cols_constraint := 'Y'; /* Bug # 5516348 */
5037: if l_debug_level > 0 then
5038: oe_debug_pub.add('Exiting OE_blanket_UTIL.INSERT_ROW', 1);
5039: end if;
5040:
5041: EXCEPTION
5042:
5065: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5066: --
5067: BEGIN
5068: if l_debug_level > 0 then
5069: oe_debug_pub.add('Entering OE_Blanket_UTIL.UPDATE_ROW - LINE', 1);
5070: end if;
5071: x_return_status := FND_API.G_RET_STS_SUCCESS;
5072:
5073: --Versioning changes
5185: WHERE line_id = p_line_rec.line_id;
5186:
5187: OE_Blanket_Line_Security.g_check_all_cols_constraint := 'Y'; /* Bug # 5516348 */
5188: if l_debug_level > 0 then
5189: oe_debug_pub.add('Exiting OE_Blanket_UTIL.UPDATE_ROW - LINE', 1);
5190: end if;
5191:
5192: EXCEPTION
5193:
5220: -- hashraf ... start of pack J
5221: x_return_status := FND_API.G_RET_STS_SUCCESS;
5222:
5223: if l_debug_level > 0 then
5224: oe_debug_pub.add('Entering OE_BLANKET_UTIL.DELETE_ROW - LINE ID :'||
5225: p_line_id);
5226: end if;
5227:
5228: IF l_header_id IS NULL or
5279: DELETE FROM OE_BLANKET_LINES_HIST
5280: WHERE line_id = p_line_id;
5281:
5282: if l_debug_level > 0 then
5283: oe_debug_pub.add('Exiting OE_BLANKET_UTIL.DELETE_ROW', 1);
5284: end if;
5285:
5286: EXCEPTION
5287: WHEN FND_API.G_EXC_ERROR THEN
5516:
5517: x_return_status := FND_API.G_RET_STS_SUCCESS;
5518:
5519: if l_debug_level > 0 then
5520: oe_debug_pub.add('Entering OE_BLANKET_UTIL.QUERY_ROW', 1);
5521: end if;
5522:
5523: IF p_version_number IS NOT NULL THEN
5524: SELECT /* MOAC_SQL_CHANGE */ version_number INTO l_current_version_number FROM OE_BLANKET_HEADERS_ALL WHERE header_id = p_header_id;
5744: CLOSE l_hdr_hist_csr;
5745: END IF;
5746:
5747: if l_debug_level > 0 then
5748: oe_debug_pub.add('Exiting OE_BLANKET_UTIL.QUERY_ROW -Header', 1);
5749: end if;
5750:
5751: EXCEPTION
5752:
6427: --
6428: BEGIN
6429:
6430: if l_debug_level > 0 then
6431: oe_debug_pub.add('Entering OE_BLANKET_UTIL.LOCK_ROW', 1);
6432: end if;
6433:
6434: OE_MSG_PUB.initialize;
6435:
6456: , p_data => x_msg_data
6457: );
6458:
6459: if l_debug_level > 0 then
6460: oe_debug_pub.add('Exiting OE_BLANKET_UTIL.LOCK_ROW', 1);
6461: end if;
6462:
6463: EXCEPTION
6464: WHEN FND_API.G_EXC_ERROR THEN
6548: BEGIN
6549:
6550:
6551: if l_debug_level > 0 then
6552: oe_debug_pub.add('Entering OE_BLANKET_UTIL.LOCK_BLANKET', 1);
6553: end if;
6554:
6555: OE_MSG_PUB.initialize;
6556:
6662:
6663: END IF;
6664:
6665: if l_debug_level > 0 then
6666: oe_debug_pub.add('Exiting OE_BLANKET_UTIL.LOCK_BLANKET', 1);
6667: end if;
6668:
6669: OE_GLOBALS.G_LOCK_TEST := 'N';
6670:
7359: x_msg_count => lx_msg_count,
7360: x_msg_data => lx_msg_Data);
7361: IF lx_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7362: if l_debug_level > 0 then
7363: oe_debug_pub.ADD('OE_Blanket_Util.Process_Object unexp error in Create and Start flow ', 1);
7364: end if;
7365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7366: ELSIF lx_return_status = FND_API.G_RET_STS_ERROR THEN
7367: if l_debug_level > 0 then
7364: end if;
7365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7366: ELSIF lx_return_status = FND_API.G_RET_STS_ERROR THEN
7367: if l_debug_level > 0 then
7368: oe_debug_pub.ADD('OE_Blanket_Util.Process_Object exc error in Create and Start Flow ', 1);
7369: end if;
7370: RAISE FND_API.G_EXC_ERROR;
7371: END IF;
7372:
7397: );
7398:
7399: IF lx_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7400: if l_debug_level > 0 then
7401: oe_debug_pub.ADD('OE_Blanket_Util.Process_Object unexp error in inst. doc terms ', 1);
7402: end if;
7403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7404: ELSIF lx_return_status = FND_API.G_RET_STS_ERROR THEN
7405: if l_debug_level > 0 then
7402: end if;
7403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7404: ELSIF lx_return_status = FND_API.G_RET_STS_ERROR THEN
7405: if l_debug_level > 0 then
7406: oe_debug_pub.ADD('OE_Blanket_Util.Process_Object exc error in inst. doc terms ', 1);
7407: end if;
7408: RAISE FND_API.G_EXC_ERROR;
7409: END IF;
7410:
7420: x_return_status => l_return_status);
7421:
7422: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7423: if l_debug_level > 0 then
7424: oe_debug_pub.ADD('OE_Blanket_Util.Process_Object unexp error in perform versioning ', 1);
7425: end if;
7426: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7427: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7428: if l_debug_level > 0 then
7425: end if;
7426: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7427: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7428: if l_debug_level > 0 then
7429: oe_debug_pub.ADD('OE_Blanket_Util.Process_Object exc error in perform versioning ', 1);
7430: end if;
7431: RAISE FND_API.G_EXC_ERROR;
7432: END IF;
7433:
7441:
7442:
7443: IF lx_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7444: if l_debug_level > 0 then
7445: oe_debug_pub.ADD('OE_Blanket_Util.Process_Object unexp error in perform versioning ', 1);
7446: end if;
7447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7448: ELSIF lx_return_status = FND_API.G_RET_STS_ERROR THEN
7449: if l_debug_level > 0 then
7446: end if;
7447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7448: ELSIF lx_return_status = FND_API.G_RET_STS_ERROR THEN
7449: if l_debug_level > 0 then
7450: oe_debug_pub.ADD('OE_Blanket_Util.Process_Object exc error in perform versioning ', 1);
7451: end if;
7452: RAISE FND_API.G_EXC_ERROR;
7453: END IF;
7454:
8536: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8537: --
8538: BEGIN
8539: if l_debug_level > 0 then
8540: oe_debug_pub.add('Enter OE_Blanket_Util.Returns_Exist');
8541: end if;
8542:
8543: If p_validation_entity_short_name = 'BLANKET_LINE' Then
8544: l_blanket_number := oe_blanket_line_security.g_record.order_number;
8588: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8589: --
8590: BEGIN
8591: if l_debug_level > 0 then
8592: oe_debug_pub.add('Enter OE_Blanket_Util.Release_Lines_Exist');
8593: end if;
8594:
8595: If p_validation_entity_short_name = 'BLANKET_LINE' Then
8596: l_blanket_number := oe_blanket_line_security.g_record.order_number;
8638: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8639: --
8640: BEGIN
8641: if l_debug_level > 0 then
8642: oe_debug_pub.add('Enter OE_Blanket_Util.Release_Lines_Exist');
8643: end if;
8644:
8645: If p_validation_entity_short_name = 'BLANKET_LINE' Then
8646: l_blanket_number := oe_blanket_line_security.g_record.order_number;
8686: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8687: --
8688: BEGIN
8689: if l_debug_level > 0 then
8690: oe_debug_pub.add('Enter OE_Blanket_Util.Open_Release_Lines_Exist');
8691: end if;
8692:
8693: If p_validation_entity_short_name = 'BLANKET_LINE' Then
8694: l_blanket_number := oe_blanket_line_security.g_record.order_number;
8738: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8739: --
8740: BEGIN
8741: if l_debug_level > 0 then
8742: oe_debug_pub.add('Enter OE_Blanket_Util.Open_Release_Lines_Exist');
8743: end if;
8744:
8745: If p_validation_entity_short_name = 'BLANKET_LINE' Then
8746: l_blanket_number := oe_blanket_line_security.g_record.order_number;
8786: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8787: --
8788: BEGIN
8789: if l_debug_level > 0 then
8790: oe_debug_pub.add('Enter OE_Blanket_Util.Is_Expired');
8791: end if;
8792:
8793: If p_validation_entity_short_name = 'BLANKET_LINE' Then
8794: If (trunc(sysdate) >= OE_Blanket_Line_Security.g_record.start_date_active
9423: post message OE_INVALIDATES_CUSTOMER_ITEM
9424: set return status to error.
9425: */
9426: x_return_status := FND_API.G_RET_STS_SUCCESS;
9427: oe_debug_pub.add('Entering Oe_blanket_util Get_Inventory_Item', 1);
9428: IF (p_x_line_rec.ship_to_org_id IS NOT NULL AND
9429: p_x_line_rec.ship_to_org_id <> FND_API.G_MISS_NUM) THEN
9430:
9431: SELECT u.cust_acct_site_id,s.cust_account_id
9501: BEGIN
9502: OE_MSG_PUB.initialize;
9503: x_return_status := FND_API.G_RET_STS_SUCCESS;
9504: IF l_debug_level > 0 THEN
9505: oe_debug_pub.add('ENTERING OE_Blanket_util.validate_sold_to:');
9506: oe_debug_pub.add('DB Line ID : '|| TO_CHAR (mc1x.line_id) ,1);
9507: oe_debug_pub.add('DB Sold To Org ID : '|| TO_CHAR (mc1x.sold_to_org_id) ,1);
9508: oe_debug_pub.add('actual Hdr Sold To Org ID : '|| TO_CHAR (p_sold_to_org_id) ,1);
9509: END IF;
9528: and address_status='A';
9529: EXCEPTION
9530: WHEN NO_DATA_FOUND THEN
9531: if l_debug_level > 0 then
9532: oe_debug_pub.add ('OE_blanket_util.validate_sold_to Blanket In ship to No data found',2);
9533: end if;
9534: l_dummy := 'INVALID';
9535: x_return_status := FND_API.G_RET_STS_ERROR;
9536: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
9538: , OE_Order_Util.Get_Attribute_Name('ship_to_org_id'));
9539: OE_MSG_PUB.Add;
9540: WHEN OTHERS THEN
9541: if l_debug_level > 0 then
9542: oe_debug_pub.add ('OE_blanket_util.validate_sold_to WOE Blanket In Ship No data found',2);
9543: end if;
9544: l_dummy := 'INVALID';
9545: x_return_status := FND_API.G_RET_STS_ERROR;
9546: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9561:
9562: EXCEPTION
9563: WHEN NO_DATA_FOUND THEN
9564: if l_debug_level > 0 then
9565: oe_debug_pub.add ('OE_blanket_util.validate_sold_to Blanket In deliver No data found',2);
9566: end if;
9567: l_dummy := 'INVALID';
9568: x_return_status := FND_API.G_RET_STS_ERROR;
9569: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
9571: OE_Order_Util.Get_Attribute_Name('deliver_to_org_id'));
9572: OE_MSG_PUB.Add;
9573: WHEN OTHERS THEN
9574: if l_debug_level > 0 then
9575: oe_debug_pub.add ('OE_blanket_util.validate_sold_to WOE Blanket In Deliver No data found',2);
9576: end if;
9577: l_dummy := 'INVALID';
9578: x_return_status := FND_API.G_RET_STS_ERROR;
9579: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9591: AND site_use_id = mc1x.invoice_to_org_id;
9592: EXCEPTION
9593: WHEN NO_DATA_FOUND THEN
9594: if l_debug_level > 0 then
9595: oe_debug_pub.add ('OE_blanket_util.validate_sold_to Blanket In invoice No data found',2);
9596: end if;
9597: l_dummy := 'INVALID';
9598: x_return_status := FND_API.G_RET_STS_ERROR;
9599: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
9601: OE_Order_Util.Get_Attribute_Name('invoice_to_org_id'));
9602: OE_MSG_PUB.Add;
9603: WHEN OTHERS THEN
9604: if l_debug_level > 0 then
9605: oe_debug_pub.add ('OE_blanket_util.validate_sold_to WOE Blanket In Invoice No data found',2);
9606: end if;
9607: l_dummy := 'INVALID';
9608: x_return_status := FND_API.G_RET_STS_ERROR;
9609: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9614: end if;
9615: END LOOP;
9616: CLOSE C1;
9617: if l_debug_level > 0 then
9618: oe_debug_pub.add ('OE_blanket_util.validate_sold_to After Close In Invoice '||x_return_status,2);
9619: end if;
9620:
9621: if x_return_status = FND_API.G_RET_STS_ERROR then
9622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9624: update oe_blanket_lines_all set sold_to_org_id = p_sold_to_org_id
9625: where header_id = p_header_id;
9626: end if;
9627: IF l_debug_level > 0 THEN
9628: oe_debug_pub.add('EXISTING OE_Blanket_util.validate_sold_to: '|| TO_CHAR (p_header_id) ,1);
9629: END IF;
9630: END validate_sold_to;
9631:
9632: -- New procedure added for 5528599 start
9744: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
9745: --
9746: BEGIN
9747: if l_debug_level > 0 then
9748: oe_debug_pub.add('Enter OE_Blanket_Util.Batch_Call');
9749: end if;
9750:
9751: if OE_GLOBALS.G_UI_FLAG THEN
9752: oe_debug_pub.add(' UI Call ');
9762: END Is_Batch_Call;
9763:
9764:
9765:
9766: END OE_Blanket_UTIL;