[Home] [Help]
11: l_ret_val BOOLEAN;
12: l_status VARCHAR2(1);
13: l_industry VARCHAR2(1);
14: --
15: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
16: --
17: BEGIN
18:
19: if (p_application_id = 697
21: or ( p_application_id = 515
22: AND G_OKC_STATUS = FND_API.G_MISS_CHAR)
23: then
24: IF l_debug_level > 0 THEN
25: oe_debug_pub.add( 'GET PROD. STATUS' ) ;
26: END IF;
27:
28: -- Make a call to fnd_installation.get function to check for the
29: -- installation status of the CRM products and return the status.
39: end if;
40:
41: if p_application_id = 697 then
42: IF l_debug_level > 0 THEN
43: oe_debug_pub.add( 'RET PROD. STATUS :'||G_ASO_STATUS ) ;
44: END IF;
45: return (G_ASO_STATUS);
46: elsif p_application_id = 515 then
47: return (G_OKC_STATUS);
134: l_bypass_notify_oc VARCHAR2(30) := nvl(FND_PROFILE.VALUE('ONT_BYPASS_NOTIFY_OC'),'N');
135: l_buffer VARCHAR2(2000);
136:
137: --
138: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
139: --
140: BEGIN
141:
142: IF l_debug_level > 0 THEN
139: --
140: BEGIN
141:
142: IF l_debug_level > 0 THEN
143: oe_debug_pub.add( 'ENTERING NOTIFY_OC API',0.5 ) ; -- debug level 0.5 added for bug 13435459
144: END IF;
145:
146: -- Call Describe_Proc to check for the existance of the CRM's
147: -- Update_Notice API. If exists Then Call it else No Problem.
164: IF OE_GLOBALS.G_ASO_INSTALLED = 'Y' THEN
165:
166:
167: IF l_debug_level > 0 THEN
168: oe_debug_pub.add( 'BYPASS VALUE:' || L_BYPASS_NOTIFY_OC ) ;
169: END IF;
170: IF l_bypass_notify_oc = 'Y' then
171: IF l_debug_level > 0 THEN
172: oe_debug_pub.add( 'BYPASSING THE CALL TO NOTIFY OC' , 1 ) ;
168: oe_debug_pub.add( 'BYPASS VALUE:' || L_BYPASS_NOTIFY_OC ) ;
169: END IF;
170: IF l_bypass_notify_oc = 'Y' then
171: IF l_debug_level > 0 THEN
172: oe_debug_pub.add( 'BYPASSING THE CALL TO NOTIFY OC' , 1 ) ;
173: END IF;
174: ELSE
175:
176: -- Call Update_Notice API Using Native Dynamic SQL
266: OE_SERVICE_UTIL.g_action_request_tbl := p_action_request_tbl;
267:
268: --bug 8472737
269: IF l_debug_level > 0 THEN
270: oe_debug_pub.add( 'CSS: BEFORE CALLS UPDATE_NOTICE ',0.5 ) ; -- debug level 0.5 added for bug 13435459
271: END IF;
272:
273: ASO_ORDER_FEEDBACK_PUB.UPDATE_NOTICE(
274: p_api_version => 1.0
305: , p_old_Lot_Serial_tbl => OE_SERVICE_UTIL.g_old_lot_serial_tbl
306: , p_action_request_tbl => OE_SERVICE_UTIL.g_action_request_tbl);
307:
308: IF l_debug_level > 0 THEN
309: oe_debug_pub.add( 'JPN: OC RETURN STATUS IS: ' || L_RETURN_STATUS ) ;
310: END IF;
311: IF l_debug_level > 0 THEN
312: oe_debug_pub.add( 'CSS: OC RETURN STATUS IS: ' || L_RETURN_STATUS,0.5 ) ; -- debug level 0.5 added for bug 13435459
313: END IF;
308: IF l_debug_level > 0 THEN
309: oe_debug_pub.add( 'JPN: OC RETURN STATUS IS: ' || L_RETURN_STATUS ) ;
310: END IF;
311: IF l_debug_level > 0 THEN
312: oe_debug_pub.add( 'CSS: OC RETURN STATUS IS: ' || L_RETURN_STATUS,0.5 ) ; -- debug level 0.5 added for bug 13435459
313: END IF;
314:
315: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
316: IF l_debug_level > 0 THEN
313: END IF;
314:
315: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
316: IF l_debug_level > 0 THEN
317: oe_debug_pub.add( 'NOTIFY_OC API - UNEXPECTED ERROR' ) ;
318: END IF;
319: IF l_debug_level > 0 THEN
320: oe_debug_pub.add( 'EXITING NOTIFY_OC API' ) ;
321: END IF;
316: IF l_debug_level > 0 THEN
317: oe_debug_pub.add( 'NOTIFY_OC API - UNEXPECTED ERROR' ) ;
318: END IF;
319: IF l_debug_level > 0 THEN
320: oe_debug_pub.add( 'EXITING NOTIFY_OC API' ) ;
321: END IF;
322: Retrieve_OC_Messages;
323: /* OE_DEBUG_PUB.ADD('Notify OC error msg is: ' || substr(x_msg_data, 1,200)); */
324: -- For bug 3574480. Modified unepected error to expected error to
319: IF l_debug_level > 0 THEN
320: oe_debug_pub.add( 'EXITING NOTIFY_OC API' ) ;
321: END IF;
322: Retrieve_OC_Messages;
323: /* OE_DEBUG_PUB.ADD('Notify OC error msg is: ' || substr(x_msg_data, 1,200)); */
324: -- For bug 3574480. Modified unepected error to expected error to
325: -- support orders of this kind to be rebooked.
326: RAISE FND_API.G_EXC_ERROR;
327: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
325: -- support orders of this kind to be rebooked.
326: RAISE FND_API.G_EXC_ERROR;
327: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
328: IF l_debug_level > 0 THEN
329: oe_debug_pub.add( 'NOTIFY_OC API - ERROR' ) ;
330: END IF;
331: IF l_debug_level > 0 THEN
332: oe_debug_pub.add( 'EXITING NOTIFY_OC API' ) ;
333: END IF;
328: IF l_debug_level > 0 THEN
329: oe_debug_pub.add( 'NOTIFY_OC API - ERROR' ) ;
330: END IF;
331: IF l_debug_level > 0 THEN
332: oe_debug_pub.add( 'EXITING NOTIFY_OC API' ) ;
333: END IF;
334: IF l_msg_data is not null THEN
335: /* fnd_message.set_encoded(l_msg_data);
336: l_buffer := fnd_message.get;
335: /* fnd_message.set_encoded(l_msg_data);
336: l_buffer := fnd_message.get;
337: oe_msg_pub.add_text(p_message_text => l_buffer);
338: IF l_debug_level > 0 THEN
339: oe_debug_pub.add( L_BUFFER , 1 ) ;
340: END IF;*/
341: Retrieve_OC_Messages;
342: --RAISE FND_API.G_EXC_ERROR;
343: END IF;
348: END IF; -- API exists
349:
350: -- Added debug for bug 13435459
351: IF l_debug_level > 0 THEN
352: oe_debug_pub.add( 'EXITING NOTIFY_OC API', 0.5 ) ;
353: END IF;
354:
355: EXCEPTION
356:
401: l_radix dbms_describe.number_table;
402: l_spare dbms_describe.number_table;
403:
404: --
405: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
406: --
407: BEGIN
408:
409: IF l_debug_level > 0 THEN
406: --
407: BEGIN
408:
409: IF l_debug_level > 0 THEN
410: oe_debug_pub.add( 'ENTERING CHECK_PROC API' ) ;
411: END IF;
412: BEGIN
413: dbms_describe.describe_procedure
414: (
433: WHEN OTHERS THEN
434: x_return_status := FND_API.G_RET_STS_ERROR;
435: END;
436: IF l_debug_level > 0 THEN
437: oe_debug_pub.add( 'EXITING CHECK_PROC API' ) ;
438: END IF;
439: END Check_Proc;
440:
441: PROCEDURE Get_Service_Start -- added for bug 2897505
452: l_msg_data VARCHAR2(2000);
453: l_end_date DATE;
454: l_start_date DATE;
455: --
456: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
457: --
458: BEGIN
459:
460: IF l_debug_level > 0 THEN
457: --
458: BEGIN
459:
460: IF l_debug_level > 0 THEN
461: oe_debug_pub.add( 'ENTERING GET_SERVICE_START',0.5 ) ; -- debug level 0.5 added for bug 13435459
462: END IF;
463:
464: IF l_debug_level > 0 THEN
465: oe_debug_pub.add( 'LINE ID PASSED IS ' || to_char(p_line_id) ) ;
461: oe_debug_pub.add( 'ENTERING GET_SERVICE_START',0.5 ) ; -- debug level 0.5 added for bug 13435459
462: END IF;
463:
464: IF l_debug_level > 0 THEN
465: oe_debug_pub.add( 'LINE ID PASSED IS ' || to_char(p_line_id) ) ;
466: END IF;
467:
468: IF OE_GLOBALS.G_OKS_INSTALLED IS NULL THEN
469: OE_GLOBALS.G_OKS_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(515);
495: , OUT l_start_date
496: , OUT l_end_date;
497: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
498: IF l_debug_level > 0 THEN
499: oe_debug_pub.add( 'OKS_OMINT_PUB.GET_SVC_SDATE SUCCESSFUL' ) ;
500: END IF;
501: IF l_debug_level > 0 THEN
502: oe_debug_pub.add( 'WITH VALUE OF ==>' ) ;
503: END IF;
498: IF l_debug_level > 0 THEN
499: oe_debug_pub.add( 'OKS_OMINT_PUB.GET_SVC_SDATE SUCCESSFUL' ) ;
500: END IF;
501: IF l_debug_level > 0 THEN
502: oe_debug_pub.add( 'WITH VALUE OF ==>' ) ;
503: END IF;
504: IF l_debug_level > 0 THEN
505: oe_debug_pub.add( 'START_DATE ==> ' || TO_CHAR ( L_START_DATE ) ) ;
506: END IF;
501: IF l_debug_level > 0 THEN
502: oe_debug_pub.add( 'WITH VALUE OF ==>' ) ;
503: END IF;
504: IF l_debug_level > 0 THEN
505: oe_debug_pub.add( 'START_DATE ==> ' || TO_CHAR ( L_START_DATE ) ) ;
506: END IF;
507: x_start_date := l_start_date;
508: x_return_status := l_return_status;
509: IF l_debug_level > 0 THEN
506: END IF;
507: x_start_date := l_start_date;
508: x_return_status := l_return_status;
509: IF l_debug_level > 0 THEN
510: oe_debug_pub.add( 'EXITING GET_SERVICE_START',0.5 ) ; -- debug level 0.5 added for bug 13435459
511: END IF;
512: RETURN;
513: END IF;
514:
513: END IF;
514:
515: x_return_status := l_return_status;
516: IF l_debug_level > 0 THEN
517: oe_debug_pub.add( 'OKS_OMINT_PUB.GET_SVC_SDATE RETURNED STATUS:'||
518: x_return_status ) ;
519: END IF;
520:
521: EXCEPTION
520:
521: EXCEPTION
522: WHEN OTHERS THEN
523: IF l_debug_level > 0 THEN
524: oe_debug_pub.add('Unexpected error calling OKS_OMINT_PUB.GET_SVC_SDATE:' ,0.5); -- debug level 0.5 added for bug 13435459
525: oe_debug_pub.add(sqlerrm);
526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
527: RETURN;
528: END IF;
521: EXCEPTION
522: WHEN OTHERS THEN
523: IF l_debug_level > 0 THEN
524: oe_debug_pub.add('Unexpected error calling OKS_OMINT_PUB.GET_SVC_SDATE:' ,0.5); -- debug level 0.5 added for bug 13435459
525: oe_debug_pub.add(sqlerrm);
526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
527: RETURN;
528: END IF;
529: END; -- to recover from any unexpected errors
529: END; -- to recover from any unexpected errors
530:
531: ELSE
532: IF l_debug_level > 0 THEN
533: oe_debug_pub.add( 'SERVICE CONTRACTS NOT INSTALLED' ) ;
534: END IF;
535: END IF;
536:
537: IF l_debug_level > 0 THEN
534: END IF;
535: END IF;
536:
537: IF l_debug_level > 0 THEN
538: oe_debug_pub.add( 'EXITING GET_SERVICE_START' ,0.5) ; -- debug level 0.5 added for bug 13435459
539: END IF;
540: END Get_Service_Start;
541:
542: -- Procedure : Get_Service_Duration
558: l_system_id NUMBER;
559: l_service_duration NUMBER;
560: l_service_period VARCHAR2(3);
561: --
562: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
563: --
564: BEGIN
565: -- oe_debug_pub.Debug_On;
566:
561: --
562: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
563: --
564: BEGIN
565: -- oe_debug_pub.Debug_On;
566:
567: IF l_debug_level > 0 THEN
568: oe_debug_pub.add( 'ENTERING GET_SERVICE_DURATION' , 0.5 ) ; -- debug level 0.5 added for bug 13435459
569: END IF;
564: BEGIN
565: -- oe_debug_pub.Debug_On;
566:
567: IF l_debug_level > 0 THEN
568: oe_debug_pub.add( 'ENTERING GET_SERVICE_DURATION' , 0.5 ) ; -- debug level 0.5 added for bug 13435459
569: END IF;
570:
571: /* The following IF added for 2897505 */
572: IF p_x_line_rec.service_reference_type_code = 'GET_SVC_START' THEN
579: /* OE_SERVICE_UTIL.CHECK_PROC('OKS_OMINT_PUB.GET_DURATION', l_return_status); */
580:
581:
582: IF l_debug_level > 0 THEN
583: oe_debug_pub.add( 'JPN: SERVICE DURATION PASSED IS ' || P_X_LINE_REC.SERVICE_DURATION ) ;
584: END IF;
585: IF l_debug_level > 0 THEN
586: oe_debug_pub.add( 'JPN: SERVICE DATE PASSED IS ' || P_X_LINE_REC.SERVICE_START_DATE ) ;
587: END IF;
582: IF l_debug_level > 0 THEN
583: oe_debug_pub.add( 'JPN: SERVICE DURATION PASSED IS ' || P_X_LINE_REC.SERVICE_DURATION ) ;
584: END IF;
585: IF l_debug_level > 0 THEN
586: oe_debug_pub.add( 'JPN: SERVICE DATE PASSED IS ' || P_X_LINE_REC.SERVICE_START_DATE ) ;
587: END IF;
588: IF l_debug_level > 0 THEN
589: oe_debug_pub.add( 'JPN: SERVICE END DATE PASSED IS ' || P_X_LINE_REC.SERVICE_END_DATE ) ;
590: END IF;
585: IF l_debug_level > 0 THEN
586: oe_debug_pub.add( 'JPN: SERVICE DATE PASSED IS ' || P_X_LINE_REC.SERVICE_START_DATE ) ;
587: END IF;
588: IF l_debug_level > 0 THEN
589: oe_debug_pub.add( 'JPN: SERVICE END DATE PASSED IS ' || P_X_LINE_REC.SERVICE_END_DATE ) ;
590: END IF;
591: IF l_debug_level > 0 THEN
592: oe_debug_pub.add( 'JPN: SERVICE PERIOD PASSED IS ' || P_X_LINE_REC.SERVICE_PERIOD ) ;
593: END IF;
588: IF l_debug_level > 0 THEN
589: oe_debug_pub.add( 'JPN: SERVICE END DATE PASSED IS ' || P_X_LINE_REC.SERVICE_END_DATE ) ;
590: END IF;
591: IF l_debug_level > 0 THEN
592: oe_debug_pub.add( 'JPN: SERVICE PERIOD PASSED IS ' || P_X_LINE_REC.SERVICE_PERIOD ) ;
593: END IF;
594: /* IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN */
595:
596: -- IF Get_Product_Status(515) IN ('I','S') THEN
645: , OUT l_new_end_date;
646:
647:
648: IF l_debug_level > 0 THEN
649: oe_debug_pub.add( 'GET_DURATION RETURN WITH FOLLOWING VALUES OF ==>' ) ;
650: END IF;
651: IF l_debug_level > 0 THEN
652: oe_debug_pub.add( 'END_DATE ==> ' || TO_CHAR ( L_NEW_END_DATE ) ) ;
653: END IF;
648: IF l_debug_level > 0 THEN
649: oe_debug_pub.add( 'GET_DURATION RETURN WITH FOLLOWING VALUES OF ==>' ) ;
650: END IF;
651: IF l_debug_level > 0 THEN
652: oe_debug_pub.add( 'END_DATE ==> ' || TO_CHAR ( L_NEW_END_DATE ) ) ;
653: END IF;
654: IF l_debug_level > 0 THEN
655: oe_debug_pub.add( 'SERVICE_DURATION ==> ' || TO_CHAR ( L_SERVICE_DURATION ) ) ;
656: END IF;
651: IF l_debug_level > 0 THEN
652: oe_debug_pub.add( 'END_DATE ==> ' || TO_CHAR ( L_NEW_END_DATE ) ) ;
653: END IF;
654: IF l_debug_level > 0 THEN
655: oe_debug_pub.add( 'SERVICE_DURATION ==> ' || TO_CHAR ( L_SERVICE_DURATION ) ) ;
656: END IF;
657: IF l_debug_level > 0 THEN
658: oe_debug_pub.add( 'SERVICE_PERIOD ==> ' || L_SERVICE_PERIOD ) ;
659: END IF;
654: IF l_debug_level > 0 THEN
655: oe_debug_pub.add( 'SERVICE_DURATION ==> ' || TO_CHAR ( L_SERVICE_DURATION ) ) ;
656: END IF;
657: IF l_debug_level > 0 THEN
658: oe_debug_pub.add( 'SERVICE_PERIOD ==> ' || L_SERVICE_PERIOD ) ;
659: END IF;
660: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
661: IF l_debug_level > 0 THEN
662: oe_debug_pub.add( 'OKS_OMINT_PUB.GET_DURATION RETURN SUCCESS' ) ;
658: oe_debug_pub.add( 'SERVICE_PERIOD ==> ' || L_SERVICE_PERIOD ) ;
659: END IF;
660: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
661: IF l_debug_level > 0 THEN
662: oe_debug_pub.add( 'OKS_OMINT_PUB.GET_DURATION RETURN SUCCESS' ) ;
663: END IF;
664: IF l_debug_level > 0 THEN
665: oe_debug_pub.add( 'WITH VALUE OF ==>' ) ;
666: END IF;
661: IF l_debug_level > 0 THEN
662: oe_debug_pub.add( 'OKS_OMINT_PUB.GET_DURATION RETURN SUCCESS' ) ;
663: END IF;
664: IF l_debug_level > 0 THEN
665: oe_debug_pub.add( 'WITH VALUE OF ==>' ) ;
666: END IF;
667: IF l_debug_level > 0 THEN
668: oe_debug_pub.add( 'END_DATE ==> ' || TO_CHAR ( L_NEW_END_DATE ) ) ;
669: END IF;
664: IF l_debug_level > 0 THEN
665: oe_debug_pub.add( 'WITH VALUE OF ==>' ) ;
666: END IF;
667: IF l_debug_level > 0 THEN
668: oe_debug_pub.add( 'END_DATE ==> ' || TO_CHAR ( L_NEW_END_DATE ) ) ;
669: END IF;
670: IF l_debug_level > 0 THEN
671: oe_debug_pub.add( 'SERVICE_DURATION ==> ' || TO_CHAR ( L_SERVICE_DURATION ) ) ;
672: END IF;
667: IF l_debug_level > 0 THEN
668: oe_debug_pub.add( 'END_DATE ==> ' || TO_CHAR ( L_NEW_END_DATE ) ) ;
669: END IF;
670: IF l_debug_level > 0 THEN
671: oe_debug_pub.add( 'SERVICE_DURATION ==> ' || TO_CHAR ( L_SERVICE_DURATION ) ) ;
672: END IF;
673: IF l_debug_level > 0 THEN
674: oe_debug_pub.add( 'SERVICE_PERIOD ==> ' || L_SERVICE_PERIOD ) ;
675: END IF;
670: IF l_debug_level > 0 THEN
671: oe_debug_pub.add( 'SERVICE_DURATION ==> ' || TO_CHAR ( L_SERVICE_DURATION ) ) ;
672: END IF;
673: IF l_debug_level > 0 THEN
674: oe_debug_pub.add( 'SERVICE_PERIOD ==> ' || L_SERVICE_PERIOD ) ;
675: END IF;
676: p_x_line_rec.service_end_date := l_new_end_date;
677: p_x_line_rec.service_duration := l_service_duration;
678: p_x_line_rec.service_period := l_service_period;
679: END IF;
680: -- x_return_status := l_return_status;
681: IF l_return_status is NULL THEN
682: IF l_debug_level > 0 THEN
683: oe_debug_pub.add( 'OKS_OMINT_PUB.GET_DURATION NOT RETURNED VALUE' ) ;
684: END IF;
685: --x_return_status := FND_API.G_RET_STS_ERROR;
686: END IF;
687: IF l_debug_level > 0 THEN
684: END IF;
685: --x_return_status := FND_API.G_RET_STS_ERROR;
686: END IF;
687: IF l_debug_level > 0 THEN
688: oe_debug_pub.add( 'EXITING GET_SERVICE_DURATION' ,0.5 ) ; -- debug level 0.5 added for bug 13435459
689: END IF;
690: ELSE
691: IF l_debug_level > 0 THEN
692: oe_debug_pub.add( 'OKS_OMINT_PUB.GET_DURATION NOT EXISTS',0.5 ) ; -- debug level 0.5 added for bug 13435459
688: oe_debug_pub.add( 'EXITING GET_SERVICE_DURATION' ,0.5 ) ; -- debug level 0.5 added for bug 13435459
689: END IF;
690: ELSE
691: IF l_debug_level > 0 THEN
692: oe_debug_pub.add( 'OKS_OMINT_PUB.GET_DURATION NOT EXISTS',0.5 ) ; -- debug level 0.5 added for bug 13435459
693: END IF;
694: --x_return_status := FND_API.G_RET_STS_ERROR;
695: END IF;
696: END Get_Service_Duration;
736:
737: -- End of the Blanket related changes.
738:
739: --
740: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
741: --
742: BEGIN
743:
744: -- oe_debug_pub.Debug_On;
740: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
741: --
742: BEGIN
743:
744: -- oe_debug_pub.Debug_On;
745:
746: IF l_debug_level > 0 THEN
747: oe_debug_pub.add( 'ENTERING GET_SERVICE_ATTRIBUTE' ) ;
748: oe_debug_pub.add( 'ENTERING For Blanket '||P_X_LINE_REC.BLANKET_NUMBER) ;
743:
744: -- oe_debug_pub.Debug_On;
745:
746: IF l_debug_level > 0 THEN
747: oe_debug_pub.add( 'ENTERING GET_SERVICE_ATTRIBUTE' ) ;
748: oe_debug_pub.add( 'ENTERING For Blanket '||P_X_LINE_REC.BLANKET_NUMBER) ;
749: END IF;
750: IF l_debug_level > 0 THEN
751: oe_debug_pub.add( 'SERVICE REF TYPE CODE IS:' || P_X_LINE_REC.SERVICE_REFERENCE_TYPE_CODE ) ;
744: -- oe_debug_pub.Debug_On;
745:
746: IF l_debug_level > 0 THEN
747: oe_debug_pub.add( 'ENTERING GET_SERVICE_ATTRIBUTE' ) ;
748: oe_debug_pub.add( 'ENTERING For Blanket '||P_X_LINE_REC.BLANKET_NUMBER) ;
749: END IF;
750: IF l_debug_level > 0 THEN
751: oe_debug_pub.add( 'SERVICE REF TYPE CODE IS:' || P_X_LINE_REC.SERVICE_REFERENCE_TYPE_CODE ) ;
752: END IF;
747: oe_debug_pub.add( 'ENTERING GET_SERVICE_ATTRIBUTE' ) ;
748: oe_debug_pub.add( 'ENTERING For Blanket '||P_X_LINE_REC.BLANKET_NUMBER) ;
749: END IF;
750: IF l_debug_level > 0 THEN
751: oe_debug_pub.add( 'SERVICE REF TYPE CODE IS:' || P_X_LINE_REC.SERVICE_REFERENCE_TYPE_CODE ) ;
752: END IF;
753: IF l_debug_level > 0 THEN
754: oe_debug_pub.add( 'SERVICE REF LINE ID:' || P_X_LINE_REC.SERVICE_REFERENCE_LINE_ID ) ;
755: END IF;
750: IF l_debug_level > 0 THEN
751: oe_debug_pub.add( 'SERVICE REF TYPE CODE IS:' || P_X_LINE_REC.SERVICE_REFERENCE_TYPE_CODE ) ;
752: END IF;
753: IF l_debug_level > 0 THEN
754: oe_debug_pub.add( 'SERVICE REF LINE ID:' || P_X_LINE_REC.SERVICE_REFERENCE_LINE_ID ) ;
755: END IF;
756:
757:
758: IF l_debug_level > 0 THEN
755: END IF;
756:
757:
758: IF l_debug_level > 0 THEN
759: oe_debug_pub.add( 'ENTERING GET_SERVICE_ATTRIBUTE BEFORE IF' ) ;
760: END IF;
761: IF (p_x_line_rec.service_reference_type_code is NULL)
762: AND (p_x_line_rec.service_reference_line_id is NOT NULL) THEN
763: IF l_debug_level > 0 THEN
760: END IF;
761: IF (p_x_line_rec.service_reference_type_code is NULL)
762: AND (p_x_line_rec.service_reference_line_id is NOT NULL) THEN
763: IF l_debug_level > 0 THEN
764: oe_debug_pub.add( 'ENTERING GET_SERVICE_ATTRIBUTE REF TYPE NULL' ) ;
765: END IF;
766: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR) THEN
767: OE_MSG_PUB.Update_Msg_Context(p_attribute_code => 'SERVICE_REFERENCE_TYPE_CODE');
768: fnd_message.set_name('ONT','OE_INVALID_SERVICE_REFERENCE_TYPE_CODE');
778: -- first use IS_SERVICE_AVAILABLE API to confirm that the enter
779: -- service item is valid for the reference item
780:
781: IF l_debug_level > 0 THEN
782: oe_debug_pub.add( 'ENTERING GET_SERVICE_ATTRIBUTE WITH REF AS ORDER' ) ;
783: END IF;
784: IF l_debug_level > 0 THEN
785: oe_debug_pub.add( 'REF LINEID# ' || TO_CHAR ( P_X_LINE_REC.SERVICE_REFERENCE_LINE_ID ) ) ;
786: END IF;
781: IF l_debug_level > 0 THEN
782: oe_debug_pub.add( 'ENTERING GET_SERVICE_ATTRIBUTE WITH REF AS ORDER' ) ;
783: END IF;
784: IF l_debug_level > 0 THEN
785: oe_debug_pub.add( 'REF LINEID# ' || TO_CHAR ( P_X_LINE_REC.SERVICE_REFERENCE_LINE_ID ) ) ;
786: END IF;
787: IF l_debug_level > 0 THEN
788: oe_debug_pub.add( 'REF LINE# ' || TO_CHAR ( P_X_LINE_REC.SERVICE_REF_LINE_NUMBER ) ) ;
789: END IF;
784: IF l_debug_level > 0 THEN
785: oe_debug_pub.add( 'REF LINEID# ' || TO_CHAR ( P_X_LINE_REC.SERVICE_REFERENCE_LINE_ID ) ) ;
786: END IF;
787: IF l_debug_level > 0 THEN
788: oe_debug_pub.add( 'REF LINE# ' || TO_CHAR ( P_X_LINE_REC.SERVICE_REF_LINE_NUMBER ) ) ;
789: END IF;
790: IF l_debug_level > 0 THEN
791: oe_debug_pub.add( 'ORDER# ' || TO_CHAR ( P_X_LINE_REC.SERVICE_REF_ORDER_NUMBER ) ) ;
792: END IF;
787: IF l_debug_level > 0 THEN
788: oe_debug_pub.add( 'REF LINE# ' || TO_CHAR ( P_X_LINE_REC.SERVICE_REF_LINE_NUMBER ) ) ;
789: END IF;
790: IF l_debug_level > 0 THEN
791: oe_debug_pub.add( 'ORDER# ' || TO_CHAR ( P_X_LINE_REC.SERVICE_REF_ORDER_NUMBER ) ) ;
792: END IF;
793: BEGIN
794: IF p_x_line_rec.service_reference_line_id is null then
795:
863: ELSE
864:
865: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
866: IF l_debug_level > 0 THEN
867: oe_debug_pub.add( 'IN SELECT USING REF LINEID# WITH BLANKET'
868: || TO_CHAR ( P_X_LINE_REC.SERVICE_REFERENCE_LINE_ID ) ) ;
869: END IF;
870: BEGIN -- Bug 9001060
871: SELECT l.line_number
928: ELSE
929:
930:
931: IF l_debug_level > 0 THEN
932: oe_debug_pub.add( 'IN SELECT USING REF LINEID# ' || TO_CHAR ( P_X_LINE_REC.SERVICE_REFERENCE_LINE_ID ) ) ;
933: END IF;
934: SELECT l.line_number
935: , l.shipment_number
936: , l.option_number
965: END IF;
966: END IF;
967:
968: IF l_debug_level > 0 THEN
969: oe_debug_pub.add( 'AFTER SELECT OF ORDER REF' ) ;
970: END IF;
971:
972: -- IF OKS_OMINT_PUB.IS_SERVICE_AVAILABLE exists in DB
973: -- Then Call it Else Not
984: IF OE_GLOBALS.G_OKS_INSTALLED = 'Y' AND -- AND added for 2331301
985: (NOT(l_top_model_id = l_line_id) OR l_serviceable = 'Y') THEN
986:
987: IF l_debug_level > 0 THEN
988: oe_debug_pub.add( 'IS SERVICE AVAILABLE IS AVAILABLE - RUN DYNAMIC',0.5 ) ; -- debug level 0.5 added for bug 13435459
989: END IF;
990: -- Check
991: -- Sets customer_id and request date too to fix 1720185
992:
1012: , :x_available_yn);
1013: END;';
1014:
1015: IF l_debug_level > 0 THEN
1016: oe_debug_pub.add( L_SQL_STAT ) ;
1017: END IF;
1018:
1019: EXECUTE IMMEDIATE l_sql_stat -- added request date to fix 1720185
1020: USING IN l_inventory_item_id
1034:
1035: -- debug messages added as part of 2170348
1036:
1037: IF l_debug_level > 0 THEN
1038: oe_debug_pub.add( 'PARAMETERS PASSED TO OKS_OMINT_PUB.IS_SERVICE_AVAILLABLE :' , 5 ) ;
1039: END IF;
1040: IF l_debug_level > 0 THEN
1041: oe_debug_pub.add( ' INVENTORY ITEM ID : ' || TO_CHAR ( L_INVENTORY_ITEM_ID ) , 5 ) ;
1042: END IF;
1037: IF l_debug_level > 0 THEN
1038: oe_debug_pub.add( 'PARAMETERS PASSED TO OKS_OMINT_PUB.IS_SERVICE_AVAILLABLE :' , 5 ) ;
1039: END IF;
1040: IF l_debug_level > 0 THEN
1041: oe_debug_pub.add( ' INVENTORY ITEM ID : ' || TO_CHAR ( L_INVENTORY_ITEM_ID ) , 5 ) ;
1042: END IF;
1043: IF l_debug_level > 0 THEN
1044: oe_debug_pub.add( ' SERVICE ITEM ID : ' || TO_CHAR ( P_X_LINE_REC.INVENTORY_ITEM_ID ) , 5 ) ;
1045: END IF;
1040: IF l_debug_level > 0 THEN
1041: oe_debug_pub.add( ' INVENTORY ITEM ID : ' || TO_CHAR ( L_INVENTORY_ITEM_ID ) , 5 ) ;
1042: END IF;
1043: IF l_debug_level > 0 THEN
1044: oe_debug_pub.add( ' SERVICE ITEM ID : ' || TO_CHAR ( P_X_LINE_REC.INVENTORY_ITEM_ID ) , 5 ) ;
1045: END IF;
1046: IF l_debug_level > 0 THEN
1047: oe_debug_pub.add( ' CUSTOMER ID : ' || TO_CHAR ( P_X_LINE_REC.SOLD_TO_ORG_ID ) , 5 ) ;
1048: END IF;
1043: IF l_debug_level > 0 THEN
1044: oe_debug_pub.add( ' SERVICE ITEM ID : ' || TO_CHAR ( P_X_LINE_REC.INVENTORY_ITEM_ID ) , 5 ) ;
1045: END IF;
1046: IF l_debug_level > 0 THEN
1047: oe_debug_pub.add( ' CUSTOMER ID : ' || TO_CHAR ( P_X_LINE_REC.SOLD_TO_ORG_ID ) , 5 ) ;
1048: END IF;
1049: IF l_debug_level > 0 THEN
1050: oe_debug_pub.add( ' REQUEST DATE : ' || TO_CHAR ( P_X_LINE_REC.REQUEST_DATE ) , 5 ) ;
1051: END IF;
1046: IF l_debug_level > 0 THEN
1047: oe_debug_pub.add( ' CUSTOMER ID : ' || TO_CHAR ( P_X_LINE_REC.SOLD_TO_ORG_ID ) , 5 ) ;
1048: END IF;
1049: IF l_debug_level > 0 THEN
1050: oe_debug_pub.add( ' REQUEST DATE : ' || TO_CHAR ( P_X_LINE_REC.REQUEST_DATE ) , 5 ) ;
1051: END IF;
1052: IF l_debug_level > 0 THEN
1053: oe_debug_pub.add( 'AVAILABLE/RET.STATUS:' || L_AVAILABLE_YN||'/'||L_RETURN_STATUS , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
1054: END IF;
1049: IF l_debug_level > 0 THEN
1050: oe_debug_pub.add( ' REQUEST DATE : ' || TO_CHAR ( P_X_LINE_REC.REQUEST_DATE ) , 5 ) ;
1051: END IF;
1052: IF l_debug_level > 0 THEN
1053: oe_debug_pub.add( 'AVAILABLE/RET.STATUS:' || L_AVAILABLE_YN||'/'||L_RETURN_STATUS , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
1054: END IF;
1055:
1056: IF l_debug_level > 0 THEN
1057: oe_debug_pub.add( 'AFTER CALL TO SERVICE AVAILABLE API' ) ;
1053: oe_debug_pub.add( 'AVAILABLE/RET.STATUS:' || L_AVAILABLE_YN||'/'||L_RETURN_STATUS , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
1054: END IF;
1055:
1056: IF l_debug_level > 0 THEN
1057: oe_debug_pub.add( 'AFTER CALL TO SERVICE AVAILABLE API' ) ;
1058: END IF;
1059:
1060: /* OR added for 2282076 */
1061: IF l_available_yn = 'N' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1073:
1074: END IF;
1075:
1076: IF l_debug_level > 0 THEN
1077: oe_debug_pub.add( 'JPN: SERVICE QTY IS' || L_SERVICE_QTY ) ;
1078: END IF;
1079: IF l_debug_level > 0 THEN
1080: oe_debug_pub.add( 'JPN: PRODUCT QTY IS' || P_X_LINE_REC.ORDERED_QUANTITY ) ;
1081: END IF;
1076: IF l_debug_level > 0 THEN
1077: oe_debug_pub.add( 'JPN: SERVICE QTY IS' || L_SERVICE_QTY ) ;
1078: END IF;
1079: IF l_debug_level > 0 THEN
1080: oe_debug_pub.add( 'JPN: PRODUCT QTY IS' || P_X_LINE_REC.ORDERED_QUANTITY ) ;
1081: END IF;
1082:
1083: IF p_x_line_rec.ordered_quantity <> Nvl (l_fulfilled_quantity,l_service_qty)THEN --5699215
1084: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR) THEN
1099:
1100: IF l_header_id = p_x_line_rec.header_id THEN
1101: p_x_line_rec.service_reference_line_id := l_line_id;
1102: IF l_debug_level > 0 THEN
1103: oe_debug_pub.add( 'AKS: LINE NUMBER IN GET SA ' || TO_CHAR ( L_LINE_NUMBER ) ) ;
1104: END IF;
1105: p_x_line_rec.line_number := l_line_number;
1106: p_x_line_rec.shipment_number := l_shipment_number;
1107: p_x_line_rec.option_number := l_option_number;
1201: P_X_LINE_REC.blanket_version_number := l_blanket_version_number;
1202: end if;
1203:
1204: IF l_debug_level > 0 THEN
1205: oe_debug_pub.add( 'SERVICE NUMBER IS :' || TO_CHAR ( P_X_LINE_REC.SERVICE_NUMBER ) ) ;
1206: END IF;
1207: IF l_debug_level > 0 THEN
1208: oe_debug_pub.add( 'LINE NUMBER IS :'|| TO_CHAR ( P_X_LINE_REC.LINE_NUMBER ) ) ;
1209: END IF;
1204: IF l_debug_level > 0 THEN
1205: oe_debug_pub.add( 'SERVICE NUMBER IS :' || TO_CHAR ( P_X_LINE_REC.SERVICE_NUMBER ) ) ;
1206: END IF;
1207: IF l_debug_level > 0 THEN
1208: oe_debug_pub.add( 'LINE NUMBER IS :'|| TO_CHAR ( P_X_LINE_REC.LINE_NUMBER ) ) ;
1209: END IF;
1210: IF l_debug_level > 0 THEN
1211: oe_debug_pub.add( 'REF LINE ID IS :'|| TO_CHAR ( L_LINE_ID ) ) ;
1212: END IF;
1207: IF l_debug_level > 0 THEN
1208: oe_debug_pub.add( 'LINE NUMBER IS :'|| TO_CHAR ( P_X_LINE_REC.LINE_NUMBER ) ) ;
1209: END IF;
1210: IF l_debug_level > 0 THEN
1211: oe_debug_pub.add( 'REF LINE ID IS :'|| TO_CHAR ( L_LINE_ID ) ) ;
1212: END IF;
1213:
1214:
1215: END IF;
1213:
1214:
1215: END IF;
1216: IF l_debug_level > 0 THEN
1217: oe_debug_pub.add( 'EXITING GET_SERVICE_ATTRIBUTE' ) ;
1218: END IF;
1219:
1220: EXCEPTION
1221:
1248: /* Enhancement changes for 1799820. The code references to CS objects */
1249: /* are being replaced by the new CSI product apis. */
1250:
1251: IF l_debug_level > 0 THEN
1252: oe_debug_pub.add( 'GET SERVICE ATTRIBUTE - TYPE IS CUSTOMER_PRODUCT' ) ;
1253: END IF;
1254: --for ER 5926405,6346045 changes start here
1255: /* IF NOT (CSI_UTILITY_GRP.IB_ACTIVE()) THEN
1256: IF NOT (IB_ACTIVE()) THEN
1287: l_sql_stat := l_sql_stat || ' AND rownum < 2 ';
1288:
1289: -- END IF;
1290: IF l_debug_level > 0 THEN
1291: oe_debug_pub.add( 'BEFORE EXECUTE IMMEDIATE FOR CUST ' ) ;
1292: END IF;
1293: IF l_debug_level > 0 THEN
1294: oe_debug_pub.add( 'SQL_STAT ' ||L_SQL_STAT ) ;
1295: END IF;
1290: IF l_debug_level > 0 THEN
1291: oe_debug_pub.add( 'BEFORE EXECUTE IMMEDIATE FOR CUST ' ) ;
1292: END IF;
1293: IF l_debug_level > 0 THEN
1294: oe_debug_pub.add( 'SQL_STAT ' ||L_SQL_STAT ) ;
1295: END IF;
1296: --3549675
1297: /*
1298: EXECUTE IMMEDIATE l_sql_stat
1320: end if;
1321: --for ER 5926405,6346045 changes end here
1322:
1323: IF l_debug_level > 0 THEN
1324: oe_debug_pub.add( 'AFTER EXECUTE IMMEDIATE FOR CUST ' ) ;
1325: END IF;
1326:
1327:
1328:
1364: , :x_available_yn);
1365: END;';
1366:
1367: IF l_debug_level > 0 THEN
1368: oe_debug_pub.add( 'BEFORE EXECUTE IMMEDIATE FOR CUST-IS_SERVICE_AVAIL',0.5 ) ; -- debug level 0.5 added for bug 13435459
1369: END IF;
1370: IF l_debug_level > 0 THEN
1371: oe_debug_pub.add( 'SQL_STAT ' ||L_SQL_STAT ) ;
1372: END IF;
1367: IF l_debug_level > 0 THEN
1368: oe_debug_pub.add( 'BEFORE EXECUTE IMMEDIATE FOR CUST-IS_SERVICE_AVAIL',0.5 ) ; -- debug level 0.5 added for bug 13435459
1369: END IF;
1370: IF l_debug_level > 0 THEN
1371: oe_debug_pub.add( 'SQL_STAT ' ||L_SQL_STAT ) ;
1372: END IF;
1373: EXECUTE IMMEDIATE l_sql_stat -- added request_date to fix 1720185
1374: USING IN p_x_line_rec.inventory_item_id
1375: , IN p_x_line_rec.sold_to_org_id
1387:
1388:
1389: -- debug mesasges added added as part of 2170348
1390: IF l_debug_level > 0 THEN
1391: oe_debug_pub.add( 'PARAMETERS PASSED TO OKS_OMINT_PUB.IS_SERVICE_AVAILLABLE :' , 5 ) ;
1392: END IF;
1393: IF l_debug_level > 0 THEN
1394: oe_debug_pub.add( ' SERVICE ITEM ID : ' || TO_CHAR ( P_X_LINE_REC.INVENTORY_ITEM_ID ) , 5 ) ;
1395: END IF;
1390: IF l_debug_level > 0 THEN
1391: oe_debug_pub.add( 'PARAMETERS PASSED TO OKS_OMINT_PUB.IS_SERVICE_AVAILLABLE :' , 5 ) ;
1392: END IF;
1393: IF l_debug_level > 0 THEN
1394: oe_debug_pub.add( ' SERVICE ITEM ID : ' || TO_CHAR ( P_X_LINE_REC.INVENTORY_ITEM_ID ) , 5 ) ;
1395: END IF;
1396: IF l_debug_level > 0 THEN
1397: oe_debug_pub.add( ' CUSTOMER ID : ' || TO_CHAR ( P_X_LINE_REC.SOLD_TO_ORG_ID ) , 5 ) ;
1398: END IF;
1393: IF l_debug_level > 0 THEN
1394: oe_debug_pub.add( ' SERVICE ITEM ID : ' || TO_CHAR ( P_X_LINE_REC.INVENTORY_ITEM_ID ) , 5 ) ;
1395: END IF;
1396: IF l_debug_level > 0 THEN
1397: oe_debug_pub.add( ' CUSTOMER ID : ' || TO_CHAR ( P_X_LINE_REC.SOLD_TO_ORG_ID ) , 5 ) ;
1398: END IF;
1399: IF l_debug_level > 0 THEN
1400: oe_debug_pub.add( ' CUST PROD LINE ID : ' || TO_CHAR ( P_X_LINE_REC.SERVICE_REFERENCE_LINE_ID ) , 5 ) ;
1401: END IF;
1396: IF l_debug_level > 0 THEN
1397: oe_debug_pub.add( ' CUSTOMER ID : ' || TO_CHAR ( P_X_LINE_REC.SOLD_TO_ORG_ID ) , 5 ) ;
1398: END IF;
1399: IF l_debug_level > 0 THEN
1400: oe_debug_pub.add( ' CUST PROD LINE ID : ' || TO_CHAR ( P_X_LINE_REC.SERVICE_REFERENCE_LINE_ID ) , 5 ) ;
1401: END IF;
1402: IF l_debug_level > 0 THEN
1403: oe_debug_pub.add( ' REQUEST DATE : ' || TO_CHAR ( P_X_LINE_REC.REQUEST_DATE ) , 5 ) ;
1404: END IF;
1399: IF l_debug_level > 0 THEN
1400: oe_debug_pub.add( ' CUST PROD LINE ID : ' || TO_CHAR ( P_X_LINE_REC.SERVICE_REFERENCE_LINE_ID ) , 5 ) ;
1401: END IF;
1402: IF l_debug_level > 0 THEN
1403: oe_debug_pub.add( ' REQUEST DATE : ' || TO_CHAR ( P_X_LINE_REC.REQUEST_DATE ) , 5 ) ;
1404: END IF;
1405: IF l_debug_level > 0 THEN
1406: oe_debug_pub.add( 'AVAILABLE/RET.STATUS:' || L_AVAILABLE_YN||'/'||L_RETURN_STATUS ,0.5 ) ; -- debug level changed to 0.5 for bug 13435459
1407: END IF;
1402: IF l_debug_level > 0 THEN
1403: oe_debug_pub.add( ' REQUEST DATE : ' || TO_CHAR ( P_X_LINE_REC.REQUEST_DATE ) , 5 ) ;
1404: END IF;
1405: IF l_debug_level > 0 THEN
1406: oe_debug_pub.add( 'AVAILABLE/RET.STATUS:' || L_AVAILABLE_YN||'/'||L_RETURN_STATUS ,0.5 ) ; -- debug level changed to 0.5 for bug 13435459
1407: END IF;
1408:
1409: IF l_debug_level > 0 THEN
1410: oe_debug_pub.add( 'AFTER EXECUTE IMMEDIATE FOR CUST-IS_SERVICE_AVAIL' ) ;
1406: oe_debug_pub.add( 'AVAILABLE/RET.STATUS:' || L_AVAILABLE_YN||'/'||L_RETURN_STATUS ,0.5 ) ; -- debug level changed to 0.5 for bug 13435459
1407: END IF;
1408:
1409: IF l_debug_level > 0 THEN
1410: oe_debug_pub.add( 'AFTER EXECUTE IMMEDIATE FOR CUST-IS_SERVICE_AVAIL' ) ;
1411: END IF;
1412:
1413: /* OR added for 2282076 */
1414: IF l_available_yn = 'N' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1426:
1427: END IF;
1428:
1429: IF l_debug_level > 0 THEN
1430: oe_debug_pub.add( 'JPN: CUST PROD SERVICE QTY IS ' || L_SERVICE_QTY ) ;
1431: END IF;
1432: IF l_debug_level > 0 THEN
1433: oe_debug_pub.add( 'JPN: CUST PROD ORDERED QTY IS ' || P_X_LINE_REC.ORDERED_QUANTITY ) ;
1434: END IF;
1429: IF l_debug_level > 0 THEN
1430: oe_debug_pub.add( 'JPN: CUST PROD SERVICE QTY IS ' || L_SERVICE_QTY ) ;
1431: END IF;
1432: IF l_debug_level > 0 THEN
1433: oe_debug_pub.add( 'JPN: CUST PROD ORDERED QTY IS ' || P_X_LINE_REC.ORDERED_QUANTITY ) ;
1434: END IF;
1435: --IF l_service_qty <> p_x_line_rec.ordered_quantity THEN
1436: IF p_x_line_rec.ordered_quantity <> Nvl (l_fulfilled_quantity,l_service_qty)THEN --5699215
1437: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR) THEN
1451: p_x_line_rec.service_number := 1;
1452: p_x_line_rec.ordered_quantity := Nvl (l_fulfilled_quantity,l_service_qty); --5699215
1453: -- x_return_status := FND_API.G_RET_STS_SUCCESS;
1454: IF l_debug_level > 0 THEN
1455: oe_debug_pub.add( 'EXITING GET_SERVICE_ATTRIBUTE' ) ;
1456: END IF;
1457: /* ELSIF (p_x_line_rec.service_reference_type_code is NULL) OR
1458: (p_x_line_rec.service_reference_type_code = FND_API.G_MISS_CHAR) THEN
1459: OE_DEBUG_PUB.ADD('IN Get_Service_Attribute - where code is NULL');
1455: oe_debug_pub.add( 'EXITING GET_SERVICE_ATTRIBUTE' ) ;
1456: END IF;
1457: /* ELSIF (p_x_line_rec.service_reference_type_code is NULL) OR
1458: (p_x_line_rec.service_reference_type_code = FND_API.G_MISS_CHAR) THEN
1459: OE_DEBUG_PUB.ADD('IN Get_Service_Attribute - where code is NULL');
1460: NULL; */
1461: ELSE
1462: OE_MSG_PUB.Add_Exc_Msg( 'G_PKG_NAME',
1463: 'Get_Service_Attribute - Invalid Context');
1462: OE_MSG_PUB.Add_Exc_Msg( 'G_PKG_NAME',
1463: 'Get_Service_Attribute - Invalid Context');
1464: -- x_return_status := FND_API.G_RET_STS_ERROR;
1465: IF l_debug_level > 0 THEN
1466: oe_debug_pub.add( 'EXITING GET_SERVICE_ATTRIBUTE' ) ;
1467: END IF;
1468: END IF;
1469:
1470: END Get_Service_Attribute;
1492: l_service_duration NUMBER;
1493: l_service_period VARCHAR2(3);
1494:
1495: --
1496: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1497: --
1498: BEGIN
1499: -- oe_debug_pub.Debug_On;
1500:
1495: --
1496: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1497: --
1498: BEGIN
1499: -- oe_debug_pub.Debug_On;
1500:
1501: IF l_debug_level > 0 THEN
1502: oe_debug_pub.add( 'ENTERING GET_SERVICE_DURATION',0.5 ) ; -- debug level 0.5 added for bug 13435459
1503: END IF;
1498: BEGIN
1499: -- oe_debug_pub.Debug_On;
1500:
1501: IF l_debug_level > 0 THEN
1502: oe_debug_pub.add( 'ENTERING GET_SERVICE_DURATION',0.5 ) ; -- debug level 0.5 added for bug 13435459
1503: END IF;
1504:
1505: x_line_rec := p_line_rec;
1506: /* OE_SERVICE_UTIL.CHECK_PROC('OKS_OMINT_PUB.GET_DURATION', l_return_status);
1536: END;';
1537:
1538: -- Added debug for bug 13435459
1539: IF l_debug_level > 0 THEN
1540: oe_debug_pub.add( 'BEFORE EXECUTE IMMEDIATE', 0.5 ) ;
1541: END IF;
1542:
1543: EXECUTE IMMEDIATE l_sql_stat
1544: USING IN l_api_version
1563: , OUT l_new_end_date;
1564:
1565: -- Added debug for bug 13435459
1566: IF l_debug_level > 0 THEN
1567: oe_debug_pub.add( 'AFTER EXECUTE IMMEDIATE', 0.5 ) ;
1568: END IF;
1569:
1570: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1571: x_line_rec.service_end_date := l_new_end_date;
1574: END IF;
1575: x_return_status := l_return_status;
1576: IF l_return_status is NULL THEN
1577: IF l_debug_level > 0 THEN
1578: oe_debug_pub.add( 'OKS_OMINT_PUB.GET_DURATION NOT RETURNED VALUE' ) ;
1579: END IF;
1580: --x_return_status := FND_API.G_RET_STS_ERROR;
1581: END IF;
1582: IF l_debug_level > 0 THEN
1579: END IF;
1580: --x_return_status := FND_API.G_RET_STS_ERROR;
1581: END IF;
1582: IF l_debug_level > 0 THEN
1583: oe_debug_pub.add( 'EXITING GET_SERVICE_DURATION' ) ;
1584: END IF;
1585: ELSE
1586: IF l_debug_level > 0 THEN
1587: oe_debug_pub.add( 'OKS_OMINT_PUB.GET_DURATION NOT EXISTS' ) ;
1583: oe_debug_pub.add( 'EXITING GET_SERVICE_DURATION' ) ;
1584: END IF;
1585: ELSE
1586: IF l_debug_level > 0 THEN
1587: oe_debug_pub.add( 'OKS_OMINT_PUB.GET_DURATION NOT EXISTS' ) ;
1588: END IF;
1589: --x_return_status := FND_API.G_RET_STS_ERROR;
1590: END IF;
1591: -- Added debug for bug 13435459
1589: --x_return_status := FND_API.G_RET_STS_ERROR;
1590: END IF;
1591: -- Added debug for bug 13435459
1592: IF l_debug_level > 0 THEN
1593: oe_debug_pub.add( 'EXITING GET_SERVICE_DURATION', 0.5 ) ;
1594: END IF;
1595: END Get_Service_Duration;
1596:
1597:
1626: l_top_model_id NUMBER; -- 2331301
1627: l_serviceable VARCHAR2(1); -- 2331301
1628: l_fulfilled_quantity number := null; --5699215
1629: --
1630: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1631: --
1632: BEGIN
1633:
1634: -- oe_debug_pub.Debug_On;
1630: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1631: --
1632: BEGIN
1633:
1634: -- oe_debug_pub.Debug_On;
1635:
1636: IF l_debug_level > 0 THEN
1637: oe_debug_pub.add( 'ENTERING GET_SERVICE_ATTRIBUTE',0.5 ) ; -- debug level 0.5 added for bug 13435459
1638: END IF;
1633:
1634: -- oe_debug_pub.Debug_On;
1635:
1636: IF l_debug_level > 0 THEN
1637: oe_debug_pub.add( 'ENTERING GET_SERVICE_ATTRIBUTE',0.5 ) ; -- debug level 0.5 added for bug 13435459
1638: END IF;
1639:
1640: x_line_rec := p_line_rec;
1641: IF (p_line_rec.service_reference_type_code is NULL) THEN
1723: , :x_available_yn);
1724: END;';
1725: -- Added debug for bug 13435459
1726: IF l_debug_level > 0 THEN
1727: oe_debug_pub.add( 'BEFORE OKS_OMINT_PUB.IS_SERVICE_AVAILABLE', 0.5 ) ;
1728: END IF;
1729:
1730:
1731: EXECUTE IMMEDIATE l_sql_stat -- added request date to fix 1720185
1746:
1747: -- debug messages added as part of 2170348
1748:
1749: IF l_debug_level > 0 THEN
1750: oe_debug_pub.add( 'PARAMETERS PASSED TO OKS_OMINT_PUB.IS_SERVICE_AVAILLABLE :' , 5 ) ;
1751: END IF;
1752: IF l_debug_level > 0 THEN
1753: oe_debug_pub.add( ' INVENTORY ITEM ID : ' || TO_CHAR ( L_INVENTORY_ITEM_ID ) , 5 ) ;
1754: END IF;
1749: IF l_debug_level > 0 THEN
1750: oe_debug_pub.add( 'PARAMETERS PASSED TO OKS_OMINT_PUB.IS_SERVICE_AVAILLABLE :' , 5 ) ;
1751: END IF;
1752: IF l_debug_level > 0 THEN
1753: oe_debug_pub.add( ' INVENTORY ITEM ID : ' || TO_CHAR ( L_INVENTORY_ITEM_ID ) , 5 ) ;
1754: END IF;
1755: IF l_debug_level > 0 THEN
1756: oe_debug_pub.add( ' SERVICE ITEM ID : ' || TO_CHAR ( P_LINE_REC.INVENTORY_ITEM_ID ) , 5 ) ;
1757: END IF;
1752: IF l_debug_level > 0 THEN
1753: oe_debug_pub.add( ' INVENTORY ITEM ID : ' || TO_CHAR ( L_INVENTORY_ITEM_ID ) , 5 ) ;
1754: END IF;
1755: IF l_debug_level > 0 THEN
1756: oe_debug_pub.add( ' SERVICE ITEM ID : ' || TO_CHAR ( P_LINE_REC.INVENTORY_ITEM_ID ) , 5 ) ;
1757: END IF;
1758: IF l_debug_level > 0 THEN
1759: oe_debug_pub.add( ' CUSTOMER ID : ' || TO_CHAR ( P_LINE_REC.SOLD_TO_ORG_ID ) , 5 ) ;
1760: END IF;
1755: IF l_debug_level > 0 THEN
1756: oe_debug_pub.add( ' SERVICE ITEM ID : ' || TO_CHAR ( P_LINE_REC.INVENTORY_ITEM_ID ) , 5 ) ;
1757: END IF;
1758: IF l_debug_level > 0 THEN
1759: oe_debug_pub.add( ' CUSTOMER ID : ' || TO_CHAR ( P_LINE_REC.SOLD_TO_ORG_ID ) , 5 ) ;
1760: END IF;
1761: IF l_debug_level > 0 THEN
1762: oe_debug_pub.add( ' REQUEST DATE : ' || TO_CHAR ( P_LINE_REC.REQUEST_DATE ) , 5 ) ;
1763: END IF;
1758: IF l_debug_level > 0 THEN
1759: oe_debug_pub.add( ' CUSTOMER ID : ' || TO_CHAR ( P_LINE_REC.SOLD_TO_ORG_ID ) , 5 ) ;
1760: END IF;
1761: IF l_debug_level > 0 THEN
1762: oe_debug_pub.add( ' REQUEST DATE : ' || TO_CHAR ( P_LINE_REC.REQUEST_DATE ) , 5 ) ;
1763: END IF;
1764:
1765: IF l_debug_level > 0 THEN
1766: oe_debug_pub.add( 'AVAILABLE/RET.STATUS:' || L_AVAILABLE_YN||'/'||L_RETURN_STATUS , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
1762: oe_debug_pub.add( ' REQUEST DATE : ' || TO_CHAR ( P_LINE_REC.REQUEST_DATE ) , 5 ) ;
1763: END IF;
1764:
1765: IF l_debug_level > 0 THEN
1766: oe_debug_pub.add( 'AVAILABLE/RET.STATUS:' || L_AVAILABLE_YN||'/'||L_RETURN_STATUS , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
1767: END IF;
1768:
1769: /* OR added for 2282076 */
1770: IF l_available_yn = 'N' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1830: x_line_rec.service_number := 1;
1831: x_line_rec.ordered_quantity := Nvl(l_fulfilled_quantity,l_service_qty); --5699215
1832:
1833: IF l_debug_level > 0 THEN
1834: oe_debug_pub.add( 'SERVICE NUMBER IS :' || TO_CHAR ( X_LINE_REC.SERVICE_NUMBER ) ) ;
1835: END IF;
1836: IF l_debug_level > 0 THEN
1837: oe_debug_pub.add( 'LINE NUMBER IS :'|| TO_CHAR ( X_LINE_REC.LINE_NUMBER ) ) ;
1838: END IF;
1833: IF l_debug_level > 0 THEN
1834: oe_debug_pub.add( 'SERVICE NUMBER IS :' || TO_CHAR ( X_LINE_REC.SERVICE_NUMBER ) ) ;
1835: END IF;
1836: IF l_debug_level > 0 THEN
1837: oe_debug_pub.add( 'LINE NUMBER IS :'|| TO_CHAR ( X_LINE_REC.LINE_NUMBER ) ) ;
1838: END IF;
1839: IF l_debug_level > 0 THEN
1840: oe_debug_pub.add( 'LINE ID IS :'|| TO_CHAR ( L_LINE_ID ) ) ;
1841: END IF;
1836: IF l_debug_level > 0 THEN
1837: oe_debug_pub.add( 'LINE NUMBER IS :'|| TO_CHAR ( X_LINE_REC.LINE_NUMBER ) ) ;
1838: END IF;
1839: IF l_debug_level > 0 THEN
1840: oe_debug_pub.add( 'LINE ID IS :'|| TO_CHAR ( L_LINE_ID ) ) ;
1841: END IF;
1842:
1843:
1844: END IF;
1842:
1843:
1844: END IF;
1845: IF l_debug_level > 0 THEN
1846: oe_debug_pub.add( 'EXITING GET_SERVICE_ATTRIBUTE' ) ;
1847: END IF;
1848:
1849: EXCEPTION
1850:
1924: END;';
1925:
1926: -- Added debug for bug 13435459
1927: IF l_debug_level > 0 THEN
1928: oe_debug_pub.add( 'BEFORE OKS_OMINT_PUB.IS_SERVICE_AVAILABLE2', 0.5 ) ;
1929: END IF;
1930:
1931: EXECUTE IMMEDIATE l_sql_stat -- added request_date to fix 1720185
1932: USING IN p_line_rec.inventory_item_id
1945:
1946:
1947: -- debug mesasges added added as part of 2170348
1948: IF l_debug_level > 0 THEN
1949: oe_debug_pub.add( 'PARAMETERS PASSED TO OKS_OMINT_PUB.IS_SERVICE_AVAILLABLE :' , 5 ) ;
1950: END IF;
1951: IF l_debug_level > 0 THEN
1952: oe_debug_pub.add( ' SERVICE ITEM ID : ' || TO_CHAR ( P_LINE_REC.INVENTORY_ITEM_ID ) , 5 ) ;
1953: END IF;
1948: IF l_debug_level > 0 THEN
1949: oe_debug_pub.add( 'PARAMETERS PASSED TO OKS_OMINT_PUB.IS_SERVICE_AVAILLABLE :' , 5 ) ;
1950: END IF;
1951: IF l_debug_level > 0 THEN
1952: oe_debug_pub.add( ' SERVICE ITEM ID : ' || TO_CHAR ( P_LINE_REC.INVENTORY_ITEM_ID ) , 5 ) ;
1953: END IF;
1954: IF l_debug_level > 0 THEN
1955: oe_debug_pub.add( ' CUSTOMER ID : ' || TO_CHAR ( P_LINE_REC.SOLD_TO_ORG_ID ) , 5 ) ;
1956: END IF;
1951: IF l_debug_level > 0 THEN
1952: oe_debug_pub.add( ' SERVICE ITEM ID : ' || TO_CHAR ( P_LINE_REC.INVENTORY_ITEM_ID ) , 5 ) ;
1953: END IF;
1954: IF l_debug_level > 0 THEN
1955: oe_debug_pub.add( ' CUSTOMER ID : ' || TO_CHAR ( P_LINE_REC.SOLD_TO_ORG_ID ) , 5 ) ;
1956: END IF;
1957: IF l_debug_level > 0 THEN
1958: oe_debug_pub.add( ' CUST PROD LINE ID : ' || TO_CHAR ( P_LINE_REC.SERVICE_REFERENCE_LINE_ID ) , 5 ) ;
1959: END IF;
1954: IF l_debug_level > 0 THEN
1955: oe_debug_pub.add( ' CUSTOMER ID : ' || TO_CHAR ( P_LINE_REC.SOLD_TO_ORG_ID ) , 5 ) ;
1956: END IF;
1957: IF l_debug_level > 0 THEN
1958: oe_debug_pub.add( ' CUST PROD LINE ID : ' || TO_CHAR ( P_LINE_REC.SERVICE_REFERENCE_LINE_ID ) , 5 ) ;
1959: END IF;
1960: IF l_debug_level > 0 THEN
1961: oe_debug_pub.add( ' REQUEST DATE : ' || TO_CHAR ( P_LINE_REC.REQUEST_DATE ) , 5 ) ;
1962: END IF;
1957: IF l_debug_level > 0 THEN
1958: oe_debug_pub.add( ' CUST PROD LINE ID : ' || TO_CHAR ( P_LINE_REC.SERVICE_REFERENCE_LINE_ID ) , 5 ) ;
1959: END IF;
1960: IF l_debug_level > 0 THEN
1961: oe_debug_pub.add( ' REQUEST DATE : ' || TO_CHAR ( P_LINE_REC.REQUEST_DATE ) , 5 ) ;
1962: END IF;
1963: IF l_debug_level > 0 THEN
1964: oe_debug_pub.add( 'AVAILABLE/RET.STATUS:' || L_AVAILABLE_YN||'/'||L_RETURN_STATUS , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
1965: END IF;
1960: IF l_debug_level > 0 THEN
1961: oe_debug_pub.add( ' REQUEST DATE : ' || TO_CHAR ( P_LINE_REC.REQUEST_DATE ) , 5 ) ;
1962: END IF;
1963: IF l_debug_level > 0 THEN
1964: oe_debug_pub.add( 'AVAILABLE/RET.STATUS:' || L_AVAILABLE_YN||'/'||L_RETURN_STATUS , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
1965: END IF;
1966:
1967: /* OR added for 2282076 */
1968: IF l_available_yn = 'N' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1998: -- x_line_rec.ordered_quantity := l_service_qty;
1999: x_line_rec.ordered_quantity := Nvl(l_fulfilled_quantity,l_service_qty);--5699215
2000: x_return_status := FND_API.G_RET_STS_SUCCESS;
2001: IF l_debug_level > 0 THEN
2002: oe_debug_pub.add( 'EXITING GET_SERVICE_ATTRIBUTE' ) ;
2003: END IF;
2004: ELSIF (p_line_rec.service_reference_type_code is NULL) OR
2005: (p_line_rec.service_reference_type_code = FND_API.G_MISS_CHAR) THEN
2006: IF l_debug_level > 0 THEN
2003: END IF;
2004: ELSIF (p_line_rec.service_reference_type_code is NULL) OR
2005: (p_line_rec.service_reference_type_code = FND_API.G_MISS_CHAR) THEN
2006: IF l_debug_level > 0 THEN
2007: oe_debug_pub.add( 'IN GET_SERVICE_ATTRIBUTE - WHERE CODE IS NULL' ) ;
2008: END IF;
2009: NULL;
2010: ELSE
2011: OE_MSG_PUB.Add_Exc_Msg( 'G_PKG_NAME',
2011: OE_MSG_PUB.Add_Exc_Msg( 'G_PKG_NAME',
2012: 'Get_Service_Attribute - Invalid Context');
2013: x_return_status := FND_API.G_RET_STS_ERROR;
2014: IF l_debug_level > 0 THEN
2015: oe_debug_pub.add( 'EXITING GET_SERVICE_ATTRIBUTE' ) ;
2016: END IF;
2017: END IF;
2018:
2019: END Get_Service_Attribute;
2030:
2031: )
2032: IS
2033: --
2034: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2035: --
2036: BEGIN
2037: IF l_debug_level > 0 THEN
2038: oe_debug_pub.add( 'ENTERING GET_SERVICE_REF_LINE_ID' ) ;
2034: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2035: --
2036: BEGIN
2037: IF l_debug_level > 0 THEN
2038: oe_debug_pub.add( 'ENTERING GET_SERVICE_REF_LINE_ID' ) ;
2039: END IF;
2040:
2041: If p_order_number is not null and
2042: p_line_number is not null and
2053: AND l.item_type_code <> 'SERVICE';
2054: End If;
2055: x_return_status := FND_API.G_RET_STS_SUCCESS;
2056: IF l_debug_level > 0 THEN
2057: oe_debug_pub.add( 'EXITING GET_SERVICE_REF_LINE_ID' ) ;
2058: END IF;
2059: EXCEPTION
2060: WHEN OTHERS THEN
2061: OE_MSG_PUB.Add_Exc_Msg( 'G_PKG_NAME',
2061: OE_MSG_PUB.Add_Exc_Msg( 'G_PKG_NAME',
2062: 'Get_Service_Ref_Line_Id -Invalid Order/Line No.');
2063: /* uncomment later
2064: x_return_status := FND_API.G_RET_STS_ERROR;
2065: OE_DEBUG_PUB.ADD('Exiting Get_Service_Ref_Line_Id');
2066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2067: */
2068: END Get_Service_Ref_Line_Id;
2069:
2081: l_exists VARCHAR2(1);
2082: l_reference_system_id NUMBER;
2083:
2084: --
2085: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2086: --
2087: BEGIN
2088: IF l_debug_level > 0 THEN
2089: oe_debug_pub.add( 'ENTERING GET_SERVICE_REF_SYSTEM_ID' ) ;
2085: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2086: --
2087: BEGIN
2088: IF l_debug_level > 0 THEN
2089: oe_debug_pub.add( 'ENTERING GET_SERVICE_REF_SYSTEM_ID' ) ;
2090: END IF;
2091:
2092: -- IF NOT (CSI_UTILITY_GRP.IB_ACTIVE()) THEN
2093: IF NOT (IB_ACTIVE()) THEN
2132: END IF;
2133:
2134: x_return_status := FND_API.G_RET_STS_SUCCESS;
2135: IF l_debug_level > 0 THEN
2136: oe_debug_pub.add( 'EXITING GET_SERVICE_REF_SYSTEM_ID' ) ;
2137: END IF;
2138: EXCEPTION
2139: WHEN OTHERS THEN
2140: OE_MSG_PUB.Add_Exc_Msg( 'G_PKG_NAME',
2140: OE_MSG_PUB.Add_Exc_Msg( 'G_PKG_NAME',
2141: 'Get_Service_Ref_System_Id - Invalid System No.');
2142: x_return_status := FND_API.G_RET_STS_ERROR;
2143: IF l_debug_level > 0 THEN
2144: oe_debug_pub.add( 'EXITING GET_SERVICE_REF_SYSTEM_ID' ) ;
2145: END IF;
2146: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2147: END Get_Service_Ref_System_Id;
2148:
2158: l_sql_stat VARCHAR2(250);
2159: l_system_name VARCHAR2(50);
2160: l_exists VARCHAR2(1);
2161: --
2162: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2163: --
2164: BEGIN
2165: IF l_debug_level > 0 THEN
2166: oe_debug_pub.add( 'ENTERING GET_SERVICE_REF_SYSTEM_NAME' ) ;
2162: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2163: --
2164: BEGIN
2165: IF l_debug_level > 0 THEN
2166: oe_debug_pub.add( 'ENTERING GET_SERVICE_REF_SYSTEM_NAME' ) ;
2167: END IF;
2168:
2169: -- IF NOT (CSI_UTILITY_GRP.IB_ACTIVE()) THEN
2170: IF NOT (IB_ACTIVE()) THEN
2206: END IF;
2207:
2208: x_return_status := FND_API.G_RET_STS_SUCCESS;
2209: IF l_debug_level > 0 THEN
2210: oe_debug_pub.add( 'EXITING SUCCESS GET_SERVICE_REF_SYSTEM_NAME' ) ;
2211: END IF;
2212:
2213: Exception
2214: When others then
2213: Exception
2214: When others then
2215: x_return_status := FND_API.G_RET_STS_SUCCESS;
2216: IF l_debug_level > 0 THEN
2217: oe_debug_pub.add( 'EXITING ERROR GET_SERVICE_REF_SYSTEM_NAME' ) ;
2218: END IF;
2219: END Get_Service_Ref_System_Name;
2220:
2221: PROCEDURE Get_Service_Ref_Cust_Product
2231: l_exists VARCHAR2(1);
2232: l_cust_product VARCHAR2(50);
2233:
2234: --
2235: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2236: --
2237: BEGIN
2238: IF l_debug_level > 0 THEN
2239: oe_debug_pub.add( 'ENTERING GET_SERVICE_REF_CUST_PRODUCT' ) ;
2235: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2236: --
2237: BEGIN
2238: IF l_debug_level > 0 THEN
2239: oe_debug_pub.add( 'ENTERING GET_SERVICE_REF_CUST_PRODUCT' ) ;
2240: END IF;
2241: IF l_debug_level > 0 THEN
2242: oe_debug_pub.add( 'CUSTOMER ID IS ' || P_CUSTOMER_ID ) ;
2243: END IF;
2238: IF l_debug_level > 0 THEN
2239: oe_debug_pub.add( 'ENTERING GET_SERVICE_REF_CUST_PRODUCT' ) ;
2240: END IF;
2241: IF l_debug_level > 0 THEN
2242: oe_debug_pub.add( 'CUSTOMER ID IS ' || P_CUSTOMER_ID ) ;
2243: END IF;
2244: IF l_debug_level > 0 THEN
2245: oe_debug_pub.add( 'LINE ID IS ' || P_REFERENCE_LINE_ID ) ;
2246: END IF;
2241: IF l_debug_level > 0 THEN
2242: oe_debug_pub.add( 'CUSTOMER ID IS ' || P_CUSTOMER_ID ) ;
2243: END IF;
2244: IF l_debug_level > 0 THEN
2245: oe_debug_pub.add( 'LINE ID IS ' || P_REFERENCE_LINE_ID ) ;
2246: END IF;
2247:
2248: -- IF NOT(CSI_UTILITY_GRP.IB_ACTIVE()) THEN
2249: IF NOT(IB_ACTIVE()) THEN
2264: END;
2265: END IF;
2266:
2267: IF l_debug_level > 0 THEN
2268: oe_debug_pub.add( 'AFTER EXISTS' ) ;
2269: END IF;
2270: IF l_exists = 'Y' THEN
2271: -- IF NOT(CSI_UTILITY_GRP.IB_ACTIVE()) THEN
2272: IF NOT(IB_ACTIVE()) THEN
2282: WHERE customer_product_id = :l_customer_product_id';
2283: -- AND account_id = :l_customer_id'; --3572516
2284: END IF;
2285: IF l_debug_level > 0 THEN
2286: oe_debug_pub.add( 'BEFORE EXECUTE IMMEDIATE' ) ;
2287: END IF;
2288: IF l_debug_level > 0 THEN
2289: oe_debug_pub.add( 'SQL STATEMENT BEING EXECUTED'|| L_SQL_STAT ) ;
2290: END IF;
2285: IF l_debug_level > 0 THEN
2286: oe_debug_pub.add( 'BEFORE EXECUTE IMMEDIATE' ) ;
2287: END IF;
2288: IF l_debug_level > 0 THEN
2289: oe_debug_pub.add( 'SQL STATEMENT BEING EXECUTED'|| L_SQL_STAT ) ;
2290: END IF;
2291: --3572516 using clause is altered accordingly
2292: Execute Immediate l_sql_stat Into l_cust_product
2293: Using p_reference_line_id;
2293: Using p_reference_line_id;
2294: -- Using p_reference_line_id, p_customer_id;
2295: x_cust_product := l_cust_product;
2296: IF l_debug_level > 0 THEN
2297: oe_debug_pub.add( 'AFTER EXECUTE IMMEDIATE' ) ;
2298: END IF;
2299: END IF;
2300:
2301: x_return_status := FND_API.G_RET_STS_SUCCESS;
2299: END IF;
2300:
2301: x_return_status := FND_API.G_RET_STS_SUCCESS;
2302: IF l_debug_level > 0 THEN
2303: oe_debug_pub.add( 'EXITING SUCCESS GET_SERVICE_REF_CUST_PRODUCT' ) ;
2304: END IF;
2305:
2306: Exception
2307: When others then
2306: Exception
2307: When others then
2308: x_return_status := FND_API.G_RET_STS_SUCCESS;
2309: IF l_debug_level > 0 THEN
2310: oe_debug_pub.add( 'EXITING ERROR GET_SERVICE_REF_CUST_PRODUCT' ) ;
2311: END IF;
2312: END Get_Service_Ref_Cust_Product;
2313:
2314:
2328: l_order_line_id NUMBER;
2329: l_query_type VARCHAR2(1);--for ER 5926405,6346045
2330:
2331: --
2332: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2333: --
2334: BEGIN
2335: IF l_debug_level > 0 THEN
2336: oe_debug_pub.add( 'ENTERING GET_CUST_PRODUCT_LINE_ID' ) ;
2332: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2333: --
2334: BEGIN
2335: IF l_debug_level > 0 THEN
2336: oe_debug_pub.add( 'ENTERING GET_CUST_PRODUCT_LINE_ID' ) ;
2337: END IF;
2338: IF l_debug_level > 0 THEN
2339: oe_debug_pub.add( 'CUSTOMER ID IS ' || P_CUSTOMER_ID ) ;
2340: END IF;
2335: IF l_debug_level > 0 THEN
2336: oe_debug_pub.add( 'ENTERING GET_CUST_PRODUCT_LINE_ID' ) ;
2337: END IF;
2338: IF l_debug_level > 0 THEN
2339: oe_debug_pub.add( 'CUSTOMER ID IS ' || P_CUSTOMER_ID ) ;
2340: END IF;
2341: IF l_debug_level > 0 THEN
2342: oe_debug_pub.add( 'LINE ID IS ' || P_REFERENCE_LINE_ID ) ;
2343: END IF;
2338: IF l_debug_level > 0 THEN
2339: oe_debug_pub.add( 'CUSTOMER ID IS ' || P_CUSTOMER_ID ) ;
2340: END IF;
2341: IF l_debug_level > 0 THEN
2342: oe_debug_pub.add( 'LINE ID IS ' || P_REFERENCE_LINE_ID ) ;
2343: END IF;
2344:
2345: -- IF NOT(CSI_UTILITY_GRP.IB_ACTIVE()) THEN
2346: --for ER 5926405,6346045
2363: END IF;
2364: */
2365:
2366: IF l_debug_level > 0 THEN
2367: oe_debug_pub.add( 'AFTER EXISTS' ) ;
2368: END IF;
2369: /* IF l_exists = 'Y' THEN
2370: -- IF NOT(CSI_UTILITY_GRP.IB_ACTIVE()) THEN
2371: IF NOT(IB_ACTIVE()) THEN
2383: -- AND account_id = :l_customer_id'; Bug 9346261
2384: -- END IF;
2385:
2386: IF l_debug_level > 0 THEN
2387: oe_debug_pub.add( 'BEFORE EXECUTE IMMEDIATE' ) ;
2388: END IF;
2389: IF l_debug_level > 0 THEN
2390: oe_debug_pub.add( 'SQL STATEMENT BEING EXECUTED'|| L_SQL_STAT ) ;
2391: END IF;
2386: IF l_debug_level > 0 THEN
2387: oe_debug_pub.add( 'BEFORE EXECUTE IMMEDIATE' ) ;
2388: END IF;
2389: IF l_debug_level > 0 THEN
2390: oe_debug_pub.add( 'SQL STATEMENT BEING EXECUTED'|| L_SQL_STAT ) ;
2391: END IF;
2392:
2393: /*Execute Immediate l_sql_stat Into l_order_line_id
2394: Using p_reference_line_id, p_customer_id;
2411:
2412: x_cust_product_line_id := l_order_line_id;
2413:
2414: IF l_debug_level > 0 THEN
2415: oe_debug_pub.add( 'AFTER EXECUTE IMMEDIATE' ) ;
2416: END IF;
2417: -- END IF;
2418:
2419: x_return_status := FND_API.G_RET_STS_SUCCESS;
2417: -- END IF;
2418:
2419: x_return_status := FND_API.G_RET_STS_SUCCESS;
2420: IF l_debug_level > 0 THEN
2421: oe_debug_pub.add( 'EXITING SUCCESS GET_CUST_PRODUCT_LINE_ID' ) ;
2422: END IF;
2423:
2424: Exception
2425: WHEN NO_DATA_FOUND THEN
2429: OE_MSG_PUB.Add;
2430: -- Added for Bug 6889117 End
2431:
2432: IF l_debug_level > 0 THEN
2433: oe_debug_pub.add( 'GET_CUST_PRODUCT_LINE_ID: NO DATA FOUND' ) ;
2434: END IF;
2435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2436:
2437: WHEN FND_API.G_EXC_ERROR THEN
2439:
2440: WHEN OTHERS THEN
2441: x_return_status := FND_API.G_RET_STS_ERROR;
2442: IF l_debug_level > 0 THEN
2443: oe_debug_pub.add( 'EXITING ERROR GET_CUST_PRODUCT_LINE_ID' ) ;
2444: END IF;
2445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2446: END Get_Cust_Product_Line_Id;
2447:
2462: l_sql_stat VARCHAR2(250);
2463: l_exists VARCHAR2(1);
2464: I NUMBER;
2465: --
2466: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2467: --
2468: BEGIN
2469: IF l_debug_level > 0 THEN
2470: oe_debug_pub.add( 'ENTERING GET_CUST_PROD_RG' ) ;
2466: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2467: --
2468: BEGIN
2469: IF l_debug_level > 0 THEN
2470: oe_debug_pub.add( 'ENTERING GET_CUST_PROD_RG' ) ;
2471: END IF;
2472:
2473: -- IF NOT (CSI_UTILITY_GRP.IB_ACTIVE()) THEN
2474: IF NOT (IB_ACTIVE()) THEN
2526: END IF;
2527: x_srv_cust_prod_tbl := OE_SERVICE_UTIL.l_srv_cust_prod_tbl;
2528: x_return_status := FND_API.G_RET_STS_SUCCESS;
2529: IF l_debug_level > 0 THEN
2530: oe_debug_pub.add( 'EXITING SUCCESS GET_CUST_PROD_RG' ) ;
2531: END IF;
2532:
2533: Exception
2534: When others then
2533: Exception
2534: When others then
2535: x_return_status := FND_API.G_RET_STS_SUCCESS;
2536: IF l_debug_level > 0 THEN
2537: oe_debug_pub.add( 'EXITING ERROR GET_CUST_PROD_RG' ) ;
2538: END IF;
2539:
2540: END Get_Cust_Prod_RG;
2541:
2551: l_return_status VARCHAR2(1);
2552: l_msg_count NUMBER;
2553: l_msg_data VARCHAR2(500);
2554: --
2555: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2556: --
2557: BEGIN
2558: IF l_debug_level > 0 THEN
2559: oe_debug_pub.add( 'ENTERING GET_AVAIL_SERVICE_RG' ) ;
2555: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2556: --
2557: BEGIN
2558: IF l_debug_level > 0 THEN
2559: oe_debug_pub.add( 'ENTERING GET_AVAIL_SERVICE_RG' ) ;
2560: END IF;
2561:
2562: -- Call Describe_Proc to check for the existance of the CRM's
2563: -- AVAILABLE_SERVICES API. If exists Then Call it else No Problem.
2594:
2595: OE_SERVICE_UTIL.l_srv_tbl := l_service_tbl; ';
2596:
2597: IF l_debug_level > 0 THEN
2598: oe_debug_pub.add( 'BEFORE OKS_OMINT_PUB.OKS_AVAILABLE_SERVICES', 0.5 ) ; -- Added debug for bug 13435459
2599: oe_debug_pub.add( L_SQL_STAT ) ;
2600: END IF;
2601:
2602: Execute Immediate l_sql_stat
2595: OE_SERVICE_UTIL.l_srv_tbl := l_service_tbl; ';
2596:
2597: IF l_debug_level > 0 THEN
2598: oe_debug_pub.add( 'BEFORE OKS_OMINT_PUB.OKS_AVAILABLE_SERVICES', 0.5 ) ; -- Added debug for bug 13435459
2599: oe_debug_pub.add( L_SQL_STAT ) ;
2600: END IF;
2601:
2602: Execute Immediate l_sql_stat
2603: Using p_service_rec.product_item_id, p_service_rec.customer_id,
2605:
2606: -- debug messages added for bug 2170348
2607:
2608: IF l_debug_level > 0 THEN
2609: oe_debug_pub.add( 'PARAMETERS PASSED TO OKS_OMINT_PUB.OKS_AVAILABLE_SERVICES : ' ) ;
2610: END IF;
2611: IF l_debug_level > 0 THEN
2612: oe_debug_pub.add( ' PRODUCT ITEM ID : ' || TO_CHAR ( P_SERVICE_REC.PRODUCT_ITEM_ID ),0.5 ) ; -- debug level 0.5 added for bug 13435459
2613: END IF;
2608: IF l_debug_level > 0 THEN
2609: oe_debug_pub.add( 'PARAMETERS PASSED TO OKS_OMINT_PUB.OKS_AVAILABLE_SERVICES : ' ) ;
2610: END IF;
2611: IF l_debug_level > 0 THEN
2612: oe_debug_pub.add( ' PRODUCT ITEM ID : ' || TO_CHAR ( P_SERVICE_REC.PRODUCT_ITEM_ID ),0.5 ) ; -- debug level 0.5 added for bug 13435459
2613: END IF;
2614: IF l_debug_level > 0 THEN
2615: oe_debug_pub.add( ' CUSTOMER ID : ' || TO_CHAR ( P_SERVICE_REC.CUSTOMER_ID ) ) ;
2616: END IF;
2611: IF l_debug_level > 0 THEN
2612: oe_debug_pub.add( ' PRODUCT ITEM ID : ' || TO_CHAR ( P_SERVICE_REC.PRODUCT_ITEM_ID ),0.5 ) ; -- debug level 0.5 added for bug 13435459
2613: END IF;
2614: IF l_debug_level > 0 THEN
2615: oe_debug_pub.add( ' CUSTOMER ID : ' || TO_CHAR ( P_SERVICE_REC.CUSTOMER_ID ) ) ;
2616: END IF;
2617:
2618: x_return_status := FND_API.G_RET_STS_SUCCESS;
2619: IF l_debug_level > 0 THEN
2616: END IF;
2617:
2618: x_return_status := FND_API.G_RET_STS_SUCCESS;
2619: IF l_debug_level > 0 THEN
2620: oe_debug_pub.add( 'EXITING ERROR GET_AVAIL_SERVICE_RG' ) ;
2621: END IF;
2622: END IF;
2623:
2624: Exception
2624: Exception
2625: When others then
2626: x_return_status := FND_API.G_RET_STS_SUCCESS;
2627: IF l_debug_level > 0 THEN
2628: oe_debug_pub.add( 'EXITING ERROR GET_AVAIL_SERVICE_RG' ) ;
2629: END IF;
2630:
2631: END Get_Avail_Service_RG;
2632:
2633: PROCEDURE Retrieve_OC_Messages IS
2634: l_msg_count NUMBER;
2635: l_msg_data VARCHAR2(2000);
2636: x_msg_data VARCHAR2(2000);
2637: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2638: BEGIN
2639:
2640: IF l_debug_level > 0 THEN
2641: oe_debug_pub.add( 'ENTERING RETRIEVE OC MESSAGES',0.5 ) ; -- debug level 0.5 added for bug 13435459
2637: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2638: BEGIN
2639:
2640: IF l_debug_level > 0 THEN
2641: oe_debug_pub.add( 'ENTERING RETRIEVE OC MESSAGES',0.5 ) ; -- debug level 0.5 added for bug 13435459
2642: END IF;
2643: fnd_msg_pub.Count_And_Get
2644: (p_count => l_msg_count,
2645: p_data => l_msg_data
2645: p_data => l_msg_data
2646: );
2647:
2648: IF l_debug_level > 0 THEN
2649: oe_debug_pub.add( 'NO. OF OC MESSAGES :' || L_MSG_COUNT ) ;
2650: END IF;
2651: for k in 1 ..l_msg_count loop
2652: x_msg_data := fnd_msg_pub.get( p_msg_index => k,
2653: p_encoded => 'F'
2654: );
2655: -- For bug 3574480. To show the error reason to the user.
2656: oe_msg_pub.add_text(p_message_text =>X_MSG_DATA);
2657: IF l_debug_level > 0 THEN
2658: oe_debug_pub.add( SUBSTR ( X_MSG_DATA , 1 , 255 ) ) ;
2659: END IF;
2660: end loop;
2661: -- Added debug for bug 13435459
2662: IF l_debug_level > 0 THEN
2659: END IF;
2660: end loop;
2661: -- Added debug for bug 13435459
2662: IF l_debug_level > 0 THEN
2663: oe_debug_pub.add( 'EXITING RETRIEVE OC MESSAGES', 0.5 ) ;
2664: END IF;
2665: END;
2666:
2667: PROCEDURE Val_Item_Change( p_application_id IN NUMBER,
2675:
2676:
2677: l_exists VARCHAR2(30);
2678: l_line_id NUMBER := oe_line_security.g_record.line_id;
2679: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2680: BEGIN
2681: Select 'EXISTS' into
2682: l_exists
2683: from oe_order_lines_all
2716: SELECT line_id
2717: FROM oe_order_lines
2718: WHERE p_service_reference_line_id = service_reference_line_id
2719: ORDER BY line_id;
2720: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2721: BEGIN
2722:
2723: IF l_debug_level > 0 THEN
2724: oe_debug_pub.add( 'ENTERING OE_SERVICE_UTIL.NEW_SERVICE_LINES' , 1 ) ;
2720: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2721: BEGIN
2722:
2723: IF l_debug_level > 0 THEN
2724: oe_debug_pub.add( 'ENTERING OE_SERVICE_UTIL.NEW_SERVICE_LINES' , 1 ) ;
2725: END IF;
2726:
2727: --lchen fix bug 2027650
2728: I := p_x_line_tbl.FIRST;
2730:
2731: -- l_line_rec := p_x_line_tbl(i); /*3676393*/
2732:
2733: IF l_debug_level > 0 THEN
2734: oe_debug_pub.add( 'I = ' || I , 1 ) ;
2735: END IF;
2736: IF l_debug_level > 0 THEN
2737: oe_debug_pub.add( 'OPERATION:' || p_x_line_tbl(i).OPERATION , 1 ) ;
2738: END IF;
2733: IF l_debug_level > 0 THEN
2734: oe_debug_pub.add( 'I = ' || I , 1 ) ;
2735: END IF;
2736: IF l_debug_level > 0 THEN
2737: oe_debug_pub.add( 'OPERATION:' || p_x_line_tbl(i).OPERATION , 1 ) ;
2738: END IF;
2739: IF l_debug_level > 0 THEN
2740: oe_debug_pub.add( 'SERVICE_REFERENCE_LINE_ID:' || p_x_line_tbl(i).SERVICE_REFERENCE_LINE_ID , 1 ) ;
2741: END IF;
2736: IF l_debug_level > 0 THEN
2737: oe_debug_pub.add( 'OPERATION:' || p_x_line_tbl(i).OPERATION , 1 ) ;
2738: END IF;
2739: IF l_debug_level > 0 THEN
2740: oe_debug_pub.add( 'SERVICE_REFERENCE_LINE_ID:' || p_x_line_tbl(i).SERVICE_REFERENCE_LINE_ID , 1 ) ;
2741: END IF;
2742: /*3676393-Altered the l_line_rec to p_x_line_tbl in the below conditions*/
2743: IF p_x_line_tbl(i).item_type_code = 'SERVICE' AND
2744: p_x_line_tbl(i).service_reference_type_code = 'ORDER' AND
2748: ( p_x_line_tbl(i).operation = OE_GLOBALS.G_OPR_CREATE or
2749: p_x_line_tbl(i).operation= OE_GLOBALS.G_OPR_UPDATE) THEN
2750:
2751: IF l_debug_level > 0 THEN
2752: oe_debug_pub.add( 'IN OE_SERVICE_UTIL.UPDATE_SERVICE_LINES.ENTERING OE_SERVICE_UTIL.NEW_SERVICE_LINES' , 1 ) ;
2753: END IF;
2754:
2755: -- oe_debug_pub.ADD('headerId:' || l_line_rec.header_id , 1);
2756: -- oe_debug_pub.ADD('line_id:' || l_line_rec.line_id , 1);
2751: IF l_debug_level > 0 THEN
2752: oe_debug_pub.add( 'IN OE_SERVICE_UTIL.UPDATE_SERVICE_LINES.ENTERING OE_SERVICE_UTIL.NEW_SERVICE_LINES' , 1 ) ;
2753: END IF;
2754:
2755: -- oe_debug_pub.ADD('headerId:' || l_line_rec.header_id , 1);
2756: -- oe_debug_pub.ADD('line_id:' || l_line_rec.line_id , 1);
2757: -- oe_debug_pub.ADD('service_reference_line_id:' || l_line_rec.service_reference_line_id , 1);
2758:
2759: l_line_rec := p_x_line_tbl(i); /*3676393*/
2752: oe_debug_pub.add( 'IN OE_SERVICE_UTIL.UPDATE_SERVICE_LINES.ENTERING OE_SERVICE_UTIL.NEW_SERVICE_LINES' , 1 ) ;
2753: END IF;
2754:
2755: -- oe_debug_pub.ADD('headerId:' || l_line_rec.header_id , 1);
2756: -- oe_debug_pub.ADD('line_id:' || l_line_rec.line_id , 1);
2757: -- oe_debug_pub.ADD('service_reference_line_id:' || l_line_rec.service_reference_line_id , 1);
2758:
2759: l_line_rec := p_x_line_tbl(i); /*3676393*/
2760:
2753: END IF;
2754:
2755: -- oe_debug_pub.ADD('headerId:' || l_line_rec.header_id , 1);
2756: -- oe_debug_pub.ADD('line_id:' || l_line_rec.line_id , 1);
2757: -- oe_debug_pub.ADD('service_reference_line_id:' || l_line_rec.service_reference_line_id , 1);
2758:
2759: l_line_rec := p_x_line_tbl(i); /*3676393*/
2760:
2761: OE_Line_Util.query_row(
2815: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
2816: END IF;
2817:
2818: IF l_debug_level > 0 THEN
2819: oe_debug_pub.add( 'EXITING OE_SERVICE_UTIL.UPDATE_SERVICE_LINES' , 1 ) ;
2820: END IF;
2821:
2822:
2823: EXCEPTION
2889: AND exists (select null from mtl_system_items mtl where
2890: mtl.inventory_item_id = l.inventory_item_id and
2891: mtl.serviceable_product_flag = 'Y');
2892:
2893: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2894: BEGIN
2895:
2896: IF l_debug_level > 0 THEN
2897: oe_debug_pub.add( 'ENTER OE_SERVICE_UTIL.CASCADE_CHANGES' , 1 ) ;
2893: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2894: BEGIN
2895:
2896: IF l_debug_level > 0 THEN
2897: oe_debug_pub.add( 'ENTER OE_SERVICE_UTIL.CASCADE_CHANGES' , 1 ) ;
2898: END IF;
2899:
2900: IF fnd_profile.value('ONT_CASCADE_SERVICE') = 'N' THEN
2901: /* 3128684 */
2899:
2900: IF fnd_profile.value('ONT_CASCADE_SERVICE') = 'N' THEN
2901: /* 3128684 */
2902: IF l_debug_level > 0 THEN
2903: oe_debug_pub.add( 'DO NOT CASCADE SERVICES' , 2 ) ;
2904: END IF;
2905: x_return_status := FND_API.G_RET_STS_SUCCESS;
2906: RETURN;
2907: END IF;
2905: x_return_status := FND_API.G_RET_STS_SUCCESS;
2906: RETURN;
2907: END IF;
2908: IF l_debug_level > 0 THEN
2909: oe_debug_pub.add( 'DO CASCADE SERVICES' , 2 ) ;
2910: END IF;
2911:
2912: OE_Line_Util.Lock_Row( p_line_id => p_parent_line_id
2913: ,p_x_line_rec => l_parent_line_rec
2926: l_service_duration := l_parent_line_rec.service_duration;
2927: l_service_period := l_parent_line_rec.service_period;
2928:
2929: IF l_debug_level > 0 THEN
2930: oe_debug_pub.add( 'CSH L_INV_ITEM_ID = ' || TO_CHAR ( L_INVENTORY_ITEM_ID ) , 1 ) ;
2931: END IF;
2932: IF l_debug_level > 0 THEN
2933: oe_debug_pub.add( 'CSH L_SERVICE_START_DATE = ' || TO_CHAR ( L_SERVICE_START_DATE , 'DD-MON-YYYY HH24:MI:SS' ) , 1 ) ;
2934: END IF;
2929: IF l_debug_level > 0 THEN
2930: oe_debug_pub.add( 'CSH L_INV_ITEM_ID = ' || TO_CHAR ( L_INVENTORY_ITEM_ID ) , 1 ) ;
2931: END IF;
2932: IF l_debug_level > 0 THEN
2933: oe_debug_pub.add( 'CSH L_SERVICE_START_DATE = ' || TO_CHAR ( L_SERVICE_START_DATE , 'DD-MON-YYYY HH24:MI:SS' ) , 1 ) ;
2934: END IF;
2935: IF l_debug_level > 0 THEN
2936: oe_debug_pub.add( 'CSH L_SERVICE_END_DATE = ' || TO_CHAR ( L_SERVICE_END_DATE , 'DD-MON-YYYY HH24:MI:SS' ) , 1 ) ;
2937: END IF;
2932: IF l_debug_level > 0 THEN
2933: oe_debug_pub.add( 'CSH L_SERVICE_START_DATE = ' || TO_CHAR ( L_SERVICE_START_DATE , 'DD-MON-YYYY HH24:MI:SS' ) , 1 ) ;
2934: END IF;
2935: IF l_debug_level > 0 THEN
2936: oe_debug_pub.add( 'CSH L_SERVICE_END_DATE = ' || TO_CHAR ( L_SERVICE_END_DATE , 'DD-MON-YYYY HH24:MI:SS' ) , 1 ) ;
2937: END IF;
2938: IF l_debug_level > 0 THEN
2939: oe_debug_pub.add( 'CSH L_SERVICE_DURATION = ' || TO_CHAR ( L_SERVICE_DURATION ) , 1 ) ;
2940: END IF;
2935: IF l_debug_level > 0 THEN
2936: oe_debug_pub.add( 'CSH L_SERVICE_END_DATE = ' || TO_CHAR ( L_SERVICE_END_DATE , 'DD-MON-YYYY HH24:MI:SS' ) , 1 ) ;
2937: END IF;
2938: IF l_debug_level > 0 THEN
2939: oe_debug_pub.add( 'CSH L_SERVICE_DURATION = ' || TO_CHAR ( L_SERVICE_DURATION ) , 1 ) ;
2940: END IF;
2941: IF l_debug_level > 0 THEN
2942: oe_debug_pub.add( 'CSH L_SERVICE_PERIOD = ' || L_SERVICE_PERIOD , 1 ) ;
2943: END IF;
2938: IF l_debug_level > 0 THEN
2939: oe_debug_pub.add( 'CSH L_SERVICE_DURATION = ' || TO_CHAR ( L_SERVICE_DURATION ) , 1 ) ;
2940: END IF;
2941: IF l_debug_level > 0 THEN
2942: oe_debug_pub.add( 'CSH L_SERVICE_PERIOD = ' || L_SERVICE_PERIOD , 1 ) ;
2943: END IF;
2944:
2945:
2946: l_line_count := 0;
2947: OPEN model_children ;
2948: LOOP
2949: FETCH model_children into child_line_id;
2950: IF l_debug_level > 0 THEN
2951: oe_debug_pub.add( 'CSH CHILD_LINE_ID = ' || TO_CHAR ( CHILD_LINE_ID ) , 1 ) ;
2952: END IF;
2953: EXIT when model_children%NOTFOUND;
2954: BEGIN
2955: SELECT LINE_ID
2968: END;
2969: */
2970:
2971: IF l_debug_level > 0 THEN
2972: oe_debug_pub.add( 'CSH L_LINE_ID = ' || TO_CHAR ( L_LINE_ID ) , 1 ) ;
2973: END IF;
2974: l_line_count := l_line_count + 1;
2975: l_line_rec := OE_ORDER_PUB.G_MISS_LINE_REC;
2976: l_line_rec.line_id := l_line_id;
2984: END LOOP;
2985:
2986: IF l_line_count = 0 THEN
2987: IF l_debug_level > 0 THEN
2988: oe_debug_pub.add( 'EXITING OE_SERVICE_UTIL.CASCADE_CHANGES' , 1 ) ;
2989: END IF;
2990: IF l_debug_level > 0 THEN
2991: oe_debug_pub.add( 'NO ROWS TO CASCADE' , 2 ) ;
2992: END IF;
2987: IF l_debug_level > 0 THEN
2988: oe_debug_pub.add( 'EXITING OE_SERVICE_UTIL.CASCADE_CHANGES' , 1 ) ;
2989: END IF;
2990: IF l_debug_level > 0 THEN
2991: oe_debug_pub.add( 'NO ROWS TO CASCADE' , 2 ) ;
2992: END IF;
2993: RETURN;
2994: END IF;
2995:
2993: RETURN;
2994: END IF;
2995:
2996: IF l_debug_level > 0 THEN
2997: oe_debug_pub.add( 'NO OF LINES TO CASCADE: ' || TO_CHAR ( L_LINE_TBL.COUNT ) , 1 ) ;
2998: END IF;
2999:
3000: FOR I IN 1..l_line_tbl.count LOOP
3001:
3035: l_control_rec.clear_api_requests := FALSE;
3036:
3037:
3038: IF l_debug_level > 0 THEN
3039: oe_debug_pub.add( 'CALLING PROCESS ORDER' , 1 ) ;
3040: END IF;
3041:
3042: -- Call OE_Order_PVT.Process_order
3043:
3049: ,x_return_status => l_return_status);
3050:
3051: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3052: IF l_debug_level > 0 THEN
3053: oe_debug_pub.add( 'INSIDE UNEXPECTED ERROR ' , 2 ) ;
3054: END IF;
3055: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3056: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3057: IF l_debug_level > 0 THEN
3054: END IF;
3055: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3056: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3057: IF l_debug_level > 0 THEN
3058: oe_debug_pub.add( 'INSIDE ERROR ' , 2 ) ;
3059: END IF;
3060: RAISE FND_API.G_EXC_ERROR;
3061: END IF;
3062:
3079: -- Clear Table
3080: l_line_tbl.DELETE;
3081:
3082: IF l_debug_level > 0 THEN
3083: oe_debug_pub.add( 'EXITING UPDATE_SERVICE_FOR_OPTIONS' , 1 ) ;
3084: END IF;
3085:
3086: EXCEPTION
3087:
3086: EXCEPTION
3087:
3088: WHEN FND_API.G_EXC_ERROR THEN
3089: IF l_debug_level > 0 THEN
3090: oe_debug_pub.add( 'INSIDE EXCEPTION EXE ERROR ' , 1 ) ;
3091: END IF;
3092: x_return_status := FND_API.G_RET_STS_ERROR;
3093:
3094: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3092: x_return_status := FND_API.G_RET_STS_ERROR;
3093:
3094: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3095: IF l_debug_level > 0 THEN
3096: oe_debug_pub.add( 'INSIDE EXCEPTION UNEXP ERROR ' , 1 ) ;
3097: END IF;
3098: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3099:
3100: WHEN OTHERS THEN
3100: WHEN OTHERS THEN
3101:
3102: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3103: IF l_debug_level > 0 THEN
3104: oe_debug_pub.add( 'INSIDE EXCEPTION OTHER ERROR ' , 1 ) ;
3105: END IF;
3106:
3107: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3108: THEN
3119: IS
3120: l_exists VARCHAR2(1);
3121: l_sql_stat VARCHAR2(250);
3122: l_freeze_flag VARCHAR2(1) := 'N';
3123: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3124: BEGIN
3125:
3126: -- oe_debug_pub.Debug_On;
3127:
3122: l_freeze_flag VARCHAR2(1) := 'N';
3123: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3124: BEGIN
3125:
3126: -- oe_debug_pub.Debug_On;
3127:
3128: IF l_debug_level > 0 THEN
3129: oe_debug_pub.add( 'ENTERING IB_ACTIVE' ) ;
3130: END IF;
3125:
3126: -- oe_debug_pub.Debug_On;
3127:
3128: IF l_debug_level > 0 THEN
3129: oe_debug_pub.add( 'ENTERING IB_ACTIVE' ) ;
3130: END IF;
3131:
3132: /* Following sql is commented for Performance problem
3133: reported in Bug-2159103 */
3136: INTO l_exists
3137: FROM all_tables
3138: where table_name='CSI_INSTALL_PARAMETERS';
3139:
3140: OE_DEBUG_PUB.ADD('l_exists= ' || l_exists ,1);
3141:
3142:
3143: IF l_exists = 'Y' THEN */
3144:
3150: EXECUTE IMMEDIATE l_sql_stat INTO l_freeze_flag;
3151:
3152:
3153: IF l_debug_level > 0 THEN
3154: oe_debug_pub.add( 'L_FREEZE_FLAG= ' || L_FREEZE_FLAG , 1 ) ;
3155: END IF;
3156:
3157: IF l_freeze_flag = 'Y' THEN
3158: return TRUE;
3163: /* Commented for Bug-2159103 */
3164: /*
3165: ELSE
3166:
3167: OE_DEBUG_PUB.ADD('CSI_UTILITY_GRP.IB_ACTIVE does not exists');
3168:
3169: END IF;
3170: */
3171:
3171:
3172: EXCEPTION
3173: WHEN NO_DATA_FOUND THEN
3174: IF l_debug_level > 0 THEN
3175: oe_debug_pub.add( 'NO DATA FOUND IN CSI_INSTALL_PARAMETERS' ) ;
3176: END IF;
3177: return FALSE;
3178:
3179: WHEN OTHERS THEN
3181: /* Added for Bug-2159103 */
3182:
3183: if sqlcode = -942 then
3184: IF l_debug_level > 0 THEN
3185: oe_debug_pub.add( SQLERRM ) ;
3186: END IF;
3187: IF l_debug_level > 0 THEN
3188: oe_debug_pub.add( 'CSI_INSTALL_PARAMETERS DOES NOT EXIST' ) ;
3189: END IF;
3184: IF l_debug_level > 0 THEN
3185: oe_debug_pub.add( SQLERRM ) ;
3186: END IF;
3187: IF l_debug_level > 0 THEN
3188: oe_debug_pub.add( 'CSI_INSTALL_PARAMETERS DOES NOT EXIST' ) ;
3189: END IF;
3190: end if;
3191:
3192: return FALSE;
3204: CURSOR option_lines IS
3205: SELECT line_id, option_number
3206: FROM oe_order_lines
3207: WHERE top_model_line_id = p_top_model_line_id;
3208: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3209:
3210: TYPE num_tbl IS TABLE OF NUMBER;
3211: l_line_ids num_tbl;
3212: l_option_numbers num_tbl;
3214: l_ref_type_code CONSTANT VARCHAR2(5) := 'ORDER';
3215: BEGIN
3216:
3217: IF l_debug_level > 0 THEN
3218: oe_debug_pub.add( 'ENTERING OE_SERVICE_UTIL.UPDATE_SERVICE_OPTION_NUMBERS' , 2 ) ;
3219: END IF;
3220:
3221: OPEN option_lines;
3222: FETCH option_lines BULK COLLECT INTO l_line_ids, l_option_numbers;
3228: WHERE service_reference_line_id = l_line_ids(i)
3229: AND service_reference_type_code = l_ref_type_code; -- For Bug 3087370
3230:
3231: IF l_debug_level > 0 THEN
3232: oe_debug_pub.add( 'LEAVING UPDATE_SERVICE_OPTION_NUMBERS' , 2 ) ;
3233: END IF;
3234:
3235: END;
3236: