457: l_dummy NUMBER;
458: --
459:
460: BEGIN
461: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', start');
462: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
463: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start time: '||TO_CHAR(SYSDATE, 'Month DD, YYYY HH24:MI:SS'));
464: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
465:
458: --
459:
460: BEGIN
461: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', start');
462: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
463: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start time: '||TO_CHAR(SYSDATE, 'Month DD, YYYY HH24:MI:SS'));
464: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
465:
466: -- initialize return status to success
459:
460: BEGIN
461: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', start');
462: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
463: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start time: '||TO_CHAR(SYSDATE, 'Month DD, YYYY HH24:MI:SS'));
464: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
465:
466: -- initialize return status to success
467: retcode := 0;
460: BEGIN
461: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', start');
462: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
463: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start time: '||TO_CHAR(SYSDATE, 'Month DD, YYYY HH24:MI:SS'));
464: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
465:
466: -- initialize return status to success
467: retcode := 0;
468: l_return_status := FND_API.G_RET_STS_SUCCESS;
479: x_msg_count => l_msg_count,
480: x_msg_data => l_msg_data,
481: x_return_status => l_return_status);
482:
483: FND_FILE.PUT_LINE(FND_FILE.LOG, 'the returned values: '||
484: ' l_active_flag > '||l_active_flag||
485: ', l_process_name > '||l_process_name||
486: ', l_item_type > '||l_item_type||
487: ', l_return_status > '||l_return_status);
484: ' l_active_flag > '||l_active_flag||
485: ', l_process_name > '||l_process_name||
486: ', l_item_type > '||l_item_type||
487: ', l_return_status > '||l_return_status);
488: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
489:
490: -- if returned with error, don't proceed any further
491: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
492: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error occurred > '||l_msg_data);
488: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
489:
490: -- if returned with error, don't proceed any further
491: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
492: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error occurred > '||l_msg_data);
493: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
495: END IF;
496:
489:
490: -- if returned with error, don't proceed any further
491: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
492: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error occurred > '||l_msg_data);
493: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
495: END IF;
496:
497: -- if returned without any errors and if the mapping is active, call the notification API
498: IF (l_return_status = FND_API.G_RET_STS_SUCCESS AND l_active_flag = 'Y') THEN
499: -- get the subject text
500: l_subject := FND_MESSAGE.GET_STRING(G_APP_NAME, G_WARRANTY_EXPR_SBJ);
501:
502: FND_FILE.PUT_LINE(FND_FILE.LOG, 'before calling AHL_WF_NOTIFICATION_PVT.Launch_OA_Notification with arguments: '||
503: ' p_object > '||G_WF_EXPR_OBJ||
504: ', p_process_name > '||l_process_name||
505: ', p_item_type > '||l_item_type||
506: ', p_subject > '||l_subject||
504: ', p_process_name > '||l_process_name||
505: ', p_item_type > '||l_item_type||
506: ', p_subject > '||l_subject||
507: ', p_oa_function > '||G_WARRANTY_EXPR_FN);
508: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
509:
510: -- call AHL_WF_NOTIFICATION_PVT.Launch_OA_Notification
511: AHL_WF_NOTIFICATION_PVT.Launch_OA_Notification(
512: p_object => G_WF_EXPR_OBJ,
516: p_oa_function => G_WARRANTY_EXPR_FN,
517: x_item_key => l_item_key,
518: x_return_status => l_return_status);
519:
520: FND_FILE.PUT_LINE(FND_FILE.LOG, 'after calling AHL_WF_NOTIFICATION_PVT.Launch_OA_Notification, '||
521: ' l_item_key > '||l_item_key||
522: ', l_return_status > '||l_return_status);
523: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
524:
519:
520: FND_FILE.PUT_LINE(FND_FILE.LOG, 'after calling AHL_WF_NOTIFICATION_PVT.Launch_OA_Notification, '||
521: ' l_item_key > '||l_item_key||
522: ', l_return_status > '||l_return_status);
523: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
524:
525: -- if returned with error, don't proceed any further
526: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
527: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Errors occurred, as given below: ');
523: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
524:
525: -- if returned with error, don't proceed any further
526: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
527: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Errors occurred, as given below: ');
528: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
529:
530: -- put all the errors in the log file
531: l_msg_count := FND_MSG_PUB.count_msg;
524:
525: -- if returned with error, don't proceed any further
526: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
527: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Errors occurred, as given below: ');
528: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
529:
530: -- put all the errors in the log file
531: l_msg_count := FND_MSG_PUB.count_msg;
532: FOR i IN 1..l_msg_count LOOP
535: p_encoded => FND_API.G_FALSE,
536: p_data => l_msg_data,
537: p_msg_index_out => l_dummy);
538:
539: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error '||i||': > '||l_msg_data);
540: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
541: END LOOP;
542:
543: -- raise the exception
536: p_data => l_msg_data,
537: p_msg_index_out => l_dummy);
538:
539: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error '||i||': > '||l_msg_data);
540: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
541: END LOOP;
542:
543: -- raise the exception
544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
545: END IF;
546:
547: -- set the output
548: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Workflow notification launched with item key > '||l_item_key);
549: ELSE
550: -- set the output
551: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Workflow notification could not be launched. Check the Workflow mapping.');
552: END IF;
547: -- set the output
548: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Workflow notification launched with item key > '||l_item_key);
549: ELSE
550: -- set the output
551: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Workflow notification could not be launched. Check the Workflow mapping.');
552: END IF;
553:
554: -- commit required to launch the Workflow
555: COMMIT;
553:
554: -- commit required to launch the Workflow
555: COMMIT;
556:
557: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', end');
558: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
559: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End time: '||TO_CHAR(SYSDATE, 'Month DD, YYYY HH24:MI:SS'));
560:
561: EXCEPTION
554: -- commit required to launch the Workflow
555: COMMIT;
556:
557: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', end');
558: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
559: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End time: '||TO_CHAR(SYSDATE, 'Month DD, YYYY HH24:MI:SS'));
560:
561: EXCEPTION
562: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
555: COMMIT;
556:
557: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', end');
558: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
559: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End time: '||TO_CHAR(SYSDATE, 'Month DD, YYYY HH24:MI:SS'));
560:
561: EXCEPTION
562: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
563: retcode := 2;
561: EXCEPTION
562: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
563: retcode := 2;
564: errbuf := FND_MSG_PUB.Get;
565: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Process failed. View program logs for details.');
566:
567: WHEN OTHERS THEN
568: retcode := 2;
569: errbuf := l_full_name||': '||SUBSTRB(SQLERRM, 1, 200);
566:
567: WHEN OTHERS THEN
568: retcode := 2;
569: errbuf := l_full_name||': '||SUBSTRB(SQLERRM, 1, 200);
570: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', exception occurred: '||SUBSTRB(SQLERRM, 1, 200));
571: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Process failed. View program logs for details.');
572:
573: END Launch_Expr_Notification;
574: ------------------------------------------------------------------------------------
567: WHEN OTHERS THEN
568: retcode := 2;
569: errbuf := l_full_name||': '||SUBSTRB(SQLERRM, 1, 200);
570: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', exception occurred: '||SUBSTRB(SQLERRM, 1, 200));
571: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Process failed. View program logs for details.');
572:
573: END Launch_Expr_Notification;
574: ------------------------------------------------------------------------------------
575:
604: l_dummy NUMBER;
605: --
606:
607: BEGIN
608: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', start');
609: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
610: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start time: '||TO_CHAR(SYSDATE, 'Month DD, YYYY HH24:MI:SS'));
611: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
612:
605: --
606:
607: BEGIN
608: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', start');
609: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
610: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start time: '||TO_CHAR(SYSDATE, 'Month DD, YYYY HH24:MI:SS'));
611: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
612:
613: -- initialize return status to success
606:
607: BEGIN
608: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', start');
609: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
610: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start time: '||TO_CHAR(SYSDATE, 'Month DD, YYYY HH24:MI:SS'));
611: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
612:
613: -- initialize return status to success
614: retcode := 0;
607: BEGIN
608: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', start');
609: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
610: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start time: '||TO_CHAR(SYSDATE, 'Month DD, YYYY HH24:MI:SS'));
611: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
612:
613: -- initialize return status to success
614: retcode := 0;
615: l_return_status := FND_API.G_RET_STS_SUCCESS;
626: x_msg_count => l_msg_count,
627: x_msg_data => l_msg_data,
628: x_return_status => l_return_status);
629:
630: FND_FILE.PUT_LINE(FND_FILE.LOG, 'the returned values: '||
631: ' l_active_flag > '||l_active_flag||
632: ', l_process_name > '||l_process_name||
633: ', l_item_type > '||l_item_type||
634: ', l_return_status > '||l_return_status);
631: ' l_active_flag > '||l_active_flag||
632: ', l_process_name > '||l_process_name||
633: ', l_item_type > '||l_item_type||
634: ', l_return_status > '||l_return_status);
635: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
636:
637: -- if returned with error, don't proceed any further
638: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
639: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error occurred > '||l_msg_data);
635: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
636:
637: -- if returned with error, don't proceed any further
638: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
639: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error occurred > '||l_msg_data);
640: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
642: END IF;
643:
636:
637: -- if returned with error, don't proceed any further
638: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
639: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error occurred > '||l_msg_data);
640: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
642: END IF;
643:
644: -- if returned without any errors and if the mapping is active, call the notification API
645: IF (l_return_status = FND_API.G_RET_STS_SUCCESS AND l_active_flag = 'Y') THEN
646: -- get the subject text
647: l_subject := FND_MESSAGE.GET_STRING(G_APP_NAME, G_WARRANTY_WOCL_SBJ);
648:
649: FND_FILE.PUT_LINE(FND_FILE.LOG, 'before calling AHL_WF_NOTIFICATION_PVT.Launch_OA_Notification with arguments: '||
650: ' p_object > '||G_WF_WOCL_OBJ||
651: ', p_process_name > '||l_process_name||
652: ', p_item_type > '||l_item_type||
653: ', p_subject > '||l_subject||
651: ', p_process_name > '||l_process_name||
652: ', p_item_type > '||l_item_type||
653: ', p_subject > '||l_subject||
654: ', p_oa_function > '||G_WARRANTY_WOCL_FN);
655: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
656:
657: -- call AHL_WF_NOTIFICATION_PVT.Launch_OA_Notification
658: AHL_WF_NOTIFICATION_PVT.Launch_OA_Notification(
659: p_object => G_WF_WOCL_OBJ,
663: p_oa_function => G_WARRANTY_WOCL_FN,
664: x_item_key => l_item_key,
665: x_return_status => l_return_status);
666:
667: FND_FILE.PUT_LINE(FND_FILE.LOG, 'after calling AHL_WF_NOTIFICATION_PVT.Launch_OA_Notification, '||
668: ' l_item_key > '||l_item_key||
669: ', l_return_status > '||l_return_status);
670: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
671:
666:
667: FND_FILE.PUT_LINE(FND_FILE.LOG, 'after calling AHL_WF_NOTIFICATION_PVT.Launch_OA_Notification, '||
668: ' l_item_key > '||l_item_key||
669: ', l_return_status > '||l_return_status);
670: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
671:
672: -- if returned with error, don't proceed any further
673: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
674: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Errors occurred, as given below: ');
670: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
671:
672: -- if returned with error, don't proceed any further
673: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
674: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Errors occurred, as given below: ');
675: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
676:
677: -- put all the errors in the log file
678: l_msg_count := FND_MSG_PUB.count_msg;
671:
672: -- if returned with error, don't proceed any further
673: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
674: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Errors occurred, as given below: ');
675: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
676:
677: -- put all the errors in the log file
678: l_msg_count := FND_MSG_PUB.count_msg;
679: FOR i IN 1..l_msg_count LOOP
682: p_encoded => FND_API.G_FALSE,
683: p_data => l_msg_data,
684: p_msg_index_out => l_dummy);
685:
686: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error '||i||': > '||l_msg_data);
687: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
688: END LOOP;
689:
690: -- raise the exception
683: p_data => l_msg_data,
684: p_msg_index_out => l_dummy);
685:
686: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error '||i||': > '||l_msg_data);
687: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
688: END LOOP;
689:
690: -- raise the exception
691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
692: END IF;
693:
694: -- set the output
695: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Workflow notification launched with item key > '||l_item_key);
696: ELSE
697: -- set the output
698: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Workflow notification could not be launched. Check the Workflow mapping.');
699: END IF;
694: -- set the output
695: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Workflow notification launched with item key > '||l_item_key);
696: ELSE
697: -- set the output
698: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Workflow notification could not be launched. Check the Workflow mapping.');
699: END IF;
700:
701: -- commit required to launch the Workflow
702: COMMIT;
700:
701: -- commit required to launch the Workflow
702: COMMIT;
703:
704: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', end');
705: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
706: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End time: '||TO_CHAR(SYSDATE, 'Month DD, YYYY HH24:MI:SS'));
707:
708: EXCEPTION
701: -- commit required to launch the Workflow
702: COMMIT;
703:
704: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', end');
705: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
706: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End time: '||TO_CHAR(SYSDATE, 'Month DD, YYYY HH24:MI:SS'));
707:
708: EXCEPTION
709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
702: COMMIT;
703:
704: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', end');
705: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
706: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End time: '||TO_CHAR(SYSDATE, 'Month DD, YYYY HH24:MI:SS'));
707:
708: EXCEPTION
709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
710: retcode := 2;
708: EXCEPTION
709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
710: retcode := 2;
711: errbuf := FND_MSG_PUB.Get;
712: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Process failed. View program logs for details.');
713:
714: WHEN OTHERS THEN
715: retcode := 2;
716: errbuf := l_full_name||': '||SUBSTRB(SQLERRM, 1, 200);
713:
714: WHEN OTHERS THEN
715: retcode := 2;
716: errbuf := l_full_name||': '||SUBSTRB(SQLERRM, 1, 200);
717: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', exception occurred: '||SUBSTRB(SQLERRM, 1, 200));
718: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Process failed. View program logs for details.');
719:
720: END Launch_WOCl_Notification;
721: ------------------------------------------------------------------------------------
714: WHEN OTHERS THEN
715: retcode := 2;
716: errbuf := l_full_name||': '||SUBSTRB(SQLERRM, 1, 200);
717: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', exception occurred: '||SUBSTRB(SQLERRM, 1, 200));
718: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Process failed. View program logs for details.');
719:
720: END Launch_WOCl_Notification;
721: ------------------------------------------------------------------------------------
722: