[Home] [Help]
17: RETURN BOOLEAN
18: IS
19: l_c_index NUMBER;
20: BEGIN
21: oe_debug_pub.add( ' Enter Validate_Line_Type',1);
22: oe_debug_pub.add( ' Order Date :' || to_char(p_ordered_date));
23: oe_debug_pub.add( 'start Date :'|| OE_BULK_CACHE.G_LINE_TYPE_TBL(p_line_type_id).start_date_active);
24: oe_debug_pub.add( 'end Date :'|| OE_BULK_CACHE.G_LINE_TYPE_TBL(p_line_type_id).end_date_active);
25: l_c_index := OE_BULK_CACHE.Load_Line_Type
18: IS
19: l_c_index NUMBER;
20: BEGIN
21: oe_debug_pub.add( ' Enter Validate_Line_Type',1);
22: oe_debug_pub.add( ' Order Date :' || to_char(p_ordered_date));
23: oe_debug_pub.add( 'start Date :'|| OE_BULK_CACHE.G_LINE_TYPE_TBL(p_line_type_id).start_date_active);
24: oe_debug_pub.add( 'end Date :'|| OE_BULK_CACHE.G_LINE_TYPE_TBL(p_line_type_id).end_date_active);
25: l_c_index := OE_BULK_CACHE.Load_Line_Type
26: (p_key => p_line_type_id);
19: l_c_index NUMBER;
20: BEGIN
21: oe_debug_pub.add( ' Enter Validate_Line_Type',1);
22: oe_debug_pub.add( ' Order Date :' || to_char(p_ordered_date));
23: oe_debug_pub.add( 'start Date :'|| OE_BULK_CACHE.G_LINE_TYPE_TBL(p_line_type_id).start_date_active);
24: oe_debug_pub.add( 'end Date :'|| OE_BULK_CACHE.G_LINE_TYPE_TBL(p_line_type_id).end_date_active);
25: l_c_index := OE_BULK_CACHE.Load_Line_Type
26: (p_key => p_line_type_id);
27:
20: BEGIN
21: oe_debug_pub.add( ' Enter Validate_Line_Type',1);
22: oe_debug_pub.add( ' Order Date :' || to_char(p_ordered_date));
23: oe_debug_pub.add( 'start Date :'|| OE_BULK_CACHE.G_LINE_TYPE_TBL(p_line_type_id).start_date_active);
24: oe_debug_pub.add( 'end Date :'|| OE_BULK_CACHE.G_LINE_TYPE_TBL(p_line_type_id).end_date_active);
25: l_c_index := OE_BULK_CACHE.Load_Line_Type
26: (p_key => p_line_type_id);
27:
28: IF p_ordered_date BETWEEN
28: IF p_ordered_date BETWEEN
29: nvl(OE_BULK_CACHE.G_LINE_TYPE_TBL(p_line_type_id).start_date_active,sysdate)
30: AND nvl(OE_BULK_CACHE.G_LINE_TYPE_TBL(p_line_type_id).end_date_active,sysdate)
31: THEN
32: oe_debug_pub.add( 'Line Type Valid');
33: RETURN TRUE;
34: ELSE
35: oe_debug_pub.add( 'Line Type NOT Valid');
36: RETURN FALSE;
31: THEN
32: oe_debug_pub.add( 'Line Type Valid');
33: RETURN TRUE;
34: ELSE
35: oe_debug_pub.add( 'Line Type NOT Valid');
36: RETURN FALSE;
37: END IF;
38:
39: EXCEPTION
50: IS
51: l_c_index NUMBER;
52: l_rule_type VARCHAR2(10);
53: --
54: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
55: --
56: BEGIN
57:
58: x_return_status := FND_API.G_RET_STS_SUCCESS;
130: IF p_line_rec.item_type_code(p_index) <> 'SERVICE' THEN
131: IF p_line_rec.accounting_rule_id(p_index) IS NOT NULL AND
132: p_line_rec.accounting_rule_id(p_index) <> FND_API.G_MISS_NUM THEN
133: IF l_debug_level > 0 THEN
134: oe_debug_pub.add( 'GETTING ACCOUNTING RULE TYPE' ) ;
135: END IF;
136: SELECT type
137: INTO l_rule_type
138: FROM ra_rules
137: INTO l_rule_type
138: FROM ra_rules
139: WHERE rule_id = p_line_rec.accounting_rule_id(p_index);
140: IF l_debug_level > 0 THEN
141: oe_debug_pub.add( 'RULE_TYPE IS :'||L_RULE_TYPE||': ACCOUNTING RULE DURATION IS: '||P_LINE_REC.ACCOUNTING_RULE_DURATION ( P_INDEX ) ) ;
142: END IF;
143: IF l_rule_type = 'ACC_DUR' THEN
144: IF p_line_rec.accounting_rule_duration(p_index) IS NULL THEN
145: x_return_status := FND_API.G_RET_STS_ERROR;
197: -- 2. Check over return
198:
199: EXCEPTION
200: WHEN OTHERS THEN
201: oe_debug_pub.add('Others Error, Line.Check_Book_Reqd_Attributes');
202: oe_debug_pub.add(substr(sqlerrm,1,240));
203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
204: IF OE_BULK_MSG_PUB.Check_Msg_Level(OE_BULK_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
205: THEN
198:
199: EXCEPTION
200: WHEN OTHERS THEN
201: oe_debug_pub.add('Others Error, Line.Check_Book_Reqd_Attributes');
202: oe_debug_pub.add(substr(sqlerrm,1,240));
203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
204: IF OE_BULK_MSG_PUB.Check_Msg_Level(OE_BULK_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
205: THEN
206: OE_BULK_MSG_PUB.Add_Exc_Msg
215: , p_index IN NUMBER
216: , x_return_status IN OUT NOCOPY VARCHAR2
217: )
218: IS
219: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
220:
221: l_c_index NUMBER;
222: l_org_id NUMBER;
223: l_bill_seq_id NUMBER;
287: (p_line_rec.item_type_code(p_index) <> 'STANDARD'
288: OR p_line_rec.ato_line_id(p_index) is not null) THEN
289:
290: IF l_debug_level > 0 THEN
291: oe_debug_pub.add( 'CHECKING THAT IT IS A STANDARD ITEM...' , 1 ) ;
292: END IF;
293:
294: FND_MESSAGE.SET_NAME('ONT', 'OE_SCH_INACTIVE_STD_ONLY');
295: FND_MESSAGE.SET_TOKEN('LTYPE',
296: nvl(Oe_Schedule_Util.sch_cached_line_type ,'0'));
297: OE_BULK_MSG_PUB.Add;
298:
299: IF l_debug_level > 0 THEN
300: oe_debug_pub.add( 'OE_SCH_INACTIVE_STD_ONLY' , 1 ) ;
301: END IF;
302: X_return_status := FND_API.G_RET_STS_ERROR;
303: END IF;
304:
315: THEN
316: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ATO_WHSE_REQD');
317: OE_BULK_MSG_PUB.Add;
318: IF l_debug_level > 0 THEN
319: oe_debug_pub.add( 'OE_SCH_ATO_WHSE_REQD' , 1 ) ;
320: END IF;
321: x_return_status := FND_API.G_RET_STS_ERROR;
322:
323: END IF;
336:
337: l_make_buy := OE_BULK_CACHE.G_ITEM_TBL(l_c_index).planning_make_buy_code;
338:
339: IF l_debug_level > 0 THEN
340: oe_debug_pub.add( 'L_MAKE_BUY' || L_MAKE_BUY , 2 ) ;
341: END IF;
342:
343: IF nvl(l_make_buy,1) <> 2 THEN
344: BEGIN
351:
352: EXCEPTION
353: WHEN NO_DATA_FOUND THEN
354: IF l_debug_level > 0 THEN
355: oe_debug_pub.add( 'OE_BOM_NO_BILL_IN_SHP_ORG' , 2 ) ;
356: END IF;
357:
358: FND_MESSAGE.SET_NAME('ONT','OE_BOM_NO_BILL_IN_SHP_ORG');
359: FND_MESSAGE.SET_TOKEN('ITEM',p_line_rec.ordered_item(p_index));
362: Into l_org_code
363: From ORG_ORGANIZATION_DEFINITIONS
364: Where ORGANIZATION_ID = l_org_id;
365: IF l_debug_level > 0 THEN
366: oe_debug_pub.add( 'ORGANIZATION CODE:'||L_ORG_CODE , 2 ) ;
367: END IF;
368: FND_MESSAGE.SET_TOKEN('ORG',l_org_code);
369: OE_MSG_PUB.Add;
370: x_return_status := FND_API.G_RET_STS_ERROR;
426: l_error_code VARCHAR2(9);
427: l_error_flag VARCHAR2(1);
428: l_error_message VARCHAR2(2000);
429: --
430: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
431: --
432: BEGIN
433: IF l_debug_level > 0 THEN
434: oe_debug_pub.add( 'ENTERING OE_BULK_PROCESS_LINE.Get_Item_Info' ) ;
430: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
431: --
432: BEGIN
433: IF l_debug_level > 0 THEN
434: oe_debug_pub.add( 'ENTERING OE_BULK_PROCESS_LINE.Get_Item_Info' ) ;
435: END IF;
436:
437: IF l_debug_level > 0 THEN
438: oe_debug_pub.add( 'order_source_id: ' ||p_line_rec.order_source_id(p_index));
434: oe_debug_pub.add( 'ENTERING OE_BULK_PROCESS_LINE.Get_Item_Info' ) ;
435: END IF;
436:
437: IF l_debug_level > 0 THEN
438: oe_debug_pub.add( 'order_source_id: ' ||p_line_rec.order_source_id(p_index));
439: oe_debug_pub.add( 'orig_sys_document_ref: ' || p_line_rec.orig_sys_document_ref(p_index));
440: oe_debug_pub.add( 'orig_sys_line_ref: ' || p_line_rec.orig_sys_line_ref(p_index));
441: oe_debug_pub.add( 'orig_sys_shipment_ref: ' || p_line_rec.orig_sys_shipment_ref(p_index));
442: oe_debug_pub.add( 'org_id: ' || p_line_rec.org_id(p_index));
435: END IF;
436:
437: IF l_debug_level > 0 THEN
438: oe_debug_pub.add( 'order_source_id: ' ||p_line_rec.order_source_id(p_index));
439: oe_debug_pub.add( 'orig_sys_document_ref: ' || p_line_rec.orig_sys_document_ref(p_index));
440: oe_debug_pub.add( 'orig_sys_line_ref: ' || p_line_rec.orig_sys_line_ref(p_index));
441: oe_debug_pub.add( 'orig_sys_shipment_ref: ' || p_line_rec.orig_sys_shipment_ref(p_index));
442: oe_debug_pub.add( 'org_id: ' || p_line_rec.org_id(p_index));
443: END IF;
436:
437: IF l_debug_level > 0 THEN
438: oe_debug_pub.add( 'order_source_id: ' ||p_line_rec.order_source_id(p_index));
439: oe_debug_pub.add( 'orig_sys_document_ref: ' || p_line_rec.orig_sys_document_ref(p_index));
440: oe_debug_pub.add( 'orig_sys_line_ref: ' || p_line_rec.orig_sys_line_ref(p_index));
441: oe_debug_pub.add( 'orig_sys_shipment_ref: ' || p_line_rec.orig_sys_shipment_ref(p_index));
442: oe_debug_pub.add( 'org_id: ' || p_line_rec.org_id(p_index));
443: END IF;
444:
437: IF l_debug_level > 0 THEN
438: oe_debug_pub.add( 'order_source_id: ' ||p_line_rec.order_source_id(p_index));
439: oe_debug_pub.add( 'orig_sys_document_ref: ' || p_line_rec.orig_sys_document_ref(p_index));
440: oe_debug_pub.add( 'orig_sys_line_ref: ' || p_line_rec.orig_sys_line_ref(p_index));
441: oe_debug_pub.add( 'orig_sys_shipment_ref: ' || p_line_rec.orig_sys_shipment_ref(p_index));
442: oe_debug_pub.add( 'org_id: ' || p_line_rec.org_id(p_index));
443: END IF;
444:
445: SELECT INVENTORY_ITEM_SEGMENT_1
438: oe_debug_pub.add( 'order_source_id: ' ||p_line_rec.order_source_id(p_index));
439: oe_debug_pub.add( 'orig_sys_document_ref: ' || p_line_rec.orig_sys_document_ref(p_index));
440: oe_debug_pub.add( 'orig_sys_line_ref: ' || p_line_rec.orig_sys_line_ref(p_index));
441: oe_debug_pub.add( 'orig_sys_shipment_ref: ' || p_line_rec.orig_sys_shipment_ref(p_index));
442: oe_debug_pub.add( 'org_id: ' || p_line_rec.org_id(p_index));
443: END IF;
444:
445: SELECT INVENTORY_ITEM_SEGMENT_1
446: , INVENTORY_ITEM_SEGMENT_2
497: -- combination. If there are multiple rows, it will be errored out in
498: -- the duplicate check in procedure Entity.
499: AND rownum = 1;
500:
501: oe_debug_pub.add( 'In Get_Item_Info 1' ) ;
502:
503: ----------------------------------------------------------------------
504: --(1) Populate p_line_rec.inventory_item_id with ccid if any of the
505: --segments are passed instead of inventory_item_id
529: THEN
530: FND_FLEX_KEY_API.SET_SESSION_MODE('customer_data');
531: l_flexfield := FND_FLEX_KEY_API.FIND_FLEXFIELD('INV', 'MSTK');
532: IF l_debug_level > 0 THEN
533: oe_debug_pub.add( 'AFTER FIND FLEXFIELD' ) ;
534: END IF;
535: l_structure.structure_number := 101;
536: FND_FLEX_KEY_API.GET_SEGMENTS(l_flexfield, l_structure, TRUE, l_n_segments, l_segments);
537: IF l_debug_level > 0 THEN
534: END IF;
535: l_structure.structure_number := 101;
536: FND_FLEX_KEY_API.GET_SEGMENTS(l_flexfield, l_structure, TRUE, l_n_segments, l_segments);
537: IF l_debug_level > 0 THEN
538: oe_debug_pub.add( 'SEGMENTS ENABLED = '||L_N_SEGMENTS ) ;
539: END IF;
540: IF l_debug_level > 0 THEN
541: oe_debug_pub.add( 'VALIDATION_ORG_ID = '||OE_BULK_ORDER_PVT.G_ITEM_ORG ) ;
542: END IF;
537: IF l_debug_level > 0 THEN
538: oe_debug_pub.add( 'SEGMENTS ENABLED = '||L_N_SEGMENTS ) ;
539: END IF;
540: IF l_debug_level > 0 THEN
541: oe_debug_pub.add( 'VALIDATION_ORG_ID = '||OE_BULK_ORDER_PVT.G_ITEM_ORG ) ;
542: END IF;
543: IF l_debug_level > 0 THEN
544: oe_debug_pub.add( 'ARRAY1 = '||L_SEGMENT_ARRAY ( 1 ) ) ;
545: END IF;
540: IF l_debug_level > 0 THEN
541: oe_debug_pub.add( 'VALIDATION_ORG_ID = '||OE_BULK_ORDER_PVT.G_ITEM_ORG ) ;
542: END IF;
543: IF l_debug_level > 0 THEN
544: oe_debug_pub.add( 'ARRAY1 = '||L_SEGMENT_ARRAY ( 1 ) ) ;
545: END IF;
546: IF FND_FLEX_EXT.GET_COMBINATION_ID('INV', 'MSTK', 101, SYSDATE, l_n_segments, l_segment_array, l_id, OE_BULK_ORDER_PVT.G_ITEM_ORG) THEN
547: p_line_rec.inventory_item_id(p_index) := l_id;
548: IF l_debug_level > 0 THEN
545: END IF;
546: IF FND_FLEX_EXT.GET_COMBINATION_ID('INV', 'MSTK', 101, SYSDATE, l_n_segments, l_segment_array, l_id, OE_BULK_ORDER_PVT.G_ITEM_ORG) THEN
547: p_line_rec.inventory_item_id(p_index) := l_id;
548: IF l_debug_level > 0 THEN
549: oe_debug_pub.add( 'GET CCID = '||P_LINE_REC.INVENTORY_ITEM_ID ( P_INDEX ) ) ;
550: END IF;
551: RETURN;
552: ELSE
553: IF l_debug_level > 0 THEN
550: END IF;
551: RETURN;
552: ELSE
553: IF l_debug_level > 0 THEN
554: oe_debug_pub.add( 'ERROR IN GETTING CCID' ) ;
555: END IF;
556: failure_message := fnd_flex_ext.get_message;
557: OE_BULK_MSG_PUB.Add_TEXT(failure_message);
558: RAISE FND_API.G_EXC_ERROR;
556: failure_message := fnd_flex_ext.get_message;
557: OE_BULK_MSG_PUB.Add_TEXT(failure_message);
558: RAISE FND_API.G_EXC_ERROR;
559: IF l_debug_level > 0 THEN
560: oe_debug_pub.add( 'FAILURE MESSAGE = ' || SUBSTR ( FAILURE_MESSAGE , 1 , 50 ) ) ;
561: END IF;
562: IF l_debug_level > 0 THEN
563: oe_debug_pub.add( 'FAILURE MESSAGE = ' || SUBSTR ( FAILURE_MESSAGE , 51 , 50 ) ) ;
564: oe_debug_pub.add( 'FAILURE MESSAGE = ' || SUBSTR ( FAILURE_MESSAGE , 101 , 50 ) ) ;
559: IF l_debug_level > 0 THEN
560: oe_debug_pub.add( 'FAILURE MESSAGE = ' || SUBSTR ( FAILURE_MESSAGE , 1 , 50 ) ) ;
561: END IF;
562: IF l_debug_level > 0 THEN
563: oe_debug_pub.add( 'FAILURE MESSAGE = ' || SUBSTR ( FAILURE_MESSAGE , 51 , 50 ) ) ;
564: oe_debug_pub.add( 'FAILURE MESSAGE = ' || SUBSTR ( FAILURE_MESSAGE , 101 , 50 ) ) ;
565: END IF;
566: END IF;
567: END IF;
560: oe_debug_pub.add( 'FAILURE MESSAGE = ' || SUBSTR ( FAILURE_MESSAGE , 1 , 50 ) ) ;
561: END IF;
562: IF l_debug_level > 0 THEN
563: oe_debug_pub.add( 'FAILURE MESSAGE = ' || SUBSTR ( FAILURE_MESSAGE , 51 , 50 ) ) ;
564: oe_debug_pub.add( 'FAILURE MESSAGE = ' || SUBSTR ( FAILURE_MESSAGE , 101 , 50 ) ) ;
565: END IF;
566: END IF;
567: END IF;
568:
611: ENd IF;
612:
613: IF p_line_rec.sold_to_org_id(p_index) IS NULL THEN
614: IF l_debug_level > 0 THEN
615: oe_debug_pub.add( 'SOLD TO ORG ID IS MISSING , CAN NOT GET CUST ITEM' ) ;
616: END IF;
617: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_CUSTOMER_ID');
618: OE_BULK_MSG_PUB.Add;
619: RAISE FND_API.G_EXC_ERROR;
634: );
635:
636: IF l_error_message IS NOT NULL THEN
637: IF l_debug_level > 0 THEN
638: oe_debug_pub.add( 'INV API CI_ATTR_VAL FOR INV_ITEM_ID RETURNED ERROR' ) ;
639: END IF;
640: FND_MESSAGE.SET_NAME('ONT','OE_INV_CUS_ITEM');
641: FND_MESSAGE.SET_TOKEN('ERROR_CODE', l_error_code);
642: FND_MESSAGE.SET_TOKEN('ERROR_MESSAGE', l_error_message);
658: );
659:
660: IF l_error_message IS NOT NULL THEN
661: IF l_debug_level > 0 THEN
662: oe_debug_pub.add( 'INV API CI_ATTR_VAL FOR ORDERED_ITEM_ID RETURNED ERROR' ) ;
663: END IF;
664: FND_MESSAGE.SET_NAME('ONT','OE_INV_CUS_ITEM');
665: FND_MESSAGE.SET_TOKEN('ERROR_CODE', l_error_code);
666: FND_MESSAGE.SET_TOKEN('ERROR_MESSAGE', l_error_message);
668: END IF;
669:
670: IF l_inventory_item_id_int <> l_inventory_item_id_cust THEN
671: IF l_debug_level > 0 THEN
672: oe_debug_pub.add( 'INV ITEM AND CUST ITEM MISMATCH' ) ;
673: END IF;
674: FND_MESSAGE.SET_NAME('ONT','OE_INV_INT_CUS_ITEM_ID');
675: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',l_inventory_item_id_int);
676: FND_MESSAGE.SET_TOKEN('CUST_ITEM_ID',l_inventory_item_id_cust);
702: OR l_inventory_item_id_int IS NULL);
703: EXCEPTION
704: WHEN NO_DATA_FOUND THEN
705: IF l_debug_level > 0 THEN
706: oe_debug_pub.add( 'NO DATA FOUND - GENERIC CROSS REF' ) ;
707: END IF;
708: NULL;
709: WHEN TOO_MANY_ROWS THEN
710: IF l_debug_level > 0 THEN
707: END IF;
708: NULL;
709: WHEN TOO_MANY_ROWS THEN
710: IF l_debug_level > 0 THEN
711: oe_debug_pub.add( 'TOO MANY ROWS ERROR: '||SQLERRM ) ;
712: END IF;
713: FND_MESSAGE.SET_NAME('ONT','OE_NOT_UNIQUE_ITEM');
714: FND_MESSAGE.SET_TOKEN('GENERIC_ITEM', p_line_rec.ordered_item(p_index));
715: OE_BULK_MSG_PUB.Add;
717:
718: IF l_inventory_item_Id_int <> l_inventory_item_id_gen
719: THEN
720: IF l_debug_level > 0 THEN
721: oe_debug_pub.add( 'WARNING: GENERIC AND INVENTORY ITEM ARE DIFFERENT' ) ;
722: END IF;
723: FND_MESSAGE.SET_NAME('ONT','OE_INV_INT_CUS_ITEM_ID');
724: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', l_inventory_item_id_int);
725: FND_MESSAGE.SET_TOKEN('CUST_ITEM_ID', l_inventory_item_id_gen);
742: WHEN FND_API.G_EXC_ERROR THEN
743: p_line_rec.lock_control(p_index) := -99;
744: WHEN OTHERS THEN
745: IF l_debug_level > 0 THEN
746: oe_debug_pub.add( 'OTHERS ERROR , LINE.GET_ITEM_INFO' ) ;
747: END IF;
748: IF l_debug_level > 0 THEN
749: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
750: END IF;
745: IF l_debug_level > 0 THEN
746: oe_debug_pub.add( 'OTHERS ERROR , LINE.GET_ITEM_INFO' ) ;
747: END IF;
748: IF l_debug_level > 0 THEN
749: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
750: END IF;
751: IF OE_BULK_MSG_PUB.Check_Msg_Level(OE_BULK_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
752: THEN
753: OE_BULK_MSG_PUB.Add_Exc_Msg
768: RETURN BOOLEAN
769: IS
770: l_dummy VARCHAR2(10);
771: --
772: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
773: --
774: BEGIN
775:
776: IF p_ship_from_org_id IS NOT NULL THEN
805: -- validate the subinv is allowed (expense/asset)
806: -- because defaulting can be defaulting an expense sub
807: -- and the INV profile is set to No.
808: IF l_debug_level > 0 THEN
809: oe_debug_pub.add( 'ENTITY: PROFILE EXPENSE_ASSET:' || FND_PROFILE.VALUE ( 'INV:EXPENSE_TO_ASSET_TRANSFER' ) , 5 ) ;
810: END IF;
811: BEGIN
812:
813: select 'Y'
990: l_validated_quantity NUMBER;
991: l_primary_quantity NUMBER;
992: l_qty_return_status VARCHAR2(1);
993: --
994: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
995: --
996: BEGIN
997: -- validate input quantity
998: IF (p_input_quantity is not null AND
1005: FND_MESSAGE.SET_NAME('ONT', 'SO_PR_NEGATIVE_AMOUNT');
1006: OE_BULK_MSG_PUB.Add('Y','ERROR');
1007: x_return_status := -99;
1008: IF l_debug_level > 0 THEN
1009: oe_debug_pub.add ('Validate decimal quantity - quantity negative so error ', 3);
1010: END IF;
1011: RETURN;
1012: END IF; -- IF nvl(p_input_quantity, 0) < 0
1013:
1020: IF p_item_type_code IN ('MODEL', 'OPTION', 'KIT',
1021: 'CLASS','INCLUDED', 'CONFIG')
1022: THEN
1023: IF l_debug_level > 0 THEN
1024: oe_debug_pub.add( 'ITEM IS CONFIG RELATED WITH DECIMAL QTY' , 2 ) ;
1025: END IF;
1026: FND_MESSAGE.SET_NAME('ONT', 'OE_CONFIG_NO_DECIMALS');
1027: OE_BULK_MSG_PUB.Add('Y','ERROR');
1028: x_return_status := -99;
1041:
1042: IF l_qty_return_status = 'W' OR
1043: l_qty_return_status = 'E' THEN
1044: IF l_debug_level > 0 THEN
1045: oe_debug_pub.add( 'INV DECIMAL API RETURN ' || L_QTY_RETURN_STATUS , 2 ) ;
1046: oe_debug_pub.add( 'INPUT_QTY '|| P_INPUT_QUANTITY , 2 ) ;
1047: oe_debug_pub.add( 'L_PRI_QTY '|| L_PRIMARY_QUANTITY , 2 ) ;
1048: oe_debug_pub.add( 'L_VAL_QTY '|| L_VALIDATED_QUANTITY , 2 ) ;
1049: END IF;
1042: IF l_qty_return_status = 'W' OR
1043: l_qty_return_status = 'E' THEN
1044: IF l_debug_level > 0 THEN
1045: oe_debug_pub.add( 'INV DECIMAL API RETURN ' || L_QTY_RETURN_STATUS , 2 ) ;
1046: oe_debug_pub.add( 'INPUT_QTY '|| P_INPUT_QUANTITY , 2 ) ;
1047: oe_debug_pub.add( 'L_PRI_QTY '|| L_PRIMARY_QUANTITY , 2 ) ;
1048: oe_debug_pub.add( 'L_VAL_QTY '|| L_VALIDATED_QUANTITY , 2 ) ;
1049: END IF;
1050: /* bug 2926436 */
1043: l_qty_return_status = 'E' THEN
1044: IF l_debug_level > 0 THEN
1045: oe_debug_pub.add( 'INV DECIMAL API RETURN ' || L_QTY_RETURN_STATUS , 2 ) ;
1046: oe_debug_pub.add( 'INPUT_QTY '|| P_INPUT_QUANTITY , 2 ) ;
1047: oe_debug_pub.add( 'L_PRI_QTY '|| L_PRIMARY_QUANTITY , 2 ) ;
1048: oe_debug_pub.add( 'L_VAL_QTY '|| L_VALIDATED_QUANTITY , 2 ) ;
1049: END IF;
1050: /* bug 2926436 */
1051: IF l_qty_return_status = 'W' THEN
1044: IF l_debug_level > 0 THEN
1045: oe_debug_pub.add( 'INV DECIMAL API RETURN ' || L_QTY_RETURN_STATUS , 2 ) ;
1046: oe_debug_pub.add( 'INPUT_QTY '|| P_INPUT_QUANTITY , 2 ) ;
1047: oe_debug_pub.add( 'L_PRI_QTY '|| L_PRIMARY_QUANTITY , 2 ) ;
1048: oe_debug_pub.add( 'L_VAL_QTY '|| L_VALIDATED_QUANTITY , 2 ) ;
1049: END IF;
1050: /* bug 2926436 */
1051: IF l_qty_return_status = 'W' THEN
1052: fnd_message.set_name('ONT', 'OE_DECIMAL_MAX_PRECISION');
1078: IS
1079: l_c_index NUMBER;
1080: l_dummy VARCHAR2(10);
1081: --
1082: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1083: --
1084: BEGIN
1085:
1086: -- If inventory item is not assigned to the item validation org,
1184:
1185: EXCEPTION
1186: WHEN NO_DATA_FOUND THEN
1187: IF l_debug_level > 0 THEN
1188: oe_debug_pub.add( 'VALIDATE_ITEM_FIELDS: NO DATA FOUND' , 1 ) ;
1189: END IF;
1190: IF nvl(p_item_identifier_type, 'INT') = 'INT' THEN
1191: IF l_debug_level > 0 THEN
1192: oe_debug_pub.add( 'INVALID INTERNAL ITEM' ) ;
1188: oe_debug_pub.add( 'VALIDATE_ITEM_FIELDS: NO DATA FOUND' , 1 ) ;
1189: END IF;
1190: IF nvl(p_item_identifier_type, 'INT') = 'INT' THEN
1191: IF l_debug_level > 0 THEN
1192: oe_debug_pub.add( 'INVALID INTERNAL ITEM' ) ;
1193: END IF;
1194: ELSIF nvl(p_item_identifier_type, 'INT') = 'CUST' THEN
1195: IF l_debug_level > 0 THEN
1196: oe_debug_pub.add( 'INVALID CUSTOMER ITEM' ) ;
1192: oe_debug_pub.add( 'INVALID INTERNAL ITEM' ) ;
1193: END IF;
1194: ELSIF nvl(p_item_identifier_type, 'INT') = 'CUST' THEN
1195: IF l_debug_level > 0 THEN
1196: oe_debug_pub.add( 'INVALID CUSTOMER ITEM' ) ;
1197: END IF;
1198: ELSE
1199: IF l_debug_level > 0 THEN
1200: oe_debug_pub.add( 'INVALID GENERIC ITEM' ) ;
1196: oe_debug_pub.add( 'INVALID CUSTOMER ITEM' ) ;
1197: END IF;
1198: ELSE
1199: IF l_debug_level > 0 THEN
1200: oe_debug_pub.add( 'INVALID GENERIC ITEM' ) ;
1201: END IF;
1202: END IF;
1203: RETURN FALSE;
1204: WHEN OTHERS THEN
1202: END IF;
1203: RETURN FALSE;
1204: WHEN OTHERS THEN
1205: IF l_debug_level > 0 THEN
1206: oe_debug_pub.add( 'VALIDATE_ITEM_FIELDS: WHEN OTHERS' , 1 ) ;
1207: END IF;
1208: RETURN FALSE;
1209: END Validate_Item_Fields;
1210:
1235:
1236: RETURN BOOLEAN
1237: IS
1238: --
1239: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1240: --
1241: BEGIN
1242: IF LENGTHB(p_user_item_description) > 240 THEN
1243: fnd_message.set_name('ONT','ONT_USER_ITEM_DESC_TOO_LONG');
1242: IF LENGTHB(p_user_item_description) > 240 THEN
1243: fnd_message.set_name('ONT','ONT_USER_ITEM_DESC_TOO_LONG');
1244: OE_BULK_MSG_PUB.ADD;
1245: IF l_debug_level > 0 THEN
1246: oe_debug_pub.add( 'THE LENGTH OF USER_ITEM_DESCRIPTION SHOULD NOT EXCEED 240 CHARA CTERS FOR DROP SHIP LINES.' , 3 ) ;
1247: END IF;
1248: RETURN FALSE;
1249: END IF;
1250:
1252:
1253: EXCEPTION
1254: WHEN OTHERS THEN
1255: IF l_debug_level > 0 THEN
1256: oe_debug_pub.add( 'VALIDATE_USER_ITEM_DESCRIPTION: WHEN OTHERS' , 1 ) ;
1257: END IF;
1258: RETURN FALSE;
1259: END Validate_User_Item_Description;
1260:
1268: l_index NUMBER;
1269: l_ii_index NUMBER;
1270: l_last_ii_index NUMBER;
1271: --
1272: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1273: --
1274: BEGIN
1275:
1276: l_header_id := OE_Bulk_Order_PVT.g_header_rec.header_id(p_header_index);
1275:
1276: l_header_id := OE_Bulk_Order_PVT.g_header_rec.header_id(p_header_index);
1277:
1278: IF l_debug_level > 0 THEN
1279: oe_debug_pub.add( 'UNBOOK ORDER , HEADER ID:'||L_HEADER_ID ) ;
1280: oe_debug_pub.add( 'HEADER INDEX :'||P_HEADER_INDEX ) ;
1281: oe_debug_pub.add( 'LAST LINE INDEX :'||P_LAST_LINE_INDEX ) ;
1282: END IF;
1283:
1276: l_header_id := OE_Bulk_Order_PVT.g_header_rec.header_id(p_header_index);
1277:
1278: IF l_debug_level > 0 THEN
1279: oe_debug_pub.add( 'UNBOOK ORDER , HEADER ID:'||L_HEADER_ID ) ;
1280: oe_debug_pub.add( 'HEADER INDEX :'||P_HEADER_INDEX ) ;
1281: oe_debug_pub.add( 'LAST LINE INDEX :'||P_LAST_LINE_INDEX ) ;
1282: END IF;
1283:
1284: -- Unset booking fields on header global
1277:
1278: IF l_debug_level > 0 THEN
1279: oe_debug_pub.add( 'UNBOOK ORDER , HEADER ID:'||L_HEADER_ID ) ;
1280: oe_debug_pub.add( 'HEADER INDEX :'||P_HEADER_INDEX ) ;
1281: oe_debug_pub.add( 'LAST LINE INDEX :'||P_LAST_LINE_INDEX ) ;
1282: END IF;
1283:
1284: -- Unset booking fields on header global
1285:
1313:
1314: EXCEPTION
1315: WHEN OTHERS THEN
1316: IF l_debug_level > 0 THEN
1317: oe_debug_pub.add( 'OTHERS ERROR , LINE.UNBOOK_ORDER' ) ;
1318: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
1319: END IF;
1320: IF OE_BULK_MSG_PUB.Check_Msg_Level(OE_BULK_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1321: THEN
1314: EXCEPTION
1315: WHEN OTHERS THEN
1316: IF l_debug_level > 0 THEN
1317: oe_debug_pub.add( 'OTHERS ERROR , LINE.UNBOOK_ORDER' ) ;
1318: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
1319: END IF;
1320: IF OE_BULK_MSG_PUB.Check_Msg_Level(OE_BULK_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1321: THEN
1322: OE_BULK_MSG_PUB.Add_Exc_Msg
1335: )
1336: IS
1337: l_c_index NUMBER;
1338: --
1339: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1340: --
1341: BEGIN
1342:
1343: x_return_status := FND_API.G_RET_STS_SUCCESS;
1396: -- Invalid item - error message populated during validation
1397: EXCEPTION
1398: WHEN NO_DATA_FOUND THEN
1399: IF l_debug_level > 0 THEN
1400: oe_debug_pub.add( 'ITEM CACHE RETURNS NO DATA FOUND' ) ;
1401: END IF;
1402: x_return_status := FND_API.G_RET_STS_ERROR;
1403: END;
1404:
1445: -- Invalid ship to - error message populated during validation
1446: EXCEPTION
1447: WHEN NO_DATA_FOUND THEN
1448: IF l_debug_level > 0 THEN
1449: oe_debug_pub.add( 'SHIP TO CACHE RETURNS NO DATA FOUND' ) ;
1450: END IF;
1451: x_return_status := FND_API.G_RET_STS_ERROR;
1452: END;
1453:
1557:
1558: EXCEPTION
1559: WHEN OTHERS THEN
1560: IF l_debug_level > 0 THEN
1561: oe_debug_pub.add( 'OTHERS ERROR , LINE.DEFAULT_RECORD' ) ;
1562: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
1563: END IF;
1564: IF OE_BULK_MSG_PUB.Check_Msg_Level(OE_BULK_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1565: THEN
1558: EXCEPTION
1559: WHEN OTHERS THEN
1560: IF l_debug_level > 0 THEN
1561: oe_debug_pub.add( 'OTHERS ERROR , LINE.DEFAULT_RECORD' ) ;
1562: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
1563: END IF;
1564: IF OE_BULK_MSG_PUB.Check_Msg_Level(OE_BULK_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1565: THEN
1566: OE_BULK_MSG_PUB.Add_Exc_Msg
1588: l_msg_count NUMBER;
1589: l_msg_data VARCHAR2(2000);
1590: l_inventory_item_id_cust NUMBER;
1591: --
1592: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1593: l_return_code NUMBER; -- INVCONV
1594: --
1595: BEGIN
1596:
1601:
1602: -------------------------------------------------------------------
1603: -- Populate Fields from Header
1604: -------------------------------------------------------------------
1605: oe_debug_pub.add( 'Populate_Internal_Fields 1' ) ;
1606: p_line_rec.header_id(p_index) :=
1607: OE_Bulk_Order_PVT.g_header_rec.header_id(p_header_index);
1608:
1609: p_line_rec.booked_flag(p_index) :=
1665: ELSE p_line_rec.option_flag(p_index) := 'N';
1666: END IF;
1667: END IF;
1668:
1669: oe_debug_pub.add( 'Populate_Internal_Fields 2' ) ;
1670: IF OE_Bulk_Order_PVT.G_IMPORT_SHIPMENTS = 'YES'
1671: AND p_line_rec.orig_sys_shipment_ref(p_index) IS NULL
1672: AND nvl(p_line_rec.source_document_id(p_index),0) <> 10
1673: THEN
1689: );
1690:
1691:
1692: IF l_debug_level > 0 THEN
1693: oe_debug_pub.add( 'INVENTORY_ITEM_ID after Get_Item_Info: ' ||
1694: p_line_rec.inventory_item_id(p_index)) ;
1695: END IF;
1696:
1697:
1703: AND p_line_rec.item_identifier_type(p_index) IN ('INT', 'CUST')
1704: THEN
1705:
1706: IF l_debug_level > 0 THEN
1707: oe_debug_pub.add( 'CALL GET_ORDERED_ITEM' ) ;
1708: END IF;
1709:
1710: Oe_Oe_Form_Line.Get_Ordered_Item
1711: (x_return_status => l_return_status,
1729:
1730: -------------------------------------------------------------------
1731: -- Populate Internal Fields derived from Item
1732: -------------------------------------------------------------------
1733: oe_debug_pub.add( 'Populate_Internal_Fields 3' ) ;
1734: IF p_line_rec.inventory_item_id(p_index) IS NOT NULL THEN
1735:
1736: l_inventory_item_id := p_line_rec.inventory_item_id(p_index);
1737: l_c_index := OE_BULK_CACHE.Load_Item
1737: l_c_index := OE_BULK_CACHE.Load_Item
1738: (p_key1 => l_inventory_item_id
1739: ,p_key2 => p_line_rec.ship_from_org_id(p_index)
1740: );
1741: oe_debug_pub.add( 'Populate_Internal_Fields 3a' ) ;
1742:
1743: -- VAlidate bom item type
1744: IF p_process_configurations = 'Y' THEN
1745: oe_debug_pub.add( 'Populate_Internal_Fields a' ) ;
1741: oe_debug_pub.add( 'Populate_Internal_Fields 3a' ) ;
1742:
1743: -- VAlidate bom item type
1744: IF p_process_configurations = 'Y' THEN
1745: oe_debug_pub.add( 'Populate_Internal_Fields a' ) ;
1746: -- Error if unsupported Item Type for Bulk Mode
1747: IF (OE_BULK_CACHE.G_ITEM_TBL(l_c_index).bom_item_type = 4
1748: AND OE_BULK_CACHE.G_ITEM_TBL(l_c_index).service_item_flag = 'Y')
1749: THEN -- Service item type
1746: -- Error if unsupported Item Type for Bulk Mode
1747: IF (OE_BULK_CACHE.G_ITEM_TBL(l_c_index).bom_item_type = 4
1748: AND OE_BULK_CACHE.G_ITEM_TBL(l_c_index).service_item_flag = 'Y')
1749: THEN -- Service item type
1750: oe_debug_pub.add( 'Populate_Internal_Fields ab' ) ;
1751: FND_MESSAGE.SET_NAME('ONT','OE_BULK_NOT_SUPP_ITEM_TYPE');
1752: OE_BULK_MSG_PUB.Add('Y', 'ERROR');
1753: x_return_status := FND_API.G_RET_STS_ERROR;
1754: x_unsupported_feature := 'Y';
1753: x_return_status := FND_API.G_RET_STS_ERROR;
1754: x_unsupported_feature := 'Y';
1755: p_line_rec.lock_control(p_index) := -98;
1756: ELSE
1757: oe_debug_pub.add( 'Populate_Internal_Fields bc' ) ;
1758: --bug 3798477
1759: IF (OE_BULK_CACHE.G_ITEM_TBL(l_c_index).ont_pricing_qty_source = 'S' AND
1760: OE_BULK_CACHE.G_ITEM_TBL(l_c_index).tracking_quantity_ind = 'P' AND
1761: OE_BULK_CACHE.G_ITEM_TBL(l_c_index).wms_enabled_flag = 'Y' )
1763: (OE_BULK_CACHE.G_ITEM_TBL(l_c_index).tracking_quantity_ind = 'PS' AND
1764: OE_BULK_CACHE.G_ITEM_TBL(l_c_index).ont_pricing_qty_source = 'S')
1765: THEN
1766: OE_BULK_ORDER_PVT.G_CATCHWEIGHT := TRUE;
1767: oe_debug_pub.add( 'Populate_Internal_Fields b' ) ;
1768: END IF;
1769: --bug 3798477
1770: oe_debug_pub.add( 'Populate_Internal_Fields bcc' ) ;
1771: IF l_debug_level > 0 THEN
1766: OE_BULK_ORDER_PVT.G_CATCHWEIGHT := TRUE;
1767: oe_debug_pub.add( 'Populate_Internal_Fields b' ) ;
1768: END IF;
1769: --bug 3798477
1770: oe_debug_pub.add( 'Populate_Internal_Fields bcc' ) ;
1771: IF l_debug_level > 0 THEN
1772: oe_debug_pub.add('ITEM_TYPE_CODE = '|| p_line_rec.item_type_code(p_index), 4 );
1773: END IF;
1774:
1768: END IF;
1769: --bug 3798477
1770: oe_debug_pub.add( 'Populate_Internal_Fields bcc' ) ;
1771: IF l_debug_level > 0 THEN
1772: oe_debug_pub.add('ITEM_TYPE_CODE = '|| p_line_rec.item_type_code(p_index), 4 );
1773: END IF;
1774:
1775:
1776: IF p_line_rec.item_type_code(p_index) IS NULL THEN
1781: THEN
1782: p_line_rec.item_type_code(p_index) := 'MODEL';
1783: END IF;
1784:
1785: oe_debug_pub.add( 'Populate_Internal_Fields aa' ) ;
1786:
1787: IF OE_BULK_CACHE.G_ITEM_TBL(l_c_index).bom_item_type = 1 AND
1788: nvl(OE_BULK_CACHE.G_Item_Tbl(l_c_index).replenish_to_order_flag, 'N') = 'Y' AND
1789: nvl(p_line_rec.top_model_line_id(p_index), -1) <> p_line_rec.line_id(p_index)
1801: IF OE_BULK_CACHE.G_ITEM_TBL(l_c_index).pick_components_flag = 'Y' THEN
1802: p_line_rec.item_type_code(p_index) := 'KIT';
1803: ELSIF p_line_rec.top_model_line_id(p_index) IS NOT NULL THEN
1804: p_line_rec.item_type_code(p_index) := 'OPTION';
1805: oe_debug_pub.add( 'Populate_Internal_Fields bb' ) ;
1806: ELSE
1807: -- Standard Item
1808: p_line_rec.item_type_code(p_index) := OE_GLOBALS.G_ITEM_STANDARD;
1809: END IF;
1816: OE_BULK_CACHE.G_ITEM_TBL(l_c_index).pick_components_flag = 'Y'
1817: THEN
1818: p_line_rec.component_code(p_index) := to_char(l_inventory_item_id);
1819: p_line_rec.top_model_line_id(p_index) := p_line_rec.line_id(p_index);
1820: oe_debug_pub.add( 'Populate_Internal_Fields cc' ) ;
1821: --p_line_rec.ship_model_complete_flag(p_index)
1822: -- := OE_BULK_CACHE.G_ITEM_TBL(l_c_index).ship_model_complete_flag;
1823: p_line_rec.ship_tolerance_above(p_index) := 0;
1824: p_line_rec.ship_tolerance_below(p_index) := 0;
1824: p_line_rec.ship_tolerance_below(p_index) := 0;
1825: END IF; --bom_item_type = 4
1826:
1827: -- Set ato_line_id on ato_item
1828: oe_debug_pub.add( 'Populate_Internal_Fields dd' ) ;
1829: IF p_line_rec.item_type_code(p_index) IN ('OPTION', 'STANDARD') AND
1830: nvl(OE_BULK_CACHE.G_Item_Tbl(l_c_index).replenish_to_order_flag, 'N') = 'Y' AND
1831: nvl(OE_BULK_CACHE.G_Item_Tbl(l_c_index).build_in_wip_flag, 'N') = 'Y'
1832: THEN
1831: nvl(OE_BULK_CACHE.G_Item_Tbl(l_c_index).build_in_wip_flag, 'N') = 'Y'
1832: THEN
1833: p_line_rec.ato_line_id(p_index) := p_line_rec.line_id(p_index);
1834: END IF;
1835: oe_debug_pub.add( 'Populate_Internal_Fields ee' ) ;
1836: -- If current line is Top Model Line
1837: IF p_line_rec.item_type_code(p_index) IN ( 'MODEL', 'KIT') THEN
1838: g_curr_top_index := p_index;
1839: p_line_rec.top_model_line_index(p_index) := g_curr_top_index;
1837: IF p_line_rec.item_type_code(p_index) IN ( 'MODEL', 'KIT') THEN
1838: g_curr_top_index := p_index;
1839: p_line_rec.top_model_line_index(p_index) := g_curr_top_index;
1840: END IF;
1841: oe_debug_pub.add( 'Populate_Internal_Fields ff' ) ;
1842: -- Set top_model_line_index on child lines
1843: IF p_line_rec.top_model_line_id(p_index) IS NOT NULL AND
1844: p_line_rec.top_model_line_id(p_index)
1845: <> p_line_rec.line_id(p_index)
1845: <> p_line_rec.line_id(p_index)
1846: THEN
1847: p_line_rec.top_model_line_index(p_index) := g_curr_top_index;
1848: END IF;
1849: oe_debug_pub.add( 'Populate_Internal_Fields gg' ) ;
1850: -- If the current line as an ATO under PTO or ATO model
1851: IF p_line_rec.ato_line_id(p_index) = p_line_rec.line_id(p_index) THEN
1852: g_curr_ato_index := p_index;
1853: p_line_rec.ato_line_index(p_index) := p_index;
1851: IF p_line_rec.ato_line_id(p_index) = p_line_rec.line_id(p_index) THEN
1852: g_curr_ato_index := p_index;
1853: p_line_rec.ato_line_index(p_index) := p_index;
1854: END IF;
1855: oe_debug_pub.add( 'Populate_Internal_Fields hh' ) ;
1856: -- Set ato_line_index based on ato_line_id on a line.
1857: IF p_line_rec.ato_line_id(p_index) IS NOT NULL AND
1858: p_line_rec.ato_line_id(p_index) <> p_line_rec.line_id(p_index)
1859: THEN
1858: p_line_rec.ato_line_id(p_index) <> p_line_rec.line_id(p_index)
1859: THEN
1860: p_line_rec.ato_line_index(p_index) := g_curr_ato_index;
1861: END IF;
1862: oe_debug_pub.add( 'Populate_Internal_Fields ii' ) ;
1863: -- set ship_model_complete_flag
1864: p_line_rec.ship_model_complete_flag(p_index) :=
1865: OE_BULK_CACHE.G_ITEM_TBL(l_c_index).ship_model_complete_flag;
1866: END IF; -- supported items
1866: END IF; -- supported items
1867:
1868: ELSE -- p_process_configuration = 'N'
1869: IF l_debug_level > 0 THEN
1870: oe_debug_pub.add( 'p_process_configuration = N in populate_internal_fields ', 5 ) ;
1871: END IF;
1872:
1873:
1874:
1881: AND OE_BULK_CACHE.G_ITEM_TBL(l_c_index).service_item_flag = 'Y')
1882: -- ATO Items
1883: OR (OE_BULK_CACHE.G_ITEM_TBL(l_c_index).replenish_to_order_flag = 'Y')
1884: THEN
1885: oe_debug_pub.add( 'Populate_Internal_Fields 4a' ) ;
1886: FND_MESSAGE.SET_NAME('ONT','OE_BULK_NOT_SUPP_ITEM_TYPE');
1887: OE_BULK_MSG_PUB.Add('Y', 'ERROR');
1888: x_return_status := FND_API.G_RET_STS_ERROR;
1889: x_unsupported_feature := 'Y';
1889: x_unsupported_feature := 'Y';
1890: p_line_rec.lock_control(p_index) := -98;
1891:
1892: ELSE
1893: oe_debug_pub.add( 'Populate_Internal_Fields 5a' ) ;
1894: --bug 3798477
1895: IF ( OE_BULK_CACHE.G_ITEM_TBL(l_c_index).ont_pricing_qty_source = 'S' AND -- INVCONV
1896: OE_BULK_CACHE.G_ITEM_TBL(l_c_index).tracking_quantity_ind = 'P' AND
1897: OE_BULK_CACHE.G_ITEM_TBL(l_c_index).wms_enabled_flag = 'Y')
1905: --bug 3798477
1906: -- Item Type can be STANDARD or KIT in BULK mode
1907:
1908: IF OE_BULK_CACHE.G_ITEM_TBL(l_c_index).bom_item_type = 4 THEN
1909: oe_debug_pub.add( 'Populate_Internal_Fields 6a' ) ;
1910: -- KIT Item
1911: IF OE_BULK_CACHE.G_ITEM_TBL(l_c_index).pick_components_flag = 'Y' THEN
1912: oe_debug_pub.add( 'Populate_Internal_Fields 7a' ) ;
1913: p_line_rec.item_type_code(p_index) := OE_GLOBALS.G_ITEM_KIT;
1908: IF OE_BULK_CACHE.G_ITEM_TBL(l_c_index).bom_item_type = 4 THEN
1909: oe_debug_pub.add( 'Populate_Internal_Fields 6a' ) ;
1910: -- KIT Item
1911: IF OE_BULK_CACHE.G_ITEM_TBL(l_c_index).pick_components_flag = 'Y' THEN
1912: oe_debug_pub.add( 'Populate_Internal_Fields 7a' ) ;
1913: p_line_rec.item_type_code(p_index) := OE_GLOBALS.G_ITEM_KIT;
1914: p_line_rec.component_code(p_index) := to_char(l_inventory_item_id);
1915: p_line_rec.top_model_line_id(p_index)
1916: := p_line_rec.line_id(p_index);
1924: ELSE
1925: p_line_rec.item_type_code(p_index) := OE_GLOBALS.G_ITEM_STANDARD;
1926: END IF;
1927: END IF;
1928: oe_debug_pub.add( 'Populate_Internal_Fields 8a' ) ;
1929: p_line_rec.shippable_flag(p_index)
1930: := OE_BULK_CACHE.G_ITEM_TBL(l_c_index).shippable_item_flag;
1931: oe_debug_pub.add( 'Populate_Internal_Fields 9a' ) ;
1932: END IF;
1927: END IF;
1928: oe_debug_pub.add( 'Populate_Internal_Fields 8a' ) ;
1929: p_line_rec.shippable_flag(p_index)
1930: := OE_BULK_CACHE.G_ITEM_TBL(l_c_index).shippable_item_flag;
1931: oe_debug_pub.add( 'Populate_Internal_Fields 9a' ) ;
1932: END IF;
1933:
1934: oe_debug_pub.add( 'Populate_Internal_Fields 4' ) ;
1935: END IF; -- p_process_configuration = 'Y'
1930: := OE_BULK_CACHE.G_ITEM_TBL(l_c_index).shippable_item_flag;
1931: oe_debug_pub.add( 'Populate_Internal_Fields 9a' ) ;
1932: END IF;
1933:
1934: oe_debug_pub.add( 'Populate_Internal_Fields 4' ) ;
1935: END IF; -- p_process_configuration = 'Y'
1936: -- Process Characteristics
1937: -- HVOP - checks here for 1. qty2 - call function to default secondary quantity if necessary
1938:
1942:
1943: IF OE_BULK_CACHE.G_ITEM_TBL(l_c_index).tracking_quantity_ind = 'PS' -- INVCONV --
1944: THEN
1945: IF l_debug_level > 0 THEN
1946: oe_debug_pub.add( 'about to call CALL calculate_dual_quantity ' ) ;
1947: END IF;
1948: oe_debug_pub.add( 'Populate_Internal_Fields 5' ) ;
1949: calculate_dual_quantity(
1950: p_line_rec => p_line_rec
1944: THEN
1945: IF l_debug_level > 0 THEN
1946: oe_debug_pub.add( 'about to call CALL calculate_dual_quantity ' ) ;
1947: END IF;
1948: oe_debug_pub.add( 'Populate_Internal_Fields 5' ) ;
1949: calculate_dual_quantity(
1950: p_line_rec => p_line_rec
1951: ,p_index => p_index
1952: ,p_dualum_ind => OE_BULK_CACHE.G_ITEM_TBL(l_c_index).secondary_default_ind
1952: ,p_dualum_ind => OE_BULK_CACHE.G_ITEM_TBL(l_c_index).secondary_default_ind
1953: ,p_x_return_status => l_return_code
1954: );
1955: IF l_debug_level > 0 THEN
1956: oe_debug_pub.add( 'out of calculate_dual_quantity 1 ' ) ;
1957: END IF;
1958: IF l_return_code < 0 THEN
1959: IF l_debug_level > 0 THEN
1960: oe_debug_pub.add( 'error in calculate_dual_quantity 2 ' ) ;
1956: oe_debug_pub.add( 'out of calculate_dual_quantity 1 ' ) ;
1957: END IF;
1958: IF l_return_code < 0 THEN
1959: IF l_debug_level > 0 THEN
1960: oe_debug_pub.add( 'error in calculate_dual_quantity 2 ' ) ;
1961: END IF;
1962:
1963: FND_MESSAGE.SET_NAME('ONT','OE_BULK_OPM_DUAL_QTY_ERROR'); -- HVOP define better OM or GMI error code
1964: OE_BULK_MSG_PUB.Add('Y', 'ERROR');
1963: FND_MESSAGE.SET_NAME('ONT','OE_BULK_OPM_DUAL_QTY_ERROR'); -- HVOP define better OM or GMI error code
1964: OE_BULK_MSG_PUB.Add('Y', 'ERROR');
1965: x_return_status := FND_API.G_RET_STS_ERROR;
1966: END IF;
1967: oe_debug_pub.add( 'Populate_Internal_Fields 6' ) ;
1968: IF l_debug_level > 0 THEN
1969: oe_debug_pub.add( 'out of calculate_dual_quantity 2 ' ) ;
1970: END IF;
1971: END IF; -- IF OE_BULK_CACHE.G_ITEM_TBL(l_c_index)..tracking_quantity_ind == 'PS' -- INVCONV
1965: x_return_status := FND_API.G_RET_STS_ERROR;
1966: END IF;
1967: oe_debug_pub.add( 'Populate_Internal_Fields 6' ) ;
1968: IF l_debug_level > 0 THEN
1969: oe_debug_pub.add( 'out of calculate_dual_quantity 2 ' ) ;
1970: END IF;
1971: END IF; -- IF OE_BULK_CACHE.G_ITEM_TBL(l_c_index)..tracking_quantity_ind == 'PS' -- INVCONV
1972:
1973:
1975:
1976: END IF;
1977:
1978:
1979: oe_debug_pub.add( 'Populate_Internal_Fields 7' ) ;
1980: IF l_debug_level > 0 THEN
1981: oe_debug_pub.add( 'out of calculate_dual_quantity 3 ' ) ;
1982: END IF;
1983:
1977:
1978:
1979: oe_debug_pub.add( 'Populate_Internal_Fields 7' ) ;
1980: IF l_debug_level > 0 THEN
1981: oe_debug_pub.add( 'out of calculate_dual_quantity 3 ' ) ;
1982: END IF;
1983:
1984: -- Checks based on line type
1985: BEGIN
1999: p_line_rec.line_category_code(p_index) := 'ORDER';
2000: END IF;
2001:
2002: IF l_debug_level > 0 THEN
2003: oe_debug_pub.add( 'tax_calculation_flag = '||
2004: OE_BULK_CACHE.G_LINE_TYPE_TBL(l_c_index).tax_calculation_flag )
2005: ;
2006: oe_debug_pub.add( 'tax_calculation_event = '||
2007: OE_BULK_CACHE.G_ORDER_TYPE_TBL(l_d_index).tax_calculation_event
2002: IF l_debug_level > 0 THEN
2003: oe_debug_pub.add( 'tax_calculation_flag = '||
2004: OE_BULK_CACHE.G_LINE_TYPE_TBL(l_c_index).tax_calculation_flag )
2005: ;
2006: oe_debug_pub.add( 'tax_calculation_event = '||
2007: OE_BULK_CACHE.G_ORDER_TYPE_TBL(l_d_index).tax_calculation_event
2008: ) ;
2009: oe_debug_pub.add( 'p_process_tax = '|| p_process_tax ) ;
2010: END IF;
2005: ;
2006: oe_debug_pub.add( 'tax_calculation_event = '||
2007: OE_BULK_CACHE.G_ORDER_TYPE_TBL(l_d_index).tax_calculation_event
2008: ) ;
2009: oe_debug_pub.add( 'p_process_tax = '|| p_process_tax ) ;
2010: END IF;
2011:
2012:
2013: /*--commented for bug 7685103 .We will still import the lines ,tax shall be calculated later from UI
2038: OE_BULK_MSG_PUB.Add('Y','ERROR');
2039: -- fix bug 5109227
2040:
2041: IF l_debug_level > 0 THEN
2042: oe_debug_pub.add( 'NO_DATA_FOUND in LOAD_LINE_TYPE' ) ;
2043: END IF;
2044:
2045: END;
2046:
2043: END IF;
2044:
2045: END;
2046:
2047: oe_debug_pub.add( 'Populate_Internal_Fields 8' ) ;
2048: -- End of checks based on line type
2049:
2050:
2051: IF p_line_rec.shipping_method_code(p_index) IS NOT NULL
2089: IF p_line_rec.item_type_code(p_index) IS NULL THEN
2090: p_line_rec.item_type_code(p_index) := 'STANDARD';
2091: END IF;
2092:
2093: oe_debug_pub.add( 'Populate_Internal_Fields 9' ) ;
2094: EXCEPTION
2095: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2096: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2097: WHEN OTHERS THEN
2095: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2096: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2097: WHEN OTHERS THEN
2098: IF l_debug_level > 0 THEN
2099: oe_debug_pub.add( 'OTHERS ERROR , LINE.POPULATE_INTERNAL_FIELDS' ) ;
2100: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
2101: END IF;
2102: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2103: IF OE_BULK_MSG_PUB.Check_Msg_Level(OE_BULK_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2096: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2097: WHEN OTHERS THEN
2098: IF l_debug_level > 0 THEN
2099: oe_debug_pub.add( 'OTHERS ERROR , LINE.POPULATE_INTERNAL_FIELDS' ) ;
2100: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
2101: END IF;
2102: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2103: IF OE_BULK_MSG_PUB.Check_Msg_Level(OE_BULK_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2104: THEN
2127: IS
2128: l_unit_selling_price NUMBER;
2129: l_payment_term_id NUMBER;
2130: --
2131: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2132: --
2133: BEGIN
2134:
2135: -----------------------------------------------------------------
2181:
2182: EXCEPTION
2183: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2184: IF l_debug_level > 0 THEN
2185: oe_debug_pub.add( 'UNEXP ERROR , LINE.POST_PROCESS' ) ;
2186: END IF;
2187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2188: WHEN OTHERS THEN
2189: IF l_debug_level > 0 THEN
2186: END IF;
2187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2188: WHEN OTHERS THEN
2189: IF l_debug_level > 0 THEN
2190: oe_debug_pub.add( 'OTHERS ERROR , LINE.POST_PROCESS' ) ;
2191: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
2192: END IF;
2193: IF OE_BULK_MSG_PUB.Check_Msg_Level(OE_BULK_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2194: THEN
2187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2188: WHEN OTHERS THEN
2189: IF l_debug_level > 0 THEN
2190: oe_debug_pub.add( 'OTHERS ERROR , LINE.POST_PROCESS' ) ;
2191: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
2192: END IF;
2193: IF OE_BULK_MSG_PUB.Check_Msg_Level(OE_BULK_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2194: THEN
2195: OE_BULK_MSG_PUB.Add_Exc_Msg
2289: and acct_site.cust_account_id = cust_acct.cust_account_id;
2290:
2291:
2292: --
2293: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2294: --
2295: BEGIN
2296:
2297: IF l_debug_level > 0 THEN
2294: --
2295: BEGIN
2296:
2297: IF l_debug_level > 0 THEN
2298: oe_debug_pub.add( 'ENTERING THE ENTITY VALIDATION' ) ;
2299: END IF;
2300: header_counter := 1;
2301:
2302: IF l_debug_level > 0 THEN
2299: END IF;
2300: header_counter := 1;
2301:
2302: IF l_debug_level > 0 THEN
2303: oe_debug_pub.add( 'THE LINE COUNT IS '||P_LINE_REC.LINE_ID.COUNT ) ;
2304: END IF;
2305: FOR l_index IN 1..l_line_count LOOP
2306:
2307: -- Set the message context for errors.
2323: p_line_rec.orig_sys_document_ref(l_index) )
2324: THEN
2325:
2326: IF l_debug_level > 0 THEN
2327: oe_debug_pub.add( 'HEADER COUNTER :'||HEADER_COUNTER ) ;
2328: oe_debug_pub.add( 'LINE ORDER SOURCE:'||P_LINE_REC.ORDER_SOURCE_ID ( L_INDEX ) ) ;
2329: oe_debug_pub.add( 'LINE OSR :'||P_LINE_REC.ORIG_SYS_DOCUMENT_REF ( L_INDEX ) ) ;
2330: END IF;
2331: IF l_book_failed THEN
2324: THEN
2325:
2326: IF l_debug_level > 0 THEN
2327: oe_debug_pub.add( 'HEADER COUNTER :'||HEADER_COUNTER ) ;
2328: oe_debug_pub.add( 'LINE ORDER SOURCE:'||P_LINE_REC.ORDER_SOURCE_ID ( L_INDEX ) ) ;
2329: oe_debug_pub.add( 'LINE OSR :'||P_LINE_REC.ORIG_SYS_DOCUMENT_REF ( L_INDEX ) ) ;
2330: END IF;
2331: IF l_book_failed THEN
2332: Unbook_Order(p_header_index => header_counter
2325:
2326: IF l_debug_level > 0 THEN
2327: oe_debug_pub.add( 'HEADER COUNTER :'||HEADER_COUNTER ) ;
2328: oe_debug_pub.add( 'LINE ORDER SOURCE:'||P_LINE_REC.ORDER_SOURCE_ID ( L_INDEX ) ) ;
2329: oe_debug_pub.add( 'LINE OSR :'||P_LINE_REC.ORIG_SYS_DOCUMENT_REF ( L_INDEX ) ) ;
2330: END IF;
2331: IF l_book_failed THEN
2332: Unbook_Order(p_header_index => header_counter
2333: ,p_last_line_index => l_last_line_index
2357: -- setting start and end line index for new order bug7685103
2358: OE_BULK_ORDER_PVT.G_HEADER_REC.start_line_index(header_counter) := l_index;
2359: OE_BULK_ORDER_PVT.G_HEADER_REC.end_line_index(header_counter) := l_index;
2360:
2361: oe_debug_pub.add('OE_BULK_ORDER_PVT.G_HEADER_REC.start_line_index(header_counter):'||OE_BULK_ORDER_PVT.G_HEADER_REC.start_line_index(header_counter));
2362: oe_debug_pub.add('OE_BULK_ORDER_PVT.G_HEADER_REC.end_line_index(header_counter):'||OE_BULK_ORDER_PVT.G_HEADER_REC.end_line_index(header_counter));
2363:
2364:
2365: --------------------------------------------------------------
2358: OE_BULK_ORDER_PVT.G_HEADER_REC.start_line_index(header_counter) := l_index;
2359: OE_BULK_ORDER_PVT.G_HEADER_REC.end_line_index(header_counter) := l_index;
2360:
2361: oe_debug_pub.add('OE_BULK_ORDER_PVT.G_HEADER_REC.start_line_index(header_counter):'||OE_BULK_ORDER_PVT.G_HEADER_REC.start_line_index(header_counter));
2362: oe_debug_pub.add('OE_BULK_ORDER_PVT.G_HEADER_REC.end_line_index(header_counter):'||OE_BULK_ORDER_PVT.G_HEADER_REC.end_line_index(header_counter));
2363:
2364:
2365: --------------------------------------------------------------
2366: -- Same order: check for duplicate reference, from OEXVIMPB.pls
2406:
2407: --PIB{
2408: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
2409: IF l_debug_level > 0 Then
2410: oe_debug_pub.add('before integration code');
2411: END IF;
2412: -- p_line_rec.line_index.extend(1);
2413: -- p_line_rec.header_index.extend(1);
2414: -- p_line_rec.currency_code.extend(1);
2415: p_line_rec.line_index(l_index) := l_index;
2416: p_line_rec.header_index(l_index) := header_counter;
2417: -- p_line_rec.currency_code(l_index) := p_header_rec.transactional_curr_code(header_counter);
2418: IF l_debug_level > 0 Then
2419: oe_debug_pub.add('after integration code');
2420: END IF;
2421: END IF;
2422: --PIB}
2423:
2447: -- Hardcoded Defaulting From OEXDLINB.pls
2448: ---------------------------------------------------------
2449:
2450: IF l_debug_level > 0 THEN
2451: oe_debug_pub.add( 'PARENT LINE INDEX :'||L_INDEX ) ;
2452: END IF;
2453: Populate_Internal_Fields
2454: ( p_line_rec => p_line_rec
2455: ,p_index => l_index
2459: ,x_unsupported_feature => l_unsupported_feature
2460: ,x_return_status => l_return_status
2461: );
2462:
2463: oe_debug_pub.add('after Populate_Internal_Fields');
2464: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2465: p_line_rec.lock_control(l_index) := -99;
2466: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2467: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2471:
2472: --PIB
2473: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
2474: IF l_debug_level > 0 Then
2475: oe_debug_pub.add('before set_price_flag');
2476: END IF;
2477: oe_bulk_priceorder_pvt.set_price_flag(p_line_rec,l_index,header_counter);
2478: IF l_debug_level > 0 Then
2479: oe_debug_pub.add('after set_price_flag');
2475: oe_debug_pub.add('before set_price_flag');
2476: END IF;
2477: oe_bulk_priceorder_pvt.set_price_flag(p_line_rec,l_index,header_counter);
2478: IF l_debug_level > 0 Then
2479: oe_debug_pub.add('after set_price_flag');
2480: END IF;
2481: END IF;
2482: --PIB
2483:
2498: -- To avoid Insert failure, populate not null column.
2499: -- This record will be deleted later.
2500: p_line_rec.inventory_item_id(l_index) := -99;
2501: IF l_debug_level > 0 THEN
2502: oe_debug_pub.add( 'IN ERROR 1 ' ) ;
2503: END IF;
2504:
2505: END IF;
2506: oe_debug_pub.add('after inventory_item_id');
2502: oe_debug_pub.add( 'IN ERROR 1 ' ) ;
2503: END IF;
2504:
2505: END IF;
2506: oe_debug_pub.add('after inventory_item_id');
2507:
2508: IF (p_line_rec.line_type_id(l_index) IS NULL) THEN
2509:
2510: fnd_message.set_name('ONT','OE_ATTRIBUTE_REQUIRED');
2512: OE_Order_UTIL.Get_Attribute_Name('LINE_TYPE_ID'));
2513: OE_BULK_MSG_PUB.Add('Y','ERROR');
2514: p_line_rec.lock_control(l_index) := -99;
2515: IF l_debug_level > 0 THEN
2516: oe_debug_pub.add( 'IN ERROR 2 ' ) ;
2517: END IF;
2518:
2519: -- To avoid Insert failure, populate not null column.
2520: -- This record will be deleted later.
2520: -- This record will be deleted later.
2521:
2522: p_line_rec.line_type_id(l_index) := -99;
2523: IF l_debug_level > 0 THEN
2524: oe_debug_pub.add( 'IN ERROR 3 ' ) ;
2525: END IF;
2526:
2527:
2528: ELSE -- line_type_id is not null
2553: ,p_line_rec
2554: ,l_process_name)
2555: THEN
2556: IF l_debug_level > 0 THEN
2557: oe_debug_pub.add( 'FAILURE IN OE_BULK_WF_UTIL.Validate_LT_WF_Assignment ' ) ;
2558: END IF;
2559: p_line_rec.lock_control(l_index) := -99 ;
2560: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2561: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
2569:
2570: END IF;
2571:
2572:
2573: oe_debug_pub.add('before checking for tax related attributes');
2574: oe_debug_pub.add(' Process Tax :' || p_process_tax );
2575: -- Check for Tax related attributes
2576:
2577: IF (p_line_rec.tax_exempt_flag(l_index) = 'E') THEN
2570: END IF;
2571:
2572:
2573: oe_debug_pub.add('before checking for tax related attributes');
2574: oe_debug_pub.add(' Process Tax :' || p_process_tax );
2575: -- Check for Tax related attributes
2576:
2577: IF (p_line_rec.tax_exempt_flag(l_index) = 'E') THEN
2578:
2602: OR
2603: (p_line_rec.tax_exempt_reason_code(l_index) IS NOT NULL) THEN
2604: p_line_rec.lock_control(l_index) := -99;
2605: IF l_debug_level > 0 THEN
2606: oe_debug_pub.add( 'IN ERROR 6 ' ) ;
2607: END IF;
2608: fnd_message.set_name('ONT','OE_TAX_EXEMPTION_NOT_ALLOWED');
2609: OE_BULK_MSG_PUB.Add('Y','ERROR');
2610: END IF;
2610: END IF;
2611:
2612: END IF;
2613:
2614: oe_debug_pub.add('tax related attributes checking completed;');
2615: -- added for HVOP Tax project
2616: IF p_process_tax = 'Y' THEN
2617: OE_Bulk_Process_Line.Load_Cust_Trx_Type_Id(p_line_index => l_index,
2618: p_line_rec => p_line_rec,
2631: )
2632: THEN
2633: p_line_rec.lock_control(l_index) := -99;
2634: IF l_debug_level > 0 THEN
2635: oe_debug_pub.add( 'SUBINV VALIDATION FAILED' ) ;
2636: END IF;
2637: END IF;
2638: END IF;
2639:
2653: 'ORDER')
2654: THEN
2655: p_line_rec.lock_control(l_index) := -99;
2656: IF l_debug_level > 0 THEN
2657: oe_debug_pub.add( 'IN ERROR 7 ' ) ;
2658: END IF;
2659: FND_MESSAGE.SET_NAME('ONT', 'OE_INVALID_ITEM_WHSE');
2660: OE_BULK_MSG_PUB.add('Y','ERROR');
2661: END IF;
2716: (p_line_rec.preferred_grade (l_index) IS NOT NULL) THEN
2717:
2718: p_line_rec.lock_control(l_index) := -99;
2719: IF l_debug_level > 0 THEN
2720: oe_debug_pub.add( 'error 1 ' ) ;
2721: END IF;
2722: fnd_message.set_name('ONT','OE_BULK_OPM_NOT_PROCESS');
2723: OE_BULK_MSG_PUB.Add('Y','ERROR');
2724: END IF;
2745: (p_line_rec.preferred_grade (l_index) IS NOT NULL) THEN
2746:
2747: p_line_rec.lock_control(l_index) := -99;
2748: IF l_debug_level > 0 THEN
2749: oe_debug_pub.add( 'error 2 ' ) ;
2750: END IF;
2751: fnd_message.set_name('ONT','OE_BULK_OPM_NOT_PROCESS');
2752: OE_BULK_MSG_PUB.Add('Y','ERROR');
2753: END IF;
2796: OE_Bulk_Order_PVT.G_ITEM_ORG);
2797:
2798: IF l_uom <> p_line_rec.order_quantity_uom(l_index) THEN
2799: IF l_debug_level > 0 THEN
2800: oe_debug_pub.add( 'UOM OTHER THAN PRIMARY UOM IS ENTERED' , 1 ) ;
2801: END IF;
2802:
2803: fnd_message.set_name('ONT','OE_INVALID_ORDER_QUANTITY_UOM');
2804: fnd_message.set_token('ITEM',p_line_rec.ordered_item(l_index) );
2808: END IF;
2809: EXCEPTION
2810: when no_data_found then
2811: IF l_debug_level > 0 THEN
2812: oe_debug_pub.add( 'OEXLLINB , NO_DATA_FOUND IN UOM VALIDATION' , 1 ) ;
2813: END IF;
2814: p_line_rec.lock_control(l_index) := -99;
2815: fnd_message.set_name('ONT','OE_INVALID_ORDER_QUANTITY_UOM');
2816: fnd_message.set_token('ITEM',p_line_rec.ordered_item(l_index) );
2829: ,OE_Bulk_Order_PVT.G_ITEM_ORG )
2830: );
2831: IF NOT l_ret_status THEN
2832: IF l_debug_level > 0 THEN
2833: oe_debug_pub.add( 'UOM/ITEM COMBINATION INVALID' , 2 ) ;
2834: oe_debug_pub.add( 'UOM :'||P_LINE_REC.ORDER_QUANTITY_UOM ( L_INDEX ) ) ;
2835: oe_debug_pub.add( 'ITEM ID :'||P_LINE_REC.INVENTORY_ITEM_ID ( L_INDEX ) ) ;
2836: END IF;
2837: p_line_rec.lock_control(l_index) := -99;
2830: );
2831: IF NOT l_ret_status THEN
2832: IF l_debug_level > 0 THEN
2833: oe_debug_pub.add( 'UOM/ITEM COMBINATION INVALID' , 2 ) ;
2834: oe_debug_pub.add( 'UOM :'||P_LINE_REC.ORDER_QUANTITY_UOM ( L_INDEX ) ) ;
2835: oe_debug_pub.add( 'ITEM ID :'||P_LINE_REC.INVENTORY_ITEM_ID ( L_INDEX ) ) ;
2836: END IF;
2837: p_line_rec.lock_control(l_index) := -99;
2838: fnd_message.set_name('ONT', 'OE_INVALID_ITEM_UOM');
2831: IF NOT l_ret_status THEN
2832: IF l_debug_level > 0 THEN
2833: oe_debug_pub.add( 'UOM/ITEM COMBINATION INVALID' , 2 ) ;
2834: oe_debug_pub.add( 'UOM :'||P_LINE_REC.ORDER_QUANTITY_UOM ( L_INDEX ) ) ;
2835: oe_debug_pub.add( 'ITEM ID :'||P_LINE_REC.INVENTORY_ITEM_ID ( L_INDEX ) ) ;
2836: END IF;
2837: p_line_rec.lock_control(l_index) := -99;
2838: fnd_message.set_name('ONT', 'OE_INVALID_ITEM_UOM');
2839: OE_BULK_MSG_PUB.Add('Y','ERROR');
2862: FND_MESSAGE.SET_NAME('ONT', 'OE_SHIP_FROM_REQD');
2863: OE_BULK_MSG_PUB.Add('Y','ERROR');
2864: p_line_rec.lock_control(l_index) := -99;
2865: IF l_debug_level > 0 THEN
2866: oe_debug_pub.add( 'IN ERROR 11 ' ) ;
2867: END IF;
2868: END IF;
2869:
2870: IF (p_line_rec.project_id(l_index) IS NOT NULL AND
2877: FND_MESSAGE.SET_NAME('ONT', 'OE_INVALID_SHIP_FROM_PROJ');
2878: OE_BULK_MSG_PUB.Add('Y','ERROR');
2879: p_line_rec.lock_control(l_index) := -99;
2880: IF l_debug_level > 0 THEN
2881: oe_debug_pub.add( 'IN ERROR 12 ' ) ;
2882: END IF;
2883: END IF;
2884: END IF;
2885:
2888: FND_MESSAGE.SET_NAME('ONT', 'OE_VAL_PROJECT_REQD');
2889: OE_BULK_MSG_PUB.Add('Y','ERROR');
2890: p_line_rec.lock_control(l_index) := -99;
2891: IF l_debug_level > 0 THEN
2892: oe_debug_pub.add( 'IN ERROR 13 ' ) ;
2893: END IF;
2894:
2895: ELSIF (p_line_rec.task_id(l_index) is NOT NULL
2896: AND p_line_rec.project_id(l_index) IS NOT NULL) THEN
2902: OE_Order_Util.Get_Attribute_Name('task_id'));
2903: OE_BULK_MSG_PUB.Add('Y','ERROR');
2904: p_line_rec.lock_control(l_index) := -99;
2905: IF l_debug_level > 0 THEN
2906: oe_debug_pub.add( 'IN ERROR 14 ' ) ;
2907: END IF;
2908:
2909: END IF;
2910:
2916: FND_MESSAGE.SET_NAME('ONT', 'OE_VAL_TASK_REQD');
2917: OE_BULK_MSG_PUB.Add('Y','ERROR');
2918: p_line_rec.lock_control(l_index) := -99;
2919: IF l_debug_level > 0 THEN
2920: oe_debug_pub.add( 'IN ERROR 15 ' ) ;
2921: END IF;
2922: END IF;
2923: END IF;
2924:
2933: fnd_message.set_name('ONT', 'OE_UEFF_NUMBER_REQD');
2934: OE_BULK_MSG_PUB.Add('Y','ERROR');
2935: p_line_rec.lock_control(l_index) := -99;
2936: IF l_debug_level > 0 THEN
2937: oe_debug_pub.add( 'IN ERROR 16 ' ) ;
2938: END IF;
2939: END IF;
2940: END IF;
2941: ELSE -- When project manufacturing is not enabled at the site.
2947: fnd_message.set_name('ONT', 'OE_PJM_NOT_INSTALLED');
2948: OE_BULK_MSG_PUB.Add('Y','ERROR');
2949: p_line_rec.lock_control(l_index) := -99;
2950: IF l_debug_level > 0 THEN
2951: oe_debug_pub.add( 'IN ERROR 17 ' ) ;
2952: END IF;
2953: END IF;
2954:
2955: END IF; --End if PJM_UNIT_EFF.ENABLED
2976: p_line_rec.lock_control(l_index) := -99;
2977: fnd_message.set_name('ONT', 'OE_ITEM_VALIDATION_FAILED');
2978: OE_BULK_MSG_PUB.Add('Y','ERROR');
2979: IF l_debug_level > 0 THEN
2980: oe_debug_pub.add( 'IN ERROR 18 ' ) ;
2981: END IF;
2982: END IF;
2983:
2984: --Item Orderability
2986: IF ( NVL( p_line_rec.item_type_code(l_index),OE_GLOBALS.G_ITEM_STANDARD) = OE_GLOBALS.G_ITEM_STANDARD
2987: OR ( p_line_rec.item_type_code(l_index) = OE_GLOBALS.G_ITEM_MODEL )
2988: ) then
2989:
2990: oe_debug_pub.add(' Checking Validate_item_orderability ');
2991: --oe_debug_pub.add(' org id :' || p_line_rec.org_id(l_index));
2992:
2993:
2994: IF NOT OE_ITORD_UTIL.Validate_item_orderability
2987: OR ( p_line_rec.item_type_code(l_index) = OE_GLOBALS.G_ITEM_MODEL )
2988: ) then
2989:
2990: oe_debug_pub.add(' Checking Validate_item_orderability ');
2991: --oe_debug_pub.add(' org id :' || p_line_rec.org_id(l_index));
2992:
2993:
2994: IF NOT OE_ITORD_UTIL.Validate_item_orderability
2995: (
3010: fnd_message.set_token('ITEM',OE_ITORD_UTIL.get_item_name(p_line_rec.inventory_item_id(l_index)));
3011: fnd_message.set_token('CATEGORY',OE_ITORD_UTIL.get_item_category_name(p_line_rec.inventory_item_id(l_index)));
3012: OE_BULK_MSG_PUB.Add('Y','ERROR');
3013: IF l_debug_level > 0 THEN
3014: oe_debug_pub.add( 'IN ERROR 19 ' ) ;
3015: END IF;
3016: END IF;
3017: END IF;
3018:
3031: p_line_rec.lock_control(l_index) := -99;
3032: fnd_message.set_name('ONT', 'ONT_USER_ITEM_DESC_TOO_LONG');
3033: OE_BULK_MSG_PUB.Add('Y','ERROR');
3034: IF l_debug_level > 0 THEN
3035: oe_debug_pub.add( 'LENGTH OF USER ITEM DESC EXCEEDS LIMIT FOR EXTERNAL ORDERS. ' ) ;
3036: END IF;
3037: END IF;
3038:
3039: END IF;
3102: )
3103: THEN
3104: p_line_rec.lock_control(l_index) := -99;
3105: IF l_debug_level > 0 THEN
3106: oe_debug_pub.add( 'IN ERROR 22 ' ) ;
3107: END IF;
3108: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
3109: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
3110: OE_Order_Util.Get_Attribute_Name('INVOICE_TO_ORG_ID'));
3125: )
3126: THEN
3127: p_line_rec.lock_control(l_index) := -99;
3128: IF l_debug_level > 0 THEN
3129: oe_debug_pub.add( 'IN ERROR 22 ' ) ;
3130: END IF;
3131: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
3132: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
3133: OE_Order_Util.Get_Attribute_Name('ship_to_org_id'));
3147: )
3148: THEN
3149: p_line_rec.lock_control(l_index) := -99;
3150: IF l_debug_level > 0 THEN
3151: oe_debug_pub.add( 'IN ERROR 22 ' ) ;
3152: END IF;
3153: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
3154: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
3155: OE_Order_Util.Get_Attribute_Name('DELIVER_TO_ORG_ID'));
3318: IF p_line_rec.item_type_code(l_index) <> 'SERVICE' THEN
3319: IF p_line_rec.accounting_rule_id(l_index) IS NOT NULL AND
3320: p_line_rec.accounting_rule_id(l_index) <> FND_API.G_MISS_NUM THEN
3321: IF l_debug_level > 0 THEN
3322: oe_debug_pub.add( 'GETTING ACCOUNTING RULE TYPE' ) ;
3323: END IF;
3324: SELECT type
3325: INTO l_rule_type
3326: FROM ra_rules
3325: INTO l_rule_type
3326: FROM ra_rules
3327: WHERE rule_id = p_line_rec.accounting_rule_id(l_index);
3328: IF l_debug_level > 0 THEN
3329: oe_debug_pub.add( 'RULE_TYPE IS :'||L_RULE_TYPE) ;
3330: END IF;
3331: IF l_rule_type = 'PP_DR_ALL' OR l_rule_type = 'PP_DR_PP' THEN
3332: p_line_rec.lock_control(l_index) := -99 ;
3333: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
3371: close partyinfo;
3372: end if;
3373:
3374: if l_debug_level>0 then
3375: oe_debug_pub.add('tax_exempt_number '|| p_line_rec.tax_exempt_number(l_index));
3376: oe_debug_pub.add('reason code'||p_line_rec.tax_exempt_reason_code(l_index));
3377: oe_debug_pub.add('ship to org_id'||p_line_rec.ship_to_org_id(l_index));
3378: oe_debug_pub.add('invoice to org_id'||p_line_rec.invoice_to_org_id(l_index));
3379: oe_debug_pub.add('l_shiop to party site id '||l_ship_to_party_site_id);
3372: end if;
3373:
3374: if l_debug_level>0 then
3375: oe_debug_pub.add('tax_exempt_number '|| p_line_rec.tax_exempt_number(l_index));
3376: oe_debug_pub.add('reason code'||p_line_rec.tax_exempt_reason_code(l_index));
3377: oe_debug_pub.add('ship to org_id'||p_line_rec.ship_to_org_id(l_index));
3378: oe_debug_pub.add('invoice to org_id'||p_line_rec.invoice_to_org_id(l_index));
3379: oe_debug_pub.add('l_shiop to party site id '||l_ship_to_party_site_id);
3380: oe_debug_pub.add('l_bill_to_party site_id '||l_bill_to_party_site_id);
3373:
3374: if l_debug_level>0 then
3375: oe_debug_pub.add('tax_exempt_number '|| p_line_rec.tax_exempt_number(l_index));
3376: oe_debug_pub.add('reason code'||p_line_rec.tax_exempt_reason_code(l_index));
3377: oe_debug_pub.add('ship to org_id'||p_line_rec.ship_to_org_id(l_index));
3378: oe_debug_pub.add('invoice to org_id'||p_line_rec.invoice_to_org_id(l_index));
3379: oe_debug_pub.add('l_shiop to party site id '||l_ship_to_party_site_id);
3380: oe_debug_pub.add('l_bill_to_party site_id '||l_bill_to_party_site_id);
3381: oe_debug_pub.add('l_org_id '||l_org_id);
3374: if l_debug_level>0 then
3375: oe_debug_pub.add('tax_exempt_number '|| p_line_rec.tax_exempt_number(l_index));
3376: oe_debug_pub.add('reason code'||p_line_rec.tax_exempt_reason_code(l_index));
3377: oe_debug_pub.add('ship to org_id'||p_line_rec.ship_to_org_id(l_index));
3378: oe_debug_pub.add('invoice to org_id'||p_line_rec.invoice_to_org_id(l_index));
3379: oe_debug_pub.add('l_shiop to party site id '||l_ship_to_party_site_id);
3380: oe_debug_pub.add('l_bill_to_party site_id '||l_bill_to_party_site_id);
3381: oe_debug_pub.add('l_org_id '||l_org_id);
3382: oe_debug_pub.add('l_bill to party id'||l_bill_to_party_id);
3375: oe_debug_pub.add('tax_exempt_number '|| p_line_rec.tax_exempt_number(l_index));
3376: oe_debug_pub.add('reason code'||p_line_rec.tax_exempt_reason_code(l_index));
3377: oe_debug_pub.add('ship to org_id'||p_line_rec.ship_to_org_id(l_index));
3378: oe_debug_pub.add('invoice to org_id'||p_line_rec.invoice_to_org_id(l_index));
3379: oe_debug_pub.add('l_shiop to party site id '||l_ship_to_party_site_id);
3380: oe_debug_pub.add('l_bill_to_party site_id '||l_bill_to_party_site_id);
3381: oe_debug_pub.add('l_org_id '||l_org_id);
3382: oe_debug_pub.add('l_bill to party id'||l_bill_to_party_id);
3383: oe_debug_pub.add('request_date'||p_line_rec.request_date(l_index));
3376: oe_debug_pub.add('reason code'||p_line_rec.tax_exempt_reason_code(l_index));
3377: oe_debug_pub.add('ship to org_id'||p_line_rec.ship_to_org_id(l_index));
3378: oe_debug_pub.add('invoice to org_id'||p_line_rec.invoice_to_org_id(l_index));
3379: oe_debug_pub.add('l_shiop to party site id '||l_ship_to_party_site_id);
3380: oe_debug_pub.add('l_bill_to_party site_id '||l_bill_to_party_site_id);
3381: oe_debug_pub.add('l_org_id '||l_org_id);
3382: oe_debug_pub.add('l_bill to party id'||l_bill_to_party_id);
3383: oe_debug_pub.add('request_date'||p_line_rec.request_date(l_index));
3384: end if;
3377: oe_debug_pub.add('ship to org_id'||p_line_rec.ship_to_org_id(l_index));
3378: oe_debug_pub.add('invoice to org_id'||p_line_rec.invoice_to_org_id(l_index));
3379: oe_debug_pub.add('l_shiop to party site id '||l_ship_to_party_site_id);
3380: oe_debug_pub.add('l_bill_to_party site_id '||l_bill_to_party_site_id);
3381: oe_debug_pub.add('l_org_id '||l_org_id);
3382: oe_debug_pub.add('l_bill to party id'||l_bill_to_party_id);
3383: oe_debug_pub.add('request_date'||p_line_rec.request_date(l_index));
3384: end if;
3385: SELECT 'VALID'
3378: oe_debug_pub.add('invoice to org_id'||p_line_rec.invoice_to_org_id(l_index));
3379: oe_debug_pub.add('l_shiop to party site id '||l_ship_to_party_site_id);
3380: oe_debug_pub.add('l_bill_to_party site_id '||l_bill_to_party_site_id);
3381: oe_debug_pub.add('l_org_id '||l_org_id);
3382: oe_debug_pub.add('l_bill to party id'||l_bill_to_party_id);
3383: oe_debug_pub.add('request_date'||p_line_rec.request_date(l_index));
3384: end if;
3385: SELECT 'VALID'
3386: INTO l_dummy
3379: oe_debug_pub.add('l_shiop to party site id '||l_ship_to_party_site_id);
3380: oe_debug_pub.add('l_bill_to_party site_id '||l_bill_to_party_site_id);
3381: oe_debug_pub.add('l_org_id '||l_org_id);
3382: oe_debug_pub.add('l_bill to party id'||l_bill_to_party_id);
3383: oe_debug_pub.add('request_date'||p_line_rec.request_date(l_index));
3384: end if;
3385: SELECT 'VALID'
3386: INTO l_dummy
3387: FROM ZX_EXEMPTIONS_V
3490: EXCEPTION
3491: WHEN OTHERS THEN
3492: p_line_rec.lock_control(l_index) := -99;
3493: IF l_debug_level > 0 THEN
3494: oe_debug_pub.add( 'IN ERROR 29 ' ) ;
3495: END IF;
3496: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
3497: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Entity: Tax Code');
3498: OE_BULK_MSG_PUB.Add('Y','ERROR');
4014: IF (p_line_rec.unit_list_price(l_index) IS NULL
4015: OR p_line_rec.unit_selling_price(l_index) IS NULL)
4016: THEN
4017: IF l_debug_level > 0 THEN
4018: oe_debug_pub.add( 'LIST PRICE OR SELLING PRICE IS NULL... ' ) ;
4019: END IF;
4020: p_line_rec.lock_control(l_index) := -99;
4021: FND_MESSAGE.SET_NAME('ONT','OE_OI_PRICE');
4022: OE_BULK_MSG_PUB.Add;
4022: OE_BULK_MSG_PUB.Add;
4023: ELSIF p_line_rec.pricing_quantity(l_index) IS NULL
4024: THEN
4025: IF l_debug_level > 0 THEN
4026: oe_debug_pub.add( 'PRICING QUANTITY IS NULL...RESETTING' ) ;
4027: END IF;
4028: p_line_rec.pricing_quantity(l_index) :=
4029: p_line_rec.ordered_quantity(l_index);
4030: p_line_rec.pricing_quantity_uom(l_index) :=
4040: ---------------------------------------------------------------
4041: -- Add a 100% default sales credit record for this salesperson
4042: -- if different from salesperson on header
4043: ---------------------------------------------------------------
4044: oe_debug_pub.add(' salesrep_id ');
4045:
4046: IF p_line_rec.salesrep_id(l_index) IS NOT NULL AND
4047: p_header_rec.salesrep_id(header_counter) IS NOT NULL THEN
4048:
4118: l_line_rec_for_hold.line_type_id := p_line_rec.line_type_id(l_index);
4119: l_line_rec_for_hold.payment_term_id := p_line_rec.payment_term_id(l_index);
4120: l_line_rec_for_hold.created_by := NVL(FND_GLOBAL.USER_ID, -1);
4121:
4122: oe_debug_pub.add(' Evaluate_Holds ');
4123:
4124: OE_Bulk_Holds_PVT.Evaluate_Holds(
4125: p_header_rec => NULL,
4126: p_line_rec => l_line_rec_for_hold,
4146:
4147: ---------------------------------------------------------------
4148: -- BOOKING VALIDATIONS
4149: ---------------------------------------------------------------
4150: oe_debug_pub.add('booked_flag ');
4151:
4152: IF p_line_rec.booked_flag(l_index) = 'Y' THEN
4153:
4154: Check_Book_Reqd_Attributes(p_line_rec => p_line_rec
4164:
4165: ---------------------------------------------------------------
4166: -- SCHEDULING VALIDATIONS
4167: ---------------------------------------------------------------
4168: oe_debug_pub.add(' SCHEDULING :');
4169: l_c_index := OE_BULK_CACHE.Load_Order_Type(p_header_rec.order_type_id(header_counter));
4170:
4171: IF (OE_BULK_ORDER_PVT.G_AUTO_SCHEDULE = 'Y'
4172: OR OE_BULK_CACHE.G_ORDER_TYPE_TBL(l_c_index).auto_scheduling_flag = 'Y'
4181: 'OPTION'))
4182: THEN
4183:
4184: IF l_debug_level > 0 THEN
4185: oe_debug_pub.add( 'SCHEDULING VALIDATIONS - ato scheduling') ;
4186: END IF;
4187:
4188: l_d_index := OE_BULK_CACHE.Load_Line_Type(p_line_rec.line_type_id(l_index));
4189: IF ( OE_BULK_ORDER_PVT.G_SCHEDULE_LINE_ON_HOLD = 'N'
4257: NVL(OE_BULK_SCHEDULE_UTIL.Get_Date_Type(p_line_rec.header_id(l_index)),'SHIP');
4258: IF trunc(NVL(p_line_rec.latest_acceptable_date(l_index),p_line_rec.request_date(l_index)))
4259: < trunc(p_line_rec.request_date(l_index)) THEN -- LAD less than request date
4260: IF l_debug_level > 0 THEN
4261: oe_debug_pub.add( 'Request date exceeds Latest Acceptable Date ',1 ) ;
4262: END IF;
4263: FND_MESSAGE.SET_NAME('ONT','ONT_SCH_REQUEST_EXCEED_LAD');
4264: OE_BULK_MSG_PUB.Add;
4265: ELSIF ((l_order_date_type_code = 'SHIP'
4270: > trunc(NVL(p_line_rec.latest_acceptable_date(l_index),p_line_rec.request_date(l_index))))) THEN
4271: FND_MESSAGE.SET_NAME('ONT','ONT_SCH_LAD_SCH_FAILED');
4272: OE_BULK_MSG_PUB.Add;
4273: IF l_debug_level > 0 THEN
4274: oe_debug_pub.add( 'SCHEDULE DATE EXCEEDS LAD ',1 ) ;
4275: END IF;
4276:
4277: END IF;
4278: END IF;
4282:
4283: ---------------------------------------------------------------
4284: -- INCLUDED ITEM PROCESSING
4285: ---------------------------------------------------------------
4286: oe_debug_pub.add(' NCLUDED ITEM PROCESSING ');
4287:
4288: IF p_line_rec.lock_control(l_index) <> - 99
4289: AND p_line_rec.item_type_code(l_index) = 'KIT'
4290: THEN
4353:
4354: ---------------------------------------------------------------
4355: -- LAST STEP: ERROR PROCESSING
4356: ---------------------------------------------------------------
4357: oe_debug_pub.add(' ERROR PROCESSING ');
4358: -- Set Global Error Record If we have had any validation failures
4359:
4360: IF (p_line_rec.lock_control(l_index) = -99 ) THEN
4361:
4415:
4416: EXCEPTION
4417: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4418: IF l_debug_level > 0 THEN
4419: oe_debug_pub.add( 'UNEXP ERROR , LINE.ENTITY' ) ;
4420: END IF;
4421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4422: WHEN OTHERS THEN
4423: IF l_debug_level > 0 THEN
4420: END IF;
4421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4422: WHEN OTHERS THEN
4423: IF l_debug_level > 0 THEN
4424: oe_debug_pub.add( 'OTHERS ERROR , LINE.ENTITY' ) ;
4425: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
4426: END IF;
4427: IF OE_BULK_MSG_PUB.Check_Msg_Level(OE_BULK_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4428: THEN
4421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4422: WHEN OTHERS THEN
4423: IF l_debug_level > 0 THEN
4424: oe_debug_pub.add( 'OTHERS ERROR , LINE.ENTITY' ) ;
4425: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
4426: END IF;
4427: IF OE_BULK_MSG_PUB.Check_Msg_Level(OE_BULK_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4428: THEN
4429: OE_BULK_MSG_PUB.Add_Exc_Msg
4449: l_converted_qty NUMBER(19,9); -- INVCONV
4450: l_return NUMBER;
4451: l_status VARCHAR2(1);
4452: l_msg_count NUMBER;
4453: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4454: UOM_CONVERSION_FAILED EXCEPTION;
4455:
4456: l_buffer VARCHAR2(2000); -- INVCONV
4457: TOLERANCE_ERROR EXCEPTION; -- INVCONV
4462: BEGIN
4463:
4464:
4465: IF l_debug_level > 0 THEN
4466: oe_debug_pub.add ('In calculate_dual_quantity', 3);
4467: END IF;
4468:
4469: /* If neither quantity is present, then error as only called for a process type 1,2,or 3 ite m */
4470:
4473: (p_line_rec.ordered_quantity2(p_index) IS NULL OR
4474: p_line_rec.ordered_quantity2(p_index) = FND_API.G_MISS_NUM ) THEN
4475: p_x_return_status := -1;
4476: IF l_debug_level > 0 THEN
4477: oe_debug_pub.add ('calculate_dual_qty- both quantities empty so error ', 3);
4478: END IF;
4479: RETURN;
4480: END IF;
4481:
4487: FND_MESSAGE.SET_NAME('ONT','SO_PR_NEGATIVE_AMOUNT'); -- HVOP define better OM or GMI error code
4488: OE_BULK_MSG_PUB.Add('Y', 'ERROR');
4489: p_x_return_status := -1;
4490: IF l_debug_level > 0 THEN
4491: oe_debug_pub.add ('calculate_dual_qty- quantity2 negative so error ', 3);
4492: END IF;
4493: RETURN;
4494: END IF;
4495: -- INVCONV check for valid warehouse/item combo PAL
4506: NULL ,--p_line_rec.source_document_type_id(p_index),
4507: 'ORDER')
4508: THEN
4509: IF l_debug_level > 0 THEN
4510: oe_debug_pub.add( 'calculate_dual_qty - invalid warehouse/item combo' ) ;
4511: END IF;
4512: p_x_return_status := -1;
4513: FND_MESSAGE.SET_NAME('ONT', 'OE_INVALID_ITEM_WHSE');
4514: OE_BULK_MSG_PUB.add('Y','ERROR');
4521:
4522:
4523:
4524: /*IF l_debug_level > 0 THEN
4525: oe_debug_pub.add('cached dualum_ind is ' || p_dualum_ind ,3 );
4526: oe_debug_pub.add('input qty is ' || p_line_rec.ordered_quantity(p_index) , 3 );
4527: oe_debug_pub.add('input qty2 is ' || p_line_rec.ordered_quantity2(p_index), 3 );
4528: oe_debug_pub.add('input uom is ' || p_line_rec.order_quantity_uom(p_index), 3);
4529: oe_debug_pub.add('input uom2 is ' || p_line_rec.ordered_quantity_uom2(p_index) , 3);
4522:
4523:
4524: /*IF l_debug_level > 0 THEN
4525: oe_debug_pub.add('cached dualum_ind is ' || p_dualum_ind ,3 );
4526: oe_debug_pub.add('input qty is ' || p_line_rec.ordered_quantity(p_index) , 3 );
4527: oe_debug_pub.add('input qty2 is ' || p_line_rec.ordered_quantity2(p_index), 3 );
4528: oe_debug_pub.add('input uom is ' || p_line_rec.order_quantity_uom(p_index), 3);
4529: oe_debug_pub.add('input uom2 is ' || p_line_rec.ordered_quantity_uom2(p_index) , 3);
4530: END IF; */
4523:
4524: /*IF l_debug_level > 0 THEN
4525: oe_debug_pub.add('cached dualum_ind is ' || p_dualum_ind ,3 );
4526: oe_debug_pub.add('input qty is ' || p_line_rec.ordered_quantity(p_index) , 3 );
4527: oe_debug_pub.add('input qty2 is ' || p_line_rec.ordered_quantity2(p_index), 3 );
4528: oe_debug_pub.add('input uom is ' || p_line_rec.order_quantity_uom(p_index), 3);
4529: oe_debug_pub.add('input uom2 is ' || p_line_rec.ordered_quantity_uom2(p_index) , 3);
4530: END IF; */
4531:
4524: /*IF l_debug_level > 0 THEN
4525: oe_debug_pub.add('cached dualum_ind is ' || p_dualum_ind ,3 );
4526: oe_debug_pub.add('input qty is ' || p_line_rec.ordered_quantity(p_index) , 3 );
4527: oe_debug_pub.add('input qty2 is ' || p_line_rec.ordered_quantity2(p_index), 3 );
4528: oe_debug_pub.add('input uom is ' || p_line_rec.order_quantity_uom(p_index), 3);
4529: oe_debug_pub.add('input uom2 is ' || p_line_rec.ordered_quantity_uom2(p_index) , 3);
4530: END IF; */
4531:
4532:
4525: oe_debug_pub.add('cached dualum_ind is ' || p_dualum_ind ,3 );
4526: oe_debug_pub.add('input qty is ' || p_line_rec.ordered_quantity(p_index) , 3 );
4527: oe_debug_pub.add('input qty2 is ' || p_line_rec.ordered_quantity2(p_index), 3 );
4528: oe_debug_pub.add('input uom is ' || p_line_rec.order_quantity_uom(p_index), 3);
4529: oe_debug_pub.add('input uom2 is ' || p_line_rec.ordered_quantity_uom2(p_index) , 3);
4530: END IF; */
4531:
4532:
4533: IF p_dualum_ind = 'F' THEN
4532:
4533: IF p_dualum_ind = 'F' THEN
4534: IF (NVL(p_line_rec.ordered_quantity2(p_index),0) = 0 ) THEN
4535: IF l_debug_level > 0 THEN
4536: oe_debug_pub.add('Calculate_dual_quantity : quantity2 is null and type 1 (D) so calculate it', 3);
4537: END IF;
4538:
4539: /*p_line_rec.ordered_quantity2(p_index) := GMI_Reservation_Util.get_opm_converted_qty(
4540: p_apps_item_id => p_line_rec.inventory_item_id(p_index),
4553: ,NULL -- From uom name
4554: ,NULL -- To uom name
4555: );
4556: IF l_debug_level > 0 THEN
4557: oe_debug_pub.add('Calculate_dual_quantity : quantity2 '|| l_converted_qty ,3 );
4558: END IF;
4559:
4560: p_line_rec.ordered_quantity2(p_index) := l_converted_qty;
4561:
4565:
4566:
4567: ELSIF (NVL(p_line_rec.ordered_quantity(p_index) ,0) = 0 ) THEN
4568: IF l_debug_level > 0 THEN
4569: oe_debug_pub.add('Calculate_dual_quantity : quantity is null and type 1(F) so calculate it', 3);
4570: END IF;
4571:
4572: /* p_line_rec.ordered_quantity(p_index) := GMI_Reservation_Util.get_opm_converted_qty(
4573: p_apps_item_id => p_line_rec.inventory_item_id(p_index),
4588: );
4589:
4590: p_line_rec.ordered_quantity(p_index) := l_converted_qty;
4591: IF l_debug_level > 0 THEN
4592: oe_debug_pub.add('Calculate_dual_quantity : quantity '||p_line_rec.ordered_quantity(p_index), 3);
4593: END IF;
4594: IF (p_line_rec.ordered_quantity(p_index) < 0) THEN
4595: raise UOM_CONVERSION_FAILED;
4596: END IF;
4605: IF (NVL(p_line_rec.ordered_quantity2(p_index),0) <> 0 )
4606: AND (NVL(p_line_rec.ordered_quantity(p_index),0) <> 0 ) THEN
4607: /* check the deviation and error out */
4608: IF l_debug_level > 0 THEN
4609: oe_debug_pub.add('Calculate_dual_quantity : check the deviation 1 and error out if necc ', 3);
4610: END IF;
4611: l_return := INV_CONVERT.Within_Deviation -- INVCONV
4612: ( p_organization_id =>
4613: p_line_rec.ship_from_org_id(p_index)
4623:
4624: IF l_return = 0
4625: then
4626: IF l_debug_level > 0 THEN
4627: oe_debug_pub.add('Calculate_dual_quantity - tolerance error 3' ,1);
4628: END IF;
4629:
4630: l_buffer := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST, -- INVCONV
4631: p_encoded => 'F');
4633: oe_msg_pub.add_text(p_message_text => l_buffer);
4634: --fnd_message.set_name('ONT',l_buffer); -- PAL
4635: OE_BULK_MSG_PUB.Add('Y', 'ERROR');
4636: /*IF l_debug_level > 0 THEN
4637: oe_debug_pub.add(l_buffer,1);
4638: END IF; */
4639: RAISE TOLERANCE_ERROR;
4640: else
4641: IF l_debug_level > 0 THEN
4638: END IF; */
4639: RAISE TOLERANCE_ERROR;
4640: else
4641: IF l_debug_level > 0 THEN
4642: oe_debug_pub.add('Calculate_dual_quantity - No tolerance error ',1);
4643: END IF;
4644: END IF; -- IF l_return = 0
4645:
4646:
4665:
4666: IF (NVL(p_line_rec.ordered_quantity2(p_index),0) = 0 )
4667: AND (NVL(p_line_rec.ordered_quantity(p_index),0) <> 0 ) THEN
4668: IF l_debug_level > 0 THEN
4669: oe_debug_pub.add('Calculate_dual_quantity : quantity2 is null and type 2(D default) so calculate it', 3);
4670: END IF;
4671: l_converted_qty := INV_CONVERT.INV_UM_CONVERT(p_line_rec.inventory_item_id(p_index)-- INVCONV
4672: ,NULL -- p_lot_number -- INVCONV
4673: ,p_line_rec.ship_from_org_id(p_index) -- INVCONV
4678: ,NULL -- From uom name
4679: ,NULL -- To uom name
4680: );
4681: IF l_debug_level > 0 THEN
4682: oe_debug_pub.add('Calculate_dual_quantity : quantity2 '|| l_converted_qty ,3 );
4683: END IF;
4684:
4685: p_line_rec.ordered_quantity2(p_index) := l_converted_qty;
4686:
4694: p_apps_from_uom => p_line_rec.order_quantity_uom(p_index) ,
4695: p_apps_to_uom => p_line_rec.ordered_quantity_uom2(p_index) ,
4696: p_original_qty => p_line_rec.ordered_quantity(p_index) );
4697: IF l_debug_level > 0 THEN
4698: oe_debug_pub.add('OPM Calculate_dual_quantity : quantity2 '||p_line_rec.ordered_quantity2(p_index),3 );
4699: END IF;
4700: IF (p_line_rec.ordered_quantity2(p_index) < 0) THEN
4701: raise UOM_CONVERSION_FAILED;
4702: END IF; */
4702: END IF; */
4703:
4704: ELSIF (NVL(p_line_rec.ordered_quantity(p_index) ,0) = 0 ) THEN
4705: IF l_debug_level > 0 THEN
4706: oe_debug_pub.add('Calculate_dual_quantity : quantity is null and type 2 (D) so calculate it', 3);
4707: END IF;
4708:
4709:
4710: l_converted_qty := INV_CONVERT.INV_UM_CONVERT(p_line_rec.inventory_item_id(p_index)-- INVCONV
4719: );
4720:
4721: p_line_rec.ordered_quantity(p_index) := l_converted_qty;
4722: IF l_debug_level > 0 THEN
4723: oe_debug_pub.add('Calculate_dual_quantity : quantity '||p_line_rec.ordered_quantity(p_index), 3);
4724: END IF;
4725: IF (p_line_rec.ordered_quantity(p_index) < 0) THEN
4726: raise UOM_CONVERSION_FAILED;
4727: END IF;
4732: p_apps_from_uom => p_line_rec.ordered_quantity_uom2(p_index),
4733: p_apps_to_uom => p_line_rec.order_quantity_uom(p_index),
4734: p_original_qty => p_line_rec.ordered_quantity2(p_index));
4735: IF l_debug_level > 0 THEN
4736: oe_debug_pub.add('OPM Calculate_dual_quantity : quantity '||p_line_rec.ordered_quantity(p_index), 3);
4737: END IF;
4738: IF (p_line_rec.ordered_quantity(p_index) < 0) THEN
4739: raise UOM_CONVERSION_FAILED;
4740: END IF; */
4766: OE_BULK_MSG_PUB.Add('Y', 'ERROR');
4767: END IF; */
4768:
4769: IF l_debug_level > 0 THEN
4770: oe_debug_pub.add('Calculate_dual_quantity : check the deviation 2 and error out if necc ', 3);
4771: END IF;
4772: l_return := INV_CONVERT.Within_Deviation -- INVCONV
4773: ( p_organization_id =>
4774: p_line_rec.ship_from_org_id(p_index)
4784:
4785: IF l_return = 0
4786: then
4787: IF l_debug_level > 0 THEN
4788: oe_debug_pub.add('Calculate_dual_quantity - tolerance error 3' ,1);
4789: END IF;
4790:
4791: l_buffer := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST, -- INVCONV
4792: p_encoded => 'F');
4795: --fnd_message.set_name('ONT',l_buffer);
4796: OE_BULK_MSG_PUB.Add('Y', 'ERROR');
4797:
4798: IF l_debug_level > 0 THEN
4799: oe_debug_pub.add(l_buffer,1);
4800: END IF;
4801: RAISE TOLERANCE_ERROR;
4802: else
4803: IF l_debug_level > 0 THEN
4800: END IF;
4801: RAISE TOLERANCE_ERROR;
4802: else
4803: IF l_debug_level > 0 THEN
4804: oe_debug_pub.add('Calculate_dual_quantity - No tolerance error ',1);
4805: END IF;
4806: END IF; -- IF l_return = 0
4807:
4808:
4819:
4820: END IF; -- IF p_dualum_ind = 1
4821:
4822: IF l_debug_level > 0 THEN
4823: oe_debug_pub.add ('end of calculate_dual_quantity', 3);
4824: END IF;
4825:
4826:
4827: EXCEPTION
4826:
4827: EXCEPTION
4828:
4829: WHEN UOM_CONVERSION_FAILED THEN
4830: oe_debug_pub.add('Exception handling: UOM_CONVERSION_FAILED in calculate_dual_qauntity', 1);
4831: FND_MESSAGE.SET_NAME('INV','INV_NO_CONVERSION_ERR'); -- INVCONV
4832: OE_BULK_MSG_PUB.Add('Y', 'ERROR');
4833:
4834: RAISE FND_API.G_EXC_ERROR;
4833:
4834: RAISE FND_API.G_EXC_ERROR;
4835:
4836: WHEN TOLERANCE_ERROR THEN -- INVCONV
4837: oe_debug_pub.add('Exception handling: TOLERANCE_ERROR in calculate_dual_qty', 1);
4838: p_x_return_status := -1;
4839: --RAISE -- FND_API.G_EXC_ERROR; -- INVCONV
4840:
4841:
4847: ( G_PKG_NAME ,
4848: 'Calculate_dual_quantity'
4849: );
4850: END IF;
4851: oe_debug_pub.add('Exception handling: others in calculate_dual_qty', 1);
4852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4853:
4854:
4855:
4913: ( G_PKG_NAME ,
4914: 'Get_Preferred_Grade'
4915: );
4916: END IF;
4917: oe_debug_pub.add('others in get_preferred_grade', 1);
4918: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4919:
4920:
4921: END Get_Preferred_Grade; */
4976: ( G_PKG_NAME ,
4977: 'Load_Cust_Trx_Type_Id'
4978: );
4979: END IF;
4980: oe_debug_pub.add('others in Load_Cust_Trx_type_Id', 1);
4981: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4982: END Load_Cust_Trx_Type_Id;
4983:
4984: END OE_BULK_PROCESS_LINE;