[Home] [Help]
420:
421: PROCEDURE assign_resp
422: (
423: p_api_version_number IN NUMBER,
424: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
425: p_commit IN VARCHAR2 := Fnd_Api.g_false,
426: p_user_id IN NUMBER,
427: p_resp_id IN NUMBER,
428: p_app_id IN NUMBER,
421: PROCEDURE assign_resp
422: (
423: p_api_version_number IN NUMBER,
424: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
425: p_commit IN VARCHAR2 := Fnd_Api.g_false,
426: p_user_id IN NUMBER,
427: p_resp_id IN NUMBER,
428: p_app_id IN NUMBER,
429: X_Return_Status OUT NOCOPY VARCHAR2,
440: -- Standard Start of API savepoint
441: SAVEPOINT assign_resp;
442:
443: -- Standard call to check for call compatibility.
444: IF NOT Fnd_Api.Compatible_API_Call (l_api_version_number
445: ,p_api_version_number
446: ,l_api_name
447: ,G_PKG_NAME
448: )
446: ,l_api_name
447: ,G_PKG_NAME
448: )
449: THEN
450: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
451: END IF;
452:
453: -- Initialize message list if p_init_msg_list is set to TRUE.
454: IF Fnd_Api.to_Boolean( p_init_msg_list )
450: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
451: END IF;
452:
453: -- Initialize message list if p_init_msg_list is set to TRUE.
454: IF Fnd_Api.to_Boolean( p_init_msg_list )
455: THEN
456: Fnd_Msg_Pub.initialize;
457: END IF;
458:
461: Debug_Log('PRIVATE API: ' || l_api_name || ' - START');
462: END IF;
463:
464: -- Initialize API return status to SUCCESS
465: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
466:
467: IF (p_user_id is null) THEN
468: FND_MESSAGE.SET_NAME ('PV', 'PV_USER_ID_NULL');
469: FND_MSG_PUB.ADD;
466:
467: IF (p_user_id is null) THEN
468: FND_MESSAGE.SET_NAME ('PV', 'PV_USER_ID_NULL');
469: FND_MSG_PUB.ADD;
470: raise FND_API.G_EXC_ERROR;
471: END IF;
472:
473: IF (p_resp_id is null) THEN
474: FND_MESSAGE.SET_NAME ('PV', 'PV_RESP_ID_NULL');
472:
473: IF (p_resp_id is null) THEN
474: FND_MESSAGE.SET_NAME ('PV', 'PV_RESP_ID_NULL');
475: FND_MSG_PUB.ADD;
476: raise FND_API.G_EXC_ERROR;
477: END IF;
478:
479: IF (p_app_id is null) THEN
480: FND_MESSAGE.SET_NAME ('PV', 'PV_APPL_ID_NULL');
478:
479: IF (p_app_id is null) THEN
480: FND_MESSAGE.SET_NAME ('PV', 'PV_APPL_ID_NULL');
481: FND_MSG_PUB.ADD;
482: raise FND_API.G_EXC_ERROR;
483: END IF;
484:
485: Fnd_User_Resp_Groups_Api.UPLOAD_ASSIGNMENT(
486: user_id => p_user_id,
490: end_date => NULL,
491: description => NULL );
492:
493: -- Check for commit : no commit at private procedure
494: --IF Fnd_Api.to_boolean(p_commit) THEN
495: -- COMMIT;
496: --END IF;
497:
498: Fnd_Msg_Pub.count_and_get(
495: -- COMMIT;
496: --END IF;
497:
498: Fnd_Msg_Pub.count_and_get(
499: p_encoded => Fnd_Api.g_false
500: ,p_count => x_msg_count
501: ,p_data => x_msg_data
502: );
503:
507: Debug_Log('PRIVATE API: ' || l_api_name || ' - END');
508: END IF;
509:
510: EXCEPTION
511: WHEN Fnd_Api.G_EXC_ERROR THEN
512: ROLLBACK TO assign_resp;
513: x_return_status := Fnd_Api.G_RET_STS_ERROR;
514: -- Standard call to get message count and if count=1, get the message
515: Fnd_Msg_Pub.Count_And_Get (
509:
510: EXCEPTION
511: WHEN Fnd_Api.G_EXC_ERROR THEN
512: ROLLBACK TO assign_resp;
513: x_return_status := Fnd_Api.G_RET_STS_ERROR;
514: -- Standard call to get message count and if count=1, get the message
515: Fnd_Msg_Pub.Count_And_Get (
516: p_encoded => Fnd_Api.G_FALSE
517: ,p_count => x_msg_count
512: ROLLBACK TO assign_resp;
513: x_return_status := Fnd_Api.G_RET_STS_ERROR;
514: -- Standard call to get message count and if count=1, get the message
515: Fnd_Msg_Pub.Count_And_Get (
516: p_encoded => Fnd_Api.G_FALSE
517: ,p_count => x_msg_count
518: ,p_data => x_msg_data
519: );
520:
517: ,p_count => x_msg_count
518: ,p_data => x_msg_data
519: );
520:
521: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
522: ROLLBACK TO assign_resp;
523: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
524: -- Standard call to get message count and if count=1, get the message
525: Fnd_Msg_Pub.Count_And_Get (
519: );
520:
521: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
522: ROLLBACK TO assign_resp;
523: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
524: -- Standard call to get message count and if count=1, get the message
525: Fnd_Msg_Pub.Count_And_Get (
526: p_encoded => Fnd_Api.G_FALSE
527: ,p_count => x_msg_count
522: ROLLBACK TO assign_resp;
523: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
524: -- Standard call to get message count and if count=1, get the message
525: Fnd_Msg_Pub.Count_And_Get (
526: p_encoded => Fnd_Api.G_FALSE
527: ,p_count => x_msg_count
528: ,p_data => x_msg_data
529: );
530:
529: );
530:
531: WHEN OTHERS THEN
532: ROLLBACK TO assign_resp;
533: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
534: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
535: THEN
536: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
537: END IF;
536: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
537: END IF;
538: -- Standard call to get message count and if count=1, get the message
539: Fnd_Msg_Pub.Count_And_Get (
540: p_encoded => Fnd_Api.G_FALSE
541: ,p_count => x_msg_count
542: ,p_data => x_msg_data
543: );
544:
551: * based on a p_user_id, we will revoke p_resp_id for the application p_app_id
552: */
553: PROCEDURE revoke_resp(
554: p_api_version_number IN NUMBER,
555: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
556: p_commit IN VARCHAR2 := Fnd_Api.g_false,
557: p_user_id IN NUMBER,
558: p_resp_id IN NUMBER,
559: p_app_id IN NUMBER,
552: */
553: PROCEDURE revoke_resp(
554: p_api_version_number IN NUMBER,
555: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
556: p_commit IN VARCHAR2 := Fnd_Api.g_false,
557: p_user_id IN NUMBER,
558: p_resp_id IN NUMBER,
559: p_app_id IN NUMBER,
560: p_security_group_id IN NUMBER,
576: -- Standard Start of API savepoint
577: SAVEPOINT revoke_resp;
578:
579: -- Standard call to check for call compatibility.
580: IF NOT Fnd_Api.Compatible_API_Call (l_api_version_number
581: ,p_api_version_number
582: ,l_api_name
583: ,G_PKG_NAME
584: )
582: ,l_api_name
583: ,G_PKG_NAME
584: )
585: THEN
586: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
587: END IF;
588:
589: -- Initialize message list if p_init_msg_list is set to TRUE.
590: IF Fnd_Api.to_Boolean( p_init_msg_list )
586: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
587: END IF;
588:
589: -- Initialize message list if p_init_msg_list is set to TRUE.
590: IF Fnd_Api.to_Boolean( p_init_msg_list )
591: THEN
592: Fnd_Msg_Pub.initialize;
593: END IF;
594:
597: Debug_Log('PRIVATE API: ' || l_api_name || ' - START');
598: END IF;
599:
600: -- Initialize API return status to SUCCESS
601: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
602:
603: Fnd_User_Resp_Groups_Api.UPLOAD_ASSIGNMENT(
604: user_id => p_user_id,
605: responsibility_id => p_resp_id,
610: description => p_description
611: );
612:
613: Fnd_Msg_Pub.count_and_get(
614: p_encoded => Fnd_Api.g_false
615: ,p_count => x_msg_count
616: ,p_data => x_msg_data
617: );
618:
622: Debug_Log('PRIVATE API: ' || l_api_name || ' - END');
623: END IF;
624:
625: EXCEPTION
626: WHEN Fnd_Api.G_EXC_ERROR THEN
627: ROLLBACK TO revoke_resp;
628: x_return_status := Fnd_Api.G_RET_STS_ERROR;
629: -- Standard call to get message count and if count=1, get the message
630: Fnd_Msg_Pub.Count_And_Get (
624:
625: EXCEPTION
626: WHEN Fnd_Api.G_EXC_ERROR THEN
627: ROLLBACK TO revoke_resp;
628: x_return_status := Fnd_Api.G_RET_STS_ERROR;
629: -- Standard call to get message count and if count=1, get the message
630: Fnd_Msg_Pub.Count_And_Get (
631: p_encoded => Fnd_Api.G_FALSE
632: ,p_count => x_msg_count
627: ROLLBACK TO revoke_resp;
628: x_return_status := Fnd_Api.G_RET_STS_ERROR;
629: -- Standard call to get message count and if count=1, get the message
630: Fnd_Msg_Pub.Count_And_Get (
631: p_encoded => Fnd_Api.G_FALSE
632: ,p_count => x_msg_count
633: ,p_data => x_msg_data
634: );
635:
632: ,p_count => x_msg_count
633: ,p_data => x_msg_data
634: );
635:
636: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
637: ROLLBACK TO revoke_resp;
638: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
639: -- Standard call to get message count and if count=1, get the message
640: Fnd_Msg_Pub.Count_And_Get (
634: );
635:
636: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
637: ROLLBACK TO revoke_resp;
638: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
639: -- Standard call to get message count and if count=1, get the message
640: Fnd_Msg_Pub.Count_And_Get (
641: p_encoded => Fnd_Api.G_FALSE
642: ,p_count => x_msg_count
637: ROLLBACK TO revoke_resp;
638: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
639: -- Standard call to get message count and if count=1, get the message
640: Fnd_Msg_Pub.Count_And_Get (
641: p_encoded => Fnd_Api.G_FALSE
642: ,p_count => x_msg_count
643: ,p_data => x_msg_data
644: );
645:
644: );
645:
646: WHEN OTHERS THEN
647: ROLLBACK TO revoke_resp;
648: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
649: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
650: THEN
651: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
652: END IF;
651: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
652: END IF;
653: -- Standard call to get message count and if count=1, get the message
654: Fnd_Msg_Pub.Count_And_Get (
655: p_encoded => Fnd_Api.G_FALSE
656: ,p_count => x_msg_count
657: ,p_data => x_msg_data
658: );
659:
668: * based on a p_user_id, we will revoke p_resp_id for the application p_app_id
669: */
670: PROCEDURE revoke_resp(
671: p_api_version_number IN NUMBER,
672: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
673: p_commit IN VARCHAR2 := Fnd_Api.g_false,
674: p_user_id IN JTF_NUMBER_TABLE,
675: p_resp_id IN NUMBER,
676: x_return_status OUT NOCOPY VARCHAR2,
669: */
670: PROCEDURE revoke_resp(
671: p_api_version_number IN NUMBER,
672: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
673: p_commit IN VARCHAR2 := Fnd_Api.g_false,
674: p_user_id IN JTF_NUMBER_TABLE,
675: p_resp_id IN NUMBER,
676: x_return_status OUT NOCOPY VARCHAR2,
677: x_msg_count OUT NOCOPY NUMBER,
698: SAVEPOINT revoke_resp;
699:
700:
701: -- Standard call to check for call compatibility.
702: IF NOT Fnd_Api.Compatible_API_Call (l_api_version_number
703: ,p_api_version_number
704: ,l_api_name
705: ,G_PKG_NAME
706: )
704: ,l_api_name
705: ,G_PKG_NAME
706: )
707: THEN
708: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
709: END IF;
710:
711: -- Initialize message list if p_init_msg_list is set to TRUE.
712: IF Fnd_Api.to_Boolean( p_init_msg_list )
708: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
709: END IF;
710:
711: -- Initialize message list if p_init_msg_list is set to TRUE.
712: IF Fnd_Api.to_Boolean( p_init_msg_list )
713: THEN
714: Fnd_Msg_Pub.initialize;
715: END IF;
716:
714: Fnd_Msg_Pub.initialize;
715: END IF;
716:
717: -- Initialize API return status to SUCCESS
718: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
719:
720: IF (PV_DEBUG_HIGH_ON) THEN
721: Debug_Log('PRIVATE API: ' || l_api_name || ' - START');
722: END IF;
745: END IF;
746:
747: revoke_resp(
748: p_api_version_number => p_api_version_number
749: ,p_init_msg_list => FND_API.G_FALSE
750: ,p_commit => FND_API.G_FALSE
751: ,p_user_id => x.user_id
752: ,p_resp_id => x.responsibility_id
753: ,p_app_id => x.responsibility_application_id
746:
747: revoke_resp(
748: p_api_version_number => p_api_version_number
749: ,p_init_msg_list => FND_API.G_FALSE
750: ,p_commit => FND_API.G_FALSE
751: ,p_user_id => x.user_id
752: ,p_resp_id => x.responsibility_id
753: ,p_app_id => x.responsibility_application_id
754: ,p_security_group_id => x.security_group_id
757: ,x_return_status => x_return_status
758: ,x_msg_count => x_msg_count
759: ,x_msg_data => x_msg_data
760: );
761: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
762: RAISE FND_API.G_EXC_ERROR;
763: END IF;
764: END LOOP;
765:
758: ,x_msg_count => x_msg_count
759: ,x_msg_data => x_msg_data
760: );
761: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
762: RAISE FND_API.G_EXC_ERROR;
763: END IF;
764: END LOOP;
765:
766: Fnd_Msg_Pub.count_and_get(
763: END IF;
764: END LOOP;
765:
766: Fnd_Msg_Pub.count_and_get(
767: p_encoded => Fnd_Api.g_false
768: ,p_count => x_msg_count
769: ,p_data => x_msg_data
770: );
771:
775: Debug_Log('PRIVATE API: ' || l_api_name || ' - END');
776: END IF;
777:
778: EXCEPTION
779: WHEN Fnd_Api.G_EXC_ERROR THEN
780: ROLLBACK TO revoke_resp;
781: x_return_status := Fnd_Api.G_RET_STS_ERROR;
782: -- Standard call to get message count and if count=1, get the message
783: Fnd_Msg_Pub.Count_And_Get (
777:
778: EXCEPTION
779: WHEN Fnd_Api.G_EXC_ERROR THEN
780: ROLLBACK TO revoke_resp;
781: x_return_status := Fnd_Api.G_RET_STS_ERROR;
782: -- Standard call to get message count and if count=1, get the message
783: Fnd_Msg_Pub.Count_And_Get (
784: p_encoded => Fnd_Api.G_FALSE
785: ,p_count => x_msg_count
780: ROLLBACK TO revoke_resp;
781: x_return_status := Fnd_Api.G_RET_STS_ERROR;
782: -- Standard call to get message count and if count=1, get the message
783: Fnd_Msg_Pub.Count_And_Get (
784: p_encoded => Fnd_Api.G_FALSE
785: ,p_count => x_msg_count
786: ,p_data => x_msg_data
787: );
788:
785: ,p_count => x_msg_count
786: ,p_data => x_msg_data
787: );
788:
789: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
790: ROLLBACK TO revoke_resp;
791: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
792: -- Standard call to get message count and if count=1, get the message
793: Fnd_Msg_Pub.Count_And_Get (
787: );
788:
789: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
790: ROLLBACK TO revoke_resp;
791: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
792: -- Standard call to get message count and if count=1, get the message
793: Fnd_Msg_Pub.Count_And_Get (
794: p_encoded => Fnd_Api.G_FALSE
795: ,p_count => x_msg_count
790: ROLLBACK TO revoke_resp;
791: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
792: -- Standard call to get message count and if count=1, get the message
793: Fnd_Msg_Pub.Count_And_Get (
794: p_encoded => Fnd_Api.G_FALSE
795: ,p_count => x_msg_count
796: ,p_data => x_msg_data
797: );
798:
797: );
798:
799: WHEN OTHERS THEN
800: ROLLBACK TO revoke_resp;
801: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
802: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
803: THEN
804: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
805: END IF;
804: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
805: END IF;
806: -- Standard call to get message count and if count=1, get the message
807: Fnd_Msg_Pub.Count_And_Get (
808: p_encoded => Fnd_Api.G_FALSE
809: ,p_count => x_msg_count
810: ,p_data => x_msg_data
811: );
812:
858:
859: IF((not is_partner_user) and (not is_primary_user)) THEN
860: FND_MESSAGE.SET_NAME ('PV', 'PV_NOT_VALID_PARTNER_USER');
861: FND_MSG_PUB.ADD;
862: raise FND_API.G_EXC_ERROR;
863: ELSIF (is_primary_user) THEN
864: x_user_role_code := G_PRIMARY;
865: ELSE
866: x_user_role_code := G_BUSINESS;
872: * This is to get the default responsibility using partner_id and user_rold
873: */
874: PROCEDURE get_default_resp(
875: p_api_version_number IN NUMBER
876: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
877: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
878: ,x_return_status OUT NOCOPY VARCHAR2
879: ,x_msg_count OUT NOCOPY NUMBER
880: ,x_msg_data OUT NOCOPY VARCHAR2
873: */
874: PROCEDURE get_default_resp(
875: p_api_version_number IN NUMBER
876: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
877: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
878: ,x_return_status OUT NOCOPY VARCHAR2
879: ,x_msg_count OUT NOCOPY NUMBER
880: ,x_msg_data OUT NOCOPY VARCHAR2
881: ,p_partner_id IN NUMBER
916: -- Standard Start of API savepoint
917: SAVEPOINT get_default_resp;
918:
919: -- Standard call to check for call compatibility.
920: IF NOT Fnd_Api.Compatible_API_Call (l_api_version_number
921: ,p_api_version_number
922: ,l_api_name
923: ,G_PKG_NAME
924: )
922: ,l_api_name
923: ,G_PKG_NAME
924: )
925: THEN
926: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
927: END IF;
928:
929: -- Initialize message list if p_init_msg_list is set to TRUE.
930: IF Fnd_Api.to_Boolean( p_init_msg_list )
926: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
927: END IF;
928:
929: -- Initialize message list if p_init_msg_list is set to TRUE.
930: IF Fnd_Api.to_Boolean( p_init_msg_list )
931: THEN
932: Fnd_Msg_Pub.initialize;
933: END IF;
934:
937: Debug_Log('PRIVATE API: ' || l_api_name || ' - START');
938: END IF;
939:
940: -- Initialize API return status to SUCCESS
941: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
942:
943: l_index := 1;
944: FOR x IN c_get_resp_map_rule_info(p_user_role_code)
945: LOOP
959: END LOOP;
960:
961: PV_PARTNER_GEO_MATCH_PVT.Get_Ptnr_Matched_Geo_Id (
962: p_api_version_number => p_api_version_number
963: ,p_init_msg_list => FND_API.G_FALSE
964: ,x_return_status => x_return_status
965: ,x_msg_count => x_msg_count
966: ,x_msg_data => x_msg_data
967: ,p_partner_id => p_partner_id
968: ,p_geo_hierarchy_id => l_geo_hierarchy_id_tbl
969: ,x_geo_hierarchy_id => l_matched_geo_hierarchy_id
970: );
971:
972: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
973: RAISE FND_API.G_EXC_ERROR;
974: END IF;
975:
976: -- if l_matched_geo_hierarchy_id is null
969: ,x_geo_hierarchy_id => l_matched_geo_hierarchy_id
970: );
971:
972: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
973: RAISE FND_API.G_EXC_ERROR;
974: END IF;
975:
976: -- if l_matched_geo_hierarchy_id is null
977: -- most likely the partner doesn't have address in database
986: END LOOP;
987: IF ((x_responsibility_id is null) or (x_resp_map_rule_id is null)) THEN
988: FND_MESSAGE.set_name('PV', 'PV_NO_DEFLT_RESP');
989: FND_MSG_PUB.add;
990: RAISE FND_API.G_EXC_ERROR;
991: END IF;
992: ELSE
993: IF (PV_DEBUG_HIGH_ON) THEN
994: Debug_Log('get_default_resp: l_matched_geo_hierarchy_id =' || l_matched_geo_hierarchy_id);
1008: Debug_Log('get_default_resp: x_resp_map_rule_id =' || x_resp_map_rule_id);
1009: END IF;
1010:
1011: -- Check for commit
1012: IF FND_API.to_boolean(p_commit) THEN
1013: COMMIT;
1014: END IF;
1015:
1016: FND_MSG_PUB.count_and_get(
1013: COMMIT;
1014: END IF;
1015:
1016: FND_MSG_PUB.count_and_get(
1017: p_encoded => FND_API.g_false
1018: ,p_count => x_msg_count
1019: ,p_data => x_msg_data
1020: );
1021:
1021:
1022: EXCEPTION
1023:
1024: WHEN PVX_Utility_PVT.resource_locked THEN
1025: x_return_status := FND_API.g_ret_sts_error;
1026: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1027:
1028: WHEN FND_API.G_EXC_ERROR THEN
1029: ROLLBACK TO get_default_resp;
1024: WHEN PVX_Utility_PVT.resource_locked THEN
1025: x_return_status := FND_API.g_ret_sts_error;
1026: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1027:
1028: WHEN FND_API.G_EXC_ERROR THEN
1029: ROLLBACK TO get_default_resp;
1030: x_return_status := FND_API.G_RET_STS_ERROR;
1031: -- Standard call to get message count and if count=1, get the message
1032: FND_MSG_PUB.Count_And_Get (
1026: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1027:
1028: WHEN FND_API.G_EXC_ERROR THEN
1029: ROLLBACK TO get_default_resp;
1030: x_return_status := FND_API.G_RET_STS_ERROR;
1031: -- Standard call to get message count and if count=1, get the message
1032: FND_MSG_PUB.Count_And_Get (
1033: p_encoded => FND_API.G_FALSE,
1034: p_count => x_msg_count,
1029: ROLLBACK TO get_default_resp;
1030: x_return_status := FND_API.G_RET_STS_ERROR;
1031: -- Standard call to get message count and if count=1, get the message
1032: FND_MSG_PUB.Count_And_Get (
1033: p_encoded => FND_API.G_FALSE,
1034: p_count => x_msg_count,
1035: p_data => x_msg_data
1036: );
1037:
1034: p_count => x_msg_count,
1035: p_data => x_msg_data
1036: );
1037:
1038: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1039: ROLLBACK TO get_default_resp;
1040: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1041: -- Standard call to get message count and if count=1, get the message
1042: FND_MSG_PUB.Count_And_Get (
1036: );
1037:
1038: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1039: ROLLBACK TO get_default_resp;
1040: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1041: -- Standard call to get message count and if count=1, get the message
1042: FND_MSG_PUB.Count_And_Get (
1043: p_encoded => FND_API.G_FALSE,
1044: p_count => x_msg_count,
1039: ROLLBACK TO get_default_resp;
1040: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1041: -- Standard call to get message count and if count=1, get the message
1042: FND_MSG_PUB.Count_And_Get (
1043: p_encoded => FND_API.G_FALSE,
1044: p_count => x_msg_count,
1045: p_data => x_msg_data
1046: );
1047:
1046: );
1047:
1048: WHEN OTHERS THEN
1049: ROLLBACK TO get_default_resp;
1050: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1051: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1052: THEN
1053: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1054: END IF;
1053: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1054: END IF;
1055: -- Standard call to get message count and if count=1, get the message
1056: FND_MSG_PUB.Count_And_Get (
1057: p_encoded => FND_API.G_FALSE,
1058: p_count => x_msg_count,
1059: p_data => x_msg_data
1060: );
1061:
1068: * not exist before calling this API.
1069: */
1070: PROCEDURE get_default_org_resp(
1071: p_api_version_number IN NUMBER
1072: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1073: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1074: ,x_return_status OUT NOCOPY VARCHAR2
1075: ,x_msg_count OUT NOCOPY NUMBER
1076: ,x_msg_data OUT NOCOPY VARCHAR2
1069: */
1070: PROCEDURE get_default_org_resp(
1071: p_api_version_number IN NUMBER
1072: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1073: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1074: ,x_return_status OUT NOCOPY VARCHAR2
1075: ,x_msg_count OUT NOCOPY NUMBER
1076: ,x_msg_data OUT NOCOPY VARCHAR2
1077: ,p_partner_org_id IN NUMBER
1112: -- Standard Start of API savepoint
1113: SAVEPOINT get_default_org_resp;
1114:
1115: -- Standard call to check for call compatibility.
1116: IF NOT Fnd_Api.Compatible_API_Call (l_api_version_number
1117: ,p_api_version_number
1118: ,l_api_name
1119: ,G_PKG_NAME
1120: )
1118: ,l_api_name
1119: ,G_PKG_NAME
1120: )
1121: THEN
1122: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1123: END IF;
1124:
1125: -- Initialize message list if p_init_msg_list is set to TRUE.
1126: IF Fnd_Api.to_Boolean( p_init_msg_list )
1122: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1123: END IF;
1124:
1125: -- Initialize message list if p_init_msg_list is set to TRUE.
1126: IF Fnd_Api.to_Boolean( p_init_msg_list )
1127: THEN
1128: Fnd_Msg_Pub.initialize;
1129: END IF;
1130:
1133: Debug_Log('PRIVATE API: ' || l_api_name || ' - START');
1134: END IF;
1135:
1136: -- Initialize API return status to SUCCESS
1137: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1138:
1139: l_index := 1;
1140: FOR x IN c_get_resp_map_rule_info(p_user_role_code)
1141: LOOP
1155: END LOOP;
1156:
1157: PV_PARTNER_GEO_MATCH_PVT.Get_Ptnr_Org_Matched_Geo_Id (
1158: p_api_version_number => p_api_version_number
1159: ,p_init_msg_list => FND_API.G_FALSE
1160: ,x_return_status => x_return_status
1161: ,x_msg_count => x_msg_count
1162: ,x_msg_data => x_msg_data
1163: ,p_party_id => p_partner_org_id
1164: ,p_geo_hierarchy_id => l_geo_hierarchy_id_tbl
1165: ,x_geo_hierarchy_id => l_matched_geo_hierarchy_id
1166: );
1167:
1168: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1169: RAISE FND_API.G_EXC_ERROR;
1170: END IF;
1171:
1172: -- if l_matched_geo_hierarchy_id is null
1165: ,x_geo_hierarchy_id => l_matched_geo_hierarchy_id
1166: );
1167:
1168: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1169: RAISE FND_API.G_EXC_ERROR;
1170: END IF;
1171:
1172: -- if l_matched_geo_hierarchy_id is null
1173: -- most likely the partner doesn't have address in database
1182: END LOOP;
1183: IF ((x_responsibility_id is null) or (x_resp_map_rule_id is null)) THEN
1184: FND_MESSAGE.set_name('PV', 'PV_NO_DEFLT_RESP');
1185: FND_MSG_PUB.add;
1186: RAISE FND_API.G_EXC_ERROR;
1187: END IF;
1188: ELSE
1189: IF (PV_DEBUG_HIGH_ON) THEN
1190: Debug_Log('get_default_org_resp: l_matched_geo_hierarchy_id =' || l_matched_geo_hierarchy_id);
1204: Debug_Log('get_default_org_resp: x_resp_map_rule_id =' || x_resp_map_rule_id);
1205: END IF;
1206:
1207: -- Check for commit
1208: IF FND_API.to_boolean(p_commit) THEN
1209: COMMIT;
1210: END IF;
1211:
1212: FND_MSG_PUB.count_and_get(
1209: COMMIT;
1210: END IF;
1211:
1212: FND_MSG_PUB.count_and_get(
1213: p_encoded => FND_API.g_false
1214: ,p_count => x_msg_count
1215: ,p_data => x_msg_data
1216: );
1217:
1217:
1218: EXCEPTION
1219:
1220: WHEN PVX_Utility_PVT.resource_locked THEN
1221: x_return_status := FND_API.g_ret_sts_error;
1222: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1223:
1224: WHEN FND_API.G_EXC_ERROR THEN
1225: ROLLBACK TO get_default_org_resp;
1220: WHEN PVX_Utility_PVT.resource_locked THEN
1221: x_return_status := FND_API.g_ret_sts_error;
1222: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1223:
1224: WHEN FND_API.G_EXC_ERROR THEN
1225: ROLLBACK TO get_default_org_resp;
1226: x_return_status := FND_API.G_RET_STS_ERROR;
1227: -- Standard call to get message count and if count=1, get the message
1228: FND_MSG_PUB.Count_And_Get (
1222: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1223:
1224: WHEN FND_API.G_EXC_ERROR THEN
1225: ROLLBACK TO get_default_org_resp;
1226: x_return_status := FND_API.G_RET_STS_ERROR;
1227: -- Standard call to get message count and if count=1, get the message
1228: FND_MSG_PUB.Count_And_Get (
1229: p_encoded => FND_API.G_FALSE,
1230: p_count => x_msg_count,
1225: ROLLBACK TO get_default_org_resp;
1226: x_return_status := FND_API.G_RET_STS_ERROR;
1227: -- Standard call to get message count and if count=1, get the message
1228: FND_MSG_PUB.Count_And_Get (
1229: p_encoded => FND_API.G_FALSE,
1230: p_count => x_msg_count,
1231: p_data => x_msg_data
1232: );
1233:
1230: p_count => x_msg_count,
1231: p_data => x_msg_data
1232: );
1233:
1234: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1235: ROLLBACK TO get_default_org_resp;
1236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1237: -- Standard call to get message count and if count=1, get the message
1238: FND_MSG_PUB.Count_And_Get (
1232: );
1233:
1234: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1235: ROLLBACK TO get_default_org_resp;
1236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1237: -- Standard call to get message count and if count=1, get the message
1238: FND_MSG_PUB.Count_And_Get (
1239: p_encoded => FND_API.G_FALSE,
1240: p_count => x_msg_count,
1235: ROLLBACK TO get_default_org_resp;
1236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1237: -- Standard call to get message count and if count=1, get the message
1238: FND_MSG_PUB.Count_And_Get (
1239: p_encoded => FND_API.G_FALSE,
1240: p_count => x_msg_count,
1241: p_data => x_msg_data
1242: );
1243:
1242: );
1243:
1244: WHEN OTHERS THEN
1245: ROLLBACK TO get_default_org_resp;
1246: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1247: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1248: THEN
1249: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1250: END IF;
1249: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1250: END IF;
1251: -- Standard call to get message count and if count=1, get the message
1252: FND_MSG_PUB.Count_And_Get (
1253: p_encoded => FND_API.G_FALSE,
1254: p_count => x_msg_count,
1255: p_data => x_msg_data
1256: );
1257:
1262: * This is to get the program responsibility using partner_id, user_rold, and program_id
1263: */
1264: PROCEDURE get_program_resp(
1265: p_api_version_number IN NUMBER
1266: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1267: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1268: ,x_return_status OUT NOCOPY VARCHAR2
1269: ,x_msg_count OUT NOCOPY NUMBER
1270: ,x_msg_data OUT NOCOPY VARCHAR2
1263: */
1264: PROCEDURE get_program_resp(
1265: p_api_version_number IN NUMBER
1266: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1267: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1268: ,x_return_status OUT NOCOPY VARCHAR2
1269: ,x_msg_count OUT NOCOPY NUMBER
1270: ,x_msg_data OUT NOCOPY VARCHAR2
1271: ,p_partner_id IN NUMBER
1306: -- Standard Start of API savepoint
1307: SAVEPOINT get_program_resp;
1308:
1309: -- Standard call to check for call compatibility.
1310: IF NOT Fnd_Api.Compatible_API_Call (l_api_version_number
1311: ,p_api_version_number
1312: ,l_api_name
1313: ,G_PKG_NAME
1314: )
1312: ,l_api_name
1313: ,G_PKG_NAME
1314: )
1315: THEN
1316: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1317: END IF;
1318:
1319: -- Initialize message list if p_init_msg_list is set to TRUE.
1320: IF Fnd_Api.to_Boolean( p_init_msg_list )
1316: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1317: END IF;
1318:
1319: -- Initialize message list if p_init_msg_list is set to TRUE.
1320: IF Fnd_Api.to_Boolean( p_init_msg_list )
1321: THEN
1322: Fnd_Msg_Pub.initialize;
1323: END IF;
1324:
1327: Debug_Log('PRIVATE API: ' || l_api_name || ' - START');
1328: END IF;
1329:
1330: -- Initialize API return status to SUCCESS
1331: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1332:
1333: l_index := 1;
1334: FOR x IN c_get_resp_map_rule_info(p_user_role_code, p_program_id)
1335: LOOP
1349: END LOOP;
1350:
1351: PV_PARTNER_GEO_MATCH_PVT.Get_Ptnr_Matched_Geo_Id (
1352: p_api_version_number => p_api_version_number
1353: ,p_init_msg_list => FND_API.G_FALSE
1354: ,x_return_status => x_return_status
1355: ,x_msg_count => x_msg_count
1356: ,x_msg_data => x_msg_data
1357: ,p_partner_id => p_partner_id
1358: ,p_geo_hierarchy_id => l_geo_hierarchy_id_tbl
1359: ,x_geo_hierarchy_id => l_matched_geo_hierarchy_id
1360: );
1361:
1362: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1363: RAISE FND_API.G_EXC_ERROR;
1364: END IF;
1365:
1366: -- if l_matched_geo_hierarchy_id is null
1359: ,x_geo_hierarchy_id => l_matched_geo_hierarchy_id
1360: );
1361:
1362: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1363: RAISE FND_API.G_EXC_ERROR;
1364: END IF;
1365:
1366: -- if l_matched_geo_hierarchy_id is null
1367: -- most likely the partner doesn't have address in database
1392: END IF;
1393: END LOOP;
1394: END IF;
1395: -- Check for commit
1396: IF FND_API.to_boolean(p_commit) THEN
1397: COMMIT;
1398: END IF;
1399:
1400: FND_MSG_PUB.count_and_get(
1397: COMMIT;
1398: END IF;
1399:
1400: FND_MSG_PUB.count_and_get(
1401: p_encoded => FND_API.g_false
1402: ,p_count => x_msg_count
1403: ,p_data => x_msg_data
1404: );
1405:
1405:
1406: EXCEPTION
1407:
1408: WHEN PVX_Utility_PVT.resource_locked THEN
1409: x_return_status := FND_API.g_ret_sts_error;
1410: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1411:
1412: WHEN FND_API.G_EXC_ERROR THEN
1413: ROLLBACK TO get_program_resp;
1408: WHEN PVX_Utility_PVT.resource_locked THEN
1409: x_return_status := FND_API.g_ret_sts_error;
1410: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1411:
1412: WHEN FND_API.G_EXC_ERROR THEN
1413: ROLLBACK TO get_program_resp;
1414: x_return_status := FND_API.G_RET_STS_ERROR;
1415: -- Standard call to get message count and if count=1, get the message
1416: FND_MSG_PUB.Count_And_Get (
1410: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1411:
1412: WHEN FND_API.G_EXC_ERROR THEN
1413: ROLLBACK TO get_program_resp;
1414: x_return_status := FND_API.G_RET_STS_ERROR;
1415: -- Standard call to get message count and if count=1, get the message
1416: FND_MSG_PUB.Count_And_Get (
1417: p_encoded => FND_API.G_FALSE,
1418: p_count => x_msg_count,
1413: ROLLBACK TO get_program_resp;
1414: x_return_status := FND_API.G_RET_STS_ERROR;
1415: -- Standard call to get message count and if count=1, get the message
1416: FND_MSG_PUB.Count_And_Get (
1417: p_encoded => FND_API.G_FALSE,
1418: p_count => x_msg_count,
1419: p_data => x_msg_data
1420: );
1421:
1418: p_count => x_msg_count,
1419: p_data => x_msg_data
1420: );
1421:
1422: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1423: ROLLBACK TO get_program_resp;
1424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1425: -- Standard call to get message count and if count=1, get the message
1426: FND_MSG_PUB.Count_And_Get (
1420: );
1421:
1422: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1423: ROLLBACK TO get_program_resp;
1424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1425: -- Standard call to get message count and if count=1, get the message
1426: FND_MSG_PUB.Count_And_Get (
1427: p_encoded => FND_API.G_FALSE,
1428: p_count => x_msg_count,
1423: ROLLBACK TO get_program_resp;
1424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1425: -- Standard call to get message count and if count=1, get the message
1426: FND_MSG_PUB.Count_And_Get (
1427: p_encoded => FND_API.G_FALSE,
1428: p_count => x_msg_count,
1429: p_data => x_msg_data
1430: );
1431:
1430: );
1431:
1432: WHEN OTHERS THEN
1433: ROLLBACK TO get_program_resp;
1434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1435: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1436: THEN
1437: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1438: END IF;
1437: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1438: END IF;
1439: -- Standard call to get message count and if count=1, get the message
1440: FND_MSG_PUB.Count_And_Get (
1441: p_encoded => FND_API.G_FALSE,
1442: p_count => x_msg_count,
1443: p_data => x_msg_data
1444: );
1445:
1451: */
1452:
1453: PROCEDURE get_store_prgm_resps(
1454: p_api_version_number IN NUMBER
1455: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1456: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1457: ,x_return_status OUT NOCOPY VARCHAR2
1458: ,x_msg_count OUT NOCOPY NUMBER
1459: ,x_msg_data OUT NOCOPY VARCHAR2
1452:
1453: PROCEDURE get_store_prgm_resps(
1454: p_api_version_number IN NUMBER
1455: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1456: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1457: ,x_return_status OUT NOCOPY VARCHAR2
1458: ,x_msg_count OUT NOCOPY NUMBER
1459: ,x_msg_data OUT NOCOPY VARCHAR2
1460: ,p_partner_id IN JTF_NUMBER_TABLE
1494: -- Standard Start of API savepoint
1495: SAVEPOINT get_store_prgm_resps;
1496:
1497: -- Standard call to check for call compatibility.
1498: IF NOT Fnd_Api.Compatible_API_Call (l_api_version_number
1499: ,p_api_version_number
1500: ,l_api_name
1501: ,G_PKG_NAME
1502: )
1500: ,l_api_name
1501: ,G_PKG_NAME
1502: )
1503: THEN
1504: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1505: END IF;
1506:
1507: -- Initialize message list if p_init_msg_list is set to TRUE.
1508: IF Fnd_Api.to_Boolean( p_init_msg_list )
1504: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1505: END IF;
1506:
1507: -- Initialize message list if p_init_msg_list is set to TRUE.
1508: IF Fnd_Api.to_Boolean( p_init_msg_list )
1509: THEN
1510: Fnd_Msg_Pub.initialize;
1511: END IF;
1512:
1515: Debug_Log('PRIVATE API: ' || l_api_name || ' - START');
1516: END IF;
1517:
1518: -- Initialize API return status to SUCCESS
1519: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1520:
1521: i := 1;
1522: FOR x in get_resp_id LOOP
1523: IF (PV_DEBUG_HIGH_ON) THEN
1534: x_responsibility_id := l_responsibility_id;
1535: x_resp_map_rule_id := l_resp_map_rule_id;
1536:
1537: -- Check for commit
1538: IF FND_API.to_boolean(p_commit) THEN
1539: COMMIT;
1540: END IF;
1541:
1542: FND_MSG_PUB.count_and_get(
1539: COMMIT;
1540: END IF;
1541:
1542: FND_MSG_PUB.count_and_get(
1543: p_encoded => FND_API.g_false
1544: ,p_count => x_msg_count
1545: ,p_data => x_msg_data
1546: );
1547:
1547:
1548: EXCEPTION
1549:
1550: WHEN PVX_Utility_PVT.resource_locked THEN
1551: x_return_status := FND_API.g_ret_sts_error;
1552: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1553:
1554: WHEN FND_API.G_EXC_ERROR THEN
1555: ROLLBACK TO get_store_prgm_resps;
1550: WHEN PVX_Utility_PVT.resource_locked THEN
1551: x_return_status := FND_API.g_ret_sts_error;
1552: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1553:
1554: WHEN FND_API.G_EXC_ERROR THEN
1555: ROLLBACK TO get_store_prgm_resps;
1556: x_return_status := FND_API.G_RET_STS_ERROR;
1557: -- Standard call to get message count and if count=1, get the message
1558: FND_MSG_PUB.Count_And_Get (
1552: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1553:
1554: WHEN FND_API.G_EXC_ERROR THEN
1555: ROLLBACK TO get_store_prgm_resps;
1556: x_return_status := FND_API.G_RET_STS_ERROR;
1557: -- Standard call to get message count and if count=1, get the message
1558: FND_MSG_PUB.Count_And_Get (
1559: p_encoded => FND_API.G_FALSE,
1560: p_count => x_msg_count,
1555: ROLLBACK TO get_store_prgm_resps;
1556: x_return_status := FND_API.G_RET_STS_ERROR;
1557: -- Standard call to get message count and if count=1, get the message
1558: FND_MSG_PUB.Count_And_Get (
1559: p_encoded => FND_API.G_FALSE,
1560: p_count => x_msg_count,
1561: p_data => x_msg_data
1562: );
1563:
1560: p_count => x_msg_count,
1561: p_data => x_msg_data
1562: );
1563:
1564: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1565: ROLLBACK TO get_store_prgm_resps;
1566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1567: -- Standard call to get message count and if count=1, get the message
1568: FND_MSG_PUB.Count_And_Get (
1562: );
1563:
1564: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1565: ROLLBACK TO get_store_prgm_resps;
1566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1567: -- Standard call to get message count and if count=1, get the message
1568: FND_MSG_PUB.Count_And_Get (
1569: p_encoded => FND_API.G_FALSE,
1570: p_count => x_msg_count,
1565: ROLLBACK TO get_store_prgm_resps;
1566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1567: -- Standard call to get message count and if count=1, get the message
1568: FND_MSG_PUB.Count_And_Get (
1569: p_encoded => FND_API.G_FALSE,
1570: p_count => x_msg_count,
1571: p_data => x_msg_data
1572: );
1573:
1572: );
1573:
1574: WHEN OTHERS THEN
1575: ROLLBACK TO get_store_prgm_resps;
1576: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1577: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1578: THEN
1579: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1580: END IF;
1579: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1580: END IF;
1581: -- Standard call to get message count and if count=1, get the message
1582: FND_MSG_PUB.Count_And_Get (
1583: p_encoded => FND_API.G_FALSE,
1584: p_count => x_msg_count,
1585: p_data => x_msg_data
1586: );
1587:
1594: */
1595:
1596: PROCEDURE get_store_prgm_resps(
1597: p_api_version_number IN NUMBER
1598: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1599: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1600: ,x_return_status OUT NOCOPY VARCHAR2
1601: ,x_msg_count OUT NOCOPY NUMBER
1602: ,x_msg_data OUT NOCOPY VARCHAR2
1595:
1596: PROCEDURE get_store_prgm_resps(
1597: p_api_version_number IN NUMBER
1598: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1599: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1600: ,x_return_status OUT NOCOPY VARCHAR2
1601: ,x_msg_count OUT NOCOPY NUMBER
1602: ,x_msg_data OUT NOCOPY VARCHAR2
1603: ,p_program_id IN NUMBER
1629: -- Standard Start of API savepoint
1630: SAVEPOINT get_store_prgm_resps;
1631:
1632: -- Standard call to check for call compatibility.
1633: IF NOT Fnd_Api.Compatible_API_Call (l_api_version_number
1634: ,p_api_version_number
1635: ,l_api_name
1636: ,G_PKG_NAME
1637: )
1635: ,l_api_name
1636: ,G_PKG_NAME
1637: )
1638: THEN
1639: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1640: END IF;
1641:
1642: -- Initialize message list if p_init_msg_list is set to TRUE.
1643: IF Fnd_Api.to_Boolean( p_init_msg_list )
1639: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1640: END IF;
1641:
1642: -- Initialize message list if p_init_msg_list is set to TRUE.
1643: IF Fnd_Api.to_Boolean( p_init_msg_list )
1644: THEN
1645: Fnd_Msg_Pub.initialize;
1646: END IF;
1647:
1650: Debug_Log('PRIVATE API: ' || l_api_name || ' - START');
1651: END IF;
1652:
1653: -- Initialize API return status to SUCCESS
1654: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1655:
1656: i := 1;
1657: FOR x in get_resp_id LOOP
1658: IF (PV_DEBUG_HIGH_ON) THEN
1673: Debug_Log('PRIVATE API: ' || l_api_name || ' - END');
1674: END IF;
1675:
1676: -- Check for commit
1677: IF FND_API.to_boolean(p_commit) THEN
1678: COMMIT;
1679: END IF;
1680:
1681: FND_MSG_PUB.count_and_get(
1678: COMMIT;
1679: END IF;
1680:
1681: FND_MSG_PUB.count_and_get(
1682: p_encoded => FND_API.g_false
1683: ,p_count => x_msg_count
1684: ,p_data => x_msg_data
1685: );
1686:
1686:
1687: EXCEPTION
1688:
1689: WHEN PVX_Utility_PVT.resource_locked THEN
1690: x_return_status := FND_API.g_ret_sts_error;
1691: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1692:
1693: WHEN FND_API.G_EXC_ERROR THEN
1694: ROLLBACK TO get_store_prgm_resps;
1689: WHEN PVX_Utility_PVT.resource_locked THEN
1690: x_return_status := FND_API.g_ret_sts_error;
1691: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1692:
1693: WHEN FND_API.G_EXC_ERROR THEN
1694: ROLLBACK TO get_store_prgm_resps;
1695: x_return_status := FND_API.G_RET_STS_ERROR;
1696: -- Standard call to get message count and if count=1, get the message
1697: FND_MSG_PUB.Count_And_Get (
1691: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1692:
1693: WHEN FND_API.G_EXC_ERROR THEN
1694: ROLLBACK TO get_store_prgm_resps;
1695: x_return_status := FND_API.G_RET_STS_ERROR;
1696: -- Standard call to get message count and if count=1, get the message
1697: FND_MSG_PUB.Count_And_Get (
1698: p_encoded => FND_API.G_FALSE,
1699: p_count => x_msg_count,
1694: ROLLBACK TO get_store_prgm_resps;
1695: x_return_status := FND_API.G_RET_STS_ERROR;
1696: -- Standard call to get message count and if count=1, get the message
1697: FND_MSG_PUB.Count_And_Get (
1698: p_encoded => FND_API.G_FALSE,
1699: p_count => x_msg_count,
1700: p_data => x_msg_data
1701: );
1702:
1699: p_count => x_msg_count,
1700: p_data => x_msg_data
1701: );
1702:
1703: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1704: ROLLBACK TO get_store_prgm_resps;
1705: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1706: -- Standard call to get message count and if count=1, get the message
1707: FND_MSG_PUB.Count_And_Get (
1701: );
1702:
1703: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1704: ROLLBACK TO get_store_prgm_resps;
1705: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1706: -- Standard call to get message count and if count=1, get the message
1707: FND_MSG_PUB.Count_And_Get (
1708: p_encoded => FND_API.G_FALSE,
1709: p_count => x_msg_count,
1704: ROLLBACK TO get_store_prgm_resps;
1705: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1706: -- Standard call to get message count and if count=1, get the message
1707: FND_MSG_PUB.Count_And_Get (
1708: p_encoded => FND_API.G_FALSE,
1709: p_count => x_msg_count,
1710: p_data => x_msg_data
1711: );
1712:
1711: );
1712:
1713: WHEN OTHERS THEN
1714: ROLLBACK TO get_store_prgm_resps;
1715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1716: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1717: THEN
1718: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1719: END IF;
1718: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1719: END IF;
1720: -- Standard call to get message count and if count=1, get the message
1721: FND_MSG_PUB.Count_And_Get (
1722: p_encoded => FND_API.G_FALSE,
1723: p_count => x_msg_count,
1724: p_data => x_msg_data
1725: );
1726:
1733: * 3. Add a new row to the pv_ge_ptnr_resps table.
1734: ************/
1735: PROCEDURE get_default_assign_addrow(
1736: p_api_version_number IN NUMBER
1737: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1738: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1739: ,x_return_status OUT NOCOPY VARCHAR2
1740: ,x_msg_count OUT NOCOPY NUMBER
1741: ,x_msg_data OUT NOCOPY VARCHAR2
1734: ************/
1735: PROCEDURE get_default_assign_addrow(
1736: p_api_version_number IN NUMBER
1737: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1738: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1739: ,x_return_status OUT NOCOPY VARCHAR2
1740: ,x_msg_count OUT NOCOPY NUMBER
1741: ,x_msg_data OUT NOCOPY VARCHAR2
1742: ,p_user_role_code IN VARCHAR2
1755: BEGIN
1756: ---- Initialize----------------
1757:
1758: -- Initialize message list if p_init_msg_list is set to TRUE.
1759: IF Fnd_Api.to_Boolean( p_init_msg_list )
1760: THEN
1761: Fnd_Msg_Pub.initialize;
1762: END IF;
1763:
1766: Debug_Log('PRIVATE API: ' || l_api_name || ' - START');
1767: END IF;
1768:
1769: -- Initialize API return status to SUCCESS
1770: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1771: get_default_resp(
1772: p_api_version_number => p_api_version_number
1773: ,p_init_msg_list => FND_API.G_FALSE
1774: ,p_commit => FND_API.G_FALSE
1769: -- Initialize API return status to SUCCESS
1770: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1771: get_default_resp(
1772: p_api_version_number => p_api_version_number
1773: ,p_init_msg_list => FND_API.G_FALSE
1774: ,p_commit => FND_API.G_FALSE
1775: ,x_return_status => x_return_status
1776: ,x_msg_count => x_msg_count
1777: ,x_msg_data => x_msg_data
1770: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1771: get_default_resp(
1772: p_api_version_number => p_api_version_number
1773: ,p_init_msg_list => FND_API.G_FALSE
1774: ,p_commit => FND_API.G_FALSE
1775: ,x_return_status => x_return_status
1776: ,x_msg_count => x_msg_count
1777: ,x_msg_data => x_msg_data
1778: ,p_partner_id => p_partner_id
1779: ,p_user_role_code => p_user_role_code
1780: ,x_responsibility_id => l_responsibility_id
1781: ,x_resp_map_rule_id => l_resp_map_rule_id
1782: );
1783: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1784: RAISE FND_API.G_EXC_ERROR;
1785: END IF;
1786:
1787: IF (PV_DEBUG_HIGH_ON) THEN
1780: ,x_responsibility_id => l_responsibility_id
1781: ,x_resp_map_rule_id => l_resp_map_rule_id
1782: );
1783: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1784: RAISE FND_API.G_EXC_ERROR;
1785: END IF;
1786:
1787: IF (PV_DEBUG_HIGH_ON) THEN
1788: Debug_Log('get_default_assign_addrow: l_responsibility_id = ' || l_responsibility_id);
1800: IF (l_responsibility_id is not null) and (l_resp_map_rule_id is not null) THEN
1801: FOR l_cnt IN 1..l_user_ids_tbl.count LOOP
1802: assign_resp(
1803: p_api_version_number => p_api_version_number
1804: ,p_init_msg_list => FND_API.G_FALSE
1805: ,p_commit => FND_API.G_FALSE
1806: ,p_user_id => l_user_ids_tbl(l_cnt)
1807: ,p_resp_id => l_responsibility_id
1808: ,p_app_id => 691
1801: FOR l_cnt IN 1..l_user_ids_tbl.count LOOP
1802: assign_resp(
1803: p_api_version_number => p_api_version_number
1804: ,p_init_msg_list => FND_API.G_FALSE
1805: ,p_commit => FND_API.G_FALSE
1806: ,p_user_id => l_user_ids_tbl(l_cnt)
1807: ,p_resp_id => l_responsibility_id
1808: ,p_app_id => 691
1809: ,x_return_status => x_return_status
1809: ,x_return_status => x_return_status
1810: ,x_msg_count => x_msg_count
1811: ,x_msg_data => x_msg_data
1812: );
1813: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1814: RAISE FND_API.G_EXC_ERROR;
1815: END IF;
1816: END LOOP;
1817:
1810: ,x_msg_count => x_msg_count
1811: ,x_msg_data => x_msg_data
1812: );
1813: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1814: RAISE FND_API.G_EXC_ERROR;
1815: END IF;
1816: END LOOP;
1817:
1818: /****
1833: END IF;
1834:
1835: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
1836: p_api_version_number => p_api_version_number
1837: ,p_init_msg_list => FND_API.G_FALSE
1838: ,p_commit => FND_API.G_FALSE
1839: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1840:
1841: ,x_return_status => x_return_status
1834:
1835: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
1836: p_api_version_number => p_api_version_number
1837: ,p_init_msg_list => FND_API.G_FALSE
1838: ,p_commit => FND_API.G_FALSE
1839: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1840:
1841: ,x_return_status => x_return_status
1842: ,x_msg_count => x_msg_count
1835: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
1836: p_api_version_number => p_api_version_number
1837: ,p_init_msg_list => FND_API.G_FALSE
1838: ,p_commit => FND_API.G_FALSE
1839: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1840:
1841: ,x_return_status => x_return_status
1842: ,x_msg_count => x_msg_count
1843: ,x_msg_data => x_msg_data
1844: ,p_ge_ptnr_resps_rec => l_ge_ptnr_resps_rec
1845: ,x_ptnr_resp_id => l_ptnr_resp_id
1846: );
1847:
1848: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1849: RAISE FND_API.G_EXC_ERROR;
1850: END IF;
1851: ELSE
1852: FND_MESSAGE.set_name('PV', 'PV_NO_DEFAULT_RESP');
1845: ,x_ptnr_resp_id => l_ptnr_resp_id
1846: );
1847:
1848: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1849: RAISE FND_API.G_EXC_ERROR;
1850: END IF;
1851: ELSE
1852: FND_MESSAGE.set_name('PV', 'PV_NO_DEFAULT_RESP');
1853: FND_MSG_PUB.add;
1850: END IF;
1851: ELSE
1852: FND_MESSAGE.set_name('PV', 'PV_NO_DEFAULT_RESP');
1853: FND_MSG_PUB.add;
1854: RAISE FND_API.G_EXC_ERROR;
1855: END IF;
1856:
1857: -- Check for commit
1858: IF FND_API.to_boolean(p_commit) THEN
1854: RAISE FND_API.G_EXC_ERROR;
1855: END IF;
1856:
1857: -- Check for commit
1858: IF FND_API.to_boolean(p_commit) THEN
1859: COMMIT;
1860: END IF;
1861:
1862: FND_MSG_PUB.count_and_get(
1859: COMMIT;
1860: END IF;
1861:
1862: FND_MSG_PUB.count_and_get(
1863: p_encoded => FND_API.g_false
1864: ,p_count => x_msg_count
1865: ,p_data => x_msg_data
1866: );
1867:
1867:
1868: EXCEPTION
1869:
1870: WHEN PVX_Utility_PVT.resource_locked THEN
1871: x_return_status := FND_API.g_ret_sts_error;
1872: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1873:
1874: WHEN FND_API.G_EXC_ERROR THEN
1875: x_return_status := FND_API.G_RET_STS_ERROR;
1870: WHEN PVX_Utility_PVT.resource_locked THEN
1871: x_return_status := FND_API.g_ret_sts_error;
1872: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1873:
1874: WHEN FND_API.G_EXC_ERROR THEN
1875: x_return_status := FND_API.G_RET_STS_ERROR;
1876: -- Standard call to get message count and if count=1, get the message
1877: FND_MSG_PUB.Count_And_Get (
1878: p_encoded => FND_API.G_FALSE,
1871: x_return_status := FND_API.g_ret_sts_error;
1872: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1873:
1874: WHEN FND_API.G_EXC_ERROR THEN
1875: x_return_status := FND_API.G_RET_STS_ERROR;
1876: -- Standard call to get message count and if count=1, get the message
1877: FND_MSG_PUB.Count_And_Get (
1878: p_encoded => FND_API.G_FALSE,
1879: p_count => x_msg_count,
1874: WHEN FND_API.G_EXC_ERROR THEN
1875: x_return_status := FND_API.G_RET_STS_ERROR;
1876: -- Standard call to get message count and if count=1, get the message
1877: FND_MSG_PUB.Count_And_Get (
1878: p_encoded => FND_API.G_FALSE,
1879: p_count => x_msg_count,
1880: p_data => x_msg_data
1881: );
1882:
1879: p_count => x_msg_count,
1880: p_data => x_msg_data
1881: );
1882:
1883: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1884: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1885: -- Standard call to get message count and if count=1, get the message
1886: FND_MSG_PUB.Count_And_Get (
1887: p_encoded => FND_API.G_FALSE,
1880: p_data => x_msg_data
1881: );
1882:
1883: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1884: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1885: -- Standard call to get message count and if count=1, get the message
1886: FND_MSG_PUB.Count_And_Get (
1887: p_encoded => FND_API.G_FALSE,
1888: p_count => x_msg_count,
1883: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1884: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1885: -- Standard call to get message count and if count=1, get the message
1886: FND_MSG_PUB.Count_And_Get (
1887: p_encoded => FND_API.G_FALSE,
1888: p_count => x_msg_count,
1889: p_data => x_msg_data
1890: );
1891:
1889: p_data => x_msg_data
1890: );
1891:
1892: WHEN OTHERS THEN
1893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1894: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1895: THEN
1896: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1897: END IF;
1896: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1897: END IF;
1898: -- Standard call to get message count and if count=1, get the message
1899: FND_MSG_PUB.Count_And_Get (
1900: p_encoded => FND_API.G_FALSE,
1901: p_count => x_msg_count,
1902: p_data => x_msg_data
1903: );
1904:
1909: * This public API will be called during partner self service registration.
1910: */
1911: PROCEDURE assign_first_user_resp(
1912: p_api_version_number IN NUMBER
1913: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1914: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1915: ,x_return_status OUT NOCOPY VARCHAR2
1916: ,x_msg_count OUT NOCOPY NUMBER
1917: ,x_msg_data OUT NOCOPY VARCHAR2
1910: */
1911: PROCEDURE assign_first_user_resp(
1912: p_api_version_number IN NUMBER
1913: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1914: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1915: ,x_return_status OUT NOCOPY VARCHAR2
1916: ,x_msg_count OUT NOCOPY NUMBER
1917: ,x_msg_data OUT NOCOPY VARCHAR2
1918: ,p_resp_map_rule_id IN NUMBER
1932: -- Standard Start of API savepoint
1933: SAVEPOINT assign_first_user_resp;
1934:
1935: -- Standard call to check for call compatibility.
1936: IF NOT Fnd_Api.Compatible_API_Call (l_api_version_number
1937: ,p_api_version_number
1938: ,l_api_name
1939: ,G_PKG_NAME
1940: )
1938: ,l_api_name
1939: ,G_PKG_NAME
1940: )
1941: THEN
1942: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1943: END IF;
1944:
1945: -- Initialize message list if p_init_msg_list is set to TRUE.
1946: IF Fnd_Api.to_Boolean( p_init_msg_list )
1942: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1943: END IF;
1944:
1945: -- Initialize message list if p_init_msg_list is set to TRUE.
1946: IF Fnd_Api.to_Boolean( p_init_msg_list )
1947: THEN
1948: Fnd_Msg_Pub.initialize;
1949: END IF;
1950:
1953: Debug_Log('PRIVATE API: ' || l_api_name || ' - START');
1954: END IF;
1955:
1956: -- Initialize API return status to SUCCESS
1957: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1958:
1959: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1960: RAISE FND_API.G_EXC_ERROR;
1961: END IF;
1955:
1956: -- Initialize API return status to SUCCESS
1957: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1958:
1959: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1960: RAISE FND_API.G_EXC_ERROR;
1961: END IF;
1962:
1963: assign_resp (
1956: -- Initialize API return status to SUCCESS
1957: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1958:
1959: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1960: RAISE FND_API.G_EXC_ERROR;
1961: END IF;
1962:
1963: assign_resp (
1964: p_api_version_number => p_api_version_number
1961: END IF;
1962:
1963: assign_resp (
1964: p_api_version_number => p_api_version_number
1965: ,p_init_msg_list => FND_API.G_FALSE
1966: ,p_commit => FND_API.G_FALSE
1967: ,p_user_id => p_user_id
1968: ,p_resp_id => p_responsibility_id
1969: ,p_app_id => 691
1962:
1963: assign_resp (
1964: p_api_version_number => p_api_version_number
1965: ,p_init_msg_list => FND_API.G_FALSE
1966: ,p_commit => FND_API.G_FALSE
1967: ,p_user_id => p_user_id
1968: ,p_resp_id => p_responsibility_id
1969: ,p_app_id => 691
1970: ,x_return_status => x_return_status
1971: ,x_msg_count => x_msg_count
1972: ,x_msg_data => x_msg_data
1973: );
1974:
1975: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1976: RAISE FND_API.G_EXC_ERROR;
1977: END IF;
1978:
1979: /****
1972: ,x_msg_data => x_msg_data
1973: );
1974:
1975: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1976: RAISE FND_API.G_EXC_ERROR;
1977: END IF;
1978:
1979: /****
1980: * API to add a row to pv_ge_ptnr_resps
1994: END IF;
1995:
1996: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
1997: p_api_version_number => p_api_version_number
1998: ,p_init_msg_list => FND_API.G_FALSE
1999: ,p_commit => FND_API.G_FALSE
2000: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2001:
2002: ,x_return_status => x_return_status
1995:
1996: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
1997: p_api_version_number => p_api_version_number
1998: ,p_init_msg_list => FND_API.G_FALSE
1999: ,p_commit => FND_API.G_FALSE
2000: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2001:
2002: ,x_return_status => x_return_status
2003: ,x_msg_count => x_msg_count
1996: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
1997: p_api_version_number => p_api_version_number
1998: ,p_init_msg_list => FND_API.G_FALSE
1999: ,p_commit => FND_API.G_FALSE
2000: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2001:
2002: ,x_return_status => x_return_status
2003: ,x_msg_count => x_msg_count
2004: ,x_msg_data => x_msg_data
2005: ,p_ge_ptnr_resps_rec => l_ge_ptnr_resps_rec
2006: ,x_ptnr_resp_id => l_ptnr_resp_id
2007: );
2008:
2009: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2010: RAISE FND_API.G_EXC_ERROR;
2011: END IF;
2012:
2013: -- Check for commit
2006: ,x_ptnr_resp_id => l_ptnr_resp_id
2007: );
2008:
2009: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2010: RAISE FND_API.G_EXC_ERROR;
2011: END IF;
2012:
2013: -- Check for commit
2014: IF FND_API.to_boolean(p_commit) THEN
2010: RAISE FND_API.G_EXC_ERROR;
2011: END IF;
2012:
2013: -- Check for commit
2014: IF FND_API.to_boolean(p_commit) THEN
2015: COMMIT;
2016: END IF;
2017:
2018: FND_MSG_PUB.count_and_get(
2015: COMMIT;
2016: END IF;
2017:
2018: FND_MSG_PUB.count_and_get(
2019: p_encoded => FND_API.g_false
2020: ,p_count => x_msg_count
2021: ,p_data => x_msg_data
2022: );
2023:
2023:
2024: EXCEPTION
2025:
2026: WHEN PVX_Utility_PVT.resource_locked THEN
2027: x_return_status := FND_API.g_ret_sts_error;
2028: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2029:
2030: WHEN FND_API.G_EXC_ERROR THEN
2031: ROLLBACK TO assign_first_user_resp;
2026: WHEN PVX_Utility_PVT.resource_locked THEN
2027: x_return_status := FND_API.g_ret_sts_error;
2028: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2029:
2030: WHEN FND_API.G_EXC_ERROR THEN
2031: ROLLBACK TO assign_first_user_resp;
2032: x_return_status := FND_API.G_RET_STS_ERROR;
2033: -- Standard call to get message count and if count=1, get the message
2034: FND_MSG_PUB.Count_And_Get (
2028: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2029:
2030: WHEN FND_API.G_EXC_ERROR THEN
2031: ROLLBACK TO assign_first_user_resp;
2032: x_return_status := FND_API.G_RET_STS_ERROR;
2033: -- Standard call to get message count and if count=1, get the message
2034: FND_MSG_PUB.Count_And_Get (
2035: p_encoded => FND_API.G_FALSE,
2036: p_count => x_msg_count,
2031: ROLLBACK TO assign_first_user_resp;
2032: x_return_status := FND_API.G_RET_STS_ERROR;
2033: -- Standard call to get message count and if count=1, get the message
2034: FND_MSG_PUB.Count_And_Get (
2035: p_encoded => FND_API.G_FALSE,
2036: p_count => x_msg_count,
2037: p_data => x_msg_data
2038: );
2039:
2036: p_count => x_msg_count,
2037: p_data => x_msg_data
2038: );
2039:
2040: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2041: ROLLBACK TO assign_first_user_resp;
2042: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2043: -- Standard call to get message count and if count=1, get the message
2044: FND_MSG_PUB.Count_And_Get (
2038: );
2039:
2040: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2041: ROLLBACK TO assign_first_user_resp;
2042: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2043: -- Standard call to get message count and if count=1, get the message
2044: FND_MSG_PUB.Count_And_Get (
2045: p_encoded => FND_API.G_FALSE,
2046: p_count => x_msg_count,
2041: ROLLBACK TO assign_first_user_resp;
2042: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2043: -- Standard call to get message count and if count=1, get the message
2044: FND_MSG_PUB.Count_And_Get (
2045: p_encoded => FND_API.G_FALSE,
2046: p_count => x_msg_count,
2047: p_data => x_msg_data
2048: );
2049:
2048: );
2049:
2050: WHEN OTHERS THEN
2051: ROLLBACK TO assign_first_user_resp;
2052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2053: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2054: THEN
2055: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2056: END IF;
2055: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2056: END IF;
2057: -- Standard call to get message count and if count=1, get the message
2058: FND_MSG_PUB.Count_And_Get (
2059: p_encoded => FND_API.G_FALSE,
2060: p_count => x_msg_count,
2061: p_data => x_msg_data
2062: );
2063:
2070: * and when partner contact resource is actived.
2071: */
2072: PROCEDURE assign_user_resps(
2073: p_api_version_number IN NUMBER
2074: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2075: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2076: ,x_return_status OUT NOCOPY VARCHAR2
2077: ,x_msg_count OUT NOCOPY NUMBER
2078: ,x_msg_data OUT NOCOPY VARCHAR2
2071: */
2072: PROCEDURE assign_user_resps(
2073: p_api_version_number IN NUMBER
2074: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2075: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2076: ,x_return_status OUT NOCOPY VARCHAR2
2077: ,x_msg_count OUT NOCOPY NUMBER
2078: ,x_msg_data OUT NOCOPY VARCHAR2
2079: ,p_user_id IN NUMBER
2111: -- Standard Start of API savepoint
2112: SAVEPOINT assign_user_resps;
2113:
2114: -- Standard call to check for call compatibility.
2115: IF NOT Fnd_Api.Compatible_API_Call (l_api_version_number
2116: ,p_api_version_number
2117: ,l_api_name
2118: ,G_PKG_NAME
2119: )
2117: ,l_api_name
2118: ,G_PKG_NAME
2119: )
2120: THEN
2121: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2122: END IF;
2123:
2124: -- Initialize message list if p_init_msg_list is set to TRUE.
2125: IF Fnd_Api.to_Boolean( p_init_msg_list )
2121: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2122: END IF;
2123:
2124: -- Initialize message list if p_init_msg_list is set to TRUE.
2125: IF Fnd_Api.to_Boolean( p_init_msg_list )
2126: THEN
2127: Fnd_Msg_Pub.initialize;
2128: END IF;
2129:
2132: Debug_Log('PRIVATE API: ' || l_api_name || ' - START');
2133: END IF;
2134:
2135: -- Initialize API return status to SUCCESS
2136: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2137:
2138: l_partner_ids_tbl := get_partners(p_user_id);
2139:
2140: IF (l_partner_ids_tbl.count = 0) THEN
2139:
2140: IF (l_partner_ids_tbl.count = 0) THEN
2141: FND_MESSAGE.set_name('PV', 'PV_INVALID_PTNR_USER');
2142: FND_MSG_PUB.add;
2143: RAISE FND_API.G_EXC_ERROR;
2144: END IF;
2145:
2146: IF (PV_DEBUG_HIGH_ON) THEN
2147: Debug_Log('assign_user_resps: l_partner_ids_tbl.count: ' || l_partner_ids_tbl.count);
2153: Debug_Log('assign_user_resps: x.responsibility_id: ' || x.responsibility_id);
2154: END IF;
2155: assign_resp (
2156: p_api_version_number => p_api_version_number
2157: ,p_init_msg_list => FND_API.G_FALSE
2158: ,p_commit => FND_API.G_FALSE
2159: ,p_user_id => p_user_id
2160: ,p_resp_id => x.responsibility_id
2161: ,p_app_id => 691
2154: END IF;
2155: assign_resp (
2156: p_api_version_number => p_api_version_number
2157: ,p_init_msg_list => FND_API.G_FALSE
2158: ,p_commit => FND_API.G_FALSE
2159: ,p_user_id => p_user_id
2160: ,p_resp_id => x.responsibility_id
2161: ,p_app_id => 691
2162: ,x_return_status => x_return_status
2162: ,x_return_status => x_return_status
2163: ,x_msg_count => x_msg_count
2164: ,x_msg_data => x_msg_data
2165: );
2166: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2167: RAISE FND_API.G_EXC_ERROR;
2168: END IF;
2169: END LOOP;
2170:
2163: ,x_msg_count => x_msg_count
2164: ,x_msg_data => x_msg_data
2165: );
2166: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2167: RAISE FND_API.G_EXC_ERROR;
2168: END IF;
2169: END LOOP;
2170:
2171: IF (l_resp_exist = 'N') THEN
2173: l_responsibility_id := null;
2174: l_resp_map_rule_id := null;
2175: get_program_resp(
2176: p_api_version_number => p_api_version_number
2177: ,p_init_msg_list => FND_API.G_FALSE
2178: ,p_commit => FND_API.G_FALSE
2179: ,x_return_status => x_return_status
2180: ,x_msg_count => x_msg_count
2181: ,x_msg_data => x_msg_data
2174: l_resp_map_rule_id := null;
2175: get_program_resp(
2176: p_api_version_number => p_api_version_number
2177: ,p_init_msg_list => FND_API.G_FALSE
2178: ,p_commit => FND_API.G_FALSE
2179: ,x_return_status => x_return_status
2180: ,x_msg_count => x_msg_count
2181: ,x_msg_data => x_msg_data
2182: ,p_partner_id => x.partner_id
2190: Debug_Log('assign_user_resps: l_responsibility_id = ' || l_responsibility_id);
2191: Debug_Log('assign_user_resps: l_resp_map_rule_id = ' || l_resp_map_rule_id);
2192: END IF;
2193:
2194: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2195: RAISE FND_API.G_EXC_ERROR;
2196: END IF;
2197: IF (l_responsibility_id is not null) and (l_resp_map_rule_id is not null) THEN
2198: l_resp_exist := 'Y';
2191: Debug_Log('assign_user_resps: l_resp_map_rule_id = ' || l_resp_map_rule_id);
2192: END IF;
2193:
2194: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2195: RAISE FND_API.G_EXC_ERROR;
2196: END IF;
2197: IF (l_responsibility_id is not null) and (l_resp_map_rule_id is not null) THEN
2198: l_resp_exist := 'Y';
2199: assign_resp (
2197: IF (l_responsibility_id is not null) and (l_resp_map_rule_id is not null) THEN
2198: l_resp_exist := 'Y';
2199: assign_resp (
2200: p_api_version_number => p_api_version_number
2201: ,p_init_msg_list => FND_API.G_FALSE
2202: ,p_commit => FND_API.G_FALSE
2203: ,p_user_id => p_user_id
2204: ,p_resp_id => l_responsibility_id
2205: ,p_app_id => 691
2198: l_resp_exist := 'Y';
2199: assign_resp (
2200: p_api_version_number => p_api_version_number
2201: ,p_init_msg_list => FND_API.G_FALSE
2202: ,p_commit => FND_API.G_FALSE
2203: ,p_user_id => p_user_id
2204: ,p_resp_id => l_responsibility_id
2205: ,p_app_id => 691
2206: ,x_return_status => x_return_status
2206: ,x_return_status => x_return_status
2207: ,x_msg_count => x_msg_count
2208: ,x_msg_data => x_msg_data
2209: );
2210: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2211: RAISE FND_API.G_EXC_ERROR;
2212: END IF;
2213:
2214: /****
2207: ,x_msg_count => x_msg_count
2208: ,x_msg_data => x_msg_data
2209: );
2210: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2211: RAISE FND_API.G_EXC_ERROR;
2212: END IF;
2213:
2214: /****
2215: * API to add a row to pv_ge_ptnr_resps
2231: END IF;
2232:
2233: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
2234: p_api_version_number => p_api_version_number
2235: ,p_init_msg_list => FND_API.G_FALSE
2236: ,p_commit => FND_API.G_FALSE
2237: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2238:
2239: ,x_return_status => x_return_status
2232:
2233: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
2234: p_api_version_number => p_api_version_number
2235: ,p_init_msg_list => FND_API.G_FALSE
2236: ,p_commit => FND_API.G_FALSE
2237: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2238:
2239: ,x_return_status => x_return_status
2240: ,x_msg_count => x_msg_count
2233: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
2234: p_api_version_number => p_api_version_number
2235: ,p_init_msg_list => FND_API.G_FALSE
2236: ,p_commit => FND_API.G_FALSE
2237: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2238:
2239: ,x_return_status => x_return_status
2240: ,x_msg_count => x_msg_count
2241: ,x_msg_data => x_msg_data
2241: ,x_msg_data => x_msg_data
2242: ,p_ge_ptnr_resps_rec => l_ge_ptnr_resps_rec
2243: ,x_ptnr_resp_id => l_ptnr_resp_id
2244: );
2245: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2246: RAISE FND_API.G_EXC_ERROR;
2247: END IF;
2248: END IF;
2249: END LOOP;
2242: ,p_ge_ptnr_resps_rec => l_ge_ptnr_resps_rec
2243: ,x_ptnr_resp_id => l_ptnr_resp_id
2244: );
2245: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2246: RAISE FND_API.G_EXC_ERROR;
2247: END IF;
2248: END IF;
2249: END LOOP;
2250: END IF;
2256: l_user_ids_tbl(1) := p_user_id;
2257: FOR l_cnt IN 1..l_partner_ids_tbl.count LOOP
2258: get_default_assign_addrow(
2259: p_api_version_number => p_api_version_number
2260: ,p_init_msg_list => FND_API.G_FALSE
2261: ,p_commit => FND_API.G_FALSE
2262: ,x_return_status => x_return_status
2263: ,x_msg_count => x_msg_count
2264: ,x_msg_data => x_msg_data
2257: FOR l_cnt IN 1..l_partner_ids_tbl.count LOOP
2258: get_default_assign_addrow(
2259: p_api_version_number => p_api_version_number
2260: ,p_init_msg_list => FND_API.G_FALSE
2261: ,p_commit => FND_API.G_FALSE
2262: ,x_return_status => x_return_status
2263: ,x_msg_count => x_msg_count
2264: ,x_msg_data => x_msg_data
2265: ,p_user_role_code => p_user_role_code
2266: ,p_user_ids_tbl => l_user_ids_tbl
2267: ,p_partner_id => l_partner_ids_tbl(l_cnt)
2268: );
2269:
2270: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2271: RAISE FND_API.G_EXC_ERROR;
2272: END IF;
2273: END LOOP;
2274: END IF;
2267: ,p_partner_id => l_partner_ids_tbl(l_cnt)
2268: );
2269:
2270: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2271: RAISE FND_API.G_EXC_ERROR;
2272: END IF;
2273: END LOOP;
2274: END IF;
2275:
2280: Debug_Log('assign_user_resps: Store x.responsibility_id: ' || x.responsibility_id);
2281: END IF;
2282: assign_resp (
2283: p_api_version_number => p_api_version_number
2284: ,p_init_msg_list => FND_API.G_FALSE
2285: ,p_commit => FND_API.G_FALSE
2286: ,p_user_id => p_user_id
2287: ,p_resp_id => x.responsibility_id
2288: ,p_app_id => 671
2281: END IF;
2282: assign_resp (
2283: p_api_version_number => p_api_version_number
2284: ,p_init_msg_list => FND_API.G_FALSE
2285: ,p_commit => FND_API.G_FALSE
2286: ,p_user_id => p_user_id
2287: ,p_resp_id => x.responsibility_id
2288: ,p_app_id => 671
2289: ,x_return_status => x_return_status
2293: IF (PV_DEBUG_HIGH_ON) THEN
2294: Debug_Log('assign_user_resps: after assign_resp');
2295: END IF;
2296:
2297: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2298: RAISE FND_API.G_EXC_ERROR;
2299: END IF;
2300: END LOOP; -- End of FOR x IN c_get_resp_id (l_partner_ids_tbl, p_user_role_code, G_STORE)
2301:
2294: Debug_Log('assign_user_resps: after assign_resp');
2295: END IF;
2296:
2297: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2298: RAISE FND_API.G_EXC_ERROR;
2299: END IF;
2300: END LOOP; -- End of FOR x IN c_get_resp_id (l_partner_ids_tbl, p_user_role_code, G_STORE)
2301:
2302: -- Check for commit
2299: END IF;
2300: END LOOP; -- End of FOR x IN c_get_resp_id (l_partner_ids_tbl, p_user_role_code, G_STORE)
2301:
2302: -- Check for commit
2303: IF FND_API.to_boolean(p_commit) THEN
2304: COMMIT;
2305: END IF;
2306:
2307: FND_MSG_PUB.count_and_get(
2304: COMMIT;
2305: END IF;
2306:
2307: FND_MSG_PUB.count_and_get(
2308: p_encoded => FND_API.g_false
2309: ,p_count => x_msg_count
2310: ,p_data => x_msg_data
2311: );
2312:
2312:
2313: EXCEPTION
2314:
2315: WHEN PVX_Utility_PVT.resource_locked THEN
2316: x_return_status := FND_API.g_ret_sts_error;
2317: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2318:
2319: WHEN FND_API.G_EXC_ERROR THEN
2320: ROLLBACK TO assign_user_resps;
2315: WHEN PVX_Utility_PVT.resource_locked THEN
2316: x_return_status := FND_API.g_ret_sts_error;
2317: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2318:
2319: WHEN FND_API.G_EXC_ERROR THEN
2320: ROLLBACK TO assign_user_resps;
2321: x_return_status := FND_API.G_RET_STS_ERROR;
2322: -- Standard call to get message count and if count=1, get the message
2323: FND_MSG_PUB.Count_And_Get (
2317: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2318:
2319: WHEN FND_API.G_EXC_ERROR THEN
2320: ROLLBACK TO assign_user_resps;
2321: x_return_status := FND_API.G_RET_STS_ERROR;
2322: -- Standard call to get message count and if count=1, get the message
2323: FND_MSG_PUB.Count_And_Get (
2324: p_encoded => FND_API.G_FALSE,
2325: p_count => x_msg_count,
2320: ROLLBACK TO assign_user_resps;
2321: x_return_status := FND_API.G_RET_STS_ERROR;
2322: -- Standard call to get message count and if count=1, get the message
2323: FND_MSG_PUB.Count_And_Get (
2324: p_encoded => FND_API.G_FALSE,
2325: p_count => x_msg_count,
2326: p_data => x_msg_data
2327: );
2328:
2325: p_count => x_msg_count,
2326: p_data => x_msg_data
2327: );
2328:
2329: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2330: ROLLBACK TO assign_user_resps;
2331: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2332: -- Standard call to get message count and if count=1, get the message
2333: FND_MSG_PUB.Count_And_Get (
2327: );
2328:
2329: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2330: ROLLBACK TO assign_user_resps;
2331: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2332: -- Standard call to get message count and if count=1, get the message
2333: FND_MSG_PUB.Count_And_Get (
2334: p_encoded => FND_API.G_FALSE,
2335: p_count => x_msg_count,
2330: ROLLBACK TO assign_user_resps;
2331: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2332: -- Standard call to get message count and if count=1, get the message
2333: FND_MSG_PUB.Count_And_Get (
2334: p_encoded => FND_API.G_FALSE,
2335: p_count => x_msg_count,
2336: p_data => x_msg_data
2337: );
2338:
2337: );
2338:
2339: WHEN OTHERS THEN
2340: ROLLBACK TO assign_user_resps;
2341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2342: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2343: THEN
2344: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2345: END IF;
2344: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2345: END IF;
2346: -- Standard call to get message count and if count=1, get the message
2347: FND_MSG_PUB.Count_And_Get (
2348: p_encoded => FND_API.G_FALSE,
2349: p_count => x_msg_count,
2350: p_data => x_msg_data
2351: );
2352:
2359: * and when partner contact resource is actived.
2360: */
2361: PROCEDURE assign_user_resps(
2362: p_api_version_number IN NUMBER
2363: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2364: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2365: ,x_return_status OUT NOCOPY VARCHAR2
2366: ,x_msg_count OUT NOCOPY NUMBER
2367: ,x_msg_data OUT NOCOPY VARCHAR2
2360: */
2361: PROCEDURE assign_user_resps(
2362: p_api_version_number IN NUMBER
2363: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2364: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2365: ,x_return_status OUT NOCOPY VARCHAR2
2366: ,x_msg_count OUT NOCOPY NUMBER
2367: ,x_msg_data OUT NOCOPY VARCHAR2
2368: ,p_user_name IN VARCHAR2
2384: -- Standard Start of API savepoint
2385: SAVEPOINT assign_user_resps_2;
2386:
2387: -- Standard call to check for call compatibility.
2388: IF NOT Fnd_Api.Compatible_API_Call (l_api_version_number
2389: ,p_api_version_number
2390: ,l_api_name
2391: ,G_PKG_NAME
2392: )
2390: ,l_api_name
2391: ,G_PKG_NAME
2392: )
2393: THEN
2394: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2395: END IF;
2396:
2397: -- Initialize message list if p_init_msg_list is set to TRUE.
2398: IF Fnd_Api.to_Boolean( p_init_msg_list )
2394: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2395: END IF;
2396:
2397: -- Initialize message list if p_init_msg_list is set to TRUE.
2398: IF Fnd_Api.to_Boolean( p_init_msg_list )
2399: THEN
2400: Fnd_Msg_Pub.initialize;
2401: END IF;
2402:
2405: Debug_Log('PRIVATE API: ' || l_api_name || ' - START');
2406: END IF;
2407:
2408: -- Initialize API return status to SUCCESS
2409: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2410:
2411: FOR x IN c_get_user_id LOOP
2412: get_user_role_code (
2413: p_user_id => x.user_id
2418: Debug_Log('assign_user_resps_2: l_user_role_code = ' || l_user_role_code);
2419: END IF;
2420: assign_user_resps(
2421: p_api_version_number => p_api_version_number
2422: ,p_init_msg_list => FND_API.G_FALSE
2423: ,p_commit => FND_API.G_FALSE
2424: ,x_return_status => x_return_status
2425: ,x_msg_count => x_msg_count
2426: ,x_msg_data => x_msg_data
2419: END IF;
2420: assign_user_resps(
2421: p_api_version_number => p_api_version_number
2422: ,p_init_msg_list => FND_API.G_FALSE
2423: ,p_commit => FND_API.G_FALSE
2424: ,x_return_status => x_return_status
2425: ,x_msg_count => x_msg_count
2426: ,x_msg_data => x_msg_data
2427: ,p_user_id => x.user_id
2426: ,x_msg_data => x_msg_data
2427: ,p_user_id => x.user_id
2428: ,p_user_role_code => l_user_role_code
2429: );
2430: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2431: RAISE FND_API.G_EXC_ERROR;
2432: END IF;
2433: END LOOP;
2434:
2427: ,p_user_id => x.user_id
2428: ,p_user_role_code => l_user_role_code
2429: );
2430: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2431: RAISE FND_API.G_EXC_ERROR;
2432: END IF;
2433: END LOOP;
2434:
2435: -- Debug Message
2437: Debug_Log('PRIVATE API: ' || l_api_name || ' - END');
2438: END IF;
2439:
2440: -- Check for commit
2441: IF FND_API.to_boolean(p_commit) THEN
2442: COMMIT;
2443: END IF;
2444:
2445: FND_MSG_PUB.count_and_get(
2442: COMMIT;
2443: END IF;
2444:
2445: FND_MSG_PUB.count_and_get(
2446: p_encoded => FND_API.g_false
2447: ,p_count => x_msg_count
2448: ,p_data => x_msg_data
2449: );
2450:
2450:
2451: EXCEPTION
2452:
2453: WHEN PVX_Utility_PVT.resource_locked THEN
2454: x_return_status := FND_API.g_ret_sts_error;
2455: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2456:
2457: WHEN FND_API.G_EXC_ERROR THEN
2458: ROLLBACK TO assign_user_resps_2;
2453: WHEN PVX_Utility_PVT.resource_locked THEN
2454: x_return_status := FND_API.g_ret_sts_error;
2455: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2456:
2457: WHEN FND_API.G_EXC_ERROR THEN
2458: ROLLBACK TO assign_user_resps_2;
2459: x_return_status := FND_API.G_RET_STS_ERROR;
2460: -- Standard call to get message count and if count=1, get the message
2461: FND_MSG_PUB.Count_And_Get (
2455: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2456:
2457: WHEN FND_API.G_EXC_ERROR THEN
2458: ROLLBACK TO assign_user_resps_2;
2459: x_return_status := FND_API.G_RET_STS_ERROR;
2460: -- Standard call to get message count and if count=1, get the message
2461: FND_MSG_PUB.Count_And_Get (
2462: p_encoded => FND_API.G_FALSE,
2463: p_count => x_msg_count,
2458: ROLLBACK TO assign_user_resps_2;
2459: x_return_status := FND_API.G_RET_STS_ERROR;
2460: -- Standard call to get message count and if count=1, get the message
2461: FND_MSG_PUB.Count_And_Get (
2462: p_encoded => FND_API.G_FALSE,
2463: p_count => x_msg_count,
2464: p_data => x_msg_data
2465: );
2466:
2463: p_count => x_msg_count,
2464: p_data => x_msg_data
2465: );
2466:
2467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2468: ROLLBACK TO assign_user_resps_2;
2469: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2470: -- Standard call to get message count and if count=1, get the message
2471: FND_MSG_PUB.Count_And_Get (
2465: );
2466:
2467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2468: ROLLBACK TO assign_user_resps_2;
2469: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2470: -- Standard call to get message count and if count=1, get the message
2471: FND_MSG_PUB.Count_And_Get (
2472: p_encoded => FND_API.G_FALSE,
2473: p_count => x_msg_count,
2468: ROLLBACK TO assign_user_resps_2;
2469: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2470: -- Standard call to get message count and if count=1, get the message
2471: FND_MSG_PUB.Count_And_Get (
2472: p_encoded => FND_API.G_FALSE,
2473: p_count => x_msg_count,
2474: p_data => x_msg_data
2475: );
2476:
2475: );
2476:
2477: WHEN OTHERS THEN
2478: ROLLBACK TO assign_user_resps_2;
2479: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2480: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2481: THEN
2482: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2483: END IF;
2482: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2483: END IF;
2484: -- Standard call to get message count and if count=1, get the message
2485: FND_MSG_PUB.Count_And_Get (
2486: p_encoded => FND_API.G_FALSE,
2487: p_count => x_msg_count,
2488: p_data => x_msg_data
2489: );
2490: END assign_user_resps;
2496: * non-primary or viceversa.
2497: */
2498: PROCEDURE switch_user_resp(
2499: p_api_version_number IN NUMBER
2500: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2501: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2502: ,x_return_status OUT NOCOPY VARCHAR2
2503: ,x_msg_count OUT NOCOPY NUMBER
2504: ,x_msg_data OUT NOCOPY VARCHAR2
2497: */
2498: PROCEDURE switch_user_resp(
2499: p_api_version_number IN NUMBER
2500: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2501: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2502: ,x_return_status OUT NOCOPY VARCHAR2
2503: ,x_msg_count OUT NOCOPY NUMBER
2504: ,x_msg_data OUT NOCOPY VARCHAR2
2505: ,p_user_id IN NUMBER
2561: -- Standard Start of API savepoint
2562: SAVEPOINT switch_user_resp;
2563:
2564: -- Standard call to check for call compatibility.
2565: IF NOT Fnd_Api.Compatible_API_Call (l_api_version_number
2566: ,p_api_version_number
2567: ,l_api_name
2568: ,G_PKG_NAME
2569: )
2567: ,l_api_name
2568: ,G_PKG_NAME
2569: )
2570: THEN
2571: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2572: END IF;
2573:
2574: -- Initialize message list if p_init_msg_list is set to TRUE.
2575: IF Fnd_Api.to_Boolean( p_init_msg_list )
2571: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2572: END IF;
2573:
2574: -- Initialize message list if p_init_msg_list is set to TRUE.
2575: IF Fnd_Api.to_Boolean( p_init_msg_list )
2576: THEN
2577: Fnd_Msg_Pub.initialize;
2578: END IF;
2579:
2582: Debug_Log('PRIVATE API: ' || l_api_name || ' - START');
2583: END IF;
2584:
2585: -- Initialize API return status to SUCCESS
2586: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2587:
2588: l_partner_ids_tbl := get_partners(p_user_id);
2589:
2590: IF (l_partner_ids_tbl.count = 0) THEN
2589:
2590: IF (l_partner_ids_tbl.count = 0) THEN
2591: FND_MESSAGE.set_name('PV', 'PV_INVALID_PTNR_USER');
2592: FND_MSG_PUB.add;
2593: RAISE FND_API.G_EXC_ERROR;
2594: END IF;
2595:
2596: FOR x in c_get_respid_and_action (l_partner_ids_tbl, p_user_id, p_from_user_role_code, p_to_user_role_code)
2597: LOOP
2605: Debug_Log('switch_user_resp: ASSIGN');
2606: END IF;
2607: assign_resp (
2608: p_api_version_number => p_api_version_number
2609: ,p_init_msg_list => FND_API.G_FALSE
2610: ,p_commit => FND_API.G_FALSE
2611: ,p_user_id => p_user_id
2612: ,p_resp_id => x.responsibility_id
2613: ,p_app_id => 691
2606: END IF;
2607: assign_resp (
2608: p_api_version_number => p_api_version_number
2609: ,p_init_msg_list => FND_API.G_FALSE
2610: ,p_commit => FND_API.G_FALSE
2611: ,p_user_id => p_user_id
2612: ,p_resp_id => x.responsibility_id
2613: ,p_app_id => 691
2614: ,x_return_status => x_return_status
2628: Debug_Log('switch_user_resp: x.description = ' || x.description);
2629: END IF;
2630: revoke_resp(
2631: p_api_version_number => p_api_version_number
2632: ,p_init_msg_list => FND_API.G_FALSE
2633: ,p_commit => FND_API.G_FALSE
2634: ,p_user_id => p_user_id
2635: ,p_resp_id => x.responsibility_id
2636: ,p_app_id => x.responsibility_application_id
2629: END IF;
2630: revoke_resp(
2631: p_api_version_number => p_api_version_number
2632: ,p_init_msg_list => FND_API.G_FALSE
2633: ,p_commit => FND_API.G_FALSE
2634: ,p_user_id => p_user_id
2635: ,p_resp_id => x.responsibility_id
2636: ,p_app_id => x.responsibility_application_id
2637: ,p_security_group_id => x.security_group_id
2642: ,x_msg_data => x_msg_data
2643: );
2644: END IF;
2645:
2646: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2647: RAISE FND_API.G_EXC_ERROR;
2648: END IF;
2649: END LOOP;
2650:
2643: );
2644: END IF;
2645:
2646: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2647: RAISE FND_API.G_EXC_ERROR;
2648: END IF;
2649: END LOOP;
2650:
2651:
2651:
2652: IF (not l_is_resp_assigned) THEN
2653: pv_user_Resp_pvt.assign_user_resps(
2654: p_api_version_number => p_api_version_number
2655: ,p_init_msg_list => FND_API.g_false
2656: ,p_commit => FND_API.G_FALSE
2657: ,x_return_status => x_return_status
2658: ,x_msg_count => x_msg_count
2659: ,x_msg_data => x_msg_data
2652: IF (not l_is_resp_assigned) THEN
2653: pv_user_Resp_pvt.assign_user_resps(
2654: p_api_version_number => p_api_version_number
2655: ,p_init_msg_list => FND_API.g_false
2656: ,p_commit => FND_API.G_FALSE
2657: ,x_return_status => x_return_status
2658: ,x_msg_count => x_msg_count
2659: ,x_msg_data => x_msg_data
2660: ,p_user_id => p_user_id
2660: ,p_user_id => p_user_id
2661: ,p_user_role_code => p_to_user_role_code
2662: );
2663:
2664: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2665: RAISE FND_API.G_EXC_ERROR;
2666: END IF;
2667:
2668: END IF;
2661: ,p_user_role_code => p_to_user_role_code
2662: );
2663:
2664: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2665: RAISE FND_API.G_EXC_ERROR;
2666: END IF;
2667:
2668: END IF;
2669:
2667:
2668: END IF;
2669:
2670: -- Check for commit
2671: IF FND_API.to_boolean(p_commit) THEN
2672: COMMIT;
2673: END IF;
2674:
2675: FND_MSG_PUB.count_and_get(
2672: COMMIT;
2673: END IF;
2674:
2675: FND_MSG_PUB.count_and_get(
2676: p_encoded => FND_API.g_false
2677: ,p_count => x_msg_count
2678: ,p_data => x_msg_data
2679: );
2680:
2680:
2681: EXCEPTION
2682:
2683: WHEN PVX_Utility_PVT.resource_locked THEN
2684: x_return_status := FND_API.g_ret_sts_error;
2685: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2686:
2687: WHEN FND_API.G_EXC_ERROR THEN
2688: ROLLBACK TO switch_user_resp;
2683: WHEN PVX_Utility_PVT.resource_locked THEN
2684: x_return_status := FND_API.g_ret_sts_error;
2685: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2686:
2687: WHEN FND_API.G_EXC_ERROR THEN
2688: ROLLBACK TO switch_user_resp;
2689: x_return_status := FND_API.G_RET_STS_ERROR;
2690: -- Standard call to get message count and if count=1, get the message
2691: FND_MSG_PUB.Count_And_Get (
2685: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2686:
2687: WHEN FND_API.G_EXC_ERROR THEN
2688: ROLLBACK TO switch_user_resp;
2689: x_return_status := FND_API.G_RET_STS_ERROR;
2690: -- Standard call to get message count and if count=1, get the message
2691: FND_MSG_PUB.Count_And_Get (
2692: p_encoded => FND_API.G_FALSE,
2693: p_count => x_msg_count,
2688: ROLLBACK TO switch_user_resp;
2689: x_return_status := FND_API.G_RET_STS_ERROR;
2690: -- Standard call to get message count and if count=1, get the message
2691: FND_MSG_PUB.Count_And_Get (
2692: p_encoded => FND_API.G_FALSE,
2693: p_count => x_msg_count,
2694: p_data => x_msg_data
2695: );
2696:
2693: p_count => x_msg_count,
2694: p_data => x_msg_data
2695: );
2696:
2697: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2698: ROLLBACK TO switch_user_resp;
2699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2700: -- Standard call to get message count and if count=1, get the message
2701: FND_MSG_PUB.Count_And_Get (
2695: );
2696:
2697: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2698: ROLLBACK TO switch_user_resp;
2699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2700: -- Standard call to get message count and if count=1, get the message
2701: FND_MSG_PUB.Count_And_Get (
2702: p_encoded => FND_API.G_FALSE,
2703: p_count => x_msg_count,
2698: ROLLBACK TO switch_user_resp;
2699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2700: -- Standard call to get message count and if count=1, get the message
2701: FND_MSG_PUB.Count_And_Get (
2702: p_encoded => FND_API.G_FALSE,
2703: p_count => x_msg_count,
2704: p_data => x_msg_data
2705: );
2706:
2705: );
2706:
2707: WHEN OTHERS THEN
2708: ROLLBACK TO switch_user_resp;
2709: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2710: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2711: THEN
2712: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2713: END IF;
2712: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2713: END IF;
2714: -- Standard call to get message count and if count=1, get the message
2715: FND_MSG_PUB.Count_And_Get (
2716: p_encoded => FND_API.G_FALSE,
2717: p_count => x_msg_count,
2718: p_data => x_msg_data
2719: );
2720:
2727: * 3. Assign the new responsibility_id that passed in.
2728: ************/
2729: PROCEDURE revoke_update_assign(
2730: p_api_version_number IN NUMBER
2731: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2732: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2733: ,x_return_status OUT NOCOPY VARCHAR2
2734: ,x_msg_count OUT NOCOPY NUMBER
2735: ,x_msg_data OUT NOCOPY VARCHAR2
2728: ************/
2729: PROCEDURE revoke_update_assign(
2730: p_api_version_number IN NUMBER
2731: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2732: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2733: ,x_return_status OUT NOCOPY VARCHAR2
2734: ,x_msg_count OUT NOCOPY NUMBER
2735: ,x_msg_data OUT NOCOPY VARCHAR2
2736: ,p_user_ids_tbl IN JTF_NUMBER_TABLE
2753: BEGIN
2754: ---- Initialize----------------
2755:
2756: -- Initialize message list if p_init_msg_list is set to TRUE.
2757: IF Fnd_Api.to_Boolean( p_init_msg_list )
2758: THEN
2759: Fnd_Msg_Pub.initialize;
2760: END IF;
2761:
2764: Debug_Log('PRIVATE API: ' || l_api_name || ' - START');
2765: END IF;
2766:
2767: -- Initialize API return status to SUCCESS
2768: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2769:
2770: IF p_is_revoke = 'Y' THEN
2771: IF (PV_DEBUG_HIGH_ON) THEN
2772: Debug_Log('revoke_update_assign: p_old_responsibility_id' || p_old_responsibility_id);
2772: Debug_Log('revoke_update_assign: p_old_responsibility_id' || p_old_responsibility_id);
2773: END IF;
2774: revoke_resp(
2775: p_api_version_number => p_api_version_number
2776: ,p_init_msg_list => FND_API.G_FALSE
2777: ,p_commit => FND_API.G_FALSE
2778: ,p_user_id => p_user_ids_tbl
2779: ,p_resp_id => p_old_responsibility_id
2780: ,x_return_status => x_return_status
2773: END IF;
2774: revoke_resp(
2775: p_api_version_number => p_api_version_number
2776: ,p_init_msg_list => FND_API.G_FALSE
2777: ,p_commit => FND_API.G_FALSE
2778: ,p_user_id => p_user_ids_tbl
2779: ,p_resp_id => p_old_responsibility_id
2780: ,x_return_status => x_return_status
2781: ,x_msg_count => x_msg_count
2780: ,x_return_status => x_return_status
2781: ,x_msg_count => x_msg_count
2782: ,x_msg_data => x_msg_data
2783: );
2784: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2785: RAISE FND_API.G_EXC_ERROR;
2786: END IF;
2787: END IF;
2788:
2781: ,x_msg_count => x_msg_count
2782: ,x_msg_data => x_msg_data
2783: );
2784: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2785: RAISE FND_API.G_EXC_ERROR;
2786: END IF;
2787: END IF;
2788:
2789: /****
2808: END IF;
2809:
2810: PV_Ge_Ptnr_Resps_PVT.Update_Ge_Ptnr_Resps(
2811: p_api_version_number => p_api_version_number
2812: ,p_init_msg_list => FND_API.G_FALSE
2813: ,p_commit => FND_API.G_FALSE
2814: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2815:
2816: ,x_return_status => x_return_status
2809:
2810: PV_Ge_Ptnr_Resps_PVT.Update_Ge_Ptnr_Resps(
2811: p_api_version_number => p_api_version_number
2812: ,p_init_msg_list => FND_API.G_FALSE
2813: ,p_commit => FND_API.G_FALSE
2814: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2815:
2816: ,x_return_status => x_return_status
2817: ,x_msg_count => x_msg_count
2810: PV_Ge_Ptnr_Resps_PVT.Update_Ge_Ptnr_Resps(
2811: p_api_version_number => p_api_version_number
2812: ,p_init_msg_list => FND_API.G_FALSE
2813: ,p_commit => FND_API.G_FALSE
2814: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2815:
2816: ,x_return_status => x_return_status
2817: ,x_msg_count => x_msg_count
2818: ,x_msg_data => x_msg_data
2817: ,x_msg_count => x_msg_count
2818: ,x_msg_data => x_msg_data
2819: ,p_ge_ptnr_resps_rec => l_ge_ptnr_resps_rec
2820: );
2821: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2822: RAISE FND_API.G_EXC_ERROR;
2823: x_return_status := FND_API.G_RET_STS_ERROR;
2824: END IF;
2825:
2818: ,x_msg_data => x_msg_data
2819: ,p_ge_ptnr_resps_rec => l_ge_ptnr_resps_rec
2820: );
2821: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2822: RAISE FND_API.G_EXC_ERROR;
2823: x_return_status := FND_API.G_RET_STS_ERROR;
2824: END IF;
2825:
2826: FOR l_cnt IN 1..p_user_ids_tbl.count LOOP
2819: ,p_ge_ptnr_resps_rec => l_ge_ptnr_resps_rec
2820: );
2821: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2822: RAISE FND_API.G_EXC_ERROR;
2823: x_return_status := FND_API.G_RET_STS_ERROR;
2824: END IF;
2825:
2826: FOR l_cnt IN 1..p_user_ids_tbl.count LOOP
2827: -- Debug Message
2830: END IF;
2831:
2832: assign_resp(
2833: p_api_version_number => p_api_version_number
2834: ,p_init_msg_list => FND_API.G_FALSE
2835: ,p_commit => FND_API.G_FALSE
2836: ,p_user_id => p_user_ids_tbl(l_cnt)
2837: ,p_resp_id => p_new_responsibility_id
2838: ,p_app_id => 691
2831:
2832: assign_resp(
2833: p_api_version_number => p_api_version_number
2834: ,p_init_msg_list => FND_API.G_FALSE
2835: ,p_commit => FND_API.G_FALSE
2836: ,p_user_id => p_user_ids_tbl(l_cnt)
2837: ,p_resp_id => p_new_responsibility_id
2838: ,p_app_id => 691
2839: ,x_return_status => x_return_status
2839: ,x_return_status => x_return_status
2840: ,x_msg_count => x_msg_count
2841: ,x_msg_data => x_msg_data
2842: );
2843: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2844: RAISE FND_API.G_EXC_ERROR;
2845: END IF;
2846: END LOOP;
2847:
2840: ,x_msg_count => x_msg_count
2841: ,x_msg_data => x_msg_data
2842: );
2843: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2844: RAISE FND_API.G_EXC_ERROR;
2845: END IF;
2846: END LOOP;
2847:
2848: -- Check for commit
2845: END IF;
2846: END LOOP;
2847:
2848: -- Check for commit
2849: IF FND_API.to_boolean(p_commit) THEN
2850: COMMIT;
2851: END IF;
2852:
2853: FND_MSG_PUB.count_and_get(
2850: COMMIT;
2851: END IF;
2852:
2853: FND_MSG_PUB.count_and_get(
2854: p_encoded => FND_API.g_false
2855: ,p_count => x_msg_count
2856: ,p_data => x_msg_data
2857: );
2858:
2858:
2859: EXCEPTION
2860:
2861: WHEN PVX_Utility_PVT.resource_locked THEN
2862: x_return_status := FND_API.g_ret_sts_error;
2863: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2864:
2865: WHEN FND_API.G_EXC_ERROR THEN
2866: RAISE FND_API.G_EXC_ERROR;
2861: WHEN PVX_Utility_PVT.resource_locked THEN
2862: x_return_status := FND_API.g_ret_sts_error;
2863: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2864:
2865: WHEN FND_API.G_EXC_ERROR THEN
2866: RAISE FND_API.G_EXC_ERROR;
2867: x_return_status := FND_API.G_RET_STS_ERROR;
2868: -- Standard call to get message count and if count=1, get the message
2869: FND_MSG_PUB.Count_And_Get (
2862: x_return_status := FND_API.g_ret_sts_error;
2863: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2864:
2865: WHEN FND_API.G_EXC_ERROR THEN
2866: RAISE FND_API.G_EXC_ERROR;
2867: x_return_status := FND_API.G_RET_STS_ERROR;
2868: -- Standard call to get message count and if count=1, get the message
2869: FND_MSG_PUB.Count_And_Get (
2870: p_encoded => FND_API.G_FALSE,
2863: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2864:
2865: WHEN FND_API.G_EXC_ERROR THEN
2866: RAISE FND_API.G_EXC_ERROR;
2867: x_return_status := FND_API.G_RET_STS_ERROR;
2868: -- Standard call to get message count and if count=1, get the message
2869: FND_MSG_PUB.Count_And_Get (
2870: p_encoded => FND_API.G_FALSE,
2871: p_count => x_msg_count,
2866: RAISE FND_API.G_EXC_ERROR;
2867: x_return_status := FND_API.G_RET_STS_ERROR;
2868: -- Standard call to get message count and if count=1, get the message
2869: FND_MSG_PUB.Count_And_Get (
2870: p_encoded => FND_API.G_FALSE,
2871: p_count => x_msg_count,
2872: p_data => x_msg_data
2873: );
2874:
2871: p_count => x_msg_count,
2872: p_data => x_msg_data
2873: );
2874:
2875: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2878: -- Standard call to get message count and if count=1, get the message
2879: FND_MSG_PUB.Count_And_Get (
2872: p_data => x_msg_data
2873: );
2874:
2875: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2878: -- Standard call to get message count and if count=1, get the message
2879: FND_MSG_PUB.Count_And_Get (
2880: p_encoded => FND_API.G_FALSE,
2873: );
2874:
2875: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2878: -- Standard call to get message count and if count=1, get the message
2879: FND_MSG_PUB.Count_And_Get (
2880: p_encoded => FND_API.G_FALSE,
2881: p_count => x_msg_count,
2876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2878: -- Standard call to get message count and if count=1, get the message
2879: FND_MSG_PUB.Count_And_Get (
2880: p_encoded => FND_API.G_FALSE,
2881: p_count => x_msg_count,
2882: p_data => x_msg_data
2883: );
2884:
2882: p_data => x_msg_data
2883: );
2884:
2885: WHEN OTHERS THEN
2886: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2888: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2889: THEN
2890: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2883: );
2884:
2885: WHEN OTHERS THEN
2886: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2888: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2889: THEN
2890: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2891: END IF;
2890: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2891: END IF;
2892: -- Standard call to get message count and if count=1, get the message
2893: FND_MSG_PUB.Count_And_Get (
2894: p_encoded => FND_API.G_FALSE,
2895: p_count => x_msg_count,
2896: p_data => x_msg_data
2897: );
2898: END revoke_update_assign;
2902: * This private API gets called when membership is terminated or expired
2903: */
2904: PROCEDURE manage_ter_exp_memb_resp(
2905: p_api_version_number IN NUMBER
2906: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2907: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2908: ,x_return_status OUT NOCOPY VARCHAR2
2909: ,x_msg_count OUT NOCOPY NUMBER
2910: ,x_msg_data OUT NOCOPY VARCHAR2
2903: */
2904: PROCEDURE manage_ter_exp_memb_resp(
2905: p_api_version_number IN NUMBER
2906: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2907: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2908: ,x_return_status OUT NOCOPY VARCHAR2
2909: ,x_msg_count OUT NOCOPY NUMBER
2910: ,x_msg_data OUT NOCOPY VARCHAR2
2911: ,p_partner_id IN NUMBER
2967: -- Standard Start of API savepoint
2968: SAVEPOINT manage_ter_exp_memb_resp;
2969:
2970: -- Standard call to check for call compatibility.
2971: IF NOT Fnd_Api.Compatible_API_Call (l_api_version_number
2972: ,p_api_version_number
2973: ,l_api_name
2974: ,G_PKG_NAME
2975: )
2973: ,l_api_name
2974: ,G_PKG_NAME
2975: )
2976: THEN
2977: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2978: END IF;
2979:
2980: -- Initialize message list if p_init_msg_list is set to TRUE.
2981: IF Fnd_Api.to_Boolean( p_init_msg_list )
2977: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2978: END IF;
2979:
2980: -- Initialize message list if p_init_msg_list is set to TRUE.
2981: IF Fnd_Api.to_Boolean( p_init_msg_list )
2982: THEN
2983: Fnd_Msg_Pub.initialize;
2984: END IF;
2985:
2988: Debug_Log('PRIVATE API: ' || l_api_name || ' - START');
2989: END IF;
2990:
2991: -- Initialize API return status to SUCCESS
2992: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2993:
2994: -- Get the ptnr_resp_id, responsibility_id, and user_role_code for
2995: -- the passed in partner_id, program_id, and resp_type_code is G_PROGRAM
2996: FOR x IN c_get_partner_resp_info(G_PROGRAM) LOOP
3023: END LOOP;
3024: IF (not l_no_revoke) THEN
3025: revoke_resp(
3026: p_api_version_number => p_api_version_number
3027: ,p_init_msg_list => FND_API.G_FALSE
3028: ,p_commit => p_commit
3029: ,p_user_id => get_partner_users_2(p_partner_id, x.user_role_code)
3030: ,p_resp_id => x.responsibility_id
3031: ,x_return_status => x_return_status
3031: ,x_return_status => x_return_status
3032: ,x_msg_count => x_msg_count
3033: ,x_msg_data => x_msg_data
3034: );
3035: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3036: RAISE FND_API.G_EXC_ERROR;
3037: END IF;
3038: END IF;
3039:
3032: ,x_msg_count => x_msg_count
3033: ,x_msg_data => x_msg_data
3034: );
3035: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3036: RAISE FND_API.G_EXC_ERROR;
3037: END IF;
3038: END IF;
3039:
3040: /****
3046: END IF;
3047:
3048: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
3049: p_api_version_number => p_api_version_number
3050: ,p_init_msg_list => FND_API.G_FALSE
3051: ,p_commit => FND_API.G_FALSE
3052: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3053:
3054: ,x_return_status => x_return_status
3047:
3048: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
3049: p_api_version_number => p_api_version_number
3050: ,p_init_msg_list => FND_API.G_FALSE
3051: ,p_commit => FND_API.G_FALSE
3052: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3053:
3054: ,x_return_status => x_return_status
3055: ,x_msg_count => x_msg_count
3048: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
3049: p_api_version_number => p_api_version_number
3050: ,p_init_msg_list => FND_API.G_FALSE
3051: ,p_commit => FND_API.G_FALSE
3052: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3053:
3054: ,x_return_status => x_return_status
3055: ,x_msg_count => x_msg_count
3056: ,x_msg_data => x_msg_data
3056: ,x_msg_data => x_msg_data
3057: ,p_ptnr_resp_id => x.ptnr_resp_id
3058: ,p_object_version_number => x.object_version_number
3059: );
3060: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3061: RAISE FND_API.G_EXC_ERROR;
3062: END IF;
3063:
3064: OPEN c_check_prgm_resp_exist(p_partner_id, x.user_role_code);
3057: ,p_ptnr_resp_id => x.ptnr_resp_id
3058: ,p_object_version_number => x.object_version_number
3059: );
3060: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3061: RAISE FND_API.G_EXC_ERROR;
3062: END IF;
3063:
3064: OPEN c_check_prgm_resp_exist(p_partner_id, x.user_role_code);
3065: FETCH c_check_prgm_resp_exist INTO l_exist ;
3071: Debug_Log('manage_ter_exp_memb_resp: c_check_prgm_resp_exist%NOTFOUND');
3072: END IF;
3073: get_default_assign_addrow(
3074: p_api_version_number => p_api_version_number
3075: ,p_init_msg_list => FND_API.G_FALSE
3076: ,p_commit => FND_API.G_FALSE
3077: ,x_return_status => x_return_status
3078: ,x_msg_count => x_msg_count
3079: ,x_msg_data => x_msg_data
3072: END IF;
3073: get_default_assign_addrow(
3074: p_api_version_number => p_api_version_number
3075: ,p_init_msg_list => FND_API.G_FALSE
3076: ,p_commit => FND_API.G_FALSE
3077: ,x_return_status => x_return_status
3078: ,x_msg_count => x_msg_count
3079: ,x_msg_data => x_msg_data
3080: ,p_user_role_code => x.user_role_code
3080: ,p_user_role_code => x.user_role_code
3081: ,p_user_ids_tbl => get_partner_users(p_partner_id, x.user_role_code)
3082: ,p_partner_id => p_partner_id
3083: );
3084: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3085: CLOSE c_check_prgm_resp_exist;
3086: RAISE FND_API.G_EXC_ERROR;
3087: END IF;
3088: END IF;
3082: ,p_partner_id => p_partner_id
3083: );
3084: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3085: CLOSE c_check_prgm_resp_exist;
3086: RAISE FND_API.G_EXC_ERROR;
3087: END IF;
3088: END IF;
3089: CLOSE c_check_prgm_resp_exist;
3090: ELSIF l_count > 1 THEN
3097: END IF;
3098:
3099: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
3100: p_api_version_number => p_api_version_number
3101: ,p_init_msg_list => FND_API.G_FALSE
3102: ,p_commit => p_commit
3103: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3104:
3105: ,x_return_status => x_return_status
3099: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
3100: p_api_version_number => p_api_version_number
3101: ,p_init_msg_list => FND_API.G_FALSE
3102: ,p_commit => p_commit
3103: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3104:
3105: ,x_return_status => x_return_status
3106: ,x_msg_count => x_msg_count
3107: ,x_msg_data => x_msg_data
3107: ,x_msg_data => x_msg_data
3108: ,p_ptnr_resp_id => x.ptnr_resp_id
3109: ,p_object_version_number => x.object_version_number
3110: );
3111: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3112: RAISE FND_API.G_EXC_ERROR;
3113: END IF;
3114: END IF; -- End of IF l_count = 1
3115: END LOOP; -- End of FOR x IN c_get_partner_resp_info
3108: ,p_ptnr_resp_id => x.ptnr_resp_id
3109: ,p_object_version_number => x.object_version_number
3110: );
3111: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3112: RAISE FND_API.G_EXC_ERROR;
3113: END IF;
3114: END IF; -- End of IF l_count = 1
3115: END LOOP; -- End of FOR x IN c_get_partner_resp_info
3116:
3148: IF (not l_no_revoke) THEN
3149: -- Revoke for all users
3150: revoke_resp(
3151: p_api_version_number => p_api_version_number
3152: ,p_init_msg_list => FND_API.G_FALSE
3153: ,p_commit => p_commit
3154: ,p_user_id => get_partner_users_2(p_partner_id, G_ALL)
3155: ,p_resp_id => x.responsibility_id
3156: ,x_return_status => x_return_status
3156: ,x_return_status => x_return_status
3157: ,x_msg_count => x_msg_count
3158: ,x_msg_data => x_msg_data
3159: );
3160: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3161: RAISE FND_API.G_EXC_ERROR;
3162: END IF;
3163: END IF; -- End of IF (not l_no_revoke)
3164: END IF; -- End of IF (l_count = 1)
3157: ,x_msg_count => x_msg_count
3158: ,x_msg_data => x_msg_data
3159: );
3160: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3161: RAISE FND_API.G_EXC_ERROR;
3162: END IF;
3163: END IF; -- End of IF (not l_no_revoke)
3164: END IF; -- End of IF (l_count = 1)
3165: /****
3171: END IF;
3172:
3173: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
3174: p_api_version_number => p_api_version_number
3175: ,p_init_msg_list => FND_API.G_FALSE
3176: ,p_commit => FND_API.G_FALSE
3177: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3178:
3179: ,x_return_status => x_return_status
3172:
3173: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
3174: p_api_version_number => p_api_version_number
3175: ,p_init_msg_list => FND_API.G_FALSE
3176: ,p_commit => FND_API.G_FALSE
3177: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3178:
3179: ,x_return_status => x_return_status
3180: ,x_msg_count => x_msg_count
3173: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
3174: p_api_version_number => p_api_version_number
3175: ,p_init_msg_list => FND_API.G_FALSE
3176: ,p_commit => FND_API.G_FALSE
3177: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3178:
3179: ,x_return_status => x_return_status
3180: ,x_msg_count => x_msg_count
3181: ,x_msg_data => x_msg_data
3181: ,x_msg_data => x_msg_data
3182: ,p_ptnr_resp_id => x.ptnr_resp_id
3183: ,p_object_version_number => x.object_version_number
3184: );
3185: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3186: RAISE FND_API.G_EXC_ERROR;
3187: END IF;
3188: END LOOP; -- End of FOR x IN c_get_partner_resp_info(G_STORE) LOOP
3189:
3182: ,p_ptnr_resp_id => x.ptnr_resp_id
3183: ,p_object_version_number => x.object_version_number
3184: );
3185: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3186: RAISE FND_API.G_EXC_ERROR;
3187: END IF;
3188: END LOOP; -- End of FOR x IN c_get_partner_resp_info(G_STORE) LOOP
3189:
3190: FND_MSG_PUB.count_and_get(
3187: END IF;
3188: END LOOP; -- End of FOR x IN c_get_partner_resp_info(G_STORE) LOOP
3189:
3190: FND_MSG_PUB.count_and_get(
3191: p_encoded => FND_API.g_false
3192: ,p_count => x_msg_count
3193: ,p_data => x_msg_data
3194: );
3195:
3193: ,p_data => x_msg_data
3194: );
3195:
3196: -- Check for commit
3197: IF FND_API.to_boolean(p_commit) THEN
3198: COMMIT;
3199: END IF;
3200:
3201: EXCEPTION
3200:
3201: EXCEPTION
3202:
3203: WHEN PVX_Utility_PVT.resource_locked THEN
3204: x_return_status := FND_API.g_ret_sts_error;
3205: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
3206:
3207: WHEN FND_API.G_EXC_ERROR THEN
3208: ROLLBACK TO manage_ter_exp_memb_resp;
3203: WHEN PVX_Utility_PVT.resource_locked THEN
3204: x_return_status := FND_API.g_ret_sts_error;
3205: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
3206:
3207: WHEN FND_API.G_EXC_ERROR THEN
3208: ROLLBACK TO manage_ter_exp_memb_resp;
3209: x_return_status := FND_API.G_RET_STS_ERROR;
3210: -- Standard call to get message count and if count=1, get the message
3211: FND_MSG_PUB.Count_And_Get (
3205: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
3206:
3207: WHEN FND_API.G_EXC_ERROR THEN
3208: ROLLBACK TO manage_ter_exp_memb_resp;
3209: x_return_status := FND_API.G_RET_STS_ERROR;
3210: -- Standard call to get message count and if count=1, get the message
3211: FND_MSG_PUB.Count_And_Get (
3212: p_encoded => FND_API.G_FALSE,
3213: p_count => x_msg_count,
3208: ROLLBACK TO manage_ter_exp_memb_resp;
3209: x_return_status := FND_API.G_RET_STS_ERROR;
3210: -- Standard call to get message count and if count=1, get the message
3211: FND_MSG_PUB.Count_And_Get (
3212: p_encoded => FND_API.G_FALSE,
3213: p_count => x_msg_count,
3214: p_data => x_msg_data
3215: );
3216:
3213: p_count => x_msg_count,
3214: p_data => x_msg_data
3215: );
3216:
3217: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3218: ROLLBACK TO manage_ter_exp_memb_resp;
3219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3220: -- Standard call to get message count and if count=1, get the message
3221: FND_MSG_PUB.Count_And_Get (
3215: );
3216:
3217: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3218: ROLLBACK TO manage_ter_exp_memb_resp;
3219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3220: -- Standard call to get message count and if count=1, get the message
3221: FND_MSG_PUB.Count_And_Get (
3222: p_encoded => FND_API.G_FALSE,
3223: p_count => x_msg_count,
3218: ROLLBACK TO manage_ter_exp_memb_resp;
3219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3220: -- Standard call to get message count and if count=1, get the message
3221: FND_MSG_PUB.Count_And_Get (
3222: p_encoded => FND_API.G_FALSE,
3223: p_count => x_msg_count,
3224: p_data => x_msg_data
3225: );
3226:
3225: );
3226:
3227: WHEN OTHERS THEN
3228: ROLLBACK TO manage_ter_exp_memb_resp;
3229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3230: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3231: THEN
3232: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3233: END IF;
3232: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3233: END IF;
3234: -- Standard call to get message count and if count=1, get the message
3235: FND_MSG_PUB.Count_And_Get (
3236: p_encoded => FND_API.G_FALSE,
3237: p_count => x_msg_count,
3238: p_data => x_msg_data
3239: );
3240:
3247: * pv_pg_memberships table.
3248: */
3249: PROCEDURE manage_active_memb_resp(
3250: p_api_version_number IN NUMBER
3251: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3252: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3253: ,x_return_status OUT NOCOPY VARCHAR2
3254: ,x_msg_count OUT NOCOPY NUMBER
3255: ,x_msg_data OUT NOCOPY VARCHAR2
3248: */
3249: PROCEDURE manage_active_memb_resp(
3250: p_api_version_number IN NUMBER
3251: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3252: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3253: ,x_return_status OUT NOCOPY VARCHAR2
3254: ,x_msg_count OUT NOCOPY NUMBER
3255: ,x_msg_data OUT NOCOPY VARCHAR2
3256: ,p_partner_id IN NUMBER
3288: -- Standard Start of API savepoint
3289: SAVEPOINT manage_active_memb_resp;
3290:
3291: -- Standard call to check for call compatibility.
3292: IF NOT Fnd_Api.Compatible_API_Call (l_api_version_number
3293: ,p_api_version_number
3294: ,l_api_name
3295: ,G_PKG_NAME
3296: )
3294: ,l_api_name
3295: ,G_PKG_NAME
3296: )
3297: THEN
3298: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3299: END IF;
3300:
3301: -- Initialize message list if p_init_msg_list is set to TRUE.
3302: IF Fnd_Api.to_Boolean( p_init_msg_list )
3298: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3299: END IF;
3300:
3301: -- Initialize message list if p_init_msg_list is set to TRUE.
3302: IF Fnd_Api.to_Boolean( p_init_msg_list )
3303: THEN
3304: Fnd_Msg_Pub.initialize;
3305: END IF;
3306:
3312: Debug_Log('manage_active_memb_resp: p_membership_id = ' || p_membership_id);
3313: END IF;
3314:
3315: -- Initialize API return status to SUCCESS
3316: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3317:
3318: -- Get all users of the partner_id and the user_role_code.
3319: --primary_user_ids_tbl := get_partner_users(p_partner_id, G_PRIMARY);
3320: --business_user_ids_tbl := get_partner_users(p_partner_id, G_BUSINESS);
3324: Debug_Log('manage_active_memb_resp: primary users');
3325: END IF;
3326: get_program_resp(
3327: p_api_version_number => p_api_version_number
3328: ,p_init_msg_list => FND_API.G_FALSE
3329: ,p_commit => FND_API.G_FALSE
3330: ,x_return_status => x_return_status
3331: ,x_msg_count => x_msg_count
3332: ,x_msg_data => x_msg_data
3325: END IF;
3326: get_program_resp(
3327: p_api_version_number => p_api_version_number
3328: ,p_init_msg_list => FND_API.G_FALSE
3329: ,p_commit => FND_API.G_FALSE
3330: ,x_return_status => x_return_status
3331: ,x_msg_count => x_msg_count
3332: ,x_msg_data => x_msg_data
3333: ,p_partner_id => p_partner_id
3335: ,p_program_id => p_program_id
3336: ,x_responsibility_id => l_responsibility_id
3337: ,x_resp_map_rule_id => l_resp_map_rule_id
3338: );
3339: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3340: RAISE FND_API.G_EXC_ERROR;
3341: END IF;
3342:
3343: IF (PV_DEBUG_HIGH_ON) THEN
3336: ,x_responsibility_id => l_responsibility_id
3337: ,x_resp_map_rule_id => l_resp_map_rule_id
3338: );
3339: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3340: RAISE FND_API.G_EXC_ERROR;
3341: END IF;
3342:
3343: IF (PV_DEBUG_HIGH_ON) THEN
3344: Debug_Log('manage_active_memb_resp: l_responsibility_id = ' || l_responsibility_id);
3357: Debug_Log('manage_active_memb_resp: x.responsibility_id = ' || x.responsibility_id);
3358: END IF;
3359: revoke_resp(
3360: p_api_version_number => p_api_version_number
3361: ,p_init_msg_list => FND_API.G_FALSE
3362: ,p_commit => FND_API.G_FALSE
3363: ,p_user_id => l_user_ids_tbl
3364: ,p_resp_id => x.responsibility_id
3365: ,x_return_status => x_return_status
3358: END IF;
3359: revoke_resp(
3360: p_api_version_number => p_api_version_number
3361: ,p_init_msg_list => FND_API.G_FALSE
3362: ,p_commit => FND_API.G_FALSE
3363: ,p_user_id => l_user_ids_tbl
3364: ,p_resp_id => x.responsibility_id
3365: ,x_return_status => x_return_status
3366: ,x_msg_count => x_msg_count
3365: ,x_return_status => x_return_status
3366: ,x_msg_count => x_msg_count
3367: ,x_msg_data => x_msg_data
3368: );
3369: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3370: RAISE FND_API.G_EXC_ERROR;
3371: END IF;
3372:
3373: /****
3366: ,x_msg_count => x_msg_count
3367: ,x_msg_data => x_msg_data
3368: );
3369: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3370: RAISE FND_API.G_EXC_ERROR;
3371: END IF;
3372:
3373: /****
3374: * API to delete the row with ptnr_resp_id = x.ptnr_resp_id from pv_partner_memberships
3379: END IF;
3380:
3381: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
3382: p_api_version_number => p_api_version_number
3383: ,p_init_msg_list => FND_API.G_FALSE
3384: ,p_commit => FND_API.G_FALSE
3385: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3386: ,x_return_status => x_return_status
3387: ,x_msg_count => x_msg_count
3380:
3381: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
3382: p_api_version_number => p_api_version_number
3383: ,p_init_msg_list => FND_API.G_FALSE
3384: ,p_commit => FND_API.G_FALSE
3385: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3386: ,x_return_status => x_return_status
3387: ,x_msg_count => x_msg_count
3388: ,x_msg_data => x_msg_data
3381: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
3382: p_api_version_number => p_api_version_number
3383: ,p_init_msg_list => FND_API.G_FALSE
3384: ,p_commit => FND_API.G_FALSE
3385: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3386: ,x_return_status => x_return_status
3387: ,x_msg_count => x_msg_count
3388: ,x_msg_data => x_msg_data
3389: ,p_ptnr_resp_id => x.ptnr_resp_id
3388: ,x_msg_data => x_msg_data
3389: ,p_ptnr_resp_id => x.ptnr_resp_id
3390: ,p_object_version_number => x.object_version_number
3391: );
3392: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3393: RAISE FND_API.G_EXC_ERROR;
3394: END IF;
3395: END LOOP; -- End of loop c_get_default_resp_id()
3396:
3389: ,p_ptnr_resp_id => x.ptnr_resp_id
3390: ,p_object_version_number => x.object_version_number
3391: );
3392: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3393: RAISE FND_API.G_EXC_ERROR;
3394: END IF;
3395: END LOOP; -- End of loop c_get_default_resp_id()
3396:
3397: FOR l_cnt IN 1..l_user_ids_tbl.count LOOP
3400: END IF;
3401:
3402: assign_resp(
3403: p_api_version_number => p_api_version_number
3404: ,p_init_msg_list => FND_API.G_FALSE
3405: ,p_commit => FND_API.G_FALSE
3406: ,p_user_id => l_user_ids_tbl(l_cnt)
3407: ,p_resp_id => l_responsibility_id
3408: ,p_app_id => 691
3401:
3402: assign_resp(
3403: p_api_version_number => p_api_version_number
3404: ,p_init_msg_list => FND_API.G_FALSE
3405: ,p_commit => FND_API.G_FALSE
3406: ,p_user_id => l_user_ids_tbl(l_cnt)
3407: ,p_resp_id => l_responsibility_id
3408: ,p_app_id => 691
3409: ,x_return_status => x_return_status
3409: ,x_return_status => x_return_status
3410: ,x_msg_count => x_msg_count
3411: ,x_msg_data => x_msg_data
3412: );
3413: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3414: RAISE FND_API.G_EXC_ERROR;
3415: END IF;
3416: END LOOP;
3417:
3410: ,x_msg_count => x_msg_count
3411: ,x_msg_data => x_msg_data
3412: );
3413: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3414: RAISE FND_API.G_EXC_ERROR;
3415: END IF;
3416: END LOOP;
3417:
3418: /****
3439: END IF;
3440:
3441: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
3442: p_api_version_number => p_api_version_number
3443: ,p_init_msg_list => FND_API.G_FALSE
3444: ,p_commit => FND_API.G_FALSE
3445: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3446:
3447: ,x_return_status => x_return_status
3440:
3441: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
3442: p_api_version_number => p_api_version_number
3443: ,p_init_msg_list => FND_API.G_FALSE
3444: ,p_commit => FND_API.G_FALSE
3445: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3446:
3447: ,x_return_status => x_return_status
3448: ,x_msg_count => x_msg_count
3441: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
3442: p_api_version_number => p_api_version_number
3443: ,p_init_msg_list => FND_API.G_FALSE
3444: ,p_commit => FND_API.G_FALSE
3445: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3446:
3447: ,x_return_status => x_return_status
3448: ,x_msg_count => x_msg_count
3449: ,x_msg_data => x_msg_data
3449: ,x_msg_data => x_msg_data
3450: ,p_ge_ptnr_resps_rec => l_ge_ptnr_resps_rec
3451: ,x_ptnr_resp_id => l_ptnr_resp_id
3452: );
3453: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3454: RAISE FND_API.G_EXC_ERROR;
3455: END IF;
3456: END IF; -- End of IF (l_responsibility_id is not null) and (l_resp_map_rule_id is not null)
3457:
3450: ,p_ge_ptnr_resps_rec => l_ge_ptnr_resps_rec
3451: ,x_ptnr_resp_id => l_ptnr_resp_id
3452: );
3453: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3454: RAISE FND_API.G_EXC_ERROR;
3455: END IF;
3456: END IF; -- End of IF (l_responsibility_id is not null) and (l_resp_map_rule_id is not null)
3457:
3458: -- Get the program responsibility for business users
3460: Debug_Log('manage_active_memb_resp: business users');
3461: END IF;
3462: get_program_resp(
3463: p_api_version_number => p_api_version_number
3464: ,p_init_msg_list => FND_API.G_FALSE
3465: ,p_commit => FND_API.G_FALSE
3466: ,x_return_status => x_return_status
3467: ,x_msg_count => x_msg_count
3468: ,x_msg_data => x_msg_data
3461: END IF;
3462: get_program_resp(
3463: p_api_version_number => p_api_version_number
3464: ,p_init_msg_list => FND_API.G_FALSE
3465: ,p_commit => FND_API.G_FALSE
3466: ,x_return_status => x_return_status
3467: ,x_msg_count => x_msg_count
3468: ,x_msg_data => x_msg_data
3469: ,p_partner_id => p_partner_id
3471: ,p_program_id => p_program_id
3472: ,x_responsibility_id => l_responsibility_id
3473: ,x_resp_map_rule_id => l_resp_map_rule_id
3474: );
3475: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3476: RAISE FND_API.G_EXC_ERROR;
3477: END IF;
3478:
3479: IF (PV_DEBUG_HIGH_ON) THEN
3472: ,x_responsibility_id => l_responsibility_id
3473: ,x_resp_map_rule_id => l_resp_map_rule_id
3474: );
3475: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3476: RAISE FND_API.G_EXC_ERROR;
3477: END IF;
3478:
3479: IF (PV_DEBUG_HIGH_ON) THEN
3480: Debug_Log('manage_active_memb_resp: l_responsibility_id = ' || l_responsibility_id);
3493: END IF;
3494:
3495: revoke_resp(
3496: p_api_version_number => p_api_version_number
3497: ,p_init_msg_list => FND_API.G_FALSE
3498: ,p_commit => FND_API.G_FALSE
3499: ,p_user_id => l_user_ids_tbl
3500: ,p_resp_id => x.responsibility_id
3501: ,x_return_status => x_return_status
3494:
3495: revoke_resp(
3496: p_api_version_number => p_api_version_number
3497: ,p_init_msg_list => FND_API.G_FALSE
3498: ,p_commit => FND_API.G_FALSE
3499: ,p_user_id => l_user_ids_tbl
3500: ,p_resp_id => x.responsibility_id
3501: ,x_return_status => x_return_status
3502: ,x_msg_count => x_msg_count
3501: ,x_return_status => x_return_status
3502: ,x_msg_count => x_msg_count
3503: ,x_msg_data => x_msg_data
3504: );
3505: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3506: RAISE FND_API.G_EXC_ERROR;
3507: END IF;
3508: /****
3509: * API to delete the row with ptnr_resp_id = x.ptnr_resp_id from pv_partner_memberships
3502: ,x_msg_count => x_msg_count
3503: ,x_msg_data => x_msg_data
3504: );
3505: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3506: RAISE FND_API.G_EXC_ERROR;
3507: END IF;
3508: /****
3509: * API to delete the row with ptnr_resp_id = x.ptnr_resp_id from pv_partner_memberships
3510: ****/
3514: END IF;
3515:
3516: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
3517: p_api_version_number => p_api_version_number
3518: ,p_init_msg_list => FND_API.G_FALSE
3519: ,p_commit => p_commit
3520: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3521: ,x_return_status => x_return_status
3522: ,x_msg_count => x_msg_count
3516: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
3517: p_api_version_number => p_api_version_number
3518: ,p_init_msg_list => FND_API.G_FALSE
3519: ,p_commit => p_commit
3520: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3521: ,x_return_status => x_return_status
3522: ,x_msg_count => x_msg_count
3523: ,x_msg_data => x_msg_data
3524: ,p_ptnr_resp_id => x.ptnr_resp_id
3524: ,p_ptnr_resp_id => x.ptnr_resp_id
3525: ,p_object_version_number => x.object_version_number
3526: );
3527:
3528: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3529: RAISE FND_API.G_EXC_ERROR;
3530: END IF;
3531: END LOOP;
3532:
3525: ,p_object_version_number => x.object_version_number
3526: );
3527:
3528: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3529: RAISE FND_API.G_EXC_ERROR;
3530: END IF;
3531: END LOOP;
3532:
3533: FOR l_cnt IN 1..l_user_ids_tbl.count LOOP
3536: END IF;
3537:
3538: assign_resp(
3539: p_api_version_number => p_api_version_number
3540: ,p_init_msg_list => FND_API.G_FALSE
3541: ,p_commit => FND_API.G_FALSE
3542: ,p_user_id => l_user_ids_tbl(l_cnt)
3543: ,p_resp_id => l_responsibility_id
3544: ,p_app_id => 691
3537:
3538: assign_resp(
3539: p_api_version_number => p_api_version_number
3540: ,p_init_msg_list => FND_API.G_FALSE
3541: ,p_commit => FND_API.G_FALSE
3542: ,p_user_id => l_user_ids_tbl(l_cnt)
3543: ,p_resp_id => l_responsibility_id
3544: ,p_app_id => 691
3545: ,x_return_status => x_return_status
3545: ,x_return_status => x_return_status
3546: ,x_msg_count => x_msg_count
3547: ,x_msg_data => x_msg_data
3548: );
3549: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3550: RAISE FND_API.G_EXC_ERROR;
3551: END IF;
3552: END LOOP;
3553:
3546: ,x_msg_count => x_msg_count
3547: ,x_msg_data => x_msg_data
3548: );
3549: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3550: RAISE FND_API.G_EXC_ERROR;
3551: END IF;
3552: END LOOP;
3553:
3554: /****
3575: END IF;
3576:
3577: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
3578: p_api_version_number => p_api_version_number
3579: ,p_init_msg_list => FND_API.G_FALSE
3580: ,p_commit => FND_API.G_FALSE
3581: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3582: ,x_return_status => x_return_status
3583: ,x_msg_count => x_msg_count
3576:
3577: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
3578: p_api_version_number => p_api_version_number
3579: ,p_init_msg_list => FND_API.G_FALSE
3580: ,p_commit => FND_API.G_FALSE
3581: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3582: ,x_return_status => x_return_status
3583: ,x_msg_count => x_msg_count
3584: ,x_msg_data => x_msg_data
3577: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
3578: p_api_version_number => p_api_version_number
3579: ,p_init_msg_list => FND_API.G_FALSE
3580: ,p_commit => FND_API.G_FALSE
3581: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3582: ,x_return_status => x_return_status
3583: ,x_msg_count => x_msg_count
3584: ,x_msg_data => x_msg_data
3585: ,p_ge_ptnr_resps_rec => l_ge_ptnr_resps_rec
3584: ,x_msg_data => x_msg_data
3585: ,p_ge_ptnr_resps_rec => l_ge_ptnr_resps_rec
3586: ,x_ptnr_resp_id => l_ptnr_resp_id
3587: );
3588: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3589: RAISE FND_API.G_EXC_ERROR;
3590: END IF;
3591: END IF; -- End of IF (l_responsibility_id is not null) and (l_resp_map_rule_id is not null)
3592:
3585: ,p_ge_ptnr_resps_rec => l_ge_ptnr_resps_rec
3586: ,x_ptnr_resp_id => l_ptnr_resp_id
3587: );
3588: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3589: RAISE FND_API.G_EXC_ERROR;
3590: END IF;
3591: END IF; -- End of IF (l_responsibility_id is not null) and (l_resp_map_rule_id is not null)
3592:
3593: -- Get the store program responsibility_id
3592:
3593: -- Get the store program responsibility_id
3594: get_store_prgm_resps(
3595: p_api_version_number => p_api_version_number
3596: ,p_init_msg_list => FND_API.G_FALSE
3597: ,p_commit => FND_API.G_FALSE
3598: ,x_return_status => x_return_status
3599: ,x_msg_count => x_msg_count
3600: ,x_msg_data => x_msg_data
3593: -- Get the store program responsibility_id
3594: get_store_prgm_resps(
3595: p_api_version_number => p_api_version_number
3596: ,p_init_msg_list => FND_API.G_FALSE
3597: ,p_commit => FND_API.G_FALSE
3598: ,x_return_status => x_return_status
3599: ,x_msg_count => x_msg_count
3600: ,x_msg_data => x_msg_data
3601: ,p_program_id => p_program_id
3602: ,x_responsibility_id => l_store_responsibility_id
3603: ,x_resp_map_rule_id => l_store_resp_map_rule_id
3604: );
3605:
3606: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3607: RAISE FND_API.G_EXC_ERROR;
3608: END IF;
3609:
3610: IF l_store_responsibility_id IS NULL THEN
3603: ,x_resp_map_rule_id => l_store_resp_map_rule_id
3604: );
3605:
3606: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3607: RAISE FND_API.G_EXC_ERROR;
3608: END IF;
3609:
3610: IF l_store_responsibility_id IS NULL THEN
3611: IF (PV_DEBUG_HIGH_ON) THEN
3625: END IF;
3626: FOR l_u_cnt IN 1..l_user_ids_tbl.count LOOP
3627: assign_resp (
3628: p_api_version_number => p_api_version_number
3629: ,p_init_msg_list => FND_API.G_FALSE
3630: ,p_commit => FND_API.G_FALSE
3631: ,p_user_id => l_user_ids_tbl(l_u_cnt)
3632: ,p_resp_id => l_store_responsibility_id(l_r_cnt)
3633: ,p_app_id => 671
3626: FOR l_u_cnt IN 1..l_user_ids_tbl.count LOOP
3627: assign_resp (
3628: p_api_version_number => p_api_version_number
3629: ,p_init_msg_list => FND_API.G_FALSE
3630: ,p_commit => FND_API.G_FALSE
3631: ,p_user_id => l_user_ids_tbl(l_u_cnt)
3632: ,p_resp_id => l_store_responsibility_id(l_r_cnt)
3633: ,p_app_id => 671
3634: ,x_return_status => x_return_status
3634: ,x_return_status => x_return_status
3635: ,x_msg_count => x_msg_count
3636: ,x_msg_data => x_msg_data
3637: );
3638: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3639: RAISE FND_API.G_EXC_ERROR;
3640: END IF;
3641: END LOOP; -- End of l_user_ids_tbl
3642:
3635: ,x_msg_count => x_msg_count
3636: ,x_msg_data => x_msg_data
3637: );
3638: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3639: RAISE FND_API.G_EXC_ERROR;
3640: END IF;
3641: END LOOP; -- End of l_user_ids_tbl
3642:
3643: IF (PV_DEBUG_HIGH_ON) THEN
3664: END IF;
3665:
3666: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
3667: p_api_version_number => p_api_version_number
3668: ,p_init_msg_list => FND_API.G_FALSE
3669: ,p_commit => FND_API.G_FALSE
3670: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3671: ,x_return_status => x_return_status
3672: ,x_msg_count => x_msg_count
3665:
3666: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
3667: p_api_version_number => p_api_version_number
3668: ,p_init_msg_list => FND_API.G_FALSE
3669: ,p_commit => FND_API.G_FALSE
3670: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3671: ,x_return_status => x_return_status
3672: ,x_msg_count => x_msg_count
3673: ,x_msg_data => x_msg_data
3666: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
3667: p_api_version_number => p_api_version_number
3668: ,p_init_msg_list => FND_API.G_FALSE
3669: ,p_commit => FND_API.G_FALSE
3670: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3671: ,x_return_status => x_return_status
3672: ,x_msg_count => x_msg_count
3673: ,x_msg_data => x_msg_data
3674: ,p_ge_ptnr_resps_rec => l_ge_ptnr_resps_rec
3673: ,x_msg_data => x_msg_data
3674: ,p_ge_ptnr_resps_rec => l_ge_ptnr_resps_rec
3675: ,x_ptnr_resp_id => l_ptnr_resp_id
3676: );
3677: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3678: RAISE FND_API.G_EXC_ERROR;
3679: END IF;
3680: END LOOP; -- End of FOR l_r_cnt IN 1..l_store_responsibility_id.count
3681: END IF; -- End of IF (l_responsibility_id is not null) and (l_resp_map_rule_id is not null)
3674: ,p_ge_ptnr_resps_rec => l_ge_ptnr_resps_rec
3675: ,x_ptnr_resp_id => l_ptnr_resp_id
3676: );
3677: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3678: RAISE FND_API.G_EXC_ERROR;
3679: END IF;
3680: END LOOP; -- End of FOR l_r_cnt IN 1..l_store_responsibility_id.count
3681: END IF; -- End of IF (l_responsibility_id is not null) and (l_resp_map_rule_id is not null)
3682:
3688: END IF;
3689: -- Call c_get_prev_memberships for all the programs retrieved in the above step
3690: manage_ter_exp_memb_resp(
3691: p_api_version_number => p_api_version_number
3692: ,p_init_msg_list => FND_API.G_FALSE
3693: ,p_commit => FND_API.G_FALSE
3694: ,x_return_status => x_return_status
3695: ,x_msg_count => x_msg_count
3696: ,x_msg_data => x_msg_data
3689: -- Call c_get_prev_memberships for all the programs retrieved in the above step
3690: manage_ter_exp_memb_resp(
3691: p_api_version_number => p_api_version_number
3692: ,p_init_msg_list => FND_API.G_FALSE
3693: ,p_commit => FND_API.G_FALSE
3694: ,x_return_status => x_return_status
3695: ,x_msg_count => x_msg_count
3696: ,x_msg_data => x_msg_data
3697: ,p_partner_id => p_partner_id
3696: ,x_msg_data => x_msg_data
3697: ,p_partner_id => p_partner_id
3698: ,p_program_id => x.program_id
3699: );
3700: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3701: RAISE FND_API.G_EXC_ERROR;
3702: END IF;
3703: END LOOP;
3704:
3697: ,p_partner_id => p_partner_id
3698: ,p_program_id => x.program_id
3699: );
3700: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3701: RAISE FND_API.G_EXC_ERROR;
3702: END IF;
3703: END LOOP;
3704:
3705: -- Check for commit
3702: END IF;
3703: END LOOP;
3704:
3705: -- Check for commit
3706: IF FND_API.to_boolean(p_commit) THEN
3707: COMMIT;
3708: END IF;
3709:
3710: FND_MSG_PUB.count_and_get(
3707: COMMIT;
3708: END IF;
3709:
3710: FND_MSG_PUB.count_and_get(
3711: p_encoded => FND_API.g_false
3712: ,p_count => x_msg_count
3713: ,p_data => x_msg_data
3714: );
3715:
3715:
3716: EXCEPTION
3717:
3718: WHEN PVX_Utility_PVT.resource_locked THEN
3719: x_return_status := FND_API.g_ret_sts_error;
3720: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
3721:
3722: WHEN FND_API.G_EXC_ERROR THEN
3723: ROLLBACK TO manage_active_memb_resp;
3718: WHEN PVX_Utility_PVT.resource_locked THEN
3719: x_return_status := FND_API.g_ret_sts_error;
3720: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
3721:
3722: WHEN FND_API.G_EXC_ERROR THEN
3723: ROLLBACK TO manage_active_memb_resp;
3724: x_return_status := FND_API.G_RET_STS_ERROR;
3725: -- Standard call to get message count and if count=1, get the message
3726: FND_MSG_PUB.Count_And_Get (
3720: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
3721:
3722: WHEN FND_API.G_EXC_ERROR THEN
3723: ROLLBACK TO manage_active_memb_resp;
3724: x_return_status := FND_API.G_RET_STS_ERROR;
3725: -- Standard call to get message count and if count=1, get the message
3726: FND_MSG_PUB.Count_And_Get (
3727: p_encoded => FND_API.G_FALSE,
3728: p_count => x_msg_count,
3723: ROLLBACK TO manage_active_memb_resp;
3724: x_return_status := FND_API.G_RET_STS_ERROR;
3725: -- Standard call to get message count and if count=1, get the message
3726: FND_MSG_PUB.Count_And_Get (
3727: p_encoded => FND_API.G_FALSE,
3728: p_count => x_msg_count,
3729: p_data => x_msg_data
3730: );
3731:
3728: p_count => x_msg_count,
3729: p_data => x_msg_data
3730: );
3731:
3732: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3733: ROLLBACK TO manage_active_memb_resp;
3734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3735: -- Standard call to get message count and if count=1, get the message
3736: FND_MSG_PUB.Count_And_Get (
3730: );
3731:
3732: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3733: ROLLBACK TO manage_active_memb_resp;
3734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3735: -- Standard call to get message count and if count=1, get the message
3736: FND_MSG_PUB.Count_And_Get (
3737: p_encoded => FND_API.G_FALSE,
3738: p_count => x_msg_count,
3733: ROLLBACK TO manage_active_memb_resp;
3734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3735: -- Standard call to get message count and if count=1, get the message
3736: FND_MSG_PUB.Count_And_Get (
3737: p_encoded => FND_API.G_FALSE,
3738: p_count => x_msg_count,
3739: p_data => x_msg_data
3740: );
3741:
3740: );
3741:
3742: WHEN OTHERS THEN
3743: ROLLBACK TO manage_active_memb_resp;
3744: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3745: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3746: THEN
3747: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3748: END IF;
3747: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3748: END IF;
3749: -- Standard call to get message count and if count=1, get the message
3750: FND_MSG_PUB.Count_And_Get (
3751: p_encoded => FND_API.G_FALSE,
3752: p_count => x_msg_count,
3753: p_data => x_msg_data
3754: );
3755:
3764: * of program that is being terminated or expireing.
3765: */
3766: PROCEDURE manage_memb_resp(
3767: p_api_version_number IN NUMBER
3768: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3769: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3770: ,x_return_status OUT NOCOPY VARCHAR2
3771: ,x_msg_count OUT NOCOPY NUMBER
3772: ,x_msg_data OUT NOCOPY VARCHAR2
3765: */
3766: PROCEDURE manage_memb_resp(
3767: p_api_version_number IN NUMBER
3768: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3769: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3770: ,x_return_status OUT NOCOPY VARCHAR2
3771: ,x_msg_count OUT NOCOPY NUMBER
3772: ,x_msg_data OUT NOCOPY VARCHAR2
3773: ,p_membership_id IN NUMBER
3790: -- Standard Start of API savepoint
3791: SAVEPOINT manage_memb_resp;
3792:
3793: -- Standard call to check for call compatibility.
3794: IF NOT Fnd_Api.Compatible_API_Call (l_api_version_number
3795: ,p_api_version_number
3796: ,l_api_name
3797: ,G_PKG_NAME
3798: )
3796: ,l_api_name
3797: ,G_PKG_NAME
3798: )
3799: THEN
3800: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3801: END IF;
3802:
3803: -- Initialize message list if p_init_msg_list is set to TRUE.
3804: IF Fnd_Api.to_Boolean( p_init_msg_list )
3800: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3801: END IF;
3802:
3803: -- Initialize message list if p_init_msg_list is set to TRUE.
3804: IF Fnd_Api.to_Boolean( p_init_msg_list )
3805: THEN
3806: Fnd_Msg_Pub.initialize;
3807: END IF;
3808:
3811: Debug_Log('PRIVATE API: ' || l_api_name || ' - START');
3812: END IF;
3813:
3814: -- Initialize API return status to SUCCESS
3815: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3816:
3817: -- Get the membership status
3818: FOR x IN c_get_membership_status (p_membership_id)
3819: LOOP
3822: Debug_Log('manage_memb_resp: TERMINATED');
3823: END IF;
3824: manage_ter_exp_memb_resp(
3825: p_api_version_number => p_api_version_number
3826: ,p_init_msg_list => FND_API.G_FALSE
3827: ,p_commit => FND_API.G_FALSE
3828: ,x_return_status => x_return_status
3829: ,x_msg_count => x_msg_count
3830: ,x_msg_data => x_msg_data
3823: END IF;
3824: manage_ter_exp_memb_resp(
3825: p_api_version_number => p_api_version_number
3826: ,p_init_msg_list => FND_API.G_FALSE
3827: ,p_commit => FND_API.G_FALSE
3828: ,x_return_status => x_return_status
3829: ,x_msg_count => x_msg_count
3830: ,x_msg_data => x_msg_data
3831: ,p_partner_id => x.partner_id
3830: ,x_msg_data => x_msg_data
3831: ,p_partner_id => x.partner_id
3832: ,p_program_id => x.program_id
3833: );
3834: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3835: RAISE FND_API.G_EXC_ERROR;
3836: END IF;
3837: ELSIF x.membership_status_code = 'ACTIVE' THEN
3838: IF (PV_DEBUG_HIGH_ON) THEN
3831: ,p_partner_id => x.partner_id
3832: ,p_program_id => x.program_id
3833: );
3834: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3835: RAISE FND_API.G_EXC_ERROR;
3836: END IF;
3837: ELSIF x.membership_status_code = 'ACTIVE' THEN
3838: IF (PV_DEBUG_HIGH_ON) THEN
3839: Debug_Log('manage_memb_resp: ACTIVE');
3839: Debug_Log('manage_memb_resp: ACTIVE');
3840: END IF;
3841: manage_active_memb_resp(
3842: p_api_version_number => p_api_version_number
3843: ,p_init_msg_list => FND_API.G_FALSE
3844: ,p_commit => FND_API.G_FALSE
3845: ,x_return_status => x_return_status
3846: ,x_msg_count => x_msg_count
3847: ,x_msg_data => x_msg_data
3840: END IF;
3841: manage_active_memb_resp(
3842: p_api_version_number => p_api_version_number
3843: ,p_init_msg_list => FND_API.G_FALSE
3844: ,p_commit => FND_API.G_FALSE
3845: ,x_return_status => x_return_status
3846: ,x_msg_count => x_msg_count
3847: ,x_msg_data => x_msg_data
3848: ,p_partner_id => x.partner_id
3848: ,p_partner_id => x.partner_id
3849: ,p_program_id => x.program_id
3850: ,p_membership_id => p_membership_id
3851: );
3852: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3853: RAISE FND_API.G_EXC_ERROR;
3854: END IF;
3855: END IF;
3856: END LOOP;
3849: ,p_program_id => x.program_id
3850: ,p_membership_id => p_membership_id
3851: );
3852: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3853: RAISE FND_API.G_EXC_ERROR;
3854: END IF;
3855: END IF;
3856: END LOOP;
3857:
3855: END IF;
3856: END LOOP;
3857:
3858: -- Check for commit
3859: IF FND_API.to_boolean(p_commit) THEN
3860: COMMIT;
3861: END IF;
3862:
3863: FND_MSG_PUB.count_and_get(
3860: COMMIT;
3861: END IF;
3862:
3863: FND_MSG_PUB.count_and_get(
3864: p_encoded => FND_API.g_false
3865: ,p_count => x_msg_count
3866: ,p_data => x_msg_data
3867: );
3868:
3868:
3869: EXCEPTION
3870:
3871: WHEN PVX_Utility_PVT.resource_locked THEN
3872: x_return_status := FND_API.g_ret_sts_error;
3873: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
3874:
3875: WHEN FND_API.G_EXC_ERROR THEN
3876: ROLLBACK TO manage_memb_resp;
3871: WHEN PVX_Utility_PVT.resource_locked THEN
3872: x_return_status := FND_API.g_ret_sts_error;
3873: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
3874:
3875: WHEN FND_API.G_EXC_ERROR THEN
3876: ROLLBACK TO manage_memb_resp;
3877: x_return_status := FND_API.G_RET_STS_ERROR;
3878: -- Standard call to get message count and if count=1, get the message
3879: FND_MSG_PUB.Count_And_Get (
3873: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
3874:
3875: WHEN FND_API.G_EXC_ERROR THEN
3876: ROLLBACK TO manage_memb_resp;
3877: x_return_status := FND_API.G_RET_STS_ERROR;
3878: -- Standard call to get message count and if count=1, get the message
3879: FND_MSG_PUB.Count_And_Get (
3880: p_encoded => FND_API.G_FALSE,
3881: p_count => x_msg_count,
3876: ROLLBACK TO manage_memb_resp;
3877: x_return_status := FND_API.G_RET_STS_ERROR;
3878: -- Standard call to get message count and if count=1, get the message
3879: FND_MSG_PUB.Count_And_Get (
3880: p_encoded => FND_API.G_FALSE,
3881: p_count => x_msg_count,
3882: p_data => x_msg_data
3883: );
3884:
3881: p_count => x_msg_count,
3882: p_data => x_msg_data
3883: );
3884:
3885: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3886: ROLLBACK TO manage_memb_resp;
3887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3888: -- Standard call to get message count and if count=1, get the message
3889: FND_MSG_PUB.Count_And_Get (
3883: );
3884:
3885: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3886: ROLLBACK TO manage_memb_resp;
3887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3888: -- Standard call to get message count and if count=1, get the message
3889: FND_MSG_PUB.Count_And_Get (
3890: p_encoded => FND_API.G_FALSE,
3891: p_count => x_msg_count,
3886: ROLLBACK TO manage_memb_resp;
3887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3888: -- Standard call to get message count and if count=1, get the message
3889: FND_MSG_PUB.Count_And_Get (
3890: p_encoded => FND_API.G_FALSE,
3891: p_count => x_msg_count,
3892: p_data => x_msg_data
3893: );
3894:
3893: );
3894:
3895: WHEN OTHERS THEN
3896: ROLLBACK TO manage_memb_resp;
3897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3898: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3899: THEN
3900: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3901: END IF;
3900: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3901: END IF;
3902: -- Standard call to get message count and if count=1, get the message
3903: FND_MSG_PUB.Count_And_Get (
3904: p_encoded => FND_API.G_FALSE,
3905: p_count => x_msg_count,
3906: p_data => x_msg_data
3907: );
3908:
3914: * responsibility mapping is soft deleted.
3915: */
3916: PROCEDURE delete_resp_mapping(
3917: p_api_version_number IN NUMBER
3918: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3919: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3920: ,x_return_status OUT NOCOPY VARCHAR2
3921: ,x_msg_count OUT NOCOPY NUMBER
3922: ,x_msg_data OUT NOCOPY VARCHAR2
3915: */
3916: PROCEDURE delete_resp_mapping(
3917: p_api_version_number IN NUMBER
3918: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3919: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3920: ,x_return_status OUT NOCOPY VARCHAR2
3921: ,x_msg_count OUT NOCOPY NUMBER
3922: ,x_msg_data OUT NOCOPY VARCHAR2
3923: ,p_source_resp_map_rule_id IN NUMBER
3961: -- Standard Start of API savepoint
3962: SAVEPOINT delete_resp_mapping;
3963:
3964: -- Standard call to check for call compatibility.
3965: IF NOT Fnd_Api.Compatible_API_Call (l_api_version_number
3966: ,p_api_version_number
3967: ,l_api_name
3968: ,G_PKG_NAME
3969: )
3967: ,l_api_name
3968: ,G_PKG_NAME
3969: )
3970: THEN
3971: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3972: END IF;
3973:
3974: -- Initialize message list if p_init_msg_list is set to TRUE.
3975: IF Fnd_Api.to_Boolean( p_init_msg_list )
3971: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3972: END IF;
3973:
3974: -- Initialize message list if p_init_msg_list is set to TRUE.
3975: IF Fnd_Api.to_Boolean( p_init_msg_list )
3976: THEN
3977: Fnd_Msg_Pub.initialize;
3978: END IF;
3979:
3981: IF (PV_DEBUG_HIGH_ON) THEN
3982: Debug_Log('PRIVATE API: ' || l_api_name || ' - START...');
3983: END IF;
3984: -- Initialize API return status to SUCCESS
3985: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3986: -- Get the membership status
3987: FOR x IN c_get_ptnr_resps (p_source_resp_map_rule_id)
3988: LOOP
3989: l_user_ids_tbl := get_partner_users(x.partner_id, x.user_role_code);
4005: Debug_Log('delete_resp_mapping: x.responsibility_id = ' || x.responsibility_id);
4006: END IF;
4007: revoke_resp(
4008: p_api_version_number => p_api_version_number
4009: ,p_init_msg_list => FND_API.G_FALSE
4010: ,p_commit => FND_API.G_FALSE
4011: ,p_user_id => l_user_ids_tbl
4012: ,p_resp_id => x.responsibility_id
4013: ,x_return_status => x_return_status
4006: END IF;
4007: revoke_resp(
4008: p_api_version_number => p_api_version_number
4009: ,p_init_msg_list => FND_API.G_FALSE
4010: ,p_commit => FND_API.G_FALSE
4011: ,p_user_id => l_user_ids_tbl
4012: ,p_resp_id => x.responsibility_id
4013: ,x_return_status => x_return_status
4014: ,x_msg_count => x_msg_count
4013: ,x_return_status => x_return_status
4014: ,x_msg_count => x_msg_count
4015: ,x_msg_data => x_msg_data
4016: );
4017: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4018: RAISE FND_API.G_EXC_ERROR;
4019: END IF;
4020: END IF;
4021:
4014: ,x_msg_count => x_msg_count
4015: ,x_msg_data => x_msg_data
4016: );
4017: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4018: RAISE FND_API.G_EXC_ERROR;
4019: END IF;
4020: END IF;
4021:
4022: /****
4028: END IF;
4029:
4030: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
4031: p_api_version_number => p_api_version_number
4032: ,p_init_msg_list => FND_API.G_FALSE
4033: ,p_commit => FND_API.G_FALSE
4034: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4035:
4036: ,x_return_status => x_return_status
4029:
4030: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
4031: p_api_version_number => p_api_version_number
4032: ,p_init_msg_list => FND_API.G_FALSE
4033: ,p_commit => FND_API.G_FALSE
4034: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4035:
4036: ,x_return_status => x_return_status
4037: ,x_msg_count => x_msg_count
4030: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
4031: p_api_version_number => p_api_version_number
4032: ,p_init_msg_list => FND_API.G_FALSE
4033: ,p_commit => FND_API.G_FALSE
4034: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4035:
4036: ,x_return_status => x_return_status
4037: ,x_msg_count => x_msg_count
4038: ,x_msg_data => x_msg_data
4039: ,p_ptnr_resp_id => x.ptnr_resp_id
4040: ,p_object_version_number => x.object_version_number
4041: );
4042:
4043: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4044: RAISE FND_API.G_EXC_ERROR;
4045: END IF;
4046:
4047: IF (PV_DEBUG_HIGH_ON) THEN
4040: ,p_object_version_number => x.object_version_number
4041: );
4042:
4043: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4044: RAISE FND_API.G_EXC_ERROR;
4045: END IF;
4046:
4047: IF (PV_DEBUG_HIGH_ON) THEN
4048: Debug_Log('delete_resp_mapping: before calling get_program_resp');
4049: END IF;
4050: -- Get the program responsibility for primary users
4051: get_program_resp(
4052: p_api_version_number => p_api_version_number
4053: ,p_init_msg_list => FND_API.G_FALSE
4054: ,p_commit => FND_API.G_FALSE
4055: ,x_return_status => x_return_status
4056: ,x_msg_count => x_msg_count
4057: ,x_msg_data => x_msg_data
4050: -- Get the program responsibility for primary users
4051: get_program_resp(
4052: p_api_version_number => p_api_version_number
4053: ,p_init_msg_list => FND_API.G_FALSE
4054: ,p_commit => FND_API.G_FALSE
4055: ,x_return_status => x_return_status
4056: ,x_msg_count => x_msg_count
4057: ,x_msg_data => x_msg_data
4058: ,p_partner_id => x.partner_id
4060: ,p_program_id => x.program_id
4061: ,x_responsibility_id => l_responsibility_id
4062: ,x_resp_map_rule_id => l_resp_map_rule_id
4063: );
4064: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4065: RAISE FND_API.G_EXC_ERROR;
4066: END IF;
4067:
4068: --
4061: ,x_responsibility_id => l_responsibility_id
4062: ,x_resp_map_rule_id => l_resp_map_rule_id
4063: );
4064: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4065: RAISE FND_API.G_EXC_ERROR;
4066: END IF;
4067:
4068: --
4069: -- If no program resp is returned and there is no other same resps,
4078: -- If there is none, do the following steps. Otherwise, do nothing.
4079: IF (c_check_if_resp_exist%NOTFOUND) THEN
4080: get_default_assign_addrow(
4081: p_api_version_number => p_api_version_number
4082: ,p_init_msg_list => FND_API.G_FALSE
4083: ,p_commit => FND_API.G_FALSE
4084: ,x_return_status => x_return_status
4085: ,x_msg_count => x_msg_count
4086: ,x_msg_data => x_msg_data
4079: IF (c_check_if_resp_exist%NOTFOUND) THEN
4080: get_default_assign_addrow(
4081: p_api_version_number => p_api_version_number
4082: ,p_init_msg_list => FND_API.G_FALSE
4083: ,p_commit => FND_API.G_FALSE
4084: ,x_return_status => x_return_status
4085: ,x_msg_count => x_msg_count
4086: ,x_msg_data => x_msg_data
4087: ,p_user_role_code => x.user_role_code
4087: ,p_user_role_code => x.user_role_code
4088: ,p_user_ids_tbl => l_user_ids_tbl
4089: ,p_partner_id => x.partner_id
4090: );
4091: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4092: CLOSE c_check_if_resp_exist;
4093: RAISE FND_API.G_EXC_ERROR;
4094: END IF;
4095: END IF; -- End of IF (c_check_if_resp_exist%NOTFOUND)
4089: ,p_partner_id => x.partner_id
4090: );
4091: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4092: CLOSE c_check_if_resp_exist;
4093: RAISE FND_API.G_EXC_ERROR;
4094: END IF;
4095: END IF; -- End of IF (c_check_if_resp_exist%NOTFOUND)
4096: CLOSE c_check_if_resp_exist;
4097:
4104: FOR l_cnt IN 1..l_user_ids_tbl.count
4105: LOOP
4106: assign_resp(
4107: p_api_version_number => p_api_version_number
4108: ,p_init_msg_list => FND_API.G_FALSE
4109: ,p_commit => FND_API.G_FALSE
4110: ,p_user_id => l_user_ids_tbl(l_cnt)
4111: ,p_resp_id => l_responsibility_id
4112: ,p_app_id => 691
4105: LOOP
4106: assign_resp(
4107: p_api_version_number => p_api_version_number
4108: ,p_init_msg_list => FND_API.G_FALSE
4109: ,p_commit => FND_API.G_FALSE
4110: ,p_user_id => l_user_ids_tbl(l_cnt)
4111: ,p_resp_id => l_responsibility_id
4112: ,p_app_id => 691
4113: ,x_return_status => x_return_status
4139: END IF;
4140:
4141: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
4142: p_api_version_number => p_api_version_number
4143: ,p_init_msg_list => FND_API.G_FALSE
4144: ,p_commit => FND_API.G_FALSE
4145: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4146:
4147: ,x_return_status => x_return_status
4140:
4141: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
4142: p_api_version_number => p_api_version_number
4143: ,p_init_msg_list => FND_API.G_FALSE
4144: ,p_commit => FND_API.G_FALSE
4145: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4146:
4147: ,x_return_status => x_return_status
4148: ,x_msg_count => x_msg_count
4141: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
4142: p_api_version_number => p_api_version_number
4143: ,p_init_msg_list => FND_API.G_FALSE
4144: ,p_commit => FND_API.G_FALSE
4145: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4146:
4147: ,x_return_status => x_return_status
4148: ,x_msg_count => x_msg_count
4149: ,x_msg_data => x_msg_data
4150: ,p_ge_ptnr_resps_rec => l_ge_ptnr_resps_rec
4151: ,x_ptnr_resp_id => l_ptnr_resp_id
4152: );
4153:
4154: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4155: RAISE FND_API.G_EXC_ERROR;
4156: END IF;
4157: END IF; -- End of IF (l_responsibility_id is null) or (l_resp_map_rule_id is null)
4158:
4151: ,x_ptnr_resp_id => l_ptnr_resp_id
4152: );
4153:
4154: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4155: RAISE FND_API.G_EXC_ERROR;
4156: END IF;
4157: END IF; -- End of IF (l_responsibility_id is null) or (l_resp_map_rule_id is null)
4158:
4159: ELSIF x.program_id IS NULL THEN
4162: Debug_Log('delete_resp_mapping: x.responsibility_id = ' || x.responsibility_id);
4163: END IF;
4164: revoke_resp(
4165: p_api_version_number => p_api_version_number
4166: ,p_init_msg_list => FND_API.G_FALSE
4167: ,p_commit => FND_API.G_FALSE
4168: ,p_user_id => l_user_ids_tbl
4169: ,p_resp_id => x.responsibility_id
4170: ,x_return_status => x_return_status
4163: END IF;
4164: revoke_resp(
4165: p_api_version_number => p_api_version_number
4166: ,p_init_msg_list => FND_API.G_FALSE
4167: ,p_commit => FND_API.G_FALSE
4168: ,p_user_id => l_user_ids_tbl
4169: ,p_resp_id => x.responsibility_id
4170: ,x_return_status => x_return_status
4171: ,x_msg_count => x_msg_count
4170: ,x_return_status => x_return_status
4171: ,x_msg_count => x_msg_count
4172: ,x_msg_data => x_msg_data
4173: );
4174: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4175: RAISE FND_API.G_EXC_ERROR;
4176: END IF;
4177: /****
4178: * API to delete the row with ptnr_resp_id = x.ptnr_resp_id from pv_partner_memberships
4171: ,x_msg_count => x_msg_count
4172: ,x_msg_data => x_msg_data
4173: );
4174: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4175: RAISE FND_API.G_EXC_ERROR;
4176: END IF;
4177: /****
4178: * API to delete the row with ptnr_resp_id = x.ptnr_resp_id from pv_partner_memberships
4179: ****/
4183: END IF;
4184:
4185: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
4186: p_api_version_number => p_api_version_number
4187: ,p_init_msg_list => FND_API.G_FALSE
4188: ,p_commit => p_commit
4189: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4190:
4191: ,x_return_status => x_return_status
4185: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
4186: p_api_version_number => p_api_version_number
4187: ,p_init_msg_list => FND_API.G_FALSE
4188: ,p_commit => p_commit
4189: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4190:
4191: ,x_return_status => x_return_status
4192: ,x_msg_count => x_msg_count
4193: ,x_msg_data => x_msg_data
4194: ,p_ptnr_resp_id => x.ptnr_resp_id
4195: ,p_object_version_number => x.object_version_number
4196: );
4197:
4198: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4199: RAISE FND_API.G_EXC_ERROR;
4200: END IF;
4201:
4202: IF (PV_DEBUG_HIGH_ON) THEN
4195: ,p_object_version_number => x.object_version_number
4196: );
4197:
4198: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4199: RAISE FND_API.G_EXC_ERROR;
4200: END IF;
4201:
4202: IF (PV_DEBUG_HIGH_ON) THEN
4203: Debug_Log('delete_resp_mapping: before calling get_default_assign_addrow');
4205: -- Get the new default resp, assign it to the users, and add a new
4206: -- row into pv_ge_ptnr_resps
4207: get_default_assign_addrow(
4208: p_api_version_number => p_api_version_number
4209: ,p_init_msg_list => FND_API.G_FALSE
4210: ,p_commit => FND_API.G_FALSE
4211: ,x_return_status => x_return_status
4212: ,x_msg_count => x_msg_count
4213: ,x_msg_data => x_msg_data
4206: -- row into pv_ge_ptnr_resps
4207: get_default_assign_addrow(
4208: p_api_version_number => p_api_version_number
4209: ,p_init_msg_list => FND_API.G_FALSE
4210: ,p_commit => FND_API.G_FALSE
4211: ,x_return_status => x_return_status
4212: ,x_msg_count => x_msg_count
4213: ,x_msg_data => x_msg_data
4214: ,p_user_role_code => x.user_role_code
4214: ,p_user_role_code => x.user_role_code
4215: ,p_user_ids_tbl => l_user_ids_tbl
4216: ,p_partner_id => x.partner_id
4217: );
4218: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4219: RAISE FND_API.G_EXC_ERROR;
4220: END IF;
4221: END IF; -- End of IF program_id IS NOT NULL
4222: END LOOP;
4215: ,p_user_ids_tbl => l_user_ids_tbl
4216: ,p_partner_id => x.partner_id
4217: );
4218: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4219: RAISE FND_API.G_EXC_ERROR;
4220: END IF;
4221: END IF; -- End of IF program_id IS NOT NULL
4222: END LOOP;
4223: -- Check for commit
4220: END IF;
4221: END IF; -- End of IF program_id IS NOT NULL
4222: END LOOP;
4223: -- Check for commit
4224: IF FND_API.to_boolean(p_commit) THEN
4225: COMMIT;
4226: END IF;
4227:
4228: FND_MSG_PUB.count_and_get(
4225: COMMIT;
4226: END IF;
4227:
4228: FND_MSG_PUB.count_and_get(
4229: p_encoded => FND_API.g_false
4230: ,p_count => x_msg_count
4231: ,p_data => x_msg_data
4232: );
4233:
4233:
4234: EXCEPTION
4235:
4236: WHEN PVX_Utility_PVT.resource_locked THEN
4237: x_return_status := FND_API.g_ret_sts_error;
4238: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
4239:
4240: WHEN FND_API.G_EXC_ERROR THEN
4241: ROLLBACK TO delete_resp_mapping;
4236: WHEN PVX_Utility_PVT.resource_locked THEN
4237: x_return_status := FND_API.g_ret_sts_error;
4238: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
4239:
4240: WHEN FND_API.G_EXC_ERROR THEN
4241: ROLLBACK TO delete_resp_mapping;
4242: x_return_status := FND_API.G_RET_STS_ERROR;
4243: -- Standard call to get message count and if count=1, get the message
4244: FND_MSG_PUB.Count_And_Get (
4238: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
4239:
4240: WHEN FND_API.G_EXC_ERROR THEN
4241: ROLLBACK TO delete_resp_mapping;
4242: x_return_status := FND_API.G_RET_STS_ERROR;
4243: -- Standard call to get message count and if count=1, get the message
4244: FND_MSG_PUB.Count_And_Get (
4245: p_encoded => FND_API.G_FALSE,
4246: p_count => x_msg_count,
4241: ROLLBACK TO delete_resp_mapping;
4242: x_return_status := FND_API.G_RET_STS_ERROR;
4243: -- Standard call to get message count and if count=1, get the message
4244: FND_MSG_PUB.Count_And_Get (
4245: p_encoded => FND_API.G_FALSE,
4246: p_count => x_msg_count,
4247: p_data => x_msg_data
4248: );
4249:
4246: p_count => x_msg_count,
4247: p_data => x_msg_data
4248: );
4249:
4250: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4251: ROLLBACK TO delete_resp_mapping;
4252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4253: -- Standard call to get message count and if count=1, get the message
4254: FND_MSG_PUB.Count_And_Get (
4248: );
4249:
4250: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4251: ROLLBACK TO delete_resp_mapping;
4252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4253: -- Standard call to get message count and if count=1, get the message
4254: FND_MSG_PUB.Count_And_Get (
4255: p_encoded => FND_API.G_FALSE,
4256: p_count => x_msg_count,
4251: ROLLBACK TO delete_resp_mapping;
4252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4253: -- Standard call to get message count and if count=1, get the message
4254: FND_MSG_PUB.Count_And_Get (
4255: p_encoded => FND_API.G_FALSE,
4256: p_count => x_msg_count,
4257: p_data => x_msg_data
4258: );
4259:
4258: );
4259:
4260: WHEN OTHERS THEN
4261: ROLLBACK TO delete_resp_mapping;
4262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4263: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4264: THEN
4265: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4266: END IF;
4265: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4266: END IF;
4267: -- Standard call to get message count and if count=1, get the message
4268: FND_MSG_PUB.Count_And_Get (
4269: p_encoded => FND_API.G_FALSE,
4270: p_count => x_msg_count,
4271: p_data => x_msg_data
4272: );
4273:
4279: * responsibility mapping is updated with a new responsibility.
4280: */
4281: PROCEDURE update_resp_mapping(
4282: p_api_version_number IN NUMBER
4283: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4284: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4285: ,x_return_status OUT NOCOPY VARCHAR2
4286: ,x_msg_count OUT NOCOPY NUMBER
4287: ,x_msg_data OUT NOCOPY VARCHAR2
4280: */
4281: PROCEDURE update_resp_mapping(
4282: p_api_version_number IN NUMBER
4283: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4284: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4285: ,x_return_status OUT NOCOPY VARCHAR2
4286: ,x_msg_count OUT NOCOPY NUMBER
4287: ,x_msg_data OUT NOCOPY VARCHAR2
4288: ,p_source_resp_map_rule_id IN NUMBER
4322: -- Standard Start of API savepoint
4323: SAVEPOINT update_resp_mapping;
4324:
4325: -- Standard call to check for call compatibility.
4326: IF NOT Fnd_Api.Compatible_API_Call (l_api_version_number
4327: ,p_api_version_number
4328: ,l_api_name
4329: ,G_PKG_NAME
4330: )
4328: ,l_api_name
4329: ,G_PKG_NAME
4330: )
4331: THEN
4332: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4333: END IF;
4334:
4335: -- Initialize message list if p_init_msg_list is set to TRUE.
4336: IF Fnd_Api.to_Boolean( p_init_msg_list )
4332: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4333: END IF;
4334:
4335: -- Initialize message list if p_init_msg_list is set to TRUE.
4336: IF Fnd_Api.to_Boolean( p_init_msg_list )
4337: THEN
4338: Fnd_Msg_Pub.initialize;
4339: END IF;
4340:
4343: Debug_Log('PRIVATE API: ' || l_api_name || ' - START');
4344: END IF;
4345:
4346: -- Initialize API return status to SUCCESS
4347: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4348:
4349: FOR x IN c_get_new_resp(p_source_resp_map_rule_id) LOOP
4350: IF (PV_DEBUG_HIGH_ON) THEN
4351: Debug_Log('update_resp_mapping: new x.responsibility_id = ' || x.responsibility_id);
4379: Debug_Log('update_resp_mapping: before calling revoke_update_assign');
4380: END IF;
4381: revoke_update_assign(
4382: p_api_version_number => p_api_version_number
4383: ,p_init_msg_list => FND_API.G_FALSE
4384: ,p_commit => FND_API.G_FALSE
4385: ,x_return_status => x_return_status
4386: ,x_msg_count => x_msg_count
4387: ,x_msg_data => x_msg_data
4380: END IF;
4381: revoke_update_assign(
4382: p_api_version_number => p_api_version_number
4383: ,p_init_msg_list => FND_API.G_FALSE
4384: ,p_commit => FND_API.G_FALSE
4385: ,x_return_status => x_return_status
4386: ,x_msg_count => x_msg_count
4387: ,x_msg_data => x_msg_data
4388: ,p_user_ids_tbl => l_user_ids_tbl
4391: ,p_new_responsibility_id => l_new_responsibility_id
4392: ,p_object_version_number => x.object_version_number
4393: ,p_is_revoke => 'Y'
4394: );
4395: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4396: RAISE FND_API.G_EXC_ERROR;
4397: END IF;
4398: IF (PV_DEBUG_HIGH_ON) THEN
4399: Debug_Log('update_resp_mapping: after calling revoke_update_assign');
4392: ,p_object_version_number => x.object_version_number
4393: ,p_is_revoke => 'Y'
4394: );
4395: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4396: RAISE FND_API.G_EXC_ERROR;
4397: END IF;
4398: IF (PV_DEBUG_HIGH_ON) THEN
4399: Debug_Log('update_resp_mapping: after calling revoke_update_assign');
4400: END IF;
4406: Debug_Log('update_resp_mapping: before calling revoke_update_assign');
4407: END IF;
4408: revoke_update_assign(
4409: p_api_version_number => p_api_version_number
4410: ,p_init_msg_list => FND_API.G_FALSE
4411: ,p_commit => FND_API.G_FALSE
4412: ,x_return_status => x_return_status
4413: ,x_msg_count => x_msg_count
4414: ,x_msg_data => x_msg_data
4407: END IF;
4408: revoke_update_assign(
4409: p_api_version_number => p_api_version_number
4410: ,p_init_msg_list => FND_API.G_FALSE
4411: ,p_commit => FND_API.G_FALSE
4412: ,x_return_status => x_return_status
4413: ,x_msg_count => x_msg_count
4414: ,x_msg_data => x_msg_data
4415: ,p_user_ids_tbl => l_user_ids_tbl
4418: ,p_new_responsibility_id => l_new_responsibility_id
4419: ,p_object_version_number => x.object_version_number
4420: ,p_is_revoke => 'N'
4421: );
4422: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4423: RAISE FND_API.G_EXC_ERROR;
4424: END IF;
4425:
4426: IF (PV_DEBUG_HIGH_ON) THEN
4419: ,p_object_version_number => x.object_version_number
4420: ,p_is_revoke => 'N'
4421: );
4422: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4423: RAISE FND_API.G_EXC_ERROR;
4424: END IF;
4425:
4426: IF (PV_DEBUG_HIGH_ON) THEN
4427: Debug_Log('update_resp_mapping: after calling revoke_update_assign');
4435: Debug_Log('update_resp_mapping: before calling revoke_update_assign');
4436: END IF;
4437: revoke_update_assign(
4438: p_api_version_number => p_api_version_number
4439: ,p_init_msg_list => FND_API.G_FALSE
4440: ,p_commit => FND_API.G_FALSE
4441: ,x_return_status => x_return_status
4442: ,x_msg_count => x_msg_count
4443: ,x_msg_data => x_msg_data
4436: END IF;
4437: revoke_update_assign(
4438: p_api_version_number => p_api_version_number
4439: ,p_init_msg_list => FND_API.G_FALSE
4440: ,p_commit => FND_API.G_FALSE
4441: ,x_return_status => x_return_status
4442: ,x_msg_count => x_msg_count
4443: ,x_msg_data => x_msg_data
4444: ,p_user_ids_tbl => l_user_ids_tbl
4447: ,p_new_responsibility_id => l_new_responsibility_id
4448: ,p_object_version_number => x.object_version_number
4449: ,p_is_revoke => 'Y'
4450: );
4451: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4452: RAISE FND_API.G_EXC_ERROR;
4453: END IF;
4454: IF (PV_DEBUG_HIGH_ON) THEN
4455: Debug_Log('update_resp_mapping: before calling revoke_update_assign');
4448: ,p_object_version_number => x.object_version_number
4449: ,p_is_revoke => 'Y'
4450: );
4451: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4452: RAISE FND_API.G_EXC_ERROR;
4453: END IF;
4454: IF (PV_DEBUG_HIGH_ON) THEN
4455: Debug_Log('update_resp_mapping: before calling revoke_update_assign');
4456: END IF;
4457: END IF; -- End of IF program_id IS NOT NULL
4458: END LOOP;
4459:
4460: -- Check for commit
4461: IF FND_API.to_boolean(p_commit) THEN
4462: COMMIT;
4463: END IF;
4464:
4465: FND_MSG_PUB.count_and_get(
4462: COMMIT;
4463: END IF;
4464:
4465: FND_MSG_PUB.count_and_get(
4466: p_encoded => FND_API.g_false
4467: ,p_count => x_msg_count
4468: ,p_data => x_msg_data
4469: );
4470:
4470:
4471: EXCEPTION
4472:
4473: WHEN PVX_Utility_PVT.resource_locked THEN
4474: x_return_status := FND_API.g_ret_sts_error;
4475: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
4476:
4477: WHEN FND_API.G_EXC_ERROR THEN
4478: ROLLBACK TO update_resp_mapping;
4473: WHEN PVX_Utility_PVT.resource_locked THEN
4474: x_return_status := FND_API.g_ret_sts_error;
4475: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
4476:
4477: WHEN FND_API.G_EXC_ERROR THEN
4478: ROLLBACK TO update_resp_mapping;
4479: x_return_status := FND_API.G_RET_STS_ERROR;
4480: -- Standard call to get message count and if count=1, get the message
4481: FND_MSG_PUB.Count_And_Get (
4475: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
4476:
4477: WHEN FND_API.G_EXC_ERROR THEN
4478: ROLLBACK TO update_resp_mapping;
4479: x_return_status := FND_API.G_RET_STS_ERROR;
4480: -- Standard call to get message count and if count=1, get the message
4481: FND_MSG_PUB.Count_And_Get (
4482: p_encoded => FND_API.G_FALSE,
4483: p_count => x_msg_count,
4478: ROLLBACK TO update_resp_mapping;
4479: x_return_status := FND_API.G_RET_STS_ERROR;
4480: -- Standard call to get message count and if count=1, get the message
4481: FND_MSG_PUB.Count_And_Get (
4482: p_encoded => FND_API.G_FALSE,
4483: p_count => x_msg_count,
4484: p_data => x_msg_data
4485: );
4486:
4483: p_count => x_msg_count,
4484: p_data => x_msg_data
4485: );
4486:
4487: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4488: ROLLBACK TO update_resp_mapping;
4489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4490: -- Standard call to get message count and if count=1, get the message
4491: FND_MSG_PUB.Count_And_Get (
4485: );
4486:
4487: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4488: ROLLBACK TO update_resp_mapping;
4489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4490: -- Standard call to get message count and if count=1, get the message
4491: FND_MSG_PUB.Count_And_Get (
4492: p_encoded => FND_API.G_FALSE,
4493: p_count => x_msg_count,
4488: ROLLBACK TO update_resp_mapping;
4489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4490: -- Standard call to get message count and if count=1, get the message
4491: FND_MSG_PUB.Count_And_Get (
4492: p_encoded => FND_API.G_FALSE,
4493: p_count => x_msg_count,
4494: p_data => x_msg_data
4495: );
4496:
4495: );
4496:
4497: WHEN OTHERS THEN
4498: ROLLBACK TO update_resp_mapping;
4499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4500: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4501: THEN
4502: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4503: END IF;
4502: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4503: END IF;
4504: -- Standard call to get message count and if count=1, get the message
4505: FND_MSG_PUB.Count_And_Get (
4506: p_encoded => FND_API.G_FALSE,
4507: p_count => x_msg_count,
4508: p_data => x_msg_data
4509: );
4510:
4516: * responsibility mapping is created.
4517: */
4518: PROCEDURE create_resp_mapping(
4519: p_api_version_number IN NUMBER
4520: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4521: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4522: ,x_return_status OUT NOCOPY VARCHAR2
4523: ,x_msg_count OUT NOCOPY NUMBER
4524: ,x_msg_data OUT NOCOPY VARCHAR2
4517: */
4518: PROCEDURE create_resp_mapping(
4519: p_api_version_number IN NUMBER
4520: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4521: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4522: ,x_return_status OUT NOCOPY VARCHAR2
4523: ,x_msg_count OUT NOCOPY NUMBER
4524: ,x_msg_data OUT NOCOPY VARCHAR2
4525: ,p_source_resp_map_rule_id IN NUMBER
4586: -- Standard Start of API savepoint
4587: SAVEPOINT create_resp_mapping;
4588:
4589: -- Standard call to check for call compatibility.
4590: IF NOT Fnd_Api.Compatible_API_Call (l_api_version_number
4591: ,p_api_version_number
4592: ,l_api_name
4593: ,G_PKG_NAME
4594: )
4592: ,l_api_name
4593: ,G_PKG_NAME
4594: )
4595: THEN
4596: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4597: END IF;
4598:
4599: -- Initialize message list if p_init_msg_list is set to TRUE.
4600: IF Fnd_Api.to_Boolean( p_init_msg_list )
4596: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4597: END IF;
4598:
4599: -- Initialize message list if p_init_msg_list is set to TRUE.
4600: IF Fnd_Api.to_Boolean( p_init_msg_list )
4601: THEN
4602: Fnd_Msg_Pub.initialize;
4603: END IF;
4604:
4607: Debug_Log('PRIVATE API: ' || l_api_name || ' - START...');
4608: END IF;
4609:
4610: -- Initialize API return status to SUCCESS
4611: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4612:
4613: FOR x IN c_get_resp_info_1 (p_source_resp_map_rule_id) LOOP
4614: IF (PV_DEBUG_HIGH_ON) THEN
4615: Debug_Log('create_resp_mapping: x.partner_id = ' || x.partner_id);
4624: Debug_Log('create_resp_mapping: before calling get_program_resp');
4625: END IF;
4626: get_program_resp(
4627: p_api_version_number => p_api_version_number
4628: ,p_init_msg_list => FND_API.G_FALSE
4629: ,p_commit => FND_API.G_FALSE
4630: ,x_return_status => x_return_status
4631: ,x_msg_count => x_msg_count
4632: ,x_msg_data => x_msg_data
4625: END IF;
4626: get_program_resp(
4627: p_api_version_number => p_api_version_number
4628: ,p_init_msg_list => FND_API.G_FALSE
4629: ,p_commit => FND_API.G_FALSE
4630: ,x_return_status => x_return_status
4631: ,x_msg_count => x_msg_count
4632: ,x_msg_data => x_msg_data
4633: ,p_partner_id => x.partner_id
4635: ,p_program_id => x.program_id
4636: ,x_responsibility_id => l_new_responsibility_id
4637: ,x_resp_map_rule_id => l_resp_map_rule_id
4638: );
4639: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4640: RAISE FND_API.G_EXC_ERROR;
4641: END IF;
4642: IF (PV_DEBUG_HIGH_ON) THEN
4643: Debug_Log('create_resp_mapping: after calling get_program_resp');
4636: ,x_responsibility_id => l_new_responsibility_id
4637: ,x_resp_map_rule_id => l_resp_map_rule_id
4638: );
4639: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4640: RAISE FND_API.G_EXC_ERROR;
4641: END IF;
4642: IF (PV_DEBUG_HIGH_ON) THEN
4643: Debug_Log('create_resp_mapping: after calling get_program_resp');
4644: Debug_Log('create_resp_mapping: l_new_responsibility_id = ' || l_new_responsibility_id);
4667: -- Update the corresponding row in pv_ge_ptnr_resps.
4668: -- Assign the new responsibility for all partner users.
4669: revoke_update_assign(
4670: p_api_version_number => p_api_version_number
4671: ,p_init_msg_list => FND_API.G_FALSE
4672: ,p_commit => FND_API.G_FALSE
4673: ,x_return_status => x_return_status
4674: ,x_msg_count => x_msg_count
4675: ,x_msg_data => x_msg_data
4668: -- Assign the new responsibility for all partner users.
4669: revoke_update_assign(
4670: p_api_version_number => p_api_version_number
4671: ,p_init_msg_list => FND_API.G_FALSE
4672: ,p_commit => FND_API.G_FALSE
4673: ,x_return_status => x_return_status
4674: ,x_msg_count => x_msg_count
4675: ,x_msg_data => x_msg_data
4676: ,p_user_ids_tbl => l_user_ids_tbl
4680: ,p_resp_map_rule_id => l_resp_map_rule_id
4681: ,p_object_version_number => y.object_version_number
4682: ,p_is_revoke => 'Y'
4683: );
4684: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4685: RAISE FND_API.G_EXC_ERROR;
4686: END IF;
4687: ELSE
4688: IF (PV_DEBUG_HIGH_ON) THEN
4681: ,p_object_version_number => y.object_version_number
4682: ,p_is_revoke => 'Y'
4683: );
4684: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4685: RAISE FND_API.G_EXC_ERROR;
4686: END IF;
4687: ELSE
4688: IF (PV_DEBUG_HIGH_ON) THEN
4689: Debug_Log('create_resp_mapping: else');
4693: -- Update the corresponding row in pv_ge_ptnr_resps.
4694: -- Assign the new responsibility for all partner users.
4695: revoke_update_assign(
4696: p_api_version_number => p_api_version_number
4697: ,p_init_msg_list => FND_API.G_FALSE
4698: ,p_commit => FND_API.G_FALSE
4699: ,x_return_status => x_return_status
4700: ,x_msg_count => x_msg_count
4701: ,x_msg_data => x_msg_data
4694: -- Assign the new responsibility for all partner users.
4695: revoke_update_assign(
4696: p_api_version_number => p_api_version_number
4697: ,p_init_msg_list => FND_API.G_FALSE
4698: ,p_commit => FND_API.G_FALSE
4699: ,x_return_status => x_return_status
4700: ,x_msg_count => x_msg_count
4701: ,x_msg_data => x_msg_data
4702: ,p_user_ids_tbl => l_user_ids_tbl
4705: ,p_new_responsibility_id => l_new_responsibility_id
4706: ,p_object_version_number => y.object_version_number
4707: ,p_is_revoke => 'N'
4708: );
4709: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4710: RAISE FND_API.G_EXC_ERROR;
4711: END IF;
4712: END IF; -- End of IF l_count = 1
4713: END IF; -- End of IF (y.responsibility <> l_new_responsibility_id)
4706: ,p_object_version_number => y.object_version_number
4707: ,p_is_revoke => 'N'
4708: );
4709: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4710: RAISE FND_API.G_EXC_ERROR;
4711: END IF;
4712: END IF; -- End of IF l_count = 1
4713: END IF; -- End of IF (y.responsibility <> l_new_responsibility_id)
4714: END LOOP; -- End of FOR y in c_get_ptnr_resps_1(x.partner_id, x.user_role_code, x.program_id)
4719: END IF;
4720: FOR y IN c_get_defalut_resp (x.partner_id, x.user_role_code, x.program_id) LOOP
4721: revoke_resp(
4722: p_api_version_number => p_api_version_number
4723: ,p_init_msg_list => FND_API.G_FALSE
4724: ,p_commit => FND_API.G_FALSE
4725: ,p_user_id => l_user_ids_tbl
4726: ,p_resp_id => y.responsibility_id
4727: ,x_return_status => x_return_status
4720: FOR y IN c_get_defalut_resp (x.partner_id, x.user_role_code, x.program_id) LOOP
4721: revoke_resp(
4722: p_api_version_number => p_api_version_number
4723: ,p_init_msg_list => FND_API.G_FALSE
4724: ,p_commit => FND_API.G_FALSE
4725: ,p_user_id => l_user_ids_tbl
4726: ,p_resp_id => y.responsibility_id
4727: ,x_return_status => x_return_status
4728: ,x_msg_count => x_msg_count
4727: ,x_return_status => x_return_status
4728: ,x_msg_count => x_msg_count
4729: ,x_msg_data => x_msg_data
4730: );
4731: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4732: RAISE FND_API.G_EXC_ERROR;
4733: END IF;
4734: /****
4735: * API to delete the row with ptnr_resp_id = x.ptnr_resp_id from pv_partner_memberships
4728: ,x_msg_count => x_msg_count
4729: ,x_msg_data => x_msg_data
4730: );
4731: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4732: RAISE FND_API.G_EXC_ERROR;
4733: END IF;
4734: /****
4735: * API to delete the row with ptnr_resp_id = x.ptnr_resp_id from pv_partner_memberships
4736: ****/
4741: END IF;
4742:
4743: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
4744: p_api_version_number => p_api_version_number
4745: ,p_init_msg_list => FND_API.G_FALSE
4746: ,p_commit => FND_API.G_FALSE
4747: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4748:
4749: ,x_return_status => x_return_status
4742:
4743: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
4744: p_api_version_number => p_api_version_number
4745: ,p_init_msg_list => FND_API.G_FALSE
4746: ,p_commit => FND_API.G_FALSE
4747: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4748:
4749: ,x_return_status => x_return_status
4750: ,x_msg_count => x_msg_count
4743: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
4744: p_api_version_number => p_api_version_number
4745: ,p_init_msg_list => FND_API.G_FALSE
4746: ,p_commit => FND_API.G_FALSE
4747: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4748:
4749: ,x_return_status => x_return_status
4750: ,x_msg_count => x_msg_count
4751: ,x_msg_data => x_msg_data
4751: ,x_msg_data => x_msg_data
4752: ,p_ptnr_resp_id => y.ptnr_resp_id
4753: ,p_object_version_number => y.object_version_number
4754: );
4755: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4756: RAISE FND_API.G_EXC_ERROR;
4757: END IF;
4758: END LOOP; -- End of FOR y IN c_get_defalut_resp (x.partner_id, x.user_role_code, x.program_id)
4759:
4752: ,p_ptnr_resp_id => y.ptnr_resp_id
4753: ,p_object_version_number => y.object_version_number
4754: );
4755: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4756: RAISE FND_API.G_EXC_ERROR;
4757: END IF;
4758: END LOOP; -- End of FOR y IN c_get_defalut_resp (x.partner_id, x.user_role_code, x.program_id)
4759:
4760: FOR l_u_cnt IN 1..l_user_ids_tbl.count LOOP
4759:
4760: FOR l_u_cnt IN 1..l_user_ids_tbl.count LOOP
4761: assign_resp (
4762: p_api_version_number => p_api_version_number
4763: ,p_init_msg_list => FND_API.G_FALSE
4764: ,p_commit => FND_API.G_FALSE
4765: ,p_user_id => l_user_ids_tbl(l_u_cnt)
4766: ,p_resp_id => l_new_responsibility_id
4767: ,p_app_id => 691
4760: FOR l_u_cnt IN 1..l_user_ids_tbl.count LOOP
4761: assign_resp (
4762: p_api_version_number => p_api_version_number
4763: ,p_init_msg_list => FND_API.G_FALSE
4764: ,p_commit => FND_API.G_FALSE
4765: ,p_user_id => l_user_ids_tbl(l_u_cnt)
4766: ,p_resp_id => l_new_responsibility_id
4767: ,p_app_id => 691
4768: ,x_return_status => x_return_status
4768: ,x_return_status => x_return_status
4769: ,x_msg_count => x_msg_count
4770: ,x_msg_data => x_msg_data
4771: );
4772: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4773: RAISE FND_API.G_EXC_ERROR;
4774: END IF;
4775: END LOOP; -- End of l_l_user_ids_tbl
4776:
4769: ,x_msg_count => x_msg_count
4770: ,x_msg_data => x_msg_data
4771: );
4772: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4773: RAISE FND_API.G_EXC_ERROR;
4774: END IF;
4775: END LOOP; -- End of l_l_user_ids_tbl
4776:
4777: /****
4794: END IF;
4795:
4796: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
4797: p_api_version_number => p_api_version_number
4798: ,p_init_msg_list => FND_API.G_FALSE
4799: ,p_commit => FND_API.G_FALSE
4800: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4801:
4802: ,x_return_status => x_return_status
4795:
4796: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
4797: p_api_version_number => p_api_version_number
4798: ,p_init_msg_list => FND_API.G_FALSE
4799: ,p_commit => FND_API.G_FALSE
4800: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4801:
4802: ,x_return_status => x_return_status
4803: ,x_msg_count => x_msg_count
4796: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
4797: p_api_version_number => p_api_version_number
4798: ,p_init_msg_list => FND_API.G_FALSE
4799: ,p_commit => FND_API.G_FALSE
4800: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4801:
4802: ,x_return_status => x_return_status
4803: ,x_msg_count => x_msg_count
4804: ,x_msg_data => x_msg_data
4805: ,p_ge_ptnr_resps_rec => l_ge_ptnr_resps_rec
4806: ,x_ptnr_resp_id => l_ptnr_resp_id
4807: );
4808:
4809: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4810: RAISE FND_API.G_EXC_ERROR;
4811: END IF;
4812: END IF; -- End of IF (not l_same_comb)
4813: END LOOP; -- End of FOR x IN c_get_resp_info_1 (p_source_resp_map_rule_id)
4806: ,x_ptnr_resp_id => l_ptnr_resp_id
4807: );
4808:
4809: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4810: RAISE FND_API.G_EXC_ERROR;
4811: END IF;
4812: END IF; -- End of IF (not l_same_comb)
4813: END LOOP; -- End of FOR x IN c_get_resp_info_1 (p_source_resp_map_rule_id)
4814: Debug_Log('create_resp_mapping: program_id is null');
4823: Debug_Log('create_resp_mapping: before calling get_default_resp');
4824: END IF;
4825: get_default_resp(
4826: p_api_version_number => p_api_version_number
4827: ,p_init_msg_list => FND_API.G_FALSE
4828: ,p_commit => FND_API.G_FALSE
4829: ,x_return_status => x_return_status
4830: ,x_msg_count => x_msg_count
4831: ,x_msg_data => x_msg_data
4824: END IF;
4825: get_default_resp(
4826: p_api_version_number => p_api_version_number
4827: ,p_init_msg_list => FND_API.G_FALSE
4828: ,p_commit => FND_API.G_FALSE
4829: ,x_return_status => x_return_status
4830: ,x_msg_count => x_msg_count
4831: ,x_msg_data => x_msg_data
4832: ,p_partner_id => y.partner_id
4833: ,p_user_role_code => x.user_role_code
4834: ,x_responsibility_id => l_new_responsibility_id
4835: ,x_resp_map_rule_id => l_resp_map_rule_id
4836: );
4837: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4838: RAISE FND_API.G_EXC_ERROR;
4839: END IF;
4840:
4841: IF l_resp_map_rule_id <> y.source_resp_map_rule_id THEN
4834: ,x_responsibility_id => l_new_responsibility_id
4835: ,x_resp_map_rule_id => l_resp_map_rule_id
4836: );
4837: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4838: RAISE FND_API.G_EXC_ERROR;
4839: END IF;
4840:
4841: IF l_resp_map_rule_id <> y.source_resp_map_rule_id THEN
4842: -- Rovoke the responsibility for all partner users.
4850: -- Call get_partner_users for each partner_id
4851: l_user_ids_tbl := get_partner_users(y.partner_id, x.user_role_code);
4852: revoke_update_assign(
4853: p_api_version_number => p_api_version_number
4854: ,p_init_msg_list => FND_API.G_FALSE
4855: ,p_commit => FND_API.G_FALSE
4856: ,x_return_status => x_return_status
4857: ,x_msg_count => x_msg_count
4858: ,x_msg_data => x_msg_data
4851: l_user_ids_tbl := get_partner_users(y.partner_id, x.user_role_code);
4852: revoke_update_assign(
4853: p_api_version_number => p_api_version_number
4854: ,p_init_msg_list => FND_API.G_FALSE
4855: ,p_commit => FND_API.G_FALSE
4856: ,x_return_status => x_return_status
4857: ,x_msg_count => x_msg_count
4858: ,x_msg_data => x_msg_data
4859: ,p_user_ids_tbl => l_user_ids_tbl
4863: ,p_resp_map_rule_id => l_resp_map_rule_id
4864: ,p_object_version_number => y.object_version_number
4865: ,p_is_revoke => 'Y'
4866: );
4867: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4868: RAISE FND_API.G_EXC_ERROR;
4869: END IF;
4870: END IF; -- End of IF l_resp_map_rule_id <> y.source_resp_map_rule_id
4871: END LOOP; -- End of FOR y IN c_get_ptnr_resps_2
4864: ,p_object_version_number => y.object_version_number
4865: ,p_is_revoke => 'Y'
4866: );
4867: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4868: RAISE FND_API.G_EXC_ERROR;
4869: END IF;
4870: END IF; -- End of IF l_resp_map_rule_id <> y.source_resp_map_rule_id
4871: END LOOP; -- End of FOR y IN c_get_ptnr_resps_2
4872: END LOOP; -- End of FOR x IN c_get_resp_info_2 (p_source_resp_map_rule_id)
4871: END LOOP; -- End of FOR y IN c_get_ptnr_resps_2
4872: END LOOP; -- End of FOR x IN c_get_resp_info_2 (p_source_resp_map_rule_id)
4873:
4874: -- Check for commit
4875: IF FND_API.to_boolean(p_commit) THEN
4876: COMMIT;
4877: END IF;
4878:
4879: FND_MSG_PUB.count_and_get(
4876: COMMIT;
4877: END IF;
4878:
4879: FND_MSG_PUB.count_and_get(
4880: p_encoded => FND_API.g_false
4881: ,p_count => x_msg_count
4882: ,p_data => x_msg_data
4883: );
4884:
4884:
4885: EXCEPTION
4886:
4887: WHEN PVX_Utility_PVT.resource_locked THEN
4888: x_return_status := FND_API.g_ret_sts_error;
4889: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
4890:
4891: WHEN FND_API.G_EXC_ERROR THEN
4892: ROLLBACK TO create_resp_mapping;
4887: WHEN PVX_Utility_PVT.resource_locked THEN
4888: x_return_status := FND_API.g_ret_sts_error;
4889: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
4890:
4891: WHEN FND_API.G_EXC_ERROR THEN
4892: ROLLBACK TO create_resp_mapping;
4893: x_return_status := FND_API.G_RET_STS_ERROR;
4894: -- Standard call to get message count and if count=1, get the message
4895: FND_MSG_PUB.Count_And_Get (
4889: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
4890:
4891: WHEN FND_API.G_EXC_ERROR THEN
4892: ROLLBACK TO create_resp_mapping;
4893: x_return_status := FND_API.G_RET_STS_ERROR;
4894: -- Standard call to get message count and if count=1, get the message
4895: FND_MSG_PUB.Count_And_Get (
4896: p_encoded => FND_API.G_FALSE,
4897: p_count => x_msg_count,
4892: ROLLBACK TO create_resp_mapping;
4893: x_return_status := FND_API.G_RET_STS_ERROR;
4894: -- Standard call to get message count and if count=1, get the message
4895: FND_MSG_PUB.Count_And_Get (
4896: p_encoded => FND_API.G_FALSE,
4897: p_count => x_msg_count,
4898: p_data => x_msg_data
4899: );
4900:
4897: p_count => x_msg_count,
4898: p_data => x_msg_data
4899: );
4900:
4901: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4902: ROLLBACK TO create_resp_mapping;
4903: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4904: -- Standard call to get message count and if count=1, get the message
4905: FND_MSG_PUB.Count_And_Get (
4899: );
4900:
4901: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4902: ROLLBACK TO create_resp_mapping;
4903: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4904: -- Standard call to get message count and if count=1, get the message
4905: FND_MSG_PUB.Count_And_Get (
4906: p_encoded => FND_API.G_FALSE,
4907: p_count => x_msg_count,
4902: ROLLBACK TO create_resp_mapping;
4903: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4904: -- Standard call to get message count and if count=1, get the message
4905: FND_MSG_PUB.Count_And_Get (
4906: p_encoded => FND_API.G_FALSE,
4907: p_count => x_msg_count,
4908: p_data => x_msg_data
4909: );
4910:
4909: );
4910:
4911: WHEN OTHERS THEN
4912: ROLLBACK TO create_resp_mapping;
4913: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4914: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4915: THEN
4916: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4917: END IF;
4916: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4917: END IF;
4918: -- Standard call to get message count and if count=1, get the message
4919: FND_MSG_PUB.Count_And_Get (
4920: p_encoded => FND_API.G_FALSE,
4921: p_count => x_msg_count,
4922: p_data => x_msg_data
4923: );
4924:
4930: * responsibilities that are assigned upon partner enrollment into a program
4931: */
4932: PROCEDURE revoke_user_resps(
4933: p_api_version_number IN NUMBER
4934: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4935: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4936: ,x_return_status OUT NOCOPY VARCHAR2
4937: ,x_msg_count OUT NOCOPY NUMBER
4938: ,x_msg_data OUT NOCOPY VARCHAR2
4931: */
4932: PROCEDURE revoke_user_resps(
4933: p_api_version_number IN NUMBER
4934: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4935: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4936: ,x_return_status OUT NOCOPY VARCHAR2
4937: ,x_msg_count OUT NOCOPY NUMBER
4938: ,x_msg_data OUT NOCOPY VARCHAR2
4939: ,p_user_id IN NUMBER
4977: -- Standard Start of API savepoint
4978: SAVEPOINT revoke_user_resps;
4979:
4980: -- Standard call to check for call compatibility.
4981: IF NOT Fnd_Api.Compatible_API_Call (l_api_version_number
4982: ,p_api_version_number
4983: ,l_api_name
4984: ,G_PKG_NAME
4985: )
4983: ,l_api_name
4984: ,G_PKG_NAME
4985: )
4986: THEN
4987: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4988: END IF;
4989:
4990: -- Initialize message list if p_init_msg_list is set to TRUE.
4991: IF Fnd_Api.to_Boolean( p_init_msg_list )
4987: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4988: END IF;
4989:
4990: -- Initialize message list if p_init_msg_list is set to TRUE.
4991: IF Fnd_Api.to_Boolean( p_init_msg_list )
4992: THEN
4993: Fnd_Msg_Pub.initialize;
4994: END IF;
4995:
4998: Debug_Log('PRIVATE API: ' || l_api_name || ' - START');
4999: END IF;
5000:
5001: -- Initialize API return status to SUCCESS
5002: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5003:
5004: l_partner_ids_tbl := get_partners(p_user_id);
5005:
5006: IF (l_partner_ids_tbl.count = 0) THEN
5005:
5006: IF (l_partner_ids_tbl.count = 0) THEN
5007: FND_MESSAGE.set_name('PV', 'PV_INVALID_PTNR_USER');
5008: FND_MSG_PUB.add;
5009: RAISE FND_API.G_EXC_ERROR;
5010: END IF;
5011:
5012: -- Get the program and store responsibility_id
5013: FOR x IN c_get_resp_info (l_partner_ids_tbl) LOOP
5021: END IF;
5022:
5023: revoke_resp(
5024: p_api_version_number => p_api_version_number
5025: ,p_init_msg_list => FND_API.G_FALSE
5026: ,p_commit => FND_API.G_FALSE
5027: ,p_user_id => x.user_id
5028: ,p_resp_id => x.responsibility_id
5029: ,p_app_id => x.responsibility_application_id
5022:
5023: revoke_resp(
5024: p_api_version_number => p_api_version_number
5025: ,p_init_msg_list => FND_API.G_FALSE
5026: ,p_commit => FND_API.G_FALSE
5027: ,p_user_id => x.user_id
5028: ,p_resp_id => x.responsibility_id
5029: ,p_app_id => x.responsibility_application_id
5030: ,p_security_group_id => x.security_group_id
5033: ,x_return_status => x_return_status
5034: ,x_msg_count => x_msg_count
5035: ,x_msg_data => x_msg_data
5036: );
5037: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5038: RAISE FND_API.G_EXC_ERROR;
5039: END IF;
5040: END LOOP;
5041:
5034: ,x_msg_count => x_msg_count
5035: ,x_msg_data => x_msg_data
5036: );
5037: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5038: RAISE FND_API.G_EXC_ERROR;
5039: END IF;
5040: END LOOP;
5041:
5042: -- Check for commit
5039: END IF;
5040: END LOOP;
5041:
5042: -- Check for commit
5043: IF FND_API.to_boolean(p_commit) THEN
5044: COMMIT;
5045: END IF;
5046:
5047: FND_MSG_PUB.count_and_get(
5044: COMMIT;
5045: END IF;
5046:
5047: FND_MSG_PUB.count_and_get(
5048: p_encoded => FND_API.g_false
5049: ,p_count => x_msg_count
5050: ,p_data => x_msg_data
5051: );
5052:
5052:
5053: EXCEPTION
5054:
5055: WHEN PVX_Utility_PVT.resource_locked THEN
5056: x_return_status := FND_API.g_ret_sts_error;
5057: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
5058:
5059: WHEN FND_API.G_EXC_ERROR THEN
5060: ROLLBACK TO revoke_user_resps;
5055: WHEN PVX_Utility_PVT.resource_locked THEN
5056: x_return_status := FND_API.g_ret_sts_error;
5057: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
5058:
5059: WHEN FND_API.G_EXC_ERROR THEN
5060: ROLLBACK TO revoke_user_resps;
5061: x_return_status := FND_API.G_RET_STS_ERROR;
5062: -- Standard call to get message count and if count=1, get the message
5063: FND_MSG_PUB.Count_And_Get (
5057: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
5058:
5059: WHEN FND_API.G_EXC_ERROR THEN
5060: ROLLBACK TO revoke_user_resps;
5061: x_return_status := FND_API.G_RET_STS_ERROR;
5062: -- Standard call to get message count and if count=1, get the message
5063: FND_MSG_PUB.Count_And_Get (
5064: p_encoded => FND_API.G_FALSE,
5065: p_count => x_msg_count,
5060: ROLLBACK TO revoke_user_resps;
5061: x_return_status := FND_API.G_RET_STS_ERROR;
5062: -- Standard call to get message count and if count=1, get the message
5063: FND_MSG_PUB.Count_And_Get (
5064: p_encoded => FND_API.G_FALSE,
5065: p_count => x_msg_count,
5066: p_data => x_msg_data
5067: );
5068:
5065: p_count => x_msg_count,
5066: p_data => x_msg_data
5067: );
5068:
5069: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5070: ROLLBACK TO revoke_user_resps;
5071: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5072: -- Standard call to get message count and if count=1, get the message
5073: FND_MSG_PUB.Count_And_Get (
5067: );
5068:
5069: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5070: ROLLBACK TO revoke_user_resps;
5071: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5072: -- Standard call to get message count and if count=1, get the message
5073: FND_MSG_PUB.Count_And_Get (
5074: p_encoded => FND_API.G_FALSE,
5075: p_count => x_msg_count,
5070: ROLLBACK TO revoke_user_resps;
5071: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5072: -- Standard call to get message count and if count=1, get the message
5073: FND_MSG_PUB.Count_And_Get (
5074: p_encoded => FND_API.G_FALSE,
5075: p_count => x_msg_count,
5076: p_data => x_msg_data
5077: );
5078:
5077: );
5078:
5079: WHEN OTHERS THEN
5080: ROLLBACK TO revoke_user_resps;
5081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5082: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5083: THEN
5084: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5085: END IF;
5084: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5085: END IF;
5086: -- Standard call to get message count and if count=1, get the message
5087: FND_MSG_PUB.Count_And_Get (
5088: p_encoded => FND_API.G_FALSE,
5089: p_count => x_msg_count,
5090: p_data => x_msg_data
5091: );
5092: END revoke_user_resps;
5098: * responsibilities that are assigned upon partner enrollment into a program
5099: */
5100: PROCEDURE revoke_user_resps(
5101: p_api_version_number IN NUMBER
5102: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5103: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5104: ,x_return_status OUT NOCOPY VARCHAR2
5105: ,x_msg_count OUT NOCOPY NUMBER
5106: ,x_msg_data OUT NOCOPY VARCHAR2
5099: */
5100: PROCEDURE revoke_user_resps(
5101: p_api_version_number IN NUMBER
5102: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5103: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5104: ,x_return_status OUT NOCOPY VARCHAR2
5105: ,x_msg_count OUT NOCOPY NUMBER
5106: ,x_msg_data OUT NOCOPY VARCHAR2
5107: ,p_user_name IN VARCHAR2
5124: -- Standard Start of API savepoint
5125: SAVEPOINT revoke_user_resps;
5126:
5127: -- Standard call to check for call compatibility.
5128: IF NOT Fnd_Api.Compatible_API_Call (l_api_version_number
5129: ,p_api_version_number
5130: ,l_api_name
5131: ,G_PKG_NAME
5132: )
5130: ,l_api_name
5131: ,G_PKG_NAME
5132: )
5133: THEN
5134: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5135: END IF;
5136:
5137: -- Initialize message list if p_init_msg_list is set to TRUE.
5138: IF Fnd_Api.to_Boolean( p_init_msg_list )
5134: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5135: END IF;
5136:
5137: -- Initialize message list if p_init_msg_list is set to TRUE.
5138: IF Fnd_Api.to_Boolean( p_init_msg_list )
5139: THEN
5140: Fnd_Msg_Pub.initialize;
5141: END IF;
5142:
5145: Debug_Log('PRIVATE API: ' || l_api_name || ' - START');
5146: END IF;
5147:
5148: -- Initialize API return status to SUCCESS
5149: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5150:
5151: FOR x IN c_get_user_id LOOP
5152: get_user_role_code (
5153: p_user_id => x.user_id
5158: END IF;
5159:
5160: revoke_user_resps(
5161: p_api_version_number => l_api_version_number
5162: ,p_init_msg_list => FND_API.G_FALSE
5163: ,x_return_status => x_return_status
5164: ,x_msg_count => x_msg_count
5165: ,x_msg_data => x_msg_data
5166: ,p_user_id => x.user_id
5165: ,x_msg_data => x_msg_data
5166: ,p_user_id => x.user_id
5167: ,p_user_role_code => l_user_role_code
5168: );
5169: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5170: RAISE FND_API.G_EXC_ERROR;
5171: END IF;
5172: END LOOP;
5173: -- Check for commit
5166: ,p_user_id => x.user_id
5167: ,p_user_role_code => l_user_role_code
5168: );
5169: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5170: RAISE FND_API.G_EXC_ERROR;
5171: END IF;
5172: END LOOP;
5173: -- Check for commit
5174: IF FND_API.to_boolean(p_commit) THEN
5170: RAISE FND_API.G_EXC_ERROR;
5171: END IF;
5172: END LOOP;
5173: -- Check for commit
5174: IF FND_API.to_boolean(p_commit) THEN
5175: COMMIT;
5176: END IF;
5177:
5178: FND_MSG_PUB.count_and_get(
5175: COMMIT;
5176: END IF;
5177:
5178: FND_MSG_PUB.count_and_get(
5179: p_encoded => FND_API.g_false
5180: ,p_count => x_msg_count
5181: ,p_data => x_msg_data
5182: );
5183:
5183:
5184: EXCEPTION
5185:
5186: WHEN PVX_Utility_PVT.resource_locked THEN
5187: x_return_status := FND_API.g_ret_sts_error;
5188: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
5189:
5190: WHEN FND_API.G_EXC_ERROR THEN
5191: ROLLBACK TO revoke_user_resps;
5186: WHEN PVX_Utility_PVT.resource_locked THEN
5187: x_return_status := FND_API.g_ret_sts_error;
5188: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
5189:
5190: WHEN FND_API.G_EXC_ERROR THEN
5191: ROLLBACK TO revoke_user_resps;
5192: x_return_status := FND_API.G_RET_STS_ERROR;
5193: -- Standard call to get message count and if count=1, get the message
5194: FND_MSG_PUB.Count_And_Get (
5188: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
5189:
5190: WHEN FND_API.G_EXC_ERROR THEN
5191: ROLLBACK TO revoke_user_resps;
5192: x_return_status := FND_API.G_RET_STS_ERROR;
5193: -- Standard call to get message count and if count=1, get the message
5194: FND_MSG_PUB.Count_And_Get (
5195: p_encoded => FND_API.G_FALSE,
5196: p_count => x_msg_count,
5191: ROLLBACK TO revoke_user_resps;
5192: x_return_status := FND_API.G_RET_STS_ERROR;
5193: -- Standard call to get message count and if count=1, get the message
5194: FND_MSG_PUB.Count_And_Get (
5195: p_encoded => FND_API.G_FALSE,
5196: p_count => x_msg_count,
5197: p_data => x_msg_data
5198: );
5199:
5196: p_count => x_msg_count,
5197: p_data => x_msg_data
5198: );
5199:
5200: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5201: ROLLBACK TO revoke_user_resps;
5202: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5203: -- Standard call to get message count and if count=1, get the message
5204: FND_MSG_PUB.Count_And_Get (
5198: );
5199:
5200: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5201: ROLLBACK TO revoke_user_resps;
5202: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5203: -- Standard call to get message count and if count=1, get the message
5204: FND_MSG_PUB.Count_And_Get (
5205: p_encoded => FND_API.G_FALSE,
5206: p_count => x_msg_count,
5201: ROLLBACK TO revoke_user_resps;
5202: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5203: -- Standard call to get message count and if count=1, get the message
5204: FND_MSG_PUB.Count_And_Get (
5205: p_encoded => FND_API.G_FALSE,
5206: p_count => x_msg_count,
5207: p_data => x_msg_data
5208: );
5209:
5208: );
5209:
5210: WHEN OTHERS THEN
5211: ROLLBACK TO revoke_user_resps;
5212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5213: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5214: THEN
5215: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5216: END IF;
5215: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5216: END IF;
5217: -- Standard call to get message count and if count=1, get the message
5218: FND_MSG_PUB.Count_And_Get (
5219: p_encoded => FND_API.G_FALSE,
5220: p_count => x_msg_count,
5221: p_data => x_msg_data
5222: );
5223: END revoke_user_resps;
5229: * responsibility is added to a program.
5230: */
5231: PROCEDURE manage_store_resp_on_create(
5232: p_api_version_number IN NUMBER
5233: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5234: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5235: ,x_return_status OUT NOCOPY VARCHAR2
5236: ,x_msg_count OUT NOCOPY NUMBER
5237: ,x_msg_data OUT NOCOPY VARCHAR2
5230: */
5231: PROCEDURE manage_store_resp_on_create(
5232: p_api_version_number IN NUMBER
5233: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5234: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5235: ,x_return_status OUT NOCOPY VARCHAR2
5236: ,x_msg_count OUT NOCOPY NUMBER
5237: ,x_msg_data OUT NOCOPY VARCHAR2
5238: ,p_resp_map_rule_id IN NUMBER
5264: -- Standard Start of API savepoint
5265: SAVEPOINT manage_store_resp_on_create;
5266:
5267: -- Standard call to check for call compatibility.
5268: IF NOT Fnd_Api.Compatible_API_Call (l_api_version_number
5269: ,p_api_version_number
5270: ,l_api_name
5271: ,G_PKG_NAME
5272: )
5270: ,l_api_name
5271: ,G_PKG_NAME
5272: )
5273: THEN
5274: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5275: END IF;
5276:
5277: -- Initialize message list if p_init_msg_list is set to TRUE.
5278: IF Fnd_Api.to_Boolean( p_init_msg_list )
5274: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5275: END IF;
5276:
5277: -- Initialize message list if p_init_msg_list is set to TRUE.
5278: IF Fnd_Api.to_Boolean( p_init_msg_list )
5279: THEN
5280: Fnd_Msg_Pub.initialize;
5281: END IF;
5282:
5280: Fnd_Msg_Pub.initialize;
5281: END IF;
5282:
5283: -- Initialize API return status to SUCCESS
5284: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5285:
5286: IF (p_resp_map_rule_id is null) THEN
5287: x_return_status := FND_API.G_RET_STS_ERROR;
5288: FND_MESSAGE.set_name('PV', 'PV_NO_RESP_MAP_RULE_ID');
5283: -- Initialize API return status to SUCCESS
5284: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5285:
5286: IF (p_resp_map_rule_id is null) THEN
5287: x_return_status := FND_API.G_RET_STS_ERROR;
5288: FND_MESSAGE.set_name('PV', 'PV_NO_RESP_MAP_RULE_ID');
5289: FND_MSG_PUB.add;
5290: RAISE FND_API.G_EXC_ERROR;
5291: END IF;
5286: IF (p_resp_map_rule_id is null) THEN
5287: x_return_status := FND_API.G_RET_STS_ERROR;
5288: FND_MESSAGE.set_name('PV', 'PV_NO_RESP_MAP_RULE_ID');
5289: FND_MSG_PUB.add;
5290: RAISE FND_API.G_EXC_ERROR;
5291: END IF;
5292:
5293: IF (p_resp_id is null) THEN
5294: x_return_status := FND_API.G_RET_STS_ERROR;
5290: RAISE FND_API.G_EXC_ERROR;
5291: END IF;
5292:
5293: IF (p_resp_id is null) THEN
5294: x_return_status := FND_API.G_RET_STS_ERROR;
5295: FND_MESSAGE.set_name('PV', 'PV_NO_RESP_ID');
5296: FND_MSG_PUB.add;
5297: RAISE FND_API.G_EXC_ERROR;
5298: END IF;
5293: IF (p_resp_id is null) THEN
5294: x_return_status := FND_API.G_RET_STS_ERROR;
5295: FND_MESSAGE.set_name('PV', 'PV_NO_RESP_ID');
5296: FND_MSG_PUB.add;
5297: RAISE FND_API.G_EXC_ERROR;
5298: END IF;
5299:
5300: IF (p_program_id is null) THEN
5301: x_return_status := FND_API.G_RET_STS_ERROR;
5297: RAISE FND_API.G_EXC_ERROR;
5298: END IF;
5299:
5300: IF (p_program_id is null) THEN
5301: x_return_status := FND_API.G_RET_STS_ERROR;
5302: FND_MESSAGE.set_name('PV', 'PV_NO_PROGRAM_ID');
5303: FND_MSG_PUB.add;
5304: RAISE FND_API.G_EXC_ERROR;
5305: END IF;
5300: IF (p_program_id is null) THEN
5301: x_return_status := FND_API.G_RET_STS_ERROR;
5302: FND_MESSAGE.set_name('PV', 'PV_NO_PROGRAM_ID');
5303: FND_MSG_PUB.add;
5304: RAISE FND_API.G_EXC_ERROR;
5305: END IF;
5306:
5307: FOR x IN c_get_partner_and_program LOOP
5308: IF (PV_DEBUG_HIGH_ON) THEN
5312: l_user_ids_tbl := get_partner_users(x.partner_id, G_ALL);
5313: FOR l_u_cnt IN 1..l_user_ids_tbl.count LOOP
5314: assign_resp (
5315: p_api_version_number => p_api_version_number
5316: ,p_init_msg_list => FND_API.G_FALSE
5317: ,p_commit => FND_API.G_FALSE
5318: ,p_user_id => l_user_ids_tbl(l_u_cnt)
5319: ,p_resp_id => p_resp_id
5320: ,p_app_id => 671
5313: FOR l_u_cnt IN 1..l_user_ids_tbl.count LOOP
5314: assign_resp (
5315: p_api_version_number => p_api_version_number
5316: ,p_init_msg_list => FND_API.G_FALSE
5317: ,p_commit => FND_API.G_FALSE
5318: ,p_user_id => l_user_ids_tbl(l_u_cnt)
5319: ,p_resp_id => p_resp_id
5320: ,p_app_id => 671
5321: ,x_return_status => x_return_status
5321: ,x_return_status => x_return_status
5322: ,x_msg_count => x_msg_count
5323: ,x_msg_data => x_msg_data
5324: );
5325: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5326: RAISE FND_API.G_EXC_ERROR;
5327: END IF;
5328: END LOOP; -- End of l_l_user_ids_tbl
5329:
5322: ,x_msg_count => x_msg_count
5323: ,x_msg_data => x_msg_data
5324: );
5325: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5326: RAISE FND_API.G_EXC_ERROR;
5327: END IF;
5328: END LOOP; -- End of l_l_user_ids_tbl
5329:
5330: /****
5347: END IF;
5348:
5349: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
5350: p_api_version_number => p_api_version_number
5351: ,p_init_msg_list => FND_API.G_FALSE
5352: ,p_commit => FND_API.G_FALSE
5353: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5354:
5355: ,x_return_status => x_return_status
5348:
5349: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
5350: p_api_version_number => p_api_version_number
5351: ,p_init_msg_list => FND_API.G_FALSE
5352: ,p_commit => FND_API.G_FALSE
5353: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5354:
5355: ,x_return_status => x_return_status
5356: ,x_msg_count => x_msg_count
5349: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
5350: p_api_version_number => p_api_version_number
5351: ,p_init_msg_list => FND_API.G_FALSE
5352: ,p_commit => FND_API.G_FALSE
5353: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5354:
5355: ,x_return_status => x_return_status
5356: ,x_msg_count => x_msg_count
5357: ,x_msg_data => x_msg_data
5358: ,p_ge_ptnr_resps_rec => l_ge_ptnr_resps_rec
5359: ,x_ptnr_resp_id => l_ptnr_resp_id
5360: );
5361:
5362: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5363: RAISE FND_API.G_EXC_ERROR;
5364: END IF;
5365: END LOOP; -- End of FOR x IN c_get_partner_and_program
5366:
5359: ,x_ptnr_resp_id => l_ptnr_resp_id
5360: );
5361:
5362: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5363: RAISE FND_API.G_EXC_ERROR;
5364: END IF;
5365: END LOOP; -- End of FOR x IN c_get_partner_and_program
5366:
5367: -- Check for commit
5364: END IF;
5365: END LOOP; -- End of FOR x IN c_get_partner_and_program
5366:
5367: -- Check for commit
5368: IF FND_API.to_boolean(p_commit) THEN
5369: COMMIT;
5370: END IF;
5371:
5372: FND_MSG_PUB.count_and_get(
5369: COMMIT;
5370: END IF;
5371:
5372: FND_MSG_PUB.count_and_get(
5373: p_encoded => FND_API.g_false
5374: ,p_count => x_msg_count
5375: ,p_data => x_msg_data
5376: );
5377:
5377:
5378: EXCEPTION
5379:
5380: WHEN PVX_Utility_PVT.resource_locked THEN
5381: x_return_status := FND_API.g_ret_sts_error;
5382: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
5383:
5384: WHEN FND_API.G_EXC_ERROR THEN
5385: ROLLBACK TO manage_store_resp_on_create;
5380: WHEN PVX_Utility_PVT.resource_locked THEN
5381: x_return_status := FND_API.g_ret_sts_error;
5382: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
5383:
5384: WHEN FND_API.G_EXC_ERROR THEN
5385: ROLLBACK TO manage_store_resp_on_create;
5386: x_return_status := FND_API.G_RET_STS_ERROR;
5387: -- Standard call to get message count and if count=1, get the message
5388: FND_MSG_PUB.Count_And_Get (
5382: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
5383:
5384: WHEN FND_API.G_EXC_ERROR THEN
5385: ROLLBACK TO manage_store_resp_on_create;
5386: x_return_status := FND_API.G_RET_STS_ERROR;
5387: -- Standard call to get message count and if count=1, get the message
5388: FND_MSG_PUB.Count_And_Get (
5389: p_encoded => FND_API.G_FALSE,
5390: p_count => x_msg_count,
5385: ROLLBACK TO manage_store_resp_on_create;
5386: x_return_status := FND_API.G_RET_STS_ERROR;
5387: -- Standard call to get message count and if count=1, get the message
5388: FND_MSG_PUB.Count_And_Get (
5389: p_encoded => FND_API.G_FALSE,
5390: p_count => x_msg_count,
5391: p_data => x_msg_data
5392: );
5393:
5390: p_count => x_msg_count,
5391: p_data => x_msg_data
5392: );
5393:
5394: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5395: ROLLBACK TO manage_store_resp_on_create;
5396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5397: -- Standard call to get message count and if count=1, get the message
5398: FND_MSG_PUB.Count_And_Get (
5392: );
5393:
5394: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5395: ROLLBACK TO manage_store_resp_on_create;
5396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5397: -- Standard call to get message count and if count=1, get the message
5398: FND_MSG_PUB.Count_And_Get (
5399: p_encoded => FND_API.G_FALSE,
5400: p_count => x_msg_count,
5395: ROLLBACK TO manage_store_resp_on_create;
5396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5397: -- Standard call to get message count and if count=1, get the message
5398: FND_MSG_PUB.Count_And_Get (
5399: p_encoded => FND_API.G_FALSE,
5400: p_count => x_msg_count,
5401: p_data => x_msg_data
5402: );
5403:
5402: );
5403:
5404: WHEN OTHERS THEN
5405: ROLLBACK TO manage_store_resp_on_create;
5406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5407: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5408: THEN
5409: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5410: END IF;
5409: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5410: END IF;
5411: -- Standard call to get message count and if count=1, get the message
5412: FND_MSG_PUB.Count_And_Get (
5413: p_encoded => FND_API.G_FALSE,
5414: p_count => x_msg_count,
5415: p_data => x_msg_data
5416: );
5417: END manage_store_resp_on_create;
5423: * responsibility is deleted.
5424: */
5425: PROCEDURE manage_store_resp_on_delete(
5426: p_api_version_number IN NUMBER
5427: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5428: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5429: ,x_return_status OUT NOCOPY VARCHAR2
5430: ,x_msg_count OUT NOCOPY NUMBER
5431: ,x_msg_data OUT NOCOPY VARCHAR2
5424: */
5425: PROCEDURE manage_store_resp_on_delete(
5426: p_api_version_number IN NUMBER
5427: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5428: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5429: ,x_return_status OUT NOCOPY VARCHAR2
5430: ,x_msg_count OUT NOCOPY NUMBER
5431: ,x_msg_data OUT NOCOPY VARCHAR2
5432: ,p_resp_map_rule_id IN NUMBER
5482: -- Standard Start of API savepoint
5483: SAVEPOINT manage_store_resp_on_delete;
5484:
5485: -- Standard call to check for call compatibility.
5486: IF NOT Fnd_Api.Compatible_API_Call (l_api_version_number
5487: ,p_api_version_number
5488: ,l_api_name
5489: ,G_PKG_NAME
5490: )
5488: ,l_api_name
5489: ,G_PKG_NAME
5490: )
5491: THEN
5492: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5493: END IF;
5494:
5495: -- Initialize message list if p_init_msg_list is set to TRUE.
5496: IF Fnd_Api.to_Boolean( p_init_msg_list )
5492: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5493: END IF;
5494:
5495: -- Initialize message list if p_init_msg_list is set to TRUE.
5496: IF Fnd_Api.to_Boolean( p_init_msg_list )
5497: THEN
5498: Fnd_Msg_Pub.initialize;
5499: END IF;
5500:
5504: Debug_Log('PRIVATE API: ' || l_api_name || ' - START');
5505: END IF;
5506:
5507: -- Initialize API return status to SUCCESS
5508: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5509:
5510: IF (p_resp_map_rule_id is null) THEN
5511: x_return_status := FND_API.G_RET_STS_ERROR;
5512: FND_MESSAGE.set_name('PV', 'PV_NO_RESP_MAP_RULE_ID');
5507: -- Initialize API return status to SUCCESS
5508: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5509:
5510: IF (p_resp_map_rule_id is null) THEN
5511: x_return_status := FND_API.G_RET_STS_ERROR;
5512: FND_MESSAGE.set_name('PV', 'PV_NO_RESP_MAP_RULE_ID');
5513: FND_MSG_PUB.add;
5514: RAISE FND_API.G_EXC_ERROR;
5515: END IF;
5510: IF (p_resp_map_rule_id is null) THEN
5511: x_return_status := FND_API.G_RET_STS_ERROR;
5512: FND_MESSAGE.set_name('PV', 'PV_NO_RESP_MAP_RULE_ID');
5513: FND_MSG_PUB.add;
5514: RAISE FND_API.G_EXC_ERROR;
5515: END IF;
5516:
5517: FOR x IN c_get_ptnr_resps_info LOOP
5518: IF (PV_DEBUG_HIGH_ON) THEN
5547: END LOOP;
5548: IF (not l_no_revoke) THEN
5549: revoke_resp(
5550: p_api_version_number => p_api_version_number
5551: ,p_init_msg_list => FND_API.G_FALSE
5552: ,p_commit => p_commit
5553: ,p_user_id => get_partner_users(y.partner_id, G_ALL)
5554: ,p_resp_id => x.responsibility_id
5555: ,x_return_status => x_return_status
5555: ,x_return_status => x_return_status
5556: ,x_msg_count => x_msg_count
5557: ,x_msg_data => x_msg_data
5558: );
5559: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5560: RAISE FND_API.G_EXC_ERROR;
5561: END IF;
5562: END IF; -- End of IF (not l_no_revoke)
5563: END IF; -- End of IF (l_count = 1)
5556: ,x_msg_count => x_msg_count
5557: ,x_msg_data => x_msg_data
5558: );
5559: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5560: RAISE FND_API.G_EXC_ERROR;
5561: END IF;
5562: END IF; -- End of IF (not l_no_revoke)
5563: END IF; -- End of IF (l_count = 1)
5564:
5572: END IF;
5573:
5574: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
5575: p_api_version_number => p_api_version_number
5576: ,p_init_msg_list => FND_API.G_FALSE
5577: ,p_commit => FND_API.G_FALSE
5578: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5579:
5580: ,x_return_status => x_return_status
5573:
5574: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
5575: p_api_version_number => p_api_version_number
5576: ,p_init_msg_list => FND_API.G_FALSE
5577: ,p_commit => FND_API.G_FALSE
5578: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5579:
5580: ,x_return_status => x_return_status
5581: ,x_msg_count => x_msg_count
5574: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
5575: p_api_version_number => p_api_version_number
5576: ,p_init_msg_list => FND_API.G_FALSE
5577: ,p_commit => FND_API.G_FALSE
5578: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5579:
5580: ,x_return_status => x_return_status
5581: ,x_msg_count => x_msg_count
5582: ,x_msg_data => x_msg_data
5582: ,x_msg_data => x_msg_data
5583: ,p_ptnr_resp_id => x.ptnr_resp_id
5584: ,p_object_version_number => x.object_version_number
5585: );
5586: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5587: RAISE FND_API.G_EXC_ERROR;
5588: END IF;
5589: END LOOP; -- End of FOR y IN c_get_partner_id(x.program_id)
5590: END LOOP; -- End of FOR x IN c_get_ptnr_resps_info
5583: ,p_ptnr_resp_id => x.ptnr_resp_id
5584: ,p_object_version_number => x.object_version_number
5585: );
5586: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5587: RAISE FND_API.G_EXC_ERROR;
5588: END IF;
5589: END LOOP; -- End of FOR y IN c_get_partner_id(x.program_id)
5590: END LOOP; -- End of FOR x IN c_get_ptnr_resps_info
5591:
5589: END LOOP; -- End of FOR y IN c_get_partner_id(x.program_id)
5590: END LOOP; -- End of FOR x IN c_get_ptnr_resps_info
5591:
5592: -- Check for commit
5593: IF FND_API.to_boolean(p_commit) THEN
5594: COMMIT;
5595: END IF;
5596:
5597: FND_MSG_PUB.count_and_get(
5594: COMMIT;
5595: END IF;
5596:
5597: FND_MSG_PUB.count_and_get(
5598: p_encoded => FND_API.g_false
5599: ,p_count => x_msg_count
5600: ,p_data => x_msg_data
5601: );
5602:
5602:
5603: EXCEPTION
5604:
5605: WHEN PVX_Utility_PVT.resource_locked THEN
5606: x_return_status := FND_API.g_ret_sts_error;
5607: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
5608:
5609: WHEN FND_API.G_EXC_ERROR THEN
5610: ROLLBACK TO manage_store_resp_on_delete;
5605: WHEN PVX_Utility_PVT.resource_locked THEN
5606: x_return_status := FND_API.g_ret_sts_error;
5607: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
5608:
5609: WHEN FND_API.G_EXC_ERROR THEN
5610: ROLLBACK TO manage_store_resp_on_delete;
5611: x_return_status := FND_API.G_RET_STS_ERROR;
5612: -- Standard call to get message count and if count=1, get the message
5613: FND_MSG_PUB.Count_And_Get (
5607: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
5608:
5609: WHEN FND_API.G_EXC_ERROR THEN
5610: ROLLBACK TO manage_store_resp_on_delete;
5611: x_return_status := FND_API.G_RET_STS_ERROR;
5612: -- Standard call to get message count and if count=1, get the message
5613: FND_MSG_PUB.Count_And_Get (
5614: p_encoded => FND_API.G_FALSE,
5615: p_count => x_msg_count,
5610: ROLLBACK TO manage_store_resp_on_delete;
5611: x_return_status := FND_API.G_RET_STS_ERROR;
5612: -- Standard call to get message count and if count=1, get the message
5613: FND_MSG_PUB.Count_And_Get (
5614: p_encoded => FND_API.G_FALSE,
5615: p_count => x_msg_count,
5616: p_data => x_msg_data
5617: );
5618:
5615: p_count => x_msg_count,
5616: p_data => x_msg_data
5617: );
5618:
5619: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5620: ROLLBACK TO manage_store_resp_on_delete;
5621: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5622: -- Standard call to get message count and if count=1, get the message
5623: FND_MSG_PUB.Count_And_Get (
5617: );
5618:
5619: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5620: ROLLBACK TO manage_store_resp_on_delete;
5621: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5622: -- Standard call to get message count and if count=1, get the message
5623: FND_MSG_PUB.Count_And_Get (
5624: p_encoded => FND_API.G_FALSE,
5625: p_count => x_msg_count,
5620: ROLLBACK TO manage_store_resp_on_delete;
5621: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5622: -- Standard call to get message count and if count=1, get the message
5623: FND_MSG_PUB.Count_And_Get (
5624: p_encoded => FND_API.G_FALSE,
5625: p_count => x_msg_count,
5626: p_data => x_msg_data
5627: );
5628:
5627: );
5628:
5629: WHEN OTHERS THEN
5630: ROLLBACK TO manage_store_resp_on_delete;
5631: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5632: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5633: THEN
5634: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5635: END IF;
5634: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5635: END IF;
5636: -- Standard call to get message count and if count=1, get the message
5637: FND_MSG_PUB.Count_And_Get (
5638: p_encoded => FND_API.G_FALSE,
5639: p_count => x_msg_count,
5640: p_data => x_msg_data
5641: );
5642: END manage_store_resp_on_delete;
5648: * pass in partner.
5649: */
5650: PROCEDURE assign_default_resp (
5651: p_api_version_number IN NUMBER
5652: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5653: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5654: ,x_return_status OUT NOCOPY VARCHAR2
5655: ,x_msg_count OUT NOCOPY NUMBER
5656: ,x_msg_data OUT NOCOPY VARCHAR2
5649: */
5650: PROCEDURE assign_default_resp (
5651: p_api_version_number IN NUMBER
5652: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5653: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5654: ,x_return_status OUT NOCOPY VARCHAR2
5655: ,x_msg_count OUT NOCOPY NUMBER
5656: ,x_msg_data OUT NOCOPY VARCHAR2
5657: ,p_partner_id IN NUMBER
5757: -- Standard Start of API savepoint
5758: SAVEPOINT assign_default_resp;
5759:
5760: -- Standard call to check for call compatibility.
5761: IF NOT Fnd_Api.Compatible_API_Call (l_api_version_number
5762: ,p_api_version_number
5763: ,l_api_name
5764: ,G_PKG_NAME
5765: )
5763: ,l_api_name
5764: ,G_PKG_NAME
5765: )
5766: THEN
5767: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5768: END IF;
5769:
5770: -- Initialize message list if p_init_msg_list is set to TRUE.
5771: IF Fnd_Api.to_Boolean( p_init_msg_list )
5767: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5768: END IF;
5769:
5770: -- Initialize message list if p_init_msg_list is set to TRUE.
5771: IF Fnd_Api.to_Boolean( p_init_msg_list )
5772: THEN
5773: Fnd_Msg_Pub.initialize;
5774: END IF;
5775:
5779: WRITE_LOG(l_api_name, 'PRIVATE API: ' || l_api_name || ' - START');
5780: END IF;
5781:
5782: -- Initialize API return status to SUCCESS
5783: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5784:
5785: -- Get the default resp for primary users
5786: get_default_resp(
5787: p_api_version_number => p_api_version_number
5784:
5785: -- Get the default resp for primary users
5786: get_default_resp(
5787: p_api_version_number => p_api_version_number
5788: ,p_init_msg_list => FND_API.G_FALSE
5789: ,p_commit => FND_API.G_FALSE
5790: ,x_return_status => x_return_status
5791: ,x_msg_count => x_msg_count
5792: ,x_msg_data => x_msg_data
5785: -- Get the default resp for primary users
5786: get_default_resp(
5787: p_api_version_number => p_api_version_number
5788: ,p_init_msg_list => FND_API.G_FALSE
5789: ,p_commit => FND_API.G_FALSE
5790: ,x_return_status => x_return_status
5791: ,x_msg_count => x_msg_count
5792: ,x_msg_data => x_msg_data
5793: ,p_partner_id => p_partner_id
5794: ,p_user_role_code => G_PRIMARY
5795: ,x_responsibility_id => l_responsibility_id
5796: ,x_resp_map_rule_id => l_resp_map_rule_id
5797: );
5798: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5799: RAISE FND_API.G_EXC_ERROR;
5800: END IF;
5801:
5802: IF (l_responsibility_id is not null) and (l_resp_map_rule_id is not null) THEN
5795: ,x_responsibility_id => l_responsibility_id
5796: ,x_resp_map_rule_id => l_resp_map_rule_id
5797: );
5798: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5799: RAISE FND_API.G_EXC_ERROR;
5800: END IF;
5801:
5802: IF (l_responsibility_id is not null) and (l_resp_map_rule_id is not null) THEN
5803: FOR x in c_get_primary_users LOOP
5802: IF (l_responsibility_id is not null) and (l_resp_map_rule_id is not null) THEN
5803: FOR x in c_get_primary_users LOOP
5804: assign_resp(
5805: p_api_version_number => p_api_version_number
5806: ,p_init_msg_list => FND_API.G_FALSE
5807: ,p_commit => FND_API.G_FALSE
5808: ,p_user_id => x.user_id
5809: ,p_resp_id => l_responsibility_id
5810: ,p_app_id => 691
5803: FOR x in c_get_primary_users LOOP
5804: assign_resp(
5805: p_api_version_number => p_api_version_number
5806: ,p_init_msg_list => FND_API.G_FALSE
5807: ,p_commit => FND_API.G_FALSE
5808: ,p_user_id => x.user_id
5809: ,p_resp_id => l_responsibility_id
5810: ,p_app_id => 691
5811: ,x_return_status => x_return_status
5811: ,x_return_status => x_return_status
5812: ,x_msg_count => x_msg_count
5813: ,x_msg_data => x_msg_data
5814: );
5815: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5816: RAISE FND_API.G_EXC_ERROR;
5817: END IF;
5818: END LOOP;
5819:
5812: ,x_msg_count => x_msg_count
5813: ,x_msg_data => x_msg_data
5814: );
5815: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5816: RAISE FND_API.G_EXC_ERROR;
5817: END IF;
5818: END LOOP;
5819:
5820: /****
5840: END IF;
5841:
5842: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
5843: p_api_version_number => p_api_version_number
5844: ,p_init_msg_list => FND_API.G_FALSE
5845: ,p_commit => FND_API.G_FALSE
5846: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5847:
5848: ,x_return_status => x_return_status
5841:
5842: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
5843: p_api_version_number => p_api_version_number
5844: ,p_init_msg_list => FND_API.G_FALSE
5845: ,p_commit => FND_API.G_FALSE
5846: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5847:
5848: ,x_return_status => x_return_status
5849: ,x_msg_count => x_msg_count
5842: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
5843: p_api_version_number => p_api_version_number
5844: ,p_init_msg_list => FND_API.G_FALSE
5845: ,p_commit => FND_API.G_FALSE
5846: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5847:
5848: ,x_return_status => x_return_status
5849: ,x_msg_count => x_msg_count
5850: ,x_msg_data => x_msg_data
5853: );
5854: ELSE
5855: FND_MESSAGE.set_name('PV', 'PV_NO_DEFAULT_RESP');
5856: FND_MSG_PUB.add;
5857: RAISE FND_API.G_EXC_ERROR;
5858: END IF;
5859:
5860: -- Get the default resp for business users
5861: get_default_resp(
5859:
5860: -- Get the default resp for business users
5861: get_default_resp(
5862: p_api_version_number => p_api_version_number
5863: ,p_init_msg_list => FND_API.G_FALSE
5864: ,p_commit => FND_API.G_FALSE
5865: ,x_return_status => x_return_status
5866: ,x_msg_count => x_msg_count
5867: ,x_msg_data => x_msg_data
5860: -- Get the default resp for business users
5861: get_default_resp(
5862: p_api_version_number => p_api_version_number
5863: ,p_init_msg_list => FND_API.G_FALSE
5864: ,p_commit => FND_API.G_FALSE
5865: ,x_return_status => x_return_status
5866: ,x_msg_count => x_msg_count
5867: ,x_msg_data => x_msg_data
5868: ,p_partner_id => p_partner_id
5869: ,p_user_role_code => G_BUSINESS
5870: ,x_responsibility_id => l_responsibility_id
5871: ,x_resp_map_rule_id => l_resp_map_rule_id
5872: );
5873: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5874: RAISE FND_API.G_EXC_ERROR;
5875: END IF;
5876:
5877: IF (l_responsibility_id is not null) and (l_resp_map_rule_id is not null) THEN
5870: ,x_responsibility_id => l_responsibility_id
5871: ,x_resp_map_rule_id => l_resp_map_rule_id
5872: );
5873: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5874: RAISE FND_API.G_EXC_ERROR;
5875: END IF;
5876:
5877: IF (l_responsibility_id is not null) and (l_resp_map_rule_id is not null) THEN
5878: FOR x IN c_get_business_users LOOP
5877: IF (l_responsibility_id is not null) and (l_resp_map_rule_id is not null) THEN
5878: FOR x IN c_get_business_users LOOP
5879: assign_resp(
5880: p_api_version_number => p_api_version_number
5881: ,p_init_msg_list => FND_API.G_FALSE
5882: ,p_commit => FND_API.G_FALSE
5883: ,p_user_id => x.user_id
5884: ,p_resp_id => l_responsibility_id
5885: ,p_app_id => 691
5878: FOR x IN c_get_business_users LOOP
5879: assign_resp(
5880: p_api_version_number => p_api_version_number
5881: ,p_init_msg_list => FND_API.G_FALSE
5882: ,p_commit => FND_API.G_FALSE
5883: ,p_user_id => x.user_id
5884: ,p_resp_id => l_responsibility_id
5885: ,p_app_id => 691
5886: ,x_return_status => x_return_status
5886: ,x_return_status => x_return_status
5887: ,x_msg_count => x_msg_count
5888: ,x_msg_data => x_msg_data
5889: );
5890: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5891: RAISE FND_API.G_EXC_ERROR;
5892: END IF;
5893: END LOOP;
5894:
5887: ,x_msg_count => x_msg_count
5888: ,x_msg_data => x_msg_data
5889: );
5890: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
5891: RAISE FND_API.G_EXC_ERROR;
5892: END IF;
5893: END LOOP;
5894:
5895: /****
5915: END IF;
5916:
5917: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
5918: p_api_version_number => p_api_version_number
5919: ,p_init_msg_list => FND_API.G_FALSE
5920: ,p_commit => FND_API.G_FALSE
5921: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5922:
5923: ,x_return_status => x_return_status
5916:
5917: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
5918: p_api_version_number => p_api_version_number
5919: ,p_init_msg_list => FND_API.G_FALSE
5920: ,p_commit => FND_API.G_FALSE
5921: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5922:
5923: ,x_return_status => x_return_status
5924: ,x_msg_count => x_msg_count
5917: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
5918: p_api_version_number => p_api_version_number
5919: ,p_init_msg_list => FND_API.G_FALSE
5920: ,p_commit => FND_API.G_FALSE
5921: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5922:
5923: ,x_return_status => x_return_status
5924: ,x_msg_count => x_msg_count
5925: ,x_msg_data => x_msg_data
5928: );
5929: ELSE
5930: FND_MESSAGE.set_name('PV', 'PV_NO_DEFAULT_RESP');
5931: FND_MSG_PUB.add;
5932: RAISE FND_API.G_EXC_ERROR;
5933: END IF;
5934:
5935: EXCEPTION
5936:
5934:
5935: EXCEPTION
5936:
5937: WHEN PVX_Utility_PVT.resource_locked THEN
5938: x_return_status := FND_API.g_ret_sts_error;
5939: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
5940:
5941: WHEN FND_API.G_EXC_ERROR THEN
5942: ROLLBACK TO assign_default_resp;
5937: WHEN PVX_Utility_PVT.resource_locked THEN
5938: x_return_status := FND_API.g_ret_sts_error;
5939: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
5940:
5941: WHEN FND_API.G_EXC_ERROR THEN
5942: ROLLBACK TO assign_default_resp;
5943: x_return_status := FND_API.G_RET_STS_ERROR;
5944: -- Standard call to get message count and if count=1, get the message
5945: FND_MSG_PUB.Count_And_Get (
5939: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
5940:
5941: WHEN FND_API.G_EXC_ERROR THEN
5942: ROLLBACK TO assign_default_resp;
5943: x_return_status := FND_API.G_RET_STS_ERROR;
5944: -- Standard call to get message count and if count=1, get the message
5945: FND_MSG_PUB.Count_And_Get (
5946: p_encoded => FND_API.G_FALSE,
5947: p_count => x_msg_count,
5942: ROLLBACK TO assign_default_resp;
5943: x_return_status := FND_API.G_RET_STS_ERROR;
5944: -- Standard call to get message count and if count=1, get the message
5945: FND_MSG_PUB.Count_And_Get (
5946: p_encoded => FND_API.G_FALSE,
5947: p_count => x_msg_count,
5948: p_data => x_msg_data
5949: );
5950:
5947: p_count => x_msg_count,
5948: p_data => x_msg_data
5949: );
5950:
5951: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5952: ROLLBACK TO assign_default_resp;
5953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5954: -- Standard call to get message count and if count=1, get the message
5955: FND_MSG_PUB.Count_And_Get (
5949: );
5950:
5951: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5952: ROLLBACK TO assign_default_resp;
5953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5954: -- Standard call to get message count and if count=1, get the message
5955: FND_MSG_PUB.Count_And_Get (
5956: p_encoded => FND_API.G_FALSE,
5957: p_count => x_msg_count,
5952: ROLLBACK TO assign_default_resp;
5953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5954: -- Standard call to get message count and if count=1, get the message
5955: FND_MSG_PUB.Count_And_Get (
5956: p_encoded => FND_API.G_FALSE,
5957: p_count => x_msg_count,
5958: p_data => x_msg_data
5959: );
5960:
5959: );
5960:
5961: WHEN OTHERS THEN
5962: ROLLBACK TO assign_default_resp;
5963: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5964: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5965: THEN
5966: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5967: END IF;
5966: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5967: END IF;
5968: -- Standard call to get message count and if count=1, get the message
5969: FND_MSG_PUB.Count_And_Get (
5970: p_encoded => FND_API.G_FALSE,
5971: p_count => x_msg_count,
5972: p_data => x_msg_data
5973: );
5974: END assign_default_resp;
5979: * when partner organization address changes.
5980: */
5981: PROCEDURE manage_resp_on_address_change(
5982: p_api_version_number IN NUMBER
5983: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5984: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5985: ,x_return_status OUT NOCOPY VARCHAR2
5986: ,x_msg_count OUT NOCOPY NUMBER
5987: ,x_msg_data OUT NOCOPY VARCHAR2
5980: */
5981: PROCEDURE manage_resp_on_address_change(
5982: p_api_version_number IN NUMBER
5983: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5984: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5985: ,x_return_status OUT NOCOPY VARCHAR2
5986: ,x_msg_count OUT NOCOPY NUMBER
5987: ,x_msg_data OUT NOCOPY VARCHAR2
5988: ,p_org_party_id IN NUMBER
6023: -- Standard Start of API savepoint
6024: SAVEPOINT manage_resp_on_address_change;
6025:
6026: -- Standard call to check for call compatibility.
6027: IF NOT Fnd_Api.Compatible_API_Call (l_api_version_number
6028: ,p_api_version_number
6029: ,l_api_name
6030: ,G_PKG_NAME
6031: )
6029: ,l_api_name
6030: ,G_PKG_NAME
6031: )
6032: THEN
6033: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6034: END IF;
6035:
6036: -- Initialize message list if p_init_msg_list is set to TRUE.
6037: IF Fnd_Api.to_Boolean( p_init_msg_list )
6033: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6034: END IF;
6035:
6036: -- Initialize message list if p_init_msg_list is set to TRUE.
6037: IF Fnd_Api.to_Boolean( p_init_msg_list )
6038: THEN
6039: Fnd_Msg_Pub.initialize;
6040: END IF;
6041:
6044: Debug_Log('PRIVATE API: ' || l_api_name || ' - START');
6045: END IF;
6046:
6047: -- Initialize API return status to SUCCESS
6048: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6049:
6050: FOR x IN c_get_partner_id LOOP
6051: IF (PV_DEBUG_HIGH_ON) THEN
6052: Debug_Log('manage_resp_on_address_change: x.partner_id = ' || x.partner_id);
6068: Debug_Log('manage_resp_on_address_change: y.responsibility_id = ' || y.responsibility_id);
6069: END IF;
6070: revoke_resp(
6071: p_api_version_number => p_api_version_number
6072: ,p_init_msg_list => FND_API.G_FALSE
6073: ,p_commit => p_commit
6074: ,p_user_id => primary_user_ids_tbl
6075: ,p_resp_id => y.responsibility_id
6076: ,x_return_status => x_return_status
6076: ,x_return_status => x_return_status
6077: ,x_msg_count => x_msg_count
6078: ,x_msg_data => x_msg_data
6079: );
6080: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6081: RAISE FND_API.G_EXC_ERROR;
6082: END IF;
6083: END IF;
6084: IF (y.user_role_code = G_BUSINESS) THEN
6077: ,x_msg_count => x_msg_count
6078: ,x_msg_data => x_msg_data
6079: );
6080: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6081: RAISE FND_API.G_EXC_ERROR;
6082: END IF;
6083: END IF;
6084: IF (y.user_role_code = G_BUSINESS) THEN
6085: -- Get all users of the partner_id and the user_role_code by calling get_partner_users().
6095: Debug_Log('manage_resp_on_address_change: y.responsibility_id = ' || y.responsibility_id);
6096: END IF;
6097: revoke_resp(
6098: p_api_version_number => p_api_version_number
6099: ,p_init_msg_list => FND_API.G_FALSE
6100: ,p_commit => p_commit
6101: ,p_user_id => business_user_ids_tbl
6102: ,p_resp_id => y.responsibility_id
6103: ,x_return_status => x_return_status
6103: ,x_return_status => x_return_status
6104: ,x_msg_count => x_msg_count
6105: ,x_msg_data => x_msg_data
6106: );
6107: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6108: RAISE FND_API.G_EXC_ERROR;
6109: END IF;
6110: END IF;
6111:
6104: ,x_msg_count => x_msg_count
6105: ,x_msg_data => x_msg_data
6106: );
6107: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6108: RAISE FND_API.G_EXC_ERROR;
6109: END IF;
6110: END IF;
6111:
6112: /****
6119: END IF;
6120:
6121: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
6122: p_api_version_number => p_api_version_number
6123: ,p_init_msg_list => FND_API.G_FALSE
6124: ,p_commit => FND_API.G_FALSE
6125: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6126:
6127: ,x_return_status => x_return_status
6120:
6121: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
6122: p_api_version_number => p_api_version_number
6123: ,p_init_msg_list => FND_API.G_FALSE
6124: ,p_commit => FND_API.G_FALSE
6125: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6126:
6127: ,x_return_status => x_return_status
6128: ,x_msg_count => x_msg_count
6121: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
6122: p_api_version_number => p_api_version_number
6123: ,p_init_msg_list => FND_API.G_FALSE
6124: ,p_commit => FND_API.G_FALSE
6125: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6126:
6127: ,x_return_status => x_return_status
6128: ,x_msg_count => x_msg_count
6129: ,x_msg_data => x_msg_data
6129: ,x_msg_data => x_msg_data
6130: ,p_ptnr_resp_id => y.ptnr_resp_id
6131: ,p_object_version_number => y.object_version_number
6132: );
6133: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6134: RAISE FND_API.G_EXC_ERROR;
6135: END IF;
6136:
6137: IF (y.program_id IS NOT NULL) THEN
6130: ,p_ptnr_resp_id => y.ptnr_resp_id
6131: ,p_object_version_number => y.object_version_number
6132: );
6133: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6134: RAISE FND_API.G_EXC_ERROR;
6135: END IF;
6136:
6137: IF (y.program_id IS NOT NULL) THEN
6138: get_program_resp(
6136:
6137: IF (y.program_id IS NOT NULL) THEN
6138: get_program_resp(
6139: p_api_version_number => p_api_version_number
6140: ,p_init_msg_list => FND_API.G_FALSE
6141: ,p_commit => FND_API.G_FALSE
6142: ,x_return_status => x_return_status
6143: ,x_msg_count => x_msg_count
6144: ,x_msg_data => x_msg_data
6137: IF (y.program_id IS NOT NULL) THEN
6138: get_program_resp(
6139: p_api_version_number => p_api_version_number
6140: ,p_init_msg_list => FND_API.G_FALSE
6141: ,p_commit => FND_API.G_FALSE
6142: ,x_return_status => x_return_status
6143: ,x_msg_count => x_msg_count
6144: ,x_msg_data => x_msg_data
6145: ,p_partner_id => x.partner_id
6147: ,p_program_id => y.program_id
6148: ,x_responsibility_id => l_responsibility_id
6149: ,x_resp_map_rule_id => l_resp_map_rule_id
6150: );
6151: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6152: RAISE FND_API.G_EXC_ERROR;
6153: END IF;
6154: ELSE
6155:
6148: ,x_responsibility_id => l_responsibility_id
6149: ,x_resp_map_rule_id => l_resp_map_rule_id
6150: );
6151: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6152: RAISE FND_API.G_EXC_ERROR;
6153: END IF;
6154: ELSE
6155:
6156: get_default_resp(
6154: ELSE
6155:
6156: get_default_resp(
6157: p_api_version_number => p_api_version_number
6158: ,p_init_msg_list => FND_API.G_FALSE
6159: ,p_commit => FND_API.G_FALSE
6160: ,x_return_status => x_return_status
6161: ,x_msg_count => x_msg_count
6162: ,x_msg_data => x_msg_data
6155:
6156: get_default_resp(
6157: p_api_version_number => p_api_version_number
6158: ,p_init_msg_list => FND_API.G_FALSE
6159: ,p_commit => FND_API.G_FALSE
6160: ,x_return_status => x_return_status
6161: ,x_msg_count => x_msg_count
6162: ,x_msg_data => x_msg_data
6163: ,p_partner_id => x.partner_id
6164: ,p_user_role_code => y.user_role_code
6165: ,x_responsibility_id => l_responsibility_id
6166: ,x_resp_map_rule_id => l_resp_map_rule_id
6167: );
6168: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6169: RAISE FND_API.G_EXC_ERROR;
6170: END IF;
6171: END IF;
6172: IF (l_responsibility_id is not null) and (l_resp_map_rule_id is not null) THEN
6165: ,x_responsibility_id => l_responsibility_id
6166: ,x_resp_map_rule_id => l_resp_map_rule_id
6167: );
6168: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6169: RAISE FND_API.G_EXC_ERROR;
6170: END IF;
6171: END IF;
6172: IF (l_responsibility_id is not null) and (l_resp_map_rule_id is not null) THEN
6173: IF (y.user_role_code = G_PRIMARY) THEN
6176: Debug_Log('manage_resp_on_address_change: assign: primary_user_ids_tbl('||l_cnt||')='||primary_user_ids_tbl(l_cnt));
6177: END IF;
6178: assign_resp(
6179: p_api_version_number => p_api_version_number
6180: ,p_init_msg_list => FND_API.G_FALSE
6181: ,p_commit => FND_API.G_FALSE
6182: ,p_user_id => primary_user_ids_tbl(l_cnt)
6183: ,p_resp_id => l_responsibility_id
6184: ,p_app_id => 691
6177: END IF;
6178: assign_resp(
6179: p_api_version_number => p_api_version_number
6180: ,p_init_msg_list => FND_API.G_FALSE
6181: ,p_commit => FND_API.G_FALSE
6182: ,p_user_id => primary_user_ids_tbl(l_cnt)
6183: ,p_resp_id => l_responsibility_id
6184: ,p_app_id => 691
6185: ,x_return_status => x_return_status
6185: ,x_return_status => x_return_status
6186: ,x_msg_count => x_msg_count
6187: ,x_msg_data => x_msg_data
6188: );
6189: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6190: RAISE FND_API.G_EXC_ERROR;
6191: END IF;
6192: END LOOP;
6193: ELSIF (y.user_role_code = G_BUSINESS) THEN
6186: ,x_msg_count => x_msg_count
6187: ,x_msg_data => x_msg_data
6188: );
6189: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6190: RAISE FND_API.G_EXC_ERROR;
6191: END IF;
6192: END LOOP;
6193: ELSIF (y.user_role_code = G_BUSINESS) THEN
6194: FOR l_cnt IN 1..business_user_ids_tbl.count LOOP
6196: Debug_Log('manage_resp_on_address_change: assign: business_user_ids_tbl('||l_cnt||')='||business_user_ids_tbl(l_cnt));
6197: END IF;
6198: assign_resp(
6199: p_api_version_number => p_api_version_number
6200: ,p_init_msg_list => FND_API.G_FALSE
6201: ,p_commit => FND_API.G_FALSE
6202: ,p_user_id => business_user_ids_tbl(l_cnt)
6203: ,p_resp_id => l_responsibility_id
6204: ,p_app_id => 691
6197: END IF;
6198: assign_resp(
6199: p_api_version_number => p_api_version_number
6200: ,p_init_msg_list => FND_API.G_FALSE
6201: ,p_commit => FND_API.G_FALSE
6202: ,p_user_id => business_user_ids_tbl(l_cnt)
6203: ,p_resp_id => l_responsibility_id
6204: ,p_app_id => 691
6205: ,x_return_status => x_return_status
6205: ,x_return_status => x_return_status
6206: ,x_msg_count => x_msg_count
6207: ,x_msg_data => x_msg_data
6208: );
6209: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6210: RAISE FND_API.G_EXC_ERROR;
6211: END IF;
6212: END LOOP;
6213: END IF;
6206: ,x_msg_count => x_msg_count
6207: ,x_msg_data => x_msg_data
6208: );
6209: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6210: RAISE FND_API.G_EXC_ERROR;
6211: END IF;
6212: END LOOP;
6213: END IF;
6214:
6234: END IF;
6235:
6236: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
6237: p_api_version_number => p_api_version_number
6238: ,p_init_msg_list => FND_API.G_FALSE
6239: ,p_commit => FND_API.G_FALSE
6240: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6241:
6242: ,x_return_status => x_return_status
6235:
6236: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
6237: p_api_version_number => p_api_version_number
6238: ,p_init_msg_list => FND_API.G_FALSE
6239: ,p_commit => FND_API.G_FALSE
6240: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6241:
6242: ,x_return_status => x_return_status
6243: ,x_msg_count => x_msg_count
6236: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
6237: p_api_version_number => p_api_version_number
6238: ,p_init_msg_list => FND_API.G_FALSE
6239: ,p_commit => FND_API.G_FALSE
6240: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6241:
6242: ,x_return_status => x_return_status
6243: ,x_msg_count => x_msg_count
6244: ,x_msg_data => x_msg_data
6244: ,x_msg_data => x_msg_data
6245: ,p_ge_ptnr_resps_rec => l_ge_ptnr_resps_rec
6246: ,x_ptnr_resp_id => l_ptnr_resp_id
6247: );
6248: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6249: RAISE FND_API.G_EXC_ERROR;
6250: END IF;
6251: END IF; -- End of IF (l_responsibility_id is not null) and (l_resp_map_rule_id is not null)
6252: END LOOP; -- End of FOR y IN c_get_resp_info(x.partner_id)
6245: ,p_ge_ptnr_resps_rec => l_ge_ptnr_resps_rec
6246: ,x_ptnr_resp_id => l_ptnr_resp_id
6247: );
6248: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6249: RAISE FND_API.G_EXC_ERROR;
6250: END IF;
6251: END IF; -- End of IF (l_responsibility_id is not null) and (l_resp_map_rule_id is not null)
6252: END LOOP; -- End of FOR y IN c_get_resp_info(x.partner_id)
6253:
6263: Debug_Log('manage_resp_on_address_change: c_check_prgm_resp_exist%NOTFOUND - G_PRIMARY');
6264: END IF;
6265: get_default_assign_addrow(
6266: p_api_version_number => p_api_version_number
6267: ,p_init_msg_list => FND_API.G_FALSE
6268: ,p_commit => FND_API.G_FALSE
6269: ,x_return_status => x_return_status
6270: ,x_msg_count => x_msg_count
6271: ,x_msg_data => x_msg_data
6264: END IF;
6265: get_default_assign_addrow(
6266: p_api_version_number => p_api_version_number
6267: ,p_init_msg_list => FND_API.G_FALSE
6268: ,p_commit => FND_API.G_FALSE
6269: ,x_return_status => x_return_status
6270: ,x_msg_count => x_msg_count
6271: ,x_msg_data => x_msg_data
6272: ,p_user_role_code => G_PRIMARY
6272: ,p_user_role_code => G_PRIMARY
6273: ,p_user_ids_tbl => primary_user_ids_tbl
6274: ,p_partner_id => x.partner_id
6275: );
6276: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6277: CLOSE c_check_prgm_resp_exist;
6278: RAISE FND_API.G_EXC_ERROR;
6279: END IF;
6280: END IF;
6274: ,p_partner_id => x.partner_id
6275: );
6276: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6277: CLOSE c_check_prgm_resp_exist;
6278: RAISE FND_API.G_EXC_ERROR;
6279: END IF;
6280: END IF;
6281: CLOSE c_check_prgm_resp_exist;
6282:
6290: Debug_Log('manage_resp_on_address_change: c_check_prgm_resp_exist%NOTFOUND - G_BUSINESS');
6291: END IF;
6292: get_default_assign_addrow(
6293: p_api_version_number => p_api_version_number
6294: ,p_init_msg_list => FND_API.G_FALSE
6295: ,p_commit => FND_API.G_FALSE
6296: ,x_return_status => x_return_status
6297: ,x_msg_count => x_msg_count
6298: ,x_msg_data => x_msg_data
6291: END IF;
6292: get_default_assign_addrow(
6293: p_api_version_number => p_api_version_number
6294: ,p_init_msg_list => FND_API.G_FALSE
6295: ,p_commit => FND_API.G_FALSE
6296: ,x_return_status => x_return_status
6297: ,x_msg_count => x_msg_count
6298: ,x_msg_data => x_msg_data
6299: ,p_user_role_code => G_BUSINESS
6299: ,p_user_role_code => G_BUSINESS
6300: ,p_user_ids_tbl => business_user_ids_tbl
6301: ,p_partner_id => x.partner_id
6302: );
6303: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6304: CLOSE c_check_prgm_resp_exist;
6305: RAISE FND_API.G_EXC_ERROR;
6306: END IF;
6307: END IF; -- End of IF (c_check_prgm_resp_exist%NOTFOUND)
6301: ,p_partner_id => x.partner_id
6302: );
6303: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6304: CLOSE c_check_prgm_resp_exist;
6305: RAISE FND_API.G_EXC_ERROR;
6306: END IF;
6307: END IF; -- End of IF (c_check_prgm_resp_exist%NOTFOUND)
6308: CLOSE c_check_prgm_resp_exist;
6309: END LOOP; -- End of FOR x IN c_get_partner_id
6308: CLOSE c_check_prgm_resp_exist;
6309: END LOOP; -- End of FOR x IN c_get_partner_id
6310:
6311: -- Check for commit
6312: IF FND_API.to_boolean(p_commit) THEN
6313: COMMIT;
6314: END IF;
6315:
6316: FND_MSG_PUB.count_and_get(
6313: COMMIT;
6314: END IF;
6315:
6316: FND_MSG_PUB.count_and_get(
6317: p_encoded => FND_API.g_false
6318: ,p_count => x_msg_count
6319: ,p_data => x_msg_data
6320: );
6321:
6320: );
6321:
6322: EXCEPTION
6323: WHEN PVX_Utility_PVT.resource_locked THEN
6324: x_return_status := FND_API.g_ret_sts_error;
6325: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
6326:
6327: WHEN FND_API.G_EXC_ERROR THEN
6328: ROLLBACK TO manage_resp_on_address_change;
6323: WHEN PVX_Utility_PVT.resource_locked THEN
6324: x_return_status := FND_API.g_ret_sts_error;
6325: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
6326:
6327: WHEN FND_API.G_EXC_ERROR THEN
6328: ROLLBACK TO manage_resp_on_address_change;
6329: x_return_status := FND_API.G_RET_STS_ERROR;
6330: -- Standard call to get message count and if count=1, get the message
6331: FND_MSG_PUB.Count_And_Get (
6325: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
6326:
6327: WHEN FND_API.G_EXC_ERROR THEN
6328: ROLLBACK TO manage_resp_on_address_change;
6329: x_return_status := FND_API.G_RET_STS_ERROR;
6330: -- Standard call to get message count and if count=1, get the message
6331: FND_MSG_PUB.Count_And_Get (
6332: p_encoded => FND_API.G_FALSE,
6333: p_count => x_msg_count,
6328: ROLLBACK TO manage_resp_on_address_change;
6329: x_return_status := FND_API.G_RET_STS_ERROR;
6330: -- Standard call to get message count and if count=1, get the message
6331: FND_MSG_PUB.Count_And_Get (
6332: p_encoded => FND_API.G_FALSE,
6333: p_count => x_msg_count,
6334: p_data => x_msg_data
6335: );
6336:
6333: p_count => x_msg_count,
6334: p_data => x_msg_data
6335: );
6336:
6337: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6338: ROLLBACK TO manage_resp_on_address_change;
6339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6340: -- Standard call to get message count and if count=1, get the message
6341: FND_MSG_PUB.Count_And_Get (
6335: );
6336:
6337: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6338: ROLLBACK TO manage_resp_on_address_change;
6339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6340: -- Standard call to get message count and if count=1, get the message
6341: FND_MSG_PUB.Count_And_Get (
6342: p_encoded => FND_API.G_FALSE,
6343: p_count => x_msg_count,
6338: ROLLBACK TO manage_resp_on_address_change;
6339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6340: -- Standard call to get message count and if count=1, get the message
6341: FND_MSG_PUB.Count_And_Get (
6342: p_encoded => FND_API.G_FALSE,
6343: p_count => x_msg_count,
6344: p_data => x_msg_data
6345: );
6346:
6345: );
6346:
6347: WHEN OTHERS THEN
6348: ROLLBACK TO manage_resp_on_address_change;
6349: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6350: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6351: THEN
6352: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
6353: END IF;
6352: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
6353: END IF;
6354: -- Standard call to get message count and if count=1, get the message
6355: FND_MSG_PUB.Count_And_Get (
6356: p_encoded => FND_API.G_FALSE,
6357: p_count => x_msg_count,
6358: p_data => x_msg_data
6359: );
6360: END manage_resp_on_address_change;
6368: * partner is inactivated, we want to revoke all the responsibilities.
6369: */
6370: PROCEDURE revoke_default_resp (
6371: p_api_version_number IN NUMBER
6372: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
6373: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
6374: ,x_return_status OUT NOCOPY VARCHAR2
6375: ,x_msg_count OUT NOCOPY NUMBER
6376: ,x_msg_data OUT NOCOPY VARCHAR2
6369: */
6370: PROCEDURE revoke_default_resp (
6371: p_api_version_number IN NUMBER
6372: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
6373: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
6374: ,x_return_status OUT NOCOPY VARCHAR2
6375: ,x_msg_count OUT NOCOPY NUMBER
6376: ,x_msg_data OUT NOCOPY VARCHAR2
6377: ,p_partner_id IN NUMBER
6395: -- Standard Start of API savepoint
6396: SAVEPOINT revoke_default_resp;
6397:
6398: -- Standard call to check for call compatibility.
6399: IF NOT Fnd_Api.Compatible_API_Call (l_api_version_number
6400: ,p_api_version_number
6401: ,l_api_name
6402: ,G_PKG_NAME
6403: )
6401: ,l_api_name
6402: ,G_PKG_NAME
6403: )
6404: THEN
6405: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6406: END IF;
6407:
6408: -- Initialize message list if p_init_msg_list is set to TRUE.
6409: IF Fnd_Api.to_Boolean( p_init_msg_list )
6405: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6406: END IF;
6407:
6408: -- Initialize message list if p_init_msg_list is set to TRUE.
6409: IF Fnd_Api.to_Boolean( p_init_msg_list )
6410: THEN
6411: Fnd_Msg_Pub.initialize;
6412: END IF;
6413: /*
6423: WRITE_LOG(l_api_name, 'PRIVATE API: ' || l_api_name || ' - START');
6424: END IF;
6425:
6426: -- Initialize API return status to SUCCESS
6427: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6428:
6429: -- Get all users of the partner_id and the user_role_code.
6430: primary_user_ids_tbl := get_partner_users_2(p_partner_id, G_PRIMARY);
6431: business_user_ids_tbl := get_partner_users_2(p_partner_id, G_BUSINESS);
6437: WRITE_LOG(l_api_name, 'revoke_default_resp: x.responsibility_id = ' || x.responsibility_id);
6438: END IF;
6439: revoke_resp(
6440: p_api_version_number => p_api_version_number
6441: ,p_init_msg_list => FND_API.G_FALSE
6442: ,p_commit => p_commit
6443: ,p_user_id => primary_user_ids_tbl
6444: ,p_resp_id => x.responsibility_id
6445: ,x_return_status => x_return_status
6445: ,x_return_status => x_return_status
6446: ,x_msg_count => x_msg_count
6447: ,x_msg_data => x_msg_data
6448: );
6449: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6450: RAISE FND_API.G_EXC_ERROR;
6451: END IF;
6452: ELSIF (x.user_role_code = G_BUSINESS) THEN
6453: IF (PV_DEBUG_HIGH_ON) THEN
6446: ,x_msg_count => x_msg_count
6447: ,x_msg_data => x_msg_data
6448: );
6449: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6450: RAISE FND_API.G_EXC_ERROR;
6451: END IF;
6452: ELSIF (x.user_role_code = G_BUSINESS) THEN
6453: IF (PV_DEBUG_HIGH_ON) THEN
6454: Debug_Log('revoke_default_resp: x.responsibility_id = ' || x.responsibility_id);
6455: WRITE_LOG(l_api_name, 'revoke_default_resp: x.responsibility_id = ' || x.responsibility_id);
6456: END IF;
6457: revoke_resp(
6458: p_api_version_number => p_api_version_number
6459: ,p_init_msg_list => FND_API.G_FALSE
6460: ,p_commit => p_commit
6461: ,p_user_id => business_user_ids_tbl
6462: ,p_resp_id => x.responsibility_id
6463: ,x_return_status => x_return_status
6463: ,x_return_status => x_return_status
6464: ,x_msg_count => x_msg_count
6465: ,x_msg_data => x_msg_data
6466: );
6467: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6468: RAISE FND_API.G_EXC_ERROR;
6469: END IF;
6470: END IF;
6471:
6464: ,x_msg_count => x_msg_count
6465: ,x_msg_data => x_msg_data
6466: );
6467: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6468: RAISE FND_API.G_EXC_ERROR;
6469: END IF;
6470: END IF;
6471:
6472: /****
6480: END IF;
6481:
6482: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
6483: p_api_version_number => p_api_version_number
6484: ,p_init_msg_list => FND_API.G_FALSE
6485: ,p_commit => FND_API.G_FALSE
6486: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6487:
6488: ,x_return_status => x_return_status
6481:
6482: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
6483: p_api_version_number => p_api_version_number
6484: ,p_init_msg_list => FND_API.G_FALSE
6485: ,p_commit => FND_API.G_FALSE
6486: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6487:
6488: ,x_return_status => x_return_status
6489: ,x_msg_count => x_msg_count
6482: PV_Ge_Ptnr_Resps_PVT.Delete_Ge_Ptnr_Resps(
6483: p_api_version_number => p_api_version_number
6484: ,p_init_msg_list => FND_API.G_FALSE
6485: ,p_commit => FND_API.G_FALSE
6486: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6487:
6488: ,x_return_status => x_return_status
6489: ,x_msg_count => x_msg_count
6490: ,x_msg_data => x_msg_data
6490: ,x_msg_data => x_msg_data
6491: ,p_ptnr_resp_id => x.ptnr_resp_id
6492: ,p_object_version_number => x.object_version_number
6493: );
6494: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6495: RAISE FND_API.G_EXC_ERROR;
6496: END IF;
6497: END LOOP;
6498: -- Check for commit
6491: ,p_ptnr_resp_id => x.ptnr_resp_id
6492: ,p_object_version_number => x.object_version_number
6493: );
6494: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6495: RAISE FND_API.G_EXC_ERROR;
6496: END IF;
6497: END LOOP;
6498: -- Check for commit
6499: IF FND_API.to_boolean(p_commit) THEN
6495: RAISE FND_API.G_EXC_ERROR;
6496: END IF;
6497: END LOOP;
6498: -- Check for commit
6499: IF FND_API.to_boolean(p_commit) THEN
6500: COMMIT;
6501: END IF;
6502:
6503: FND_MSG_PUB.count_and_get(
6500: COMMIT;
6501: END IF;
6502:
6503: FND_MSG_PUB.count_and_get(
6504: p_encoded => FND_API.g_false
6505: ,p_count => x_msg_count
6506: ,p_data => x_msg_data
6507: );
6508:
6508:
6509: EXCEPTION
6510:
6511: WHEN PVX_Utility_PVT.resource_locked THEN
6512: x_return_status := FND_API.g_ret_sts_error;
6513: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
6514:
6515: WHEN FND_API.G_EXC_ERROR THEN
6516: ROLLBACK TO revoke_default_resp;
6511: WHEN PVX_Utility_PVT.resource_locked THEN
6512: x_return_status := FND_API.g_ret_sts_error;
6513: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
6514:
6515: WHEN FND_API.G_EXC_ERROR THEN
6516: ROLLBACK TO revoke_default_resp;
6517: x_return_status := FND_API.G_RET_STS_ERROR;
6518: -- Standard call to get message count and if count=1, get the message
6519: FND_MSG_PUB.Count_And_Get (
6513: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
6514:
6515: WHEN FND_API.G_EXC_ERROR THEN
6516: ROLLBACK TO revoke_default_resp;
6517: x_return_status := FND_API.G_RET_STS_ERROR;
6518: -- Standard call to get message count and if count=1, get the message
6519: FND_MSG_PUB.Count_And_Get (
6520: p_encoded => FND_API.G_FALSE,
6521: p_count => x_msg_count,
6516: ROLLBACK TO revoke_default_resp;
6517: x_return_status := FND_API.G_RET_STS_ERROR;
6518: -- Standard call to get message count and if count=1, get the message
6519: FND_MSG_PUB.Count_And_Get (
6520: p_encoded => FND_API.G_FALSE,
6521: p_count => x_msg_count,
6522: p_data => x_msg_data
6523: );
6524:
6521: p_count => x_msg_count,
6522: p_data => x_msg_data
6523: );
6524:
6525: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6526: ROLLBACK TO revoke_default_resp;
6527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6528: -- Standard call to get message count and if count=1, get the message
6529: FND_MSG_PUB.Count_And_Get (
6523: );
6524:
6525: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6526: ROLLBACK TO revoke_default_resp;
6527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6528: -- Standard call to get message count and if count=1, get the message
6529: FND_MSG_PUB.Count_And_Get (
6530: p_encoded => FND_API.G_FALSE,
6531: p_count => x_msg_count,
6526: ROLLBACK TO revoke_default_resp;
6527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6528: -- Standard call to get message count and if count=1, get the message
6529: FND_MSG_PUB.Count_And_Get (
6530: p_encoded => FND_API.G_FALSE,
6531: p_count => x_msg_count,
6532: p_data => x_msg_data
6533: );
6534:
6533: );
6534:
6535: WHEN OTHERS THEN
6536: ROLLBACK TO revoke_default_resp;
6537: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6538: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6539: THEN
6540: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
6541: END IF;
6540: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
6541: END IF;
6542: -- Standard call to get message count and if count=1, get the message
6543: FND_MSG_PUB.Count_And_Get (
6544: p_encoded => FND_API.G_FALSE,
6545: p_count => x_msg_count,
6546: p_data => x_msg_data
6547: );
6548: END revoke_default_resp;
6556:
6557: PROCEDURE adjust_user_resps
6558: (
6559: p_api_version_number IN NUMBER
6560: ,p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false
6561: ,p_commit IN VARCHAR2 := Fnd_Api.g_false
6562: ,x_return_status OUT NOCOPY VARCHAR2
6563: ,x_msg_count OUT NOCOPY NUMBER
6564: ,x_msg_data OUT NOCOPY VARCHAR2
6557: PROCEDURE adjust_user_resps
6558: (
6559: p_api_version_number IN NUMBER
6560: ,p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false
6561: ,p_commit IN VARCHAR2 := Fnd_Api.g_false
6562: ,x_return_status OUT NOCOPY VARCHAR2
6563: ,x_msg_count OUT NOCOPY NUMBER
6564: ,x_msg_data OUT NOCOPY VARCHAR2
6565: ,p_user_id IN NUMBER
6591: -- Standard Start of API savepoint
6592: SAVEPOINT assign_user_resps;
6593:
6594: -- Standard call to check for call compatibility.
6595: IF NOT Fnd_Api.Compatible_API_Call (l_api_version_number
6596: ,p_api_version_number
6597: ,l_api_name
6598: ,G_PKG_NAME
6599: )
6597: ,l_api_name
6598: ,G_PKG_NAME
6599: )
6600: THEN
6601: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6602: END IF;
6603:
6604: -- Initialize message list if p_init_msg_list is set to TRUE.
6605: IF Fnd_Api.to_Boolean( p_init_msg_list )
6601: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6602: END IF;
6603:
6604: -- Initialize message list if p_init_msg_list is set to TRUE.
6605: IF Fnd_Api.to_Boolean( p_init_msg_list )
6606: THEN
6607: Fnd_Msg_Pub.initialize;
6608: END IF;
6609:
6612: Debug_Log('PRIVATE API: ' || l_api_name || ' - START');
6613: END IF;
6614:
6615: -- Initialize API return status to SUCCESS
6616: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6617:
6618: FOR x IN c_get_resp_id LOOP
6619: IF (PV_DEBUG_HIGH_ON) THEN
6620: Debug_Log('adjust_user_resps: x.responsibility_id: ' || x.responsibility_id);
6645: END IF;
6646:
6647: revoke_resp(
6648: p_api_version_number => p_api_version_number
6649: ,p_init_msg_list => FND_API.G_FALSE
6650: ,p_commit => FND_API.G_FALSE
6651: ,p_user_id => y.user_id
6652: ,p_resp_id => y.responsibility_id
6653: ,p_app_id => y.responsibility_application_id
6646:
6647: revoke_resp(
6648: p_api_version_number => p_api_version_number
6649: ,p_init_msg_list => FND_API.G_FALSE
6650: ,p_commit => FND_API.G_FALSE
6651: ,p_user_id => y.user_id
6652: ,p_resp_id => y.responsibility_id
6653: ,p_app_id => y.responsibility_application_id
6654: ,p_security_group_id => y.security_group_id
6657: ,x_return_status => x_return_status
6658: ,x_msg_count => x_msg_count
6659: ,x_msg_data => x_msg_data
6660: );
6661: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6662: RAISE FND_API.G_EXC_ERROR;
6663: END IF;
6664:
6665: assign_resp (
6658: ,x_msg_count => x_msg_count
6659: ,x_msg_data => x_msg_data
6660: );
6661: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6662: RAISE FND_API.G_EXC_ERROR;
6663: END IF;
6664:
6665: assign_resp (
6666: p_api_version_number => p_api_version_number
6663: END IF;
6664:
6665: assign_resp (
6666: p_api_version_number => p_api_version_number
6667: ,p_init_msg_list => FND_API.G_FALSE
6668: ,p_commit => FND_API.G_FALSE
6669: ,p_user_id => p_user_id
6670: ,p_resp_id => x.responsibility_id
6671: ,p_app_id => 691
6664:
6665: assign_resp (
6666: p_api_version_number => p_api_version_number
6667: ,p_init_msg_list => FND_API.G_FALSE
6668: ,p_commit => FND_API.G_FALSE
6669: ,p_user_id => p_user_id
6670: ,p_resp_id => x.responsibility_id
6671: ,p_app_id => 691
6672: ,x_return_status => x_return_status
6672: ,x_return_status => x_return_status
6673: ,x_msg_count => x_msg_count
6674: ,x_msg_data => x_msg_data
6675: );
6676: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6677: RAISE FND_API.G_EXC_ERROR;
6678: END IF;
6679: END LOOP;
6680: END IF;
6673: ,x_msg_count => x_msg_count
6674: ,x_msg_data => x_msg_data
6675: );
6676: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6677: RAISE FND_API.G_EXC_ERROR;
6678: END IF;
6679: END LOOP;
6680: END IF;
6681: END LOOP;
6680: END IF;
6681: END LOOP;
6682:
6683: -- Check for commit
6684: IF FND_API.to_boolean(p_commit) THEN
6685: COMMIT;
6686: END IF;
6687:
6688: FND_MSG_PUB.count_and_get(
6685: COMMIT;
6686: END IF;
6687:
6688: FND_MSG_PUB.count_and_get(
6689: p_encoded => FND_API.g_false
6690: ,p_count => x_msg_count
6691: ,p_data => x_msg_data
6692: );
6693:
6693:
6694: EXCEPTION
6695:
6696: WHEN PVX_Utility_PVT.resource_locked THEN
6697: x_return_status := FND_API.g_ret_sts_error;
6698: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
6699:
6700: WHEN FND_API.G_EXC_ERROR THEN
6701: ROLLBACK TO assign_user_resps;
6696: WHEN PVX_Utility_PVT.resource_locked THEN
6697: x_return_status := FND_API.g_ret_sts_error;
6698: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
6699:
6700: WHEN FND_API.G_EXC_ERROR THEN
6701: ROLLBACK TO assign_user_resps;
6702: x_return_status := FND_API.G_RET_STS_ERROR;
6703: -- Standard call to get message count and if count=1, get the message
6704: FND_MSG_PUB.Count_And_Get (
6698: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
6699:
6700: WHEN FND_API.G_EXC_ERROR THEN
6701: ROLLBACK TO assign_user_resps;
6702: x_return_status := FND_API.G_RET_STS_ERROR;
6703: -- Standard call to get message count and if count=1, get the message
6704: FND_MSG_PUB.Count_And_Get (
6705: p_encoded => FND_API.G_FALSE,
6706: p_count => x_msg_count,
6701: ROLLBACK TO assign_user_resps;
6702: x_return_status := FND_API.G_RET_STS_ERROR;
6703: -- Standard call to get message count and if count=1, get the message
6704: FND_MSG_PUB.Count_And_Get (
6705: p_encoded => FND_API.G_FALSE,
6706: p_count => x_msg_count,
6707: p_data => x_msg_data
6708: );
6709:
6706: p_count => x_msg_count,
6707: p_data => x_msg_data
6708: );
6709:
6710: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6711: ROLLBACK TO assign_user_resps;
6712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6713: -- Standard call to get message count and if count=1, get the message
6714: FND_MSG_PUB.Count_And_Get (
6708: );
6709:
6710: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6711: ROLLBACK TO assign_user_resps;
6712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6713: -- Standard call to get message count and if count=1, get the message
6714: FND_MSG_PUB.Count_And_Get (
6715: p_encoded => FND_API.G_FALSE,
6716: p_count => x_msg_count,
6711: ROLLBACK TO assign_user_resps;
6712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6713: -- Standard call to get message count and if count=1, get the message
6714: FND_MSG_PUB.Count_And_Get (
6715: p_encoded => FND_API.G_FALSE,
6716: p_count => x_msg_count,
6717: p_data => x_msg_data
6718: );
6719:
6718: );
6719:
6720: WHEN OTHERS THEN
6721: ROLLBACK TO assign_user_resps;
6722: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6723: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6724: THEN
6725: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
6726: END IF;
6725: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
6726: END IF;
6727: -- Standard call to get message count and if count=1, get the message
6728: FND_MSG_PUB.Count_And_Get (
6729: p_encoded => FND_API.G_FALSE,
6730: p_count => x_msg_count,
6731: p_data => x_msg_data
6732: );
6733:
6758: RAISE no_source_resp_map_rule_id;
6759: END IF;
6760:
6761: l_api_version_number := 1.0;
6762: l_init_msg_list := FND_API.g_true;
6763:
6764: IF (p_action = 'CRE') THEN
6765: Debug_Log('exec_cre_upd_del_resp_mapping: execute create_resp_mapping');
6766: create_resp_mapping(
6764: IF (p_action = 'CRE') THEN
6765: Debug_Log('exec_cre_upd_del_resp_mapping: execute create_resp_mapping');
6766: create_resp_mapping(
6767: p_api_version_number => l_api_version_number
6768: ,p_init_msg_list => FND_API.G_FALSE
6769: ,x_return_status => l_return_status
6770: ,x_msg_count => l_msg_count
6771: ,x_msg_data => l_msg_data
6772: ,p_source_resp_map_rule_id => p_source_resp_map_rule_id
6774: ELSIF (p_action = 'DEL') THEN
6775: Debug_Log('exec_cre_upd_del_resp_mapping: execute delete_resp_mapping');
6776: delete_resp_mapping(
6777: p_api_version_number => l_api_version_number
6778: ,p_init_msg_list => FND_API.G_FALSE
6779: ,x_return_status => l_return_status
6780: ,x_msg_count => l_msg_count
6781: ,x_msg_data => l_msg_data
6782: ,p_source_resp_map_rule_id => p_source_resp_map_rule_id
6784: ELSIF (p_action = 'UPD') THEN
6785: Debug_Log('exec_cre_upd_del_resp_mapping: execute update_resp_mapping');
6786: update_resp_mapping(
6787: p_api_version_number => l_api_version_number
6788: ,p_init_msg_list => FND_API.G_FALSE
6789: ,x_return_status => l_return_status
6790: ,x_msg_count => l_msg_count
6791: ,x_msg_data => l_msg_data
6792: ,p_source_resp_map_rule_id => p_source_resp_map_rule_id
6792: ,p_source_resp_map_rule_id => p_source_resp_map_rule_id
6793: );
6794: END IF;
6795:
6796: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6797: Debug_Log('exec_cre_upd_del_resp_mapping: l_return_status <> FND_API.G_RET_STS_SUCCESS');
6798: RAISE exc_error;
6799: END IF;
6800:
6793: );
6794: END IF;
6795:
6796: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6797: Debug_Log('exec_cre_upd_del_resp_mapping: l_return_status <> FND_API.G_RET_STS_SUCCESS');
6798: RAISE exc_error;
6799: END IF;
6800:
6801: Debug_Log('exec_cre_upd_del_resp_mapping: END');
6817: Debug_Log('------------exc_error-----------------');
6818: IF l_msg_count > 1 THEN
6819: fnd_msg_pub.reset;
6820: FOR i IN 1..l_msg_count LOOP
6821: Debug_Log(fnd_msg_pub.get(p_encoded => fnd_api.g_false));
6822: END LOOP;
6823: ELSE
6824: Debug_Log(l_msg_data);
6825: END IF;
6860: RAISE no_user_name;
6861: END IF;
6862:
6863: l_api_version_number := 1.0;
6864: l_init_msg_list := FND_API.g_true;
6865:
6866: IF (p_action = 'A') THEN
6867: Debug_Log('exec_asgn_or_rvok_user_resps: execute assign_user_resps');
6868: assign_user_resps(
6866: IF (p_action = 'A') THEN
6867: Debug_Log('exec_asgn_or_rvok_user_resps: execute assign_user_resps');
6868: assign_user_resps(
6869: p_api_version_number => l_api_version_number
6870: ,p_init_msg_list => FND_API.G_FALSE
6871: ,x_return_status => l_return_status
6872: ,x_msg_count => l_msg_count
6873: ,x_msg_data => l_msg_data
6874: ,p_user_name => p_user_name
6876: ELSE
6877: Debug_Log('exec_asgn_or_rvok_user_resps: execute revoke_user_resps');
6878: revoke_user_resps(
6879: p_api_version_number => l_api_version_number
6880: ,p_init_msg_list => FND_API.G_FALSE
6881: ,x_return_status => l_return_status
6882: ,x_msg_count => l_msg_count
6883: ,x_msg_data => l_msg_data
6884: ,p_user_name => p_user_name
6884: ,p_user_name => p_user_name
6885: );
6886: END IF;
6887:
6888: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6889: Debug_Log('exec_asgn_or_rvok_user_resps: l_return_status <> FND_API.G_RET_STS_SUCCESS');
6890: RAISE exc_error;
6891: END IF;
6892:
6885: );
6886: END IF;
6887:
6888: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6889: Debug_Log('exec_asgn_or_rvok_user_resps: l_return_status <> FND_API.G_RET_STS_SUCCESS');
6890: RAISE exc_error;
6891: END IF;
6892:
6893: Debug_Log('exec_asgn_or_rvok_user_resps: END');
6909: Debug_Log('------------exc_error-----------------');
6910: IF l_msg_count > 1 THEN
6911: fnd_msg_pub.reset;
6912: FOR i IN 1..l_msg_count LOOP
6913: Debug_Log(fnd_msg_pub.get(p_encoded => fnd_api.g_false));
6914: END LOOP;
6915: ELSE
6916: Debug_Log(l_msg_data);
6917: END IF;
6977: IF (PV_DEBUG_HIGH_ON) THEN
6978: WRITE_LOG(l_api_name, 'l_location_id = ' ||to_char( l_location_id));
6979: END IF;
6980:
6981: x_return_status := FND_API.G_RET_STS_SUCCESS;
6982:
6983: -- modified by pukken to get the partner_party_id from the location_id.
6984: IF ( l_key like 'oracle.apps.ar.hz.Location.update%' ) THEN
6985: FOR x in get_party_id_csr ( l_location_id ) LOOP
6987: WRITE_LOG(l_api_name, 'partner party_id = ' || to_char(x.partner_party_id) );
6988: END IF;
6989: Pv_User_Resp_Pvt.manage_resp_on_address_change (
6990: p_api_version_number => 1.0
6991: ,p_init_msg_list => FND_API.G_FALSE
6992: ,p_commit => FND_API.G_FALSE
6993: ,x_return_status => x_return_status
6994: ,x_msg_count => x_msg_count
6995: ,x_msg_data => x_msg_data
6988: END IF;
6989: Pv_User_Resp_Pvt.manage_resp_on_address_change (
6990: p_api_version_number => 1.0
6991: ,p_init_msg_list => FND_API.G_FALSE
6992: ,p_commit => FND_API.G_FALSE
6993: ,x_return_status => x_return_status
6994: ,x_msg_count => x_msg_count
6995: ,x_msg_data => x_msg_data
6996: ,p_org_party_id => x.partner_party_id
7027: WRITE_LOG(l_api_name, 'in party site update evnt before manage update address api call');
7028: END IF;
7029: Pv_User_Resp_Pvt.manage_resp_on_address_change (
7030: p_api_version_number => 1.0
7031: ,p_init_msg_list => FND_API.G_FALSE
7032: ,p_commit => FND_API.G_FALSE
7033: ,x_return_status => x_return_status
7034: ,x_msg_count => x_msg_count
7035: ,x_msg_data => x_msg_data
7028: END IF;
7029: Pv_User_Resp_Pvt.manage_resp_on_address_change (
7030: p_api_version_number => 1.0
7031: ,p_init_msg_list => FND_API.G_FALSE
7032: ,p_commit => FND_API.G_FALSE
7033: ,x_return_status => x_return_status
7034: ,x_msg_count => x_msg_count
7035: ,x_msg_data => x_msg_data
7036: ,p_org_party_id => l_party_id
7040: END IF;
7041: END IF;-- end of if , if the party is an active partner
7042: END IF; -- end of if , if the event is PartySite.update
7043:
7044: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
7045: RAISE FND_API.G_EXC_ERROR;
7046: END IF;
7047: RETURN 'SUCCESS';
7048: EXCEPTION
7041: END IF;-- end of if , if the party is an active partner
7042: END IF; -- end of if , if the event is PartySite.update
7043:
7044: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
7045: RAISE FND_API.G_EXC_ERROR;
7046: END IF;
7047: RETURN 'SUCCESS';
7048: EXCEPTION
7049: WHEN FND_API.G_EXC_ERROR THEN
7045: RAISE FND_API.G_EXC_ERROR;
7046: END IF;
7047: RETURN 'SUCCESS';
7048: EXCEPTION
7049: WHEN FND_API.G_EXC_ERROR THEN
7050: IF (PV_DEBUG_HIGH_ON) THEN
7051: WRITE_LOG(l_api_name, 'G_EXC_ERROR');
7052: END IF;
7053: WF_CORE.CONTEXT('Pv_User_Resp_Pvt', 'manage_resp_on_address_change', p_event.getEventName(), p_subscription_guid);
7068: * two parties are merged.
7069: */
7070: PROCEDURE manage_merged_party_memb_resp(
7071: p_api_version_number IN NUMBER
7072: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
7073: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
7074: ,x_return_status OUT NOCOPY VARCHAR2
7075: ,x_msg_count OUT NOCOPY NUMBER
7076: ,x_msg_data OUT NOCOPY VARCHAR2
7069: */
7070: PROCEDURE manage_merged_party_memb_resp(
7071: p_api_version_number IN NUMBER
7072: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
7073: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
7074: ,x_return_status OUT NOCOPY VARCHAR2
7075: ,x_msg_count OUT NOCOPY NUMBER
7076: ,x_msg_data OUT NOCOPY VARCHAR2
7077: ,p_from_partner_id IN NUMBER
7121: -- Standard Start of API savepoint
7122: SAVEPOINT manage_merged_party_memb_resp;
7123:
7124: -- Standard call to check for call compatibility.
7125: IF NOT Fnd_Api.Compatible_API_Call (l_api_version_number
7126: ,p_api_version_number
7127: ,l_api_name
7128: ,G_PKG_NAME
7129: )
7127: ,l_api_name
7128: ,G_PKG_NAME
7129: )
7130: THEN
7131: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7132: END IF;
7133:
7134: -- Initialize message list if p_init_msg_list is set to TRUE.
7135: IF Fnd_Api.to_Boolean( p_init_msg_list )
7131: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7132: END IF;
7133:
7134: -- Initialize message list if p_init_msg_list is set to TRUE.
7135: IF Fnd_Api.to_Boolean( p_init_msg_list )
7136: THEN
7137: Fnd_Msg_Pub.initialize;
7138: END IF;
7139:
7140: -- Debug Message
7141: Debug_Log('PRIVATE API: ' || l_api_name || ' - START');
7142:
7143: -- Initialize API return status to SUCCESS
7144: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
7145:
7146: g_log_to_file := 'Y';
7147:
7148: revoke_default_resp (
7146: g_log_to_file := 'Y';
7147:
7148: revoke_default_resp (
7149: p_api_version_number => 1.0
7150: ,p_init_msg_list => FND_API.G_FALSE
7151: ,p_commit => FND_API.G_FALSE
7152: ,x_return_status => x_return_status
7153: ,x_msg_count => x_msg_count
7154: ,x_msg_data => x_msg_data
7147:
7148: revoke_default_resp (
7149: p_api_version_number => 1.0
7150: ,p_init_msg_list => FND_API.G_FALSE
7151: ,p_commit => FND_API.G_FALSE
7152: ,x_return_status => x_return_status
7153: ,x_msg_count => x_msg_count
7154: ,x_msg_data => x_msg_data
7155: ,p_partner_id => p_from_partner_id
7153: ,x_msg_count => x_msg_count
7154: ,x_msg_data => x_msg_data
7155: ,p_partner_id => p_from_partner_id
7156: );
7157: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
7158: RAISE FND_API.G_EXC_ERROR;
7159: END IF;
7160:
7161: FOR a IN c_is_business_user_exist LOOP
7154: ,x_msg_data => x_msg_data
7155: ,p_partner_id => p_from_partner_id
7156: );
7157: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
7158: RAISE FND_API.G_EXC_ERROR;
7159: END IF;
7160:
7161: FOR a IN c_is_business_user_exist LOOP
7162: Debug_Log('manage_merged_party_memb_resp: start to create resp for business users');
7172: l_responsibility_id := null;
7173: l_resp_map_rule_id := null;
7174: get_program_resp(
7175: p_api_version_number => p_api_version_number
7176: ,p_init_msg_list => FND_API.G_FALSE
7177: ,p_commit => FND_API.G_FALSE
7178: ,x_return_status => x_return_status
7179: ,x_msg_count => x_msg_count
7180: ,x_msg_data => x_msg_data
7173: l_resp_map_rule_id := null;
7174: get_program_resp(
7175: p_api_version_number => p_api_version_number
7176: ,p_init_msg_list => FND_API.G_FALSE
7177: ,p_commit => FND_API.G_FALSE
7178: ,x_return_status => x_return_status
7179: ,x_msg_count => x_msg_count
7180: ,x_msg_data => x_msg_data
7181: ,p_partner_id => x.partner_id
7187:
7188: Debug_Log('manage_merged_party_memb_resp: l_responsibility_id = ' || l_responsibility_id);
7189: Debug_Log('manage_merged_party_memb_resp: l_resp_map_rule_id = ' || l_resp_map_rule_id);
7190:
7191: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
7192: RAISE FND_API.G_EXC_ERROR;
7193: END IF;
7194:
7195: IF (l_responsibility_id is not null) and (l_resp_map_rule_id is not null) THEN
7188: Debug_Log('manage_merged_party_memb_resp: l_responsibility_id = ' || l_responsibility_id);
7189: Debug_Log('manage_merged_party_memb_resp: l_resp_map_rule_id = ' || l_resp_map_rule_id);
7190:
7191: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
7192: RAISE FND_API.G_EXC_ERROR;
7193: END IF;
7194:
7195: IF (l_responsibility_id is not null) and (l_resp_map_rule_id is not null) THEN
7196: l_resp_exist := 'Y';
7212: Debug_Log('manage_merged_party_memb_resp: l_ge_ptnr_resps_rec.resp_type_code = ' || l_ge_ptnr_resps_rec.resp_type_code);
7213:
7214: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
7215: p_api_version_number => p_api_version_number
7216: ,p_init_msg_list => FND_API.G_FALSE
7217: ,p_commit => FND_API.G_FALSE
7218: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
7219:
7220: ,x_return_status => x_return_status
7213:
7214: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
7215: p_api_version_number => p_api_version_number
7216: ,p_init_msg_list => FND_API.G_FALSE
7217: ,p_commit => FND_API.G_FALSE
7218: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
7219:
7220: ,x_return_status => x_return_status
7221: ,x_msg_count => x_msg_count
7214: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
7215: p_api_version_number => p_api_version_number
7216: ,p_init_msg_list => FND_API.G_FALSE
7217: ,p_commit => FND_API.G_FALSE
7218: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
7219:
7220: ,x_return_status => x_return_status
7221: ,x_msg_count => x_msg_count
7222: ,x_msg_data => x_msg_data
7222: ,x_msg_data => x_msg_data
7223: ,p_ge_ptnr_resps_rec => l_ge_ptnr_resps_rec
7224: ,x_ptnr_resp_id => l_ptnr_resp_id
7225: );
7226: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
7227: RAISE FND_API.G_EXC_ERROR;
7228: END IF;
7229: END IF; -- End of IF (l_responsibility_id is not null) and (l_resp_map_rule_id is not null)
7230: END LOOP; -- End of FOR c_get_program_id LOOP
7223: ,p_ge_ptnr_resps_rec => l_ge_ptnr_resps_rec
7224: ,x_ptnr_resp_id => l_ptnr_resp_id
7225: );
7226: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
7227: RAISE FND_API.G_EXC_ERROR;
7228: END IF;
7229: END IF; -- End of IF (l_responsibility_id is not null) and (l_resp_map_rule_id is not null)
7230: END LOOP; -- End of FOR c_get_program_id LOOP
7231:
7231:
7232: IF (l_resp_exist = 'N') THEN
7233: get_default_resp(
7234: p_api_version_number => p_api_version_number
7235: ,p_init_msg_list => FND_API.G_FALSE
7236: ,p_commit => FND_API.G_FALSE
7237: ,x_return_status => x_return_status
7238: ,x_msg_count => x_msg_count
7239: ,x_msg_data => x_msg_data
7232: IF (l_resp_exist = 'N') THEN
7233: get_default_resp(
7234: p_api_version_number => p_api_version_number
7235: ,p_init_msg_list => FND_API.G_FALSE
7236: ,p_commit => FND_API.G_FALSE
7237: ,x_return_status => x_return_status
7238: ,x_msg_count => x_msg_count
7239: ,x_msg_data => x_msg_data
7240: ,p_partner_id => p_to_partner_id
7241: ,p_user_role_code => 'BUSINESS'
7242: ,x_responsibility_id => l_responsibility_id
7243: ,x_resp_map_rule_id => l_resp_map_rule_id
7244: );
7245: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
7246: RAISE FND_API.G_EXC_ERROR;
7247: END IF;
7248: IF (l_responsibility_id is not null) and (l_resp_map_rule_id is not null) THEN
7249: /****
7242: ,x_responsibility_id => l_responsibility_id
7243: ,x_resp_map_rule_id => l_resp_map_rule_id
7244: );
7245: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
7246: RAISE FND_API.G_EXC_ERROR;
7247: END IF;
7248: IF (l_responsibility_id is not null) and (l_resp_map_rule_id is not null) THEN
7249: /****
7250: * API to add a row to pv_ge_ptnr_resps
7262: Debug_Log('manage_merged_party_memb_resp: l_ge_ptnr_resps_rec.resp_type_code = ' || l_ge_ptnr_resps_rec.resp_type_code);
7263:
7264: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
7265: p_api_version_number => p_api_version_number
7266: ,p_init_msg_list => FND_API.G_FALSE
7267: ,p_commit => FND_API.G_FALSE
7268: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
7269:
7270: ,x_return_status => x_return_status
7263:
7264: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
7265: p_api_version_number => p_api_version_number
7266: ,p_init_msg_list => FND_API.G_FALSE
7267: ,p_commit => FND_API.G_FALSE
7268: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
7269:
7270: ,x_return_status => x_return_status
7271: ,x_msg_count => x_msg_count
7264: PV_Ge_Ptnr_Resps_PVT.Create_Ge_Ptnr_Resps(
7265: p_api_version_number => p_api_version_number
7266: ,p_init_msg_list => FND_API.G_FALSE
7267: ,p_commit => FND_API.G_FALSE
7268: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
7269:
7270: ,x_return_status => x_return_status
7271: ,x_msg_count => x_msg_count
7272: ,x_msg_data => x_msg_data
7272: ,x_msg_data => x_msg_data
7273: ,p_ge_ptnr_resps_rec => l_ge_ptnr_resps_rec
7274: ,x_ptnr_resp_id => l_ptnr_resp_id
7275: );
7276: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
7277: RAISE FND_API.G_EXC_ERROR;
7278: END IF;
7279: ELSE
7280: FND_MESSAGE.set_name('PV', 'PV_NO_DEFAULT_RESP');
7273: ,p_ge_ptnr_resps_rec => l_ge_ptnr_resps_rec
7274: ,x_ptnr_resp_id => l_ptnr_resp_id
7275: );
7276: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
7277: RAISE FND_API.G_EXC_ERROR;
7278: END IF;
7279: ELSE
7280: FND_MESSAGE.set_name('PV', 'PV_NO_DEFAULT_RESP');
7281: FND_MSG_PUB.add;
7278: END IF;
7279: ELSE
7280: FND_MESSAGE.set_name('PV', 'PV_NO_DEFAULT_RESP');
7281: FND_MSG_PUB.add;
7282: RAISE FND_API.G_EXC_ERROR;
7283: END IF; -- End of IF (l_responsibility_id is not null) and (l_resp_map_rule_id is not null)
7284: END IF; -- End of IF (l_resp_exist = 'N')
7285: END IF; -- End of IF (c_is_business_user_exist%NOTFOUND)
7286: CLOSE c_is_business_resp_exist;
7295: l_user_ids_tbl := get_partner_users(p_from_partner_id, x.user_role_code);
7296: FOR l_u_cnt IN 1..l_user_ids_tbl.count LOOP
7297: assign_resp (
7298: p_api_version_number => p_api_version_number
7299: ,p_init_msg_list => FND_API.G_FALSE
7300: ,p_commit => FND_API.G_FALSE
7301: ,p_user_id => l_user_ids_tbl(l_u_cnt)
7302: ,p_resp_id => x.responsibility_id
7303: ,p_app_id => 691
7296: FOR l_u_cnt IN 1..l_user_ids_tbl.count LOOP
7297: assign_resp (
7298: p_api_version_number => p_api_version_number
7299: ,p_init_msg_list => FND_API.G_FALSE
7300: ,p_commit => FND_API.G_FALSE
7301: ,p_user_id => l_user_ids_tbl(l_u_cnt)
7302: ,p_resp_id => x.responsibility_id
7303: ,p_app_id => 691
7304: ,x_return_status => x_return_status
7304: ,x_return_status => x_return_status
7305: ,x_msg_count => x_msg_count
7306: ,x_msg_data => x_msg_data
7307: );
7308: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
7309: RAISE FND_API.G_EXC_ERROR;
7310: END IF;
7311: END LOOP;
7312: ELSIF (x.user_role_code = 'BUSINESS') THEN
7305: ,x_msg_count => x_msg_count
7306: ,x_msg_data => x_msg_data
7307: );
7308: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
7309: RAISE FND_API.G_EXC_ERROR;
7310: END IF;
7311: END LOOP;
7312: ELSIF (x.user_role_code = 'BUSINESS') THEN
7313: Debug_Log('manage_merged_party_memb_resp: BUSINESS');
7315: l_user_ids_tbl := get_partner_users(p_from_partner_id, x.user_role_code);
7316: FOR l_u_cnt IN 1..l_user_ids_tbl.count LOOP
7317: assign_resp (
7318: p_api_version_number => p_api_version_number
7319: ,p_init_msg_list => FND_API.G_FALSE
7320: ,p_commit => FND_API.G_FALSE
7321: ,p_user_id => l_user_ids_tbl(l_u_cnt)
7322: ,p_resp_id => x.responsibility_id
7323: ,p_app_id => 691
7316: FOR l_u_cnt IN 1..l_user_ids_tbl.count LOOP
7317: assign_resp (
7318: p_api_version_number => p_api_version_number
7319: ,p_init_msg_list => FND_API.G_FALSE
7320: ,p_commit => FND_API.G_FALSE
7321: ,p_user_id => l_user_ids_tbl(l_u_cnt)
7322: ,p_resp_id => x.responsibility_id
7323: ,p_app_id => 691
7324: ,x_return_status => x_return_status
7324: ,x_return_status => x_return_status
7325: ,x_msg_count => x_msg_count
7326: ,x_msg_data => x_msg_data
7327: );
7328: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
7329: RAISE FND_API.G_EXC_ERROR;
7330: END IF;
7331: END LOOP;
7332: ELSIF (x.user_role_code = 'ALL') THEN
7325: ,x_msg_count => x_msg_count
7326: ,x_msg_data => x_msg_data
7327: );
7328: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
7329: RAISE FND_API.G_EXC_ERROR;
7330: END IF;
7331: END LOOP;
7332: ELSIF (x.user_role_code = 'ALL') THEN
7333: Debug_Log('manage_merged_party_memb_resp: ALL');
7334: l_user_ids_tbl := get_partner_users(p_from_partner_id, x.user_role_code);
7335: FOR l_u_cnt IN 1..l_user_ids_tbl.count LOOP
7336: assign_resp (
7337: p_api_version_number => p_api_version_number
7338: ,p_init_msg_list => FND_API.G_FALSE
7339: ,p_commit => FND_API.G_FALSE
7340: ,p_user_id => l_user_ids_tbl(l_u_cnt)
7341: ,p_resp_id => x.responsibility_id
7342: ,p_app_id => 671
7335: FOR l_u_cnt IN 1..l_user_ids_tbl.count LOOP
7336: assign_resp (
7337: p_api_version_number => p_api_version_number
7338: ,p_init_msg_list => FND_API.G_FALSE
7339: ,p_commit => FND_API.G_FALSE
7340: ,p_user_id => l_user_ids_tbl(l_u_cnt)
7341: ,p_resp_id => x.responsibility_id
7342: ,p_app_id => 671
7343: ,x_return_status => x_return_status
7343: ,x_return_status => x_return_status
7344: ,x_msg_count => x_msg_count
7345: ,x_msg_data => x_msg_data
7346: );
7347: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
7348: RAISE FND_API.G_EXC_ERROR;
7349: END IF;
7350: END LOOP;
7351: END IF;
7344: ,x_msg_count => x_msg_count
7345: ,x_msg_data => x_msg_data
7346: );
7347: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
7348: RAISE FND_API.G_EXC_ERROR;
7349: END IF;
7350: END LOOP;
7351: END IF;
7352: END LOOP;
7351: END IF;
7352: END LOOP;
7353:
7354: -- Check for commit
7355: IF FND_API.to_boolean(p_commit) THEN
7356: COMMIT;
7357: END IF;
7358:
7359: FND_MSG_PUB.count_and_get(
7356: COMMIT;
7357: END IF;
7358:
7359: FND_MSG_PUB.count_and_get(
7360: p_encoded => FND_API.g_false
7361: ,p_count => x_msg_count
7362: ,p_data => x_msg_data
7363: );
7364:
7364:
7365: EXCEPTION
7366:
7367: WHEN PVX_Utility_PVT.resource_locked THEN
7368: x_return_status := FND_API.g_ret_sts_error;
7369: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
7370:
7371: WHEN FND_API.G_EXC_ERROR THEN
7372: ROLLBACK TO manage_merged_party_memb_resp;
7367: WHEN PVX_Utility_PVT.resource_locked THEN
7368: x_return_status := FND_API.g_ret_sts_error;
7369: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
7370:
7371: WHEN FND_API.G_EXC_ERROR THEN
7372: ROLLBACK TO manage_merged_party_memb_resp;
7373: x_return_status := FND_API.G_RET_STS_ERROR;
7374: -- Standard call to get message count and if count=1, get the message
7375: FND_MSG_PUB.Count_And_Get (
7369: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
7370:
7371: WHEN FND_API.G_EXC_ERROR THEN
7372: ROLLBACK TO manage_merged_party_memb_resp;
7373: x_return_status := FND_API.G_RET_STS_ERROR;
7374: -- Standard call to get message count and if count=1, get the message
7375: FND_MSG_PUB.Count_And_Get (
7376: p_encoded => FND_API.G_FALSE,
7377: p_count => x_msg_count,
7372: ROLLBACK TO manage_merged_party_memb_resp;
7373: x_return_status := FND_API.G_RET_STS_ERROR;
7374: -- Standard call to get message count and if count=1, get the message
7375: FND_MSG_PUB.Count_And_Get (
7376: p_encoded => FND_API.G_FALSE,
7377: p_count => x_msg_count,
7378: p_data => x_msg_data
7379: );
7380:
7377: p_count => x_msg_count,
7378: p_data => x_msg_data
7379: );
7380:
7381: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7382: ROLLBACK TO manage_merged_party_memb_resp;
7383: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7384: -- Standard call to get message count and if count=1, get the message
7385: FND_MSG_PUB.Count_And_Get (
7379: );
7380:
7381: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7382: ROLLBACK TO manage_merged_party_memb_resp;
7383: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7384: -- Standard call to get message count and if count=1, get the message
7385: FND_MSG_PUB.Count_And_Get (
7386: p_encoded => FND_API.G_FALSE,
7387: p_count => x_msg_count,
7382: ROLLBACK TO manage_merged_party_memb_resp;
7383: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7384: -- Standard call to get message count and if count=1, get the message
7385: FND_MSG_PUB.Count_And_Get (
7386: p_encoded => FND_API.G_FALSE,
7387: p_count => x_msg_count,
7388: p_data => x_msg_data
7389: );
7390:
7389: );
7390:
7391: WHEN OTHERS THEN
7392: ROLLBACK TO manage_merged_party_memb_resp;
7393: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7394: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7395: THEN
7396: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
7397: END IF;
7396: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
7397: END IF;
7398: -- Standard call to get message count and if count=1, get the message
7399: FND_MSG_PUB.Count_And_Get (
7400: p_encoded => FND_API.G_FALSE,
7401: p_count => x_msg_count,
7402: p_data => x_msg_data
7403: );
7404: