[Home] [Help]
90: l_return_status varchar2(30);
91: l_set_tbl_count number;
92: l_header_id number;
93:
94: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
95: l_delete_lines_tbl OE_ORDER_PUB.Request_Tbl_Type; -- For bug 3754586
96: BEGIN
97: if l_debug_level > 0 then
98: oe_debug_pub.add('Entering in Delete Dependents');
94: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
95: l_delete_lines_tbl OE_ORDER_PUB.Request_Tbl_Type; -- For bug 3754586
96: BEGIN
97: if l_debug_level > 0 then
98: oe_debug_pub.add('Entering in Delete Dependents');
99: end if;
100: /* set the set type in g_set_tbl to invalid if the line is being deleted */
101:
102:
102:
103: IF OE_SET_UTIL.g_set_tbl.count > 0 THEN
104:
105: if l_debug_level > 0 then
106: oe_debug_pub.add('Table Count : '||OE_SET_UTIL.g_set_tbl.count,3);
107: end if;
108:
109: l_set_tbl_count := OE_SET_UTIL.g_set_tbl.first;
110: WHILE l_set_tbl_count IS NOT NULL
114:
115: OE_SET_UTIL.g_set_tbl(l_set_tbl_count).set_type := 'INVALID_SET';
116:
117: if l_debug_level > 0 then
118: oe_debug_pub.add('Set the set type as invalid ',3);
119: end if;
120: END IF;
121:
122: l_set_tbl_count := OE_SET_UTIL.g_set_tbl.next(l_set_tbl_count);
213:
214: /* Log and Execute the delayed request logged for update shipping
215: as they will get deleted in the next step */
216: if l_debug_level > 0 then
217: oe_debug_pub.ADD('p_shipping_interfaced_flag '|| p_shipping_interfaced_flag,1);
218: end if;
219:
220: IF p_shipping_interfaced_flag = 'Y' THEN
221:
219:
220: IF p_shipping_interfaced_flag = 'Y' THEN
221:
222: if l_debug_level > 0 then
223: oe_debug_pub.ADD('Update Shipping,Delete '|| p_line_id,1);
224: end if;
225:
226: /*
227: The code for logging and processing the delayed request for update shipping
248: END IF;-- shipping interfaced = 'Y'
249: -- changes for bug 3754586 ends
250:
251: if l_debug_level > 0 then
252: oe_debug_pub.add('ret sts: '|| l_return_status, 4);
253: end if;
254:
255: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
256:
290: Procedure Calc_Catchweight_Return_qty2
291: ( p_x_line_rec IN OUT NOCOPY OE_Order_PUB.Line_Rec_Type
292: , p_old_line_rec IN OE_Order_PUB.Line_Rec_Type) IS
293: x_item_rec OE_ORDER_CACHE.item_rec_type;
294: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
295:
296: BEGIN
297: If l_debug_level > 0 Then
298: oe_debug_pub.add('Entering into Calc_Catchweight_Return_qty2',1);
294: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
295:
296: BEGIN
297: If l_debug_level > 0 Then
298: oe_debug_pub.add('Entering into Calc_Catchweight_Return_qty2',1);
299: oe_debug_pub.add('p_x_line_rec.line_category_code : '||p_x_line_rec.line_category_code||' p_x_line_rec.reference_line_id : '||p_x_line_rec.reference_line_id,3);
300: oe_debug_pub.add('p_x_line_rec.inventory_item_id : '||p_x_line_rec.inventory_item_id||' p_x_line_rec.ship_from_org_id : '||p_x_line_rec.ship_from_org_id,3);
301: End If;
302:
295:
296: BEGIN
297: If l_debug_level > 0 Then
298: oe_debug_pub.add('Entering into Calc_Catchweight_Return_qty2',1);
299: oe_debug_pub.add('p_x_line_rec.line_category_code : '||p_x_line_rec.line_category_code||' p_x_line_rec.reference_line_id : '||p_x_line_rec.reference_line_id,3);
300: oe_debug_pub.add('p_x_line_rec.inventory_item_id : '||p_x_line_rec.inventory_item_id||' p_x_line_rec.ship_from_org_id : '||p_x_line_rec.ship_from_org_id,3);
301: End If;
302:
303: IF p_x_line_rec.line_category_code = 'RETURN' AND
296: BEGIN
297: If l_debug_level > 0 Then
298: oe_debug_pub.add('Entering into Calc_Catchweight_Return_qty2',1);
299: oe_debug_pub.add('p_x_line_rec.line_category_code : '||p_x_line_rec.line_category_code||' p_x_line_rec.reference_line_id : '||p_x_line_rec.reference_line_id,3);
300: oe_debug_pub.add('p_x_line_rec.inventory_item_id : '||p_x_line_rec.inventory_item_id||' p_x_line_rec.ship_from_org_id : '||p_x_line_rec.ship_from_org_id,3);
301: End If;
302:
303: IF p_x_line_rec.line_category_code = 'RETURN' AND
304: p_x_line_rec.reference_line_id IS NOT NULL THEN -- referenced return
312: IF x_item_rec.ont_pricing_qty_source = 'S' AND -- INVCONV
313: x_item_rec.tracking_quantity_ind = 'P' THEN -- AND -- INVCONV -
314: --x_item_rec.wms_enabled_flag = 'Y' THEN -- INVCONV - TAKE OUT AS OPENED UP TO ANY ORG
315: IF l_debug_level > 0 THEN
316: oe_debug_pub.add( 'Discrete catchweight enabled. Prorating ordered_quantity2. p_old_line_rec.ordered_quantity2:'|| p_old_line_rec.ordered_quantity2||
317: ': p_old_line_rec.ordered_quantity:'|| p_old_line_rec.ordered_quantity||': p_x_line_rec.ordered_quantity:'|| p_x_line_rec.ordered_quantity);
318: oe_debug_pub.add('p_x_line_rec.ordered_quantity2 : '||p_x_line_rec.ordered_quantity2,3);
319: END IF;
320: If p_old_line_rec.ordered_quantity2 Is NOT NULL AND
314: --x_item_rec.wms_enabled_flag = 'Y' THEN -- INVCONV - TAKE OUT AS OPENED UP TO ANY ORG
315: IF l_debug_level > 0 THEN
316: oe_debug_pub.add( 'Discrete catchweight enabled. Prorating ordered_quantity2. p_old_line_rec.ordered_quantity2:'|| p_old_line_rec.ordered_quantity2||
317: ': p_old_line_rec.ordered_quantity:'|| p_old_line_rec.ordered_quantity||': p_x_line_rec.ordered_quantity:'|| p_x_line_rec.ordered_quantity);
318: oe_debug_pub.add('p_x_line_rec.ordered_quantity2 : '||p_x_line_rec.ordered_quantity2,3);
319: END IF;
320: If p_old_line_rec.ordered_quantity2 Is NOT NULL AND
321: p_old_line_rec.ordered_quantity2 <> FND_API.G_MISS_NUM AND
322: p_old_line_rec.ordered_quantity Is NOT NULL AND
332: p_x_line_rec.ordered_quantity_uom2 is not null and
333: p_x_line_rec.ordered_quantity_uom2 <> FND_API.G_MISS_CHAR Then
334: IF p_x_line_rec.pricing_quantity_uom = p_x_line_rec.ordered_quantity_uom2 THEN
335: IF l_debug_level > 0 THEN
336: oe_debug_pub.add('pricing uom is same as ordered quantity2 uom');
337: END IF;
338: p_x_line_rec.Pricing_quantity := p_x_line_rec.ordered_quantity2;
339: ELSE
340: p_x_line_rec.Pricing_quantity :=
343: p_x_line_rec.order_quantity_uom, p_x_line_rec.pricing_quantity_uom,
344: p_x_line_rec.ordered_quantity
345: );
346: IF l_debug_level > 0 THEN
347: oe_debug_pub.add('pricing uom is different than ordered quantity2 uom. p_x_line_rec.Pricing_quantity:'|| p_x_line_rec.Pricing_quantity);
348: END IF;
349: END IF; -- Pricing Quantity
350: END IF; -- Check for existence of qty2, uom2 and pricing uom
351: END IF; -- end check for discrete catchweight
464: l_delete_payment_count NUMBER;
465: --
466: -- bug 4378531
467: l_hold_result VARCHAR2(30);
468: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
469: --
470: --Bug#5026401
471: l_orig_line_calc_price_flag VARCHAR2(1);
472: l_ship_inv_count NUMBER :=0;
476:
477: BEGIN
478:
479: if l_debug_level > 0 then
480: oe_debug_pub.add('Entering OE_LINE_UTIL.APPLY_ATTRIBUTE_CHANGES', 1);
481: end if;
482:
483: -- Query Header Record
484: -- Performance Improvement Bug 1929163
599: AND p_x_line_rec.booked_flag ='Y'
600: THEN
601: -- Log Delayed Request for Verify Payment
602: if l_debug_level > 0 then
603: oe_debug_pub.ADD('log verify payment delayed request for change in Canceled Qty');
604: end if;
605: l_verify_payment_flag := 'Y';
606: END IF;
607: END IF;
631: p_x_line_rec.LINE_CATEGORY_CODE='ORDER')
632: THEN
633: l_ship_inv_count:= -1;
634: if l_debug_level > 0 THEN
635: oe_debug_pub.add('Need not query shipping tables hence setting the counter to -1');
636: oe_debug_pub.add('Line is already shipped,will not update shipping', 1);
637: end if;
638: FND_MESSAGE.SET_NAME('ONT', 'OE_PO_SHIPPED');
639: OE_MSG_PUB.ADD;
632: THEN
633: l_ship_inv_count:= -1;
634: if l_debug_level > 0 THEN
635: oe_debug_pub.add('Need not query shipping tables hence setting the counter to -1');
636: oe_debug_pub.add('Line is already shipped,will not update shipping', 1);
637: end if;
638: FND_MESSAGE.SET_NAME('ONT', 'OE_PO_SHIPPED');
639: OE_MSG_PUB.ADD;
640:
658: EXCEPTION
659: WHEN No_Data_Found THEN
660: l_ship_inv_count:=0;
661: if l_debug_level > 0 then
662: oe_debug_pub.add('the line is neither picked, shipped or interfaced. can call update shipping', 1);
663: end if;
664: END ;
665: END IF;
666:
668: IF l_ship_inv_count>0
669:
670: THEN
671: if l_debug_level > 0 then
672: oe_debug_pub.add('Line is already shipped,will not update shipping', 1);
673: end if;
674: FND_MESSAGE.SET_NAME('ONT', 'OE_PO_SHIPPED');
675: OE_MSG_PUB.ADD;
676:
754: End If; -- For price_flag='Y'
755:
756: -- bug 3585862
757: if l_debug_level > 0 then
758: oe_debug_pub.add('old calculate price flag'||p_old_line_rec.calculate_price_flag, 3);
759: oe_debug_pub.add('new calculate price flag'||p_x_line_rec.calculate_price_flag, 3);
760: end if;
761: IF Nvl(oe_globals.g_pricing_recursion,'N') = 'N'
762: AND p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE
755:
756: -- bug 3585862
757: if l_debug_level > 0 then
758: oe_debug_pub.add('old calculate price flag'||p_old_line_rec.calculate_price_flag, 3);
759: oe_debug_pub.add('new calculate price flag'||p_x_line_rec.calculate_price_flag, 3);
760: end if;
761: IF Nvl(oe_globals.g_pricing_recursion,'N') = 'N'
762: AND p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE
763: AND ((p_old_line_rec.calculate_price_flag in ('N','P') and p_x_line_rec.calculate_price_flag = 'Y')
763: AND ((p_old_line_rec.calculate_price_flag in ('N','P') and p_x_line_rec.calculate_price_flag = 'Y')
764: OR (p_old_line_rec.calculate_price_flag = 'N' and p_x_line_rec.calculate_price_flag = 'P'))
765: THEN
766: if l_debug_level > 0 then
767: oe_debug_pub.add('setting price flag because of calculate price flag change', 3);
768: end if;
769: IF nvl(OE_GLOBALS.G_PRICE_FLAG, 'N') <> 'Y' THEN
770: OE_GLOBALS.G_PRICE_FLAG := 'Y';
771: OE_LINE_ADJ_UTIL.Register_Changed_Lines
809: -- log a delayed request to get included items for this item if any.
810:
811: l_freeze_method := G_FREEZE_METHOD; /* Bug # 5036404 */
812: if l_debug_level > 0 then
813: oe_debug_pub.ADD('Freeze method is :' || l_freeze_method,2);
814: end if;
815: --3286378 : Added check for operation= create
816: IF l_freeze_method = OE_GLOBALS.G_IIFM_ENTRY AND
817: (p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE OR
822: (p_x_line_rec.item_type_code = OE_GLOBALS.G_ITEM_KIT AND
823: p_x_line_rec.line_id = p_x_line_rec.top_model_line_id))
824: THEN
825: if l_debug_level > 0 then
826: oe_debug_pub.ADD('LINE ID : '||p_x_line_rec.line_id,2);
827: end if;
828: p_x_line_rec.explosion_date := null;
829: l_count := l_count + 1;
830: OE_Config_Pvt.OE_FREEZE_INC_ITEMS_TBL(l_count):= p_x_line_rec.line_id;
845: -- QUOTING change
846: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
847: THEN
848: if l_debug_level > 0 then
849: oe_debug_pub.ADD('item update: logging request for eval_hold_source');
850: oe_debug_pub.ADD('line ID: '|| to_char(p_x_line_rec.line_id)||
851: ' Entity ID: '|| to_char(p_x_line_rec.inventory_item_id));
852: end if;
853:
846: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
847: THEN
848: if l_debug_level > 0 then
849: oe_debug_pub.ADD('item update: logging request for eval_hold_source');
850: oe_debug_pub.ADD('line ID: '|| to_char(p_x_line_rec.line_id)||
851: ' Entity ID: '|| to_char(p_x_line_rec.inventory_item_id));
852: end if;
853:
854: OE_delayed_requests_Pvt.log_request
861: p_param1 => 'I',
862: p_param2 => p_x_line_rec.inventory_item_id,
863: x_return_status => l_return_status);
864: if l_debug_level > 0 then
865: oe_debug_pub.ADD('after call to log_request: l_return_status: '||
866: l_return_status , 1);
867: end if;
868:
869: END IF;
875: -- Redefault Globalization flexfield
876: -- Performance Improvement Bug 1929163
877: -- JG has provided a NOCOPY spec via bug 1950033
878: if l_debug_level > 0 then
879: oe_debug_pub.add('before calling jg');
880: end if;
881: JG_ZZ_OM_COMMON_PKG.default_gdf(
882: x_line_rec=>p_x_line_rec,
883: x_return_code => l_return_code,
882: x_line_rec=>p_x_line_rec,
883: x_return_code => l_return_code,
884: x_error_buffer => l_error_buffer);
885: if l_debug_level > 0 then
886: oe_debug_pub.add('after calling jg');
887: end if;
888: --bug 2971066 Begin
889: l_item_chg_prof := fnd_profile.value('ONT_HONOR_ITEM_CHANGE');
890: if l_debug_level > 0 then
887: end if;
888: --bug 2971066 Begin
889: l_item_chg_prof := fnd_profile.value('ONT_HONOR_ITEM_CHANGE');
890: if l_debug_level > 0 then
891: oe_debug_pub.add('value of ONT_HONOR_ITEM_CHANGE:'||l_item_chg_prof,5);
892: oe_debug_pub.add('p_x_line_rec.inventory_item_id : '||p_x_line_rec.inventory_item_id);
893: oe_debug_pub.add('p_old_line_rec.inventory_item_id : '||p_old_line_rec.inventory_item_id);
894: end if;
895: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
888: --bug 2971066 Begin
889: l_item_chg_prof := fnd_profile.value('ONT_HONOR_ITEM_CHANGE');
890: if l_debug_level > 0 then
891: oe_debug_pub.add('value of ONT_HONOR_ITEM_CHANGE:'||l_item_chg_prof,5);
892: oe_debug_pub.add('p_x_line_rec.inventory_item_id : '||p_x_line_rec.inventory_item_id);
893: oe_debug_pub.add('p_old_line_rec.inventory_item_id : '||p_old_line_rec.inventory_item_id);
894: end if;
895: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
896: /*if nvl(p_x_line_rec.inventory_item_id,FND_API.G_MISS_NUM)
889: l_item_chg_prof := fnd_profile.value('ONT_HONOR_ITEM_CHANGE');
890: if l_debug_level > 0 then
891: oe_debug_pub.add('value of ONT_HONOR_ITEM_CHANGE:'||l_item_chg_prof,5);
892: oe_debug_pub.add('p_x_line_rec.inventory_item_id : '||p_x_line_rec.inventory_item_id);
893: oe_debug_pub.add('p_old_line_rec.inventory_item_id : '||p_old_line_rec.inventory_item_id);
894: end if;
895: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
896: /*if nvl(p_x_line_rec.inventory_item_id,FND_API.G_MISS_NUM)
897: <> FND_API.G_MISS_NUM
913: -- Bug# 3942402 end
914: and p_x_line_rec.calculate_price_flag in ('N','P')
915: and nvl(l_item_chg_prof,'N') = 'N' then
916: if l_debug_level > 0 then
917: oe_debug_pub.add('Changing calculate price flag to Y');
918: end if;
919: p_x_line_rec.calculate_price_flag := 'Y';
920: end if;
921: -- bug 2971066 end
943: AND OE_Freight_Rating_Util.Get_List_Line_Type_Code
944: (p_x_line_rec.header_id)
945: = 'OM_CALLED_FREIGHT_RATES' THEN
946: if l_debug_level > 0 then
947: oe_debug_pub.add('Log Freight Rating request for item change. ',3);
948: end if;
949: l_get_FTE_freight_rate := 'Y';
950: END IF;
951:
951:
952:
953: /*sdatti*/
954: if l_debug_level > 0 then
955: oe_debug_pub.ADD('OE_GLOBALS.G_PRICING_RECURSION:'||oe_globals.g_pricing_recursion,1);
956: end if;
957: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110509' THEN
958: IF Nvl(oe_globals.g_pricing_recursion,'N') = 'N' THEN
959: update_adjustment_flags(p_old_line_rec,p_x_line_rec);
981: -- QUOTING change
982: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
983: THEN
984: if l_debug_level > 0 then
985: oe_debug_pub.ADD('invoice site update: logging request for eval_hold_source');
986: oe_debug_pub.ADD('line ID: '|| to_char(p_x_line_rec.line_id)||
987: ' Entity ID: '|| to_char(p_x_line_rec.invoice_to_org_id));
988: end if;
989: OE_delayed_requests_Pvt.log_request(
982: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
983: THEN
984: if l_debug_level > 0 then
985: oe_debug_pub.ADD('invoice site update: logging request for eval_hold_source');
986: oe_debug_pub.ADD('line ID: '|| to_char(p_x_line_rec.line_id)||
987: ' Entity ID: '|| to_char(p_x_line_rec.invoice_to_org_id));
988: end if;
989: OE_delayed_requests_Pvt.log_request(
990: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1025: IF NVL(OE_Order_Cache.g_header_rec.payment_type_code,'NULL') <> 'CREDIT_CARD'
1026: AND p_x_line_rec.booked_flag ='Y'
1027: THEN
1028: if l_debug_level > 0 then
1029: oe_debug_pub.ADD('log verify payment delayed request for change in invoice to site');
1030: end if;
1031: l_verify_payment_flag := 'Y';
1032: END IF;
1033: END IF;
1066:
1067: -- bug 1819133, need to recalculate price if item is updated
1068: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
1069: if l_debug_level > 0 then
1070: oe_debug_pub.add('before checking profile ONT_HONOR_ITEM_CHANGE',5);
1071: end if;
1072: --change made for bug 1998333 Begin
1073: l_item_chg_prof := fnd_profile.value('ONT_HONOR_ITEM_CHANGE');
1074: if l_debug_level > 0 then
1071: end if;
1072: --change made for bug 1998333 Begin
1073: l_item_chg_prof := fnd_profile.value('ONT_HONOR_ITEM_CHANGE');
1074: if l_debug_level > 0 then
1075: oe_debug_pub.add('value of profile ONT_HONOR_ITEM_CHANGE:'||l_item_chg_prof,5);
1076: end if;
1077: if nvl(l_item_chg_prof,'N') = 'N' then
1078: --retaining the old behaviour
1079: p_x_line_rec.calculate_price_flag := 'Y';
1106: -- Call Pricing
1107: -- bug 1819133, need to recalculate price if item is updated
1108: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
1109: if l_debug_level > 0 then
1110: oe_debug_pub.add('before checking profile ONT_HONOR_ITEM_CHANGE',5);
1111: end if;
1112: --change made for bug 1998333 Begin
1113: l_item_chg_prof := fnd_profile.value('ONT_HONOR_ITEM_CHANGE');
1114: if l_debug_level > 0 then
1111: end if;
1112: --change made for bug 1998333 Begin
1113: l_item_chg_prof := fnd_profile.value('ONT_HONOR_ITEM_CHANGE');
1114: if l_debug_level > 0 then
1115: oe_debug_pub.add('value of profile ONT_HONOR_ITEM_CHANGE:'||l_item_chg_prof,5);
1116: end if;
1117: if nvl(l_item_chg_prof,'N') = 'N' then
1118: --retaining the old behaviour
1119: p_x_line_rec.calculate_price_flag := 'Y';
1153: -- log a delayed request to get included items for this item if any.
1154:
1155: l_freeze_method := G_FREEZE_METHOD; /* Bug # 5036404 */
1156: if l_debug_level > 0 then
1157: oe_debug_pub.ADD('Freeze method is :' || l_freeze_method,2);
1158: end if;
1159:
1160: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE AND
1161: p_x_line_rec.booked_flag = 'Y' AND
1173: p_x_line_rec.item_type_code = OE_GLOBALS.G_ITEM_CLASS OR
1174: p_x_line_rec.item_type_code = OE_GLOBALS.G_ITEM_KIT )
1175: THEN
1176: if l_debug_level > 0 then
1177: oe_debug_pub.ADD('freeze inc items ' || l_freeze_method,2);
1178: end if;
1179: l_count := l_count + 1;
1180: OE_Config_Pvt.OE_FREEZE_INC_ITEMS_TBL(l_count)
1181: := p_x_line_rec.line_id;
1189: (p_x_line_rec.header_id) = 'OM_CALLED_FREIGHT_RATES'
1190: AND p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE
1191: AND p_x_line_rec.item_type_code = OE_GLOBALS.G_ITEM_CONFIG THEN
1192: if l_debug_level > 0 then
1193: oe_debug_pub.add('Log Freight Rating request for CONFIG item. ',3);
1194: end if;
1195: l_get_FTE_freight_rate := 'Y';
1196: END IF;
1197:
1250: <> FND_API.G_MISS_CHAR) and
1251: p_x_line_rec.calculate_price_flag in ('P','N')
1252: then
1253: if l_debug_level > 0 then
1254: oe_debug_pub.add('operation is :'||p_x_line_rec.operation);
1255: end if;
1256: p_x_line_rec.calculate_price_flag := 'Y';
1257: end if;
1258:
1263: and nvl(p_old_line_rec.inventory_item_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM)
1264: and p_x_line_rec.calculate_price_flag in ('N','P')
1265: and nvl(l_item_chg_prof,'N') = 'N' then
1266: if l_debug_level > 0 then
1267: oe_debug_pub.add('Changing calculate price flag to Y');
1268: end if;
1269: p_x_line_rec.calculate_price_flag := 'Y';
1270: ELSE
1271: null;
1285: AND OE_Freight_Rating_Util.Get_List_Line_Type_Code
1286: (p_x_line_rec.header_id)
1287: = 'OM_CALLED_FREIGHT_RATES' THEN
1288: if l_debug_level > 0 then
1289: oe_debug_pub.add('Log Freight Rating request for uom change. ',3);
1290: end if;
1291: l_get_FTE_freight_rate := 'Y';
1292: END IF;
1293: END IF;
1296: IF NOT OE_GLOBALS.Equal(p_x_line_rec.ordered_quantity,p_old_line_rec.ordered_quantity)
1297: THEN
1298:
1299: if l_debug_level > 0 then
1300: oe_debug_pub.add('Ordered Qty has changed',1); -- PETER
1301: oe_debug_pub.add('New Ordered Qty : ' || p_x_line_rec.ordered_quantity, 1);
1302: oe_debug_pub.add('Old Ordered Qty : ' ||
1303: p_old_line_rec.ordered_quantity, 1);
1304: end if;
1297: THEN
1298:
1299: if l_debug_level > 0 then
1300: oe_debug_pub.add('Ordered Qty has changed',1); -- PETER
1301: oe_debug_pub.add('New Ordered Qty : ' || p_x_line_rec.ordered_quantity, 1);
1302: oe_debug_pub.add('Old Ordered Qty : ' ||
1303: p_old_line_rec.ordered_quantity, 1);
1304: end if;
1305: l_3a7_attribute_change := FND_API.G_TRUE;
1298:
1299: if l_debug_level > 0 then
1300: oe_debug_pub.add('Ordered Qty has changed',1); -- PETER
1301: oe_debug_pub.add('New Ordered Qty : ' || p_x_line_rec.ordered_quantity, 1);
1302: oe_debug_pub.add('Old Ordered Qty : ' ||
1303: p_old_line_rec.ordered_quantity, 1);
1304: end if;
1305: l_3a7_attribute_change := FND_API.G_TRUE;
1306:
1307: /* Added the following code to fix the bug 3739180 */
1308: If p_x_line_rec.calculate_price_flag in ('N','P') and p_x_line_rec.reference_line_id IS NOT NULL THEN
1309: IF (OE_GLOBALS.G_UI_FLAG) THEN
1310: if l_debug_level > 0 then
1311: oe_debug_pub.add('Log REVERSE_LIMITS delayed request for ENTITY LINE return',1);
1312: end if;
1313: OE_delayed_requests_Pvt.log_request(
1314: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1315: p_entity_id => p_x_line_rec.line_id,
1325: p_request_type => OE_GLOBALS.G_REVERSE_LIMITS,
1326: x_return_status => l_return_status);
1327: ELSIF NOT (OE_GLOBALS.G_UI_FLAG) THEN
1328: if l_debug_level > 0 then
1329: oe_debug_pub.add('Log REVERSE_LIMITS delayed request for ENTITY ALL line return',1);
1330: end if;
1331: OE_delayed_requests_Pvt.log_request(
1332: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1333: p_entity_id => p_x_line_rec.line_id,
1469:
1470: IF NOT OE_Internal_Requisition_Pvt.G_Update_ISO_From_Req THEN
1471: IF NOT OE_SALES_CAN_UTIL.G_IR_ISO_HDR_CANCEL THEN
1472: IF l_debug_level > 0 THEN
1473: oe_debug_pub.add(' Header Level Cancellation is FALSE',5);
1474: END IF;
1475:
1476: -- Log a delayed request to update the Internal Requisition. This delayed
1477: -- request will be logged only if the change is not initiated from Requesting
1498: END IF;
1499:
1500: /* ELSIF OE_SALES_CAN_UTIL.G_IR_ISO_HDR_CANCEL THEN -- Commented for IR ISO Tracking bug 7667702
1501: IF l_debug_level > 0 THEN
1502: oe_debug_pub.add(' Header Level Cancellation is TRUE',5);
1503: END IF;
1504:
1505: -- Log a delayed request to update the Internal Requisition. This delayed
1506: -- request will be logged only if the change is not initiated from Requesting
1542: -- log a delayed request to get included items for this item if any.
1543:
1544: l_freeze_method := G_FREEZE_METHOD; /* Bug # 5036404 */
1545: if l_debug_level > 0 then
1546: oe_debug_pub.ADD('Freeze method is :' || l_freeze_method,2);
1547: end if;
1548: IF l_freeze_method = OE_GLOBALS.G_IIFM_ENTRY AND
1549: p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE AND
1550: p_x_line_rec.ato_line_id is NULL AND
1580: nvl(p_x_line_rec.split_by, 'USER') = 'SYSTEM') THEN
1581: -- don't call credit checking for system split when tax value changes.
1582: l_param1 := 'No_Credit_Checking';
1583: if l_debug_level > 0 then
1584: oe_debug_pub.add('System Split - l_param1 is: '||l_param1,1);
1585: oe_debug_pub.ADD('B2315926_1:',2);
1586: oe_debug_pub.add('In the split case, checking for catchweight item',3);
1587: end if;
1588: IF (p_x_line_rec.inventory_item_id IS NOT NULL AND
1581: -- don't call credit checking for system split when tax value changes.
1582: l_param1 := 'No_Credit_Checking';
1583: if l_debug_level > 0 then
1584: oe_debug_pub.add('System Split - l_param1 is: '||l_param1,1);
1585: oe_debug_pub.ADD('B2315926_1:',2);
1586: oe_debug_pub.add('In the split case, checking for catchweight item',3);
1587: end if;
1588: IF (p_x_line_rec.inventory_item_id IS NOT NULL AND
1589: p_x_line_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
1582: l_param1 := 'No_Credit_Checking';
1583: if l_debug_level > 0 then
1584: oe_debug_pub.add('System Split - l_param1 is: '||l_param1,1);
1585: oe_debug_pub.ADD('B2315926_1:',2);
1586: oe_debug_pub.add('In the split case, checking for catchweight item',3);
1587: end if;
1588: IF (p_x_line_rec.inventory_item_id IS NOT NULL AND
1589: p_x_line_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
1590: (p_x_line_rec.ship_from_org_id IS NOT NULL AND
1595: IF l_item_rec.ont_pricing_qty_source = 'S' AND -- INVCONV
1596: l_item_rec.tracking_quantity_ind = 'P' and
1597: l_item_rec.wms_enabled_flag = 'Y' THEN
1598: If l_debug_level > 0 Then
1599: oe_debug_pub.add('Catchweight enabled item',3);
1600: oe_debug_pub.add('Setting the price flag to Yes');
1601: End If;
1602: OE_GLOBALS.G_PRICE_FLAG := 'Y';
1603: END IF;
1596: l_item_rec.tracking_quantity_ind = 'P' and
1597: l_item_rec.wms_enabled_flag = 'Y' THEN
1598: If l_debug_level > 0 Then
1599: oe_debug_pub.add('Catchweight enabled item',3);
1600: oe_debug_pub.add('Setting the price flag to Yes');
1601: End If;
1602: OE_GLOBALS.G_PRICE_FLAG := 'Y';
1603: END IF;
1604: END IF;
1604: END IF;
1605: else
1606: OE_GLOBALS.G_PRICE_FLAG := 'Y';
1607: if l_debug_level > 0 then
1608: oe_debug_pub.ADD('B2315926_2:',2);
1609: end if;
1610: end if;
1611: --changes for bug 2315926 end
1612:
1615: IF (p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE and
1616: p_x_line_rec.split_by = 'SYSTEM' and
1617: NVL(p_x_line_rec.split_action_code,'X') = 'SPLIT') THEN
1618: IF l_debug_level > 0 THEN
1619: oe_debug_pub.add('Logging Reverse Limits delayed request for parent line');
1620: oe_debug_pub.add('Price request code for parent : ' || p_x_line_rec.price_request_code);
1621: oe_debug_pub.add('OLD Price request code for parent : ' || p_old_line_rec.price_request_code);
1622: END IF;
1623: OE_delayed_requests_Pvt.log_request(
1616: p_x_line_rec.split_by = 'SYSTEM' and
1617: NVL(p_x_line_rec.split_action_code,'X') = 'SPLIT') THEN
1618: IF l_debug_level > 0 THEN
1619: oe_debug_pub.add('Logging Reverse Limits delayed request for parent line');
1620: oe_debug_pub.add('Price request code for parent : ' || p_x_line_rec.price_request_code);
1621: oe_debug_pub.add('OLD Price request code for parent : ' || p_old_line_rec.price_request_code);
1622: END IF;
1623: OE_delayed_requests_Pvt.log_request(
1624: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1617: NVL(p_x_line_rec.split_action_code,'X') = 'SPLIT') THEN
1618: IF l_debug_level > 0 THEN
1619: oe_debug_pub.add('Logging Reverse Limits delayed request for parent line');
1620: oe_debug_pub.add('Price request code for parent : ' || p_x_line_rec.price_request_code);
1621: oe_debug_pub.add('OLD Price request code for parent : ' || p_old_line_rec.price_request_code);
1622: END IF;
1623: OE_delayed_requests_Pvt.log_request(
1624: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1625: p_entity_id => p_x_line_rec.line_id,
1640: IF (p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE AND
1641: p_x_line_rec.split_from_line_id IS NOT NULL AND
1642: nvl(p_x_line_rec.split_by, 'USER') = 'SYSTEM') THEN
1643: IF l_debug_level > 0 THEN
1644: oe_debug_pub.add('Logging Reverse Limits delayed request for child line');
1645: END IF;
1646: OE_delayed_requests_Pvt.log_request(
1647: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1648: p_entity_id => p_x_line_rec.line_id,
1685: AND OE_Freight_Rating_Util.Get_List_Line_Type_Code
1686: (p_x_line_rec.header_id)
1687: = 'OM_CALLED_FREIGHT_RATES' THEN
1688: if l_debug_level > 0 then
1689: oe_debug_pub.add('Log Freight Rating request for qty change. ',3);
1690: end if;
1691: l_get_FTE_freight_rate := 'Y';
1692: END IF;
1693:
1709: Commented the above call and added the call to calculate_dual_quantity */
1710: IF (OE_CODE_CONTROL.CODE_RELEASE_LEVEL <= '110507') OR NOT(OE_GLOBALS.G_UI_FLAG) THEN
1711:
1712: if l_debug_level > 0 then
1713: oe_debug_pub.add('about to call calculate_dual_quantity 1' );
1714: end if;
1715: oe_line_util.calculate_dual_quantity(
1716: p_ordered_quantity => p_x_line_rec.ordered_quantity
1717: ,p_old_ordered_quantity => NULL
1755: /* OPM - NC 3/8/02 Bug#2046641
1756: Commented the above call and added the call to calculate_dual_quantity */
1757: IF (OE_CODE_CONTROL.CODE_RELEASE_LEVEL <= '110507') OR NOT(OE_GLOBALS.G_UI_FLAG) THEN
1758: if l_debug_level > 0 then
1759: oe_debug_pub.add('about to call calculate_dual_quantity 2' );
1760: end if;
1761:
1762: oe_line_util.calculate_dual_quantity(
1763: p_ordered_quantity => p_x_line_rec.ordered_quantity
1817: THEN
1818: -- Log request here if commitment id is null
1819: if p_x_line_rec.commitment_id is null then
1820: if l_debug_level > 0 then
1821: oe_debug_pub.ADD('Log Verify Payment delayed request in Ord Qty');
1822: end if;
1823: l_verify_payment_flag := 'Y';
1824: end if;
1825: END IF;
1827: -- quantity decreases, as refund may need to be issued.
1828: IF OE_PrePayment_UTIL.is_prepaid_order(p_x_line_rec.header_id)
1829: = 'Y' AND p_x_line_rec.booked_flag ='Y' THEN
1830: if l_debug_level > 0 then
1831: oe_debug_pub.ADD('Log Verify Payment delayed request in Ord Qty for prepayment', 3);
1832: end if;
1833: l_verify_payment_flag := 'Y';
1834: END IF;
1835: ELSE
1834: END IF;
1835: ELSE
1836: IF p_x_line_rec.booked_flag ='Y' THEN
1837: if l_debug_level > 0 then
1838: oe_debug_pub.ADD('Log Verify Payment delayed request for change in Order Qty');
1839:
1840: end if;
1841:
1842: -- Start fix for bug# 4378531
1840: end if;
1841:
1842: -- Start fix for bug# 4378531
1843: IF l_debug_level > 0 THEN
1844: oe_debug_pub.add('CHECKING CREDIT CHECK HOLD FOR HEADER/LINE ID : ' || TO_CHAR ( p_x_line_rec.header_id ) || '/' || TO_CHAR ( p_x_line_rec.line_id ) ) ;
1845: END IF;
1846:
1847: OE_HOLDS_PUB.Check_Holds
1848: ( p_api_version => 1.0
1857: , x_return_status => l_return_status
1858: );
1859:
1860: IF l_debug_level > 0 THEN
1861: oe_debug_pub.add('CHECKING FOR CANCEL FLAG : ' || p_x_line_rec.cancelled_flag ) ;
1862: END IF;
1863:
1864: IF NOT( l_hold_result = FND_API.G_FALSE AND p_x_line_rec.cancelled_flag='Y') THEN
1865: l_verify_payment_flag := 'Y';
1865: l_verify_payment_flag := 'Y';
1866: END IF;
1867:
1868: IF l_debug_level > 0 THEN
1869: oe_debug_pub.add('CHECKING FOR VERIFY PAYMENT FLAG : ' || l_verify_payment_flag ) ;
1870: END IF;
1871: -- End fix for bug# 4378531
1872:
1873: END IF;
1892: );
1893:
1894: IF l_temp_pricing_quantity >= 0 THEN
1895: p_x_line_rec.Pricing_quantity:=l_temp_pricing_quantity;
1896: oe_debug_pub.add('temp pricing quantity:'||l_temp_pricing_quantity);
1897: END IF;
1898:
1899: End If; -- Pricing Quantity
1900: -- Pack J catchweight
1924: --------------------------------------------------------
1925: IF NOT OE_GLOBALS.Equal(p_x_line_rec.ordered_quantity2,p_old_line_rec.ordered_quantity2) -- peter
1926: THEN
1927: if l_debug_level > 0 then
1928: oe_debug_pub.add('Ordered Qty2 has changed',1); -- INVCONV
1929: oe_debug_pub.add('New Ordered Qty2 : ' || p_x_line_rec.ordered_quantity2, 1);
1930: oe_debug_pub.add('Old Ordered Qty2 : ' ||
1931: p_old_line_rec.ordered_quantity2, 1);
1932: end if;
1925: IF NOT OE_GLOBALS.Equal(p_x_line_rec.ordered_quantity2,p_old_line_rec.ordered_quantity2) -- peter
1926: THEN
1927: if l_debug_level > 0 then
1928: oe_debug_pub.add('Ordered Qty2 has changed',1); -- INVCONV
1929: oe_debug_pub.add('New Ordered Qty2 : ' || p_x_line_rec.ordered_quantity2, 1);
1930: oe_debug_pub.add('Old Ordered Qty2 : ' ||
1931: p_old_line_rec.ordered_quantity2, 1);
1932: end if;
1933:
1926: THEN
1927: if l_debug_level > 0 then
1928: oe_debug_pub.add('Ordered Qty2 has changed',1); -- INVCONV
1929: oe_debug_pub.add('New Ordered Qty2 : ' || p_x_line_rec.ordered_quantity2, 1);
1930: oe_debug_pub.add('Old Ordered Qty2 : ' ||
1931: p_old_line_rec.ordered_quantity2, 1);
1932: end if;
1933:
1934: l_update_shipping := FND_API.G_TRUE;
1941: -- IF l_item_rec.ont_pricing_qty_source = 1 THEN INVCONV
1942: IF l_item_rec.ont_pricing_qty_source = 'S' THEN -- INVCONV
1943: -- need to call pricing
1944: if l_debug_level > 0 then
1945: oe_debug_pub.add('dual uom - ont_pricing_qty_source = ' || l_item_rec.ont_pricing_qty_source );
1946: end if;
1947: OE_GLOBALS.G_PRICE_FLAG := 'Y';
1948: OE_GLOBALS.G_TAX_FLAG := 'Y';
1949:
1999:
2000: IF OE_PrePayment_UTIL.IS_MULTIPLE_PAYMENTS_ENABLED = TRUE THEN
2001:
2002: if l_debug_level > 0 then
2003: oe_debug_pub.ADD('multpayments: logging delayed request for verify payment as payment term is changed');
2004: end if;
2005: l_verify_payment_flag := 'Y';
2006:
2007:
2008: ELSIF NVL(OE_Order_Cache.g_header_rec.payment_type_code, 'NULL') <> 'CREDIT_CARD'
2009: THEN
2010:
2011: if l_debug_level > 0 then
2012: oe_debug_pub.ADD('logging delayed request for verify payment as payment term is changed');
2013: end if;
2014: l_verify_payment_flag := 'Y';
2015:
2016: END IF; -- if multiple_payments is enabled
2071: IF NOT OE_GLOBALS.Equal(p_x_line_rec.reference_line_id,p_old_line_rec.reference_line_id)
2072: THEN
2073: IF OE_GLOBALS.G_RETURN_CHILDREN_MODE = 'N' THEN
2074: if l_debug_level > 0 then
2075: oe_debug_pub.ADD('RMA: logging delayed request ');
2076: end if;
2077: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE OR
2078: p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2079:
2095: /* BUG 2013611 and 2109230 */
2096: If p_x_line_rec.calculate_price_flag in ('N','P') THEN
2097: IF (OE_GLOBALS.G_UI_FLAG) THEN
2098: if l_debug_level > 0 then
2099: oe_debug_pub.add('Log REVERSE_LIMITS delayed request for ENTITY LINE return',1);
2100: end if;
2101: OE_delayed_requests_Pvt.log_request(
2102: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
2103: p_entity_id => p_x_line_rec.line_id,
2113: p_request_type => OE_GLOBALS.G_REVERSE_LIMITS,
2114: x_return_status => l_return_status);
2115: ELSIF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2116: if l_debug_level > 0 then
2117: oe_debug_pub.add('Log REVERSE_LIMITS delayed request for ENTITY ALL line return',1);
2118: end if;
2119: OE_delayed_requests_Pvt.log_request(
2120: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2121: p_entity_id => p_x_line_rec.line_id,
2166: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE AND
2167: p_x_line_rec.booked_flag ='Y'
2168: THEN
2169: if l_debug_level > 0 then
2170: oe_debug_pub.ADD('logging delayed request for Verify Payment
2171: forchange in Request date');
2172: end if;
2173: l_verify_payment_flag := 'Y';
2174: END IF;
2209: AND OE_Freight_Rating_Util.Get_List_Line_Type_Code
2210: (p_x_line_rec.header_id)
2211: = 'OM_CALLED_FREIGHT_RATES' THEN
2212: if l_debug_level > 0 then
2213: oe_debug_pub.add('Log Freight Rating request for schedule ship date. ',3);
2214: end if;
2215: l_get_FTE_freight_rate := 'Y';
2216: END IF;
2217:
2231: (to_date(p_x_line_rec.schedule_ship_date, 'DD/MM/YYYY') <>
2232: to_date(p_x_line_rec.request_date, 'DD/MM/YYYY'))
2233: THEN
2234: if l_debug_level > 0 then
2235: oe_debug_pub.ADD('logging delayed request for Verify Payment
2236: for change in Scheduled Ship date');
2237: end if;
2238: l_verify_payment_flag := 'Y';
2239: END IF;
2242: END IF;
2243: ***/
2244:
2245: if l_debug_level > 0 then
2246: oe_debug_pub.add('opr = '||p_x_line_rec.operation);
2247: end if;
2248:
2249: /* 7576948: IR ISO Change Management project Start */
2250: --
2355:
2356: l_po_NeedByDate_Update := NVL(FND_PROFILE.VALUE('POR_SYNC_NEEDBYDATE_OM'),'NO');
2357:
2358: IF l_debug_level > 0 THEN
2359: oe_debug_pub.add(' Need By Date update is allowed ? '||l_po_NeedByDate_Update);
2360: END IF;
2361:
2362: IF NOT OE_Internal_Requisition_Pvt.G_Update_ISO_From_Req
2363: AND NOT OE_SALES_CAN_UTIL.G_IR_ISO_HDR_CANCEL AND
2408: AND OE_Freight_Rating_Util.Get_List_Line_Type_Code
2409: (p_x_line_rec.header_id)
2410: = 'OM_CALLED_FREIGHT_RATES' THEN
2411: if l_debug_level > 0 then
2412: oe_debug_pub.add('Log Freight Rating request for schedule arrivale date. ',3);
2413: end if;
2414: l_get_FTE_freight_rate := 'Y';
2415: END IF;
2416:
2433:
2434: l_po_NeedByDate_Update := NVL(FND_PROFILE.VALUE('POR_SYNC_NEEDBYDATE_OM'),'NO');
2435:
2436: IF l_debug_level > 0 THEN
2437: oe_debug_pub.add(' Need By Date update is allowed ? '||l_po_NeedByDate_Update);
2438: END IF;
2439:
2440: IF NOT OE_Internal_Requisition_Pvt.G_Update_ISO_From_Req
2441: AND NOT OE_SALES_CAN_UTIL.G_IR_ISO_HDR_CANCEL AND
2475: END IF;
2476:
2477: ELSE -- Added for IR ISO Tracking bug 7667702
2478: IF l_debug_level > 0 THEN
2479: oe_debug_pub.add(' Need By Date is not allowed to update. Updating MTL_Supply only',5);
2480: END IF;
2481:
2482: OE_SCHEDULE_UTIL.Update_PO(p_x_line_rec.schedule_arrival_date,
2483: p_x_line_rec.source_document_id,
2529: (p_x_line_rec.header_id)
2530: = 'OM_CALLED_FREIGHT_RATES'
2531: AND oe_globals.g_freight_recursion = 'N' THEN
2532: if l_debug_level > 0 then
2533: oe_debug_pub.add('Log Freight Rating request for shipping method. ',3);
2534: end if;
2535: l_get_FTE_freight_rate := 'Y';
2536: END IF;
2537:
2547: p_x_line_rec.flow_status_code := 'BOOKED';
2548: -- For bug 1304916. Booking wil call price_line directly
2549: --OE_GLOBALS.G_PRICE_FLAG := 'Y';
2550: if l_debug_level > 0 then
2551: oe_debug_pub.add('sam: flow_status_code is ' || p_x_line_rec.flow_status_code);
2552: end if;
2553: END IF;
2554: END IF;
2555:
2566: -- Call API to convert the shipping quantity to shipped quantity from
2567: -- shipping quantity UOM to ordered quantity UOM and assign the returned
2568: -- quantity to shipped quantity of p_x_line_rec.
2569: if l_debug_level > 0 then
2570: oe_debug_pub.ADD('Order Quantity UOM : '|| p_x_line_rec.order_quantity_uom,2);
2571: oe_debug_pub.ADD('Shipping Quantity UOM : '|| p_x_line_rec.shipping_quantity_uom,2);
2572: end if;
2573: IF p_x_line_rec.shipping_quantity_uom <> p_x_line_rec.order_quantity_uom THEN
2574:
2567: -- shipping quantity UOM to ordered quantity UOM and assign the returned
2568: -- quantity to shipped quantity of p_x_line_rec.
2569: if l_debug_level > 0 then
2570: oe_debug_pub.ADD('Order Quantity UOM : '|| p_x_line_rec.order_quantity_uom,2);
2571: oe_debug_pub.ADD('Shipping Quantity UOM : '|| p_x_line_rec.shipping_quantity_uom,2);
2572: end if;
2573: IF p_x_line_rec.shipping_quantity_uom <> p_x_line_rec.order_quantity_uom THEN
2574:
2575: /* --OPM 06/SEP/00 invoke process Uom Conversion for process line INVCONV
2579: ,p_x_line_rec.ship_from_org_id
2580: ,l_item_rec) THEN
2581:
2582: if l_debug_level > 0 then
2583: oe_debug_pub.ADD('OPM Process shipping update ',1);
2584: end if;
2585: GMI_Reservation_Util.Get_OPMUOM_from_AppsUOM
2586: (p_Apps_UOM => p_x_line_rec.order_quantity_uom
2587: ,x_OPM_UOM => l_OPM_order_quantity_uom
2639: -- Enforce precision of 19,9
2640: --===========================-
2641: l_temp_shipped_quantity := l_OPM_shipped_quantity;
2642: if l_debug_level > 0 then
2643: oe_debug_pub.ADD('OPM Process shipping update conversion gives shipped quantity of ' || l_temp_shipped_quantity,1);
2644: end if;
2645:
2646:
2647:
2654: p_x_line_rec.order_quantity_uom,
2655: p_x_line_rec.shipping_quantity
2656: );
2657: if l_debug_level > 0 then
2658: oe_debug_pub.ADD('Converted Shipped Quantity : '|| to_char(l_temp_shipped_quantity),1);
2659: end if;
2660: -- END IF; -- INVCONV
2661: --OPM 06/SEP/00 END
2662:
2661: --OPM 06/SEP/00 END
2662:
2663:
2664: if l_debug_level > 0 then
2665: oe_debug_pub.ADD('Converted Shipped Quantity : '|| to_char(l_temp_shipped_quantity),1);
2666: end if;
2667:
2668: IF l_temp_shipped_quantity <> trunc(l_temp_shipped_quantity) THEN
2669:
2678: x_return_status => l_qty_return_status
2679: );
2680:
2681: if l_debug_level > 0 then
2682: oe_debug_pub.add('Return status from INV API : '||l_qty_return_status,1);
2683: end if;
2684: IF l_qty_return_status = 'W' THEN
2685:
2686: p_x_line_rec.shipped_quantity := l_validated_quantity;
2703:
2704: END IF;
2705:
2706: if l_debug_level > 0 then
2707: oe_debug_pub.ADD('Shipped Quantity : '|| to_char(p_x_line_rec.shipped_quantity),1);
2708: end if;
2709: -- The following line needs to assign the value of shipped quantity
2710: -- after the conversion of shipping quantity to ordered quantity UOM.
2711:
2737: END IF;
2738:
2739: -- Log a delayed request for Ship Confirmation
2740: if l_debug_level > 0 then
2741: oe_debug_pub.ADD('Ship Confirmation : logging delayed request for '|| l_shipping_unique_key1 || l_shipping_param1,1);
2742: end if;
2743:
2744: OE_Delayed_Requests_Pvt.Log_Request(
2745: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
2761: THEN
2762: IF p_x_line_rec.invoice_interface_status_code = 'YES' THEN
2763: p_x_line_rec.flow_status_code := 'INVOICED';
2764: if l_debug_level > 0 then
2765: oe_debug_pub.add('sam: flow_status_code is ' || p_x_line_rec.flow_status_code);
2766: end if;
2767: ELSIF p_x_line_rec.invoice_interface_status_code = 'RFR-PENDING' THEN
2768: p_x_line_rec.flow_status_code := 'INVOICED_PARTIAL';
2769: if l_debug_level > 0 then
2766: end if;
2767: ELSIF p_x_line_rec.invoice_interface_status_code = 'RFR-PENDING' THEN
2768: p_x_line_rec.flow_status_code := 'INVOICED_PARTIAL';
2769: if l_debug_level > 0 then
2770: oe_debug_pub.add('sam: flow_status_code is ' || p_x_line_rec.flow_status_code);
2771: end if;
2772: END IF;
2773:
2774: END IF;
2781: IF p_x_line_rec.cancelled_flag = 'Y' THEN
2782: p_x_line_rec.flow_status_code := 'CANCELLED';
2783: END IF;
2784: if l_debug_level > 0 then
2785: oe_debug_pub.add('sam: flow_status_code is ' || p_x_line_rec.flow_status_code);
2786: end if;
2787: p_x_line_rec.calculate_price_flag := 'N';
2788: END IF;
2789:
2793: THEN
2794: IF p_x_line_rec.cancelled_flag = 'Y' THEN
2795: p_x_line_rec.flow_status_code := 'CANCELLED';
2796: if l_debug_level > 0 then
2797: oe_debug_pub.add('sam: flow_status_code is ' || p_x_line_rec.flow_status_code);
2798: end if;
2799: p_x_line_rec.calculate_price_flag := 'N';
2800: END IF;
2801:
2861: -- QUOTING change
2862: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
2863: THEN
2864: if l_debug_level > 0 then
2865: oe_debug_pub.ADD('ship from update: logging request for eval_hold_source', 1);
2866: oe_debug_pub.add('line ID: '|| to_char(p_x_line_rec.line_id) ||
2867: ' Entity ID :'|| to_char(p_x_line_rec.ship_from_org_id), 1);
2868: end if;
2869:
2862: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
2863: THEN
2864: if l_debug_level > 0 then
2865: oe_debug_pub.ADD('ship from update: logging request for eval_hold_source', 1);
2866: oe_debug_pub.add('line ID: '|| to_char(p_x_line_rec.line_id) ||
2867: ' Entity ID :'|| to_char(p_x_line_rec.ship_from_org_id), 1);
2868: end if;
2869:
2870: OE_delayed_requests_Pvt.log_request(
2878: p_param2 => p_x_line_rec.ship_from_org_id,
2879: x_return_status => l_return_status);
2880:
2881: if l_debug_level > 0 then
2882: oe_debug_pub.add('return status after logging delayed request '||
2883: l_return_status, 1);
2884: end if;
2885: END IF;
2886:
2889: AND OE_Freight_Rating_Util.Get_List_Line_Type_Code
2890: (p_x_line_rec.header_id)
2891: = 'OM_CALLED_FREIGHT_RATES' THEN
2892: if l_debug_level > 0 then
2893: oe_debug_pub.add('Log Freight Rating request for ship from org. ',3);
2894: end if;
2895: l_get_FTE_freight_rate := 'Y';
2896: END IF;
2897:
2896: END IF;
2897:
2898: -- Pack J catchweight
2899: IF l_debug_level > 0 THEN
2900: oe_debug_pub.add('old ship_from_org_id:'|| p_old_line_rec.ship_from_org_id );
2901: oe_debug_pub.add('New ship_from_org_id :'|| p_x_line_rec.ship_from_org_id );
2902: END IF;
2903:
2904: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
2897:
2898: -- Pack J catchweight
2899: IF l_debug_level > 0 THEN
2900: oe_debug_pub.add('old ship_from_org_id:'|| p_old_line_rec.ship_from_org_id );
2901: oe_debug_pub.add('New ship_from_org_id :'|| p_x_line_rec.ship_from_org_id );
2902: END IF;
2903:
2904: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
2905: IF p_x_line_rec.ship_from_org_id IS NOT NULL AND
2916: FROM mtl_parameters
2917: WHERE organization_id= p_old_line_rec.ship_from_org_id;
2918: END IF;
2919: IF l_debug_level > 0 THEN
2920: oe_debug_pub.add('l_wms_org_flag_new:'|| l_wms_org_flag_new);
2921: oe_debug_pub.add('l_wms_org_flag_old:'|| l_wms_org_flag_old);
2922: END IF;
2923: IF l_wms_org_flag_new <> l_wms_org_flag_old THEN
2924: OE_GLOBALS.G_PRICE_FLAG := 'Y';
2917: WHERE organization_id= p_old_line_rec.ship_from_org_id;
2918: END IF;
2919: IF l_debug_level > 0 THEN
2920: oe_debug_pub.add('l_wms_org_flag_new:'|| l_wms_org_flag_new);
2921: oe_debug_pub.add('l_wms_org_flag_old:'|| l_wms_org_flag_old);
2922: END IF;
2923: IF l_wms_org_flag_new <> l_wms_org_flag_old THEN
2924: OE_GLOBALS.G_PRICE_FLAG := 'Y';
2925: END IF;
2934: -- change of subinventory should not require tax or pricing calculation.
2935: -- or even hold evaluation
2936: l_update_shipping := FND_API.G_TRUE;
2937: if l_debug_level > 0 then
2938: oe_debug_pub.add('subinventory update', 1);
2939: end if;
2940: END IF;
2941:
2942:
3007: AND OE_Freight_Rating_Util.Get_List_Line_Type_Code
3008: (p_x_line_rec.header_id)
3009: = 'OM_CALLED_FREIGHT_RATES' THEN
3010: if l_debug_level > 0 then
3011: oe_debug_pub.add('Log Freight Rating request for ship to org. ',3);
3012: end if;
3013: l_get_FTE_freight_rate := 'Y';
3014: END IF;
3015:
3018: -- QUOTING change
3019: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
3020: THEN
3021: if l_debug_level > 0 then
3022: oe_debug_pub.ADD('ship to update: logging request for eval_hold_source', 1);
3023: oe_debug_pub.add('line ID: '|| to_char(p_x_line_rec.line_id) ||
3024: ' Entity ID :'|| to_char(p_x_line_rec.ship_to_org_id), 1);
3025: end if;
3026: OE_delayed_requests_Pvt.log_request(
3019: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
3020: THEN
3021: if l_debug_level > 0 then
3022: oe_debug_pub.ADD('ship to update: logging request for eval_hold_source', 1);
3023: oe_debug_pub.add('line ID: '|| to_char(p_x_line_rec.line_id) ||
3024: ' Entity ID :'|| to_char(p_x_line_rec.ship_to_org_id), 1);
3025: end if;
3026: OE_delayed_requests_Pvt.log_request(
3027: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
3034: p_param2 => p_x_line_rec.ship_to_org_id,
3035: x_return_status => l_return_status);
3036:
3037: if l_debug_level > 0 then
3038: oe_debug_pub.add('return status after logging delayed request '||
3039: p_x_line_rec.return_status, 1);
3040: end if;
3041: END IF;
3042:
3052: --Customer Acceptance
3053: l_def_contingency_attributes := FND_API.G_TRUE;
3054:
3055: if l_debug_level > 0 then
3056: oe_debug_pub.add('In Apply Atrributes:Sold To', 1);
3057: oe_debug_pub.add('Return Status before is : '||p_x_line_rec.return_status, 1);
3058: end if;
3059:
3060: -- Call Pricing
3053: l_def_contingency_attributes := FND_API.G_TRUE;
3054:
3055: if l_debug_level > 0 then
3056: oe_debug_pub.add('In Apply Atrributes:Sold To', 1);
3057: oe_debug_pub.add('Return Status before is : '||p_x_line_rec.return_status, 1);
3058: end if;
3059:
3060: -- Call Pricing
3061: OE_GLOBALS.G_PRICE_FLAG := 'Y';
3071: IF p_x_line_rec.item_identifier_type = 'CUST' THEN
3072: IF (p_x_line_rec.ordered_item_id IS NOT NULL AND
3073: p_x_line_rec.ordered_item_id <> FND_API.G_MISS_NUM) THEN
3074: if l_debug_level > 0 then
3075: oe_debug_pub.add('old sold_to is' || to_char(p_old_line_rec.sold_to_org_id), 1);
3076: oe_debug_pub.add('new sold_to is' || to_char(p_x_line_rec.sold_to_org_id), 1);
3077: end if;
3078: fnd_message.set_name('ONT','OE_CUSTOMER_ITEM_EXIST');
3079: OE_MSG_PUB.Add;
3072: IF (p_x_line_rec.ordered_item_id IS NOT NULL AND
3073: p_x_line_rec.ordered_item_id <> FND_API.G_MISS_NUM) THEN
3074: if l_debug_level > 0 then
3075: oe_debug_pub.add('old sold_to is' || to_char(p_old_line_rec.sold_to_org_id), 1);
3076: oe_debug_pub.add('new sold_to is' || to_char(p_x_line_rec.sold_to_org_id), 1);
3077: end if;
3078: fnd_message.set_name('ONT','OE_CUSTOMER_ITEM_EXIST');
3079: OE_MSG_PUB.Add;
3080: p_x_line_rec.return_status := FND_API.G_RET_STS_ERROR;
3081: END IF;
3082: END IF;
3083: END IF;
3084: if l_debug_level > 0 then
3085: oe_debug_pub.add('Return Status after is : '||p_x_line_rec.return_status, 1);
3086: end if;
3087:
3088: if p_x_line_rec.commitment_id is not null then
3089: l_get_commitment_bal := 'Y';
3146: AND nvl(p_x_line_rec.order_source_id,-1) <> 10 --added for the FP bug 3709662
3147:
3148: THEN
3149: IF l_debug_level > 0 THEN
3150: oe_debug_pub.add('pviprana: the price_flag is changing to P here and order_source_id is '||p_x_line_rec.order_source_id);
3151: --oe_debug_pub.add('pviprana: order_source_id is ' ||p_x_line_rec.order_source_id);
3152: END IF;
3153: p_x_line_rec.calculate_price_flag := 'P';
3154: END IF;
3147:
3148: THEN
3149: IF l_debug_level > 0 THEN
3150: oe_debug_pub.add('pviprana: the price_flag is changing to P here and order_source_id is '||p_x_line_rec.order_source_id);
3151: --oe_debug_pub.add('pviprana: order_source_id is ' ||p_x_line_rec.order_source_id);
3152: END IF;
3153: p_x_line_rec.calculate_price_flag := 'P';
3154: END IF;
3155:
3169: EXCEPTION
3170: WHEN OTHERS THEN
3171: l_orig_line_calc_price_flag := NULL;
3172: END;
3173: oe_debug_pub.add('Bug#5026401 l_orig_line_calc_price_flag:'||l_orig_line_calc_price_flag);
3174: IF NVL(l_orig_line_calc_price_flag,'N') IN ('Y','P')
3175: THEN
3176: p_x_line_rec.calculate_price_flag := 'P';
3177: END IF;
3175: THEN
3176: p_x_line_rec.calculate_price_flag := 'P';
3177: END IF;
3178: END IF;
3179: oe_debug_pub.add('Bug#5026401 p_x_line_rec.calculate_price_flag:'|| p_x_line_rec.calculate_price_flag);
3180: /* Bug#5026401 - End */
3181:
3182: END IF;
3183: END IF;
3262: IF p_x_line_rec.tax_value > p_old_line_rec.tax_value AND
3263: OE_Order_Cache.g_header_rec.payment_type_code = 'CREDIT_CARD' THEN
3264: -- Set flag to log Verify Payment Delayed Request
3265: if l_debug_level > 0 then
3266: oe_debug_pub.ADD('Log Verify Payment delayed request in Tax Value');
3267: end if;
3268: l_verify_payment_flag := 'Y';
3269:
3270: ELSIF OE_PrePayment_UTIL.is_prepaid_order(p_x_line_rec.header_id)
3271: = 'Y' AND p_x_line_rec.booked_flag ='Y' THEN
3272: -- if this is a prepaid order, also log delayed request if ordered
3273: -- quantity decreases, as refund may need to be issued.
3274: if l_debug_level > 0 then
3275: oe_debug_pub.ADD('Log Verify Payment delayed request in Tax Value for prepayment', 3);
3276: end if;
3277: l_verify_payment_flag := 'Y';
3278: END IF;
3279: END IF;
3294: IF( p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE
3295: AND p_x_line_rec.booked_flag ='Y') THEN
3296: -- Log Delayed Request for Verify Payment
3297: if l_debug_level > 0 then
3298: oe_debug_pub.ADD('log verify payment delayed request for change in List price');
3299: end if;
3300: l_verify_payment_flag := 'Y';
3301: END IF;
3302: END IF;
3311: l_3a7_attribute_change := FND_API.G_TRUE;
3312: IF (p_x_line_rec.unit_selling_price is NULL And
3313: p_old_line_rec.unit_selling_price is NOT NULL) Then
3314: if l_debug_level > 0 then
3315: oe_debug_pub.add('User has cleared unit selling price');
3316: oe_debug_pub.add('Just Reprice');
3317: end if;
3318: --Oe_Line_Adj_Util.Delete_Row(p_line_id=>p_x_line_rec.line_id); 7363196
3319: OE_GLOBALS.G_PRICE_FLAG := 'Y';
3312: IF (p_x_line_rec.unit_selling_price is NULL And
3313: p_old_line_rec.unit_selling_price is NOT NULL) Then
3314: if l_debug_level > 0 then
3315: oe_debug_pub.add('User has cleared unit selling price');
3316: oe_debug_pub.add('Just Reprice');
3317: end if;
3318: --Oe_Line_Adj_Util.Delete_Row(p_line_id=>p_x_line_rec.line_id); 7363196
3319: OE_GLOBALS.G_PRICE_FLAG := 'Y';
3320: p_x_line_rec.unit_list_price := NULL;
3340: OR (OE_PrePayment_UTIL.is_prepaid_order(p_x_line_rec.header_id)
3341: = 'Y' AND p_x_line_rec.booked_flag ='Y'
3342: AND p_x_line_rec.shipped_quantity IS NULL) THEN
3343: if l_debug_level > 0 then
3344: oe_debug_pub.ADD('Log Verify Payment delayed request in Selling Price');
3345: end if;
3346: l_verify_payment_flag := 'Y';
3347: END IF;
3348: END IF;
3351: AND p_x_line_rec.shipped_quantity IS NULL THEN
3352: -- if this is a prepaid order, also log delayed request if selling
3353: -- price decreases, as refund may need to be issued.
3354: if l_debug_level > 0 then
3355: oe_debug_pub.ADD('Log Verify Payment delayed request for change in Selling Price for prepayment', 3);
3356: end if;
3357: l_verify_payment_flag := 'Y';
3358: END IF;
3359: ELSE
3358: END IF;
3359: ELSE
3360: IF p_x_line_rec.booked_flag ='Y' THEN
3361: if l_debug_level > 0 then
3362: oe_debug_pub.ADD('Log Verify Payment delayed request for change in Selling Price');
3363: end if;
3364: l_verify_payment_flag := 'Y';
3365: END IF;
3366: END IF;
3379:
3380: THEN
3381: -- Call Pricing
3382: if l_debug_level > 0 then
3383: oe_debug_pub.add('CSH- service start_date is changed');
3384: end if;
3385: OE_GLOBALS.G_PRICE_FLAG := 'Y';
3386: l_copy_service_fields := TRUE;
3387:
3395: IF NOT OE_GLOBALS.Equal(p_x_line_rec.service_end_date,p_old_line_rec.service_end_date)
3396:
3397: THEN
3398: if l_debug_level > 0 then
3399: oe_debug_pub.add('CSH- service end_date is changed');
3400: end if;
3401: -- Call Pricing
3402: OE_GLOBALS.G_PRICE_FLAG := 'Y';
3403: l_copy_service_fields := TRUE;
3416: -- Call Pricing
3417: OE_GLOBALS.G_PRICE_FLAG := 'Y';
3418: /* csheu -- bug #1533658 s*/
3419: if l_debug_level > 0 then
3420: oe_debug_pub.add('CSH- service duration is changed');
3421: end if;
3422: l_copy_service_fields := TRUE;
3423: /* csheu -- bug #1533658 e*/
3424:
3438: END IF;
3439:
3440: /* csheu -- bug #1533658 s*/
3441: if l_debug_level > 0 then
3442: oe_debug_pub.add('CSH- service period is changed');
3443: end if;
3444: l_copy_service_fields := TRUE;
3445: /* csheu -- bug #1533658 e*/
3446: END IF;
3448: IF NOT OE_GLOBALS.Equal(p_x_line_rec.service_reference_line_id,p_old_line_rec.service_reference_line_id)
3449:
3450: THEN
3451: if l_debug_level > 0 then
3452: oe_debug_pub.add('JPN: line id is: ' || to_char(p_x_line_rec.line_id));
3453: oe_debug_pub.add('JPN: Serviced line id is: ' || to_char(p_x_line_rec.service_reference_line_id));
3454: end if;
3455:
3456: -- The IF condition on source_type_document_type_id is being
3449:
3450: THEN
3451: if l_debug_level > 0 then
3452: oe_debug_pub.add('JPN: line id is: ' || to_char(p_x_line_rec.line_id));
3453: oe_debug_pub.add('JPN: Serviced line id is: ' || to_char(p_x_line_rec.service_reference_line_id));
3454: end if;
3455:
3456: -- The IF condition on source_type_document_type_id is being
3457: -- commented for bug 2372098
3471: , p_x_line_rec => p_x_line_rec
3472: );
3473:
3474: if l_debug_level > 0 then
3475: oe_debug_pub.add('AKS: Service num is: ' || to_char(p_x_line_rec.service_number));
3476: oe_debug_pub.add('UTIL call: Line num is: ' || to_char(p_x_line_rec.line_number));
3477: end if;
3478:
3479: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3472: );
3473:
3474: if l_debug_level > 0 then
3475: oe_debug_pub.add('AKS: Service num is: ' || to_char(p_x_line_rec.service_number));
3476: oe_debug_pub.add('UTIL call: Line num is: ' || to_char(p_x_line_rec.line_number));
3477: end if;
3478:
3479: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3525: -- INCLUDED items. This check is for copied service lines.
3526:
3527: IF (p_x_line_rec.source_document_type_id = 2 AND l_is_model = 'Y') THEN
3528: if l_debug_level > 0 then
3529: oe_debug_pub.add( 'This is a copied service line', 5 );
3530: end if;
3531: BEGIN
3532: Select 'Y'
3533: INTO l_is_model
3552: /* Log the service delayed request only if it is not a split. */
3553: /* Fix for Bug 1802612 */
3554:
3555: if l_debug_level > 0 then
3556: oe_debug_pub.ADD('SERVICE: Logging delayed request ');
3557: oe_debug_pub.ADD('JPN: What type of item: '|| l_is_model);
3558: oe_debug_pub.add('Split action code:' || p_x_line_rec.split_action_code);
3559: oe_debug_pub.add('Operation:' || p_x_line_rec.operation);
3560: oe_debug_pub.add('Split from line:' || p_x_line_rec.split_from_line_id);
3553: /* Fix for Bug 1802612 */
3554:
3555: if l_debug_level > 0 then
3556: oe_debug_pub.ADD('SERVICE: Logging delayed request ');
3557: oe_debug_pub.ADD('JPN: What type of item: '|| l_is_model);
3558: oe_debug_pub.add('Split action code:' || p_x_line_rec.split_action_code);
3559: oe_debug_pub.add('Operation:' || p_x_line_rec.operation);
3560: oe_debug_pub.add('Split from line:' || p_x_line_rec.split_from_line_id);
3561: end if;
3554:
3555: if l_debug_level > 0 then
3556: oe_debug_pub.ADD('SERVICE: Logging delayed request ');
3557: oe_debug_pub.ADD('JPN: What type of item: '|| l_is_model);
3558: oe_debug_pub.add('Split action code:' || p_x_line_rec.split_action_code);
3559: oe_debug_pub.add('Operation:' || p_x_line_rec.operation);
3560: oe_debug_pub.add('Split from line:' || p_x_line_rec.split_from_line_id);
3561: end if;
3562:
3555: if l_debug_level > 0 then
3556: oe_debug_pub.ADD('SERVICE: Logging delayed request ');
3557: oe_debug_pub.ADD('JPN: What type of item: '|| l_is_model);
3558: oe_debug_pub.add('Split action code:' || p_x_line_rec.split_action_code);
3559: oe_debug_pub.add('Operation:' || p_x_line_rec.operation);
3560: oe_debug_pub.add('Split from line:' || p_x_line_rec.split_from_line_id);
3561: end if;
3562:
3563: IF NOT (( NVL(p_x_line_rec.split_action_code,'X') = 'SPLIT' and
3556: oe_debug_pub.ADD('SERVICE: Logging delayed request ');
3557: oe_debug_pub.ADD('JPN: What type of item: '|| l_is_model);
3558: oe_debug_pub.add('Split action code:' || p_x_line_rec.split_action_code);
3559: oe_debug_pub.add('Operation:' || p_x_line_rec.operation);
3560: oe_debug_pub.add('Split from line:' || p_x_line_rec.split_from_line_id);
3561: end if;
3562:
3563: IF NOT (( NVL(p_x_line_rec.split_action_code,'X') = 'SPLIT' and
3564: p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE) or
3600:
3601: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE
3602: THEN
3603: if l_debug_level > 0 then
3604: oe_debug_pub.ADD('operation : '|| p_x_line_rec.operation);
3605: oe_debug_pub.ADD('inventory_item_id : '|| p_x_line_rec.inventory_item_id);
3606: end if;
3607: BEGIN
3608: select distinct 'Y'
3601: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE
3602: THEN
3603: if l_debug_level > 0 then
3604: oe_debug_pub.ADD('operation : '|| p_x_line_rec.operation);
3605: oe_debug_pub.ADD('inventory_item_id : '|| p_x_line_rec.inventory_item_id);
3606: end if;
3607: BEGIN
3608: select distinct 'Y'
3609: into l_serviceable_item
3618: l_serviceable_item := 'N';
3619: END;
3620:
3621: if l_debug_level > 0 then
3622: oe_debug_pub.ADD('serviceable option : '|| l_serviceable_item);
3623:
3624: oe_debug_pub.ADD('service_reference_line_id: '|| p_x_line_rec.top_model_line_id);
3625: end if;
3626:
3620:
3621: if l_debug_level > 0 then
3622: oe_debug_pub.ADD('serviceable option : '|| l_serviceable_item);
3623:
3624: oe_debug_pub.ADD('service_reference_line_id: '|| p_x_line_rec.top_model_line_id);
3625: end if;
3626:
3627: IF l_serviceable_item = 'Y' THEN
3628: BEGIN
3638: l_serviced_model := 'N';
3639: END;
3640:
3641: if l_debug_level > 0 then
3642: oe_debug_pub.ADD('serviced model : '|| l_serviced_model);
3643: end if;
3644:
3645: IF l_serviced_model = 'Y' THEN
3646: if l_debug_level > 0 then
3643: end if;
3644:
3645: IF l_serviced_model = 'Y' THEN
3646: if l_debug_level > 0 then
3647: oe_debug_pub.add('Before log delayed request -- G_CASCADE_OPTIONS_SERVICE',1);
3648: end if;
3649: OE_Delayed_Requests_Pvt.log_request(
3650: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
3651: p_entity_id => p_x_line_rec.line_id,
3659: END IF; /*operation = CREATE */
3660: END IF; /* check if not split */
3661: END IF; /* item_type_code='OPTION' or 'CLASS'*/
3662:
3663: -- oe_debug_pub.add(' out of cascade option condition',1);
3664:
3665: /*lchen -- bug #1761154 end*/
3666:
3667: /* End of service related columns */
3709: AND NVL(p_x_line_rec.split_action_code,'X') <> 'SPLIT'
3710: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
3711: THEN
3712: IF l_debug_level > 0 then
3713: oe_debug_pub.ADD('created By update: logging request for eval_hold_source');
3714: oe_debug_pub.ADD('line ID: '|| to_char(p_x_line_rec.line_id)||
3715: ' Entity ID: '|| to_char(p_x_line_rec.created_by));
3716: END IF;
3717:
3710: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
3711: THEN
3712: IF l_debug_level > 0 then
3713: oe_debug_pub.ADD('created By update: logging request for eval_hold_source');
3714: oe_debug_pub.ADD('line ID: '|| to_char(p_x_line_rec.line_id)||
3715: ' Entity ID: '|| to_char(p_x_line_rec.created_by));
3716: END IF;
3717:
3718: OE_delayed_requests_Pvt.log_request(
3732: AND NVL(p_x_line_rec.split_action_code,'X') <> 'SPLIT'
3733: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
3734: THEN
3735: IF l_debug_level > 0 then
3736: oe_debug_pub.ADD('Creation date update: logging request for eval_hold_source');
3737: oe_debug_pub.ADD('line ID: '|| to_char(p_x_line_rec.line_id)||
3738: ' Entity ID: '|| to_char(p_x_line_rec.creation_date));
3739: END IF;
3740:
3733: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
3734: THEN
3735: IF l_debug_level > 0 then
3736: oe_debug_pub.ADD('Creation date update: logging request for eval_hold_source');
3737: oe_debug_pub.ADD('line ID: '|| to_char(p_x_line_rec.line_id)||
3738: ' Entity ID: '|| to_char(p_x_line_rec.creation_date));
3739: END IF;
3740:
3741: OE_delayed_requests_Pvt.log_request(
3755: AND NVL(p_x_line_rec.split_action_code,'X') <> 'SPLIT'
3756: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
3757: THEN
3758: IF l_debug_level > 0 then
3759: oe_debug_pub.ADD('Customer update: logging request for eval_hold_source');
3760: oe_debug_pub.ADD('line ID: '|| to_char(p_x_line_rec.line_id)||
3761: ' Entity ID: '|| to_char(p_x_line_rec.sold_to_org_id));
3762: END IF;
3763:
3756: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
3757: THEN
3758: IF l_debug_level > 0 then
3759: oe_debug_pub.ADD('Customer update: logging request for eval_hold_source');
3760: oe_debug_pub.ADD('line ID: '|| to_char(p_x_line_rec.line_id)||
3761: ' Entity ID: '|| to_char(p_x_line_rec.sold_to_org_id));
3762: END IF;
3763:
3764: OE_delayed_requests_Pvt.log_request(
3778: AND NVL(p_x_line_rec.split_action_code,'X') <> 'SPLIT'
3779: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
3780: THEN
3781: IF l_debug_level > 0 then
3782: oe_debug_pub.ADD('Delver to site update: logging request for eval_hold_source');
3783: oe_debug_pub.ADD('line ID: '|| to_char(p_x_line_rec.line_id)||
3784: ' Entity ID: '|| to_char(p_x_line_rec.deliver_to_org_id));
3785: END IF;
3786:
3779: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
3780: THEN
3781: IF l_debug_level > 0 then
3782: oe_debug_pub.ADD('Delver to site update: logging request for eval_hold_source');
3783: oe_debug_pub.ADD('line ID: '|| to_char(p_x_line_rec.line_id)||
3784: ' Entity ID: '|| to_char(p_x_line_rec.deliver_to_org_id));
3785: END IF;
3786:
3787: OE_delayed_requests_Pvt.log_request(
3801: AND NVL(p_x_line_rec.split_action_code,'X') <> 'SPLIT'
3802: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
3803: THEN
3804: IF l_debug_level > 0 then
3805: oe_debug_pub.ADD('Line Type update: logging request for eval_hold_source');
3806: oe_debug_pub.ADD('line ID: '|| to_char(p_x_line_rec.line_id)||
3807: ' Entity ID: '|| to_char(p_x_line_rec.line_type_id));
3808: END IF;
3809:
3802: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
3803: THEN
3804: IF l_debug_level > 0 then
3805: oe_debug_pub.ADD('Line Type update: logging request for eval_hold_source');
3806: oe_debug_pub.ADD('line ID: '|| to_char(p_x_line_rec.line_id)||
3807: ' Entity ID: '|| to_char(p_x_line_rec.line_type_id));
3808: END IF;
3809:
3810: OE_delayed_requests_Pvt.log_request(
3824: AND NVL(p_x_line_rec.split_action_code,'X') <> 'SPLIT'
3825: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
3826: THEN
3827: IF l_debug_level > 0 then
3828: oe_debug_pub.ADD('Payment Term update: logging request for eval_hold_source');
3829: oe_debug_pub.ADD('line ID: '|| to_char(p_x_line_rec.line_id)||
3830: ' Entity ID: '|| to_char(p_x_line_rec.payment_term_id));
3831: END IF;
3832:
3825: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
3826: THEN
3827: IF l_debug_level > 0 then
3828: oe_debug_pub.ADD('Payment Term update: logging request for eval_hold_source');
3829: oe_debug_pub.ADD('line ID: '|| to_char(p_x_line_rec.line_id)||
3830: ' Entity ID: '|| to_char(p_x_line_rec.payment_term_id));
3831: END IF;
3832:
3833: OE_delayed_requests_Pvt.log_request(
3847: AND NVL(p_x_line_rec.split_action_code,'X') <> 'SPLIT'
3848: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
3849: THEN
3850: IF l_debug_level > 0 then
3851: oe_debug_pub.ADD('Price List update: logging request for eval_hold_source');
3852: oe_debug_pub.ADD('line ID: '|| to_char(p_x_line_rec.line_id)||
3853: ' Entity ID: '|| to_char(p_x_line_rec.price_list_id));
3854: END IF;
3855:
3848: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
3849: THEN
3850: IF l_debug_level > 0 then
3851: oe_debug_pub.ADD('Price List update: logging request for eval_hold_source');
3852: oe_debug_pub.ADD('line ID: '|| to_char(p_x_line_rec.line_id)||
3853: ' Entity ID: '|| to_char(p_x_line_rec.price_list_id));
3854: END IF;
3855:
3856: OE_delayed_requests_Pvt.log_request(
3870: AND NVL(p_x_line_rec.split_action_code,'X') <> 'SPLIT'
3871: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
3872: THEN
3873: IF l_debug_level > 0 then
3874: oe_debug_pub.ADD('Project update: logging request for eval_hold_source');
3875: oe_debug_pub.ADD('line ID: '|| to_char(p_x_line_rec.line_id)||
3876: ' Entity ID: '|| to_char(p_x_line_rec.project_id));
3877: END IF;
3878:
3871: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
3872: THEN
3873: IF l_debug_level > 0 then
3874: oe_debug_pub.ADD('Project update: logging request for eval_hold_source');
3875: oe_debug_pub.ADD('line ID: '|| to_char(p_x_line_rec.line_id)||
3876: ' Entity ID: '|| to_char(p_x_line_rec.project_id));
3877: END IF;
3878:
3879: OE_delayed_requests_Pvt.log_request(
3893: AND NVL(p_x_line_rec.split_action_code,'X') <> 'SPLIT'
3894: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
3895: THEN
3896: IF l_debug_level > 0 then
3897: oe_debug_pub.ADD('Shipping Method update: logging request for eval_hold_source');
3898: oe_debug_pub.ADD('line ID: '|| to_char(p_x_line_rec.line_id)||
3899: ' Entity ID: '|| to_char(p_x_line_rec.shipping_method_code));
3900: END IF;
3901:
3894: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
3895: THEN
3896: IF l_debug_level > 0 then
3897: oe_debug_pub.ADD('Shipping Method update: logging request for eval_hold_source');
3898: oe_debug_pub.ADD('line ID: '|| to_char(p_x_line_rec.line_id)||
3899: ' Entity ID: '|| to_char(p_x_line_rec.shipping_method_code));
3900: END IF;
3901:
3902: OE_delayed_requests_Pvt.log_request(
3916: AND NVL(p_x_line_rec.split_action_code,'X') <> 'SPLIT'
3917: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
3918: THEN
3919: IF l_debug_level > 0 then
3920: oe_debug_pub.ADD('Source Type update: logging request for eval_hold_source');
3921: oe_debug_pub.ADD('line ID: '|| to_char(p_x_line_rec.line_id)||
3922: ' Entity ID: '|| to_char(p_x_line_rec.source_type_code));
3923: END IF;
3924:
3917: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
3918: THEN
3919: IF l_debug_level > 0 then
3920: oe_debug_pub.ADD('Source Type update: logging request for eval_hold_source');
3921: oe_debug_pub.ADD('line ID: '|| to_char(p_x_line_rec.line_id)||
3922: ' Entity ID: '|| to_char(p_x_line_rec.source_type_code));
3923: END IF;
3924:
3925: OE_delayed_requests_Pvt.log_request(
3939: AND NVL(p_x_line_rec.split_action_code,'X') <> 'SPLIT'
3940: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
3941: THEN
3942: IF l_debug_level > 0 then
3943: oe_debug_pub.ADD('task id update: logging request for eval_hold_source');
3944: oe_debug_pub.ADD('line ID: '|| to_char(p_x_line_rec.line_id)||
3945: ' Entity ID: '|| to_char(p_x_line_rec.task_id));
3946: END IF;
3947:
3940: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
3941: THEN
3942: IF l_debug_level > 0 then
3943: oe_debug_pub.ADD('task id update: logging request for eval_hold_source');
3944: oe_debug_pub.ADD('line ID: '|| to_char(p_x_line_rec.line_id)||
3945: ' Entity ID: '|| to_char(p_x_line_rec.task_id));
3946: END IF;
3947:
3948: OE_delayed_requests_Pvt.log_request(
3962: AND NVL(p_x_line_rec.split_action_code,'X') <> 'SPLIT'
3963: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
3964: THEN
3965: IF l_debug_level > 0 then
3966: oe_debug_pub.ADD('Top Model update: logging request for eval_hold_source');
3967: oe_debug_pub.ADD('line ID: '|| to_char(p_x_line_rec.line_id)||
3968: ' Entity ID: '|| to_char(p_x_line_rec.inventory_item_id));
3969: END IF;
3970:
3963: AND NVL(p_x_line_rec.transaction_phase_code,'F') = 'F'
3964: THEN
3965: IF l_debug_level > 0 then
3966: oe_debug_pub.ADD('Top Model update: logging request for eval_hold_source');
3967: oe_debug_pub.ADD('line ID: '|| to_char(p_x_line_rec.line_id)||
3968: ' Entity ID: '|| to_char(p_x_line_rec.inventory_item_id));
3969: END IF;
3970:
3971: OE_delayed_requests_Pvt.log_request(
3991: OE_GLOBALS.G_TAX_FLAG := 'Y';
3992:
3993: -- log delayed request for Verify_Payment.
3994: if l_debug_level > 0 then
3995: oe_debug_pub.add('log verify payment delayed request for change in commitment_id', 3);
3996: end if;
3997: l_verify_payment_flag := 'Y';
3998: END IF;
3999:
4002: AND oe_code_control.code_release_level >= '110510'
4003: AND p_x_line_rec.commitment_id IS NOT NULL
4004: THEN
4005: if l_debug_level > 0 then
4006: oe_debug_pub.add('Log verify payment delayed request for change in commitment_applied_amount.',3);
4007: end if;
4008: l_update_commitment_applied := 'Y';
4009:
4010: END IF;
4021: -- NOTE: Evaluate Hold Source Requests will be directly executed
4022: -- in post_write, no need to log it here.
4023:
4024: if l_debug_level > 0 then
4025: oe_debug_pub.add('Log Complete Neg Requests for Line');
4026: end if;
4027:
4028: -- log a delayed request to get included items for this item if any.
4029:
4028: -- log a delayed request to get included items for this item if any.
4029:
4030: l_freeze_method := G_FREEZE_METHOD; /* Bug # 5036404 */
4031: if l_debug_level > 0 then
4032: oe_debug_pub.ADD('Freeze method is :' || l_freeze_method,2);
4033: end if;
4034:
4035: IF l_freeze_method = OE_GLOBALS.G_IIFM_ENTRY AND
4036: p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE AND
4063: l_def_contingency_attributes := FND_API.G_TRUE;
4064: END IF;
4065:
4066: IF l_debug_level > 0 then
4067: oe_debug_pub.add('operation:'||p_x_line_rec.operation||' booked_flag:'||p_x_line_rec.booked_flag||' new contingency_id: '||p_x_line_rec.contingency_id ||' old contingency_id: '||p_old_line_rec.contingency_id);
4068: END IF;
4069: IF NVL(OE_SYS_PARAMETERS.VALUE('ENABLE_FULFILLMENT_ACCEPTANCE'), 'N') = 'Y'
4070: AND (NVL( p_x_line_rec.booked_flag, 'N') = 'N' OR
4071: p_x_line_rec.operation=OE_GLOBALS.G_OPR_CREATE)
4085: (p_x_line_rec.operation=OE_GLOBALS.G_OPR_CREATE AND p_x_line_rec.split_from_line_id IS NOT NULL) OR
4086: (p_x_line_rec.operation=OE_GLOBALS.G_OPR_UPDATE AND NOT OE_GLOBALS.Equal(p_x_line_rec.contingency_id,p_old_line_rec.contingency_id)) OR
4087: NVL(p_x_line_rec.transaction_phase_code, 'F') = 'N') THEN
4088: IF l_debug_level > 0 THEN
4089: oe_debug_pub.add('Item_type_code:'||p_x_line_rec.item_type_code||'-Do not default Contingency Attributes for this line' );
4090: END IF;
4091:
4092: OE_ACCEPTANCE_UTIL.Register_Changed_Lines(
4093: p_line_id => p_x_line_rec.line_id
4136: (l_update_shipping = FND_API.G_TRUE OR l_explosion_date_changed = FND_API.G_TRUE) AND
4137: (p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE AND NVL(p_x_line_rec.split_action_code,'X') <> 'SPLIT')) THEN
4138:
4139: if l_debug_level > 0 then
4140: oe_debug_pub.ADD('Logging update shipping delayed request for line ID : '|| to_char(p_x_line_rec.line_id) ,1);
4141: end if;
4142:
4143: OE_Delayed_Requests_Pvt.Log_Request(
4144: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
4211: END;
4212:
4213: IF l_is_model = 'Y' THEN
4214: if l_debug_level > 0 then
4215: oe_debug_pub.add('CSH Before log request --G_UPDATE_SERVICE', 1);
4216: end if;
4217: OE_Delayed_Requests_Pvt.log_request(
4218: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
4219: p_entity_id => p_x_line_rec.line_id,
4224: END IF;
4225: END IF; /* IF l_copy_service_fields... = TRUE */
4226:
4227: if l_debug_level > 0 then
4228: oe_debug_pub.add('CSH --OUT of l_copy_service_field condition ', 1);
4229: end if;
4230: /* csheu -- bug #1533658 E */
4231: -- added by lkxu
4232: IF l_copy_pricing_attributes THEN
4278: --Elsif p_x_line_rec.item_type_code = 'CONFIG' THEN
4279: -- oe_globals.g_price_flag := 'Y';
4280: Else
4281: if l_debug_level > 0 then
4282: oe_debug_pub.add('2207809: no price for config item', 3);
4283: end if;
4284: oe_globals.g_price_flag := 'N';
4285: End If;
4286: End If;
4294: p_old_line_rec => p_old_line_rec,
4295: p_no_price_flag => l_no_price_flag);
4296:
4297: if l_debug_level > 0 then
4298: oe_debug_pub.add('unit_list_price:'||p_x_line_rec.unit_list_price);
4299: oe_debug_pub.add('old unit_list_price:'||p_old_line_rec.unit_list_price);
4300: oe_debug_pub.add('original_list_price:'||p_x_line_rec.original_list_price);
4301: end if;
4302: -- Override List Price
4295: p_no_price_flag => l_no_price_flag);
4296:
4297: if l_debug_level > 0 then
4298: oe_debug_pub.add('unit_list_price:'||p_x_line_rec.unit_list_price);
4299: oe_debug_pub.add('old unit_list_price:'||p_old_line_rec.unit_list_price);
4300: oe_debug_pub.add('original_list_price:'||p_x_line_rec.original_list_price);
4301: end if;
4302: -- Override List Price
4303: IF ((p_x_line_rec.unit_list_price IS NOT NULL AND
4296:
4297: if l_debug_level > 0 then
4298: oe_debug_pub.add('unit_list_price:'||p_x_line_rec.unit_list_price);
4299: oe_debug_pub.add('old unit_list_price:'||p_old_line_rec.unit_list_price);
4300: oe_debug_pub.add('original_list_price:'||p_x_line_rec.original_list_price);
4301: end if;
4302: -- Override List Price
4303: IF ((p_x_line_rec.unit_list_price IS NOT NULL AND
4304: p_x_line_rec.unit_list_price <> FND_API.G_MISS_NUM AND
4328:
4329: -- setting unit_list_price_per_pqty appropriately
4330: p_x_line_rec.unit_list_price_per_pqty := (p_x_line_rec.ordered_quantity*p_x_line_rec.unit_list_price)/p_x_line_rec.pricing_quantity;
4331: if l_debug_level > 0 then
4332: oe_debug_pub.add('setting unit_list_price_per_pqty to:'||p_x_line_rec.unit_list_price_per_pqty);
4333: end if;
4334: END IF;
4335:
4336: IF p_old_line_rec.unit_list_price IS NOT NULL AND
4338: p_x_line_rec.original_list_price IS NOT NULL THEN
4339:
4340: -- setting unit_list_price_per_pqt, original_list_price to null
4341: if l_debug_level > 0 then
4342: oe_debug_pub.add('setting original_list_price, unit_list_price_per_pqty to null');
4343: end if;
4344: p_x_line_rec.original_list_price := NULL;
4345: p_x_line_rec.unit_list_price_per_pqty := NULL;
4346:
4345: p_x_line_rec.unit_list_price_per_pqty := NULL;
4346:
4347: END IF;
4348: if l_debug_level > 0 then
4349: oe_debug_pub.add('setting call_pricing for list price override');
4350: end if;
4351: L_Call_pricing := 'Y';
4352: End If;
4353: -- Override List Price
4368: IF nvl(p_x_line_rec.ordered_quantity,0) = 0 THEN
4369: l_zero_line_qty := TRUE;
4370: /* BUG 2013611 BEGIN */
4371: if l_debug_level > 0 then
4372: oe_debug_pub.ADD('Logging REVERSE_LIMITS delayed request for LINE CANCEL ',1);
4373: end if;
4374: OE_delayed_requests_Pvt.log_request(
4375: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
4376: p_entity_id => p_x_line_rec.line_id,
4385: p_param6 => NULL,
4386: p_request_type => OE_GLOBALS.G_REVERSE_LIMITS,
4387: x_return_status => l_return_status);
4388: if l_debug_level > 0 then
4389: oe_debug_pub.ADD('REVERSE_LIMITS Delayed request has been logged',1);
4390: end if;
4391: /* BUG 2013611 END */
4392: ELSE
4393: l_zero_line_qty := FALSE;
4422: l_x_line_tbl(1) := p_x_line_rec;
4423: IF NOT l_zero_line_qty THEN
4424: --bsadri call the Price_line for non-cancelled lines
4425: if l_debug_level > 0 then
4426: oe_debug_pub.add('list price before call to price_line:'||p_x_line_rec.unit_list_price);
4427: oe_debug_pub.add('list price per pqty before call to price_line:'||p_x_line_rec.unit_list_price_per_pqty);
4428: end if;
4429: oe_order_adj_pvt.Price_line(
4430: X_Return_Status => l_Return_Status
4423: IF NOT l_zero_line_qty THEN
4424: --bsadri call the Price_line for non-cancelled lines
4425: if l_debug_level > 0 then
4426: oe_debug_pub.add('list price before call to price_line:'||p_x_line_rec.unit_list_price);
4427: oe_debug_pub.add('list price per pqty before call to price_line:'||p_x_line_rec.unit_list_price_per_pqty);
4428: end if;
4429: oe_order_adj_pvt.Price_line(
4430: X_Return_Status => l_Return_Status
4431: ,p_Line_id => p_x_line_rec.line_id
4446: i:= l_x_Line_Tbl.Next(i);
4447: End Loop;
4448: */
4449: if l_debug_level > 0 then
4450: oe_debug_pub.add('list price after call to price_line:'||p_x_line_rec.unit_list_price);
4451: oe_debug_pub.add('list price per pqty after call to price_line:'||p_x_line_rec.unit_list_price_per_pqty);
4452: end if;
4453: -- Bug 2757443.
4454: -- Need to log delayed request for tax and commitment
4447: End Loop;
4448: */
4449: if l_debug_level > 0 then
4450: oe_debug_pub.add('list price after call to price_line:'||p_x_line_rec.unit_list_price);
4451: oe_debug_pub.add('list price per pqty after call to price_line:'||p_x_line_rec.unit_list_price_per_pqty);
4452: end if;
4453: -- Bug 2757443.
4454: -- Need to log delayed request for tax and commitment
4455: -- when unit_selling_price changes from null to not null
4463: END IF;
4464: END IF;
4465:
4466: if l_debug_level > 0 then
4467: oe_debug_pub.add('outside margin code',1);
4468: end if;
4469: --MRG BGN
4470: If OE_FEATURES_PVT.Is_Margin_Avail Then
4471: if l_debug_level > 0 then
4468: end if;
4469: --MRG BGN
4470: If OE_FEATURES_PVT.Is_Margin_Avail Then
4471: if l_debug_level > 0 then
4472: oe_debug_pub.add('inside margin code',1);
4473: end if;
4474: p_x_line_rec.unit_cost:=OE_MARGIN_PVT.GET_COST(p_x_line_rec);
4475: End If;
4476: --MRG END
4478: END IF;
4479: End If;
4480: End If; --end if for UI Flag Check
4481: if l_debug_level > 0 then
4482: oe_debug_pub.ADD('Logging delayed request for pricing');
4483: end if;
4484: IF ((OE_GLOBALS.G_UI_FLAG)
4485: and OE_GLOBALS.G_DEFER_PRICING='N'
4486: and (nvl(Oe_Config_Pvt.oecfg_configuration_pricing,'N')='N'))
4487: OR (p_x_line_rec.item_type_code = 'INCLUDED' and OE_GLOBALS.G_DEFER_PRICING='N')
4488: --RT
4489: and nvl(p_x_line_rec.retrobill_request_id,FND_API.G_MISS_NUM)=FND_API.G_MISS_NUM THEN
4490: if l_debug_level > 0 then
4491: oe_debug_pub.add('ui mode or config, included item'||p_x_line_rec.line_id);
4492: end if;
4493: IF NOT l_zero_line_qty THEN
4494: --bsadri don't call this for a cancelled line
4495:
4495:
4496: IF nvl(p_x_line_rec.item_type_code,'x') <> 'INCLUDED' THEN
4497: --bug 2855794
4498: if l_debug_level > 0 then
4499: oe_debug_pub.ADD('Calc price flag:'||p_x_line_rec.calculate_price_flag);
4500: end if;
4501: if (p_x_line_rec.calculate_price_flag <> 'N' OR
4502: l_item_rec.ont_pricing_qty_source = 'S' ) THEN -- INVCONV
4503: if l_debug_level > 0 then
4500: end if;
4501: if (p_x_line_rec.calculate_price_flag <> 'N' OR
4502: l_item_rec.ont_pricing_qty_source = 'S' ) THEN -- INVCONV
4503: if l_debug_level > 0 then
4504: oe_debug_pub.ADD('logging price line request');
4505: end if;
4506:
4507: OE_delayed_requests_Pvt.log_request(
4508: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
4520:
4521: IF OE_LINE_ADJ_UTIL.Is_Pricing_Related_Change(p_x_line_rec,p_old_line_rec)
4522: OR NOT OE_GLOBALS.Equal(p_x_line_rec.shipping_method_code,p_old_line_rec.shipping_method_code) THEN
4523: if l_debug_level > 0 then
4524: oe_debug_pub.add('renga-logging delayed req freight_for_included',1);
4525: end if;
4526:
4527: OE_delayed_requests_Pvt.log_request(
4528: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
4535: p_request_type => OE_GLOBALS.G_FREIGHT_FOR_INCLUDED,
4536: x_return_status => l_return_status);
4537:
4538: if l_debug_level > 0 then
4539: oe_debug_pub.add('renga-after logging delayed req freight_for_included',1);
4540: end if;
4541: END IF;
4542:
4543: END IF; -- if item type code is not included
4561: x_return_status => l_return_status);
4562: END IF; -- item_type_code not included
4563: ELSE
4564: if l_debug_level > 0 then
4565: oe_debug_pub.add('batch mode or defer pricing');
4566: end if;
4567: --RT{
4568: IF nvl(p_x_line_rec.retrobill_request_id,FND_API.G_MISS_NUM)<>FND_API.G_MISS_NUM Then
4569: --call pricing for retrobilling lines in one shot (PRICE_ORDER)
4660:
4661: */
4662:
4663: if l_debug_level > 0 then
4664: oe_debug_pub.add('g_price_flag = ' || oe_globals.g_price_flag);
4665: --oe_debug_pub.add('l_no_price_flag = '|| l_no_price_flag);
4666: oe_debug_pub.add('g_pricing_recursion = ' || oe_globals.g_pricing_recursion);
4667: oe_debug_pub.add('Ordered quantity = '|| to_char(p_x_line_rec.ordered_quantity));
4668: oe_debug_pub.add('Ordered qty UOM = ' || p_x_line_rec.order_quantity_uom);
4661: */
4662:
4663: if l_debug_level > 0 then
4664: oe_debug_pub.add('g_price_flag = ' || oe_globals.g_price_flag);
4665: --oe_debug_pub.add('l_no_price_flag = '|| l_no_price_flag);
4666: oe_debug_pub.add('g_pricing_recursion = ' || oe_globals.g_pricing_recursion);
4667: oe_debug_pub.add('Ordered quantity = '|| to_char(p_x_line_rec.ordered_quantity));
4668: oe_debug_pub.add('Ordered qty UOM = ' || p_x_line_rec.order_quantity_uom);
4669: oe_debug_pub.add('Calculate_price_flag = '|| p_x_line_rec.calculate_price_flag);
4662:
4663: if l_debug_level > 0 then
4664: oe_debug_pub.add('g_price_flag = ' || oe_globals.g_price_flag);
4665: --oe_debug_pub.add('l_no_price_flag = '|| l_no_price_flag);
4666: oe_debug_pub.add('g_pricing_recursion = ' || oe_globals.g_pricing_recursion);
4667: oe_debug_pub.add('Ordered quantity = '|| to_char(p_x_line_rec.ordered_quantity));
4668: oe_debug_pub.add('Ordered qty UOM = ' || p_x_line_rec.order_quantity_uom);
4669: oe_debug_pub.add('Calculate_price_flag = '|| p_x_line_rec.calculate_price_flag);
4670: end if;
4663: if l_debug_level > 0 then
4664: oe_debug_pub.add('g_price_flag = ' || oe_globals.g_price_flag);
4665: --oe_debug_pub.add('l_no_price_flag = '|| l_no_price_flag);
4666: oe_debug_pub.add('g_pricing_recursion = ' || oe_globals.g_pricing_recursion);
4667: oe_debug_pub.add('Ordered quantity = '|| to_char(p_x_line_rec.ordered_quantity));
4668: oe_debug_pub.add('Ordered qty UOM = ' || p_x_line_rec.order_quantity_uom);
4669: oe_debug_pub.add('Calculate_price_flag = '|| p_x_line_rec.calculate_price_flag);
4670: end if;
4671:
4664: oe_debug_pub.add('g_price_flag = ' || oe_globals.g_price_flag);
4665: --oe_debug_pub.add('l_no_price_flag = '|| l_no_price_flag);
4666: oe_debug_pub.add('g_pricing_recursion = ' || oe_globals.g_pricing_recursion);
4667: oe_debug_pub.add('Ordered quantity = '|| to_char(p_x_line_rec.ordered_quantity));
4668: oe_debug_pub.add('Ordered qty UOM = ' || p_x_line_rec.order_quantity_uom);
4669: oe_debug_pub.add('Calculate_price_flag = '|| p_x_line_rec.calculate_price_flag);
4670: end if;
4671:
4672: if (oe_globals.g_price_flag = 'Y' and
4665: --oe_debug_pub.add('l_no_price_flag = '|| l_no_price_flag);
4666: oe_debug_pub.add('g_pricing_recursion = ' || oe_globals.g_pricing_recursion);
4667: oe_debug_pub.add('Ordered quantity = '|| to_char(p_x_line_rec.ordered_quantity));
4668: oe_debug_pub.add('Ordered qty UOM = ' || p_x_line_rec.order_quantity_uom);
4669: oe_debug_pub.add('Calculate_price_flag = '|| p_x_line_rec.calculate_price_flag);
4670: end if;
4671:
4672: if (oe_globals.g_price_flag = 'Y' and
4673: not l_no_price_flag and
4682: --RT}
4683: then
4684:
4685: if l_debug_level > 0 then
4686: oe_debug_pub.add('New line created by Promotional Modifier');
4687:
4688: oe_debug_pub.add('Resetting calc. price. flag to P');
4689: end if;
4690: p_x_line_rec.calculate_price_flag := 'P';
4684:
4685: if l_debug_level > 0 then
4686: oe_debug_pub.add('New line created by Promotional Modifier');
4687:
4688: oe_debug_pub.add('Resetting calc. price. flag to P');
4689: end if;
4690: p_x_line_rec.calculate_price_flag := 'P';
4691: if l_debug_level > 0 then
4692: oe_debug_pub.add('Logging a request to PRICE_LINE in batch mode');
4688: oe_debug_pub.add('Resetting calc. price. flag to P');
4689: end if;
4690: p_x_line_rec.calculate_price_flag := 'P';
4691: if l_debug_level > 0 then
4692: oe_debug_pub.add('Logging a request to PRICE_LINE in batch mode');
4693: end if;
4694: if (p_x_line_rec.booked_flag = 'Y') --2442012
4695: then
4696: if l_debug_level > 0 then
4693: end if;
4694: if (p_x_line_rec.booked_flag = 'Y') --2442012
4695: then
4696: if l_debug_level > 0 then
4697: oe_debug_pub.add('Booked order -- log a request to Price Line');
4698: end if;
4699: l_pricing_event := 'BATCH,BOOK';
4700: Else
4701: l_pricing_event := 'BATCH';
4712: x_return_status => l_return_status);
4713:
4714: /* if (p_x_line_rec.booked_flag = 'Y')
4715: then
4716: oe_debug_pub.add('Booked order -- log a request to Price Line');
4717: OE_delayed_requests_Pvt.log_request(
4718: p_entity_code =>OE_GLOBALS.G_ENTITY_ALL,
4719: p_entity_id => p_x_line_rec.line_Id,
4720: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
4834: when no_data_found then
4835: l_tax_calculation_event_code := 0;
4836: when others then
4837: if l_debug_level > 0 then
4838: oe_debug_pub.add('Ren: failed while trying to query up tax_calcualtion_event for order_type_id ');
4839: end if;
4840: RAISE;
4841:
4842: END;
4861:
4862: IF p_x_line_rec.item_type_code in ('INCLUDED', 'CONFIG') THEN
4863:
4864: if l_debug_level > 0 then
4865: oe_debug_pub.add('Ren: no tax delayed request for include and config',1);
4866: end if;
4867:
4868: oe_globals.g_tax_flag := 'N';
4869:
4884: cust_type.cust_trx_type_id = cust_trx.cust_trx_type_id
4885: and cust_trx.customer_trx_id = p_x_line_rec.commitment_id
4886: );
4887: if l_debug_level > 0 then
4888: oe_debug_pub.add('OEXULINB:l_commit tax flag: '||l_tax_commt_flag,1);
4889: end if;
4890:
4891: exception
4892: when others then
4890:
4891: exception
4892: when others then
4893: if l_debug_level > 0 then
4894: oe_debug_pub.add('OEXULINB: in exception commitment ',1);
4895: end if;
4896: l_tax_commt_flag := 'N';
4897: end;
4898: end if;*/
4920: ) and */
4921: nvl(p_x_line_rec.inventory_item_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num)
4922: THEN
4923: if l_debug_level > 0 then
4924: oe_debug_pub.ADD('Logging delayed request for taxing');
4925: end if;
4926: -- lkxu, make changes for bug 1581188
4927: l_tax_commt_flag := 'N'; --bug 2505961
4928: IF (OE_GLOBALS.G_UI_FLAG) THEN
4949:
4950: /** commented out for bug 1581188
4951: IF (oe_globals.g_tax_flag = 'Y') THEN
4952: if l_debug_level > 0 then
4953: oe_debug_pub.ADD('Logging delayed request for taxing');
4954: end if;
4955: OE_delayed_requests_Pvt.log_request(p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
4956: p_entity_id => p_x_line_rec.line_id,
4957: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
4972: AND OE_PrePayment_UTIL.is_prepaid_order(p_x_line_rec.header_id) = 'N')
4973: OR OE_PrePayment_UTIL.is_prepaid_order(p_x_line_rec.header_id) = 'Y'
4974: THEN
4975: if l_debug_level > 0 then
4976: oe_debug_pub.ADD('New line added to a booked order,'
4977: || 'Logging delayed request for Verify Payment', 1);
4978: end if;
4979: l_verify_payment_flag := 'Y';
4980: END IF;
4985: NVL(p_x_line_rec.split_action_code,'X') = 'SPLIT' ) OR
4986: (p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE AND
4987: p_x_line_rec.split_from_line_id IS NOT NULL) THEN
4988: if l_debug_level > 0 then
4989: oe_debug_pub.ADD('Line is being Split, Suppress Verify Payment', 1);
4990: end if;
4991: l_verify_payment_flag := 'N';
4992: END IF;
4993:
4996: -- Log request only if the Line is NOT a RETURN.
4997: IF p_x_line_rec.line_category_code <> 'RETURN' THEN
4998: --
4999: if l_debug_level > 0 then
5000: oe_debug_pub.ADD('Logging delayed request for Verify Payment');
5001: end if;
5002: --
5003: OE_delayed_requests_Pvt.log_request
5004: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5057: AND OE_Commitment_Pvt.Do_Commitment_Sequencing
5058: AND l_update_commitment_applied <> 'Y' THEN
5059:
5060: if l_debug_level > 0 then
5061: oe_debug_pub.add('Logging delayed request for Commitment.', 2);
5062: end if;
5063: OE_Delayed_Requests_Pvt.Log_Request(
5064: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5065: p_entity_id => p_x_line_rec.line_id,
5083: IF (p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE AND
5084: NVL(p_x_line_rec.split_action_code,'X') = 'SPLIT' ) THEN
5085:
5086: if l_debug_level > 0 then
5087: oe_debug_pub.add('Logging delayed request for updating commitment for line '||p_x_line_rec.line_id, 2);
5088: end if;
5089:
5090: -- should log as ENTITY_ALL, as SPLIT is a batch mode
5091: OE_Delayed_Requests_Pvt.Log_Request(
5101: IF l_update_commitment_applied = 'Y'
5102: AND nvl(p_x_line_rec.transaction_phase_code,'F') = 'F' THEN
5103:
5104: if l_debug_level > 0 then
5105: oe_debug_pub.add('Logging delayed request for Commitment Applied Amount '|| p_x_line_rec.commitment_applied_amount, 3);
5106: oe_debug_pub.add('param2 is: '|| p_x_line_rec.header_id, 3);
5107: oe_debug_pub.add('param3 is: '|| p_x_line_rec.commitment_id, 3);
5108: end if;
5109: OE_Delayed_Requests_Pvt.Log_Request(
5102: AND nvl(p_x_line_rec.transaction_phase_code,'F') = 'F' THEN
5103:
5104: if l_debug_level > 0 then
5105: oe_debug_pub.add('Logging delayed request for Commitment Applied Amount '|| p_x_line_rec.commitment_applied_amount, 3);
5106: oe_debug_pub.add('param2 is: '|| p_x_line_rec.header_id, 3);
5107: oe_debug_pub.add('param3 is: '|| p_x_line_rec.commitment_id, 3);
5108: end if;
5109: OE_Delayed_Requests_Pvt.Log_Request(
5110: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5103:
5104: if l_debug_level > 0 then
5105: oe_debug_pub.add('Logging delayed request for Commitment Applied Amount '|| p_x_line_rec.commitment_applied_amount, 3);
5106: oe_debug_pub.add('param2 is: '|| p_x_line_rec.header_id, 3);
5107: oe_debug_pub.add('param3 is: '|| p_x_line_rec.commitment_id, 3);
5108: end if;
5109: OE_Delayed_Requests_Pvt.Log_Request(
5110: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5111: p_entity_id => p_x_line_rec.line_id,
5122: -- bug 2668298, Freight Rating.
5123: IF l_get_FTE_freight_rate = 'Y' THEN
5124:
5125: if l_debug_level > 0 then
5126: oe_debug_pub.add('Logging delayed request for freight rate: '||p_x_line_rec.header_id, 2);
5127: end if;
5128:
5129: OE_delayed_requests_Pvt.log_request
5130: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5177: OE_GLOBALS.g_recursion_mode = 'N' AND -- Bug 3379121
5178: OE_OE_FORM_CANCEL_LINE.g_ord_lvl_can THEN
5179:
5180: IF l_debug_level > 0 THEN
5181: oe_debug_pub.add('Line Ord Qty already 0, Calling Check_Constraints based on Order Cancel Global');
5182: END IF;
5183:
5184: OE_SALES_CAN_UTIL.Check_Constraints
5185: (p_x_line_rec => p_x_line_rec,
5229: from oe_price_adjustments where
5230: header_id = p_x_line_rec.header_id
5231: and LIST_LINE_TYPE_CODE = 'OM_CALLED_CHOOSE_SHIP_METHOD';
5232: if l_debug_level > 0 then
5233: oe_debug_pub.add( 'Value of fte count '||l_fte_count);
5234: end if;
5235: If l_fte_count > 0 Then
5236: --fnd_message.set_name('ONT','MY_MESSAGE');
5237: --OE_MSG_PUB.Add;
5253: AND p_x_line_rec.booked_flag = 'Y'
5254: AND p_x_line_rec.ordered_quantity <> 0 -- for bug 3421996
5255: THEN
5256: IF l_debug_level > 0 THEN
5257: oe_debug_pub.add( 'Calling OE_Acknowlegment_PUB.Apply_3A7_Hold', 2 ) ;
5258: END IF;
5259: OE_Acknowledgment_PUB.Apply_3A7_Hold
5260: ( p_header_id => p_x_line_rec.header_id
5261: , p_line_id => p_x_line_rec.line_id
5261: , p_line_id => p_x_line_rec.line_id
5262: , p_sold_to_org_id => p_x_line_rec.sold_to_org_id
5263: , x_return_status => l_return_status);
5264: IF l_debug_level > 0 THEN
5265: oe_debug_pub.add( 'Return status after call to apply_3a7_hold:' || l_return_status, 2 ) ;
5266: END IF;
5267: END IF; */
5268:
5269: /*Bug2848734 */
5280: END IF;
5281: /*Bug2848734*/
5282:
5283: if l_debug_level > 0 then
5284: oe_debug_pub.add('return status before exiting '|| p_x_line_rec.return_status, 1);
5285: oe_debug_pub.add('Exiting OE_LINE_UTIL.APPLY_ATTRIBUTE_CHANGES', 1);
5286: end if;
5287:
5288: END Apply_Attribute_Changes;
5281: /*Bug2848734*/
5282:
5283: if l_debug_level > 0 then
5284: oe_debug_pub.add('return status before exiting '|| p_x_line_rec.return_status, 1);
5285: oe_debug_pub.add('Exiting OE_LINE_UTIL.APPLY_ATTRIBUTE_CHANGES', 1);
5286: end if;
5287:
5288: END Apply_Attribute_Changes;
5289:
5297: ( p_x_line_rec IN OUT NOCOPY OE_Order_PUB.Line_Rec_Type
5298: , p_old_line_rec IN OE_Order_PUB.Line_Rec_Type
5299: )
5300: IS
5301: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5302: BEGIN
5303:
5304: IF l_debug_level > 0 THEN
5305: oe_debug_pub.add('Entering OE_LINE_UTIL.COMPLETE_RECORD', 1);
5301: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5302: BEGIN
5303:
5304: IF l_debug_level > 0 THEN
5305: oe_debug_pub.add('Entering OE_LINE_UTIL.COMPLETE_RECORD', 1);
5306: END IF;
5307:
5308: IF p_x_line_rec.accounting_rule_id = FND_API.G_MISS_NUM THEN
5309: p_x_line_rec.accounting_rule_id := p_old_line_rec.accounting_rule_id;
6552: END IF;
6553:
6554: IF p_x_line_rec.order_source_id = FND_API.G_MISS_NUM THEN
6555: if l_debug_level > 0 then
6556: oe_debug_pub.add('OEXULINB -aksingh complete_record - order_source_id');
6557: end if;
6558: p_x_line_rec.order_source_id := p_old_line_rec.order_source_id;
6559: END IF;
6560:
6724: END IF;
6725:
6726:
6727: if l_debug_level > 0 then
6728: oe_debug_pub.add('Exiting OE_LINE_UTIL.COMPLETE_RECORD', 1);
6729: end if;
6730:
6731: END Complete_Record;
6732:
6739: PROCEDURE Convert_Miss_To_Null
6740: ( p_x_line_rec IN OUT NOCOPY OE_Order_PUB.Line_Rec_Type
6741: )
6742: IS
6743: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6744: BEGIN
6745:
6746: if l_debug_level > 0 then
6747: oe_debug_pub.add('Entering OE_LINE_UTIL.CONVERT_MISS_TO_NULL', 1);
6743: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6744: BEGIN
6745:
6746: if l_debug_level > 0 then
6747: oe_debug_pub.add('Entering OE_LINE_UTIL.CONVERT_MISS_TO_NULL', 1);
6748:
6749: oe_debug_pub.add('outside margin convert miss to null',1);
6750: end if;
6751: --MRG BGN
6745:
6746: if l_debug_level > 0 then
6747: oe_debug_pub.add('Entering OE_LINE_UTIL.CONVERT_MISS_TO_NULL', 1);
6748:
6749: oe_debug_pub.add('outside margin convert miss to null',1);
6750: end if;
6751: --MRG BGN
6752: IF OE_FEATURES_PVT.Is_Margin_Avail Then
6753: if l_debug_level > 0 then
6750: end if;
6751: --MRG BGN
6752: IF OE_FEATURES_PVT.Is_Margin_Avail Then
6753: if l_debug_level > 0 then
6754: oe_debug_pub.add('inside margin convert miss to null',1);
6755: end if;
6756: IF p_x_line_rec.unit_cost = FND_API.G_MISS_NUM THEN
6757: p_x_line_rec.unit_cost := NULL;
6758: END IF;
7974: /* End of Marketing source code related */
7975:
7976: IF p_x_line_rec.order_source_id = FND_API.G_MISS_NUM THEN
7977: if l_debug_level > 0 then
7978: oe_debug_pub.add('OEXULIN-aksingh convert_miss_to_null - order_source_id');
7979: end if;
7980: p_x_line_rec.order_source_id := NULL;
7981: END IF;
7982:
8126: END IF;
8127: */
8128:
8129: if l_debug_level > 0 then
8130: oe_debug_pub.add('Exiting OE_LINE_UTIL.CONVERT_MISS_TO_NULL', 1);
8131: end if;
8132: END Convert_Miss_To_Null;
8133:
8134:
8145: l_lock_control NUMBER;
8146: l_index NUMBER;
8147: l_return_status VARCHAR2(1);
8148:
8149: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8150: BEGIN
8151:
8152: if l_debug_level > 0 then
8153: oe_debug_pub.add('Entering OE_LINE_UTIL.UPDATE_ROW', 1);
8149: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8150: BEGIN
8151:
8152: if l_debug_level > 0 then
8153: oe_debug_pub.add('Entering OE_LINE_UTIL.UPDATE_ROW', 1);
8154: end if;
8155: --Commented for MOAC start
8156: /*if l_org_id IS NULL THEN
8157: OE_GLOBALS.Set_Context;
8174: p_line_id => p_line_rec.line_id,
8175: x_index => l_index,
8176: x_return_status => l_return_status);
8177: if l_debug_level > 0 then
8178: OE_DEBUG_PUB.ADD('Update_Global Return Status from OE_LINE_UTIL.update_row is: ' || l_return_status);
8179: OE_DEBUG_PUB.ADD('JFC: Line Booked Status in OE_LINE_UTIL.update_row is: ' || p_line_rec.booked_flag);
8180: OE_DEBUG_PUB.ADD('JFC: Line Flow Status in OE_LINE_UTIL.update_row is: ' || p_line_rec.flow_status_code);
8181: end if;
8182: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8175: x_index => l_index,
8176: x_return_status => l_return_status);
8177: if l_debug_level > 0 then
8178: OE_DEBUG_PUB.ADD('Update_Global Return Status from OE_LINE_UTIL.update_row is: ' || l_return_status);
8179: OE_DEBUG_PUB.ADD('JFC: Line Booked Status in OE_LINE_UTIL.update_row is: ' || p_line_rec.booked_flag);
8180: OE_DEBUG_PUB.ADD('JFC: Line Flow Status in OE_LINE_UTIL.update_row is: ' || p_line_rec.flow_status_code);
8181: end if;
8182: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8183: if l_debug_level > 0 then
8176: x_return_status => l_return_status);
8177: if l_debug_level > 0 then
8178: OE_DEBUG_PUB.ADD('Update_Global Return Status from OE_LINE_UTIL.update_row is: ' || l_return_status);
8179: OE_DEBUG_PUB.ADD('JFC: Line Booked Status in OE_LINE_UTIL.update_row is: ' || p_line_rec.booked_flag);
8180: OE_DEBUG_PUB.ADD('JFC: Line Flow Status in OE_LINE_UTIL.update_row is: ' || p_line_rec.flow_status_code);
8181: end if;
8182: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8183: if l_debug_level > 0 then
8184: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
8180: OE_DEBUG_PUB.ADD('JFC: Line Flow Status in OE_LINE_UTIL.update_row is: ' || p_line_rec.flow_status_code);
8181: end if;
8182: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8183: if l_debug_level > 0 then
8184: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
8185: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.Update_ROW', 1);
8186: end if;
8187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8188: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8181: end if;
8182: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8183: if l_debug_level > 0 then
8184: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
8185: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.Update_ROW', 1);
8186: end if;
8187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8188: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8189: if l_debug_level > 0 then
8186: end if;
8187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8188: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8189: if l_debug_level > 0 then
8190: OE_DEBUG_PUB.ADD('Update_Global_Picture Error in OE_LINE_UTIL.Update_row');
8191: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.Update_ROW', 1);
8192: end if;
8193: RAISE FND_API.G_EXC_ERROR;
8194: END IF;
8187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8188: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8189: if l_debug_level > 0 then
8190: OE_DEBUG_PUB.ADD('Update_Global_Picture Error in OE_LINE_UTIL.Update_row');
8191: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.Update_ROW', 1);
8192: end if;
8193: RAISE FND_API.G_EXC_ERROR;
8194: END IF;
8195: END IF; /*code_release_level*/
8195: END IF; /*code_release_level*/
8196: -- notification framework end
8197:
8198: if l_debug_level > 0 then
8199: -- oe_debug_pub.add('Entering update'||to_char(l_org_id), 1);
8200: oe_debug_pub.add('arrivalset-'||to_char(p_line_rec.arrival_set_id), 1);
8201: oe_debug_pub.add('shipset-'||to_char(p_line_rec.ship_set_id), 1);
8202: end if;
8203: -- OPM 02/JUN/00 - Include process columns
8196: -- notification framework end
8197:
8198: if l_debug_level > 0 then
8199: -- oe_debug_pub.add('Entering update'||to_char(l_org_id), 1);
8200: oe_debug_pub.add('arrivalset-'||to_char(p_line_rec.arrival_set_id), 1);
8201: oe_debug_pub.add('shipset-'||to_char(p_line_rec.ship_set_id), 1);
8202: end if;
8203: -- OPM 02/JUN/00 - Include process columns
8204: -- (ordered_quantity2,ordered_quantity_uom2,preferred_grade)
8197:
8198: if l_debug_level > 0 then
8199: -- oe_debug_pub.add('Entering update'||to_char(l_org_id), 1);
8200: oe_debug_pub.add('arrivalset-'||to_char(p_line_rec.arrival_set_id), 1);
8201: oe_debug_pub.add('shipset-'||to_char(p_line_rec.ship_set_id), 1);
8202: end if;
8203: -- OPM 02/JUN/00 - Include process columns
8204: -- (ordered_quantity2,ordered_quantity_uom2,preferred_grade)
8205: UPDATE OE_ORDER_LINES
8572:
8573: p_line_rec.lock_control := l_lock_control;
8574:
8575: if l_debug_level > 0 then
8576: oe_debug_pub.add('Exiting OE_LINE_UTIL.UPDATE_ROW', 1);
8577: end if;
8578:
8579: EXCEPTION
8580:
8609: l_lock_control NUMBER:= 1;
8610: l_index NUMBER;
8611: l_return_status VARCHAR2(1);
8612:
8613: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8614: --bug 4446805
8615: l_price_request_code VARCHAR2(240);
8616: BEGIN
8617:
8615: l_price_request_code VARCHAR2(240);
8616: BEGIN
8617:
8618: if l_debug_level > 0 then
8619: oe_debug_pub.add('Entering OE_LINE_UTIL.INSERT_ROW', 1);
8620: end if;
8621:
8622: --MOAC change
8623: OE_GLOBALS.Set_Context;
8624: l_org_id := OE_GLOBALS.G_ORG_ID;
8625: IF l_org_id IS NULL THEN
8626: -- org_id is null, don't do insert. raise an error.
8627: IF l_debug_level > 0 then
8628: oe_debug_pub.ADD('Org_Id is NULL',1);
8629: END IF;
8630: FND_MESSAGE.SET_NAME('FND','MO_ORG_REQUIRED');
8631: FND_MSG_PUB.ADD;
8632: RAISE FND_API.G_EXC_ERROR;
9409: p_line_id => p_line_rec.line_id,
9410: x_index => l_index,
9411: x_return_status => l_return_status);
9412: if l_debug_level > 0 then
9413: OE_DEBUG_PUB.ADD('Update_Global Return Status from OE_LINE_UTIL.inset_row is: ' || l_return_status);
9414: OE_DEBUG_PUB.ADD('returned index is: ' || l_index ,1);
9415: end if;
9416: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9417: if l_debug_level > 0 then
9410: x_index => l_index,
9411: x_return_status => l_return_status);
9412: if l_debug_level > 0 then
9413: OE_DEBUG_PUB.ADD('Update_Global Return Status from OE_LINE_UTIL.inset_row is: ' || l_return_status);
9414: OE_DEBUG_PUB.ADD('returned index is: ' || l_index ,1);
9415: end if;
9416: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9417: if l_debug_level > 0 then
9418: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
9414: OE_DEBUG_PUB.ADD('returned index is: ' || l_index ,1);
9415: end if;
9416: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9417: if l_debug_level > 0 then
9418: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
9419: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.insert_ROW', 1);
9420: end if;
9421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9422: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9415: end if;
9416: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9417: if l_debug_level > 0 then
9418: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
9419: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.insert_ROW', 1);
9420: end if;
9421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9422: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9423: if l_debug_level > 0 then
9420: end if;
9421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9422: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9423: if l_debug_level > 0 then
9424: OE_DEBUG_PUB.ADD('Update_Global_Picture Error in OE_LINE_UTIL.insert_row');
9425: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.insert_ROW', 1);
9426: end if;
9427: RAISE FND_API.G_EXC_ERROR;
9428: END IF;
9421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9422: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9423: if l_debug_level > 0 then
9424: OE_DEBUG_PUB.ADD('Update_Global_Picture Error in OE_LINE_UTIL.insert_row');
9425: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.insert_ROW', 1);
9426: end if;
9427: RAISE FND_API.G_EXC_ERROR;
9428: END IF;
9429: END IF; /*code_release_code*/
9429: END IF; /*code_release_code*/
9430: -- notification framework end
9431:
9432: if l_debug_level > 0 then
9433: oe_debug_pub.add('Exiting OE_LINE_UTIL.INSERT_ROW', 1);
9434: end if;
9435:
9436: EXCEPTION
9437:
9481: l_price_request_code varchar2(240); -- BUG 2670775 Reverse Limits
9482: l_transaction_phase_code varchar2(30);
9483: l_header_id NUMBER;
9484: l_data VARCHAR2(1);
9485: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
9486:
9487: -- BUG 2670775 - Add ordered_quantity,price_request_code to select list
9488: CURSOR order_line IS
9489: SELECT line_id, item_type_code,
9506: AND service_reference_type_code = 'ORDER'; --bug 3056313
9507:
9508: BEGIN
9509:
9510: oe_debug_pub.add('Entering OE_LINE_UTIL.DELETE_ROW', 1);
9511: --Commented for MOAC start
9512: /*l_org_id := OE_GLOBALS.G_ORG_ID;
9513:
9514: IF l_org_id IS NULL THEN
9515: OE_GLOBALS.Set_Context;
9516: l_org_id := OE_GLOBALS.G_ORG_ID;
9517: END IF;
9518:
9519: oe_debug_pub.add('Entering delete '||to_char(l_org_id), 1); */
9520: --Commented for MOAC end
9521: IF p_header_id <> FND_API.G_MISS_NUM THEN
9522: FOR l_line IN order_line
9523: LOOP
9524:
9525: --added for notification framework
9526: --check code release level first. Notification framework is at Pack H level
9527: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
9528: oe_debug_pub.add('JFC: in delete row, l_line_id'|| l_line.line_id , 1);
9529: /* Set the operation on the record so that globals are updated as well */
9530: l_new_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
9531: l_new_line_rec.line_id :=l_line.line_id;
9532: OE_ORDER_UTIL.Update_Global_Picture(p_Upd_New_Rec_If_Exists => True,
9533: p_line_rec =>l_new_line_rec,
9534: p_line_id =>l_line.line_id,
9535: x_index => l_index,
9536: x_return_status => l_return_status);
9537: OE_DEBUG_PUB.ADD('Update_Global Return Status from OE_LINE_UTIL.delete_row is: ' || l_return_status);
9538: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9539: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
9540: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.DELETE_ROW', 1);
9541: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9535: x_index => l_index,
9536: x_return_status => l_return_status);
9537: OE_DEBUG_PUB.ADD('Update_Global Return Status from OE_LINE_UTIL.delete_row is: ' || l_return_status);
9538: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9539: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
9540: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.DELETE_ROW', 1);
9541: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9542: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9543: OE_DEBUG_PUB.ADD('Update_Global_Picture Error in OE_LINE_UTIL.Delete_row');
9536: x_return_status => l_return_status);
9537: OE_DEBUG_PUB.ADD('Update_Global Return Status from OE_LINE_UTIL.delete_row is: ' || l_return_status);
9538: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9539: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
9540: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.DELETE_ROW', 1);
9541: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9542: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9543: OE_DEBUG_PUB.ADD('Update_Global_Picture Error in OE_LINE_UTIL.Delete_row');
9544: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.DELETE_ROW', 1);
9539: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
9540: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.DELETE_ROW', 1);
9541: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9542: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9543: OE_DEBUG_PUB.ADD('Update_Global_Picture Error in OE_LINE_UTIL.Delete_row');
9544: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.DELETE_ROW', 1);
9545: RAISE FND_API.G_EXC_ERROR;
9546: END IF;
9547: END IF; /*code_release_level*/
9540: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.DELETE_ROW', 1);
9541: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9542: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9543: OE_DEBUG_PUB.ADD('Update_Global_Picture Error in OE_LINE_UTIL.Delete_row');
9544: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.DELETE_ROW', 1);
9545: RAISE FND_API.G_EXC_ERROR;
9546: END IF;
9547: END IF; /*code_release_level*/
9548: -- notification framework end
9566: l_ordered_quantity := l_line.ordered_quantity; -- BUG 2670775 Reverse Limits
9567: l_price_request_code := l_line.price_request_code; -- BUG 2670775 Reverse Limits
9568: l_transaction_phase_code := l_line.transaction_phase_code;
9569:
9570: oe_debug_pub.add(' Header - Before delete dependent');
9571:
9572: Delete_Dependents
9573: ( p_line_id => l_line_id
9574: ,p_item_type_code => l_item_type_code
9593: WHERE HEADER_ID = p_header_id;
9594: /* AND NVL(ORG_ID,NVL(l_org_id,0))= NVL(l_org_id,0);*/
9595:
9596: ELSE -- header_id is missing.
9597: oe_debug_pub.add('hdr missing delete_row,line_id: '||p_line_id, 1);
9598:
9599: oe_line_util.query_row
9600: (p_line_id => p_line_id
9601: ,x_line_rec => l_line_rec );
9604:
9605: IF l_line_rec.ITEM_TYPE_CODE = 'MODEL' OR
9606: (l_line_rec.ITEM_TYPE_CODE = 'KIT' AND
9607: l_line_rec.top_model_line_id = l_line_rec.line_id) THEN
9608: oe_debug_pub.add('Entering - MODEL', 1);
9609:
9610: -- BUG 2670775 Reverse Limits - add ordered_quantity,price_request_code to select
9611: lsqlstmt := 'Select line_id, item_type_code, line_category_code,
9612: config_header_id, config_rev_nbr,
9623: p_line_id,
9624: l_in_line_id;
9625:
9626: lvariable1 := 'TOP_MODEL';
9627: oe_debug_pub.add('end of loop for OPEN MODEL', 1);
9628:
9629: END IF; -- if top level model.
9630:
9631:
9630:
9631:
9632: IF llinetbl%ISOPEN THEN
9633: LOOP
9634: oe_debug_pub.add('Entering model LOOP', 1);
9635:
9636: FETCH llinetbl INTO l_line_id,l_item_type_code,
9637: l_line_category_code,l_config_header_id,
9638: l_config_rev_nbr,l_schedule_status_code,
9640: l_ordered_quantity, l_price_request_code; -- BUG 2670775 Reverse Limits
9641:
9642: EXIT WHEN llinetbl%NOTFOUND;
9643:
9644: oe_debug_pub.add('After Fetch -IN LOOP', 1);
9645: -- Keep all your dependencies in Delete Dependents Procedure
9646:
9647: oe_debug_pub.add(' model - Before delete dependent' || l_line_id);
9648:
9643:
9644: oe_debug_pub.add('After Fetch -IN LOOP', 1);
9645: -- Keep all your dependencies in Delete Dependents Procedure
9646:
9647: oe_debug_pub.add(' model - Before delete dependent' || l_line_id);
9648:
9649: Delete_Dependents
9650: ( p_line_id => l_line_id
9651: ,p_item_type_code => l_item_type_code
9682: ,l_ordered_quantity, l_price_request_code; -- BUG 2670775 Reverse Limits
9683:
9684: EXIT WHEN llinetbl_svc%NOTFOUND;
9685:
9686: oe_debug_pub.add('Service - Before delete dependent' || l_line_id);
9687:
9688: Delete_Dependents
9689: ( p_line_id => l_line_id
9690: ,p_item_type_code => l_item_type_code
9724:
9725: /* Remove the Parent Line and sub entities Here */
9726: /* Keep all your dependencies in Delete Dependents Procedure */
9727:
9728: oe_debug_pub.add('calling delete dep for the line', 1);
9729: Delete_Dependents
9730: ( p_line_id => l_line_rec.line_id
9731: ,p_item_type_code => l_line_rec.item_type_code
9732: ,p_line_category_code => l_line_rec.line_category_code
9749: END IF;
9750: END IF;
9751:
9752: /* Delete all the dependents for service line */
9753: oe_debug_pub.add('Item Type for delete: ' || l_line_rec.item_type_code);
9754:
9755: /* When a standard line is being deleted, check if it has any service */
9756: /* lines attached to it. If so, get the line_id of the service line and */
9757: /* use this to delete the dependents */
9778: ,l_ordered_quantity ,l_price_request_code ; -- BUG 2670775 Reverse Limits
9779:
9780: EXIT WHEN llinetbl%NOTFOUND;
9781:
9782: oe_debug_pub.add('Service - Before delete dependent' || l_line_id);
9783:
9784: Delete_Dependents
9785: ( p_line_id => l_line_id
9786: ,p_item_type_code => l_item_type_code
9816:
9817:
9818: --added for notification framework to update global picture for standard line
9819: --check code release level first. Notification framework is at Pack H level
9820: oe_debug_pub.add('JPN: Delete all lines now');
9821: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
9822: /* Set the operation on the record so that globals are updated as well */
9823: l_new_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
9824: l_new_line_rec.line_id :=l_line_rec.line_id;
9828: p_line_rec =>l_new_line_rec,
9829: p_line_id =>l_line_rec.line_id,
9830: x_index => l_index,
9831: x_return_status => l_return_status);
9832: OE_DEBUG_PUB.ADD('Update_Global Return Status from OE_LINE_UTIL.delete_row for deleting standard line is: ' || l_return_status);
9833: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9834: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
9835: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.DELETE_ROW', 1);
9836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9830: x_index => l_index,
9831: x_return_status => l_return_status);
9832: OE_DEBUG_PUB.ADD('Update_Global Return Status from OE_LINE_UTIL.delete_row for deleting standard line is: ' || l_return_status);
9833: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9834: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
9835: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.DELETE_ROW', 1);
9836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9837: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9838: OE_DEBUG_PUB.ADD('Update_Global_Picture Error in OE_LINE_UTIL.Delete_row');
9831: x_return_status => l_return_status);
9832: OE_DEBUG_PUB.ADD('Update_Global Return Status from OE_LINE_UTIL.delete_row for deleting standard line is: ' || l_return_status);
9833: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9834: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
9835: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.DELETE_ROW', 1);
9836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9837: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9838: OE_DEBUG_PUB.ADD('Update_Global_Picture Error in OE_LINE_UTIL.Delete_row');
9839: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.DELETE_ROW', 1);
9834: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
9835: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.DELETE_ROW', 1);
9836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9837: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9838: OE_DEBUG_PUB.ADD('Update_Global_Picture Error in OE_LINE_UTIL.Delete_row');
9839: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.DELETE_ROW', 1);
9840: RAISE FND_API.G_EXC_ERROR;
9841: END IF;
9842: END IF; /*code_release_level*/
9835: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.DELETE_ROW', 1);
9836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9837: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9838: OE_DEBUG_PUB.ADD('Update_Global_Picture Error in OE_LINE_UTIL.Delete_row');
9839: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.DELETE_ROW', 1);
9840: RAISE FND_API.G_EXC_ERROR;
9841: END IF;
9842: END IF; /*code_release_level*/
9843: -- notification framework end
9852: --check code release level first. Notification framework is at Pack H level
9853: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
9854: FOR l_svc IN svc_line
9855: LOOP
9856: oe_debug_pub.add('JFC: in delete row, service line_id= '|| l_svc.line_id , 1);
9857: /* Set the operation on the record so that globals are updated as well */
9858: l_new_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
9859: l_new_line_rec.line_id :=l_svc.line_id;
9860: OE_ORDER_UTIL.Update_Global_Picture(p_Upd_New_Rec_If_Exists => True,
9862: p_line_id =>l_svc.line_id,
9863: x_index => l_index,
9864: x_return_status => l_return_status);
9865:
9866: OE_DEBUG_PUB.ADD('Update_Global Return Status from OE_LINE_UTIL.delete_row for deleting service line is: ' || l_return_status);
9867: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9868: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
9869: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.DELETE_ROW', 1);
9870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9864: x_return_status => l_return_status);
9865:
9866: OE_DEBUG_PUB.ADD('Update_Global Return Status from OE_LINE_UTIL.delete_row for deleting service line is: ' || l_return_status);
9867: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9868: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
9869: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.DELETE_ROW', 1);
9870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9871: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9872: OE_DEBUG_PUB.ADD('Update_Global_Picture Error in OE_LINE_UTIL.Delete_row');
9865:
9866: OE_DEBUG_PUB.ADD('Update_Global Return Status from OE_LINE_UTIL.delete_row for deleting service line is: ' || l_return_status);
9867: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9868: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
9869: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.DELETE_ROW', 1);
9870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9871: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9872: OE_DEBUG_PUB.ADD('Update_Global_Picture Error in OE_LINE_UTIL.Delete_row');
9873: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.DELETE_ROW', 1);
9868: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
9869: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.DELETE_ROW', 1);
9870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9871: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9872: OE_DEBUG_PUB.ADD('Update_Global_Picture Error in OE_LINE_UTIL.Delete_row');
9873: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.DELETE_ROW', 1);
9874: RAISE FND_API.G_EXC_ERROR;
9875: END IF;
9876: END LOOP;
9869: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.DELETE_ROW', 1);
9870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9871: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9872: OE_DEBUG_PUB.ADD('Update_Global_Picture Error in OE_LINE_UTIL.Delete_row');
9873: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.DELETE_ROW', 1);
9874: RAISE FND_API.G_EXC_ERROR;
9875: END IF;
9876: END LOOP;
9877: END IF; /*code_release_level*/
9893: WSH_DCP_PVT.G_INIT_MSG_COUNT := fnd_msg_pub.count_msg;
9894:
9895: BEGIN
9896: IF l_debug_level > 0 THEN
9897: oe_debug_pub.add(p_header_id ||'-----' || l_line_rec.header_id, 1);
9898: END IF;
9899:
9900: WSH_DCP_PVT.g_dc_table.DELETE;
9901:
9906: l_header_id := p_header_id;
9907: END IF;
9908:
9909: IF l_debug_level > 0 THEN
9910: oe_debug_pub.add('CALLING WSH_DCP_PVT.Check_Scripts '
9911: ||'from delete row-'|| l_header_id, 1);
9912: END IF;
9913:
9914: WSH_DCP_PVT.Check_Scripts
9915: ( p_source_header_id => l_header_id
9916: ,x_data_inconsistent => l_data);
9917:
9918: IF l_debug_level > 0 THEN
9919: oe_debug_pub.add
9920: ('CALLING WSH_DCP_PVT.Post_Process '|| l_data, 1);
9921: END IF;
9922:
9923: WSH_DCP_PVT.Post_Process
9926:
9927: EXCEPTION
9928: WHEN WSH_DCP_PVT.dcp_caught THEN
9929: IF l_debug_level > 0 THEN
9930: oe_debug_pub.add('OM call to WSH DCP Caught in delete', 1);
9931: END IF;
9932:
9933: WHEN others THEN
9934: IF l_debug_level > 0 THEN
9933: WHEN others THEN
9934: IF l_debug_level > 0 THEN
9935: oe_msg_pub.add_text
9936: ('Update_Shipping_From_OE, DCP post process'|| sqlerrm);
9937: oe_debug_pub.add('OM call to WSH DCP,others '|| sqlerrm, 1);
9938: END IF;
9939: END;
9940: END IF; -- profile is yes
9941:
9938: END IF;
9939: END;
9940: END IF; -- profile is yes
9941:
9942: oe_debug_pub.add('Exiting OE_LINE_UTIL.DELETE_ROW', 1);
9943:
9944: EXCEPTION
9945: WHEN FND_API.G_EXC_ERROR THEN
9946: RAISE FND_API.G_EXC_ERROR ;
10342: , REVREC_IMPLICIT_FLAG
10343: FROM OE_ORDER_LINES_ALL -- Fix for FP bug 3391622
10344: WHERE LINE_ID = p_line_id;
10345:
10346: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
10347:
10348: BEGIN
10349:
10350: IF l_debug_level > 0 THEN
10347:
10348: BEGIN
10349:
10350: IF l_debug_level > 0 THEN
10351: oe_debug_pub.add('Entering OE_LINE_UTIL.QUERY_ROW, line_id:'||p_line_id, 1);
10352: END IF;
10353:
10354:
10355: OPEN l_line_csr;
10709: --Added for bug5068941 end
10710:
10711: If NOT OE_FEATURES_PVT.Is_Margin_Avail Then
10712: IF l_debug_level > 0 THEN
10713: oe_debug_pub.add('inside margin ',1);
10714: END IF;
10715: x_line_rec.unit_cost:= NULL;
10716: End If;
10717:
10733:
10734: CLOSE l_line_csr;
10735:
10736: IF l_debug_level > 0 THEN
10737: oe_debug_pub.add('Exiting OE_LINE_UTIL.QUERY_ROW', 1);
10738: END IF;
10739:
10740:
10741: EXCEPTION
11544: l_SVN NUMBER;
11545:
11546:
11547: --
11548: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
11549: --
11550: l_line_rec OE_ORDER_PUB.line_rec_type;
11551: BEGIN
11552:
11550: l_line_rec OE_ORDER_PUB.line_rec_type;
11551: BEGIN
11552:
11553: IF l_debug_level > 0 THEN
11554: oe_debug_pub.add('Entering OE_LINE_UTIL.QUERY_ROWS, line_id:'||p_line_id, 1);
11555: END IF;
11556:
11557: IF
11558: (p_line_id IS NOT NULL
11606: OE_GLOBALS.Set_Context;
11607: l_org_id := OE_GLOBALS.G_ORG_ID;
11608: end if;
11609: IF l_debug_level > 0 THEN
11610: oe_debug_pub.add('Entering '||to_char(l_org_id), 1);
11611: END IF;*/
11612: --Commented for MOAC end
11613:
11614: -- Loop over fetched records
12368:
12369:
12370: -- Return fetched table
12371: IF l_debug_level > 0 THEN
12372: oe_debug_pub.add('Exiting OE_LINE_UTIL.QUERY_ROWS', 1);
12373: END IF;
12374:
12375: EXCEPTION
12376:
12375: EXCEPTION
12376:
12377: WHEN NO_DATA_FOUND THEN
12378: IF l_debug_level > 0 THEN
12379: oe_debug_pub.add('Inside no data found ', 1);
12380: END IF;
12381:
12382: RAISE NO_DATA_FOUND;
12383:
12384: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12385:
12386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12387: IF l_debug_level > 0 THEN
12388: oe_debug_pub.add('Inside Unexpected error ', 1);
12389: END IF;
12390:
12391: WHEN OTHERS THEN
12392:
12397: , 'Query_Rows'
12398: );
12399: END IF;
12400: IF l_debug_level > 0 THEN
12401: oe_debug_pub.add('Inside Others Exception ', 1);
12402: END IF;
12403:
12404: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12405:
12439: FROM oe_order_lines_all
12440: WHERE line_id IN (c_top_model_line_id, c_line_id)
12441: FOR UPDATE NOWAIT ;
12442: --
12443: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
12444: --
12445: BEGIN
12446:
12447: IF l_debug_level > 0 THEN
12444: --
12445: BEGIN
12446:
12447: IF l_debug_level > 0 THEN
12448: oe_debug_pub.add('Entering OE_LINE_UTIL.LOCK_ROW', 1);
12449: END IF;
12450:
12451: SAVEPOINT Lock_Row;
12452:
12463: ELSE
12464: l_line_id := p_x_line_rec.line_id;
12465: l_lock_control := p_x_line_rec.lock_control;
12466: IF l_debug_level > 0 THEN
12467: oe_debug_pub.add('in lock_control: '|| l_lock_control, 1);
12468: END IF;
12469: END IF;
12470:
12471: -- this code is for configurations. Whenever someone
12494: AND
12495: p_x_line_rec.top_model_line_id is not null THEN
12496: l_top_model_line_id := p_x_line_rec.top_model_line_id;
12497: IF l_debug_level > 0 THEN
12498: oe_debug_pub.add('get top_model_line_id from the record' );
12499: END IF ;
12500: ELSE
12501: SELECT top_model_line_id
12502: INTO l_top_model_line_id
12503: FROM OE_ORDER_LINES_ALL -- Fix for FP bug 3391622
12504: WHERE line_id = l_line_id;
12505:
12506: IF l_debug_level > 0 THEN
12507: oe_debug_pub.add('get top_model_line_id from the query' );
12508: END IF ;
12509: END IF;
12510: -- end bug 4344310
12511:
12509: END IF;
12510: -- end bug 4344310
12511:
12512: IF l_debug_level > 0 THEN
12513: oe_debug_pub.add('got top model line id', 1);
12514: END IF;
12515:
12516: BEGIN
12517:
12519: l_top_model_line_id <> FND_API.G_MISS_NUM AND
12520: l_top_model_line_id <> l_line_id THEN
12521:
12522: IF l_debug_level > 0 THEN
12523: oe_debug_pub.add('trying to lock model: '|| p_line_id, 1);
12524: END IF;
12525:
12526: -- changes for bug 4344310
12527: /* SELECT line_id
12545: FOR UPDATE NOWAIT;
12546: END IF;
12547: --end bug 4344310
12548: IF l_debug_level > 0 THEN
12549: oe_debug_pub.add('lock model successful ', 1);
12550: END IF;
12551:
12552: EXCEPTION
12553:
12553:
12554: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
12555: -- some one else is currently working on this model
12556: IF l_debug_level > 0 THEN
12557: oe_debug_pub.add('in lock model exception');
12558: END IF;
12559:
12560: FND_MESSAGE.Set_Name('ONT', 'OE_LINE_LOCKED');
12561: OE_MSG_PUB.Add;
12563: RAISE CAN_NOT_LOCK_MODEL;
12564:
12565: WHEN NO_DATA_FOUND THEN
12566: IF l_debug_level > 0 THEN
12567: oe_debug_pub.add('no_data_found, model lock exception');
12568: END IF;
12569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12570:
12571: WHEN OTHERS THEN
12569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12570:
12571: WHEN OTHERS THEN
12572: IF l_debug_level > 0 THEN
12573: oe_debug_pub.add('model lock exception, others');
12574: oe_debug_pub.add('options: '|| l_line_id , 1);
12575: oe_debug_pub.add('lock model successful: '|| l_top_model_line_id, 1);
12576: END IF;
12577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12570:
12571: WHEN OTHERS THEN
12572: IF l_debug_level > 0 THEN
12573: oe_debug_pub.add('model lock exception, others');
12574: oe_debug_pub.add('options: '|| l_line_id , 1);
12575: oe_debug_pub.add('lock model successful: '|| l_top_model_line_id, 1);
12576: END IF;
12577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12578: END;
12571: WHEN OTHERS THEN
12572: IF l_debug_level > 0 THEN
12573: oe_debug_pub.add('model lock exception, others');
12574: oe_debug_pub.add('options: '|| l_line_id , 1);
12575: oe_debug_pub.add('lock model successful: '|| l_top_model_line_id, 1);
12576: END IF;
12577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12578: END;
12579:
12578: END;
12579:
12580:
12581: IF l_debug_level > 0 THEN
12582: oe_debug_pub.add(' ', 1);
12583: END IF;
12584:
12585: --commented out for bug 4344310
12586: /*SELECT line_id,lock_control
12589: WHERE line_id = l_line_id
12590: FOR UPDATE NOWAIT; */
12591:
12592: IF l_debug_level > 0 THEN
12593: oe_debug_pub.add('selected for update', 1);
12594: oe_debug_pub.add('queried lock_control: '|| l_db_lock_control, 1);
12595: END IF;
12596:
12597: IF l_lock_control IS NULL
12590: FOR UPDATE NOWAIT; */
12591:
12592: IF l_debug_level > 0 THEN
12593: oe_debug_pub.add('selected for update', 1);
12594: oe_debug_pub.add('queried lock_control: '|| l_db_lock_control, 1);
12595: END IF;
12596:
12597: IF l_lock_control IS NULL
12598: OR (l_lock_control <> l_db_lock_control)
12605:
12606: END IF;
12607:
12608: IF l_debug_level > 0 THEN
12609: oe_debug_pub.add('queried lock_control: '|| p_x_line_rec.lock_control, 1);
12610: END IF;
12611:
12612: -- If lock_control is not passed(is null or missing), then return the locked record.
12613:
12628: -- Row locked. If the whole record is passed, then
12629: -- Compare IN attributes to DB attributes.
12630:
12631: IF l_debug_level > 0 THEN
12632: oe_debug_pub.add('compare ', 1);
12633: END IF;
12634:
12635: -- following constants are used to debug lock_order,
12636: -- please do not use them for any other purpose.
12646:
12647: -- Row has not changed. Set out parameter.
12648:
12649: IF l_debug_level > 0 THEN
12650: oe_debug_pub.add('locked row', 1);
12651: END IF;
12652:
12653: -- Set return status
12654:
12658: ELSE
12659:
12660: -- Row has changed by another user.
12661: IF l_debug_level > 0 THEN
12662: oe_debug_pub.add('row changed by other user', 1);
12663: END IF;
12664:
12665: x_return_status := FND_API.G_RET_STS_ERROR;
12666: p_x_line_rec.return_status := FND_API.G_RET_STS_ERROR;
12680:
12681: OE_GLOBALS.G_LOCK_TEST := 'N';
12682:
12683: IF l_debug_level > 0 THEN
12684: oe_debug_pub.add('Exiting OE_LINE_UTIL.LOCK_ROW', 1);
12685: oe_debug_pub.add(' ', 1);
12686: oe_debug_pub.add('lock const: '|| oe_globals.g_lock_const, 1);
12687: END IF;
12688:
12681: OE_GLOBALS.G_LOCK_TEST := 'N';
12682:
12683: IF l_debug_level > 0 THEN
12684: oe_debug_pub.add('Exiting OE_LINE_UTIL.LOCK_ROW', 1);
12685: oe_debug_pub.add(' ', 1);
12686: oe_debug_pub.add('lock const: '|| oe_globals.g_lock_const, 1);
12687: END IF;
12688:
12689: EXCEPTION
12682:
12683: IF l_debug_level > 0 THEN
12684: oe_debug_pub.add('Exiting OE_LINE_UTIL.LOCK_ROW', 1);
12685: oe_debug_pub.add(' ', 1);
12686: oe_debug_pub.add('lock const: '|| oe_globals.g_lock_const, 1);
12687: END IF;
12688:
12689: EXCEPTION
12690:
12690:
12691: WHEN CAN_NOT_LOCK_MODEL THEN
12692: OE_GLOBALS.G_LOCK_TEST := 'N';
12693: IF l_debug_level > 0 THEN
12694: oe_debug_pub.add('model locking exception', 1);
12695: END IF;
12696: x_return_status := FND_API.G_RET_STS_ERROR;
12697: p_x_line_rec.return_status := FND_API.G_RET_STS_ERROR;
12698:
12757: FOR UPDATE NOWAIT;
12758:
12759: l_line_id NUMBER;
12760:
12761: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
12762: BEGIN
12763:
12764: IF (p_line_id IS NOT NULL AND
12765: p_line_id <> FND_API.G_MISS_NUM) AND
12826: ,x_line_tbl => x_line_tbl
12827: );
12828:
12829: IF l_debug_level > 0 THEN
12830: oe_debug_pub.add('Entering OE_LINE_UTIL.QUERY_ROWS', 1);
12831: END IF;
12832:
12833: x_return_status := FND_API.G_RET_STS_SUCCESS;
12834:
12879: l_customer_number VARCHAR2(30);
12880: l_line_val_rec OE_Order_PUB.Line_Val_Rec_Type;
12881: l_organization_id NUMBER := OE_SYS_PARAMETERS.VALUE('MASTER_ORGANIZATION_ID');
12882:
12883: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
12884: BEGIN
12885:
12886: if l_debug_level > 0 then
12887: OE_DEBUG_PUB.add('Entering OE_LINE_UTIL.Get_Values');
12883: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
12884: BEGIN
12885:
12886: if l_debug_level > 0 then
12887: OE_DEBUG_PUB.add('Entering OE_LINE_UTIL.Get_Values');
12888: end if;
12889:
12890: IF (p_line_rec.calculate_price_flag IS NULL OR
12891: p_line_rec.calculate_price_flag <> FND_API.G_MISS_CHAR) AND
12895: l_line_val_rec.calculate_price_descr := OE_Id_To_Value.Calculate_price_Flag ( p_calculate_price_flag => p_line_rec.calculate_price_flag
12896: );
12897:
12898: if l_debug_level > 0 then
12899: oe_debug_pub.add('Geresh ' || l_line_val_rec.calculate_price_descr );
12900: end if;
12901: END IF;
12902:
12903:
13534: END IF;
13535: --
13536:
13537: if l_debug_level > 0 then
13538: oe_debug_pub.add('original item identifier type='||p_line_rec.original_item_identifier_type);
13539: oe_debug_pub.add('original ordered item ' ||p_line_rec.original_ordered_item);
13540: oe_debug_pub.add('original inventory item id ' ||p_line_rec.original_inventory_item_id);
13541: oe_debug_pub.add('original ordered_item id '||p_line_rec.original_ordered_item_id);
13542: oe_debug_pub.add('item relationship type '||p_line_rec.item_relationship_type);
13535: --
13536:
13537: if l_debug_level > 0 then
13538: oe_debug_pub.add('original item identifier type='||p_line_rec.original_item_identifier_type);
13539: oe_debug_pub.add('original ordered item ' ||p_line_rec.original_ordered_item);
13540: oe_debug_pub.add('original inventory item id ' ||p_line_rec.original_inventory_item_id);
13541: oe_debug_pub.add('original ordered_item id '||p_line_rec.original_ordered_item_id);
13542: oe_debug_pub.add('item relationship type '||p_line_rec.item_relationship_type);
13543: oe_debug_pub.add('original inventory item'||l_line_val_rec.original_inventory_item);
13536:
13537: if l_debug_level > 0 then
13538: oe_debug_pub.add('original item identifier type='||p_line_rec.original_item_identifier_type);
13539: oe_debug_pub.add('original ordered item ' ||p_line_rec.original_ordered_item);
13540: oe_debug_pub.add('original inventory item id ' ||p_line_rec.original_inventory_item_id);
13541: oe_debug_pub.add('original ordered_item id '||p_line_rec.original_ordered_item_id);
13542: oe_debug_pub.add('item relationship type '||p_line_rec.item_relationship_type);
13543: oe_debug_pub.add('original inventory item'||l_line_val_rec.original_inventory_item);
13544: oe_debug_pub.add('original ordered item'||l_line_val_rec.original_ordered_item);
13537: if l_debug_level > 0 then
13538: oe_debug_pub.add('original item identifier type='||p_line_rec.original_item_identifier_type);
13539: oe_debug_pub.add('original ordered item ' ||p_line_rec.original_ordered_item);
13540: oe_debug_pub.add('original inventory item id ' ||p_line_rec.original_inventory_item_id);
13541: oe_debug_pub.add('original ordered_item id '||p_line_rec.original_ordered_item_id);
13542: oe_debug_pub.add('item relationship type '||p_line_rec.item_relationship_type);
13543: oe_debug_pub.add('original inventory item'||l_line_val_rec.original_inventory_item);
13544: oe_debug_pub.add('original ordered item'||l_line_val_rec.original_ordered_item);
13545: oe_debug_pub.add('original original item ident type'||l_line_val_rec.original_item_identifier_type);
13538: oe_debug_pub.add('original item identifier type='||p_line_rec.original_item_identifier_type);
13539: oe_debug_pub.add('original ordered item ' ||p_line_rec.original_ordered_item);
13540: oe_debug_pub.add('original inventory item id ' ||p_line_rec.original_inventory_item_id);
13541: oe_debug_pub.add('original ordered_item id '||p_line_rec.original_ordered_item_id);
13542: oe_debug_pub.add('item relationship type '||p_line_rec.item_relationship_type);
13543: oe_debug_pub.add('original inventory item'||l_line_val_rec.original_inventory_item);
13544: oe_debug_pub.add('original ordered item'||l_line_val_rec.original_ordered_item);
13545: oe_debug_pub.add('original original item ident type'||l_line_val_rec.original_item_identifier_type);
13546: oe_debug_pub.add('item relationship type dsp='||l_line_val_rec.item_relationship_type_dsp);
13539: oe_debug_pub.add('original ordered item ' ||p_line_rec.original_ordered_item);
13540: oe_debug_pub.add('original inventory item id ' ||p_line_rec.original_inventory_item_id);
13541: oe_debug_pub.add('original ordered_item id '||p_line_rec.original_ordered_item_id);
13542: oe_debug_pub.add('item relationship type '||p_line_rec.item_relationship_type);
13543: oe_debug_pub.add('original inventory item'||l_line_val_rec.original_inventory_item);
13544: oe_debug_pub.add('original ordered item'||l_line_val_rec.original_ordered_item);
13545: oe_debug_pub.add('original original item ident type'||l_line_val_rec.original_item_identifier_type);
13546: oe_debug_pub.add('item relationship type dsp='||l_line_val_rec.item_relationship_type_dsp);
13547: oe_debug_pub.add('the service_reference_type_code: '||p_line_rec.service_reference_type_code);
13540: oe_debug_pub.add('original inventory item id ' ||p_line_rec.original_inventory_item_id);
13541: oe_debug_pub.add('original ordered_item id '||p_line_rec.original_ordered_item_id);
13542: oe_debug_pub.add('item relationship type '||p_line_rec.item_relationship_type);
13543: oe_debug_pub.add('original inventory item'||l_line_val_rec.original_inventory_item);
13544: oe_debug_pub.add('original ordered item'||l_line_val_rec.original_ordered_item);
13545: oe_debug_pub.add('original original item ident type'||l_line_val_rec.original_item_identifier_type);
13546: oe_debug_pub.add('item relationship type dsp='||l_line_val_rec.item_relationship_type_dsp);
13547: oe_debug_pub.add('the service_reference_type_code: '||p_line_rec.service_reference_type_code);
13548: oe_debug_pub.add('the service_reference_type: '||l_line_val_rec.service_reference_type);
13541: oe_debug_pub.add('original ordered_item id '||p_line_rec.original_ordered_item_id);
13542: oe_debug_pub.add('item relationship type '||p_line_rec.item_relationship_type);
13543: oe_debug_pub.add('original inventory item'||l_line_val_rec.original_inventory_item);
13544: oe_debug_pub.add('original ordered item'||l_line_val_rec.original_ordered_item);
13545: oe_debug_pub.add('original original item ident type'||l_line_val_rec.original_item_identifier_type);
13546: oe_debug_pub.add('item relationship type dsp='||l_line_val_rec.item_relationship_type_dsp);
13547: oe_debug_pub.add('the service_reference_type_code: '||p_line_rec.service_reference_type_code);
13548: oe_debug_pub.add('the service_reference_type: '||l_line_val_rec.service_reference_type);
13549: end if;
13542: oe_debug_pub.add('item relationship type '||p_line_rec.item_relationship_type);
13543: oe_debug_pub.add('original inventory item'||l_line_val_rec.original_inventory_item);
13544: oe_debug_pub.add('original ordered item'||l_line_val_rec.original_ordered_item);
13545: oe_debug_pub.add('original original item ident type'||l_line_val_rec.original_item_identifier_type);
13546: oe_debug_pub.add('item relationship type dsp='||l_line_val_rec.item_relationship_type_dsp);
13547: oe_debug_pub.add('the service_reference_type_code: '||p_line_rec.service_reference_type_code);
13548: oe_debug_pub.add('the service_reference_type: '||l_line_val_rec.service_reference_type);
13549: end if;
13550: RETURN l_line_val_rec;
13543: oe_debug_pub.add('original inventory item'||l_line_val_rec.original_inventory_item);
13544: oe_debug_pub.add('original ordered item'||l_line_val_rec.original_ordered_item);
13545: oe_debug_pub.add('original original item ident type'||l_line_val_rec.original_item_identifier_type);
13546: oe_debug_pub.add('item relationship type dsp='||l_line_val_rec.item_relationship_type_dsp);
13547: oe_debug_pub.add('the service_reference_type_code: '||p_line_rec.service_reference_type_code);
13548: oe_debug_pub.add('the service_reference_type: '||l_line_val_rec.service_reference_type);
13549: end if;
13550: RETURN l_line_val_rec;
13551:
13544: oe_debug_pub.add('original ordered item'||l_line_val_rec.original_ordered_item);
13545: oe_debug_pub.add('original original item ident type'||l_line_val_rec.original_item_identifier_type);
13546: oe_debug_pub.add('item relationship type dsp='||l_line_val_rec.item_relationship_type_dsp);
13547: oe_debug_pub.add('the service_reference_type_code: '||p_line_rec.service_reference_type_code);
13548: oe_debug_pub.add('the service_reference_type: '||l_line_val_rec.service_reference_type);
13549: end if;
13550: RETURN l_line_val_rec;
13551:
13552: END Get_Values;
13729: ( p_ship_method => p_line_val_rec.shipping_method
13730: );
13731:
13732: IF p_x_line_rec.shipping_method_code = FND_API.G_MISS_CHAR THEN
13733: oe_debug_pub.add('Ship Method Conversion Error');
13734: p_x_line_rec.return_status := FND_API.G_RET_STS_ERROR;
13735: END IF;
13736:
13737: END IF;
14362: ----------------------------------------------------------------------
14363: -- Retreiving ids for invoice_to_customer
14364: ----------------------------------------------------------------------
14365:
14366: oe_debug_pub.add('line Invoice_to_cust_id='||p_x_line_rec.invoice_to_customer_id);
14367: IF p_line_val_rec.invoice_to_customer_name_oi <> FND_API.G_MISS_CHAR
14368: OR p_line_val_rec.invoice_to_customer_number_oi <> FND_API.G_MISS_CHAR
14369: THEN
14370:
14849:
14850: END IF;
14851:
14852: ELSE
14853: oe_debug_pub.add('before calling aend customer contact value to id');
14854: p_x_line_rec.end_customer_contact_id := OE_Value_To_Id.end_customer_contact
14855: ( p_end_customer_contact => p_line_val_rec.end_customer_contact
14856: ,p_end_customer_id =>p_x_line_rec.end_customer_id
14857: );
14854: p_x_line_rec.end_customer_contact_id := OE_Value_To_Id.end_customer_contact
14855: ( p_end_customer_contact => p_line_val_rec.end_customer_contact
14856: ,p_end_customer_id =>p_x_line_rec.end_customer_id
14857: );
14858: oe_debug_pub.add('End customer contact id is '||p_x_line_rec.end_customer_contact_id);
14859:
14860: IF p_x_line_rec.end_customer_contact_id = FND_API.G_MISS_NUM THEN
14861: p_x_line_rec.return_status := FND_API.G_RET_STS_ERROR;
14862: END IF;
14889:
14890: END IF;
14891:
14892: ELSE
14893: oe_debug_pub.add('Before calling End custoemr site use value to id');
14894: p_x_line_rec.end_customer_site_use_id := OE_Value_To_Id.end_customer_site
14895: ( p_end_customer_site_address1 => p_line_val_rec.end_customer_site_address1
14896: , p_end_customer_site_address2 => p_line_val_rec.end_customer_site_address2
14897: , p_end_customer_site_address3 => p_line_val_rec.end_customer_site_address3
14906: , p_end_customer_site_use_code => NULL
14907: );
14908:
14909:
14910: oe_debug_pub.add('after hdr sold_to_site_use_id='||p_x_line_rec.end_customer_site_use_id);
14911:
14912: IF p_x_line_rec.end_customer_site_use_id = FND_API.G_MISS_NUM THEN
14913: p_x_line_rec.return_status := FND_API.G_RET_STS_ERROR;
14914: END IF;
15058: --- 2346233
15059: l_converted_qty NUMBER;
15060: l_inventory_item_id NUMBER;
15061: l_order_quantity_uom VARCHAR2(30);
15062: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
15063:
15064: BEGIN
15065: if l_debug_level > 0 then -- INVCONV
15066: oe_debug_pub.add('in get_reserved_quantities' );
15062: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
15063:
15064: BEGIN
15065: if l_debug_level > 0 then -- INVCONV
15066: oe_debug_pub.add('in get_reserved_quantities' );
15067: end if;
15068: l_rsv_rec.demand_source_header_id := p_header_id;
15069: l_rsv_rec.demand_source_line_id := p_line_id;
15070:
15131:
15132: END LOOP;
15133:
15134: if l_debug_level > 0 then -- INVCONV
15135: oe_debug_pub.add('leaving get_reserved_quantities qty = :' || l_reserved_quantity );
15136: oe_debug_pub.add('leaving get_reserved_quantities qty2 = :' || l_reserved_quantity2 );
15137: end if;
15138:
15139: x_reserved_quantity := l_reserved_quantity;
15132: END LOOP;
15133:
15134: if l_debug_level > 0 then -- INVCONV
15135: oe_debug_pub.add('leaving get_reserved_quantities qty = :' || l_reserved_quantity );
15136: oe_debug_pub.add('leaving get_reserved_quantities qty2 = :' || l_reserved_quantity2 );
15137: end if;
15138:
15139: x_reserved_quantity := l_reserved_quantity;
15140: x_reserved_quantity2 := l_reserved_quantity2;
15176: --- 2346233
15177: l_converted_qty NUMBER;
15178: l_inventory_item_id NUMBER;
15179: l_order_quantity_uom VARCHAR2(30);
15180: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
15181:
15182: BEGIN
15183: if l_debug_level > 0 then -- INVCONV
15184: oe_debug_pub.add('in get_reserved_quantity ' );
15180: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
15181:
15182: BEGIN
15183: if l_debug_level > 0 then -- INVCONV
15184: oe_debug_pub.add('in get_reserved_quantity ' );
15185: end if;
15186: l_rsv_rec.demand_source_header_id := p_header_id;
15187: l_rsv_rec.demand_source_line_id := p_line_id;
15188:
15251: END LOOP;
15252:
15253:
15254: if l_debug_level > 0 then -- INVCONV
15255: oe_debug_pub.add('leaving get_reserved_quantity. qty = :' || l_reserved_quantity );
15256: end if;
15257: return (l_reserved_quantity);
15258:
15259: END Get_Reserved_Quantity;
15282: l_sort_by_req_date NUMBER;
15283: --- 2346233
15284: l_converted_qty NUMBER;
15285: l_inventory_item_id NUMBER;
15286: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
15287:
15288:
15289: BEGIN
15290: if l_debug_level > 0 then -- INVCONV
15287:
15288:
15289: BEGIN
15290: if l_debug_level > 0 then -- INVCONV
15291: oe_debug_pub.add('in get_reserved_quantity ' );
15292: end if;
15293: l_rsv_rec.demand_source_header_id := p_header_id;
15294: l_rsv_rec.demand_source_line_id := p_line_id;
15295:
15316: l_rsv_rec.secondary_reservation_quantity;
15317:
15318: END LOOP;
15319: if l_debug_level > 0 then -- INVCONV
15320: oe_debug_pub.add('leaving get_reserved_quantity2. qty2 = :' || l_reserved_quantity2 );
15321: end if;
15322:
15323: return (l_reserved_quantity2);
15324:
15407:
15408: IF nvl(l_order_quantity_uom,l_rsv_rec.reservation_uom_code)
15409: <> l_rsv_rec.reservation_uom_code THEN
15410:
15411: oe_debug_pub.add('reservation_uom_code :' ||
15412: l_rsv_rec.reservation_uom_code,3);
15413: oe_debug_pub.add('l_order_quantity_uom :' ||
15414: l_order_quantity_uom,3);
15415: oe_debug_pub.add('reservation_quantity :' ||
15409: <> l_rsv_rec.reservation_uom_code THEN
15410:
15411: oe_debug_pub.add('reservation_uom_code :' ||
15412: l_rsv_rec.reservation_uom_code,3);
15413: oe_debug_pub.add('l_order_quantity_uom :' ||
15414: l_order_quantity_uom,3);
15415: oe_debug_pub.add('reservation_quantity :' ||
15416: l_rsv_rec.reservation_quantity,3);
15417: l_converted_qty :=
15411: oe_debug_pub.add('reservation_uom_code :' ||
15412: l_rsv_rec.reservation_uom_code,3);
15413: oe_debug_pub.add('l_order_quantity_uom :' ||
15414: l_order_quantity_uom,3);
15415: oe_debug_pub.add('reservation_quantity :' ||
15416: l_rsv_rec.reservation_quantity,3);
15417: l_converted_qty :=
15418: Oe_Order_Misc_Util.convert_uom( l_inventory_item_id,
15419: l_rsv_rec.reservation_uom_code,
15419: l_rsv_rec.reservation_uom_code,
15420: l_order_quantity_uom,
15421: l_rsv_rec.reservation_quantity);
15422:
15423: oe_debug_pub.add('l_converted_qty :' || l_converted_qty,3);
15424: l_reserved_quantity := l_reserved_quantity +
15425: l_converted_qty;
15426: ELSE
15427:
15424: l_reserved_quantity := l_reserved_quantity +
15425: l_converted_qty;
15426: ELSE
15427:
15428: oe_debug_pub.add('2 reservation_quantity :' ||
15429: l_rsv_rec.reservation_quantity);
15430: l_reserved_quantity := l_reserved_quantity +
15431: l_rsv_rec.reservation_quantity;
15432: END IF;
15495: l_ref_line_id NUMBER;
15496:
15497: BEGIN
15498:
15499: oe_debug_pub.ADD('Entering Over Return',1);
15500:
15501: /*
15502: ** Fix Bug # 2971412
15503: ** Since this validation used to get performed even in older
15515:
15516: END IF;
15517: */
15518:
15519: oe_debug_pub.ADD('Return Context is: '||p_line_rec.return_context,1);
15520: oe_debug_pub.ADD('Line Id is: '||to_char(p_line_rec.line_id),1);
15521: oe_debug_pub.ADD('Reference Line Id is: '||to_char(p_line_rec.reference_line_id),1);
15522:
15523: -- Fix for Bug # 1613371
15516: END IF;
15517: */
15518:
15519: oe_debug_pub.ADD('Return Context is: '||p_line_rec.return_context,1);
15520: oe_debug_pub.ADD('Line Id is: '||to_char(p_line_rec.line_id),1);
15521: oe_debug_pub.ADD('Reference Line Id is: '||to_char(p_line_rec.reference_line_id),1);
15522:
15523: -- Fix for Bug # 1613371
15524: IF p_line_rec.return_context = 'SERIAL' THEN
15517: */
15518:
15519: oe_debug_pub.ADD('Return Context is: '||p_line_rec.return_context,1);
15520: oe_debug_pub.ADD('Line Id is: '||to_char(p_line_rec.line_id),1);
15521: oe_debug_pub.ADD('Reference Line Id is: '||to_char(p_line_rec.reference_line_id),1);
15522:
15523: -- Fix for Bug # 1613371
15524: IF p_line_rec.return_context = 'SERIAL' THEN
15525:
15554: END IF;
15555: END LOOP;
15556: END IF;
15557:
15558: oe_debug_pub.ADD('Before checking the total for the Outbound line',1);
15559: SELECT sum(nvl(ordered_quantity, 0))
15560: INTO l_total
15561: FROM oe_order_lines
15562: WHERE reference_line_id = p_line_rec.reference_line_id
15565: AND cancelled_flag <> 'Y'
15566: AND line_category_code = 'RETURN'
15567: AND line_id <> p_line_rec.line_id;
15568:
15569: oe_debug_pub.ADD('l_total : '||to_char(l_total),1);
15570:
15571:
15572: -- bug# 6617423 : Start -----------
15573: /*
15576: FROM oe_order_lines
15577: WHERE line_id = p_line_rec.reference_line_id;
15578: */
15579:
15580: oe_debug_pub.add( '
15582: l_overship_invoice_basis := oe_sys_parameters.value('OE_OVERSHIP_INVOICE_BASIS',NULL);
15583: ELSE
15584: l_overship_invoice_basis := oe_sys_parameters.value('OE_OVERSHIP_INVOICE_BASIS',p_line_rec.org_id);
15582: l_overship_invoice_basis := oe_sys_parameters.value('OE_OVERSHIP_INVOICE_BASIS',NULL);
15583: ELSE
15584: l_overship_invoice_basis := oe_sys_parameters.value('OE_OVERSHIP_INVOICE_BASIS',p_line_rec.org_id);
15585: END IF;
15586: oe_debug_pub.add( '
15588:
15589: IF l_overship_invoice_basis = 'SHIPPED' then
15590: SELECT nvl(shipped_quantity, ordered_quantity) --- get from ord_qty if original line not shipped/invoiced....
15583: ELSE
15584: l_overship_invoice_basis := oe_sys_parameters.value('OE_OVERSHIP_INVOICE_BASIS',p_line_rec.org_id);
15585: END IF;
15586: oe_debug_pub.add( '
15587: oe_debug_pub.add( '
15589: IF l_overship_invoice_basis = 'SHIPPED' then
15590: SELECT nvl(shipped_quantity, ordered_quantity) --- get from ord_qty if original line not shipped/invoiced....
15591: INTO l_orig_quantity
15599: end if;
15600: -- bug# 6617423: End -------
15601:
15602:
15603: oe_debug_pub.ADD('l_orig_quantity : '||to_char(l_orig_quantity),1);
15604:
15605: IF nvl(l_total,0) + p_line_rec.ordered_quantity > l_orig_quantity THEN
15606: RETURN TRUE;
15607: ELSE
15609: END IF;
15610:
15611: EXCEPTION
15612: WHEN NO_DATA_FOUND THEN
15613: oe_debug_pub.ADD('In NO DATA FOUND ',1);
15614: RETURN FALSE;
15615: END Is_Over_Return;
15616:
15617:
15652: post message OE_INVALIDATES_CUSTOMER_ITEM
15653: set return status to error.
15654: */
15655:
15656: oe_debug_pub.add('Entering Get_Inventory_Item', 1);
15657: IF (p_x_line_rec.ship_to_org_id IS NOT NULL AND
15658: p_x_line_rec.ship_to_org_id <> FND_API.G_MISS_NUM) THEN
15659: /* Replaced with the following SELECT and IF statements
15660: to fix bug 2163988
15673: HZ_CUST_ACCT_SITES s
15674: WHERE u.cust_acct_site_id = s.cust_acct_site_id
15675: AND u.site_use_id = p_x_line_rec.ship_to_org_id
15676: AND u.site_use_code = 'SHIP_TO';
15677: oe_debug_pub.add('ship to address:' || l_address_id||' - Customer:'||to_char(l_cust_id));
15678:
15679: IF l_cust_id <> p_x_line_rec.sold_to_org_id THEN
15680: oe_debug_pub.add('Sold-To Customer:'||to_char(p_x_line_rec.sold_to_org_id));
15681: l_address_id := NULL;
15676: AND u.site_use_code = 'SHIP_TO';
15677: oe_debug_pub.add('ship to address:' || l_address_id||' - Customer:'||to_char(l_cust_id));
15678:
15679: IF l_cust_id <> p_x_line_rec.sold_to_org_id THEN
15680: oe_debug_pub.add('Sold-To Customer:'||to_char(p_x_line_rec.sold_to_org_id));
15681: l_address_id := NULL;
15682: END IF;
15683:
15684: END IF;
15682: END IF;
15683:
15684: END IF;
15685:
15686: oe_debug_pub.add('INVENTORY_ITEM_ID Before calling CI_Attribute_Value '
15687: ||to_char(p_x_line_rec.inventory_item_id), 1);
15688: INV_CUSTOMER_ITEM_GRP.CI_Attribute_Value(
15689: Z_Customer_Item_Id => p_x_line_rec.ordered_item_id
15690: , Z_Customer_Id => p_x_line_rec.sold_to_org_id
15698: , Error_Message => l_error_message
15699: , Attribute_Value => l_attribute_value
15700: );
15701:
15702: oe_debug_pub.add('INVENTORY_ITEM_ID After call is '||l_attribute_value, 1);
15703: IF (l_attribute_value IS NOT NULL AND
15704: to_number(l_attribute_value) <> p_x_line_rec.inventory_item_id) THEN
15705: oe_debug_pub.add('Assigning new inventory_item_id', 1);
15706: l_update_inventory_item := FND_API.G_TRUE;
15701:
15702: oe_debug_pub.add('INVENTORY_ITEM_ID After call is '||l_attribute_value, 1);
15703: IF (l_attribute_value IS NOT NULL AND
15704: to_number(l_attribute_value) <> p_x_line_rec.inventory_item_id) THEN
15705: oe_debug_pub.add('Assigning new inventory_item_id', 1);
15706: l_update_inventory_item := FND_API.G_TRUE;
15707: l_inventory_item_id := TO_NUMBER(l_attribute_value);
15708: ELSIF to_number(l_attribute_value) = p_x_line_rec.inventory_item_id THEN
15709: NULL;
15707: l_inventory_item_id := TO_NUMBER(l_attribute_value);
15708: ELSIF to_number(l_attribute_value) = p_x_line_rec.inventory_item_id THEN
15709: NULL;
15710: ELSE
15711: oe_debug_pub.add('Issue error message', 1);
15712: fnd_message.set_name('ONT','OE_INVALIDATES_CUSTOMER_ITEM');
15713: OE_MSG_PUB.Add;
15714: x_return_status := FND_API.G_RET_STS_ERROR;
15715: END IF;
15713: OE_MSG_PUB.Add;
15714: x_return_status := FND_API.G_RET_STS_ERROR;
15715: END IF;
15716:
15717: oe_debug_pub.add('Return Status after calling CI_Attribute_Value '||x_return_status, 1);
15718: IF l_update_inventory_item = FND_API.G_TRUE THEN
15719:
15720: -- Call Process Order
15721:
15718: IF l_update_inventory_item = FND_API.G_TRUE THEN
15719:
15720: -- Call Process Order
15721:
15722: oe_debug_pub.add('Calling Process order to update inventory item', 1);
15723: l_control_rec.controlled_operation := TRUE;
15724: l_control_rec.check_security := TRUE;
15725: l_control_rec.clear_dependents := TRUE;
15726: l_control_rec.default_attributes := TRUE;
15740: , p_x_old_line_tbl => l_old_line_tbl
15741: , x_return_status => x_return_status
15742: );
15743:
15744: oe_debug_pub.add('Return Status after calling Process order'||x_return_status, 1);
15745:
15746: p_x_line_rec := l_line_tbl(1);
15747:
15748: END IF;
15746: p_x_line_rec := l_line_tbl(1);
15747:
15748: END IF;
15749:
15750: oe_debug_pub.add('Exiting Get_Inventory_Item', 1);
15751:
15752: END Get_Inventory_Item;
15753:
15754:
15896: l_line_payment_type_code VARCHAR2(30);
15897:
15898:
15899: --
15900: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
15901: --
15902: l_attr_attach_change boolean := FALSE; --6896311
15903: BEGIN
15904:
15902: l_attr_attach_change boolean := FALSE; --6896311
15903: BEGIN
15904:
15905: if l_debug_level > 0 then
15906: oe_debug_pub.Add('Entering pre_write_process for line ID : '||p_x_line_rec.line_id, 1);
15907: end if;
15908:
15909: -- bug fix 3350185:
15910: -- Audit Trail/Versioning moved to separate procedure below
15913: p_process_step => 1 );
15914:
15915:
15916: if l_debug_level > 0 then
15917: oe_debug_pub.Add('After Assign out rec', 1);
15918: end if;
15919:
15920: ------------------------------------------------------------------------
15921: -- Copy corresponding inventory item to the line if it is a CUST item
15925: p_old_line_rec.ship_from_org_id) OR
15926: NOT OE_GLOBALS.EQUAL(p_x_line_rec.ship_to_org_id ,
15927: p_old_line_rec.ship_to_org_id) THEN
15928: if l_debug_level > 0 then
15929: oe_debug_pub.Add('RR:I1', 1);
15930: end if;
15931: IF p_x_line_rec.item_identifier_type = 'CUST' THEN
15932: if l_debug_level > 0 then
15933: oe_debug_pub.Add('RR:I2', 1);
15929: oe_debug_pub.Add('RR:I1', 1);
15930: end if;
15931: IF p_x_line_rec.item_identifier_type = 'CUST' THEN
15932: if l_debug_level > 0 then
15933: oe_debug_pub.Add('RR:I2', 1);
15934: end if;
15935: IF (p_x_line_rec.ordered_item_id IS NOT NULL AND
15936: p_x_line_rec.ordered_item_id <> FND_API.G_MISS_NUM) THEN
15937: if l_debug_level > 0 then
15934: end if;
15935: IF (p_x_line_rec.ordered_item_id IS NOT NULL AND
15936: p_x_line_rec.ordered_item_id <> FND_API.G_MISS_NUM) THEN
15937: if l_debug_level > 0 then
15938: oe_debug_pub.add('return_status before calling Get_Inventory_Item '
15939: ||l_return_status, 1);
15940: end if;
15941: Get_Inventory_Item
15942: ( p_x_line_rec => p_x_line_rec
15942: ( p_x_line_rec => p_x_line_rec
15943: , x_return_status => l_return_status);
15944:
15945: if l_debug_level > 0 then
15946: oe_debug_pub.add('return_status after calling Get_Inventory_Item '||l_return_status, 1);
15947: end if;
15948: END IF;
15949: END IF;
15950: if l_debug_level > 0 then
15947: end if;
15948: END IF;
15949: END IF;
15950: if l_debug_level > 0 then
15951: oe_debug_pub.Add('RR:I2.5', 1);
15952: end if;
15953: END IF;
15954:
15955: if l_debug_level > 0 then
15952: end if;
15953: END IF;
15954:
15955: if l_debug_level > 0 then
15956: oe_debug_pub.Add('RR:I3', 1);
15957: end if;
15958:
15959: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
15960: RAISE FND_API.G_EXC_ERROR;
15976: (p_x_line_rec.ordered_item = FND_API.G_MISS_CHAR
15977: AND p_x_line_rec.item_identifier_type in ('INT', 'CUST')) THEN
15978:
15979: if l_debug_level > 0 then
15980: oe_debug_pub.Add('Before calling get_ordered_item', 1);
15981: oe_debug_pub.add('return_status before calling Get_ordered_Item '
15982: ||l_return_status, 1);
15983: end if;
15984: Oe_Oe_Form_Line.Get_Ordered_Item
15977: AND p_x_line_rec.item_identifier_type in ('INT', 'CUST')) THEN
15978:
15979: if l_debug_level > 0 then
15980: oe_debug_pub.Add('Before calling get_ordered_item', 1);
15981: oe_debug_pub.add('return_status before calling Get_ordered_Item '
15982: ||l_return_status, 1);
15983: end if;
15984: Oe_Oe_Form_Line.Get_Ordered_Item
15985: (x_return_status => l_return_status,
15991: p_sold_to_org_id => p_x_line_rec.sold_to_org_id,
15992: x_ordered_item => p_x_line_rec.ordered_item);
15993:
15994: if l_debug_level > 0 then
15995: oe_debug_pub.add('return_status after calling Get_Ordered_Item '||l_return_status, 1);
15996: end if;
15997:
15998: --Fix for bug 3728638.
15999: IF p_x_line_rec.item_identifier_type='INT'
16038: end if;
16039: */
16040:
16041: if l_debug_level > 0 then
16042: oe_debug_pub.add('Checking if it is a model line copied from another order');
16043: end if;
16044:
16045: begin
16046: select source_document_type_id
16063:
16064: */
16065:
16066: if l_debug_level > 0 then
16067: oe_debug_pub.add('parent source_document_type_id = ' || l_parent_document_type_id);
16068: end if;
16069:
16070: if ((nvl(l_parent_document_type_id,0) <> 2) OR
16071: (p_x_line_rec.source_document_line_id IS NULL) OR
16071: (p_x_line_rec.source_document_line_id IS NULL) OR
16072: (p_x_line_rec.source_document_line_id = FND_API.G_MISS_NUM)) then
16073:
16074: if l_debug_level > 0 then
16075: oe_debug_pub.add('This class/kit/option line has not been copied');
16076: oe_debug_pub.add('from another order: So, log a delayed request');
16077: oe_debug_pub.add('to copy the model pricing attributes');
16078: oe_debug_pub.add('logging request for line '||p_x_line_rec.line_id, 1);
16079: end if;
16072: (p_x_line_rec.source_document_line_id = FND_API.G_MISS_NUM)) then
16073:
16074: if l_debug_level > 0 then
16075: oe_debug_pub.add('This class/kit/option line has not been copied');
16076: oe_debug_pub.add('from another order: So, log a delayed request');
16077: oe_debug_pub.add('to copy the model pricing attributes');
16078: oe_debug_pub.add('logging request for line '||p_x_line_rec.line_id, 1);
16079: end if;
16080:
16073:
16074: if l_debug_level > 0 then
16075: oe_debug_pub.add('This class/kit/option line has not been copied');
16076: oe_debug_pub.add('from another order: So, log a delayed request');
16077: oe_debug_pub.add('to copy the model pricing attributes');
16078: oe_debug_pub.add('logging request for line '||p_x_line_rec.line_id, 1);
16079: end if;
16080:
16081: /* Fix for bug1857538
16074: if l_debug_level > 0 then
16075: oe_debug_pub.add('This class/kit/option line has not been copied');
16076: oe_debug_pub.add('from another order: So, log a delayed request');
16077: oe_debug_pub.add('to copy the model pricing attributes');
16078: oe_debug_pub.add('logging request for line '||p_x_line_rec.line_id, 1);
16079: end if;
16080:
16081: /* Fix for bug1857538
16082: - Log a delayed request to copy pricing attributes, using line_id
16145: null;
16146: END;
16147:
16148: IF l_line_payment_type_code IS NOT NULL THEN
16149: oe_debug_pub.add('Log delayed request to cascade payment information for line: '||p_x_line_rec.line_id, 1);
16150: OE_Delayed_Requests_Pvt.Log_Request(
16151: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
16152: p_entity_id => p_x_line_rec.line_id,
16153: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
16168: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE AND
16169: p_x_line_rec.split_from_line_id is not null
16170: THEN
16171: if l_debug_level > 0 then
16172: oe_debug_pub.add('This is a new line after split', 1);
16173: end if;
16174: OE_Delayed_Requests_Pvt.Log_Request(
16175: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
16176: p_entity_id => p_x_line_rec.line_id,
16191: -- IF condition modified to log update_shipping delayed request when operations is UPDATE and ship set
16192: -- nulled out
16193: IF l_debug_level > 0
16194: THEN
16195: oe_debug_pub.add('New Ship set Id :' || p_x_line_rec.ship_set_id,2);
16196: oe_debug_pub.add('Old Ship set Id :' || p_old_line_rec.ship_set_id,2);
16197: oe_debug_pub.add('Split Action:'||p_x_line_rec.split_Action_code,2);
16198: END IF;
16199:
16192: -- nulled out
16193: IF l_debug_level > 0
16194: THEN
16195: oe_debug_pub.add('New Ship set Id :' || p_x_line_rec.ship_set_id,2);
16196: oe_debug_pub.add('Old Ship set Id :' || p_old_line_rec.ship_set_id,2);
16197: oe_debug_pub.add('Split Action:'||p_x_line_rec.split_Action_code,2);
16198: END IF;
16199:
16200: IF p_x_line_rec.shipping_interfaced_flag = 'Y' AND
16193: IF l_debug_level > 0
16194: THEN
16195: oe_debug_pub.add('New Ship set Id :' || p_x_line_rec.ship_set_id,2);
16196: oe_debug_pub.add('Old Ship set Id :' || p_old_line_rec.ship_set_id,2);
16197: oe_debug_pub.add('Split Action:'||p_x_line_rec.split_Action_code,2);
16198: END IF;
16199:
16200: IF p_x_line_rec.shipping_interfaced_flag = 'Y' AND
16201: ( (p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE) OR
16208: THEN
16209: -- code fix for 3554622
16210:
16211: if l_debug_level > 0 then
16212: oe_debug_pub.ADD('Update Shipping : '|| p_x_line_rec.line_id ,1);
16213: end if;
16214: OE_Delayed_Requests_Pvt.Log_Request(
16215: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
16216: p_entity_id => p_x_line_rec.line_id,
16234: IF (OE_GLOBALS.G_UI_FLAG) and
16235: OE_GLOBALS.G_DEFER_PRICING='N' and
16236: (nvl(Oe_Config_Pvt.oecfg_configuration_pricing,'N')='N') THEN
16237: if l_debug_level > 0 then
16238: oe_debug_pub.add('ui mode - delete');
16239: end if;
16240: IF p_x_line_rec.booked_flag='Y' THEN --2442012
16241: l_pricing_event := 'BATCH,ORDER,BOOK'; --7494393
16242: ELSE
16253: p_request_type => OE_GLOBALS.G_PRICE_ORDER,
16254: x_return_status => l_return_status);
16255: ELSE
16256: if l_debug_level > 0 then
16257: oe_debug_pub.add('batch mode - delete');
16258: end if;
16259: IF p_x_line_rec.booked_flag='Y' THEN
16260: l_pricing_event := 'BATCH,BOOK';
16261: ELSE
16265: if p_x_line_rec.source_document_type_id = 5 and
16266: nvl(fnd_profile.value('ONT_GRP_PRICE_FOR_DSP'),'N') = 'N' then
16267: null;
16268: if l_debug_level > 0 then
16269: oe_debug_pub.add('not logging price order - delete operation ');
16270: end if;
16271: else
16272: if l_debug_level > 0 then
16273: oe_debug_pub.add('logging price order - delete operation');
16269: oe_debug_pub.add('not logging price order - delete operation ');
16270: end if;
16271: else
16272: if l_debug_level > 0 then
16273: oe_debug_pub.add('logging price order - delete operation');
16274: end if;
16275: OE_delayed_requests_Pvt.log_request(
16276: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
16277: p_entity_id => p_x_line_rec.Header_Id,
16286: END IF;
16287: --
16288: /* IF p_x_line_rec.booked_flag='Y' THEN
16289: if l_debug_level > 0 then
16290: oe_debug_pub.add('bokked - delete');
16291: end if;
16292: OE_delayed_requests_Pvt.log_request(
16293: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
16294: p_entity_id => p_x_line_rec.Header_Id,
16303: */
16304: END IF;
16305:
16306: if l_debug_level > 0 then
16307: oe_debug_pub.ADD('Raj:Split-Inside Request' ,1);
16308: end if;
16309: IF (p_x_line_rec.operation = oe_globals.g_opr_update) and
16310: NOT (p_x_line_rec.split_action_code IS NOT NULL AND
16311: p_x_line_rec.split_action_code <> FND_API.G_MISS_CHAR) AND
16313: p_x_line_rec.line_set_id <> FND_API.G_MISS_NUM) THEN
16314:
16315: -- Addded project and task to fix bug #1229811
16316: if l_debug_level > 0 then
16317: oe_debug_pub.ADD('Raj:Split-Inside Request' ,1);
16318: end if;
16319: IF NOT OE_GLOBALS.EQUAL(p_x_line_rec.inventory_item_id ,
16320: p_old_line_rec.inventory_item_id) OR
16321: NOT OE_GLOBALS.EQUAL(p_x_line_rec.order_quantity_uom ,
16377: p_x_line_rec.booked_flag = 'Y' AND
16378: p_x_line_rec.cancelled_flag <> 'Y'
16379: THEN
16380: if l_debug_level > 0 then
16381: oe_debug_pub.ADD('Calling IS_OVER_RETURN ',1);
16382: end if;
16383: IF (OE_LINE_UTIL.Is_Over_Return(p_x_line_rec)) THEN
16384: FND_MESSAGE.Set_Name('ONT', 'OE_RETURN_INVALID_QUANTITY');
16385: OE_MSG_PUB.Add;
16422: END IF;
16423: -- Valid Shipping Method Code.
16424:
16425: if l_debug_level > 0 then
16426: oe_debug_pub.add('Split By:'||p_x_line_rec.split_by);
16427: oe_debug_pub.add('Split Action:'||p_x_line_rec.split_action_code);
16428: end if;
16429: IF l_count = 0 THEN
16430:
16423: -- Valid Shipping Method Code.
16424:
16425: if l_debug_level > 0 then
16426: oe_debug_pub.add('Split By:'||p_x_line_rec.split_by);
16427: oe_debug_pub.add('Split Action:'||p_x_line_rec.split_action_code);
16428: end if;
16429: IF l_count = 0 THEN
16430:
16431: IF (nvl(p_x_line_rec.split_by,'X') <> 'SYSTEM' and
16438: and list_line_type_code = 'TSN'
16439: and modified_to = p_x_line_rec.shipping_method_code;
16440: IF v_count > 0 THEN
16441: IF l_debug_level > 0 THEN
16442: oe_debug_pub.add('Deleting the tsn adjustments');
16443: END IF;
16444: DELETE FROM OE_PRICE_ADJUSTMENTS
16445: WHERE LINE_ID = p_x_line_rec.line_id
16446: AND LIST_LINE_TYPE_CODE = 'TSN'
16451: --bug 4190357
16452:
16453:
16454: if l_debug_level > 0 then
16455: oe_debug_pub.add('Calling process_order to clear the Shipping Method',2);
16456: oe_debug_pub.add('Value of shipping_method_code :'||p_x_line_rec.shipping_method_code,2);
16457: end if;
16458: --bug 4190357
16459: select meaning into l_meaning from oe_ship_methods_v where lookup_type = 'SHIP_METHOD' and lookup_code=p_x_line_rec.shipping_method_code;
16452:
16453:
16454: if l_debug_level > 0 then
16455: oe_debug_pub.add('Calling process_order to clear the Shipping Method',2);
16456: oe_debug_pub.add('Value of shipping_method_code :'||p_x_line_rec.shipping_method_code,2);
16457: end if;
16458: --bug 4190357
16459: select meaning into l_meaning from oe_ship_methods_v where lookup_type = 'SHIP_METHOD' and lookup_code=p_x_line_rec.shipping_method_code;
16460: --bug 4190357
16465: p_x_line_rec.shipping_method_code := l_modified_from;
16466: End If;
16467: ELSE
16468: if l_debug_level > 0 then
16469: oe_debug_pub.add('SYSTEM SPLIT Donot clear the Shipping Method',2);
16470: end if;
16471: END IF;
16472:
16473: OE_MSG_PUB.Update_Msg_Context(p_attribute_code => 'SHIPPING_METHOD');
16478: OE_MSG_PUB.Add;
16479: OE_MSG_PUB.Update_Msg_Context(p_attribute_code => null);
16480:
16481: if l_debug_level > 0 then
16482: oe_debug_pub.add('Value of freight_carrier after the call :'
16483: ||p_x_line_rec.shipping_method_code,2);
16484: end if;
16485:
16486: END IF;
16580:
16581: -- retain the original commitment functionality
16582: IF Not Oe_Commitment_pvt.do_commitment_sequencing THEN
16583: if l_debug_level > 0 then
16584: oe_debug_pub.add('entering evaluate commitment!',1);
16585: end if;
16586: oe_commitment_pvt.evaluate_commitment(
16587: p_commitment_id => p_x_line_rec.commitment_id,
16588: p_header_id => p_x_line_rec.header_id,
16591: x_msg_count => l_msg_count,
16592: x_msg_data => l_msg_data);
16593: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
16594: if l_debug_level > 0 then
16595: oe_debug_pub.add('Value of Commitment_Id B4 Clear_Commitment_Id:'
16596: ||p_x_line_rec.commitment_id,1);
16597: end if;
16598: Clear_Commitment_Id
16599: ( p_x_line_rec => p_x_line_rec);
16597: end if;
16598: Clear_Commitment_Id
16599: ( p_x_line_rec => p_x_line_rec);
16600: if l_debug_level > 0 then
16601: oe_debug_pub.add('Value of Commitment_Id after the call :'
16602: ||p_x_line_rec.commitment_id,1);
16603: end if;
16604: Raise FND_API.G_EXC_ERROR;
16605:
16639: -- Performance Improvement Bug 1929163:
16640: -- Log request to apply automatic attachments based on profile
16641: IF G_APPLY_AUTOMATIC_ATCHMT = 'Y' THEN
16642: if l_debug_level > 0 then
16643: oe_debug_pub.add('log request to apply atchmt',1);
16644: end if;
16645: OE_delayed_requests_Pvt.Log_Request
16646: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
16647: p_entity_id => p_x_line_rec.line_id,
16655: ELSE
16656:
16657: IF p_x_line_rec.split_by = 'SYSTEM' THEN
16658: if l_debug_level > 0 then
16659: oe_debug_pub.add('log request to copy all atchmt',1);
16660: end if;
16661: OE_delayed_requests_Pvt.Log_Request
16662: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
16663: p_entity_id => p_x_line_rec.line_id,
16671:
16672: ELSE
16673:
16674: if l_debug_level > 0 then
16675: oe_debug_pub.add('log request to copy manual atchmt',1);
16676: end if;
16677: OE_delayed_requests_Pvt.Log_Request
16678: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
16679: p_entity_id => p_x_line_rec.line_id,
16691: ELSE -- 5893276
16692: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE AND
16693: G_APPLY_AUTOMATIC_ATCHMT = 'Y' THEN
16694: if l_debug_level > 0 then
16695: oe_debug_pub.add('log request to apply atchmt for UPDATE ',1);
16696: end if;
16697:
16698: --6896311
16699: IF NOT OE_GLOBALS.Equal(p_x_line_rec.INVOICE_TO_ORG_ID
16751:
16752: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE AND
16753: p_x_line_rec.item_type_code = OE_GLOBALS.G_ITEM_MODEL THEN
16754: if l_debug_level > 0 then
16755: oe_debug_pub.add('clear the cached top model record', 1);
16756: oe_debug_pub.add('model line: '|| p_x_line_rec.line_id, 1);
16757: end if;
16758: OE_Order_Cache.Clear_Top_Model_Line(p_key => p_x_line_rec.line_id);
16759: END IF;
16752: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE AND
16753: p_x_line_rec.item_type_code = OE_GLOBALS.G_ITEM_MODEL THEN
16754: if l_debug_level > 0 then
16755: oe_debug_pub.add('clear the cached top model record', 1);
16756: oe_debug_pub.add('model line: '|| p_x_line_rec.line_id, 1);
16757: end if;
16758: OE_Order_Cache.Clear_Top_Model_Line(p_key => p_x_line_rec.line_id);
16759: END IF;
16760:
16759: END IF;
16760:
16761: -- Changes for Late Demand Penalty Factor
16762: if l_debug_level > 0 then
16763: oe_debug_pub.add('Late Demand Penalty Factor',1);
16764: end if;
16765: IF(p_x_line_rec.late_demand_penalty_factor IS NOT NULL AND
16766: p_x_line_rec.late_demand_penalty_factor <> FND_API.G_MISS_NUM AND
16767: p_x_line_rec.late_demand_penalty_factor < 0) THEN
16781: -- scheduling and scheduling may or may not require on the
16782: -- line. However, we need to set the resource flag.
16783:
16784: if l_debug_level > 0 then
16785: oe_debug_pub.add('Setting the resource ',1);
16786: end if;
16787: IF NOT OE_GLOBALS.Equal(p_old_line_rec.ship_from_org_id,
16788: p_x_line_rec.ship_from_org_id)
16789: THEN
16789: THEN
16790: IF p_x_line_rec.ship_from_org_id is not null
16791: THEN
16792: if l_debug_level > 0 then
16793: oe_debug_pub.add('Setting re_source_flag to N',1);
16794: end if;
16795: p_x_line_rec.re_source_flag := 'N';
16796: ELSE
16797: if l_debug_level > 0 then
16794: end if;
16795: p_x_line_rec.re_source_flag := 'N';
16796: ELSE
16797: if l_debug_level > 0 then
16798: oe_debug_pub.add('1.Setting re_source_flag to null',1);
16799: end if;
16800: p_x_line_rec.re_source_flag := '';
16801: END IF;
16802: ELSIF p_x_line_rec.ship_from_org_id is null
16801: END IF;
16802: ELSIF p_x_line_rec.ship_from_org_id is null
16803: THEN
16804: if l_debug_level > 0 then
16805: oe_debug_pub.add('2.Setting re_source_flag to null',1);
16806: end if;
16807: p_x_line_rec.re_source_flag := '';
16808: END IF;
16809:
16822: AND p_x_line_rec.item_relationship_type IS NULL
16823: THEN
16824:
16825: if l_debug_level > 0 then
16826: oe_debug_pub.add('PWP: clearing out original item fields');
16827: end if;
16828: p_x_line_rec.Original_Inventory_Item_Id := Null;
16829: p_x_line_rec.Original_item_identifier_Type := Null;
16830: p_x_line_rec.Original_ordered_item_id := Null;
16856:
16857: /* 7576948: Commenting for IR ISO CMS Project
16858:
16859: if l_debug_level > 0 then
16860: oe_debug_pub.add('Before checking for system split on int ord');
16861: end if;
16862: IF (p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE) AND
16863: (p_x_line_rec.split_by = 'SYSTEM') AND
16864: (p_x_line_rec.order_source_id = 10) THEN
16921: END IF;
16922:
16923:
16924: if l_debug_level > 0 then
16925: OE_DEBUG_PUB.add('Exiting from Lines Pre-Write process',1);
16926: end if;
16927: EXCEPTION
16928: WHEN FND_API.G_EXC_ERROR THEN
16929: RAISE;
16955: l_return_status VARCHAR2(30);
16956: l_reason_code VARCHAR2(30);
16957: l_reason_comments VARCHAR2(2000);
16958: --
16959: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
16960: --
16961: BEGIN
16962: /*
16963: The p_process_step value passed in determines the processes run. The first time it is called
16976: IF OE_GLOBALS.OE_AUDIT_HISTORY_TBL.exists(l_ind) THEN
16977: IF OE_GLOBALS.oe_audit_history_tbl(l_ind).LINE_ID = p_x_line_rec.line_id AND
16978: OE_GLOBALS.oe_audit_history_tbl(l_ind).HISTORY_TYPE = 'R' THEN -- flag 'R' denotes requires reason
16979: if l_debug_level > 0 then
16980: OE_DEBUG_PUB.add('OEXULINB- Audit Reason Required', 5);
16981: end if;
16982: IF (p_x_line_rec.change_reason IS NULL OR
16983: p_x_line_rec.change_reason = FND_API.G_MISS_CHAR OR
16984: NOT OE_Validate.Change_Reason_Code(p_x_line_rec.change_reason)) THEN
16989: IF l_reason_code IS NULL THEN
16990: -- bug 3636884, defaulting reason from group API
16991: IF OE_GLOBALS.G_DEFAULT_REASON THEN
16992: if l_debug_level > 0 then
16993: oe_debug_pub.add('Defaulting Audit Reason for Order Line', 1);
16994: end if;
16995: p_x_line_rec.change_reason := 'SYSTEM';
16996: ELSE
16997: OE_DEBUG_PUB.add('Reason code for change is missing or invalid', 1);
16993: oe_debug_pub.add('Defaulting Audit Reason for Order Line', 1);
16994: end if;
16995: p_x_line_rec.change_reason := 'SYSTEM';
16996: ELSE
16997: OE_DEBUG_PUB.add('Reason code for change is missing or invalid', 1);
16998: fnd_message.set_name('ONT','OE_AUDIT_REASON_RQD');
16999: fnd_message.set_token('OBJECT','ORDER LINE');
17000: oe_msg_pub.add;
17001: RAISE FND_API.G_EXC_ERROR;
17003: END IF;
17004: END IF;
17005: ELSE
17006: if l_debug_level > 0 then
17007: OE_DEBUG_PUB.add('Reason code for change is missing or invalid', 1);
17008: end if;
17009: fnd_message.set_name('ONT','OE_AUDIT_REASON_RQD');
17010: fnd_message.set_token('OBJECT','ORDER LINE');
17011: oe_msg_pub.add;
17052: p_wf_result_code => null,
17053: x_return_status => l_return_status);
17054:
17055: if l_debug_level > 0 then
17056: OE_DEBUG_PUB.add('Return status after inserting split history : '||l_return_status,5);
17057: end if;
17058:
17059: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
17060: if l_debug_level > 0 then
17057: end if;
17058:
17059: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
17060: if l_debug_level > 0 then
17061: oe_debug_pub.add('Error while inserting Line split History ',1);
17062: end if;
17063: IF l_return_status = FND_API.G_RET_STS_ERROR then
17064: raise FND_API.G_EXC_ERROR;
17065: ELSE
17080: OE_GLOBALS.G_REASON_COMMENTS := p_x_line_rec.change_comments;
17081: OE_GLOBALS.G_CAPTURED_REASON := 'Y';
17082: ELSE
17083: if l_debug_level > 0 then
17084: OE_DEBUG_PUB.add('Reason code for versioning is missing or invalid', 1);
17085: end if;
17086: -- if OE_GLOBALS.G_UI_FLAG then --bug5716140
17087: IF OE_GLOBALS.G_UI_FLAG
17088: OR ( p_x_line_rec.split_action_code = 'SPLIT'
17093: END IF;
17094:
17095: --log delayed request
17096: if l_debug_level > 0 then
17097: oe_debug_pub.add('log versioning request',1);
17098: end if;
17099: OE_Delayed_Requests_Pvt.Log_Request(p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
17100: p_entity_id => p_x_line_rec.header_id,
17101: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
17111: FOR l_ind in 1..OE_GLOBALS.oe_audit_history_tbl.last LOOP
17112: IF OE_GLOBALS.OE_AUDIT_HISTORY_TBL.exists(l_ind) THEN
17113: IF OE_GLOBALS.oe_audit_history_tbl(l_ind).line_id = p_x_line_rec.line_id THEN
17114: if l_debug_level > 0 then
17115: OE_DEBUG_PUB.add('OEXULINB:calling oe_order_chg_pvt.recordlinehist', 5);
17116: end if;
17117:
17118: --11.5.10 Versioning/Audit Trail updates
17119: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
17138: p_wf_activity_code => null,
17139: p_wf_result_code => null,
17140: x_return_status => l_return_status);
17141: if l_debug_level > 0 then
17142: OE_DEBUG_PUB.add('IN OEXULINB:After'||l_return_status,5);
17143: end if;
17144:
17145: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
17146: if l_debug_level > 0 then
17143: end if;
17144:
17145: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
17146: if l_debug_level > 0 then
17147: oe_debug_pub.add('Inserting Line Audit History error',1);
17148: end if;
17149: IF l_return_status = FND_API.G_RET_STS_ERROR then
17150: raise FND_API.G_EXC_ERROR;
17151: ELSE
17155:
17156: END IF;
17157: -- now the history is inserted successfully, remove the entry from pl/sql table
17158: if l_debug_level > 0 then
17159: oe_debug_pub.add('Deleting the history entry for line ID : '||OE_GLOBALS.oe_audit_history_tbl(l_ind).line_id,1);
17160: end if;
17161: OE_GLOBALS.oe_audit_history_tbl.delete(l_ind);
17162: END IF;
17163: END IF;
17265: l_line_rec OE_Order_PUB.Line_Rec_Type;
17266: l_cursor_flag VARCHAR2(1) := null;
17267:
17268: BEGIN
17269: oe_debug_pub.add('Entering OE_LINE_UTIL.CASCADE_LINE_NUMBER ');
17270: oe_debug_pub.add('AK line_id ' || p_line_id);
17271: oe_debug_pub.add('AK line_iset_d ' || p_line_set_id);
17272: oe_debug_pub.add('AK line_number' || p_line_number);
17273: oe_debug_pub.add('AK item_type_code' || p_item_type_code);
17266: l_cursor_flag VARCHAR2(1) := null;
17267:
17268: BEGIN
17269: oe_debug_pub.add('Entering OE_LINE_UTIL.CASCADE_LINE_NUMBER ');
17270: oe_debug_pub.add('AK line_id ' || p_line_id);
17271: oe_debug_pub.add('AK line_iset_d ' || p_line_set_id);
17272: oe_debug_pub.add('AK line_number' || p_line_number);
17273: oe_debug_pub.add('AK item_type_code' || p_item_type_code);
17274:
17267:
17268: BEGIN
17269: oe_debug_pub.add('Entering OE_LINE_UTIL.CASCADE_LINE_NUMBER ');
17270: oe_debug_pub.add('AK line_id ' || p_line_id);
17271: oe_debug_pub.add('AK line_iset_d ' || p_line_set_id);
17272: oe_debug_pub.add('AK line_number' || p_line_number);
17273: oe_debug_pub.add('AK item_type_code' || p_item_type_code);
17274:
17275: IF p_item_type_code = OE_GLOBALS.G_ITEM_STANDARD THEN
17268: BEGIN
17269: oe_debug_pub.add('Entering OE_LINE_UTIL.CASCADE_LINE_NUMBER ');
17270: oe_debug_pub.add('AK line_id ' || p_line_id);
17271: oe_debug_pub.add('AK line_iset_d ' || p_line_set_id);
17272: oe_debug_pub.add('AK line_number' || p_line_number);
17273: oe_debug_pub.add('AK item_type_code' || p_item_type_code);
17274:
17275: IF p_item_type_code = OE_GLOBALS.G_ITEM_STANDARD THEN
17276:
17269: oe_debug_pub.add('Entering OE_LINE_UTIL.CASCADE_LINE_NUMBER ');
17270: oe_debug_pub.add('AK line_id ' || p_line_id);
17271: oe_debug_pub.add('AK line_iset_d ' || p_line_set_id);
17272: oe_debug_pub.add('AK line_number' || p_line_number);
17273: oe_debug_pub.add('AK item_type_code' || p_item_type_code);
17274:
17275: IF p_item_type_code = OE_GLOBALS.G_ITEM_STANDARD THEN
17276:
17277: OPEN Standard_line_number;
17278: l_cursor_flag := 'S';
17279:
17280: -- Update line number on the child service lines
17281: /*lchen rewrite the update statement to fix performance bug 1869179 */
17282: oe_debug_pub.add('l_cursor_flag= ' ||l_cursor_flag );
17283:
17284: LOOP
17285: FETCH standard_line_number
17286: INTO l_line_id,
17301: WHEN OTHERS THEN
17302: l_dummy := 0;
17303: END;
17304:
17305: oe_debug_pub.add('l_line_id= ' || l_line_id);
17306: oe_debug_pub.add('In the loop of standard_line_number, update child service line numbers');
17307:
17308: UPDATE oe_order_lines
17309: Set line_number = p_line_number,
17302: l_dummy := 0;
17303: END;
17304:
17305: oe_debug_pub.add('l_line_id= ' || l_line_id);
17306: oe_debug_pub.add('In the loop of standard_line_number, update child service line numbers');
17307:
17308: UPDATE oe_order_lines
17309: Set line_number = p_line_number,
17310: lock_control = lock_control + 1
17326: l_line_rec.option_number,
17327: l_line_rec.service_number;
17328: EXIT WHEN Standard_line_number%NOTFOUND;
17329:
17330: oe_debug_pub.add(' before calling wf_util');
17331: oe_debug_pub.add('line_rec.line_id=' || l_line_rec.line_id);
17332:
17333: oe_order_wf_util.set_line_user_key(l_line_rec);
17334:
17327: l_line_rec.service_number;
17328: EXIT WHEN Standard_line_number%NOTFOUND;
17329:
17330: oe_debug_pub.add(' before calling wf_util');
17331: oe_debug_pub.add('line_rec.line_id=' || l_line_rec.line_id);
17332:
17333: oe_order_wf_util.set_line_user_key(l_line_rec);
17334:
17335: END LOOP;
17344:
17345: OPEN Model_line_number;
17346: l_cursor_flag := 'M';
17347:
17348: oe_debug_pub.add('l_cursor_flag= ' ||l_cursor_flag );
17349: -- Update line number on the child option/service/class lines
17350:
17351: UPDATE oe_order_lines
17352: Set line_number = p_line_number,
17372: l_line_rec.option_number,
17373: l_line_rec.service_number;
17374: EXIT WHEN Model_Line_Number%NOTFOUND;
17375:
17376: oe_debug_pub.add(' before calling wf_util');
17377: oe_debug_pub.add('line_rec.line_id=' || l_line_rec.line_id);
17378:
17379: oe_order_wf_util.set_line_user_key(l_line_rec);
17380:
17373: l_line_rec.service_number;
17374: EXIT WHEN Model_Line_Number%NOTFOUND;
17375:
17376: oe_debug_pub.add(' before calling wf_util');
17377: oe_debug_pub.add('line_rec.line_id=' || l_line_rec.line_id);
17378:
17379: oe_order_wf_util.set_line_user_key(l_line_rec);
17380:
17381: END LOOP;
17386: -- Update line numbers for service lines
17387:
17388: OPEN SERVICE_line_number;
17389: l_cursor_flag := 'O';
17390: oe_debug_pub.add('l_cursor_flag= ' ||l_cursor_flag );
17391:
17392: -- Update line number on the child option/service/class lines
17393: --lchen rewrite the update statement to fix performance bug 1869179
17394:
17413: WHEN OTHERS THEN
17414: l_dummy := 0;
17415: END;
17416:
17417: oe_debug_pub.add('l_line_id = ' ||l_dummy);
17418: oe_debug_pub.add('in service_line_number loop, update service line number');
17419:
17420: UPDATE oe_order_lines
17421: Set line_number = p_line_number,
17414: l_dummy := 0;
17415: END;
17416:
17417: oe_debug_pub.add('l_line_id = ' ||l_dummy);
17418: oe_debug_pub.add('in service_line_number loop, update service line number');
17419:
17420: UPDATE oe_order_lines
17421: Set line_number = p_line_number,
17422: lock_control = lock_control + 1
17437: l_line_rec.option_number,
17438: l_line_rec.service_number;
17439: EXIT WHEN service_Line_Number%NOTFOUND;
17440:
17441: oe_debug_pub.add(' before calling wf_util');
17442: oe_debug_pub.add('line_rec.line_id=' || l_line_rec.line_id);
17443:
17444: oe_order_wf_util.set_line_user_key(l_line_rec);
17445: END LOOP;
17438: l_line_rec.service_number;
17439: EXIT WHEN service_Line_Number%NOTFOUND;
17440:
17441: oe_debug_pub.add(' before calling wf_util');
17442: oe_debug_pub.add('line_rec.line_id=' || l_line_rec.line_id);
17443:
17444: oe_order_wf_util.set_line_user_key(l_line_rec);
17445: END LOOP;
17446: END IF;
17447: CLOSE Service_line_number;
17448:
17449: END IF; /*p_item_type_code*/
17450:
17451: oe_debug_pub.add('Exiting OE_LINE_UTIL.CASCADE_LINE_NUMBER ');
17452:
17453: EXCEPTION
17454:
17455: WHEN NO_DATA_FOUND THEN
17550: AND WIAS.activity_status = 'NOTIFIED'
17551: AND WPA.activity_name = 'AUTHORIZE_TO_SHIP_WAIT'
17552: AND WPA.instance_id = WIAS.process_activity;
17553:
17554: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
17555:
17556: l_close_act_complete NUMBER := 0;
17557:
17558: BEGIN
17557:
17558: BEGIN
17559:
17560: if l_debug_level > 0 then
17561: oe_debug_pub.add('Entering Post_Write_Process',1);
17562: end if;
17563:
17564: -- QUOTING change
17565: IF (p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE
17572: ,p_old_line_rec.transaction_phase_code)
17573: )
17574: THEN
17575: if l_debug_level > 0 then
17576: oe_debug_pub.add('Call evaluate_holds_post_write for CREATE');
17577: end if;
17578: OE_Holds_PUB.evaluate_holds_post_write
17579: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
17580: ,p_entity_id => p_x_line_rec.line_id
17589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17590: END IF;
17591:
17592: if l_debug_level > 0 then
17593: oe_debug_pub.add('After evaluate_holds_post_write in LINE Post Write');
17594: end if;
17595: END IF;
17596:
17597: --Call the delayed request for holds evaluation. This is needed for a
17598: --scheduling fix.
17599: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
17600:
17601: if l_debug_level > 0 then
17602: oe_debug_pub.add('Calling DelayedReg for evaluate_holds in post_write for UPDATE');
17603: end if;
17604:
17605: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
17606: (p_request_type =>OE_GLOBALS.G_EVAL_HOLD_SOURCE
17647: I := OE_Config_Pvt.OE_FREEZE_INC_ITEMS_TBL.FIRST;
17648: WHILE I is not null
17649: LOOP
17650: if l_debug_level > 0 then
17651: oe_debug_pub.add(I || ' freeze inc items call looping '||p_x_line_rec.line_id, 4);
17652: end if;
17653: IF p_x_line_rec.line_id = OE_Config_Pvt.OE_FREEZE_INC_ITEMS_TBL(I)
17654: THEN
17655: if l_debug_level > 0 then
17652: end if;
17653: IF p_x_line_rec.line_id = OE_Config_Pvt.OE_FREEZE_INC_ITEMS_TBL(I)
17654: THEN
17655: if l_debug_level > 0 then
17656: oe_debug_pub.add('PO: Calling freeze_inc_items call', 2);
17657: end if;
17658: l_return_status :=
17659: OE_Config_Util.Process_Included_Items
17660: (p_line_rec => p_x_line_rec,
17660: (p_line_rec => p_x_line_rec,
17661: p_freeze => TRUE);
17662:
17663: if l_debug_level > 0 then
17664: oe_debug_pub.add('PO: After Calling Process_Included_Items call: ' ||
17665: l_return_status, 2);
17666: end if;
17667:
17668: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
17695:
17696: --4504362: Branch scheduling check removed
17697:
17698: if l_debug_level > 0 then
17699: oe_debug_pub.add('OESCH_PERFORM_SCHEDULING :' ||
17700: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING,1);
17701: end if;
17702:
17703: /* 7576948: IR ISO Change Management project Start */
17718: -- nvl(p_x_line_rec.ordered_quantity,0) = 0 THEN -- Commented for bug 7611039
17719: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
17720:
17721: IF l_debug_level > 0 THEN
17722: oe_debug_pub.add(' Setting global OE_Schedule_GRP.G_ISO_Planning_Update to TRUE',5);
17723: END IF;
17724: END IF;
17725:
17726: /* ============================= */
17732: AND p_x_line_rec.operation <> OE_GLOBALS.G_OPR_DELETE
17733: THEN
17734:
17735: if l_debug_level > 0 then
17736: oe_debug_pub.add('PO: Calling new Schedule_line from post write',1);
17737: end if;
17738:
17739: oe_split_util.g_sch_recursion := 'TRUE';
17740:
17738:
17739: oe_split_util.g_sch_recursion := 'TRUE';
17740:
17741: if l_debug_level > 0 then
17742: oe_debug_pub.add(' New Schedule Line',1);
17743: end if;
17744: OE_SCHEDULE_UTIL.Schedule_Line
17745: (p_x_line_rec => p_x_line_rec
17746: ,p_old_line_rec => p_old_line_rec
17754:
17755: oe_split_util.g_sch_recursion := 'FALSE';
17756:
17757: if l_debug_level > 0 then
17758: oe_debug_pub.add('PO: After Calling Schedule_line: ' ||
17759: l_return_status,1);
17760: oe_debug_pub.add('SCH: p_x_line_rec.schedule_status_code '||
17761: p_x_line_rec.schedule_status_code,1);
17762: end if;
17756:
17757: if l_debug_level > 0 then
17758: oe_debug_pub.add('PO: After Calling Schedule_line: ' ||
17759: l_return_status,1);
17760: oe_debug_pub.add('SCH: p_x_line_rec.schedule_status_code '||
17761: p_x_line_rec.schedule_status_code,1);
17762: end if;
17763:
17764: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
17816: ,to_char(p_x_line_rec.line_id)
17817: ,'CLOSE_LINE',
17818: 'RETRY','CANCEL');
17819: if l_debug_level > 0 then
17820: OE_DEBUG_PUB.ADD('After Calling Wf Handle Error ');
17821: end if;
17822:
17823: -- Added for FP bug 6682329. The below query is added to fix the data corruption
17824: -- issues where both cancelled_flag and open_flag were getting set to 'Y'.
17823: -- Added for FP bug 6682329. The below query is added to fix the data corruption
17824: -- issues where both cancelled_flag and open_flag were getting set to 'Y'.
17825:
17826: IF nvl(p_x_line_rec.cancelled_flag,'N') = 'Y' THEN
17827: oe_debug_pub.add(' Line is cancelled, Close_Line WF act is ? ');
17828: select count(*) into l_close_act_complete
17829: from wf_item_activity_statuses s,
17830: wf_process_activities p
17831: where s.process_activity = p.instance_id
17834: and p.activity_name = 'CLOSE_LINE'
17835: and activity_result_code in ('NOT_ELIGIBLE','COMPLETE')
17836: and s.activity_status = 'COMPLETE';
17837: IF l_close_act_complete = 0 THEN
17838: oe_debug_pub.add(' Close_Line failed. Rollback the changes');
17839: FND_MESSAGE.SET_NAME('ONT','OE_CLOSE_LINE_ERROR');
17840: OE_MSG_PUB.ADD;
17841: RAISE FND_API.G_EXC_ERROR;
17842: END IF;
17854: l_ctr := OE_GLOBALS.G_START_LINE_FLOWS_TBL.FIRST;
17855: WHILE (l_ctr IS NOT NULL) LOOP
17856: IF (OE_GLOBALS.G_START_LINE_FLOWS_TBL(l_ctr).LINE_ID =
17857: p_x_line_rec.line_id) THEN
17858: oe_debug_pub.add('Cancellation:Deleting from OE_GLOBALS.G_START_LINE_FLOWS_TBL for lineID:' || p_x_line_rec.line_id);
17859: OE_GLOBALS.G_START_LINE_FLOWS_TBL.DELETE(l_ctr);
17860: EXIT;
17861: END IF;
17862: l_ctr := OE_GLOBALS.G_START_LINE_FLOWS_TBL.NEXT(l_ctr);
17869: p_x_line_rec.ato_line_id IS NULL AND
17870: p_x_line_rec.item_type_code = 'INCLUDED' AND
17871: nvl(p_x_line_rec.model_remnant_flag, 'N') = 'Y'
17872: THEN
17873: oe_debug_pub.add('In case of line level cancellation: calling Handle_RFR() ');
17874: Handle_RFR(p_top_model_line_id => p_x_line_rec.top_model_line_id,
17875: p_line_id => p_x_line_rec.line_id,
17876: p_link_to_line_id => p_x_line_rec.link_to_line_id );
17877: END IF;
17883: END IF;
17884: END IF;
17885:
17886: if l_debug_level > 0 then
17887: oe_debug_pub.add('RQ: ' || p_x_line_rec.reserved_quantity,1);
17888: end if;
17889:
17890: -- Adding code to create reservation when item is changed on
17891: -- the line, since inventory expects the item to be stored on the line
17899: --------------------------------------------------------------------
17900:
17901: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
17902: if l_debug_level > 0 then
17903: oe_debug_pub.add('Authorization flag is: ' ||
17904: p_x_line_rec.authorized_to_ship_flag);
17905: end if;
17906: IF p_x_line_rec.authorized_to_ship_flag = 'Y' AND
17907: NOT OE_GLOBALS.Equal(p_x_line_rec.authorized_to_ship_flag,
17961: )
17962: THEN
17963:
17964: if l_debug_level > 0 then
17965: oe_debug_pub.add('Before Calling Create Credit');
17966: end if;
17967:
17968: -- Bug# 5726848 IF condition modified for allowing update of sales credit for copied orders.
17969: IF NOT (nvl(p_x_line_rec.source_document_type_id,-99) = 2 AND
18029:
18030: END IF;
18031:
18032: if l_debug_level > 0 then
18033: oe_debug_pub.add('Exiting Post_Write_Process',1);
18034: end if;
18035:
18036: EXCEPTION
18037:
18072: l_return_status VARCHAR2(1);
18073: I NUMBER;
18074: l_count NUMBER;
18075: l_valid_line_number VARCHAR2(1) := 'Y';
18076: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
18077: BEGIN
18078:
18079: if l_debug_level > 0 then
18080: oe_debug_pub.add('entering Post_Line_Process', 1);
18076: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
18077: BEGIN
18078:
18079: if l_debug_level > 0 then
18080: oe_debug_pub.add('entering Post_Line_Process', 1);
18081: end if;
18082:
18083: -- Create Sets for lines and call group scheduling if any
18084: /*
18102: ,x_return_status => l_return_status
18103: );
18104:
18105: if l_debug_level > 0 then
18106: oe_debug_pub.add('ret sts: '|| l_return_status, 4);
18107: end if;
18108:
18109: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
18110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18156: END IF;
18157:
18158:
18159: IF OE_Config_Pvt.OE_MODIFY_INC_ITEMS_TBL.COUNT > 0 THEN
18160: oe_debug_pub.add('calling modufy inc items', 3);
18161: OE_Config_Pvt.Modify_Included_Items
18162: (x_return_status => l_return_status);
18163: OE_Config_Pvt.OE_MODIFY_INC_ITEMS_TBL.DELETE;
18164:
18183:
18184: -- added for bug fix 2375829
18185:
18186: if l_debug_level > 0 then
18187: oe_debug_pub.add('line tbl count: '||p_x_line_tbl.COUNT, 3);
18188: end if;
18189:
18190: I := p_x_line_tbl.FIRST;
18191:
18193: LOOP
18194:
18195: IF nvl(p_x_line_tbl(I).booked_flag, 'N') = 'N' THEN
18196: if l_debug_level > 0 then
18197: oe_debug_pub.add('not booked ', 3);
18198: end if;
18199:
18200: EXIT;
18201: END IF;
18200: EXIT;
18201: END IF;
18202:
18203: if l_debug_level > 0 then
18204: oe_debug_pub.add(p_x_line_tbl(I).operation ||
18205: ' cancelled flag ' || p_x_line_tbl(I).cancelled_flag||
18206: ' shp interf '||p_x_line_tbl(I).shipping_interfaced_flag, 3);
18207: end if;
18208:
18213: nvl(p_x_line_tbl(I).ship_model_complete_flag, 'N') = 'Y' AND
18214: nvl(p_x_line_tbl(I).shipping_interfaced_flag, 'N') = 'N' AND
18215: nvl(p_x_line_tbl(I).model_remnant_flag, 'N') = 'N'
18216: THEN
18217: oe_debug_pub.add('cancel or delete, call smc shipping', 1);
18218:
18219: SELECT count(*)
18220: INTO l_count
18221: FROM oe_order_lines
18223: AND shipping_interfaced_flag = 'Y';
18224:
18225: IF l_count = 0 THEN
18226:
18227: oe_debug_pub.add('need to call smc shipping', 1);
18228:
18229: OE_Shipping_Integration_PVT.Process_SMC_Shipping
18230: (p_line_id => p_x_line_tbl(I).line_id
18231: ,p_top_model_line_id => p_x_line_tbl(I).top_model_line_id
18301: -- We will call split_scheduling here for lines which got created
18302: -- thru splits.
18303:
18304: if l_debug_level > 0 then
18305: oe_debug_pub.add('Calling Split Scheduling',1);
18306: end if;
18307:
18308: -- 4504362 :Branch Scheduling checks removed.
18309:
18314:
18315: OE_SPLIT_UTIL.G_SPLIT_ACTION := FALSE;
18316:
18317: if l_debug_level > 0 then
18318: oe_debug_pub.add('After Calling Split Scheduling: ' ||
18319: l_return_status,1);
18320: end if;
18321:
18322: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
18331:
18332: IF OE_SPLIT_UTIL.G_SPLIT_ACTION = TRUE THEN
18333:
18334: if l_debug_level > 0 then
18335: oe_debug_pub.add('Logging g_split_action',2);
18336: end if;
18337:
18338: I := p_x_line_tbl.FIRST;
18339: WHILE I is NOT NULL
18348: p_x_line_tbl(I).split_from_line_id <> FND_API.G_MISS_NUM AND
18349: p_x_line_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE) THEN
18350:
18351: if l_debug_level > 0 then
18352: oe_debug_pub.add('Logging G_SPLIT_SCHEDULE' ||
18353: p_x_line_tbl(I).line_id, 2);
18354: end if;
18355:
18356: OE_delayed_requests_Pvt.log_request(
18381: END IF; -- if not recursion and process = true.
18382:
18383:
18384: if l_debug_level > 0 then
18385: oe_debug_pub.add('leaving Post_Line_Process', 1);
18386: end if;
18387: EXCEPTION
18388:
18389: WHEN FND_API.G_EXC_ERROR THEN
18386: end if;
18387: EXCEPTION
18388:
18389: WHEN FND_API.G_EXC_ERROR THEN
18390: oe_debug_pub.add('execution error', 1);
18391: RAISE;
18392:
18393: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
18394: oe_debug_pub.add('unexp error', 1);
18390: oe_debug_pub.add('execution error', 1);
18391: RAISE;
18392:
18393: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
18394: oe_debug_pub.add('unexp error', 1);
18395: RAISE;
18396:
18397: WHEN OTHERS THEN
18398: oe_debug_pub.add('others error', 1);
18394: oe_debug_pub.add('unexp error', 1);
18395: RAISE;
18396:
18397: WHEN OTHERS THEN
18398: oe_debug_pub.add('others error', 1);
18399: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
18400: THEN
18401: oe_msg_pub.Add_Exc_Msg
18402: ( G_PKG_NAME
18459: )
18460: RETURN BOOLEAN
18461: IS
18462:
18463: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
18464:
18465: BEGIN
18466: /* INVCONV
18467: IF FND_PROFILE.VALUE ('ONT_PROCESS_INSTALLED_FLAG') = 'N' THEN
18479: OE_Order_Cache.Load_Item (p_inventory_item_id
18480: ,p_ship_from_org_id);
18481: -- IF x_item_rec.process_warehouse_flag = 'Y' INVCONV
18482: -- AND INVCONV
18483: oe_debug_pub.add('in function Dual_uom_control - tracking_quantity_ind = ' || x_item_rec.tracking_quantity_ind);
18484: IF x_item_rec.tracking_quantity_ind = 'PS' -- INVCONV
18485: THEN
18486:
18487: IF l_debug_level > 0 THEN
18484: IF x_item_rec.tracking_quantity_ind = 'PS' -- INVCONV
18485: THEN
18486:
18487: IF l_debug_level > 0 THEN
18488: oe_debug_pub.add('Dual_uom_control is TRUE ', 1);
18489: end if;
18490: RETURN TRUE;
18491: END IF;
18492: END IF;
18491: END IF;
18492: END IF;
18493:
18494: IF l_debug_level > 0 THEN
18495: oe_debug_pub.add('Dual_uom_control is FALSE ', 1);
18496: end if;
18497:
18498: RETURN FALSE;
18499:
18508: ( G_PKG_NAME ,
18509: 'dual_uom_control'
18510: );
18511: END IF;
18512: oe_debug_pub.add('others in dual_uom_control', 1);
18513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18514:
18515: END dual_uom_control ;
18516:
18527: l_msg_count NUMBER;
18528: l_msg_data VARCHAR2(2000);
18529: l_item_rec OE_ORDER_CACHE.item_rec_type;
18530:
18531: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
18532:
18533: BEGIN
18534: if l_debug_level > 0 then
18535: oe_debug_pub.add('Enter Get dual uom');
18531: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
18532:
18533: BEGIN
18534: if l_debug_level > 0 then
18535: oe_debug_pub.add('Enter Get dual uom');
18536: end if;
18537:
18538: IF dual_uom_control -- INVCONV Process_Characteristics
18539: (p_line_rec.inventory_item_id,p_line_rec.ship_from_org_id,l_item_rec) THEN
18538: IF dual_uom_control -- INVCONV Process_Characteristics
18539: (p_line_rec.inventory_item_id,p_line_rec.ship_from_org_id,l_item_rec) THEN
18540: IF l_item_rec.tracking_quantity_ind = 'PS' THEN -- INVCONV
18541: if l_debug_level > 0 then
18542: oe_debug_pub.add('Get dual uom - tracking in P and S ');
18543: end if;
18544: -- convert 4 digit apps OPM codes to equivalent 3 byte APPS codes
18545: -- Primary UM
18546: GMI_Reservation_Util.Get_AppsUOM_from_OPMUOM
18552:
18553:
18554:
18555: if l_debug_level > 0 then
18556: oe_debug_pub.add('Get Dual Uom returns dual UM of ' || l_item_rec.secondary_uom_code);
18557: end if;
18558: END IF;
18559: END IF;
18560: RETURN l_item_rec.secondary_uom_code; -- INVCONV
18563:
18564: WHEN NO_DATA_FOUND THEN
18565:
18566: if l_debug_level > 0 then
18567: oe_debug_pub.add('No Data Found Get Dual Uom' );
18568: end if;
18569: RETURN NULL;
18570:
18571: WHEN OTHERS THEN
18576: 'Get_Dual_Uom'
18577: );
18578: END IF;
18579: if l_debug_level > 0 then
18580: oe_debug_pub.add('others in get_dual uom', 1);
18581: end if;
18582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18583:
18584:
18626: NULL;
18627: ELSE
18628: RETURN p_line_rec.preferred_grade;
18629: END IF;
18630: oe_debug_pub.add('OPM Test grade ctl for preferred grade');
18631:
18632: IF l_item_rec.grade_ctl = 1 THEN
18633: OPEN C_GRADE1;
18634: FETCH C_GRADE1 into l_preferred_grade;
18654: ( G_PKG_NAME ,
18655: 'Get_Preferred_Grade'
18656: );
18657: END IF;
18658: oe_debug_pub.add('others in get_preferred_grade', 1);
18659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18660:
18661:
18662: END Get_Preferred_Grade; */
18705: l_status VARCHAR2(1);
18706: l_msg_count NUMBER;
18707: -- l_msg_data VARCHAR2(2000); -- INVCONV
18708: UOM_CONVERSION_FAILED EXCEPTION; -- OPM B1478461
18709: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
18710: l_buffer VARCHAR2(2000); -- INVCONV
18711:
18712: --X_message VARCHAR2(1000); -- INVCONV
18713: --X_temp NUMBER;
18717: BEGIN
18718:
18719:
18720: IF l_debug_level > 0 THEN
18721: oe_debug_pub.add('Entering Sync Dual Qty');
18722: END IF;
18723:
18724:
18725: /* Moved this code from below to here - 2999767 */
18732: IF l_item_rec.tracking_quantity_ind <> 'PS'
18733:
18734: THEN
18735: IF l_debug_level > 0 THEN
18736: oe_debug_pub.add('Sync Dual Qty not dual controlled - return'); -- INVCONV
18737: END IF;
18738: p_x_line_rec.ordered_quantity2 := NULL;
18739: RETURN;
18740: END IF;
18740: END IF;
18741: ELSE
18742:
18743: IF l_debug_level > 0 THEN
18744: oe_debug_pub.add('not dual controlled - return');
18745: END IF;
18746:
18747: -- p_x_line_rec.ordered_quantity2 := NULL; OPM 2711743
18748: RETURN;
18748: RETURN;
18749: END IF;
18750:
18751: IF (OE_OE_FORM_CANCEL_LINE.g_ord_lvl_can) THEN -- 5141545
18752: oe_debug_pub.add ('Sync Dual Qty - Cancellation so return ' );
18753: return;
18754: else
18755: oe_debug_pub.add ('Sync Dual Qty - NOT a cancellation ' );
18756: END IF;
18751: IF (OE_OE_FORM_CANCEL_LINE.g_ord_lvl_can) THEN -- 5141545
18752: oe_debug_pub.add ('Sync Dual Qty - Cancellation so return ' );
18753: return;
18754: else
18755: oe_debug_pub.add ('Sync Dual Qty - NOT a cancellation ' );
18756: END IF;
18757:
18758:
18759: IF l_debug_level > 0 THEN
18756: END IF;
18757:
18758:
18759: IF l_debug_level > 0 THEN
18760: oe_debug_pub.add ('In sync_dual_qty');
18761: oe_debug_pub.add ('ordered_quantity = ' || p_x_line_rec.ordered_quantity );
18762: oe_debug_pub.add ('ordered_quantity2 = ' || p_x_line_rec.ordered_quantity2 );
18763:
18764: oe_debug_pub.add ('ordered_quantity_uom = ' || p_x_line_rec.order_quantity_uom );
18757:
18758:
18759: IF l_debug_level > 0 THEN
18760: oe_debug_pub.add ('In sync_dual_qty');
18761: oe_debug_pub.add ('ordered_quantity = ' || p_x_line_rec.ordered_quantity );
18762: oe_debug_pub.add ('ordered_quantity2 = ' || p_x_line_rec.ordered_quantity2 );
18763:
18764: oe_debug_pub.add ('ordered_quantity_uom = ' || p_x_line_rec.order_quantity_uom );
18765: oe_debug_pub.add ('ordered_quantity_uom2 = ' || p_x_line_rec.ordered_quantity_uom2 );
18758:
18759: IF l_debug_level > 0 THEN
18760: oe_debug_pub.add ('In sync_dual_qty');
18761: oe_debug_pub.add ('ordered_quantity = ' || p_x_line_rec.ordered_quantity );
18762: oe_debug_pub.add ('ordered_quantity2 = ' || p_x_line_rec.ordered_quantity2 );
18763:
18764: oe_debug_pub.add ('ordered_quantity_uom = ' || p_x_line_rec.order_quantity_uom );
18765: oe_debug_pub.add ('ordered_quantity_uom2 = ' || p_x_line_rec.ordered_quantity_uom2 );
18766: oe_debug_pub.add ('inventory_item_id = ' || p_x_line_rec.inventory_item_id );
18760: oe_debug_pub.add ('In sync_dual_qty');
18761: oe_debug_pub.add ('ordered_quantity = ' || p_x_line_rec.ordered_quantity );
18762: oe_debug_pub.add ('ordered_quantity2 = ' || p_x_line_rec.ordered_quantity2 );
18763:
18764: oe_debug_pub.add ('ordered_quantity_uom = ' || p_x_line_rec.order_quantity_uom );
18765: oe_debug_pub.add ('ordered_quantity_uom2 = ' || p_x_line_rec.ordered_quantity_uom2 );
18766: oe_debug_pub.add ('inventory_item_id = ' || p_x_line_rec.inventory_item_id );
18767: oe_debug_pub.add ('ship_from_org_id = ' || p_x_line_rec.ship_from_org_id );
18768: oe_debug_pub.add ('secondary_default_ind = ' || l_item_rec.secondary_default_ind );
18761: oe_debug_pub.add ('ordered_quantity = ' || p_x_line_rec.ordered_quantity );
18762: oe_debug_pub.add ('ordered_quantity2 = ' || p_x_line_rec.ordered_quantity2 );
18763:
18764: oe_debug_pub.add ('ordered_quantity_uom = ' || p_x_line_rec.order_quantity_uom );
18765: oe_debug_pub.add ('ordered_quantity_uom2 = ' || p_x_line_rec.ordered_quantity_uom2 );
18766: oe_debug_pub.add ('inventory_item_id = ' || p_x_line_rec.inventory_item_id );
18767: oe_debug_pub.add ('ship_from_org_id = ' || p_x_line_rec.ship_from_org_id );
18768: oe_debug_pub.add ('secondary_default_ind = ' || l_item_rec.secondary_default_ind );
18769: oe_debug_pub.add ('p_x_line_rec.source_document_type_id = ' || p_x_line_rec.source_document_type_id );
18762: oe_debug_pub.add ('ordered_quantity2 = ' || p_x_line_rec.ordered_quantity2 );
18763:
18764: oe_debug_pub.add ('ordered_quantity_uom = ' || p_x_line_rec.order_quantity_uom );
18765: oe_debug_pub.add ('ordered_quantity_uom2 = ' || p_x_line_rec.ordered_quantity_uom2 );
18766: oe_debug_pub.add ('inventory_item_id = ' || p_x_line_rec.inventory_item_id );
18767: oe_debug_pub.add ('ship_from_org_id = ' || p_x_line_rec.ship_from_org_id );
18768: oe_debug_pub.add ('secondary_default_ind = ' || l_item_rec.secondary_default_ind );
18769: oe_debug_pub.add ('p_x_line_rec.source_document_type_id = ' || p_x_line_rec.source_document_type_id );
18770:
18763:
18764: oe_debug_pub.add ('ordered_quantity_uom = ' || p_x_line_rec.order_quantity_uom );
18765: oe_debug_pub.add ('ordered_quantity_uom2 = ' || p_x_line_rec.ordered_quantity_uom2 );
18766: oe_debug_pub.add ('inventory_item_id = ' || p_x_line_rec.inventory_item_id );
18767: oe_debug_pub.add ('ship_from_org_id = ' || p_x_line_rec.ship_from_org_id );
18768: oe_debug_pub.add ('secondary_default_ind = ' || l_item_rec.secondary_default_ind );
18769: oe_debug_pub.add ('p_x_line_rec.source_document_type_id = ' || p_x_line_rec.source_document_type_id );
18770:
18771: IF p_x_line_rec.ordered_quantity_uom2 = FND_API.G_MISS_CHAR THEN
18764: oe_debug_pub.add ('ordered_quantity_uom = ' || p_x_line_rec.order_quantity_uom );
18765: oe_debug_pub.add ('ordered_quantity_uom2 = ' || p_x_line_rec.ordered_quantity_uom2 );
18766: oe_debug_pub.add ('inventory_item_id = ' || p_x_line_rec.inventory_item_id );
18767: oe_debug_pub.add ('ship_from_org_id = ' || p_x_line_rec.ship_from_org_id );
18768: oe_debug_pub.add ('secondary_default_ind = ' || l_item_rec.secondary_default_ind );
18769: oe_debug_pub.add ('p_x_line_rec.source_document_type_id = ' || p_x_line_rec.source_document_type_id );
18770:
18771: IF p_x_line_rec.ordered_quantity_uom2 = FND_API.G_MISS_CHAR THEN
18772: oe_debug_pub.add ('ordered_quantity_uom2 = G_MISS_CHAR ' );
18765: oe_debug_pub.add ('ordered_quantity_uom2 = ' || p_x_line_rec.ordered_quantity_uom2 );
18766: oe_debug_pub.add ('inventory_item_id = ' || p_x_line_rec.inventory_item_id );
18767: oe_debug_pub.add ('ship_from_org_id = ' || p_x_line_rec.ship_from_org_id );
18768: oe_debug_pub.add ('secondary_default_ind = ' || l_item_rec.secondary_default_ind );
18769: oe_debug_pub.add ('p_x_line_rec.source_document_type_id = ' || p_x_line_rec.source_document_type_id );
18770:
18771: IF p_x_line_rec.ordered_quantity_uom2 = FND_API.G_MISS_CHAR THEN
18772: oe_debug_pub.add ('ordered_quantity_uom2 = G_MISS_CHAR ' );
18773: ELSIF
18768: oe_debug_pub.add ('secondary_default_ind = ' || l_item_rec.secondary_default_ind );
18769: oe_debug_pub.add ('p_x_line_rec.source_document_type_id = ' || p_x_line_rec.source_document_type_id );
18770:
18771: IF p_x_line_rec.ordered_quantity_uom2 = FND_API.G_MISS_CHAR THEN
18772: oe_debug_pub.add ('ordered_quantity_uom2 = G_MISS_CHAR ' );
18773: ELSIF
18774: p_x_line_rec.ordered_quantity_uom2 is null THEN
18775: oe_debug_pub.add ('ordered_quantity_uom2 = null' );
18776: END IF;
18771: IF p_x_line_rec.ordered_quantity_uom2 = FND_API.G_MISS_CHAR THEN
18772: oe_debug_pub.add ('ordered_quantity_uom2 = G_MISS_CHAR ' );
18773: ELSIF
18774: p_x_line_rec.ordered_quantity_uom2 is null THEN
18775: oe_debug_pub.add ('ordered_quantity_uom2 = null' );
18776: END IF;
18777: IF p_x_line_rec.ordered_quantity2 = FND_API.G_MISS_NUM THEN
18778: oe_debug_pub.add ('ordered_quantity2 = G_MISS_NUM ' );
18779: ELSIF
18774: p_x_line_rec.ordered_quantity_uom2 is null THEN
18775: oe_debug_pub.add ('ordered_quantity_uom2 = null' );
18776: END IF;
18777: IF p_x_line_rec.ordered_quantity2 = FND_API.G_MISS_NUM THEN
18778: oe_debug_pub.add ('ordered_quantity2 = G_MISS_NUM ' );
18779: ELSIF
18780: p_x_line_rec.ordered_quantity2 is null THEN
18781: oe_debug_pub.add ('ordered_quantity2 = null' );
18782: END IF;
18777: IF p_x_line_rec.ordered_quantity2 = FND_API.G_MISS_NUM THEN
18778: oe_debug_pub.add ('ordered_quantity2 = G_MISS_NUM ' );
18779: ELSIF
18780: p_x_line_rec.ordered_quantity2 is null THEN
18781: oe_debug_pub.add ('ordered_quantity2 = null' );
18782: END IF;
18783:
18784:
18785: END IF;
18801: (p_x_line_rec.ordered_quantity2 IS NOT NULL and
18802: p_x_line_rec.ordered_quantity2 <> FND_API.G_MISS_NUM )
18803: ) THEN
18804: IF l_debug_level > 0 THEN
18805: oe_debug_pub.add('Sync_dual_qty IF (OE_GLOBALS.G_UI_FLAG) and ship froms = - early exit ');
18806: END IF;
18807: RETURN;
18808: END IF;
18809: -- bug 4053117 end
18856: /* End Bug2999767 */
18857: THEN
18858:
18859: IF l_debug_level > 0 THEN
18860: oe_debug_pub.add('Sync_dual_qty - early exit ');
18861: END IF;
18862:
18863: RETURN;
18864: END IF; -- OPM B1661023 04/02/01
18871: (p_x_line_rec.ordered_quantity2 IS NULL OR
18872: p_x_line_rec.ordered_quantity2 = FND_API.G_MISS_NUM ) THEN
18873:
18874: IF l_debug_level > 0 THEN
18875: oe_debug_pub.add ('Sync_dual_qty - both quantities empty so early return');
18876: END IF;
18877:
18878: RETURN;
18879: END IF;
18878: RETURN;
18879: END IF;
18880:
18881: IF l_debug_level > 0 THEN
18882: oe_debug_pub.add('Sync_dual_qty - Convert for dual Scenario',1); -- INVCONV
18883: END IF;
18884:
18885: /* -- Bug3052287 INVCONV
18886: -- When the primary UOM1 itself is not populated, derive it from l_item_rec.
18919: (p_x_line_rec.ordered_quantity IS NULL) OR
18920: (p_x_line_rec.ordered_quantity2 IS NULL) THEN
18921:
18922: IF l_debug_level > 0 THEN
18923: oe_debug_pub.add('Sync_dual_qty - change detected ',1);
18924: END IF;
18925:
18926: -- IF l_item_rec.dualum_ind in (0,3) INVCONV
18927: IF (l_item_rec.secondary_default_ind = 'N' or
18933:
18934: /* NO UM Conversion required for types 3 so return here and not internal order line -- INVCONV
18935: ============================================================*/
18936: IF l_debug_level > 0 THEN
18937: oe_debug_pub.add('Sync_dual_qty - default ind is N or null - early return ',1);
18938: END IF;
18939:
18940: RETURN;
18941: END IF;
18942: ELSE
18943: /* No sync required
18944: ==================*/
18945: IF l_debug_level > 0 THEN
18946: oe_debug_pub.add('Sync_dual_qty - no change detected so no sync',1);
18947: END IF;
18948:
18949: RETURN;
18950: END IF; -- IF (NOT OE_GLOBALS.EQUAL(p_x_line_rec.ordered_quantity
18948:
18949: RETURN;
18950: END IF; -- IF (NOT OE_GLOBALS.EQUAL(p_x_line_rec.ordered_quantity
18951:
18952: oe_debug_pub.add('Sync_dual_qty - here 1 ',1);
18953:
18954: IF (NOT OE_GLOBALS.EQUAL(p_x_line_rec.ordered_quantity
18955: ,p_old_line_rec.ordered_quantity )) OR
18956: p_x_line_rec.ordered_quantity2 IS NULL THEN
18966: NOT (nvl(p_x_line_rec.source_document_type_id,-99) = 10) ) -- INVCONV DEC 23 not for internal order line
18967: THEN
18968:
18969: IF l_debug_level > 0 THEN
18970: oe_debug_pub.add('Check the deviation ');
18971: END IF;
18972:
18973:
18974:
18993: , p_uom_code2 => l_item_rec.secondary_uom_code );
18994: IF l_return = 0
18995: then
18996: IF l_debug_level > 0 THEN
18997: oe_debug_pub.add('Sync_dual_qty - tolerance error 1 ' ,1);
18998: END IF;
18999:
19000: l_buffer := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST, -- INVCONV
19001: p_encoded => 'F');
19000: l_buffer := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST, -- INVCONV
19001: p_encoded => 'F');
19002: oe_msg_pub.add_text(p_message_text => l_buffer);
19003: IF l_debug_level > 0 THEN
19004: oe_debug_pub.add(l_buffer,1);
19005: END IF;
19006: RAISE fnd_api.g_exc_error;
19007:
19008: else
19006: RAISE fnd_api.g_exc_error;
19007:
19008: else
19009: IF l_debug_level > 0 THEN
19010: oe_debug_pub.add('Sync_dual_qty - No tolerance error so return ',1);
19011: END IF;
19012: RETURN;
19013: END IF; -- IF l_return = 0
19014:
19017: END IF; -- IF l_item_rec.secondary_default_ind = 'D'
19018:
19019:
19020: IF l_debug_level > 0 THEN
19021: oe_debug_pub.add('Sync_dual_qty - uom conversion primary to secondary');
19022: END IF;
19023:
19024: -- OPM June 2003 3011880 begin - when converting qtys, if the p_x_line_rec.ordered_quantity_uom2 is not available yet,
19025: -- then convert the opm um2 to the apps um for the call to get_opm_converted_qty below which requires apps uoms
19035: ,x_Apps_UOM => p_x_line_rec.ordered_quantity_uom2
19036: ,x_return_status => l_status
19037: ,x_msg_count => l_msg_count
19038: ,x_msg_data => l_msg_data);
19039: oe_debug_pub.add('OPM in sync_dual - Get_AppsUOM_from_OPMUOM returns dual UM of ' || p_x_line_rec.ordered_quantity_uom2);
19040: END IF; */
19041:
19042: -- OPM June 2003 3011880 end
19043:
19072: ,NULL -- To uom name
19073: );
19074:
19075: IF l_debug_level > 0 THEN
19076: oe_debug_pub.add('Sync_dual_qty - secondary qty after conversion is '||l_converted_qty);
19077: END IF;
19078: -- Feb 2003 2683316 end
19079:
19080: IF (l_converted_qty < 0) THEN -- OPM B1478461 Start
19112:
19113: IF l_return = 0
19114: then
19115: IF l_debug_level > 0 THEN
19116: oe_debug_pub.add('Sync_dual_qty - tolerance error 2' ,1);
19117: END IF;
19118:
19119: l_buffer := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST, -- INVCONV
19120: p_encoded => 'F');
19119: l_buffer := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST, -- INVCONV
19120: p_encoded => 'F');
19121: oe_msg_pub.add_text(p_message_text => l_buffer);
19122: IF l_debug_level > 0 THEN
19123: oe_debug_pub.add(l_buffer,1);
19124: END IF;
19125: RAISE fnd_api.g_exc_error;
19126:
19127:
19126:
19127:
19128: else
19129: IF l_debug_level > 0 THEN
19130: oe_debug_pub.add('Sync_dual_qty - No tolerance error so return ',1);
19131: END IF;
19132: RETURN;
19133: END IF; -- IF l_return = 0
19134:
19183: raise UOM_CONVERSION_FAILED;
19184: END IF; -- OPM B1478461 End
19185:
19186: IF l_debug_level > 0 THEN
19187: oe_debug_pub.add(' Sync_dual_qty - primary qty after conversion is '||l_converted_qty);
19188: END IF;
19189:
19190: p_x_line_rec.ordered_quantity := l_converted_qty;
19191:
19224: ( G_PKG_NAME ,
19225: 'Sync_Dual_Qty'
19226: );
19227: END IF;
19228: oe_debug_pub.add('Exception handling: others in Sync_Dual_Qty', 1);
19229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19230:
19231:
19232: END Sync_Dual_Qty;
19252: l_msg_data VARCHAR2(2000);
19253:
19254: BEGIN
19255:
19256: oe_debug_pub.add('OPM Enter Calculate_Ordered_Quantity2');
19257:
19258:
19259: -- If this is a process line, load the item details from cache
19260: --==============================================================
19269: -- Usually ordered_quantity2 is not calculated for items where
19270: dualum_ind=3, but in a split scenario, the calc IS automated.
19271: --============================================================
19272: IF l_item_rec.dualum_ind in (1,2,3) THEN
19273: oe_debug_pub.add('OPM Dualum ind 3 is true');
19274:
19275:
19276: -- Feb 2003 2683316 - changed the call to GMI uom_conversion above to get_opm_converted_qty
19277: -- to resolve rounding issues
19282: p_apps_from_uom => p_line_rec.order_quantity_uom ,
19283: p_apps_to_uom => p_line_rec.ordered_quantity_uom2,
19284: p_original_qty => p_line_rec.ordered_quantity);
19285:
19286: oe_debug_pub.add('OPM secondary in Calculate_Ordered_Quantity2 after new get_opm_converted_qty is '||l_ordered_quantity2);
19287:
19288: -- Feb 2003 2683316 end
19289:
19290: ELSE
19290: ELSE
19291: l_ordered_quantity2 := NULL;
19292: END IF;
19293:
19294: oe_debug_pub.add('OPM Return ordered_quantity2 set to '|| l_ordered_quantity2);
19295: RETURN l_ordered_quantity2;
19296:
19297: EXCEPTION
19298:
19322: ) IS
19323: l_return_status VARCHAR2(1);
19324:
19325: l_return_code NUMBER; -- INVCONV
19326: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level; -- INVCONV
19327: l_qty number; -- INVCONV
19328: l_qty2 number; -- INVCONV
19329: l_ordered_qty number; --nocopy impact changes
19330: BEGIN
19329: l_ordered_qty number; --nocopy impact changes
19330: BEGIN
19331:
19332: if l_debug_level > 0 then -- INVCONV
19333: oe_debug_pub.add('Entering Pre_Attribute_Security - reserved_quantity = ' || p_x_line_rec.reserved_quantity );
19334: end if;
19335:
19336: -- Added this code for Splits
19337: -- Need to send the rounded QTY for line if the
19363: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
19364: RAISE FND_API.G_EXC_ERROR;
19365: END IF;
19366: END IF;
19367: oe_debug_pub.add('PAS 2 Qty :'||p_x_line_rec.ordered_quantity);
19368:
19369: -- Populate Set Ids IF Set Names are given
19370: -- This will harcode the defaulting for schduling attributes
19371: -- THis is kept outside defaulting framework to handle cases
19381: -- OPM 02/JUN/00 END
19382: -- INVCONV
19383: -- check this - why call here ?? need to know where to call in proper place - ask OM team
19384:
19385: --oe_debug_pub.add('reserved_quantity = ' || p_x_line_rec.reserved_quantity );
19386: -- oe_debug_pub.add('reserved_quantity2 = ' || p_x_line_rec.reserved_quantity2 );
19387: IF NOT(OE_GLOBALS.G_UI_FLAG) and -- 4958890
19388: p_x_line_rec.ordered_quantity <> FND_API.G_MISS_NUM And
19389: p_x_line_rec.ordered_quantity IS NOT NULL and
19382: -- INVCONV
19383: -- check this - why call here ?? need to know where to call in proper place - ask OM team
19384:
19385: --oe_debug_pub.add('reserved_quantity = ' || p_x_line_rec.reserved_quantity );
19386: -- oe_debug_pub.add('reserved_quantity2 = ' || p_x_line_rec.reserved_quantity2 );
19387: IF NOT(OE_GLOBALS.G_UI_FLAG) and -- 4958890
19388: p_x_line_rec.ordered_quantity <> FND_API.G_MISS_NUM And
19389: p_x_line_rec.ordered_quantity IS NOT NULL and
19390: p_x_line_rec.ordered_quantity2 <> FND_API.G_MISS_NUM And
19409: end if;
19410:
19411:
19412: if l_debug_level > 0 then -- INVCONV
19413: oe_debug_pub.add('pre_attribute_security - about to call calculate_dual_quantity. l_qty = ' || l_qty);
19414: oe_debug_pub.add('pre_attribute_security - about to call calculate_dual_quantity. l_qty2 = ' || l_qty2);
19415: end if;
19416: IF l_qty <>0 or
19417: l_qty2 <> 0
19410:
19411:
19412: if l_debug_level > 0 then -- INVCONV
19413: oe_debug_pub.add('pre_attribute_security - about to call calculate_dual_quantity. l_qty = ' || l_qty);
19414: oe_debug_pub.add('pre_attribute_security - about to call calculate_dual_quantity. l_qty2 = ' || l_qty2);
19415: end if;
19416: IF l_qty <>0 or
19417: l_qty2 <> 0
19418: then
19449: END IF; -- IF l_return_code <> 0 THEN -- INVCONV
19450:
19451:
19452: IF l_debug_level > 0 THEN
19453: oe_debug_pub.add('Pre_Attribute_Security after call to calculate_dual_quantity for reserved_quantities - return status = : ' || l_return_code);
19454: oe_debug_pub.add('reserved_quantity = : ' || p_x_line_rec.reserved_quantity);
19455: oe_debug_pub.add('reserved_quantity2 = : ' || p_x_line_rec.reserved_quantity2);
19456:
19457: END IF;
19450:
19451:
19452: IF l_debug_level > 0 THEN
19453: oe_debug_pub.add('Pre_Attribute_Security after call to calculate_dual_quantity for reserved_quantities - return status = : ' || l_return_code);
19454: oe_debug_pub.add('reserved_quantity = : ' || p_x_line_rec.reserved_quantity);
19455: oe_debug_pub.add('reserved_quantity2 = : ' || p_x_line_rec.reserved_quantity2);
19456:
19457: END IF;
19458:
19451:
19452: IF l_debug_level > 0 THEN
19453: oe_debug_pub.add('Pre_Attribute_Security after call to calculate_dual_quantity for reserved_quantities - return status = : ' || l_return_code);
19454: oe_debug_pub.add('reserved_quantity = : ' || p_x_line_rec.reserved_quantity);
19455: oe_debug_pub.add('reserved_quantity2 = : ' || p_x_line_rec.reserved_quantity2);
19456:
19457: END IF;
19458:
19459: END IF; -- IF l_qty <>0 then
19487: l_flag BOOLEAN;
19488: l_notify_cto BOOLEAN;
19489: l_ato_item_qty_change BOOLEAN;
19490: l_pto_ato_create BOOLEAN;
19491: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
19492: BEGIN
19493: if l_debug_level > 0 then
19494: oe_debug_pub.add('entering Log_CTO_Requests', 1);
19495: end if;
19490: l_pto_ato_create BOOLEAN;
19491: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
19492: BEGIN
19493: if l_debug_level > 0 then
19494: oe_debug_pub.add('entering Log_CTO_Requests', 1);
19495: end if;
19496:
19497: l_flag := FALSE;
19498:
19506: OE_Code_Control.Code_Release_Level >= '110510')
19507: THEN
19508:
19509: if l_debug_level > 0 then
19510: oe_debug_pub.add('configuration scheduled', 5);
19511: end if;
19512:
19513: IF OE_Code_Control.Code_release_Level < '110510' THEN
19514:
19523: l_flag := TRUE;
19524: EXCEPTION
19525: WHEN NO_DATA_FOUND THEN
19526: if l_debug_level > 0 then
19527: oe_debug_pub.add('config item not yet created', 2);
19528: end if;
19529: END;
19530: ELSE
19531: l_flag := TRUE;
19531: l_flag := TRUE;
19532: END IF;
19533: ELSE
19534: if l_debug_level > 0 then
19535: oe_debug_pub.add('flag is false', 2);
19536: end if;
19537: END IF;
19538:
19539: l_ato_item_qty_change := FALSE;
19544: p_old_line_rec.schedule_status_code is NOT NULL AND
19545: p_x_line_rec.operation <> OE_GLOBALS.G_OPR_CREATE
19546: THEN
19547: if l_debug_level > 0 then
19548: oe_debug_pub.add('ato item, may need to notify cto', 4);
19549: end if;
19550: l_flag := TRUE;
19551:
19552: IF p_x_line_rec.ordered_quantity = 0 AND
19552: IF p_x_line_rec.ordered_quantity = 0 AND
19553: p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
19554:
19555: if l_debug_level > 0 then
19556: oe_debug_pub.add('ato item qty made to 0'|| p_x_line_rec.open_flag, 4);
19557: end if;
19558: l_ato_item_qty_change := TRUE;
19559:
19560: END IF;
19561:
19562: END IF;
19563:
19564: if l_debug_level > 0 then
19565: oe_debug_pub.add('split? : ' || p_x_line_rec.split_action_code, 3);
19566: oe_debug_pub.add('split from : ' || p_x_line_rec.split_from_line_id, 3);
19567: oe_debug_pub.add('line id: ' || p_x_line_rec.line_id, 3);
19568: oe_debug_pub.add('ato line id: ' || p_x_line_rec.ato_line_id , 3);
19569: oe_debug_pub.add('item type: ' || p_x_line_rec.item_type_code, 3);
19562: END IF;
19563:
19564: if l_debug_level > 0 then
19565: oe_debug_pub.add('split? : ' || p_x_line_rec.split_action_code, 3);
19566: oe_debug_pub.add('split from : ' || p_x_line_rec.split_from_line_id, 3);
19567: oe_debug_pub.add('line id: ' || p_x_line_rec.line_id, 3);
19568: oe_debug_pub.add('ato line id: ' || p_x_line_rec.ato_line_id , 3);
19569: oe_debug_pub.add('item type: ' || p_x_line_rec.item_type_code, 3);
19570: oe_debug_pub.add('operation: ' || p_x_line_rec.operation, 3);
19563:
19564: if l_debug_level > 0 then
19565: oe_debug_pub.add('split? : ' || p_x_line_rec.split_action_code, 3);
19566: oe_debug_pub.add('split from : ' || p_x_line_rec.split_from_line_id, 3);
19567: oe_debug_pub.add('line id: ' || p_x_line_rec.line_id, 3);
19568: oe_debug_pub.add('ato line id: ' || p_x_line_rec.ato_line_id , 3);
19569: oe_debug_pub.add('item type: ' || p_x_line_rec.item_type_code, 3);
19570: oe_debug_pub.add('operation: ' || p_x_line_rec.operation, 3);
19571: oe_debug_pub.add('old qty: ' || p_old_line_rec.ordered_quantity, 3);
19564: if l_debug_level > 0 then
19565: oe_debug_pub.add('split? : ' || p_x_line_rec.split_action_code, 3);
19566: oe_debug_pub.add('split from : ' || p_x_line_rec.split_from_line_id, 3);
19567: oe_debug_pub.add('line id: ' || p_x_line_rec.line_id, 3);
19568: oe_debug_pub.add('ato line id: ' || p_x_line_rec.ato_line_id , 3);
19569: oe_debug_pub.add('item type: ' || p_x_line_rec.item_type_code, 3);
19570: oe_debug_pub.add('operation: ' || p_x_line_rec.operation, 3);
19571: oe_debug_pub.add('old qty: ' || p_old_line_rec.ordered_quantity, 3);
19572: oe_debug_pub.add('new qty: ' || p_x_line_rec.ordered_quantity, 3);
19565: oe_debug_pub.add('split? : ' || p_x_line_rec.split_action_code, 3);
19566: oe_debug_pub.add('split from : ' || p_x_line_rec.split_from_line_id, 3);
19567: oe_debug_pub.add('line id: ' || p_x_line_rec.line_id, 3);
19568: oe_debug_pub.add('ato line id: ' || p_x_line_rec.ato_line_id , 3);
19569: oe_debug_pub.add('item type: ' || p_x_line_rec.item_type_code, 3);
19570: oe_debug_pub.add('operation: ' || p_x_line_rec.operation, 3);
19571: oe_debug_pub.add('old qty: ' || p_old_line_rec.ordered_quantity, 3);
19572: oe_debug_pub.add('new qty: ' || p_x_line_rec.ordered_quantity, 3);
19573: oe_debug_pub.add('old ssd: ' || p_old_line_rec.schedule_ship_date, 3);
19566: oe_debug_pub.add('split from : ' || p_x_line_rec.split_from_line_id, 3);
19567: oe_debug_pub.add('line id: ' || p_x_line_rec.line_id, 3);
19568: oe_debug_pub.add('ato line id: ' || p_x_line_rec.ato_line_id , 3);
19569: oe_debug_pub.add('item type: ' || p_x_line_rec.item_type_code, 3);
19570: oe_debug_pub.add('operation: ' || p_x_line_rec.operation, 3);
19571: oe_debug_pub.add('old qty: ' || p_old_line_rec.ordered_quantity, 3);
19572: oe_debug_pub.add('new qty: ' || p_x_line_rec.ordered_quantity, 3);
19573: oe_debug_pub.add('old ssd: ' || p_old_line_rec.schedule_ship_date, 3);
19574: oe_debug_pub.add('new ssd: ' || p_x_line_rec.schedule_ship_date, 3);
19567: oe_debug_pub.add('line id: ' || p_x_line_rec.line_id, 3);
19568: oe_debug_pub.add('ato line id: ' || p_x_line_rec.ato_line_id , 3);
19569: oe_debug_pub.add('item type: ' || p_x_line_rec.item_type_code, 3);
19570: oe_debug_pub.add('operation: ' || p_x_line_rec.operation, 3);
19571: oe_debug_pub.add('old qty: ' || p_old_line_rec.ordered_quantity, 3);
19572: oe_debug_pub.add('new qty: ' || p_x_line_rec.ordered_quantity, 3);
19573: oe_debug_pub.add('old ssd: ' || p_old_line_rec.schedule_ship_date, 3);
19574: oe_debug_pub.add('new ssd: ' || p_x_line_rec.schedule_ship_date, 3);
19575: oe_debug_pub.add('old rd: ' || p_old_line_rec.request_date, 3);
19568: oe_debug_pub.add('ato line id: ' || p_x_line_rec.ato_line_id , 3);
19569: oe_debug_pub.add('item type: ' || p_x_line_rec.item_type_code, 3);
19570: oe_debug_pub.add('operation: ' || p_x_line_rec.operation, 3);
19571: oe_debug_pub.add('old qty: ' || p_old_line_rec.ordered_quantity, 3);
19572: oe_debug_pub.add('new qty: ' || p_x_line_rec.ordered_quantity, 3);
19573: oe_debug_pub.add('old ssd: ' || p_old_line_rec.schedule_ship_date, 3);
19574: oe_debug_pub.add('new ssd: ' || p_x_line_rec.schedule_ship_date, 3);
19575: oe_debug_pub.add('old rd: ' || p_old_line_rec.request_date, 3);
19576: oe_debug_pub.add('new rd: ' || p_x_line_rec.request_date, 3);
19569: oe_debug_pub.add('item type: ' || p_x_line_rec.item_type_code, 3);
19570: oe_debug_pub.add('operation: ' || p_x_line_rec.operation, 3);
19571: oe_debug_pub.add('old qty: ' || p_old_line_rec.ordered_quantity, 3);
19572: oe_debug_pub.add('new qty: ' || p_x_line_rec.ordered_quantity, 3);
19573: oe_debug_pub.add('old ssd: ' || p_old_line_rec.schedule_ship_date, 3);
19574: oe_debug_pub.add('new ssd: ' || p_x_line_rec.schedule_ship_date, 3);
19575: oe_debug_pub.add('old rd: ' || p_old_line_rec.request_date, 3);
19576: oe_debug_pub.add('new rd: ' || p_x_line_rec.request_date, 3);
19577: oe_debug_pub.add('old sad: ' || p_old_line_rec.schedule_arrival_date,3);
19570: oe_debug_pub.add('operation: ' || p_x_line_rec.operation, 3);
19571: oe_debug_pub.add('old qty: ' || p_old_line_rec.ordered_quantity, 3);
19572: oe_debug_pub.add('new qty: ' || p_x_line_rec.ordered_quantity, 3);
19573: oe_debug_pub.add('old ssd: ' || p_old_line_rec.schedule_ship_date, 3);
19574: oe_debug_pub.add('new ssd: ' || p_x_line_rec.schedule_ship_date, 3);
19575: oe_debug_pub.add('old rd: ' || p_old_line_rec.request_date, 3);
19576: oe_debug_pub.add('new rd: ' || p_x_line_rec.request_date, 3);
19577: oe_debug_pub.add('old sad: ' || p_old_line_rec.schedule_arrival_date,3);
19578: oe_debug_pub.add('new sad: ' || p_x_line_rec.schedule_arrival_date,3);
19571: oe_debug_pub.add('old qty: ' || p_old_line_rec.ordered_quantity, 3);
19572: oe_debug_pub.add('new qty: ' || p_x_line_rec.ordered_quantity, 3);
19573: oe_debug_pub.add('old ssd: ' || p_old_line_rec.schedule_ship_date, 3);
19574: oe_debug_pub.add('new ssd: ' || p_x_line_rec.schedule_ship_date, 3);
19575: oe_debug_pub.add('old rd: ' || p_old_line_rec.request_date, 3);
19576: oe_debug_pub.add('new rd: ' || p_x_line_rec.request_date, 3);
19577: oe_debug_pub.add('old sad: ' || p_old_line_rec.schedule_arrival_date,3);
19578: oe_debug_pub.add('new sad: ' || p_x_line_rec.schedule_arrival_date,3);
19579: oe_debug_pub.add('new sch sts: ' || p_x_line_rec.schedule_status_code,3);
19572: oe_debug_pub.add('new qty: ' || p_x_line_rec.ordered_quantity, 3);
19573: oe_debug_pub.add('old ssd: ' || p_old_line_rec.schedule_ship_date, 3);
19574: oe_debug_pub.add('new ssd: ' || p_x_line_rec.schedule_ship_date, 3);
19575: oe_debug_pub.add('old rd: ' || p_old_line_rec.request_date, 3);
19576: oe_debug_pub.add('new rd: ' || p_x_line_rec.request_date, 3);
19577: oe_debug_pub.add('old sad: ' || p_old_line_rec.schedule_arrival_date,3);
19578: oe_debug_pub.add('new sad: ' || p_x_line_rec.schedule_arrival_date,3);
19579: oe_debug_pub.add('new sch sts: ' || p_x_line_rec.schedule_status_code,3);
19580: oe_debug_pub.add('old sch sts: ' || p_old_line_rec.schedule_status_code,3);
19573: oe_debug_pub.add('old ssd: ' || p_old_line_rec.schedule_ship_date, 3);
19574: oe_debug_pub.add('new ssd: ' || p_x_line_rec.schedule_ship_date, 3);
19575: oe_debug_pub.add('old rd: ' || p_old_line_rec.request_date, 3);
19576: oe_debug_pub.add('new rd: ' || p_x_line_rec.request_date, 3);
19577: oe_debug_pub.add('old sad: ' || p_old_line_rec.schedule_arrival_date,3);
19578: oe_debug_pub.add('new sad: ' || p_x_line_rec.schedule_arrival_date,3);
19579: oe_debug_pub.add('new sch sts: ' || p_x_line_rec.schedule_status_code,3);
19580: oe_debug_pub.add('old sch sts: ' || p_old_line_rec.schedule_status_code,3);
19581: oe_debug_pub.add('open flag: ' || p_x_line_rec.open_flag,3);
19574: oe_debug_pub.add('new ssd: ' || p_x_line_rec.schedule_ship_date, 3);
19575: oe_debug_pub.add('old rd: ' || p_old_line_rec.request_date, 3);
19576: oe_debug_pub.add('new rd: ' || p_x_line_rec.request_date, 3);
19577: oe_debug_pub.add('old sad: ' || p_old_line_rec.schedule_arrival_date,3);
19578: oe_debug_pub.add('new sad: ' || p_x_line_rec.schedule_arrival_date,3);
19579: oe_debug_pub.add('new sch sts: ' || p_x_line_rec.schedule_status_code,3);
19580: oe_debug_pub.add('old sch sts: ' || p_old_line_rec.schedule_status_code,3);
19581: oe_debug_pub.add('open flag: ' || p_x_line_rec.open_flag,3);
19582: oe_debug_pub.add('cascade: ' || oe_config_util.CASCADE_CHANGES_FLAG, 3);
19575: oe_debug_pub.add('old rd: ' || p_old_line_rec.request_date, 3);
19576: oe_debug_pub.add('new rd: ' || p_x_line_rec.request_date, 3);
19577: oe_debug_pub.add('old sad: ' || p_old_line_rec.schedule_arrival_date,3);
19578: oe_debug_pub.add('new sad: ' || p_x_line_rec.schedule_arrival_date,3);
19579: oe_debug_pub.add('new sch sts: ' || p_x_line_rec.schedule_status_code,3);
19580: oe_debug_pub.add('old sch sts: ' || p_old_line_rec.schedule_status_code,3);
19581: oe_debug_pub.add('open flag: ' || p_x_line_rec.open_flag,3);
19582: oe_debug_pub.add('cascade: ' || oe_config_util.CASCADE_CHANGES_FLAG, 3);
19583: oe_debug_pub.add('validate: ' || OE_CONFIG_PVT.OECFG_VALIDATE_CONFIG, 3);
19576: oe_debug_pub.add('new rd: ' || p_x_line_rec.request_date, 3);
19577: oe_debug_pub.add('old sad: ' || p_old_line_rec.schedule_arrival_date,3);
19578: oe_debug_pub.add('new sad: ' || p_x_line_rec.schedule_arrival_date,3);
19579: oe_debug_pub.add('new sch sts: ' || p_x_line_rec.schedule_status_code,3);
19580: oe_debug_pub.add('old sch sts: ' || p_old_line_rec.schedule_status_code,3);
19581: oe_debug_pub.add('open flag: ' || p_x_line_rec.open_flag,3);
19582: oe_debug_pub.add('cascade: ' || oe_config_util.CASCADE_CHANGES_FLAG, 3);
19583: oe_debug_pub.add('validate: ' || OE_CONFIG_PVT.OECFG_VALIDATE_CONFIG, 3);
19584: oe_debug_pub.add('ui: ' || OE_CONFIG_UTIL.G_CONFIG_UI_USED, 3);
19577: oe_debug_pub.add('old sad: ' || p_old_line_rec.schedule_arrival_date,3);
19578: oe_debug_pub.add('new sad: ' || p_x_line_rec.schedule_arrival_date,3);
19579: oe_debug_pub.add('new sch sts: ' || p_x_line_rec.schedule_status_code,3);
19580: oe_debug_pub.add('old sch sts: ' || p_old_line_rec.schedule_status_code,3);
19581: oe_debug_pub.add('open flag: ' || p_x_line_rec.open_flag,3);
19582: oe_debug_pub.add('cascade: ' || oe_config_util.CASCADE_CHANGES_FLAG, 3);
19583: oe_debug_pub.add('validate: ' || OE_CONFIG_PVT.OECFG_VALIDATE_CONFIG, 3);
19584: oe_debug_pub.add('ui: ' || OE_CONFIG_UTIL.G_CONFIG_UI_USED, 3);
19585:
19578: oe_debug_pub.add('new sad: ' || p_x_line_rec.schedule_arrival_date,3);
19579: oe_debug_pub.add('new sch sts: ' || p_x_line_rec.schedule_status_code,3);
19580: oe_debug_pub.add('old sch sts: ' || p_old_line_rec.schedule_status_code,3);
19581: oe_debug_pub.add('open flag: ' || p_x_line_rec.open_flag,3);
19582: oe_debug_pub.add('cascade: ' || oe_config_util.CASCADE_CHANGES_FLAG, 3);
19583: oe_debug_pub.add('validate: ' || OE_CONFIG_PVT.OECFG_VALIDATE_CONFIG, 3);
19584: oe_debug_pub.add('ui: ' || OE_CONFIG_UTIL.G_CONFIG_UI_USED, 3);
19585:
19586: oe_debug_pub.add('old qty2: ' || p_old_line_rec.ordered_quantity2, 3); -- INVCONV
19579: oe_debug_pub.add('new sch sts: ' || p_x_line_rec.schedule_status_code,3);
19580: oe_debug_pub.add('old sch sts: ' || p_old_line_rec.schedule_status_code,3);
19581: oe_debug_pub.add('open flag: ' || p_x_line_rec.open_flag,3);
19582: oe_debug_pub.add('cascade: ' || oe_config_util.CASCADE_CHANGES_FLAG, 3);
19583: oe_debug_pub.add('validate: ' || OE_CONFIG_PVT.OECFG_VALIDATE_CONFIG, 3);
19584: oe_debug_pub.add('ui: ' || OE_CONFIG_UTIL.G_CONFIG_UI_USED, 3);
19585:
19586: oe_debug_pub.add('old qty2: ' || p_old_line_rec.ordered_quantity2, 3); -- INVCONV
19587: oe_debug_pub.add('new qty2: ' || p_x_line_rec.ordered_quantity2, 3);
19580: oe_debug_pub.add('old sch sts: ' || p_old_line_rec.schedule_status_code,3);
19581: oe_debug_pub.add('open flag: ' || p_x_line_rec.open_flag,3);
19582: oe_debug_pub.add('cascade: ' || oe_config_util.CASCADE_CHANGES_FLAG, 3);
19583: oe_debug_pub.add('validate: ' || OE_CONFIG_PVT.OECFG_VALIDATE_CONFIG, 3);
19584: oe_debug_pub.add('ui: ' || OE_CONFIG_UTIL.G_CONFIG_UI_USED, 3);
19585:
19586: oe_debug_pub.add('old qty2: ' || p_old_line_rec.ordered_quantity2, 3); -- INVCONV
19587: oe_debug_pub.add('new qty2: ' || p_x_line_rec.ordered_quantity2, 3);
19588: oe_debug_pub.add('old uom2: ' || p_old_line_rec.ordered_quantity_uom2, 3); -- INVCONV
19582: oe_debug_pub.add('cascade: ' || oe_config_util.CASCADE_CHANGES_FLAG, 3);
19583: oe_debug_pub.add('validate: ' || OE_CONFIG_PVT.OECFG_VALIDATE_CONFIG, 3);
19584: oe_debug_pub.add('ui: ' || OE_CONFIG_UTIL.G_CONFIG_UI_USED, 3);
19585:
19586: oe_debug_pub.add('old qty2: ' || p_old_line_rec.ordered_quantity2, 3); -- INVCONV
19587: oe_debug_pub.add('new qty2: ' || p_x_line_rec.ordered_quantity2, 3);
19588: oe_debug_pub.add('old uom2: ' || p_old_line_rec.ordered_quantity_uom2, 3); -- INVCONV
19589: oe_debug_pub.add('new uom2: ' || p_x_line_rec.ordered_quantity_uom2, 3);
19590: oe_debug_pub.add('old uom: ' || p_old_line_rec.order_quantity_uom, 3); -- INVCONV
19583: oe_debug_pub.add('validate: ' || OE_CONFIG_PVT.OECFG_VALIDATE_CONFIG, 3);
19584: oe_debug_pub.add('ui: ' || OE_CONFIG_UTIL.G_CONFIG_UI_USED, 3);
19585:
19586: oe_debug_pub.add('old qty2: ' || p_old_line_rec.ordered_quantity2, 3); -- INVCONV
19587: oe_debug_pub.add('new qty2: ' || p_x_line_rec.ordered_quantity2, 3);
19588: oe_debug_pub.add('old uom2: ' || p_old_line_rec.ordered_quantity_uom2, 3); -- INVCONV
19589: oe_debug_pub.add('new uom2: ' || p_x_line_rec.ordered_quantity_uom2, 3);
19590: oe_debug_pub.add('old uom: ' || p_old_line_rec.order_quantity_uom, 3); -- INVCONV
19591: oe_debug_pub.add('new uom: ' || p_x_line_rec.order_quantity_uom, 3);
19584: oe_debug_pub.add('ui: ' || OE_CONFIG_UTIL.G_CONFIG_UI_USED, 3);
19585:
19586: oe_debug_pub.add('old qty2: ' || p_old_line_rec.ordered_quantity2, 3); -- INVCONV
19587: oe_debug_pub.add('new qty2: ' || p_x_line_rec.ordered_quantity2, 3);
19588: oe_debug_pub.add('old uom2: ' || p_old_line_rec.ordered_quantity_uom2, 3); -- INVCONV
19589: oe_debug_pub.add('new uom2: ' || p_x_line_rec.ordered_quantity_uom2, 3);
19590: oe_debug_pub.add('old uom: ' || p_old_line_rec.order_quantity_uom, 3); -- INVCONV
19591: oe_debug_pub.add('new uom: ' || p_x_line_rec.order_quantity_uom, 3);
19592:
19585:
19586: oe_debug_pub.add('old qty2: ' || p_old_line_rec.ordered_quantity2, 3); -- INVCONV
19587: oe_debug_pub.add('new qty2: ' || p_x_line_rec.ordered_quantity2, 3);
19588: oe_debug_pub.add('old uom2: ' || p_old_line_rec.ordered_quantity_uom2, 3); -- INVCONV
19589: oe_debug_pub.add('new uom2: ' || p_x_line_rec.ordered_quantity_uom2, 3);
19590: oe_debug_pub.add('old uom: ' || p_old_line_rec.order_quantity_uom, 3); -- INVCONV
19591: oe_debug_pub.add('new uom: ' || p_x_line_rec.order_quantity_uom, 3);
19592:
19593:
19586: oe_debug_pub.add('old qty2: ' || p_old_line_rec.ordered_quantity2, 3); -- INVCONV
19587: oe_debug_pub.add('new qty2: ' || p_x_line_rec.ordered_quantity2, 3);
19588: oe_debug_pub.add('old uom2: ' || p_old_line_rec.ordered_quantity_uom2, 3); -- INVCONV
19589: oe_debug_pub.add('new uom2: ' || p_x_line_rec.ordered_quantity_uom2, 3);
19590: oe_debug_pub.add('old uom: ' || p_old_line_rec.order_quantity_uom, 3); -- INVCONV
19591: oe_debug_pub.add('new uom: ' || p_x_line_rec.order_quantity_uom, 3);
19592:
19593:
19594: oe_debug_pub.add('ssd old' ||
19587: oe_debug_pub.add('new qty2: ' || p_x_line_rec.ordered_quantity2, 3);
19588: oe_debug_pub.add('old uom2: ' || p_old_line_rec.ordered_quantity_uom2, 3); -- INVCONV
19589: oe_debug_pub.add('new uom2: ' || p_x_line_rec.ordered_quantity_uom2, 3);
19590: oe_debug_pub.add('old uom: ' || p_old_line_rec.order_quantity_uom, 3); -- INVCONV
19591: oe_debug_pub.add('new uom: ' || p_x_line_rec.order_quantity_uom, 3);
19592:
19593:
19594: oe_debug_pub.add('ssd old' ||
19595: to_char (new_time (p_old_line_rec.schedule_ship_date, 'PST', 'EST'),
19590: oe_debug_pub.add('old uom: ' || p_old_line_rec.order_quantity_uom, 3); -- INVCONV
19591: oe_debug_pub.add('new uom: ' || p_x_line_rec.order_quantity_uom, 3);
19592:
19593:
19594: oe_debug_pub.add('ssd old' ||
19595: to_char (new_time (p_old_line_rec.schedule_ship_date, 'PST', 'EST'),
19596: 'DD-MON-YY HH24:MI:SS'), 3);
19597: oe_debug_pub.add('ssd new' ||
19598: to_char (new_time (p_x_line_rec.schedule_ship_date, 'PST', 'EST'),
19593:
19594: oe_debug_pub.add('ssd old' ||
19595: to_char (new_time (p_old_line_rec.schedule_ship_date, 'PST', 'EST'),
19596: 'DD-MON-YY HH24:MI:SS'), 3);
19597: oe_debug_pub.add('ssd new' ||
19598: to_char (new_time (p_x_line_rec.schedule_ship_date, 'PST', 'EST'),
19599: 'DD-MON-YY HH24:MI:SS'), 3);
19600: end if;
19601:
19609: p_x_line_rec.split_from_line_id <> FND_API.G_MISS_NUM AND
19610: p_x_line_rec.operation = 'CREATE') THEN
19611:
19612: if l_debug_level > 0 then
19613: oe_debug_pub.add('compare for ato model now', 3);
19614: end if;
19615:
19616: IF NOT OE_GLOBALS.Equal(p_x_line_rec.ship_from_org_id,
19617: p_old_line_rec.ship_from_org_id) THEN
19616: IF NOT OE_GLOBALS.Equal(p_x_line_rec.ship_from_org_id,
19617: p_old_line_rec.ship_from_org_id) THEN
19618:
19619: if l_debug_level > 0 then
19620: oe_debug_pub.add('cto_change logged for warehouse change', 3);
19621: end if;
19622: l_notify_cto := TRUE;
19623:
19624: OE_delayed_requests_Pvt.log_request
19638: IF NOT OE_GLOBALS.Equal(p_x_line_rec.ordered_quantity,
19639: p_old_line_rec.ordered_quantity) THEN
19640:
19641: if l_debug_level > 0 then
19642: oe_debug_pub.add('cto_change logged for qty change', 3);
19643: end if;
19644:
19645: l_notify_cto := TRUE;
19646:
19661: IF NOT OE_GLOBALS.Equal(p_x_line_rec.request_date,
19662: p_old_line_rec.request_date) THEN
19663:
19664: if l_debug_level > 0 then
19665: oe_debug_pub.add('cto_change logged for req date change', 3);
19666: end if;
19667: l_notify_cto := TRUE;
19668:
19669: OE_delayed_requests_Pvt.log_request
19685: NOT l_ato_item_qty_change
19686: THEN
19687:
19688: if l_debug_level > 0 then
19689: oe_debug_pub.add('cto_change logged for sch ship date change', 3);
19690: end if;
19691: l_notify_cto := TRUE;
19692:
19693: OE_delayed_requests_Pvt.log_request
19708: p_old_line_rec.schedule_arrival_date) AND
19709: NOT l_ato_item_qty_change THEN
19710:
19711: if l_debug_level > 0 then
19712: oe_debug_pub.add('cto_change logged for sch arr date change', 3);
19713: end if;
19714: l_notify_cto := TRUE;
19715:
19716: OE_delayed_requests_Pvt.log_request
19732: IF NOT OE_GLOBALS.Equal(p_x_line_rec.ordered_quantity2,
19733: p_old_line_rec.ordered_quantity2) THEN
19734:
19735: if l_debug_level > 0 then
19736: oe_debug_pub.add('cto_change logged for qty2 change', 3);
19737: end if;
19738:
19739: l_notify_cto := TRUE;
19740:
19755: IF NOT OE_GLOBALS.Equal(p_x_line_rec.ordered_quantity_uom2,
19756: p_old_line_rec.ordered_quantity_uom2) THEN
19757:
19758: if l_debug_level > 0 then
19759: oe_debug_pub.add('cto_change logged for Uom2 change', 3);
19760: end if;
19761:
19762: l_notify_cto := TRUE;
19763:
19778: IF NOT OE_GLOBALS.Equal(p_x_line_rec.order_quantity_uom,
19779: p_old_line_rec.order_quantity_uom) THEN
19780:
19781: if l_debug_level > 0 then
19782: oe_debug_pub.add('cto_change logged for Uom change', 3);
19783: end if;
19784:
19785: l_notify_cto := TRUE;
19786:
19806: p_x_line_rec.schedule_ship_date is NULL AND
19807: p_old_line_rec.schedule_ship_date is NOT NULL THEN
19808:
19809: if l_debug_level > 0 then
19810: oe_debug_pub.add('cto_change logged for unschedule', 3);
19811: end if;
19812:
19813: l_notify_cto := TRUE;
19814:
19837: NOT (p_x_line_rec.split_from_line_id is NOT NULL AND
19838: p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE) -- split create
19839: THEN
19840: if l_debug_level > 0 then
19841: oe_debug_pub.add('part of ato', 3);
19842: end if;
19843:
19844: l_pto_ato_create := FALSE;
19845:
19854: WHEN NO_DATA_FOUND THEN
19855:
19856: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
19857: if l_debug_level > 0 then
19858: oe_debug_pub.add('pto top model and opr create', 1);
19859: end if;
19860: l_pto_ato_create := TRUE;
19861: END IF;
19862: END;
19871:
19872: THEN
19873:
19874: if l_debug_level > 0 then
19875: oe_debug_pub.add('cto_change logged for config change', 3);
19876: end if;
19877:
19878: l_notify_cto := TRUE;
19879:
19890: IF p_x_line_rec.operation <> OE_GLOBALS.G_OPR_DELETE AND
19891: OE_Code_Control.Code_Release_Level >= '110510' THEN
19892:
19893: if l_debug_level > 0 then
19894: oe_debug_pub.add('cto_change logged for decimal change', 3);
19895: end if;
19896:
19897: OE_delayed_requests_Pvt.log_request
19898: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
19911:
19912: END IF;
19913: ELSE
19914: if l_debug_level > 0 then
19915: oe_debug_pub.add('no need to log here', 3);
19916: end if;
19917: END IF;
19918:
19919: l_num := 0;
19942:
19943: EXCEPTION
19944: when no_data_found then
19945: if l_debug_level > 0 then
19946: oe_debug_pub.add('was not a ato model', 3);
19947: end if;
19948: END;
19949: END IF;
19950:
19949: END IF;
19950:
19951: IF l_num = 1 THEN
19952: if l_debug_level > 0 then
19953: oe_debug_pub.add('new split ato model '|| p_x_line_rec.line_id, 3);
19954: end if;
19955:
19956: OE_delayed_requests_Pvt.log_request
19957: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
19969:
19970: IF l_notify_cto THEN
19971:
19972: if l_debug_level > 0 then
19973: oe_debug_pub.add('notify_cto logged', 3);
19974: end if;
19975:
19976: OE_delayed_requests_Pvt.log_request
19977: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
20005: l_flag := TRUE;
20006: EXCEPTION
20007: WHEN NO_DATA_FOUND THEN
20008: if l_debug_level > 0 then
20009: oe_debug_pub.add('config item not yet created', 2);
20010: end if;
20011: WHEN TOO_MANY_ROWS THEN
20012: if l_debug_level > 0 then
20013: oe_debug_pub.add('many config items', 2);
20009: oe_debug_pub.add('config item not yet created', 2);
20010: end if;
20011: WHEN TOO_MANY_ROWS THEN
20012: if l_debug_level > 0 then
20013: oe_debug_pub.add('many config items', 2);
20014: end if;
20015: l_flag := TRUE;
20016: END;
20017: ELSE
20018: l_flag := TRUE;
20019: END IF;
20020: ELSE
20021: if l_debug_level > 0 then
20022: oe_debug_pub.add('not pto/ato config create, flag false', 2);
20023: end if;
20024: END IF;
20025:
20026:
20025:
20026:
20027: IF l_flag THEN
20028: if l_debug_level > 0 then
20029: oe_debug_pub.add('pto ato and config exist'|| p_x_line_rec.line_id, 2);
20030: end if;
20031:
20032: OE_delayed_requests_Pvt.log_request
20033: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
20052:
20053: END IF;
20054:
20055: if l_debug_level > 0 then
20056: oe_debug_pub.add('leaving Log_CTO_Requests', 1);
20057: end if;
20058: EXCEPTION
20059: WHEN OTHERS THEN
20060: if l_debug_level > 0 then
20057: end if;
20058: EXCEPTION
20059: WHEN OTHERS THEN
20060: if l_debug_level > 0 then
20061: oe_debug_pub.add('exception in Log_CTO_Requests'|| sqlerrm, 1);
20062: end if;
20063: RAISE;
20064: END Log_CTO_Requests;
20065:
20104: l_fulfilled_flag VARCHAR2(1) := 'N';
20105: l_model_item VARCHAR2(2000);
20106: l_config_rev_change VARCHAR2(1) := 'N';
20107: l_ord_item VARCHAR2(2000);
20108: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
20109: BEGIN
20110: if l_debug_level > 0 then
20111: oe_debug_pub.add('entering Log_Config_Requests', 1);
20112: end if;
20107: l_ord_item VARCHAR2(2000);
20108: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
20109: BEGIN
20110: if l_debug_level > 0 then
20111: oe_debug_pub.add('entering Log_Config_Requests', 1);
20112: end if;
20113:
20114:
20115: ------------------------ copy for model split -------------
20119: p_x_line_rec.split_from_line_id is not null -- split
20120: THEN
20121:
20122: if l_debug_level > 0 then
20123: oe_debug_pub.add
20124: ('split_from_line_id: '|| p_x_line_rec.split_from_line_id, 1);
20125: oe_debug_pub.add('new model: '|| p_x_line_rec.line_id, 1);
20126: end if;
20127:
20121:
20122: if l_debug_level > 0 then
20123: oe_debug_pub.add
20124: ('split_from_line_id: '|| p_x_line_rec.split_from_line_id, 1);
20125: oe_debug_pub.add('new model: '|| p_x_line_rec.line_id, 1);
20126: end if;
20127:
20128: BEGIN
20129: SELECT config_header_id, config_rev_nbr, configuration_id
20132: WHERE line_id = p_x_line_rec.split_from_line_id;
20133: EXCEPTION
20134: WHEN no_data_found THEN
20135: if l_debug_level > 0 then
20136: oe_debug_pub.add('Parent model is not validated', 1);
20137: end if;
20138: -- should we raise exception??
20139: END;
20140:
20138: -- should we raise exception??
20139: END;
20140:
20141: if l_debug_level > 0 then
20142: oe_debug_pub.add('Logging a request after spllit
20143: to copy the configuration in SPC', 1);
20144: end if;
20145: OE_Delayed_Requests_Pvt.Log_Request(
20146: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
20156:
20157: END IF;
20158:
20159: if l_debug_level > 0 then
20160: oe_debug_pub.add('after copy config request ', 3);
20161: end if;
20162:
20163: -------------------------- copy config done -----------------------
20164:
20164:
20165:
20166: IF nvl(p_x_line_rec.model_remnant_flag, 'N') = 'Y' THEN
20167: if l_debug_level > 0 then
20168: oe_debug_pub.add('returning from log_config as remnant', 1);
20169: end if;
20170: RETURN;
20171: END IF;
20172:
20190: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_MODEL_CLOSED');
20191: FND_MESSAGE.Set_Token('MODEL', l_model_item);
20192: OE_MSG_PUB.Add;
20193: if l_debug_level > 0 then
20194: oe_debug_pub.add('model line is closed', 1);
20195: end if;
20196: RAISE FND_API.G_EXC_ERROR;
20197: END IF;
20198:
20200: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_MODEL_FULFILLED');
20201: FND_MESSAGE.Set_Token('MODEL', l_model_item);
20202: OE_MSG_PUB.Add;
20203: if l_debug_level > 0 then
20204: oe_debug_pub.add('model line is fulfilled', 1);
20205: end if;
20206: RAISE FND_API.G_EXC_ERROR;
20207: END IF;
20208:
20206: RAISE FND_API.G_EXC_ERROR;
20207: END IF;
20208:
20209: if l_debug_level > 0 then
20210: oe_debug_pub.add('Logging a request to validate configuration ', 1);
20211: end if;
20212:
20213: OE_delayed_requests_Pvt.log_request(
20214: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
20218: p_request_type => OE_GLOBALS.G_VALIDATE_CONFIGURATION,
20219: x_return_status => x_return_status);
20220:
20221: if l_debug_level > 0 then
20222: oe_debug_pub.add('Logging a request to delete option from oe/spc', 1);
20223: end if;
20224:
20225: OE_Delayed_Requests_Pvt.Log_Request(
20226: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
20242:
20243: ---------------- update/create-------------------------------------
20244:
20245: if l_debug_level > 0 then
20246: oe_debug_pub.add('item_type_code: '||p_x_line_rec.item_type_code, 1);
20247: oe_debug_pub.add('validate flag: '||OE_CONFIG_PVT.OECFG_VALIDATE_CONFIG, 1);
20248: end if;
20249:
20250: l_flag := FALSE;
20243: ---------------- update/create-------------------------------------
20244:
20245: if l_debug_level > 0 then
20246: oe_debug_pub.add('item_type_code: '||p_x_line_rec.item_type_code, 1);
20247: oe_debug_pub.add('validate flag: '||OE_CONFIG_PVT.OECFG_VALIDATE_CONFIG, 1);
20248: end if;
20249:
20250: l_flag := FALSE;
20251:
20252: IF p_x_line_rec.item_type_code = OE_GLOBALS.G_ITEM_MODEL AND
20253: p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE AND
20254: p_x_line_rec.booked_flag = 'Y' THEN
20255: if l_debug_level > 0 then
20256: oe_debug_pub.add('setting flag to true for model', 1);
20257: end if;
20258: l_flag := TRUE;
20259: END IF;
20260:
20265: NOT OE_GLOBALS.Equal(p_x_line_rec.ordered_quantity,
20266: p_old_line_rec.ordered_quantity )
20267: THEN
20268: if l_debug_level > 0 then
20269: oe_debug_pub.add('set flag to true'|| p_old_line_rec.ordered_quantity, 1);
20270: oe_debug_pub.add('new qty ' || p_x_line_rec.ordered_quantity, 1);
20271: end if;
20272: l_flag := TRUE;
20273: END IF;
20266: p_old_line_rec.ordered_quantity )
20267: THEN
20268: if l_debug_level > 0 then
20269: oe_debug_pub.add('set flag to true'|| p_old_line_rec.ordered_quantity, 1);
20270: oe_debug_pub.add('new qty ' || p_x_line_rec.ordered_quantity, 1);
20271: end if;
20272: l_flag := TRUE;
20273: END IF;
20274:
20276: NOT OE_GLOBALS.Equal(p_x_line_rec.config_rev_nbr,
20277: p_old_line_rec.config_rev_nbr)
20278: THEN
20279: if l_debug_level > 0 then
20280: oe_debug_pub.add('set flag to true, old rev '|| p_old_line_rec.config_rev_nbr, 1);
20281: oe_debug_pub.add('new rev ' || p_x_line_rec.config_rev_nbr, 1);
20282: end if;
20283: l_config_rev_change := 'Y';
20284: l_flag := TRUE;
20277: p_old_line_rec.config_rev_nbr)
20278: THEN
20279: if l_debug_level > 0 then
20280: oe_debug_pub.add('set flag to true, old rev '|| p_old_line_rec.config_rev_nbr, 1);
20281: oe_debug_pub.add('new rev ' || p_x_line_rec.config_rev_nbr, 1);
20282: end if;
20283: l_config_rev_change := 'Y';
20284: l_flag := TRUE;
20285: END IF;
20286:
20287: IF l_flag AND OE_CONFIG_PVT.OECFG_VALIDATE_CONFIG = 'Y' THEN
20288:
20289: if l_debug_level > 0 then
20290: oe_debug_pub.add('p_x_line_rec.operation' || p_x_line_rec.operation, 1);
20291: oe_debug_pub.add
20292: ('Split_from_line_id: '||p_x_line_rec.split_from_line_id ,3);
20293: oe_debug_pub.add
20294: ('Split_action_code: '|| p_x_line_rec.split_action_code ,3);
20287: IF l_flag AND OE_CONFIG_PVT.OECFG_VALIDATE_CONFIG = 'Y' THEN
20288:
20289: if l_debug_level > 0 then
20290: oe_debug_pub.add('p_x_line_rec.operation' || p_x_line_rec.operation, 1);
20291: oe_debug_pub.add
20292: ('Split_from_line_id: '||p_x_line_rec.split_from_line_id ,3);
20293: oe_debug_pub.add
20294: ('Split_action_code: '|| p_x_line_rec.split_action_code ,3);
20295: end if;
20289: if l_debug_level > 0 then
20290: oe_debug_pub.add('p_x_line_rec.operation' || p_x_line_rec.operation, 1);
20291: oe_debug_pub.add
20292: ('Split_from_line_id: '||p_x_line_rec.split_from_line_id ,3);
20293: oe_debug_pub.add
20294: ('Split_action_code: '|| p_x_line_rec.split_action_code ,3);
20295: end if;
20296:
20297:
20300: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE AND
20301: p_x_line_rec.split_from_line_id is not null
20302: THEN
20303: if l_debug_level > 0 then
20304: oe_debug_pub.add('This is a new model after split', 1);
20305: end if;
20306:
20307: ELSIF p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE AND
20308: nvl(p_x_line_rec.split_action_code, 'X') = 'SPLIT'
20307: ELSIF p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE AND
20308: nvl(p_x_line_rec.split_action_code, 'X') = 'SPLIT'
20309: THEN
20310: if l_debug_level > 0 then
20311: oe_debug_pub.add('This is a parent split model', 1);
20312: end if;
20313:
20314: ELSE
20315: -- If we got here, it means this isn't a split.
20313:
20314: ELSE
20315: -- If we got here, it means this isn't a split.
20316: if l_debug_level > 0 then
20317: oe_debug_pub.add('Logging a request to validate configuration',1);
20318: end if;
20319:
20320: IF l_model_open_flag = 'N' THEN
20321: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_MODEL_CLOSED');
20321: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_MODEL_CLOSED');
20322: FND_MESSAGE.Set_Token('MODEL', l_model_item);
20323: OE_MSG_PUB.Add;
20324: if l_debug_level > 0 then
20325: oe_debug_pub.add('model line is closed', 1);
20326: end if;
20327: RAISE FND_API.G_EXC_ERROR;
20328: END IF;
20329:
20331: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_MODEL_FULFILLED');
20332: FND_MESSAGE.Set_Token('MODEL', l_model_item);
20333: OE_MSG_PUB.Add;
20334: if l_debug_level > 0 then
20335: oe_debug_pub.add('model line is fulfilled', 1);
20336: end if;
20337: RAISE FND_API.G_EXC_ERROR;
20338: END IF;
20339:
20352: FND_MESSAGE.Set_Token('ITEM', l_ord_item);
20353: OE_MSG_PUB.Add;
20354:
20355: IF l_debug_level > 0 THEN
20356: oe_debug_pub.add
20357: ('Child lines with zero qty can not be created', 1);
20358: END IF;
20359: RAISE FND_API.G_EXC_ERROR;
20360: END IF;
20371: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE AND
20372: l_config_rev_change = 'N' THEN
20373:
20374: if l_debug_level > 0 then
20375: oe_debug_pub.add('Logging a request to update configuration', 1);
20376: end if;
20377:
20378: l_cancellation := 'N';
20379:
20378: l_cancellation := 'N';
20379:
20380: IF OE_Sales_Can_Util.G_Require_Reason THEN
20381: if l_debug_level > 0 then
20382: oe_debug_pub.add('this is a cancellation', 1);
20383: end if;
20384: l_cancellation := 'Y';
20385: ELSE
20386: if l_debug_level > 0 then
20383: end if;
20384: l_cancellation := 'Y';
20385: ELSE
20386: if l_debug_level > 0 then
20387: oe_debug_pub.add('this is not a cancellation', 1);
20388: end if;
20389: END IF;
20390:
20391: if l_debug_level > 0 then
20388: end if;
20389: END IF;
20390:
20391: if l_debug_level > 0 then
20392: oe_debug_pub.add
20393: (p_x_line_rec.item_type_code || p_x_line_rec.ordered_quantity, 1);
20394: end if;
20395:
20396: OE_Delayed_Requests_Pvt.Log_Request(
20416:
20417: END IF;
20418:
20419: if l_debug_level > 0 then
20420: oe_debug_pub.add('leaving Log_Config_Requests', 1);
20421: end if;
20422: EXCEPTION
20423: WHEN OTHERS THEN
20424: if l_debug_level > 0 then
20421: end if;
20422: EXCEPTION
20423: WHEN OTHERS THEN
20424: if l_debug_level > 0 then
20425: oe_debug_pub.add('exception in Log_Config_Requests'|| sqlerrm, 1);
20426: end if;
20427: RAISE;
20428: END Log_Config_Requests;
20429:
20505: l_change_configuration BOOLEAN := FALSE;
20506: l_modify_included_items BOOLEAN := FALSE;
20507: l_return_status VARCHAR2(1);
20508: l_entity_id NUMBER;
20509: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
20510: BEGIN
20511: if l_debug_level > 0 then
20512: oe_debug_pub.add('entering Log_Cascade_Requests', 1);
20513: end if;
20508: l_entity_id NUMBER;
20509: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
20510: BEGIN
20511: if l_debug_level > 0 then
20512: oe_debug_pub.add('entering Log_Cascade_Requests', 1);
20513: end if;
20514:
20515: -------- cascading from parent to child only -------------
20516:
20535: l_param3 := p_x_line_rec.change_reason;
20536: l_param4 := p_x_line_rec.change_comments;
20537:
20538: if l_debug_level > 0 then
20539: oe_debug_pub.add('ordered qty of model/kit changed:' ||l_param2,1);
20540: end if;
20541:
20542: l_cascade_changes := TRUE;
20543:
20557: p_old_line_rec.project_id)
20558: THEN
20559: l_param5 := p_x_line_rec.project_id;
20560: if l_debug_level > 0 then
20561: oe_debug_pub.add('model/ATO sub,project_id changed: '||l_param5,1);
20562: end if;
20563: l_cascade_changes := TRUE;
20564: END IF;
20565:
20566: IF NOT OE_GLOBALS.Equal(p_x_line_rec.task_id,p_old_line_rec.task_id)
20567: THEN
20568: l_param6 := p_x_line_rec.task_id;
20569: if l_debug_level > 0 then
20570: oe_debug_pub.add('model /ATO sub,task_id changed: '||l_param6,1);
20571: end if;
20572: l_cascade_changes := TRUE;
20573: END IF;
20574:
20627: p_old_line_rec.shipped_quantity)
20628: THEN
20629: l_param9 := to_char(p_x_line_rec.shipped_quantity);
20630: if l_debug_level > 0 then
20631: oe_debug_pub.add
20632: ('model / ATO subconfig, shipped quantity changed: '||l_param9,1);
20633: end if;
20634:
20635: l_cascade_changes := TRUE;
20649: p_old_line_rec.source_type_code)
20650: THEN
20651: l_param7 := p_x_line_rec.source_type_code;
20652: if l_debug_level > 0 then
20653: oe_debug_pub.add('ATO cascade source type '|| l_param7,1);
20654: end if;
20655: l_cascade_changes := TRUE;
20656: END IF;
20657:
20670: THEN
20671: l_param16 := p_x_line_rec.freight_terms_code;
20672:
20673: if l_debug_level > 0 then
20674: oe_debug_pub.add
20675: ('Freight term code changed: '||l_param16,1);
20676: end if;
20677:
20678: l_cascade_changes := TRUE;
20691: THEN
20692: l_date_param2 := p_x_line_rec.promise_date;
20693:
20694: if l_debug_level > 0 then
20695: oe_debug_pub.add('Promise date changed: '||l_date_param2,1);
20696: end if;
20697:
20698: l_cascade_changes := TRUE;
20699: END IF;
20703:
20704: -- log a request only if not a split
20705:
20706: if l_debug_level > 0 then
20707: oe_debug_pub.add
20708: ('CASCADE_CHANGES_FLAG, N means cascade : '
20709: ||OE_CONFIG_UTIL.CASCADE_CHANGES_FLAG, 1);
20710: end if;
20711:
20711:
20712:
20713: IF l_cascade_changes THEN
20714: if l_debug_level > 0 then
20715: oe_debug_pub.add('Logging Request to Cascade changes',1);
20716: oe_debug_pub.add('Item Type is: ' || p_x_line_rec.item_type_code,3);
20717: oe_debug_pub.add('Comp Code is: ' || p_x_line_rec.component_code,3);
20718: end if;
20719:
20712:
20713: IF l_cascade_changes THEN
20714: if l_debug_level > 0 then
20715: oe_debug_pub.add('Logging Request to Cascade changes',1);
20716: oe_debug_pub.add('Item Type is: ' || p_x_line_rec.item_type_code,3);
20717: oe_debug_pub.add('Comp Code is: ' || p_x_line_rec.component_code,3);
20718: end if;
20719:
20720: l_cancellation := 'N';
20713: IF l_cascade_changes THEN
20714: if l_debug_level > 0 then
20715: oe_debug_pub.add('Logging Request to Cascade changes',1);
20716: oe_debug_pub.add('Item Type is: ' || p_x_line_rec.item_type_code,3);
20717: oe_debug_pub.add('Comp Code is: ' || p_x_line_rec.component_code,3);
20718: end if;
20719:
20720: l_cancellation := 'N';
20721: IF OE_Sales_Can_Util.G_Require_Reason THEN
20719:
20720: l_cancellation := 'N';
20721: IF OE_Sales_Can_Util.G_Require_Reason THEN
20722: if l_debug_level > 0 then
20723: oe_debug_pub.add('this is a cancellation', 1);
20724: end if;
20725: l_cancellation := 'Y';
20726: END IF;
20727:
20758:
20759: ------------ changing from any line to all lines -------------
20760:
20761: if l_debug_level > 0 then
20762: oe_debug_pub.add('change configuration requests', 3);
20763: end if;
20764:
20765: --6717302:
20766: -- 5932543 - do not call process order if the split is happening through
20835:
20836: END IF;
20837:
20838: if l_debug_level > 0 then
20839: oe_debug_pub.add('logging a req. to chg config', 1);
20840: end if;
20841:
20842: OE_Delayed_Requests_Pvt.Log_Request(
20843: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
20867:
20868: EXCEPTION
20869: WHEN NO_DATA_FOUND THEN
20870: if l_debug_level > 0 then
20871: oe_debug_pub.add('modify inc items requests NOT reqd', 3);
20872: end if;
20873: RETURN;
20874: END;
20875:
20873: RETURN;
20874: END;
20875:
20876: if l_debug_level > 0 then
20877: oe_debug_pub.add('modify inc items request reqd', 3);
20878: end if;
20879:
20880: l_num := p_x_line_rec.line_id;
20881:
20908: nvl(p_x_line_rec.split_action_code, 'X') <> 'SPLIT' AND
20909: OE_CONFIG_UTIL.CASCADE_CHANGES_FLAG = 'N' -- not for model change
20910: THEN
20911: if l_debug_level > 0 then
20912: oe_debug_pub.add('cascade class changes to included items', 1);
20913: end if;
20914:
20915: IF NOT OE_GLOBALS.Equal(p_x_line_rec.ordered_quantity,
20916: p_old_line_rec.ordered_quantity) THEN
20919: FND_API.G_MISS_NUM THEN
20920: OE_Config_Pvt.OE_MODIFY_INC_ITEMS_TBL(l_num).param1
20921: := p_old_line_rec.ordered_quantity;
20922: if l_debug_level > 0 then
20923: oe_debug_pub.add('qty changed 1st time ' || l_param1, 4);
20924: end if;
20925: END IF;
20926:
20927: OE_Config_Pvt.OE_MODIFY_INC_ITEMS_TBL(l_num).param2
20936: := p_x_line_rec.change_comments;
20937: -- change_comments
20938:
20939: if l_debug_level > 0 then
20940: oe_debug_pub.add
20941: ('ord qty of class changed:' || p_x_line_rec.ordered_quantity,1);
20942: end if;
20943:
20944: l_modify_included_items := TRUE;
20948: IF NOT OE_GLOBALS.Equal(p_x_line_rec.project_id,p_old_line_rec.project_id) THEN
20949: OE_Config_Pvt.OE_MODIFY_INC_ITEMS_TBL(l_num).param5
20950: := p_x_line_rec.project_id;
20951: if l_debug_level > 0 then
20952: oe_debug_pub.add('model/ATO subconfig,project changed: '||l_param5,1);
20953: end if;
20954: l_modify_included_items := TRUE;
20955: END IF;
20956:
20959: THEN
20960: OE_Config_Pvt.OE_MODIFY_INC_ITEMS_TBL(l_num).param6
20961: := p_x_line_rec.task_id;
20962: if l_debug_level > 0 then
20963: oe_debug_pub.add('model /ATO subconfig,task changed: '||l_param6,1);
20964: end if;
20965: l_modify_included_items := TRUE;
20966: END IF;
20967:
21008:
21009:
21010: IF l_modify_included_items THEN
21011: if l_debug_level > 0 then
21012: oe_debug_pub.add('something changed'|| p_x_line_rec.operation, 2);
21013: end if;
21014:
21015: OE_Config_Pvt.OE_MODIFY_INC_ITEMS_TBL(l_num).param10 :=
21016: p_x_line_rec.operation;
21030:
21031: x_return_status := l_return_status;
21032:
21033: if l_debug_level > 0 then
21034: oe_debug_pub.add('leaving Log_Config_Requests', 1);
21035: end if;
21036: EXCEPTION
21037: WHEN OTHERS THEN
21038: if l_debug_level > 0 then
21035: end if;
21036: EXCEPTION
21037: WHEN OTHERS THEN
21038: if l_debug_level > 0 then
21039: oe_debug_pub.add('exception in Log_Cascade_Requests'|| sqlerrm, 1);
21040: end if;
21041: RAISE;
21042: END Log_Cascade_Requests;
21043:
21164: ,p_order_type_id IN NUMBER
21165: ,x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
21166: IS
21167: l_count NUMBER;
21168: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
21169: BEGIN
21170:
21171: if l_debug_level > 0 then
21172: oe_debug_pub.add('Entering Log_Scheduling_Requests',1);
21168: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
21169: BEGIN
21170:
21171: if l_debug_level > 0 then
21172: oe_debug_pub.add('Entering Log_Scheduling_Requests',1);
21173: oe_debug_pub.add('p_caller' || p_caller,1);
21174: end if;
21175:
21176: IF NOT OE_GLOBALS.Equal(p_x_line_rec.schedule_ship_date,
21169: BEGIN
21170:
21171: if l_debug_level > 0 then
21172: oe_debug_pub.add('Entering Log_Scheduling_Requests',1);
21173: oe_debug_pub.add('p_caller' || p_caller,1);
21174: end if;
21175:
21176: IF NOT OE_GLOBALS.Equal(p_x_line_rec.schedule_ship_date,
21177: p_old_line_rec.schedule_ship_date)
21176: IF NOT OE_GLOBALS.Equal(p_x_line_rec.schedule_ship_date,
21177: p_old_line_rec.schedule_ship_date)
21178: THEN
21179: if l_debug_level > 0 then
21180: oe_debug_pub.add('Schedule shipdate is changed',1);
21181: end if;
21182:
21183: /* 7576948: Commented for IR ISO CMS Project
21184:
21201: AND p_x_line_rec.ordered_quantity > 0 THEN
21202:
21203: -- Fix for bug 2347447
21204: if l_debug_level > 0 then
21205: oe_debug_pub.ADD('Update Shipping : logging delayed request for '
21206: || to_char(p_x_line_rec.line_id) ,1);
21207: end if;
21208:
21209: OE_Delayed_Requests_Pvt.Log_Request(
21231:
21232: -- bug 3636884, defaulting reason from group API
21233: IF OE_GLOBALS.G_DEFAULT_REASON THEN
21234: if l_debug_level > 0 then
21235: oe_debug_pub.add('Defaulting Audit Reason for Order Line', 1);
21236: end if;
21237: p_x_line_rec.change_reason := 'SYSTEM';
21238: ELSE
21239: if l_debug_level > 0 then
21236: end if;
21237: p_x_line_rec.change_reason := 'SYSTEM';
21238: ELSE
21239: if l_debug_level > 0 then
21240: oe_debug_pub.add('Audit Required Reason missing - error', 1);
21241: end if;
21242: fnd_message.set_name('ONT','OE_AUDIT_REASON_RQD');
21243: fnd_message.set_token('OBJECT','ORDER LINE');
21244: oe_msg_pub.add;
21255: p_x_line_rec.ato_line_id is NOT NULL)) AND
21256: p_x_line_rec.item_type_code <> OE_GLOBALS.G_ITEM_CONFIG
21257: THEN
21258: if l_debug_level > 0 then
21259: oe_debug_pub.add('Before logging Log_CTO_Requests', 1);
21260: end if;
21261: Log_CTO_Requests( p_x_line_rec => p_x_line_rec
21262: ,p_old_line_rec => p_old_line_rec
21263: ,x_return_status => x_return_status);
21267: END IF; -- External
21268: --bug 3988559 modify sfadnavi BEGIN
21269:
21270: if l_debug_level > 0 then
21271: oe_debug_pub.add('Before calling Version_Audit_Process',1);
21272: end if;
21273:
21274: --Adding code to log versioning/audit request
21275: OE_Line_Util.Version_Audit_Process(p_x_line_rec => p_x_line_rec,
21279:
21280:
21281:
21282: if l_debug_level > 0 then
21283: oe_debug_pub.add('Exiting Log_Scheduling_Requests',1);
21284: end if;
21285:
21286:
21287: END Log_Scheduling_Requests;
21311: l_converted_qty NUMBER(19,9);
21312: l_item_rec OE_ORDER_CACHE.item_rec_type;
21313: --l_OPM_UOM VARCHAR2(4); -- INVCONV
21314: l_error_message VARCHAR2(1000); -- INVCONV
21315: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level; -- INVCONV
21316: l_return NUMBER;
21317: l_status VARCHAR2(1);
21318: l_return_status VARCHAR2(30);
21319: l_msg_count NUMBER;
21328:
21329: -- First of all, if this procedure is called from a source other then UI
21330:
21331: IF l_debug_level > 0 THEN
21332: oe_debug_pub.add ('Enter Calculate_dual_quantity');
21333: oe_debug_pub.add ('p_ordered_quantity = ' || p_ordered_quantity );
21334: oe_debug_pub.add ('p_old_ordered_quantity = ' || p_old_ordered_quantity );
21335: oe_debug_pub.add ('p_ordered_quantity2 = ' || p_ordered_quantity2 );
21336: oe_debug_pub.add ('p_old_ordered_quantity2 = ' || p_old_ordered_quantity2 );
21329: -- First of all, if this procedure is called from a source other then UI
21330:
21331: IF l_debug_level > 0 THEN
21332: oe_debug_pub.add ('Enter Calculate_dual_quantity');
21333: oe_debug_pub.add ('p_ordered_quantity = ' || p_ordered_quantity );
21334: oe_debug_pub.add ('p_old_ordered_quantity = ' || p_old_ordered_quantity );
21335: oe_debug_pub.add ('p_ordered_quantity2 = ' || p_ordered_quantity2 );
21336: oe_debug_pub.add ('p_old_ordered_quantity2 = ' || p_old_ordered_quantity2 );
21337: oe_debug_pub.add ('p_ordered_quantity_uom = ' || p_ordered_quantity_uom );
21330:
21331: IF l_debug_level > 0 THEN
21332: oe_debug_pub.add ('Enter Calculate_dual_quantity');
21333: oe_debug_pub.add ('p_ordered_quantity = ' || p_ordered_quantity );
21334: oe_debug_pub.add ('p_old_ordered_quantity = ' || p_old_ordered_quantity );
21335: oe_debug_pub.add ('p_ordered_quantity2 = ' || p_ordered_quantity2 );
21336: oe_debug_pub.add ('p_old_ordered_quantity2 = ' || p_old_ordered_quantity2 );
21337: oe_debug_pub.add ('p_ordered_quantity_uom = ' || p_ordered_quantity_uom );
21338: oe_debug_pub.add ('p_ordered_quantity_uom2 = ' || p_ordered_quantity_uom2 );
21331: IF l_debug_level > 0 THEN
21332: oe_debug_pub.add ('Enter Calculate_dual_quantity');
21333: oe_debug_pub.add ('p_ordered_quantity = ' || p_ordered_quantity );
21334: oe_debug_pub.add ('p_old_ordered_quantity = ' || p_old_ordered_quantity );
21335: oe_debug_pub.add ('p_ordered_quantity2 = ' || p_ordered_quantity2 );
21336: oe_debug_pub.add ('p_old_ordered_quantity2 = ' || p_old_ordered_quantity2 );
21337: oe_debug_pub.add ('p_ordered_quantity_uom = ' || p_ordered_quantity_uom );
21338: oe_debug_pub.add ('p_ordered_quantity_uom2 = ' || p_ordered_quantity_uom2 );
21339: oe_debug_pub.add ('p_inventory_item_id = ' || p_inventory_item_id );
21332: oe_debug_pub.add ('Enter Calculate_dual_quantity');
21333: oe_debug_pub.add ('p_ordered_quantity = ' || p_ordered_quantity );
21334: oe_debug_pub.add ('p_old_ordered_quantity = ' || p_old_ordered_quantity );
21335: oe_debug_pub.add ('p_ordered_quantity2 = ' || p_ordered_quantity2 );
21336: oe_debug_pub.add ('p_old_ordered_quantity2 = ' || p_old_ordered_quantity2 );
21337: oe_debug_pub.add ('p_ordered_quantity_uom = ' || p_ordered_quantity_uom );
21338: oe_debug_pub.add ('p_ordered_quantity_uom2 = ' || p_ordered_quantity_uom2 );
21339: oe_debug_pub.add ('p_inventory_item_id = ' || p_inventory_item_id );
21340: oe_debug_pub.add ('p_ship_from_org_id = ' || p_ship_from_org_id );
21333: oe_debug_pub.add ('p_ordered_quantity = ' || p_ordered_quantity );
21334: oe_debug_pub.add ('p_old_ordered_quantity = ' || p_old_ordered_quantity );
21335: oe_debug_pub.add ('p_ordered_quantity2 = ' || p_ordered_quantity2 );
21336: oe_debug_pub.add ('p_old_ordered_quantity2 = ' || p_old_ordered_quantity2 );
21337: oe_debug_pub.add ('p_ordered_quantity_uom = ' || p_ordered_quantity_uom );
21338: oe_debug_pub.add ('p_ordered_quantity_uom2 = ' || p_ordered_quantity_uom2 );
21339: oe_debug_pub.add ('p_inventory_item_id = ' || p_inventory_item_id );
21340: oe_debug_pub.add ('p_ship_from_org_id = ' || p_ship_from_org_id );
21341: oe_debug_pub.add ('p_lot_number = ' || p_lot_number );
21334: oe_debug_pub.add ('p_old_ordered_quantity = ' || p_old_ordered_quantity );
21335: oe_debug_pub.add ('p_ordered_quantity2 = ' || p_ordered_quantity2 );
21336: oe_debug_pub.add ('p_old_ordered_quantity2 = ' || p_old_ordered_quantity2 );
21337: oe_debug_pub.add ('p_ordered_quantity_uom = ' || p_ordered_quantity_uom );
21338: oe_debug_pub.add ('p_ordered_quantity_uom2 = ' || p_ordered_quantity_uom2 );
21339: oe_debug_pub.add ('p_inventory_item_id = ' || p_inventory_item_id );
21340: oe_debug_pub.add ('p_ship_from_org_id = ' || p_ship_from_org_id );
21341: oe_debug_pub.add ('p_lot_number = ' || p_lot_number );
21342: oe_debug_pub.add ('x_ui_flag = ' || x_ui_flag );
21335: oe_debug_pub.add ('p_ordered_quantity2 = ' || p_ordered_quantity2 );
21336: oe_debug_pub.add ('p_old_ordered_quantity2 = ' || p_old_ordered_quantity2 );
21337: oe_debug_pub.add ('p_ordered_quantity_uom = ' || p_ordered_quantity_uom );
21338: oe_debug_pub.add ('p_ordered_quantity_uom2 = ' || p_ordered_quantity_uom2 );
21339: oe_debug_pub.add ('p_inventory_item_id = ' || p_inventory_item_id );
21340: oe_debug_pub.add ('p_ship_from_org_id = ' || p_ship_from_org_id );
21341: oe_debug_pub.add ('p_lot_number = ' || p_lot_number );
21342: oe_debug_pub.add ('x_ui_flag = ' || x_ui_flag );
21343: END IF;
21336: oe_debug_pub.add ('p_old_ordered_quantity2 = ' || p_old_ordered_quantity2 );
21337: oe_debug_pub.add ('p_ordered_quantity_uom = ' || p_ordered_quantity_uom );
21338: oe_debug_pub.add ('p_ordered_quantity_uom2 = ' || p_ordered_quantity_uom2 );
21339: oe_debug_pub.add ('p_inventory_item_id = ' || p_inventory_item_id );
21340: oe_debug_pub.add ('p_ship_from_org_id = ' || p_ship_from_org_id );
21341: oe_debug_pub.add ('p_lot_number = ' || p_lot_number );
21342: oe_debug_pub.add ('x_ui_flag = ' || x_ui_flag );
21343: END IF;
21344:
21337: oe_debug_pub.add ('p_ordered_quantity_uom = ' || p_ordered_quantity_uom );
21338: oe_debug_pub.add ('p_ordered_quantity_uom2 = ' || p_ordered_quantity_uom2 );
21339: oe_debug_pub.add ('p_inventory_item_id = ' || p_inventory_item_id );
21340: oe_debug_pub.add ('p_ship_from_org_id = ' || p_ship_from_org_id );
21341: oe_debug_pub.add ('p_lot_number = ' || p_lot_number );
21342: oe_debug_pub.add ('x_ui_flag = ' || x_ui_flag );
21343: END IF;
21344:
21345: -- First of all, if this procedure is called from a source other then UI
21338: oe_debug_pub.add ('p_ordered_quantity_uom2 = ' || p_ordered_quantity_uom2 );
21339: oe_debug_pub.add ('p_inventory_item_id = ' || p_inventory_item_id );
21340: oe_debug_pub.add ('p_ship_from_org_id = ' || p_ship_from_org_id );
21341: oe_debug_pub.add ('p_lot_number = ' || p_lot_number );
21342: oe_debug_pub.add ('x_ui_flag = ' || x_ui_flag );
21343: END IF;
21344:
21345: -- First of all, if this procedure is called from a source other then UI
21346: /* If neither quantity is present, no calculation is required
21348:
21349: IF p_ordered_quantity2 = fnd_api.g_miss_num THEN
21350: p_ordered_quantity2 := 0;
21351: IF l_debug_level > 0 THEN
21352: oe_debug_pub.add('Calculate_dual_quantity - p_ordered_quantity2 = fnd_api.g_miss_num' );
21353: END IF;
21354:
21355: END IF;
21356:
21359: p_ordered_quantity = FND_API.G_MISS_NUM ) AND
21360: (p_ordered_quantity2 IS NULL OR
21361: p_ordered_quantity2 = FND_API.G_MISS_NUM ) THEN
21362: IF l_debug_level > 0 THEN
21363: oe_debug_pub.add ('Calculate_dual_quantity - both quantities empty so early return');
21364: END IF;
21365: RETURN;
21366: END IF;
21367: END IF; -- IF( X_UI_FLAG = 1 ) THEN
21381: RETURN;
21382: END IF;
21383:
21384: IF l_debug_level > 0 THEN
21385: oe_debug_pub.add('Calculate_dual_quantity secondary_default_ind is ' || l_item_rec.secondary_default_ind);
21386: END IF;
21387:
21388: IF ( X_UI_FLAG = 0 ) THEN
21389: IF (NVL(p_ordered_quantity2,0) = 0
21390: OR l_item_rec.secondary_default_ind = 'F' ) -- INVCONV
21391: THEN
21392:
21393: IF l_debug_level > 0 THEN
21394: oe_debug_pub.add('Calculate_dual_quantity : quantity2 is null OR is type F - so calculate it');
21395: END IF;
21396:
21397: /* p_ordered_quantity2 := GMI_Reservation_Util.get_opm_converted_qty( INVCONV
21398: p_apps_item_id => p_inventory_item_id,
21416: raise UOM_CONVERSION_FAILED;
21417: END IF;
21418: p_ordered_quantity2 := l_converted_qty; -- INVCONV
21419: IF l_debug_level > 0 THEN
21420: oe_debug_pub.add('Calculate_dual_quantity : calculated quantity2 is '||p_ordered_quantity2);
21421: END IF;
21422:
21423: -- ELSIF (l_item_rec.dualum_ind in (2,3) ) THEN
21424: /* passed quantity is not null and secondary_default_ind in ('D','N (dualum_ind is 2 or 3) */
21439:
21440: IF l_return = 0
21441: then
21442: IF l_debug_level > 0 THEN
21443: oe_debug_pub.add('Calculate_dual_quantity - tolerance error 1' ,1);
21444: END IF;
21445:
21446: l_buffer := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST, -- INVCONV
21447: p_encoded => 'F');
21446: l_buffer := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST, -- INVCONV
21447: p_encoded => 'F');
21448: oe_msg_pub.add_text(p_message_text => l_buffer);
21449: IF l_debug_level > 0 THEN
21450: oe_debug_pub.add(l_buffer,1);
21451: END IF;
21452: RAISE TOLERANCE_ERROR ;
21453:
21454: else
21452: RAISE TOLERANCE_ERROR ;
21453:
21454: else
21455: IF l_debug_level > 0 THEN
21456: oe_debug_pub.add('Calculate_dual_quantity - No tolerance error so return ',1);
21457: END IF;
21458: x_return_status := 0;
21459: RETURN;
21460: END IF; -- IF l_return = 0
21489: END IF; -- IF ( X_UI_FLAG = 0 ) THEN
21490:
21491:
21492: IF l_debug_level > 0 THEN
21493: oe_debug_pub.add('Calculate_dual_quantity - Convert for dual controlled item Scenario',1);
21494: END IF;
21495:
21496: /* Has one of the two quantities changed
21497: =======================================*/
21502: (p_ordered_quantity IS NULL) OR
21503: (p_ordered_quantity2 IS NULL) THEN
21504:
21505: IF l_debug_level > 0 THEN
21506: oe_debug_pub.add('Calculate_dual_quantity - change detected ',1);
21507: END IF;
21508:
21509: /*
21510: IF l_item_rec.dualum_ind = 1 THEN
21531:
21532: IF (l_status <> FND_API.G_RET_STS_SUCCESS)
21533: THEN
21534: x_return_status := -1;
21535: oe_debug_pub.add('OPM After Get_OPMUOM_from_appsUOM - failed : apps_uom = ' || p_ordered_quantity_uom || 'opm_uom = ' || l_opm_uom );
21536: ELSE
21537: x_return_status := 1;
21538: oe_debug_pub.add('OPM After Get_OPMUOM_from_appsUOM : apps_uom = ' || p_ordered_quantity_uom || 'opm_uom = ' || l_opm_uom );
21539: END IF; */
21534: x_return_status := -1;
21535: oe_debug_pub.add('OPM After Get_OPMUOM_from_appsUOM - failed : apps_uom = ' || p_ordered_quantity_uom || 'opm_uom = ' || l_opm_uom );
21536: ELSE
21537: x_return_status := 1;
21538: oe_debug_pub.add('OPM After Get_OPMUOM_from_appsUOM : apps_uom = ' || p_ordered_quantity_uom || 'opm_uom = ' || l_opm_uom );
21539: END IF; */
21540:
21541:
21542: IF (NOT OE_GLOBALS.EQUAL(p_ordered_quantity
21552: p_ordered_quantity2 is NOT NULL THEN
21553:
21554: /* Only do tolerance check if both quantities populated */
21555: IF l_debug_level > 0 THEN
21556: oe_debug_pub.add('Calculate_dual_quantity - Check the deviation ');
21557: END IF;
21558:
21559: l_return := INV_CONVERT.Within_Deviation -- INVCONV
21560: ( p_organization_id =>
21570:
21571: IF l_return = 0
21572: then
21573: IF l_debug_level > 0 THEN
21574: oe_debug_pub.add('Calculate_dual_quantity - tolerance error 2' ,1);
21575: END IF;
21576: l_buffer := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST, -- INVCONV
21577: p_encoded => 'F');
21578: oe_msg_pub.add_text(p_message_text => l_buffer);
21576: l_buffer := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST, -- INVCONV
21577: p_encoded => 'F');
21578: oe_msg_pub.add_text(p_message_text => l_buffer);
21579: IF l_debug_level > 0 THEN
21580: oe_debug_pub.add(l_buffer,1);
21581: END IF;
21582: RAISE TOLERANCE_ERROR ;
21583:
21584: else
21582: RAISE TOLERANCE_ERROR ;
21583:
21584: else
21585: IF l_debug_level > 0 THEN
21586: oe_debug_pub.add('Calculate_dual_quantity - No tolerance error so return ',1);
21587: END IF;
21588: x_return_status := 0;
21589: RETURN;
21590: END IF; -- IF l_return = 0
21599: ,0);
21600: -- if change is within of tolerance, no further action
21601:
21602: IF (l_return NOT in (-68, -69)) THEN
21603: oe_debug_pub.add(' OPM : calculate_dual_qty .No tolerance error so return ');
21604: RETURN;
21605: ELSE --- IF (l_item_rec.dualum_ind = 3 )THEN
21606: x_return_status := l_return;
21607: oe_debug_pub.add('Calculate_dual_quantity - deviation error so return ');
21603: oe_debug_pub.add(' OPM : calculate_dual_qty .No tolerance error so return ');
21604: RETURN;
21605: ELSE --- IF (l_item_rec.dualum_ind = 3 )THEN
21606: x_return_status := l_return;
21607: oe_debug_pub.add('Calculate_dual_quantity - deviation error so return ');
21608: RETURN;
21609: END IF; */
21610:
21611: END IF; -- IF (l_item_rec.secondary_default_ind in ('D','N')THEN
21612:
21613: -- IF (l_item_rec.dualum_ind in (1,2) )THEN INVCONV
21614: IF (l_item_rec.secondary_default_ind in ('F','D') ) THEN -- INVCONV
21615: IF l_debug_level > 0 THEN
21616: oe_debug_pub.add('Calculate_dual_qty - uom conversion primary to secondary');
21617: END IF;
21618: /*l_converted_qty :=GMICUOM.uom_conversion
21619: (l_item_rec.opm_item_id,0
21620: ,p_ordered_quantity
21650: END IF;
21651:
21652:
21653: IF l_debug_level > 0 THEN
21654: oe_debug_pub.add('Calculate_dual_quantity : calculated quantity2 is '||p_ordered_quantity2);
21655: END IF;
21656:
21657:
21658:
21686:
21687: IF l_return = 0
21688: then
21689: IF l_debug_level > 0 THEN
21690: oe_debug_pub.add('Calculate_dual_quantity - tolerance error 3' ,1);
21691: END IF;
21692:
21693: l_buffer := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST, -- INVCONV
21694: p_encoded => 'F');
21693: l_buffer := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST, -- INVCONV
21694: p_encoded => 'F');
21695: oe_msg_pub.add_text(p_message_text => l_buffer);
21696: IF l_debug_level > 0 THEN
21697: oe_debug_pub.add(l_buffer,1);
21698: END IF;
21699: RAISE TOLERANCE_ERROR ;
21700:
21701: else
21699: RAISE TOLERANCE_ERROR ;
21700:
21701: else
21702: IF l_debug_level > 0 THEN
21703: oe_debug_pub.add('Calculate_dual_quantity - No tolerance error so return ',1);
21704: END IF;
21705: RETURN;
21706: END IF; -- IF l_return = 0
21707:
21714: ,l_item_rec.opm_item_um2
21715: ,0);
21716: -- if change is within tolerance, no further action
21717: IF (l_return NOT in (-68, -69)) THEN
21718: oe_debug_pub.add(' OPM : calculate_dual_qty .No tolerance error so return ');
21719: RETURN;
21720: ELSE -- IF (l_item_rec.dualum_ind = 3 )THEN
21721: x_return_status := l_return;
21722: oe_debug_pub.add('Calculate_dual_quantity .deviation error so return ');
21718: oe_debug_pub.add(' OPM : calculate_dual_qty .No tolerance error so return ');
21719: RETURN;
21720: ELSE -- IF (l_item_rec.dualum_ind = 3 )THEN
21721: x_return_status := l_return;
21722: oe_debug_pub.add('Calculate_dual_quantity .deviation error so return ');
21723: RETURN;
21724: END IF; */
21725:
21726: END IF; -- IF (l_item_rec.secondary_default_ind in ('D','N')and -- INVCONV
21763: raise UOM_CONVERSION_FAILED;
21764: END IF;
21765:
21766: IF l_debug_level > 0 THEN
21767: oe_debug_pub.add('Calculate_dual_quantity - convert to ordered qty gives ' || p_ordered_quantity);
21768: END IF;
21769: END IF; -- IF (l_item_rec.secondary_default_ind in ('F','D') -- INVCONV
21770:
21771: END IF; -- IF (NVL(p_ordered_quantity2,0) = 0
21770:
21771: END IF; -- IF (NVL(p_ordered_quantity2,0) = 0
21772:
21773: IF l_debug_level > 0 THEN
21774: oe_debug_pub.add('Calculate_dual_quantity - exiting ordered qty = ' || p_ordered_quantity);
21775: oe_debug_pub.add('Calculate_dual_quantity - exiting ordered qty2 = ' || p_ordered_quantity2);
21776: END IF;
21777: EXCEPTION
21778:
21771: END IF; -- IF (NVL(p_ordered_quantity2,0) = 0
21772:
21773: IF l_debug_level > 0 THEN
21774: oe_debug_pub.add('Calculate_dual_quantity - exiting ordered qty = ' || p_ordered_quantity);
21775: oe_debug_pub.add('Calculate_dual_quantity - exiting ordered qty2 = ' || p_ordered_quantity2);
21776: END IF;
21777: EXCEPTION
21778:
21779: WHEN UOM_CONVERSION_FAILED THEN
21776: END IF;
21777: EXCEPTION
21778:
21779: WHEN UOM_CONVERSION_FAILED THEN
21780: oe_debug_pub.add('Exception handling: UOM_CONVERSION_FAILED in calculate_dual_qty', 1);
21781: FND_MESSAGE.SET_NAME('INV','INV_NO_CONVERSION_ERR'); -- INVCONV
21782: OE_MSG_PUB.Add;
21783: x_return_status := -99999;
21784: --RAISE FND_API.G_EXC_ERROR;
21784: --RAISE FND_API.G_EXC_ERROR;
21785:
21786:
21787: WHEN TOLERANCE_ERROR THEN -- INVCONV
21788: oe_debug_pub.add('Exception handling: TOLERANCE_ERROR in calculate_dual_qty', 1);
21789: x_return_status := -1;
21790: --RAISE -- FND_API.G_EXC_ERROR; -- INVCONV
21791:
21792: WHEN OTHERS THEN
21796: ( G_PKG_NAME ,
21797: 'Calculate_dual_quantity'
21798: );
21799: END IF;
21800: oe_debug_pub.add('Exception handling: others in calculate_dual_qty', 1);
21801: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21802:
21803: END calculate_dual_quantity;
21804:
21810: )
21811: IS
21812: l_return_status VARCHAR2(30);
21813: --
21814: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
21815: --
21816: BEGIN
21817:
21818: if l_debug_level > 0 then
21815: --
21816: BEGIN
21817:
21818: if l_debug_level > 0 then
21819: oe_debug_pub.add('line id : '||p_x_line_rec.line_id);
21820: oe_debug_pub.add('new blanket number : '||p_x_line_rec.blanket_number);
21821: oe_debug_pub.add('old blanket number : '||p_old_line_rec.blanket_number);
21822: oe_debug_pub.add('fulfilled flag : '||p_x_line_rec.fulfilled_flag);
21823: oe_debug_pub.add('operation : '||p_x_line_rec.operation);
21816: BEGIN
21817:
21818: if l_debug_level > 0 then
21819: oe_debug_pub.add('line id : '||p_x_line_rec.line_id);
21820: oe_debug_pub.add('new blanket number : '||p_x_line_rec.blanket_number);
21821: oe_debug_pub.add('old blanket number : '||p_old_line_rec.blanket_number);
21822: oe_debug_pub.add('fulfilled flag : '||p_x_line_rec.fulfilled_flag);
21823: oe_debug_pub.add('operation : '||p_x_line_rec.operation);
21824: oe_debug_pub.add('split from line ID : '||p_x_line_rec.split_from_line_id);
21817:
21818: if l_debug_level > 0 then
21819: oe_debug_pub.add('line id : '||p_x_line_rec.line_id);
21820: oe_debug_pub.add('new blanket number : '||p_x_line_rec.blanket_number);
21821: oe_debug_pub.add('old blanket number : '||p_old_line_rec.blanket_number);
21822: oe_debug_pub.add('fulfilled flag : '||p_x_line_rec.fulfilled_flag);
21823: oe_debug_pub.add('operation : '||p_x_line_rec.operation);
21824: oe_debug_pub.add('split from line ID : '||p_x_line_rec.split_from_line_id);
21825: oe_debug_pub.add('split action code : '||p_x_line_rec.split_action_code);
21818: if l_debug_level > 0 then
21819: oe_debug_pub.add('line id : '||p_x_line_rec.line_id);
21820: oe_debug_pub.add('new blanket number : '||p_x_line_rec.blanket_number);
21821: oe_debug_pub.add('old blanket number : '||p_old_line_rec.blanket_number);
21822: oe_debug_pub.add('fulfilled flag : '||p_x_line_rec.fulfilled_flag);
21823: oe_debug_pub.add('operation : '||p_x_line_rec.operation);
21824: oe_debug_pub.add('split from line ID : '||p_x_line_rec.split_from_line_id);
21825: oe_debug_pub.add('split action code : '||p_x_line_rec.split_action_code);
21826: oe_debug_pub.add('split by : '||p_x_line_rec.split_by);
21819: oe_debug_pub.add('line id : '||p_x_line_rec.line_id);
21820: oe_debug_pub.add('new blanket number : '||p_x_line_rec.blanket_number);
21821: oe_debug_pub.add('old blanket number : '||p_old_line_rec.blanket_number);
21822: oe_debug_pub.add('fulfilled flag : '||p_x_line_rec.fulfilled_flag);
21823: oe_debug_pub.add('operation : '||p_x_line_rec.operation);
21824: oe_debug_pub.add('split from line ID : '||p_x_line_rec.split_from_line_id);
21825: oe_debug_pub.add('split action code : '||p_x_line_rec.split_action_code);
21826: oe_debug_pub.add('split by : '||p_x_line_rec.split_by);
21827: end if;
21820: oe_debug_pub.add('new blanket number : '||p_x_line_rec.blanket_number);
21821: oe_debug_pub.add('old blanket number : '||p_old_line_rec.blanket_number);
21822: oe_debug_pub.add('fulfilled flag : '||p_x_line_rec.fulfilled_flag);
21823: oe_debug_pub.add('operation : '||p_x_line_rec.operation);
21824: oe_debug_pub.add('split from line ID : '||p_x_line_rec.split_from_line_id);
21825: oe_debug_pub.add('split action code : '||p_x_line_rec.split_action_code);
21826: oe_debug_pub.add('split by : '||p_x_line_rec.split_by);
21827: end if;
21828:
21821: oe_debug_pub.add('old blanket number : '||p_old_line_rec.blanket_number);
21822: oe_debug_pub.add('fulfilled flag : '||p_x_line_rec.fulfilled_flag);
21823: oe_debug_pub.add('operation : '||p_x_line_rec.operation);
21824: oe_debug_pub.add('split from line ID : '||p_x_line_rec.split_from_line_id);
21825: oe_debug_pub.add('split action code : '||p_x_line_rec.split_action_code);
21826: oe_debug_pub.add('split by : '||p_x_line_rec.split_by);
21827: end if;
21828:
21829: -- BUG 2746595, send currency code as request_unique_key1 parameter to
21822: oe_debug_pub.add('fulfilled flag : '||p_x_line_rec.fulfilled_flag);
21823: oe_debug_pub.add('operation : '||p_x_line_rec.operation);
21824: oe_debug_pub.add('split from line ID : '||p_x_line_rec.split_from_line_id);
21825: oe_debug_pub.add('split action code : '||p_x_line_rec.split_action_code);
21826: oe_debug_pub.add('split by : '||p_x_line_rec.split_by);
21827: end if;
21828:
21829: -- BUG 2746595, send currency code as request_unique_key1 parameter to
21830: -- process release request. This is required as 2 distinct requests need to
21893: )
21894: THEN
21895:
21896: if l_debug_level > 0 then
21897: oe_debug_pub.add('log blanket requests for complete neg');
21898: end if;
21899:
21900: OE_Order_Cache.Load_Order_Header(p_x_line_rec.header_id);
21901:
22053: EXCEPTION
22054: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
22055: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
22056: WHEN OTHERS THEN
22057: oe_debug_pub.add('Others error in Log_Blanket_Request');
22058: oe_debug_pub.add('Error :'||substr(sqlerrm,1,200));
22059: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
22060: THEN
22061: OE_MSG_PUB.Add_Exc_Msg
22054: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
22055: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
22056: WHEN OTHERS THEN
22057: oe_debug_pub.add('Others error in Log_Blanket_Request');
22058: oe_debug_pub.add('Error :'||substr(sqlerrm,1,200));
22059: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
22060: THEN
22061: OE_MSG_PUB.Add_Exc_Msg
22062: ( G_PKG_NAME ,
22108: up_f oe_price_adjustments.updated_flag%TYPE;
22109: row_count NUMBER;
22110:
22111: BEGIN
22112: oe_debug_pub.ADD('Entering OE_LINE_UTIL.UPDATE_ADJUSTMENT_FLAGS',1);
22113:
22114: IF p_old_line_rec.inventory_item_id IS NULL THEN
22115: --new item, dont need to do anything
22116: oe_debug_pub.ADD('New Item, dont have to do anything',1);
22112: oe_debug_pub.ADD('Entering OE_LINE_UTIL.UPDATE_ADJUSTMENT_FLAGS',1);
22113:
22114: IF p_old_line_rec.inventory_item_id IS NULL THEN
22115: --new item, dont need to do anything
22116: oe_debug_pub.ADD('New Item, dont have to do anything',1);
22117: oe_debug_pub.ADD('Exiting OE_LINE_UTIL.UPDATE_ADJUSTMENT_FLAGS',1);
22118: RETURN;
22119: END IF;
22120:
22113:
22114: IF p_old_line_rec.inventory_item_id IS NULL THEN
22115: --new item, dont need to do anything
22116: oe_debug_pub.ADD('New Item, dont have to do anything',1);
22117: oe_debug_pub.ADD('Exiting OE_LINE_UTIL.UPDATE_ADJUSTMENT_FLAGS',1);
22118: RETURN;
22119: END IF;
22120:
22121: --deleting the IUE adjustment
22121: --deleting the IUE adjustment
22122: /* DELETE FROM oe_price_adjustments
22123: where line_id=p_old_line_rec.line_id AND list_line_type_code='IUE';*/
22124:
22125: oe_debug_pub.ADD('trying to delete IUE adjustments...',1);
22126: OPEN c2;
22127: FETCH c2 INTO iue_adj_id;
22128: IF c2%found THEN
22129: oe_line_adj_util.delete_row(p_price_adjustment_id=>iue_adj_id);
22126: OPEN c2;
22127: FETCH c2 INTO iue_adj_id;
22128: IF c2%found THEN
22129: oe_line_adj_util.delete_row(p_price_adjustment_id=>iue_adj_id);
22130: oe_debug_pub.ADD('deleted IUE association:'||SQL%rowcount||' row(s)',1);
22131: oe_debug_pub.ADD('looking for item parent lines...',1);
22132: END IF;
22133: CLOSE c2;
22134:
22127: FETCH c2 INTO iue_adj_id;
22128: IF c2%found THEN
22129: oe_line_adj_util.delete_row(p_price_adjustment_id=>iue_adj_id);
22130: oe_debug_pub.ADD('deleted IUE association:'||SQL%rowcount||' row(s)',1);
22131: oe_debug_pub.ADD('looking for item parent lines...',1);
22132: END IF;
22133: CLOSE c2;
22134:
22135:
22139: --loop through all the parents
22140: FETCH c1 INTO child_adj_id, parent_adj_id,child_line_id;
22141: EXIT WHEN c1%notfound;
22142:
22143: oe_debug_pub.ADD('found parent line:'||parent_adj_id||' for child line:'||child_adj_id,1);
22144:
22145: --delete the adjustment if this is the child line.
22146: IF child_line_id=p_old_line_rec.line_id then
22147: oe_debug_pub.ADD('trying to delete adjustments for line_id:'||p_old_line_rec.line_id,1);
22143: oe_debug_pub.ADD('found parent line:'||parent_adj_id||' for child line:'||child_adj_id,1);
22144:
22145: --delete the adjustment if this is the child line.
22146: IF child_line_id=p_old_line_rec.line_id then
22147: oe_debug_pub.ADD('trying to delete adjustments for line_id:'||p_old_line_rec.line_id,1);
22148: oe_line_adj_util.delete_row(p_line_id=>p_old_line_rec.line_id);
22149: oe_debug_pub.ADD('child adj id '||child_adj_id,1);
22150: OE_Line_Adj_Assocs_Util.delete_row(
22151: p_price_adjustment_id=>child_adj_id);
22145: --delete the adjustment if this is the child line.
22146: IF child_line_id=p_old_line_rec.line_id then
22147: oe_debug_pub.ADD('trying to delete adjustments for line_id:'||p_old_line_rec.line_id,1);
22148: oe_line_adj_util.delete_row(p_line_id=>p_old_line_rec.line_id);
22149: oe_debug_pub.ADD('child adj id '||child_adj_id,1);
22150: OE_Line_Adj_Assocs_Util.delete_row(
22151: p_price_adjustment_id=>child_adj_id);
22152: END IF;
22153:
22156: SELECT COUNT(*) INTO row_count
22157: FROM oe_price_adj_assocs opaa,oe_price_adjustments opa
22158: WHERE opaa.price_adjustment_id=parent_adj_id
22159: AND opaa.rltd_price_adj_id=opa.price_adjustment_id;
22160: oe_debug_pub.ADD('total '||row_count||' free child record(s)',1);
22161:
22162: IF row_count>0 THEN
22163: --not the only free item, this adjustment is applied _and_ updated = 'Y'
22164: UPDATE oe_price_adjustments
22163: --not the only free item, this adjustment is applied _and_ updated = 'Y'
22164: UPDATE oe_price_adjustments
22165: SET applied_flag='Y',updated_flag='Y'
22166: WHERE price_adjustment_id=parent_adj_id;
22167: oe_debug_pub.ADD('updated parent adjustment: applied_flag=Y,updated_flag=Y:'||SQL%rowcount||' row(s)',1);
22168: UPDATE oe_price_adjustments
22169: SET updated_flag = 'Y' where price_adjustment_id in
22170: (select rltd_price_adj_id from oe_price_adj_assocs
22171: where price_adjustment_id = parent_adj_id);
22173: --the last (or only) free item, make parent adjustment applied='N'
22174: UPDATE oe_price_adjustments
22175: SET applied_flag='N',updated_flag='Y'
22176: WHERE price_adjustment_id=parent_adj_id;
22177: oe_debug_pub.ADD('updated parent adjustment: applied_flag=N,updated_flag=Y:'||SQL%rowcount||' rows',1);
22178: END IF;
22179: SELECT applied_flag,updated_flag INTO app_f,up_f
22180: FROM oe_price_adjustments
22181: WHERE price_adjustment_id=parent_adj_id;
22178: END IF;
22179: SELECT applied_flag,updated_flag INTO app_f,up_f
22180: FROM oe_price_adjustments
22181: WHERE price_adjustment_id=parent_adj_id;
22182: oe_debug_pub.ADD('price_adjustment_id:'||parent_adj_id||' applied_flag='||app_f||' updated_flag='||up_f,1);
22183:
22184:
22185: END LOOP;
22186: CLOSE c1;
22183:
22184:
22185: END LOOP;
22186: CLOSE c1;
22187: oe_debug_pub.ADD('...done looking for item parent lines',1);
22188: oe_debug_pub.ADD('Exiting OE_LINE_UTIL.UPDATE_ADJUSTMENT_FLAGS',1);
22189: RETURN;
22190:
22191: END update_adjustment_flags;
22184:
22185: END LOOP;
22186: CLOSE c1;
22187: oe_debug_pub.ADD('...done looking for item parent lines',1);
22188: oe_debug_pub.ADD('Exiting OE_LINE_UTIL.UPDATE_ADJUSTMENT_FLAGS',1);
22189: RETURN;
22190:
22191: END update_adjustment_flags;
22192:
22260: , p_old_line_rec IN OE_Order_PUB.Line_Rec_Type
22261: )
22262: IS
22263: l_return_status VARCHAR2(30);
22264: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
22265: l_operation VARCHAR2(30) := p_x_line_rec.operation;
22266: l_count NUMBER;
22267: l_ref_data_elem_changed VARCHAR2(1) := 'N';
22268: l_cust_po_attr_change BOOLEAN := FALSE ;
22271: l_ref_data_only boolean:=FALSE;
22272: BEGIN
22273:
22274: IF l_debug_level > 0 THEN
22275: OE_DEBUG_PUB.Add('Entering Log_Dropship_CMS_Request...', 2);
22276: END IF;
22277:
22278: SELECT count(*)
22279: INTO l_count
22282: AND header_id = p_x_line_rec.header_id;
22283:
22284: IF l_count = 0 THEN
22285: IF l_debug_level > 0 THEN
22286: OE_DEBUG_PUB.Add('No Records in Drop Ship Sources,Returning...', 2);
22287: END IF;
22288: RETURN;
22289: END IF;
22290:
22319: OR NOT OE_GLOBALS.EQUAL(p_x_line_rec.shipping_method_code
22320: ,p_old_line_rec.shipping_method_code) THEN
22321:
22322: IF l_debug_level > 0 THEN
22323: OE_DEBUG_PUB.Add('Change in Reference Data Elements...', 2);
22324: END IF;
22325:
22326: l_ref_data_elem_changed := 'Y';
22327: l_ref_data_only := true;
22336: OR NOT OE_GLOBALS.EQUAL(p_x_line_rec.customer_shipment_number
22337: ,p_old_line_rec.customer_shipment_number) THEN
22338: --{
22339: IF l_debug_level > 0 THEN
22340: OE_DEBUG_PUB.Add('Change in customer PO Reference Data Elements...', 2);
22341: END IF;
22342: l_ref_data_elem_changed := 'Y';
22343: l_cust_po_attr_change:=true;
22344: --}
22348: --{
22349: IF Nvl(p_x_line_rec.shipped_quantity,0)>0 THEN
22350: --{
22351: if l_debug_level > 0 then
22352: oe_debug_pub.add('Drop ship line is already received.So do not log CMS request', 1);
22353: l_log_cust_po_change:=FALSE;
22354: end if;
22355: --}
22356: ELSE
22370: AND INTERFACE_SOURCE_CODE='RCV'
22371: AND SOURCE_DOCUMENT_CODE='PO';
22372:
22373: if l_debug_level > 0 then
22374: oe_debug_pub.add('line has been received either fully or partially do not log request', 1);
22375: l_log_cust_po_change:=FALSE;
22376: end if;
22377:
22378: EXCEPTION
22377:
22378: EXCEPTION
22379: WHEN No_Data_Found THEN
22380: if l_debug_level > 0 then
22381: oe_debug_pub.add('line is not yet received can interface to PO', 1);
22382: end if;
22383: l_log_cust_po_change:=TRUE;
22384: END;
22385: --}
22393: FND_MESSAGE.Set_Name('ONT','ONT_DS_OPM_QTY_CHANGED');
22394: OE_MSG_PUB.Add;
22395:
22396: IF l_debug_level > 0 THEN
22397: OE_DEBUG_PUB.Add('Warning!! Secondary Qty Changed...', 2);
22398: END IF;
22399: END IF;
22400:
22401: IF NOT OE_GLOBALS.EQUAL(p_x_line_rec.ordered_quantity_uom2
22404: FND_MESSAGE.Set_Name('ONT','ONT_DS_OPM_UOM_CHANGED');
22405: OE_MSG_PUB.Add;
22406:
22407: IF l_debug_level > 0 THEN
22408: OE_DEBUG_PUB.Add('Warning!! Secondary Qty UOM Changed...', 2);
22409: END IF;
22410: END IF;
22411:
22412: IF NOT OE_GLOBALS.EQUAL(p_x_line_rec.preferred_grade
22415: FND_MESSAGE.Set_Name('ONT', 'ONT_DS_OPM_GRADE_CHANGED');
22416: OE_MSG_PUB.Add;
22417:
22418: IF l_debug_level > 0 THEN
22419: OE_DEBUG_PUB.Add('Warning!! OPM Grade Changed...', 2);
22420: END IF;
22421:
22422: END IF; */
22423:
22450: l_operation := 'CANCEL';
22451: END IF;
22452:
22453: IF l_debug_level > 0 THEN
22454: OE_DEBUG_PUB.Add('-----Logging Dropship_CMS_Request----for Entity:'||
22455: p_x_line_rec.line_id, 2);
22456: END IF;
22457:
22458: OE_Delayed_Requests_Pvt.Log_Request
22486:
22487: END IF;
22488:
22489: IF l_debug_level > 0 THEN
22490: OE_DEBUG_PUB.Add('After Logging CMS_Request...'||l_return_status, 2);
22491: END IF;
22492:
22493: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
22494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
22494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
22495: END IF;
22496:
22497: IF l_debug_level > 0 THEN
22498: OE_DEBUG_PUB.Add('Exiting Log_Dropship_CMS_Request...', 2);
22499: END IF;
22500:
22501:
22502: EXCEPTION
22502: EXCEPTION
22503:
22504: WHEN FND_API.G_EXC_ERROR THEN
22505: IF l_debug_level > 0 THEN
22506: OE_DEBUG_PUB.Add('Execution Error in Log_Dropship_CMS_Request', 2);
22507: END IF;
22508: RAISE FND_API.G_EXC_ERROR;
22509:
22510: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
22508: RAISE FND_API.G_EXC_ERROR;
22509:
22510: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
22511: IF l_debug_level > 0 THEN
22512: OE_DEBUG_PUB.Add('Unexpected Error in Log_Dropship_CMS_Request'||
22513: sqlerrm, 1);
22514: END IF;
22515: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
22516:
22538: l_open_rfr_lines NUMBER;
22539: l_activity_status_code VARCHAR2(30);
22540: l_result_out VARCHAR2(30);
22541: l_return_status VARCHAR2(30);
22542: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
22543:
22544: BEGIN
22545: IF l_debug_level > 0 THEN
22546: oe_debug_pub.add('Entering HANDLE_RFR ... ', 1);
22542: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
22543:
22544: BEGIN
22545: IF l_debug_level > 0 THEN
22546: oe_debug_pub.add('Entering HANDLE_RFR ... ', 1);
22547: oe_debug_pub.add(' with p_line_id '|| p_line_id , 1);
22548: oe_debug_pub.add(' with p_top_model_line_id '|| p_top_model_line_id , 1);
22549: oe_debug_pub.add(' with p_link_to_line_id '|| p_link_to_line_id , 1);
22550: END IF;
22543:
22544: BEGIN
22545: IF l_debug_level > 0 THEN
22546: oe_debug_pub.add('Entering HANDLE_RFR ... ', 1);
22547: oe_debug_pub.add(' with p_line_id '|| p_line_id , 1);
22548: oe_debug_pub.add(' with p_top_model_line_id '|| p_top_model_line_id , 1);
22549: oe_debug_pub.add(' with p_link_to_line_id '|| p_link_to_line_id , 1);
22550: END IF;
22551:
22544: BEGIN
22545: IF l_debug_level > 0 THEN
22546: oe_debug_pub.add('Entering HANDLE_RFR ... ', 1);
22547: oe_debug_pub.add(' with p_line_id '|| p_line_id , 1);
22548: oe_debug_pub.add(' with p_top_model_line_id '|| p_top_model_line_id , 1);
22549: oe_debug_pub.add(' with p_link_to_line_id '|| p_link_to_line_id , 1);
22550: END IF;
22551:
22552: SELECT nvl(bic.required_for_revenue, 0)
22545: IF l_debug_level > 0 THEN
22546: oe_debug_pub.add('Entering HANDLE_RFR ... ', 1);
22547: oe_debug_pub.add(' with p_line_id '|| p_line_id , 1);
22548: oe_debug_pub.add(' with p_top_model_line_id '|| p_top_model_line_id , 1);
22549: oe_debug_pub.add(' with p_link_to_line_id '|| p_link_to_line_id , 1);
22550: END IF;
22551:
22552: SELECT nvl(bic.required_for_revenue, 0)
22553: INTO l_is_rfr
22559: AND bic.component_item_id = Line.inventory_item_id;
22560:
22561: IF l_is_rfr = 1 THEN
22562: IF l_debug_level > 0 THEN
22563: oe_debug_pub.add('Component being cancelled is marked as RFR, checking if any other RFR Lines are open', 5);
22564: END IF;
22565:
22566: SELECT count(1)
22567: INTO l_open_rfr_lines
22577:
22578: IF l_open_rfr_lines = 0 THEN
22579:
22580: IF l_debug_level > 0 THEN
22581: oe_debug_pub.add('No more pending RFR lines under current parent, checking status of Parent Line', 5);
22582: END IF;
22583:
22584: BEGIN
22585: SELECT ACTIVITY_STATUS
22595:
22596: EXCEPTION
22597: WHEN OTHERS THEN
22598: l_activity_status_code := null;
22599: oe_debug_pub.add(' in exception block - '||SQLERRM, 5);
22600: END;
22601:
22602: IF l_activity_status_code = 'NOTIFIED' THEN
22603: IF l_debug_level > 0 THEN
22600: END;
22601:
22602: IF l_activity_status_code = 'NOTIFIED' THEN
22603: IF l_debug_level > 0 THEN
22604: oe_debug_pub.add('Parent Line waiting to be invoiced, calling API to Invoice Parent ', 5);
22605: END IF;
22606:
22607: OE_Invoice_PUB.Interface_Line( p_link_to_line_id
22608: ,OE_GLOBALS.G_WFI_LIN
22609: ,l_result_out
22610: ,l_return_status);
22611:
22612: IF l_debug_level > 0 THEN
22613: oe_debug_pub.add( ' after call to invoice api: l_result_out: '||l_result_out ) ;
22614: oe_debug_pub.add( ' after call to invoice api: l_return_status: '|| l_return_status ) ;
22615: END IF;
22616:
22617: /*
22610: ,l_return_status);
22611:
22612: IF l_debug_level > 0 THEN
22613: oe_debug_pub.add( ' after call to invoice api: l_result_out: '||l_result_out ) ;
22614: oe_debug_pub.add( ' after call to invoice api: l_return_status: '|| l_return_status ) ;
22615: END IF;
22616:
22617: /*
22618: Need to check only l_return_status. If SUCCESS, do COMPLETE with default transition
22618: Need to check only l_return_status. If SUCCESS, do COMPLETE with default transition
22619: */
22620: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
22621: IF l_debug_level > 0 THEN
22622: oe_debug_pub.add( 'Updating Line Flow Status and pushing WF ');
22623: END IF;
22624: Update oe_order_lines
22625: Set flow_status_code = 'INVOICED'
22626: Where line_id = p_link_to_line_id;
22628: BEGIN
22629: WF_ENGINE.CompleteActivityInternalName(OE_GLOBALS.G_WFI_LIN, p_link_to_line_id, 'INVOICING_WAIT_FOR_RFR', null);
22630: EXCEPTION
22631: WHEN OTHERS THEN
22632: oe_debug_pub.add(' Error in completing activity; SQL Message - '||SQLERRM, 5);
22633: END;
22634: ELSE
22635: oe_debug_pub.add(' l_return_status is not equal to Success, do nothing ', 5);
22636: END IF; --checking l_return_status
22631: WHEN OTHERS THEN
22632: oe_debug_pub.add(' Error in completing activity; SQL Message - '||SQLERRM, 5);
22633: END;
22634: ELSE
22635: oe_debug_pub.add(' l_return_status is not equal to Success, do nothing ', 5);
22636: END IF; --checking l_return_status
22637:
22638: ELSE
22639: IF l_debug_level > 0 THEN
22636: END IF; --checking l_return_status
22637:
22638: ELSE
22639: IF l_debug_level > 0 THEN
22640: oe_debug_pub.add('Parent Line is not waiting to be Invoiced, do nothing', 5);
22641: END IF;
22642: END IF; -- activity_status=NOTIFIED
22643: ELSE
22644: IF l_debug_level > 0 THEN
22641: END IF;
22642: END IF; -- activity_status=NOTIFIED
22643: ELSE
22644: IF l_debug_level > 0 THEN
22645: oe_debug_pub.add('Other RFR lines are still open, no need to Invoice Parent Line', 5);
22646: END IF;
22647: END IF; -- IF l_open_rfr_lines ...
22648: ELSE
22649: IF l_debug_level > 0 THEN
22646: END IF;
22647: END IF; -- IF l_open_rfr_lines ...
22648: ELSE
22649: IF l_debug_level > 0 THEN
22650: oe_debug_pub.add('Current line being cancelled is not RFR', 5);
22651: END IF;
22652: END IF; -- IF l_is_rfr ...
22653:
22654:
22652: END IF; -- IF l_is_rfr ...
22653:
22654:
22655: IF l_debug_level > 0 THEN
22656: oe_debug_pub.add('Exiting HANDLE_RFR ...', 1);
22657: END IF;
22658:
22659: END HANDLE_RFR;
22660: