[Home] [Help]
27: l_order_currency VARCHAR2(30);
28: l_blanket_currency VARCHAR2(30);
29: l_conversion_type VARCHAR2(30);
30:
31: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
32:
33: BEGIN
34:
35: IF l_fulfilled_quantity IS NULL THEN
40:
41:
42:
43: if l_debug_level > 0 then
44: oe_debug_pub.add('blanket number : '||p_line_rec.blanket_number);
45: oe_debug_pub.add('blanket line number : '||p_line_rec.blanket_line_number);
46: oe_debug_pub.add('UOM : '||p_line_rec.order_quantity_uom);
47: oe_debug_pub.add('Item Type : '||p_line_rec.item_type_code);
48: oe_debug_pub.add('Line Category : '||p_line_rec.line_category_code);
41:
42:
43: if l_debug_level > 0 then
44: oe_debug_pub.add('blanket number : '||p_line_rec.blanket_number);
45: oe_debug_pub.add('blanket line number : '||p_line_rec.blanket_line_number);
46: oe_debug_pub.add('UOM : '||p_line_rec.order_quantity_uom);
47: oe_debug_pub.add('Item Type : '||p_line_rec.item_type_code);
48: oe_debug_pub.add('Line Category : '||p_line_rec.line_category_code);
49: end if;
42:
43: if l_debug_level > 0 then
44: oe_debug_pub.add('blanket number : '||p_line_rec.blanket_number);
45: oe_debug_pub.add('blanket line number : '||p_line_rec.blanket_line_number);
46: oe_debug_pub.add('UOM : '||p_line_rec.order_quantity_uom);
47: oe_debug_pub.add('Item Type : '||p_line_rec.item_type_code);
48: oe_debug_pub.add('Line Category : '||p_line_rec.line_category_code);
49: end if;
50:
43: if l_debug_level > 0 then
44: oe_debug_pub.add('blanket number : '||p_line_rec.blanket_number);
45: oe_debug_pub.add('blanket line number : '||p_line_rec.blanket_line_number);
46: oe_debug_pub.add('UOM : '||p_line_rec.order_quantity_uom);
47: oe_debug_pub.add('Item Type : '||p_line_rec.item_type_code);
48: oe_debug_pub.add('Line Category : '||p_line_rec.line_category_code);
49: end if;
50:
51:
44: oe_debug_pub.add('blanket number : '||p_line_rec.blanket_number);
45: oe_debug_pub.add('blanket line number : '||p_line_rec.blanket_line_number);
46: oe_debug_pub.add('UOM : '||p_line_rec.order_quantity_uom);
47: oe_debug_pub.add('Item Type : '||p_line_rec.item_type_code);
48: oe_debug_pub.add('Line Category : '||p_line_rec.line_category_code);
49: end if;
50:
51:
52: -- 1. COMPUTE AMOUNT INTO Blanket Currency
73: );
74: END IF;
75:
76: if l_debug_level > 0 then
77: oe_debug_pub.add('Order Currency : '||l_order_currency);
78: oe_debug_pub.add('Blanket Currency : '||l_blanket_currency);
79: oe_debug_pub.add('Fulfilled Amount : '||l_amount);
80: end if;
81:
74: END IF;
75:
76: if l_debug_level > 0 then
77: oe_debug_pub.add('Order Currency : '||l_order_currency);
78: oe_debug_pub.add('Blanket Currency : '||l_blanket_currency);
79: oe_debug_pub.add('Fulfilled Amount : '||l_amount);
80: end if;
81:
82:
75:
76: if l_debug_level > 0 then
77: oe_debug_pub.add('Order Currency : '||l_order_currency);
78: oe_debug_pub.add('Blanket Currency : '||l_blanket_currency);
79: oe_debug_pub.add('Fulfilled Amount : '||l_amount);
80: end if;
81:
82:
83: -- 2. CONVERT fulfilled quantity into blanket UOM
109:
110: END IF;
111:
112: if l_debug_level > 0 then
113: oe_debug_pub.add('blkt uom :'||l_blanket_uom);
114: oe_debug_pub.add('fulfilled qty :'||l_fulfilled_quantity);
115: end if;
116:
117:
110: END IF;
111:
112: if l_debug_level > 0 then
113: oe_debug_pub.add('blkt uom :'||l_blanket_uom);
114: oe_debug_pub.add('fulfilled qty :'||l_fulfilled_quantity);
115: end if;
116:
117:
118: -- 3. UPDATE quantity/amount on blanket line and header
199:
200: EXCEPTION
201: WHEN OTHERS THEN
202: if l_debug_level > 0 then
203: oe_debug_pub.add('Update_Blanket_Qty: Others Error', 1);
204: oe_debug_pub.ADD('Error: '||substr(sqlerrm,1,200),1);
205: end if;
206: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
207: THEN
200: EXCEPTION
201: WHEN OTHERS THEN
202: if l_debug_level > 0 then
203: oe_debug_pub.add('Update_Blanket_Qty: Others Error', 1);
204: oe_debug_pub.ADD('Error: '||substr(sqlerrm,1,200),1);
205: end if;
206: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
207: THEN
208: OE_MSG_PUB.Add_Exc_Msg
226: ) return VARCHAR2
227: IS
228: l_set_id NUMBER;
229: --
230: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
231: --
232: BEGIN
233:
234: IF l_debug_level > 0 THEN
231: --
232: BEGIN
233:
234: IF l_debug_level > 0 THEN
235: oe_debug_pub.add( 'ENTERING OE_LINE_FULLFILL.IS_PART_OF_FULFILLMENT_SET '|| TO_CHAR ( P_LINE_ID ) , 5 ) ;
236: END IF;
237:
238: Select set_id
239: Into l_set_id
240: From oe_line_sets
241: Where line_id = p_line_id;
242:
243: IF l_debug_level > 0 THEN
244: oe_debug_pub.add( 'Yes, part of fulfillment set ' , 5 ) ;
245: END IF;
246:
247: Return FND_API.G_TRUE;
248:
275: l_activity_id NUMBER;
276: l_item_key VARCHAR2(240);
277: l_fulfill_activity VARCHAR2(30) := 'FULFILL_LINE';
278: l_return_status VARCHAR2(1);
279: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
280:
281: CURSOR C_Service_Lines IS
282: SELECT LINE_ID,
283: HEADER_ID,
300: AND TOP_MODEL_LINE_ID IS NULL; --3449588
301: BEGIN
302:
303: IF l_debug_level > 0 THEN
304: oe_debug_pub.add( 'ENTERING OE_LINE_FULLFILL.GET_SERVICE_LINES '|| TO_CHAR ( P_LINE_ID ) , 1 ) ;
305: END IF;
306:
307:
308: IF p_header_id IS NULL OR -- This IF introduced for 1717444
320:
321: IF l_service_lines.fulfilled_flag = 'Y' THEN
322:
323: IF l_debug_level > 0 THEN
324: oe_debug_pub.add( 'SERVICE LINE IS ALREADY FULFILLED ' , 3 ) ;
325: END IF;
326:
327: ELSE
328:
328:
329: l_item_key := to_char(l_service_lines.line_id);
330:
331: IF l_debug_level > 0 THEN
332: oe_debug_pub.add( 'CALLING GET ACTIVITY RESULT FOR ITEM : '||L_ITEM_KEY||'/'||L_FULFILL_ACTIVITY , 3 ) ;
333: END IF;
334:
335: Get_Activity_Result
336: (
343: , x_activity_id => l_activity_id
344: );
345:
346: IF l_debug_level > 0 THEN
347: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS||'/'||L_ACTIVITY_STATUS , 3 ) ;
348: END IF;
349:
350: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
352: ELSIF l_return_status = FND_API.G_RET_STS_ERROR OR
353: l_activity_status <> 'NOTIFIED' THEN
354: IF l_debug_level > 0 THEN
355: oe_debug_pub.add( 'SERVICE LINE IS NOT AT FULFILL LINE : '||TO_CHAR ( L_SERVICE_LINES.LINE_ID ) , 3 ) ;
356: END IF;
357: GOTO END_SERVICE_LOOP;
358: END IF;
359:
386: x_return_status := FND_API.G_RET_STS_SUCCESS;
387: END IF;
388:
389: IF l_debug_level > 0 THEN
390: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.GET_SERVICE_LINES WITH STATUS: '|| X_RETURN_STATUS , 1 ) ;
391: END IF;
392:
393: EXCEPTION
394:
395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
397:
398: IF l_debug_level > 0 THEN
399: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.GET_SERVICE_LINES WITH STATUS: '|| X_RETURN_STATUS , 1 ) ;
400: END IF;
401: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
402: THEN
403: OE_MSG_PUB.Add_Exc_Msg
409:
410: WHEN OTHERS THEN
411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
412: IF l_debug_level > 0 THEN
413: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
414: END IF;
415: IF l_debug_level > 0 THEN
416: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.GET_SERVICE_LINES WITH STATUS: '|| X_RETURN_STATUS , 1 ) ;
417: END IF;
412: IF l_debug_level > 0 THEN
413: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
414: END IF;
415: IF l_debug_level > 0 THEN
416: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.GET_SERVICE_LINES WITH STATUS: '|| X_RETURN_STATUS , 1 ) ;
417: END IF;
418:
419: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
420: THEN
444: l_return_status VARCHAR2(1);
445: l_parent_line_fulfilled_qty NUMBER := null; --5699215
446:
447: --
448: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
449: --
450: BEGIN
451:
452: IF l_debug_level > 0 THEN
449: --
450: BEGIN
451:
452: IF l_debug_level > 0 THEN
453: oe_debug_pub.add( 'ENTERING OE_LINE_FULLFILL.FULFILL_SERVICE_LINES '|| TO_CHAR ( P_LINE_ID ) , 1 ) ;
454: END IF;
455:
456: /* Get the service lines if there are any associated with the
457: line */
506: l_fulfill_tbl(l_fulfill_index).order_firmed_date := l_service_tbl(l_service_index).order_firmed_date;
507: l_fulfill_tbl(l_fulfill_index).actual_shipment_date := l_service_tbl(l_service_index).actual_shipment_date;
508: l_fulfill_tbl(l_fulfill_index).operation := OE_GLOBALS.G_OPR_UPDATE;
509: IF l_debug_level > 0 THEN
510: oe_debug_pub.add( 'FULFILL INDEX : '||TO_CHAR ( L_FULFILL_INDEX ) , 3 ) ;
511: oe_debug_pub.add( 'FULFILLED FLAG : '||L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_FLAG , 3 ) ;
512: oe_debug_pub.add( 'FULFILLED QUANTITY : '||TO_CHAR ( L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_QUANTITY ) , 3 ) ;
513: END IF;
514:
507: l_fulfill_tbl(l_fulfill_index).actual_shipment_date := l_service_tbl(l_service_index).actual_shipment_date;
508: l_fulfill_tbl(l_fulfill_index).operation := OE_GLOBALS.G_OPR_UPDATE;
509: IF l_debug_level > 0 THEN
510: oe_debug_pub.add( 'FULFILL INDEX : '||TO_CHAR ( L_FULFILL_INDEX ) , 3 ) ;
511: oe_debug_pub.add( 'FULFILLED FLAG : '||L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_FLAG , 3 ) ;
512: oe_debug_pub.add( 'FULFILLED QUANTITY : '||TO_CHAR ( L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_QUANTITY ) , 3 ) ;
513: END IF;
514:
515: END LOOP;
508: l_fulfill_tbl(l_fulfill_index).operation := OE_GLOBALS.G_OPR_UPDATE;
509: IF l_debug_level > 0 THEN
510: oe_debug_pub.add( 'FULFILL INDEX : '||TO_CHAR ( L_FULFILL_INDEX ) , 3 ) ;
511: oe_debug_pub.add( 'FULFILLED FLAG : '||L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_FLAG , 3 ) ;
512: oe_debug_pub.add( 'FULFILLED QUANTITY : '||TO_CHAR ( L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_QUANTITY ) , 3 ) ;
513: END IF;
514:
515: END LOOP;
516:
518:
519: IF l_fulfill_index <> 0 THEN
520:
521: IF l_debug_level > 0 THEN
522: oe_debug_pub.add( '..516..CALLING FULFILL LINE TABLE : ' , 3 ) ;
523: END IF;
524:
525: Fulfill_Line
526: (
530: x_return_status => l_return_status
531: );
532:
533: IF l_debug_level > 0 THEN
534: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL LINE : '||L_RETURN_STATUS , 3 ) ;
535: END IF;
536:
537: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
538: IF l_debug_level > 0 THEN
535: END IF;
536:
537: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
538: IF l_debug_level > 0 THEN
539: oe_debug_pub.add('raising unexpected error '||sqlerrm,1);
540: END IF;
541: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
542: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
543: IF l_debug_level > 0 THEN
540: END IF;
541: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
542: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
543: IF l_debug_level > 0 THEN
544: oe_debug_pub.add('raising exc error '||sqlerrm,1);
545: END IF;
546: RAISE FND_API.G_EXC_ERROR;
547: END IF;
548: END IF;
553: LOOP
554:
555: l_line_id := l_service_tbl(l_service_index).line_id;
556: IF l_debug_level > 0 THEN
557: oe_debug_pub.add( 'CALLING FLOW STATUS API FOR LINE '||L_SERVICE_TBL ( L_SERVICE_INDEX ) .LINE_ID , 3 ) ;
558: END IF;
559:
560: OE_Order_WF_Util.Update_Flow_Status_Code
561: (p_line_id => l_service_tbl(l_service_index).line_id,
563: x_return_status => l_return_status
564: );
565:
566: IF l_debug_level > 0 THEN
567: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
568: END IF;
569:
570: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
571: IF l_debug_level > 0 THEN
568: END IF;
569:
570: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
571: IF l_debug_level > 0 THEN
572: oe_debug_pub.add('after update of flow status code - error '||sqlerrm,1);
573: END IF;
574: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
575: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
576: IF l_debug_level > 0 THEN
573: END IF;
574: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
575: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
576: IF l_debug_level > 0 THEN
577: oe_debug_pub.add('after update of flow status code - exc error '||sqlerrm,1);
578: END IF;
579: RAISE FND_API.G_EXC_ERROR;
580: END IF;
581: IF l_debug_level > 0 THEN
578: END IF;
579: RAISE FND_API.G_EXC_ERROR;
580: END IF;
581: IF l_debug_level > 0 THEN
582: oe_debug_pub.add( 'CALLING WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( L_LINE_ID ) , 3 ) ;
583: END IF;
584: BEGIN
585: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_line_id), 'FULFILL_LINE', '#NULL',TRUE ); --15870313
586: EXCEPTION
584: BEGIN
585: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_line_id), 'FULFILL_LINE', '#NULL',TRUE ); --15870313
586: EXCEPTION
587: WHEN OTHERS THEN
588: oe_debug_pub.add('Workflow complete activity failed. Raising');
589: RAISE ;
590: END ;
591: IF l_debug_level > 0 THEN
592: oe_debug_pub.add( 'RETURNED FROM WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( L_LINE_ID ) , 3 ) ;
588: oe_debug_pub.add('Workflow complete activity failed. Raising');
589: RAISE ;
590: END ;
591: IF l_debug_level > 0 THEN
592: oe_debug_pub.add( 'RETURNED FROM WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( L_LINE_ID ) , 3 ) ;
593: END IF;
594:
595: END LOOP;
596:
599:
600: x_return_status := FND_API.G_RET_STS_SUCCESS;
601:
602: IF l_debug_level > 0 THEN
603: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.FULFILL_SERVICE_LINES '|| X_RETURN_STATUS , 1 ) ;
604: END IF;
605:
606: EXCEPTION
607:
608: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
610:
611: IF l_debug_level > 0 THEN
612: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.FULFILL_SERVICE_LINES WITH STATUS: '|| X_RETURN_STATUS , 1 ) ;
613: END IF;
614: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
615: THEN
616: OE_MSG_PUB.Add_Exc_Msg
622:
623: WHEN OTHERS THEN
624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
625: IF l_debug_level > 0 THEN
626: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
627: END IF;
628: IF l_debug_level > 0 THEN
629: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.FULFILL_SERVICE_LINES WITH STATUS: '|| X_RETURN_STATUS , 1 ) ;
630: END IF;
625: IF l_debug_level > 0 THEN
626: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
627: END IF;
628: IF l_debug_level > 0 THEN
629: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.FULFILL_SERVICE_LINES WITH STATUS: '|| X_RETURN_STATUS , 1 ) ;
630: END IF;
631:
632: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
633: THEN
649: l_return_status VARCHAR2(1);
650: l_line_rec OE_Order_Pub.Line_Rec_Type; -- added for 2897505
651:
652: --
653: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
654: --
655: BEGIN
656:
657: IF l_debug_level > 0 THEN
654: --
655: BEGIN
656:
657: IF l_debug_level > 0 THEN
658: oe_debug_pub.add( 'ENTERING UPDATE_SERVICE_DATES: ' || TO_CHAR ( P_LINE_REC.LINE_ID ) || ' '|| TO_CHAR ( P_LINE_REC.SERVICE_START_DATE , 'YYYY/MM/DD' ) ||' , '|| TO_CHAR ( P_LINE_REC.SERVICE_END_DATE , 'YYYY/MM/DD' ) , 5 ) ;
659: END IF;
660:
661:
662: IF p_line_rec.service_start_date IS NULL OR
702:
703: END IF;
704:
705: IF l_debug_level > 0 THEN
706: oe_debug_pub.add( 'EXITING UPDATE_SERVICE_DATES:' || TO_CHAR ( P_LINE_REC.SERVICE_START_DATE , 'YYYY/MM/DD' ) ||' , '|| TO_CHAR ( P_LINE_REC.SERVICE_END_DATE , 'YYYY/MM/DD' ) , 5 ) ;
707: END IF;
708:
709: END Update_Service_Dates;
710:
749: item_type_code -- this one added for 2417601
750: from oe_order_lines
751: where line_id = l_line_rec.line_id;
752: --
753: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
754: --
755: /* Start Improved OM,IB,OKS changes */
756: l_msg_data VARCHAR2(2000) := NULL;
757: l_validation_level NUMBER;
768: l_recalc_First_periodamt char(1) := 'N'; --sol_ord_er #16014165
769: BEGIN
770:
771: IF l_debug_level > 0 THEN -- debug level changed to 0.5 for bug 13435459
772: OE_DEBUG_PUB.add('Entering Fulfill_line() procedure in OEXVFULB at ',0.5);
773: oe_debug_pub.add('Order Line ID being fulfilled '||to_char(p_line_rec.line_id),1) ;
774: END IF;
775:
776:
769: BEGIN
770:
771: IF l_debug_level > 0 THEN -- debug level changed to 0.5 for bug 13435459
772: OE_DEBUG_PUB.add('Entering Fulfill_line() procedure in OEXVFULB at ',0.5);
773: oe_debug_pub.add('Order Line ID being fulfilled '||to_char(p_line_rec.line_id),1) ;
774: END IF;
775:
776:
777: l_line_rec.service_start_date := NULL; -- initialization for 2292133
814: */
815: IF p_fulfillment_type = G_FULFILL_WITH_ACTIVITY THEN
816:
817: IF l_debug_level > 0 THEN
818: oe_debug_pub.add('Updating with shipped quantity',3) ;
819: END IF;
820: --l_update_line_tbl(1).fulfilled_quantity := p_line_rec.shipped_quantity;
821: l_fulfilled_quantity := p_line_rec.shipped_quantity;
822: l_fulfilled_quantity2 := p_line_rec.shipped_quantity2; -- 5126873
826:
827:
828: ELSE
829: IF l_debug_level > 0 THEN
830: oe_debug_pub.add('Updating with ordered quantity',3) ;
831: END IF;
832: --l_update_line_tbl(1).fulfilled_quantity := p_line_rec.ordered_quantity;
833: l_fulfilled_quantity := p_line_rec.ordered_quantity;
834: l_fulfilled_quantity2 := p_line_rec.ordered_quantity2; -- 5126873
856: l_recalc_First_periodamt := 'N';
857: If NVL(l_LINE_REC.service_bill_option_code,'FBOM') = 'FPOM'
858: AND (l_LINE_REC.SERVICE_START_DATE is NULL or l_LINE_REC.SERVICE_END_DATE is null) then
859: IF l_debug_level > 0 THEN
860: oe_debug_pub.add('OEXVFULB ..101..Bill Option= '||l_LINE_REC.service_bill_option_code,3) ;
861: oe_debug_pub.add('OEXVFULB ..101.1..StrtDate= '||l_LINE_REC.SERVICE_START_DATE
862: ||' ..endDate= '||l_LINE_REC.SERVICE_END_DATE,3) ;
863: END IF;
864: l_recalc_First_periodamt := 'Y';
857: If NVL(l_LINE_REC.service_bill_option_code,'FBOM') = 'FPOM'
858: AND (l_LINE_REC.SERVICE_START_DATE is NULL or l_LINE_REC.SERVICE_END_DATE is null) then
859: IF l_debug_level > 0 THEN
860: oe_debug_pub.add('OEXVFULB ..101..Bill Option= '||l_LINE_REC.service_bill_option_code,3) ;
861: oe_debug_pub.add('OEXVFULB ..101.1..StrtDate= '||l_LINE_REC.SERVICE_START_DATE
862: ||' ..endDate= '||l_LINE_REC.SERVICE_END_DATE,3) ;
863: END IF;
864: l_recalc_First_periodamt := 'Y';
865: end if;
868: Update_Service_Dates(l_line_rec);
869:
870: END IF;
871: IF l_debug_level > 0 THEN
872: oe_debug_pub.add('After calling update_service_lines() ',5) ;
873: END IF;
874: IF ( (OE_GLOBALS.G_ASO_INSTALLED = 'Y') OR
875: (NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'),'N') = 'Y') ) THEN
876: IF l_debug_level > 0 THEN
873: END IF;
874: IF ( (OE_GLOBALS.G_ASO_INSTALLED = 'Y') OR
875: (NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'),'N') = 'Y') ) THEN
876: IF l_debug_level > 0 THEN
877: oe_debug_pub.add('mode is record',3) ;
878: END IF;
879: OE_Line_Util.Lock_Rows
880: (p_line_id => p_line_rec.line_id
881: ,x_line_tbl => l_old_line_tbl
881: ,x_line_tbl => l_old_line_tbl
882: ,x_return_status => l_return_status
883: );
884: IF l_debug_level > 0 THEN
885: oe_debug_pub.add('Returned from lock row : '||l_return_status,3) ;
886: END IF;
887: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
888: IF l_debug_level > 0 THEN
889: oe_debug_pub.add('STS error while locking row '||sqlerrm,1);
885: oe_debug_pub.add('Returned from lock row : '||l_return_status,3) ;
886: END IF;
887: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
888: IF l_debug_level > 0 THEN
889: oe_debug_pub.add('STS error while locking row '||sqlerrm,1);
890: END IF;
891: RAISE CAN_NOT_LOCK_MODEL;
892: --RAISE FND_API.G_EXC_ERROR;
893: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
891: RAISE CAN_NOT_LOCK_MODEL;
892: --RAISE FND_API.G_EXC_ERROR;
893: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
894: IF l_debug_level > 0 THEN
895: oe_debug_pub.add('EXC error while locking row '||sqlerrm,1);
896: END IF;
897: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
898: END IF;
899:
924: --check code release level first. Notification framework is at Pack H level
925: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
926: -- calling notification framework to get index position
927: IF l_debug_level > 0 THEN
928: oe_debug_pub.add('Line_id is:' || p_line_rec.line_id ) ;
929: END IF;
930: OE_ORDER_UTIL.Update_Global_Picture(p_Upd_New_Rec_If_Exists =>False,
931: p_header_id=>p_line_rec.header_id,
932: p_line_rec =>l_line_tbl(1),
935: x_return_status => l_return_status);
936:
937:
938: IF l_debug_level > 0 THEN
939: oe_debug_pub.add('Update_global return status from oe_line_fullfill.fullfill_line is: '|| l_return_status ) ;
940: oe_debug_pub.add('Global picture index is: '||l_notify_index,1) ;
941: END IF;
942: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
943: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
936:
937:
938: IF l_debug_level > 0 THEN
939: oe_debug_pub.add('Update_global return status from oe_line_fullfill.fullfill_line is: '|| l_return_status ) ;
940: oe_debug_pub.add('Global picture index is: '||l_notify_index,1) ;
941: END IF;
942: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
943: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
944: END IF;
946: --update Global Picture directly
947: OE_ORDER_UTIL.g_old_line_tbl(l_notify_index):= l_old_line_tbl(1);
948: OE_ORDER_UTIL.g_line_tbl(l_notify_index):= OE_ORDER_UTIL.g_old_line_tbl(l_notify_index);
949:
950: oe_debug_pub.add('line_rec line id is :'|| l_line_rec.line_id);
951: oe_debug_pub.add('line_rec header id is :'|| l_line_rec.header_id);
952:
953: /* commented as unnecessary for 3803251
954: OE_ORDER_UTIL.g_line_tbl(l_notify_index).line_id := l_line_rec.line_id;
947: OE_ORDER_UTIL.g_old_line_tbl(l_notify_index):= l_old_line_tbl(1);
948: OE_ORDER_UTIL.g_line_tbl(l_notify_index):= OE_ORDER_UTIL.g_old_line_tbl(l_notify_index);
949:
950: oe_debug_pub.add('line_rec line id is :'|| l_line_rec.line_id);
951: oe_debug_pub.add('line_rec header id is :'|| l_line_rec.header_id);
952:
953: /* commented as unnecessary for 3803251
954: OE_ORDER_UTIL.g_line_tbl(l_notify_index).line_id := l_line_rec.line_id;
955: OE_ORDER_UTIL.g_line_tbl(l_notify_index).header_id := l_line_rec.header_id;
971: /* changes for AFD */
972: OE_ORDER_UTIL.g_line_tbl(l_notify_index).actual_fulfillment_date := l_actual_fulfillment_date;
973:
974: IF l_debug_level > 0 THEN
975: oe_debug_pub.add('global line fulfilled_flag is: '||OE_ORDER_UTIL.G_LINE_TBL(L_NOTIFY_INDEX).FULFILLED_FLAG,1) ;
976: END IF;
977: END IF;
978: END IF; /*code_release_level*/
979: -- notification framework end
998: If l_recalc_First_periodamt = 'Y'
999: AND l_line_rec.SERVICE_START_DATE is not NULL and l_line_rec.SERVICE_END_DATE is not null
1000: THEN
1001: IF l_debug_level > 0 THEN
1002: oe_Debug_pub.add(' ..OEXVFULB 102.. Calculating first period amount fpr lineid= '
1003: ||P_LINE_REC.line_id);
1004: End If;
1005: oe_delayed_requests_util.First_period_bill_amt (
1006: p_header_id => '',
1023: l_Service_Order_Lines(1).Order_Line_ID := p_line_rec.line_id;
1024: l_Service_Order_Lines(1).Order_Number := l_order_number;
1025: l_Service_Order_Lines(1).Ref_Order_Line_ID := p_line_rec.service_reference_line_id;
1026: IF l_debug_level > 0 THEN
1027: oe_debug_pub.add('Calling OKS_OMINT_PUB.Interface_Service_Order_Lines:p_line_rec.line_id:'
1028: || p_line_rec.line_id,3) ;
1029: END IF;
1030:
1031: OKS_OMINT_PUB.Interface_Service_Order_Lines(
1033: x_Return_Status => l_return_status,
1034: x_Error_Message => l_msg_data);
1035:
1036: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1037: oe_debug_pub.add('FND_API.G_RET_STS_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1038: oe_debug_pub.add('l_msg_data' || l_msg_data);
1039: RAISE FND_API.G_EXC_ERROR;
1040: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1041: oe_debug_pub.add('FND_API.G_RET_STS_UNEXP_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1034: x_Error_Message => l_msg_data);
1035:
1036: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1037: oe_debug_pub.add('FND_API.G_RET_STS_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1038: oe_debug_pub.add('l_msg_data' || l_msg_data);
1039: RAISE FND_API.G_EXC_ERROR;
1040: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1041: oe_debug_pub.add('FND_API.G_RET_STS_UNEXP_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1042: oe_debug_pub.add('l_msg_data' || l_msg_data);
1037: oe_debug_pub.add('FND_API.G_RET_STS_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1038: oe_debug_pub.add('l_msg_data' || l_msg_data);
1039: RAISE FND_API.G_EXC_ERROR;
1040: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1041: oe_debug_pub.add('FND_API.G_RET_STS_UNEXP_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1042: oe_debug_pub.add('l_msg_data' || l_msg_data);
1043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1044: END IF;
1045: /* End Improved OM,IB,OKS changes */
1038: oe_debug_pub.add('l_msg_data' || l_msg_data);
1039: RAISE FND_API.G_EXC_ERROR;
1040: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1041: oe_debug_pub.add('FND_API.G_RET_STS_UNEXP_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1042: oe_debug_pub.add('l_msg_data' || l_msg_data);
1043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1044: END IF;
1045: /* End Improved OM,IB,OKS changes */
1046: END IF;
1048: -- Added 09-Dec-2002
1049: -- BLANKETS: Update returned/fulfilled qty
1050: IF OE_CODE_CONTROL.Code_Release_Level >= '110509' THEN
1051: if l_debug_level > 0 then
1052: oe_debug_pub.add('OEXVFULB 1, blanket number :'||
1053: p_line_rec.blanket_number);
1054: end if;
1055: IF p_line_rec.blanket_number IS NOT NULL THEN
1056: Update_Blanket_Qty(p_line_rec,l_fulfilled_quantity);
1056: Update_Blanket_Qty(p_line_rec,l_fulfilled_quantity);
1057: END IF;
1058: END IF;
1059:
1060: oe_debug_pub.add(' FND_PROFILE.VALUE(ONT_AUTO_INTERFACE_LINES_TO_IB) = ' || FND_PROFILE.VALUE('ONT_AUTO_INTERFACE_LINES_TO_IB'), 5);
1061:
1062: IF p_line_rec.item_type_code <> OE_GLOBALS.G_ITEM_SERVICE
1063: AND NVL(p_line_rec.subscription_enable_flag,'N') <> 'Y' -- sol_ord_er #16014165 (for Model)
1064: AND ( NVL(FND_PROFILE.VALUE('ONT_AUTO_INTERFACE_LINES_TO_IB'),'Y') = 'Y') -- bug 9245134
1062: IF p_line_rec.item_type_code <> OE_GLOBALS.G_ITEM_SERVICE
1063: AND NVL(p_line_rec.subscription_enable_flag,'N') <> 'Y' -- sol_ord_er #16014165 (for Model)
1064: AND ( NVL(FND_PROFILE.VALUE('ONT_AUTO_INTERFACE_LINES_TO_IB'),'Y') = 'Y') -- bug 9245134
1065: THEN
1066: oe_debug_pub.add('Before Call to csi_ont_txn_pub.posttransaction',1);
1067: csi_ont_txn_pub.posttransaction
1068: (
1069: p_order_line_id => p_line_rec.line_id,
1070: x_return_status => l_return_status,
1070: x_return_status => l_return_status,
1071: x_message_id => l_message_id,
1072: x_error_code => l_error_code,
1073: x_error_message => l_error_message);
1074: oe_debug_pub.add('After Call to csi_ont_txn_pub.posttransaction',1);
1075:
1076: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1077: IF l_debug_level > 0 THEN
1078: oe_debug_pub.add('raising unexpected error in csi_ont_txn_pub.posttransaction'||sqlerrm,1);
1074: oe_debug_pub.add('After Call to csi_ont_txn_pub.posttransaction',1);
1075:
1076: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1077: IF l_debug_level > 0 THEN
1078: oe_debug_pub.add('raising unexpected error in csi_ont_txn_pub.posttransaction'||sqlerrm,1);
1079: END IF;
1080: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1081: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1082: IF l_debug_level > 0 THEN
1079: END IF;
1080: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1081: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1082: IF l_debug_level > 0 THEN
1083: oe_debug_pub.add('raising exc error in csi_ont_txn_pub.posttransaction'||sqlerrm,1);
1084: END IF;
1085: RAISE FND_API.G_EXC_ERROR;
1086: END IF;
1087: END IF;
1087: END IF;
1088:
1089: ELSE
1090: IF l_debug_level > 0 THEN
1091: oe_debug_pub.add('Number of lines to update: '||p_line_tbl.count,3) ;
1092: END IF;
1093:
1094: IF p_line_tbl.count = 0 THEN -- this IF added for 2231594
1095: IF l_debug_level > 0 THEN
1092: END IF;
1093:
1094: IF p_line_tbl.count = 0 THEN -- this IF added for 2231594
1095: IF l_debug_level > 0 THEN
1096: oe_debug_pub.add('Exiting fulfill_line() - no lines to update',3) ;
1097: END IF;
1098: x_return_status := FND_API.G_RET_STS_SUCCESS;
1099: RETURN;
1100: END IF;
1123: ,x_line_tbl => l_old_line_tbl
1124: ,x_return_status => l_return_status
1125: );
1126: IF l_debug_level > 0 THEN
1127: oe_debug_pub.add('Returned from lock row : '||l_return_status,3) ;
1128: END IF;
1129:
1130: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1131: IF l_debug_level > 0 THEN
1128: END IF;
1129:
1130: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1131: IF l_debug_level > 0 THEN
1132: oe_debug_pub.add('STS error while locking row '||sqlerrm,1);
1133: END IF;
1134: RAISE CAN_NOT_LOCK_MODEL;
1135: --RAISE FND_API.G_EXC_ERROR;
1136: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1134: RAISE CAN_NOT_LOCK_MODEL;
1135: --RAISE FND_API.G_EXC_ERROR;
1136: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1137: IF l_debug_level > 0 THEN
1138: oe_debug_pub.add('EXC error while locking row '||sqlerrm,1);
1139: END IF;
1140: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1141: END IF;
1142:
1166: l_recalc_First_periodamt := 'N';
1167: If NVL(l_line_rec.service_bill_option_code,'FBOM') = 'FPOM'
1168: AND (l_line_rec.SERVICE_START_DATE is NULL or l_line_rec.SERVICE_END_DATE is null) then
1169: IF l_debug_level > 0 THEN
1170: oe_debug_pub.add('OEXVFULB ..103..Bill Option= '||l_LINE_REC.service_bill_option_code,3) ;
1171: oe_debug_pub.add('OEXVFULB ..103.1..StrtDate= '||l_LINE_REC.SERVICE_START_DATE
1172: ||' ..endDate= '||l_LINE_REC.SERVICE_END_DATE,3) ;
1173: END IF;
1174: l_recalc_First_periodamt := 'Y';
1167: If NVL(l_line_rec.service_bill_option_code,'FBOM') = 'FPOM'
1168: AND (l_line_rec.SERVICE_START_DATE is NULL or l_line_rec.SERVICE_END_DATE is null) then
1169: IF l_debug_level > 0 THEN
1170: oe_debug_pub.add('OEXVFULB ..103..Bill Option= '||l_LINE_REC.service_bill_option_code,3) ;
1171: oe_debug_pub.add('OEXVFULB ..103.1..StrtDate= '||l_LINE_REC.SERVICE_START_DATE
1172: ||' ..endDate= '||l_LINE_REC.SERVICE_END_DATE,3) ;
1173: END IF;
1174: l_recalc_First_periodamt := 'Y';
1175: end if;
1177: Update_Service_Dates(l_line_rec);
1178: l_line_tbl(l_index).service_start_date := l_line_rec.service_start_date;
1179: l_line_tbl(l_index).service_end_date := l_line_rec.service_end_date;
1180: IF l_debug_level > 0 THEN
1181: oe_debug_pub.add( 'AFTER CALLING UPDATE_SERVICE_DATES - ASO INSTALLED' , 5 ) ;
1182: END IF;
1183: END IF;
1184:
1185: -- added for notification framework
1192: p_line_id => p_line_tbl(l_index).line_id,
1193: x_index => l_notify_index,
1194: x_return_status => l_return_status);
1195: IF l_debug_level > 0 THEN
1196: oe_debug_pub.add('Update_global return status from fulfill_line with line table is: '||l_return_status);
1197: END IF;
1198: IF l_debug_level > 0 THEN
1199: oe_debug_pub.add( 'GLOBAL PICTURE INDEX IS: ' || L_NOTIFY_INDEX , 1 ) ;
1200: END IF;
1195: IF l_debug_level > 0 THEN
1196: oe_debug_pub.add('Update_global return status from fulfill_line with line table is: '||l_return_status);
1197: END IF;
1198: IF l_debug_level > 0 THEN
1199: oe_debug_pub.add( 'GLOBAL PICTURE INDEX IS: ' || L_NOTIFY_INDEX , 1 ) ;
1200: END IF;
1201: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1202: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1203: END IF;
1225: -- Changes for AFD
1226: OE_ORDER_UTIL.g_line_tbl(l_notify_index).actual_fulfillment_date := l_actual_fulfillment_date;
1227: -- end Changes for AFD
1228: IF l_debug_level > 0 THEN
1229: oe_debug_pub.add('Line fulfilled_flag is: '||OE_ORDER_UTIL.G_LINE_TBL(L_NOTIFY_INDEX).FULFILLED_FLAG,1);
1230: END IF;
1231: END IF;
1232: END IF; --code_release_level
1233: -- notification framework end
1249: OR l_line_rec.subscription_enable_flag = 'Y' --sol_ord_er #16014165
1250: THEN -- 2417601
1251: Update_Service_Dates(l_line_rec);
1252: IF l_debug_level > 0 THEN
1253: oe_debug_pub.add('After calling update_service_dates - aso not installed',5) ;
1254: END IF;
1255: END IF;
1256: END IF; /* IF OE_GLOBALS.G_ASO_INSTALLED */
1257:
1255: END IF;
1256: END IF; /* IF OE_GLOBALS.G_ASO_INSTALLED */
1257:
1258: IF l_debug_level > 0 THEN
1259: oe_debug_pub.add('Updating line : '||p_line_tbl(l_index).line_id,3) ;
1260: END IF;
1261:
1262: -- IF l_line_rec.item_type_code = OE_GLOBALS.G_ITEM_SERVICE THEN --3471423
1263: IF p_line_tbl(l_index).item_type_code = OE_GLOBALS.G_ITEM_SERVICE --3471423
1282: If l_recalc_First_periodamt = 'Y'
1283: AND l_line_rec.SERVICE_START_DATE is not NULL and l_line_rec.SERVICE_END_DATE is not null
1284: THEN
1285: IF l_debug_level > 0 THEN
1286: oe_Debug_pub.add(' ..104.. Calculating first period amount from OEXVFULB ');
1287: End If;
1288: oe_delayed_requests_util.First_period_bill_amt (
1289: p_header_id => '',
1290: p_line_id => p_line_tbl(l_index).line_id,
1304: l_Service_Order_Lines(1).Order_Line_ID := p_line_tbl(l_index).line_id;
1305: l_Service_Order_Lines(1).Order_Number := l_order_number;
1306: l_Service_Order_Lines(1).Ref_Order_Line_ID := p_line_tbl(l_index).service_reference_line_id;
1307: IF l_debug_level > 0 THEN
1308: oe_debug_pub.add('Calling OKS_OMINT_PUB.Interface_Service_Order_Lines:LineID:'
1309: || p_line_tbl(l_index).line_id,3) ;
1310: END IF;
1311:
1312: OKS_OMINT_PUB.Interface_Service_Order_Lines(
1314: x_Return_Status => l_return_status,
1315: x_Error_Message => l_msg_data);
1316:
1317: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1318: oe_debug_pub.add('FND_API.G_RET_STS_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1319: oe_debug_pub.add('l_msg_data' || l_msg_data);
1320: RAISE FND_API.G_EXC_ERROR;
1321: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1322: oe_debug_pub.add('FND_API.G_RET_STS_UNEXP_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1315: x_Error_Message => l_msg_data);
1316:
1317: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1318: oe_debug_pub.add('FND_API.G_RET_STS_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1319: oe_debug_pub.add('l_msg_data' || l_msg_data);
1320: RAISE FND_API.G_EXC_ERROR;
1321: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1322: oe_debug_pub.add('FND_API.G_RET_STS_UNEXP_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1323: oe_debug_pub.add('l_msg_data' || l_msg_data);
1318: oe_debug_pub.add('FND_API.G_RET_STS_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1319: oe_debug_pub.add('l_msg_data' || l_msg_data);
1320: RAISE FND_API.G_EXC_ERROR;
1321: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1322: oe_debug_pub.add('FND_API.G_RET_STS_UNEXP_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1323: oe_debug_pub.add('l_msg_data' || l_msg_data);
1324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1325: END IF;
1326: /* End Improved OM,IB,OKS changes */
1319: oe_debug_pub.add('l_msg_data' || l_msg_data);
1320: RAISE FND_API.G_EXC_ERROR;
1321: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1322: oe_debug_pub.add('FND_API.G_RET_STS_UNEXP_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1323: oe_debug_pub.add('l_msg_data' || l_msg_data);
1324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1325: END IF;
1326: /* End Improved OM,IB,OKS changes */
1327:
1348: IF OE_CODE_CONTROL.Code_Release_Level >= '110509' THEN
1349: -- Bug 3061559
1350: -- Use p_line_tbl, not l_line_tbl.
1351: if l_debug_level > 0 then
1352: oe_debug_pub.add('OEXVFULB 2, blanket number :'|| p_line_tbl(l_index).blanket_number);
1353: oe_debug_pub.add('Line ID : '|| p_line_tbl(l_index).line_id);
1354: oe_debug_pub.add('Fulfilled Qty : '|| p_line_tbl(l_index).fulfilled_quantity);
1355: oe_debug_pub.add('Fulfilled Qty2 : '|| p_line_tbl(l_index).fulfilled_quantity2); -- 5126873
1356: oe_debug_pub.add('Item Type : '|| p_line_tbl(l_index).item_type_code);
1349: -- Bug 3061559
1350: -- Use p_line_tbl, not l_line_tbl.
1351: if l_debug_level > 0 then
1352: oe_debug_pub.add('OEXVFULB 2, blanket number :'|| p_line_tbl(l_index).blanket_number);
1353: oe_debug_pub.add('Line ID : '|| p_line_tbl(l_index).line_id);
1354: oe_debug_pub.add('Fulfilled Qty : '|| p_line_tbl(l_index).fulfilled_quantity);
1355: oe_debug_pub.add('Fulfilled Qty2 : '|| p_line_tbl(l_index).fulfilled_quantity2); -- 5126873
1356: oe_debug_pub.add('Item Type : '|| p_line_tbl(l_index).item_type_code);
1357: end if;
1350: -- Use p_line_tbl, not l_line_tbl.
1351: if l_debug_level > 0 then
1352: oe_debug_pub.add('OEXVFULB 2, blanket number :'|| p_line_tbl(l_index).blanket_number);
1353: oe_debug_pub.add('Line ID : '|| p_line_tbl(l_index).line_id);
1354: oe_debug_pub.add('Fulfilled Qty : '|| p_line_tbl(l_index).fulfilled_quantity);
1355: oe_debug_pub.add('Fulfilled Qty2 : '|| p_line_tbl(l_index).fulfilled_quantity2); -- 5126873
1356: oe_debug_pub.add('Item Type : '|| p_line_tbl(l_index).item_type_code);
1357: end if;
1358: IF p_line_tbl(l_index).blanket_number IS NOT NULL THEN
1351: if l_debug_level > 0 then
1352: oe_debug_pub.add('OEXVFULB 2, blanket number :'|| p_line_tbl(l_index).blanket_number);
1353: oe_debug_pub.add('Line ID : '|| p_line_tbl(l_index).line_id);
1354: oe_debug_pub.add('Fulfilled Qty : '|| p_line_tbl(l_index).fulfilled_quantity);
1355: oe_debug_pub.add('Fulfilled Qty2 : '|| p_line_tbl(l_index).fulfilled_quantity2); -- 5126873
1356: oe_debug_pub.add('Item Type : '|| p_line_tbl(l_index).item_type_code);
1357: end if;
1358: IF p_line_tbl(l_index).blanket_number IS NOT NULL THEN
1359: Update_Blanket_Qty(p_line_tbl(l_index)
1352: oe_debug_pub.add('OEXVFULB 2, blanket number :'|| p_line_tbl(l_index).blanket_number);
1353: oe_debug_pub.add('Line ID : '|| p_line_tbl(l_index).line_id);
1354: oe_debug_pub.add('Fulfilled Qty : '|| p_line_tbl(l_index).fulfilled_quantity);
1355: oe_debug_pub.add('Fulfilled Qty2 : '|| p_line_tbl(l_index).fulfilled_quantity2); -- 5126873
1356: oe_debug_pub.add('Item Type : '|| p_line_tbl(l_index).item_type_code);
1357: end if;
1358: IF p_line_tbl(l_index).blanket_number IS NOT NULL THEN
1359: Update_Blanket_Qty(p_line_tbl(l_index)
1360: ,p_line_tbl(l_index).fulfilled_quantity);
1360: ,p_line_tbl(l_index).fulfilled_quantity);
1361: END IF;
1362: END IF;
1363:
1364: oe_debug_pub.add(' FND_PROFILE.VALUE(ONT_AUTO_INTERFACE_LINES_TO_IB) =>> ' || FND_PROFILE.VALUE('ONT_AUTO_INTERFACE_LINES_TO_IB'), 5);
1365:
1366: IF p_line_tbl(l_index).item_type_code <> OE_GLOBALS.G_ITEM_SERVICE
1367: AND NVL(p_line_tbl(l_index).subscription_enable_flag,'N') <> 'Y' -- sol_ord_er #16014165 (for Model)
1368: AND ( NVL(FND_PROFILE.VALUE('ONT_AUTO_INTERFACE_LINES_TO_IB'),'Y') = 'Y') -- bug 9245134
1366: IF p_line_tbl(l_index).item_type_code <> OE_GLOBALS.G_ITEM_SERVICE
1367: AND NVL(p_line_tbl(l_index).subscription_enable_flag,'N') <> 'Y' -- sol_ord_er #16014165 (for Model)
1368: AND ( NVL(FND_PROFILE.VALUE('ONT_AUTO_INTERFACE_LINES_TO_IB'),'Y') = 'Y') -- bug 9245134
1369: THEN
1370: oe_debug_pub.add('Before Call to csi_ont_txn_pub.posttransaction',1);
1371: csi_ont_txn_pub.posttransaction(
1372: p_order_line_id => p_line_tbl(l_index).line_id,
1373: x_return_status => x_return_status,
1374: x_message_id => l_message_id,
1373: x_return_status => x_return_status,
1374: x_message_id => l_message_id,
1375: x_error_code => l_error_code,
1376: x_error_message => l_error_message);
1377: oe_debug_pub.add('After Call to csi_ont_txn_pub.posttransaction',1);
1378:
1379: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1380: IF l_debug_level > 0 THEN
1381: oe_debug_pub.add('raising unexpected error in csi_ont_txn_pub.posttransaction '||sqlerrm,1);
1377: oe_debug_pub.add('After Call to csi_ont_txn_pub.posttransaction',1);
1378:
1379: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1380: IF l_debug_level > 0 THEN
1381: oe_debug_pub.add('raising unexpected error in csi_ont_txn_pub.posttransaction '||sqlerrm,1);
1382: END IF;
1383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1384: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1385: IF l_debug_level > 0 THEN
1382: END IF;
1383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1384: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1385: IF l_debug_level > 0 THEN
1386: oe_debug_pub.add('raising exc error in csi_ont_txn_pub.posttransaction '||sqlerrm,1);
1387: END IF;
1388: RAISE FND_API.G_EXC_ERROR;
1389: END IF;
1390: END IF;
1393:
1394: END IF;
1395:
1396: /* Commented for performance changes.
1397: oe_debug_pub.ADD('Calling OE_Order_PVT.Process_Order to update the fulfilled quantity and fulfilled flag',2);
1398:
1399: OE_GLOBALS.G_RECURSION_MODE := 'Y';
1400: OE_Shipping_Integration_PVT.Call_Process_Order
1401: (
1405: );
1406:
1407: OE_GLOBALS.G_RECURSION_MODE := 'N';
1408:
1409: oe_debug_pub.add('Return Status from Process Order : '||l_return_status,2);
1410:
1411: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1413: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1419:
1420: -- #2769599
1421: IF (nvl(oe_order_cache.g_header_rec.header_id,-999)<>p_line_rec.header_id) THEN
1422: IF l_debug_level > 0 THEN
1423: OE_DEBUG_PUB.add('Loading header rec from cache : ',5);
1424: END IF;
1425: OE_Order_Cache.Load_Order_Header(p_line_rec.header_id);
1426: END IF;
1427: IF l_debug_level > 0 THEN
1424: END IF;
1425: OE_Order_Cache.Load_Order_Header(p_line_rec.header_id);
1426: END IF;
1427: IF l_debug_level > 0 THEN
1428: OE_DEBUG_PUB.add('Cached header id: '||to_char(oe_order_cache.g_header_rec.header_id), 5);
1429: END IF;
1430: OE_Order_PVT.Process_Requests_And_Notify
1431: ( p_process_requests => FALSE
1432: , p_notify => TRUE
1436: );
1437:
1438:
1439: IF l_debug_level > 0 THEN
1440: oe_debug_pub.add( 'RETURNED FROM PROCESS REQUEST AND NOTIFY : '||L_RETURN_STATUS , 3 ) ;
1441: END IF;
1442: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1443: RAISE FND_API.G_EXC_ERROR;
1444: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1461: ,p_old_line_tbl => l_aso_line_tbl
1462: );
1463:
1464: IF l_debug_level > 0 THEN
1465: oe_debug_pub.add('returned from process request and notify : '||l_return_status,3) ;
1466: END IF;
1467:
1468: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1469: RAISE FND_API.G_EXC_ERROR;
1475: END IF; /* ASO and DBI check for Pack H and higher */
1476:
1477: END IF; --code_release_level
1478: IF l_debug_level > 0 THEN -- debug level changed to 0.5 for bug 13435459
1479: oe_debug_pub.add('Exiting fulfill_line() procedure in OEXVFULB at ',0.5) ;
1480: END IF;
1481: x_return_status := FND_API.G_RET_STS_SUCCESS;
1482:
1483: EXCEPTION
1482:
1483: EXCEPTION
1484: WHEN CAN_NOT_LOCK_MODEL THEN
1485: IF l_debug_level > 0 THEN
1486: oe_debug_pub.add( 'OEXVFULB.pls:Fulfill_line API- MODEL LOCKING EXCEPTION' , 1 ) ;
1487: END IF;
1488: x_return_status := 'D';
1489:
1490: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1488: x_return_status := 'D';
1489:
1490: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1491: IF l_debug_level > 0 THEN
1492: oe_debug_pub.add('Unexp Error'||sqlerrm,1);
1493: END IF;
1494: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1495: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1496: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Fulfill_Line');
1497: END IF;
1498: G_DEBUG_MSG := G_DEBUG_MSG || 'E6,';
1499: WHEN FND_API.G_EXC_ERROR THEN
1500: IF l_debug_level > 0 THEN
1501: oe_debug_pub.add('EXC Error '||sqlerrm,1);
1502: END IF;
1503: x_return_status := FND_API.G_RET_STS_ERROR;
1504: WHEN OTHERS THEN
1505: IF l_debug_level > 0 THEN
1502: END IF;
1503: x_return_status := FND_API.G_RET_STS_ERROR;
1504: WHEN OTHERS THEN
1505: IF l_debug_level > 0 THEN
1506: oe_debug_pub.add('Error '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
1507: END IF;
1508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1509: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1510: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Fulfill_Line');
1533: l_errname VARCHAR2(30);
1534: l_errmsg VARCHAR2(2000);
1535: l_errstack VARCHAR2(2000);
1536: --
1537: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1538: --
1539: BEGIN
1540: x_attribute_value := wf_engine.GetActivityAttrText(p_item_type,p_item_key,p_activity_id,p_fulfill_attr_name);
1541:
1543:
1544: EXCEPTION
1545: WHEN OTHERS THEN
1546: IF l_debug_level > 0 THEN
1547: oe_debug_pub.add( 'WORK FLOW ERROR HAS OCCURED ' , 1 ) ;
1548: END IF;
1549: WF_CORE.Get_Error(l_errname, l_errmsg, l_errstack);
1550: IF l_errname = 'WFENG_ACTIVITY_ATTR' THEN
1551: IF l_debug_level > 0 THEN
1548: END IF;
1549: WF_CORE.Get_Error(l_errname, l_errmsg, l_errstack);
1550: IF l_errname = 'WFENG_ACTIVITY_ATTR' THEN
1551: IF l_debug_level > 0 THEN
1552: oe_debug_pub.add( 'ERROR MESSAGE '||L_ERRMSG , 1 ) ;
1553: END IF;
1554: x_attribute_value := 'NONE';
1555: x_return_status := FND_API.G_RET_STS_SUCCESS;
1556: ELSE
1580: )
1581: IS
1582: l_upgraded_flag VARCHAR2(1);
1583: --
1584: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1585: --
1586: BEGIN
1587:
1588: IF l_debug_level > 0 THEN
1585: --
1586: BEGIN
1587:
1588: IF l_debug_level > 0 THEN
1589: oe_debug_pub.add( 'ENTERING OE_LINE_FULLFILL.GET_ACTIVITY_RESULT '|| P_ITEM_TYPE||'/'||P_ITEM_KEY||'/'||P_ACTIVITY_NAME , 1 ) ;
1590: END IF;
1591:
1592: SELECT wias.ACTIVITY_STATUS, wias.ACTIVITY_RESULT_CODE, wias.PROCESS_ACTIVITY
1593: INTO x_activity_status_code, x_activity_result, x_activity_id
1599:
1600: x_return_status := FND_API.G_RET_STS_SUCCESS;
1601:
1602: IF l_debug_level > 0 THEN
1603: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.GET_ACTIVITY_RESULT '||X_ACTIVITY_RESULT||'/'||X_RETURN_STATUS , 1 ) ;
1604: END IF;
1605:
1606: EXCEPTION
1607: WHEN NO_DATA_FOUND THEN
1631: 'Get_Activity_Result'
1632: );
1633: END IF;
1634: IF l_debug_level > 0 THEN
1635: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
1636: END IF;
1637: G_DEBUG_MSG := G_DEBUG_MSG || '35,';
1638:
1639: END Get_Activity_Result;
1680: l_set_id_mod NUMBER;
1681: --End 7827727
1682:
1683: --
1684: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1685: --
1686: BEGIN
1687:
1688: IF l_debug_level > 0 THEN
1685: --
1686: BEGIN
1687:
1688: IF l_debug_level > 0 THEN
1689: oe_debug_pub.add( 'ENTERING OE_LINE_FULLFILL.GET_FULFILLMENT_SET '|| TO_CHAR ( P_LINE_ID ) , 1 ) ;
1690: END IF;
1691:
1692:
1693:
1695: LOOP
1696:
1697: l_set_id := l_set.set_id;
1698: IF l_debug_level > 0 THEN
1699: oe_debug_pub.add( 'SET ID : '||TO_CHAR ( L_SET_ID ) , 3 ) ;
1700: END IF;
1701:
1702: l_set_id_mod := MOD(l_set_id,G_BINARY_LIMIT); --7827727
1703: IF g_set_tbl.EXISTS(l_set_id_mod) THEN --7827727
1706: END IF;
1707: --g_set_tbl(l_set_id) := l_set_id;
1708: g_set_tbl(l_set_id_mod) := l_set_id; --7827727
1709: IF l_debug_level > 0 THEN
1710: oe_debug_pub.add( 'SET ID ADDED : '||TO_CHAR ( L_SET_ID ) , 3 ) ;
1711: END IF;
1712:
1713: FOR l_line_set in c_line_set
1714: LOOP
1718:
1719: IF l_temp_tbl(l_temp_index).line_id = l_line_set.line_id AND
1720: l_temp_tbl(l_temp_index).set_id = l_set_id THEN
1721: IF l_debug_level > 0 THEN
1722: oe_debug_pub.add( 'LINE EXISTS FOR COMBINATION' , 3 ) ;
1723: END IF;
1724: l_line_set_exists := FND_API.G_TRUE;
1725: GOTO END_LINE_SET;
1726:
1735: l_temp_index := l_temp_tbl.count + 1;
1736: l_temp_tbl(l_temp_index).line_id := l_line_set.line_id;
1737: l_temp_tbl(l_temp_index).set_id := l_line_set.set_id;
1738: IF l_debug_level > 0 THEN
1739: oe_debug_pub.add('adding line to set table '||l_temp_tbl(l_temp_index).line_id||'/'||l_temp_tbl(l_temp_index).set_id,5);
1740: END IF;
1741: END IF;
1742:
1743: IF l_line_set.line_id <> p_line_id THEN
1750: );
1751:
1752:
1753: IF l_debug_level > 0 THEN
1754: oe_debug_pub.add( 'NUMBER OF ROWS RETURNED : '||L_SET_TBL.COUNT , 3 ) ;
1755: END IF;
1756:
1757: IF l_set_tbl.COUNT > 0 THEN
1758: l_loop_index := 0;
1765:
1766: IF l_temp_tbl(l_temp_index).line_id = l_set_tbl(l_loop_index).line_id AND
1767: l_temp_tbl(l_temp_index).set_id = l_set_tbl(l_loop_index).set_id THEN
1768: IF l_debug_level > 0 THEN
1769: oe_debug_pub.add( 'LINE EXISTS FOR COMBINATION' , 3 ) ;
1770: END IF;
1771: l_line_set_exists := FND_API.G_TRUE;
1772: GOTO END_LINE_SET1;
1773:
1781: l_temp_index := l_temp_tbl.count + 1;
1782: l_temp_tbl(l_temp_index).line_id := l_set_tbl(l_loop_index).line_id;
1783: l_temp_tbl(l_temp_index).set_id := l_set_tbl(l_loop_index).set_id;
1784: IF l_debug_level > 0 THEN
1785: oe_debug_pub.add('line does not exist, adding now '||l_temp_tbl(l_temp_index).line_id||'/'||l_temp_tbl(l_temp_index).set_id,3);
1786: END IF;
1787: END IF;
1788: END LOOP;
1789: END IF;
1797:
1798: l_set_index := l_temp_tbl.FIRST;
1799: l_loop_index := 0;
1800: IF l_debug_level>0 THEN
1801: oe_debug_pub.add('SET table picture',5);
1802: END IF;
1803:
1804: WHILE l_set_index IS NOT NULL
1805: LOOP
1808: x_set_tbl(l_loop_index).line_id := l_temp_tbl(l_set_index).line_id;
1809: x_set_tbl(l_loop_index).set_id := l_temp_tbl(l_set_index).set_id;
1810: l_set_index := l_temp_tbl.NEXT(l_set_index);
1811: IF l_debug_level > 0 THEN
1812: oe_debug_pub.add( 'LINE/SET : '||TO_CHAR ( X_SET_TBL ( L_LOOP_INDEX ) .LINE_ID ) ||'/'||TO_CHAR ( X_SET_TBL ( L_LOOP_INDEX ) .SET_ID ) , 3 ) ;
1813: END IF;
1814:
1815: END LOOP;
1816:
1815: END LOOP;
1816:
1817: x_return_status := FND_API.G_RET_STS_SUCCESS;
1818: IF l_debug_level > 0 THEN
1819: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.GET_FULFILLMENT_SET ' , 3 ) ;
1820: END IF;
1821:
1822: EXCEPTION
1823: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1821:
1822: EXCEPTION
1823: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1824: IF l_debug_level > 0 THEN
1825: oe_debug_pub.add('Unexp Error '||sqlerrm,1);
1826: END IF;
1827: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1828:
1829: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1836: G_DEBUG_MSG := G_DEBUG_MSG || 'E10,';
1837:
1838: WHEN FND_API.G_EXC_ERROR THEN
1839: IF l_debug_level > 0 THEN
1840: oe_debug_pub.add('Exc Error '||sqlerrm,1);
1841: END IF;
1842: x_return_status := FND_API.G_RET_STS_ERROR;
1843: WHEN OTHERS THEN
1844: IF l_debug_level > 0 THEN
1841: END IF;
1842: x_return_status := FND_API.G_RET_STS_ERROR;
1843: WHEN OTHERS THEN
1844: IF l_debug_level > 0 THEN
1845: oe_debug_pub.add('error '||SUBSTR(SQLERRM,1,2000),1);
1846: END IF;
1847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1848: IF l_debug_level > 0 THEN
1849: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
1845: oe_debug_pub.add('error '||SUBSTR(SQLERRM,1,2000),1);
1846: END IF;
1847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1848: IF l_debug_level > 0 THEN
1849: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
1850: END IF;
1851:
1852: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1853: THEN
1890: l_activity_id NUMBER;
1891: l_return_status VARCHAR2(1);
1892: l_line_category_code VARCHAR2(30);
1893: --
1894: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1895: l_upgraded_flag VARCHAR2(1); -- bug 3589692
1896: BEGIN
1897:
1898: IF l_debug_level > 0 THEN
1895: l_upgraded_flag VARCHAR2(1); -- bug 3589692
1896: BEGIN
1897:
1898: IF l_debug_level > 0 THEN
1899: oe_debug_pub.add( 'ENTERING OE_LINE_FULLFILL.GET_FULFILLMENT_ACTIVITY '|| P_ITEM_KEY , 1 ) ;
1900: END IF;
1901:
1902:
1903: select line_category_code into l_line_category_code
1909: l_result_attr_name := l_in_result_attr_name;
1910: END IF;
1911:
1912: IF l_debug_level > 0 THEN
1913: oe_debug_pub.add( 'CALLING GET ATTRIBUTE - ACTIVITY ' , 3 ) ;
1914: END IF;
1915: Get_Activity_Attribute
1916: (
1917: p_item_type => l_item_type,
1934: l_fulfill_activity_name := 'NO_ACTIVITY';
1935: END IF;
1936:
1937: IF l_debug_level > 0 THEN
1938: oe_debug_pub.add( 'FULFILLMENT ACTIVITY NAME : '|| L_FULFILL_ACTIVITY_NAME , 3 ) ;
1939: END IF;
1940: IF l_fulfill_activity_name <> 'NO_ACTIVITY' THEN
1941:
1942: IF l_debug_level > 0 THEN
1939: END IF;
1940: IF l_fulfill_activity_name <> 'NO_ACTIVITY' THEN
1941:
1942: IF l_debug_level > 0 THEN
1943: oe_debug_pub.add( 'CALLING GET ATTRIBUTE - RESULT ' , 3 ) ;
1944: END IF;
1945:
1946:
1947: Get_Activity_Attribute
1966: ELSE
1967:
1968:
1969: IF l_debug_level > 0 THEN
1970: oe_debug_pub.add( 'REQUIRED COMPLETION RESULT : '|| L_COMPLETION_RESULT , 3 ) ;
1971: END IF;
1972:
1973: IF l_debug_level > 0 THEN
1974: oe_debug_pub.add( 'CALLING GET_ACTIVITY_STATUS ' , 3 ) ;
1970: oe_debug_pub.add( 'REQUIRED COMPLETION RESULT : '|| L_COMPLETION_RESULT , 3 ) ;
1971: END IF;
1972:
1973: IF l_debug_level > 0 THEN
1974: oe_debug_pub.add( 'CALLING GET_ACTIVITY_STATUS ' , 3 ) ;
1975: END IF;
1976:
1977: Get_Activity_Result
1978: (
2035: x_return_status := FND_API.G_RET_STS_ERROR;
2036: WHEN OTHERS THEN
2037: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2038: IF l_debug_level > 0 THEN
2039: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
2040: END IF;
2041:
2042: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2043: THEN
2078: l_return_status VARCHAR2(1);
2079: l_fulfill_status VARCHAR2(1) := FND_API.G_TRUE;
2080:
2081: --
2082: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2083: --
2084: BEGIN
2085:
2086: IF l_debug_level > 0 THEN
2083: --
2084: BEGIN
2085:
2086: IF l_debug_level > 0 THEN
2087: oe_debug_pub.add( 'ENTERING OE_LINE_FULLFILL.CHECK_PTO_KIT_FULFILLMENT '|| TO_CHAR ( P_TOP_MODEL_LINE_ID ) , 1 ) ;
2088: END IF;
2089:
2090:
2091: l_top_model_line_id := p_top_model_line_id;
2095:
2096: l_item_key := to_char(l_top_lines.line_id);
2097:
2098: IF l_debug_level > 0 THEN
2099: oe_debug_pub.add( 'CALLING GET ACTIVITY RESULT FOR ITEM : '||L_ITEM_KEY||'/'||L_FULFILL_ACTIVITY , 3 ) ;
2100: END IF;
2101:
2102: Get_Activity_Result
2103: (
2110: , x_activity_id => l_activity_id
2111: );
2112:
2113: IF l_debug_level > 0 THEN
2114: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS||'/'||L_ACTIVITY_STATUS , 3 ) ;
2115: END IF;
2116:
2117: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2119: ELSIF l_return_status = FND_API.G_RET_STS_ERROR OR
2120: l_activity_status <> 'NOTIFIED' THEN
2121: l_fulfill_status := FND_API.G_FALSE;
2122: IF l_debug_level > 0 THEN
2123: oe_debug_pub.add( 'LINE IS NOT FULFILLED : '||TO_CHAR ( L_TOP_LINES.LINE_ID ) , 3 ) ;
2124: END IF;
2125: GOTO END_CHECK_LOOP;
2126: END IF;
2127:
2133: x_fulfill_status := l_fulfill_status;
2134: x_return_status := FND_API.G_RET_STS_SUCCESS;
2135:
2136: IF l_debug_level > 0 THEN
2137: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.CHECK_PTO_KIT_FULFILLMENT '||L_FULFILL_STATUS||'/'||X_RETURN_STATUS , 1 ) ;
2138: END IF;
2139:
2140: EXCEPTION
2141:
2156: G_DEBUG_MSG := G_DEBUG_MSG || 'E14-2,';
2157: WHEN OTHERS THEN
2158: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2159: IF l_debug_level > 0 THEN
2160: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
2161: END IF;
2162:
2163: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2164: THEN
2184: l_index NUMBER;
2185: --Changes for AFD
2186: l_ordered_date DATE;
2187: --
2188: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2189: --
2190: -- Bug 14192627
2191: l_message_id NUMBER;
2192: l_error_code NUMBER;
2204: AND OPEN_FLAG = 'Y';
2205: BEGIN
2206:
2207: IF l_debug_level > 0 THEN
2208: oe_debug_pub.add('Entering oe_line_fullfill.fulfill_pto_kit() '||to_char(p_top_model_line_id),1) ;
2209: END IF;
2210:
2211: l_top_model_line_id := p_top_model_line_id;
2212: FOR l_top_lines IN c_fulfill_lines LOOP
2211: l_top_model_line_id := p_top_model_line_id;
2212: FOR l_top_lines IN c_fulfill_lines LOOP
2213: IF nvl(l_top_lines.fulfilled_flag,'N') = 'N' THEN
2214: IF l_debug_level > 0 THEN
2215: oe_debug_pub.add('line is not fulfilled '||l_top_lines.line_id,3) ;
2216: END IF;
2217: OE_Line_Util.Lock_Rows
2218: (p_line_id => l_top_lines.line_id
2219: ,x_line_tbl => l_old_line_tbl
2254: IF l_old_line_tbl(1).item_type_code <> OE_GLOBALS.G_ITEM_SERVICE
2255: AND NVL(l_old_line_tbl(1).subscription_enable_flag,'N') <> 'Y' -- sol_ord_er #16014165
2256: AND ( NVL(FND_PROFILE.VALUE('ONT_AUTO_INTERFACE_LINES_TO_IB'),'Y') = 'Y')
2257: THEN
2258: oe_debug_pub.add('Before Call to csi_ont_txn_pub.posttransaction',1);
2259: csi_ont_txn_pub.posttransaction
2260: (
2261: p_order_line_id => l_line_tbl(1).line_id,
2262: x_return_status => l_return_status,
2262: x_return_status => l_return_status,
2263: x_message_id => l_message_id,
2264: x_error_code => l_error_code,
2265: x_error_message => l_error_message);
2266: oe_debug_pub.add('After Call to csi_ont_txn_pub.posttransaction',1);
2267:
2268: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2269: IF l_debug_level > 0 THEN
2270: oe_debug_pub.add('raising unexpected error in csi_ont_txn_pub.posttransaction'||sqlerrm,1);
2266: oe_debug_pub.add('After Call to csi_ont_txn_pub.posttransaction',1);
2267:
2268: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2269: IF l_debug_level > 0 THEN
2270: oe_debug_pub.add('raising unexpected error in csi_ont_txn_pub.posttransaction'||sqlerrm,1);
2271: END IF;
2272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2273: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2274: IF l_debug_level > 0 THEN
2271: END IF;
2272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2273: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2274: IF l_debug_level > 0 THEN
2275: oe_debug_pub.add('raising exc error in csi_ont_txn_pub.posttransaction'||sqlerrm,1);
2276: END IF;
2277: RAISE FND_API.G_EXC_ERROR;
2278: END IF;
2279: END IF;
2291: p_line_id =>l_line_tbl(1).line_id ,
2292: x_index => l_index,
2293: x_return_status => l_return_status);
2294: IF l_debug_level > 0 THEN
2295: oe_debug_pub.add('update_global return status for line ID '||L_LINE_TBL(1).LINE_ID||'IS:'||l_return_status,1) ;
2296: oe_debug_pub.add('update_global index in fulfill_pto_kit for line_id '||l_line_tbl(1).LINE_ID ||' is: '||l_index,1);
2297: END IF;
2298: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2299: RAISE FND_API.G_EXC_ERROR;
2292: x_index => l_index,
2293: x_return_status => l_return_status);
2294: IF l_debug_level > 0 THEN
2295: oe_debug_pub.add('update_global return status for line ID '||L_LINE_TBL(1).LINE_ID||'IS:'||l_return_status,1) ;
2296: oe_debug_pub.add('update_global index in fulfill_pto_kit for line_id '||l_line_tbl(1).LINE_ID ||' is: '||l_index,1);
2297: END IF;
2298: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2299: RAISE FND_API.G_EXC_ERROR;
2300: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2313: -- Changes for AFD
2314: OE_ORDER_UTIL.g_line_tbl(l_index).actual_fulfillment_date := l_line_tbl(1).actual_fulfillment_date;
2315: -- end Changes for AFD
2316: IF l_debug_level > 0 THEN
2317: oe_debug_pub.add('global line fulfilled_flag is: '||OE_ORDER_UTIL.G_LINE_TBL(l_index).fulfilled_flag,1) ;
2318: END IF;
2319: END IF;
2320:
2321:
2340:
2341: -- #2769599
2342: IF (nvl(oe_order_cache.g_header_rec.header_id,-999)<>l_top_lines.header_id) THEN
2343: IF l_debug_level > 0 THEN
2344: OE_DEBUG_PUB.add('Loading header rec from cache : ',5);
2345: END IF;
2346: OE_Order_Cache.Load_Order_Header(l_top_lines.header_id);
2347: END IF;
2348: IF l_debug_level > 0 THEN
2345: END IF;
2346: OE_Order_Cache.Load_Order_Header(l_top_lines.header_id);
2347: END IF;
2348: IF l_debug_level > 0 THEN
2349: OE_DEBUG_PUB.add('Cached header id: '||to_char(oe_order_cache.g_header_rec.header_id), 5);
2350: END IF;
2351: OE_Order_PVT.Process_Requests_And_Notify
2352: ( p_process_requests => FALSE
2353: , p_notify => TRUE
2372: x_return_status => l_return_status
2373: );
2374:
2375: IF l_debug_level > 0 THEN
2376: oe_debug_pub.add('Return status from flow status '||l_return_status,3) ;
2377: END IF;
2378: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2380: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2380: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2381: RAISE FND_API.G_EXC_ERROR;
2382: END IF;
2383: IF l_debug_level > 0 THEN
2384: oe_debug_pub.add('Fulfill associated service lines' , 3 ) ;
2385: END IF;
2386:
2387: Fulfill_Service_Lines
2388: (
2391: x_return_status => l_return_status
2392: );
2393:
2394: IF l_debug_level > 0 THEN
2395: oe_debug_pub.add('Return status from fulfill service lines '||l_return_status , 3 ) ;
2396: END IF;
2397:
2398: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2400: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2401: RAISE FND_API.G_EXC_ERROR;
2402: END IF;
2403: IF l_debug_level > 0 THEN
2404: oe_debug_pub.add('Calling wf_engine.completeactivityinternalname '||to_char(l_top_lines.line_id),3) ;
2405: END IF;
2406: BEGIN
2407: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_top_lines.line_id), 'FULFILL_LINE', '#NULL',TRUE ); --15870313
2408: EXCEPTION
2406: BEGIN
2407: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_top_lines.line_id), 'FULFILL_LINE', '#NULL',TRUE ); --15870313
2408: EXCEPTION
2409: WHEN OTHERS THEN
2410: oe_debug_pub.add('Workflow complete activity failed. Raising');
2411: RAISE ;
2412: END ;
2413: IF l_debug_level > 0 THEN
2414: oe_debug_pub.add('returned from wf_engine.completeactivityinternalname '||to_char ( l_top_lines.line_id ) , 3 ) ;
2410: oe_debug_pub.add('Workflow complete activity failed. Raising');
2411: RAISE ;
2412: END ;
2413: IF l_debug_level > 0 THEN
2414: oe_debug_pub.add('returned from wf_engine.completeactivityinternalname '||to_char ( l_top_lines.line_id ) , 3 ) ;
2415: END IF;
2416:
2417: END LOOP;
2418:
2418:
2419: x_return_status := FND_API.G_RET_STS_SUCCESS;
2420:
2421: IF l_debug_level > 0 THEN
2422: oe_debug_pub.add('Exiting oe_line_fullfill.fulfill_pto_kit '||x_return_status,3) ;
2423: END IF;
2424:
2425: EXCEPTION
2426:
2425: EXCEPTION
2426:
2427: WHEN CAN_NOT_LOCK_MODEL THEN
2428: IF l_debug_level > 0 THEN
2429: oe_debug_pub.add( 'OEXVSHPB.pls:Fulfill_PTO_KIT-MODEL LOCKING EXCEPTION', 1 ) ;
2430: END IF;
2431: x_return_status := 'D' ;
2432:
2433: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2441: G_DEBUG_MSG := G_DEBUG_MSG || 'E16,';
2442: WHEN OTHERS THEN
2443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2444: IF l_debug_level > 0 THEN
2445: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
2446: END IF;
2447: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2448: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'Fulfill_PTO_KIT');
2449: END IF;
2490: l_fulfill_activity VARCHAR2(30) := 'FULFILL_LINE';
2491: l_count NUMBER;
2492: l_item_type_code VARCHAR2(30);
2493: l_ato_line_id NUMBER;
2494: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2495: -- 4640517
2496: x_msg_count NUMBER;
2497: x_msg_data VARCHAR2(2000);
2498: l_hold_result_out VARCHAR2(30):= 'TRUE';
2517: --
2518: BEGIN
2519:
2520: IF l_debug_level > 0 THEN
2521: oe_debug_pub.add('enter Process_Pto_Kit() for line '||to_char(p_line_id),1);
2522: oe_debug_pub.add('fulfillment activity - '||p_fulfillment_activity,1);
2523: oe_debug_pub.add('process all - '||p_process_all,1);
2524: END IF;
2525:
2518: BEGIN
2519:
2520: IF l_debug_level > 0 THEN
2521: oe_debug_pub.add('enter Process_Pto_Kit() for line '||to_char(p_line_id),1);
2522: oe_debug_pub.add('fulfillment activity - '||p_fulfillment_activity,1);
2523: oe_debug_pub.add('process all - '||p_process_all,1);
2524: END IF;
2525:
2526: IF p_line_id = p_top_model_line_id THEN
2519:
2520: IF l_debug_level > 0 THEN
2521: oe_debug_pub.add('enter Process_Pto_Kit() for line '||to_char(p_line_id),1);
2522: oe_debug_pub.add('fulfillment activity - '||p_fulfillment_activity,1);
2523: oe_debug_pub.add('process all - '||p_process_all,1);
2524: END IF;
2525:
2526: IF p_line_id = p_top_model_line_id THEN
2527:
2525:
2526: IF p_line_id = p_top_model_line_id THEN
2527:
2528: IF l_debug_level > 0 THEN
2529: oe_debug_pub.add('model line is at fulfillment, top model is '||p_top_model_line_id,1);
2530: END IF;
2531:
2532: -- bug 3974488 changes starts
2533: IF l_debug_level > 0 THEN
2530: END IF;
2531:
2532: -- bug 3974488 changes starts
2533: IF l_debug_level > 0 THEN
2534: oe_debug_pub.add('Profile value OM: Allow Model Fulfillment = '||NVL(FND_PROFILE.VALUE('ONT_ALLOW_MODEL_FULFILL_WITHOUT_CONFIG'),'N'),1);
2535: END IF;
2536:
2537: IF NVL(FND_PROFILE.VALUE('ONT_ALLOW_MODEL_FULFILL_WITHOUT_CONFIG'),'N') = 'N' THEN
2538:
2549: FROM oe_order_lines
2550: WHERE line_id = p_line_id;
2551:
2552: IF l_debug_level > 0 THEN
2553: oe_debug_pub.add('No child lines yet for the model' , 1 ) ;
2554: END IF;
2555:
2556:
2557: IF p_fulfillment_activity = 'NO_ACTIVITY' THEN
2558:
2559: IF l_item_type_code = 'MODEL' THEN
2560:
2561: IF l_debug_level > 0 THEN
2562: oe_debug_pub.add( 'CAN NOT FULFILL MODEL YET!!' , 1 ) ;
2563: END IF;
2564:
2565: l_fulfilled_flag := FND_API.G_FALSE;
2566: GOTO END_PTO_KIT_LOOP;
2580: FOR l_pto_kit_lines IN pto_kit_lines
2581: LOOP
2582:
2583: IF l_debug_level > 0 THEN
2584: oe_debug_pub.add('line ID - '||to_char(l_pto_kit_lines.line_id),5);
2585: oe_debug_pub.add('item type/shippable - '||l_pto_kit_lines.item_type_code||'/'||l_pto_kit_lines.shippable_flag,5);
2586: END IF;
2587:
2588:
2581: LOOP
2582:
2583: IF l_debug_level > 0 THEN
2584: oe_debug_pub.add('line ID - '||to_char(l_pto_kit_lines.line_id),5);
2585: oe_debug_pub.add('item type/shippable - '||l_pto_kit_lines.item_type_code||'/'||l_pto_kit_lines.shippable_flag,5);
2586: END IF;
2587:
2588:
2589: IF l_pto_kit_lines.line_id <> p_line_id OR
2590: p_process_all = FND_API.G_TRUE THEN
2591: IF l_pto_kit_lines.fulfilled_flag = 'Y' THEN
2592: l_fulfilled_flag := FND_API.G_TRUE;
2593: IF l_debug_level > 0 THEN
2594: oe_debug_pub.add('line '||l_pto_kit_lines.line_id||' is already fulfilled ',5);
2595: END IF;
2596: ELSE
2597:
2598: l_item_key := to_char(l_pto_kit_lines.line_id);
2597:
2598: l_item_key := to_char(l_pto_kit_lines.line_id);
2599:
2600: IF l_debug_level > 0 THEN
2601: oe_debug_pub.add('call Get_Activity_Result() for item - '||l_item_key||'/'||l_fulfill_activity,5);
2602: END IF;
2603:
2604: Get_Activity_Result
2605: (
2612: , x_activity_id => l_activity_id
2613: );
2614:
2615: IF l_debug_level > 0 THEN
2616: oe_debug_pub.add('return status - '||l_return_status||'/'||l_activity_status,5);
2617: END IF;
2618:
2619: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2622: l_activity_status <> 'NOTIFIED' THEN
2623: l_fulfilled_flag := FND_API.G_FALSE;
2624: x_fulfillment_status := FND_API.G_FALSE;
2625: IF l_debug_level > 0 THEN
2626: oe_debug_pub.add('line '||l_pto_kit_lines.line_id||' is not fulfilled ',5);
2627: END IF;
2628: GOTO END_PTO_KIT_LOOP;
2629: END IF;
2630: -- 4640517, models with autoselected components are entered after the line is booked
2638: FROM oe_order_lines
2639: WHERE line_id = p_line_id;
2640:
2641: IF l_Debug_level > 0 THEN
2642: oe_Debug_pub.add('item type '||l_item_type_code||','||l_ato_line_id||','||l_fulfilled_flag||','||p_line_id||','||p_top_model_line_id,1);
2643: END IF;
2644: IF l_pto_kit_lines.line_id = l_ato_line_id THEN
2645: IF l_debug_level > 0 THEN
2646: oe_debug_pub.add('Check if Model in configuration validation hold (hold ID 3) ' , 1 ) ;
2642: oe_Debug_pub.add('item type '||l_item_type_code||','||l_ato_line_id||','||l_fulfilled_flag||','||p_line_id||','||p_top_model_line_id,1);
2643: END IF;
2644: IF l_pto_kit_lines.line_id = l_ato_line_id THEN
2645: IF l_debug_level > 0 THEN
2646: oe_debug_pub.add('Check if Model in configuration validation hold (hold ID 3) ' , 1 ) ;
2647: END IF;
2648:
2649: OE_HOLDS_PUB.CHECK_HOLDS
2650: ( p_api_version => 1.0,
2654: x_return_status => l_return_status,
2655: x_msg_count => x_msg_count,
2656: x_msg_data => x_msg_data);
2657:
2658: oe_debug_pub.add('after model check '||l_hold_result_out,1);
2659:
2660: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2661: IF l_hold_result_out = FND_API.G_TRUE THEN
2662: IF l_debug_level > 0 THEN
2659:
2660: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2661: IF l_hold_result_out = FND_API.G_TRUE THEN
2662: IF l_debug_level > 0 THEN
2663: oe_debug_pub.add('Model on Hold - CAN NOT FULFILL MODEL YET!!' , 1 ) ;
2664: END IF;
2665: l_fulfilled_flag := FND_API.G_FALSE;
2666: GOTO END_PTO_KIT_LOOP;
2667: END IF;
2675: will can be considered as fulfilled */
2676:
2677: l_fulfilled_flag := FND_API.G_TRUE;
2678: IF l_debug_level > 0 THEN
2679: oe_debug_pub.add( 'LINE IS FULFILLED : '||TO_CHAR ( L_PTO_KIT_LINES.LINE_ID ) , 3 ) ;
2680: END IF;
2681: END IF;
2682: END IF;
2683:
2688:
2689: x_fulfillment_status := l_fulfilled_flag;
2690: x_return_status := FND_API.G_RET_STS_SUCCESS;
2691: IF l_debug_level > 0 THEN
2692: oe_debug_pub.add('line is part of fulfillment set',1);
2693: END IF;
2694: RETURN;
2695: END IF;
2696:
2699: -- Prepare the table to update the fulfilled quantity and fulfilled
2700: -- flag for derived lines.
2701:
2702: IF l_debug_level > 0 THEN
2703: oe_debug_pub.add('now all the related lines are fulfilled',1);
2704: oe_debug_pub.add('call Query_Options() '||to_char(sysdate,'DD-MM-YYYY HH24:MI:SS'),5);
2705: END IF;
2706:
2707: OE_Config_Util.Query_Options(p_top_model_line_id => p_top_model_line_id,
2700: -- flag for derived lines.
2701:
2702: IF l_debug_level > 0 THEN
2703: oe_debug_pub.add('now all the related lines are fulfilled',1);
2704: oe_debug_pub.add('call Query_Options() '||to_char(sysdate,'DD-MM-YYYY HH24:MI:SS'),5);
2705: END IF;
2706:
2707: OE_Config_Util.Query_Options(p_top_model_line_id => p_top_model_line_id,
2708: x_line_tbl => l_line_tbl);
2706:
2707: OE_Config_Util.Query_Options(p_top_model_line_id => p_top_model_line_id,
2708: x_line_tbl => l_line_tbl);
2709: IF l_debug_level > 0 THEN
2710: oe_debug_pub.add('after Query_Options() '||to_char(sysdate,'DD-MM-YYYY HH24:MI:SS'),5);
2711: END IF;
2712:
2713:
2714: FOR l_line_index IN 1 .. l_line_tbl.count
2714: FOR l_line_index IN 1 .. l_line_tbl.count
2715: LOOP
2716:
2717: IF l_debug_level > 0 THEN
2718: oe_debug_pub.add('index/line_id/fulfilled :'||l_line_index||'/'||l_line_tbl(l_line_index).line_id||'/'||l_line_tbl(l_line_index).fulfilled_flag,5);
2719: END IF;
2720: IF (l_line_tbl(l_line_index).line_id <> p_line_id OR
2721: p_process_all = FND_API.G_TRUE) AND
2722: nvl(l_line_tbl(l_line_index).fulfilled_flag,'N') <> 'Y' THEN
2750: -- sol_ord_er #16014165 end
2751:
2752: l_fulfill_tbl(l_fulfill_index).operation := OE_GLOBALS.G_OPR_UPDATE;
2753: IF l_debug_level > 0 THEN
2754: oe_debug_pub.add('index - '||l_fulfill_index,5);
2755: oe_debug_pub.add('fulfilled flag - '||l_fulfill_tbl(l_fulfill_index).fulfilled_flag,5);
2756: oe_debug_pub.add('quantity - '||l_fulfill_tbl(l_fulfill_index).fulfilled_quantity,5);
2757: END IF;
2758: END IF;
2751:
2752: l_fulfill_tbl(l_fulfill_index).operation := OE_GLOBALS.G_OPR_UPDATE;
2753: IF l_debug_level > 0 THEN
2754: oe_debug_pub.add('index - '||l_fulfill_index,5);
2755: oe_debug_pub.add('fulfilled flag - '||l_fulfill_tbl(l_fulfill_index).fulfilled_flag,5);
2756: oe_debug_pub.add('quantity - '||l_fulfill_tbl(l_fulfill_index).fulfilled_quantity,5);
2757: END IF;
2758: END IF;
2759:
2752: l_fulfill_tbl(l_fulfill_index).operation := OE_GLOBALS.G_OPR_UPDATE;
2753: IF l_debug_level > 0 THEN
2754: oe_debug_pub.add('index - '||l_fulfill_index,5);
2755: oe_debug_pub.add('fulfilled flag - '||l_fulfill_tbl(l_fulfill_index).fulfilled_flag,5);
2756: oe_debug_pub.add('quantity - '||l_fulfill_tbl(l_fulfill_index).fulfilled_quantity,5);
2757: END IF;
2758: END IF;
2759:
2760: /* Get the service lines if there are any associated with the
2806: End If;
2807: -- sol_ord_er #16014165 end
2808: l_fulfill_tbl(l_fulfill_index).operation := OE_GLOBALS.G_OPR_UPDATE;
2809: IF l_debug_level > 0 THEN
2810: oe_debug_pub.add('index - '||l_fulfill_index,5);
2811: oe_debug_pub.add('fulfilled flag - '||l_fulfill_tbl(l_fulfill_index).fulfilled_flag,5);
2812: oe_debug_pub.add('fulfilled quantity - '||l_fulfill_tbl(l_fulfill_index).fulfilled_quantity,5);
2813: END IF;
2814:
2807: -- sol_ord_er #16014165 end
2808: l_fulfill_tbl(l_fulfill_index).operation := OE_GLOBALS.G_OPR_UPDATE;
2809: IF l_debug_level > 0 THEN
2810: oe_debug_pub.add('index - '||l_fulfill_index,5);
2811: oe_debug_pub.add('fulfilled flag - '||l_fulfill_tbl(l_fulfill_index).fulfilled_flag,5);
2812: oe_debug_pub.add('fulfilled quantity - '||l_fulfill_tbl(l_fulfill_index).fulfilled_quantity,5);
2813: END IF;
2814:
2815:
2808: l_fulfill_tbl(l_fulfill_index).operation := OE_GLOBALS.G_OPR_UPDATE;
2809: IF l_debug_level > 0 THEN
2810: oe_debug_pub.add('index - '||l_fulfill_index,5);
2811: oe_debug_pub.add('fulfilled flag - '||l_fulfill_tbl(l_fulfill_index).fulfilled_flag,5);
2812: oe_debug_pub.add('fulfilled quantity - '||l_fulfill_tbl(l_fulfill_index).fulfilled_quantity,5);
2813: END IF;
2814:
2815:
2816: /* Add to the fulfill service table for completing
2820: l_fulfill_service_tbl(l_fulfill_service_index).line_id := l_service_tbl(l_service_index).line_id;
2821: l_fulfill_service_tbl(l_fulfill_service_index).header_id := l_service_tbl(l_service_index).header_id;
2822:
2823: IF l_debug_level > 0 THEN
2824: oe_debug_pub.add('service fulfill index - '||l_fulfill_service_index,5);
2825: oe_debug_pub.add('line id - '||l_fulfill_service_tbl(l_fulfill_service_index).line_id,5);
2826: END IF;
2827:
2828: END LOOP;
2821: l_fulfill_service_tbl(l_fulfill_service_index).header_id := l_service_tbl(l_service_index).header_id;
2822:
2823: IF l_debug_level > 0 THEN
2824: oe_debug_pub.add('service fulfill index - '||l_fulfill_service_index,5);
2825: oe_debug_pub.add('line id - '||l_fulfill_service_tbl(l_fulfill_service_index).line_id,5);
2826: END IF;
2827:
2828: END LOOP;
2829:
2833:
2834: END LOOP;
2835:
2836: IF l_debug_level > 0 THEN
2837: oe_debug_pub.add('..501..call Fulfill_Line() with full picture ',5);
2838: END IF;
2839:
2840: Fulfill_Line
2841: (
2846: x_return_status => l_return_status
2847: );
2848:
2849: IF l_debug_level > 0 THEN
2850: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL LINE : '||L_RETURN_STATUS , 3 ) ;
2851: END IF;
2852:
2853: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2865: p_process_all = FND_API.G_TRUE THEN
2866: l_line_id := l_line_tbl(l_line_index).line_id;
2867:
2868: IF l_debug_level > 0 THEN
2869: oe_debug_pub.add('update the flow status code on the lines ',5);
2870: END IF;
2871:
2872: OE_Order_WF_Util.Update_Flow_Status_Code
2873: (p_line_id => l_line_tbl(l_line_index).line_id,
2875: x_return_status => l_return_status
2876: );
2877:
2878: IF l_debug_level > 0 THEN
2879: oe_debug_pub.add('after update of flow status '||l_return_status,5);
2880: END IF;
2881:
2882: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2883: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2885: RAISE FND_API.G_EXC_ERROR;
2886: END IF;
2887:
2888: IF l_debug_level > 0 THEN
2889: oe_debug_pub.add('** complete the WF activity on this '||l_line_id,1);
2890: END IF;
2891: BEGIN
2892: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_line_id), 'FULFILL_LINE', '#NULL',TRUE ); --15870313
2893: EXCEPTION
2891: BEGIN
2892: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_line_id), 'FULFILL_LINE', '#NULL',TRUE ); --15870313
2893: EXCEPTION
2894: WHEN OTHERS THEN
2895: oe_debug_pub.add('Workflow complete activity failed. Raising');
2896: RAISE ;
2897: END ;
2898: IF l_debug_level > 0 THEN
2899: oe_debug_pub.add('after wf complete ',5);
2895: oe_debug_pub.add('Workflow complete activity failed. Raising');
2896: RAISE ;
2897: END ;
2898: IF l_debug_level > 0 THEN
2899: oe_debug_pub.add('after wf complete ',5);
2900: END IF;
2901:
2902: END IF;
2903: END LOOP;
2902: END IF;
2903: END LOOP;
2904:
2905: IF l_debug_level > 0 THEN
2906: oe_debug_pub.add('*** process the service lines now ***',1);
2907: END IF;
2908:
2909: IF l_fulfill_service_index <> 0 THEN
2910:
2913: LOOP
2914: l_line_id := l_fulfill_service_tbl(l_fulfill_service_index).line_id;
2915:
2916: IF l_debug_level > 0 THEN
2917: oe_debug_pub.add('update flow status for - '||l_line_id,5);
2918: END IF;
2919:
2920: OE_Order_WF_Util.Update_Flow_Status_Code
2921: (p_line_id => l_fulfill_service_tbl(l_fulfill_service_index).line_id,
2923: x_return_status => l_return_status
2924: );
2925:
2926: IF l_debug_level > 0 THEN
2927: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
2928: END IF;
2929:
2930: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2933: RAISE FND_API.G_EXC_ERROR;
2934: END IF;
2935:
2936: IF l_debug_level > 0 THEN
2937: oe_debug_pub.add('call complete WF for this service line - '||l_line_id,5);
2938: END IF;
2939: BEGIN
2940: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_line_id), 'FULFILL_LINE', '#NULL',TRUE ); --15870313
2941: EXCEPTION
2939: BEGIN
2940: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_line_id), 'FULFILL_LINE', '#NULL',TRUE ); --15870313
2941: EXCEPTION
2942: WHEN OTHERS THEN
2943: oe_debug_pub.add('Workflow complete activity failed. Raising');
2944: RAISE ;
2945: END ;
2946: IF l_debug_level > 0 THEN
2947: oe_debug_pub.add('after WF complete ',5);
2943: oe_debug_pub.add('Workflow complete activity failed. Raising');
2944: RAISE ;
2945: END ;
2946: IF l_debug_level > 0 THEN
2947: oe_debug_pub.add('after WF complete ',5);
2948: END IF;
2949:
2950: END LOOP;
2951:
2956: x_fulfillment_status := l_fulfilled_flag;
2957: x_return_status := FND_API.G_RET_STS_SUCCESS;
2958:
2959: IF l_debug_level > 0 THEN
2960: oe_debug_pub.add('** complete OE_Line_Fullfill.Process_PTO_Kit() ',1);
2961: END IF;
2962:
2963: EXCEPTION
2964: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2962:
2963: EXCEPTION
2964: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2965: IF l_debug_level > 0 THEN
2966: oe_debug_pub.add('*** 1. Error - '||SUBSTR(SQLERRM,1,200),1);
2967: END IF;
2968: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2969:
2970: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2972: END IF;
2973:
2974: WHEN FND_API.G_EXC_ERROR THEN
2975: IF l_debug_level > 0 THEN
2976: oe_debug_pub.add('*** 2. Error - '||SUBSTR(SQLERRM,1,200),1);
2977: END IF;
2978: x_return_status := FND_API.G_RET_STS_ERROR;
2979:
2980: WHEN OTHERS THEN
2979:
2980: WHEN OTHERS THEN
2981: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2982: IF l_debug_level > 0 THEN
2983: oe_debug_pub.add('*** 3. Error - '||SUBSTR(SQLERRM,1,200),1);
2984: END IF;
2985:
2986: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2987: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Process_PTO_KIT');
3058: FROM OE_ORDER_LINES_ALL
3059: WHERE LINE_ID = l_cursor_line_id;
3060:
3061: --
3062: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3063: --
3064: BEGIN
3065: IF l_debug_level > 0 THEN
3066: oe_debug_pub.add( 'ENTERING OE_LINE_FULLFILL.PROCESS_FULFILLMENT_SET '|| TO_CHAR ( P_LINE_ID ) , 1 ) ;
3062: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3063: --
3064: BEGIN
3065: IF l_debug_level > 0 THEN
3066: oe_debug_pub.add( 'ENTERING OE_LINE_FULLFILL.PROCESS_FULFILLMENT_SET '|| TO_CHAR ( P_LINE_ID ) , 1 ) ;
3067: END IF;
3068:
3069: /* Prepare a table of line and set id's to be processed. This new table
3070: will have indication whether it is a standard line or a configuration. */
3081:
3082: --IF NOT l_set_tbl.EXISTS(p_line_set_tbl(l_line_set_index).set_id) THEN
3083: IF NOT l_set_tbl.EXISTS(l_set_id_mod) THEN --7827727
3084: IF l_debug_level > 0 THEN
3085: oe_debug_pub.add( 'SET ID ADDED : '||TO_CHAR ( P_LINE_SET_TBL ( L_LINE_SET_INDEX ) .SET_ID ) , 3 ) ;
3086: END IF;
3087: --l_set_tbl(p_line_set_tbl(l_line_set_index).set_id) := p_line_set_tbl(l_line_set_index).set_id;
3088: l_set_tbl(l_set_id_mod) := p_line_set_tbl(l_line_set_index).set_id; --7827727
3089:
3091:
3092: IF l_line_rec.top_model_line_id IS NOT NULL AND
3093: l_line_rec.top_model_line_id <> FND_API.G_MISS_NUM THEN
3094: IF l_debug_level > 0 THEN
3095: oe_debug_pub.add( 'LINE IS PART OF A CONFIGURATION : '||TO_CHAR ( L_LINE_REC.LINE_ID ) ||'/'||L_LINE_REC.ITEM_TYPE_CODE , 3 ) ;
3096: END IF;
3097:
3098: l_process_index := l_process_index + 1;
3099: l_process_tbl(l_process_index) := p_line_set_tbl(l_line_set_index);
3102:
3103: IF l_line_rec.top_model_line_id = l_line_rec.line_id THEN
3104: l_process_tbl(l_process_index).type := 'C';
3105: IF l_debug_level > 0 THEN
3106: oe_debug_pub.add( 'LINE HAS BEEN ADDED AS CONFIGURATION LINE : '||TO_CHAR ( L_LINE_REC.LINE_ID ) ||'/'||L_LINE_REC.ITEM_TYPE_CODE , 3 ) ;
3107: END IF;
3108: ELSE
3109: --bug12869907
3110: IF (NVL(L_LINE_REC.model_remnant_flag ,'N') = 'N' ) Then
3109: --bug12869907
3110: IF (NVL(L_LINE_REC.model_remnant_flag ,'N') = 'N' ) Then
3111: l_process_tbl(l_process_index).type := 'O';
3112: IF l_debug_level > 0 THEN
3113: oe_debug_pub.add( 'LINE HAS BEEN ADDED AS OPTION LINE : '||TO_CHAR ( L_LINE_REC.LINE_ID ) ||'/'||L_LINE_REC.ITEM_TYPE_CODE , 3 ) ;
3114: END IF;
3115: ELSE
3116: l_process_tbl(l_process_index).type := 'R';
3117: IF l_debug_level > 0 THEN
3114: END IF;
3115: ELSE
3116: l_process_tbl(l_process_index).type := 'R';
3117: IF l_debug_level > 0 THEN
3118: oe_debug_pub.add( 'LINE HAS BEEN ADDED AS REMNANT OPTION LINE : '||TO_CHAR ( L_LINE_REC.LINE_ID ) ||'/'||L_LINE_REC.ITEM_TYPE_CODE , 3 ) ;
3119: END IF;
3120: END IF; --end bug12869907
3121:
3122: END IF;
3126: l_process_tbl(l_process_index).type := 'S';
3127: l_process_tbl(l_process_index).fulfilled_flag := l_line_rec.fulfilled_flag;
3128: l_process_tbl(l_process_index).ordered_quantity := l_line_rec.ordered_quantity;
3129: IF l_debug_level > 0 THEN
3130: oe_debug_pub.add( 'LINE HAS BEEN ADDED AS STANDARD LINE : '||TO_CHAR ( L_LINE_REC.LINE_ID ) ||'/'||L_LINE_REC.ITEM_TYPE_CODE , 3 ) ;
3131: END IF;
3132:
3133: END IF;
3134: END LOOP;
3137:
3138: FOR l_line_set_index IN l_process_tbl.FIRST .. l_process_tbl.LAST
3139: LOOP
3140: IF l_debug_level > 0 THEN
3141: oe_debug_pub.add( 'LINE ID/SET ID : '|| TO_CHAR ( L_PROCESS_TBL ( L_LINE_SET_INDEX ) .LINE_ID ) ||'/'||TO_CHAR ( L_PROCESS_TBL ( L_LINE_SET_INDEX ) .SET_ID ) , 3 ) ;
3142: END IF;
3143:
3144: IF l_debug_level > 0 THEN
3145: oe_debug_pub.add( 'LINE TYPE : '||L_PROCESS_TBL ( L_LINE_SET_INDEX ) .TYPE , 3 ) ;
3141: oe_debug_pub.add( 'LINE ID/SET ID : '|| TO_CHAR ( L_PROCESS_TBL ( L_LINE_SET_INDEX ) .LINE_ID ) ||'/'||TO_CHAR ( L_PROCESS_TBL ( L_LINE_SET_INDEX ) .SET_ID ) , 3 ) ;
3142: END IF;
3143:
3144: IF l_debug_level > 0 THEN
3145: oe_debug_pub.add( 'LINE TYPE : '||L_PROCESS_TBL ( L_LINE_SET_INDEX ) .TYPE , 3 ) ;
3146: END IF;
3147: IF l_process_tbl(l_line_set_index).type = 'C' THEN
3148:
3149: IF l_debug_level > 0 THEN
3146: END IF;
3147: IF l_process_tbl(l_line_set_index).type = 'C' THEN
3148:
3149: IF l_debug_level > 0 THEN
3150: oe_debug_pub.add( 'IT IS A CONFIGURATION TOP MODEL ' , 3 ) ;
3151: END IF;
3152:
3153: -- l_line_rec := OE_Line_Util.Query_Row(p_line_id);
3154:
3159:
3160:
3161: IF l_top_model_line_id = nvl(l_process_tbl(l_line_set_index).line_id,0) THEN
3162: IF l_debug_level > 0 THEN
3163: oe_debug_pub.add( 'DO NOT PROCESS ALL THE LINES ' , 3 ) ;
3164: END IF;
3165: l_process_all := FND_API.G_FALSE;
3166: ELSE
3167: IF l_debug_level > 0 THEN
3164: END IF;
3165: l_process_all := FND_API.G_FALSE;
3166: ELSE
3167: IF l_debug_level > 0 THEN
3168: oe_debug_pub.add( 'PROCESS ALL THE LINES ' , 3 ) ;
3169: END IF;
3170: l_process_all := FND_API.G_TRUE;
3171: END IF;
3172:
3171: END IF;
3172:
3173:
3174: IF l_debug_level > 0 THEN
3175: oe_debug_pub.add( 'CALLING PROCESS PTO FULFILLMENT ' , 3 ) ;
3176: END IF;
3177: Process_PTO_KIT
3178: (
3179: p_line_id => p_line_id,
3185: x_fulfillment_status => l_fulfillment_status
3186: );
3187:
3188: IF l_debug_level > 0 THEN
3189: oe_debug_pub.add( 'RETURN STATUS/FULFILLMENT STATUS : '||L_RETURN_STATUS||'/'||L_FULFILLMENT_STATUS , 3 ) ;
3190: END IF;
3191:
3192: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3198:
3199: IF l_fulfillment_status = FND_API.G_TRUE THEN
3200: l_fulfilled_flag := FND_API.G_TRUE;
3201: IF l_debug_level > 0 THEN
3202: oe_debug_pub.add( 'CONFIGURATION IS FULFILLED : '||TO_CHAR ( L_PROCESS_TBL ( L_LINE_SET_INDEX ) .LINE_ID ) , 3 ) ;
3203: END IF;
3204: ELSE
3205: l_fulfilled_flag := FND_API.G_FALSE;
3206: x_fulfillment_status := FND_API.G_FALSE;
3204: ELSE
3205: l_fulfilled_flag := FND_API.G_FALSE;
3206: x_fulfillment_status := FND_API.G_FALSE;
3207: IF l_debug_level > 0 THEN
3208: oe_debug_pub.add( 'CONFIGURATION IS NOT FULFILLED : '||TO_CHAR ( L_PROCESS_TBL ( L_LINE_SET_INDEX ) .LINE_ID ) , 3 ) ;
3209: END IF;
3210: GOTO END_CHECK_FULFILLMENT;
3211: END IF;
3212: END IF;
3217:
3218: IF l_process_tbl(l_line_set_index).fulfilled_flag = 'Y' THEN
3219: l_fulfilled_flag := FND_API.G_TRUE;
3220: IF l_debug_level > 0 THEN
3221: oe_debug_pub.add( 'LINE IS FULFILLED : '||TO_CHAR ( L_PROCESS_TBL ( L_LINE_SET_INDEX ) .LINE_ID ) , 3 ) ;
3222: END IF;
3223: ELSE
3224:
3225: l_item_key := to_char(l_process_tbl(l_line_set_index).line_id);
3224:
3225: l_item_key := to_char(l_process_tbl(l_line_set_index).line_id);
3226:
3227: IF l_debug_level > 0 THEN
3228: oe_debug_pub.add( 'CALLING GET ACTIVITY RESULT FOR ITEM : '||L_ITEM_KEY||'/'||L_FULFILL_ACTIVITY , 3 ) ;
3229: END IF;
3230:
3231: Get_Activity_Result
3232: (
3239: , x_activity_id => l_activity_id
3240: );
3241:
3242: IF l_debug_level > 0 THEN
3243: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS||L_ACTIVITY_STATUS , 3 ) ;
3244: END IF;
3245:
3246: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3249: l_activity_status <> 'NOTIFIED' THEN
3250: l_fulfilled_flag := FND_API.G_FALSE;
3251: x_fulfillment_status := FND_API.G_FALSE;
3252: IF l_debug_level > 0 THEN
3253: oe_debug_pub.add( 'LINE IS NOT FULFILLED : '||TO_CHAR ( L_PROCESS_TBL ( L_LINE_SET_INDEX ) .LINE_ID ) , 3 ) ;
3254: END IF;
3255: GOTO END_CHECK_FULFILLMENT;
3256: END IF;
3257:
3280:
3281: FOR l_line_set_index IN 1 .. l_process_tbl.count
3282: LOOP
3283: IF l_debug_level > 0 THEN
3284: oe_debug_pub.add( 'LINE ID/SET ID : '|| TO_CHAR ( L_PROCESS_TBL ( L_LINE_SET_INDEX ) .LINE_ID ) ||'/'||TO_CHAR ( L_PROCESS_TBL ( L_LINE_SET_INDEX ) .SET_ID ) , 3 ) ;
3285: END IF;
3286:
3287: /* Get the associated service lines */
3288:
3334: -- end changes for AFD
3335:
3336: l_fulfill_tbl(l_fulfill_index).operation := OE_GLOBALS.G_OPR_UPDATE;
3337: IF l_debug_level > 0 THEN
3338: oe_debug_pub.add( 'FULFILL INDEX : '||TO_CHAR ( L_FULFILL_INDEX ) , 3 ) ;
3339: oe_debug_pub.add( 'FULFILLED FLAG : '||L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_FLAG , 3 ) ;
3340: oe_debug_pub.add( 'FULFILLED QUANTITY : '||TO_CHAR ( L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_QUANTITY ) , 3 ) ;
3341: END IF;
3342:
3335:
3336: l_fulfill_tbl(l_fulfill_index).operation := OE_GLOBALS.G_OPR_UPDATE;
3337: IF l_debug_level > 0 THEN
3338: oe_debug_pub.add( 'FULFILL INDEX : '||TO_CHAR ( L_FULFILL_INDEX ) , 3 ) ;
3339: oe_debug_pub.add( 'FULFILLED FLAG : '||L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_FLAG , 3 ) ;
3340: oe_debug_pub.add( 'FULFILLED QUANTITY : '||TO_CHAR ( L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_QUANTITY ) , 3 ) ;
3341: END IF;
3342:
3343:
3336: l_fulfill_tbl(l_fulfill_index).operation := OE_GLOBALS.G_OPR_UPDATE;
3337: IF l_debug_level > 0 THEN
3338: oe_debug_pub.add( 'FULFILL INDEX : '||TO_CHAR ( L_FULFILL_INDEX ) , 3 ) ;
3339: oe_debug_pub.add( 'FULFILLED FLAG : '||L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_FLAG , 3 ) ;
3340: oe_debug_pub.add( 'FULFILLED QUANTITY : '||TO_CHAR ( L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_QUANTITY ) , 3 ) ;
3341: END IF;
3342:
3343:
3344: --l_line_tbl(l_service_tbl(l_service_index).line_id) := l_service_tbl(l_service_index).line_id;
3343:
3344: --l_line_tbl(l_service_tbl(l_service_index).line_id) := l_service_tbl(l_service_index).line_id;
3345: l_line_tbl(l_line_id_mod) :=l_service_tbl(l_service_index).line_id;--7827727
3346: IF l_debug_level > 0 THEN
3347: oe_debug_pub.add( 'SERVICE LINE IS ADDED TO TABLE '||TO_CHAR ( L_SERVICE_TBL ( L_SERVICE_INDEX ) .LINE_ID ) , 3 ) ;
3348: END IF;
3349:
3350: END IF;
3351:
3355:
3356: << END_SERVICE_LINE >>
3357:
3358: IF l_debug_level > 0 THEN
3359: oe_debug_pub.add( 'LINE ID/SET ID AFTER SERVICE : '|| TO_CHAR ( L_PROCESS_TBL ( L_LINE_SET_INDEX ) .LINE_ID ) ||'/'||TO_CHAR ( L_PROCESS_TBL ( L_LINE_SET_INDEX ) .SET_ID ) , 3 ) ;
3360: END IF;
3361: l_line_id_mod:=MOD(l_process_tbl(l_line_set_index).line_id,G_BINARY_LIMIT);--7827727
3362: IF p_line_id <> l_process_tbl(l_line_set_index).line_id AND
3363: NOT l_line_tbl.EXISTS(l_line_id_mod) THEN --7827727
3364: --NOT l_line_tbl.EXISTS(l_process_tbl(l_line_set_index).line_id) THEN
3365: --l_line_tbl(l_process_tbl(l_line_set_index).line_id) := l_process_tbl(l_line_set_index).line_id;
3366: l_line_tbl(l_line_id_mod) :=l_process_tbl(l_line_set_index).line_id; --7827727
3367: IF l_debug_level > 0 THEN
3368: oe_debug_pub.add( 'LINE IS ADDED TO TABLE '||TO_CHAR ( L_PROCESS_TBL ( L_LINE_SET_INDEX ) .LINE_ID ) , 3 ) ;
3369: END IF;
3370:
3371: /* If the line is not fulfilled earlier add this to fulfill
3372: table for updating the fulfillment related attributes on the
3374:
3375: IF nvl(l_process_tbl(l_line_set_index).fulfilled_flag,'N') <> 'Y' THEN
3376:
3377: IF l_debug_level > 0 THEN
3378: oe_debug_pub.add( 'THE LINE IS NOT FULFILLED '||TO_CHAR ( L_PROCESS_TBL ( L_LINE_SET_INDEX ) .LINE_ID ) , 3 ) ;
3379: END IF;
3380:
3381: l_fulfill_index := l_fulfill_index + 1;
3382: l_fulfill_tbl(l_fulfill_index):= OE_Order_PUB.G_MISS_LINE_REC;
3404: CLOSE c_line;
3405: -- End bug 3061559
3406: l_fulfill_tbl(l_fulfill_index).operation := OE_GLOBALS.G_OPR_UPDATE;
3407: IF l_debug_level > 0 THEN
3408: oe_debug_pub.add( 'FULFILL INDEX : '||TO_CHAR ( L_FULFILL_INDEX ) , 3 ) ;
3409: oe_debug_pub.add( 'FULFILLED FLAG : '||L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_FLAG , 3 ) ;
3410: oe_debug_pub.add( 'FULFILLED QUANTITY : '||TO_CHAR ( L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_QUANTITY ) , 3 ) ;
3411: END IF;
3412: ELSE
3405: -- End bug 3061559
3406: l_fulfill_tbl(l_fulfill_index).operation := OE_GLOBALS.G_OPR_UPDATE;
3407: IF l_debug_level > 0 THEN
3408: oe_debug_pub.add( 'FULFILL INDEX : '||TO_CHAR ( L_FULFILL_INDEX ) , 3 ) ;
3409: oe_debug_pub.add( 'FULFILLED FLAG : '||L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_FLAG , 3 ) ;
3410: oe_debug_pub.add( 'FULFILLED QUANTITY : '||TO_CHAR ( L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_QUANTITY ) , 3 ) ;
3411: END IF;
3412: ELSE
3413:
3406: l_fulfill_tbl(l_fulfill_index).operation := OE_GLOBALS.G_OPR_UPDATE;
3407: IF l_debug_level > 0 THEN
3408: oe_debug_pub.add( 'FULFILL INDEX : '||TO_CHAR ( L_FULFILL_INDEX ) , 3 ) ;
3409: oe_debug_pub.add( 'FULFILLED FLAG : '||L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_FLAG , 3 ) ;
3410: oe_debug_pub.add( 'FULFILLED QUANTITY : '||TO_CHAR ( L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_QUANTITY ) , 3 ) ;
3411: END IF;
3412: ELSE
3413:
3414: IF l_debug_level > 0 THEN
3411: END IF;
3412: ELSE
3413:
3414: IF l_debug_level > 0 THEN
3415: oe_debug_pub.add( 'LINE IS FULFILLED ' , 3 ) ;
3416: END IF;
3417:
3418: END IF;
3419: END IF;
3421:
3422: IF l_fulfill_index <> 0 THEN
3423:
3424: IF l_debug_level > 0 THEN
3425: oe_debug_pub.add( '..502..CALLING FULFILL LINE TABLE : ' , 3 ) ;
3426: END IF;
3427:
3428:
3429: Fulfill_Line
3435: x_return_status => l_return_status
3436: );
3437:
3438: IF l_debug_level > 0 THEN
3439: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL LINE : '||L_RETURN_STATUS , 3 ) ;
3440: END IF;
3441:
3442: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3451:
3452: WHILE l_line_tbl_index IS NOT NULL
3453: LOOP
3454: IF l_debug_level > 0 THEN
3455: oe_debug_pub.add( 'CALLING FLOW STATUS API ' , 3 ) ;
3456: END IF;
3457:
3458: -- l_line_rec := OE_Line_Util.Query_Row(l_line_tbl(l_line_tbl_index));
3459:
3469: x_return_status => l_return_status
3470: );
3471:
3472: IF l_debug_level > 0 THEN
3473: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
3474: END IF;
3475:
3476: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3477: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3479: RAISE FND_API.G_EXC_ERROR;
3480: END IF;
3481:
3482: IF l_debug_level > 0 THEN
3483: oe_debug_pub.add( 'CALLING WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( L_LINE_TBL ( L_LINE_TBL_INDEX ) ) , 3 ) ;
3484: END IF;
3485: BEGIN
3486: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_line_tbl(l_line_tbl_index)), 'FULFILL_LINE', '#NULL',TRUE ); --15870313
3487: EXCEPTION
3485: BEGIN
3486: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_line_tbl(l_line_tbl_index)), 'FULFILL_LINE', '#NULL',TRUE ); --15870313
3487: EXCEPTION
3488: WHEN OTHERS THEN
3489: oe_debug_pub.add('Workflow complete activity failed. Raising');
3490: RAISE ;
3491: END ;
3492: IF l_debug_level > 0 THEN
3493: oe_debug_pub.add( 'RETURNED FROM WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( L_LINE_TBL ( L_LINE_TBL_INDEX ) ) , 3 ) ;
3489: oe_debug_pub.add('Workflow complete activity failed. Raising');
3490: RAISE ;
3491: END ;
3492: IF l_debug_level > 0 THEN
3493: oe_debug_pub.add( 'RETURNED FROM WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( L_LINE_TBL ( L_LINE_TBL_INDEX ) ) , 3 ) ;
3494: END IF;
3495:
3496: l_line_tbl_index := l_line_tbl.NEXT(l_line_tbl_index);
3497: END LOOP;
3507: UPDATE_DATE = SYSDATE
3508: WHERE SET_ID = l_set_tbl(l_set_tbl_index);
3509:
3510: IF l_debug_level > 0 THEN
3511: oe_debug_pub.add( 'SET IS CLOSED : '||TO_CHAR ( L_SET_TBL ( L_SET_TBL_INDEX ) ) , 3 ) ;
3512: END IF;
3513: l_set_tbl_index := l_set_tbl.NEXT(l_set_tbl_index);
3514:
3515: OE_Set_util.g_set_rec.set_status := 'C'; -- 4080531
3520:
3521: x_return_status := FND_API.G_RET_STS_SUCCESS;
3522: x_fulfillment_status := l_fulfilled_flag;
3523: IF l_debug_level > 0 THEN
3524: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.PROCESS_FULFILLMENT_SET '||X_RETURN_STATUS||'/'||X_FULFILLMENT_STATUS , 1 ) ;
3525: END IF;
3526:
3527:
3528: EXCEPTION
3543: G_DEBUG_MSG := G_DEBUG_MSG || 'E20-1,';
3544: WHEN OTHERS THEN
3545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3546: IF l_debug_level > 0 THEN
3547: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
3548: END IF;
3549:
3550: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3551: THEN
3616: lock_set_id NUMBER;
3617: CAN_NOT_LOCK_MODEL EXCEPTION;
3618: l_dummy VARCHAR2(1); --10298607
3619: --
3620: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3621: --
3622: BEGIN
3623:
3624: IF l_debug_level > 0 THEN
3621: --
3622: BEGIN
3623:
3624: IF l_debug_level > 0 THEN
3625: oe_debug_pub.add( 'ENTERING OE_LINE_FULLFILL.PROCESS_FULFILLMENT '|| TO_CHAR ( P_LINE_ID ) , 1 ) ;
3626: END IF;
3627:
3628:
3629:
3647:
3648: x_result_out := 'COMPLETE:#NULL';
3649:
3650: IF l_debug_level > 0 THEN
3651: oe_debug_pub.add('check if this line is part of fulfillment set ',5);
3652: END IF;
3653:
3654: g_set_tbl.delete;
3655:
3663: );
3664:
3665:
3666: IF l_debug_level > 0 THEN
3667: oe_debug_pub.add( 'RETURN STATUS FROM GET FULFILLMENT SET : '||L_RETURN_STATUS||'/'||TO_CHAR ( L_SET_TBL.COUNT ) , 3 ) ;
3668: END IF;
3669:
3670: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3671: IF l_debug_level > 0 THEN
3668: END IF;
3669:
3670: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3671: IF l_debug_level > 0 THEN
3672: oe_debug_pub.add('unexp error while getting fulfillment set info '||sqlerrm,1);
3673: END IF;
3674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3675: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3676: IF l_debug_level > 0 THEN
3673: END IF;
3674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3675: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3676: IF l_debug_level > 0 THEN
3677: oe_debug_pub.add('exc error while getting fulfillment set info '||sqlerrm,1);
3678: END IF;
3679: RAISE FND_API.G_EXC_ERROR;
3680: END IF;
3681:
3685: IF l_set_tbl.count > 0 THEN
3686: IF g_set_tbl.count > 1 THEN
3687:
3688: IF l_debug_level > 0 THEN
3689: oe_debug_pub.add('LOCKING HEADER '||L_LINE_REC.HEADER_ID||'/'||TO_CHAR ( SYSDATE , 'DD-MM-YYYY HH24:MI:SS' ) , 3 ) ;
3690: END IF;
3691:
3692: SELECT HEADER_ID
3693: INTO l_header_id
3695: WHERE HEADER_ID = l_line_rec.header_id
3696: FOR UPDATE NOWAIT;
3697:
3698: IF l_debug_level > 0 THEN
3699: oe_debug_pub.add('header locked successfully ',1);
3700: END IF;
3701:
3702: ELSE
3703: --7827727
3709: END IF;
3710:
3711: IF lock_set_id is NOT NULL THEN
3712: IF l_debug_level > 0 THEN
3713: oe_debug_pub.add( 'locking set with ID '||LOCK_SET_ID||' at '||TO_CHAR ( SYSDATE , 'DD-MM-YYYY HH24:MI:SS' ) , 3 ) ;
3714: END IF;
3715:
3716: SELECT SET_ID
3717: INTO l_set_id
3719: WHERE SET_ID = lock_set_id
3720: FOR UPDATE NOWAIT;
3721:
3722: IF l_debug_level > 0 THEN
3723: oe_debug_pub.add( 'set locked successfully ',1);
3724: END IF;
3725: END IF;
3726: END IF;
3727: END IF;
3726: END IF;
3727: END IF;
3728: IF nvl(l_line_rec.top_model_line_id,0) <> 0 THEN --bug 4189737, the ELSIF was changed to a IF condition
3729: IF l_debug_level > 0 THEN
3730: oe_debug_pub.add('this line is part of configuration',5);
3731: oe_debug_pub.add('locking while configuration at '||TO_CHAR(SYSDATE,'DD-MM-YYYY HH24:MI:SS'),5);
3732: END IF;
3733:
3734: SELECT line_id, top_model_line_id
3727: END IF;
3728: IF nvl(l_line_rec.top_model_line_id,0) <> 0 THEN --bug 4189737, the ELSIF was changed to a IF condition
3729: IF l_debug_level > 0 THEN
3730: oe_debug_pub.add('this line is part of configuration',5);
3731: oe_debug_pub.add('locking while configuration at '||TO_CHAR(SYSDATE,'DD-MM-YYYY HH24:MI:SS'),5);
3732: END IF;
3733:
3734: SELECT line_id, top_model_line_id
3735: INTO l_line_id, l_top_model_line_id
3737: WHERE line_id = l_line_rec.top_model_line_id
3738: FOR UPDATE NOWAIT;
3739:
3740: IF l_debug_level > 0 THEN
3741: oe_debug_pub.add('configuration locked successfully',1);
3742: END IF;
3743: /* Fix for bug 2560644 */
3744:
3745: ELSIF l_line_rec.item_type_code = 'SERVICE' AND
3745: ELSIF l_line_rec.item_type_code = 'SERVICE' AND
3746: l_line_rec.service_reference_line_id IS NOT NULL AND
3747: l_line_rec.service_reference_type_code = 'ORDER' THEN
3748: IF l_debug_level > 0 THEN
3749: oe_debug_pub.add('this is a service line now at fulfillment '|| L_LINE_REC.SERVICE_REFERENCE_TYPE_CODE,5);
3750: END IF;
3751:
3752: /* First lock the product */
3753:
3758: FOR UPDATE NOWAIT;
3759:
3760: IF nvl(l_top_model_line_id,0) <> 0 THEN
3761: IF l_debug_level > 0 THEN
3762: oe_debug_pub.add('locking the parent model line of this service line '||L_TOP_MODEL_LINE_ID,1);
3763: END IF;
3764:
3765: SELECT line_id
3766: INTO l_line_id
3769: FOR UPDATE NOWAIT;
3770:
3771: ELSE
3772: IF l_debug_level > 0 THEN
3773: oe_debug_pub.add('locking the parent reference line of this service line '||L_TOP_MODEL_LINE_ID,1);
3774: END IF;
3775: SELECT line_id
3776: INTO l_line_id
3777: FROM oe_order_lines
3779: FOR UPDATE NOWAIT;
3780:
3781: END IF;
3782: IF l_debug_level > 0 THEN
3783: oe_debug_pub.add('product lines locked successfully '||TO_CHAR ( SYSDATE , 'DD-MM-YYYY HH24:MI:SS' ) , 3 ) ;
3784: END IF;
3785:
3786: SELECT line_id
3787: INTO l_line_id
3789: WHERE line_id = l_line_rec.line_id
3790: FOR UPDATE NOWAIT;
3791:
3792: IF l_debug_level > 0 THEN
3793: oe_debug_pub.add('locked the service line '||TO_CHAR ( SYSDATE , 'DD-MM-YYYY HH24:MI:SS' ) , 3 ) ;
3794: END IF;
3795: /* fix for bug 2517485 */
3796: ELSE
3797: IF l_debug_level > 0 THEN
3794: END IF;
3795: /* fix for bug 2517485 */
3796: ELSE
3797: IF l_debug_level > 0 THEN
3798: oe_debug_pub.add('locking the current line '||TO_CHAR ( SYSDATE , 'DD-MM-YYYY HH24:MI:SS' ) , 3 ) ;
3799: END IF;
3800:
3801: SELECT line_id
3802: INTO l_line_id
3804: WHERE line_id = l_line_rec.line_id
3805: FOR UPDATE NOWAIT;
3806:
3807: IF l_debug_level > 0 THEN
3808: oe_debug_pub.add( 'LINE LOCKED '||TO_CHAR ( SYSDATE , 'DD-MM-YYYY HH24:MI:SS' ) , 3 ) ;
3809: END IF;
3810:
3811: END IF;
3812:
3813: EXCEPTION
3814: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
3815: -- some one else is currently working on the line
3816: IF l_debug_level > 0 THEN
3817: oe_debug_pub.add('unable to lock the lines or configuration',1);
3818: END IF;
3819: G_DEBUG_MSG := G_DEBUG_MSG || 'ELOCK1,';
3820: RAISE CAN_NOT_LOCK_MODEL;
3821: END;
3821: END;
3822:
3823:
3824: IF l_debug_level > 0 THEN
3825: oe_debug_pub.add( 'ACTIVTITY ID : '||TO_CHAR ( P_ACTIVITY_ID ) , 3 ) ;
3826: END IF;
3827: l_item_key := to_char(p_line_id);
3828:
3829: IF l_debug_level > 0 THEN
3826: END IF;
3827: l_item_key := to_char(p_line_id);
3828:
3829: IF l_debug_level > 0 THEN
3830: oe_debug_pub.add( 'CALLING GET FULFILLMENT ACTIVITY ' , 3 ) ;
3831: END IF;
3832:
3833: Get_Fulfillment_Activity
3834: (
3846: RAISE FND_API.G_EXC_ERROR;
3847: END IF;
3848:
3849: IF l_debug_level > 0 THEN
3850: oe_debug_pub.add( 'FULFILLMENT ACTIVITY : '|| L_FULFILLMENT_ACTIVITY , 3 ) ;
3851: END IF;
3852:
3853:
3854:
3857:
3858: -- Fulfill Line.
3859:
3860: IF l_debug_level > 0 THEN
3861: oe_debug_pub.add( '..503..CALLING FULFILL LINE WITH : '|| L_FULFILLMENT_TYPE||'/'||L_FULFILLMENT_ACTIVITY , 3 ) ;
3862: END IF;
3863:
3864:
3865: Fulfill_Line
3872: );
3873:
3874:
3875: IF l_debug_level > 0 THEN
3876: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL LINE : '||L_RETURN_STATUS , 3 ) ;
3877: END IF;
3878:
3879: IF l_return_status = 'D' THEN
3880: RAISE CAN_NOT_LOCK_MODEL;
3890:
3891: IF l_set_tbl.count > 0 THEN
3892: -- Processing for Fulfillment set
3893: IF l_debug_level > 0 THEN
3894: oe_debug_pub.add( 'IT IS LINE PART OF A FULFILLMENT SET' , 3 ) ;
3895: END IF;
3896:
3897:
3898:
3906: );
3907:
3908:
3909: IF l_debug_level > 0 THEN
3910: oe_debug_pub.add( 'RETURN STATUS/FULFILLMENT STATUS : '||L_RETURN_STATUS||'/'||L_FULFILLMENT_STATUS , 3 ) ;
3911: END IF;
3912:
3913: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3919:
3920:
3921: IF l_fulfillment_status = FND_API.G_FALSE THEN
3922: IF l_debug_level > 0 THEN
3923: oe_debug_pub.add( 'ALL THE LINES OF THE FULFILLMENT SET HAS NOT BEEN FULFILLED' , 3 ) ;
3924: END IF;
3925: x_result_out := 'NOTIFIED:#NULL';
3926: ELSIF l_fulfillment_type = G_FULFILL_NO_ACTIVITY THEN
3927:
3925: x_result_out := 'NOTIFIED:#NULL';
3926: ELSIF l_fulfillment_type = G_FULFILL_NO_ACTIVITY THEN
3927:
3928: IF l_debug_level > 0 THEN
3929: oe_debug_pub.add( '..505.. Calling Fulfill_Line' , 3 ) ;
3930: END IF;
3931:
3932: Fulfill_Line
3933: (
3953: l_line_rec.top_model_line_id <> FND_API.G_MISS_NUM THEN
3954:
3955: -- Processing for PTO/ATO/KIT
3956: IF l_debug_level > 0 THEN
3957: oe_debug_pub.add( 'IT IS LINE PART OF A PTO' , 3 ) ;
3958: END IF;
3959:
3960: -- Processing for Remnant Model
3961:
3963:
3964: IF l_line_rec.model_remnant_flag = 'Y' THEN
3965:
3966: IF l_debug_level > 0 THEN
3967: oe_debug_pub.add( 'LINE IS PART OF REMNANT MODEL '||TO_CHAR ( L_LINE_REC.LINE_ID ) , 3 ) ;
3968: END IF;
3969:
3970:
3971:
3980: IF nvl(l_fulfilled_flag,'N') = 'N'
3981: --bug 6394191 AND Condition Added
3982: AND nvl(l_line_rec.ato_line_id,0) = 0 THEN -- Bug-2376255
3983: IF l_debug_level > 0 THEN
3984: oe_debug_pub.add( '..506..CALLING FULFILL LINE WITH : '|| G_FULFILL_NO_ACTIVITY , 3 ) ;
3985: END IF;
3986:
3987: Fulfill_Line
3988: (
4007: --(l_line_rec.item_type_code = 'CONFIG' OR (l_line_rec.item_type_code = 'CLASS' AND
4008: -- l_line_rec.ato_line_id = l_line_rec.line_id)) THEN
4009:
4010: IF l_debug_level > 0 THEN
4011: oe_debug_pub.add('line is part of ATO sub configuration ',5);
4012: END IF;
4013:
4014: IF l_line_rec.ato_line_id = l_line_rec.line_id THEN
4015: IF l_debug_level > 0 THEN
4012: END IF;
4013:
4014: IF l_line_rec.ato_line_id = l_line_rec.line_id THEN
4015: IF l_debug_level > 0 THEN
4016: oe_debug_pub.add('Model line of ATO sub configuration ',5);
4017: END IF;
4018: END IF;
4019:
4020: IF l_line_rec.item_type_code = 'CONFIG' THEN
4018: END IF;
4019:
4020: IF l_line_rec.item_type_code = 'CONFIG' THEN
4021: IF l_debug_level > 0 THEN
4022: oe_debug_pub.add('config line of ATO sub configuration ',5);
4023: END IF;
4024: END IF;
4025:
4026: OE_Config_Util.Query_ATO_Options( p_ato_line_id => l_line_rec.ato_line_id,
4030:
4031:
4032: IF l_line_tbl(l_line_index).line_id <> p_line_id THEN
4033: IF l_debug_level > 0 THEN
4034: oe_debug_pub.add('call Get_Activity_Result() - '||L_ITEM_KEY , 3 ) ;
4035: END IF;
4036: l_item_key := to_char(l_line_tbl(l_line_index).line_id);
4037:
4038: Get_Activity_Result
4046: , x_activity_id => l_activity_id
4047: );
4048:
4049: IF l_debug_level > 0 THEN
4050: oe_debug_pub.add('return status - '||L_RETURN_STATUS , 3 ) ;
4051: oe_debug_pub.add('activity status - '||l_activity_status , 3 ) ;
4052: END IF;
4053: /*Added for bug 8790623*/
4054: IF l_activity_status = 'DEFERRED' THEN
4047: );
4048:
4049: IF l_debug_level > 0 THEN
4050: oe_debug_pub.add('return status - '||L_RETURN_STATUS , 3 ) ;
4051: oe_debug_pub.add('activity status - '||l_activity_status , 3 ) ;
4052: END IF;
4053: /*Added for bug 8790623*/
4054: IF l_activity_status = 'DEFERRED' THEN
4055: wf_item_activity_status.create_status('OEOL',to_char(l_item_key),l_activity_id,'NOTIFIED',NULL,SYSDATE,null);
4060: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4061: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4062: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4063: IF l_debug_level > 0 THEN
4064: oe_debug_pub.add('The ATO line is not at fulfillment '||TO_CHAR ( L_LINE_REC.ATO_LINE_ID ) , 3 ) ;
4065: END IF;
4066: x_result_out := 'NOTIFIED:#NULL';
4067: GOTO END_ATO_REMNANT;
4068: END IF;
4069: END IF;
4070: END LOOP;
4071:
4072: IF l_debug_level > 0 THEN
4073: oe_debug_pub.add('..507..Calling Fulfill_Line',5);
4074: END IF;
4075:
4076: FOR l_line_index IN l_line_tbl.FIRST .. l_line_tbl.LAST LOOP
4077: Fulfill_Line
4090:
4091:
4092: IF l_line_tbl(l_line_index).line_id <> p_line_id THEN
4093: IF l_debug_level > 0 THEN
4094: oe_debug_pub.add('update flow status code',5);
4095: END IF;
4096:
4097: OE_Order_WF_Util.Update_Flow_Status_Code
4098: (p_line_id => l_line_tbl(l_line_index).line_id,
4100: x_return_status => l_return_status
4101: );
4102:
4103: IF l_debug_level > 0 THEN
4104: oe_debug_pub.add('return status - '||L_RETURN_STATUS,5);
4105: END IF;
4106:
4107: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4111: END IF;
4112:
4113:
4114: IF l_debug_level > 0 THEN
4115: oe_debug_pub.add('complete the WF activity for line - '||L_LINE_TBL(L_LINE_INDEX).LINE_ID,5) ;
4116: END IF;
4117: BEGIN
4118: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_line_tbl(l_line_index).line_id), 'FULFILL_LINE', '#NULL',TRUE ); --15870313
4119: EXCEPTION
4117: BEGIN
4118: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_line_tbl(l_line_index).line_id), 'FULFILL_LINE', '#NULL',TRUE ); --15870313
4119: EXCEPTION
4120: WHEN OTHERS THEN
4121: oe_debug_pub.add('Workflow complete activity failed. Raising');
4122: RAISE ;
4123: END ;
4124: IF l_debug_level > 0 THEN
4125: oe_debug_pub.add('after wf complete ',5);
4121: oe_debug_pub.add('Workflow complete activity failed. Raising');
4122: RAISE ;
4123: END ;
4124: IF l_debug_level > 0 THEN
4125: oe_debug_pub.add('after wf complete ',5);
4126: END IF;
4127: END IF;
4128:
4129: IF l_debug_level > 0 THEN
4126: END IF;
4127: END IF;
4128:
4129: IF l_debug_level > 0 THEN
4130: oe_debug_pub.add('now fulfill the associated service lines of '||L_LINE_TBL(L_LINE_INDEX).LINE_ID,5);
4131: END IF;
4132:
4133: Fulfill_Service_Lines
4134: (
4137: x_return_status => l_return_status
4138: );
4139:
4140: IF l_debug_level > 0 THEN
4141: oe_debug_pub.add('return status - '||L_RETURN_STATUS , 3 ) ;
4142: END IF;
4143:
4144: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4145: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4159:
4160:
4161:
4162: IF l_debug_level > 0 THEN
4163: oe_debug_pub.add( 'LINE IS PART OF ATO SUB CONFIG ' , 3 ) ;
4164: END IF;
4165:
4166: IF l_line_rec.ato_line_id = l_line_rec.line_id THEN
4167:
4165:
4166: IF l_line_rec.ato_line_id = l_line_rec.line_id THEN
4167:
4168: IF l_debug_level > 0 THEN
4169: oe_debug_pub.add( 'MODEL LINE OF ATO SUB CONFIG ' , 3 ) ;
4170: END IF;
4171:
4172: l_line_tbl := OE_Config_Util.Query_Options(l_line_rec.top_model_line_id);
4173: OE_Config_Util.Query_Options(p_top_model_line_id => l_line_rec.top_model_line_id,
4183: END LOOP;
4184: << CONFIG_FOUND >>
4185:
4186: IF l_debug_level > 0 THEN
4187: oe_debug_pub.add( 'CONFIG LINE OF ATO SUB CONFIG '||L_LINE_TBL ( L_CONFIG_INDEX ) .LINE_ID , 3 ) ;
4188: END IF;
4189:
4190:
4191: l_item_key := to_char(l_line_tbl(l_config_index).line_id);
4190:
4191: l_item_key := to_char(l_line_tbl(l_config_index).line_id);
4192:
4193: IF l_debug_level > 0 THEN
4194: oe_debug_pub.add( 'CALLING GET ACTIVITY RESULT FOR ITEM : '||L_ITEM_KEY , 3 ) ;
4195: END IF;
4196:
4197: Get_Activity_Result
4198: (
4206: );
4207:
4208:
4209: IF l_debug_level > 0 THEN
4210: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS , 3 ) ;
4211: END IF;
4212:
4213: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4213: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4215: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4216: IF l_debug_level > 0 THEN
4217: oe_debug_pub.add( 'CONFIG LINE IS NOT AT FULFILLMENT : '||TO_CHAR ( L_LINE_REC.ATO_LINE_ID ) , 3 ) ;
4218: END IF;
4219: x_result_out := 'NOTIFIED:#NULL';
4220: GOTO END_ATO_REMNANT;
4221: END IF;
4228: /* Complete CONFIG if it is notified
4229: IF l_activity_status = 'NOTIFIED' THEN
4230: -- bug 4460242 start
4231: IF l_debug_level > 0 THEN
4232: oe_debug_pub.add( 'CALLING FLOW STATUS API ' , 3 ) ;
4233: END IF;
4234:
4235: OE_Order_WF_Util.Update_Flow_Status_Code
4236: (p_line_id => l_line_tbl(l_config_index).line_id,
4238: x_return_status => l_return_status
4239: );
4240:
4241: IF l_debug_level > 0 THEN
4242: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
4243: END IF;
4244:
4245: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4249: END IF;
4250: -- end of bug 4460242
4251:
4252: IF l_debug_level > 0 THEN
4253: oe_debug_pub.add( 'CALLING WF_ENGINE.COMPLETEACTIVITYINTERNALNAME FOR CONFIG LINE OF ATO SUB CONFIG '|| TO_CHAR ( L_LINE_TBL ( L_CONFIG_INDEX ) .LINE_ID ) , 3 ) ;
4254: END IF;
4255:
4256: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_line_tbl(l_config_index).line_id), 'FULFILL_LINE', '#NULL');
4257: IF l_debug_level > 0 THEN
4254: END IF;
4255:
4256: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_line_tbl(l_config_index).line_id), 'FULFILL_LINE', '#NULL');
4257: IF l_debug_level > 0 THEN
4258: oe_debug_pub.add( 'RETURNED FROM WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( L_LINE_TBL ( L_CONFIG_INDEX ) .LINE_ID ) , 3 ) ;
4259: END IF;
4260:
4261: END IF;
4262:
4260:
4261: END IF;
4262:
4263: IF l_debug_level > 0 THEN
4264: oe_debug_pub.add( 'FULFILL ASSOCIATED SERVICE LINES '||L_LINE_TBL ( L_CONFIG_INDEX ) .LINE_ID , 3 ) ;
4265: END IF;
4266:
4267: Fulfill_Service_Lines
4268: (
4272: );
4273:
4274:
4275: IF l_debug_level > 0 THEN
4276: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL SERVICE LINES API '||L_RETURN_STATUS , 3 ) ;
4277: END IF;
4278:
4279: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4284:
4285:
4286: ELSE
4287: IF l_debug_level > 0 THEN
4288: oe_debug_pub.add( 'CONFIG LINE OF ATO SUB CONFIG '||L_LINE_REC.ITEM_TYPE_CODE , 3 ) ;
4289: END IF;
4290:
4291: l_item_key := to_char(l_line_rec.ato_line_id);
4292:
4290:
4291: l_item_key := to_char(l_line_rec.ato_line_id);
4292:
4293: IF l_debug_level > 0 THEN
4294: oe_debug_pub.add( 'CALLING GET ACTIVITY RESULT FOR ITEM : '||L_ITEM_KEY , 3 ) ;
4295: END IF;
4296:
4297: Get_Activity_Result
4298: (
4305: , x_activity_id => l_activity_id
4306: );
4307:
4308: IF l_debug_level > 0 THEN
4309: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS||'/'||L_ACTIVITY_STATUS , 3 ) ;
4310: END IF;
4311:
4312: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4312: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4314: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4315: IF l_debug_level > 0 THEN
4316: oe_debug_pub.add( 'MODEL LINE IS NOT AT FULFILLMENT : '||TO_CHAR ( L_LINE_REC.ATO_LINE_ID ) , 3 ) ;
4317: END IF;
4318: x_result_out := 'NOTIFIED:#NULL';
4319: GOTO END_ATO_REMNANT;
4320: END IF;
4325: /* Complete ATO MODEL if it is notified
4326: IF l_activity_status = 'NOTIFIED' THEN
4327: -- bug 4460242 start
4328: IF l_debug_level > 0 THEN
4329: oe_debug_pub.add( 'CALLING FLOW STATUS API ' , 3 ) ;
4330: END IF;
4331:
4332: OE_Order_WF_Util.Update_Flow_Status_Code
4333: (p_line_id => l_line_rec.ato_line_id,
4335: x_return_status => l_return_status
4336: );
4337:
4338: IF l_debug_level > 0 THEN
4339: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
4340: END IF;
4341:
4342: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4346: END IF;
4347: -- bug 4460242 end
4348:
4349: IF l_debug_level > 0 THEN
4350: oe_debug_pub.add( 'CALLING WF_ENGINE.COMPLETEACTIVITYINTERNALNAME FOR MODEL LINE OF ATO SUB CONFIG '|| TO_CHAR ( L_LINE_REC.ATO_LINE_ID ) , 3 ) ;
4351: END IF;
4352:
4353: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_line_rec.ato_line_id), 'FULFILL_LINE', '#NULL');
4354: IF l_debug_level > 0 THEN
4351: END IF;
4352:
4353: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_line_rec.ato_line_id), 'FULFILL_LINE', '#NULL');
4354: IF l_debug_level > 0 THEN
4355: oe_debug_pub.add( 'RETURNED FROM WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( L_LINE_REC.ATO_LINE_ID ) , 3 ) ;
4356: END IF;
4357:
4358: END IF;
4359:
4357:
4358: END IF;
4359:
4360: IF l_debug_level > 0 THEN
4361: oe_debug_pub.add( 'FULFILL ASSOCIATED SERVICE LINES '||L_LINE_REC.ATO_LINE_ID , 3 ) ;
4362: END IF;
4363:
4364: Fulfill_Service_Lines
4365: (
4369: );
4370:
4371:
4372: IF l_debug_level > 0 THEN
4373: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL SERVICE LINES API '||L_RETURN_STATUS , 3 ) ;
4374: END IF;
4375:
4376: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4386: NULL;
4387: ELSE
4388:
4389: IF l_debug_level > 0 THEN
4390: oe_debug_pub.add( 'FULFILL ASSOCIATED SERVICE LINES '||L_LINE_REC.LINE_ID , 3 ) ;
4391: END IF;
4392:
4393: Fulfill_Service_Lines
4394: (
4398: );
4399:
4400:
4401: IF l_debug_level > 0 THEN
4402: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL SERVICE LINES API '||L_RETURN_STATUS , 3 ) ;
4403: END IF;
4404:
4405: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4406: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4413: ELSE
4414:
4415: -- process PTO fulfillment activity.
4416: IF l_debug_level > 0 THEN
4417: oe_debug_pub.add( 'CALLING PROCESS PTO FULFILLMENT ' , 3 ) ;
4418: END IF;
4419: Process_PTO_KIT
4420: (
4421: p_line_id => l_line_rec.line_id,
4427: );
4428:
4429:
4430: IF l_debug_level > 0 THEN
4431: oe_debug_pub.add( 'RETURN STATUS/FULFILLMENT STATUS : '||L_RETURN_STATUS||'/'||L_FULFILLMENT_STATUS , 3 ) ;
4432: END IF;
4433:
4434: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4439:
4440:
4441: IF l_fulfillment_status = FND_API.G_FALSE THEN
4442: IF l_debug_level > 0 THEN
4443: oe_debug_pub.add( 'ALL THE LINES OF THE FULFILLMENT SET HAS NOT BEEN FULFILLED' , 3 ) ;
4444: END IF;
4445: x_result_out := 'NOTIFIED:#NULL';
4446: ELSIF l_fulfillment_type = G_FULFILL_NO_ACTIVITY THEN
4447:
4445: x_result_out := 'NOTIFIED:#NULL';
4446: ELSIF l_fulfillment_type = G_FULFILL_NO_ACTIVITY THEN
4447:
4448: IF l_debug_level > 0 THEN
4449: oe_debug_pub.add( '..509..Calling Fulfill_Line' , 3 ) ;
4450: END IF;
4451:
4452: Fulfill_Line
4453: (
4475: l_line_rec.service_reference_line_id IS NOT NULL AND
4476: l_line_rec.service_reference_type_code = 'ORDER' THEN
4477:
4478: IF l_debug_level > 0 THEN
4479: oe_debug_pub.add( 'SERVICE LINE AT FULFILLMENT : '||L_LINE_REC.SERVICE_REFERENCE_TYPE_CODE , 3 ) ;
4480: END IF;
4481:
4482:
4483: SELECT fulfilled_flag,
4487: FROM oe_order_lines
4488: WHERE line_id = l_line_rec.service_reference_line_id;
4489:
4490: IF l_debug_level > 0 THEN
4491: oe_debug_pub.add( 'PRODUCT LINE FULFILLED : '||L_FULFILLED_FLAG , 3 ) ;
4492: END IF;
4493:
4494: IF l_fulfilled_flag = 'Y' OR -- OR condition added for 1717444
4495: l_ref_header_id <> l_line_rec.header_id THEN
4498: IF l_fulfillment_type = G_FULFILL_NO_ACTIVITY THEN
4499:
4500:
4501: IF l_debug_level > 0 THEN
4502: oe_debug_pub.add( '..510..CALLING FULFILL LINE WITH : '|| L_FULFILLMENT_TYPE||'/'||L_FULFILLMENT_ACTIVITY , 3 ) ;
4503: END IF;
4504:
4505: Fulfill_Line
4506: (
4512: );
4513:
4514:
4515: IF l_debug_level > 0 THEN
4516: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL LINE : '||L_RETURN_STATUS , 3 ) ;
4517: END IF;
4518:
4519: IF l_return_status = 'D' THEN
4520: RAISE CAN_NOT_LOCK_MODEL;
4526:
4527: END IF;
4528:
4529: IF l_debug_level > 0 THEN
4530: oe_debug_pub.add( 'SERVICE LINE IS FULFILLED' , 3 ) ;
4531: END IF;
4532: ELSE
4533:
4534:
4532: ELSE
4533:
4534:
4535: IF l_debug_level > 0 THEN
4536: oe_debug_pub.add( 'SERVICE LINE AT FULFILLMENT' , 3 ) ;
4537: END IF;
4538: x_result_out := 'NOTIFIED:#NULL';
4539:
4540: END IF;
4540: END IF;
4541:
4542: ELSE
4543: IF l_debug_level > 0 THEN
4544: oe_debug_pub.add( 'FULFILL_LINE ACTIVITY IS COMPLETE '||L_LINE_REC.ITEM_TYPE_CODE , 3 ) ;
4545: END IF;
4546:
4547:
4548: IF l_fulfillment_type = G_FULFILL_NO_ACTIVITY THEN
4547:
4548: IF l_fulfillment_type = G_FULFILL_NO_ACTIVITY THEN
4549:
4550: IF l_debug_level > 0 THEN
4551: oe_debug_pub.add( '..511..CALLING FULFILL LINE WITH : '|| L_FULFILLMENT_TYPE||'/'||L_FULFILLMENT_ACTIVITY , 3 ) ;
4552: END IF;
4553:
4554: Fulfill_Line
4555: (
4561: );
4562:
4563:
4564: IF l_debug_level > 0 THEN
4565: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL LINE : '||L_RETURN_STATUS , 3 ) ;
4566: END IF;
4567:
4568: IF l_return_status = 'D' THEN
4569: RAISE CAN_NOT_LOCK_MODEL;
4573: RAISE FND_API.G_EXC_ERROR;
4574: END IF;
4575:
4576: IF l_debug_level > 0 THEN
4577: oe_debug_pub.add( 'FULFILL ASSOCIATED SERVICE LINES '||L_LINE_REC.LINE_ID , 3 ) ;
4578: END IF;
4579:
4580: Fulfill_Service_Lines
4581: (
4585: );
4586:
4587:
4588: IF l_debug_level > 0 THEN
4589: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL SERVICE LINES API '||L_RETURN_STATUS , 3 ) ;
4590: END IF;
4591:
4592: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4596: END IF;
4597:
4598: ELSE
4599: IF l_debug_level > 0 THEN
4600: oe_debug_pub.add( 'FULFILL ASSOCIATED SERVICE LINES '||L_LINE_REC.LINE_ID , 3 ) ;
4601: END IF;
4602:
4603:
4604: Fulfill_Service_Lines
4608: x_return_status => l_return_status
4609: );
4610:
4611: IF l_debug_level > 0 THEN
4612: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL SERVICE LINES API '||L_RETURN_STATUS , 3 ) ;
4613: END IF;
4614:
4615: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4616: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4623:
4624: END IF;
4625:
4626: IF l_debug_level > 0 THEN
4627: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.PROCESS_FULFILLMENT '||X_RESULT_OUT , 3 ) ;
4628: END IF;
4629:
4630: IF x_result_out = 'NOTIFIED:#NULL' THEN
4631:
4641: EXCEPTION
4642: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
4643: -- some one else is currently working on the line
4644: IF l_debug_level > 0 THEN
4645: oe_debug_pub.add('Unable to lock to update status to'||l_flow_status_code,3);
4646: END IF;
4647: RAISE CAN_NOT_LOCK_MODEL;
4648: END;
4649: IF l_debug_level > 0 THEN
4646: END IF;
4647: RAISE CAN_NOT_LOCK_MODEL;
4648: END;
4649: IF l_debug_level > 0 THEN
4650: oe_debug_pub.add('Returned from lock row with success:'||l_return_status,3);
4651: END IF;
4652: ------- END OF 10298607 -----------------
4653: ELSE
4654: l_flow_status_code := 'FULFILLED';
4654: l_flow_status_code := 'FULFILLED';
4655: END IF;
4656:
4657: IF l_debug_level > 0 THEN
4658: oe_debug_pub.add( 'CALLING FLOW STATUS API ' , 3 ) ;
4659: END IF;
4660:
4661:
4662: OE_Order_WF_Util.Update_Flow_Status_Code
4665: x_return_status => l_return_status
4666: );
4667:
4668: IF l_debug_level > 0 THEN
4669: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
4670: END IF;
4671:
4672: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4677:
4678: x_return_status := FND_API.G_RET_STS_SUCCESS;
4679:
4680: IF l_debug_level > 0 THEN
4681: oe_debug_pub.add( 'EXITING FROM OE_LINE_FULFILL.PROCESS_FULFILLMENT : '||X_RETURN_STATUS , 1 ) ;
4682: END IF;
4683:
4684: EXCEPTION
4685:
4684: EXCEPTION
4685:
4686: WHEN CAN_NOT_LOCK_MODEL THEN
4687: IF l_debug_level > 0 THEN
4688: oe_debug_pub.add('OEXVFULB.pls: Process_fulfillment- MODEL LOCKING EXCEPTION' , 1 ) ;
4689: END IF;
4690: x_return_status := 'DEFERRED';
4691: G_DEBUG_MSG := G_DEBUG_MSG || 'ELOCK2,';
4692: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4690: x_return_status := 'DEFERRED';
4691: G_DEBUG_MSG := G_DEBUG_MSG || 'ELOCK2,';
4692: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4693: IF l_debug_level > 0 THEN
4694: oe_debug_pub.add( 'PROCESS_FULFILLMENT : EXITING WITH UNEXPECTED ERROR'||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
4695: END IF;
4696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4697: G_DEBUG_MSG := G_DEBUG_MSG || 'E22-1,';
4698:
4708: WHEN FND_API.G_EXC_ERROR THEN
4709: x_return_status := FND_API.G_RET_STS_ERROR;
4710: WHEN OTHERS THEN
4711: IF l_debug_level > 0 THEN
4712: oe_debug_pub.add( 'PROCESS_FULFILLMENT : EXITING WITH OTHERS ERROR' , 1 ) ;
4713: END IF;
4714: IF l_debug_level > 0 THEN
4715: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
4716: END IF;
4711: IF l_debug_level > 0 THEN
4712: oe_debug_pub.add( 'PROCESS_FULFILLMENT : EXITING WITH OTHERS ERROR' , 1 ) ;
4713: END IF;
4714: IF l_debug_level > 0 THEN
4715: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
4716: END IF;
4717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4718:
4719: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4813: l_fulfillment_activity VARCHAR2(30);
4814: l_fulfillment_type VARCHAR2(30);
4815:
4816: --
4817: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4818: --
4819: BEGIN
4820:
4821: IF l_debug_level > 0 THEN
4818: --
4819: BEGIN
4820:
4821: IF l_debug_level > 0 THEN
4822: oe_debug_pub.add( 'ENTERING OE_LINE_FULLFILL.CANCEL_LINE : '||TO_CHAR ( P_LINE_ID ) , 1 ) ;
4823: END IF;
4824:
4825:
4826:
4838: l_store_top <> p_line_id AND
4839: nvl(l_store_rem,'N') = 'N' THEN
4840:
4841: IF l_debug_level > 0 THEN
4842: oe_debug_pub.add( 'CALLED FOR CHILD ' , 3 ) ;
4843: END IF;
4844: GOTO LINE_NOT_IN_SET;
4845:
4846: END IF;
4868: l_set_id := NULL;
4869: END IF;
4870:
4871: IF l_debug_level > 0 THEN
4872: oe_debug_pub.add( 'L_SET_ID :'||TO_CHAR ( L_SET_ID ) ||'.' , 5 ) ;
4873: END IF;
4874:
4875: IF l_set_id IS NOT NULL THEN
4876:
4895: and l2.set_id = l_set_id;
4896: IF l_howmany > 0 THEN
4897: l_shared_lines := TRUE;
4898: IF l_debug_level > 0 THEN
4899: oe_debug_pub.add( 'L_SHARED_LINES IS TRUE' , 5 ) ;
4900: END IF;
4901: END IF;
4902:
4903:
4925:
4926: END IF;
4927:
4928: IF l_debug_level > 0 THEN
4929: oe_debug_pub.add( 'L_COMMON_SETS :'||TO_CHAR ( L_COMMON_SETS ) ||'.' , 5 ) ;
4930: END IF;
4931:
4932: /* 2525203 end */
4933:
4931:
4932: /* 2525203 end */
4933:
4934: IF l_debug_level > 0 THEN
4935: oe_debug_pub.add( 'GET THE FULFILLMENT SET CALLING GET FULFILLMENT SET : ' , 3 ) ;
4936: END IF;
4937:
4938: g_set_tbl.delete;
4939:
4944: , x_set_tbl => l_set_tbl
4945: );
4946:
4947: IF l_debug_level > 0 THEN
4948: oe_debug_pub.add( 'RETURN STATUS FROM GET FULFILLMENT SET : '||L_RETURN_STATUS||'/'||TO_CHAR ( L_SET_TBL.COUNT ) , 3 ) ;
4949: END IF;
4950:
4951: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4952: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4967: FOR l_set_index IN l_set_tbl.FIRST .. l_set_tbl.LAST
4968: LOOP
4969:
4970: IF l_debug_level > 0 THEN
4971: oe_debug_pub.add( 'LOOPING FOR LINE_ID :'||L_SET_TBL ( L_SET_INDEX ) .LINE_ID , 3 ) ;
4972: END IF;
4973:
4974:
4975: SELECT TOP_MODEL_LINE_ID,
4992:
4993:
4994: FOR i IN 1..OE_OE_FORM_CANCEL_LINE.g_num_of_records LOOP
4995: IF l_debug_level > 0 THEN
4996: OE_DEBUG_PUB.Add('Number Of records'||to_char(OE_OE_FORM_CANCEL_LINE.g_num_of_records),1);
4997: END IF;
4998: --MOAC
4999: --t_line_id := to_number(substr(OE_OE_FORM_CANCEL_LINE.g_record_ids,initial, nextpos-initial));
5000: t_line_id := OE_OE_FORM_CANCEL_LINE.g_record_ids(i).id1;
4999: --t_line_id := to_number(substr(OE_OE_FORM_CANCEL_LINE.g_record_ids,initial, nextpos-initial));
5000: t_line_id := OE_OE_FORM_CANCEL_LINE.g_record_ids(i).id1;
5001:
5002: IF l_debug_level > 0 THEN
5003: OE_DEBUG_PUB.Add('Line Id: '||to_char(t_line_id),1);
5004: END IF;
5005: /* Not needed with MOAC
5006: initial := nextpos + 1.0;
5007: j := j + 1.0;
5014: END IF;
5015: END LOOP;
5016: IF set_flag = 'Y' THEN
5017: IF l_debug_level > 0 THEN
5018: oe_debug_pub.add( 'LINE IS GETTING CANCELLED,NOT ADDED TO TABLE : '||L_SET_TBL ( L_SET_INDEX ) .LINE_ID , 3 ) ;
5019: END IF;
5020: NULL;
5021: ELSE -- Added For bug#2965878 End
5022: IF l_debug_level > 0 THEN
5019: END IF;
5020: NULL;
5021: ELSE -- Added For bug#2965878 End
5022: IF l_debug_level > 0 THEN
5023: oe_debug_pub.add( 'ADD THE LINE TO TABLE/REM : '||L_SET_TBL ( L_SET_INDEX ) .LINE_ID||'/'||L_MODEL_REMNANT_FLAG , 3 ) ;
5024: END IF;
5025: l_ful_set_index := l_ful_set_index + 1;
5026: l_ful_set_tbl(l_ful_set_index).line_id := l_set_tbl(l_set_index).line_id;
5027: l_ful_set_tbl(l_ful_set_index).set_id := l_set_tbl(l_set_index).set_id;
5027: l_ful_set_tbl(l_ful_set_index).set_id := l_set_tbl(l_set_index).set_id;
5028: l_ful_set_tbl(l_ful_set_index).top_model_line_id := l_top_model_line_id;
5029: l_ful_set_tbl(l_ful_set_index).model_remnant_flag := l_model_remnant_flag;
5030: IF l_debug_level > 0 THEN
5031: oe_debug_pub.add( 'INDEX : '||L_FUL_SET_INDEX , 3 ) ;
5032: END IF;
5033: END IF;
5034: ELSE
5035: IF l_debug_level > 0 THEN
5032: END IF;
5033: END IF;
5034: ELSE
5035: IF l_debug_level > 0 THEN
5036: oe_debug_pub.add( 'LINE NOT ADDED TO TABLE : '||L_SET_TBL ( L_SET_INDEX ) .LINE_ID , 3 ) ;
5037: END IF;
5038:
5039: END IF;
5040:
5040:
5041: END LOOP;
5042:
5043: IF l_debug_level > 0 THEN
5044: oe_debug_pub.add( 'COUNT '||L_FUL_SET_TBL.COUNT , 3 ) ;
5045: END IF;
5046:
5047: IF L_FUL_SET_TBL.COUNT >0 THEN -- Added For bug#2965878
5048: FOR l_ful_set_index IN l_ful_set_tbl.FIRST .. l_ful_set_tbl.LAST
5048: FOR l_ful_set_index IN l_ful_set_tbl.FIRST .. l_ful_set_tbl.LAST
5049: LOOP
5050:
5051: IF l_debug_level > 0 THEN
5052: oe_debug_pub.add( 'PROCESSING LINE : '||TO_CHAR ( L_FUL_SET_TBL ( L_FUL_SET_INDEX ) .LINE_ID ) , 3 ) ;
5053: END IF;
5054:
5055: -- Check for the passed line. If the line is at FULFILL_LINE work
5056: -- flow activity, then the fulfillment processing for this line
5061: --IF NOT l_close_tbl.EXISTS(l_ful_set_tbl(l_ful_set_index).set_id) THEN
5062: IF NOT l_close_tbl.EXISTS(l_set_id_mod) THEN --7827727
5063:
5064: IF l_debug_level > 0 THEN
5065: oe_debug_pub.add( 'SET ID ADDED : '||TO_CHAR ( L_FUL_SET_TBL ( L_FUL_SET_INDEX ) .SET_ID ) , 3 ) ;
5066: END IF;
5067: --l_close_tbl(l_ful_set_tbl(l_ful_set_index).set_id) := l_ful_set_tbl(l_ful_set_index).set_id;
5068: l_close_tbl(l_set_id_mod) :=l_ful_set_tbl(l_ful_set_index).set_id;--7827727
5069:
5079: x_fulfill_status => l_fulfill_status
5080: );
5081:
5082: IF l_debug_level > 0 THEN
5083: oe_debug_pub.add( 'RETURN FROM CHECK_PTO_KIT_FULFILLMENT '||L_RETURN_STATUS||'/'||L_FULFILL_STATUS , 3 ) ;
5084: END IF;
5085: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5086: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5087:
5090: IF l_fulfill_status = FND_API.G_FALSE THEN
5091: IF l_ful_set_tbl(l_ful_set_index).line_id = p_line_id THEN
5092: l_process_current_line := FALSE;
5093: IF l_debug_level > 0 THEN
5094: oe_debug_pub.add( '1- DO NOT PROCESS CURRENT LINE '||L_FUL_SET_TBL ( L_FUL_SET_INDEX ) .LINE_ID , 3 ) ;
5095: END IF;
5096:
5097: IF l_set_id IS NOT NULL THEN -- 2525203
5098: l_complete_fulfillment := FALSE;
5132: , x_activity_id => l_activity_id
5133: );
5134:
5135: IF l_debug_level > 0 THEN
5136: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS , 3 ) ;
5137: END IF;
5138:
5139: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5140: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5144: THEN
5145: IF l_ful_set_tbl(l_ful_set_index).line_id = p_line_id THEN
5146: l_process_current_line := FALSE;
5147: IF l_debug_level > 0 THEN
5148: oe_debug_pub.add( '2- DO NOT PROCESS CURRENT LINE ' , 3 ) ;
5149: END IF;
5150:
5151: IF l_set_id IS NOT NULL THEN -- 2525203
5152: l_complete_fulfillment := FALSE;
5178: << END_SET_LOOP >>
5179: NULL;
5180: /* Debugging statements added for 2525203 */
5181: IF l_debug_level > 0 THEN
5182: oe_debug_pub.add( 'FLAGS:' , 5 ) ;
5183: END IF;
5184: IF l_complete_fulfillment THEN
5185: IF l_debug_level > 0 THEN
5186: oe_debug_pub.add( 'L_COMPLETE_FULFILLMENT IS TRUE' , 5 ) ;
5182: oe_debug_pub.add( 'FLAGS:' , 5 ) ;
5183: END IF;
5184: IF l_complete_fulfillment THEN
5185: IF l_debug_level > 0 THEN
5186: oe_debug_pub.add( 'L_COMPLETE_FULFILLMENT IS TRUE' , 5 ) ;
5187: END IF;
5188: ELSE
5189: IF l_debug_level > 0 THEN
5190: oe_debug_pub.add( 'L_COMPLETE_FULFILLMENT IS FALSE' , 5 ) ;
5186: oe_debug_pub.add( 'L_COMPLETE_FULFILLMENT IS TRUE' , 5 ) ;
5187: END IF;
5188: ELSE
5189: IF l_debug_level > 0 THEN
5190: oe_debug_pub.add( 'L_COMPLETE_FULFILLMENT IS FALSE' , 5 ) ;
5191: END IF;
5192: END IF;
5193: IF l_set_f THEN
5194: IF l_debug_level > 0 THEN
5191: END IF;
5192: END IF;
5193: IF l_set_f THEN
5194: IF l_debug_level > 0 THEN
5195: oe_debug_pub.add( 'L_SET_F IS TRUE' , 5 ) ;
5196: END IF;
5197: ELSE
5198: IF l_debug_level > 0 THEN
5199: oe_debug_pub.add( 'L_SET_F IS FALSE' , 5 ) ;
5195: oe_debug_pub.add( 'L_SET_F IS TRUE' , 5 ) ;
5196: END IF;
5197: ELSE
5198: IF l_debug_level > 0 THEN
5199: oe_debug_pub.add( 'L_SET_F IS FALSE' , 5 ) ;
5200: END IF;
5201: END IF;
5202: IF l_oth_f THEN
5203: IF l_debug_level > 0 THEN
5200: END IF;
5201: END IF;
5202: IF l_oth_f THEN
5203: IF l_debug_level > 0 THEN
5204: oe_debug_pub.add( 'L_OTH_F IS TRUE' , 5 ) ;
5205: END IF;
5206: ELSE
5207: IF l_debug_level > 0 THEN
5208: oe_debug_pub.add( 'L_OTH_F IS FALSE' , 5 ) ;
5204: oe_debug_pub.add( 'L_OTH_F IS TRUE' , 5 ) ;
5205: END IF;
5206: ELSE
5207: IF l_debug_level > 0 THEN
5208: oe_debug_pub.add( 'L_OTH_F IS FALSE' , 5 ) ;
5209: END IF;
5210: END IF;
5211: IF l_process_current_line THEN
5212: IF l_debug_level > 0 THEN
5209: END IF;
5210: END IF;
5211: IF l_process_current_line THEN
5212: IF l_debug_level > 0 THEN
5213: oe_debug_pub.add( 'L_PROCESS_CURRENT_LINE IS TRUE' , 5 ) ;
5214: END IF;
5215: ELSE
5216: IF l_debug_level > 0 THEN
5217: oe_debug_pub.add( 'L_PROCESS_CURRENT_LINE IS FALSE' , 5 ) ;
5213: oe_debug_pub.add( 'L_PROCESS_CURRENT_LINE IS TRUE' , 5 ) ;
5214: END IF;
5215: ELSE
5216: IF l_debug_level > 0 THEN
5217: oe_debug_pub.add( 'L_PROCESS_CURRENT_LINE IS FALSE' , 5 ) ;
5218: END IF;
5219: END IF;
5220: /* end 2525203 */
5221:
5233: IF l_complete_fulfillment OR -- OR added for 2525203
5234: (l_set_id IS NOT NULL AND (l_set_f OR l_oth_f)) THEN
5235:
5236: IF l_debug_level > 0 THEN
5237: oe_debug_pub.add( 'FULFILL SOME LINES <> P_LINE_ID: ' , 3 ) ;
5238: END IF;
5239:
5240: l_fulfilled_lines.DELETE; -- 2525203
5241: IF L_FUL_SET_TBL.COUNT >0 THEN -- Added For bug#2965878
5254: IF l_ful_set_tbl(l_ful_set_index).line_id = l_ful_set_tbl(l_ful_set_index).top_model_line_id AND
5255: nvl(l_ful_set_tbl(l_ful_set_index).model_remnant_flag,'N') = 'N' THEN
5256:
5257: IF l_debug_level > 0 THEN
5258: oe_debug_pub.add( 'CALLING FULFILL_PTO_KIT '||L_FUL_SET_TBL ( L_FUL_SET_INDEX ) .TOP_MODEL_LINE_ID , 3 ) ;
5259: END IF;
5260:
5261: Fulfill_PTO_KIT
5262: (
5264: x_return_status => l_return_status
5265: );
5266:
5267: IF l_debug_level > 0 THEN
5268: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL_PTO_KIT API '||L_RETURN_STATUS , 3 ) ;
5269: END IF;
5270:
5271: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5285: /* If the line is not fulfilled set the fulfillment related
5286: attributes for the line before it goes beyond FULFILL_LINE */
5287:
5288: IF l_debug_level > 0 THEN
5289: oe_debug_pub.add( '..512..FULFILLED FLAG '||L_FULFILLED_FLAG , 5 ) ;
5290: END IF;
5291:
5292: IF nvl(l_fulfilled_flag,'N') <> 'Y' THEN
5293:
5335:
5336: IF NVL(l_activity_status,'NOTIFIED') <> 'COMPLETE' THEN
5337: /* bug3292817 */
5338: IF l_debug_level > 0 THEN
5339: oe_debug_pub.add( 'CALLING FLOW STATUS API ' , 3 ) ;
5340: END IF;
5341:
5342: OE_Order_WF_Util.Update_Flow_Status_Code
5343: (p_line_id => l_ful_set_tbl(l_ful_set_index).line_Id,
5345: x_return_status => l_return_status
5346: );
5347:
5348: IF l_debug_level > 0 THEN
5349: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
5350: END IF;
5351:
5352: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5355: RAISE FND_API.G_EXC_ERROR;
5356: END IF;
5357:
5358: IF l_debug_level > 0 THEN
5359: oe_debug_pub.add( 'FULFILL ASSOCIATED SERVICE LINES ' , 3 ) ;
5360: END IF;
5361:
5362: Fulfill_Service_Lines
5363: (
5365: x_return_status => l_return_status
5366: );
5367:
5368: IF l_debug_level > 0 THEN
5369: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL SERVICE LINES API '||L_RETURN_STATUS , 3 ) ;
5370: END IF;
5371:
5372: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5373: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5375: RAISE FND_API.G_EXC_ERROR;
5376: END IF;
5377:
5378: IF l_debug_level > 0 THEN
5379: oe_debug_pub.add( 'CALLING WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( L_FUL_SET_TBL ( L_FUL_SET_INDEX ) .LINE_ID ) , 3 ) ;
5380: END IF;
5381: BEGIN
5382: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_ful_set_tbl(l_ful_set_index).line_id), 'FULFILL_LINE', '#NULL',TRUE ); --15870313
5383: EXCEPTION
5381: BEGIN
5382: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_ful_set_tbl(l_ful_set_index).line_id), 'FULFILL_LINE', '#NULL',TRUE ); --15870313
5383: EXCEPTION
5384: WHEN OTHERS THEN
5385: oe_debug_pub.add('Workflow complete activity failed. Raising');
5386: RAISE ;
5387: END ;
5388: IF l_debug_level > 0 THEN
5389: oe_debug_pub.add( 'RETURNED FROM WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( L_FUL_SET_TBL ( L_FUL_SET_INDEX ) .LINE_ID ) , 3 ) ;
5385: oe_debug_pub.add('Workflow complete activity failed. Raising');
5386: RAISE ;
5387: END ;
5388: IF l_debug_level > 0 THEN
5389: oe_debug_pub.add( 'RETURNED FROM WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( L_FUL_SET_TBL ( L_FUL_SET_INDEX ) .LINE_ID ) , 3 ) ;
5390: END IF;
5391:
5392: END IF; --Line fulfilled
5393: END IF;
5409: UPDATE_DATE = SYSDATE
5410: WHERE SET_ID = l_close_tbl(l_close_tbl_index);
5411:
5412: IF l_debug_level > 0 THEN
5413: oe_debug_pub.add( 'SET IS CLOSED : '||TO_CHAR ( L_CLOSE_TBL ( L_CLOSE_TBL_INDEX ) ) , 3 ) ;
5414: END IF;
5415: END IF; -- end 2525203
5416: l_close_tbl_index := l_close_tbl.NEXT(l_close_tbl_index);
5417:
5423:
5424: /* following IF for Bug2068310. */
5425: IF p_fulfill_operation = 'N' THEN
5426: IF l_debug_level > 0 THEN
5427: oe_debug_pub.add( 'CURRENT LINE IS GETTING DELETED OR CANCELLED , DONOT PROCESS ' , 3 ) ;
5428: END IF;
5429: l_process_current_line := FALSE;
5430: END IF;
5431:
5432: IF l_process_current_line AND -- AND added for 2525203
5433: (l_set_id IS NULL OR l_oth_f) THEN
5434:
5435: IF l_debug_level > 0 THEN
5436: oe_debug_pub.add( 'PROCESSING CURRENT LINE' , 3 ) ;
5437: END IF;
5438:
5439: IF l_store_top IS NOT NULL AND
5440: l_store_top = p_line_id AND
5440: l_store_top = p_line_id AND
5441: nvl(l_store_rem,'N') = 'N' THEN
5442:
5443: IF l_debug_level > 0 THEN
5444: oe_debug_pub.add( 'CALLING CHECK_PTO_KIT_FULFILLMENT ' , 3 ) ;
5445: END IF;
5446:
5447: Check_PTO_KIT_Fulfillment
5448: (
5452: x_fulfill_status => l_fulfill_status
5453: );
5454:
5455: IF l_debug_level > 0 THEN
5456: oe_debug_pub.add( 'RETURN FROM CHECK_PTO_KIT_FULFILLMENT '||L_RETURN_STATUS||'/'||L_FULFILL_STATUS , 3 ) ;
5457: END IF;
5458:
5459: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5463:
5464: IF l_fulfill_status = FND_API.G_FALSE THEN
5465:
5466: IF l_debug_level > 0 THEN
5467: oe_debug_pub.add( 'LINE CAN NOT BE FULFILLED ' , 3 ) ;
5468: END IF;
5469: GOTO LINE_NOT_IN_SET;
5470:
5471: ELSE
5470:
5471: ELSE
5472:
5473: IF l_debug_level > 0 THEN
5474: oe_debug_pub.add( 'CALLING FULFILL_PTO_KIT '||P_LINE_ID , 3 ) ;
5475: END IF;
5476:
5477: Fulfill_PTO_KIT
5478: (
5480: x_return_status => l_return_status
5481: );
5482:
5483: IF l_debug_level > 0 THEN
5484: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL_PTO_KIT API '||L_RETURN_STATUS , 3 ) ;
5485: END IF;
5486:
5487: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5505: , x_activity_id => l_activity_id
5506: );
5507:
5508: IF l_debug_level > 0 THEN
5509: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS , 3 ) ;
5510: END IF;
5511:
5512: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5512: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5514: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5515: IF l_debug_level > 0 THEN
5516: oe_debug_pub.add( 'DO NOT PROCESS CURRENT LINE ' , 3 ) ;
5517: END IF;
5518: GOTO LINE_NOT_IN_SET;
5519: END IF;
5520:
5528: /* If the line is not fulfilled set the fulfillment related
5529: attributes for the line before it goes beyond FULFILL_LINE */
5530:
5531: IF l_debug_level > 0 THEN
5532: oe_debug_pub.add( '..515..FULFILLED FLAG '||L_FULFILLED_FLAG , 5 ) ;
5533: END IF;
5534: IF nvl(l_fulfilled_flag,'N') <> 'Y' THEN
5535:
5536: l_fulfillment_type := G_FULFILL_NO_ACTIVITY;
5556:
5557: END IF;
5558:
5559: IF l_debug_level > 0 THEN
5560: oe_debug_pub.add( 'CALLING FLOW STATUS API ' , 3 ) ;
5561: END IF;
5562:
5563: -- l_line_rec := OE_Line_Util.Query_Row(p_line_id);
5564: /*
5574: );
5575:
5576:
5577: IF l_debug_level > 0 THEN
5578: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
5579: END IF;
5580:
5581: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5584: RAISE FND_API.G_EXC_ERROR;
5585: END IF;
5586:
5587: IF l_debug_level > 0 THEN
5588: oe_debug_pub.add( 'FULFILL ASSOCIATED SERVICE LINES ' , 3 ) ;
5589: END IF;
5590:
5591:
5592: Fulfill_Service_Lines
5595: x_return_status => l_return_status
5596: );
5597:
5598: IF l_debug_level > 0 THEN
5599: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL SERVICE LINES API '||L_RETURN_STATUS , 3 ) ;
5600: END IF;
5601:
5602: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5605: RAISE FND_API.G_EXC_ERROR;
5606: END IF;
5607:
5608: IF l_debug_level > 0 THEN
5609: oe_debug_pub.add( 'CALLING WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( P_LINE_ID ) , 3 ) ;
5610: END IF;
5611: BEGIN
5612: wf_engine.CompleteActivityInternalName('OEOL', to_char(p_line_id), 'FULFILL_LINE', '#NULL',TRUE ); --15870313
5613: EXCEPTION
5611: BEGIN
5612: wf_engine.CompleteActivityInternalName('OEOL', to_char(p_line_id), 'FULFILL_LINE', '#NULL',TRUE ); --15870313
5613: EXCEPTION
5614: WHEN OTHERS THEN
5615: oe_debug_pub.add('Workflow complete activity failed. Raising');
5616: RAISE ;
5617: END ;
5618: IF l_debug_level > 0 THEN
5619: oe_debug_pub.add( 'RETURNED FROM WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( P_LINE_ID ) , 3 ) ;
5615: oe_debug_pub.add('Workflow complete activity failed. Raising');
5616: RAISE ;
5617: END ;
5618: IF l_debug_level > 0 THEN
5619: oe_debug_pub.add( 'RETURNED FROM WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( P_LINE_ID ) , 3 ) ;
5620: END IF;
5621:
5622: END IF;
5623:
5627: << LINE_NOT_IN_SET >>
5628:
5629: x_return_status := FND_API.G_RET_STS_SUCCESS;
5630: IF l_debug_level > 0 THEN
5631: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.CANCEL_LINE : '||X_RETURN_STATUS , 1 ) ;
5632: END IF;
5633:
5634: EXCEPTION
5635: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5633:
5634: EXCEPTION
5635: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5636: IF l_debug_level > 0 THEN
5637: oe_debug_pub.add( 'CANCEL_LINE : EXITING WITH UNEXPECTED ERROR'||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
5638: END IF;
5639: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5640:
5641: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5651: x_return_status := FND_API.G_RET_STS_ERROR;
5652:
5653: WHEN OTHERS THEN
5654: IF l_debug_level > 0 THEN
5655: oe_debug_pub.add( 'CANCEL_LINE : EXITING WITH OTHERS ERROR' , 1 ) ;
5656: END IF;
5657: IF l_debug_level > 0 THEN
5658: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
5659: END IF;
5654: IF l_debug_level > 0 THEN
5655: oe_debug_pub.add( 'CANCEL_LINE : EXITING WITH OTHERS ERROR' , 1 ) ;
5656: END IF;
5657: IF l_debug_level > 0 THEN
5658: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
5659: END IF;
5660: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5661:
5662: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)