182: --
183: -- Pre-reqs : None.
184: -- Parameters :
185: -- IN : p_api_version IN NUMBER Required
186: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
187: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
188: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
189: --
190: -- p_organization_rec IN HZ_PARTY_V2PUB.ORGANIZATION_REC_TYPE Required
183: -- Pre-reqs : None.
184: -- Parameters :
185: -- IN : p_api_version IN NUMBER Required
186: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
187: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
188: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
189: --
190: -- p_organization_rec IN HZ_PARTY_V2PUB.ORGANIZATION_REC_TYPE Required
191: -- p_location_rec IN PV_PARTNER_UTIL_PVT.LOCATION_REC_TYPE Required
184: -- Parameters :
185: -- IN : p_api_version IN NUMBER Required
186: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
187: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
188: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
189: --
190: -- p_organization_rec IN HZ_PARTY_V2PUB.ORGANIZATION_REC_TYPE Required
191: -- p_location_rec IN PV_PARTNER_UTIL_PVT.LOCATION_REC_TYPE Required
192: -- p_party_site_rec IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE Required
210: -- End of comments
211: ============================================================================*/
212: PROCEDURE Create_Search_Attr_Values (
213: p_api_version_number IN NUMBER,
214: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
215: p_commit IN VARCHAR2 := FND_API.G_FALSE,
216: p_partner_id IN NUMBER,
217: x_return_status OUT NOCOPY VARCHAR2,
218: x_msg_count OUT NOCOPY NUMBER,
211: ============================================================================*/
212: PROCEDURE Create_Search_Attr_Values (
213: p_api_version_number IN NUMBER,
214: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
215: p_commit IN VARCHAR2 := FND_API.G_FALSE,
216: p_partner_id IN NUMBER,
217: x_return_status OUT NOCOPY VARCHAR2,
218: x_msg_count OUT NOCOPY NUMBER,
219: x_msg_data OUT NOCOPY VARCHAR2
303: PVX_UTILITY_PVT.debug_message('End : Inserting into search table ');
304: END IF;
305:
306: -- Standard check for p_commit
307: IF FND_API.to_Boolean( p_commit )
308: THEN
309: COMMIT WORK;
310: END IF;
311:
335: --
336: -- Pre-reqs : None.
337: -- Parameters :
338: -- IN : p_api_version IN NUMBER Required
339: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
340: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
341: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
342: --
343: -- p_organization_rec IN HZ_PARTY_V2PUB.ORGANIZATION_REC_TYPE Required
336: -- Pre-reqs : None.
337: -- Parameters :
338: -- IN : p_api_version IN NUMBER Required
339: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
340: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
341: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
342: --
343: -- p_organization_rec IN HZ_PARTY_V2PUB.ORGANIZATION_REC_TYPE Required
344: -- p_location_rec IN PV_PARTNER_UTIL_PVT.LOCATION_REC_TYPE Required
337: -- Parameters :
338: -- IN : p_api_version IN NUMBER Required
339: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
340: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
341: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
342: --
343: -- p_organization_rec IN HZ_PARTY_V2PUB.ORGANIZATION_REC_TYPE Required
344: -- p_location_rec IN PV_PARTNER_UTIL_PVT.LOCATION_REC_TYPE Required
345: -- p_party_site_rec IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE Required
363: -- End of comments
364: ============================================================================*/
365: PROCEDURE Create_Partner (
366: p_api_version_number IN NUMBER,
367: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
368: p_commit IN VARCHAR2 := FND_API.G_FALSE,
369: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
370: x_return_status OUT NOCOPY VARCHAR2,
371: x_msg_count OUT NOCOPY NUMBER,
364: ============================================================================*/
365: PROCEDURE Create_Partner (
366: p_api_version_number IN NUMBER,
367: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
368: p_commit IN VARCHAR2 := FND_API.G_FALSE,
369: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
370: x_return_status OUT NOCOPY VARCHAR2,
371: x_msg_count OUT NOCOPY NUMBER,
372: x_msg_data OUT NOCOPY VARCHAR2,
365: PROCEDURE Create_Partner (
366: p_api_version_number IN NUMBER,
367: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
368: p_commit IN VARCHAR2 := FND_API.G_FALSE,
369: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
370: x_return_status OUT NOCOPY VARCHAR2,
371: x_msg_count OUT NOCOPY NUMBER,
372: x_msg_data OUT NOCOPY VARCHAR2,
373: p_organization_rec IN HZ_PARTY_V2PUB.ORGANIZATION_REC_TYPE,
422: -- Standard Start of API savepoint
423: SAVEPOINT create_partner_pvt;
424:
425: -- Standard call to check for call compatibility.
426: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
427: p_api_version_number,
428: l_api_name,
429: G_PKG_NAME)
430: THEN
427: p_api_version_number,
428: l_api_name,
429: G_PKG_NAME)
430: THEN
431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
432: END IF;
433:
434: -- Initialize message list if p_init_msg_list is set to TRUE.
435: IF FND_API.to_Boolean( p_init_msg_list )
431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
432: END IF;
433:
434: -- Initialize message list if p_init_msg_list is set to TRUE.
435: IF FND_API.to_Boolean( p_init_msg_list )
436: THEN
437: FND_MSG_PUB.initialize;
438: END IF;
439:
442: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
443: END IF;
444:
445: -- Initialize API return status to SUCCESS
446: x_return_status := FND_API.G_RET_STS_SUCCESS;
447:
448: -- Local variable initialization
449: l_organization_rec.organization_name := p_organization_rec.organization_name;
450:
456: -- Call HZ_PARTY_V2PUB.Create_Organization API, for creating a Party record
457: -- in HZ_PARTIES table for the supplied organization.
458:
459: HZ_PARTY_V2PUB.Create_organization (
460: p_init_msg_list => FND_API.G_FALSE,
461: p_organization_rec => p_organization_rec,
462: x_return_status => l_return_status,
463: x_msg_count => l_msg_count,
464: x_msg_data => l_msg_data,
466: x_party_number => l_party_number,
467: x_profile_id => l_profile_id
468: );
469:
470: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
471: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
472: RAISE FND_API.G_EXC_ERROR;
473: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
467: x_profile_id => l_profile_id
468: );
469:
470: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
471: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
472: RAISE FND_API.G_EXC_ERROR;
473: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
475: END IF;
468: );
469:
470: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
471: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
472: RAISE FND_API.G_EXC_ERROR;
473: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
475: END IF;
476: END IF;
469:
470: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
471: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
472: RAISE FND_API.G_EXC_ERROR;
473: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
475: END IF;
476: END IF;
477:
470: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
471: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
472: RAISE FND_API.G_EXC_ERROR;
473: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
475: END IF;
476: END IF;
477:
478: -- Debug Message
490: x_location_rec => l_location_rec );
491:
492: -- Call the HZ_LOCATION_V2PUB.Create_Location API for creating the location.
493: HZ_LOCATION_V2PUB.Create_Location(
494: p_init_msg_list => FND_API.G_FALSE,
495: p_location_rec => l_location_rec,
496: x_location_id => l_location_id,
497: x_return_status => l_return_status,
498: x_msg_count => l_msg_count,
498: x_msg_count => l_msg_count,
499: x_msg_data => l_msg_data
500: );
501:
502: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
503: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
504: RAISE FND_API.G_EXC_ERROR;
505: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
506: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
499: x_msg_data => l_msg_data
500: );
501:
502: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
503: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
504: RAISE FND_API.G_EXC_ERROR;
505: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
506: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
507: END IF;
500: );
501:
502: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
503: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
504: RAISE FND_API.G_EXC_ERROR;
505: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
506: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
507: END IF;
508: END IF;
501:
502: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
503: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
504: RAISE FND_API.G_EXC_ERROR;
505: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
506: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
507: END IF;
508: END IF;
509:
502: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
503: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
504: RAISE FND_API.G_EXC_ERROR;
505: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
506: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
507: END IF;
508: END IF;
509:
510: -- Debug Message
524:
525: -- Call the HZ_PARTY_SITE_V2PUB.Create_Party_site API for creating the party site.
526:
527: HZ_PARTY_SITE_V2PUB.create_party_site (
528: p_init_msg_list => FND_API.G_FALSE,
529: p_party_site_rec => l_party_site_rec,
530: x_party_site_id => l_party_site_id,
531: x_party_site_number => l_party_site_number,
532: x_return_status => l_return_status,
534: x_msg_data => l_msg_data
535: );
536:
537:
538: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
539: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
540: RAISE FND_API.G_EXC_ERROR;
541: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
535: );
536:
537:
538: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
539: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
540: RAISE FND_API.G_EXC_ERROR;
541: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
543: END IF;
536:
537:
538: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
539: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
540: RAISE FND_API.G_EXC_ERROR;
541: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
543: END IF;
544: END IF;
537:
538: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
539: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
540: RAISE FND_API.G_EXC_ERROR;
541: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
543: END IF;
544: END IF;
545:
538: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
539: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
540: RAISE FND_API.G_EXC_ERROR;
541: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
543: END IF;
544: END IF;
545:
546: -- Debug Message
552: -- related to partner organization.
553:
554: Create_Relationship(
555: p_api_version_number => 1.0
556: ,p_init_msg_list => FND_API.G_FALSE
557: ,p_commit => FND_API.G_FALSE
558: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
559: ,x_return_status => l_return_status
560: ,x_msg_data => l_msg_data
553:
554: Create_Relationship(
555: p_api_version_number => 1.0
556: ,p_init_msg_list => FND_API.G_FALSE
557: ,p_commit => FND_API.G_FALSE
558: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
559: ,x_return_status => l_return_status
560: ,x_msg_data => l_msg_data
561: ,x_msg_count => l_msg_count
554: Create_Relationship(
555: p_api_version_number => 1.0
556: ,p_init_msg_list => FND_API.G_FALSE
557: ,p_commit => FND_API.G_FALSE
558: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
559: ,x_return_status => l_return_status
560: ,x_msg_data => l_msg_data
561: ,x_msg_count => l_msg_count
562: ,p_party_id => l_party_id
569: ,x_resp_map_rule_id => l_resp_map_rule_id
570: ,x_group_id => l_group_id
571: );
572:
573: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
574: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
575: RAISE FND_API.G_EXC_ERROR;
576: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
570: ,x_group_id => l_group_id
571: );
572:
573: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
574: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
575: RAISE FND_API.G_EXC_ERROR;
576: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
578: END IF;
571: );
572:
573: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
574: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
575: RAISE FND_API.G_EXC_ERROR;
576: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
578: END IF;
579: END IF;
572:
573: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
574: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
575: RAISE FND_API.G_EXC_ERROR;
576: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
578: END IF;
579: END IF;
580:
573: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
574: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
575: RAISE FND_API.G_EXC_ERROR;
576: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
578: END IF;
579: END IF;
580:
581: -- Initialize the output parameters
586:
587:
588: Create_Search_Attr_Values (
589: p_api_version_number => 1.0
590: ,p_init_msg_list => FND_API.G_FALSE
591: ,p_commit => FND_API.G_FALSE
592: ,x_return_status => l_return_status
593: ,x_msg_data => l_msg_data
594: ,x_msg_count => l_msg_count
587:
588: Create_Search_Attr_Values (
589: p_api_version_number => 1.0
590: ,p_init_msg_list => FND_API.G_FALSE
591: ,p_commit => FND_API.G_FALSE
592: ,x_return_status => l_return_status
593: ,x_msg_data => l_msg_data
594: ,x_msg_count => l_msg_count
595: ,p_partner_id => l_partner_id
676: PVX_UTILITY_PVT.debug_message('End : Inserting into search table ');
677: END IF;
678:
679: -- Standard check for p_commit
680: IF FND_API.to_Boolean( p_commit )
681: THEN
682: COMMIT WORK;
683: END IF;
684:
695: */
696: EXCEPTION
697:
698: WHEN PVX_UTILITY_PVT.resource_locked THEN
699: x_return_status := FND_API.g_ret_sts_error;
700: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
701:
702: WHEN FND_API.G_EXC_ERROR THEN
703: ROLLBACK TO create_partner_pvt;
698: WHEN PVX_UTILITY_PVT.resource_locked THEN
699: x_return_status := FND_API.g_ret_sts_error;
700: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
701:
702: WHEN FND_API.G_EXC_ERROR THEN
703: ROLLBACK TO create_partner_pvt;
704: x_return_status := FND_API.G_RET_STS_ERROR;
705: -- Standard call to get message count and if count=1, get the message
706: FND_MSG_PUB.Count_And_Get (
700: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
701:
702: WHEN FND_API.G_EXC_ERROR THEN
703: ROLLBACK TO create_partner_pvt;
704: x_return_status := FND_API.G_RET_STS_ERROR;
705: -- Standard call to get message count and if count=1, get the message
706: FND_MSG_PUB.Count_And_Get (
707: p_encoded => FND_API.G_FALSE,
708: p_count => x_msg_count,
703: ROLLBACK TO create_partner_pvt;
704: x_return_status := FND_API.G_RET_STS_ERROR;
705: -- Standard call to get message count and if count=1, get the message
706: FND_MSG_PUB.Count_And_Get (
707: p_encoded => FND_API.G_FALSE,
708: p_count => x_msg_count,
709: p_data => x_msg_data
710: );
711:
715: x_msg_count, x_msg_data, 'ERROR');
716: hz_utility_v2pub.debug('Create_Partner (-)');
717: END IF;
718:
719: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
720: ROLLBACK TO create_partner_pvt;
721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
722: -- Standard call to get message count and if count=1, get the message
723: FND_MSG_PUB.Count_And_Get (
717: END IF;
718:
719: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
720: ROLLBACK TO create_partner_pvt;
721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
722: -- Standard call to get message count and if count=1, get the message
723: FND_MSG_PUB.Count_And_Get (
724: p_encoded => FND_API.G_FALSE,
725: p_count => x_msg_count,
720: ROLLBACK TO create_partner_pvt;
721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
722: -- Standard call to get message count and if count=1, get the message
723: FND_MSG_PUB.Count_And_Get (
724: p_encoded => FND_API.G_FALSE,
725: p_count => x_msg_count,
726: p_data => x_msg_data
727: );
728:
734: END IF;
735:
736: WHEN OTHERS THEN
737: ROLLBACK TO create_partner_pvt;
738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
739: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
740: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
741: END IF;
742:
741: END IF;
742:
743: -- Standard call to get message count and if count=1, get the message
744: FND_MSG_PUB.Count_And_Get (
745: p_encoded => FND_API.G_FALSE,
746: p_count => x_msg_count,
747: p_data => x_msg_data );
748:
749: -- Debug Message
833: close get_ident_party_site_dtls ;
834:
835:
836:
837: l_party_site_use_rec.party_site_use_id := FND_API.G_MISS_NUM;
838: l_party_site_use_rec.comments := FND_API.G_MISS_CHAR ;
839:
840: l_party_site_use_rec.party_site_id := l_party_site_id;
841: l_party_site_use_rec.primary_per_type := FND_API.G_MISS_CHAR;
834:
835:
836:
837: l_party_site_use_rec.party_site_use_id := FND_API.G_MISS_NUM;
838: l_party_site_use_rec.comments := FND_API.G_MISS_CHAR ;
839:
840: l_party_site_use_rec.party_site_id := l_party_site_id;
841: l_party_site_use_rec.primary_per_type := FND_API.G_MISS_CHAR;
842: l_party_site_use_rec.status := 'A';
837: l_party_site_use_rec.party_site_use_id := FND_API.G_MISS_NUM;
838: l_party_site_use_rec.comments := FND_API.G_MISS_CHAR ;
839:
840: l_party_site_use_rec.party_site_id := l_party_site_id;
841: l_party_site_use_rec.primary_per_type := FND_API.G_MISS_CHAR;
842: l_party_site_use_rec.status := 'A';
843: l_party_site_use_rec.created_by_module := 'PV';
844: l_party_site_use_rec.application_id := '691';
845:
847: IF (l_party_site_use = 'SHIP_TO') THEN
848: l_party_site_use_rec.site_use_type := 'BILL_TO';
849:
850: hz_party_site_v2pub.create_party_site_use (
851: p_init_msg_list => FND_API.G_FALSE,
852: p_party_site_use_rec => l_party_site_use_rec,
853: x_party_site_use_id => l_party_site_use_id,
854: x_return_status => l_return_status,
855: x_msg_count => l_msg_count,
855: x_msg_count => l_msg_count,
856: x_msg_data => l_msg_data );
857:
858:
859: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
860: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
861: RAISE FND_API.G_EXC_ERROR;
862: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
863: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
856: x_msg_data => l_msg_data );
857:
858:
859: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
860: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
861: RAISE FND_API.G_EXC_ERROR;
862: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
863: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
864: END IF;
857:
858:
859: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
860: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
861: RAISE FND_API.G_EXC_ERROR;
862: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
863: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
864: END IF;
865: END IF;
858:
859: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
860: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
861: RAISE FND_API.G_EXC_ERROR;
862: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
863: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
864: END IF;
865: END IF;
866:
859: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
860: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
861: RAISE FND_API.G_EXC_ERROR;
862: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
863: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
864: END IF;
865: END IF;
866:
867:
868: ELSIF (l_party_site_use = 'BILL_TO') then
869: l_party_site_use_rec.site_use_type := 'SHIP_TO';
870:
871: hz_party_site_v2pub.create_party_site_use (
872: p_init_msg_list => FND_API.G_FALSE,
873: p_party_site_use_rec => l_party_site_use_rec,
874: x_party_site_use_id => l_party_site_use_id,
875: x_return_status => l_return_status,
876: x_msg_count => l_msg_count,
875: x_return_status => l_return_status,
876: x_msg_count => l_msg_count,
877: x_msg_data => l_msg_data );
878:
879: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
880: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
881: RAISE FND_API.G_EXC_ERROR;
882: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
883: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
876: x_msg_count => l_msg_count,
877: x_msg_data => l_msg_data );
878:
879: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
880: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
881: RAISE FND_API.G_EXC_ERROR;
882: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
883: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
884: END IF;
877: x_msg_data => l_msg_data );
878:
879: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
880: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
881: RAISE FND_API.G_EXC_ERROR;
882: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
883: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
884: END IF;
885: END IF;
878:
879: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
880: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
881: RAISE FND_API.G_EXC_ERROR;
882: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
883: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
884: END IF;
885: END IF;
886:
879: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
880: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
881: RAISE FND_API.G_EXC_ERROR;
882: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
883: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
884: END IF;
885: END IF;
886:
887: ELSE
888:
889: l_party_site_use_rec.site_use_type := 'BILL_TO';
890:
891: hz_party_site_v2pub.create_party_site_use (
892: p_init_msg_list => FND_API.G_FALSE,
893: p_party_site_use_rec => l_party_site_use_rec,
894: x_party_site_use_id => l_party_site_use_id,
895: x_return_status => l_return_status,
896: x_msg_count => l_msg_count,
896: x_msg_count => l_msg_count,
897: x_msg_data => l_msg_data );
898:
899:
900: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
901: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
902: RAISE FND_API.G_EXC_ERROR;
903: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
897: x_msg_data => l_msg_data );
898:
899:
900: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
901: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
902: RAISE FND_API.G_EXC_ERROR;
903: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
905: END IF;
898:
899:
900: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
901: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
902: RAISE FND_API.G_EXC_ERROR;
903: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
905: END IF;
906: END IF;
899:
900: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
901: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
902: RAISE FND_API.G_EXC_ERROR;
903: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
905: END IF;
906: END IF;
907:
900: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
901: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
902: RAISE FND_API.G_EXC_ERROR;
903: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
905: END IF;
906: END IF;
907:
908:
908:
909: l_party_site_use_rec.site_use_type := 'SHIP_TO';
910:
911: hz_party_site_v2pub.create_party_site_use (
912: p_init_msg_list => FND_API.G_FALSE,
913: p_party_site_use_rec => l_party_site_use_rec,
914: x_party_site_use_id => l_party_site_use_id,
915: x_return_status => l_return_status,
916: x_msg_count => l_msg_count,
916: x_msg_count => l_msg_count,
917: x_msg_data => l_msg_data );
918:
919:
920: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
921: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
922: RAISE FND_API.G_EXC_ERROR;
923: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
924: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
917: x_msg_data => l_msg_data );
918:
919:
920: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
921: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
922: RAISE FND_API.G_EXC_ERROR;
923: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
924: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
925: END IF;
918:
919:
920: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
921: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
922: RAISE FND_API.G_EXC_ERROR;
923: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
924: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
925: END IF;
926: END IF;
919:
920: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
921: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
922: RAISE FND_API.G_EXC_ERROR;
923: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
924: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
925: END IF;
926: END IF;
927: END IF;
920: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
921: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
922: RAISE FND_API.G_EXC_ERROR;
923: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
924: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
925: END IF;
926: END IF;
927: END IF;
928: END IF;
927: END IF;
928: END IF;
929:
930: EXCEPTION
931: WHEN FND_API.g_exc_error THEN
932: x_return_status := FND_API.g_ret_sts_error;
933: FND_MSG_PUB.count_and_get (
934: p_encoded => FND_API.g_false
935: ,p_count => x_msg_count
928: END IF;
929:
930: EXCEPTION
931: WHEN FND_API.g_exc_error THEN
932: x_return_status := FND_API.g_ret_sts_error;
933: FND_MSG_PUB.count_and_get (
934: p_encoded => FND_API.g_false
935: ,p_count => x_msg_count
936: ,p_data => x_msg_data
930: EXCEPTION
931: WHEN FND_API.g_exc_error THEN
932: x_return_status := FND_API.g_ret_sts_error;
933: FND_MSG_PUB.count_and_get (
934: p_encoded => FND_API.g_false
935: ,p_count => x_msg_count
936: ,p_data => x_msg_data
937: );
938:
935: ,p_count => x_msg_count
936: ,p_data => x_msg_data
937: );
938:
939: WHEN FND_API.g_exc_unexpected_error THEN
940: x_return_status := FND_API.g_ret_sts_unexp_error ;
941: FND_MSG_PUB.count_and_get (
942: p_encoded => FND_API.g_false
943: ,p_count => x_msg_count
936: ,p_data => x_msg_data
937: );
938:
939: WHEN FND_API.g_exc_unexpected_error THEN
940: x_return_status := FND_API.g_ret_sts_unexp_error ;
941: FND_MSG_PUB.count_and_get (
942: p_encoded => FND_API.g_false
943: ,p_count => x_msg_count
944: ,p_data => x_msg_data
938:
939: WHEN FND_API.g_exc_unexpected_error THEN
940: x_return_status := FND_API.g_ret_sts_unexp_error ;
941: FND_MSG_PUB.count_and_get (
942: p_encoded => FND_API.g_false
943: ,p_count => x_msg_count
944: ,p_data => x_msg_data
945: );
946:
944: ,p_data => x_msg_data
945: );
946:
947: WHEN OTHERS THEN
948: x_return_status := FND_API.g_ret_sts_unexp_error ;
949:
950: FND_MSG_PUB.count_and_get(
951: p_encoded => FND_API.g_false
952: ,p_count => x_msg_count
947: WHEN OTHERS THEN
948: x_return_status := FND_API.g_ret_sts_unexp_error ;
949:
950: FND_MSG_PUB.count_and_get(
951: p_encoded => FND_API.g_false
952: ,p_count => x_msg_count
953: ,p_data => x_msg_data
954: );
955:
975: --
976: -- Pre-reqs : None.
977: -- Parameters :
978: -- IN : p_api_version IN NUMBER Required
979: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
980: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
981: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
982: --
983: -- p_party_id IN NUMBER Required
976: -- Pre-reqs : None.
977: -- Parameters :
978: -- IN : p_api_version IN NUMBER Required
979: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
980: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
981: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
982: --
983: -- p_party_id IN NUMBER Required
984: -- p_partner_types_tbl IN PV_ENTY_ATTR_VALUE_PUB.ATTR_VALUE_TBL_TYPE
977: -- Parameters :
978: -- IN : p_api_version IN NUMBER Required
979: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
980: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
981: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
982: --
983: -- p_party_id IN NUMBER Required
984: -- p_partner_types_tbl IN PV_ENTY_ATTR_VALUE_PUB.ATTR_VALUE_TBL_TYPE
985: -- p_vad_partner_id IN NUMBER
1003: ============================================================================*/
1004:
1005: PROCEDURE Do_Create_Relationship(
1006: p_api_version_number IN NUMBER
1007: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1008: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1009: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1010: ,x_return_status OUT NOCOPY VARCHAR2
1011: ,x_msg_data OUT NOCOPY VARCHAR2
1004:
1005: PROCEDURE Do_Create_Relationship(
1006: p_api_version_number IN NUMBER
1007: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1008: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1009: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1010: ,x_return_status OUT NOCOPY VARCHAR2
1011: ,x_msg_data OUT NOCOPY VARCHAR2
1012: ,x_msg_count OUT NOCOPY NUMBER
1005: PROCEDURE Do_Create_Relationship(
1006: p_api_version_number IN NUMBER
1007: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1008: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1009: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1010: ,x_return_status OUT NOCOPY VARCHAR2
1011: ,x_msg_data OUT NOCOPY VARCHAR2
1012: ,x_msg_count OUT NOCOPY NUMBER
1013: ,p_party_id IN NUMBER
1125: -- Standard Start of API savepoint
1126: SAVEPOINT create_relationship_pvt;
1127:
1128: -- Standard call to check for call compatibility.
1129: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1130: p_api_version_number,
1131: l_api_name,
1132: G_PKG_NAME)
1133: THEN
1130: p_api_version_number,
1131: l_api_name,
1132: G_PKG_NAME)
1133: THEN
1134: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1135: END IF;
1136:
1137: -- Initialize message list if p_init_msg_list is set to TRUE.
1138: IF FND_API.to_Boolean( p_init_msg_list )
1134: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1135: END IF;
1136:
1137: -- Initialize message list if p_init_msg_list is set to TRUE.
1138: IF FND_API.to_Boolean( p_init_msg_list )
1139: THEN
1140: FND_MSG_PUB.initialize;
1141: END IF;
1142:
1143: -- Debug Message
1144: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1145:
1146: -- Initialize API return status to SUCCESS
1147: x_return_status := FND_API.G_RET_STS_SUCCESS;
1148:
1149: -- Local variable initialization
1150: l_party_id := p_party_id;
1151:
1156:
1157: -- Get the Default responsibility for the supplied Organization Id.
1158: Pv_User_Resp_Pvt.get_default_org_resp(
1159: p_api_version_number => 1.0
1160: ,p_init_msg_list => FND_API.G_FALSE
1161: ,p_commit => FND_API.G_FALSE
1162: ,x_return_status => l_return_status
1163: ,x_msg_count => l_msg_count
1164: ,x_msg_data => l_msg_data
1157: -- Get the Default responsibility for the supplied Organization Id.
1158: Pv_User_Resp_Pvt.get_default_org_resp(
1159: p_api_version_number => 1.0
1160: ,p_init_msg_list => FND_API.G_FALSE
1161: ,p_commit => FND_API.G_FALSE
1162: ,x_return_status => l_return_status
1163: ,x_msg_count => l_msg_count
1164: ,x_msg_data => l_msg_data
1165: ,p_partner_org_id => l_party_id
1167: ,x_responsibility_id => l_responsibility_id
1168: ,x_resp_map_rule_id => l_resp_map_rule_id
1169: );
1170:
1171: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1172: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1173: RAISE FND_API.G_EXC_ERROR;
1174: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1168: ,x_resp_map_rule_id => l_resp_map_rule_id
1169: );
1170:
1171: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1172: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1173: RAISE FND_API.G_EXC_ERROR;
1174: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1176: END IF;
1169: );
1170:
1171: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1172: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1173: RAISE FND_API.G_EXC_ERROR;
1174: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1176: END IF;
1177: END IF;
1170:
1171: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1172: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1173: RAISE FND_API.G_EXC_ERROR;
1174: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1176: END IF;
1177: END IF;
1178:
1171: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1172: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1173: RAISE FND_API.G_EXC_ERROR;
1174: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1176: END IF;
1177: END IF;
1178:
1179: -- Get the default vendor org id, for the supplied responsibility id.
1186: ,DEFINED_Z => l_defined_flag
1187: ,ORG_ID_Z => null
1188: ,SERVER_ID_Z => null);
1189:
1190: IF l_vendor_org_id IS NULL OR l_vendor_org_id = FND_API.g_miss_num THEN
1191: l_return_status := FND_API.G_RET_STS_ERROR ;
1192: fnd_message.Set_Name('PV', 'PV_NO_DEF_VENDOR_ORG');
1193: fnd_msg_pub.Add;
1194: RAISE FND_API.G_EXC_ERROR;
1187: ,ORG_ID_Z => null
1188: ,SERVER_ID_Z => null);
1189:
1190: IF l_vendor_org_id IS NULL OR l_vendor_org_id = FND_API.g_miss_num THEN
1191: l_return_status := FND_API.G_RET_STS_ERROR ;
1192: fnd_message.Set_Name('PV', 'PV_NO_DEF_VENDOR_ORG');
1193: fnd_msg_pub.Add;
1194: RAISE FND_API.G_EXC_ERROR;
1195: END IF;
1190: IF l_vendor_org_id IS NULL OR l_vendor_org_id = FND_API.g_miss_num THEN
1191: l_return_status := FND_API.G_RET_STS_ERROR ;
1192: fnd_message.Set_Name('PV', 'PV_NO_DEF_VENDOR_ORG');
1193: fnd_msg_pub.Add;
1194: RAISE FND_API.G_EXC_ERROR;
1195: END IF;
1196:
1197:
1198: OPEN l_chk_relationship_exists_csr(l_vendor_org_id, l_party_id);
1212: l_relactionship_rec.status:= 'A';
1213:
1214: -- Create the relationship.
1215: HZ_RELATIONSHIP_V2PUB.create_relationship (
1216: p_init_msg_list => FND_API.G_FALSE,
1217: p_relationship_rec => l_relactionship_rec,
1218: x_relationship_id => l_relationship_id,
1219: x_party_id => l_partner_id,
1220: x_party_number => l_party_number,
1222: x_msg_count => l_msg_count,
1223: x_msg_data => l_msg_data,
1224: p_create_org_contact => 'N');
1225:
1226: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1227: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1228: RAISE FND_API.G_EXC_ERROR;
1229: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1230: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1223: x_msg_data => l_msg_data,
1224: p_create_org_contact => 'N');
1225:
1226: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1227: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1228: RAISE FND_API.G_EXC_ERROR;
1229: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1230: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1231: END IF;
1224: p_create_org_contact => 'N');
1225:
1226: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1227: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1228: RAISE FND_API.G_EXC_ERROR;
1229: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1230: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1231: END IF;
1232: END IF;
1225:
1226: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1227: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1228: RAISE FND_API.G_EXC_ERROR;
1229: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1230: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1231: END IF;
1232: END IF;
1233: END IF; -- End if of check l_chk_relationship_exists_csr
1226: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1227: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1228: RAISE FND_API.G_EXC_ERROR;
1229: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1230: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1231: END IF;
1232: END IF;
1233: END IF; -- End if of check l_chk_relationship_exists_csr
1234:
1269:
1270: -- Create the resource for the partner relationship
1271: PVX_MISC_PVT.Admin_Resource (
1272: p_api_version => 1.0
1273: ,p_init_msg_list => FND_API.g_false
1274: ,p_commit => FND_API.g_false
1275: ,x_return_status => l_return_status
1276: ,x_msg_count => l_msg_count
1277: ,x_msg_data => l_msg_data
1270: -- Create the resource for the partner relationship
1271: PVX_MISC_PVT.Admin_Resource (
1272: p_api_version => 1.0
1273: ,p_init_msg_list => FND_API.g_false
1274: ,p_commit => FND_API.g_false
1275: ,x_return_status => l_return_status
1276: ,x_msg_count => l_msg_count
1277: ,x_msg_data => l_msg_data
1278: ,p_admin_rec => l_admin_rec
1279: ,p_mode => l_mode
1280: ,x_resource_id => l_resource_id
1281: ,x_resource_number => l_resource_number);
1282:
1283: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1284: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1285: RAISE FND_API.G_EXC_ERROR;
1286: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1280: ,x_resource_id => l_resource_id
1281: ,x_resource_number => l_resource_number);
1282:
1283: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1284: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1285: RAISE FND_API.G_EXC_ERROR;
1286: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1288: END IF;
1281: ,x_resource_number => l_resource_number);
1282:
1283: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1284: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1285: RAISE FND_API.G_EXC_ERROR;
1286: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1288: END IF;
1289: END IF;
1282:
1283: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1284: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1285: RAISE FND_API.G_EXC_ERROR;
1286: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1288: END IF;
1289: END IF;
1290:
1283: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1284: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1285: RAISE FND_API.G_EXC_ERROR;
1286: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1288: END IF;
1289: END IF;
1290:
1291: -- After successful creation of partner resource, create role for the resource,
1298:
1299:
1300: PVX_MISC_PVT.Admin_Role(
1301: p_api_version => 1.0
1302: ,p_init_msg_list => FND_API.g_false
1303: ,p_commit => FND_API.g_false
1304: ,x_return_status => l_return_status
1305: ,x_msg_count => l_msg_count
1306: ,x_msg_data => l_msg_data
1299:
1300: PVX_MISC_PVT.Admin_Role(
1301: p_api_version => 1.0
1302: ,p_init_msg_list => FND_API.g_false
1303: ,p_commit => FND_API.g_false
1304: ,x_return_status => l_return_status
1305: ,x_msg_count => l_msg_count
1306: ,x_msg_data => l_msg_data
1307: ,p_admin_rec => l_admin_rec
1304: ,x_return_status => l_return_status
1305: ,x_msg_count => l_msg_count
1306: ,x_msg_data => l_msg_data
1307: ,p_admin_rec => l_admin_rec
1308: ,p_mode => FND_API.G_MISS_CHAR
1309: ,x_role_relate_id => l_role_relate_id);
1310:
1311: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1312: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1307: ,p_admin_rec => l_admin_rec
1308: ,p_mode => FND_API.G_MISS_CHAR
1309: ,x_role_relate_id => l_role_relate_id);
1310:
1311: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1312: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1313: RAISE FND_API.G_EXC_ERROR;
1314: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1308: ,p_mode => FND_API.G_MISS_CHAR
1309: ,x_role_relate_id => l_role_relate_id);
1310:
1311: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1312: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1313: RAISE FND_API.G_EXC_ERROR;
1314: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1316: END IF;
1309: ,x_role_relate_id => l_role_relate_id);
1310:
1311: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1312: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1313: RAISE FND_API.G_EXC_ERROR;
1314: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1316: END IF;
1317: END IF;
1310:
1311: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1312: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1313: RAISE FND_API.G_EXC_ERROR;
1314: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1316: END IF;
1317: END IF;
1318:
1311: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1312: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1313: RAISE FND_API.G_EXC_ERROR;
1314: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1316: END IF;
1317: END IF;
1318:
1319: -- After successful creation of resource role, create Group for the
1325:
1326: -- Create the Group
1327: PVX_MISC_PVT.Admin_Group(
1328: p_api_version => 1.0
1329: ,p_init_msg_list => FND_API.g_false
1330: ,p_commit => FND_API.g_false
1331: ,x_return_status => l_return_status
1332: ,x_msg_count => l_msg_count
1333: ,x_msg_data => l_msg_data
1326: -- Create the Group
1327: PVX_MISC_PVT.Admin_Group(
1328: p_api_version => 1.0
1329: ,p_init_msg_list => FND_API.g_false
1330: ,p_commit => FND_API.g_false
1331: ,x_return_status => l_return_status
1332: ,x_msg_count => l_msg_count
1333: ,x_msg_data => l_msg_data
1334: ,p_admin_rec => l_admin_rec
1331: ,x_return_status => l_return_status
1332: ,x_msg_count => l_msg_count
1333: ,x_msg_data => l_msg_data
1334: ,p_admin_rec => l_admin_rec
1335: ,p_mode => FND_API.G_MISS_CHAR
1336: ,x_group_id => l_group_id
1337: ,x_group_number => l_group_number
1338: ,x_group_usage_id => l_group_usage_id
1339: ,x_group_member_id => l_group_member_id);
1337: ,x_group_number => l_group_number
1338: ,x_group_usage_id => l_group_usage_id
1339: ,x_group_member_id => l_group_member_id);
1340:
1341: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1342: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1343: RAISE FND_API.G_EXC_ERROR;
1344: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1338: ,x_group_usage_id => l_group_usage_id
1339: ,x_group_member_id => l_group_member_id);
1340:
1341: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1342: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1343: RAISE FND_API.G_EXC_ERROR;
1344: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1346: END IF;
1339: ,x_group_member_id => l_group_member_id);
1340:
1341: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1342: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1343: RAISE FND_API.G_EXC_ERROR;
1344: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1346: END IF;
1347: END IF;
1340:
1341: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1342: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1343: RAISE FND_API.G_EXC_ERROR;
1344: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1346: END IF;
1347: END IF;
1348:
1341: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1342: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1343: RAISE FND_API.G_EXC_ERROR;
1344: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1346: END IF;
1347: END IF;
1348:
1349: -- set the out variables
1382:
1383: -- Call the Create_Prtnr_Prfls API.
1384: PVX_PRTNR_PRFLS_PVT.Create_Prtnr_Prfls (
1385: p_api_version => 1.0
1386: ,p_init_msg_list => FND_API.g_false
1387: ,p_commit => FND_API.g_false
1388: ,p_validation_level => FND_API.g_valid_level_full
1389: ,x_return_status => l_return_status
1390: ,x_msg_count => l_msg_count
1383: -- Call the Create_Prtnr_Prfls API.
1384: PVX_PRTNR_PRFLS_PVT.Create_Prtnr_Prfls (
1385: p_api_version => 1.0
1386: ,p_init_msg_list => FND_API.g_false
1387: ,p_commit => FND_API.g_false
1388: ,p_validation_level => FND_API.g_valid_level_full
1389: ,x_return_status => l_return_status
1390: ,x_msg_count => l_msg_count
1391: ,x_msg_data => l_msg_data
1384: PVX_PRTNR_PRFLS_PVT.Create_Prtnr_Prfls (
1385: p_api_version => 1.0
1386: ,p_init_msg_list => FND_API.g_false
1387: ,p_commit => FND_API.g_false
1388: ,p_validation_level => FND_API.g_valid_level_full
1389: ,x_return_status => l_return_status
1390: ,x_msg_count => l_msg_count
1391: ,x_msg_data => l_msg_data
1392: ,p_prtnr_prfls_rec => l_prtnr_prfls_rec
1392: ,p_prtnr_prfls_rec => l_prtnr_prfls_rec
1393: ,x_partner_profile_id => l_partner_profile_id );
1394:
1395: -- Check the return status.
1396: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1397: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1398: RAISE FND_API.G_EXC_ERROR;
1399: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1400: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1393: ,x_partner_profile_id => l_partner_profile_id );
1394:
1395: -- Check the return status.
1396: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1397: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1398: RAISE FND_API.G_EXC_ERROR;
1399: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1400: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1401: END IF;
1394:
1395: -- Check the return status.
1396: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1397: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1398: RAISE FND_API.G_EXC_ERROR;
1399: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1400: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1401: END IF;
1402: END IF;
1395: -- Check the return status.
1396: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1397: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1398: RAISE FND_API.G_EXC_ERROR;
1399: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1400: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1401: END IF;
1402: END IF;
1403:
1396: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1397: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1398: RAISE FND_API.G_EXC_ERROR;
1399: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1400: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1401: END IF;
1402: END IF;
1403:
1404: -- Add all Partner types in the attribute table by calling
1413:
1414: -- Call the API to insert the partner types in the attribute table.
1415: PV_ENTY_ATTR_VALUE_PUB.Upsert_Attr_Value (
1416: p_api_version_number=> 1.0
1417: ,p_init_msg_list => FND_API.g_false
1418: ,p_commit => FND_API.g_false
1419: ,p_validation_level => FND_API.g_valid_level_full
1420: ,x_return_status => l_return_status
1421: ,x_msg_count => l_msg_count
1414: -- Call the API to insert the partner types in the attribute table.
1415: PV_ENTY_ATTR_VALUE_PUB.Upsert_Attr_Value (
1416: p_api_version_number=> 1.0
1417: ,p_init_msg_list => FND_API.g_false
1418: ,p_commit => FND_API.g_false
1419: ,p_validation_level => FND_API.g_valid_level_full
1420: ,x_return_status => l_return_status
1421: ,x_msg_count => l_msg_count
1422: ,x_msg_data => l_msg_data
1415: PV_ENTY_ATTR_VALUE_PUB.Upsert_Attr_Value (
1416: p_api_version_number=> 1.0
1417: ,p_init_msg_list => FND_API.g_false
1418: ,p_commit => FND_API.g_false
1419: ,p_validation_level => FND_API.g_valid_level_full
1420: ,x_return_status => l_return_status
1421: ,x_msg_count => l_msg_count
1422: ,x_msg_data => l_msg_data
1423: ,p_attribute_id => 3
1426: ,p_version => 0
1427: ,p_attr_val_tbl => l_attr_value_tbl
1428: );
1429:
1430: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1431: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1432: RAISE FND_API.G_EXC_ERROR;
1433: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1434: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1427: ,p_attr_val_tbl => l_attr_value_tbl
1428: );
1429:
1430: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1431: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1432: RAISE FND_API.G_EXC_ERROR;
1433: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1434: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1435: END IF;
1428: );
1429:
1430: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1431: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1432: RAISE FND_API.G_EXC_ERROR;
1433: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1434: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1435: END IF;
1436: END IF;
1429:
1430: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1431: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1432: RAISE FND_API.G_EXC_ERROR;
1433: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1434: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1435: END IF;
1436: END IF;
1437:
1430: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1431: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1432: RAISE FND_API.G_EXC_ERROR;
1433: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1434: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1435: END IF;
1436: END IF;
1437:
1438: -- Call Register_term_ptr_memb_type API from Pv_ptr_member_type_pvt package
1439: -- to tag a partner with a member type.
1440:
1441: Pv_ptr_member_type_pvt.Register_term_ptr_memb_type (
1442: p_api_version_number => 1.0
1443: ,p_init_msg_list => FND_API.G_FALSE
1444: ,p_commit => FND_API.G_FALSE
1445: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1446: ,p_partner_id => l_partner_id
1447: ,p_current_memb_type => null
1440:
1441: Pv_ptr_member_type_pvt.Register_term_ptr_memb_type (
1442: p_api_version_number => 1.0
1443: ,p_init_msg_list => FND_API.G_FALSE
1444: ,p_commit => FND_API.G_FALSE
1445: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1446: ,p_partner_id => l_partner_id
1447: ,p_current_memb_type => null
1448: ,p_new_memb_type => p_member_type
1441: Pv_ptr_member_type_pvt.Register_term_ptr_memb_type (
1442: p_api_version_number => 1.0
1443: ,p_init_msg_list => FND_API.G_FALSE
1444: ,p_commit => FND_API.G_FALSE
1445: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1446: ,p_partner_id => l_partner_id
1447: ,p_current_memb_type => null
1448: ,p_new_memb_type => p_member_type
1449: ,p_global_ptr_id => p_global_partner_id
1450: ,x_return_status => l_return_status
1451: ,x_msg_count => l_msg_count
1452: ,x_msg_data => l_msg_data );
1453:
1454: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1455: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1456: RAISE FND_API.G_EXC_ERROR;
1457: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1451: ,x_msg_count => l_msg_count
1452: ,x_msg_data => l_msg_data );
1453:
1454: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1455: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1456: RAISE FND_API.G_EXC_ERROR;
1457: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1459: END IF;
1452: ,x_msg_data => l_msg_data );
1453:
1454: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1455: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1456: RAISE FND_API.G_EXC_ERROR;
1457: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1459: END IF;
1460: END IF;
1453:
1454: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1455: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1456: RAISE FND_API.G_EXC_ERROR;
1457: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1459: END IF;
1460: END IF;
1461:
1454: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1455: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1456: RAISE FND_API.G_EXC_ERROR;
1457: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1459: END IF;
1460: END IF;
1461:
1462: -- Create the Channel Team
1462: -- Create the Channel Team
1463: /*
1464: PV_TERR_ASSIGN_PUB.Create_Channel_Team (
1465: p_api_version_number => 1.0,
1466: p_init_msg_list => FND_API.G_FALSE ,
1467: p_commit => FND_API.G_FALSE ,
1468: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
1469: p_partner_id => l_partner_id,
1470: p_vad_partner_id => p_vad_partner_id,
1463: /*
1464: PV_TERR_ASSIGN_PUB.Create_Channel_Team (
1465: p_api_version_number => 1.0,
1466: p_init_msg_list => FND_API.G_FALSE ,
1467: p_commit => FND_API.G_FALSE ,
1468: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
1469: p_partner_id => l_partner_id,
1470: p_vad_partner_id => p_vad_partner_id,
1471: p_mode => 'CREATE',
1464: PV_TERR_ASSIGN_PUB.Create_Channel_Team (
1465: p_api_version_number => 1.0,
1466: p_init_msg_list => FND_API.G_FALSE ,
1467: p_commit => FND_API.G_FALSE ,
1468: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
1469: p_partner_id => l_partner_id,
1470: p_vad_partner_id => p_vad_partner_id,
1471: p_mode => 'CREATE',
1472: p_login_user => l_user_id,
1480:
1481:
1482: PV_TERR_ASSIGN_PUB.Do_Create_Channel_Team (
1483: p_api_version_number => 1.0,
1484: p_init_msg_list => FND_API.G_FALSE ,
1485: p_commit => FND_API.G_FALSE ,
1486: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
1487: p_partner_id => l_partner_id,
1488: p_vad_partner_id => p_vad_partner_id,
1481:
1482: PV_TERR_ASSIGN_PUB.Do_Create_Channel_Team (
1483: p_api_version_number => 1.0,
1484: p_init_msg_list => FND_API.G_FALSE ,
1485: p_commit => FND_API.G_FALSE ,
1486: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
1487: p_partner_id => l_partner_id,
1488: p_vad_partner_id => p_vad_partner_id,
1489: p_mode => 'CREATE',
1482: PV_TERR_ASSIGN_PUB.Do_Create_Channel_Team (
1483: p_api_version_number => 1.0,
1484: p_init_msg_list => FND_API.G_FALSE ,
1485: p_commit => FND_API.G_FALSE ,
1486: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
1487: p_partner_id => l_partner_id,
1488: p_vad_partner_id => p_vad_partner_id,
1489: p_mode => 'CREATE',
1490: p_login_user => l_user_id,
1495: x_prtnr_access_id_tbl => l_prtnr_access_id_tbl
1496: );
1497:
1498:
1499: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1500: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1501: RAISE FND_API.G_EXC_ERROR;
1502: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1496: );
1497:
1498:
1499: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1500: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1501: RAISE FND_API.G_EXC_ERROR;
1502: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1504: END IF;
1497:
1498:
1499: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1500: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1501: RAISE FND_API.G_EXC_ERROR;
1502: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1504: END IF;
1505: END IF;
1498:
1499: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1500: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1501: RAISE FND_API.G_EXC_ERROR;
1502: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1504: END IF;
1505: END IF;
1506:
1499: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1500: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1501: RAISE FND_API.G_EXC_ERROR;
1502: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1504: END IF;
1505: END IF;
1506:
1507: -- Debug Message
1510: END IF;
1511:
1512: pv_prgm_approval_pvt.Create_Default_Membership (
1513: p_api_version_number => p_api_version_number
1514: ,p_init_msg_list => FND_API.g_false
1515: ,p_commit => FND_API.G_FALSE
1516: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1517: ,p_partner_id => l_partner_id
1518: ,p_requestor_resource_id => -1
1511:
1512: pv_prgm_approval_pvt.Create_Default_Membership (
1513: p_api_version_number => p_api_version_number
1514: ,p_init_msg_list => FND_API.g_false
1515: ,p_commit => FND_API.G_FALSE
1516: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1517: ,p_partner_id => l_partner_id
1518: ,p_requestor_resource_id => -1
1519: ,x_return_status => l_return_status
1512: pv_prgm_approval_pvt.Create_Default_Membership (
1513: p_api_version_number => p_api_version_number
1514: ,p_init_msg_list => FND_API.g_false
1515: ,p_commit => FND_API.G_FALSE
1516: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1517: ,p_partner_id => l_partner_id
1518: ,p_requestor_resource_id => -1
1519: ,x_return_status => l_return_status
1520: ,x_msg_count => l_msg_count
1525: IF (PV_DEBUG_HIGH_ON) THEN
1526: PVX_UTILITY_PVT.debug_message('After call to Create_Default_Membership API. l_return_status: ' || l_return_status);
1527: END IF;
1528:
1529: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1531: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1532: RAISE FND_API.G_EXC_ERROR;
1533: END IF;
1526: PVX_UTILITY_PVT.debug_message('After call to Create_Default_Membership API. l_return_status: ' || l_return_status);
1527: END IF;
1528:
1529: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1531: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1532: RAISE FND_API.G_EXC_ERROR;
1533: END IF;
1534:
1527: END IF;
1528:
1529: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1531: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1532: RAISE FND_API.G_EXC_ERROR;
1533: END IF;
1534:
1535: -- Debug Message
1528:
1529: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1531: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1532: RAISE FND_API.G_EXC_ERROR;
1533: END IF;
1534:
1535: -- Debug Message
1536: IF (PV_DEBUG_HIGH_ON) THEN
1539:
1540:
1541: PV_USER_MGMT_PVT.update_elig_prgm_4_new_ptnr(
1542: p_api_version_number => p_api_version_number
1543: ,p_init_msg_list => FND_API.g_false
1544: ,p_commit => FND_API.G_FALSE
1545: ,p_validation_level => FND_API.g_valid_level_full
1546: ,x_return_status => l_return_status
1547: ,x_msg_count => l_msg_count
1540:
1541: PV_USER_MGMT_PVT.update_elig_prgm_4_new_ptnr(
1542: p_api_version_number => p_api_version_number
1543: ,p_init_msg_list => FND_API.g_false
1544: ,p_commit => FND_API.G_FALSE
1545: ,p_validation_level => FND_API.g_valid_level_full
1546: ,x_return_status => l_return_status
1547: ,x_msg_count => l_msg_count
1548: ,x_msg_data => l_msg_data
1541: PV_USER_MGMT_PVT.update_elig_prgm_4_new_ptnr(
1542: p_api_version_number => p_api_version_number
1543: ,p_init_msg_list => FND_API.g_false
1544: ,p_commit => FND_API.G_FALSE
1545: ,p_validation_level => FND_API.g_valid_level_full
1546: ,x_return_status => l_return_status
1547: ,x_msg_count => l_msg_count
1548: ,x_msg_data => l_msg_data
1549: ,p_partner_id => l_partner_id
1554: IF (PV_DEBUG_HIGH_ON) THEN
1555: PVX_UTILITY_PVT.debug_message('After call to update_elig_prgm_4_new_ptnr API. l_return_status: ' || l_return_status);
1556: END IF;
1557:
1558: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1560: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1561: RAISE FND_API.G_EXC_ERROR;
1562: END IF;
1555: PVX_UTILITY_PVT.debug_message('After call to update_elig_prgm_4_new_ptnr API. l_return_status: ' || l_return_status);
1556: END IF;
1557:
1558: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1560: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1561: RAISE FND_API.G_EXC_ERROR;
1562: END IF;
1563:
1556: END IF;
1557:
1558: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1560: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1561: RAISE FND_API.G_EXC_ERROR;
1562: END IF;
1563:
1564:
1557:
1558: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1560: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1561: RAISE FND_API.G_EXC_ERROR;
1562: END IF;
1563:
1564:
1565: -- Standard check for p_commit
1562: END IF;
1563:
1564:
1565: -- Standard check for p_commit
1566: IF FND_API.to_Boolean( p_commit )
1567: THEN
1568: COMMIT WORK;
1569: END IF;
1570:
1584:
1585: EXCEPTION
1586:
1587: WHEN PVX_UTILITY_PVT.resource_locked THEN
1588: x_return_status := FND_API.g_ret_sts_error;
1589: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1590:
1591: WHEN FND_API.G_EXC_ERROR THEN
1592: ROLLBACK TO create_relationship_pvt;
1587: WHEN PVX_UTILITY_PVT.resource_locked THEN
1588: x_return_status := FND_API.g_ret_sts_error;
1589: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1590:
1591: WHEN FND_API.G_EXC_ERROR THEN
1592: ROLLBACK TO create_relationship_pvt;
1593: x_return_status := FND_API.G_RET_STS_ERROR;
1594: -- Standard call to get message count and if count=1, get the message
1595: FND_MSG_PUB.Count_And_Get (
1589: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1590:
1591: WHEN FND_API.G_EXC_ERROR THEN
1592: ROLLBACK TO create_relationship_pvt;
1593: x_return_status := FND_API.G_RET_STS_ERROR;
1594: -- Standard call to get message count and if count=1, get the message
1595: FND_MSG_PUB.Count_And_Get (
1596: p_encoded => FND_API.G_FALSE,
1597: p_count => x_msg_count,
1592: ROLLBACK TO create_relationship_pvt;
1593: x_return_status := FND_API.G_RET_STS_ERROR;
1594: -- Standard call to get message count and if count=1, get the message
1595: FND_MSG_PUB.Count_And_Get (
1596: p_encoded => FND_API.G_FALSE,
1597: p_count => x_msg_count,
1598: p_data => x_msg_data
1599: );
1600:
1597: p_count => x_msg_count,
1598: p_data => x_msg_data
1599: );
1600:
1601: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1602: ROLLBACK TO create_relationship_pvt;
1603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1604: -- Standard call to get message count and if count=1, get the message
1605: FND_MSG_PUB.Count_And_Get (
1599: );
1600:
1601: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1602: ROLLBACK TO create_relationship_pvt;
1603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1604: -- Standard call to get message count and if count=1, get the message
1605: FND_MSG_PUB.Count_And_Get (
1606: p_encoded => FND_API.G_FALSE,
1607: p_count => x_msg_count,
1602: ROLLBACK TO create_relationship_pvt;
1603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1604: -- Standard call to get message count and if count=1, get the message
1605: FND_MSG_PUB.Count_And_Get (
1606: p_encoded => FND_API.G_FALSE,
1607: p_count => x_msg_count,
1608: p_data => x_msg_data
1609: );
1610:
1609: );
1610:
1611: WHEN OTHERS THEN
1612: ROLLBACK TO create_relationship_pvt;
1613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1614: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1615: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1616: END IF;
1617:
1616: END IF;
1617:
1618: -- Standard call to get message count and if count=1, get the message
1619: FND_MSG_PUB.Count_And_Get (
1620: p_encoded => FND_API.G_FALSE,
1621: p_count => x_msg_count,
1622: p_data => x_msg_data );
1623:
1624: END Do_Create_Relationship;
1642: --
1643: -- Pre-reqs : None.
1644: -- Parameters :
1645: -- IN : p_api_version IN NUMBER Required
1646: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
1647: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1648: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1649: --
1650: -- p_party_id IN NUMBER Required
1643: -- Pre-reqs : None.
1644: -- Parameters :
1645: -- IN : p_api_version IN NUMBER Required
1646: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
1647: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1648: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1649: --
1650: -- p_party_id IN NUMBER Required
1651: -- p_partner_types_tbl IN PV_ENTY_ATTR_VALUE_PUB.ATTR_VALUE_TBL_TYPE
1644: -- Parameters :
1645: -- IN : p_api_version IN NUMBER Required
1646: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
1647: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1648: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1649: --
1650: -- p_party_id IN NUMBER Required
1651: -- p_partner_types_tbl IN PV_ENTY_ATTR_VALUE_PUB.ATTR_VALUE_TBL_TYPE
1652: -- p_vad_partner_id IN NUMBER
1669: -- End of comments
1670: ============================================================================*/
1671: PROCEDURE Create_Relationship(
1672: p_api_version_number IN NUMBER
1673: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1674: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1675: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1676: ,x_return_status OUT NOCOPY VARCHAR2
1677: ,x_msg_data OUT NOCOPY VARCHAR2
1670: ============================================================================*/
1671: PROCEDURE Create_Relationship(
1672: p_api_version_number IN NUMBER
1673: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1674: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1675: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1676: ,x_return_status OUT NOCOPY VARCHAR2
1677: ,x_msg_data OUT NOCOPY VARCHAR2
1678: ,x_msg_count OUT NOCOPY NUMBER
1671: PROCEDURE Create_Relationship(
1672: p_api_version_number IN NUMBER
1673: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1674: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1675: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1676: ,x_return_status OUT NOCOPY VARCHAR2
1677: ,x_msg_data OUT NOCOPY VARCHAR2
1678: ,x_msg_count OUT NOCOPY NUMBER
1679: ,p_party_id IN NUMBER
1703:
1704: BEGIN
1705:
1706: -- Initialize API return status to SUCCESS
1707: x_return_status := FND_API.G_RET_STS_SUCCESS;
1708:
1709: SAVEPOINT create_relationship_pvt;
1710: --Code to build the qualifiers rec and call the relationshi API
1711:
1715: x_msg_count => l_msg_count ,
1716: x_msg_data => l_msg_data ,
1717: x_partner_qualifiers_tbl => l_partner_qualifiers_tbl );
1718:
1719: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1720: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1721: RAISE FND_API.G_EXC_ERROR;
1722: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1716: x_msg_data => l_msg_data ,
1717: x_partner_qualifiers_tbl => l_partner_qualifiers_tbl );
1718:
1719: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1720: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1721: RAISE FND_API.G_EXC_ERROR;
1722: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1724: END IF;
1717: x_partner_qualifiers_tbl => l_partner_qualifiers_tbl );
1718:
1719: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1720: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1721: RAISE FND_API.G_EXC_ERROR;
1722: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1724: END IF;
1725: END IF;
1718:
1719: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1720: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1721: RAISE FND_API.G_EXC_ERROR;
1722: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1724: END IF;
1725: END IF;
1726:
1719: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1720: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1721: RAISE FND_API.G_EXC_ERROR;
1722: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1724: END IF;
1725: END IF;
1726:
1727:
1726:
1727:
1728: Do_Create_Relationship(
1729: p_api_version_number => 1.0
1730: ,p_init_msg_list => FND_API.G_FALSE
1731: ,p_commit => FND_API.G_FALSE
1732: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1733: ,x_return_status => l_return_status
1734: ,x_msg_data => l_msg_data
1727:
1728: Do_Create_Relationship(
1729: p_api_version_number => 1.0
1730: ,p_init_msg_list => FND_API.G_FALSE
1731: ,p_commit => FND_API.G_FALSE
1732: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1733: ,x_return_status => l_return_status
1734: ,x_msg_data => l_msg_data
1735: ,x_msg_count => l_msg_count
1728: Do_Create_Relationship(
1729: p_api_version_number => 1.0
1730: ,p_init_msg_list => FND_API.G_FALSE
1731: ,p_commit => FND_API.G_FALSE
1732: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1733: ,x_return_status => l_return_status
1734: ,x_msg_data => l_msg_data
1735: ,x_msg_count => l_msg_count
1736: ,p_party_id => l_party_id
1744: ,x_resp_map_rule_id => x_resp_map_rule_id
1745: ,x_group_id => x_group_id
1746: );
1747:
1748: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1749: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1750: RAISE FND_API.G_EXC_ERROR;
1751: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1752: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1745: ,x_group_id => x_group_id
1746: );
1747:
1748: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1749: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1750: RAISE FND_API.G_EXC_ERROR;
1751: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1752: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1753: END IF;
1746: );
1747:
1748: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1749: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1750: RAISE FND_API.G_EXC_ERROR;
1751: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1752: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1753: END IF;
1754: END IF;
1747:
1748: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1749: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1750: RAISE FND_API.G_EXC_ERROR;
1751: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1752: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1753: END IF;
1754: END IF;
1755:
1748: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1749: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1750: RAISE FND_API.G_EXC_ERROR;
1751: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1752: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1753: END IF;
1754: END IF;
1755:
1756:
1764: ,x_msg_data => l_msg_count
1765: ,x_msg_count => l_msg_data);
1766:
1767:
1768: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1769: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1770: RAISE FND_API.G_EXC_ERROR;
1771: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1765: ,x_msg_count => l_msg_data);
1766:
1767:
1768: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1769: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1770: RAISE FND_API.G_EXC_ERROR;
1771: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1773: END IF;
1766:
1767:
1768: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1769: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1770: RAISE FND_API.G_EXC_ERROR;
1771: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1773: END IF;
1774: END IF;
1767:
1768: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1769: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1770: RAISE FND_API.G_EXC_ERROR;
1771: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1773: END IF;
1774: END IF;
1775:
1768: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1769: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1770: RAISE FND_API.G_EXC_ERROR;
1771: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1773: END IF;
1774: END IF;
1775:
1776:
1776:
1777: EXCEPTION
1778:
1779:
1780: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1781: ROLLBACK TO create_relationship_pvt;
1782: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1783: -- Standard call to get message count and if count=1, get the message
1784: FND_MSG_PUB.Count_And_Get (
1778:
1779:
1780: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1781: ROLLBACK TO create_relationship_pvt;
1782: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1783: -- Standard call to get message count and if count=1, get the message
1784: FND_MSG_PUB.Count_And_Get (
1785: p_encoded => FND_API.G_FALSE,
1786: p_count => x_msg_count,
1781: ROLLBACK TO create_relationship_pvt;
1782: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1783: -- Standard call to get message count and if count=1, get the message
1784: FND_MSG_PUB.Count_And_Get (
1785: p_encoded => FND_API.G_FALSE,
1786: p_count => x_msg_count,
1787: p_data => x_msg_data
1788: );
1789:
1788: );
1789:
1790: WHEN OTHERS THEN
1791: ROLLBACK TO create_relationship_pvt;
1792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1793: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1794: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1795: END IF;
1796:
1795: END IF;
1796:
1797: -- Standard call to get message count and if count=1, get the message
1798: FND_MSG_PUB.Count_And_Get (
1799: p_encoded => FND_API.G_FALSE,
1800: p_count => x_msg_count,
1801: p_data => x_msg_data );
1802:
1803: End Create_Relationship;
1810: --
1811: -- Pre-reqs : None.
1812: -- Parameters :
1813: -- IN : p_api_version IN NUMBER Required
1814: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
1815: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1816: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1817: --
1818: -- p_party_id IN NUMBER Required
1811: -- Pre-reqs : None.
1812: -- Parameters :
1813: -- IN : p_api_version IN NUMBER Required
1814: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
1815: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1816: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1817: --
1818: -- p_party_id IN NUMBER Required
1819: -- p_partner_types IN JTF_VARCHAR2 Required
1812: -- Parameters :
1813: -- IN : p_api_version IN NUMBER Required
1814: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE
1815: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1816: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1817: --
1818: -- p_party_id IN NUMBER Required
1819: -- p_partner_types IN JTF_VARCHAR2 Required
1820: -- p_vad_partner_id IN NUMBER
1837: -- End of comments
1838: ============================================================================*/
1839: PROCEDURE Invite_Partner(
1840: p_api_version_number IN NUMBER
1841: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1842: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1843: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1844: ,x_return_status OUT NOCOPY VARCHAR2
1845: ,x_msg_data OUT NOCOPY VARCHAR2
1838: ============================================================================*/
1839: PROCEDURE Invite_Partner(
1840: p_api_version_number IN NUMBER
1841: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1842: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1843: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1844: ,x_return_status OUT NOCOPY VARCHAR2
1845: ,x_msg_data OUT NOCOPY VARCHAR2
1846: ,x_msg_count OUT NOCOPY NUMBER
1839: PROCEDURE Invite_Partner(
1840: p_api_version_number IN NUMBER
1841: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1842: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1843: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1844: ,x_return_status OUT NOCOPY VARCHAR2
1845: ,x_msg_data OUT NOCOPY VARCHAR2
1846: ,x_msg_count OUT NOCOPY NUMBER
1847: /*
1932: -- Standard Start of API savepoint
1933: SAVEPOINT invite_partner_pvt;
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: THEN
1937: p_api_version_number,
1938: l_api_name,
1939: G_PKG_NAME)
1940: THEN
1941: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1942: END IF;
1943:
1944: -- Initialize message list if p_init_msg_list is set to TRUE.
1945: IF FND_API.to_Boolean( p_init_msg_list )
1941: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1942: END IF;
1943:
1944: -- Initialize message list if p_init_msg_list is set to TRUE.
1945: IF FND_API.to_Boolean( p_init_msg_list )
1946: THEN
1947: FND_MSG_PUB.initialize;
1948: END IF;
1949:
1950: -- Debug Message
1951: PVX_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'start');
1952:
1953: -- Initialize API return status to SUCCESS
1954: x_return_status := FND_API.G_RET_STS_SUCCESS;
1955:
1956: -- Local variable initialization
1957:
1958:
1970:
1971: /*
1972: Create_Partner(
1973: p_api_version_number => 1.0,
1974: p_init_msg_list => FND_API.G_FALSE ,
1975: p_commit => FND_API.G_FALSE ,
1976: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
1977: x_return_status => l_return_status,
1978: x_msg_count => l_msg_count,
1971: /*
1972: Create_Partner(
1973: p_api_version_number => 1.0,
1974: p_init_msg_list => FND_API.G_FALSE ,
1975: p_commit => FND_API.G_FALSE ,
1976: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
1977: x_return_status => l_return_status,
1978: x_msg_count => l_msg_count,
1979: x_msg_data => l_msg_data,
1972: Create_Partner(
1973: p_api_version_number => 1.0,
1974: p_init_msg_list => FND_API.G_FALSE ,
1975: p_commit => FND_API.G_FALSE ,
1976: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
1977: x_return_status => l_return_status,
1978: x_msg_count => l_msg_count,
1979: x_msg_data => l_msg_data,
1980: p_organization_rec => l_organization_rec ,
1993:
1994:
1995: Do_Create_Relationship(
1996: p_api_version_number => 1.0
1997: ,p_init_msg_list => FND_API.G_FALSE
1998: ,p_commit => FND_API.G_FALSE
1999: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2000: ,x_return_status => l_return_status
2001: ,x_msg_data => l_msg_data
1994:
1995: Do_Create_Relationship(
1996: p_api_version_number => 1.0
1997: ,p_init_msg_list => FND_API.G_FALSE
1998: ,p_commit => FND_API.G_FALSE
1999: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2000: ,x_return_status => l_return_status
2001: ,x_msg_data => l_msg_data
2002: ,x_msg_count => l_msg_count
1995: Do_Create_Relationship(
1996: p_api_version_number => 1.0
1997: ,p_init_msg_list => FND_API.G_FALSE
1998: ,p_commit => FND_API.G_FALSE
1999: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2000: ,x_return_status => l_return_status
2001: ,x_msg_data => l_msg_data
2002: ,x_msg_count => l_msg_count
2003: ,p_party_id => l_party_id
2013: );
2014:
2015:
2016: -- Check for return status of the API call.
2017: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2018: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2019: RAISE FND_API.G_EXC_ERROR;
2020: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2021: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2014:
2015:
2016: -- Check for return status of the API call.
2017: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2018: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2019: RAISE FND_API.G_EXC_ERROR;
2020: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2021: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2022: END IF;
2015:
2016: -- Check for return status of the API call.
2017: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2018: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2019: RAISE FND_API.G_EXC_ERROR;
2020: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2021: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2022: END IF;
2023: END IF;
2016: -- Check for return status of the API call.
2017: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2018: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2019: RAISE FND_API.G_EXC_ERROR;
2020: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2021: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2022: END IF;
2023: END IF;
2024:
2017: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2018: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2019: RAISE FND_API.G_EXC_ERROR;
2020: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2021: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2022: END IF;
2023: END IF;
2024:
2025: Create_Search_Attr_Values (
2023: END IF;
2024:
2025: Create_Search_Attr_Values (
2026: p_api_version_number => 1.0
2027: ,p_init_msg_list => FND_API.G_FALSE
2028: ,p_commit => FND_API.G_FALSE
2029: ,x_return_status => l_return_status
2030: ,x_msg_data => l_msg_data
2031: ,x_msg_count => l_msg_count
2024:
2025: Create_Search_Attr_Values (
2026: p_api_version_number => 1.0
2027: ,p_init_msg_list => FND_API.G_FALSE
2028: ,p_commit => FND_API.G_FALSE
2029: ,x_return_status => l_return_status
2030: ,x_msg_data => l_msg_data
2031: ,x_msg_count => l_msg_count
2032: ,p_partner_id => x_partner_id
2032: ,p_partner_id => x_partner_id
2033: );
2034:
2035: -- Check for return status of the API call.
2036: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2037: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2038: RAISE FND_API.G_EXC_ERROR;
2039: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2040: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2033: );
2034:
2035: -- Check for return status of the API call.
2036: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2037: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2038: RAISE FND_API.G_EXC_ERROR;
2039: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2040: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2041: END IF;
2034:
2035: -- Check for return status of the API call.
2036: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2037: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2038: RAISE FND_API.G_EXC_ERROR;
2039: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2040: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2041: END IF;
2042: END IF;
2035: -- Check for return status of the API call.
2036: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2037: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2038: RAISE FND_API.G_EXC_ERROR;
2039: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2040: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2041: END IF;
2042: END IF;
2043:
2036: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2037: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2038: RAISE FND_API.G_EXC_ERROR;
2039: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2040: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2041: END IF;
2042: END IF;
2043:
2044:
2049:
2050: -- Call the Create_Person API to create the contact person as a Party record
2051: -- in HZ_PARTIES table.
2052: HZ_PARTY_V2PUB.create_person (
2053: p_init_msg_list => FND_API.G_FALSE,
2054: p_person_rec => l_person_rec,
2055: x_party_id => l_cnt_per_party_id,
2056: x_party_number => l_cnt_per_party_number,
2057: x_profile_id => l_cnt_per_profile_id,
2059: x_msg_count => l_msg_count,
2060: x_msg_data => l_msg_data);
2061:
2062: -- Check for return status of the API call.
2063: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2064: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2065: RAISE FND_API.G_EXC_ERROR;
2066: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2067: FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
2060: x_msg_data => l_msg_data);
2061:
2062: -- Check for return status of the API call.
2063: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2064: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2065: RAISE FND_API.G_EXC_ERROR;
2066: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2067: FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
2068: FND_MESSAGE.SET_TOKEN('API_NAME', 'HZ_PARTY_V2PUB.create_person');
2061:
2062: -- Check for return status of the API call.
2063: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2064: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2065: RAISE FND_API.G_EXC_ERROR;
2066: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2067: FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
2068: FND_MESSAGE.SET_TOKEN('API_NAME', 'HZ_PARTY_V2PUB.create_person');
2069: FND_MSG_PUB.Add;
2062: -- Check for return status of the API call.
2063: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2064: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2065: RAISE FND_API.G_EXC_ERROR;
2066: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2067: FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
2068: FND_MESSAGE.SET_TOKEN('API_NAME', 'HZ_PARTY_V2PUB.create_person');
2069: FND_MSG_PUB.Add;
2070: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2066: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2067: FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
2068: FND_MESSAGE.SET_TOKEN('API_NAME', 'HZ_PARTY_V2PUB.create_person');
2069: FND_MSG_PUB.Add;
2070: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2071: END IF;
2072: END IF;
2073:
2074: -- Iniliatize the local variables required for Relationship creation
2090:
2091: -- Call the Create_Org_Contact API to create a contact person relationship record
2092: -- with the Partner organization in HZ_RELATIONSHIPS table.
2093: HZ_PARTY_CONTACT_V2PUB.create_org_contact (
2094: p_init_msg_list => FND_API.G_FALSE,
2095: p_org_contact_rec => l_org_contact_rec,
2096: x_org_contact_id => l_org_contact_id,
2097: x_party_rel_id => l_contact_rel_id,
2098: x_party_id => l_contact_rel_party_id,
2101: x_msg_count => l_msg_count,
2102: x_msg_data => l_msg_data);
2103:
2104: -- Check for return status of the API call.
2105: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2106: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2107: RAISE FND_API.G_EXC_ERROR;
2108: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2109: FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
2102: x_msg_data => l_msg_data);
2103:
2104: -- Check for return status of the API call.
2105: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2106: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2107: RAISE FND_API.G_EXC_ERROR;
2108: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2109: FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
2110: FND_MESSAGE.SET_TOKEN('API_NAME', 'HZ_PARTY_CONTACT_V2PUB.create_org_contact');
2103:
2104: -- Check for return status of the API call.
2105: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2106: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2107: RAISE FND_API.G_EXC_ERROR;
2108: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2109: FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
2110: FND_MESSAGE.SET_TOKEN('API_NAME', 'HZ_PARTY_CONTACT_V2PUB.create_org_contact');
2111: FND_MSG_PUB.Add;
2104: -- Check for return status of the API call.
2105: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2106: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2107: RAISE FND_API.G_EXC_ERROR;
2108: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2109: FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
2110: FND_MESSAGE.SET_TOKEN('API_NAME', 'HZ_PARTY_CONTACT_V2PUB.create_org_contact');
2111: FND_MSG_PUB.Add;
2112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2108: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2109: FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
2110: FND_MESSAGE.SET_TOKEN('API_NAME', 'HZ_PARTY_CONTACT_V2PUB.create_org_contact');
2111: FND_MSG_PUB.Add;
2112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2113: END IF;
2114: END IF;
2115:
2116: -- Call the create_phone_contact_point API to create a Phone type Contact Point record
2125: l_contact_point_rec.created_by_module:= l_appl_short_name;
2126: l_phone_rec.phone_line_type := 'GEN';
2127:
2128: HZ_CONTACT_POINT_V2PUB.create_phone_contact_point (
2129: p_init_msg_list => FND_API.G_TRUE,
2130: p_contact_point_rec => l_contact_point_rec,
2131: p_phone_rec => l_phone_rec,
2132: x_contact_point_id => l_phone_cnt_point_id,
2133: x_return_status => l_return_status,
2134: x_msg_count => l_msg_count,
2135: x_msg_data => l_msg_data);
2136:
2137: -- Check for return status of the API call.
2138: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2139: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2140: RAISE FND_API.G_EXC_ERROR;
2141: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2142: FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
2135: x_msg_data => l_msg_data);
2136:
2137: -- Check for return status of the API call.
2138: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2139: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2140: RAISE FND_API.G_EXC_ERROR;
2141: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2142: FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
2143: FND_MESSAGE.SET_TOKEN('API_NAME', 'HZ_CONTACT_POINT_V2PUB.create_phone_contact_point');
2136:
2137: -- Check for return status of the API call.
2138: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2139: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2140: RAISE FND_API.G_EXC_ERROR;
2141: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2142: FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
2143: FND_MESSAGE.SET_TOKEN('API_NAME', 'HZ_CONTACT_POINT_V2PUB.create_phone_contact_point');
2144: FND_MSG_PUB.Add;
2137: -- Check for return status of the API call.
2138: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2139: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2140: RAISE FND_API.G_EXC_ERROR;
2141: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2142: FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
2143: FND_MESSAGE.SET_TOKEN('API_NAME', 'HZ_CONTACT_POINT_V2PUB.create_phone_contact_point');
2144: FND_MSG_PUB.Add;
2145: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2141: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2142: FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
2143: FND_MESSAGE.SET_TOKEN('API_NAME', 'HZ_CONTACT_POINT_V2PUB.create_phone_contact_point');
2144: FND_MSG_PUB.Add;
2145: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2146: END IF;
2147: END IF;
2148:
2149: -- Call the create_email_contact_point API to create a Email type Contact Point record
2151:
2152: l_contact_point_rec.contact_point_type := 'EMAIL';
2153:
2154: HZ_CONTACT_POINT_V2PUB.create_email_contact_point (
2155: p_init_msg_list => FND_API.G_FALSE,
2156: p_contact_point_rec => l_contact_point_rec,
2157: p_email_rec => l_email_rec,
2158: x_contact_point_id => l_email_cnt_point_id,
2159: x_return_status => l_return_status,
2160: x_msg_count => l_msg_count,
2161: x_msg_data => l_msg_data);
2162:
2163: -- Check for return status of the API call.
2164: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2165: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2166: RAISE FND_API.G_EXC_ERROR;
2167: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2168: FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
2161: x_msg_data => l_msg_data);
2162:
2163: -- Check for return status of the API call.
2164: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2165: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2166: RAISE FND_API.G_EXC_ERROR;
2167: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2168: FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
2169: FND_MESSAGE.SET_TOKEN('API_NAME', 'HZ_CONTACT_POINT_V2PUB.create_email_contact_point');
2162:
2163: -- Check for return status of the API call.
2164: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2165: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2166: RAISE FND_API.G_EXC_ERROR;
2167: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2168: FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
2169: FND_MESSAGE.SET_TOKEN('API_NAME', 'HZ_CONTACT_POINT_V2PUB.create_email_contact_point');
2170: FND_MSG_PUB.Add;
2163: -- Check for return status of the API call.
2164: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2165: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2166: RAISE FND_API.G_EXC_ERROR;
2167: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2168: FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
2169: FND_MESSAGE.SET_TOKEN('API_NAME', 'HZ_CONTACT_POINT_V2PUB.create_email_contact_point');
2170: FND_MSG_PUB.Add;
2171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2167: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2168: FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
2169: FND_MESSAGE.SET_TOKEN('API_NAME', 'HZ_CONTACT_POINT_V2PUB.create_email_contact_point');
2170: FND_MSG_PUB.Add;
2171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2172: END IF;
2173: END IF;
2174:
2175: -- set the out variables
2193: -- Commented out by SPEDDU on 11/22/05 as this call is part of do_create_relationship API as part of fix bug # 4748978
2194:
2195: /** pv_prgm_approval_pvt.Create_Default_Membership (
2196: p_api_version_number => 1.0
2197: ,p_init_msg_list => FND_API.G_FALSE
2198: ,p_commit => FND_API.G_FALSE
2199: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2200: ,p_partner_id => l_partner_id
2201: ,p_requestor_resource_id => -1
2194:
2195: /** pv_prgm_approval_pvt.Create_Default_Membership (
2196: p_api_version_number => 1.0
2197: ,p_init_msg_list => FND_API.G_FALSE
2198: ,p_commit => FND_API.G_FALSE
2199: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2200: ,p_partner_id => l_partner_id
2201: ,p_requestor_resource_id => -1
2202: ,x_return_status => l_return_status
2195: /** pv_prgm_approval_pvt.Create_Default_Membership (
2196: p_api_version_number => 1.0
2197: ,p_init_msg_list => FND_API.G_FALSE
2198: ,p_commit => FND_API.G_FALSE
2199: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2200: ,p_partner_id => l_partner_id
2201: ,p_requestor_resource_id => -1
2202: ,x_return_status => l_return_status
2203: ,x_msg_count => l_msg_count
2203: ,x_msg_count => l_msg_count
2204: ,x_msg_data => l_msg_data);
2205:
2206: -- Check for return status of the API call.
2207: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2208: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2209: RAISE FND_API.G_EXC_ERROR;
2210: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2211: FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
2204: ,x_msg_data => l_msg_data);
2205:
2206: -- Check for return status of the API call.
2207: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2208: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2209: RAISE FND_API.G_EXC_ERROR;
2210: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2211: FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
2212: FND_MESSAGE.SET_TOKEN('API_NAME', 'PV_PRGM_APPROVAL_PVT.Create_Default_Membership');
2205:
2206: -- Check for return status of the API call.
2207: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2208: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2209: RAISE FND_API.G_EXC_ERROR;
2210: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2211: FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
2212: FND_MESSAGE.SET_TOKEN('API_NAME', 'PV_PRGM_APPROVAL_PVT.Create_Default_Membership');
2213: FND_MSG_PUB.Add;
2206: -- Check for return status of the API call.
2207: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2208: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2209: RAISE FND_API.G_EXC_ERROR;
2210: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2211: FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
2212: FND_MESSAGE.SET_TOKEN('API_NAME', 'PV_PRGM_APPROVAL_PVT.Create_Default_Membership');
2213: FND_MSG_PUB.Add;
2214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2210: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2211: FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
2212: FND_MESSAGE.SET_TOKEN('API_NAME', 'PV_PRGM_APPROVAL_PVT.Create_Default_Membership');
2213: FND_MSG_PUB.Add;
2214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2215: END IF;
2216: END IF;
2217: **/
2218:
2216: END IF;
2217: **/
2218:
2219: -- Standard check for p_commit
2220: IF FND_API.to_Boolean( p_commit )
2221: THEN
2222: COMMIT WORK;
2223: END IF;
2224:
2235:
2236: EXCEPTION
2237:
2238: WHEN PVX_UTILITY_PVT.resource_locked THEN
2239: x_return_status := FND_API.g_ret_sts_error;
2240: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2241:
2242: WHEN FND_API.G_EXC_ERROR THEN
2243: ROLLBACK TO invite_partner_pvt;
2238: WHEN PVX_UTILITY_PVT.resource_locked THEN
2239: x_return_status := FND_API.g_ret_sts_error;
2240: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2241:
2242: WHEN FND_API.G_EXC_ERROR THEN
2243: ROLLBACK TO invite_partner_pvt;
2244: x_return_status := FND_API.G_RET_STS_ERROR;
2245: -- Standard call to get message count and if count=1, get the message
2246: FND_MSG_PUB.Count_And_Get (
2240: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2241:
2242: WHEN FND_API.G_EXC_ERROR THEN
2243: ROLLBACK TO invite_partner_pvt;
2244: x_return_status := FND_API.G_RET_STS_ERROR;
2245: -- Standard call to get message count and if count=1, get the message
2246: FND_MSG_PUB.Count_And_Get (
2247: p_encoded => FND_API.G_FALSE,
2248: p_count => x_msg_count,
2243: ROLLBACK TO invite_partner_pvt;
2244: x_return_status := FND_API.G_RET_STS_ERROR;
2245: -- Standard call to get message count and if count=1, get the message
2246: FND_MSG_PUB.Count_And_Get (
2247: p_encoded => FND_API.G_FALSE,
2248: p_count => x_msg_count,
2249: p_data => x_msg_data
2250: );
2251:
2248: p_count => x_msg_count,
2249: p_data => x_msg_data
2250: );
2251:
2252: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2253: ROLLBACK TO invite_partner_pvt;
2254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2255: -- Standard call to get message count and if count=1, get the message
2256: FND_MSG_PUB.Count_And_Get (
2250: );
2251:
2252: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2253: ROLLBACK TO invite_partner_pvt;
2254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2255: -- Standard call to get message count and if count=1, get the message
2256: FND_MSG_PUB.Count_And_Get (
2257: p_encoded => FND_API.G_FALSE,
2258: p_count => x_msg_count,
2253: ROLLBACK TO invite_partner_pvt;
2254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2255: -- Standard call to get message count and if count=1, get the message
2256: FND_MSG_PUB.Count_And_Get (
2257: p_encoded => FND_API.G_FALSE,
2258: p_count => x_msg_count,
2259: p_data => x_msg_data
2260: );
2261:
2260: );
2261:
2262: WHEN OTHERS THEN
2263: ROLLBACK TO invite_partner_pvt;
2264: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2265: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2266: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2267: END IF;
2268:
2267: END IF;
2268:
2269: -- Standard call to get message count and if count=1, get the message
2270: FND_MSG_PUB.Count_And_Get (
2271: p_encoded => FND_API.G_FALSE,
2272: p_count => x_msg_count,
2273: p_data => x_msg_data );
2274:
2275: End Invite_Partner;