[Home] [Help]
39:
40: IF p_line_rec.override_blanket_controls_flag = 'N' THEN
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 ..
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
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 ..
70: AND ROWNUM = 1;
71:
72: IF l_dummy = 'ERROR' THEN
73: fnd_message.set_name('ONT', 'OE_BLKT_LINE_RELEASE_END_DATE');
74: OE_MSG_PUB.Add;
75: return false;
76: END IF;
77:
78: EXCEPTION
1041: WHEN OTHERS THEN
1042:
1043: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1044:
1045: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1046: THEN
1047: OE_MSG_PUB.Add_Exc_Msg
1048: ( G_PKG_NAME
1049: ,'Validate Attributes'
1043: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1044:
1045: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1046: THEN
1047: OE_MSG_PUB.Add_Exc_Msg
1048: ( G_PKG_NAME
1049: ,'Validate Attributes'
1050: );
1051: END IF;
1615:
1616: WHEN OTHERS THEN
1617: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1618:
1619: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1620: THEN
1621: OE_MSG_PUB.Add_Exc_Msg
1622: ( G_PKG_NAME
1623: ,'Validate Attributes'
1617: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1618:
1619: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1620: THEN
1621: OE_MSG_PUB.Add_Exc_Msg
1622: ( G_PKG_NAME
1623: ,'Validate Attributes'
1624: );
1625: END IF;
1813: -- from the Process Order Call and if the Context field is required.
1814:
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;
2140: WHEN OTHERS THEN
2141:
2142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2143:
2144: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2145: THEN
2146: OE_MSG_PUB.Add_Exc_Msg
2147: ( G_PKG_NAME
2148: , 'Validate Attributes'
2142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2143:
2144: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2145: THEN
2146: OE_MSG_PUB.Add_Exc_Msg
2147: ( G_PKG_NAME
2148: , 'Validate Attributes'
2149: );
2150: END IF;
2448:
2449: fnd_message.set_name('ONT','OE_ATTRIBUTE_REQUIRED');
2450: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
2451: OE_Order_UTIL.Get_Attribute_Name('line_id'));
2452: OE_MSG_PUB.Add;
2453:
2454: END IF;
2455:
2456: IF p_line_rec.item_identifier_type IS NULL
2460:
2461: fnd_message.set_name('ONT','OE_ATTRIBUTE_REQUIRED');
2462: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
2463: OE_Order_UTIL.Get_Attribute_Name('ITEM_IDENTIFIER_TYPE'));
2464: OE_MSG_PUB.Add;
2465:
2466: ELSIF p_line_rec.item_identifier_type <> 'ALL'
2467: AND p_line_rec.inventory_item_id IS NULL
2468: THEN
2471:
2472: fnd_message.set_name('ONT','OE_ATTRIBUTE_REQUIRED');
2473: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
2474: OE_Order_UTIL.Get_Attribute_Name('INVENTORY_ITEM_ID'));
2475: OE_MSG_PUB.Add;
2476:
2477: END IF;
2478:
2479: IF p_line_rec.start_date_active IS NULL
2482: x_return_status := FND_API.G_RET_STS_ERROR;
2483:
2484: fnd_message.set_name('ONT','OE_ATTRIBUTE_REQUIRED');
2485: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Activation Date');
2486: OE_MSG_PUB.Add;
2487:
2488: END IF;
2489:
2490: -- Return Error if a required attribute is missing.
2518: x_return_status := FND_API.G_RET_STS_ERROR;
2519: FND_MESSAGE.Set_Name('ONT','OE_INVALID_ATTRIBUTE');
2520: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
2521: OE_Order_Util.Get_Attribute_Name('ACCOUNTING_RULE_ID'));
2522: OE_MSG_PUB.ADD;
2523: END IF;
2524:
2525:
2526: ---------------------------------------------------------------------
2536: IF (p_line_rec.released_amount > 0) THEN
2537: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_LINE_ATTRIBUTE');
2538: fnd_message.set_token('ATTRIBUTE',
2539: OE_Order_UTIL.Get_Attribute_Name('LINE_NUMBER'));
2540: OE_MSG_PUB.Add;
2541: ELSE
2542: oe_delayed_requests_pvt.Log_request(p_Entity_Code =>
2543: OE_BLANKET_pub.G_ENTITY_BLANKET_LINE,
2544: p_Entity_Id => p_line_rec.line_id,
2574:
2575: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_LINE_ATTRIBUTE');
2576: fnd_message.set_token('ATTRIBUTE',
2577: OE_Order_UTIL.Get_Attribute_Name('INVENTORY_ITEM_ID'));
2578: OE_MSG_PUB.add;
2579: x_return_status := FND_API.G_RET_STS_ERROR;
2580:
2581: ELSIF (p_line_rec.released_amount > 0) AND
2582: (NOT OE_GLOBALS.Equal
2583: (p_line_rec.item_identifier_type,l_old_line_rec.item_identifier_type)) THEN
2584: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_LINE_ATTRIBUTE');
2585: fnd_message.set_token('ATTRIBUTE',
2586: OE_Order_UTIL.Get_Attribute_Name('ITEM_IDENTIFIER_TYPE'));
2587: OE_MSG_PUB.add;
2588: x_return_status := FND_API.G_RET_STS_ERROR;
2589:
2590: ELSE
2591:
2594:
2595: IF p_line_rec.inventory_item_id IS NOT NULL THEN
2596: x_return_status := FND_API.G_RET_STS_ERROR;
2597: fnd_message.set_name('ONT', 'OE_ITEM_VALIDATION_FAILED');
2598: OE_MSG_PUB.add;
2599: END IF;
2600:
2601: -- For all other context values, validate item id
2602: ELSE
2609: p_line_rec.ordered_item
2610: ) THEN
2611: x_return_status := FND_API.G_RET_STS_ERROR;
2612: fnd_message.set_name('ONT', 'OE_ITEM_VALIDATION_FAILED');
2613: OE_MSG_PUB.add;
2614: END IF;
2615:
2616: END IF;
2617:
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'
2663: , OE_Order_Util.Get_Attribute_Name('ship_to_org_id'));
2664: OE_MSG_PUB.Add;
2665: END IF;
2666: END IF; -- Ship to
2667:
2668: -- Deliver to Org id depends on sold to org.
2680: x_return_status := FND_API.G_RET_STS_ERROR;
2681: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2682: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
2683: OE_Order_Util.Get_Attribute_Name('deliver_to_org_id'));
2684: OE_MSG_PUB.Add;
2685: END IF;
2686:
2687: END IF; -- Deliver to
2688:
2697: x_return_status := FND_API.G_RET_STS_ERROR;
2698: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2699: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
2700: OE_Order_Util.Get_Attribute_Name('invoice_to_org_id'));
2701: OE_MSG_PUB.Add;
2702: END IF;
2703: END IF; -- Invoice to org
2704:
2705: if l_debug_level > 0 then
2715: if ( nvl(p_line_rec.source_document_type_id,0) = 2 --bug#5528507
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');
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;
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
2731: --line start date must be after header date range
2732: if (p_line_rec.start_date_active < g_header_rec.start_date_active)
2733: then
2734: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_END_DATE_CONFLICT');
2735: OE_MSG_PUB.ADD;
2736: x_return_status := FND_API.G_RET_STS_ERROR;
2737: end if;
2738:
2739: -- if header end date exists, line end date cannot be null
2743: or (p_line_rec.end_date_active
2744: > g_header_rec.end_date_active)
2745: then
2746: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_END_DATE_CONFLICT');
2747: OE_MSG_PUB.ADD;
2748: x_return_status := FND_API.G_RET_STS_ERROR;
2749: end if;
2750: end if;
2751:
2760: IF (g_new_price_list AND (p_line_rec.pricing_uom IS NULL)) THEN
2761: fnd_message.set_name('ONT','OE_ATTRIBUTE_REQUIRED');
2762: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
2763: OE_Order_Util.Get_Attribute_Name('PRICING_QUANTITY_UOM'));
2764: OE_MSG_PUB.Add;
2765: ELSIF p_line_rec.price_list_id IS NOT NULL THEN
2766: IF IS_BLANKET_PRICE_LIST(p_price_list_id => p_line_rec.price_list_id)
2767: AND p_line_rec.pricing_uom IS NULL THEN
2768: fnd_message.set_name('ONT','OE_ATTRIBUTE_REQUIRED');
2767: AND p_line_rec.pricing_uom IS NULL THEN
2768: fnd_message.set_name('ONT','OE_ATTRIBUTE_REQUIRED');
2769: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
2770: OE_Order_Util.Get_Attribute_Name('PRICING_QUANTITY_UOM'));
2771: OE_MSG_PUB.Add;
2772: END IF;
2773: END IF;
2774: END IF;
2775:
2778: (p_line_rec.enforce_price_list_flag = 'Y') THEN
2779: fnd_message.set_name('ONT','OE_ATTRIBUTE_REQUIRED');
2780: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
2781: OE_Order_UTIL.Get_Attribute_Name('PRICE_LIST_ID'));
2782: OE_MSG_PUB.ADD;
2783: x_return_status := FND_API.G_RET_STS_ERROR;
2784: END IF;
2785:
2786: -- UOM is required if any of the quantities are given on the blanket line
2789: OR p_line_rec.Blanket_Max_Quantity IS NOT NULL
2790: OR p_line_rec.Min_Release_Quantity IS NOT NULL
2791: OR p_line_rec.Max_Release_Quantity IS NOT NULL) THEN
2792: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_QUANTITY_UOM');
2793: OE_MSG_PUB.ADD;
2794: x_return_status := FND_API.G_RET_STS_ERROR;
2795:
2796: END IF;
2797:
2803: and (p_line_rec.override_blanket_controls_flag = 'N') then
2804:
2805: fnd_message.set_name('ONT','OE_BSA_REL_QUANTITY');
2806: FND_MESSAGE.SET_TOKEN('VALUE',l_old_line_rec.released_quantity);
2807: OE_MSG_PUB.ADD;
2808: x_return_status := FND_API.G_RET_STS_ERROR;
2809:
2810: elsif (p_line_rec.blanket_max_amount < p_line_rec.released_amount)
2811: and ((l_old_line_rec.blanket_max_amount >= l_old_line_rec.released_amount)
2813: and (p_line_rec.override_blanket_controls_flag = 'N') then
2814:
2815: fnd_message.set_name('ONT','OE_BSA_REL_AMOUNT');
2816: FND_MESSAGE.SET_TOKEN('VALUE',l_old_line_rec.released_amount);
2817: OE_MSG_PUB.ADD;
2818: x_return_status := FND_API.G_RET_STS_ERROR;
2819:
2820:
2821: end if;
2839: 'BLANKET_LINE_AMOUNT', x_return_status);
2840: /*
2841: IF p_line_rec.blanket_max_amount > g_header_rec.blanket_max_amount THEN
2842: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_LINE_MIN_MAX_VALUES');
2843: OE_MSG_PUB.ADD;
2844: x_return_status := FND_API.G_RET_STS_ERROR;
2845: END IF;
2846: */
2847: IF p_line_rec.min_release_amount > p_line_rec.blanket_max_amount OR
2846: */
2847: IF p_line_rec.min_release_amount > p_line_rec.blanket_max_amount OR
2848: p_line_rec.max_release_amount > p_line_rec.blanket_max_amount THEN
2849: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_LINE_MAX_AMOUNT');
2850: OE_MSG_PUB.ADD;
2851: x_return_status := FND_API.G_RET_STS_ERROR;
2852:
2853: END IF;
2854:
2854:
2855: IF p_line_rec.min_release_quantity > p_line_rec.blanket_max_quantity OR
2856: p_line_rec.max_release_quantity > p_line_rec.blanket_max_quantity THEN
2857: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_LINE_MAX_QUANTITY');
2858: OE_MSG_PUB.ADD;
2859: x_return_status := FND_API.G_RET_STS_ERROR;
2860:
2861: END IF;
2862:
2870: IF p_line_rec.end_date_active < trunc(sysdate) and
2871: l_old_line_rec.end_date_active < trunc(sysdate) THEN
2872: x_return_status := FND_API.G_RET_STS_ERROR;
2873: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_ATTR_CLOSED');
2874: OE_MSG_PUB.Add;
2875: END IF;
2876: --Srini
2877: --oe_blanket_util.Get_Inventory_Item(p_x_line_rec => p_line_rec,
2878: -- x_return_status => l_return_status);
2884: p_line_rec.end_date_active <= trunc(sysdate) AND
2885: p_line_rec.override_blanket_controls_flag = 'N' THEN
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:
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');
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;
2906: x_return_status := FND_API.G_RET_STS_ERROR;
2907: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_LINE_ATTRIBUTE');
2908: fnd_message.set_token('ATTRIBUTE',
2909: OE_Order_UTIL.Get_Attribute_Name('ORDER_QUANTITY_UOM'));
2910: OE_MSG_PUB.Add;
2911: END IF;
2912: END IF;
2913:
2914: /* IF NOT OE_GLOBALS.EQUAL (p_line_rec.end_date_active, l_old_line_rec.end_date_active) THEN
2950:
2951: IF l_dummy = 'ERROR' THEN
2952: x_return_status := FND_API.G_RET_STS_ERROR;
2953: fnd_message.set_name('ONT', 'OE_BLKT_LINE_RELEASE_END_DATE');
2954: OE_MSG_PUB.Add;
2955: END IF;
2956:
2957: EXCEPTION
2958: WHEN NO_DATA_FOUND THEN
2976: if (g_new_price_list) THEN
2977: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_UPDATE_LINE_ATTRIBUTE');
2978: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
2979: OE_Order_UTIL.Get_Attribute_Name('PRICING_QUANTITY_UOM'));
2980: OE_MSG_PUB.ADD;
2981: x_return_status := FND_API.G_RET_STS_ERROR;
2982: elsif p_line_rec.price_list_id IS NOT NULL THEN
2983: if IS_BLANKET_PRICE_LIST(p_price_list_id => p_line_rec.price_list_id) THEN
2984: x_return_status := FND_API.G_RET_STS_ERROR;
2984: x_return_status := FND_API.G_RET_STS_ERROR;
2985: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_UPDATE_LINE_ATTRIBUTE');
2986: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
2987: OE_Order_UTIL.Get_Attribute_Name('PRICING_QUANTITY_UOM'));
2988: OE_MSG_PUB.ADD;
2989: x_return_status := FND_API.G_RET_STS_ERROR;
2990: end if;
2991: end if;
2992: 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');
3001: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Released Amount');
3002: OE_MSG_PUB.ADD;
3003: x_return_status := FND_API.G_RET_STS_ERROR;
3004: end if;
3005:
3006: if NOT OE_GLOBALS.EQUAL(p_line_rec.returned_amount,
3006: if NOT OE_GLOBALS.EQUAL(p_line_rec.returned_amount,
3007: l_old_line_rec.returned_amount) THEN
3008: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_UPDATE_LINE_ATTRIBUTE');
3009: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Returned Amount');
3010: OE_MSG_PUB.ADD;
3011: x_return_status := FND_API.G_RET_STS_ERROR;
3012: end if;
3013:
3014: if NOT OE_GLOBALS.EQUAL(p_line_rec.released_quantity,
3014: if NOT OE_GLOBALS.EQUAL(p_line_rec.released_quantity,
3015: Round(l_old_line_rec.released_quantity, 6)) THEN --round() added for bug 9587613
3016: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_UPDATE_LINE_ATTRIBUTE');
3017: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Released Quantity');
3018: OE_MSG_PUB.ADD;
3019: x_return_status := FND_API.G_RET_STS_ERROR;
3020: end if;
3021:
3022: if NOT OE_GLOBALS.EQUAL(p_line_rec.fulfilled_quantity,
3022: if NOT OE_GLOBALS.EQUAL(p_line_rec.fulfilled_quantity,
3023: Round(l_old_line_rec.fulfilled_quantity, 6)) THEN --round() added for bug 9587613
3024: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_UPDATE_LINE_ATTRIBUTE');
3025: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Fulfilled Quantity');
3026: OE_MSG_PUB.ADD;
3027: x_return_status := FND_API.G_RET_STS_ERROR;
3028: end if;
3029:
3030: if NOT OE_GLOBALS.EQUAL(p_line_rec.fulfilled_amount,
3030: if NOT OE_GLOBALS.EQUAL(p_line_rec.fulfilled_amount,
3031: l_old_line_rec.fulfilled_amount) THEN
3032: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_UPDATE_LINE_ATTRIBUTE');
3033: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Fulfilled Amount');
3034: OE_MSG_PUB.ADD;
3035: x_return_status := FND_API.G_RET_STS_ERROR;
3036: end if;
3037:
3038: if NOT OE_GLOBALS.EQUAL(p_line_rec.returned_quantity,
3038: if NOT OE_GLOBALS.EQUAL(p_line_rec.returned_quantity,
3039: Round(l_old_line_rec.returned_quantity, 6)) THEN --round() added for bug 9587613
3040: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_UPDATE_LINE_ATTRIBUTE');
3041: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Returned Quantity');
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');
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
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');
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;
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;
3213: x_return_status := FND_API.G_RET_STS_ERROR;
3214: FND_MESSAGE.SET_NAME('ONT','OE_ATTRIBUTE_REQUIRED');
3215: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
3216: OE_Order_UTIL.Get_Attribute_Name('UNIT_LIST_PRICE'));
3217: OE_MSG_PUB.ADD;
3218: END IF;
3219:
3220: END IF; --if g_new_price_list
3221:
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
3267: AND g_header_rec.new_modifier_list_id IS NULL
3268: THEN
3266: ELSIF g_header_rec.new_modifier_list_name IS NULL
3267: AND g_header_rec.new_modifier_list_id IS NULL
3268: THEN
3269: fnd_message.set_name('ONT','OE_BLKT_CANNOT_ENTER_DIS');
3270: oe_msg_pub.add;
3271: x_return_status := FND_API.G_RET_STS_ERROR;
3272: ELSIF p_line_rec.discount_percent IS NOT NULL
3273: AND p_line_rec.discount_amount IS NOT NULL
3274: THEN
3272: ELSIF p_line_rec.discount_percent IS NOT NULL
3273: AND p_line_rec.discount_amount IS NOT NULL
3274: THEN
3275: fnd_message.set_name('ONT','OE_BLKT_DISCOUNT_CONFLICT');
3276: oe_msg_pub.add;
3277: x_return_status := FND_API.G_RET_STS_ERROR;
3278: ELSE
3279: -- Log delayed request to create new modifier list line
3280: oe_delayed_requests_pvt.Log_request
3318: WHEN OTHERS THEN
3319:
3320: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3321:
3322: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3323: THEN
3324: OE_MSG_PUB.Add_Exc_Msg
3325: ( G_PKG_NAME
3326: , 'Validate Entity'
3320: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3321:
3322: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3323: THEN
3324: OE_MSG_PUB.Add_Exc_Msg
3325: ( G_PKG_NAME
3326: , 'Validate Entity'
3327: );
3328: END IF;
3440: x_return_status := FND_API.G_RET_STS_ERROR;
3441: fnd_message.set_name('ONT','OE_ATTRIBUTE_REQUIRED');
3442: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
3443: OE_Order_UTIL.Get_Attribute_Name('header_id'));
3444: OE_MSG_PUB.Add;
3445: END IF;
3446:
3447: IF p_header_rec.order_number IS NULL THEN
3448: x_return_status := FND_API.G_RET_STS_ERROR;
3448: x_return_status := FND_API.G_RET_STS_ERROR;
3449: fnd_message.set_name('ONT','OE_ATTRIBUTE_REQUIRED');
3450: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
3451: OE_Order_UTIL.Get_Attribute_Name('BLANKET_NUMBER'));
3452: OE_MSG_PUB.Add;
3453: END IF;
3454: --Enabling Pricing Agreements for pack J
3455: IF OE_CODE_CONTROL.Get_Code_Release_Level < '110510' THEN
3456: IF p_header_rec.sold_to_org_id IS NULL THEN
3457: x_return_status := FND_API.G_RET_STS_ERROR;
3458: fnd_message.set_name('ONT','OE_ATTRIBUTE_REQUIRED');
3459: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
3460: OE_Order_UTIL.Get_Attribute_Name('SOLD_TO_ORG_ID'));
3461: OE_MSG_PUB.Add;
3462: END IF;
3463: END IF;
3464:
3465: IF p_header_rec.transactional_curr_code IS NULL THEN
3466: x_return_status := FND_API.G_RET_STS_ERROR;
3467: fnd_message.set_name('ONT','OE_ATTRIBUTE_REQUIRED');
3468: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
3469: OE_Order_UTIL.Get_Attribute_Name('TRANSACTIONAL_CURR_CODE'));
3470: OE_MSG_PUB.Add;
3471: END IF;
3472:
3473: IF p_header_rec.start_date_active IS NULL THEN
3474: x_return_status := FND_API.G_RET_STS_ERROR;
3473: IF p_header_rec.start_date_active IS NULL THEN
3474: x_return_status := FND_API.G_RET_STS_ERROR;
3475: fnd_message.set_name('ONT','OE_ATTRIBUTE_REQUIRED');
3476: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Activation Date');
3477: OE_MSG_PUB.Add;
3478: END IF;
3479:
3480: ---------------------------------------------------------------------
3481: -- Bug 3193220
3490: if ( nvl(p_header_rec.source_document_type_id,0) = 2) --bug#5528507
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');
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;
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;
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'
3520: , OE_Order_Util.Get_Attribute_Name('ship_to_org_id'));
3521: OE_MSG_PUB.Add;
3522: END IF;
3523:
3524: END IF; -- Ship to
3525:
3558: l_return_status := FND_API.G_RET_STS_ERROR;
3559: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
3560: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
3561: OE_Order_Util.Get_Attribute_Name('SOLD_TO_SITE_USE_ID'));
3562: OE_MSG_PUB.Add;
3563:
3564: WHEN OTHERS THEN
3565:
3566: IF OE_MSG_PUB.Check_Msg_Level
3562: OE_MSG_PUB.Add;
3563:
3564: WHEN OTHERS THEN
3565:
3566: IF OE_MSG_PUB.Check_Msg_Level
3567: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3568: THEN
3569:
3570: OE_MSG_PUB.Add_Exc_Msg
3563:
3564: WHEN OTHERS THEN
3565:
3566: IF OE_MSG_PUB.Check_Msg_Level
3567: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3568: THEN
3569:
3570: OE_MSG_PUB.Add_Exc_Msg
3571: ( G_PKG_NAME ,
3566: IF OE_MSG_PUB.Check_Msg_Level
3567: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3568: THEN
3569:
3570: OE_MSG_PUB.Add_Exc_Msg
3571: ( G_PKG_NAME ,
3572: 'Record - Customer Location'
3573: );
3574: END IF;
3595: x_return_status := FND_API.G_RET_STS_ERROR;
3596: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
3597: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
3598: OE_Order_Util.Get_Attribute_Name('deliver_to_org_id'));
3599: OE_MSG_PUB.Add;
3600: END IF;
3601:
3602: END if; -- Deliver to
3603:
3611: x_return_status := FND_API.G_RET_STS_ERROR;
3612: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
3613: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
3614: OE_Order_Util.Get_Attribute_Name('invoice_to_org_id'));
3615: OE_MSG_PUB.Add;
3616: END IF;
3617:
3618: END IF; -- Invoice to org
3619:
3637: x_return_status := FND_API.G_RET_STS_ERROR;
3638: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
3639: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
3640: OE_Order_Util.Get_Attribute_Name('SOLD_TO_CONTACT_ID'));
3641: OE_MSG_PUB.Add;
3642: WHEN OTHERS THEN
3643: IF OE_MSG_PUB.Check_Msg_Level ( OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3644: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME , 'Record - Sold To Contact');
3645: END IF;
3639: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
3640: OE_Order_Util.Get_Attribute_Name('SOLD_TO_CONTACT_ID'));
3641: OE_MSG_PUB.Add;
3642: WHEN OTHERS THEN
3643: IF OE_MSG_PUB.Check_Msg_Level ( OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3644: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME , 'Record - Sold To Contact');
3645: END IF;
3646: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3647: END; -- BEGIN
3640: OE_Order_Util.Get_Attribute_Name('SOLD_TO_CONTACT_ID'));
3641: OE_MSG_PUB.Add;
3642: WHEN OTHERS THEN
3643: IF OE_MSG_PUB.Check_Msg_Level ( OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3644: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME , 'Record - Sold To Contact');
3645: END IF;
3646: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3647: END; -- BEGIN
3648: END IF; -- Sold to contact needed validation.
3650: if p_header_rec.start_date_active is not NULL and
3651: p_header_rec.end_date_active is not NULL and
3652: p_header_rec.start_date_active > p_header_rec.end_date_active then
3653: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_INVALID_DATE_RANGE');
3654: OE_MSG_PUB.ADD;
3655: x_return_status := FND_API.G_RET_STS_ERROR;
3656: end if;
3657:
3658: -- 11i10 Pricing Changes Start
3707: THEN
3708:
3709: -- Cannot enter ID for a new price list, only name
3710: fnd_message.set_name('ONT','OE_BLKT_CANT_ENTER_NEW_PL_ID');
3711: oe_msg_pub.add;
3712: x_return_status := FND_API.G_RET_STS_ERROR;
3713:
3714: ELSIF p_header_rec.new_price_list_name IS NOT NULL
3715: -- Bug 3213174
3729: WHERE name = p_header_rec.new_price_list_name
3730: AND rownum = 1;
3731:
3732: fnd_message.set_name('ONT','OE_BLKT_PRICE_LIST_EXISTS');
3733: oe_msg_pub.add;
3734: x_return_status := FND_API.G_RET_STS_ERROR;
3735:
3736: EXCEPTION
3737: WHEN NO_DATA_FOUND THEN
3745: THEN
3746:
3747: -- Cannot enter ID for a new modifier list, only name
3748: fnd_message.set_name('ONT','OE_BLKT_CANT_ENTER_MOD_LIST_ID');
3749: oe_msg_pub.add;
3750: x_return_status := FND_API.G_RET_STS_ERROR;
3751:
3752: ELSIF p_header_rec.new_modifier_list_name IS NOT NULL
3753: -- Bug 3213174
3769: WHERE name = p_header_rec.new_modifier_list_name
3770: AND rownum = 1;
3771:
3772: fnd_message.set_name('ONT','OE_BLKT_MOD_LIST_EXISTS');
3773: oe_msg_pub.add;
3774: x_return_status := FND_API.G_RET_STS_ERROR;
3775:
3776: EXCEPTION
3777: WHEN NO_DATA_FOUND THEN
3814: IF p_header_rec.end_date_active < trunc(sysdate) and
3815: l_old_header_rec.end_date_active < trunc(sysdate) THEN
3816: x_return_status := FND_API.G_RET_STS_ERROR;
3817: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_ATTR_CLOSED');
3818: OE_MSG_PUB.Add;
3819: END IF;
3820:
3821:
3822: --display warning if we haven't fulfilled minimum requirements
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;
3832:
3833:
3834: IF NOT OE_GLOBALS.Equal (p_header_rec.header_id,
3836: x_return_status := FND_API.G_RET_STS_ERROR;
3837: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_HDR_ATTRIBUTE');
3838: fnd_message.set_token('ATTRIBUTE',
3839: OE_Order_UTIL.Get_Attribute_Name('HEADER_ID'));
3840: OE_MSG_PUB.Add;
3841: END IF;
3842:
3843: IF NOT OE_GLOBALS.Equal (p_header_rec.order_number,
3844: l_old_header_rec.order_number) THEN
3845: x_return_status := FND_API.G_RET_STS_ERROR;
3846: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_HDR_ATTRIBUTE');
3847: fnd_message.set_token('ATTRIBUTE',
3848: OE_Order_UTIL.Get_Attribute_Name('BLANKET_NUMBER'));
3849: OE_MSG_PUB.Add;
3850: END IF;
3851:
3852: IF NOT OE_GLOBALS.Equal (p_header_rec.order_category_code,
3853: l_old_header_rec.order_category_code) THEN
3854: x_return_status := FND_API.G_RET_STS_ERROR;
3855: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_HDR_ATTRIBUTE');
3856: fnd_message.set_token('ATTRIBUTE',
3857: OE_Order_UTIL.Get_Attribute_Name('ORDER_CATEGORY_CODE'));
3858: OE_MSG_PUB.Add;
3859: END IF;
3860:
3861: IF NOT OE_GLOBALS.Equal (p_header_rec.org_id,
3862: l_old_header_rec.org_id) THEN
3863: x_return_status := FND_API.G_RET_STS_ERROR;
3864: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_HDR_ATTRIBUTE');
3865: fnd_message.set_token('ATTRIBUTE',
3866: OE_Order_UTIL.Get_Attribute_Name('ORG_ID'));
3867: OE_MSG_PUB.Add;
3868: END IF;
3869:
3870: --restricted from changing if releases exist
3871: IF p_header_rec.released_amount > 0 THEN
3874: x_return_status := FND_API.G_RET_STS_ERROR;
3875: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_HDR_ATTRIBUTE');
3876: fnd_message.set_token('ATTRIBUTE',
3877: OE_Order_UTIL.Get_Attribute_Name('SOLD_TO_ORG_ID'));
3878: OE_MSG_PUB.Add;
3879: END IF;
3880:
3881: IF NOT OE_GLOBALS.Equal (p_header_rec.transactional_curr_code,
3882: l_old_header_rec.transactional_curr_code) THEN
3883: x_return_status := FND_API.G_RET_STS_ERROR;
3884: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_HDR_ATTRIBUTE');
3885: fnd_message.set_token('ATTRIBUTE',
3886: OE_Order_UTIL.Get_Attribute_Name('TRANSACTIONAL_CURR_CODE'));
3887: OE_MSG_PUB.Add;
3888: END IF;
3889:
3890: IF NOT OE_GLOBALS.Equal (p_header_rec.start_date_active,
3891: l_old_header_rec.start_date_active) THEN
3891: l_old_header_rec.start_date_active) THEN
3892: x_return_status := FND_API.G_RET_STS_ERROR;
3893: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_HDR_ATTRIBUTE');
3894: fnd_message.set_token('ATTRIBUTE','Activation Date');
3895: OE_MSG_PUB.Add;
3896: END IF;
3897: END IF; --if releases exist
3898:
3899: IF NOT OE_GLOBALS.Equal (p_header_rec.released_amount,
3900: l_old_header_rec.released_amount) THEN
3901: x_return_status := FND_API.G_RET_STS_ERROR;
3902: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_HDR_ATTRIBUTE');
3903: fnd_message.set_token('ATTRIBUTE','Released Amount');
3904: OE_MSG_PUB.Add;
3905: END IF;
3906:
3907: IF NOT OE_GLOBALS.Equal (p_header_rec.returned_amount,
3908: l_old_header_rec.returned_amount) THEN
3910: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_HDR_ATTRIBUTE');
3911: fnd_message.set_token('ATTRIBUTE', 'Returned Amount');
3912: fnd_message.set_token('new amount', p_header_rec.returned_amount);
3913: fnd_message.set_token('old amount', l_old_header_rec.returned_amount);
3914: OE_MSG_PUB.Add;
3915: END IF;
3916:
3917: IF NOT OE_GLOBALS.Equal (p_header_rec.fulfilled_amount,
3918: l_old_header_rec.fulfilled_amount) THEN
3920: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_HDR_ATTRIBUTE');
3921: fnd_message.set_token('ATTRIBUTE','Fulfilled Amount');
3922: fnd_message.set_token('new amount', p_header_rec.fulfilled_amount);
3923: fnd_message.set_token('old amount', l_old_header_rec.fulfilled_amount);
3924: OE_MSG_PUB.Add;
3925: END IF;
3926:
3927:
3928: -- Date Validations
3950:
3951: IF l_dummy = 'ERROR' THEN
3952: x_return_status := FND_API.G_RET_STS_ERROR;
3953: fnd_message.set_name('ONT', 'OE_BLKT_END_DATE_CONFLICT');
3954: OE_MSG_PUB.Add;
3955: END IF;
3956:
3957: EXCEPTION
3958: WHEN NO_DATA_FOUND THEN
3974: AND ROWNUM = 1;
3975: IF l_dummy = 'ERROR' THEN
3976: x_return_status := FND_API.G_RET_STS_ERROR;
3977: fnd_message.set_name('ONT', 'OE_BLKT_RELEASE_END_DATE');
3978: OE_MSG_PUB.Add;
3979: END IF;
3980:
3981: EXCEPTION
3982: WHEN NO_DATA_FOUND THEN
4014: AND ROWNUM = 1;
4015:
4016: IF l_dummy = 'WARNING' THEN
4017: fnd_message.set_name('ONT', 'OE_BLKT_CLOSE_MIN_VALUES');
4018: OE_MSG_PUB.Add;
4019: END IF;
4020: END IF;
4021: END IF;
4022:
4035: AND p_header_rec.blanket_max_amount < p_header_rec.released_amount
4036: AND nvl(p_header_rec.override_amount_flag, 'N') = 'N' THEN
4037: x_return_status := FND_API.G_RET_STS_ERROR;
4038: fnd_message.set_name('ONT', 'OE_BLKT_UPDATE_MAX_LIMIT');
4039: OE_MSG_PUB.Add;
4040: END IF;
4041:
4042: -- Version Change
4043: -- Validations and Record History
4063: THEN
4064:
4065: x_return_status := FND_API.G_RET_STS_ERROR;
4066: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_INVALID_REVISION_NUM');
4067: OE_MSG_PUB.ADD;
4068:
4069: ELSIF p_header_rec.revision_change_reason_code IS NULL THEN
4070:
4071: x_return_status := FND_API.G_RET_STS_ERROR;
4070:
4071: x_return_status := FND_API.G_RET_STS_ERROR;
4072: FND_MESSAGE.SET_NAME('ONT','OE_ATTRIBUTE_REQUIRED');
4073: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Revision Reason');
4074: OE_MSG_PUB.ADD;
4075:
4076: ELSE
4077:
4078: --validate reason code
4087: EXCEPTION
4088: WHEN NO_DATA_FOUND THEN
4089: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_REASON_CODE');
4090: FND_MESSAGE.SET_TOKEN('REASON_CODE', p_header_rec.revision_change_reason_code);
4091: OE_MSG_PUB.ADD;
4092: x_return_status := FND_API.G_RET_STS_ERROR;
4093: END;
4094:
4095: */
4230: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4232: WHEN OTHERS THEN
4233: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4234: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4235: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME , 'Validate_Entity');
4236: END IF;
4237: END Validate_Entity;
4238:
4231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4232: WHEN OTHERS THEN
4233: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4234: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4235: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME , 'Validate_Entity');
4236: END IF;
4237: END Validate_Entity;
4238:
4239: PROCEDURE Insert_Row
4474: EXCEPTION
4475:
4476: WHEN OTHERS THEN
4477: OE_Blanket_Header_Security.g_check_all_cols_constraint := 'Y'; /* Bug # 5516348 */
4478: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4479: THEN
4480: OE_MSG_PUB.Add_Exc_Msg
4481: ( G_PKG_NAME
4482: , 'Insert_Row'
4476: WHEN OTHERS THEN
4477: OE_Blanket_Header_Security.g_check_all_cols_constraint := 'Y'; /* Bug # 5516348 */
4478: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4479: THEN
4480: OE_MSG_PUB.Add_Exc_Msg
4481: ( G_PKG_NAME
4482: , 'Insert_Row'
4483: );
4484: END IF;
4632:
4633: WHEN OTHERS THEN
4634:
4635: OE_Blanket_Header_Security.g_check_all_cols_constraint := 'Y'; /* Bug # 5516348 */
4636: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4637: THEN
4638: OE_MSG_PUB.Add_Exc_Msg
4639: ( G_PKG_NAME
4640: , 'Update_Row'
4634:
4635: OE_Blanket_Header_Security.g_check_all_cols_constraint := 'Y'; /* Bug # 5516348 */
4636: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4637: THEN
4638: OE_MSG_PUB.Add_Exc_Msg
4639: ( G_PKG_NAME
4640: , 'Update_Row'
4641: );
4642: END IF;
4763:
4764: EXCEPTION
4765: WHEN FND_API.G_EXC_ERROR THEN
4766: --added for delete articles
4767: OE_MSG_PUB.Count_And_Get
4768: (
4769: p_count => l_msg_count,
4770: p_data => l_msg_data
4771: );
4771: );
4772: RAISE FND_API.G_EXC_ERROR;
4773: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4774: --added for delete articles
4775: OE_MSG_PUB.Count_And_Get
4776: (
4777: p_count => l_msg_count,
4778: p_data => l_msg_data
4779: );
4779: );
4780: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4781: WHEN OTHERS THEN
4782:
4783: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4784: THEN
4785: OE_MSG_PUB.Add_Exc_Msg
4786: ( G_PKG_NAME
4787: , 'Delete_Row'
4781: WHEN OTHERS THEN
4782:
4783: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4784: THEN
4785: OE_MSG_PUB.Add_Exc_Msg
4786: ( G_PKG_NAME
4787: , 'Delete_Row'
4788: );
4789: END IF;
5042:
5043: WHEN OTHERS THEN
5044:
5045: OE_Blanket_Line_Security.g_check_all_cols_constraint := 'Y'; /* Bug # 5516348 */
5046: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5047: THEN
5048: OE_MSG_PUB.Add_Exc_Msg
5049: ( G_PKG_NAME
5050: , 'Insert_Row'
5044:
5045: OE_Blanket_Line_Security.g_check_all_cols_constraint := 'Y'; /* Bug # 5516348 */
5046: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5047: THEN
5048: OE_MSG_PUB.Add_Exc_Msg
5049: ( G_PKG_NAME
5050: , 'Insert_Row'
5051: );
5052: END IF;
5193:
5194:
5195: WHEN OTHERS THEN
5196: OE_Blanket_Line_Security.g_check_all_cols_constraint := 'Y'; /* Bug # 5516348 */
5197: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5198: THEN
5199: OE_MSG_PUB.Add_Exc_Msg
5200: ( G_PKG_NAME
5201: , 'Update_Row'
5195: WHEN OTHERS THEN
5196: OE_Blanket_Line_Security.g_check_all_cols_constraint := 'Y'; /* Bug # 5516348 */
5197: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5198: THEN
5199: OE_MSG_PUB.Add_Exc_Msg
5200: ( G_PKG_NAME
5201: , 'Update_Row'
5202: );
5203: END IF;
5289: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5290: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5291: WHEN OTHERS THEN
5292:
5293: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5294: THEN
5295: OE_MSG_PUB.Add_Exc_Msg
5296: ( G_PKG_NAME
5297: , 'Delete_Row'
5291: WHEN OTHERS THEN
5292:
5293: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5294: THEN
5295: OE_MSG_PUB.Add_Exc_Msg
5296: ( G_PKG_NAME
5297: , 'Delete_Row'
5298: );
5299: END IF;
5758: WHEN OTHERS THEN
5759:
5760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5761:
5762: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5763: THEN
5764: OE_MSG_PUB.Add_Exc_Msg
5765: ( G_PKG_NAME
5766: , 'Query_Header'
5760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5761:
5762: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5763: THEN
5764: OE_MSG_PUB.Add_Exc_Msg
5765: ( G_PKG_NAME
5766: , 'Query_Header'
5767: );
5768: END IF;
5987: (p_line_id IS NOT NULL
5988: AND
5989: p_header_id IS NOT NULL)
5990: THEN
5991: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5992: THEN
5993: OE_MSG_PUB.Add_Exc_Msg
5994: ( G_PKG_NAME
5995: , 'Query Rows'
5989: p_header_id IS NOT NULL)
5990: THEN
5991: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5992: THEN
5993: OE_MSG_PUB.Add_Exc_Msg
5994: ( G_PKG_NAME
5995: , 'Query Rows'
5996: , 'Keys are mutually exclusive: line_id = '|| p_line_id || ',
5997: header_id = '|| p_header_id
6316:
6317: WHEN OTHERS THEN
6318:
6319: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6320: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6321: THEN
6322: OE_MSG_PUB.Add_Exc_Msg
6323: ( G_PKG_NAME
6324: , 'Query_Lines'
6318:
6319: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6320: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6321: THEN
6322: OE_MSG_PUB.Add_Exc_Msg
6323: ( G_PKG_NAME
6324: , 'Query_Lines'
6325: );
6326: END IF;
6374:
6375: EXCEPTION
6376: WHEN OTHERS THEN
6377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6378: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6379: THEN
6380: OE_MSG_PUB.Add_Exc_Msg
6381: ( G_PKG_NAME
6382: , 'Query_Blanket'
6376: WHEN OTHERS THEN
6377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6378: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6379: THEN
6380: OE_MSG_PUB.Add_Exc_Msg
6381: ( G_PKG_NAME
6382: , 'Query_Blanket'
6383: );
6384: END IF;
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:
6436: Lock_Blanket
6437: ( x_return_status => l_return_status
6438: , p_blanket_id => p_blanket_id
6450: END IF;
6451:
6452: -- Get message count and data
6453:
6454: OE_MSG_PUB.Count_And_Get
6455: ( p_count => x_msg_count
6456: , p_data => x_msg_data
6457: );
6458:
6468: x_return_status := FND_API.G_RET_STS_ERROR;
6469:
6470: -- Get message count and data
6471:
6472: oe_msg_pub.count_and_get
6473: ( p_count => x_msg_count
6474: , p_data => x_msg_data
6475: );
6476:
6481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6482:
6483: -- Get message count and data
6484:
6485: oe_msg_pub.count_and_get
6486: ( p_count => x_msg_count
6487: , p_data => x_msg_data
6488: );
6489: WHEN OTHERS THEN
6487: , p_data => x_msg_data
6488: );
6489: WHEN OTHERS THEN
6490:
6491: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6492: THEN
6493: OE_MSG_PUB.Add_Exc_Msg
6494: ( G_PKG_NAME
6495: , 'Lock_Row'
6489: WHEN OTHERS THEN
6490:
6491: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6492: THEN
6493: OE_MSG_PUB.Add_Exc_Msg
6494: ( G_PKG_NAME
6495: , 'Lock_Row'
6496: );
6497: END IF;
6499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6500:
6501: -- Get message count and data
6502:
6503: OE_MSG_PUB.Count_And_Get
6504: ( p_count => x_msg_count
6505: , p_data => x_msg_data
6506: );
6507:
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:
6557: SAVEPOINT Lock_Blanket;
6558:
6559: -- Retrieve the primary key.
6657:
6658: -- Release the lock
6659:
6660: fnd_message.set_name('ONT','OE_LOCK_ROW_CHANGED');
6661: OE_MSG_PUB.Add;
6662:
6663: END IF;
6664:
6665: 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;
6684:
6685: OE_GLOBALS.G_LOCK_TEST := 'N';
6686:
6687: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION 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;
6697:
6698: OE_GLOBALS.G_LOCK_TEST := 'N';
6699:
6700: WHEN OTHERS 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
6708: ( G_PKG_NAME
6709: , 'Lock_Blanket'
6710: );
6711: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6880:
6881: EXCEPTION
6882: WHEN OTHERS THEN
6883: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6884: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6885: THEN
6886: OE_MSG_PUB.Add_Exc_Msg
6887: ( G_PKG_NAME
6888: , 'Default_Attributes - Header'
6882: WHEN OTHERS THEN
6883: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6884: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6885: THEN
6886: OE_MSG_PUB.Add_Exc_Msg
6887: ( G_PKG_NAME
6888: , 'Default_Attributes - Header'
6889: );
6890: END IF;
7098: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7100: WHEN OTHERS THEN
7101: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7102: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7103: THEN
7104: OE_MSG_PUB.Add_Exc_Msg
7105: ( G_PKG_NAME
7106: , 'Default_Attributes - Line'
7100: WHEN OTHERS THEN
7101: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7102: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7103: THEN
7104: OE_MSG_PUB.Add_Exc_Msg
7105: ( G_PKG_NAME
7106: , 'Default_Attributes - Line'
7107: );
7108: END IF;
7131: EXCEPTION
7132: WHEN OTHERS THEN
7133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7134:
7135: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7136: THEN
7137: OE_MSG_PUB.Add_Exc_Msg
7138: ( G_PKG_NAME
7139: , 'Load Header'
7133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7134:
7135: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7136: THEN
7137: OE_MSG_PUB.Add_Exc_Msg
7138: ( G_PKG_NAME
7139: , 'Load Header'
7140: );
7141: END IF;
7213:
7214: IF x_result <> FND_SEQNUM.SEQSUCC THEN
7215: IF x_result = FND_SEQNUM.NOTUSED THEN
7216: fnd_message.set_name('ONT','OE_MISS_DOC_SEQ');
7217: OE_MSG_PUB.Add;
7218: RAISE FND_API.G_EXC_ERROR;
7219: END IF;
7220:
7221: END IF;
7251: WHERE lookup_type = 'SEQUENCE_METHOD'
7252: AND lookup_code = t;
7253: fnd_message.set_name('ONT','OE_BLKT_INVALID_DOC_SEQ');
7254: fnd_message.set_token('Document Sequence', l_column_name);
7255: OE_MSG_PUB.Add;
7256:
7257: RAISE FND_API.G_EXC_ERROR;
7258: -- x_doc_sequence_value := p_x_header_rec.order_number;
7259: -- NULL;
7265: WHERE order_number = X_doc_sequence_value;
7266:
7267: IF lcount > 0 THEN
7268: fnd_message.set_name('ONT','OE_BLKT_NUM_EXISTS');
7269: OE_MSG_PUB.Add;
7270: RAISE FND_API.G_EXC_ERROR;
7271: END IF;
7272: END IF; -- Blanket category code not null
7273:
7290: end if;
7291:
7292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7293:
7294: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7295: THEN
7296: OE_MSG_PUB.Add_Exc_Msg
7297: ( G_PKG_NAME ,
7298: 'Get_Order_Number'
7292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7293:
7294: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7295: THEN
7296: OE_MSG_PUB.Add_Exc_Msg
7297: ( G_PKG_NAME ,
7298: 'Get_Order_Number'
7299: );
7300: END IF;
7473: --Commented for Bug 15879874
7474: --OE_Delayed_Requests_PVT.Clear_Request(lx_return_status); --bug 4691643
7475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7476:
7477: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7478: THEN
7479: OE_MSG_PUB.Add_Exc_Msg
7480: ( G_PKG_NAME
7481: ,'Process Object'
7475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7476:
7477: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7478: THEN
7479: OE_MSG_PUB.Add_Exc_Msg
7480: ( G_PKG_NAME
7481: ,'Process Object'
7482: );
7483: END IF;
7519:
7520: END IF;
7521: IF l_valid = 'N' THEN
7522: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_LINE_NUMBER_EXISTS');
7523: OE_MSG_PUB.ADD;
7524: RAISE FND_API.G_EXC_ERROR;
7525: END IF;
7526:
7527: EXCEPTION
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)
7544: THEN
7545: OE_MSG_PUB.Add_Exc_Msg
7546: ( G_PKG_NAME ,
7547: 'Validate Line NUmber'
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)
7544: THEN
7545: OE_MSG_PUB.Add_Exc_Msg
7546: ( G_PKG_NAME ,
7547: 'Validate Line NUmber'
7548: );
7549: END IF;
7655:
7656: if (lcount > 0) then
7657: -- ERROR: date overlap problem. Show error and
7658: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_UNIQUE_ITEM_VIOLATION');
7659: OE_MSG_PUB.ADD;
7660: RAISE FND_API.G_EXC_ERROR;
7661: end if;
7662:
7663: EXCEPTION
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
7677: OE_MSG_PUB.Add_Exc_Msg
7678: ( G_PKG_NAME ,
7679: 'Validate item uniqueness'
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
7677: OE_MSG_PUB.Add_Exc_Msg
7678: ( G_PKG_NAME ,
7679: 'Validate item uniqueness'
7680: );
7681: END IF;
7793: end if;
7794:
7795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7796:
7797: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7798: THEN
7799: OE_MSG_PUB.Add_Exc_Msg
7800: ( G_PKG_NAME ,
7801: 'Record Blanket History'
7795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7796:
7797: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7798: THEN
7799: OE_MSG_PUB.Add_Exc_Msg
7800: ( G_PKG_NAME ,
7801: 'Record Blanket History'
7802: );
7803: END IF;
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:
7835: SAVEPOINT Copy_Blanket;
7836:
7837: OE_MSG_PUB.set_msg_context(
7833: OE_MSG_PUB.initialize;
7834:
7835: SAVEPOINT Copy_Blanket;
7836:
7837: OE_MSG_PUB.set_msg_context(
7838: p_entity_code => 'BLANKET_HEADER'
7839: ,p_entity_id => p_header_id
7840: ,p_header_id => p_header_id
7841: ,p_line_id => null
7969: );
7970:
7971: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7972: fnd_message.set_name('ONT','OE_CPY_COPY_FAILED');
7973: OE_MSG_PUB.Add;
7974: ROLLBACK TO SAVEPOINT Copy_Blanket;
7975: RAISE FND_API.G_EXC_ERROR;
7976: END IF;
7977:
7993: END IF;
7994:
7995: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7996: fnd_message.set_name('ONT','OE_CPY_COPY_FAILED');
7997: OE_MSG_PUB.Add;
7998: ROLLBACK TO SAVEPOINT Copy_Blanket;
7999: RAISE FND_API.G_EXC_ERROR;
8000: ELSE
8001: fnd_message.set_name('ONT','OE_BL_COPY_SUCCESS');
8001: fnd_message.set_name('ONT','OE_BL_COPY_SUCCESS');
8002: -- Bug 3337297
8003: -- Set blanket number token
8004: fnd_message.set_token('BLANKET_NUMBER',x_header_rec.order_number);
8005: OE_MSG_PUB.Add;
8006: x_header_id := x_header_rec.header_id;
8007: END IF;
8008:
8009:
8008:
8009:
8010: -- Get message count and data
8011:
8012: OE_MSG_PUB.Count_And_Get
8013: ( p_count => x_msg_count
8014: , p_data => x_msg_data
8015: );
8016:
8017: EXCEPTION
8018: WHEN FND_API.G_EXC_ERROR THEN
8019: x_return_status := FND_API.G_RET_STS_ERROR;
8020:
8021: OE_MSG_PUB.Count_And_Get
8022: ( p_count => x_msg_count
8023: , p_data => x_msg_data
8024: );
8025:
8029: end if;
8030:
8031: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8032:
8033: OE_MSG_PUB.Count_And_Get
8034: ( p_count => x_msg_count
8035: , p_data => x_msg_data
8036: );
8037:
8034: ( p_count => x_msg_count
8035: , p_data => x_msg_data
8036: );
8037:
8038: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8039: THEN
8040: OE_MSG_PUB.Add_Exc_Msg
8041: ( G_PKG_NAME ,
8042: 'Copy Blanket'
8036: );
8037:
8038: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8039: THEN
8040: OE_MSG_PUB.Add_Exc_Msg
8041: ( G_PKG_NAME ,
8042: 'Copy Blanket'
8043: );
8044: END IF;
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);
8071: OE_MSG_PUB.ADD;
8072: x_return_status := FND_API.G_RET_STS_ERROR;
8073: END IF;
8074:
8075: EXCEPTION
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
8084: OE_MSG_PUB.Add_Exc_Msg
8085: ( G_PKG_NAME ,
8086: 'Validate min max range'
8080: end if;
8081:
8082: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8083: THEN
8084: OE_MSG_PUB.Add_Exc_Msg
8085: ( G_PKG_NAME ,
8086: 'Validate min max range'
8087: );
8088: END IF;
8893:
8894: EXCEPTION
8895:
8896: WHEN OTHERS THEN
8897: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8898: THEN
8899: OE_MSG_PUB.Add_Exc_Msg
8900: ( G_PKG_NAME
8901: , 'G_MISS_OE_AK_HEADER_REC'
8895:
8896: WHEN OTHERS THEN
8897: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8898: THEN
8899: OE_MSG_PUB.Add_Exc_Msg
8900: ( G_PKG_NAME
8901: , 'G_MISS_OE_AK_HEADER_REC'
8902: );
8903: END IF;
9009:
9010: EXCEPTION
9011:
9012: WHEN OTHERS THEN
9013: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9014: THEN
9015: OE_MSG_PUB.Add_Exc_Msg
9016: ( G_PKG_NAME
9017: , 'API_Rec_To_RowType_Rec'
9011:
9012: WHEN OTHERS THEN
9013: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9014: THEN
9015: OE_MSG_PUB.Add_Exc_Msg
9016: ( G_PKG_NAME
9017: , 'API_Rec_To_RowType_Rec'
9018: );
9019: END IF;
9117:
9118: EXCEPTION
9119:
9120: WHEN OTHERS THEN
9121: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9122: THEN
9123: OE_MSG_PUB.Add_Exc_Msg
9124: ( G_PKG_NAME
9125: , 'Rowtype_Rec_To_API_Rec'
9119:
9120: WHEN OTHERS THEN
9121: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9122: THEN
9123: OE_MSG_PUB.Add_Exc_Msg
9124: ( G_PKG_NAME
9125: , 'Rowtype_Rec_To_API_Rec'
9126: );
9127: END IF;
9192:
9193: EXCEPTION
9194:
9195: WHEN OTHERS THEN
9196: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9197: THEN
9198: OE_MSG_PUB.Add_Exc_Msg
9199: ( G_PKG_NAME
9200: , 'G_MISS_OE_AK_LINE_REC'
9194:
9195: WHEN OTHERS THEN
9196: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9197: THEN
9198: OE_MSG_PUB.Add_Exc_Msg
9199: ( G_PKG_NAME
9200: , 'G_MISS_OE_AK_LINE_REC'
9201: );
9202: END IF;
9289:
9290: EXCEPTION
9291:
9292: WHEN OTHERS THEN
9293: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9294: THEN
9295: OE_MSG_PUB.Add_Exc_Msg
9296: ( G_PKG_NAME
9297: , 'API_Rec_To_RowType_Rec'
9291:
9292: WHEN OTHERS THEN
9293: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9294: THEN
9295: OE_MSG_PUB.Add_Exc_Msg
9296: ( G_PKG_NAME
9297: , 'API_Rec_To_RowType_Rec'
9298: );
9299: END IF;
9386:
9387: EXCEPTION
9388:
9389: WHEN OTHERS THEN
9390: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9391: THEN
9392: OE_MSG_PUB.Add_Exc_Msg
9393: ( G_PKG_NAME
9394: , 'Rowtype_Rec_To_API_Rec'
9388:
9389: WHEN OTHERS THEN
9390: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9391: THEN
9392: OE_MSG_PUB.Add_Exc_Msg
9393: ( G_PKG_NAME
9394: , 'Rowtype_Rec_To_API_Rec'
9395: );
9396: END IF;
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;
9476: END Get_Inventory_Item;
9477:
9498: oe_blanket_lines_all where header_id = p_header_id;
9499: mc1x c1%ROWTYPE;
9500:
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);
9535: x_return_status := FND_API.G_RET_STS_ERROR;
9536: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
9537: FND_MESSAGE.SET_TOKEN('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;
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
9547: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME , 'Record - Ship To');
9548: END IF;
9549: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9550: END ;
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
9547: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME , 'Record - Ship To');
9548: END IF;
9549: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9550: END ;
9551: end if;
9568: x_return_status := FND_API.G_RET_STS_ERROR;
9569: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
9570: FND_MESSAGE.SET_TOKEN('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;
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
9580: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME , 'Record - Deliver To');
9581: END IF;
9582: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9583: END;
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
9580: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME , 'Record - Deliver To');
9581: END IF;
9582: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9583: END;
9584: end if;
9598: x_return_status := FND_API.G_RET_STS_ERROR;
9599: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
9600: FND_MESSAGE.SET_TOKEN('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;
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
9610: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME , 'Record - Invoice To');
9611: END IF;
9612: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9613: END;
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
9610: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME , 'Record - Invoice To');
9611: END IF;
9612: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9613: END;
9614: end if;
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
9664: ,p_header_id => l_header_rec.header_id
9665: ,p_line_id => null
9673:
9674: if (trunc(l_header_rec.end_date_active) < trunc(sysdate))
9675: then
9676: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_INVALID_DATE_RANGE');
9677: OE_MSG_PUB.ADD;
9678: x_return_status := FND_API.G_RET_STS_ERROR;
9679: end if;
9680:
9681:
9683: oe_debug_pub.add('validating Lines ',1);
9684: WHILE K IS NOT NULL
9685: LOOP
9686:
9687: OE_MSG_PUB.set_msg_context(
9688: p_entity_code => 'BLANKET_LINE'
9689: ,p_entity_id => l_line_tbl(K).line_id
9690: ,p_header_id => l_line_tbl(K).header_id
9691: ,p_line_id => l_line_tbl(K).line_id
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
9707: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_INVALID_DATE_RANGE');
9708: OE_MSG_PUB.ADD;
9709: x_return_status := FND_API.G_RET_STS_ERROR;
9710: end if;
9711:
9712: if( trunc(l_line_tbl(K).end_date_active) < trunc(sysdate))
9711:
9712: if( trunc(l_line_tbl(K).end_date_active) < trunc(sysdate))
9713: then
9714: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_INVALID_DATE_RANGE');
9715: OE_MSG_PUB.ADD;
9716: x_return_status := FND_API.G_RET_STS_ERROR;
9717: end if;
9718:
9719: K:= l_line_tbl.next(K);
9718:
9719: K:= l_line_tbl.next(K);
9720: END LOOP;
9721:
9722: OE_MSG_PUB.Count_And_Get
9723: ( p_count => x_msg_count
9724: , p_data => x_msg_data
9725: );
9726: