[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( '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: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_line_id), 'FULFILL_LINE', '#NULL');
585: IF l_debug_level > 0 THEN
586: oe_debug_pub.add( 'RETURNED FROM WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( L_LINE_ID ) , 3 ) ;
582: oe_debug_pub.add( 'CALLING WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( L_LINE_ID ) , 3 ) ;
583: END IF;
584: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_line_id), 'FULFILL_LINE', '#NULL');
585: IF l_debug_level > 0 THEN
586: oe_debug_pub.add( 'RETURNED FROM WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( L_LINE_ID ) , 3 ) ;
587: END IF;
588:
589: END LOOP;
590:
593:
594: x_return_status := FND_API.G_RET_STS_SUCCESS;
595:
596: IF l_debug_level > 0 THEN
597: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.FULFILL_SERVICE_LINES '|| X_RETURN_STATUS , 1 ) ;
598: END IF;
599:
600: EXCEPTION
601:
602: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
604:
605: IF l_debug_level > 0 THEN
606: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.FULFILL_SERVICE_LINES WITH STATUS: '|| X_RETURN_STATUS , 1 ) ;
607: END IF;
608: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
609: THEN
610: OE_MSG_PUB.Add_Exc_Msg
616:
617: WHEN OTHERS THEN
618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
619: IF l_debug_level > 0 THEN
620: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
621: END IF;
622: IF l_debug_level > 0 THEN
623: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.FULFILL_SERVICE_LINES WITH STATUS: '|| X_RETURN_STATUS , 1 ) ;
624: END IF;
619: IF l_debug_level > 0 THEN
620: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
621: END IF;
622: IF l_debug_level > 0 THEN
623: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.FULFILL_SERVICE_LINES WITH STATUS: '|| X_RETURN_STATUS , 1 ) ;
624: END IF;
625:
626: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
627: THEN
643: l_return_status VARCHAR2(1);
644: l_line_rec OE_Order_Pub.Line_Rec_Type; -- added for 2897505
645:
646: --
647: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
648: --
649: BEGIN
650:
651: IF l_debug_level > 0 THEN
648: --
649: BEGIN
650:
651: IF l_debug_level > 0 THEN
652: 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 ) ;
653: END IF;
654:
655:
656: IF p_line_rec.service_start_date IS NULL OR
696:
697: END IF;
698:
699: IF l_debug_level > 0 THEN
700: 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 ) ;
701: END IF;
702:
703: END Update_Service_Dates;
704:
743: item_type_code -- this one added for 2417601
744: from oe_order_lines
745: where line_id = l_line_rec.line_id;
746: --
747: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
748: --
749: /* Start Improved OM,IB,OKS changes */
750: l_msg_data VARCHAR2(2000) := NULL;
751: l_validation_level NUMBER;
761:
762: BEGIN
763:
764: IF l_debug_level > 0 THEN
765: oe_debug_pub.add('Entering oe_line_fullfill.fulfill_line() '||to_char(p_line_rec.line_id),1) ;
766: END IF;
767:
768:
769: l_line_rec.service_start_date := NULL; -- initialization for 2292133
806: */
807: IF p_fulfillment_type = G_FULFILL_WITH_ACTIVITY THEN
808:
809: IF l_debug_level > 0 THEN
810: oe_debug_pub.add('Updating with shipped quantity',3) ;
811: END IF;
812: --l_update_line_tbl(1).fulfilled_quantity := p_line_rec.shipped_quantity;
813: l_fulfilled_quantity := p_line_rec.shipped_quantity;
814: l_fulfilled_quantity2 := p_line_rec.shipped_quantity2; -- 5126873
818:
819:
820: ELSE
821: IF l_debug_level > 0 THEN
822: oe_debug_pub.add('Updating with ordered quantity',3) ;
823: END IF;
824: --l_update_line_tbl(1).fulfilled_quantity := p_line_rec.ordered_quantity;
825: l_fulfilled_quantity := p_line_rec.ordered_quantity;
826: l_fulfilled_quantity2 := p_line_rec.ordered_quantity2; -- 5126873
847: Update_Service_Dates(l_line_rec);
848:
849: END IF;
850: IF l_debug_level > 0 THEN
851: oe_debug_pub.add('After calling update_service_lines() ',5) ;
852: END IF;
853: IF ( (OE_GLOBALS.G_ASO_INSTALLED = 'Y') OR
854: (NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'),'N') = 'Y') ) THEN
855: IF l_debug_level > 0 THEN
852: END IF;
853: IF ( (OE_GLOBALS.G_ASO_INSTALLED = 'Y') OR
854: (NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'),'N') = 'Y') ) THEN
855: IF l_debug_level > 0 THEN
856: oe_debug_pub.add('mode is record',3) ;
857: END IF;
858: OE_Line_Util.Lock_Rows
859: (p_line_id => p_line_rec.line_id
860: ,x_line_tbl => l_old_line_tbl
860: ,x_line_tbl => l_old_line_tbl
861: ,x_return_status => l_return_status
862: );
863: IF l_debug_level > 0 THEN
864: oe_debug_pub.add('Returned from lock row : '||l_return_status,3) ;
865: END IF;
866: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
867: IF l_debug_level > 0 THEN
868: oe_debug_pub.add('STS error while locking row '||sqlerrm,1);
864: oe_debug_pub.add('Returned from lock row : '||l_return_status,3) ;
865: END IF;
866: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
867: IF l_debug_level > 0 THEN
868: oe_debug_pub.add('STS error while locking row '||sqlerrm,1);
869: END IF;
870: RAISE CAN_NOT_LOCK_MODEL;
871: --RAISE FND_API.G_EXC_ERROR;
872: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
870: RAISE CAN_NOT_LOCK_MODEL;
871: --RAISE FND_API.G_EXC_ERROR;
872: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
873: IF l_debug_level > 0 THEN
874: oe_debug_pub.add('EXC error while locking row '||sqlerrm,1);
875: END IF;
876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
877: END IF;
878:
903: --check code release level first. Notification framework is at Pack H level
904: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
905: -- calling notification framework to get index position
906: IF l_debug_level > 0 THEN
907: oe_debug_pub.add('Line_id is:' || p_line_rec.line_id ) ;
908: END IF;
909: OE_ORDER_UTIL.Update_Global_Picture(p_Upd_New_Rec_If_Exists =>False,
910: p_header_id=>p_line_rec.header_id,
911: p_line_rec =>l_line_tbl(1),
914: x_return_status => l_return_status);
915:
916:
917: IF l_debug_level > 0 THEN
918: oe_debug_pub.add('Update_global return status from oe_line_fullfill.fullfill_line is: '|| l_return_status ) ;
919: oe_debug_pub.add('Global picture index is: '||l_notify_index,1) ;
920: END IF;
921: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
915:
916:
917: IF l_debug_level > 0 THEN
918: oe_debug_pub.add('Update_global return status from oe_line_fullfill.fullfill_line is: '|| l_return_status ) ;
919: oe_debug_pub.add('Global picture index is: '||l_notify_index,1) ;
920: END IF;
921: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
923: END IF;
925: --update Global Picture directly
926: OE_ORDER_UTIL.g_old_line_tbl(l_notify_index):= l_old_line_tbl(1);
927: OE_ORDER_UTIL.g_line_tbl(l_notify_index):= OE_ORDER_UTIL.g_old_line_tbl(l_notify_index);
928:
929: oe_debug_pub.add('line_rec line id is :'|| l_line_rec.line_id);
930: oe_debug_pub.add('line_rec header id is :'|| l_line_rec.header_id);
931:
932: /* commented as unnecessary for 3803251
933: OE_ORDER_UTIL.g_line_tbl(l_notify_index).line_id := l_line_rec.line_id;
926: OE_ORDER_UTIL.g_old_line_tbl(l_notify_index):= l_old_line_tbl(1);
927: OE_ORDER_UTIL.g_line_tbl(l_notify_index):= OE_ORDER_UTIL.g_old_line_tbl(l_notify_index);
928:
929: oe_debug_pub.add('line_rec line id is :'|| l_line_rec.line_id);
930: oe_debug_pub.add('line_rec header id is :'|| l_line_rec.header_id);
931:
932: /* commented as unnecessary for 3803251
933: OE_ORDER_UTIL.g_line_tbl(l_notify_index).line_id := l_line_rec.line_id;
934: OE_ORDER_UTIL.g_line_tbl(l_notify_index).header_id := l_line_rec.header_id;
950: /* changes for AFD */
951: OE_ORDER_UTIL.g_line_tbl(l_notify_index).actual_fulfillment_date := l_actual_fulfillment_date;
952:
953: IF l_debug_level > 0 THEN
954: oe_debug_pub.add('global line fulfilled_flag is: '||OE_ORDER_UTIL.G_LINE_TBL(L_NOTIFY_INDEX).FULFILLED_FLAG,1) ;
955: END IF;
956: END IF;
957: END IF; /*code_release_level*/
958: -- notification framework end
985: l_Service_Order_Lines(1).Order_Line_ID := p_line_rec.line_id;
986: l_Service_Order_Lines(1).Order_Number := l_order_number;
987: l_Service_Order_Lines(1).Ref_Order_Line_ID := p_line_rec.service_reference_line_id;
988: IF l_debug_level > 0 THEN
989: oe_debug_pub.add('Calling OKS_OMINT_PUB.Interface_Service_Order_Lines:p_line_rec.line_id:'
990: || p_line_rec.line_id,3) ;
991: END IF;
992:
993: OKS_OMINT_PUB.Interface_Service_Order_Lines(
995: x_Return_Status => l_return_status,
996: x_Error_Message => l_msg_data);
997:
998: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
999: oe_debug_pub.add('FND_API.G_RET_STS_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1000: oe_debug_pub.add('l_msg_data' || l_msg_data);
1001: RAISE FND_API.G_EXC_ERROR;
1002: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1003: oe_debug_pub.add('FND_API.G_RET_STS_UNEXP_ERROR after call to OKS_OMINT_PUB.Interface_Service');
996: x_Error_Message => l_msg_data);
997:
998: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
999: oe_debug_pub.add('FND_API.G_RET_STS_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1000: oe_debug_pub.add('l_msg_data' || l_msg_data);
1001: RAISE FND_API.G_EXC_ERROR;
1002: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1003: oe_debug_pub.add('FND_API.G_RET_STS_UNEXP_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1004: oe_debug_pub.add('l_msg_data' || l_msg_data);
999: oe_debug_pub.add('FND_API.G_RET_STS_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1000: oe_debug_pub.add('l_msg_data' || l_msg_data);
1001: RAISE FND_API.G_EXC_ERROR;
1002: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1003: oe_debug_pub.add('FND_API.G_RET_STS_UNEXP_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1004: oe_debug_pub.add('l_msg_data' || l_msg_data);
1005: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1006: END IF;
1007: /* End Improved OM,IB,OKS changes */
1000: oe_debug_pub.add('l_msg_data' || l_msg_data);
1001: RAISE FND_API.G_EXC_ERROR;
1002: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1003: oe_debug_pub.add('FND_API.G_RET_STS_UNEXP_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1004: oe_debug_pub.add('l_msg_data' || l_msg_data);
1005: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1006: END IF;
1007: /* End Improved OM,IB,OKS changes */
1008: END IF;
1010: -- Added 09-Dec-2002
1011: -- BLANKETS: Update returned/fulfilled qty
1012: IF OE_CODE_CONTROL.Code_Release_Level >= '110509' THEN
1013: if l_debug_level > 0 then
1014: oe_debug_pub.add('OEXVFULB 1, blanket number :'||
1015: p_line_rec.blanket_number);
1016: end if;
1017: IF p_line_rec.blanket_number IS NOT NULL THEN
1018: Update_Blanket_Qty(p_line_rec,l_fulfilled_quantity);
1019: END IF;
1020: END IF;
1021:
1022: IF p_line_rec.item_type_code <> OE_GLOBALS.G_ITEM_SERVICE THEN
1023: oe_debug_pub.add('Before Call to csi_ont_txn_pub.posttransaction',1);
1024: csi_ont_txn_pub.posttransaction
1025: (
1026: p_order_line_id => p_line_rec.line_id,
1027: x_return_status => l_return_status,
1027: x_return_status => l_return_status,
1028: x_message_id => l_message_id,
1029: x_error_code => l_error_code,
1030: x_error_message => l_error_message);
1031: oe_debug_pub.add('After Call to csi_ont_txn_pub.posttransaction',1);
1032:
1033: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1034: IF l_debug_level > 0 THEN
1035: oe_debug_pub.add('raising unexpected error in csi_ont_txn_pub.posttransaction'||sqlerrm,1);
1031: oe_debug_pub.add('After Call to csi_ont_txn_pub.posttransaction',1);
1032:
1033: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1034: IF l_debug_level > 0 THEN
1035: oe_debug_pub.add('raising unexpected error in csi_ont_txn_pub.posttransaction'||sqlerrm,1);
1036: END IF;
1037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1038: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1039: IF l_debug_level > 0 THEN
1036: END IF;
1037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1038: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1039: IF l_debug_level > 0 THEN
1040: oe_debug_pub.add('raising exc error in csi_ont_txn_pub.posttransaction'||sqlerrm,1);
1041: END IF;
1042: RAISE FND_API.G_EXC_ERROR;
1043: END IF;
1044: END IF;
1044: END IF;
1045:
1046: ELSE
1047: IF l_debug_level > 0 THEN
1048: oe_debug_pub.add('Number of lines to update: '||p_line_tbl.count,3) ;
1049: END IF;
1050:
1051: IF p_line_tbl.count = 0 THEN -- this IF added for 2231594
1052: IF l_debug_level > 0 THEN
1049: END IF;
1050:
1051: IF p_line_tbl.count = 0 THEN -- this IF added for 2231594
1052: IF l_debug_level > 0 THEN
1053: oe_debug_pub.add('Exiting fulfill_line() - no lines to update',3) ;
1054: END IF;
1055: x_return_status := FND_API.G_RET_STS_SUCCESS;
1056: RETURN;
1057: END IF;
1080: ,x_line_tbl => l_old_line_tbl
1081: ,x_return_status => l_return_status
1082: );
1083: IF l_debug_level > 0 THEN
1084: oe_debug_pub.add('Returned from lock row : '||l_return_status,3) ;
1085: END IF;
1086:
1087: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1088: IF l_debug_level > 0 THEN
1085: END IF;
1086:
1087: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1088: IF l_debug_level > 0 THEN
1089: oe_debug_pub.add('STS error while locking row '||sqlerrm,1);
1090: END IF;
1091: RAISE CAN_NOT_LOCK_MODEL;
1092: --RAISE FND_API.G_EXC_ERROR;
1093: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1091: RAISE CAN_NOT_LOCK_MODEL;
1092: --RAISE FND_API.G_EXC_ERROR;
1093: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1094: IF l_debug_level > 0 THEN
1095: oe_debug_pub.add('EXC error while locking row '||sqlerrm,1);
1096: END IF;
1097: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1098: END IF;
1099:
1120: Update_Service_Dates(l_line_rec);
1121: l_line_tbl(l_index).service_start_date := l_line_rec.service_start_date;
1122: l_line_tbl(l_index).service_end_date := l_line_rec.service_end_date;
1123: IF l_debug_level > 0 THEN
1124: oe_debug_pub.add( 'AFTER CALLING UPDATE_SERVICE_DATES - ASO INSTALLED' , 5 ) ;
1125: END IF;
1126: END IF;
1127:
1128: -- added for notification framework
1135: p_line_id => p_line_tbl(l_index).line_id,
1136: x_index => l_notify_index,
1137: x_return_status => l_return_status);
1138: IF l_debug_level > 0 THEN
1139: oe_debug_pub.add('Update_global return status from fulfill_line with line table is: '||l_return_status);
1140: END IF;
1141: IF l_debug_level > 0 THEN
1142: oe_debug_pub.add( 'GLOBAL PICTURE INDEX IS: ' || L_NOTIFY_INDEX , 1 ) ;
1143: END IF;
1138: IF l_debug_level > 0 THEN
1139: oe_debug_pub.add('Update_global return status from fulfill_line with line table is: '||l_return_status);
1140: END IF;
1141: IF l_debug_level > 0 THEN
1142: oe_debug_pub.add( 'GLOBAL PICTURE INDEX IS: ' || L_NOTIFY_INDEX , 1 ) ;
1143: END IF;
1144: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1145: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1146: END IF;
1168: -- Changes for AFD
1169: OE_ORDER_UTIL.g_line_tbl(l_notify_index).actual_fulfillment_date := l_actual_fulfillment_date;
1170: -- end Changes for AFD
1171: IF l_debug_level > 0 THEN
1172: oe_debug_pub.add('Line fulfilled_flag is: '||OE_ORDER_UTIL.G_LINE_TBL(L_NOTIFY_INDEX).FULFILLED_FLAG,1);
1173: END IF;
1174: END IF;
1175: END IF; --code_release_level
1176: -- notification framework end
1189: close srv_lines;
1190: IF l_line_rec.item_type_code = OE_GLOBALS.G_ITEM_SERVICE THEN -- 2417601
1191: Update_Service_Dates(l_line_rec);
1192: IF l_debug_level > 0 THEN
1193: oe_debug_pub.add('After calling update_service_dates - aso not installed',5) ;
1194: END IF;
1195: END IF;
1196: END IF; /* IF OE_GLOBALS.G_ASO_INSTALLED */
1197:
1195: END IF;
1196: END IF; /* IF OE_GLOBALS.G_ASO_INSTALLED */
1197:
1198: IF l_debug_level > 0 THEN
1199: oe_debug_pub.add('Updating line : '||p_line_tbl(l_index).line_id,3) ;
1200: END IF;
1201:
1202: -- IF l_line_rec.item_type_code = OE_GLOBALS.G_ITEM_SERVICE THEN --3471423
1203: IF p_line_tbl(l_index).item_type_code = OE_GLOBALS.G_ITEM_SERVICE THEN --3471423
1228: l_Service_Order_Lines(1).Order_Line_ID := p_line_tbl(l_index).line_id;
1229: l_Service_Order_Lines(1).Order_Number := l_order_number;
1230: l_Service_Order_Lines(1).Ref_Order_Line_ID := p_line_tbl(l_index).service_reference_line_id;
1231: IF l_debug_level > 0 THEN
1232: oe_debug_pub.add('Calling OKS_OMINT_PUB.Interface_Service_Order_Lines:LineID:'
1233: || p_line_tbl(l_index).line_id,3) ;
1234: END IF;
1235:
1236: OKS_OMINT_PUB.Interface_Service_Order_Lines(
1238: x_Return_Status => l_return_status,
1239: x_Error_Message => l_msg_data);
1240:
1241: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1242: oe_debug_pub.add('FND_API.G_RET_STS_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1243: oe_debug_pub.add('l_msg_data' || l_msg_data);
1244: RAISE FND_API.G_EXC_ERROR;
1245: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1246: oe_debug_pub.add('FND_API.G_RET_STS_UNEXP_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1239: x_Error_Message => l_msg_data);
1240:
1241: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1242: oe_debug_pub.add('FND_API.G_RET_STS_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1243: oe_debug_pub.add('l_msg_data' || l_msg_data);
1244: RAISE FND_API.G_EXC_ERROR;
1245: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1246: oe_debug_pub.add('FND_API.G_RET_STS_UNEXP_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1247: oe_debug_pub.add('l_msg_data' || l_msg_data);
1242: oe_debug_pub.add('FND_API.G_RET_STS_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1243: oe_debug_pub.add('l_msg_data' || l_msg_data);
1244: RAISE FND_API.G_EXC_ERROR;
1245: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1246: oe_debug_pub.add('FND_API.G_RET_STS_UNEXP_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1247: oe_debug_pub.add('l_msg_data' || l_msg_data);
1248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1249: END IF;
1250: /* End Improved OM,IB,OKS changes */
1243: oe_debug_pub.add('l_msg_data' || l_msg_data);
1244: RAISE FND_API.G_EXC_ERROR;
1245: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1246: oe_debug_pub.add('FND_API.G_RET_STS_UNEXP_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1247: oe_debug_pub.add('l_msg_data' || l_msg_data);
1248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1249: END IF;
1250: /* End Improved OM,IB,OKS changes */
1251:
1272: IF OE_CODE_CONTROL.Code_Release_Level >= '110509' THEN
1273: -- Bug 3061559
1274: -- Use p_line_tbl, not l_line_tbl.
1275: if l_debug_level > 0 then
1276: oe_debug_pub.add('OEXVFULB 2, blanket number :'|| p_line_tbl(l_index).blanket_number);
1277: oe_debug_pub.add('Line ID : '|| p_line_tbl(l_index).line_id);
1278: oe_debug_pub.add('Fulfilled Qty : '|| p_line_tbl(l_index).fulfilled_quantity);
1279: oe_debug_pub.add('Fulfilled Qty2 : '|| p_line_tbl(l_index).fulfilled_quantity2); -- 5126873
1280: oe_debug_pub.add('Item Type : '|| p_line_tbl(l_index).item_type_code);
1273: -- Bug 3061559
1274: -- Use p_line_tbl, not l_line_tbl.
1275: if l_debug_level > 0 then
1276: oe_debug_pub.add('OEXVFULB 2, blanket number :'|| p_line_tbl(l_index).blanket_number);
1277: oe_debug_pub.add('Line ID : '|| p_line_tbl(l_index).line_id);
1278: oe_debug_pub.add('Fulfilled Qty : '|| p_line_tbl(l_index).fulfilled_quantity);
1279: oe_debug_pub.add('Fulfilled Qty2 : '|| p_line_tbl(l_index).fulfilled_quantity2); -- 5126873
1280: oe_debug_pub.add('Item Type : '|| p_line_tbl(l_index).item_type_code);
1281: end if;
1274: -- Use p_line_tbl, not l_line_tbl.
1275: if l_debug_level > 0 then
1276: oe_debug_pub.add('OEXVFULB 2, blanket number :'|| p_line_tbl(l_index).blanket_number);
1277: oe_debug_pub.add('Line ID : '|| p_line_tbl(l_index).line_id);
1278: oe_debug_pub.add('Fulfilled Qty : '|| p_line_tbl(l_index).fulfilled_quantity);
1279: oe_debug_pub.add('Fulfilled Qty2 : '|| p_line_tbl(l_index).fulfilled_quantity2); -- 5126873
1280: oe_debug_pub.add('Item Type : '|| p_line_tbl(l_index).item_type_code);
1281: end if;
1282: IF p_line_tbl(l_index).blanket_number IS NOT NULL THEN
1275: if l_debug_level > 0 then
1276: oe_debug_pub.add('OEXVFULB 2, blanket number :'|| p_line_tbl(l_index).blanket_number);
1277: oe_debug_pub.add('Line ID : '|| p_line_tbl(l_index).line_id);
1278: oe_debug_pub.add('Fulfilled Qty : '|| p_line_tbl(l_index).fulfilled_quantity);
1279: oe_debug_pub.add('Fulfilled Qty2 : '|| p_line_tbl(l_index).fulfilled_quantity2); -- 5126873
1280: oe_debug_pub.add('Item Type : '|| p_line_tbl(l_index).item_type_code);
1281: end if;
1282: IF p_line_tbl(l_index).blanket_number IS NOT NULL THEN
1283: Update_Blanket_Qty(p_line_tbl(l_index)
1276: oe_debug_pub.add('OEXVFULB 2, blanket number :'|| p_line_tbl(l_index).blanket_number);
1277: oe_debug_pub.add('Line ID : '|| p_line_tbl(l_index).line_id);
1278: oe_debug_pub.add('Fulfilled Qty : '|| p_line_tbl(l_index).fulfilled_quantity);
1279: oe_debug_pub.add('Fulfilled Qty2 : '|| p_line_tbl(l_index).fulfilled_quantity2); -- 5126873
1280: oe_debug_pub.add('Item Type : '|| p_line_tbl(l_index).item_type_code);
1281: end if;
1282: IF p_line_tbl(l_index).blanket_number IS NOT NULL THEN
1283: Update_Blanket_Qty(p_line_tbl(l_index)
1284: ,p_line_tbl(l_index).fulfilled_quantity);
1285: END IF;
1286: END IF;
1287:
1288: IF p_line_tbl(l_index).item_type_code <> OE_GLOBALS.G_ITEM_SERVICE THEN
1289: oe_debug_pub.add('Before Call to csi_ont_txn_pub.posttransaction',1);
1290: csi_ont_txn_pub.posttransaction(
1291: p_order_line_id => p_line_tbl(l_index).line_id,
1292: x_return_status => x_return_status,
1293: x_message_id => l_message_id,
1292: x_return_status => x_return_status,
1293: x_message_id => l_message_id,
1294: x_error_code => l_error_code,
1295: x_error_message => l_error_message);
1296: oe_debug_pub.add('After Call to csi_ont_txn_pub.posttransaction',1);
1297:
1298: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1299: IF l_debug_level > 0 THEN
1300: oe_debug_pub.add('raising unexpected error in csi_ont_txn_pub.posttransaction '||sqlerrm,1);
1296: oe_debug_pub.add('After Call to csi_ont_txn_pub.posttransaction',1);
1297:
1298: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1299: IF l_debug_level > 0 THEN
1300: oe_debug_pub.add('raising unexpected error in csi_ont_txn_pub.posttransaction '||sqlerrm,1);
1301: END IF;
1302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1303: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1304: IF l_debug_level > 0 THEN
1301: END IF;
1302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1303: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1304: IF l_debug_level > 0 THEN
1305: oe_debug_pub.add('raising exc error in csi_ont_txn_pub.posttransaction '||sqlerrm,1);
1306: END IF;
1307: RAISE FND_API.G_EXC_ERROR;
1308: END IF;
1309: END IF;
1312:
1313: END IF;
1314:
1315: /* Commented for performance changes.
1316: oe_debug_pub.ADD('Calling OE_Order_PVT.Process_Order to update the fulfilled quantity and fulfilled flag',2);
1317:
1318: OE_GLOBALS.G_RECURSION_MODE := 'Y';
1319: OE_Shipping_Integration_PVT.Call_Process_Order
1320: (
1324: );
1325:
1326: OE_GLOBALS.G_RECURSION_MODE := 'N';
1327:
1328: oe_debug_pub.add('Return Status from Process Order : '||l_return_status,2);
1329:
1330: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1332: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1338:
1339: -- #2769599
1340: IF (nvl(oe_order_cache.g_header_rec.header_id,-999)<>p_line_rec.header_id) THEN
1341: IF l_debug_level > 0 THEN
1342: OE_DEBUG_PUB.add('Loading header rec from cache : ',5);
1343: END IF;
1344: OE_Order_Cache.Load_Order_Header(p_line_rec.header_id);
1345: END IF;
1346: IF l_debug_level > 0 THEN
1343: END IF;
1344: OE_Order_Cache.Load_Order_Header(p_line_rec.header_id);
1345: END IF;
1346: IF l_debug_level > 0 THEN
1347: OE_DEBUG_PUB.add('Cached header id: '||to_char(oe_order_cache.g_header_rec.header_id), 5);
1348: END IF;
1349: OE_Order_PVT.Process_Requests_And_Notify
1350: ( p_process_requests => FALSE
1351: , p_notify => TRUE
1355: );
1356:
1357:
1358: IF l_debug_level > 0 THEN
1359: oe_debug_pub.add( 'RETURNED FROM PROCESS REQUEST AND NOTIFY : '||L_RETURN_STATUS , 3 ) ;
1360: END IF;
1361: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1362: RAISE FND_API.G_EXC_ERROR;
1363: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1380: ,p_old_line_tbl => l_aso_line_tbl
1381: );
1382:
1383: IF l_debug_level > 0 THEN
1384: oe_debug_pub.add('returned from process request and notify : '||l_return_status,3) ;
1385: END IF;
1386:
1387: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1388: RAISE FND_API.G_EXC_ERROR;
1394: END IF; /* ASO and DBI check for Pack H and higher */
1395:
1396: END IF; --code_release_level
1397: IF l_debug_level > 0 THEN
1398: oe_debug_pub.add('Exiting oe_line_fullfill.fulfill_line()',1) ;
1399: END IF;
1400: x_return_status := FND_API.G_RET_STS_SUCCESS;
1401:
1402: EXCEPTION
1401:
1402: EXCEPTION
1403: WHEN CAN_NOT_LOCK_MODEL THEN
1404: IF l_debug_level > 0 THEN
1405: oe_debug_pub.add( 'OEXVFULB.pls:Fulfill_line API- MODEL LOCKING EXCEPTION' , 1 ) ;
1406: END IF;
1407: x_return_status := 'D';
1408:
1409: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1407: x_return_status := 'D';
1408:
1409: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1410: IF l_debug_level > 0 THEN
1411: oe_debug_pub.add('Unexp Error'||sqlerrm,1);
1412: END IF;
1413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1414: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1415: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Fulfill_Line');
1416: END IF;
1417: G_DEBUG_MSG := G_DEBUG_MSG || 'E6,';
1418: WHEN FND_API.G_EXC_ERROR THEN
1419: IF l_debug_level > 0 THEN
1420: oe_debug_pub.add('EXC Error '||sqlerrm,1);
1421: END IF;
1422: x_return_status := FND_API.G_RET_STS_ERROR;
1423: WHEN OTHERS THEN
1424: IF l_debug_level > 0 THEN
1421: END IF;
1422: x_return_status := FND_API.G_RET_STS_ERROR;
1423: WHEN OTHERS THEN
1424: IF l_debug_level > 0 THEN
1425: oe_debug_pub.add('Error '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
1426: END IF;
1427: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1428: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1429: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Fulfill_Line');
1452: l_errname VARCHAR2(30);
1453: l_errmsg VARCHAR2(2000);
1454: l_errstack VARCHAR2(2000);
1455: --
1456: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1457: --
1458: BEGIN
1459: x_attribute_value := wf_engine.GetActivityAttrText(p_item_type,p_item_key,p_activity_id,p_fulfill_attr_name);
1460:
1462:
1463: EXCEPTION
1464: WHEN OTHERS THEN
1465: IF l_debug_level > 0 THEN
1466: oe_debug_pub.add( 'WORK FLOW ERROR HAS OCCURED ' , 1 ) ;
1467: END IF;
1468: WF_CORE.Get_Error(l_errname, l_errmsg, l_errstack);
1469: IF l_errname = 'WFENG_ACTIVITY_ATTR' THEN
1470: IF l_debug_level > 0 THEN
1467: END IF;
1468: WF_CORE.Get_Error(l_errname, l_errmsg, l_errstack);
1469: IF l_errname = 'WFENG_ACTIVITY_ATTR' THEN
1470: IF l_debug_level > 0 THEN
1471: oe_debug_pub.add( 'ERROR MESSAGE '||L_ERRMSG , 1 ) ;
1472: END IF;
1473: x_attribute_value := 'NONE';
1474: x_return_status := FND_API.G_RET_STS_SUCCESS;
1475: ELSE
1499: )
1500: IS
1501: l_upgraded_flag VARCHAR2(1);
1502: --
1503: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1504: --
1505: BEGIN
1506:
1507: IF l_debug_level > 0 THEN
1504: --
1505: BEGIN
1506:
1507: IF l_debug_level > 0 THEN
1508: oe_debug_pub.add( 'ENTERING OE_LINE_FULLFILL.GET_ACTIVITY_RESULT '|| P_ITEM_TYPE||'/'||P_ITEM_KEY||'/'||P_ACTIVITY_NAME , 1 ) ;
1509: END IF;
1510:
1511: SELECT wias.ACTIVITY_STATUS, wias.ACTIVITY_RESULT_CODE, wias.PROCESS_ACTIVITY
1512: INTO x_activity_status_code, x_activity_result, x_activity_id
1518:
1519: x_return_status := FND_API.G_RET_STS_SUCCESS;
1520:
1521: IF l_debug_level > 0 THEN
1522: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.GET_ACTIVITY_RESULT '||X_ACTIVITY_RESULT||'/'||X_RETURN_STATUS , 1 ) ;
1523: END IF;
1524:
1525: EXCEPTION
1526: WHEN NO_DATA_FOUND THEN
1550: 'Get_Activity_Result'
1551: );
1552: END IF;
1553: IF l_debug_level > 0 THEN
1554: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
1555: END IF;
1556: G_DEBUG_MSG := G_DEBUG_MSG || '35,';
1557:
1558: END Get_Activity_Result;
1595:
1596: l_line_set_exists VARCHAR2(1) := FND_API.G_FALSE;
1597:
1598: --
1599: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1600: --
1601: BEGIN
1602:
1603: IF l_debug_level > 0 THEN
1600: --
1601: BEGIN
1602:
1603: IF l_debug_level > 0 THEN
1604: oe_debug_pub.add( 'ENTERING OE_LINE_FULLFILL.GET_FULFILLMENT_SET '|| TO_CHAR ( P_LINE_ID ) , 1 ) ;
1605: END IF;
1606:
1607:
1608:
1610: LOOP
1611:
1612: l_set_id := l_set.set_id;
1613: IF l_debug_level > 0 THEN
1614: oe_debug_pub.add( 'SET ID : '||TO_CHAR ( L_SET_ID ) , 3 ) ;
1615: END IF;
1616:
1617: IF g_set_tbl.EXISTS(l_set_id) THEN
1618: GOTO END_SET_LOOP;
1619: END IF;
1620:
1621: g_set_tbl(l_set_id) := l_set_id;
1622: IF l_debug_level > 0 THEN
1623: oe_debug_pub.add( 'SET ID ADDED : '||TO_CHAR ( L_SET_ID ) , 3 ) ;
1624: END IF;
1625:
1626: FOR l_line_set in c_line_set
1627: LOOP
1631:
1632: IF l_temp_tbl(l_temp_index).line_id = l_line_set.line_id AND
1633: l_temp_tbl(l_temp_index).set_id = l_set_id THEN
1634: IF l_debug_level > 0 THEN
1635: oe_debug_pub.add( 'LINE EXISTS FOR COMBINATION' , 3 ) ;
1636: END IF;
1637: l_line_set_exists := FND_API.G_TRUE;
1638: GOTO END_LINE_SET;
1639:
1648: l_temp_index := l_temp_tbl.count + 1;
1649: l_temp_tbl(l_temp_index).line_id := l_line_set.line_id;
1650: l_temp_tbl(l_temp_index).set_id := l_line_set.set_id;
1651: IF l_debug_level > 0 THEN
1652: 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);
1653: END IF;
1654: END IF;
1655:
1656: IF l_line_set.line_id <> p_line_id THEN
1663: );
1664:
1665:
1666: IF l_debug_level > 0 THEN
1667: oe_debug_pub.add( 'NUMBER OF ROWS RETURNED : '||L_SET_TBL.COUNT , 3 ) ;
1668: END IF;
1669:
1670: IF l_set_tbl.COUNT > 0 THEN
1671: l_loop_index := 0;
1678:
1679: IF l_temp_tbl(l_temp_index).line_id = l_set_tbl(l_loop_index).line_id AND
1680: l_temp_tbl(l_temp_index).set_id = l_set_tbl(l_loop_index).set_id THEN
1681: IF l_debug_level > 0 THEN
1682: oe_debug_pub.add( 'LINE EXISTS FOR COMBINATION' , 3 ) ;
1683: END IF;
1684: l_line_set_exists := FND_API.G_TRUE;
1685: GOTO END_LINE_SET1;
1686:
1694: l_temp_index := l_temp_tbl.count + 1;
1695: l_temp_tbl(l_temp_index).line_id := l_set_tbl(l_loop_index).line_id;
1696: l_temp_tbl(l_temp_index).set_id := l_set_tbl(l_loop_index).set_id;
1697: IF l_debug_level > 0 THEN
1698: 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);
1699: END IF;
1700: END IF;
1701: END LOOP;
1702: END IF;
1710:
1711: l_set_index := l_temp_tbl.FIRST;
1712: l_loop_index := 0;
1713: IF l_debug_level>0 THEN
1714: oe_debug_pub.add('SET table picture',5);
1715: END IF;
1716:
1717: WHILE l_set_index IS NOT NULL
1718: LOOP
1721: x_set_tbl(l_loop_index).line_id := l_temp_tbl(l_set_index).line_id;
1722: x_set_tbl(l_loop_index).set_id := l_temp_tbl(l_set_index).set_id;
1723: l_set_index := l_temp_tbl.NEXT(l_set_index);
1724: IF l_debug_level > 0 THEN
1725: 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 ) ;
1726: END IF;
1727:
1728: END LOOP;
1729:
1728: END LOOP;
1729:
1730: x_return_status := FND_API.G_RET_STS_SUCCESS;
1731: IF l_debug_level > 0 THEN
1732: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.GET_FULFILLMENT_SET ' , 3 ) ;
1733: END IF;
1734:
1735: EXCEPTION
1736: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1734:
1735: EXCEPTION
1736: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1737: IF l_debug_level > 0 THEN
1738: oe_debug_pub.add('Unexp Error '||sqlerrm,1);
1739: END IF;
1740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1741:
1742: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1749: G_DEBUG_MSG := G_DEBUG_MSG || 'E10,';
1750:
1751: WHEN FND_API.G_EXC_ERROR THEN
1752: IF l_debug_level > 0 THEN
1753: oe_debug_pub.add('Exc Error '||sqlerrm,1);
1754: END IF;
1755: x_return_status := FND_API.G_RET_STS_ERROR;
1756: WHEN OTHERS THEN
1757: IF l_debug_level > 0 THEN
1754: END IF;
1755: x_return_status := FND_API.G_RET_STS_ERROR;
1756: WHEN OTHERS THEN
1757: IF l_debug_level > 0 THEN
1758: oe_debug_pub.add('error '||SUBSTR(SQLERRM,1,2000),1);
1759: END IF;
1760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1761: IF l_debug_level > 0 THEN
1762: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
1758: oe_debug_pub.add('error '||SUBSTR(SQLERRM,1,2000),1);
1759: END IF;
1760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1761: IF l_debug_level > 0 THEN
1762: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
1763: END IF;
1764:
1765: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1766: THEN
1803: l_activity_id NUMBER;
1804: l_return_status VARCHAR2(1);
1805: l_line_category_code VARCHAR2(30);
1806: --
1807: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1808: l_upgraded_flag VARCHAR2(1); -- bug 3589692
1809: BEGIN
1810:
1811: IF l_debug_level > 0 THEN
1808: l_upgraded_flag VARCHAR2(1); -- bug 3589692
1809: BEGIN
1810:
1811: IF l_debug_level > 0 THEN
1812: oe_debug_pub.add( 'ENTERING OE_LINE_FULLFILL.GET_FULFILLMENT_ACTIVITY '|| P_ITEM_KEY , 1 ) ;
1813: END IF;
1814:
1815:
1816: select line_category_code into l_line_category_code
1822: l_result_attr_name := l_in_result_attr_name;
1823: END IF;
1824:
1825: IF l_debug_level > 0 THEN
1826: oe_debug_pub.add( 'CALLING GET ATTRIBUTE - ACTIVITY ' , 3 ) ;
1827: END IF;
1828: Get_Activity_Attribute
1829: (
1830: p_item_type => l_item_type,
1847: l_fulfill_activity_name := 'NO_ACTIVITY';
1848: END IF;
1849:
1850: IF l_debug_level > 0 THEN
1851: oe_debug_pub.add( 'FULFILLMENT ACTIVITY NAME : '|| L_FULFILL_ACTIVITY_NAME , 3 ) ;
1852: END IF;
1853: IF l_fulfill_activity_name <> 'NO_ACTIVITY' THEN
1854:
1855: IF l_debug_level > 0 THEN
1852: END IF;
1853: IF l_fulfill_activity_name <> 'NO_ACTIVITY' THEN
1854:
1855: IF l_debug_level > 0 THEN
1856: oe_debug_pub.add( 'CALLING GET ATTRIBUTE - RESULT ' , 3 ) ;
1857: END IF;
1858:
1859:
1860: Get_Activity_Attribute
1879: ELSE
1880:
1881:
1882: IF l_debug_level > 0 THEN
1883: oe_debug_pub.add( 'REQUIRED COMPLETION RESULT : '|| L_COMPLETION_RESULT , 3 ) ;
1884: END IF;
1885:
1886: IF l_debug_level > 0 THEN
1887: oe_debug_pub.add( 'CALLING GET_ACTIVITY_STATUS ' , 3 ) ;
1883: oe_debug_pub.add( 'REQUIRED COMPLETION RESULT : '|| L_COMPLETION_RESULT , 3 ) ;
1884: END IF;
1885:
1886: IF l_debug_level > 0 THEN
1887: oe_debug_pub.add( 'CALLING GET_ACTIVITY_STATUS ' , 3 ) ;
1888: END IF;
1889:
1890: Get_Activity_Result
1891: (
1948: x_return_status := FND_API.G_RET_STS_ERROR;
1949: WHEN OTHERS THEN
1950: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1951: IF l_debug_level > 0 THEN
1952: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
1953: END IF;
1954:
1955: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1956: THEN
1991: l_return_status VARCHAR2(1);
1992: l_fulfill_status VARCHAR2(1) := FND_API.G_TRUE;
1993:
1994: --
1995: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1996: --
1997: BEGIN
1998:
1999: IF l_debug_level > 0 THEN
1996: --
1997: BEGIN
1998:
1999: IF l_debug_level > 0 THEN
2000: oe_debug_pub.add( 'ENTERING OE_LINE_FULLFILL.CHECK_PTO_KIT_FULFILLMENT '|| TO_CHAR ( P_TOP_MODEL_LINE_ID ) , 1 ) ;
2001: END IF;
2002:
2003:
2004: l_top_model_line_id := p_top_model_line_id;
2008:
2009: l_item_key := to_char(l_top_lines.line_id);
2010:
2011: IF l_debug_level > 0 THEN
2012: oe_debug_pub.add( 'CALLING GET ACTIVITY RESULT FOR ITEM : '||L_ITEM_KEY||'/'||L_FULFILL_ACTIVITY , 3 ) ;
2013: END IF;
2014:
2015: Get_Activity_Result
2016: (
2023: , x_activity_id => l_activity_id
2024: );
2025:
2026: IF l_debug_level > 0 THEN
2027: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS||'/'||L_ACTIVITY_STATUS , 3 ) ;
2028: END IF;
2029:
2030: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2031: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2032: ELSIF l_return_status = FND_API.G_RET_STS_ERROR OR
2033: l_activity_status <> 'NOTIFIED' THEN
2034: l_fulfill_status := FND_API.G_FALSE;
2035: IF l_debug_level > 0 THEN
2036: oe_debug_pub.add( 'LINE IS NOT FULFILLED : '||TO_CHAR ( L_TOP_LINES.LINE_ID ) , 3 ) ;
2037: END IF;
2038: GOTO END_CHECK_LOOP;
2039: END IF;
2040:
2046: x_fulfill_status := l_fulfill_status;
2047: x_return_status := FND_API.G_RET_STS_SUCCESS;
2048:
2049: IF l_debug_level > 0 THEN
2050: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.CHECK_PTO_KIT_FULFILLMENT '||L_FULFILL_STATUS||'/'||X_RETURN_STATUS , 1 ) ;
2051: END IF;
2052:
2053: EXCEPTION
2054:
2069: G_DEBUG_MSG := G_DEBUG_MSG || 'E14-2,';
2070: WHEN OTHERS THEN
2071: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2072: IF l_debug_level > 0 THEN
2073: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
2074: END IF;
2075:
2076: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2077: THEN
2097: l_index NUMBER;
2098: --Changes for AFD
2099: l_ordered_date DATE;
2100: --
2101: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2102: --
2103: CAN_NOT_LOCK_MODEL EXCEPTION;
2104:
2105: CURSOR C_fulfill_lines IS
2111: AND OPEN_FLAG = 'Y';
2112: BEGIN
2113:
2114: IF l_debug_level > 0 THEN
2115: oe_debug_pub.add('Entering oe_line_fullfill.fulfill_pto_kit() '||to_char(p_top_model_line_id),1) ;
2116: END IF;
2117:
2118: l_top_model_line_id := p_top_model_line_id;
2119: FOR l_top_lines IN c_fulfill_lines LOOP
2118: l_top_model_line_id := p_top_model_line_id;
2119: FOR l_top_lines IN c_fulfill_lines LOOP
2120: IF nvl(l_top_lines.fulfilled_flag,'N') = 'N' THEN
2121: IF l_debug_level > 0 THEN
2122: oe_debug_pub.add('line is not fulfilled '||l_top_lines.line_id,3) ;
2123: END IF;
2124: OE_Line_Util.Lock_Rows
2125: (p_line_id => l_top_lines.line_id
2126: ,x_line_tbl => l_old_line_tbl
2169: p_line_id =>l_line_tbl(1).line_id ,
2170: x_index => l_index,
2171: x_return_status => l_return_status);
2172: IF l_debug_level > 0 THEN
2173: oe_debug_pub.add('update_global return status for line ID '||L_LINE_TBL(1).LINE_ID||'IS:'||l_return_status,1) ;
2174: oe_debug_pub.add('update_global index in fulfill_pto_kit for line_id '||l_line_tbl(1).LINE_ID ||' is: '||l_index,1);
2175: END IF;
2176: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2177: RAISE FND_API.G_EXC_ERROR;
2170: x_index => l_index,
2171: x_return_status => l_return_status);
2172: IF l_debug_level > 0 THEN
2173: oe_debug_pub.add('update_global return status for line ID '||L_LINE_TBL(1).LINE_ID||'IS:'||l_return_status,1) ;
2174: oe_debug_pub.add('update_global index in fulfill_pto_kit for line_id '||l_line_tbl(1).LINE_ID ||' is: '||l_index,1);
2175: END IF;
2176: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2177: RAISE FND_API.G_EXC_ERROR;
2178: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2191: -- Changes for AFD
2192: OE_ORDER_UTIL.g_line_tbl(l_index).actual_fulfillment_date := l_line_tbl(1).actual_fulfillment_date;
2193: -- end Changes for AFD
2194: IF l_debug_level > 0 THEN
2195: oe_debug_pub.add('global line fulfilled_flag is: '||OE_ORDER_UTIL.G_LINE_TBL(l_index).fulfilled_flag,1) ;
2196: END IF;
2197: END IF;
2198:
2199:
2218:
2219: -- #2769599
2220: IF (nvl(oe_order_cache.g_header_rec.header_id,-999)<>l_top_lines.header_id) THEN
2221: IF l_debug_level > 0 THEN
2222: OE_DEBUG_PUB.add('Loading header rec from cache : ',5);
2223: END IF;
2224: OE_Order_Cache.Load_Order_Header(l_top_lines.header_id);
2225: END IF;
2226: IF l_debug_level > 0 THEN
2223: END IF;
2224: OE_Order_Cache.Load_Order_Header(l_top_lines.header_id);
2225: END IF;
2226: IF l_debug_level > 0 THEN
2227: OE_DEBUG_PUB.add('Cached header id: '||to_char(oe_order_cache.g_header_rec.header_id), 5);
2228: END IF;
2229: OE_Order_PVT.Process_Requests_And_Notify
2230: ( p_process_requests => FALSE
2231: , p_notify => TRUE
2250: x_return_status => l_return_status
2251: );
2252:
2253: IF l_debug_level > 0 THEN
2254: oe_debug_pub.add('Return status from flow status '||l_return_status,3) ;
2255: END IF;
2256: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2258: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2258: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2259: RAISE FND_API.G_EXC_ERROR;
2260: END IF;
2261: IF l_debug_level > 0 THEN
2262: oe_debug_pub.add('Fulfill associated service lines' , 3 ) ;
2263: END IF;
2264:
2265: Fulfill_Service_Lines
2266: (
2269: x_return_status => l_return_status
2270: );
2271:
2272: IF l_debug_level > 0 THEN
2273: oe_debug_pub.add('Return status from fulfill service lines '||l_return_status , 3 ) ;
2274: END IF;
2275:
2276: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2277: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2278: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2279: RAISE FND_API.G_EXC_ERROR;
2280: END IF;
2281: IF l_debug_level > 0 THEN
2282: oe_debug_pub.add('Calling wf_engine.completeactivityinternalname '||to_char(l_top_lines.line_id),3) ;
2283: END IF;
2284: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_top_lines.line_id), 'FULFILL_LINE', '#NULL');
2285: IF l_debug_level > 0 THEN
2286: oe_debug_pub.add('returned from wf_engine.completeactivityinternalname '||to_char ( l_top_lines.line_id ) , 3 ) ;
2282: oe_debug_pub.add('Calling wf_engine.completeactivityinternalname '||to_char(l_top_lines.line_id),3) ;
2283: END IF;
2284: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_top_lines.line_id), 'FULFILL_LINE', '#NULL');
2285: IF l_debug_level > 0 THEN
2286: oe_debug_pub.add('returned from wf_engine.completeactivityinternalname '||to_char ( l_top_lines.line_id ) , 3 ) ;
2287: END IF;
2288:
2289: END LOOP;
2290:
2290:
2291: x_return_status := FND_API.G_RET_STS_SUCCESS;
2292:
2293: IF l_debug_level > 0 THEN
2294: oe_debug_pub.add('Exiting oe_line_fullfill.fulfill_pto_kit '||x_return_status,3) ;
2295: END IF;
2296:
2297: EXCEPTION
2298:
2297: EXCEPTION
2298:
2299: WHEN CAN_NOT_LOCK_MODEL THEN
2300: IF l_debug_level > 0 THEN
2301: oe_debug_pub.add( 'OEXVSHPB.pls:Fulfill_PTO_KIT-MODEL LOCKING EXCEPTION', 1 ) ;
2302: END IF;
2303: x_return_status := 'D' ;
2304:
2305: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2313: G_DEBUG_MSG := G_DEBUG_MSG || 'E16,';
2314: WHEN OTHERS THEN
2315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2316: IF l_debug_level > 0 THEN
2317: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
2318: END IF;
2319: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2320: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'Fulfill_PTO_KIT');
2321: END IF;
2362: l_fulfill_activity VARCHAR2(30) := 'FULFILL_LINE';
2363: l_count NUMBER;
2364: l_item_type_code VARCHAR2(30);
2365: l_ato_line_id NUMBER;
2366: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2367: -- 4640517
2368: x_msg_count NUMBER;
2369: x_msg_data VARCHAR2(2000);
2370: l_hold_result_out VARCHAR2(30):= 'TRUE';
2389: --
2390: BEGIN
2391:
2392: IF l_debug_level > 0 THEN
2393: oe_debug_pub.add('enter Process_Pto_Kit() for line '||to_char(p_line_id),1);
2394: oe_debug_pub.add('fulfillment activity - '||p_fulfillment_activity,1);
2395: oe_debug_pub.add('process all - '||p_process_all,1);
2396: END IF;
2397:
2390: BEGIN
2391:
2392: IF l_debug_level > 0 THEN
2393: oe_debug_pub.add('enter Process_Pto_Kit() for line '||to_char(p_line_id),1);
2394: oe_debug_pub.add('fulfillment activity - '||p_fulfillment_activity,1);
2395: oe_debug_pub.add('process all - '||p_process_all,1);
2396: END IF;
2397:
2398: IF p_line_id = p_top_model_line_id THEN
2391:
2392: IF l_debug_level > 0 THEN
2393: oe_debug_pub.add('enter Process_Pto_Kit() for line '||to_char(p_line_id),1);
2394: oe_debug_pub.add('fulfillment activity - '||p_fulfillment_activity,1);
2395: oe_debug_pub.add('process all - '||p_process_all,1);
2396: END IF;
2397:
2398: IF p_line_id = p_top_model_line_id THEN
2399:
2397:
2398: IF p_line_id = p_top_model_line_id THEN
2399:
2400: IF l_debug_level > 0 THEN
2401: oe_debug_pub.add('model line is at fulfillment, top model is '||p_top_model_line_id,1);
2402: END IF;
2403:
2404: -- bug 3974488 changes starts
2405: IF l_debug_level > 0 THEN
2402: END IF;
2403:
2404: -- bug 3974488 changes starts
2405: IF l_debug_level > 0 THEN
2406: oe_debug_pub.add('Profile value OM: Allow Model Fulfillment = '||NVL(FND_PROFILE.VALUE('ONT_ALLOW_MODEL_FULFILL_WITHOUT_CONFIG'),'N'),1);
2407: END IF;
2408:
2409: IF NVL(FND_PROFILE.VALUE('ONT_ALLOW_MODEL_FULFILL_WITHOUT_CONFIG'),'N') = 'N' THEN
2410:
2421: FROM oe_order_lines
2422: WHERE line_id = p_line_id;
2423:
2424: IF l_debug_level > 0 THEN
2425: oe_debug_pub.add('No child lines yet for the model' , 1 ) ;
2426: END IF;
2427:
2428:
2429: IF p_fulfillment_activity = 'NO_ACTIVITY' THEN
2430:
2431: IF l_item_type_code = 'MODEL' THEN
2432:
2433: IF l_debug_level > 0 THEN
2434: oe_debug_pub.add( 'CAN NOT FULFILL MODEL YET!!' , 1 ) ;
2435: END IF;
2436:
2437: l_fulfilled_flag := FND_API.G_FALSE;
2438: GOTO END_PTO_KIT_LOOP;
2452: FOR l_pto_kit_lines IN pto_kit_lines
2453: LOOP
2454:
2455: IF l_debug_level > 0 THEN
2456: oe_debug_pub.add('line ID - '||to_char(l_pto_kit_lines.line_id),5);
2457: oe_debug_pub.add('item type/shippable - '||l_pto_kit_lines.item_type_code||'/'||l_pto_kit_lines.shippable_flag,5);
2458: END IF;
2459:
2460:
2453: LOOP
2454:
2455: IF l_debug_level > 0 THEN
2456: oe_debug_pub.add('line ID - '||to_char(l_pto_kit_lines.line_id),5);
2457: oe_debug_pub.add('item type/shippable - '||l_pto_kit_lines.item_type_code||'/'||l_pto_kit_lines.shippable_flag,5);
2458: END IF;
2459:
2460:
2461: IF l_pto_kit_lines.line_id <> p_line_id OR
2462: p_process_all = FND_API.G_TRUE THEN
2463: IF l_pto_kit_lines.fulfilled_flag = 'Y' THEN
2464: l_fulfilled_flag := FND_API.G_TRUE;
2465: IF l_debug_level > 0 THEN
2466: oe_debug_pub.add('line '||l_pto_kit_lines.line_id||' is already fulfilled ',5);
2467: END IF;
2468: ELSE
2469:
2470: l_item_key := to_char(l_pto_kit_lines.line_id);
2469:
2470: l_item_key := to_char(l_pto_kit_lines.line_id);
2471:
2472: IF l_debug_level > 0 THEN
2473: oe_debug_pub.add('call Get_Activity_Result() for item - '||l_item_key||'/'||l_fulfill_activity,5);
2474: END IF;
2475:
2476: Get_Activity_Result
2477: (
2484: , x_activity_id => l_activity_id
2485: );
2486:
2487: IF l_debug_level > 0 THEN
2488: oe_debug_pub.add('return status - '||l_return_status||'/'||l_activity_status,5);
2489: END IF;
2490:
2491: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2492: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2494: l_activity_status <> 'NOTIFIED' THEN
2495: l_fulfilled_flag := FND_API.G_FALSE;
2496: x_fulfillment_status := FND_API.G_FALSE;
2497: IF l_debug_level > 0 THEN
2498: oe_debug_pub.add('line '||l_pto_kit_lines.line_id||' is not fulfilled ',5);
2499: END IF;
2500: GOTO END_PTO_KIT_LOOP;
2501: END IF;
2502: -- 4640517, models with autoselected components are entered after the line is booked
2510: FROM oe_order_lines
2511: WHERE line_id = p_line_id;
2512:
2513: IF l_Debug_level > 0 THEN
2514: 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);
2515: END IF;
2516: IF l_pto_kit_lines.line_id = l_ato_line_id THEN
2517: IF l_debug_level > 0 THEN
2518: oe_debug_pub.add('Check if Model in configuration validation hold (hold ID 3) ' , 1 ) ;
2514: 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);
2515: END IF;
2516: IF l_pto_kit_lines.line_id = l_ato_line_id THEN
2517: IF l_debug_level > 0 THEN
2518: oe_debug_pub.add('Check if Model in configuration validation hold (hold ID 3) ' , 1 ) ;
2519: END IF;
2520:
2521: OE_HOLDS_PUB.CHECK_HOLDS
2522: ( p_api_version => 1.0,
2526: x_return_status => l_return_status,
2527: x_msg_count => x_msg_count,
2528: x_msg_data => x_msg_data);
2529:
2530: oe_debug_pub.add('after model check '||l_hold_result_out,1);
2531:
2532: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2533: IF l_hold_result_out = FND_API.G_TRUE THEN
2534: IF l_debug_level > 0 THEN
2531:
2532: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2533: IF l_hold_result_out = FND_API.G_TRUE THEN
2534: IF l_debug_level > 0 THEN
2535: oe_debug_pub.add('Model on Hold - CAN NOT FULFILL MODEL YET!!' , 1 ) ;
2536: END IF;
2537: l_fulfilled_flag := FND_API.G_FALSE;
2538: GOTO END_PTO_KIT_LOOP;
2539: END IF;
2547: will can be considered as fulfilled */
2548:
2549: l_fulfilled_flag := FND_API.G_TRUE;
2550: IF l_debug_level > 0 THEN
2551: oe_debug_pub.add( 'LINE IS FULFILLED : '||TO_CHAR ( L_PTO_KIT_LINES.LINE_ID ) , 3 ) ;
2552: END IF;
2553: END IF;
2554: END IF;
2555:
2560:
2561: x_fulfillment_status := l_fulfilled_flag;
2562: x_return_status := FND_API.G_RET_STS_SUCCESS;
2563: IF l_debug_level > 0 THEN
2564: oe_debug_pub.add('line is part of fulfillment set',1);
2565: END IF;
2566: RETURN;
2567: END IF;
2568:
2571: -- Prepare the table to update the fulfilled quantity and fulfilled
2572: -- flag for derived lines.
2573:
2574: IF l_debug_level > 0 THEN
2575: oe_debug_pub.add('now all the related lines are fulfilled',1);
2576: oe_debug_pub.add('call Query_Options() '||to_char(sysdate,'DD-MM-YYYY HH24:MI:SS'),5);
2577: END IF;
2578:
2579: OE_Config_Util.Query_Options(p_top_model_line_id => p_top_model_line_id,
2572: -- flag for derived lines.
2573:
2574: IF l_debug_level > 0 THEN
2575: oe_debug_pub.add('now all the related lines are fulfilled',1);
2576: oe_debug_pub.add('call Query_Options() '||to_char(sysdate,'DD-MM-YYYY HH24:MI:SS'),5);
2577: END IF;
2578:
2579: OE_Config_Util.Query_Options(p_top_model_line_id => p_top_model_line_id,
2580: x_line_tbl => l_line_tbl);
2578:
2579: OE_Config_Util.Query_Options(p_top_model_line_id => p_top_model_line_id,
2580: x_line_tbl => l_line_tbl);
2581: IF l_debug_level > 0 THEN
2582: oe_debug_pub.add('after Query_Options() '||to_char(sysdate,'DD-MM-YYYY HH24:MI:SS'),5);
2583: END IF;
2584:
2585:
2586: FOR l_line_index IN 1 .. l_line_tbl.count
2586: FOR l_line_index IN 1 .. l_line_tbl.count
2587: LOOP
2588:
2589: IF l_debug_level > 0 THEN
2590: 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);
2591: END IF;
2592: IF (l_line_tbl(l_line_index).line_id <> p_line_id OR
2593: p_process_all = FND_API.G_TRUE) AND
2594: nvl(l_line_tbl(l_line_index).fulfilled_flag,'N') <> 'Y' THEN
2617:
2618:
2619: l_fulfill_tbl(l_fulfill_index).operation := OE_GLOBALS.G_OPR_UPDATE;
2620: IF l_debug_level > 0 THEN
2621: oe_debug_pub.add('index - '||l_fulfill_index,5);
2622: oe_debug_pub.add('fulfilled flag - '||l_fulfill_tbl(l_fulfill_index).fulfilled_flag,5);
2623: oe_debug_pub.add('quantity - '||l_fulfill_tbl(l_fulfill_index).fulfilled_quantity,5);
2624: END IF;
2625: END IF;
2618:
2619: l_fulfill_tbl(l_fulfill_index).operation := OE_GLOBALS.G_OPR_UPDATE;
2620: IF l_debug_level > 0 THEN
2621: oe_debug_pub.add('index - '||l_fulfill_index,5);
2622: oe_debug_pub.add('fulfilled flag - '||l_fulfill_tbl(l_fulfill_index).fulfilled_flag,5);
2623: oe_debug_pub.add('quantity - '||l_fulfill_tbl(l_fulfill_index).fulfilled_quantity,5);
2624: END IF;
2625: END IF;
2626:
2619: l_fulfill_tbl(l_fulfill_index).operation := OE_GLOBALS.G_OPR_UPDATE;
2620: IF l_debug_level > 0 THEN
2621: oe_debug_pub.add('index - '||l_fulfill_index,5);
2622: oe_debug_pub.add('fulfilled flag - '||l_fulfill_tbl(l_fulfill_index).fulfilled_flag,5);
2623: oe_debug_pub.add('quantity - '||l_fulfill_tbl(l_fulfill_index).fulfilled_quantity,5);
2624: END IF;
2625: END IF;
2626:
2627: /* Get the service lines if there are any associated with the
2668: -- end changes for AFD
2669:
2670: l_fulfill_tbl(l_fulfill_index).operation := OE_GLOBALS.G_OPR_UPDATE;
2671: IF l_debug_level > 0 THEN
2672: oe_debug_pub.add('index - '||l_fulfill_index,5);
2673: oe_debug_pub.add('fulfilled flag - '||l_fulfill_tbl(l_fulfill_index).fulfilled_flag,5);
2674: oe_debug_pub.add('fulfilled quantity - '||l_fulfill_tbl(l_fulfill_index).fulfilled_quantity,5);
2675: END IF;
2676:
2669:
2670: l_fulfill_tbl(l_fulfill_index).operation := OE_GLOBALS.G_OPR_UPDATE;
2671: IF l_debug_level > 0 THEN
2672: oe_debug_pub.add('index - '||l_fulfill_index,5);
2673: oe_debug_pub.add('fulfilled flag - '||l_fulfill_tbl(l_fulfill_index).fulfilled_flag,5);
2674: oe_debug_pub.add('fulfilled quantity - '||l_fulfill_tbl(l_fulfill_index).fulfilled_quantity,5);
2675: END IF;
2676:
2677:
2670: l_fulfill_tbl(l_fulfill_index).operation := OE_GLOBALS.G_OPR_UPDATE;
2671: IF l_debug_level > 0 THEN
2672: oe_debug_pub.add('index - '||l_fulfill_index,5);
2673: oe_debug_pub.add('fulfilled flag - '||l_fulfill_tbl(l_fulfill_index).fulfilled_flag,5);
2674: oe_debug_pub.add('fulfilled quantity - '||l_fulfill_tbl(l_fulfill_index).fulfilled_quantity,5);
2675: END IF;
2676:
2677:
2678: /* Add to the fulfill service table for completing
2682: l_fulfill_service_tbl(l_fulfill_service_index).line_id := l_service_tbl(l_service_index).line_id;
2683: l_fulfill_service_tbl(l_fulfill_service_index).header_id := l_service_tbl(l_service_index).header_id;
2684:
2685: IF l_debug_level > 0 THEN
2686: oe_debug_pub.add('service fulfill index - '||l_fulfill_service_index,5);
2687: oe_debug_pub.add('line id - '||l_fulfill_service_tbl(l_fulfill_service_index).line_id,5);
2688: END IF;
2689:
2690: END LOOP;
2683: l_fulfill_service_tbl(l_fulfill_service_index).header_id := l_service_tbl(l_service_index).header_id;
2684:
2685: IF l_debug_level > 0 THEN
2686: oe_debug_pub.add('service fulfill index - '||l_fulfill_service_index,5);
2687: oe_debug_pub.add('line id - '||l_fulfill_service_tbl(l_fulfill_service_index).line_id,5);
2688: END IF;
2689:
2690: END LOOP;
2691:
2695:
2696: END LOOP;
2697:
2698: IF l_debug_level > 0 THEN
2699: oe_debug_pub.add('call Fulfill_Line() with full picture ',5);
2700: END IF;
2701:
2702: Fulfill_Line
2703: (
2708: x_return_status => l_return_status
2709: );
2710:
2711: IF l_debug_level > 0 THEN
2712: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL LINE : '||L_RETURN_STATUS , 3 ) ;
2713: END IF;
2714:
2715: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2716: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2727: p_process_all = FND_API.G_TRUE THEN
2728: l_line_id := l_line_tbl(l_line_index).line_id;
2729:
2730: IF l_debug_level > 0 THEN
2731: oe_debug_pub.add('update the flow status code on the lines ',5);
2732: END IF;
2733:
2734: OE_Order_WF_Util.Update_Flow_Status_Code
2735: (p_line_id => l_line_tbl(l_line_index).line_id,
2737: x_return_status => l_return_status
2738: );
2739:
2740: IF l_debug_level > 0 THEN
2741: oe_debug_pub.add('after update of flow status '||l_return_status,5);
2742: END IF;
2743:
2744: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2745: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2747: RAISE FND_API.G_EXC_ERROR;
2748: END IF;
2749:
2750: IF l_debug_level > 0 THEN
2751: oe_debug_pub.add('** complete the WF activity on this '||l_line_id,1);
2752: END IF;
2753: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_line_id), 'FULFILL_LINE', '#NULL');
2754: IF l_debug_level > 0 THEN
2755: oe_debug_pub.add('after wf complete ',5);
2751: oe_debug_pub.add('** complete the WF activity on this '||l_line_id,1);
2752: END IF;
2753: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_line_id), 'FULFILL_LINE', '#NULL');
2754: IF l_debug_level > 0 THEN
2755: oe_debug_pub.add('after wf complete ',5);
2756: END IF;
2757:
2758: END IF;
2759: END LOOP;
2758: END IF;
2759: END LOOP;
2760:
2761: IF l_debug_level > 0 THEN
2762: oe_debug_pub.add('*** process the service lines now ***',1);
2763: END IF;
2764:
2765: IF l_fulfill_service_index <> 0 THEN
2766:
2769: LOOP
2770: l_line_id := l_fulfill_service_tbl(l_fulfill_service_index).line_id;
2771:
2772: IF l_debug_level > 0 THEN
2773: oe_debug_pub.add('update flow status for - '||l_line_id,5);
2774: END IF;
2775:
2776: OE_Order_WF_Util.Update_Flow_Status_Code
2777: (p_line_id => l_fulfill_service_tbl(l_fulfill_service_index).line_id,
2779: x_return_status => l_return_status
2780: );
2781:
2782: IF l_debug_level > 0 THEN
2783: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
2784: END IF;
2785:
2786: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2787: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2789: RAISE FND_API.G_EXC_ERROR;
2790: END IF;
2791:
2792: IF l_debug_level > 0 THEN
2793: oe_debug_pub.add('call complete WF for this service line - '||l_line_id,5);
2794: END IF;
2795: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_line_id), 'FULFILL_LINE', '#NULL');
2796: IF l_debug_level > 0 THEN
2797: oe_debug_pub.add('after WF complete ',5);
2793: oe_debug_pub.add('call complete WF for this service line - '||l_line_id,5);
2794: END IF;
2795: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_line_id), 'FULFILL_LINE', '#NULL');
2796: IF l_debug_level > 0 THEN
2797: oe_debug_pub.add('after WF complete ',5);
2798: END IF;
2799:
2800: END LOOP;
2801:
2806: x_fulfillment_status := l_fulfilled_flag;
2807: x_return_status := FND_API.G_RET_STS_SUCCESS;
2808:
2809: IF l_debug_level > 0 THEN
2810: oe_debug_pub.add('** complete OE_Line_Fullfill.Process_PTO_Kit() ',1);
2811: END IF;
2812:
2813: EXCEPTION
2814: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2812:
2813: EXCEPTION
2814: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2815: IF l_debug_level > 0 THEN
2816: oe_debug_pub.add('*** 1. Error - '||SUBSTR(SQLERRM,1,200),1);
2817: END IF;
2818: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2819:
2820: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2822: END IF;
2823:
2824: WHEN FND_API.G_EXC_ERROR THEN
2825: IF l_debug_level > 0 THEN
2826: oe_debug_pub.add('*** 2. Error - '||SUBSTR(SQLERRM,1,200),1);
2827: END IF;
2828: x_return_status := FND_API.G_RET_STS_ERROR;
2829:
2830: WHEN OTHERS THEN
2829:
2830: WHEN OTHERS THEN
2831: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2832: IF l_debug_level > 0 THEN
2833: oe_debug_pub.add('*** 3. Error - '||SUBSTR(SQLERRM,1,200),1);
2834: END IF;
2835:
2836: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2837: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Process_PTO_KIT');
2904: FROM OE_ORDER_LINES_ALL
2905: WHERE LINE_ID = l_cursor_line_id;
2906:
2907: --
2908: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2909: --
2910: BEGIN
2911: IF l_debug_level > 0 THEN
2912: oe_debug_pub.add( 'ENTERING OE_LINE_FULLFILL.PROCESS_FULFILLMENT_SET '|| TO_CHAR ( P_LINE_ID ) , 1 ) ;
2908: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2909: --
2910: BEGIN
2911: IF l_debug_level > 0 THEN
2912: oe_debug_pub.add( 'ENTERING OE_LINE_FULLFILL.PROCESS_FULFILLMENT_SET '|| TO_CHAR ( P_LINE_ID ) , 1 ) ;
2913: END IF;
2914:
2915: /* Prepare a table of line and set id's to be processed. This new table
2916: will have indication whether it is a standard line or a configuration. */
2926: IF NOT l_set_tbl.EXISTS(p_line_set_tbl(l_line_set_index).set_id) THEN
2927:
2928:
2929: IF l_debug_level > 0 THEN
2930: oe_debug_pub.add( 'SET ID ADDED : '||TO_CHAR ( P_LINE_SET_TBL ( L_LINE_SET_INDEX ) .SET_ID ) , 3 ) ;
2931: END IF;
2932: l_set_tbl(p_line_set_tbl(l_line_set_index).set_id) := p_line_set_tbl(l_line_set_index).set_id;
2933:
2934: END IF;
2935:
2936: IF l_line_rec.top_model_line_id IS NOT NULL AND
2937: l_line_rec.top_model_line_id <> FND_API.G_MISS_NUM THEN
2938: IF l_debug_level > 0 THEN
2939: oe_debug_pub.add( 'LINE IS PART OF A CONFIGURATION : '||TO_CHAR ( L_LINE_REC.LINE_ID ) ||'/'||L_LINE_REC.ITEM_TYPE_CODE , 3 ) ;
2940: END IF;
2941:
2942: l_process_index := l_process_index + 1;
2943: l_process_tbl(l_process_index) := p_line_set_tbl(l_line_set_index);
2946:
2947: IF l_line_rec.top_model_line_id = l_line_rec.line_id THEN
2948: l_process_tbl(l_process_index).type := 'C';
2949: IF l_debug_level > 0 THEN
2950: 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 ) ;
2951: END IF;
2952: ELSE
2953: l_process_tbl(l_process_index).type := 'O';
2954: IF l_debug_level > 0 THEN
2951: END IF;
2952: ELSE
2953: l_process_tbl(l_process_index).type := 'O';
2954: IF l_debug_level > 0 THEN
2955: 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 ) ;
2956: END IF;
2957:
2958: END IF;
2959: ELSE
2962: l_process_tbl(l_process_index).type := 'S';
2963: l_process_tbl(l_process_index).fulfilled_flag := l_line_rec.fulfilled_flag;
2964: l_process_tbl(l_process_index).ordered_quantity := l_line_rec.ordered_quantity;
2965: IF l_debug_level > 0 THEN
2966: 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 ) ;
2967: END IF;
2968:
2969: END IF;
2970: END LOOP;
2973:
2974: FOR l_line_set_index IN l_process_tbl.FIRST .. l_process_tbl.LAST
2975: LOOP
2976: IF l_debug_level > 0 THEN
2977: 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 ) ;
2978: END IF;
2979:
2980: IF l_debug_level > 0 THEN
2981: oe_debug_pub.add( 'LINE TYPE : '||L_PROCESS_TBL ( L_LINE_SET_INDEX ) .TYPE , 3 ) ;
2977: 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 ) ;
2978: END IF;
2979:
2980: IF l_debug_level > 0 THEN
2981: oe_debug_pub.add( 'LINE TYPE : '||L_PROCESS_TBL ( L_LINE_SET_INDEX ) .TYPE , 3 ) ;
2982: END IF;
2983: IF l_process_tbl(l_line_set_index).type = 'C' THEN
2984:
2985: IF l_debug_level > 0 THEN
2982: END IF;
2983: IF l_process_tbl(l_line_set_index).type = 'C' THEN
2984:
2985: IF l_debug_level > 0 THEN
2986: oe_debug_pub.add( 'IT IS A CONFIGURATION TOP MODEL ' , 3 ) ;
2987: END IF;
2988:
2989: -- l_line_rec := OE_Line_Util.Query_Row(p_line_id);
2990:
2995:
2996:
2997: IF l_top_model_line_id = nvl(l_process_tbl(l_line_set_index).line_id,0) THEN
2998: IF l_debug_level > 0 THEN
2999: oe_debug_pub.add( 'DO NOT PROCESS ALL THE LINES ' , 3 ) ;
3000: END IF;
3001: l_process_all := FND_API.G_FALSE;
3002: ELSE
3003: IF l_debug_level > 0 THEN
3000: END IF;
3001: l_process_all := FND_API.G_FALSE;
3002: ELSE
3003: IF l_debug_level > 0 THEN
3004: oe_debug_pub.add( 'PROCESS ALL THE LINES ' , 3 ) ;
3005: END IF;
3006: l_process_all := FND_API.G_TRUE;
3007: END IF;
3008:
3007: END IF;
3008:
3009:
3010: IF l_debug_level > 0 THEN
3011: oe_debug_pub.add( 'CALLING PROCESS PTO FULFILLMENT ' , 3 ) ;
3012: END IF;
3013: Process_PTO_KIT
3014: (
3015: p_line_id => p_line_id,
3021: x_fulfillment_status => l_fulfillment_status
3022: );
3023:
3024: IF l_debug_level > 0 THEN
3025: oe_debug_pub.add( 'RETURN STATUS/FULFILLMENT STATUS : '||L_RETURN_STATUS||'/'||L_FULFILLMENT_STATUS , 3 ) ;
3026: END IF;
3027:
3028: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3034:
3035: IF l_fulfillment_status = FND_API.G_TRUE THEN
3036: l_fulfilled_flag := FND_API.G_TRUE;
3037: IF l_debug_level > 0 THEN
3038: oe_debug_pub.add( 'CONFIGURATION IS FULFILLED : '||TO_CHAR ( L_PROCESS_TBL ( L_LINE_SET_INDEX ) .LINE_ID ) , 3 ) ;
3039: END IF;
3040: ELSE
3041: l_fulfilled_flag := FND_API.G_FALSE;
3042: x_fulfillment_status := FND_API.G_FALSE;
3040: ELSE
3041: l_fulfilled_flag := FND_API.G_FALSE;
3042: x_fulfillment_status := FND_API.G_FALSE;
3043: IF l_debug_level > 0 THEN
3044: oe_debug_pub.add( 'CONFIGURATION IS NOT FULFILLED : '||TO_CHAR ( L_PROCESS_TBL ( L_LINE_SET_INDEX ) .LINE_ID ) , 3 ) ;
3045: END IF;
3046: GOTO END_CHECK_FULFILLMENT;
3047: END IF;
3048: END IF;
3052:
3053: IF l_process_tbl(l_line_set_index).fulfilled_flag = 'Y' THEN
3054: l_fulfilled_flag := FND_API.G_TRUE;
3055: IF l_debug_level > 0 THEN
3056: oe_debug_pub.add( 'LINE IS FULFILLED : '||TO_CHAR ( L_PROCESS_TBL ( L_LINE_SET_INDEX ) .LINE_ID ) , 3 ) ;
3057: END IF;
3058: ELSE
3059:
3060: l_item_key := to_char(l_process_tbl(l_line_set_index).line_id);
3059:
3060: l_item_key := to_char(l_process_tbl(l_line_set_index).line_id);
3061:
3062: IF l_debug_level > 0 THEN
3063: oe_debug_pub.add( 'CALLING GET ACTIVITY RESULT FOR ITEM : '||L_ITEM_KEY||'/'||L_FULFILL_ACTIVITY , 3 ) ;
3064: END IF;
3065:
3066: Get_Activity_Result
3067: (
3074: , x_activity_id => l_activity_id
3075: );
3076:
3077: IF l_debug_level > 0 THEN
3078: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS||L_ACTIVITY_STATUS , 3 ) ;
3079: END IF;
3080:
3081: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3082: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3084: l_activity_status <> 'NOTIFIED' THEN
3085: l_fulfilled_flag := FND_API.G_FALSE;
3086: x_fulfillment_status := FND_API.G_FALSE;
3087: IF l_debug_level > 0 THEN
3088: oe_debug_pub.add( 'LINE IS NOT FULFILLED : '||TO_CHAR ( L_PROCESS_TBL ( L_LINE_SET_INDEX ) .LINE_ID ) , 3 ) ;
3089: END IF;
3090: GOTO END_CHECK_FULFILLMENT;
3091: END IF;
3092:
3115:
3116: FOR l_line_set_index IN 1 .. l_process_tbl.count
3117: LOOP
3118: IF l_debug_level > 0 THEN
3119: 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 ) ;
3120: END IF;
3121:
3122: /* Get the associated service lines */
3123:
3164: -- end changes for AFD
3165:
3166: l_fulfill_tbl(l_fulfill_index).operation := OE_GLOBALS.G_OPR_UPDATE;
3167: IF l_debug_level > 0 THEN
3168: oe_debug_pub.add( 'FULFILL INDEX : '||TO_CHAR ( L_FULFILL_INDEX ) , 3 ) ;
3169: oe_debug_pub.add( 'FULFILLED FLAG : '||L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_FLAG , 3 ) ;
3170: oe_debug_pub.add( 'FULFILLED QUANTITY : '||TO_CHAR ( L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_QUANTITY ) , 3 ) ;
3171: END IF;
3172:
3165:
3166: l_fulfill_tbl(l_fulfill_index).operation := OE_GLOBALS.G_OPR_UPDATE;
3167: IF l_debug_level > 0 THEN
3168: oe_debug_pub.add( 'FULFILL INDEX : '||TO_CHAR ( L_FULFILL_INDEX ) , 3 ) ;
3169: oe_debug_pub.add( 'FULFILLED FLAG : '||L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_FLAG , 3 ) ;
3170: oe_debug_pub.add( 'FULFILLED QUANTITY : '||TO_CHAR ( L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_QUANTITY ) , 3 ) ;
3171: END IF;
3172:
3173:
3166: l_fulfill_tbl(l_fulfill_index).operation := OE_GLOBALS.G_OPR_UPDATE;
3167: IF l_debug_level > 0 THEN
3168: oe_debug_pub.add( 'FULFILL INDEX : '||TO_CHAR ( L_FULFILL_INDEX ) , 3 ) ;
3169: oe_debug_pub.add( 'FULFILLED FLAG : '||L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_FLAG , 3 ) ;
3170: oe_debug_pub.add( 'FULFILLED QUANTITY : '||TO_CHAR ( L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_QUANTITY ) , 3 ) ;
3171: END IF;
3172:
3173:
3174: l_line_tbl(l_service_tbl(l_service_index).line_id) := l_service_tbl(l_service_index).line_id;
3172:
3173:
3174: l_line_tbl(l_service_tbl(l_service_index).line_id) := l_service_tbl(l_service_index).line_id;
3175: IF l_debug_level > 0 THEN
3176: oe_debug_pub.add( 'SERVICE LINE IS ADDED TO TABLE '||TO_CHAR ( L_SERVICE_TBL ( L_SERVICE_INDEX ) .LINE_ID ) , 3 ) ;
3177: END IF;
3178:
3179: END IF;
3180:
3184:
3185: << END_SERVICE_LINE >>
3186:
3187: IF l_debug_level > 0 THEN
3188: 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 ) ;
3189: END IF;
3190:
3191: IF p_line_id <> l_process_tbl(l_line_set_index).line_id AND
3192: NOT l_line_tbl.EXISTS(l_process_tbl(l_line_set_index).line_id) THEN
3191: IF p_line_id <> l_process_tbl(l_line_set_index).line_id AND
3192: NOT l_line_tbl.EXISTS(l_process_tbl(l_line_set_index).line_id) THEN
3193: l_line_tbl(l_process_tbl(l_line_set_index).line_id) := l_process_tbl(l_line_set_index).line_id;
3194: IF l_debug_level > 0 THEN
3195: oe_debug_pub.add( 'LINE IS ADDED TO TABLE '||TO_CHAR ( L_PROCESS_TBL ( L_LINE_SET_INDEX ) .LINE_ID ) , 3 ) ;
3196: END IF;
3197:
3198: /* If the line is not fulfilled earlier add this to fulfill
3199: table for updating the fulfillment related attributes on the
3201:
3202: IF nvl(l_process_tbl(l_line_set_index).fulfilled_flag,'N') <> 'Y' THEN
3203:
3204: IF l_debug_level > 0 THEN
3205: oe_debug_pub.add( 'THE LINE IS NOT FULFILLED '||TO_CHAR ( L_PROCESS_TBL ( L_LINE_SET_INDEX ) .LINE_ID ) , 3 ) ;
3206: END IF;
3207:
3208: l_fulfill_index := l_fulfill_index + 1;
3209: l_fulfill_tbl(l_fulfill_index):= OE_Order_PUB.G_MISS_LINE_REC;
3231: CLOSE c_line;
3232: -- End bug 3061559
3233: l_fulfill_tbl(l_fulfill_index).operation := OE_GLOBALS.G_OPR_UPDATE;
3234: IF l_debug_level > 0 THEN
3235: oe_debug_pub.add( 'FULFILL INDEX : '||TO_CHAR ( L_FULFILL_INDEX ) , 3 ) ;
3236: oe_debug_pub.add( 'FULFILLED FLAG : '||L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_FLAG , 3 ) ;
3237: oe_debug_pub.add( 'FULFILLED QUANTITY : '||TO_CHAR ( L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_QUANTITY ) , 3 ) ;
3238: END IF;
3239: ELSE
3232: -- End bug 3061559
3233: l_fulfill_tbl(l_fulfill_index).operation := OE_GLOBALS.G_OPR_UPDATE;
3234: IF l_debug_level > 0 THEN
3235: oe_debug_pub.add( 'FULFILL INDEX : '||TO_CHAR ( L_FULFILL_INDEX ) , 3 ) ;
3236: oe_debug_pub.add( 'FULFILLED FLAG : '||L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_FLAG , 3 ) ;
3237: oe_debug_pub.add( 'FULFILLED QUANTITY : '||TO_CHAR ( L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_QUANTITY ) , 3 ) ;
3238: END IF;
3239: ELSE
3240:
3233: l_fulfill_tbl(l_fulfill_index).operation := OE_GLOBALS.G_OPR_UPDATE;
3234: IF l_debug_level > 0 THEN
3235: oe_debug_pub.add( 'FULFILL INDEX : '||TO_CHAR ( L_FULFILL_INDEX ) , 3 ) ;
3236: oe_debug_pub.add( 'FULFILLED FLAG : '||L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_FLAG , 3 ) ;
3237: oe_debug_pub.add( 'FULFILLED QUANTITY : '||TO_CHAR ( L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_QUANTITY ) , 3 ) ;
3238: END IF;
3239: ELSE
3240:
3241: IF l_debug_level > 0 THEN
3238: END IF;
3239: ELSE
3240:
3241: IF l_debug_level > 0 THEN
3242: oe_debug_pub.add( 'LINE IS FULFILLED ' , 3 ) ;
3243: END IF;
3244:
3245: END IF;
3246: END IF;
3248:
3249: IF l_fulfill_index <> 0 THEN
3250:
3251: IF l_debug_level > 0 THEN
3252: oe_debug_pub.add( 'CALLING FULFILL LINE TABLE : ' , 3 ) ;
3253: END IF;
3254:
3255:
3256: Fulfill_Line
3262: x_return_status => l_return_status
3263: );
3264:
3265: IF l_debug_level > 0 THEN
3266: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL LINE : '||L_RETURN_STATUS , 3 ) ;
3267: END IF;
3268:
3269: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3278:
3279: WHILE l_line_tbl_index IS NOT NULL
3280: LOOP
3281: IF l_debug_level > 0 THEN
3282: oe_debug_pub.add( 'CALLING FLOW STATUS API ' , 3 ) ;
3283: END IF;
3284:
3285: -- l_line_rec := OE_Line_Util.Query_Row(l_line_tbl(l_line_tbl_index));
3286:
3296: x_return_status => l_return_status
3297: );
3298:
3299: IF l_debug_level > 0 THEN
3300: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
3301: END IF;
3302:
3303: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3306: RAISE FND_API.G_EXC_ERROR;
3307: END IF;
3308:
3309: IF l_debug_level > 0 THEN
3310: oe_debug_pub.add( 'CALLING WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( L_LINE_TBL ( L_LINE_TBL_INDEX ) ) , 3 ) ;
3311: END IF;
3312: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_line_tbl(l_line_tbl_index)), 'FULFILL_LINE', '#NULL');
3313: IF l_debug_level > 0 THEN
3314: oe_debug_pub.add( 'RETURNED FROM WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( L_LINE_TBL ( L_LINE_TBL_INDEX ) ) , 3 ) ;
3310: oe_debug_pub.add( 'CALLING WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( L_LINE_TBL ( L_LINE_TBL_INDEX ) ) , 3 ) ;
3311: END IF;
3312: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_line_tbl(l_line_tbl_index)), 'FULFILL_LINE', '#NULL');
3313: IF l_debug_level > 0 THEN
3314: oe_debug_pub.add( 'RETURNED FROM WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( L_LINE_TBL ( L_LINE_TBL_INDEX ) ) , 3 ) ;
3315: END IF;
3316:
3317: l_line_tbl_index := l_line_tbl.NEXT(l_line_tbl_index);
3318: END LOOP;
3328: UPDATE_DATE = SYSDATE
3329: WHERE SET_ID = l_set_tbl(l_set_tbl_index);
3330:
3331: IF l_debug_level > 0 THEN
3332: oe_debug_pub.add( 'SET IS CLOSED : '||TO_CHAR ( L_SET_TBL ( L_SET_TBL_INDEX ) ) , 3 ) ;
3333: END IF;
3334: l_set_tbl_index := l_set_tbl.NEXT(l_set_tbl_index);
3335:
3336: OE_Set_util.g_set_rec.set_status := 'C'; -- 4080531
3341:
3342: x_return_status := FND_API.G_RET_STS_SUCCESS;
3343: x_fulfillment_status := l_fulfilled_flag;
3344: IF l_debug_level > 0 THEN
3345: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.PROCESS_FULFILLMENT_SET '||X_RETURN_STATUS||'/'||X_FULFILLMENT_STATUS , 1 ) ;
3346: END IF;
3347:
3348:
3349: EXCEPTION
3364: G_DEBUG_MSG := G_DEBUG_MSG || 'E20-1,';
3365: WHEN OTHERS THEN
3366: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3367: IF l_debug_level > 0 THEN
3368: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
3369: END IF;
3370:
3371: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3372: THEN
3436: l_ref_header_id NUMBER; -- 1717444
3437: lock_set_id NUMBER;
3438: CAN_NOT_LOCK_MODEL EXCEPTION;
3439: --
3440: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3441: --
3442: BEGIN
3443:
3444: IF l_debug_level > 0 THEN
3441: --
3442: BEGIN
3443:
3444: IF l_debug_level > 0 THEN
3445: oe_debug_pub.add( 'ENTERING OE_LINE_FULLFILL.PROCESS_FULFILLMENT '|| TO_CHAR ( P_LINE_ID ) , 1 ) ;
3446: END IF;
3447:
3448:
3449:
3467:
3468: x_result_out := 'COMPLETE:#NULL';
3469:
3470: IF l_debug_level > 0 THEN
3471: oe_debug_pub.add('check if this line is part of fulfillment set ',5);
3472: END IF;
3473:
3474: g_set_tbl.delete;
3475:
3483: );
3484:
3485:
3486: IF l_debug_level > 0 THEN
3487: oe_debug_pub.add( 'RETURN STATUS FROM GET FULFILLMENT SET : '||L_RETURN_STATUS||'/'||TO_CHAR ( L_SET_TBL.COUNT ) , 3 ) ;
3488: END IF;
3489:
3490: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3491: IF l_debug_level > 0 THEN
3488: END IF;
3489:
3490: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3491: IF l_debug_level > 0 THEN
3492: oe_debug_pub.add('unexp error while getting fulfillment set info '||sqlerrm,1);
3493: END IF;
3494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3495: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3496: IF l_debug_level > 0 THEN
3493: END IF;
3494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3495: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3496: IF l_debug_level > 0 THEN
3497: oe_debug_pub.add('exc error while getting fulfillment set info '||sqlerrm,1);
3498: END IF;
3499: RAISE FND_API.G_EXC_ERROR;
3500: END IF;
3501:
3505: IF l_set_tbl.count > 0 THEN
3506: IF g_set_tbl.count > 1 THEN
3507:
3508: IF l_debug_level > 0 THEN
3509: oe_debug_pub.add('LOCKING HEADER '||L_LINE_REC.HEADER_ID||'/'||TO_CHAR ( SYSDATE , 'DD-MM-YYYY HH24:MI:SS' ) , 3 ) ;
3510: END IF;
3511:
3512: SELECT HEADER_ID
3513: INTO l_header_id
3515: WHERE HEADER_ID = l_line_rec.header_id
3516: FOR UPDATE NOWAIT;
3517:
3518: IF l_debug_level > 0 THEN
3519: oe_debug_pub.add('header locked successfully ',1);
3520: END IF;
3521:
3522: ELSE
3523: lock_set_id := g_set_tbl.FIRST;
3522: ELSE
3523: lock_set_id := g_set_tbl.FIRST;
3524:
3525: IF l_debug_level > 0 THEN
3526: oe_debug_pub.add( 'locking set with ID '||LOCK_SET_ID||' at '||TO_CHAR ( SYSDATE , 'DD-MM-YYYY HH24:MI:SS' ) , 3 ) ;
3527: END IF;
3528:
3529: SELECT SET_ID
3530: INTO l_set_id
3532: WHERE SET_ID = lock_set_id
3533: FOR UPDATE NOWAIT;
3534:
3535: IF l_debug_level > 0 THEN
3536: oe_debug_pub.add( 'set locked successfully ',1);
3537: END IF;
3538: END IF;
3539: END IF;
3540:
3539: END IF;
3540:
3541: IF nvl(l_line_rec.top_model_line_id,0) <> 0 THEN --bug 4189737, the ELSIF was changed to a IF condition
3542: IF l_debug_level > 0 THEN
3543: oe_debug_pub.add('this line is part of configuration',5);
3544: oe_debug_pub.add('locking while configuration at '||TO_CHAR(SYSDATE,'DD-MM-YYYY HH24:MI:SS'),5);
3545: END IF;
3546:
3547: SELECT line_id, top_model_line_id
3540:
3541: IF nvl(l_line_rec.top_model_line_id,0) <> 0 THEN --bug 4189737, the ELSIF was changed to a IF condition
3542: IF l_debug_level > 0 THEN
3543: oe_debug_pub.add('this line is part of configuration',5);
3544: oe_debug_pub.add('locking while configuration at '||TO_CHAR(SYSDATE,'DD-MM-YYYY HH24:MI:SS'),5);
3545: END IF;
3546:
3547: SELECT line_id, top_model_line_id
3548: INTO l_line_id, l_top_model_line_id
3550: WHERE line_id = l_line_rec.top_model_line_id
3551: FOR UPDATE NOWAIT;
3552:
3553: IF l_debug_level > 0 THEN
3554: oe_debug_pub.add('configuration locked successfully',1);
3555: END IF;
3556: /* Fix for bug 2560644 */
3557:
3558: ELSIF l_line_rec.item_type_code = 'SERVICE' AND
3558: ELSIF l_line_rec.item_type_code = 'SERVICE' AND
3559: l_line_rec.service_reference_line_id IS NOT NULL AND
3560: l_line_rec.service_reference_type_code = 'ORDER' THEN
3561: IF l_debug_level > 0 THEN
3562: oe_debug_pub.add('this is a service line now at fulfillment '|| L_LINE_REC.SERVICE_REFERENCE_TYPE_CODE,5);
3563: END IF;
3564:
3565: /* First lock the product */
3566:
3571: FOR UPDATE NOWAIT;
3572:
3573: IF nvl(l_top_model_line_id,0) <> 0 THEN
3574: IF l_debug_level > 0 THEN
3575: oe_debug_pub.add('locking the parent model line of this service line '||L_TOP_MODEL_LINE_ID,1);
3576: END IF;
3577:
3578: SELECT line_id
3579: INTO l_line_id
3582: FOR UPDATE NOWAIT;
3583:
3584: ELSE
3585: IF l_debug_level > 0 THEN
3586: oe_debug_pub.add('locking the parent reference line of this service line '||L_TOP_MODEL_LINE_ID,1);
3587: END IF;
3588: SELECT line_id
3589: INTO l_line_id
3590: FROM oe_order_lines
3592: FOR UPDATE NOWAIT;
3593:
3594: END IF;
3595: IF l_debug_level > 0 THEN
3596: oe_debug_pub.add('product lines locked successfully '||TO_CHAR ( SYSDATE , 'DD-MM-YYYY HH24:MI:SS' ) , 3 ) ;
3597: END IF;
3598:
3599: SELECT line_id
3600: INTO l_line_id
3602: WHERE line_id = l_line_rec.line_id
3603: FOR UPDATE NOWAIT;
3604:
3605: IF l_debug_level > 0 THEN
3606: oe_debug_pub.add('locked the service line '||TO_CHAR ( SYSDATE , 'DD-MM-YYYY HH24:MI:SS' ) , 3 ) ;
3607: END IF;
3608: /* fix for bug 2517485 */
3609: ELSE
3610: IF l_debug_level > 0 THEN
3607: END IF;
3608: /* fix for bug 2517485 */
3609: ELSE
3610: IF l_debug_level > 0 THEN
3611: oe_debug_pub.add('locking the current line '||TO_CHAR ( SYSDATE , 'DD-MM-YYYY HH24:MI:SS' ) , 3 ) ;
3612: END IF;
3613:
3614: SELECT line_id
3615: INTO l_line_id
3617: WHERE line_id = l_line_rec.line_id
3618: FOR UPDATE NOWAIT;
3619:
3620: IF l_debug_level > 0 THEN
3621: oe_debug_pub.add( 'LINE LOCKED '||TO_CHAR ( SYSDATE , 'DD-MM-YYYY HH24:MI:SS' ) , 3 ) ;
3622: END IF;
3623:
3624: END IF;
3625:
3626: EXCEPTION
3627: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
3628: -- some one else is currently working on the line
3629: IF l_debug_level > 0 THEN
3630: oe_debug_pub.add('unable to lock the lines or configuration',1);
3631: END IF;
3632: G_DEBUG_MSG := G_DEBUG_MSG || 'ELOCK1,';
3633: RAISE CAN_NOT_LOCK_MODEL;
3634: END;
3634: END;
3635:
3636:
3637: IF l_debug_level > 0 THEN
3638: oe_debug_pub.add( 'ACTIVTITY ID : '||TO_CHAR ( P_ACTIVITY_ID ) , 3 ) ;
3639: END IF;
3640: l_item_key := to_char(p_line_id);
3641:
3642: IF l_debug_level > 0 THEN
3639: END IF;
3640: l_item_key := to_char(p_line_id);
3641:
3642: IF l_debug_level > 0 THEN
3643: oe_debug_pub.add( 'CALLING GET FULFILLMENT ACTIVITY ' , 3 ) ;
3644: END IF;
3645:
3646: Get_Fulfillment_Activity
3647: (
3659: RAISE FND_API.G_EXC_ERROR;
3660: END IF;
3661:
3662: IF l_debug_level > 0 THEN
3663: oe_debug_pub.add( 'FULFILLMENT ACTIVITY : '|| L_FULFILLMENT_ACTIVITY , 3 ) ;
3664: END IF;
3665:
3666:
3667:
3670:
3671: -- Fulfill Line.
3672:
3673: IF l_debug_level > 0 THEN
3674: oe_debug_pub.add( 'CALLING FULFILL LINE WITH : '|| L_FULFILLMENT_TYPE||'/'||L_FULFILLMENT_ACTIVITY , 3 ) ;
3675: END IF;
3676:
3677:
3678: Fulfill_Line
3685: );
3686:
3687:
3688: IF l_debug_level > 0 THEN
3689: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL LINE : '||L_RETURN_STATUS , 3 ) ;
3690: END IF;
3691:
3692: IF l_return_status = 'D' THEN
3693: RAISE CAN_NOT_LOCK_MODEL;
3703:
3704: IF l_set_tbl.count > 0 THEN
3705: -- Processing for Fulfillment set
3706: IF l_debug_level > 0 THEN
3707: oe_debug_pub.add( 'IT IS LINE PART OF A FULFILLMENT SET' , 3 ) ;
3708: END IF;
3709:
3710:
3711:
3719: );
3720:
3721:
3722: IF l_debug_level > 0 THEN
3723: oe_debug_pub.add( 'RETURN STATUS/FULFILLMENT STATUS : '||L_RETURN_STATUS||'/'||L_FULFILLMENT_STATUS , 3 ) ;
3724: END IF;
3725:
3726: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3727: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3732:
3733:
3734: IF l_fulfillment_status = FND_API.G_FALSE THEN
3735: IF l_debug_level > 0 THEN
3736: oe_debug_pub.add( 'ALL THE LINES OF THE FULFILLMENT SET HAS NOT BEEN FULFILLED' , 3 ) ;
3737: END IF;
3738: x_result_out := 'NOTIFIED:#NULL';
3739: ELSIF l_fulfillment_type = G_FULFILL_NO_ACTIVITY THEN
3740:
3764: l_line_rec.top_model_line_id <> FND_API.G_MISS_NUM THEN
3765:
3766: -- Processing for PTO/ATO/KIT
3767: IF l_debug_level > 0 THEN
3768: oe_debug_pub.add( 'IT IS LINE PART OF A PTO' , 3 ) ;
3769: END IF;
3770:
3771: -- Processing for Remnant Model
3772:
3774:
3775: IF l_line_rec.model_remnant_flag = 'Y' THEN
3776:
3777: IF l_debug_level > 0 THEN
3778: oe_debug_pub.add( 'LINE IS PART OF REMNANT MODEL '||TO_CHAR ( L_LINE_REC.LINE_ID ) , 3 ) ;
3779: END IF;
3780:
3781:
3782:
3791: IF nvl(l_fulfilled_flag,'N') = 'N'
3792: --bug 6394191 AND Condition Added
3793: AND nvl(l_line_rec.ato_line_id,0) = 0 THEN -- Bug-2376255
3794: IF l_debug_level > 0 THEN
3795: oe_debug_pub.add( 'CALLING FULFILL LINE WITH : '|| G_FULFILL_NO_ACTIVITY , 3 ) ;
3796: END IF;
3797:
3798: Fulfill_Line
3799: (
3818: --(l_line_rec.item_type_code = 'CONFIG' OR (l_line_rec.item_type_code = 'CLASS' AND
3819: -- l_line_rec.ato_line_id = l_line_rec.line_id)) THEN
3820:
3821: IF l_debug_level > 0 THEN
3822: oe_debug_pub.add('line is part of ATO sub configuration ',5);
3823: END IF;
3824:
3825: IF l_line_rec.ato_line_id = l_line_rec.line_id THEN
3826: IF l_debug_level > 0 THEN
3823: END IF;
3824:
3825: IF l_line_rec.ato_line_id = l_line_rec.line_id THEN
3826: IF l_debug_level > 0 THEN
3827: oe_debug_pub.add('Model line of ATO sub configuration ',5);
3828: END IF;
3829: END IF;
3830:
3831: IF l_line_rec.item_type_code = 'CONFIG' THEN
3829: END IF;
3830:
3831: IF l_line_rec.item_type_code = 'CONFIG' THEN
3832: IF l_debug_level > 0 THEN
3833: oe_debug_pub.add('config line of ATO sub configuration ',5);
3834: END IF;
3835: END IF;
3836:
3837: OE_Config_Util.Query_ATO_Options( p_ato_line_id => l_line_rec.ato_line_id,
3841:
3842:
3843: IF l_line_tbl(l_line_index).line_id <> p_line_id THEN
3844: IF l_debug_level > 0 THEN
3845: oe_debug_pub.add('call Get_Activity_Result() - '||L_ITEM_KEY , 3 ) ;
3846: END IF;
3847: l_item_key := to_char(l_line_tbl(l_line_index).line_id);
3848:
3849: Get_Activity_Result
3857: , x_activity_id => l_activity_id
3858: );
3859:
3860: IF l_debug_level > 0 THEN
3861: oe_debug_pub.add('return status - '||L_RETURN_STATUS , 3 ) ;
3862: END IF;
3863:
3864: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3865: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3864: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3865: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3866: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3867: IF l_debug_level > 0 THEN
3868: oe_debug_pub.add('The ATO line is not at fulfillment '||TO_CHAR ( L_LINE_REC.ATO_LINE_ID ) , 3 ) ;
3869: END IF;
3870: x_result_out := 'NOTIFIED:#NULL';
3871: GOTO END_ATO_REMNANT;
3872: END IF;
3890:
3891:
3892: IF l_line_tbl(l_line_index).line_id <> p_line_id THEN
3893: IF l_debug_level > 0 THEN
3894: oe_debug_pub.add('update flow status code',5);
3895: END IF;
3896:
3897: OE_Order_WF_Util.Update_Flow_Status_Code
3898: (p_line_id => l_line_tbl(l_line_index).line_id,
3900: x_return_status => l_return_status
3901: );
3902:
3903: IF l_debug_level > 0 THEN
3904: oe_debug_pub.add('return status - '||L_RETURN_STATUS,5);
3905: END IF;
3906:
3907: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3911: END IF;
3912:
3913:
3914: IF l_debug_level > 0 THEN
3915: oe_debug_pub.add('complete the WF activity for line - '||L_LINE_TBL(L_LINE_INDEX).LINE_ID,5) ;
3916: END IF;
3917:
3918: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_line_tbl(l_line_index).line_id), 'FULFILL_LINE', '#NULL');
3919:
3917:
3918: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_line_tbl(l_line_index).line_id), 'FULFILL_LINE', '#NULL');
3919:
3920: IF l_debug_level > 0 THEN
3921: oe_debug_pub.add('after wf complete ',5);
3922: END IF;
3923: END IF;
3924:
3925: IF l_debug_level > 0 THEN
3922: END IF;
3923: END IF;
3924:
3925: IF l_debug_level > 0 THEN
3926: oe_debug_pub.add('now fulfill the associated service lines of '||L_LINE_TBL(L_LINE_INDEX).LINE_ID,5);
3927: END IF;
3928:
3929: Fulfill_Service_Lines
3930: (
3933: x_return_status => l_return_status
3934: );
3935:
3936: IF l_debug_level > 0 THEN
3937: oe_debug_pub.add('return status - '||L_RETURN_STATUS , 3 ) ;
3938: END IF;
3939:
3940: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3941: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3955:
3956:
3957:
3958: IF l_debug_level > 0 THEN
3959: oe_debug_pub.add( 'LINE IS PART OF ATO SUB CONFIG ' , 3 ) ;
3960: END IF;
3961:
3962: IF l_line_rec.ato_line_id = l_line_rec.line_id THEN
3963:
3961:
3962: IF l_line_rec.ato_line_id = l_line_rec.line_id THEN
3963:
3964: IF l_debug_level > 0 THEN
3965: oe_debug_pub.add( 'MODEL LINE OF ATO SUB CONFIG ' , 3 ) ;
3966: END IF;
3967:
3968: l_line_tbl := OE_Config_Util.Query_Options(l_line_rec.top_model_line_id);
3969: OE_Config_Util.Query_Options(p_top_model_line_id => l_line_rec.top_model_line_id,
3979: END LOOP;
3980: << CONFIG_FOUND >>
3981:
3982: IF l_debug_level > 0 THEN
3983: oe_debug_pub.add( 'CONFIG LINE OF ATO SUB CONFIG '||L_LINE_TBL ( L_CONFIG_INDEX ) .LINE_ID , 3 ) ;
3984: END IF;
3985:
3986:
3987: l_item_key := to_char(l_line_tbl(l_config_index).line_id);
3986:
3987: l_item_key := to_char(l_line_tbl(l_config_index).line_id);
3988:
3989: IF l_debug_level > 0 THEN
3990: oe_debug_pub.add( 'CALLING GET ACTIVITY RESULT FOR ITEM : '||L_ITEM_KEY , 3 ) ;
3991: END IF;
3992:
3993: Get_Activity_Result
3994: (
4002: );
4003:
4004:
4005: IF l_debug_level > 0 THEN
4006: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS , 3 ) ;
4007: END IF;
4008:
4009: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4010: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4009: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4010: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4011: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4012: IF l_debug_level > 0 THEN
4013: oe_debug_pub.add( 'CONFIG LINE IS NOT AT FULFILLMENT : '||TO_CHAR ( L_LINE_REC.ATO_LINE_ID ) , 3 ) ;
4014: END IF;
4015: x_result_out := 'NOTIFIED:#NULL';
4016: GOTO END_ATO_REMNANT;
4017: END IF;
4024: /* Complete CONFIG if it is notified
4025: IF l_activity_status = 'NOTIFIED' THEN
4026: -- bug 4460242 start
4027: IF l_debug_level > 0 THEN
4028: oe_debug_pub.add( 'CALLING FLOW STATUS API ' , 3 ) ;
4029: END IF;
4030:
4031: OE_Order_WF_Util.Update_Flow_Status_Code
4032: (p_line_id => l_line_tbl(l_config_index).line_id,
4034: x_return_status => l_return_status
4035: );
4036:
4037: IF l_debug_level > 0 THEN
4038: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
4039: END IF;
4040:
4041: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4042: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4045: END IF;
4046: -- end of bug 4460242
4047:
4048: IF l_debug_level > 0 THEN
4049: 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 ) ;
4050: END IF;
4051:
4052: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_line_tbl(l_config_index).line_id), 'FULFILL_LINE', '#NULL');
4053: IF l_debug_level > 0 THEN
4050: END IF;
4051:
4052: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_line_tbl(l_config_index).line_id), 'FULFILL_LINE', '#NULL');
4053: IF l_debug_level > 0 THEN
4054: oe_debug_pub.add( 'RETURNED FROM WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( L_LINE_TBL ( L_CONFIG_INDEX ) .LINE_ID ) , 3 ) ;
4055: END IF;
4056:
4057: END IF;
4058:
4056:
4057: END IF;
4058:
4059: IF l_debug_level > 0 THEN
4060: oe_debug_pub.add( 'FULFILL ASSOCIATED SERVICE LINES '||L_LINE_TBL ( L_CONFIG_INDEX ) .LINE_ID , 3 ) ;
4061: END IF;
4062:
4063: Fulfill_Service_Lines
4064: (
4068: );
4069:
4070:
4071: IF l_debug_level > 0 THEN
4072: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL SERVICE LINES API '||L_RETURN_STATUS , 3 ) ;
4073: END IF;
4074:
4075: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4076: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4080:
4081:
4082: ELSE
4083: IF l_debug_level > 0 THEN
4084: oe_debug_pub.add( 'CONFIG LINE OF ATO SUB CONFIG '||L_LINE_REC.ITEM_TYPE_CODE , 3 ) ;
4085: END IF;
4086:
4087: l_item_key := to_char(l_line_rec.ato_line_id);
4088:
4086:
4087: l_item_key := to_char(l_line_rec.ato_line_id);
4088:
4089: IF l_debug_level > 0 THEN
4090: oe_debug_pub.add( 'CALLING GET ACTIVITY RESULT FOR ITEM : '||L_ITEM_KEY , 3 ) ;
4091: END IF;
4092:
4093: Get_Activity_Result
4094: (
4101: , x_activity_id => l_activity_id
4102: );
4103:
4104: IF l_debug_level > 0 THEN
4105: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS||'/'||L_ACTIVITY_STATUS , 3 ) ;
4106: END IF;
4107:
4108: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4108: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4110: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4111: IF l_debug_level > 0 THEN
4112: oe_debug_pub.add( 'MODEL LINE IS NOT AT FULFILLMENT : '||TO_CHAR ( L_LINE_REC.ATO_LINE_ID ) , 3 ) ;
4113: END IF;
4114: x_result_out := 'NOTIFIED:#NULL';
4115: GOTO END_ATO_REMNANT;
4116: END IF;
4121: /* Complete ATO MODEL if it is notified
4122: IF l_activity_status = 'NOTIFIED' THEN
4123: -- bug 4460242 start
4124: IF l_debug_level > 0 THEN
4125: oe_debug_pub.add( 'CALLING FLOW STATUS API ' , 3 ) ;
4126: END IF;
4127:
4128: OE_Order_WF_Util.Update_Flow_Status_Code
4129: (p_line_id => l_line_rec.ato_line_id,
4131: x_return_status => l_return_status
4132: );
4133:
4134: IF l_debug_level > 0 THEN
4135: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
4136: END IF;
4137:
4138: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4139: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4142: END IF;
4143: -- bug 4460242 end
4144:
4145: IF l_debug_level > 0 THEN
4146: oe_debug_pub.add( 'CALLING WF_ENGINE.COMPLETEACTIVITYINTERNALNAME FOR MODEL LINE OF ATO SUB CONFIG '|| TO_CHAR ( L_LINE_REC.ATO_LINE_ID ) , 3 ) ;
4147: END IF;
4148:
4149: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_line_rec.ato_line_id), 'FULFILL_LINE', '#NULL');
4150: IF l_debug_level > 0 THEN
4147: END IF;
4148:
4149: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_line_rec.ato_line_id), 'FULFILL_LINE', '#NULL');
4150: IF l_debug_level > 0 THEN
4151: oe_debug_pub.add( 'RETURNED FROM WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( L_LINE_REC.ATO_LINE_ID ) , 3 ) ;
4152: END IF;
4153:
4154: END IF;
4155:
4153:
4154: END IF;
4155:
4156: IF l_debug_level > 0 THEN
4157: oe_debug_pub.add( 'FULFILL ASSOCIATED SERVICE LINES '||L_LINE_REC.ATO_LINE_ID , 3 ) ;
4158: END IF;
4159:
4160: Fulfill_Service_Lines
4161: (
4165: );
4166:
4167:
4168: IF l_debug_level > 0 THEN
4169: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL SERVICE LINES API '||L_RETURN_STATUS , 3 ) ;
4170: END IF;
4171:
4172: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4182: NULL;
4183: ELSE
4184:
4185: IF l_debug_level > 0 THEN
4186: oe_debug_pub.add( 'FULFILL ASSOCIATED SERVICE LINES '||L_LINE_REC.LINE_ID , 3 ) ;
4187: END IF;
4188:
4189: Fulfill_Service_Lines
4190: (
4194: );
4195:
4196:
4197: IF l_debug_level > 0 THEN
4198: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL SERVICE LINES API '||L_RETURN_STATUS , 3 ) ;
4199: END IF;
4200:
4201: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4202: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4209: ELSE
4210:
4211: -- process PTO fulfillment activity.
4212: IF l_debug_level > 0 THEN
4213: oe_debug_pub.add( 'CALLING PROCESS PTO FULFILLMENT ' , 3 ) ;
4214: END IF;
4215: Process_PTO_KIT
4216: (
4217: p_line_id => l_line_rec.line_id,
4223: );
4224:
4225:
4226: IF l_debug_level > 0 THEN
4227: oe_debug_pub.add( 'RETURN STATUS/FULFILLMENT STATUS : '||L_RETURN_STATUS||'/'||L_FULFILLMENT_STATUS , 3 ) ;
4228: END IF;
4229:
4230: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4231: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4235:
4236:
4237: IF l_fulfillment_status = FND_API.G_FALSE THEN
4238: IF l_debug_level > 0 THEN
4239: oe_debug_pub.add( 'ALL THE LINES OF THE FULFILLMENT SET HAS NOT BEEN FULFILLED' , 3 ) ;
4240: END IF;
4241: x_result_out := 'NOTIFIED:#NULL';
4242: ELSIF l_fulfillment_type = G_FULFILL_NO_ACTIVITY THEN
4243:
4268: l_line_rec.service_reference_line_id IS NOT NULL AND
4269: l_line_rec.service_reference_type_code = 'ORDER' THEN
4270:
4271: IF l_debug_level > 0 THEN
4272: oe_debug_pub.add( 'SERVICE LINE AT FULFILLMENT : '||L_LINE_REC.SERVICE_REFERENCE_TYPE_CODE , 3 ) ;
4273: END IF;
4274:
4275:
4276: SELECT fulfilled_flag,
4280: FROM oe_order_lines
4281: WHERE line_id = l_line_rec.service_reference_line_id;
4282:
4283: IF l_debug_level > 0 THEN
4284: oe_debug_pub.add( 'PRODUCT LINE FULFILLED : '||L_FULFILLED_FLAG , 3 ) ;
4285: END IF;
4286:
4287: IF l_fulfilled_flag = 'Y' OR -- OR condition added for 1717444
4288: l_ref_header_id <> l_line_rec.header_id THEN
4291: IF l_fulfillment_type = G_FULFILL_NO_ACTIVITY THEN
4292:
4293:
4294: IF l_debug_level > 0 THEN
4295: oe_debug_pub.add( 'CALLING FULFILL LINE WITH : '|| L_FULFILLMENT_TYPE||'/'||L_FULFILLMENT_ACTIVITY , 3 ) ;
4296: END IF;
4297:
4298: Fulfill_Line
4299: (
4305: );
4306:
4307:
4308: IF l_debug_level > 0 THEN
4309: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL LINE : '||L_RETURN_STATUS , 3 ) ;
4310: END IF;
4311:
4312: IF l_return_status = 'D' THEN
4313: RAISE CAN_NOT_LOCK_MODEL;
4319:
4320: END IF;
4321:
4322: IF l_debug_level > 0 THEN
4323: oe_debug_pub.add( 'SERVICE LINE IS FULFILLED' , 3 ) ;
4324: END IF;
4325: ELSE
4326:
4327:
4325: ELSE
4326:
4327:
4328: IF l_debug_level > 0 THEN
4329: oe_debug_pub.add( 'SERVICE LINE AT FULFILLMENT' , 3 ) ;
4330: END IF;
4331: x_result_out := 'NOTIFIED:#NULL';
4332:
4333: END IF;
4333: END IF;
4334:
4335: ELSE
4336: IF l_debug_level > 0 THEN
4337: oe_debug_pub.add( 'FULFILL_LINE ACTIVITY IS COMPLETE '||L_LINE_REC.ITEM_TYPE_CODE , 3 ) ;
4338: END IF;
4339:
4340:
4341: IF l_fulfillment_type = G_FULFILL_NO_ACTIVITY THEN
4340:
4341: IF l_fulfillment_type = G_FULFILL_NO_ACTIVITY THEN
4342:
4343: IF l_debug_level > 0 THEN
4344: oe_debug_pub.add( 'CALLING FULFILL LINE WITH : '|| L_FULFILLMENT_TYPE||'/'||L_FULFILLMENT_ACTIVITY , 3 ) ;
4345: END IF;
4346:
4347: Fulfill_Line
4348: (
4354: );
4355:
4356:
4357: IF l_debug_level > 0 THEN
4358: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL LINE : '||L_RETURN_STATUS , 3 ) ;
4359: END IF;
4360:
4361: IF l_return_status = 'D' THEN
4362: RAISE CAN_NOT_LOCK_MODEL;
4366: RAISE FND_API.G_EXC_ERROR;
4367: END IF;
4368:
4369: IF l_debug_level > 0 THEN
4370: oe_debug_pub.add( 'FULFILL ASSOCIATED SERVICE LINES '||L_LINE_REC.LINE_ID , 3 ) ;
4371: END IF;
4372:
4373: Fulfill_Service_Lines
4374: (
4378: );
4379:
4380:
4381: IF l_debug_level > 0 THEN
4382: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL SERVICE LINES API '||L_RETURN_STATUS , 3 ) ;
4383: END IF;
4384:
4385: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4389: END IF;
4390:
4391: ELSE
4392: IF l_debug_level > 0 THEN
4393: oe_debug_pub.add( 'FULFILL ASSOCIATED SERVICE LINES '||L_LINE_REC.LINE_ID , 3 ) ;
4394: END IF;
4395:
4396:
4397: Fulfill_Service_Lines
4401: x_return_status => l_return_status
4402: );
4403:
4404: IF l_debug_level > 0 THEN
4405: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL SERVICE LINES API '||L_RETURN_STATUS , 3 ) ;
4406: END IF;
4407:
4408: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4416:
4417: END IF;
4418:
4419: IF l_debug_level > 0 THEN
4420: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.PROCESS_FULFILLMENT '||X_RESULT_OUT , 3 ) ;
4421: END IF;
4422:
4423: IF x_result_out = 'NOTIFIED:#NULL' THEN
4424:
4427: l_flow_status_code := 'FULFILLED';
4428: END IF;
4429:
4430: IF l_debug_level > 0 THEN
4431: oe_debug_pub.add( 'CALLING FLOW STATUS API ' , 3 ) ;
4432: END IF;
4433:
4434:
4435: OE_Order_WF_Util.Update_Flow_Status_Code
4438: x_return_status => l_return_status
4439: );
4440:
4441: IF l_debug_level > 0 THEN
4442: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
4443: END IF;
4444:
4445: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4450:
4451: x_return_status := FND_API.G_RET_STS_SUCCESS;
4452:
4453: IF l_debug_level > 0 THEN
4454: oe_debug_pub.add( 'EXITING FROM OE_LINE_FULFILL.PROCESS_FULFILLMENT : '||X_RETURN_STATUS , 1 ) ;
4455: END IF;
4456:
4457: EXCEPTION
4458:
4457: EXCEPTION
4458:
4459: WHEN CAN_NOT_LOCK_MODEL THEN
4460: IF l_debug_level > 0 THEN
4461: oe_debug_pub.add('OEXVFULB.pls: Process_fulfillment- MODEL LOCKING EXCEPTION' , 1 ) ;
4462: END IF;
4463: x_return_status := 'DEFERRED';
4464: G_DEBUG_MSG := G_DEBUG_MSG || 'ELOCK2,';
4465: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4463: x_return_status := 'DEFERRED';
4464: G_DEBUG_MSG := G_DEBUG_MSG || 'ELOCK2,';
4465: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4466: IF l_debug_level > 0 THEN
4467: oe_debug_pub.add( 'PROCESS_FULFILLMENT : EXITING WITH UNEXPECTED ERROR'||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
4468: END IF;
4469: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4470: G_DEBUG_MSG := G_DEBUG_MSG || 'E22-1,';
4471:
4481: WHEN FND_API.G_EXC_ERROR THEN
4482: x_return_status := FND_API.G_RET_STS_ERROR;
4483: WHEN OTHERS THEN
4484: IF l_debug_level > 0 THEN
4485: oe_debug_pub.add( 'PROCESS_FULFILLMENT : EXITING WITH OTHERS ERROR' , 1 ) ;
4486: END IF;
4487: IF l_debug_level > 0 THEN
4488: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
4489: END IF;
4484: IF l_debug_level > 0 THEN
4485: oe_debug_pub.add( 'PROCESS_FULFILLMENT : EXITING WITH OTHERS ERROR' , 1 ) ;
4486: END IF;
4487: IF l_debug_level > 0 THEN
4488: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
4489: END IF;
4490: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4491:
4492: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4582: l_fulfillment_activity VARCHAR2(30);
4583: l_fulfillment_type VARCHAR2(30);
4584:
4585: --
4586: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4587: --
4588: BEGIN
4589:
4590: IF l_debug_level > 0 THEN
4587: --
4588: BEGIN
4589:
4590: IF l_debug_level > 0 THEN
4591: oe_debug_pub.add( 'ENTERING OE_LINE_FULLFILL.CANCEL_LINE : '||TO_CHAR ( P_LINE_ID ) , 1 ) ;
4592: END IF;
4593:
4594:
4595:
4607: l_store_top <> p_line_id AND
4608: nvl(l_store_rem,'N') = 'N' THEN
4609:
4610: IF l_debug_level > 0 THEN
4611: oe_debug_pub.add( 'CALLED FOR CHILD ' , 3 ) ;
4612: END IF;
4613: GOTO LINE_NOT_IN_SET;
4614:
4615: END IF;
4637: l_set_id := NULL;
4638: END IF;
4639:
4640: IF l_debug_level > 0 THEN
4641: oe_debug_pub.add( 'L_SET_ID :'||TO_CHAR ( L_SET_ID ) ||'.' , 5 ) ;
4642: END IF;
4643:
4644: IF l_set_id IS NOT NULL THEN
4645:
4664: and l2.set_id = l_set_id;
4665: IF l_howmany > 0 THEN
4666: l_shared_lines := TRUE;
4667: IF l_debug_level > 0 THEN
4668: oe_debug_pub.add( 'L_SHARED_LINES IS TRUE' , 5 ) ;
4669: END IF;
4670: END IF;
4671:
4672:
4694:
4695: END IF;
4696:
4697: IF l_debug_level > 0 THEN
4698: oe_debug_pub.add( 'L_COMMON_SETS :'||TO_CHAR ( L_COMMON_SETS ) ||'.' , 5 ) ;
4699: END IF;
4700:
4701: /* 2525203 end */
4702:
4700:
4701: /* 2525203 end */
4702:
4703: IF l_debug_level > 0 THEN
4704: oe_debug_pub.add( 'GET THE FULFILLMENT SET CALLING GET FULFILLMENT SET : ' , 3 ) ;
4705: END IF;
4706:
4707: g_set_tbl.delete;
4708:
4713: , x_set_tbl => l_set_tbl
4714: );
4715:
4716: IF l_debug_level > 0 THEN
4717: oe_debug_pub.add( 'RETURN STATUS FROM GET FULFILLMENT SET : '||L_RETURN_STATUS||'/'||TO_CHAR ( L_SET_TBL.COUNT ) , 3 ) ;
4718: END IF;
4719:
4720: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4721: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4736: FOR l_set_index IN l_set_tbl.FIRST .. l_set_tbl.LAST
4737: LOOP
4738:
4739: IF l_debug_level > 0 THEN
4740: oe_debug_pub.add( 'LOOPING FOR LINE_ID :'||L_SET_TBL ( L_SET_INDEX ) .LINE_ID , 3 ) ;
4741: END IF;
4742:
4743:
4744: SELECT TOP_MODEL_LINE_ID,
4761:
4762:
4763: FOR i IN 1..OE_OE_FORM_CANCEL_LINE.g_num_of_records LOOP
4764: IF l_debug_level > 0 THEN
4765: OE_DEBUG_PUB.Add('Number Of records'||to_char(OE_OE_FORM_CANCEL_LINE.g_num_of_records),1);
4766: END IF;
4767: --MOAC
4768: --t_line_id := to_number(substr(OE_OE_FORM_CANCEL_LINE.g_record_ids,initial, nextpos-initial));
4769: t_line_id := OE_OE_FORM_CANCEL_LINE.g_record_ids(i).id1;
4768: --t_line_id := to_number(substr(OE_OE_FORM_CANCEL_LINE.g_record_ids,initial, nextpos-initial));
4769: t_line_id := OE_OE_FORM_CANCEL_LINE.g_record_ids(i).id1;
4770:
4771: IF l_debug_level > 0 THEN
4772: OE_DEBUG_PUB.Add('Line Id: '||to_char(t_line_id),1);
4773: END IF;
4774: /* Not needed with MOAC
4775: initial := nextpos + 1.0;
4776: j := j + 1.0;
4783: END IF;
4784: END LOOP;
4785: IF set_flag = 'Y' THEN
4786: IF l_debug_level > 0 THEN
4787: oe_debug_pub.add( 'LINE IS GETTING CANCELLED,NOT ADDED TO TABLE : '||L_SET_TBL ( L_SET_INDEX ) .LINE_ID , 3 ) ;
4788: END IF;
4789: NULL;
4790: ELSE -- Added For bug#2965878 End
4791: IF l_debug_level > 0 THEN
4788: END IF;
4789: NULL;
4790: ELSE -- Added For bug#2965878 End
4791: IF l_debug_level > 0 THEN
4792: oe_debug_pub.add( 'ADD THE LINE TO TABLE/REM : '||L_SET_TBL ( L_SET_INDEX ) .LINE_ID||'/'||L_MODEL_REMNANT_FLAG , 3 ) ;
4793: END IF;
4794: l_ful_set_index := l_ful_set_index + 1;
4795: l_ful_set_tbl(l_ful_set_index).line_id := l_set_tbl(l_set_index).line_id;
4796: l_ful_set_tbl(l_ful_set_index).set_id := l_set_tbl(l_set_index).set_id;
4796: l_ful_set_tbl(l_ful_set_index).set_id := l_set_tbl(l_set_index).set_id;
4797: l_ful_set_tbl(l_ful_set_index).top_model_line_id := l_top_model_line_id;
4798: l_ful_set_tbl(l_ful_set_index).model_remnant_flag := l_model_remnant_flag;
4799: IF l_debug_level > 0 THEN
4800: oe_debug_pub.add( 'INDEX : '||L_FUL_SET_INDEX , 3 ) ;
4801: END IF;
4802: END IF;
4803: ELSE
4804: IF l_debug_level > 0 THEN
4801: END IF;
4802: END IF;
4803: ELSE
4804: IF l_debug_level > 0 THEN
4805: oe_debug_pub.add( 'LINE NOT ADDED TO TABLE : '||L_SET_TBL ( L_SET_INDEX ) .LINE_ID , 3 ) ;
4806: END IF;
4807:
4808: END IF;
4809:
4809:
4810: END LOOP;
4811:
4812: IF l_debug_level > 0 THEN
4813: oe_debug_pub.add( 'COUNT '||L_FUL_SET_TBL.COUNT , 3 ) ;
4814: END IF;
4815:
4816: IF L_FUL_SET_TBL.COUNT >0 THEN -- Added For bug#2965878
4817: FOR l_ful_set_index IN l_ful_set_tbl.FIRST .. l_ful_set_tbl.LAST
4817: FOR l_ful_set_index IN l_ful_set_tbl.FIRST .. l_ful_set_tbl.LAST
4818: LOOP
4819:
4820: IF l_debug_level > 0 THEN
4821: oe_debug_pub.add( 'PROCESSING LINE : '||TO_CHAR ( L_FUL_SET_TBL ( L_FUL_SET_INDEX ) .LINE_ID ) , 3 ) ;
4822: END IF;
4823:
4824: -- Check for the passed line. If the line is at FULFILL_LINE work
4825: -- flow activity, then the fulfillment processing for this line
4829:
4830: IF NOT l_close_tbl.EXISTS(l_ful_set_tbl(l_ful_set_index).set_id) THEN
4831:
4832: IF l_debug_level > 0 THEN
4833: oe_debug_pub.add( 'SET ID ADDED : '||TO_CHAR ( L_FUL_SET_TBL ( L_FUL_SET_INDEX ) .SET_ID ) , 3 ) ;
4834: END IF;
4835: l_close_tbl(l_ful_set_tbl(l_ful_set_index).set_id) := l_ful_set_tbl(l_ful_set_index).set_id;
4836:
4837: END IF;
4846: x_fulfill_status => l_fulfill_status
4847: );
4848:
4849: IF l_debug_level > 0 THEN
4850: oe_debug_pub.add( 'RETURN FROM CHECK_PTO_KIT_FULFILLMENT '||L_RETURN_STATUS||'/'||L_FULFILL_STATUS , 3 ) ;
4851: END IF;
4852: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4853: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4854:
4857: IF l_fulfill_status = FND_API.G_FALSE THEN
4858: IF l_ful_set_tbl(l_ful_set_index).line_id = p_line_id THEN
4859: l_process_current_line := FALSE;
4860: IF l_debug_level > 0 THEN
4861: oe_debug_pub.add( '1- DO NOT PROCESS CURRENT LINE '||L_FUL_SET_TBL ( L_FUL_SET_INDEX ) .LINE_ID , 3 ) ;
4862: END IF;
4863:
4864: IF l_set_id IS NOT NULL THEN -- 2525203
4865: l_complete_fulfillment := FALSE;
4899: , x_activity_id => l_activity_id
4900: );
4901:
4902: IF l_debug_level > 0 THEN
4903: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS , 3 ) ;
4904: END IF;
4905:
4906: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4911: THEN
4912: IF l_ful_set_tbl(l_ful_set_index).line_id = p_line_id THEN
4913: l_process_current_line := FALSE;
4914: IF l_debug_level > 0 THEN
4915: oe_debug_pub.add( '2- DO NOT PROCESS CURRENT LINE ' , 3 ) ;
4916: END IF;
4917:
4918: IF l_set_id IS NOT NULL THEN -- 2525203
4919: l_complete_fulfillment := FALSE;
4945: << END_SET_LOOP >>
4946: NULL;
4947: /* Debugging statements added for 2525203 */
4948: IF l_debug_level > 0 THEN
4949: oe_debug_pub.add( 'FLAGS:' , 5 ) ;
4950: END IF;
4951: IF l_complete_fulfillment THEN
4952: IF l_debug_level > 0 THEN
4953: oe_debug_pub.add( 'L_COMPLETE_FULFILLMENT IS TRUE' , 5 ) ;
4949: oe_debug_pub.add( 'FLAGS:' , 5 ) ;
4950: END IF;
4951: IF l_complete_fulfillment THEN
4952: IF l_debug_level > 0 THEN
4953: oe_debug_pub.add( 'L_COMPLETE_FULFILLMENT IS TRUE' , 5 ) ;
4954: END IF;
4955: ELSE
4956: IF l_debug_level > 0 THEN
4957: oe_debug_pub.add( 'L_COMPLETE_FULFILLMENT IS FALSE' , 5 ) ;
4953: oe_debug_pub.add( 'L_COMPLETE_FULFILLMENT IS TRUE' , 5 ) ;
4954: END IF;
4955: ELSE
4956: IF l_debug_level > 0 THEN
4957: oe_debug_pub.add( 'L_COMPLETE_FULFILLMENT IS FALSE' , 5 ) ;
4958: END IF;
4959: END IF;
4960: IF l_set_f THEN
4961: IF l_debug_level > 0 THEN
4958: END IF;
4959: END IF;
4960: IF l_set_f THEN
4961: IF l_debug_level > 0 THEN
4962: oe_debug_pub.add( 'L_SET_F IS TRUE' , 5 ) ;
4963: END IF;
4964: ELSE
4965: IF l_debug_level > 0 THEN
4966: oe_debug_pub.add( 'L_SET_F IS FALSE' , 5 ) ;
4962: oe_debug_pub.add( 'L_SET_F IS TRUE' , 5 ) ;
4963: END IF;
4964: ELSE
4965: IF l_debug_level > 0 THEN
4966: oe_debug_pub.add( 'L_SET_F IS FALSE' , 5 ) ;
4967: END IF;
4968: END IF;
4969: IF l_oth_f THEN
4970: IF l_debug_level > 0 THEN
4967: END IF;
4968: END IF;
4969: IF l_oth_f THEN
4970: IF l_debug_level > 0 THEN
4971: oe_debug_pub.add( 'L_OTH_F IS TRUE' , 5 ) ;
4972: END IF;
4973: ELSE
4974: IF l_debug_level > 0 THEN
4975: oe_debug_pub.add( 'L_OTH_F IS FALSE' , 5 ) ;
4971: oe_debug_pub.add( 'L_OTH_F IS TRUE' , 5 ) ;
4972: END IF;
4973: ELSE
4974: IF l_debug_level > 0 THEN
4975: oe_debug_pub.add( 'L_OTH_F IS FALSE' , 5 ) ;
4976: END IF;
4977: END IF;
4978: IF l_process_current_line THEN
4979: IF l_debug_level > 0 THEN
4976: END IF;
4977: END IF;
4978: IF l_process_current_line THEN
4979: IF l_debug_level > 0 THEN
4980: oe_debug_pub.add( 'L_PROCESS_CURRENT_LINE IS TRUE' , 5 ) ;
4981: END IF;
4982: ELSE
4983: IF l_debug_level > 0 THEN
4984: oe_debug_pub.add( 'L_PROCESS_CURRENT_LINE IS FALSE' , 5 ) ;
4980: oe_debug_pub.add( 'L_PROCESS_CURRENT_LINE IS TRUE' , 5 ) ;
4981: END IF;
4982: ELSE
4983: IF l_debug_level > 0 THEN
4984: oe_debug_pub.add( 'L_PROCESS_CURRENT_LINE IS FALSE' , 5 ) ;
4985: END IF;
4986: END IF;
4987: /* end 2525203 */
4988:
5000: IF l_complete_fulfillment OR -- OR added for 2525203
5001: (l_set_id IS NOT NULL AND (l_set_f OR l_oth_f)) THEN
5002:
5003: IF l_debug_level > 0 THEN
5004: oe_debug_pub.add( 'FULFILL SOME LINES <> P_LINE_ID: ' , 3 ) ;
5005: END IF;
5006:
5007: l_fulfilled_lines.DELETE; -- 2525203
5008: IF L_FUL_SET_TBL.COUNT >0 THEN -- Added For bug#2965878
5019: IF l_ful_set_tbl(l_ful_set_index).line_id = l_ful_set_tbl(l_ful_set_index).top_model_line_id AND
5020: nvl(l_ful_set_tbl(l_ful_set_index).model_remnant_flag,'N') = 'N' THEN
5021:
5022: IF l_debug_level > 0 THEN
5023: oe_debug_pub.add( 'CALLING FULFILL_PTO_KIT '||L_FUL_SET_TBL ( L_FUL_SET_INDEX ) .TOP_MODEL_LINE_ID , 3 ) ;
5024: END IF;
5025:
5026: Fulfill_PTO_KIT
5027: (
5029: x_return_status => l_return_status
5030: );
5031:
5032: IF l_debug_level > 0 THEN
5033: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL_PTO_KIT API '||L_RETURN_STATUS , 3 ) ;
5034: END IF;
5035:
5036: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5050: /* If the line is not fulfilled set the fulfillment related
5051: attributes for the line before it goes beyond FULFILL_LINE */
5052:
5053: IF l_debug_level > 0 THEN
5054: oe_debug_pub.add( 'FULFILLED FLAG '||L_FULFILLED_FLAG , 5 ) ;
5055: END IF;
5056:
5057: IF nvl(l_fulfilled_flag,'N') <> 'Y' THEN
5058:
5100:
5101: IF NVL(l_activity_status,'NOTIFIED') <> 'COMPLETE' THEN
5102: /* bug3292817 */
5103: IF l_debug_level > 0 THEN
5104: oe_debug_pub.add( 'CALLING FLOW STATUS API ' , 3 ) ;
5105: END IF;
5106:
5107: OE_Order_WF_Util.Update_Flow_Status_Code
5108: (p_line_id => l_ful_set_tbl(l_ful_set_index).line_Id,
5110: x_return_status => l_return_status
5111: );
5112:
5113: IF l_debug_level > 0 THEN
5114: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
5115: END IF;
5116:
5117: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5120: RAISE FND_API.G_EXC_ERROR;
5121: END IF;
5122:
5123: IF l_debug_level > 0 THEN
5124: oe_debug_pub.add( 'FULFILL ASSOCIATED SERVICE LINES ' , 3 ) ;
5125: END IF;
5126:
5127: Fulfill_Service_Lines
5128: (
5130: x_return_status => l_return_status
5131: );
5132:
5133: IF l_debug_level > 0 THEN
5134: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL SERVICE LINES API '||L_RETURN_STATUS , 3 ) ;
5135: END IF;
5136:
5137: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5140: RAISE FND_API.G_EXC_ERROR;
5141: END IF;
5142:
5143: IF l_debug_level > 0 THEN
5144: oe_debug_pub.add( 'CALLING WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( L_FUL_SET_TBL ( L_FUL_SET_INDEX ) .LINE_ID ) , 3 ) ;
5145: END IF;
5146: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_ful_set_tbl(l_ful_set_index).line_id), 'FULFILL_LINE', '#NULL');
5147: IF l_debug_level > 0 THEN
5148: oe_debug_pub.add( 'RETURNED FROM WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( L_FUL_SET_TBL ( L_FUL_SET_INDEX ) .LINE_ID ) , 3 ) ;
5144: oe_debug_pub.add( 'CALLING WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( L_FUL_SET_TBL ( L_FUL_SET_INDEX ) .LINE_ID ) , 3 ) ;
5145: END IF;
5146: wf_engine.CompleteActivityInternalName('OEOL', to_char(l_ful_set_tbl(l_ful_set_index).line_id), 'FULFILL_LINE', '#NULL');
5147: IF l_debug_level > 0 THEN
5148: oe_debug_pub.add( 'RETURNED FROM WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( L_FUL_SET_TBL ( L_FUL_SET_INDEX ) .LINE_ID ) , 3 ) ;
5149: END IF;
5150:
5151: END IF; --Line fulfilled
5152: END IF;
5168: UPDATE_DATE = SYSDATE
5169: WHERE SET_ID = l_close_tbl(l_close_tbl_index);
5170:
5171: IF l_debug_level > 0 THEN
5172: oe_debug_pub.add( 'SET IS CLOSED : '||TO_CHAR ( L_CLOSE_TBL ( L_CLOSE_TBL_INDEX ) ) , 3 ) ;
5173: END IF;
5174: END IF; -- end 2525203
5175: l_close_tbl_index := l_close_tbl.NEXT(l_close_tbl_index);
5176:
5182:
5183: /* following IF for Bug2068310. */
5184: IF p_fulfill_operation = 'N' THEN
5185: IF l_debug_level > 0 THEN
5186: oe_debug_pub.add( 'CURRENT LINE IS GETTING DELETED OR CANCELLED , DONOT PROCESS ' , 3 ) ;
5187: END IF;
5188: l_process_current_line := FALSE;
5189: END IF;
5190:
5191: IF l_process_current_line AND -- AND added for 2525203
5192: (l_set_id IS NULL OR l_oth_f) THEN
5193:
5194: IF l_debug_level > 0 THEN
5195: oe_debug_pub.add( 'PROCESSING CURRENT LINE' , 3 ) ;
5196: END IF;
5197:
5198: IF l_store_top IS NOT NULL AND
5199: l_store_top = p_line_id AND
5199: l_store_top = p_line_id AND
5200: nvl(l_store_rem,'N') = 'N' THEN
5201:
5202: IF l_debug_level > 0 THEN
5203: oe_debug_pub.add( 'CALLING CHECK_PTO_KIT_FULFILLMENT ' , 3 ) ;
5204: END IF;
5205:
5206: Check_PTO_KIT_Fulfillment
5207: (
5211: x_fulfill_status => l_fulfill_status
5212: );
5213:
5214: IF l_debug_level > 0 THEN
5215: oe_debug_pub.add( 'RETURN FROM CHECK_PTO_KIT_FULFILLMENT '||L_RETURN_STATUS||'/'||L_FULFILL_STATUS , 3 ) ;
5216: END IF;
5217:
5218: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5222:
5223: IF l_fulfill_status = FND_API.G_FALSE THEN
5224:
5225: IF l_debug_level > 0 THEN
5226: oe_debug_pub.add( 'LINE CAN NOT BE FULFILLED ' , 3 ) ;
5227: END IF;
5228: GOTO LINE_NOT_IN_SET;
5229:
5230: ELSE
5229:
5230: ELSE
5231:
5232: IF l_debug_level > 0 THEN
5233: oe_debug_pub.add( 'CALLING FULFILL_PTO_KIT '||P_LINE_ID , 3 ) ;
5234: END IF;
5235:
5236: Fulfill_PTO_KIT
5237: (
5239: x_return_status => l_return_status
5240: );
5241:
5242: IF l_debug_level > 0 THEN
5243: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL_PTO_KIT API '||L_RETURN_STATUS , 3 ) ;
5244: END IF;
5245:
5246: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5264: , x_activity_id => l_activity_id
5265: );
5266:
5267: IF l_debug_level > 0 THEN
5268: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||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;
5271: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5273: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5274: IF l_debug_level > 0 THEN
5275: oe_debug_pub.add( 'DO NOT PROCESS CURRENT LINE ' , 3 ) ;
5276: END IF;
5277: GOTO LINE_NOT_IN_SET;
5278: END IF;
5279:
5287: /* If the line is not fulfilled set the fulfillment related
5288: attributes for the line before it goes beyond FULFILL_LINE */
5289:
5290: IF l_debug_level > 0 THEN
5291: oe_debug_pub.add( 'FULFILLED FLAG '||L_FULFILLED_FLAG , 5 ) ;
5292: END IF;
5293: IF nvl(l_fulfilled_flag,'N') <> 'Y' THEN
5294:
5295: l_fulfillment_type := G_FULFILL_NO_ACTIVITY;
5315:
5316: END IF;
5317:
5318: IF l_debug_level > 0 THEN
5319: oe_debug_pub.add( 'CALLING FLOW STATUS API ' , 3 ) ;
5320: END IF;
5321:
5322: -- l_line_rec := OE_Line_Util.Query_Row(p_line_id);
5323: /*
5333: );
5334:
5335:
5336: IF l_debug_level > 0 THEN
5337: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
5338: END IF;
5339:
5340: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5341: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5343: RAISE FND_API.G_EXC_ERROR;
5344: END IF;
5345:
5346: IF l_debug_level > 0 THEN
5347: oe_debug_pub.add( 'FULFILL ASSOCIATED SERVICE LINES ' , 3 ) ;
5348: END IF;
5349:
5350:
5351: Fulfill_Service_Lines
5354: x_return_status => l_return_status
5355: );
5356:
5357: IF l_debug_level > 0 THEN
5358: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL SERVICE LINES API '||L_RETURN_STATUS , 3 ) ;
5359: END IF;
5360:
5361: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5362: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5364: RAISE FND_API.G_EXC_ERROR;
5365: END IF;
5366:
5367: IF l_debug_level > 0 THEN
5368: oe_debug_pub.add( 'CALLING WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( P_LINE_ID ) , 3 ) ;
5369: END IF;
5370: wf_engine.CompleteActivityInternalName('OEOL', to_char(p_line_id), 'FULFILL_LINE', '#NULL');
5371: IF l_debug_level > 0 THEN
5372: oe_debug_pub.add( 'RETURNED FROM WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( P_LINE_ID ) , 3 ) ;
5368: oe_debug_pub.add( 'CALLING WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( P_LINE_ID ) , 3 ) ;
5369: END IF;
5370: wf_engine.CompleteActivityInternalName('OEOL', to_char(p_line_id), 'FULFILL_LINE', '#NULL');
5371: IF l_debug_level > 0 THEN
5372: oe_debug_pub.add( 'RETURNED FROM WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( P_LINE_ID ) , 3 ) ;
5373: END IF;
5374:
5375: END IF;
5376:
5380: << LINE_NOT_IN_SET >>
5381:
5382: x_return_status := FND_API.G_RET_STS_SUCCESS;
5383: IF l_debug_level > 0 THEN
5384: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.CANCEL_LINE : '||X_RETURN_STATUS , 1 ) ;
5385: END IF;
5386:
5387: EXCEPTION
5388: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5386:
5387: EXCEPTION
5388: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5389: IF l_debug_level > 0 THEN
5390: oe_debug_pub.add( 'CANCEL_LINE : EXITING WITH UNEXPECTED ERROR'||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
5391: END IF;
5392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5393:
5394: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5404: x_return_status := FND_API.G_RET_STS_ERROR;
5405:
5406: WHEN OTHERS THEN
5407: IF l_debug_level > 0 THEN
5408: oe_debug_pub.add( 'CANCEL_LINE : EXITING WITH OTHERS ERROR' , 1 ) ;
5409: END IF;
5410: IF l_debug_level > 0 THEN
5411: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
5412: END IF;
5407: IF l_debug_level > 0 THEN
5408: oe_debug_pub.add( 'CANCEL_LINE : EXITING WITH OTHERS ERROR' , 1 ) ;
5409: END IF;
5410: IF l_debug_level > 0 THEN
5411: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
5412: END IF;
5413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5414:
5415: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)