[Home] [Help]
26: p_old_line_rec IN OE_Blanket_PUB.line_rec_type)
27: RETURN BOOLEAN
28: IS
29: l_dummy VARCHAR2(10);
30: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
31: l_return_status varchar2(1);
32:
33: BEGIN
34: IF l_debug_level > 0 then
31: l_return_status varchar2(1);
32:
33: BEGIN
34: IF l_debug_level > 0 then
35: oe_debug_pub.add('Entering is_end_date_operation ');
36: end if;
37: IF p_line_rec.operation = oe_globals.g_opr_update AND p_line_rec.end_date_active = trunc(sysdate) AND
38: NOT OE_GLOBALS.Equal(p_line_rec.end_date_active, p_old_line_rec.end_date_active) THEN
39:
41: IF nvl(p_line_rec.released_amount,0) < p_line_rec.blanket_min_amount THEN
42: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_CLOSE_MIN_VALUES');
43: OE_MSG_PUB.ADD;
44: if l_debug_level > 0 then
45: oe_debug_pub.add('Blanket line close min amount ');
46: end if;
47: -- return false; This is a warning..hence not returning ..
48:
49: ELSIF nvl(p_line_rec.released_quantity,0) < p_line_rec.blanket_min_quantity THEN
49: ELSIF nvl(p_line_rec.released_quantity,0) < p_line_rec.blanket_min_quantity THEN
50: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_CLOSE_MIN_VALUES');
51: OE_MSG_PUB.ADD;
52: if l_debug_level > 0 then
53: oe_debug_pub.add('Blanket line close min quantity ');
54: end if;
55: --return false; This is a warning..hence not returning ..
56: END IF;
57: END IF;
116: RETURN BOOLEAN
117: IS
118: l_dummy VARCHAR2(10);
119: l_site_use_code VARCHAR2(30) := 'SHIP_TO';
120: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
121:
122: BEGIN
123: IF l_debug_level > 0 then
124: oe_debug_pub.add('Entering Validate_ship_to_org',1);
120: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
121:
122: BEGIN
123: IF l_debug_level > 0 then
124: oe_debug_pub.add('Entering Validate_ship_to_org',1);
125: oe_debug_pub.add('ship_to_org_id :'||to_char(p_ship_to_org_id),2);
126: END IF;
127:
128: IF g_customer_relations = 'N' THEN
121:
122: BEGIN
123: IF l_debug_level > 0 then
124: oe_debug_pub.add('Entering Validate_ship_to_org',1);
125: oe_debug_pub.add('ship_to_org_id :'||to_char(p_ship_to_org_id),2);
126: END IF;
127:
128: IF g_customer_relations = 'N' THEN
129:
134: AND site_use_id = p_ship_to_org_id
135: AND status = 'A'
136: AND address_status ='A'; --bug 2752321
137: IF l_debug_level > 0 then
138: oe_debug_pub.add('Exiting Validate_ship_to_org',1);
139: END IF;
140: RETURN TRUE;
141: ELSIF g_customer_relations = 'Y' THEN
142: IF l_debug_level > 0 then
139: END IF;
140: RETURN TRUE;
141: ELSIF g_customer_relations = 'Y' THEN
142: IF l_debug_level > 0 then
143: oe_debug_pub.add ('Cr: Yes Line Ship',2);
144: END IF;
145:
146: SELECT /* MOAC_SQL_CHANGE */ 'VALID'
147: Into l_dummy
195: IS
196: l_dummy VARCHAR2(10);
197: l_site_use_code VARCHAR2(30) := 'DELIVER_TO';
198:
199: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
200: BEGIN
201: IF l_debug_level > 0 then
202: oe_debug_pub.add('Entering OE_VALIDATE_LINE.Validate_Deliver_To_Org',1);
203: oe_debug_pub.add('deliver_to_org_id :'||to_char(p_deliver_to_org_id),2);
198:
199: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
200: BEGIN
201: IF l_debug_level > 0 then
202: oe_debug_pub.add('Entering OE_VALIDATE_LINE.Validate_Deliver_To_Org',1);
203: oe_debug_pub.add('deliver_to_org_id :'||to_char(p_deliver_to_org_id),2);
204: END IF;
205:
206:
199: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
200: BEGIN
201: IF l_debug_level > 0 then
202: oe_debug_pub.add('Entering OE_VALIDATE_LINE.Validate_Deliver_To_Org',1);
203: oe_debug_pub.add('deliver_to_org_id :'||to_char(p_deliver_to_org_id),2);
204: END IF;
205:
206:
207: IF g_customer_relations = 'N' THEN
212: AND site_use_id = p_deliver_to_org_id
213: AND status = 'A'
214: AND address_status ='A';--bug 2752321
215: IF l_debug_level > 0 then
216: oe_debug_pub.add('Exiting OE_VALIDATE_LINE.Validate_Deliver_To_Org',1);
217: END IF;
218: RETURN TRUE;
219:
220: ELSIF g_customer_relations = 'Y' THEN
218: RETURN TRUE;
219:
220: ELSIF g_customer_relations = 'Y' THEN
221: IF l_debug_level > 0 then
222: oe_debug_pub.add('Cr: Yes Line Deliver',2);
223: END IF;
224:
225: SELECT /* MOAC_SQL_CHANGE */ 'VALID'
226: Into l_dummy
243: ACCT_SITE.CUST_ACCOUNT_ID AND STATUS='A')
244: AND ROWNUM = 1;
245:
246: IF l_debug_level > 0 then
247: oe_debug_pub.add('Exiting OE_VALIDATE_LINE.Validate_Deliver_To_Org',1);
248: END IF;
249: RETURN TRUE;
250:
251: ELSIF g_customer_relations = 'A' THEN
258: AND DEL.ADDRESS_STATUS ='A' --bug 2752321
259: AND SYSDATE BETWEEN NVL(DEL.START_DATE_ACTIVE, SYSDATE)
260: AND NVL(DEL.END_DATE_ACTIVE, SYSDATE);
261: IF l_debug_level > 0 then
262: oe_debug_pub.add('Exiting OE_VALIDATE_LINE.Validate_Deliver_To_Org',1);
263: END IF;
264: RETURN TRUE;
265:
266:
265:
266:
267: END IF;
268: IF l_debug_level > 0 then
269: oe_debug_pub.add('Exiting OE_VALIDATE_LINE.Validate_Deliver_To_Org',1);
270: END IF;
271: RETURN TRUE;
272:
273: EXCEPTION
285: IS
286: l_dummy VARCHAR2(10);
287: l_site_use_code VARCHAR2(30) := 'BILL_TO';
288:
289: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
290: BEGIN
291: IF l_debug_level > 0 then
292: oe_debug_pub.add('Entering Validate_Invoice_To_Org',1);
293: oe_debug_pub.add('Invoice_to_org_id :'||to_char(p_Invoice_to_org_id),2);
288:
289: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
290: BEGIN
291: IF l_debug_level > 0 then
292: oe_debug_pub.add('Entering Validate_Invoice_To_Org',1);
293: oe_debug_pub.add('Invoice_to_org_id :'||to_char(p_Invoice_to_org_id),2);
294: END IF;
295:
296:
289: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
290: BEGIN
291: IF l_debug_level > 0 then
292: oe_debug_pub.add('Entering Validate_Invoice_To_Org',1);
293: oe_debug_pub.add('Invoice_to_org_id :'||to_char(p_Invoice_to_org_id),2);
294: END IF;
295:
296:
297: IF g_customer_relations = 'N' THEN
306: RETURN TRUE;
307:
308: ELSIF g_customer_relations = 'Y' THEN
309: IF l_debug_level > 0 then
310: oe_debug_pub.add('Cr: Yes Line Inv',2);
311: END IF;
312:
313: SELECT /* MOAC_SQL_CHANGE */ 'VALID'
314: Into l_dummy
379: lheader_id number;
380: l_list_line_seq NUMBER;
381: ind NUMBER := 1;
382: --
383: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
384: --
385: l_user_precedence NUMBER; --Bug#8468331
386:
387: BEGIN
387: BEGIN
388: /* set the list_header_id to g_miss_num */
389:
390: if l_debug_level > 0 then
391: oe_debug_pub.add('Blanket In create price list');
392: end if;
393: IF oe_delayed_requests_pvt.g_delayed_requests(I).param1 IS NULL THEN
394: RETURN;
395: END IF;
454: AND
455: oe_delayed_requests_pvt.g_delayed_requests(I).entity_code =
456: oe_blanket_pub.g_entity_blanket_LINE THEN
457: if l_debug_level > 0 then
458: oe_debug_pub.add('Blanket In create price list - line');
459: end if;
460: IF oe_delayed_requests_pvt.g_delayed_requests(I).param1 IS NULL THEN
461: if l_debug_level > 0 then
462: oe_debug_pub.add('Blanket In Skip');
458: oe_debug_pub.add('Blanket In create price list - line');
459: end if;
460: IF oe_delayed_requests_pvt.g_delayed_requests(I).param1 IS NULL THEN
461: if l_debug_level > 0 then
462: oe_debug_pub.add('Blanket In Skip');
463: end if;
464: GOTO SKIP_LINE;
465: END IF;
466: g_line_id_tbl(ind).line_id := oe_delayed_requests_pvt.g_delayed_requests(I).entity_id;
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 :'||
507: gpr_price_list_line_tbl(ind).customer_item_id);
508: END IF;
509:
510: END IF;
552: gpr_qualifiers_tbl(K).qualifier_attribute := 'QUALIFIER_ATTRIBUTE6';
553: gpr_qualifiers_tbl(K).comparison_operator_code := '=';
554: -- Blanket Line ID is the qualifier attribute value
555: gpr_qualifiers_tbl(K).qualifier_attr_value := oe_delayed_requests_pvt.g_delayed_requests(I).entity_id;
556: oe_debug_pub.add('entity id :'||oe_delayed_requests_pvt.g_delayed_requests(I).entity_id);
557: gpr_qualifiers_tbl(K).operation := QP_GLOBALS.G_OPR_CREATE;
558: END IF;
559: */
560:
601: gpr_pricing_attr_tbl(K).pricing_attr_value_from :=
602: ppr_price_list_line_tbl(K).list_line_id;
603: gpr_pricing_attr_tbl(K).comparison_operator_code := '=';
604: if l_debug_level > 0 then
605: oe_debug_pub.add('pricing attr id :'||
606: gpr_pricing_attr_tbl(K).pricing_attribute_id);
607: oe_debug_pub.add('list line id :'||
608: gpr_pricing_attr_tbl(K).pricing_attr_value_from);
609: end if;
603: gpr_pricing_attr_tbl(K).comparison_operator_code := '=';
604: if l_debug_level > 0 then
605: oe_debug_pub.add('pricing attr id :'||
606: gpr_pricing_attr_tbl(K).pricing_attribute_id);
607: oe_debug_pub.add('list line id :'||
608: gpr_pricing_attr_tbl(K).pricing_attr_value_from);
609: end if;
610: K := ppr_price_list_line_tbl.next(K);
611: END LOOP;
748: lheader_id number;
749: l_list_line_seq NUMBER;
750:
751: --
752: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
753: --
754: BEGIN
755: --begin commented the below if statement for bug 4762658
756: /*IF oe_delayed_requests_pvt.g_delayed_requests(I).param3 IS NULL THEN
761: IF (oe_delayed_requests_pvt.g_delayed_requests(I).param1 IS NULL OR oe_delayed_requests_pvt.g_delayed_requests(I).param1=FND_API.G_MISS_NUM)
762: THEN
763: IF l_debug_level > 0
764: THEN
765: oe_debug_pub.add('Skip for null values');
766: END IF;
767: oe_delayed_requests_pvt.g_delayed_requests.delete(I);
768: GOTO SKIP_LINE1;
769: END IF;
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 :'||
812: gpr_price_list_line_tbl(k).customer_item_id);
813: END IF;
814:
815: END IF;
876: gpr_pricing_attr_tbl(K).pricing_attr_value_from :=
877: ppr_price_list_line_tbl(K).list_line_id;
878: gpr_pricing_attr_tbl(K).comparison_operator_code := '=';
879: if l_debug_level > 0 then
880: oe_debug_pub.add('pricing attr id :'||
881: gpr_pricing_attr_tbl(K).pricing_attribute_id);
882: oe_debug_pub.add('list line id :'||
883: gpr_pricing_attr_tbl(K).pricing_attr_value_from);
884: end if;
878: gpr_pricing_attr_tbl(K).comparison_operator_code := '=';
879: if l_debug_level > 0 then
880: oe_debug_pub.add('pricing attr id :'||
881: gpr_pricing_attr_tbl(K).pricing_attribute_id);
882: oe_debug_pub.add('list line id :'||
883: gpr_pricing_attr_tbl(K).pricing_attr_value_from);
884: end if;
885: K := ppr_price_list_line_tbl.next(K);
886: END LOOP;
971: ppr_qualifiers_val_tbl QP_Qualifier_Rules_Pub.Qualifiers_Val_Tbl_Type;
972: ppr_pricing_attr_tbl QP_PRICE_LIST_PUB.Pricing_Attr_Tbl_Type;
973: ppr_pricing_attr_val_tbl QP_PRICE_LIST_PUB.Pricing_Attr_Val_Tbl_Type;
974: k number := 1;
975: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
976: --
977: BEGIN
978: x_return_status:= FND_API.G_RET_STS_SUCCESS;
979: gpr_price_list_line_tbl(K).list_line_id := oe_delayed_requests_pvt.g_delayed_requests(p_req_ind).Param1 ;
1024:
1025: WHEN FND_API.G_EXC_ERROR THEN
1026:
1027: IF l_debug_level > 0 THEN
1028: OE_DEBUG_PUB.Add('Expected Error in Clear_Blanket_List_line...',4);
1029: END IF;
1030: x_return_status := FND_API.G_RET_STS_ERROR;
1031:
1032:
1032:
1033: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1034:
1035: IF l_debug_level > 0 THEN
1036: OE_DEBUG_PUB.Add('UnExpected Error in Clear_Blanket_list_line...'||sqlerrm,4);
1037: END IF;
1038: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1039:
1040:
1058: , x_return_status OUT NOCOPY VARCHAR2
1059: ) IS
1060: l_dummy VARCHAR2(10);
1061: --
1062: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1063: --
1064: BEGIN
1065:
1066: if l_debug_level > 0 then
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
1405: p_old_header_rec.context IS NULL )))
1406: THEN
1407:
1408:
1409: oe_debug_pub.add('Before calling header_desc_flex',2);
1410: IF OE_ORDER_CACHE.IS_FLEX_ENABLED('OE_BLKT_HEADER_ATTRIBUTES') = 'Y' THEN
1411:
1412: IF NOT OE_VALIDATE.Header_Desc_Flex
1413: (p_context => p_x_header_rec.context
1601: END IF ; -- If flex enabled
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:
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
1644: WHERE (application_id = 660)
1645: AND (descriptive_flexfield_name = l_flex_name);
1646: -- Bug # 5562785}
1647: --
1648: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1649: --
1650: BEGIN
1651:
1652: if l_debug_level > 0 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
1666: p_old_line_rec.accounting_rule_id OR
1667: p_old_line_rec.accounting_rule_id IS NULL )
1668: THEN
1669: if l_debug_level > 0 then
1670: oe_debug_pub.add('Calling OE_VALIDATE for accounting_rule',1);
1671: end if;
1672: IF NOT OE_Validate.Accounting_Rule(p_x_line_rec.accounting_rule_id) THEN
1673: IF p_validation_level = OE_GLOBALS.G_VALID_LEVEL_PARTIAL AND
1674: p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1796: OPEN c_check_context('OE_BLKT_LINE_ATTRIBUTES');
1797: FETCH c_check_context INTO l_context_required_flag,l_default_context_field_name;
1798: CLOSE c_check_context;
1799:
1800: oe_debug_pub.add('Maitrayee: Entering the code change in Validate_Attributes');
1801: -- Skip the Validation if not changes are made in the DFF from the UI.
1802:
1803: IF l_context_required_flag = 'Y' AND ( p_x_line_rec.context IS NULL OR p_x_line_rec.context = FND_API.G_MISS_CHAR ) AND (OE_GLOBALS.G_UI_FLAG) THEN
1804:
1803: IF l_context_required_flag = 'Y' AND ( p_x_line_rec.context IS NULL OR p_x_line_rec.context = FND_API.G_MISS_CHAR ) AND (OE_GLOBALS.G_UI_FLAG) THEN
1804:
1805: l_validate_line := 'N';
1806: IF l_debug_level > 0 then
1807: oe_debug_pub.add('Skipping Validation');
1808: END IF;
1809:
1810: ELSIF l_context_required_flag = 'Y' AND ( p_x_line_rec.context IS NULL OR p_x_line_rec.context = FND_API.G_MISS_CHAR ) AND NOT (OE_GLOBALS.G_UI_FLAG) THEN
1811:
1815: FND_MESSAGE.SET_NAME('FND', 'ONT_BLKT_CONTEXT_NOT_FOUND');
1816:
1817: OE_MSG_PUB.ADD;
1818: IF l_debug_level > 0 THEN
1819: oe_debug_pub.add( 'Context not set for OE_BLKT_LINE_ATTRIBUTES DFF ' ) ;
1820: END IF;
1821: RAISE FND_API.G_EXC_ERROR;
1822: ELSE
1823:
1825:
1826: l_validate_line := 'Y';
1827:
1828: IF l_debug_level > 0 then
1829: oe_debug_pub.add('Validating the Flex Field');
1830: END IF;
1831:
1832: END IF;
1833:
1922: p_old_line_rec.context OR
1923: p_old_line_rec.context IS NULL )))
1924: THEN
1925:
1926: oe_debug_pub.add('Before calling line_desc_flex',2);
1927: IF Oe_Order_Cache.IS_FLEX_ENABLED('OE_BLKT_LINE_ATTRIBUTES') = 'Y' THEN
1928:
1929: IF NOT OE_VALIDATE.Line_Desc_Flex
1930: (p_context => p_x_line_rec.context
2116: -- end of assignments, bug 2511313
2117: END IF; -- Flex Validation successfull
2118: END IF; -- Is flex enabled
2119:
2120: oe_debug_pub.add('After line_desc_flex ' || x_return_status,2);
2121:
2122: END IF; -- For Additional Line Information
2123:
2124: END IF; -- 5562785
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:
2182: ORDER BY 1;
2183: /* end of code added for 2219230 */
2184:
2185: --
2186: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2187: --
2188: BEGIN
2189: if l_debug_level > 0 then
2190: oe_debug_pub.add('In validate Item Fields', 1);
2186: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2187: --
2188: BEGIN
2189: if l_debug_level > 0 then
2190: oe_debug_pub.add('In validate Item Fields', 1);
2191:
2192: oe_debug_pub.add('item identifier type :'||p_item_identifier_type);
2193: oe_debug_pub.add('inventory item id :'||p_inventory_item_id);
2194: oe_debug_pub.add('ordered item id :'||p_ordered_item_id);
2188: BEGIN
2189: if l_debug_level > 0 then
2190: oe_debug_pub.add('In validate Item Fields', 1);
2191:
2192: oe_debug_pub.add('item identifier type :'||p_item_identifier_type);
2193: oe_debug_pub.add('inventory item id :'||p_inventory_item_id);
2194: oe_debug_pub.add('ordered item id :'||p_ordered_item_id);
2195: oe_debug_pub.add('ordered item :'||p_ordered_item);
2196: oe_debug_pub.add('sold to org id :'||p_sold_to_org_id);
2189: if l_debug_level > 0 then
2190: oe_debug_pub.add('In validate Item Fields', 1);
2191:
2192: oe_debug_pub.add('item identifier type :'||p_item_identifier_type);
2193: oe_debug_pub.add('inventory item id :'||p_inventory_item_id);
2194: oe_debug_pub.add('ordered item id :'||p_ordered_item_id);
2195: oe_debug_pub.add('ordered item :'||p_ordered_item);
2196: oe_debug_pub.add('sold to org id :'||p_sold_to_org_id);
2197: end if;
2190: oe_debug_pub.add('In validate Item Fields', 1);
2191:
2192: oe_debug_pub.add('item identifier type :'||p_item_identifier_type);
2193: oe_debug_pub.add('inventory item id :'||p_inventory_item_id);
2194: oe_debug_pub.add('ordered item id :'||p_ordered_item_id);
2195: oe_debug_pub.add('ordered item :'||p_ordered_item);
2196: oe_debug_pub.add('sold to org id :'||p_sold_to_org_id);
2197: end if;
2198: --perform validation of inventory_item_id based on context
2191:
2192: oe_debug_pub.add('item identifier type :'||p_item_identifier_type);
2193: oe_debug_pub.add('inventory item id :'||p_inventory_item_id);
2194: oe_debug_pub.add('ordered item id :'||p_ordered_item_id);
2195: oe_debug_pub.add('ordered item :'||p_ordered_item);
2196: oe_debug_pub.add('sold to org id :'||p_sold_to_org_id);
2197: end if;
2198: --perform validation of inventory_item_id based on context
2199: IF p_item_identifier_type = 'INT' THEN --validate inventory_item_id
2192: oe_debug_pub.add('item identifier type :'||p_item_identifier_type);
2193: oe_debug_pub.add('inventory item id :'||p_inventory_item_id);
2194: oe_debug_pub.add('ordered item id :'||p_ordered_item_id);
2195: oe_debug_pub.add('ordered item :'||p_ordered_item);
2196: oe_debug_pub.add('sold to org id :'||p_sold_to_org_id);
2197: end if;
2198: --perform validation of inventory_item_id based on context
2199: IF p_item_identifier_type = 'INT' THEN --validate inventory_item_id
2200: if l_debug_level > 0 then
2197: end if;
2198: --perform validation of inventory_item_id based on context
2199: IF p_item_identifier_type = 'INT' THEN --validate inventory_item_id
2200: if l_debug_level > 0 then
2201: oe_debug_pub.add('Blanket In validate INT');
2202: end if;
2203: SELECT 'valid'
2204: INTO l_dummy
2205: FROM mtl_system_items_b
2208: AND customer_order_enabled_flag = 'Y';
2209:
2210: ELSIF p_item_identifier_type = 'CUST' THEN
2211: if l_debug_level > 0 then
2212: oe_debug_pub.add('Blanket In validate CUST',1);
2213: end if;
2214: SELECT 'valid'
2215: INTO l_dummy
2216: FROM mtl_customer_items citems
2227: AND cxref.inactive_flag = 'N';
2228:
2229: ELSIF p_item_identifier_type = 'CAT' THEN
2230: if l_debug_level > 0 then
2231: oe_debug_pub.add('Blanket In validate CAT');
2232: end if;
2233: SELECT 'VALID'
2234: INTO l_dummy
2235: FROM MTL_CATEGORIES_VL
2237: AND ENABLED_FLAG = 'Y';
2238:
2239: ELSE
2240: if l_debug_level > 0 then
2241: oe_debug_pub.add('Blanket In validate generic');
2242: end if;
2243: --code taken from OE_validate_line.validate_item_fields
2244: /* SELECT replaced for with the following for 2219230 */
2245: if l_debug_level > 0 then
2242: end if;
2243: --code taken from OE_validate_line.validate_item_fields
2244: /* SELECT replaced for with the following for 2219230 */
2245: if l_debug_level > 0 then
2246: oe_debug_pub.add('Validating generic item, item_val_org:'||to_char(item_val_org),5);
2247: end if;
2248: OPEN xref;
2249: FETCH xref INTO l_org_flag;
2250: IF xref%NOTFOUND OR l_org_flag <> 1 THEN
2248: OPEN xref;
2249: FETCH xref INTO l_org_flag;
2250: IF xref%NOTFOUND OR l_org_flag <> 1 THEN
2251: if l_debug_level > 0 then
2252: oe_debug_pub.add('Blanket Invalid Generic Item', 1);
2253: end if;
2254: CLOSE xref;
2255: END IF;
2256: CLOSE xref;
2261:
2262: EXCEPTION
2263: WHEN NO_DATA_FOUND THEN
2264: if l_debug_level > 0 then
2265: oe_debug_pub.add('Validate Item based on context: No data found',1);
2266: end if;
2267: RETURN FALSE;
2268: WHEN OTHERS THEN
2269: if l_debug_level > 0 then
2266: end if;
2267: RETURN FALSE;
2268: WHEN OTHERS THEN
2269: if l_debug_level > 0 then
2270: oe_debug_pub.add('Validate_Item_Fields: When Others',1);
2271: end if;
2272: RETURN FALSE;
2273: END Validate_Item_Fields;
2274:
2281: RETURN BOOLEAN
2282: IS
2283: l_rule_type VARCHAR2(10);
2284: l_item_org NUMBER := to_number(OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID'));
2285: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2286: l_service_item_flag VARCHAR2(1);
2287: l_bom_item_type NUMBER;
2288: l_dummy VARCHAR2(25);
2289:
2288: l_dummy VARCHAR2(25);
2289:
2290: BEGIN
2291: if l_debug_level > 0 then
2292: oe_debug_pub.add('In validate accounting rule', 1);
2293: oe_debug_pub.add('inventory item id :'||p_inventory_item_id);
2294: oe_debug_pub.add('l_item_org :'||l_item_org);
2295: end if;
2296: --Bug 5169363
2289:
2290: BEGIN
2291: if l_debug_level > 0 then
2292: oe_debug_pub.add('In validate accounting rule', 1);
2293: oe_debug_pub.add('inventory item id :'||p_inventory_item_id);
2294: oe_debug_pub.add('l_item_org :'||l_item_org);
2295: end if;
2296: --Bug 5169363
2297: --bug5220335 moved the query under BEGIN-EXCEPTION-END
2290: BEGIN
2291: if l_debug_level > 0 then
2292: oe_debug_pub.add('In validate accounting rule', 1);
2293: oe_debug_pub.add('inventory item id :'||p_inventory_item_id);
2294: oe_debug_pub.add('l_item_org :'||l_item_org);
2295: end if;
2296: --Bug 5169363
2297: --bug5220335 moved the query under BEGIN-EXCEPTION-END
2298: BEGIN
2320: IF NOT (l_bom_item_type = 4 and l_service_item_flag = 'Y') THEN -- not service
2321: IF p_accounting_rule_id <> FND_API.G_MISS_NUM AND
2322: p_accounting_rule_id IS NOT NULL THEN
2323: IF l_debug_level > 0 THEN
2324: oe_debug_pub.add('Getting accounting rule type');
2325: END IF;
2326: SELECT type
2327: INTO l_rule_type
2328: FROM ra_rules
2327: INTO l_rule_type
2328: FROM ra_rules
2329: WHERE rule_id = p_accounting_rule_id;
2330: IF l_debug_level > 0 THEN
2331: oe_debug_pub.add('Rule Type is :'||l_rule_type);
2332: END IF;
2333: IF l_rule_type = 'PP_DR_ALL' or l_rule_type = 'PP_DR_PP' THEN
2334: RETURN FALSE;
2335: END IF; --End of rule type
2342:
2343: EXCEPTION
2344: WHEN OTHERS THEN
2345: if l_debug_level > 0 then
2346: oe_debug_pub.add('Validate_Accounting Rule: When Others',1);
2347: oe_debug_pub.add('Error message...'||sqlerrm);
2348: end if;
2349: RETURN FALSE;
2350: END Validate_Accounting_Rule;
2343: EXCEPTION
2344: WHEN OTHERS THEN
2345: if l_debug_level > 0 then
2346: oe_debug_pub.add('Validate_Accounting Rule: When Others',1);
2347: oe_debug_pub.add('Error message...'||sqlerrm);
2348: end if;
2349: RETURN FALSE;
2350: END Validate_Accounting_Rule;
2351: --bug 4893057
2363: l_site_use_code VARCHAR2(30);
2364: l_return_status varchar2(1);
2365:
2366: --
2367: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2368: --
2369: l_list_line_exists VARCHAR2(1) := 'N';
2370: l_temp varchar2(100);
2371: BEGIN
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);
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);
2383: oe_debug_pub.add('Header end date : '||g_header_rec.end_date_active);
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);
2383: oe_debug_pub.add('Header end date : '||g_header_rec.end_date_active);
2384: end if;
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);
2383: oe_debug_pub.add('Header end date : '||g_header_rec.end_date_active);
2384: end if;
2385:
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);
2383: oe_debug_pub.add('Header end date : '||g_header_rec.end_date_active);
2384: end if;
2385:
2386: -- Load old line rec if not passed
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);
2383: oe_debug_pub.add('Header end date : '||g_header_rec.end_date_active);
2384: end if;
2385:
2386: -- Load old line rec if not passed
2387: IF p_line_rec.operation = oe_globals.g_opr_update THEN
2436: -- Check required attributes.
2437: -----------------------------------------------------------
2438:
2439: if l_debug_level > 0 then
2440: oe_debug_pub.add('Blanket In validate entity 1');
2441: oe_debug_pub.add('1 '||x_return_status, 1);
2442: end if;
2443:
2444: IF p_line_rec.line_id IS NULL
2437: -----------------------------------------------------------
2438:
2439: if l_debug_level > 0 then
2440: oe_debug_pub.add('Blanket In validate entity 1');
2441: oe_debug_pub.add('1 '||x_return_status, 1);
2442: end if;
2443:
2444: IF p_line_rec.line_id IS NULL
2445: THEN
2495:
2496: END IF;
2497:
2498: if l_debug_level > 0 then
2499: oe_debug_pub.add('Blanket In validate entity 2');
2500: end if;
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
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
2615:
2616: END IF;
2617:
2618: if l_debug_level > 0 then
2619: oe_debug_pub.add('before logging request for item uniqueness');
2620: end if;
2621:
2622: --validate item uniqueness
2623: OE_Delayed_Requests_Pvt.Log_Request(p_Entity_Code =>
2654: -- ER 5743580
2655: IF ( NOT Validate_Ship_To_Org(p_line_rec.ship_to_org_id,
2656: p_line_rec.sold_to_org_id )) THEN
2657: if l_debug_level > 0 then
2658: oe_debug_pub.add ('Blanket In: No data found',2);
2659: end if;
2660: x_return_status := FND_API.G_RET_STS_ERROR;
2661: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2662: FND_MESSAGE.SET_TOKEN('ATTRIBUTE'
2666: END IF; -- Ship to
2667:
2668: -- Deliver to Org id depends on sold to org.
2669: if l_debug_level > 0 then
2670: oe_debug_pub.add('Validating deliver_to_org_id :'|| to_char(p_line_rec.deliver_to_org_id),2);
2671: oe_debug_pub.add(' Customer Relations :'|| g_customer_relations, 1);
2672: end if;
2673: IF p_line_rec.deliver_to_org_id IS NOT NULL AND
2674: ( NOT OE_GLOBALS.EQUAL(p_line_rec.deliver_to_org_id,l_old_line_rec.deliver_to_org_id) OR
2667:
2668: -- Deliver to Org id depends on sold to org.
2669: if l_debug_level > 0 then
2670: oe_debug_pub.add('Validating deliver_to_org_id :'|| to_char(p_line_rec.deliver_to_org_id),2);
2671: oe_debug_pub.add(' Customer Relations :'|| g_customer_relations, 1);
2672: end if;
2673: IF p_line_rec.deliver_to_org_id IS NOT NULL AND
2674: ( NOT OE_GLOBALS.EQUAL(p_line_rec.deliver_to_org_id,l_old_line_rec.deliver_to_org_id) OR
2675: NOT OE_GLOBALS.EQUAL(p_line_rec.sold_to_org_id ,l_old_line_rec.sold_to_org_id)) THEN
2702: END IF;
2703: END IF; -- Invoice to org
2704:
2705: if l_debug_level > 0 then
2706: oe_debug_pub.add('Blanket In validate entity 3');
2707: end if;
2708:
2709:
2710: -- Date Validations
2716: AND p_line_rec.operation = OE_GLOBALS.G_OPR_CREATE)
2717: then
2718: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_INVALID_DATE_RANGE');
2719: OE_MSG_PUB.ADD;
2720: oe_debug_pub.add('1: Not Setting Error',1);
2721:
2722: else
2723: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_INVALID_DATE_RANGE');
2724: OE_MSG_PUB.ADD;
2721:
2722: else
2723: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_INVALID_DATE_RANGE');
2724: OE_MSG_PUB.ADD;
2725: oe_debug_pub.add('1: Setting Error',1);
2726: x_return_status := FND_API.G_RET_STS_ERROR;
2727: end if;
2728: --Changes made for Bug No 5528599
2729: end if;
2749: end if;
2750: end if;
2751:
2752: if l_debug_level > 0 then
2753: oe_debug_pub.add('Blanket In validate entity 4, status :'||
2754: x_return_status);
2755: end if;
2756:
2757: -- pricing uom is required if it is a blanket price list
2862:
2863: IF p_line_rec.operation = oe_globals.g_opr_update THEN
2864:
2865: if l_debug_level > 0 then
2866: oe_debug_pub.add('Blanket In validate entity 4: update');
2867: end if;
2868:
2869: --not allowed to change any attributes on a previously closed blanket
2870: IF p_line_rec.end_date_active < trunc(sysdate) and
2886: IF nvl(p_line_rec.released_amount,0) < p_line_rec.blanket_min_amount THEN
2887: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_CLOSE_MIN_VALUES');
2888: OE_MSG_PUB.ADD;
2889: if l_debug_level > 0 then
2890: oe_debug_pub.add('Blanket line close min amount ');
2891: end if;
2892:
2893: ELSIF nvl(p_line_rec.released_quantity,0) < p_line_rec.blanket_min_quantity THEN
2894: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_CLOSE_MIN_VALUES');
2893: ELSIF nvl(p_line_rec.released_quantity,0) < p_line_rec.blanket_min_quantity THEN
2894: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_CLOSE_MIN_VALUES');
2895: OE_MSG_PUB.ADD;
2896: if l_debug_level > 0 then
2897: oe_debug_pub.add('Blanket line close min quantity ');
2898: end if;
2899: END IF;
2900: END IF;
2901:
2967: -- always post error even if user was updating some other field
2968: -- on the blanket line.
2969: -- Therefore commenting out NOCOPY {file.sql.39 change} the check, logging of price list
2970: -- line creation is anyway restricted to line CREATE operation.
2971: oe_debug_pub.add('old pricing uom :'||l_old_line_rec.pricing_uom);
2972: oe_debug_pub.add('new pricing uom :'||p_line_rec.pricing_uom);
2973: --pricing uom not allowed to change if blanket price list
2974: if NOT OE_GLOBALS.EQUAL(p_line_rec.pricing_uom,
2975: l_old_line_rec.pricing_uom) THEN
2968: -- on the blanket line.
2969: -- Therefore commenting out NOCOPY {file.sql.39 change} the check, logging of price list
2970: -- line creation is anyway restricted to line CREATE operation.
2971: oe_debug_pub.add('old pricing uom :'||l_old_line_rec.pricing_uom);
2972: oe_debug_pub.add('new pricing uom :'||p_line_rec.pricing_uom);
2973: --pricing uom not allowed to change if blanket price list
2974: if NOT OE_GLOBALS.EQUAL(p_line_rec.pricing_uom,
2975: l_old_line_rec.pricing_uom) THEN
2976: if (g_new_price_list) THEN
2992: end if;
2993: */
2994:
2995: if l_debug_level > 0 then
2996: oe_debug_pub.add('Blanket In validate entity update 1');
2997: end if;
2998: if NOT OE_GLOBALS.EQUAL(p_line_rec.released_amount,
2999: l_old_line_rec.released_amount) THEN
3000: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_UPDATE_LINE_ATTRIBUTE');
3042: OE_MSG_PUB.ADD;
3043: x_return_status := FND_API.G_RET_STS_ERROR;
3044: end if;
3045: if l_debug_level > 0 then
3046: oe_debug_pub.add('Blanket In validate entity update 2');
3047: end if;
3048:
3049: END IF; --if g_opr_update
3050:
3057: if (NOT OE_GLOBALS.EQUAL(trunc(p_line_rec.end_date_active),
3058: trunc(l_old_line_rec.end_date_active))
3059: AND trunc(p_line_rec.end_date_active) < trunc(sysdate))
3060: THEN
3061: oe_debug_pub.add('2:source_document_type_id :'|| p_line_rec.source_document_type_id,1);
3062: oe_debug_pub.add('2:source_document_line_id :'|| p_line_rec.source_document_line_id,1);
3063:
3064: if ( nvl(p_line_rec.source_document_type_id,0) = 2 --bug#5528507
3065: AND p_line_rec.operation = OE_GLOBALS.G_OPR_CREATE)
3058: trunc(l_old_line_rec.end_date_active))
3059: AND trunc(p_line_rec.end_date_active) < trunc(sysdate))
3060: THEN
3061: oe_debug_pub.add('2:source_document_type_id :'|| p_line_rec.source_document_type_id,1);
3062: oe_debug_pub.add('2:source_document_line_id :'|| p_line_rec.source_document_line_id,1);
3063:
3064: if ( nvl(p_line_rec.source_document_type_id,0) = 2 --bug#5528507
3065: AND p_line_rec.operation = OE_GLOBALS.G_OPR_CREATE)
3066: then
3065: AND p_line_rec.operation = OE_GLOBALS.G_OPR_CREATE)
3066: then
3067: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_INVALID_DATE_RANGE');
3068: OE_MSG_PUB.ADD;
3069: oe_debug_pub.add('2: Not Setting Error',1);
3070:
3071: else
3072: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_INVALID_DATE_RANGE');
3073: OE_MSG_PUB.ADD;
3071: else
3072: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_INVALID_DATE_RANGE');
3073: OE_MSG_PUB.ADD;
3074: x_return_status := FND_API.G_RET_STS_ERROR;
3075: oe_debug_pub.add('2: Setting Error',1);
3076: end if;
3077: end if;
3078: --Changes made for Bug No 5528599
3079: -- End Expiration Date < sysdate check
3097: IF (g_new_price_list AND p_line_rec.price_list_id IS NULL)
3098: THEN
3099:
3100: if l_debug_level > 0 then
3101: oe_debug_pub.add('log CREATE_BLANKET_PRICE_LIST');
3102: end if;
3103:
3104: --for bug 3229225.Commented out NOCOPY /* file.sql.39 change */ the If condition and added modified condition
3105: -- IF p_line_rec.unit_list_price IS NOT NULL
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);
3149: end if;
3150:
3151:
3152: --for bug 3229225.Commented out NOCOPY /* file.sql.39 change */ the If condition and added modified condition
3179:
3180: if l_list_line_exists = 'N' THEN
3181:
3182: if l_debug_level > 0 then
3183: oe_debug_pub.add('log ADD_BLANKET_PRICE_LIST_LINE');
3184: end if;
3185:
3186: oe_delayed_requests_pvt.Log_request(p_Entity_Code =>
3187: OE_BLANKET_pub.G_ENTITY_BLANKET_LINE,
3227: ,p_blanket_header_id => p_line_rec.header_id))
3228: AND (p_line_rec.qp_list_line_id is not null))
3229: THEN
3230: if l_debug_level > 0 then
3231: oe_debug_pub.add('qp list line id :'||p_line_rec.qp_list_line_id);
3232: oe_debug_pub.add('Log delayed request: CLEAR_BLANKET_PRICE_LIST_LINE');
3233: end if;
3234:
3235: oe_delayed_requests_pvt.Log_request(p_Entity_Code =>
3228: AND (p_line_rec.qp_list_line_id is not null))
3229: THEN
3230: if l_debug_level > 0 then
3231: oe_debug_pub.add('qp list line id :'||p_line_rec.qp_list_line_id);
3232: oe_debug_pub.add('Log delayed request: CLEAR_BLANKET_PRICE_LIST_LINE');
3233: end if;
3234:
3235: oe_delayed_requests_pvt.Log_request(p_Entity_Code =>
3236: OE_BLANKET_pub.G_ENTITY_BLANKET_LINE,
3258: THEN
3259:
3260: IF p_line_rec.modifier_list_line_id IS NOT NULL
3261: THEN
3262: oe_debug_pub.add('modifier list line id is not null');
3263: fnd_message.set_name('ONT','OE_BLKT_CANNOT_UPDATE_DIS');
3264: oe_msg_pub.add;
3265: x_return_status := FND_API.G_RET_STS_ERROR;
3266: ELSIF g_header_rec.new_modifier_list_name IS NULL
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:
3342: l_list_header_id NUMBER;
3343: l_new_pl_name VARCHAR2(240);
3344: l_site_use_code VARCHAR2(30);
3345: --
3346: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3347: --
3348: BEGIN
3349: x_return_status := FND_API.G_RET_STS_SUCCESS;
3350:
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;
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;
3357:
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;
3357:
3358: IF p_header_rec.operation = oe_globals.g_opr_update THEN
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;
3357:
3358: IF p_header_rec.operation = oe_globals.g_opr_update THEN
3359: if l_old_header_rec.header_id is null THEN
3491: AND p_header_rec.operation = OE_GLOBALS.G_OPR_CREATE
3492: then
3493: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_INVALID_DATE_RANGE');
3494: OE_MSG_PUB.ADD;
3495: oe_debug_pub.add('3: Not Setting Error',1);
3496:
3497: else
3498: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_INVALID_DATE_RANGE');
3499: OE_MSG_PUB.ADD;
3497: else
3498: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_INVALID_DATE_RANGE');
3499: OE_MSG_PUB.ADD;
3500: x_return_status := FND_API.G_RET_STS_ERROR;
3501: oe_debug_pub.add('3: Setting Error',1);
3502: end if;
3503: end if;
3504: --Changes made for Bug No 5528599 start
3505: -- End Expiration Date < sysdate check
3511: -- ER 5743580
3512: IF ( NOT Validate_Ship_To_Org(p_header_rec.ship_to_org_id,
3513: p_header_rec.sold_to_org_id )) THEN
3514: if l_debug_level > 0 then
3515: oe_debug_pub.add ('Blanket In: No data found',2);
3516: end if;
3517: x_return_status := FND_API.G_RET_STS_ERROR;
3518: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
3519: FND_MESSAGE.SET_TOKEN('ATTRIBUTE'
3581:
3582: -- hashraf end of pack J
3583:
3584: if l_debug_level > 0 then
3585: oe_debug_pub.add('Validating deliver_to_org_id :'|| to_char(p_header_rec.deliver_to_org_id),2);
3586: oe_debug_pub.add(' Customer Relations :'|| g_customer_relations, 1);
3587: end if;
3588: IF p_header_rec.deliver_to_org_id IS NOT NULL AND
3589: ( NOT OE_GLOBALS.EQUAL(p_header_rec.deliver_to_org_id,l_old_header_rec.deliver_to_org_id) OR
3582: -- hashraf end of pack J
3583:
3584: if l_debug_level > 0 then
3585: oe_debug_pub.add('Validating deliver_to_org_id :'|| to_char(p_header_rec.deliver_to_org_id),2);
3586: oe_debug_pub.add(' Customer Relations :'|| g_customer_relations, 1);
3587: end if;
3588: IF p_header_rec.deliver_to_org_id IS NOT NULL AND
3589: ( NOT OE_GLOBALS.EQUAL(p_header_rec.deliver_to_org_id,l_old_header_rec.deliver_to_org_id) OR
3590: NOT OE_GLOBALS.EQUAL(p_header_rec.sold_to_org_id ,l_old_header_rec.sold_to_org_id)) THEN
3663: IF p_header_rec.price_list_id IS NULL AND
3664: p_header_rec.price_list_name IS NOT NULL THEN
3665: BEGIN
3666: if l_debug_level > 0 then
3667: oe_debug_pub.add('Derive price_list_id',1);
3668: end if;
3669: --
3670: SELECT list_header_id
3671: INTO p_header_rec.price_list_id
3678: --
3679: EXCEPTION
3680: WHEN NO_DATA_FOUND THEN
3681: if l_debug_level > 0 then
3682: oe_debug_pub.add('New price list needs to be created',1);
3683: end if;
3684: g_new_price_list := true;
3685: END;
3686: END IF;
3691: -- price list and existing price list ID will store the standard price
3692: -- list.
3693:
3694: if l_debug_level > 0 then
3695: oe_debug_pub.add('pl name :'||p_header_rec.new_price_list_name);
3696: oe_debug_pub.add('old pl name :'||p_old_header_rec.new_price_list_name);
3697: oe_debug_pub.add('pl id :'||p_header_rec.new_price_list_id);
3698: oe_debug_pub.add('old pl id :'||p_old_header_rec.new_price_list_id);
3699: oe_debug_pub.add('ml name :'||p_header_rec.new_modifier_list_name);
3692: -- list.
3693:
3694: if l_debug_level > 0 then
3695: oe_debug_pub.add('pl name :'||p_header_rec.new_price_list_name);
3696: oe_debug_pub.add('old pl name :'||p_old_header_rec.new_price_list_name);
3697: oe_debug_pub.add('pl id :'||p_header_rec.new_price_list_id);
3698: oe_debug_pub.add('old pl id :'||p_old_header_rec.new_price_list_id);
3699: oe_debug_pub.add('ml name :'||p_header_rec.new_modifier_list_name);
3700: oe_debug_pub.add('old ml name :'||p_old_header_rec.new_modifier_list_name);
3693:
3694: if l_debug_level > 0 then
3695: oe_debug_pub.add('pl name :'||p_header_rec.new_price_list_name);
3696: oe_debug_pub.add('old pl name :'||p_old_header_rec.new_price_list_name);
3697: oe_debug_pub.add('pl id :'||p_header_rec.new_price_list_id);
3698: oe_debug_pub.add('old pl id :'||p_old_header_rec.new_price_list_id);
3699: oe_debug_pub.add('ml name :'||p_header_rec.new_modifier_list_name);
3700: oe_debug_pub.add('old ml name :'||p_old_header_rec.new_modifier_list_name);
3701: oe_debug_pub.add('ml id :'||p_header_rec.new_modifier_list_id);
3694: if l_debug_level > 0 then
3695: oe_debug_pub.add('pl name :'||p_header_rec.new_price_list_name);
3696: oe_debug_pub.add('old pl name :'||p_old_header_rec.new_price_list_name);
3697: oe_debug_pub.add('pl id :'||p_header_rec.new_price_list_id);
3698: oe_debug_pub.add('old pl id :'||p_old_header_rec.new_price_list_id);
3699: oe_debug_pub.add('ml name :'||p_header_rec.new_modifier_list_name);
3700: oe_debug_pub.add('old ml name :'||p_old_header_rec.new_modifier_list_name);
3701: oe_debug_pub.add('ml id :'||p_header_rec.new_modifier_list_id);
3702: oe_debug_pub.add('old ml id :'||p_old_header_rec.new_modifier_list_id);
3695: oe_debug_pub.add('pl name :'||p_header_rec.new_price_list_name);
3696: oe_debug_pub.add('old pl name :'||p_old_header_rec.new_price_list_name);
3697: oe_debug_pub.add('pl id :'||p_header_rec.new_price_list_id);
3698: oe_debug_pub.add('old pl id :'||p_old_header_rec.new_price_list_id);
3699: oe_debug_pub.add('ml name :'||p_header_rec.new_modifier_list_name);
3700: oe_debug_pub.add('old ml name :'||p_old_header_rec.new_modifier_list_name);
3701: oe_debug_pub.add('ml id :'||p_header_rec.new_modifier_list_id);
3702: oe_debug_pub.add('old ml id :'||p_old_header_rec.new_modifier_list_id);
3703: end if;
3696: oe_debug_pub.add('old pl name :'||p_old_header_rec.new_price_list_name);
3697: oe_debug_pub.add('pl id :'||p_header_rec.new_price_list_id);
3698: oe_debug_pub.add('old pl id :'||p_old_header_rec.new_price_list_id);
3699: oe_debug_pub.add('ml name :'||p_header_rec.new_modifier_list_name);
3700: oe_debug_pub.add('old ml name :'||p_old_header_rec.new_modifier_list_name);
3701: oe_debug_pub.add('ml id :'||p_header_rec.new_modifier_list_id);
3702: oe_debug_pub.add('old ml id :'||p_old_header_rec.new_modifier_list_id);
3703: end if;
3704:
3697: oe_debug_pub.add('pl id :'||p_header_rec.new_price_list_id);
3698: oe_debug_pub.add('old pl id :'||p_old_header_rec.new_price_list_id);
3699: oe_debug_pub.add('ml name :'||p_header_rec.new_modifier_list_name);
3700: oe_debug_pub.add('old ml name :'||p_old_header_rec.new_modifier_list_name);
3701: oe_debug_pub.add('ml id :'||p_header_rec.new_modifier_list_id);
3702: oe_debug_pub.add('old ml id :'||p_old_header_rec.new_modifier_list_id);
3703: end if;
3704:
3705: IF NOT OE_GLOBALS.EQUAL(p_header_rec.new_price_list_id,
3698: oe_debug_pub.add('old pl id :'||p_old_header_rec.new_price_list_id);
3699: oe_debug_pub.add('ml name :'||p_header_rec.new_modifier_list_name);
3700: oe_debug_pub.add('old ml name :'||p_old_header_rec.new_modifier_list_name);
3701: oe_debug_pub.add('ml id :'||p_header_rec.new_modifier_list_id);
3702: oe_debug_pub.add('old ml id :'||p_old_header_rec.new_modifier_list_id);
3703: end if;
3704:
3705: IF NOT OE_GLOBALS.EQUAL(p_header_rec.new_price_list_id,
3706: p_old_header_rec.new_price_list_id)
3757: ,p_old_header_rec.new_modifier_list_name
3758: )
3759: THEN
3760:
3761: oe_debug_pub.add('check if ml exists');
3762:
3763: BEGIN
3764:
3765: -- Check if name already exists
3823: IF NOT OE_GLOBALS.Equal(p_header_rec.end_date_active, l_old_header_rec.end_date_active) AND
3824: p_header_rec.end_date_active <= trunc(sysdate) AND
3825: nvl(p_header_rec.released_amount,0) < p_header_rec.blanket_min_amount THEN
3826: if l_debug_level > 0 then
3827: oe_debug_pub.add('Blanket header close min amount ');
3828: end if;
3829: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_CLOSE_MIN_VALUES');
3830: OE_MSG_PUB.ADD;
3831: END IF;
4052: FROM OE_BLANKET_HEADERS_ALL
4053: WHERE HEADER_ID = p_header_rec.header_id;
4054:
4055: if l_debug_level > 0 then
4056: oe_debug_pub.add('new version :'||p_header_rec.version_number);
4057: oe_debug_pub.add('old version :'||l_old_header_rec.version_number);
4058: oe_debug_pub.add('DB version :'||l_db_version_number);
4059: end if;
4060:
4053: WHERE HEADER_ID = p_header_rec.header_id;
4054:
4055: if l_debug_level > 0 then
4056: oe_debug_pub.add('new version :'||p_header_rec.version_number);
4057: oe_debug_pub.add('old version :'||l_old_header_rec.version_number);
4058: oe_debug_pub.add('DB version :'||l_db_version_number);
4059: end if;
4060:
4061: IF p_header_rec.version_number
4054:
4055: if l_debug_level > 0 then
4056: oe_debug_pub.add('new version :'||p_header_rec.version_number);
4057: oe_debug_pub.add('old version :'||l_old_header_rec.version_number);
4058: oe_debug_pub.add('DB version :'||l_db_version_number);
4059: end if;
4060:
4061: IF p_header_rec.version_number
4062: <= l_old_header_rec.version_number
4172: END IF; -- For bug #4447494
4173:
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
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
4243: l_org_id NUMBER;
4244: l_upgraded_flag varchar2(1) ;
4245: l_lock_control NUMBER := 1;
4246: --
4247: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4248: --
4249: BEGIN
4250:
4251: x_return_status := FND_API.G_RET_STS_SUCCESS;
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:
4494: )
4495: IS
4496: l_return_status VARCHAR2(1);
4497: --
4498: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4499: --
4500: BEGIN
4501:
4502: x_return_status := FND_API.G_RET_STS_SUCCESS;
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:
4651:
4652: IS
4653: --
4654: l_transaction_phase_code VARCHAR2(30);
4655: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4656: l_return_status VARCHAR2(1);
4657: -- added for delete articles
4658: l_msg_count NUMBER;
4659: l_msg_data VARCHAR2(2000);
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
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
4803: l_lock_control NUMBER:= 1;
4804: l_index NUMBER;
4805: l_return_status varchar2(1);
4806: --
4807: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4808: --
4809: BEGIN
4810:
4811: x_return_status := FND_API.G_RET_STS_SUCCESS;
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:
5061: , x_return_status OUT NOCOPY VARCHAR2)
5062: IS
5063: l_return_status VARCHAR2(1);
5064: --
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);
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:
5213: IS
5214: l_header_id NUMBER := g_header_rec.header_id;
5215: l_return_status varchar2(1);
5216: --
5217: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5218: --
5219: BEGIN
5220: -- hashraf ... start of pack J
5221: x_return_status := FND_API.G_RET_STS_SUCCESS;
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
5509: l_org_id NUMBER;
5510: l_current_version_number NUMBER := NULL;
5511:
5512: --
5513: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5514: --
5515: BEGIN
5516:
5517: x_return_status := FND_API.G_RET_STS_SUCCESS;
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:
5976: AND (PHASE_CHANGE_FLAG = p_phase_change_flag
5977: OR (nvl(p_phase_change_flag, 'NULL') <> 'Y'));
5978:
5979: --
5980: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5981: --
5982: BEGIN
5983:
5984: x_return_status := FND_API.G_RET_STS_SUCCESS;
6298:
6299:
6300: -- Return fetched table
6301: if l_debug_level > 0 then
6302: oe_debug_pub.add('Exiting OE_LINE_UTIL.QUERY_ROWS', 1);
6303: end if;
6304:
6305: EXCEPTION
6306:
6339: l_return_status varchar2(1);
6340: l_version_number NUMBER := p_version_number;
6341: l_current_version_number NUMBER;
6342: --
6343: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6344: --
6345: BEGIN
6346:
6347: x_return_status := FND_API.G_RET_STS_SUCCESS;
6393: IS
6394: l_return_status varchar2(1);
6395: l_line_tbl OE_Blanket_PUB.Line_Tbl_Type;
6396: --
6397: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6398: --
6399: BEGIN
6400:
6401: Query_Lines
6422: )
6423: IS
6424: l_return_status VARCHAR2(1);
6425: --
6426: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6427: --
6428: BEGIN
6429:
6430: if l_debug_level > 0 then
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
6542: AND BL.SALES_DOCUMENT_TYPE_CODE = 'B'
6543: FOR UPDATE NOWAIT;
6544:
6545: --
6546: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6547: --
6548: BEGIN
6549:
6550:
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:
6595:
6596: -- p_x_lock_control := l_db_lock_control;
6597:
6598: if l_debug_level > 0 then
6599: oe_debug_pub.add('p_x_lock_control'||p_x_lock_control, 3);
6600: -- oe_debug_pub.add('is line lock control'||l_is_line_lock_control, 3);
6601: oe_debug_pub.add('l_db_lock_control'||l_db_lock_control, 3);
6602: end if;
6603:
6596: -- p_x_lock_control := l_db_lock_control;
6597:
6598: if l_debug_level > 0 then
6599: oe_debug_pub.add('p_x_lock_control'||p_x_lock_control, 3);
6600: -- oe_debug_pub.add('is line lock control'||l_is_line_lock_control, 3);
6601: oe_debug_pub.add('l_db_lock_control'||l_db_lock_control, 3);
6602: end if;
6603:
6604: if l_debug_level > 0 then
6597:
6598: if l_debug_level > 0 then
6599: oe_debug_pub.add('p_x_lock_control'||p_x_lock_control, 3);
6600: -- oe_debug_pub.add('is line lock control'||l_is_line_lock_control, 3);
6601: oe_debug_pub.add('l_db_lock_control'||l_db_lock_control, 3);
6602: end if;
6603:
6604: if l_debug_level > 0 then
6605: oe_debug_pub.add('selected for update, now compare', 3);
6601: oe_debug_pub.add('l_db_lock_control'||l_db_lock_control, 3);
6602: end if;
6603:
6604: if l_debug_level > 0 then
6605: oe_debug_pub.add('selected for update, now compare', 3);
6606: end if;
6607:
6608:
6609: -- If lock_control is not passed(is null or missing), then return the locked record.
6636: l_db_lock_control)
6637: THEN
6638:
6639: if l_debug_level > 0 then
6640: oe_debug_pub.add('done comparison, success', 1);
6641: end if;
6642: -- Row has not changed. Set out NOCOPY /* file.sql.39 change */ parameter.
6643:
6644: -- Set return status
6647:
6648: ELSE
6649:
6650: if l_debug_level > 0 then
6651: oe_debug_pub.add('row changed by other user', 1);
6652: end if;
6653:
6654: -- Row has changed by another user.
6655:
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:
6675:
6676: x_return_status := FND_API.G_RET_STS_ERROR;
6677:
6678: if l_debug_level > 0 then
6679: oe_debug_pub.add('no data found in blanket lock_blanket', 1);
6680: end if;
6681:
6682: fnd_message.set_name('ONT','OE_LOCK_ROW_DELETED');
6683: OE_MSG_PUB.Add;
6688:
6689: x_return_status := FND_API.G_RET_STS_ERROR;
6690:
6691: if l_debug_level > 0 then
6692: oe_debug_pub.add('record_lock in blanket lock_blanket', 1);
6693: end if;
6694:
6695: fnd_message.set_name('ONT','OE_LOCK_ROW_ALREADY_LOCKED');
6696: OE_MSG_PUB.Add;
6699:
6700: WHEN OTHERS THEN
6701:
6702: if l_debug_level > 0 then
6703: oe_debug_pub.add('others in blanket lock_blanket', 1);
6704: end if;
6705: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6706:
6707: OE_MSG_PUB.Add_Exc_Msg
6718: (p_x_header_rec IN OUT NOCOPY OE_Blanket_PUB.Header_rec_type
6719: ,x_return_status OUT NOCOPY VARCHAR2
6720: ) IS
6721: --
6722: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6723: --
6724:
6725: CURSOR c_contract_template_exist (cp_trans_type_id NUMBER) IS
6726: SELECT contract_template_id
6733: BEGIN
6734: x_return_status := FND_API.G_RET_STS_SUCCESS;
6735:
6736: if l_debug_level > 0 then
6737: oe_debug_pub.add('Enter Default_Attributes - Header');
6738: oe_debug_pub.add('operation is : '||p_x_header_rec.operation);
6739: end if;
6740:
6741: -- Default Blanket Header ID
6734: x_return_status := FND_API.G_RET_STS_SUCCESS;
6735:
6736: if l_debug_level > 0 then
6737: oe_debug_pub.add('Enter Default_Attributes - Header');
6738: oe_debug_pub.add('operation is : '||p_x_header_rec.operation);
6739: end if;
6740:
6741: -- Default Blanket Header ID
6742: IF p_x_header_rec.header_id IS NULL THEN
6897: ,x_return_status OUT NOCOPY VARCHAR2
6898: ) IS
6899: l_return_status varchar2(1);
6900: --
6901: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6902: --
6903: BEGIN
6904: x_return_status := FND_API.G_RET_STS_SUCCESS;
6905:
6952: AND ORGANIZATION_ID = g_header_rec.org_id;
6953: EXCEPTION
6954: WHEN NO_DATA_FOUND THEN
6955: if l_debug_level > 0 then
6956: oe_debug_pub.add('no inventory item exists for this organization');
6957: end if;
6958: END;
6959: END IF;
6960:
7113: , x_return_status OUT NOCOPY VARCHAR2)
7114: IS
7115: l_return_status varchar2(1);
7116: --
7117: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7118: --
7119: BEGIN
7120: IF g_header_rec.header_id is NULL
7121: OR g_header_rec.header_id <> p_header_id
7170: lcount NUMBER;
7171: x_result NUMBER;
7172:
7173: --
7174: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7175: --
7176: BEGIN
7177: if l_debug_level > 0 then
7178: oe_debug_pub.add('Entering OR_BLANKET_UTIL.Get_Order_Number',1);
7174: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7175: --
7176: BEGIN
7177: if l_debug_level > 0 then
7178: oe_debug_pub.add('Entering OR_BLANKET_UTIL.Get_Order_Number',1);
7179: end if;
7180:
7181: --x_header_rec := p_header_rec;
7182: x_return_status := FND_API.G_RET_STS_SUCCESS;
7186: IF p_x_header_rec.order_type_id IS NOT NULL THEN
7187: x_doc_category_code := p_x_header_rec.order_type_id;
7188:
7189: if l_debug_level > 0 then
7190: oe_debug_pub.ADD('before calling get_seq_info ', 2);
7191: oe_debug_pub.ADD('Category Code'||x_doc_category_code, 3);
7192: oe_debug_pub.ADD('Set of Books'||x_set_of_books_id, 3);
7193: end if;
7194: x_result := fnd_seqnum.get_seq_info(
7187: x_doc_category_code := p_x_header_rec.order_type_id;
7188:
7189: if l_debug_level > 0 then
7190: oe_debug_pub.ADD('before calling get_seq_info ', 2);
7191: oe_debug_pub.ADD('Category Code'||x_doc_category_code, 3);
7192: oe_debug_pub.ADD('Set of Books'||x_set_of_books_id, 3);
7193: end if;
7194: x_result := fnd_seqnum.get_seq_info(
7195: 660,
7188:
7189: if l_debug_level > 0 then
7190: oe_debug_pub.ADD('before calling get_seq_info ', 2);
7191: oe_debug_pub.ADD('Category Code'||x_doc_category_code, 3);
7192: oe_debug_pub.ADD('Set of Books'||x_set_of_books_id, 3);
7193: end if;
7194: x_result := fnd_seqnum.get_seq_info(
7195: 660,
7196: x_doc_category_code,
7207: X_Msg_Flag
7208: );
7209:
7210: if l_debug_level > 0 then
7211: oe_debug_pub.ADD('after calling get_seq_info ', 2);
7212: end if;
7213:
7214: IF x_result <> FND_SEQNUM.SEQSUCC THEN
7215: IF x_result = FND_SEQNUM.NOTUSED THEN
7238: RAISE FND_API.G_EXC_ERROR;
7239: END IF;
7240:
7241: if l_debug_level > 0 then
7242: oe_debug_pub.ADD('fndseqresult'||to_char(x_result), 2);
7243: oe_debug_pub.ADD('fndseqtype'||x_doc_sequence_value, 2);
7244: end if;
7245: p_x_header_rec.order_number := x_doc_sequence_value;
7246: --ELSIF (t = 'M') THEN
7239: END IF;
7240:
7241: if l_debug_level > 0 then
7242: oe_debug_pub.ADD('fndseqresult'||to_char(x_result), 2);
7243: oe_debug_pub.ADD('fndseqtype'||x_doc_sequence_value, 2);
7244: end if;
7245: p_x_header_rec.order_number := x_doc_sequence_value;
7246: --ELSIF (t = 'M') THEN
7247: ELSE
7271: END IF;
7272: END IF; -- Blanket category code not null
7273:
7274: if l_debug_level > 0 then
7275: oe_debug_pub.add('Exiting OR_BLANKET_UTIL.Get_Order_Number',1);
7276: end if;
7277:
7278: EXCEPTION
7279: WHEN FND_API.G_EXC_ERROR THEN
7278: EXCEPTION
7279: WHEN FND_API.G_EXC_ERROR THEN
7280: x_return_status := FND_API.G_RET_STS_ERROR;
7281: if l_debug_level > 0 then
7282: oe_debug_pub.ADD('Get blanket Number-Exp exception ', 1);
7283: end if;
7284: RAISE FND_API.G_EXC_ERROR;
7285:
7286:
7285:
7286:
7287: WHEN OTHERS THEN
7288: if l_debug_level > 0 then
7289: oe_debug_pub.ADD('Get blanket Number-exception ', 1);
7290: end if;
7291:
7292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7293:
7308: lcount number ;
7309: I number;
7310: l_return_status varchar2(1);
7311: --
7312: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7313: --
7314:
7315: lx_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
7316: lx_msg_count NUMBER := 0;
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,
7356: p_transaction_phase_code => G_header_rec.transaction_phase_code,
7357: p_blanket_number => G_header_rec.order_number,
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:
7490: )
7491: IS
7492: l_valid varchar2(1);
7493: --
7494: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7495: --
7496: BEGIN
7497: x_return_status := FND_API.G_RET_STS_SUCCESS;
7498:
7527: EXCEPTION
7528:
7529: WHEN FND_API.G_EXC_ERROR THEN
7530: if l_debug_level > 0 then
7531: oe_debug_pub.ADD('Validate line Number-Exp exception ', 1);
7532: end if;
7533: x_return_status := FND_API.G_RET_STS_ERROR;
7534: RAISE FND_API.G_EXC_ERROR;
7535:
7535:
7536:
7537: WHEN OTHERS THEN
7538: if l_debug_level > 0 then
7539: oe_debug_pub.ADD('Validate line Number-exception ', 1);
7540: end if;
7541:
7542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7543: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7570: l_ordered_item VARCHAR2(2000);--bug6826787
7571:
7572:
7573: --
7574: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7575: --
7576: BEGIN
7577:
7578: x_return_status := FND_API.G_RET_STS_SUCCESS;
7599: l_end_date_active :=
7600: oe_delayed_requests_pvt.g_delayed_requests(p_req_ind).date_param2;
7601:
7602: if l_debug_level > 0 then
7603: oe_debug_pub.add('In validate Item Uniqueness');
7604: oe_debug_pub.add('item identifier type :'|| l_item_identifier_type);
7605: oe_debug_pub.add('inventory item id :'|| l_item_id);
7606: oe_debug_pub.add('header id :'|| l_header_id);
7607: oe_debug_pub.add('line id :'|| l_line_id);
7600: oe_delayed_requests_pvt.g_delayed_requests(p_req_ind).date_param2;
7601:
7602: if l_debug_level > 0 then
7603: oe_debug_pub.add('In validate Item Uniqueness');
7604: oe_debug_pub.add('item identifier type :'|| l_item_identifier_type);
7605: oe_debug_pub.add('inventory item id :'|| l_item_id);
7606: oe_debug_pub.add('header id :'|| l_header_id);
7607: oe_debug_pub.add('line id :'|| l_line_id);
7608: oe_debug_pub.add('start date :'|| l_start_date_active);
7601:
7602: if l_debug_level > 0 then
7603: oe_debug_pub.add('In validate Item Uniqueness');
7604: oe_debug_pub.add('item identifier type :'|| l_item_identifier_type);
7605: oe_debug_pub.add('inventory item id :'|| l_item_id);
7606: oe_debug_pub.add('header id :'|| l_header_id);
7607: oe_debug_pub.add('line id :'|| l_line_id);
7608: oe_debug_pub.add('start date :'|| l_start_date_active);
7609: oe_debug_pub.add('end date :'|| l_end_date_active);
7602: if l_debug_level > 0 then
7603: oe_debug_pub.add('In validate Item Uniqueness');
7604: oe_debug_pub.add('item identifier type :'|| l_item_identifier_type);
7605: oe_debug_pub.add('inventory item id :'|| l_item_id);
7606: oe_debug_pub.add('header id :'|| l_header_id);
7607: oe_debug_pub.add('line id :'|| l_line_id);
7608: oe_debug_pub.add('start date :'|| l_start_date_active);
7609: oe_debug_pub.add('end date :'|| l_end_date_active);
7610: end if;
7603: oe_debug_pub.add('In validate Item Uniqueness');
7604: oe_debug_pub.add('item identifier type :'|| l_item_identifier_type);
7605: oe_debug_pub.add('inventory item id :'|| l_item_id);
7606: oe_debug_pub.add('header id :'|| l_header_id);
7607: oe_debug_pub.add('line id :'|| l_line_id);
7608: oe_debug_pub.add('start date :'|| l_start_date_active);
7609: oe_debug_pub.add('end date :'|| l_end_date_active);
7610: end if;
7611:
7604: oe_debug_pub.add('item identifier type :'|| l_item_identifier_type);
7605: oe_debug_pub.add('inventory item id :'|| l_item_id);
7606: oe_debug_pub.add('header id :'|| l_header_id);
7607: oe_debug_pub.add('line id :'|| l_line_id);
7608: oe_debug_pub.add('start date :'|| l_start_date_active);
7609: oe_debug_pub.add('end date :'|| l_end_date_active);
7610: end if;
7611:
7612: --modified the following sql to check for uiqueness of
7605: oe_debug_pub.add('inventory item id :'|| l_item_id);
7606: oe_debug_pub.add('header id :'|| l_header_id);
7607: oe_debug_pub.add('line id :'|| l_line_id);
7608: oe_debug_pub.add('start date :'|| l_start_date_active);
7609: oe_debug_pub.add('end date :'|| l_end_date_active);
7610: end if;
7611:
7612: --modified the following sql to check for uiqueness of
7613: -- (inventory_item_id,item_idenitfier_type,ordered_item_id) for bug6826787
7662:
7663: EXCEPTION
7664: WHEN FND_API.G_EXC_ERROR THEN
7665: if l_debug_level > 0 then
7666: oe_debug_pub.ADD('Validate item uniqr-Exp exception ', 1);
7667: end if;
7668: x_return_status := FND_API.G_RET_STS_ERROR;
7669: RAISE FND_API.G_EXC_ERROR;
7670: WHEN OTHERS THEN
7668: x_return_status := FND_API.G_RET_STS_ERROR;
7669: RAISE FND_API.G_EXC_ERROR;
7670: WHEN OTHERS THEN
7671: if l_debug_level > 0 then
7672: oe_debug_pub.ADD('Validate item uniqueness-exception ', 1);
7673: end if;
7674: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7675: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7676: THEN
7688: RETURN BOOLEAN IS
7689: l_dummy VARCHAR2(30);
7690: l_result BOOLEAN;
7691: --
7692: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7693: --
7694: BEGIN
7695:
7696: -- 11i10 pricing change - source code is BSO in 11i10.
7730:
7731: EXCEPTION
7732: WHEN NO_DATA_FOUND THEN
7733: if l_debug_level > 0 then
7734: oe_debug_pub.ADD('Not a blanket price list', 1);
7735: end if;
7736: RETURN FALSE;
7737:
7738: END IS_BLANKET_PRICE_LIST;
7745: IS
7746: l_return_status VARCHAR2(1);
7747: l_new_version_number NUMBER;
7748: --
7749: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7750: --
7751: BEGIN
7752: if l_debug_level > 0 then
7753: oe_debug_pub.ADD('Entering Record_Blanket_History from delayed req', 1);
7749: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7750: --
7751: BEGIN
7752: if l_debug_level > 0 then
7753: oe_debug_pub.ADD('Entering Record_Blanket_History from delayed req', 1);
7754: end if;
7755:
7756: x_return_status := FND_API.G_RET_STS_SUCCESS;
7757:
7760: FROM oe_blanket_headers_all
7761: WHERE header_id = g_old_header_hist_rec.header_id;
7762:
7763: if l_debug_level > 0 then
7764: oe_debug_pub.ADD('old versn :'||g_old_header_hist_rec.version_number);
7765: oe_debug_pub.ADD('new versn :'||l_new_version_number);
7766: end if;
7767:
7768: -- This check is needed as user could change version number multiple times
7761: WHERE header_id = g_old_header_hist_rec.header_id;
7762:
7763: if l_debug_level > 0 then
7764: oe_debug_pub.ADD('old versn :'||g_old_header_hist_rec.version_number);
7765: oe_debug_pub.ADD('new versn :'||l_new_version_number);
7766: end if;
7767:
7768: -- This check is needed as user could change version number multiple times
7769: -- but in the end, latest version number could be same as the old version
7788:
7789: EXCEPTION
7790: WHEN OTHERS THEN
7791: if l_debug_level > 0 then
7792: oe_debug_pub.ADD('Record Blanket History Exception ', 1);
7793: end if;
7794:
7795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7796:
7821: l_return_status VARCHAR2(1);
7822: l_header_id NUMBER;
7823: l_count NUMBER;
7824: --
7825: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7826: --
7827: BEGIN
7828:
7829: if l_debug_level > 0 then
7826: --
7827: BEGIN
7828:
7829: if l_debug_level > 0 then
7830: oe_debug_pub.ADD('Entering Copy_blanket ', 1);
7831: end if;
7832:
7833: OE_MSG_PUB.initialize;
7834:
8024: );
8025:
8026: WHEN OTHERS THEN
8027: if l_debug_level > 0 then
8028: oe_debug_pub.ADD('Copy Blanket Exception ', 1);
8029: end if;
8030:
8031: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8032:
8053: x_return_status IN OUT NOCOPY VARCHAR2
8054: )
8055: IS
8056: --
8057: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8058: --
8059: BEGIN
8060:
8061:
8062: IF (p_min_value IS NOT NULL)
8063: AND (p_max_value IS NOT NULL)
8064: AND (p_min_value > p_max_value) THEN
8065: if l_debug_level > 0 then
8066: oe_debug_pub.add('Invalid min/max for attribute :'||p_attribute);
8067: end if;
8068: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_INVALID_MIN_MAX_RANGE');
8069: FND_MESSAGE.SET_TOKEN('MIN', p_min_value);
8070: FND_MESSAGE.SET_TOKEN('MAX', p_max_value);
8075: EXCEPTION
8076:
8077: WHEN OTHERS THEN
8078: if l_debug_level > 0 then
8079: oe_debug_pub.ADD('Validate min max range - U exeception ', 1);
8080: end if;
8081:
8082: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8083: THEN
8100: )
8101: IS
8102: l_org_id NUMBER;
8103: --
8104: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8105: --
8106: BEGIN
8107: --
8108: --l_org_id := to_number(FND_PROFILE.VALUE('ORG_ID'));
8108: --l_org_id := to_number(FND_PROFILE.VALUE('ORG_ID'));
8109: --
8110:
8111: if l_debug_level > 0 then
8112: oe_debug_pub.ADD('Before inserting blanket history header_id ' || p_header_rec.header_id, 5);
8113: end if;
8114:
8115: INSERT INTO OE_BLANKET_HEADERS_HIST
8116: ( ACCOUNTING_RULE_ID
8318:
8319: FOR I IN 1..p_line_tbl.COUNT LOOP
8320:
8321: if l_debug_level > 0 then
8322: oe_debug_pub.ADD('Before inserting blanket line history line_id ' || p_line_tbl(I).line_id, 5);
8323: end if;
8324:
8325: INSERT INTO OE_BLANKET_LINES_HIST
8326: ( ACCOUNTING_RULE_ID
8516:
8517: END LOOP;
8518:
8519: if l_debug_level > 0 then
8520: oe_debug_pub.ADD('After inserting blanket history', 1);
8521: end if;
8522:
8523: END Insert_History_Records;
8524:
8532:
8533: l_blanket_number number;
8534: l_blanket_line_number number;
8535: --
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');
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;
8584:
8585: l_blanket_number number;
8586: l_blanket_line_number number;
8587: --
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');
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;
8634:
8635: l_blanket_number number;
8636: l_blanket_line_number number;
8637: --
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');
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;
8682:
8683: l_blanket_number number;
8684: l_blanket_line_number number;
8685: --
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');
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;
8734:
8735: l_blanket_number number;
8736: l_blanket_line_number number;
8737: --
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');
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;
8782: p_scope in VARCHAR2,
8783: p_result OUT NOCOPY NUMBER ) IS
8784:
8785: --
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');
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
9434: FROM HZ_CUST_SITE_USES u,HZ_CUST_ACCT_SITES s
9435: WHERE u.cust_acct_site_id = s.cust_acct_site_id
9436: AND u.site_use_id = p_x_line_rec.ship_to_org_id
9437: AND u.site_use_code = 'SHIP_TO';
9438: oe_debug_pub.add('ship to address:' || l_address_id||' - Customer:'||to_char(l_cust_id));
9439:
9440: IF l_cust_id <> p_x_line_rec.sold_to_org_id THEN
9441: oe_debug_pub.add('Sold-To Customer:'||to_char(p_x_line_rec.sold_to_org_id));
9442: l_address_id := NULL;
9437: AND u.site_use_code = 'SHIP_TO';
9438: oe_debug_pub.add('ship to address:' || l_address_id||' - Customer:'||to_char(l_cust_id));
9439:
9440: IF l_cust_id <> p_x_line_rec.sold_to_org_id THEN
9441: oe_debug_pub.add('Sold-To Customer:'||to_char(p_x_line_rec.sold_to_org_id));
9442: l_address_id := NULL;
9443: END IF;
9444:
9445: END IF;
9443: END IF;
9444:
9445: END IF;
9446:
9447: oe_debug_pub.add('INVENTORY_ITEM_ID Before calling CI_Attribute_Value '
9448: ||to_char(p_x_line_rec.inventory_item_id), 1);
9449: INV_CUSTOMER_ITEM_GRP.CI_Attribute_Value(
9450: Z_Customer_Item_Id => p_x_line_rec.ordered_item_id
9451: , Z_Customer_Id => p_x_line_rec.sold_to_org_id
9458: , Error_Message => l_error_message
9459: , Attribute_Value => l_attribute_value
9460: );
9461:
9462: oe_debug_pub.add('INVENTORY_ITEM_ID After call is '||l_attribute_value, 1);
9463: IF (l_attribute_value IS NOT NULL AND
9464: to_number(l_attribute_value) <> p_x_line_rec.inventory_item_id) THEN
9465: oe_debug_pub.add('Assigning new inventory_item_id', 1);
9466: l_update_inventory_item := FND_API.G_TRUE;
9461:
9462: oe_debug_pub.add('INVENTORY_ITEM_ID After call is '||l_attribute_value, 1);
9463: IF (l_attribute_value IS NOT NULL AND
9464: to_number(l_attribute_value) <> p_x_line_rec.inventory_item_id) THEN
9465: oe_debug_pub.add('Assigning new inventory_item_id', 1);
9466: l_update_inventory_item := FND_API.G_TRUE;
9467: l_inventory_item_id := TO_NUMBER(l_attribute_value);
9468: ELSIF to_number(l_attribute_value) = p_x_line_rec.inventory_item_id THEN
9469: NULL;
9467: l_inventory_item_id := TO_NUMBER(l_attribute_value);
9468: ELSIF to_number(l_attribute_value) = p_x_line_rec.inventory_item_id THEN
9469: NULL;
9470: ELSE
9471: oe_debug_pub.add('Issue error message', 1);
9472: fnd_message.set_name('ONT','OE_INVALIDATES_CUSTOMER_ITEM');
9473: OE_MSG_PUB.Add;
9474: x_return_status := FND_API.G_RET_STS_ERROR;
9475: END IF;
9480: p_sold_to_org_id IN NUMBER,
9481: x_return_status OUT NOCOPY VARCHAR2)
9482: IS
9483: --
9484: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
9485: L_DUMMY VARCHAR2(30) := 'VALID';
9486: l_invoice_to_org_id number;
9487: l_deliver_to_org_id number;
9488: l_ship_To_org_id number;
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;
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;
9510:
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;
9510:
9511: -- Open the cursor
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;
9510:
9511: -- Open the cursor
9512: OPEN c1;
9512: OPEN c1;
9513: loop
9514: FETCH c1 into mc1x;
9515: exit when c1%NOTFOUND;
9516: oe_debug_pub.add('DB Line To : '|| TO_CHAR (mc1x.Line_id) ,1);
9517: oe_debug_pub.add('DB Ship To : '|| TO_CHAR (mc1x.ship_to_org_id) ,1);
9518: oe_debug_pub.add('DB Del ID : '|| TO_CHAR (mc1x.deliver_to_org_id) ,1);
9519: oe_debug_pub.add('DB Invo ID : '|| TO_CHAR (mc1x.invoice_to_org_id) ,1);
9520: if mc1x.ship_to_org_id is not null then
9513: loop
9514: FETCH c1 into mc1x;
9515: exit when c1%NOTFOUND;
9516: oe_debug_pub.add('DB Line To : '|| TO_CHAR (mc1x.Line_id) ,1);
9517: oe_debug_pub.add('DB Ship To : '|| TO_CHAR (mc1x.ship_to_org_id) ,1);
9518: oe_debug_pub.add('DB Del ID : '|| TO_CHAR (mc1x.deliver_to_org_id) ,1);
9519: oe_debug_pub.add('DB Invo ID : '|| TO_CHAR (mc1x.invoice_to_org_id) ,1);
9520: if mc1x.ship_to_org_id is not null then
9521: --Ship to
9514: FETCH c1 into mc1x;
9515: exit when c1%NOTFOUND;
9516: oe_debug_pub.add('DB Line To : '|| TO_CHAR (mc1x.Line_id) ,1);
9517: oe_debug_pub.add('DB Ship To : '|| TO_CHAR (mc1x.ship_to_org_id) ,1);
9518: oe_debug_pub.add('DB Del ID : '|| TO_CHAR (mc1x.deliver_to_org_id) ,1);
9519: oe_debug_pub.add('DB Invo ID : '|| TO_CHAR (mc1x.invoice_to_org_id) ,1);
9520: if mc1x.ship_to_org_id is not null then
9521: --Ship to
9522: BEGIN
9515: exit when c1%NOTFOUND;
9516: oe_debug_pub.add('DB Line To : '|| TO_CHAR (mc1x.Line_id) ,1);
9517: oe_debug_pub.add('DB Ship To : '|| TO_CHAR (mc1x.ship_to_org_id) ,1);
9518: oe_debug_pub.add('DB Del ID : '|| TO_CHAR (mc1x.deliver_to_org_id) ,1);
9519: oe_debug_pub.add('DB Invo ID : '|| TO_CHAR (mc1x.invoice_to_org_id) ,1);
9520: if mc1x.ship_to_org_id is not null then
9521: --Ship to
9522: BEGIN
9523: SELECT 'VALID' INTO l_dummy
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
9637: x_msg_data OUT NOCOPY VARCHAR2)
9638:
9639: IS
9640:
9641: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
9642: l_header_rec OE_Blanket_Pub.header_rec_type;
9643: l_line_tbl OE_Blanket_Pub.line_tbl_type;
9644: K NUMBER :=1;
9645: BEGIN
9644: K NUMBER :=1;
9645: BEGIN
9646: --bug#5528507
9647: x_return_status := FND_API.G_RET_STS_SUCCESS;
9648: oe_debug_pub.add('In the valid_blanket_dates',1);
9649:
9650: Query_Blanket(p_header_id => p_header_id
9651: ,p_x_header_rec => l_header_rec
9652: ,p_x_line_tbl => l_line_tbl
9654:
9655:
9656: if ( x_return_status = 'S')
9657: then
9658: oe_debug_pub.add('End Date :'||trunc(l_header_rec.end_date_active),1);
9659: oe_debug_pub.add('Sysdate :'||trunc(sysdate),1);
9660:
9661: OE_MSG_PUB.set_msg_context(
9662: p_entity_code => 'BLANKET_HEADER'
9655:
9656: if ( x_return_status = 'S')
9657: then
9658: oe_debug_pub.add('End Date :'||trunc(l_header_rec.end_date_active),1);
9659: oe_debug_pub.add('Sysdate :'||trunc(sysdate),1);
9660:
9661: OE_MSG_PUB.set_msg_context(
9662: p_entity_code => 'BLANKET_HEADER'
9663: ,p_entity_id => l_header_rec.header_id
9679: end if;
9680:
9681:
9682: K := l_line_tbl.FIRST;
9683: oe_debug_pub.add('validating Lines ',1);
9684: WHILE K IS NOT NULL
9685: LOOP
9686:
9687: OE_MSG_PUB.set_msg_context(
9696: ,p_source_document_line_id => null
9697: ,p_order_source_id => null
9698: ,p_source_document_type_id => null);
9699:
9700: oe_debug_pub.add('start date active:'|| l_line_tbl(K).start_date_active,1);
9701: oe_debug_pub.add('end_date_active :'|| l_line_tbl(K).end_date_active,1);
9702: oe_debug_pub.add('SYSDATE :'|| trunc(sysdate),1);
9703:
9704: if (l_line_tbl(K).end_date_active is not NULL and
9697: ,p_order_source_id => null
9698: ,p_source_document_type_id => null);
9699:
9700: oe_debug_pub.add('start date active:'|| l_line_tbl(K).start_date_active,1);
9701: oe_debug_pub.add('end_date_active :'|| l_line_tbl(K).end_date_active,1);
9702: oe_debug_pub.add('SYSDATE :'|| trunc(sysdate),1);
9703:
9704: if (l_line_tbl(K).end_date_active is not NULL and
9705: (l_line_tbl(K).start_date_active)
9698: ,p_source_document_type_id => null);
9699:
9700: oe_debug_pub.add('start date active:'|| l_line_tbl(K).start_date_active,1);
9701: oe_debug_pub.add('end_date_active :'|| l_line_tbl(K).end_date_active,1);
9702: oe_debug_pub.add('SYSDATE :'|| trunc(sysdate),1);
9703:
9704: if (l_line_tbl(K).end_date_active is not NULL and
9705: (l_line_tbl(K).start_date_active)
9706: > (l_line_tbl(K).end_date_active)) THEN
9740: p_scope in VARCHAR2,
9741: p_result OUT NOCOPY NUMBER ) IS
9742:
9743: --
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');
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 ');
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 ');
9753: ELSE
9754: oe_debug_pub.add(' Batch call' );
9755: end if;
9756: IF NOT (OE_GLOBALS.G_UI_FLAG ) THEN
9750:
9751: if OE_GLOBALS.G_UI_FLAG THEN
9752: oe_debug_pub.add(' UI Call ');
9753: ELSE
9754: oe_debug_pub.add(' Batch call' );
9755: end if;
9756: IF NOT (OE_GLOBALS.G_UI_FLAG ) THEN
9757: p_result :=1;
9758: ELSE