453:
454:
455: SAVEPOINT create_resource_pub;
456:
457: x_return_status := fnd_api.g_ret_sts_success;
458:
459: -- DBMS_OUTPUT.put_line(' Started Create Resource Pub ');
460:
461:
459: -- DBMS_OUTPUT.put_line(' Started Create Resource Pub ');
460:
461:
462:
463: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
464:
465: RAISE fnd_api.g_exc_unexpected_error;
466:
467: END IF;
461:
462:
463: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
464:
465: RAISE fnd_api.g_exc_unexpected_error;
466:
467: END IF;
468:
469:
466:
467: END IF;
468:
469:
470: IF fnd_api.to_boolean(p_init_msg_list) THEN
471:
472: fnd_msg_pub.initialize;
473:
474: END IF;
482: x_return_status => x_return_status
483: );
484:
485:
486: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
487: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
488: RAISE FND_API.G_EXC_ERROR;
489: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
490: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
483: );
484:
485:
486: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
487: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
488: RAISE FND_API.G_EXC_ERROR;
489: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
490: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
491: END IF;
484:
485:
486: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
487: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
488: RAISE FND_API.G_EXC_ERROR;
489: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
490: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
491: END IF;
492: END IF;
485:
486: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
487: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
488: RAISE FND_API.G_EXC_ERROR;
489: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
490: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
491: END IF;
492: END IF;
493:
486: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
487: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
488: RAISE FND_API.G_EXC_ERROR;
489: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
490: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
491: END IF;
492: END IF;
493:
494: /* Validate Source ID */
499: p_address_id => l_address_id,
500: x_return_status => x_return_status
501: );
502:
503: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
504: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
505: RAISE FND_API.G_EXC_ERROR;
506: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
500: x_return_status => x_return_status
501: );
502:
503: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
504: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
505: RAISE FND_API.G_EXC_ERROR;
506: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
508: END IF;
501: );
502:
503: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
504: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
505: RAISE FND_API.G_EXC_ERROR;
506: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
508: END IF;
509: END IF;
502:
503: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
504: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
505: RAISE FND_API.G_EXC_ERROR;
506: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
508: END IF;
509: END IF;
510:
503: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
504: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
505: RAISE FND_API.G_EXC_ERROR;
506: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
508: END IF;
509: END IF;
510:
511: /* Validations for category as OTHER and TBH */
522: -- dbms_output.put_line('For OTHER category, source_id, address_id, contact_id and managing_emp_id should be all null');
523:
524: fnd_message.set_name('JTF', 'JTF_RS_OTHER_IDS_NOT_NULL');
525: fnd_msg_pub.add;
526: RAISE fnd_api.g_exc_error;
527:
528: END IF;
529:
530: END IF;
538: IF (l_source_id IS NULL) THEN
539: -- dbms_output.put_line('For PARTNER category, source_id should not be null');
540: fnd_message.set_name('JTF', 'JTF_RS_PARTNER_IDS_NULL');
541: fnd_msg_pub.add;
542: RAISE fnd_api.g_exc_error;
543: ELSE
544: IF G_RS_ID_PUB_FLAG = 'Y' THEN --This flag is checked for migration purpose.
545: OPEN c_validate_partner(l_source_id);
546: FETCH c_validate_partner INTO l_check_flag;
547: IF c_validate_partner%NOTFOUND THEN
548: -- dbms_output.put_line('Partner does not exist for the passed source_id');
549: fnd_message.set_name('JTF', 'JTF_RS_INVALID_PARTNER_IDS');
550: fnd_msg_pub.add;
551: RAISE fnd_api.g_exc_error;
552: END IF;
553: CLOSE c_validate_partner;
554: ELSIF G_RS_ID_PUB_FLAG = 'N' THEN
555: OPEN c_validate_partner_migr(l_source_id);
558: IF c_validate_partner_migr%NOTFOUND THEN
559: -- dbms_output.put_line('Partner does not exist for the passed source_id');
560: fnd_message.set_name('JTF', 'JTF_RS_INVALID_PARTNER_IDS');
561: fnd_msg_pub.add;
562: RAISE fnd_api.g_exc_error;
563: END IF;
564: CLOSE c_validate_partner_migr;
565: END IF;
566: END IF;
574: -- dbms_output.put_line('Invalid Partner Address Id');
575: fnd_message.set_name('JTF', 'JTF_RS_ERR_PARTNER_ADDRESS_ID');
576: fnd_message.set_token('P_ADDRESS_ID', l_address_id);
577: fnd_msg_pub.add;
578: RAISE fnd_api.g_exc_error;
579: END IF;
580: CLOSE c_validate_partner_address;
581: END IF;
582:
590: -- dbms_output.put_line('Invalid Partner Contact Id');
591: fnd_message.set_name('JTF', 'JTF_RS_ERR_PARTNER_CONTACT_ID');
592: fnd_message.set_token('P_CONTACT_ID', l_contact_id);
593: fnd_msg_pub.add;
594: RAISE fnd_api.g_exc_error;
595: END IF;
596: CLOSE c_validate_partner_contact;
597: END IF;
598:
607: IF l_source_id IS NULL THEN
608: -- dbms_output.put_line('Source Id should not be Null');
609: fnd_message.set_name('JTF', 'JTF_RS_SOURCE_ID_NULL');
610: fnd_msg_pub.add;
611: RAISE fnd_api.g_exc_error;
612: END IF;
613:
614: jtf_resource_utl.check_object_existence_migr(
615:
620: X_FOUND => l_found,
621: X_RETURN_STATUS => x_return_status
622: );
623:
624: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
625: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
626: RAISE FND_API.G_EXC_ERROR;
627: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
621: X_RETURN_STATUS => x_return_status
622: );
623:
624: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
625: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
626: RAISE FND_API.G_EXC_ERROR;
627: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
629: END IF;
622: );
623:
624: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
625: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
626: RAISE FND_API.G_EXC_ERROR;
627: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
629: END IF;
630: END IF;
623:
624: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
625: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
626: RAISE FND_API.G_EXC_ERROR;
627: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
629: END IF;
630: END IF;
631:
624: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
625: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
626: RAISE FND_API.G_EXC_ERROR;
627: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
629: END IF;
630: END IF;
631:
632: IF l_found = FALSE THEN
632: IF l_found = FALSE THEN
633: fnd_message.set_name('JTF', 'JTF_RS_INVALID_SOURCE_ID');
634: fnd_message.set_token('P_SOURCE_ID', l_source_id);
635: fnd_msg_pub.add;
636: RAISE fnd_api.g_exc_error;
637: END IF;
638:
639: END IF;
640:
646: -- First check is null check for source id
647: IF l_source_id IS NULL THEN
648: fnd_message.set_name('JTF', 'JTF_RS_SOURCE_ID_NULL');
649: fnd_msg_pub.add;
650: RAISE fnd_api.g_exc_error;
651: END IF;
652:
653: open c_emp_exist(l_source_id);
654: fetch c_emp_exist into r_emp_exist;
658: then
659: fnd_message.set_name('JTF', 'JTF_RS_INVALID_SOURCE_ID');
660: fnd_message.set_token('P_SOURCE_ID', l_source_id);
661: fnd_msg_pub.add;
662: RAISE fnd_api.g_exc_error;
663: end if;
664:
665: END IF; -- end of check l_category = 'EMPLOYEE'
666:
684: fnd_message.set_name('JTF', 'JTF_RS_INVALID_PARTY_ADDRESS');
685: fnd_message.set_token('P_ADDRESS_ID', l_address_id);
686: fnd_msg_pub.add;
687:
688: RAISE fnd_api.g_exc_error;
689:
690: END IF;
691:
692: /* Close the cursor */
713: fnd_message.set_name('JTF', 'JTF_RS_ERR_PARTY_CONTACT_ID');
714: fnd_message.set_token('P_CONTACT_ID', l_contact_id);
715: fnd_msg_pub.add;
716:
717: RAISE fnd_api.g_exc_error;
718:
719: END IF;
720:
721:
743:
744: fnd_message.set_name('JTF', 'JTF_RS_SC_IDS_NOT_NULL');
745: fnd_msg_pub.add;
746:
747: RAISE fnd_api.g_exc_error;
748:
749: END IF;
750:
751: END IF;
765:
766: fnd_message.set_name('JTF', 'JTF_RS_EMP_IDS_NOT_NULL');
767: fnd_msg_pub.add;
768:
769: RAISE fnd_api.g_exc_error;
770:
771: END IF;
772:
773: END IF;
784: );
785: -- added for NOCOPY
786: l_managing_emp_id := l_managing_emp_id_out;
787:
788: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
789: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
790: RAISE FND_API.G_EXC_ERROR;
791: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
792: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
785: -- added for NOCOPY
786: l_managing_emp_id := l_managing_emp_id_out;
787:
788: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
789: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
790: RAISE FND_API.G_EXC_ERROR;
791: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
792: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
793: END IF;
786: l_managing_emp_id := l_managing_emp_id_out;
787:
788: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
789: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
790: RAISE FND_API.G_EXC_ERROR;
791: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
792: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
793: END IF;
794:
787:
788: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
789: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
790: RAISE FND_API.G_EXC_ERROR;
791: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
792: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
793: END IF;
794:
795: END IF;
788: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
789: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
790: RAISE FND_API.G_EXC_ERROR;
791: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
792: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
793: END IF;
794:
795: END IF;
796:
803:
804: fnd_message.set_name('JTF', 'JTF_RS_START_DATE_NULL');
805: fnd_msg_pub.add;
806:
807: RAISE fnd_api.g_exc_error;
808:
809: END IF;
810:
811:
818: p_time_zone_id => l_time_zone,
819: x_return_status => x_return_status
820: );
821:
822: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
823: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
824: RAISE FND_API.G_EXC_ERROR;
825: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
819: x_return_status => x_return_status
820: );
821:
822: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
823: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
824: RAISE FND_API.G_EXC_ERROR;
825: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
827: END IF;
820: );
821:
822: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
823: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
824: RAISE FND_API.G_EXC_ERROR;
825: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
827: END IF;
828: END IF;
821:
822: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
823: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
824: RAISE FND_API.G_EXC_ERROR;
825: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
827: END IF;
828: END IF;
829:
822: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
823: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
824: RAISE FND_API.G_EXC_ERROR;
825: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
827: END IF;
828: END IF;
829:
830: END IF;
839: p_nls_language => l_primary_language,
840: x_return_status => x_return_status
841: );
842:
843: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
844: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
845: RAISE FND_API.G_EXC_ERROR;
846: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
847: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
840: x_return_status => x_return_status
841: );
842:
843: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
844: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
845: RAISE FND_API.G_EXC_ERROR;
846: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
847: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
848: END IF;
841: );
842:
843: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
844: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
845: RAISE FND_API.G_EXC_ERROR;
846: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
847: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
848: END IF;
849: END IF;
842:
843: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
844: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
845: RAISE FND_API.G_EXC_ERROR;
846: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
847: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
848: END IF;
849: END IF;
850:
843: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
844: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
845: RAISE FND_API.G_EXC_ERROR;
846: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
847: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
848: END IF;
849: END IF;
850:
851: END IF;
860: p_nls_language => l_secondary_language,
861: x_return_status => x_return_status
862: );
863:
864: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
865: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
866: RAISE FND_API.G_EXC_ERROR;
867: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
868: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
861: x_return_status => x_return_status
862: );
863:
864: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
865: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
866: RAISE FND_API.G_EXC_ERROR;
867: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
868: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
869: END IF;
862: );
863:
864: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
865: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
866: RAISE FND_API.G_EXC_ERROR;
867: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
868: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
869: END IF;
870: END IF;
863:
864: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
865: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
866: RAISE FND_API.G_EXC_ERROR;
867: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
868: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
869: END IF;
870: END IF;
871:
864: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
865: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
866: RAISE FND_API.G_EXC_ERROR;
867: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
868: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
869: END IF;
870: END IF;
871:
872: END IF;
881: p_support_site_id => l_support_site_id,
882: x_return_status => x_return_status
883: );
884:
885: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
886: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
887: RAISE FND_API.G_EXC_ERROR;
888: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
889: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
882: x_return_status => x_return_status
883: );
884:
885: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
886: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
887: RAISE FND_API.G_EXC_ERROR;
888: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
889: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
890: END IF;
883: );
884:
885: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
886: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
887: RAISE FND_API.G_EXC_ERROR;
888: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
889: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
890: END IF;
891: END IF;
884:
885: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
886: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
887: RAISE FND_API.G_EXC_ERROR;
888: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
889: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
890: END IF;
891: END IF;
892:
885: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
886: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
887: RAISE FND_API.G_EXC_ERROR;
888: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
889: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
890: END IF;
891: END IF;
892:
893: END IF;
905:
906: -- added for NOCOPY
907: l_server_group_id := l_server_group_id_out;
908:
909: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
910: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
911: RAISE FND_API.G_EXC_ERROR;
912: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
913: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
906: -- added for NOCOPY
907: l_server_group_id := l_server_group_id_out;
908:
909: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
910: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
911: RAISE FND_API.G_EXC_ERROR;
912: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
913: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
914: END IF;
907: l_server_group_id := l_server_group_id_out;
908:
909: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
910: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
911: RAISE FND_API.G_EXC_ERROR;
912: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
913: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
914: END IF;
915: END IF;
908:
909: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
910: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
911: RAISE FND_API.G_EXC_ERROR;
912: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
913: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
914: END IF;
915: END IF;
916:
909: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
910: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
911: RAISE FND_API.G_EXC_ERROR;
912: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
913: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
914: END IF;
915: END IF;
916:
917:
930:
931: fnd_message.set_name('JTF', 'JTF_RS_ERR_ASSIGN_TO_GRP_ID');
932: fnd_message.set_token('P_ASSIGNED_TO_GROUP_ID', l_assigned_to_group_id);
933: fnd_msg_pub.add;
934: RAISE fnd_api.g_exc_error;
935:
936: END IF;
937:
938:
952: p_currency_code => l_comp_currency_code,
953: x_return_status => x_return_status
954: );
955:
956: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
957: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
958: RAISE FND_API.G_EXC_ERROR;
959: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
953: x_return_status => x_return_status
954: );
955:
956: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
957: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
958: RAISE FND_API.G_EXC_ERROR;
959: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
961: END IF;
954: );
955:
956: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
957: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
958: RAISE FND_API.G_EXC_ERROR;
959: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
961: END IF;
962: END IF;
955:
956: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
957: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
958: RAISE FND_API.G_EXC_ERROR;
959: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
961: END IF;
962: END IF;
963:
956: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
957: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
958: RAISE FND_API.G_EXC_ERROR;
959: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
961: END IF;
962: END IF;
963:
964: END IF;
972:
973: fnd_message.set_name('JTF', 'JTF_RS_INVALID_FLAG_VALUE');
974: fnd_msg_pub.add;
975:
976: RAISE fnd_api.g_exc_error;
977:
978: END IF;
979:
980:
985: -- dbms_output.put_line('Hold Payment should either be ''Y'' or ''N'' ');
986:
987: fnd_message.set_name('JTF', 'JTF_RS_INVALID_FLAG_VALUE');
988: fnd_msg_pub.add;
989: RAISE fnd_api.g_exc_error;
990:
991: END IF;
992:
993:
1000: p_hold_reason_code => l_hold_reason_code,
1001: x_return_status => x_return_status
1002: );
1003:
1004: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1005: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1006: RAISE FND_API.G_EXC_ERROR;
1007: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1008: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1001: x_return_status => x_return_status
1002: );
1003:
1004: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1005: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1006: RAISE FND_API.G_EXC_ERROR;
1007: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1008: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1009: END IF;
1002: );
1003:
1004: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1005: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1006: RAISE FND_API.G_EXC_ERROR;
1007: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1008: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1009: END IF;
1010: END IF;
1003:
1004: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1005: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1006: RAISE FND_API.G_EXC_ERROR;
1007: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1008: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1009: END IF;
1010: END IF;
1011:
1004: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1005: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1006: RAISE FND_API.G_EXC_ERROR;
1007: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1008: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1009: END IF;
1010: END IF;
1011:
1012: END IF;
1021:
1022: fnd_message.set_name('JTF', 'JTF_RS_USERID_ERROR');
1023: fnd_msg_pub.add;
1024:
1025: RAISE fnd_api.g_exc_error;
1026:
1027: END IF;
1028:
1029: ELSE
1038: p_source_id => l_source_id,
1039: x_return_status => x_return_status
1040: );
1041:
1042: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1043:
1044: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1045: RAISE FND_API.G_EXC_ERROR;
1046: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1040: );
1041:
1042: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1043:
1044: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1045: RAISE FND_API.G_EXC_ERROR;
1046: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1047: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1048: END IF;
1041:
1042: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1043:
1044: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1045: RAISE FND_API.G_EXC_ERROR;
1046: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1047: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1048: END IF;
1049:
1042: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1043:
1044: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1045: RAISE FND_API.G_EXC_ERROR;
1046: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1047: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1048: END IF;
1049:
1050: else
1043:
1044: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1045: RAISE FND_API.G_EXC_ERROR;
1046: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1047: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1048: END IF;
1049:
1050: else
1051:
1061: fnd_message.set_name('JTF', 'JTF_RS_ERR_DUPLICATE_USER_ID');
1062: fnd_message.set_token('P_USER_ID', l_user_id);
1063: fnd_msg_pub.add;
1064:
1065: RAISE fnd_api.g_exc_error;
1066:
1067: END IF;
1068:
1069:
1093:
1094: -- added for NOCOPY
1095: l_comp_service_team_id := l_comp_service_team_id_out;
1096:
1097: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1098:
1099: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1100: RAISE FND_API.G_EXC_ERROR;
1101: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1095: l_comp_service_team_id := l_comp_service_team_id_out;
1096:
1097: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1098:
1099: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1100: RAISE FND_API.G_EXC_ERROR;
1101: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1103: END IF;
1096:
1097: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1098:
1099: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1100: RAISE FND_API.G_EXC_ERROR;
1101: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1103: END IF;
1104:
1097: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1098:
1099: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1100: RAISE FND_API.G_EXC_ERROR;
1101: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1103: END IF;
1104:
1105: END IF;
1098:
1099: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1100: RAISE FND_API.G_EXC_ERROR;
1101: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1103: END IF;
1104:
1105: END IF;
1106:
1118: -- dbms_output.put_line ('Before call to the private procedure create_resource');
1119:
1120: jtf_rs_resource_pvt.create_resource (
1121: P_API_VERSION => 1,
1122: P_INIT_MSG_LIST => fnd_api.g_false,
1123: P_COMMIT => fnd_api.g_false,
1124: P_CATEGORY => l_category,
1125: P_SOURCE_ID => l_source_id,
1126: P_ADDRESS_ID => l_address_id,
1119:
1120: jtf_rs_resource_pvt.create_resource (
1121: P_API_VERSION => 1,
1122: P_INIT_MSG_LIST => fnd_api.g_false,
1123: P_COMMIT => fnd_api.g_false,
1124: P_CATEGORY => l_category,
1125: P_SOURCE_ID => l_source_id,
1126: P_ADDRESS_ID => l_address_id,
1127: P_CONTACT_ID => l_contact_id,
1154: );
1155:
1156: /* jtf_rs_resource_pvt.create_resource (
1157: P_API_VERSION => 1,
1158: P_INIT_MSG_LIST => fnd_api.g_false,
1159: P_COMMIT => fnd_api.g_false,
1160: P_CATEGORY => l_category,
1161: P_SOURCE_ID => l_source_id,
1162: P_ADDRESS_ID => l_address_id,
1155:
1156: /* jtf_rs_resource_pvt.create_resource (
1157: P_API_VERSION => 1,
1158: P_INIT_MSG_LIST => fnd_api.g_false,
1159: P_COMMIT => fnd_api.g_false,
1160: P_CATEGORY => l_category,
1161: P_SOURCE_ID => l_source_id,
1162: P_ADDRESS_ID => l_address_id,
1163: P_CONTACT_ID => l_contact_id,
1208: );
1209:
1210: */
1211:
1212: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1213: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1214: RAISE FND_API.G_EXC_ERROR;
1215: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1209:
1210: */
1211:
1212: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1213: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1214: RAISE FND_API.G_EXC_ERROR;
1215: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1217: END IF;
1210: */
1211:
1212: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1213: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1214: RAISE FND_API.G_EXC_ERROR;
1215: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1217: END IF;
1218: END IF;
1211:
1212: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1213: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1214: RAISE FND_API.G_EXC_ERROR;
1215: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1217: END IF;
1218: END IF;
1219:
1212: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1213: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1214: RAISE FND_API.G_EXC_ERROR;
1215: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1217: END IF;
1218: END IF;
1219:
1220: ELSE
1224: /* Call the private procedure for Migration. */
1225:
1226: jtf_rs_resource_pvt.create_resource_migrate (
1227: P_API_VERSION => 1,
1228: P_INIT_MSG_LIST => fnd_api.g_false,
1229: P_COMMIT => fnd_api.g_false,
1230: P_CATEGORY => l_category,
1231: P_SOURCE_ID => l_source_id,
1232: P_ADDRESS_ID => l_address_id,
1225:
1226: jtf_rs_resource_pvt.create_resource_migrate (
1227: P_API_VERSION => 1,
1228: P_INIT_MSG_LIST => fnd_api.g_false,
1229: P_COMMIT => fnd_api.g_false,
1230: P_CATEGORY => l_category,
1231: P_SOURCE_ID => l_source_id,
1232: P_ADDRESS_ID => l_address_id,
1233: P_CONTACT_ID => l_contact_id,
1274: X_MSG_DATA => x_msg_data,
1275: X_RESOURCE_ID => x_resource_id,
1276: X_RESOURCE_NUMBER => x_resource_number
1277: );
1278: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1279: -- dbms_output.put_line('Failed status from call to private procedure');
1280: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1281: RAISE FND_API.G_EXC_ERROR;
1282: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1276: X_RESOURCE_NUMBER => x_resource_number
1277: );
1278: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1279: -- dbms_output.put_line('Failed status from call to private procedure');
1280: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1281: RAISE FND_API.G_EXC_ERROR;
1282: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1284: END IF;
1277: );
1278: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1279: -- dbms_output.put_line('Failed status from call to private procedure');
1280: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1281: RAISE FND_API.G_EXC_ERROR;
1282: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1284: END IF;
1285: END IF;
1278: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1279: -- dbms_output.put_line('Failed status from call to private procedure');
1280: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1281: RAISE FND_API.G_EXC_ERROR;
1282: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1284: END IF;
1285: END IF;
1286:
1279: -- dbms_output.put_line('Failed status from call to private procedure');
1280: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1281: RAISE FND_API.G_EXC_ERROR;
1282: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1284: END IF;
1285: END IF;
1286:
1287: END IF;
1285: END IF;
1286:
1287: END IF;
1288:
1289: IF fnd_api.to_boolean(p_commit) THEN
1290:
1291: COMMIT WORK;
1292:
1293: END IF;
1297:
1298: EXCEPTION
1299:
1300:
1301: WHEN fnd_api.g_exc_error THEN
1302: ROLLBACK TO create_resource_pub;
1303: x_return_status := fnd_api.g_ret_sts_error;
1304: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
1305: p_data => x_msg_data);
1299:
1300:
1301: WHEN fnd_api.g_exc_error THEN
1302: ROLLBACK TO create_resource_pub;
1303: x_return_status := fnd_api.g_ret_sts_error;
1304: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
1305: p_data => x_msg_data);
1306: WHEN fnd_api.g_exc_unexpected_error THEN
1307: ROLLBACK TO create_resource_pub;
1302: ROLLBACK TO create_resource_pub;
1303: x_return_status := fnd_api.g_ret_sts_error;
1304: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
1305: p_data => x_msg_data);
1306: WHEN fnd_api.g_exc_unexpected_error THEN
1307: ROLLBACK TO create_resource_pub;
1308: x_return_status := fnd_api.g_ret_sts_unexp_error;
1309: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
1310: p_data => x_msg_data);
1304: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
1305: p_data => x_msg_data);
1306: WHEN fnd_api.g_exc_unexpected_error THEN
1307: ROLLBACK TO create_resource_pub;
1308: x_return_status := fnd_api.g_ret_sts_unexp_error;
1309: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
1310: p_data => x_msg_data);
1311: WHEN OTHERS THEN
1312: ROLLBACK TO create_resource_pub;
1314: fnd_message.set_token('P_SQLCODE',SQLCODE);
1315: fnd_message.set_token('P_SQLERRM',SQLERRM);
1316: fnd_message.set_token('P_API_NAME', l_api_name);
1317: FND_MSG_PUB.add;
1318: x_return_status := fnd_api.g_ret_sts_unexp_error;
1319: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
1320: p_data => x_msg_data);
1321:
1322: END create_resource;
1553: l_object_version_num := p_object_version_num;
1554:
1555: SAVEPOINT update_resource_pub;
1556:
1557: x_return_status := fnd_api.g_ret_sts_success;
1558:
1559: -- dbms_output.put_line(' Started Update Resource Pub ');
1560:
1561:
1558:
1559: -- dbms_output.put_line(' Started Update Resource Pub ');
1560:
1561:
1562: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1563:
1564: RAISE fnd_api.g_exc_unexpected_error;
1565:
1566: END IF;
1560:
1561:
1562: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1563:
1564: RAISE fnd_api.g_exc_unexpected_error;
1565:
1566: END IF;
1567:
1568:
1565:
1566: END IF;
1567:
1568:
1569: IF fnd_api.to_boolean(p_init_msg_list) THEN
1570:
1571: fnd_msg_pub.initialize;
1572:
1573: END IF;
1581:
1582: fnd_message.set_name('JTF', 'JTF_RS_RESOURCE_NULL');
1583: fnd_msg_pub.add;
1584:
1585: RAISE fnd_api.g_exc_error;
1586:
1587: END IF;
1588:
1589:
1600: fnd_message.set_name('JTF', 'JTF_RS_INVALID_RESOURCE');
1601: fnd_message.set_token('P_RESOURCE_ID', l_resource_id);
1602: fnd_msg_pub.add;
1603:
1604: RAISE fnd_api.g_exc_error;
1605:
1606: END IF;
1607:
1608: CLOSE c_resource_id;
1620: fnd_message.set_name('JTF', 'JTF_RS_INVALID_RESOURCE_NUMBER');
1621: fnd_message.set_token('P_RESOURCE_NUMBER', l_resource_number);
1622: fnd_msg_pub.add;
1623:
1624: RAISE fnd_api.g_exc_error;
1625:
1626: END IF;
1627:
1628: CLOSE c_resource_number;
1632: IF l_category IN ('OTHER', 'TBH') THEN
1633:
1634: /* Validate that the managing_employee_id is NULL */
1635:
1636: IF ( l_managing_emp_id IS NOT NULL AND l_managing_emp_id <> fnd_api.g_miss_num) THEN
1637:
1638: -- dbms_output.put_line('For OTHER category, source_id, address_id, contact_id and managing_emp_id should be all null');
1639:
1640: fnd_message.set_name('JTF', 'JTF_RS_OTHER_IDS_NOT_NULL');
1638: -- dbms_output.put_line('For OTHER category, source_id, address_id, contact_id and managing_emp_id should be all null');
1639:
1640: fnd_message.set_name('JTF', 'JTF_RS_OTHER_IDS_NOT_NULL');
1641: fnd_msg_pub.add;
1642: RAISE fnd_api.g_exc_error;
1643:
1644: END IF;
1645:
1646: END IF;
1649: /* Call the private procedure with the validated parameters. */
1650:
1651: jtf_rs_resource_pvt.update_resource
1652: (P_API_VERSION => 1,
1653: P_INIT_MSG_LIST => fnd_api.g_false,
1654: P_COMMIT => fnd_api.g_false,
1655: P_RESOURCE_ID => l_resource_id,
1656: P_MANAGING_EMP_ID => l_managing_emp_id,
1657: P_START_DATE_ACTIVE => l_start_date_active,
1650:
1651: jtf_rs_resource_pvt.update_resource
1652: (P_API_VERSION => 1,
1653: P_INIT_MSG_LIST => fnd_api.g_false,
1654: P_COMMIT => fnd_api.g_false,
1655: P_RESOURCE_ID => l_resource_id,
1656: P_MANAGING_EMP_ID => l_managing_emp_id,
1657: P_START_DATE_ACTIVE => l_start_date_active,
1658: P_END_DATE_ACTIVE => l_end_date_active,
1678: X_MSG_COUNT => x_msg_count,
1679: X_MSG_DATA => x_msg_data,
1680: --added this so that the overloaded procedure for update resource is called
1681: -- otherwise all source coulmns were being set to null
1682: P_SOURCE_NAME => fnd_api.g_miss_char
1683: );
1684:
1685:
1686: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1682: P_SOURCE_NAME => fnd_api.g_miss_char
1683: );
1684:
1685:
1686: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1687:
1688: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1689: RAISE FND_API.G_EXC_ERROR;
1690: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1684:
1685:
1686: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1687:
1688: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1689: RAISE FND_API.G_EXC_ERROR;
1690: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1692: END IF;
1685:
1686: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1687:
1688: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1689: RAISE FND_API.G_EXC_ERROR;
1690: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1692: END IF;
1693:
1686: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1687:
1688: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1689: RAISE FND_API.G_EXC_ERROR;
1690: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1692: END IF;
1693:
1694: END IF;
1687:
1688: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
1689: RAISE FND_API.G_EXC_ERROR;
1690: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
1691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1692: END IF;
1693:
1694: END IF;
1695:
1696: /* Return the new value of the object version number */
1697:
1698: p_object_version_num := l_object_version_num;
1699:
1700: IF fnd_api.to_boolean(p_commit) THEN
1701:
1702: COMMIT WORK;
1703:
1704: END IF;
1707:
1708:
1709:
1710: EXCEPTION
1711: WHEN fnd_api.g_exc_error THEN
1712: ROLLBACK TO update_resource_pub;
1713: x_return_status := fnd_api.g_ret_sts_error;
1714: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
1715: p_data => x_msg_data);
1709:
1710: EXCEPTION
1711: WHEN fnd_api.g_exc_error THEN
1712: ROLLBACK TO update_resource_pub;
1713: x_return_status := fnd_api.g_ret_sts_error;
1714: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
1715: p_data => x_msg_data);
1716: WHEN fnd_api.g_exc_unexpected_error THEN
1717: ROLLBACK TO update_resource_pub;
1712: ROLLBACK TO update_resource_pub;
1713: x_return_status := fnd_api.g_ret_sts_error;
1714: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
1715: p_data => x_msg_data);
1716: WHEN fnd_api.g_exc_unexpected_error THEN
1717: ROLLBACK TO update_resource_pub;
1718: x_return_status := fnd_api.g_ret_sts_unexp_error;
1719: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
1720: p_data => x_msg_data);
1714: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
1715: p_data => x_msg_data);
1716: WHEN fnd_api.g_exc_unexpected_error THEN
1717: ROLLBACK TO update_resource_pub;
1718: x_return_status := fnd_api.g_ret_sts_unexp_error;
1719: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
1720: p_data => x_msg_data);
1721: WHEN OTHERS THEN
1722: ROLLBACK TO update_resource_pub;
1724: fnd_message.set_token('P_SQLCODE',SQLCODE);
1725: fnd_message.set_token('P_SQLERRM',SQLERRM);
1726: fnd_message.set_token('P_API_NAME', l_api_name);
1727: FND_MSG_PUB.add;
1728: x_return_status := fnd_api.g_ret_sts_unexp_error;
1729: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
1730: p_data => x_msg_data);
1731:
1732: END update_resource;
1904: l_address_id := p_address_id;
1905:
1906: SAVEPOINT update_resource_pub;
1907:
1908: x_return_status := fnd_api.g_ret_sts_success;
1909:
1910: -- dbms_output.put_line(' Started Update Resource Pub ');
1911:
1912:
1909:
1910: -- dbms_output.put_line(' Started Update Resource Pub ');
1911:
1912:
1913: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1914:
1915: RAISE fnd_api.g_exc_unexpected_error;
1916:
1917: END IF;
1911:
1912:
1913: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1914:
1915: RAISE fnd_api.g_exc_unexpected_error;
1916:
1917: END IF;
1918:
1919:
1916:
1917: END IF;
1918:
1919:
1920: IF fnd_api.to_boolean(p_init_msg_list) THEN
1921:
1922: fnd_msg_pub.initialize;
1923:
1924: END IF;
1932:
1933: fnd_message.set_name('JTF', 'JTF_RS_RESOURCE_NULL');
1934: fnd_msg_pub.add;
1935:
1936: RAISE fnd_api.g_exc_error;
1937:
1938: END IF;
1939:
1940:
1951: fnd_message.set_name('JTF', 'JTF_RS_INVALID_RESOURCE');
1952: fnd_message.set_token('P_RESOURCE_ID', l_resource_id);
1953: fnd_msg_pub.add;
1954:
1955: RAISE fnd_api.g_exc_error;
1956:
1957: END IF;
1958:
1959: CLOSE c_resource_id;
1971: fnd_message.set_name('JTF', 'JTF_RS_INVALID_RESOURCE_NUMBER');
1972: fnd_message.set_token('P_RESOURCE_NUMBER', l_resource_number);
1973: fnd_msg_pub.add;
1974:
1975: RAISE fnd_api.g_exc_error;
1976:
1977:
1978: END IF;
1979:
1985:
1986: /* Validate that the source_id, address_id, contact_id and managing_employee_id
1987: are all NULL */
1988:
1989: IF ((l_address_id IS NOT NULL AND l_address_id <> fnd_api.g_miss_num)
1990: OR (l_managing_emp_id IS NOT NULL AND l_managing_emp_id <> fnd_api.g_miss_num )) THEN
1991:
1992: -- dbms_output.put_line('For OTHER category, source_id, address_id, contact_id and managing_emp_id should be all null');
1993:
1986: /* Validate that the source_id, address_id, contact_id and managing_employee_id
1987: are all NULL */
1988:
1989: IF ((l_address_id IS NOT NULL AND l_address_id <> fnd_api.g_miss_num)
1990: OR (l_managing_emp_id IS NOT NULL AND l_managing_emp_id <> fnd_api.g_miss_num )) THEN
1991:
1992: -- dbms_output.put_line('For OTHER category, source_id, address_id, contact_id and managing_emp_id should be all null');
1993:
1994: fnd_message.set_name('JTF', 'JTF_RS_OTHER_IDS_NOT_NULL');
1992: -- dbms_output.put_line('For OTHER category, source_id, address_id, contact_id and managing_emp_id should be all null');
1993:
1994: fnd_message.set_name('JTF', 'JTF_RS_OTHER_IDS_NOT_NULL');
1995: fnd_msg_pub.add;
1996: RAISE fnd_api.g_exc_error;
1997:
1998: END IF;
1999:
2000: END IF;
2002: /* Call the private procedure with the validated parameters. */
2003:
2004: jtf_rs_resource_pvt.update_resource
2005: (P_API_VERSION => 1,
2006: P_INIT_MSG_LIST => fnd_api.g_false,
2007: P_COMMIT => fnd_api.g_false,
2008: P_RESOURCE_ID => l_resource_id,
2009: P_MANAGING_EMP_ID => l_managing_emp_id,
2010: P_START_DATE_ACTIVE => l_start_date_active,
2003:
2004: jtf_rs_resource_pvt.update_resource
2005: (P_API_VERSION => 1,
2006: P_INIT_MSG_LIST => fnd_api.g_false,
2007: P_COMMIT => fnd_api.g_false,
2008: P_RESOURCE_ID => l_resource_id,
2009: P_MANAGING_EMP_ID => l_managing_emp_id,
2010: P_START_DATE_ACTIVE => l_start_date_active,
2011: P_END_DATE_ACTIVE => l_end_date_active,
2083: P_FS_SETUP_COMPLETE => l_fs_setup_complete
2084: );
2085:
2086:
2087: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
2088:
2089: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
2090: RAISE FND_API.G_EXC_ERROR;
2091: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
2085:
2086:
2087: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
2088:
2089: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
2090: RAISE FND_API.G_EXC_ERROR;
2091: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
2092: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2093: END IF;
2086:
2087: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
2088:
2089: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
2090: RAISE FND_API.G_EXC_ERROR;
2091: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
2092: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2093: END IF;
2094:
2087: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
2088:
2089: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
2090: RAISE FND_API.G_EXC_ERROR;
2091: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
2092: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2093: END IF;
2094:
2095: END IF;
2088:
2089: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
2090: RAISE FND_API.G_EXC_ERROR;
2091: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
2092: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2093: END IF;
2094:
2095: END IF;
2096:
2095: END IF;
2096:
2097:
2098:
2099: IF fnd_api.to_boolean(p_commit) THEN
2100:
2101: COMMIT WORK;
2102:
2103: END IF;
2107:
2108:
2109: EXCEPTION
2110:
2111: WHEN fnd_api.g_exc_error THEN
2112: ROLLBACK TO update_resource_pub;
2113: x_return_status := fnd_api.g_ret_sts_error;
2114: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
2115: p_data => x_msg_data);
2109: EXCEPTION
2110:
2111: WHEN fnd_api.g_exc_error THEN
2112: ROLLBACK TO update_resource_pub;
2113: x_return_status := fnd_api.g_ret_sts_error;
2114: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
2115: p_data => x_msg_data);
2116: WHEN fnd_api.g_exc_unexpected_error THEN
2117: ROLLBACK TO update_resource_pub;
2112: ROLLBACK TO update_resource_pub;
2113: x_return_status := fnd_api.g_ret_sts_error;
2114: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
2115: p_data => x_msg_data);
2116: WHEN fnd_api.g_exc_unexpected_error THEN
2117: ROLLBACK TO update_resource_pub;
2118: x_return_status := fnd_api.g_ret_sts_unexp_error;
2119: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
2120: p_data => x_msg_data);
2114: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
2115: p_data => x_msg_data);
2116: WHEN fnd_api.g_exc_unexpected_error THEN
2117: ROLLBACK TO update_resource_pub;
2118: x_return_status := fnd_api.g_ret_sts_unexp_error;
2119: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
2120: p_data => x_msg_data);
2121: WHEN OTHERS THEN
2122: ROLLBACK TO update_resource_pub;
2124: fnd_message.set_token('P_SQLCODE',SQLCODE);
2125: fnd_message.set_token('P_SQLERRM',SQLERRM);
2126: fnd_message.set_token('P_API_NAME', l_api_name);
2127: FND_MSG_PUB.add;
2128: x_return_status := fnd_api.g_ret_sts_unexp_error;
2129: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
2130: p_data => x_msg_data);
2131:
2132:
2302: P_ATTRIBUTE13 => P_ATTRIBUTE13,
2303: P_ATTRIBUTE14 => P_ATTRIBUTE14,
2304: P_ATTRIBUTE15 => P_ATTRIBUTE15,
2305: P_ATTRIBUTE_CATEGORY => P_ATTRIBUTE_CATEGORY,
2306: P_FS_SETUP_COMPLETE => FND_API.G_MISS_CHAR
2307: ) ;
2308: END update_resource;
2309:
2310: /* Procedure to delete the resource of type TBH */
2340:
2341: l_resource_id := p_resource_id;
2342:
2343: SAVEPOINT delete_resource_pub;
2344: x_return_status := fnd_api.g_ret_sts_success;
2345: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2346: RAISE fnd_api.g_exc_unexpected_error;
2347: END IF;
2348:
2341: l_resource_id := p_resource_id;
2342:
2343: SAVEPOINT delete_resource_pub;
2344: x_return_status := fnd_api.g_ret_sts_success;
2345: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2346: RAISE fnd_api.g_exc_unexpected_error;
2347: END IF;
2348:
2349: IF fnd_api.to_boolean(p_init_msg_list) THEN
2342:
2343: SAVEPOINT delete_resource_pub;
2344: x_return_status := fnd_api.g_ret_sts_success;
2345: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2346: RAISE fnd_api.g_exc_unexpected_error;
2347: END IF;
2348:
2349: IF fnd_api.to_boolean(p_init_msg_list) THEN
2350: fnd_msg_pub.initialize;
2345: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2346: RAISE fnd_api.g_exc_unexpected_error;
2347: END IF;
2348:
2349: IF fnd_api.to_boolean(p_init_msg_list) THEN
2350: fnd_msg_pub.initialize;
2351: END IF;
2352:
2353:
2354: /* Validate the Resource. */
2355: IF l_resource_id IS NULL THEN
2356: fnd_message.set_name('JTF', 'JTF_RS_RESOURCE_NULL');
2357: fnd_msg_pub.add;
2358: RAISE fnd_api.g_exc_error;
2359:
2360: END IF;
2361:
2362:
2366: IF res_cur%NOTFOUND THEN
2367: fnd_message.set_name('JTF', 'JTF_RS_INVALID_RESOURCE');
2368: fnd_message.set_token('P_RESOURCE_ID', l_resource_id);
2369: fnd_msg_pub.add;
2370: RAISE fnd_api.g_exc_error;
2371:
2372: END IF;
2373: IF res_rec.category <> 'TBH'
2374: THEN
2373: IF res_rec.category <> 'TBH'
2374: THEN
2375: fnd_message.set_name('JTF', 'JTF_RS_NOT_TBH');
2376: fnd_msg_pub.add;
2377: RAISE fnd_api.g_exc_error;
2378: END IF;
2379: CLOSE res_cur;
2380:
2381: END IF;
2385: /* Call the private procedure with the validated parameters. */
2386: --call private api for delete
2387: JTF_RS_RESOURCE_PVT.DELETE_RESOURCE(
2388: P_API_VERSION => 1.0,
2389: P_INIT_MSG_LIST => fnd_api.g_false,
2390: P_COMMIT => fnd_api.g_false,
2391: P_RESOURCE_ID => l_resource_id,
2392: X_RETURN_STATUS => x_return_status,
2393: X_MSG_COUNT => x_msg_count,
2386: --call private api for delete
2387: JTF_RS_RESOURCE_PVT.DELETE_RESOURCE(
2388: P_API_VERSION => 1.0,
2389: P_INIT_MSG_LIST => fnd_api.g_false,
2390: P_COMMIT => fnd_api.g_false,
2391: P_RESOURCE_ID => l_resource_id,
2392: X_RETURN_STATUS => x_return_status,
2393: X_MSG_COUNT => x_msg_count,
2394: X_MSG_DATA => x_msg_data );
2393: X_MSG_COUNT => x_msg_count,
2394: X_MSG_DATA => x_msg_data );
2395:
2396:
2397: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
2398: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
2399: RAISE FND_API.G_EXC_ERROR;
2400: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
2401: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2394: X_MSG_DATA => x_msg_data );
2395:
2396:
2397: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
2398: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
2399: RAISE FND_API.G_EXC_ERROR;
2400: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
2401: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2402: END IF;
2395:
2396:
2397: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
2398: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
2399: RAISE FND_API.G_EXC_ERROR;
2400: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
2401: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2402: END IF;
2403: END IF;
2396:
2397: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
2398: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
2399: RAISE FND_API.G_EXC_ERROR;
2400: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
2401: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2402: END IF;
2403: END IF;
2404:
2397: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
2398: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
2399: RAISE FND_API.G_EXC_ERROR;
2400: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
2401: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2402: END IF;
2403: END IF;
2404:
2405: IF fnd_api.to_boolean(p_commit) THEN
2401: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2402: END IF;
2403: END IF;
2404:
2405: IF fnd_api.to_boolean(p_commit) THEN
2406: COMMIT WORK;
2407: END IF;
2408: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2409:
2407: END IF;
2408: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2409:
2410: EXCEPTION
2411: WHEN fnd_api.g_exc_error THEN
2412: ROLLBACK TO delete_resource_pub;
2413: x_return_status := fnd_api.g_ret_sts_error;
2414: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
2415: p_data => x_msg_data);
2409:
2410: EXCEPTION
2411: WHEN fnd_api.g_exc_error THEN
2412: ROLLBACK TO delete_resource_pub;
2413: x_return_status := fnd_api.g_ret_sts_error;
2414: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
2415: p_data => x_msg_data);
2416: WHEN fnd_api.g_exc_unexpected_error THEN
2417: ROLLBACK TO delete_resource_pub;
2412: ROLLBACK TO delete_resource_pub;
2413: x_return_status := fnd_api.g_ret_sts_error;
2414: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
2415: p_data => x_msg_data);
2416: WHEN fnd_api.g_exc_unexpected_error THEN
2417: ROLLBACK TO delete_resource_pub;
2418: x_return_status := fnd_api.g_ret_sts_unexp_error;
2419: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
2420: p_data => x_msg_data);
2414: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
2415: p_data => x_msg_data);
2416: WHEN fnd_api.g_exc_unexpected_error THEN
2417: ROLLBACK TO delete_resource_pub;
2418: x_return_status := fnd_api.g_ret_sts_unexp_error;
2419: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
2420: p_data => x_msg_data);
2421: WHEN OTHERS THEN
2422: ROLLBACK TO delete_resource_pub;
2424: fnd_message.set_token('P_SQLCODE',SQLCODE);
2425: fnd_message.set_token('P_SQLERRM',SQLERRM);
2426: fnd_message.set_token('P_API_NAME', l_api_name);
2427: FND_MSG_PUB.add;
2428: x_return_status := fnd_api.g_ret_sts_unexp_error;
2429: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
2430: p_data => x_msg_data);
2431:
2432: END delete_resource;
2817:
2818: --Standard Start of API SAVEPOINT
2819: SAVEPOINT CREATE_RESOURCE_SP;
2820:
2821: x_return_status := fnd_api.g_ret_sts_success;
2822:
2823: --Standard Call to check API compatibility
2824: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
2825: THEN
2820:
2821: x_return_status := fnd_api.g_ret_sts_success;
2822:
2823: --Standard Call to check API compatibility
2824: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
2825: THEN
2826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2827: END IF;
2828:
2822:
2823: --Standard Call to check API compatibility
2824: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
2825: THEN
2826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2827: END IF;
2828:
2829: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
2830: IF FND_API.To_boolean(P_INIT_MSG_LIST)
2826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2827: END IF;
2828:
2829: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
2830: IF FND_API.To_boolean(P_INIT_MSG_LIST)
2831: THEN
2832: FND_MSG_PUB.Initialize;
2833: END IF;
2834:
2839: x_return_status => x_return_status
2840: );
2841:
2842:
2843: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
2844:
2845: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
2846: RAISE FND_API.G_EXC_ERROR;
2847: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
2841:
2842:
2843: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
2844:
2845: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
2846: RAISE FND_API.G_EXC_ERROR;
2847: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
2848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2849: END IF;
2842:
2843: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
2844:
2845: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
2846: RAISE FND_API.G_EXC_ERROR;
2847: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
2848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2849: END IF;
2850:
2843: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
2844:
2845: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
2846: RAISE FND_API.G_EXC_ERROR;
2847: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
2848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2849: END IF;
2850:
2851: END IF;
2844:
2845: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
2846: RAISE FND_API.G_EXC_ERROR;
2847: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
2848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2849: END IF;
2850:
2851: END IF;
2852:
2859: p_address_id => l_address_id,
2860: x_return_status => x_return_status
2861: );
2862:
2863: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
2864: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
2865: RAISE FND_API.G_EXC_ERROR;
2866: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
2867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2860: x_return_status => x_return_status
2861: );
2862:
2863: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
2864: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
2865: RAISE FND_API.G_EXC_ERROR;
2866: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
2867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2868: END IF;
2861: );
2862:
2863: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
2864: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
2865: RAISE FND_API.G_EXC_ERROR;
2866: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
2867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2868: END IF;
2869:
2862:
2863: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
2864: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
2865: RAISE FND_API.G_EXC_ERROR;
2866: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
2867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2868: END IF;
2869:
2870: END IF;
2863: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
2864: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
2865: RAISE FND_API.G_EXC_ERROR;
2866: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
2867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2868: END IF;
2869:
2870: END IF;
2871:
2885:
2886: fnd_message.set_name('JTF', 'JTF_RS_OTHER_IDS_NOT_NULL');
2887: fnd_msg_pub.add;
2888:
2889: RAISE fnd_api.g_exc_error;
2890:
2891: END IF;
2892:
2893: END IF;
2901: IF (l_source_id IS NULL) THEN
2902: -- dbms_output.put_line('For PARTNER category, source_id should not be null');
2903: fnd_message.set_name('JTF', 'JTF_RS_PARTNER_IDS_NULL');
2904: fnd_msg_pub.add;
2905: RAISE fnd_api.g_exc_error;
2906:
2907: ELSE
2908: OPEN c_validate_partner(l_source_id);
2909: FETCH c_validate_partner INTO l_check_flag;
2910: IF c_validate_partner%NOTFOUND THEN
2911: -- dbms_output.put_line('Partner does not exist for the passed source_id');
2912: fnd_message.set_name('JTF', 'JTF_RS_INVALID_PARTNER_IDS');
2913: fnd_msg_pub.add;
2914: RAISE fnd_api.g_exc_error;
2915:
2916: END IF;
2917: CLOSE c_validate_partner;
2918: END IF;
2926: -- dbms_output.put_line('Invalid Partner Address Id');
2927: fnd_message.set_name('JTF', 'JTF_RS_ERR_PARTNER_ADDRESS_ID');
2928: fnd_message.set_token('P_ADDRESS_ID', l_address_id);
2929: fnd_msg_pub.add;
2930: RAISE fnd_api.g_exc_error;
2931:
2932: END IF;
2933: CLOSE c_validate_partner_address;
2934: END IF;
2943: -- dbms_output.put_line('Invalid Partner Contact Id');
2944: fnd_message.set_name('JTF', 'JTF_RS_ERR_PARTNER_CONTACT_ID');
2945: fnd_message.set_token('P_CONTACT_ID', l_contact_id);
2946: fnd_msg_pub.add;
2947: RAISE fnd_api.g_exc_error;
2948:
2949: END IF;
2950: CLOSE c_validate_partner_contact;
2951: END IF;
2962: IF l_source_id IS NULL THEN
2963: -- dbms_output.put_line('Source Id should not be Null');
2964: fnd_message.set_name('JTF', 'JTF_RS_SOURCE_ID_NULL');
2965: fnd_msg_pub.add;
2966: RAISE fnd_api.g_exc_error;
2967:
2968: END IF;
2969:
2970: jtf_resource_utl.check_object_existence_migr(
2976: X_FOUND => l_found,
2977: X_RETURN_STATUS => x_return_status
2978: );
2979:
2980: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
2981:
2982: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
2983: RAISE FND_API.G_EXC_ERROR;
2984: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
2978: );
2979:
2980: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
2981:
2982: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
2983: RAISE FND_API.G_EXC_ERROR;
2984: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
2985: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2986: END IF;
2979:
2980: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
2981:
2982: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
2983: RAISE FND_API.G_EXC_ERROR;
2984: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
2985: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2986: END IF;
2987:
2980: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
2981:
2982: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
2983: RAISE FND_API.G_EXC_ERROR;
2984: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
2985: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2986: END IF;
2987:
2988: END IF;
2981:
2982: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
2983: RAISE FND_API.G_EXC_ERROR;
2984: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
2985: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2986: END IF;
2987:
2988: END IF;
2989:
2995: fnd_message.set_name('JTF', 'JTF_RS_INVALID_SOURCE_ID');
2996: fnd_message.set_token('P_SOURCE_ID', l_source_id);
2997: fnd_msg_pub.add;
2998:
2999: RAISE fnd_api.g_exc_error;
3000:
3001:
3002: END IF;
3003:
3012: -- First check is null check for source id
3013: IF l_source_id IS NULL THEN
3014: fnd_message.set_name('JTF', 'JTF_RS_SOURCE_ID_NULL');
3015: fnd_msg_pub.add;
3016: RAISE fnd_api.g_exc_error;
3017: END IF;
3018:
3019: open c_emp_exist(l_source_id);
3020: fetch c_emp_exist into r_emp_exist;
3024: then
3025: fnd_message.set_name('JTF', 'JTF_RS_INVALID_SOURCE_ID');
3026: fnd_message.set_token('P_SOURCE_ID', l_source_id);
3027: fnd_msg_pub.add;
3028: RAISE fnd_api.g_exc_error;
3029: end if;
3030:
3031: END IF; -- end of check l_category = 'EMPLOYEE'
3032:
3050: fnd_message.set_name('JTF', 'JTF_RS_INVALID_PARTY_ADDRESS');
3051: fnd_message.set_token('P_ADDRESS_ID', l_address_id);
3052: fnd_msg_pub.add;
3053:
3054: RAISE fnd_api.g_exc_error;
3055:
3056:
3057: END IF;
3058:
3080: fnd_message.set_name('JTF', 'JTF_RS_ERR_PARTY_CONTACT_ID');
3081: fnd_message.set_token('P_CONTACT_ID', l_contact_id);
3082: fnd_msg_pub.add;
3083:
3084: RAISE fnd_api.g_exc_error;
3085:
3086: END IF;
3087:
3088:
3110:
3111: fnd_message.set_name('JTF', 'JTF_RS_SC_IDS_NOT_NULL');
3112: fnd_msg_pub.add;
3113:
3114: RAISE fnd_api.g_exc_error;
3115:
3116: END IF;
3117:
3118: END IF;
3132:
3133: fnd_message.set_name('JTF', 'JTF_RS_EMP_IDS_NOT_NULL');
3134: fnd_msg_pub.add;
3135:
3136: RAISE fnd_api.g_exc_error;
3137:
3138:
3139: END IF;
3140:
3153:
3154: -- added for NOCOPY
3155: l_managing_emp_id := l_managing_emp_id_out;
3156:
3157: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3158:
3159: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3160: RAISE FND_API.G_EXC_ERROR;
3161: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3155: l_managing_emp_id := l_managing_emp_id_out;
3156:
3157: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3158:
3159: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3160: RAISE FND_API.G_EXC_ERROR;
3161: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3163: END IF;
3156:
3157: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3158:
3159: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3160: RAISE FND_API.G_EXC_ERROR;
3161: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3163: END IF;
3164:
3157: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3158:
3159: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3160: RAISE FND_API.G_EXC_ERROR;
3161: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3163: END IF;
3164:
3165: END IF;
3158:
3159: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3160: RAISE FND_API.G_EXC_ERROR;
3161: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3163: END IF;
3164:
3165: END IF;
3166:
3174:
3175: fnd_message.set_name('JTF', 'JTF_RS_START_DATE_NULL');
3176: fnd_msg_pub.add;
3177:
3178: RAISE fnd_api.g_exc_error;
3179:
3180:
3181: END IF;
3182:
3190: p_time_zone_id => l_time_zone,
3191: x_return_status => x_return_status
3192: );
3193:
3194: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3195:
3196: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3197: RAISE FND_API.G_EXC_ERROR;
3198: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3192: );
3193:
3194: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3195:
3196: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3197: RAISE FND_API.G_EXC_ERROR;
3198: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3200: END IF;
3193:
3194: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3195:
3196: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3197: RAISE FND_API.G_EXC_ERROR;
3198: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3200: END IF;
3201:
3194: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3195:
3196: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3197: RAISE FND_API.G_EXC_ERROR;
3198: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3200: END IF;
3201:
3202: END IF;
3195:
3196: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3197: RAISE FND_API.G_EXC_ERROR;
3198: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3200: END IF;
3201:
3202: END IF;
3203:
3213: p_nls_language => l_primary_language,
3214: x_return_status => x_return_status
3215: );
3216:
3217: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3218:
3219: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3220: RAISE FND_API.G_EXC_ERROR;
3221: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3215: );
3216:
3217: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3218:
3219: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3220: RAISE FND_API.G_EXC_ERROR;
3221: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3223: END IF;
3216:
3217: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3218:
3219: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3220: RAISE FND_API.G_EXC_ERROR;
3221: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3223: END IF;
3224:
3217: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3218:
3219: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3220: RAISE FND_API.G_EXC_ERROR;
3221: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3223: END IF;
3224:
3225: END IF;
3218:
3219: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3220: RAISE FND_API.G_EXC_ERROR;
3221: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3223: END IF;
3224:
3225: END IF;
3226:
3236: p_nls_language => l_secondary_language,
3237: x_return_status => x_return_status
3238: );
3239:
3240: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3241:
3242: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3243: RAISE FND_API.G_EXC_ERROR;
3244: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3238: );
3239:
3240: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3241:
3242: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3243: RAISE FND_API.G_EXC_ERROR;
3244: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3246: END IF;
3239:
3240: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3241:
3242: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3243: RAISE FND_API.G_EXC_ERROR;
3244: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3246: END IF;
3247:
3240: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3241:
3242: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3243: RAISE FND_API.G_EXC_ERROR;
3244: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3246: END IF;
3247:
3248: END IF;
3241:
3242: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3243: RAISE FND_API.G_EXC_ERROR;
3244: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3246: END IF;
3247:
3248: END IF;
3249:
3259: p_support_site_id => l_support_site_id,
3260: x_return_status => x_return_status
3261: );
3262:
3263: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3264:
3265: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3266: RAISE FND_API.G_EXC_ERROR;
3267: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3261: );
3262:
3263: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3264:
3265: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3266: RAISE FND_API.G_EXC_ERROR;
3267: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3268: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3269: END IF;
3262:
3263: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3264:
3265: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3266: RAISE FND_API.G_EXC_ERROR;
3267: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3268: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3269: END IF;
3270:
3263: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3264:
3265: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3266: RAISE FND_API.G_EXC_ERROR;
3267: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3268: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3269: END IF;
3270:
3271: END IF;
3264:
3265: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3266: RAISE FND_API.G_EXC_ERROR;
3267: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3268: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3269: END IF;
3270:
3271: END IF;
3272:
3284: );
3285: -- added for NOCOPY
3286: l_server_group_id := l_server_group_id_out;
3287:
3288: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3289:
3290: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3291: RAISE FND_API.G_EXC_ERROR;
3292: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3286: l_server_group_id := l_server_group_id_out;
3287:
3288: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3289:
3290: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3291: RAISE FND_API.G_EXC_ERROR;
3292: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3293: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3294: END IF;
3287:
3288: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3289:
3290: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3291: RAISE FND_API.G_EXC_ERROR;
3292: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3293: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3294: END IF;
3295:
3288: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3289:
3290: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3291: RAISE FND_API.G_EXC_ERROR;
3292: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3293: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3294: END IF;
3295:
3296: END IF;
3289:
3290: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3291: RAISE FND_API.G_EXC_ERROR;
3292: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3293: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3294: END IF;
3295:
3296: END IF;
3297:
3313: fnd_message.set_name('JTF', 'JTF_RS_ERR_ASSIGN_TO_GRP_ID');
3314: fnd_message.set_token('P_ASSIGNED_TO_GROUP_ID', l_assigned_to_group_id);
3315: fnd_msg_pub.add;
3316:
3317: RAISE fnd_api.g_exc_error;
3318:
3319:
3320: END IF;
3321:
3336: p_currency_code => l_comp_currency_code,
3337: x_return_status => x_return_status
3338: );
3339:
3340: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3341:
3342: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3343: RAISE FND_API.G_EXC_ERROR;
3344: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3338: );
3339:
3340: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3341:
3342: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3343: RAISE FND_API.G_EXC_ERROR;
3344: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3346: END IF;
3339:
3340: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3341:
3342: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3343: RAISE FND_API.G_EXC_ERROR;
3344: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3346: END IF;
3347:
3340: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3341:
3342: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3343: RAISE FND_API.G_EXC_ERROR;
3344: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3346: END IF;
3347:
3348: END IF;
3341:
3342: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3343: RAISE FND_API.G_EXC_ERROR;
3344: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3346: END IF;
3347:
3348: END IF;
3349:
3358:
3359: fnd_message.set_name('JTF', 'JTF_RS_INVALID_FLAG_VALUE');
3360: fnd_msg_pub.add;
3361:
3362: RAISE fnd_api.g_exc_error;
3363:
3364:
3365: END IF;
3366:
3373:
3374: fnd_message.set_name('JTF', 'JTF_RS_INVALID_FLAG_VALUE');
3375: fnd_msg_pub.add;
3376:
3377: RAISE fnd_api.g_exc_error;
3378:
3379:
3380: END IF;
3381:
3389: p_hold_reason_code => l_hold_reason_code,
3390: x_return_status => x_return_status
3391: );
3392:
3393: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3394:
3395: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3396: RAISE FND_API.G_EXC_ERROR;
3397: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3391: );
3392:
3393: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3394:
3395: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3396: RAISE FND_API.G_EXC_ERROR;
3397: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3399: END IF;
3392:
3393: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3394:
3395: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3396: RAISE FND_API.G_EXC_ERROR;
3397: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3399: END IF;
3400:
3393: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3394:
3395: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3396: RAISE FND_API.G_EXC_ERROR;
3397: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3399: END IF;
3400:
3401: END IF;
3394:
3395: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3396: RAISE FND_API.G_EXC_ERROR;
3397: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3399: END IF;
3400:
3401: END IF;
3402:
3412:
3413: fnd_message.set_name('JTF', 'JTF_RS_USERID_ERROR');
3414: fnd_msg_pub.add;
3415:
3416: RAISE fnd_api.g_exc_error;
3417:
3418:
3419: END IF;
3420:
3430: p_source_id => l_source_id,
3431: x_return_status => x_return_status
3432: );
3433:
3434: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3435:
3436: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3437: RAISE FND_API.G_EXC_ERROR;
3438: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3432: );
3433:
3434: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3435:
3436: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3437: RAISE FND_API.G_EXC_ERROR;
3438: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3440: END IF;
3433:
3434: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3435:
3436: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3437: RAISE FND_API.G_EXC_ERROR;
3438: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3440: END IF;
3441: else
3434: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3435:
3436: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3437: RAISE FND_API.G_EXC_ERROR;
3438: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3440: END IF;
3441: else
3442:
3435:
3436: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3437: RAISE FND_API.G_EXC_ERROR;
3438: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3440: END IF;
3441: else
3442:
3443: OPEN c_validate_user_id(l_user_id);
3452: fnd_message.set_name('JTF', 'JTF_RS_ERR_DUPLICATE_USER_ID');
3453: fnd_message.set_token('P_USER_ID', l_user_id);
3454: fnd_msg_pub.add;
3455:
3456: RAISE fnd_api.g_exc_error;
3457:
3458:
3459: END IF;
3460:
3484: );
3485: -- added for NOCOPY
3486: l_comp_service_team_id := l_comp_service_team_id_out;
3487:
3488: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3489:
3490: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3491: RAISE FND_API.G_EXC_ERROR;
3492: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3486: l_comp_service_team_id := l_comp_service_team_id_out;
3487:
3488: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3489:
3490: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3491: RAISE FND_API.G_EXC_ERROR;
3492: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3493: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3494: END IF;
3487:
3488: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3489:
3490: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3491: RAISE FND_API.G_EXC_ERROR;
3492: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3493: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3494: END IF;
3495:
3488: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3489:
3490: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3491: RAISE FND_API.G_EXC_ERROR;
3492: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3493: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3494: END IF;
3495:
3496: END IF;
3489:
3490: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3491: RAISE FND_API.G_EXC_ERROR;
3492: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3493: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3494: END IF;
3495:
3496: END IF;
3497:
3505:
3506: /* Call the private procedure with the validated parameters. */
3507: jtf_rs_resource_pvt.create_resource (
3508: P_API_VERSION => 1,
3509: P_INIT_MSG_LIST => fnd_api.g_false,
3510: P_COMMIT => fnd_api.g_false,
3511: P_CATEGORY => l_category,
3512: P_SOURCE_ID => l_source_id,
3513: P_ADDRESS_ID => l_address_id,
3506: /* Call the private procedure with the validated parameters. */
3507: jtf_rs_resource_pvt.create_resource (
3508: P_API_VERSION => 1,
3509: P_INIT_MSG_LIST => fnd_api.g_false,
3510: P_COMMIT => fnd_api.g_false,
3511: P_CATEGORY => l_category,
3512: P_SOURCE_ID => l_source_id,
3513: P_ADDRESS_ID => l_address_id,
3514: P_CONTACT_ID => l_contact_id,
3591: );
3592:
3593:
3594:
3595: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3596: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3597: RAISE FND_API.G_EXC_ERROR;
3598: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3592:
3593:
3594:
3595: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3596: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3597: RAISE FND_API.G_EXC_ERROR;
3598: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3600: END IF;
3593:
3594:
3595: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3596: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3597: RAISE FND_API.G_EXC_ERROR;
3598: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3600: END IF;
3601: END IF;
3594:
3595: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3596: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3597: RAISE FND_API.G_EXC_ERROR;
3598: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3600: END IF;
3601: END IF;
3602:
3595: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3596: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3597: RAISE FND_API.G_EXC_ERROR;
3598: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3600: END IF;
3601: END IF;
3602:
3603: ELSE
3607: /* Call the private procedure for Migration. */
3608:
3609: jtf_rs_resource_pvt.create_resource_migrate (
3610: P_API_VERSION => 1,
3611: P_INIT_MSG_LIST => fnd_api.g_false,
3612: P_COMMIT => fnd_api.g_false,
3613: P_CATEGORY => l_category,
3614: P_SOURCE_ID => l_source_id,
3615: P_ADDRESS_ID => l_address_id,
3608:
3609: jtf_rs_resource_pvt.create_resource_migrate (
3610: P_API_VERSION => 1,
3611: P_INIT_MSG_LIST => fnd_api.g_false,
3612: P_COMMIT => fnd_api.g_false,
3613: P_CATEGORY => l_category,
3614: P_SOURCE_ID => l_source_id,
3615: P_ADDRESS_ID => l_address_id,
3616: P_CONTACT_ID => l_contact_id,
3657: X_MSG_DATA => x_msg_data,
3658: X_RESOURCE_ID => x_resource_id,
3659: X_RESOURCE_NUMBER => x_resource_number
3660: );
3661: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3662: -- dbms_output.put_line('Failed status from call to private procedure');
3663: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3664: RAISE FND_API.G_EXC_ERROR;
3665: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3659: X_RESOURCE_NUMBER => x_resource_number
3660: );
3661: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3662: -- dbms_output.put_line('Failed status from call to private procedure');
3663: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3664: RAISE FND_API.G_EXC_ERROR;
3665: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3667: END IF;
3660: );
3661: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3662: -- dbms_output.put_line('Failed status from call to private procedure');
3663: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3664: RAISE FND_API.G_EXC_ERROR;
3665: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3667: END IF;
3668: END IF;
3661: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3662: -- dbms_output.put_line('Failed status from call to private procedure');
3663: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3664: RAISE FND_API.G_EXC_ERROR;
3665: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3667: END IF;
3668: END IF;
3669:
3662: -- dbms_output.put_line('Failed status from call to private procedure');
3663: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3664: RAISE FND_API.G_EXC_ERROR;
3665: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3667: END IF;
3668: END IF;
3669:
3670: END IF;
3668: END IF;
3669:
3670: END IF;
3671:
3672: IF (x_return_status <> fnd_api.g_ret_sts_success)
3673: THEN
3674: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3675: RAISE FND_API.G_EXC_ERROR;
3676: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3670: END IF;
3671:
3672: IF (x_return_status <> fnd_api.g_ret_sts_success)
3673: THEN
3674: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3675: RAISE FND_API.G_EXC_ERROR;
3676: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3678: END IF;
3671:
3672: IF (x_return_status <> fnd_api.g_ret_sts_success)
3673: THEN
3674: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3675: RAISE FND_API.G_EXC_ERROR;
3676: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3678: END IF;
3679: END IF;
3672: IF (x_return_status <> fnd_api.g_ret_sts_success)
3673: THEN
3674: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3675: RAISE FND_API.G_EXC_ERROR;
3676: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3678: END IF;
3679: END IF;
3680:
3673: THEN
3674: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
3675: RAISE FND_API.G_EXC_ERROR;
3676: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
3677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3678: END IF;
3679: END IF;
3680:
3681: IF fnd_api.to_boolean (p_commit)
3677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3678: END IF;
3679: END IF;
3680:
3681: IF fnd_api.to_boolean (p_commit)
3682: THEN
3683: COMMIT WORK;
3684: END IF;
3685:
3686:
3687: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3688:
3689: EXCEPTION
3690: WHEN fnd_api.g_exc_error THEN
3691: ROLLBACK TO create_resource_sp;
3692: x_return_status := fnd_api.g_ret_sts_error;
3693: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
3694: p_data => x_msg_data);
3688:
3689: EXCEPTION
3690: WHEN fnd_api.g_exc_error THEN
3691: ROLLBACK TO create_resource_sp;
3692: x_return_status := fnd_api.g_ret_sts_error;
3693: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
3694: p_data => x_msg_data);
3695: WHEN fnd_api.g_exc_unexpected_error THEN
3696: ROLLBACK TO create_resource_sp;
3691: ROLLBACK TO create_resource_sp;
3692: x_return_status := fnd_api.g_ret_sts_error;
3693: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
3694: p_data => x_msg_data);
3695: WHEN fnd_api.g_exc_unexpected_error THEN
3696: ROLLBACK TO create_resource_sp;
3697: x_return_status := fnd_api.g_ret_sts_unexp_error;
3698: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
3699: p_data => x_msg_data);
3693: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
3694: p_data => x_msg_data);
3695: WHEN fnd_api.g_exc_unexpected_error THEN
3696: ROLLBACK TO create_resource_sp;
3697: x_return_status := fnd_api.g_ret_sts_unexp_error;
3698: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
3699: p_data => x_msg_data);
3700: WHEN OTHERS THEN
3701: ROLLBACK TO create_resource_sp;
3703: fnd_message.set_token('P_SQLCODE',SQLCODE);
3704: fnd_message.set_token('P_SQLERRM',SQLERRM);
3705: fnd_message.set_token('P_API_NAME', l_api_name);
3706: FND_MSG_PUB.add;
3707: x_return_status := fnd_api.g_ret_sts_unexp_error;
3708: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
3709: p_data => x_msg_data);
3710:
3711: END;