[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
60: AND mdc.category_set_id = mic.category_set_id;
61: RETURN l_category_id;
62: EXCEPTION
63: WHEN OTHERS THEN
64: oe_debug_pub.add( 'Error While Deriving Item Category');
65: l_category_id := '';
66: END;
67: --ER# 13331078 end
68:
75: IS
76: l_c_index NUMBER;
77: l_rule_type VARCHAR2(10);
78: --
79: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
80: --
81: BEGIN
82:
83: x_return_status := FND_API.G_RET_STS_SUCCESS;
155: IF p_line_rec.item_type_code(p_index) <> 'SERVICE' THEN
156: IF p_line_rec.accounting_rule_id(p_index) IS NOT NULL AND
157: p_line_rec.accounting_rule_id(p_index) <> FND_API.G_MISS_NUM THEN
158: IF l_debug_level > 0 THEN
159: oe_debug_pub.add( 'GETTING ACCOUNTING RULE TYPE' ) ;
160: END IF;
161: SELECT type
162: INTO l_rule_type
163: FROM ra_rules
162: INTO l_rule_type
163: FROM ra_rules
164: WHERE rule_id = p_line_rec.accounting_rule_id(p_index);
165: IF l_debug_level > 0 THEN
166: oe_debug_pub.add( 'RULE_TYPE IS :'||L_RULE_TYPE||': ACCOUNTING RULE DURATION IS: '||P_LINE_REC.ACCOUNTING_RULE_DURATION ( P_INDEX ) ) ;
167: END IF;
168: IF l_rule_type = 'ACC_DUR' THEN
169: IF p_line_rec.accounting_rule_duration(p_index) IS NULL THEN
170: x_return_status := FND_API.G_RET_STS_ERROR;
222: -- 2. Check over return
223:
224: EXCEPTION
225: WHEN OTHERS THEN
226: oe_debug_pub.add('Others Error, Line.Check_Book_Reqd_Attributes');
227: oe_debug_pub.add(substr(sqlerrm,1,240));
228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
229: IF OE_BULK_MSG_PUB.Check_Msg_Level(OE_BULK_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
230: THEN
223:
224: EXCEPTION
225: WHEN OTHERS THEN
226: oe_debug_pub.add('Others Error, Line.Check_Book_Reqd_Attributes');
227: oe_debug_pub.add(substr(sqlerrm,1,240));
228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
229: IF OE_BULK_MSG_PUB.Check_Msg_Level(OE_BULK_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
230: THEN
231: OE_BULK_MSG_PUB.Add_Exc_Msg
240: , p_index IN NUMBER
241: , x_return_status IN OUT NOCOPY VARCHAR2
242: )
243: IS
244: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
245:
246: l_c_index NUMBER;
247: l_org_id NUMBER;
248: l_bill_seq_id NUMBER;
312: (p_line_rec.item_type_code(p_index) <> 'STANDARD'
313: OR p_line_rec.ato_line_id(p_index) is not null) THEN
314:
315: IF l_debug_level > 0 THEN
316: oe_debug_pub.add( 'CHECKING THAT IT IS A STANDARD ITEM...' , 1 ) ;
317: END IF;
318:
319: FND_MESSAGE.SET_NAME('ONT', 'OE_SCH_INACTIVE_STD_ONLY');
320: FND_MESSAGE.SET_TOKEN('LTYPE',
321: nvl(Oe_Schedule_Util.sch_cached_line_type ,'0'));
322: OE_BULK_MSG_PUB.Add;
323:
324: IF l_debug_level > 0 THEN
325: oe_debug_pub.add( 'OE_SCH_INACTIVE_STD_ONLY' , 1 ) ;
326: END IF;
327: X_return_status := FND_API.G_RET_STS_ERROR;
328: END IF;
329:
341: THEN
342: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ATO_WHSE_REQD');
343: OE_BULK_MSG_PUB.Add;
344: IF l_debug_level > 0 THEN
345: oe_debug_pub.add( 'OE_SCH_ATO_WHSE_REQD' , 1 ) ;
346: END IF;
347: x_return_status := FND_API.G_RET_STS_ERROR;
348:
349: END IF;
362:
363: l_make_buy := OE_BULK_CACHE.G_ITEM_TBL(l_c_index).planning_make_buy_code;
364:
365: IF l_debug_level > 0 THEN
366: oe_debug_pub.add( 'L_MAKE_BUY' || L_MAKE_BUY , 2 ) ;
367: END IF;
368:
369: IF nvl(l_make_buy,1) <> 2 THEN
370: BEGIN
377:
378: EXCEPTION
379: WHEN NO_DATA_FOUND THEN
380: IF l_debug_level > 0 THEN
381: oe_debug_pub.add( 'OE_BOM_NO_BILL_IN_SHP_ORG' , 2 ) ;
382: END IF;
383:
384: FND_MESSAGE.SET_NAME('ONT','OE_BOM_NO_BILL_IN_SHP_ORG');
385: FND_MESSAGE.SET_TOKEN('ITEM',p_line_rec.ordered_item(p_index));
388: Into l_org_code
389: From ORG_ORGANIZATION_DEFINITIONS
390: Where ORGANIZATION_ID = l_org_id;
391: IF l_debug_level > 0 THEN
392: oe_debug_pub.add( 'ORGANIZATION CODE:'||L_ORG_CODE , 2 ) ;
393: END IF;
394: FND_MESSAGE.SET_TOKEN('ORG',l_org_code);
395: OE_MSG_PUB.Add;
396: x_return_status := FND_API.G_RET_STS_ERROR;
452: l_error_code VARCHAR2(9);
453: l_error_flag VARCHAR2(1);
454: l_error_message VARCHAR2(2000);
455: --
456: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
457: --
458: BEGIN
459: IF l_debug_level > 0 THEN
460: oe_debug_pub.add( 'ENTERING OE_BULK_PROCESS_LINE.Get_Item_Info' ) ;
456: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
457: --
458: BEGIN
459: IF l_debug_level > 0 THEN
460: oe_debug_pub.add( 'ENTERING OE_BULK_PROCESS_LINE.Get_Item_Info' ) ;
461: END IF;
462:
463: IF l_debug_level > 0 THEN
464: oe_debug_pub.add( 'order_source_id: ' ||p_line_rec.order_source_id(p_index));
460: oe_debug_pub.add( 'ENTERING OE_BULK_PROCESS_LINE.Get_Item_Info' ) ;
461: END IF;
462:
463: IF l_debug_level > 0 THEN
464: oe_debug_pub.add( 'order_source_id: ' ||p_line_rec.order_source_id(p_index));
465: oe_debug_pub.add( 'orig_sys_document_ref: ' || p_line_rec.orig_sys_document_ref(p_index));
466: oe_debug_pub.add( 'orig_sys_line_ref: ' || p_line_rec.orig_sys_line_ref(p_index));
467: oe_debug_pub.add( 'orig_sys_shipment_ref: ' || p_line_rec.orig_sys_shipment_ref(p_index));
468: oe_debug_pub.add( 'org_id: ' || p_line_rec.org_id(p_index));
461: END IF;
462:
463: IF l_debug_level > 0 THEN
464: oe_debug_pub.add( 'order_source_id: ' ||p_line_rec.order_source_id(p_index));
465: oe_debug_pub.add( 'orig_sys_document_ref: ' || p_line_rec.orig_sys_document_ref(p_index));
466: oe_debug_pub.add( 'orig_sys_line_ref: ' || p_line_rec.orig_sys_line_ref(p_index));
467: oe_debug_pub.add( 'orig_sys_shipment_ref: ' || p_line_rec.orig_sys_shipment_ref(p_index));
468: oe_debug_pub.add( 'org_id: ' || p_line_rec.org_id(p_index));
469: END IF;
462:
463: IF l_debug_level > 0 THEN
464: oe_debug_pub.add( 'order_source_id: ' ||p_line_rec.order_source_id(p_index));
465: oe_debug_pub.add( 'orig_sys_document_ref: ' || p_line_rec.orig_sys_document_ref(p_index));
466: oe_debug_pub.add( 'orig_sys_line_ref: ' || p_line_rec.orig_sys_line_ref(p_index));
467: oe_debug_pub.add( 'orig_sys_shipment_ref: ' || p_line_rec.orig_sys_shipment_ref(p_index));
468: oe_debug_pub.add( 'org_id: ' || p_line_rec.org_id(p_index));
469: END IF;
470:
463: IF l_debug_level > 0 THEN
464: oe_debug_pub.add( 'order_source_id: ' ||p_line_rec.order_source_id(p_index));
465: oe_debug_pub.add( 'orig_sys_document_ref: ' || p_line_rec.orig_sys_document_ref(p_index));
466: oe_debug_pub.add( 'orig_sys_line_ref: ' || p_line_rec.orig_sys_line_ref(p_index));
467: oe_debug_pub.add( 'orig_sys_shipment_ref: ' || p_line_rec.orig_sys_shipment_ref(p_index));
468: oe_debug_pub.add( 'org_id: ' || p_line_rec.org_id(p_index));
469: END IF;
470:
471: SELECT INVENTORY_ITEM_SEGMENT_1
464: oe_debug_pub.add( 'order_source_id: ' ||p_line_rec.order_source_id(p_index));
465: oe_debug_pub.add( 'orig_sys_document_ref: ' || p_line_rec.orig_sys_document_ref(p_index));
466: oe_debug_pub.add( 'orig_sys_line_ref: ' || p_line_rec.orig_sys_line_ref(p_index));
467: oe_debug_pub.add( 'orig_sys_shipment_ref: ' || p_line_rec.orig_sys_shipment_ref(p_index));
468: oe_debug_pub.add( 'org_id: ' || p_line_rec.org_id(p_index));
469: END IF;
470:
471: SELECT INVENTORY_ITEM_SEGMENT_1
472: , INVENTORY_ITEM_SEGMENT_2
523: -- combination. If there are multiple rows, it will be errored out in
524: -- the duplicate check in procedure Entity.
525: AND rownum = 1;
526:
527: oe_debug_pub.add( 'In Get_Item_Info 1' ) ;
528:
529: ----------------------------------------------------------------------
530: --(1) Populate p_line_rec.inventory_item_id with ccid if any of the
531: --segments are passed instead of inventory_item_id
555: THEN
556: FND_FLEX_KEY_API.SET_SESSION_MODE('customer_data');
557: l_flexfield := FND_FLEX_KEY_API.FIND_FLEXFIELD('INV', 'MSTK');
558: IF l_debug_level > 0 THEN
559: oe_debug_pub.add( 'AFTER FIND FLEXFIELD' ) ;
560: END IF;
561: l_structure.structure_number := 101;
562: FND_FLEX_KEY_API.GET_SEGMENTS(l_flexfield, l_structure, TRUE, l_n_segments, l_segments);
563: IF l_debug_level > 0 THEN
560: END IF;
561: l_structure.structure_number := 101;
562: FND_FLEX_KEY_API.GET_SEGMENTS(l_flexfield, l_structure, TRUE, l_n_segments, l_segments);
563: IF l_debug_level > 0 THEN
564: oe_debug_pub.add( 'SEGMENTS ENABLED = '||L_N_SEGMENTS ) ;
565: END IF;
566: IF l_debug_level > 0 THEN
567: oe_debug_pub.add( 'VALIDATION_ORG_ID = '||OE_BULK_ORDER_PVT.G_ITEM_ORG ) ;
568: END IF;
563: IF l_debug_level > 0 THEN
564: oe_debug_pub.add( 'SEGMENTS ENABLED = '||L_N_SEGMENTS ) ;
565: END IF;
566: IF l_debug_level > 0 THEN
567: oe_debug_pub.add( 'VALIDATION_ORG_ID = '||OE_BULK_ORDER_PVT.G_ITEM_ORG ) ;
568: END IF;
569: IF l_debug_level > 0 THEN
570: oe_debug_pub.add( 'ARRAY1 = '||L_SEGMENT_ARRAY ( 1 ) ) ;
571: END IF;
566: IF l_debug_level > 0 THEN
567: oe_debug_pub.add( 'VALIDATION_ORG_ID = '||OE_BULK_ORDER_PVT.G_ITEM_ORG ) ;
568: END IF;
569: IF l_debug_level > 0 THEN
570: oe_debug_pub.add( 'ARRAY1 = '||L_SEGMENT_ARRAY ( 1 ) ) ;
571: END IF;
572: 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
573: p_line_rec.inventory_item_id(p_index) := l_id;
574: IF l_debug_level > 0 THEN
571: END IF;
572: 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
573: p_line_rec.inventory_item_id(p_index) := l_id;
574: IF l_debug_level > 0 THEN
575: oe_debug_pub.add( 'GET CCID = '||P_LINE_REC.INVENTORY_ITEM_ID ( P_INDEX ) ) ;
576: END IF;
577: RETURN;
578: ELSE
579: IF l_debug_level > 0 THEN
576: END IF;
577: RETURN;
578: ELSE
579: IF l_debug_level > 0 THEN
580: oe_debug_pub.add( 'ERROR IN GETTING CCID' ) ;
581: END IF;
582: failure_message := fnd_flex_ext.get_message;
583: OE_BULK_MSG_PUB.Add_TEXT(failure_message);
584: RAISE FND_API.G_EXC_ERROR;
582: failure_message := fnd_flex_ext.get_message;
583: OE_BULK_MSG_PUB.Add_TEXT(failure_message);
584: RAISE FND_API.G_EXC_ERROR;
585: IF l_debug_level > 0 THEN
586: oe_debug_pub.add( 'FAILURE MESSAGE = ' || SUBSTR ( FAILURE_MESSAGE , 1 , 50 ) ) ;
587: END IF;
588: IF l_debug_level > 0 THEN
589: oe_debug_pub.add( 'FAILURE MESSAGE = ' || SUBSTR ( FAILURE_MESSAGE , 51 , 50 ) ) ;
590: oe_debug_pub.add( 'FAILURE MESSAGE = ' || SUBSTR ( FAILURE_MESSAGE , 101 , 50 ) ) ;
585: IF l_debug_level > 0 THEN
586: oe_debug_pub.add( 'FAILURE MESSAGE = ' || SUBSTR ( FAILURE_MESSAGE , 1 , 50 ) ) ;
587: END IF;
588: IF l_debug_level > 0 THEN
589: oe_debug_pub.add( 'FAILURE MESSAGE = ' || SUBSTR ( FAILURE_MESSAGE , 51 , 50 ) ) ;
590: oe_debug_pub.add( 'FAILURE MESSAGE = ' || SUBSTR ( FAILURE_MESSAGE , 101 , 50 ) ) ;
591: END IF;
592: END IF;
593: END IF;
586: oe_debug_pub.add( 'FAILURE MESSAGE = ' || SUBSTR ( FAILURE_MESSAGE , 1 , 50 ) ) ;
587: END IF;
588: IF l_debug_level > 0 THEN
589: oe_debug_pub.add( 'FAILURE MESSAGE = ' || SUBSTR ( FAILURE_MESSAGE , 51 , 50 ) ) ;
590: oe_debug_pub.add( 'FAILURE MESSAGE = ' || SUBSTR ( FAILURE_MESSAGE , 101 , 50 ) ) ;
591: END IF;
592: END IF;
593: END IF;
594:
637: ENd IF;
638:
639: IF p_line_rec.sold_to_org_id(p_index) IS NULL THEN
640: IF l_debug_level > 0 THEN
641: oe_debug_pub.add( 'SOLD TO ORG ID IS MISSING , CAN NOT GET CUST ITEM' ) ;
642: END IF;
643: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_CUSTOMER_ID');
644: OE_BULK_MSG_PUB.Add;
645: RAISE FND_API.G_EXC_ERROR;
660: );
661:
662: IF l_error_message IS NOT NULL THEN
663: IF l_debug_level > 0 THEN
664: oe_debug_pub.add( 'INV API CI_ATTR_VAL FOR INV_ITEM_ID RETURNED ERROR' ) ;
665: END IF;
666: FND_MESSAGE.SET_NAME('ONT','OE_INV_CUS_ITEM');
667: FND_MESSAGE.SET_TOKEN('ERROR_CODE', l_error_code);
668: FND_MESSAGE.SET_TOKEN('ERROR_MESSAGE', l_error_message);
684: );
685:
686: IF l_error_message IS NOT NULL THEN
687: IF l_debug_level > 0 THEN
688: oe_debug_pub.add( 'INV API CI_ATTR_VAL FOR ORDERED_ITEM_ID RETURNED ERROR' ) ;
689: END IF;
690: FND_MESSAGE.SET_NAME('ONT','OE_INV_CUS_ITEM');
691: FND_MESSAGE.SET_TOKEN('ERROR_CODE', l_error_code);
692: FND_MESSAGE.SET_TOKEN('ERROR_MESSAGE', l_error_message);
694: END IF;
695:
696: IF l_inventory_item_id_int <> l_inventory_item_id_cust THEN
697: IF l_debug_level > 0 THEN
698: oe_debug_pub.add( 'INV ITEM AND CUST ITEM MISMATCH' ) ;
699: END IF;
700: FND_MESSAGE.SET_NAME('ONT','OE_INV_INT_CUS_ITEM_ID');
701: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',l_inventory_item_id_int);
702: FND_MESSAGE.SET_TOKEN('CUST_ITEM_ID',l_inventory_item_id_cust);
728: OR l_inventory_item_id_int IS NULL);
729: EXCEPTION
730: WHEN NO_DATA_FOUND THEN
731: IF l_debug_level > 0 THEN
732: oe_debug_pub.add( 'NO DATA FOUND - GENERIC CROSS REF' ) ;
733: END IF;
734: NULL;
735: WHEN TOO_MANY_ROWS THEN
736: IF l_debug_level > 0 THEN
733: END IF;
734: NULL;
735: WHEN TOO_MANY_ROWS THEN
736: IF l_debug_level > 0 THEN
737: oe_debug_pub.add( 'TOO MANY ROWS ERROR: '||SQLERRM ) ;
738: END IF;
739: FND_MESSAGE.SET_NAME('ONT','OE_NOT_UNIQUE_ITEM');
740: FND_MESSAGE.SET_TOKEN('GENERIC_ITEM', p_line_rec.ordered_item(p_index));
741: OE_BULK_MSG_PUB.Add;
743:
744: IF l_inventory_item_Id_int <> l_inventory_item_id_gen
745: THEN
746: IF l_debug_level > 0 THEN
747: oe_debug_pub.add( 'WARNING: GENERIC AND INVENTORY ITEM ARE DIFFERENT' ) ;
748: END IF;
749: FND_MESSAGE.SET_NAME('ONT','OE_INV_INT_CUS_ITEM_ID');
750: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', l_inventory_item_id_int);
751: FND_MESSAGE.SET_TOKEN('CUST_ITEM_ID', l_inventory_item_id_gen);
768: WHEN FND_API.G_EXC_ERROR THEN
769: p_line_rec.lock_control(p_index) := -99;
770: WHEN OTHERS THEN
771: IF l_debug_level > 0 THEN
772: oe_debug_pub.add( 'OTHERS ERROR , LINE.GET_ITEM_INFO' ) ;
773: END IF;
774: IF l_debug_level > 0 THEN
775: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
776: END IF;
771: IF l_debug_level > 0 THEN
772: oe_debug_pub.add( 'OTHERS ERROR , LINE.GET_ITEM_INFO' ) ;
773: END IF;
774: IF l_debug_level > 0 THEN
775: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
776: END IF;
777: IF OE_BULK_MSG_PUB.Check_Msg_Level(OE_BULK_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
778: THEN
779: OE_BULK_MSG_PUB.Add_Exc_Msg
794: RETURN BOOLEAN
795: IS
796: l_dummy VARCHAR2(10);
797: --
798: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
799: --
800: BEGIN
801:
802: IF p_ship_from_org_id IS NOT NULL THEN
831: -- validate the subinv is allowed (expense/asset)
832: -- because defaulting can be defaulting an expense sub
833: -- and the INV profile is set to No.
834: IF l_debug_level > 0 THEN
835: oe_debug_pub.add( 'ENTITY: PROFILE EXPENSE_ASSET:' || FND_PROFILE.VALUE ( 'INV:EXPENSE_TO_ASSET_TRANSFER' ) , 5 ) ;
836: END IF;
837: BEGIN
838:
839: select 'Y'
1016: l_validated_quantity NUMBER;
1017: l_primary_quantity NUMBER;
1018: l_qty_return_status VARCHAR2(1);
1019: --
1020: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1021: --
1022: BEGIN
1023: -- validate input quantity
1024: IF (p_input_quantity is not null AND
1031: FND_MESSAGE.SET_NAME('ONT', 'SO_PR_NEGATIVE_AMOUNT');
1032: OE_BULK_MSG_PUB.Add('Y','ERROR');
1033: x_return_status := -99;
1034: IF l_debug_level > 0 THEN
1035: oe_debug_pub.add ('Validate decimal quantity - quantity negative so error ', 3);
1036: END IF;
1037: RETURN;
1038: END IF; -- IF nvl(p_input_quantity, 0) < 0
1039:
1046: IF p_item_type_code IN ('MODEL', 'OPTION', 'KIT',
1047: 'CLASS','INCLUDED', 'CONFIG')
1048: THEN
1049: IF l_debug_level > 0 THEN
1050: oe_debug_pub.add( 'ITEM IS CONFIG RELATED WITH DECIMAL QTY' , 2 ) ;
1051: END IF;
1052: FND_MESSAGE.SET_NAME('ONT', 'OE_CONFIG_NO_DECIMALS');
1053: OE_BULK_MSG_PUB.Add('Y','ERROR');
1054: x_return_status := -99;
1067:
1068: IF l_qty_return_status = 'W' OR
1069: l_qty_return_status = 'E' THEN
1070: IF l_debug_level > 0 THEN
1071: oe_debug_pub.add( 'INV DECIMAL API RETURN ' || L_QTY_RETURN_STATUS , 2 ) ;
1072: oe_debug_pub.add( 'INPUT_QTY '|| P_INPUT_QUANTITY , 2 ) ;
1073: oe_debug_pub.add( 'L_PRI_QTY '|| L_PRIMARY_QUANTITY , 2 ) ;
1074: oe_debug_pub.add( 'L_VAL_QTY '|| L_VALIDATED_QUANTITY , 2 ) ;
1075: END IF;
1068: IF l_qty_return_status = 'W' OR
1069: l_qty_return_status = 'E' THEN
1070: IF l_debug_level > 0 THEN
1071: oe_debug_pub.add( 'INV DECIMAL API RETURN ' || L_QTY_RETURN_STATUS , 2 ) ;
1072: oe_debug_pub.add( 'INPUT_QTY '|| P_INPUT_QUANTITY , 2 ) ;
1073: oe_debug_pub.add( 'L_PRI_QTY '|| L_PRIMARY_QUANTITY , 2 ) ;
1074: oe_debug_pub.add( 'L_VAL_QTY '|| L_VALIDATED_QUANTITY , 2 ) ;
1075: END IF;
1076: /* bug 2926436 */
1069: l_qty_return_status = 'E' THEN
1070: IF l_debug_level > 0 THEN
1071: oe_debug_pub.add( 'INV DECIMAL API RETURN ' || L_QTY_RETURN_STATUS , 2 ) ;
1072: oe_debug_pub.add( 'INPUT_QTY '|| P_INPUT_QUANTITY , 2 ) ;
1073: oe_debug_pub.add( 'L_PRI_QTY '|| L_PRIMARY_QUANTITY , 2 ) ;
1074: oe_debug_pub.add( 'L_VAL_QTY '|| L_VALIDATED_QUANTITY , 2 ) ;
1075: END IF;
1076: /* bug 2926436 */
1077: IF l_qty_return_status = 'W' THEN
1070: IF l_debug_level > 0 THEN
1071: oe_debug_pub.add( 'INV DECIMAL API RETURN ' || L_QTY_RETURN_STATUS , 2 ) ;
1072: oe_debug_pub.add( 'INPUT_QTY '|| P_INPUT_QUANTITY , 2 ) ;
1073: oe_debug_pub.add( 'L_PRI_QTY '|| L_PRIMARY_QUANTITY , 2 ) ;
1074: oe_debug_pub.add( 'L_VAL_QTY '|| L_VALIDATED_QUANTITY , 2 ) ;
1075: END IF;
1076: /* bug 2926436 */
1077: IF l_qty_return_status = 'W' THEN
1078: fnd_message.set_name('ONT', 'OE_DECIMAL_MAX_PRECISION');
1104: IS
1105: l_c_index NUMBER;
1106: l_dummy VARCHAR2(10);
1107: --
1108: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1109: --
1110: BEGIN
1111:
1112: -- If inventory item is not assigned to the item validation org,
1210:
1211: EXCEPTION
1212: WHEN NO_DATA_FOUND THEN
1213: IF l_debug_level > 0 THEN
1214: oe_debug_pub.add( 'VALIDATE_ITEM_FIELDS: NO DATA FOUND' , 1 ) ;
1215: END IF;
1216: IF nvl(p_item_identifier_type, 'INT') = 'INT' THEN
1217: IF l_debug_level > 0 THEN
1218: oe_debug_pub.add( 'INVALID INTERNAL ITEM' ) ;
1214: oe_debug_pub.add( 'VALIDATE_ITEM_FIELDS: NO DATA FOUND' , 1 ) ;
1215: END IF;
1216: IF nvl(p_item_identifier_type, 'INT') = 'INT' THEN
1217: IF l_debug_level > 0 THEN
1218: oe_debug_pub.add( 'INVALID INTERNAL ITEM' ) ;
1219: END IF;
1220: ELSIF nvl(p_item_identifier_type, 'INT') = 'CUST' THEN
1221: IF l_debug_level > 0 THEN
1222: oe_debug_pub.add( 'INVALID CUSTOMER ITEM' ) ;
1218: oe_debug_pub.add( 'INVALID INTERNAL ITEM' ) ;
1219: END IF;
1220: ELSIF nvl(p_item_identifier_type, 'INT') = 'CUST' THEN
1221: IF l_debug_level > 0 THEN
1222: oe_debug_pub.add( 'INVALID CUSTOMER ITEM' ) ;
1223: END IF;
1224: ELSE
1225: IF l_debug_level > 0 THEN
1226: oe_debug_pub.add( 'INVALID GENERIC ITEM' ) ;
1222: oe_debug_pub.add( 'INVALID CUSTOMER ITEM' ) ;
1223: END IF;
1224: ELSE
1225: IF l_debug_level > 0 THEN
1226: oe_debug_pub.add( 'INVALID GENERIC ITEM' ) ;
1227: END IF;
1228: END IF;
1229: RETURN FALSE;
1230: WHEN OTHERS THEN
1228: END IF;
1229: RETURN FALSE;
1230: WHEN OTHERS THEN
1231: IF l_debug_level > 0 THEN
1232: oe_debug_pub.add( 'VALIDATE_ITEM_FIELDS: WHEN OTHERS' , 1 ) ;
1233: END IF;
1234: RETURN FALSE;
1235: END Validate_Item_Fields;
1236:
1261:
1262: RETURN BOOLEAN
1263: IS
1264: --
1265: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1266: --
1267: BEGIN
1268: IF LENGTHB(p_user_item_description) > 240 THEN
1269: fnd_message.set_name('ONT','ONT_USER_ITEM_DESC_TOO_LONG');
1268: IF LENGTHB(p_user_item_description) > 240 THEN
1269: fnd_message.set_name('ONT','ONT_USER_ITEM_DESC_TOO_LONG');
1270: OE_BULK_MSG_PUB.ADD;
1271: IF l_debug_level > 0 THEN
1272: oe_debug_pub.add( 'THE LENGTH OF USER_ITEM_DESCRIPTION SHOULD NOT EXCEED 240 CHARA CTERS FOR DROP SHIP LINES.' , 3 ) ;
1273: END IF;
1274: RETURN FALSE;
1275: END IF;
1276:
1278:
1279: EXCEPTION
1280: WHEN OTHERS THEN
1281: IF l_debug_level > 0 THEN
1282: oe_debug_pub.add( 'VALIDATE_USER_ITEM_DESCRIPTION: WHEN OTHERS' , 1 ) ;
1283: END IF;
1284: RETURN FALSE;
1285: END Validate_User_Item_Description;
1286:
1294: l_index NUMBER;
1295: l_ii_index NUMBER;
1296: l_last_ii_index NUMBER;
1297: --
1298: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1299: --
1300: BEGIN
1301:
1302: l_header_id := OE_Bulk_Order_PVT.g_header_rec.header_id(p_header_index);
1301:
1302: l_header_id := OE_Bulk_Order_PVT.g_header_rec.header_id(p_header_index);
1303:
1304: IF l_debug_level > 0 THEN
1305: oe_debug_pub.add( 'UNBOOK ORDER , HEADER ID:'||L_HEADER_ID ) ;
1306: oe_debug_pub.add( 'HEADER INDEX :'||P_HEADER_INDEX ) ;
1307: oe_debug_pub.add( 'LAST LINE INDEX :'||P_LAST_LINE_INDEX ) ;
1308: END IF;
1309:
1302: l_header_id := OE_Bulk_Order_PVT.g_header_rec.header_id(p_header_index);
1303:
1304: IF l_debug_level > 0 THEN
1305: oe_debug_pub.add( 'UNBOOK ORDER , HEADER ID:'||L_HEADER_ID ) ;
1306: oe_debug_pub.add( 'HEADER INDEX :'||P_HEADER_INDEX ) ;
1307: oe_debug_pub.add( 'LAST LINE INDEX :'||P_LAST_LINE_INDEX ) ;
1308: END IF;
1309:
1310: -- Unset booking fields on header global
1303:
1304: IF l_debug_level > 0 THEN
1305: oe_debug_pub.add( 'UNBOOK ORDER , HEADER ID:'||L_HEADER_ID ) ;
1306: oe_debug_pub.add( 'HEADER INDEX :'||P_HEADER_INDEX ) ;
1307: oe_debug_pub.add( 'LAST LINE INDEX :'||P_LAST_LINE_INDEX ) ;
1308: END IF;
1309:
1310: -- Unset booking fields on header global
1311:
1339:
1340: EXCEPTION
1341: WHEN OTHERS THEN
1342: IF l_debug_level > 0 THEN
1343: oe_debug_pub.add( 'OTHERS ERROR , LINE.UNBOOK_ORDER' ) ;
1344: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
1345: END IF;
1346: IF OE_BULK_MSG_PUB.Check_Msg_Level(OE_BULK_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1347: THEN
1340: EXCEPTION
1341: WHEN OTHERS THEN
1342: IF l_debug_level > 0 THEN
1343: oe_debug_pub.add( 'OTHERS ERROR , LINE.UNBOOK_ORDER' ) ;
1344: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
1345: END IF;
1346: IF OE_BULK_MSG_PUB.Check_Msg_Level(OE_BULK_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1347: THEN
1348: OE_BULK_MSG_PUB.Add_Exc_Msg
1361: )
1362: IS
1363: l_c_index NUMBER;
1364: --
1365: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1366: --
1367: BEGIN
1368:
1369: x_return_status := FND_API.G_RET_STS_SUCCESS;
1422: -- Invalid item - error message populated during validation
1423: EXCEPTION
1424: WHEN NO_DATA_FOUND THEN
1425: IF l_debug_level > 0 THEN
1426: oe_debug_pub.add( 'ITEM CACHE RETURNS NO DATA FOUND' ) ;
1427: END IF;
1428: x_return_status := FND_API.G_RET_STS_ERROR;
1429: END;
1430:
1471: -- Invalid ship to - error message populated during validation
1472: EXCEPTION
1473: WHEN NO_DATA_FOUND THEN
1474: IF l_debug_level > 0 THEN
1475: oe_debug_pub.add( 'SHIP TO CACHE RETURNS NO DATA FOUND' ) ;
1476: END IF;
1477: x_return_status := FND_API.G_RET_STS_ERROR;
1478: END;
1479:
1583:
1584: EXCEPTION
1585: WHEN OTHERS THEN
1586: IF l_debug_level > 0 THEN
1587: oe_debug_pub.add( 'OTHERS ERROR , LINE.DEFAULT_RECORD' ) ;
1588: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
1589: END IF;
1590: IF OE_BULK_MSG_PUB.Check_Msg_Level(OE_BULK_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1591: THEN
1584: EXCEPTION
1585: WHEN OTHERS THEN
1586: IF l_debug_level > 0 THEN
1587: oe_debug_pub.add( 'OTHERS ERROR , LINE.DEFAULT_RECORD' ) ;
1588: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
1589: END IF;
1590: IF OE_BULK_MSG_PUB.Check_Msg_Level(OE_BULK_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1591: THEN
1592: OE_BULK_MSG_PUB.Add_Exc_Msg
1616: l_inventory_item_id_cust NUMBER;
1617: l_line_fb_rec OE_Order_PUB.Line_Rec_Type;--ER#14763609
1618: l_line_fb VARCHAR2(1) ; --ER#14763609
1619: --
1620: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1621: l_return_code NUMBER; -- INVCONV
1622: --
1623: BEGIN
1624:
1629:
1630: -------------------------------------------------------------------
1631: -- Populate Fields from Header
1632: -------------------------------------------------------------------
1633: oe_debug_pub.add( 'Populate_Internal_Fields 1' ) ;
1634: p_line_rec.header_id(p_index) :=
1635: OE_Bulk_Order_PVT.g_header_rec.header_id(p_header_index);
1636:
1637: p_line_rec.booked_flag(p_index) :=
1693: ELSE p_line_rec.option_flag(p_index) := 'N';
1694: END IF;
1695: END IF;
1696:
1697: oe_debug_pub.add( 'Populate_Internal_Fields 2' ) ;
1698: IF OE_Bulk_Order_PVT.G_IMPORT_SHIPMENTS = 'YES'
1699: AND p_line_rec.orig_sys_shipment_ref(p_index) IS NULL
1700: AND nvl(p_line_rec.source_document_id(p_index),0) <> 10
1701: THEN
1717: );
1718:
1719:
1720: IF l_debug_level > 0 THEN
1721: oe_debug_pub.add( 'INVENTORY_ITEM_ID after Get_Item_Info: ' ||
1722: p_line_rec.inventory_item_id(p_index)) ;
1723: END IF;
1724:
1725:
1731: AND p_line_rec.item_identifier_type(p_index) IN ('INT', 'CUST')
1732: THEN
1733:
1734: IF l_debug_level > 0 THEN
1735: oe_debug_pub.add( 'CALL GET_ORDERED_ITEM' ) ;
1736: END IF;
1737:
1738: Oe_Oe_Form_Line.Get_Ordered_Item
1739: (x_return_status => l_return_status,
1757:
1758: -------------------------------------------------------------------
1759: -- Populate Internal Fields derived from Item
1760: -------------------------------------------------------------------
1761: oe_debug_pub.add( 'Populate_Internal_Fields 3' ) ;
1762: IF p_line_rec.inventory_item_id(p_index) IS NOT NULL THEN
1763:
1764: l_inventory_item_id := p_line_rec.inventory_item_id(p_index);
1765: l_c_index := OE_BULK_CACHE.Load_Item
1765: l_c_index := OE_BULK_CACHE.Load_Item
1766: (p_key1 => l_inventory_item_id
1767: ,p_key2 => p_line_rec.ship_from_org_id(p_index)
1768: );
1769: oe_debug_pub.add( 'Populate_Internal_Fields 3a' ) ;
1770:
1771: -- VAlidate bom item type
1772: IF p_process_configurations = 'Y' THEN
1773: oe_debug_pub.add( 'Populate_Internal_Fields a' ) ;
1769: oe_debug_pub.add( 'Populate_Internal_Fields 3a' ) ;
1770:
1771: -- VAlidate bom item type
1772: IF p_process_configurations = 'Y' THEN
1773: oe_debug_pub.add( 'Populate_Internal_Fields a' ) ;
1774: -- Error if unsupported Item Type for Bulk Mode
1775: IF (OE_BULK_CACHE.G_ITEM_TBL(l_c_index).bom_item_type = 4
1776: AND OE_BULK_CACHE.G_ITEM_TBL(l_c_index).service_item_flag = 'Y')
1777: THEN -- Service item type
1774: -- Error if unsupported Item Type for Bulk Mode
1775: IF (OE_BULK_CACHE.G_ITEM_TBL(l_c_index).bom_item_type = 4
1776: AND OE_BULK_CACHE.G_ITEM_TBL(l_c_index).service_item_flag = 'Y')
1777: THEN -- Service item type
1778: oe_debug_pub.add( 'Populate_Internal_Fields ab' ) ;
1779: FND_MESSAGE.SET_NAME('ONT','OE_BULK_NOT_SUPP_ITEM_TYPE');
1780: OE_BULK_MSG_PUB.Add('Y', 'ERROR');
1781: x_return_status := FND_API.G_RET_STS_ERROR;
1782: x_unsupported_feature := 'Y';
1781: x_return_status := FND_API.G_RET_STS_ERROR;
1782: x_unsupported_feature := 'Y';
1783: p_line_rec.lock_control(p_index) := -98;
1784: ELSE
1785: oe_debug_pub.add( 'Populate_Internal_Fields bc' ) ;
1786: --bug 3798477
1787: IF (OE_BULK_CACHE.G_ITEM_TBL(l_c_index).ont_pricing_qty_source = 'S' AND
1788: OE_BULK_CACHE.G_ITEM_TBL(l_c_index).tracking_quantity_ind = 'P' AND
1789: OE_BULK_CACHE.G_ITEM_TBL(l_c_index).wms_enabled_flag = 'Y' )
1791: (OE_BULK_CACHE.G_ITEM_TBL(l_c_index).tracking_quantity_ind = 'PS' AND
1792: OE_BULK_CACHE.G_ITEM_TBL(l_c_index).ont_pricing_qty_source = 'S')
1793: THEN
1794: OE_BULK_ORDER_PVT.G_CATCHWEIGHT := TRUE;
1795: oe_debug_pub.add( 'Populate_Internal_Fields b' ) ;
1796: END IF;
1797: --bug 3798477
1798: oe_debug_pub.add( 'Populate_Internal_Fields bcc' ) ;
1799: IF l_debug_level > 0 THEN
1794: OE_BULK_ORDER_PVT.G_CATCHWEIGHT := TRUE;
1795: oe_debug_pub.add( 'Populate_Internal_Fields b' ) ;
1796: END IF;
1797: --bug 3798477
1798: oe_debug_pub.add( 'Populate_Internal_Fields bcc' ) ;
1799: IF l_debug_level > 0 THEN
1800: oe_debug_pub.add('ITEM_TYPE_CODE = '|| p_line_rec.item_type_code(p_index), 4 );
1801: END IF;
1802:
1796: END IF;
1797: --bug 3798477
1798: oe_debug_pub.add( 'Populate_Internal_Fields bcc' ) ;
1799: IF l_debug_level > 0 THEN
1800: oe_debug_pub.add('ITEM_TYPE_CODE = '|| p_line_rec.item_type_code(p_index), 4 );
1801: END IF;
1802:
1803:
1804: IF p_line_rec.item_type_code(p_index) IS NULL THEN
1809: THEN
1810: p_line_rec.item_type_code(p_index) := 'MODEL';
1811: END IF;
1812:
1813: oe_debug_pub.add( 'Populate_Internal_Fields aa' ) ;
1814:
1815: IF OE_BULK_CACHE.G_ITEM_TBL(l_c_index).bom_item_type = 1 AND
1816: nvl(OE_BULK_CACHE.G_Item_Tbl(l_c_index).replenish_to_order_flag, 'N') = 'Y' AND
1817: nvl(p_line_rec.top_model_line_id(p_index), -1) <> p_line_rec.line_id(p_index)
1829: IF OE_BULK_CACHE.G_ITEM_TBL(l_c_index).pick_components_flag = 'Y' THEN
1830: p_line_rec.item_type_code(p_index) := 'KIT';
1831: ELSIF p_line_rec.top_model_line_id(p_index) IS NOT NULL THEN
1832: p_line_rec.item_type_code(p_index) := 'OPTION';
1833: oe_debug_pub.add( 'Populate_Internal_Fields bb' ) ;
1834: ELSE
1835: -- Standard Item
1836: p_line_rec.item_type_code(p_index) := OE_GLOBALS.G_ITEM_STANDARD;
1837: END IF;
1844: OE_BULK_CACHE.G_ITEM_TBL(l_c_index).pick_components_flag = 'Y'
1845: THEN
1846: p_line_rec.component_code(p_index) := to_char(l_inventory_item_id);
1847: p_line_rec.top_model_line_id(p_index) := p_line_rec.line_id(p_index);
1848: oe_debug_pub.add( 'Populate_Internal_Fields cc' ) ;
1849: --p_line_rec.ship_model_complete_flag(p_index)
1850: -- := OE_BULK_CACHE.G_ITEM_TBL(l_c_index).ship_model_complete_flag;
1851: p_line_rec.ship_tolerance_above(p_index) := 0;
1852: p_line_rec.ship_tolerance_below(p_index) := 0;
1852: p_line_rec.ship_tolerance_below(p_index) := 0;
1853: END IF; --bom_item_type = 4
1854:
1855: -- Set ato_line_id on ato_item
1856: oe_debug_pub.add( 'Populate_Internal_Fields dd' ) ;
1857: IF p_line_rec.item_type_code(p_index) IN ('OPTION', 'STANDARD') AND
1858: nvl(OE_BULK_CACHE.G_Item_Tbl(l_c_index).replenish_to_order_flag, 'N') = 'Y' AND
1859: nvl(OE_BULK_CACHE.G_Item_Tbl(l_c_index).build_in_wip_flag, 'N') = 'Y'
1860: THEN
1859: nvl(OE_BULK_CACHE.G_Item_Tbl(l_c_index).build_in_wip_flag, 'N') = 'Y'
1860: THEN
1861: p_line_rec.ato_line_id(p_index) := p_line_rec.line_id(p_index);
1862: END IF;
1863: oe_debug_pub.add( 'Populate_Internal_Fields ee' ) ;
1864: -- If current line is Top Model Line
1865: IF p_line_rec.item_type_code(p_index) IN ( 'MODEL', 'KIT') THEN
1866: g_curr_top_index := p_index;
1867: p_line_rec.top_model_line_index(p_index) := g_curr_top_index;
1865: IF p_line_rec.item_type_code(p_index) IN ( 'MODEL', 'KIT') THEN
1866: g_curr_top_index := p_index;
1867: p_line_rec.top_model_line_index(p_index) := g_curr_top_index;
1868: END IF;
1869: oe_debug_pub.add( 'Populate_Internal_Fields ff' ) ;
1870: -- Set top_model_line_index on child lines
1871: IF p_line_rec.top_model_line_id(p_index) IS NOT NULL AND
1872: p_line_rec.top_model_line_id(p_index)
1873: <> p_line_rec.line_id(p_index)
1873: <> p_line_rec.line_id(p_index)
1874: THEN
1875: p_line_rec.top_model_line_index(p_index) := g_curr_top_index;
1876: END IF;
1877: oe_debug_pub.add( 'Populate_Internal_Fields gg' ) ;
1878: -- If the current line as an ATO under PTO or ATO model
1879: IF p_line_rec.ato_line_id(p_index) = p_line_rec.line_id(p_index) THEN
1880: g_curr_ato_index := p_index;
1881: p_line_rec.ato_line_index(p_index) := p_index;
1879: IF p_line_rec.ato_line_id(p_index) = p_line_rec.line_id(p_index) THEN
1880: g_curr_ato_index := p_index;
1881: p_line_rec.ato_line_index(p_index) := p_index;
1882: END IF;
1883: oe_debug_pub.add( 'Populate_Internal_Fields hh' ) ;
1884: -- Set ato_line_index based on ato_line_id on a line.
1885: IF p_line_rec.ato_line_id(p_index) IS NOT NULL AND
1886: p_line_rec.ato_line_id(p_index) <> p_line_rec.line_id(p_index)
1887: THEN
1886: p_line_rec.ato_line_id(p_index) <> p_line_rec.line_id(p_index)
1887: THEN
1888: p_line_rec.ato_line_index(p_index) := g_curr_ato_index;
1889: END IF;
1890: oe_debug_pub.add( 'Populate_Internal_Fields ii' ) ;
1891: -- set ship_model_complete_flag
1892: p_line_rec.ship_model_complete_flag(p_index) :=
1893: OE_BULK_CACHE.G_ITEM_TBL(l_c_index).ship_model_complete_flag;
1894: END IF; -- supported items
1894: END IF; -- supported items
1895:
1896: ELSE -- p_process_configuration = 'N'
1897: IF l_debug_level > 0 THEN
1898: oe_debug_pub.add( 'p_process_configuration = N in populate_internal_fields ', 5 ) ;
1899: END IF;
1900:
1901:
1902:
1909: AND OE_BULK_CACHE.G_ITEM_TBL(l_c_index).service_item_flag = 'Y')
1910: -- ATO Items
1911: OR (OE_BULK_CACHE.G_ITEM_TBL(l_c_index).replenish_to_order_flag = 'Y')
1912: THEN
1913: oe_debug_pub.add( 'Populate_Internal_Fields 4a' ) ;
1914: FND_MESSAGE.SET_NAME('ONT','OE_BULK_NOT_SUPP_ITEM_TYPE');
1915: OE_BULK_MSG_PUB.Add('Y', 'ERROR');
1916: x_return_status := FND_API.G_RET_STS_ERROR;
1917: x_unsupported_feature := 'Y';
1917: x_unsupported_feature := 'Y';
1918: p_line_rec.lock_control(p_index) := -98;
1919:
1920: ELSE
1921: oe_debug_pub.add( 'Populate_Internal_Fields 5a' ) ;
1922: --bug 3798477
1923: IF ( OE_BULK_CACHE.G_ITEM_TBL(l_c_index).ont_pricing_qty_source = 'S' AND -- INVCONV
1924: OE_BULK_CACHE.G_ITEM_TBL(l_c_index).tracking_quantity_ind = 'P' AND
1925: OE_BULK_CACHE.G_ITEM_TBL(l_c_index).wms_enabled_flag = 'Y')
1933: --bug 3798477
1934: -- Item Type can be STANDARD or KIT in BULK mode
1935:
1936: IF OE_BULK_CACHE.G_ITEM_TBL(l_c_index).bom_item_type = 4 THEN
1937: oe_debug_pub.add( 'Populate_Internal_Fields 6a' ) ;
1938: -- KIT Item
1939: IF OE_BULK_CACHE.G_ITEM_TBL(l_c_index).pick_components_flag = 'Y' THEN
1940: oe_debug_pub.add( 'Populate_Internal_Fields 7a' ) ;
1941: p_line_rec.item_type_code(p_index) := OE_GLOBALS.G_ITEM_KIT;
1936: IF OE_BULK_CACHE.G_ITEM_TBL(l_c_index).bom_item_type = 4 THEN
1937: oe_debug_pub.add( 'Populate_Internal_Fields 6a' ) ;
1938: -- KIT Item
1939: IF OE_BULK_CACHE.G_ITEM_TBL(l_c_index).pick_components_flag = 'Y' THEN
1940: oe_debug_pub.add( 'Populate_Internal_Fields 7a' ) ;
1941: p_line_rec.item_type_code(p_index) := OE_GLOBALS.G_ITEM_KIT;
1942: p_line_rec.component_code(p_index) := to_char(l_inventory_item_id);
1943: p_line_rec.top_model_line_id(p_index)
1944: := p_line_rec.line_id(p_index);
1952: ELSE
1953: p_line_rec.item_type_code(p_index) := OE_GLOBALS.G_ITEM_STANDARD;
1954: END IF;
1955: END IF;
1956: oe_debug_pub.add( 'Populate_Internal_Fields 8a' ) ;
1957: p_line_rec.shippable_flag(p_index)
1958: := OE_BULK_CACHE.G_ITEM_TBL(l_c_index).shippable_item_flag;
1959: oe_debug_pub.add( 'Populate_Internal_Fields 9a' ) ;
1960: END IF;
1955: END IF;
1956: oe_debug_pub.add( 'Populate_Internal_Fields 8a' ) ;
1957: p_line_rec.shippable_flag(p_index)
1958: := OE_BULK_CACHE.G_ITEM_TBL(l_c_index).shippable_item_flag;
1959: oe_debug_pub.add( 'Populate_Internal_Fields 9a' ) ;
1960: END IF;
1961:
1962: oe_debug_pub.add( 'Populate_Internal_Fields 4' ) ;
1963: END IF; -- p_process_configuration = 'Y'
1958: := OE_BULK_CACHE.G_ITEM_TBL(l_c_index).shippable_item_flag;
1959: oe_debug_pub.add( 'Populate_Internal_Fields 9a' ) ;
1960: END IF;
1961:
1962: oe_debug_pub.add( 'Populate_Internal_Fields 4' ) ;
1963: END IF; -- p_process_configuration = 'Y'
1964: -- Process Characteristics
1965: -- HVOP - checks here for 1. qty2 - call function to default secondary quantity if necessary
1966:
1970:
1971: IF OE_BULK_CACHE.G_ITEM_TBL(l_c_index).tracking_quantity_ind = 'PS' -- INVCONV --
1972: THEN
1973: IF l_debug_level > 0 THEN
1974: oe_debug_pub.add( 'about to call CALL calculate_dual_quantity ' ) ;
1975: END IF;
1976: oe_debug_pub.add( 'Populate_Internal_Fields 5' ) ;
1977: calculate_dual_quantity(
1978: p_line_rec => p_line_rec
1972: THEN
1973: IF l_debug_level > 0 THEN
1974: oe_debug_pub.add( 'about to call CALL calculate_dual_quantity ' ) ;
1975: END IF;
1976: oe_debug_pub.add( 'Populate_Internal_Fields 5' ) ;
1977: calculate_dual_quantity(
1978: p_line_rec => p_line_rec
1979: ,p_index => p_index
1980: ,p_dualum_ind => OE_BULK_CACHE.G_ITEM_TBL(l_c_index).secondary_default_ind
1980: ,p_dualum_ind => OE_BULK_CACHE.G_ITEM_TBL(l_c_index).secondary_default_ind
1981: ,p_x_return_status => l_return_code
1982: );
1983: IF l_debug_level > 0 THEN
1984: oe_debug_pub.add( 'out of calculate_dual_quantity 1 ' ) ;
1985: END IF;
1986: IF l_return_code < 0 THEN
1987: IF l_debug_level > 0 THEN
1988: oe_debug_pub.add( 'error in calculate_dual_quantity 2 ' ) ;
1984: oe_debug_pub.add( 'out of calculate_dual_quantity 1 ' ) ;
1985: END IF;
1986: IF l_return_code < 0 THEN
1987: IF l_debug_level > 0 THEN
1988: oe_debug_pub.add( 'error in calculate_dual_quantity 2 ' ) ;
1989: END IF;
1990:
1991: FND_MESSAGE.SET_NAME('ONT','OE_BULK_OPM_DUAL_QTY_ERROR'); -- HVOP define better OM or GMI error code
1992: OE_BULK_MSG_PUB.Add('Y', 'ERROR');
1991: FND_MESSAGE.SET_NAME('ONT','OE_BULK_OPM_DUAL_QTY_ERROR'); -- HVOP define better OM or GMI error code
1992: OE_BULK_MSG_PUB.Add('Y', 'ERROR');
1993: x_return_status := FND_API.G_RET_STS_ERROR;
1994: END IF;
1995: oe_debug_pub.add( 'Populate_Internal_Fields 6' ) ;
1996: IF l_debug_level > 0 THEN
1997: oe_debug_pub.add( 'out of calculate_dual_quantity 2 ' ) ;
1998: END IF;
1999: END IF; -- IF OE_BULK_CACHE.G_ITEM_TBL(l_c_index)..tracking_quantity_ind == 'PS' -- INVCONV
1993: x_return_status := FND_API.G_RET_STS_ERROR;
1994: END IF;
1995: oe_debug_pub.add( 'Populate_Internal_Fields 6' ) ;
1996: IF l_debug_level > 0 THEN
1997: oe_debug_pub.add( 'out of calculate_dual_quantity 2 ' ) ;
1998: END IF;
1999: END IF; -- IF OE_BULK_CACHE.G_ITEM_TBL(l_c_index)..tracking_quantity_ind == 'PS' -- INVCONV
2000:
2001: --ER#14763609 Start
2010: l_line_fb_rec.inventory_item_id := p_line_rec.inventory_item_id(p_index);
2011: l_line_fb_rec.order_quantity_uom := p_line_rec.order_quantity_uom(p_index);
2012:
2013: IF l_debug_level > 0 THEN
2014: oe_debug_pub.add( 'Bulk: Calling derive_fulfillment_base') ;
2015: END IF;
2016:
2017: l_line_fb:= OE_DUAL_UOM_UTIL.derive_fulfillment_base(l_line_fb_rec);
2018: --We are not calling OE_DUAL_UOM_UTIL.validate_fulfillment_base from here,
2020: --and we do support Return/Split lines from bulk import currently.
2021: p_line_rec.FULFILLMENT_BASE(p_index) := l_line_fb ;
2022:
2023: IF l_debug_level > 0 THEN
2024: oe_debug_pub.add( 'Bulk: Fulfillment_Base Value: '||p_line_rec.fulfillment_base(p_index) ) ;
2025: END IF;
2026: END IF ;
2027: ----ER#14763609 End
2028:
2030:
2031: END IF;
2032:
2033:
2034: oe_debug_pub.add( 'Populate_Internal_Fields 7' ) ;
2035: IF l_debug_level > 0 THEN
2036: oe_debug_pub.add( 'out of calculate_dual_quantity 3 ' ) ;
2037: END IF;
2038:
2032:
2033:
2034: oe_debug_pub.add( 'Populate_Internal_Fields 7' ) ;
2035: IF l_debug_level > 0 THEN
2036: oe_debug_pub.add( 'out of calculate_dual_quantity 3 ' ) ;
2037: END IF;
2038:
2039: -- Checks based on line type
2040: BEGIN
2054: p_line_rec.line_category_code(p_index) := 'ORDER';
2055: END IF;
2056:
2057: IF l_debug_level > 0 THEN
2058: oe_debug_pub.add( 'tax_calculation_flag = '||
2059: OE_BULK_CACHE.G_LINE_TYPE_TBL(l_c_index).tax_calculation_flag )
2060: ;
2061: oe_debug_pub.add( 'tax_calculation_event = '||
2062: OE_BULK_CACHE.G_ORDER_TYPE_TBL(l_d_index).tax_calculation_event
2057: IF l_debug_level > 0 THEN
2058: oe_debug_pub.add( 'tax_calculation_flag = '||
2059: OE_BULK_CACHE.G_LINE_TYPE_TBL(l_c_index).tax_calculation_flag )
2060: ;
2061: oe_debug_pub.add( 'tax_calculation_event = '||
2062: OE_BULK_CACHE.G_ORDER_TYPE_TBL(l_d_index).tax_calculation_event
2063: ) ;
2064: oe_debug_pub.add( 'p_process_tax = '|| p_process_tax ) ;
2065: END IF;
2060: ;
2061: oe_debug_pub.add( 'tax_calculation_event = '||
2062: OE_BULK_CACHE.G_ORDER_TYPE_TBL(l_d_index).tax_calculation_event
2063: ) ;
2064: oe_debug_pub.add( 'p_process_tax = '|| p_process_tax ) ;
2065: END IF;
2066:
2067:
2068: /*--commented for bug 7685103 .We will still import the lines ,tax shall be calculated later from UI
2093: OE_BULK_MSG_PUB.Add('Y','ERROR');
2094: -- fix bug 5109227
2095:
2096: IF l_debug_level > 0 THEN
2097: oe_debug_pub.add( 'NO_DATA_FOUND in LOAD_LINE_TYPE' ) ;
2098: END IF;
2099:
2100: END;
2101:
2098: END IF;
2099:
2100: END;
2101:
2102: oe_debug_pub.add( 'Populate_Internal_Fields 8' ) ;
2103: -- End of checks based on line type
2104:
2105:
2106: IF p_line_rec.shipping_method_code(p_index) IS NOT NULL
2144: IF p_line_rec.item_type_code(p_index) IS NULL THEN
2145: p_line_rec.item_type_code(p_index) := 'STANDARD';
2146: END IF;
2147:
2148: oe_debug_pub.add( 'Populate_Internal_Fields 9' ) ;
2149: EXCEPTION
2150: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2151: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2152: WHEN OTHERS THEN
2150: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2151: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2152: WHEN OTHERS THEN
2153: IF l_debug_level > 0 THEN
2154: oe_debug_pub.add( 'OTHERS ERROR , LINE.POPULATE_INTERNAL_FIELDS' ) ;
2155: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
2156: END IF;
2157: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2158: IF OE_BULK_MSG_PUB.Check_Msg_Level(OE_BULK_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2151: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2152: WHEN OTHERS THEN
2153: IF l_debug_level > 0 THEN
2154: oe_debug_pub.add( 'OTHERS ERROR , LINE.POPULATE_INTERNAL_FIELDS' ) ;
2155: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
2156: END IF;
2157: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2158: IF OE_BULK_MSG_PUB.Check_Msg_Level(OE_BULK_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2159: THEN
2182: IS
2183: l_unit_selling_price NUMBER;
2184: l_payment_term_id NUMBER;
2185: --
2186: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2187: --
2188: BEGIN
2189:
2190: -----------------------------------------------------------------
2236:
2237: EXCEPTION
2238: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2239: IF l_debug_level > 0 THEN
2240: oe_debug_pub.add( 'UNEXP ERROR , LINE.POST_PROCESS' ) ;
2241: END IF;
2242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2243: WHEN OTHERS THEN
2244: IF l_debug_level > 0 THEN
2241: END IF;
2242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2243: WHEN OTHERS THEN
2244: IF l_debug_level > 0 THEN
2245: oe_debug_pub.add( 'OTHERS ERROR , LINE.POST_PROCESS' ) ;
2246: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
2247: END IF;
2248: IF OE_BULK_MSG_PUB.Check_Msg_Level(OE_BULK_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2249: THEN
2242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2243: WHEN OTHERS THEN
2244: IF l_debug_level > 0 THEN
2245: oe_debug_pub.add( 'OTHERS ERROR , LINE.POST_PROCESS' ) ;
2246: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
2247: END IF;
2248: IF OE_BULK_MSG_PUB.Check_Msg_Level(OE_BULK_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2249: THEN
2250: OE_BULK_MSG_PUB.Add_Exc_Msg
2344: and acct_site.cust_account_id = cust_acct.cust_account_id;
2345:
2346:
2347: --
2348: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2349: --
2350: BEGIN
2351:
2352: IF l_debug_level > 0 THEN
2349: --
2350: BEGIN
2351:
2352: IF l_debug_level > 0 THEN
2353: oe_debug_pub.add( 'ENTERING THE ENTITY VALIDATION' ) ;
2354: END IF;
2355: header_counter := 1;
2356:
2357: IF l_debug_level > 0 THEN
2354: END IF;
2355: header_counter := 1;
2356:
2357: IF l_debug_level > 0 THEN
2358: oe_debug_pub.add( 'THE LINE COUNT IS '||P_LINE_REC.LINE_ID.COUNT ) ;
2359: END IF;
2360: FOR l_index IN 1..l_line_count LOOP
2361:
2362: -- Set the message context for errors.
2378: p_line_rec.orig_sys_document_ref(l_index) )
2379: THEN
2380:
2381: IF l_debug_level > 0 THEN
2382: oe_debug_pub.add( 'HEADER COUNTER :'||HEADER_COUNTER ) ;
2383: oe_debug_pub.add( 'LINE ORDER SOURCE:'||P_LINE_REC.ORDER_SOURCE_ID ( L_INDEX ) ) ;
2384: oe_debug_pub.add( 'LINE OSR :'||P_LINE_REC.ORIG_SYS_DOCUMENT_REF ( L_INDEX ) ) ;
2385: END IF;
2386: IF l_book_failed THEN
2379: THEN
2380:
2381: IF l_debug_level > 0 THEN
2382: oe_debug_pub.add( 'HEADER COUNTER :'||HEADER_COUNTER ) ;
2383: oe_debug_pub.add( 'LINE ORDER SOURCE:'||P_LINE_REC.ORDER_SOURCE_ID ( L_INDEX ) ) ;
2384: oe_debug_pub.add( 'LINE OSR :'||P_LINE_REC.ORIG_SYS_DOCUMENT_REF ( L_INDEX ) ) ;
2385: END IF;
2386: IF l_book_failed THEN
2387: Unbook_Order(p_header_index => header_counter
2380:
2381: IF l_debug_level > 0 THEN
2382: oe_debug_pub.add( 'HEADER COUNTER :'||HEADER_COUNTER ) ;
2383: oe_debug_pub.add( 'LINE ORDER SOURCE:'||P_LINE_REC.ORDER_SOURCE_ID ( L_INDEX ) ) ;
2384: oe_debug_pub.add( 'LINE OSR :'||P_LINE_REC.ORIG_SYS_DOCUMENT_REF ( L_INDEX ) ) ;
2385: END IF;
2386: IF l_book_failed THEN
2387: Unbook_Order(p_header_index => header_counter
2388: ,p_last_line_index => l_last_line_index
2412: -- setting start and end line index for new order bug7685103
2413: OE_BULK_ORDER_PVT.G_HEADER_REC.start_line_index(header_counter) := l_index;
2414: OE_BULK_ORDER_PVT.G_HEADER_REC.end_line_index(header_counter) := l_index;
2415:
2416: 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));
2417: 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));
2418:
2419:
2420: --------------------------------------------------------------
2413: OE_BULK_ORDER_PVT.G_HEADER_REC.start_line_index(header_counter) := l_index;
2414: OE_BULK_ORDER_PVT.G_HEADER_REC.end_line_index(header_counter) := l_index;
2415:
2416: 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));
2417: 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));
2418:
2419:
2420: --------------------------------------------------------------
2421: -- Same order: check for duplicate reference, from OEXVIMPB.pls
2461:
2462: --PIB{
2463: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
2464: IF l_debug_level > 0 Then
2465: oe_debug_pub.add('before integration code');
2466: END IF;
2467: -- p_line_rec.line_index.extend(1);
2468: -- p_line_rec.header_index.extend(1);
2469: -- p_line_rec.currency_code.extend(1);
2470: p_line_rec.line_index(l_index) := l_index;
2471: p_line_rec.header_index(l_index) := header_counter;
2472: -- p_line_rec.currency_code(l_index) := p_header_rec.transactional_curr_code(header_counter);
2473: IF l_debug_level > 0 Then
2474: oe_debug_pub.add('after integration code');
2475: END IF;
2476: END IF;
2477: --PIB}
2478:
2502: -- Hardcoded Defaulting From OEXDLINB.pls
2503: ---------------------------------------------------------
2504:
2505: IF l_debug_level > 0 THEN
2506: oe_debug_pub.add( 'PARENT LINE INDEX :'||L_INDEX ) ;
2507: END IF;
2508: Populate_Internal_Fields
2509: ( p_line_rec => p_line_rec
2510: ,p_index => l_index
2514: ,x_unsupported_feature => l_unsupported_feature
2515: ,x_return_status => l_return_status
2516: );
2517:
2518: oe_debug_pub.add('after Populate_Internal_Fields');
2519: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2520: p_line_rec.lock_control(l_index) := -99;
2521: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2522: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2526:
2527: --PIB
2528: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
2529: IF l_debug_level > 0 Then
2530: oe_debug_pub.add('before set_price_flag');
2531: END IF;
2532: oe_bulk_priceorder_pvt.set_price_flag(p_line_rec,l_index,header_counter);
2533: IF l_debug_level > 0 Then
2534: oe_debug_pub.add('after set_price_flag');
2530: oe_debug_pub.add('before set_price_flag');
2531: END IF;
2532: oe_bulk_priceorder_pvt.set_price_flag(p_line_rec,l_index,header_counter);
2533: IF l_debug_level > 0 Then
2534: oe_debug_pub.add('after set_price_flag');
2535: END IF;
2536: END IF;
2537: --PIB
2538:
2553: -- To avoid Insert failure, populate not null column.
2554: -- This record will be deleted later.
2555: p_line_rec.inventory_item_id(l_index) := -99;
2556: IF l_debug_level > 0 THEN
2557: oe_debug_pub.add( 'IN ERROR 1 ' ) ;
2558: END IF;
2559:
2560: END IF;
2561: oe_debug_pub.add('after inventory_item_id');
2557: oe_debug_pub.add( 'IN ERROR 1 ' ) ;
2558: END IF;
2559:
2560: END IF;
2561: oe_debug_pub.add('after inventory_item_id');
2562:
2563: IF (p_line_rec.line_type_id(l_index) IS NULL) THEN
2564:
2565: fnd_message.set_name('ONT','OE_ATTRIBUTE_REQUIRED');
2567: OE_Order_UTIL.Get_Attribute_Name('LINE_TYPE_ID'));
2568: OE_BULK_MSG_PUB.Add('Y','ERROR');
2569: p_line_rec.lock_control(l_index) := -99;
2570: IF l_debug_level > 0 THEN
2571: oe_debug_pub.add( 'IN ERROR 2 ' ) ;
2572: END IF;
2573:
2574: -- To avoid Insert failure, populate not null column.
2575: -- This record will be deleted later.
2575: -- This record will be deleted later.
2576:
2577: p_line_rec.line_type_id(l_index) := -99;
2578: IF l_debug_level > 0 THEN
2579: oe_debug_pub.add( 'IN ERROR 3 ' ) ;
2580: END IF;
2581:
2582:
2583: ELSE -- line_type_id is not null
2608: ,p_line_rec
2609: ,l_process_name)
2610: THEN
2611: IF l_debug_level > 0 THEN
2612: oe_debug_pub.add( 'FAILURE IN OE_BULK_WF_UTIL.Validate_LT_WF_Assignment ' ) ;
2613: END IF;
2614: p_line_rec.lock_control(l_index) := -99 ;
2615: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2616: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
2624:
2625: END IF;
2626:
2627:
2628: oe_debug_pub.add('before checking for tax related attributes');
2629: oe_debug_pub.add(' Process Tax :' || p_process_tax );
2630: -- Check for Tax related attributes
2631:
2632: IF (p_line_rec.tax_exempt_flag(l_index) = 'E') THEN
2625: END IF;
2626:
2627:
2628: oe_debug_pub.add('before checking for tax related attributes');
2629: oe_debug_pub.add(' Process Tax :' || p_process_tax );
2630: -- Check for Tax related attributes
2631:
2632: IF (p_line_rec.tax_exempt_flag(l_index) = 'E') THEN
2633:
2657: OR
2658: (p_line_rec.tax_exempt_reason_code(l_index) IS NOT NULL) THEN
2659: p_line_rec.lock_control(l_index) := -99;
2660: IF l_debug_level > 0 THEN
2661: oe_debug_pub.add( 'IN ERROR 6 ' ) ;
2662: END IF;
2663: fnd_message.set_name('ONT','OE_TAX_EXEMPTION_NOT_ALLOWED');
2664: OE_BULK_MSG_PUB.Add('Y','ERROR');
2665: END IF;
2665: END IF;
2666:
2667: END IF;
2668:
2669: oe_debug_pub.add('tax related attributes checking completed;');
2670: -- added for HVOP Tax project
2671: IF p_process_tax = 'Y' THEN
2672: OE_Bulk_Process_Line.Load_Cust_Trx_Type_Id(p_line_index => l_index,
2673: p_line_rec => p_line_rec,
2686: )
2687: THEN
2688: p_line_rec.lock_control(l_index) := -99;
2689: IF l_debug_level > 0 THEN
2690: oe_debug_pub.add( 'SUBINV VALIDATION FAILED' ) ;
2691: END IF;
2692: END IF;
2693: END IF;
2694:
2708: 'ORDER')
2709: THEN
2710: p_line_rec.lock_control(l_index) := -99;
2711: IF l_debug_level > 0 THEN
2712: oe_debug_pub.add( 'IN ERROR 7 ' ) ;
2713: END IF;
2714: FND_MESSAGE.SET_NAME('ONT', 'OE_INVALID_ITEM_WHSE');
2715: OE_BULK_MSG_PUB.add('Y','ERROR');
2716: END IF;
2771: (p_line_rec.preferred_grade (l_index) IS NOT NULL) THEN
2772:
2773: p_line_rec.lock_control(l_index) := -99;
2774: IF l_debug_level > 0 THEN
2775: oe_debug_pub.add( 'error 1 ' ) ;
2776: END IF;
2777: fnd_message.set_name('ONT','OE_BULK_OPM_NOT_PROCESS');
2778: OE_BULK_MSG_PUB.Add('Y','ERROR');
2779: END IF;
2800: (p_line_rec.preferred_grade (l_index) IS NOT NULL) THEN
2801:
2802: p_line_rec.lock_control(l_index) := -99;
2803: IF l_debug_level > 0 THEN
2804: oe_debug_pub.add( 'error 2 ' ) ;
2805: END IF;
2806: fnd_message.set_name('ONT','OE_BULK_OPM_NOT_PROCESS');
2807: OE_BULK_MSG_PUB.Add('Y','ERROR');
2808: END IF;
2851: OE_Bulk_Order_PVT.G_ITEM_ORG);
2852:
2853: IF l_uom <> p_line_rec.order_quantity_uom(l_index) THEN
2854: IF l_debug_level > 0 THEN
2855: oe_debug_pub.add( 'UOM OTHER THAN PRIMARY UOM IS ENTERED' , 1 ) ;
2856: END IF;
2857:
2858: fnd_message.set_name('ONT','OE_INVALID_ORDER_QUANTITY_UOM');
2859: fnd_message.set_token('ITEM',p_line_rec.ordered_item(l_index) );
2863: END IF;
2864: EXCEPTION
2865: when no_data_found then
2866: IF l_debug_level > 0 THEN
2867: oe_debug_pub.add( 'OEXLLINB , NO_DATA_FOUND IN UOM VALIDATION' , 1 ) ;
2868: END IF;
2869: p_line_rec.lock_control(l_index) := -99;
2870: fnd_message.set_name('ONT','OE_INVALID_ORDER_QUANTITY_UOM');
2871: fnd_message.set_token('ITEM',p_line_rec.ordered_item(l_index) );
2884: ,OE_Bulk_Order_PVT.G_ITEM_ORG )
2885: );
2886: IF NOT l_ret_status THEN
2887: IF l_debug_level > 0 THEN
2888: oe_debug_pub.add( 'UOM/ITEM COMBINATION INVALID' , 2 ) ;
2889: oe_debug_pub.add( 'UOM :'||P_LINE_REC.ORDER_QUANTITY_UOM ( L_INDEX ) ) ;
2890: oe_debug_pub.add( 'ITEM ID :'||P_LINE_REC.INVENTORY_ITEM_ID ( L_INDEX ) ) ;
2891: END IF;
2892: p_line_rec.lock_control(l_index) := -99;
2885: );
2886: IF NOT l_ret_status THEN
2887: IF l_debug_level > 0 THEN
2888: oe_debug_pub.add( 'UOM/ITEM COMBINATION INVALID' , 2 ) ;
2889: oe_debug_pub.add( 'UOM :'||P_LINE_REC.ORDER_QUANTITY_UOM ( L_INDEX ) ) ;
2890: oe_debug_pub.add( 'ITEM ID :'||P_LINE_REC.INVENTORY_ITEM_ID ( L_INDEX ) ) ;
2891: END IF;
2892: p_line_rec.lock_control(l_index) := -99;
2893: fnd_message.set_name('ONT', 'OE_INVALID_ITEM_UOM');
2886: IF NOT l_ret_status THEN
2887: IF l_debug_level > 0 THEN
2888: oe_debug_pub.add( 'UOM/ITEM COMBINATION INVALID' , 2 ) ;
2889: oe_debug_pub.add( 'UOM :'||P_LINE_REC.ORDER_QUANTITY_UOM ( L_INDEX ) ) ;
2890: oe_debug_pub.add( 'ITEM ID :'||P_LINE_REC.INVENTORY_ITEM_ID ( L_INDEX ) ) ;
2891: END IF;
2892: p_line_rec.lock_control(l_index) := -99;
2893: fnd_message.set_name('ONT', 'OE_INVALID_ITEM_UOM');
2894: OE_BULK_MSG_PUB.Add('Y','ERROR');
2917: FND_MESSAGE.SET_NAME('ONT', 'OE_SHIP_FROM_REQD');
2918: OE_BULK_MSG_PUB.Add('Y','ERROR');
2919: p_line_rec.lock_control(l_index) := -99;
2920: IF l_debug_level > 0 THEN
2921: oe_debug_pub.add( 'IN ERROR 11 ' ) ;
2922: END IF;
2923: END IF;
2924:
2925: IF (p_line_rec.project_id(l_index) IS NOT NULL AND
2932: FND_MESSAGE.SET_NAME('ONT', 'OE_INVALID_SHIP_FROM_PROJ');
2933: OE_BULK_MSG_PUB.Add('Y','ERROR');
2934: p_line_rec.lock_control(l_index) := -99;
2935: IF l_debug_level > 0 THEN
2936: oe_debug_pub.add( 'IN ERROR 12 ' ) ;
2937: END IF;
2938: END IF;
2939: END IF;
2940:
2943: FND_MESSAGE.SET_NAME('ONT', 'OE_VAL_PROJECT_REQD');
2944: OE_BULK_MSG_PUB.Add('Y','ERROR');
2945: p_line_rec.lock_control(l_index) := -99;
2946: IF l_debug_level > 0 THEN
2947: oe_debug_pub.add( 'IN ERROR 13 ' ) ;
2948: END IF;
2949:
2950: ELSIF (p_line_rec.task_id(l_index) is NOT NULL
2951: AND p_line_rec.project_id(l_index) IS NOT NULL) THEN
2957: OE_Order_Util.Get_Attribute_Name('task_id'));
2958: OE_BULK_MSG_PUB.Add('Y','ERROR');
2959: p_line_rec.lock_control(l_index) := -99;
2960: IF l_debug_level > 0 THEN
2961: oe_debug_pub.add( 'IN ERROR 14 ' ) ;
2962: END IF;
2963:
2964: END IF;
2965:
2971: FND_MESSAGE.SET_NAME('ONT', 'OE_VAL_TASK_REQD');
2972: OE_BULK_MSG_PUB.Add('Y','ERROR');
2973: p_line_rec.lock_control(l_index) := -99;
2974: IF l_debug_level > 0 THEN
2975: oe_debug_pub.add( 'IN ERROR 15 ' ) ;
2976: END IF;
2977: END IF;
2978: END IF;
2979:
2988: fnd_message.set_name('ONT', 'OE_UEFF_NUMBER_REQD');
2989: OE_BULK_MSG_PUB.Add('Y','ERROR');
2990: p_line_rec.lock_control(l_index) := -99;
2991: IF l_debug_level > 0 THEN
2992: oe_debug_pub.add( 'IN ERROR 16 ' ) ;
2993: END IF;
2994: END IF;
2995: END IF;
2996: ELSE -- When project manufacturing is not enabled at the site.
3002: fnd_message.set_name('ONT', 'OE_PJM_NOT_INSTALLED');
3003: OE_BULK_MSG_PUB.Add('Y','ERROR');
3004: p_line_rec.lock_control(l_index) := -99;
3005: IF l_debug_level > 0 THEN
3006: oe_debug_pub.add( 'IN ERROR 17 ' ) ;
3007: END IF;
3008: END IF;
3009:
3010: END IF; --End if PJM_UNIT_EFF.ENABLED
3031: p_line_rec.lock_control(l_index) := -99;
3032: fnd_message.set_name('ONT', 'OE_ITEM_VALIDATION_FAILED');
3033: OE_BULK_MSG_PUB.Add('Y','ERROR');
3034: IF l_debug_level > 0 THEN
3035: oe_debug_pub.add( 'IN ERROR 18 ' ) ;
3036: END IF;
3037: END IF;
3038:
3039: --Item Orderability
3041: IF ( NVL( p_line_rec.item_type_code(l_index),OE_GLOBALS.G_ITEM_STANDARD) = OE_GLOBALS.G_ITEM_STANDARD
3042: OR ( p_line_rec.item_type_code(l_index) = OE_GLOBALS.G_ITEM_MODEL )
3043: ) then
3044:
3045: oe_debug_pub.add(' Checking Validate_item_orderability ');
3046: --oe_debug_pub.add(' org id :' || p_line_rec.org_id(l_index));
3047:
3048:
3049: IF NOT OE_ITORD_UTIL.Validate_item_orderability
3042: OR ( p_line_rec.item_type_code(l_index) = OE_GLOBALS.G_ITEM_MODEL )
3043: ) then
3044:
3045: oe_debug_pub.add(' Checking Validate_item_orderability ');
3046: --oe_debug_pub.add(' org id :' || p_line_rec.org_id(l_index));
3047:
3048:
3049: IF NOT OE_ITORD_UTIL.Validate_item_orderability
3050: (
3065: fnd_message.set_token('ITEM',OE_ITORD_UTIL.get_item_name(p_line_rec.inventory_item_id(l_index)));
3066: fnd_message.set_token('CATEGORY',OE_ITORD_UTIL.get_item_category_name(p_line_rec.inventory_item_id(l_index)));
3067: OE_BULK_MSG_PUB.Add('Y','ERROR');
3068: IF l_debug_level > 0 THEN
3069: oe_debug_pub.add( 'IN ERROR 19 ' ) ;
3070: END IF;
3071: END IF;
3072: END IF;
3073:
3086: p_line_rec.lock_control(l_index) := -99;
3087: fnd_message.set_name('ONT', 'ONT_USER_ITEM_DESC_TOO_LONG');
3088: OE_BULK_MSG_PUB.Add('Y','ERROR');
3089: IF l_debug_level > 0 THEN
3090: oe_debug_pub.add( 'LENGTH OF USER ITEM DESC EXCEEDS LIMIT FOR EXTERNAL ORDERS. ' ) ;
3091: END IF;
3092: END IF;
3093:
3094: END IF;
3157: )
3158: THEN
3159: p_line_rec.lock_control(l_index) := -99;
3160: IF l_debug_level > 0 THEN
3161: oe_debug_pub.add( 'IN ERROR 22 ' ) ;
3162: END IF;
3163: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
3164: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
3165: OE_Order_Util.Get_Attribute_Name('INVOICE_TO_ORG_ID'));
3180: )
3181: THEN
3182: p_line_rec.lock_control(l_index) := -99;
3183: IF l_debug_level > 0 THEN
3184: oe_debug_pub.add( 'IN ERROR 22 ' ) ;
3185: END IF;
3186: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
3187: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
3188: OE_Order_Util.Get_Attribute_Name('ship_to_org_id'));
3202: )
3203: THEN
3204: p_line_rec.lock_control(l_index) := -99;
3205: IF l_debug_level > 0 THEN
3206: oe_debug_pub.add( 'IN ERROR 22 ' ) ;
3207: END IF;
3208: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
3209: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
3210: OE_Order_Util.Get_Attribute_Name('DELIVER_TO_ORG_ID'));
3373: IF p_line_rec.item_type_code(l_index) <> 'SERVICE' THEN
3374: IF p_line_rec.accounting_rule_id(l_index) IS NOT NULL AND
3375: p_line_rec.accounting_rule_id(l_index) <> FND_API.G_MISS_NUM THEN
3376: IF l_debug_level > 0 THEN
3377: oe_debug_pub.add( 'GETTING ACCOUNTING RULE TYPE' ) ;
3378: END IF;
3379: SELECT type
3380: INTO l_rule_type
3381: FROM ra_rules
3380: INTO l_rule_type
3381: FROM ra_rules
3382: WHERE rule_id = p_line_rec.accounting_rule_id(l_index);
3383: IF l_debug_level > 0 THEN
3384: oe_debug_pub.add( 'RULE_TYPE IS :'||L_RULE_TYPE) ;
3385: END IF;
3386: IF l_rule_type = 'PP_DR_ALL' OR l_rule_type = 'PP_DR_PP' THEN
3387: p_line_rec.lock_control(l_index) := -99 ;
3388: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
3426: close partyinfo;
3427: end if;
3428:
3429: if l_debug_level>0 then
3430: oe_debug_pub.add('tax_exempt_number '|| p_line_rec.tax_exempt_number(l_index));
3431: oe_debug_pub.add('reason code'||p_line_rec.tax_exempt_reason_code(l_index));
3432: oe_debug_pub.add('ship to org_id'||p_line_rec.ship_to_org_id(l_index));
3433: oe_debug_pub.add('invoice to org_id'||p_line_rec.invoice_to_org_id(l_index));
3434: oe_debug_pub.add('l_shiop to party site id '||l_ship_to_party_site_id);
3427: end if;
3428:
3429: if l_debug_level>0 then
3430: oe_debug_pub.add('tax_exempt_number '|| p_line_rec.tax_exempt_number(l_index));
3431: oe_debug_pub.add('reason code'||p_line_rec.tax_exempt_reason_code(l_index));
3432: oe_debug_pub.add('ship to org_id'||p_line_rec.ship_to_org_id(l_index));
3433: oe_debug_pub.add('invoice to org_id'||p_line_rec.invoice_to_org_id(l_index));
3434: oe_debug_pub.add('l_shiop to party site id '||l_ship_to_party_site_id);
3435: oe_debug_pub.add('l_bill_to_party site_id '||l_bill_to_party_site_id);
3428:
3429: if l_debug_level>0 then
3430: oe_debug_pub.add('tax_exempt_number '|| p_line_rec.tax_exempt_number(l_index));
3431: oe_debug_pub.add('reason code'||p_line_rec.tax_exempt_reason_code(l_index));
3432: oe_debug_pub.add('ship to org_id'||p_line_rec.ship_to_org_id(l_index));
3433: oe_debug_pub.add('invoice to org_id'||p_line_rec.invoice_to_org_id(l_index));
3434: oe_debug_pub.add('l_shiop to party site id '||l_ship_to_party_site_id);
3435: oe_debug_pub.add('l_bill_to_party site_id '||l_bill_to_party_site_id);
3436: oe_debug_pub.add('l_org_id '||l_org_id);
3429: if l_debug_level>0 then
3430: oe_debug_pub.add('tax_exempt_number '|| p_line_rec.tax_exempt_number(l_index));
3431: oe_debug_pub.add('reason code'||p_line_rec.tax_exempt_reason_code(l_index));
3432: oe_debug_pub.add('ship to org_id'||p_line_rec.ship_to_org_id(l_index));
3433: oe_debug_pub.add('invoice to org_id'||p_line_rec.invoice_to_org_id(l_index));
3434: oe_debug_pub.add('l_shiop to party site id '||l_ship_to_party_site_id);
3435: oe_debug_pub.add('l_bill_to_party site_id '||l_bill_to_party_site_id);
3436: oe_debug_pub.add('l_org_id '||l_org_id);
3437: oe_debug_pub.add('l_bill to party id'||l_bill_to_party_id);
3430: oe_debug_pub.add('tax_exempt_number '|| p_line_rec.tax_exempt_number(l_index));
3431: oe_debug_pub.add('reason code'||p_line_rec.tax_exempt_reason_code(l_index));
3432: oe_debug_pub.add('ship to org_id'||p_line_rec.ship_to_org_id(l_index));
3433: oe_debug_pub.add('invoice to org_id'||p_line_rec.invoice_to_org_id(l_index));
3434: oe_debug_pub.add('l_shiop to party site id '||l_ship_to_party_site_id);
3435: oe_debug_pub.add('l_bill_to_party site_id '||l_bill_to_party_site_id);
3436: oe_debug_pub.add('l_org_id '||l_org_id);
3437: oe_debug_pub.add('l_bill to party id'||l_bill_to_party_id);
3438: oe_debug_pub.add('request_date'||p_line_rec.request_date(l_index));
3431: oe_debug_pub.add('reason code'||p_line_rec.tax_exempt_reason_code(l_index));
3432: oe_debug_pub.add('ship to org_id'||p_line_rec.ship_to_org_id(l_index));
3433: oe_debug_pub.add('invoice to org_id'||p_line_rec.invoice_to_org_id(l_index));
3434: oe_debug_pub.add('l_shiop to party site id '||l_ship_to_party_site_id);
3435: oe_debug_pub.add('l_bill_to_party site_id '||l_bill_to_party_site_id);
3436: oe_debug_pub.add('l_org_id '||l_org_id);
3437: oe_debug_pub.add('l_bill to party id'||l_bill_to_party_id);
3438: oe_debug_pub.add('request_date'||p_line_rec.request_date(l_index));
3439: end if;
3432: oe_debug_pub.add('ship to org_id'||p_line_rec.ship_to_org_id(l_index));
3433: oe_debug_pub.add('invoice to org_id'||p_line_rec.invoice_to_org_id(l_index));
3434: oe_debug_pub.add('l_shiop to party site id '||l_ship_to_party_site_id);
3435: oe_debug_pub.add('l_bill_to_party site_id '||l_bill_to_party_site_id);
3436: oe_debug_pub.add('l_org_id '||l_org_id);
3437: oe_debug_pub.add('l_bill to party id'||l_bill_to_party_id);
3438: oe_debug_pub.add('request_date'||p_line_rec.request_date(l_index));
3439: end if;
3440: SELECT 'VALID'
3433: oe_debug_pub.add('invoice to org_id'||p_line_rec.invoice_to_org_id(l_index));
3434: oe_debug_pub.add('l_shiop to party site id '||l_ship_to_party_site_id);
3435: oe_debug_pub.add('l_bill_to_party site_id '||l_bill_to_party_site_id);
3436: oe_debug_pub.add('l_org_id '||l_org_id);
3437: oe_debug_pub.add('l_bill to party id'||l_bill_to_party_id);
3438: oe_debug_pub.add('request_date'||p_line_rec.request_date(l_index));
3439: end if;
3440: SELECT 'VALID'
3441: INTO l_dummy
3434: oe_debug_pub.add('l_shiop to party site id '||l_ship_to_party_site_id);
3435: oe_debug_pub.add('l_bill_to_party site_id '||l_bill_to_party_site_id);
3436: oe_debug_pub.add('l_org_id '||l_org_id);
3437: oe_debug_pub.add('l_bill to party id'||l_bill_to_party_id);
3438: oe_debug_pub.add('request_date'||p_line_rec.request_date(l_index));
3439: end if;
3440: SELECT 'VALID'
3441: INTO l_dummy
3442: FROM ZX_EXEMPTIONS_V
3545: EXCEPTION
3546: WHEN OTHERS THEN
3547: p_line_rec.lock_control(l_index) := -99;
3548: IF l_debug_level > 0 THEN
3549: oe_debug_pub.add( 'IN ERROR 29 ' ) ;
3550: END IF;
3551: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
3552: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Entity: Tax Code');
3553: OE_BULK_MSG_PUB.Add('Y','ERROR');
4069: IF (p_line_rec.unit_list_price(l_index) IS NULL
4070: OR p_line_rec.unit_selling_price(l_index) IS NULL)
4071: THEN
4072: IF l_debug_level > 0 THEN
4073: oe_debug_pub.add( 'LIST PRICE OR SELLING PRICE IS NULL... ' ) ;
4074: END IF;
4075: p_line_rec.lock_control(l_index) := -99;
4076: FND_MESSAGE.SET_NAME('ONT','OE_OI_PRICE');
4077: OE_BULK_MSG_PUB.Add;
4077: OE_BULK_MSG_PUB.Add;
4078: ELSIF p_line_rec.pricing_quantity(l_index) IS NULL
4079: THEN
4080: IF l_debug_level > 0 THEN
4081: oe_debug_pub.add( 'PRICING QUANTITY IS NULL...RESETTING' ) ;
4082: END IF;
4083: p_line_rec.pricing_quantity(l_index) :=
4084: p_line_rec.ordered_quantity(l_index);
4085: p_line_rec.pricing_quantity_uom(l_index) :=
4095: ---------------------------------------------------------------
4096: -- Add a 100% default sales credit record for this salesperson
4097: -- if different from salesperson on header
4098: ---------------------------------------------------------------
4099: oe_debug_pub.add(' salesrep_id ');
4100:
4101: IF p_line_rec.salesrep_id(l_index) IS NOT NULL AND
4102: p_header_rec.salesrep_id(header_counter) IS NOT NULL THEN
4103:
4180: l_header_rec_for_hold.transactional_curr_code := p_header_rec.transactional_curr_code(header_counter);
4181: l_header_rec_for_hold.sales_channel_code := p_header_rec.sales_channel_code(header_counter);
4182: --ER# 12571983 END
4183:
4184: oe_debug_pub.add(' Evaluate_Holds ');
4185:
4186: OE_Bulk_Holds_PVT.Evaluate_Holds(
4187: --p_header_rec => NULL, --ER# 12571983
4188: p_header_rec => l_header_rec_for_hold, --ER# 12571983, for EC combinations with Header Record attributes
4209:
4210: ---------------------------------------------------------------
4211: -- BOOKING VALIDATIONS
4212: ---------------------------------------------------------------
4213: oe_debug_pub.add('booked_flag ');
4214:
4215: IF p_line_rec.booked_flag(l_index) = 'Y' THEN
4216:
4217: Check_Book_Reqd_Attributes(p_line_rec => p_line_rec
4227:
4228: ---------------------------------------------------------------
4229: -- SCHEDULING VALIDATIONS
4230: ---------------------------------------------------------------
4231: oe_debug_pub.add(' SCHEDULING :');
4232: l_c_index := OE_BULK_CACHE.Load_Order_Type(p_header_rec.order_type_id(header_counter));
4233:
4234: IF (OE_BULK_ORDER_PVT.G_AUTO_SCHEDULE = 'Y'
4235: OR OE_BULK_CACHE.G_ORDER_TYPE_TBL(l_c_index).auto_scheduling_flag = 'Y'
4244: 'OPTION'))
4245: THEN
4246:
4247: IF l_debug_level > 0 THEN
4248: oe_debug_pub.add( 'SCHEDULING VALIDATIONS - ato scheduling') ;
4249: END IF;
4250:
4251: l_d_index := OE_BULK_CACHE.Load_Line_Type(p_line_rec.line_type_id(l_index));
4252: IF ( OE_BULK_ORDER_PVT.G_SCHEDULE_LINE_ON_HOLD = 'N'
4320: NVL(OE_BULK_SCHEDULE_UTIL.Get_Date_Type(p_line_rec.header_id(l_index)),'SHIP');
4321: IF trunc(NVL(p_line_rec.latest_acceptable_date(l_index),p_line_rec.request_date(l_index)))
4322: < trunc(p_line_rec.request_date(l_index)) THEN -- LAD less than request date
4323: IF l_debug_level > 0 THEN
4324: oe_debug_pub.add( 'Request date exceeds Latest Acceptable Date ',1 ) ;
4325: END IF;
4326: FND_MESSAGE.SET_NAME('ONT','ONT_SCH_REQUEST_EXCEED_LAD');
4327: OE_BULK_MSG_PUB.Add;
4328: ELSIF ((l_order_date_type_code = 'SHIP'
4333: > trunc(NVL(p_line_rec.latest_acceptable_date(l_index),p_line_rec.request_date(l_index))))) THEN
4334: FND_MESSAGE.SET_NAME('ONT','ONT_SCH_LAD_SCH_FAILED');
4335: OE_BULK_MSG_PUB.Add;
4336: IF l_debug_level > 0 THEN
4337: oe_debug_pub.add( 'SCHEDULE DATE EXCEEDS LAD ',1 ) ;
4338: END IF;
4339:
4340: END IF;
4341: END IF;
4345:
4346: ---------------------------------------------------------------
4347: -- INCLUDED ITEM PROCESSING
4348: ---------------------------------------------------------------
4349: oe_debug_pub.add(' NCLUDED ITEM PROCESSING ');
4350:
4351: IF p_line_rec.lock_control(l_index) <> - 99
4352: AND p_line_rec.item_type_code(l_index) = 'KIT'
4353: THEN
4416:
4417: ---------------------------------------------------------------
4418: -- LAST STEP: ERROR PROCESSING
4419: ---------------------------------------------------------------
4420: oe_debug_pub.add(' ERROR PROCESSING ');
4421: -- Set Global Error Record If we have had any validation failures
4422:
4423: IF (p_line_rec.lock_control(l_index) = -99 ) THEN
4424:
4520:
4521: EXCEPTION
4522: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4523: IF l_debug_level > 0 THEN
4524: oe_debug_pub.add( 'UNEXP ERROR , LINE.ENTITY' ) ;
4525: END IF;
4526: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4527: WHEN OTHERS THEN
4528: IF l_debug_level > 0 THEN
4525: END IF;
4526: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4527: WHEN OTHERS THEN
4528: IF l_debug_level > 0 THEN
4529: oe_debug_pub.add( 'OTHERS ERROR , LINE.ENTITY' ) ;
4530: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
4531: END IF;
4532: IF OE_BULK_MSG_PUB.Check_Msg_Level(OE_BULK_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4533: THEN
4526: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4527: WHEN OTHERS THEN
4528: IF l_debug_level > 0 THEN
4529: oe_debug_pub.add( 'OTHERS ERROR , LINE.ENTITY' ) ;
4530: oe_debug_pub.add( SUBSTR ( SQLERRM , 1 , 240 ) ) ;
4531: END IF;
4532: IF OE_BULK_MSG_PUB.Check_Msg_Level(OE_BULK_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4533: THEN
4534: OE_BULK_MSG_PUB.Add_Exc_Msg
4554: l_converted_qty NUMBER(19,9); -- INVCONV
4555: l_return NUMBER;
4556: l_status VARCHAR2(1);
4557: l_msg_count NUMBER;
4558: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4559: UOM_CONVERSION_FAILED EXCEPTION;
4560:
4561: l_buffer VARCHAR2(2000); -- INVCONV
4562: TOLERANCE_ERROR EXCEPTION; -- INVCONV
4567: BEGIN
4568:
4569:
4570: IF l_debug_level > 0 THEN
4571: oe_debug_pub.add ('In calculate_dual_quantity', 3);
4572: END IF;
4573:
4574: /* If neither quantity is present, then error as only called for a process type 1,2,or 3 ite m */
4575:
4578: (p_line_rec.ordered_quantity2(p_index) IS NULL OR
4579: p_line_rec.ordered_quantity2(p_index) = FND_API.G_MISS_NUM ) THEN
4580: p_x_return_status := -1;
4581: IF l_debug_level > 0 THEN
4582: oe_debug_pub.add ('calculate_dual_qty- both quantities empty so error ', 3);
4583: END IF;
4584: RETURN;
4585: END IF;
4586:
4592: FND_MESSAGE.SET_NAME('ONT','SO_PR_NEGATIVE_AMOUNT'); -- HVOP define better OM or GMI error code
4593: OE_BULK_MSG_PUB.Add('Y', 'ERROR');
4594: p_x_return_status := -1;
4595: IF l_debug_level > 0 THEN
4596: oe_debug_pub.add ('calculate_dual_qty- quantity2 negative so error ', 3);
4597: END IF;
4598: RETURN;
4599: END IF;
4600: -- INVCONV check for valid warehouse/item combo PAL
4611: NULL ,--p_line_rec.source_document_type_id(p_index),
4612: 'ORDER')
4613: THEN
4614: IF l_debug_level > 0 THEN
4615: oe_debug_pub.add( 'calculate_dual_qty - invalid warehouse/item combo' ) ;
4616: END IF;
4617: p_x_return_status := -1;
4618: FND_MESSAGE.SET_NAME('ONT', 'OE_INVALID_ITEM_WHSE');
4619: OE_BULK_MSG_PUB.add('Y','ERROR');
4626:
4627:
4628:
4629: /*IF l_debug_level > 0 THEN
4630: oe_debug_pub.add('cached dualum_ind is ' || p_dualum_ind ,3 );
4631: oe_debug_pub.add('input qty is ' || p_line_rec.ordered_quantity(p_index) , 3 );
4632: oe_debug_pub.add('input qty2 is ' || p_line_rec.ordered_quantity2(p_index), 3 );
4633: oe_debug_pub.add('input uom is ' || p_line_rec.order_quantity_uom(p_index), 3);
4634: oe_debug_pub.add('input uom2 is ' || p_line_rec.ordered_quantity_uom2(p_index) , 3);
4627:
4628:
4629: /*IF l_debug_level > 0 THEN
4630: oe_debug_pub.add('cached dualum_ind is ' || p_dualum_ind ,3 );
4631: oe_debug_pub.add('input qty is ' || p_line_rec.ordered_quantity(p_index) , 3 );
4632: oe_debug_pub.add('input qty2 is ' || p_line_rec.ordered_quantity2(p_index), 3 );
4633: oe_debug_pub.add('input uom is ' || p_line_rec.order_quantity_uom(p_index), 3);
4634: oe_debug_pub.add('input uom2 is ' || p_line_rec.ordered_quantity_uom2(p_index) , 3);
4635: END IF; */
4628:
4629: /*IF l_debug_level > 0 THEN
4630: oe_debug_pub.add('cached dualum_ind is ' || p_dualum_ind ,3 );
4631: oe_debug_pub.add('input qty is ' || p_line_rec.ordered_quantity(p_index) , 3 );
4632: oe_debug_pub.add('input qty2 is ' || p_line_rec.ordered_quantity2(p_index), 3 );
4633: oe_debug_pub.add('input uom is ' || p_line_rec.order_quantity_uom(p_index), 3);
4634: oe_debug_pub.add('input uom2 is ' || p_line_rec.ordered_quantity_uom2(p_index) , 3);
4635: END IF; */
4636:
4629: /*IF l_debug_level > 0 THEN
4630: oe_debug_pub.add('cached dualum_ind is ' || p_dualum_ind ,3 );
4631: oe_debug_pub.add('input qty is ' || p_line_rec.ordered_quantity(p_index) , 3 );
4632: oe_debug_pub.add('input qty2 is ' || p_line_rec.ordered_quantity2(p_index), 3 );
4633: oe_debug_pub.add('input uom is ' || p_line_rec.order_quantity_uom(p_index), 3);
4634: oe_debug_pub.add('input uom2 is ' || p_line_rec.ordered_quantity_uom2(p_index) , 3);
4635: END IF; */
4636:
4637:
4630: oe_debug_pub.add('cached dualum_ind is ' || p_dualum_ind ,3 );
4631: oe_debug_pub.add('input qty is ' || p_line_rec.ordered_quantity(p_index) , 3 );
4632: oe_debug_pub.add('input qty2 is ' || p_line_rec.ordered_quantity2(p_index), 3 );
4633: oe_debug_pub.add('input uom is ' || p_line_rec.order_quantity_uom(p_index), 3);
4634: oe_debug_pub.add('input uom2 is ' || p_line_rec.ordered_quantity_uom2(p_index) , 3);
4635: END IF; */
4636:
4637:
4638: IF p_dualum_ind = 'F' THEN
4637:
4638: IF p_dualum_ind = 'F' THEN
4639: IF (NVL(p_line_rec.ordered_quantity2(p_index),0) = 0 ) THEN
4640: IF l_debug_level > 0 THEN
4641: oe_debug_pub.add('Calculate_dual_quantity : quantity2 is null and type 1 (D) so calculate it', 3);
4642: END IF;
4643:
4644: /*p_line_rec.ordered_quantity2(p_index) := GMI_Reservation_Util.get_opm_converted_qty(
4645: p_apps_item_id => p_line_rec.inventory_item_id(p_index),
4658: ,NULL -- From uom name
4659: ,NULL -- To uom name
4660: );
4661: IF l_debug_level > 0 THEN
4662: oe_debug_pub.add('Calculate_dual_quantity : quantity2 '|| l_converted_qty ,3 );
4663: END IF;
4664:
4665: p_line_rec.ordered_quantity2(p_index) := l_converted_qty;
4666:
4670:
4671:
4672: ELSIF (NVL(p_line_rec.ordered_quantity(p_index) ,0) = 0 ) THEN
4673: IF l_debug_level > 0 THEN
4674: oe_debug_pub.add('Calculate_dual_quantity : quantity is null and type 1(F) so calculate it', 3);
4675: END IF;
4676:
4677: /* p_line_rec.ordered_quantity(p_index) := GMI_Reservation_Util.get_opm_converted_qty(
4678: p_apps_item_id => p_line_rec.inventory_item_id(p_index),
4693: );
4694:
4695: p_line_rec.ordered_quantity(p_index) := l_converted_qty;
4696: IF l_debug_level > 0 THEN
4697: oe_debug_pub.add('Calculate_dual_quantity : quantity '||p_line_rec.ordered_quantity(p_index), 3);
4698: END IF;
4699: IF (p_line_rec.ordered_quantity(p_index) < 0) THEN
4700: raise UOM_CONVERSION_FAILED;
4701: END IF;
4710: IF (NVL(p_line_rec.ordered_quantity2(p_index),0) <> 0 )
4711: AND (NVL(p_line_rec.ordered_quantity(p_index),0) <> 0 ) THEN
4712: /* check the deviation and error out */
4713: IF l_debug_level > 0 THEN
4714: oe_debug_pub.add('Calculate_dual_quantity : check the deviation 1 and error out if necc ', 3);
4715: END IF;
4716: l_return := INV_CONVERT.Within_Deviation -- INVCONV
4717: ( p_organization_id =>
4718: p_line_rec.ship_from_org_id(p_index)
4728:
4729: IF l_return = 0
4730: then
4731: IF l_debug_level > 0 THEN
4732: oe_debug_pub.add('Calculate_dual_quantity - tolerance error 3' ,1);
4733: END IF;
4734:
4735: l_buffer := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST, -- INVCONV
4736: p_encoded => 'F');
4738: oe_msg_pub.add_text(p_message_text => l_buffer);
4739: --fnd_message.set_name('ONT',l_buffer); -- PAL
4740: OE_BULK_MSG_PUB.Add('Y', 'ERROR');
4741: /*IF l_debug_level > 0 THEN
4742: oe_debug_pub.add(l_buffer,1);
4743: END IF; */
4744: RAISE TOLERANCE_ERROR;
4745: else
4746: IF l_debug_level > 0 THEN
4743: END IF; */
4744: RAISE TOLERANCE_ERROR;
4745: else
4746: IF l_debug_level > 0 THEN
4747: oe_debug_pub.add('Calculate_dual_quantity - No tolerance error ',1);
4748: END IF;
4749: END IF; -- IF l_return = 0
4750:
4751:
4770:
4771: IF (NVL(p_line_rec.ordered_quantity2(p_index),0) = 0 )
4772: AND (NVL(p_line_rec.ordered_quantity(p_index),0) <> 0 ) THEN
4773: IF l_debug_level > 0 THEN
4774: oe_debug_pub.add('Calculate_dual_quantity : quantity2 is null and type 2(D default) so calculate it', 3);
4775: END IF;
4776: l_converted_qty := INV_CONVERT.INV_UM_CONVERT(p_line_rec.inventory_item_id(p_index)-- INVCONV
4777: ,NULL -- p_lot_number -- INVCONV
4778: ,p_line_rec.ship_from_org_id(p_index) -- INVCONV
4783: ,NULL -- From uom name
4784: ,NULL -- To uom name
4785: );
4786: IF l_debug_level > 0 THEN
4787: oe_debug_pub.add('Calculate_dual_quantity : quantity2 '|| l_converted_qty ,3 );
4788: END IF;
4789:
4790: p_line_rec.ordered_quantity2(p_index) := l_converted_qty;
4791:
4799: p_apps_from_uom => p_line_rec.order_quantity_uom(p_index) ,
4800: p_apps_to_uom => p_line_rec.ordered_quantity_uom2(p_index) ,
4801: p_original_qty => p_line_rec.ordered_quantity(p_index) );
4802: IF l_debug_level > 0 THEN
4803: oe_debug_pub.add('OPM Calculate_dual_quantity : quantity2 '||p_line_rec.ordered_quantity2(p_index),3 );
4804: END IF;
4805: IF (p_line_rec.ordered_quantity2(p_index) < 0) THEN
4806: raise UOM_CONVERSION_FAILED;
4807: END IF; */
4807: END IF; */
4808:
4809: ELSIF (NVL(p_line_rec.ordered_quantity(p_index) ,0) = 0 ) THEN
4810: IF l_debug_level > 0 THEN
4811: oe_debug_pub.add('Calculate_dual_quantity : quantity is null and type 2 (D) so calculate it', 3);
4812: END IF;
4813:
4814:
4815: l_converted_qty := INV_CONVERT.INV_UM_CONVERT(p_line_rec.inventory_item_id(p_index)-- INVCONV
4824: );
4825:
4826: p_line_rec.ordered_quantity(p_index) := l_converted_qty;
4827: IF l_debug_level > 0 THEN
4828: oe_debug_pub.add('Calculate_dual_quantity : quantity '||p_line_rec.ordered_quantity(p_index), 3);
4829: END IF;
4830: IF (p_line_rec.ordered_quantity(p_index) < 0) THEN
4831: raise UOM_CONVERSION_FAILED;
4832: END IF;
4837: p_apps_from_uom => p_line_rec.ordered_quantity_uom2(p_index),
4838: p_apps_to_uom => p_line_rec.order_quantity_uom(p_index),
4839: p_original_qty => p_line_rec.ordered_quantity2(p_index));
4840: IF l_debug_level > 0 THEN
4841: oe_debug_pub.add('OPM Calculate_dual_quantity : quantity '||p_line_rec.ordered_quantity(p_index), 3);
4842: END IF;
4843: IF (p_line_rec.ordered_quantity(p_index) < 0) THEN
4844: raise UOM_CONVERSION_FAILED;
4845: END IF; */
4871: OE_BULK_MSG_PUB.Add('Y', 'ERROR');
4872: END IF; */
4873:
4874: IF l_debug_level > 0 THEN
4875: oe_debug_pub.add('Calculate_dual_quantity : check the deviation 2 and error out if necc ', 3);
4876: END IF;
4877: l_return := INV_CONVERT.Within_Deviation -- INVCONV
4878: ( p_organization_id =>
4879: p_line_rec.ship_from_org_id(p_index)
4889:
4890: IF l_return = 0
4891: then
4892: IF l_debug_level > 0 THEN
4893: oe_debug_pub.add('Calculate_dual_quantity - tolerance error 3' ,1);
4894: END IF;
4895:
4896: l_buffer := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST, -- INVCONV
4897: p_encoded => 'F');
4900: --fnd_message.set_name('ONT',l_buffer);
4901: OE_BULK_MSG_PUB.Add('Y', 'ERROR');
4902:
4903: IF l_debug_level > 0 THEN
4904: oe_debug_pub.add(l_buffer,1);
4905: END IF;
4906: RAISE TOLERANCE_ERROR;
4907: else
4908: IF l_debug_level > 0 THEN
4905: END IF;
4906: RAISE TOLERANCE_ERROR;
4907: else
4908: IF l_debug_level > 0 THEN
4909: oe_debug_pub.add('Calculate_dual_quantity - No tolerance error ',1);
4910: END IF;
4911: END IF; -- IF l_return = 0
4912:
4913:
4924:
4925: END IF; -- IF p_dualum_ind = 1
4926:
4927: IF l_debug_level > 0 THEN
4928: oe_debug_pub.add ('end of calculate_dual_quantity', 3);
4929: END IF;
4930:
4931:
4932: EXCEPTION
4931:
4932: EXCEPTION
4933:
4934: WHEN UOM_CONVERSION_FAILED THEN
4935: oe_debug_pub.add('Exception handling: UOM_CONVERSION_FAILED in calculate_dual_qauntity', 1);
4936: FND_MESSAGE.SET_NAME('INV','INV_NO_CONVERSION_ERR'); -- INVCONV
4937: OE_BULK_MSG_PUB.Add('Y', 'ERROR');
4938:
4939: RAISE FND_API.G_EXC_ERROR;
4938:
4939: RAISE FND_API.G_EXC_ERROR;
4940:
4941: WHEN TOLERANCE_ERROR THEN -- INVCONV
4942: oe_debug_pub.add('Exception handling: TOLERANCE_ERROR in calculate_dual_qty', 1);
4943: p_x_return_status := -1;
4944: --RAISE -- FND_API.G_EXC_ERROR; -- INVCONV
4945:
4946:
4952: ( G_PKG_NAME ,
4953: 'Calculate_dual_quantity'
4954: );
4955: END IF;
4956: oe_debug_pub.add('Exception handling: others in calculate_dual_qty', 1);
4957: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4958:
4959:
4960:
5018: ( G_PKG_NAME ,
5019: 'Get_Preferred_Grade'
5020: );
5021: END IF;
5022: oe_debug_pub.add('others in get_preferred_grade', 1);
5023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5024:
5025:
5026: END Get_Preferred_Grade; */
5081: ( G_PKG_NAME ,
5082: 'Load_Cust_Trx_Type_Id'
5083: );
5084: END IF;
5085: oe_debug_pub.add('others in Load_Cust_Trx_type_Id', 1);
5086: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5087: END Load_Cust_Trx_Type_Id;
5088:
5089: END OE_BULK_PROCESS_LINE;