125: * ARGUMENTS
126: * IN/OUT:
127: * p_cust_account_role_rec Customer account role record.
128: * x_return_status Return status after the call. The status can
129: * be FND_API.G_RET_STS_SUCCESS (success),
130: * FND_API.G_RET_STS_ERROR (error),
131: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
132: * OUT:
133: * x_cust_account_role_id Customer account role ID.
126: * IN/OUT:
127: * p_cust_account_role_rec Customer account role record.
128: * x_return_status Return status after the call. The status can
129: * be FND_API.G_RET_STS_SUCCESS (success),
130: * FND_API.G_RET_STS_ERROR (error),
131: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
132: * OUT:
133: * x_cust_account_role_id Customer account role ID.
134: *
127: * p_cust_account_role_rec Customer account role record.
128: * x_return_status Return status after the call. The status can
129: * be FND_API.G_RET_STS_SUCCESS (success),
130: * FND_API.G_RET_STS_ERROR (error),
131: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
132: * OUT:
133: * x_cust_account_role_id Customer account role ID.
134: *
135: * NOTES
177: p_cust_account_role_rec => p_cust_account_role_rec,
178: p_rowid => NULL,
179: x_return_status => x_return_status );
180:
181: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
182: RAISE FND_API.G_EXC_ERROR;
183: END IF;
184: /* Bug No : 2263151.
185: -- Removed the logic to create a party site while creating the
178: p_rowid => NULL,
179: x_return_status => x_return_status );
180:
181: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
182: RAISE FND_API.G_EXC_ERROR;
183: END IF;
184: /* Bug No : 2263151.
185: -- Removed the logic to create a party site while creating the
186: -- account role.
188: -- Create new party site for parties in account roles when
189: -- create account role in site level.
190:
191: IF p_cust_account_role_rec.cust_acct_site_id IS NOT NULL AND
192: p_cust_account_role_rec.cust_acct_site_id <> FND_API.G_MISS_NUM
193: THEN
194: -- select location id
195: SELECT LOCATION_ID INTO l_location_id
196: FROM HZ_PARTY_SITES
243: IF l_profile = 'N' THEN
244: FND_PROFILE.PUT( 'HZ_GENERATE_PARTY_SITE_NUMBER', 'N' );
245: END IF;
246:
247: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
248: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
249: RAISE FND_API.G_EXC_ERROR;
250: ELSE
251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
244: FND_PROFILE.PUT( 'HZ_GENERATE_PARTY_SITE_NUMBER', 'N' );
245: END IF;
246:
247: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
248: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
249: RAISE FND_API.G_EXC_ERROR;
250: ELSE
251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
252: END IF;
245: END IF;
246:
247: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
248: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
249: RAISE FND_API.G_EXC_ERROR;
250: ELSE
251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
252: END IF;
253: END IF;
247: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
248: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
249: RAISE FND_API.G_EXC_ERROR;
250: ELSE
251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
252: END IF;
253: END IF;
254: END;
255: END IF;
311: p_prefix=>l_debug_prefix,
312: p_msg_level=>fnd_log.level_procedure);
313: END IF;
314:
315: if (p_cust_account_role_rec.orig_system_reference is not null and p_cust_account_role_rec.orig_system_reference<>fnd_api.g_miss_char ) then
316: if (p_cust_account_role_rec.orig_system is null OR p_cust_account_role_rec.orig_system = fnd_api.g_miss_char) then
317: p_cust_account_role_rec.orig_system := 'UNKNOWN';
318: end if;
319: end if;
312: p_msg_level=>fnd_log.level_procedure);
313: END IF;
314:
315: if (p_cust_account_role_rec.orig_system_reference is not null and p_cust_account_role_rec.orig_system_reference<>fnd_api.g_miss_char ) then
316: if (p_cust_account_role_rec.orig_system is null OR p_cust_account_role_rec.orig_system = fnd_api.g_miss_char) then
317: p_cust_account_role_rec.orig_system := 'UNKNOWN';
318: end if;
319: end if;
320:
318: end if;
319: end if;
320:
321:
322: if (p_cust_account_role_rec.orig_system is not null and p_cust_account_role_rec.orig_system<>fnd_api.g_miss_char ) then
323: l_orig_sys_reference_rec.orig_system := p_cust_account_role_rec.orig_system;
324: l_orig_sys_reference_rec.orig_system_reference := p_cust_account_role_rec.orig_system_reference;
325: l_orig_sys_reference_rec.owner_table_name := 'HZ_CUST_ACCOUNT_ROLES';
326: l_orig_sys_reference_rec.owner_table_id := p_cust_account_role_rec.cust_account_role_id;
326: l_orig_sys_reference_rec.owner_table_id := p_cust_account_role_rec.cust_account_role_id;
327: l_orig_sys_reference_rec.created_by_module := p_cust_account_role_rec.created_by_module;
328:
329: hz_orig_system_ref_pub.create_orig_system_reference(
330: FND_API.G_FALSE,
331: l_orig_sys_reference_rec,
332: x_return_status,
333: l_msg_count,
334: l_msg_data);
331: l_orig_sys_reference_rec,
332: x_return_status,
333: l_msg_count,
334: l_msg_data);
335: IF x_return_status <> fnd_api.g_ret_sts_success THEN
336: RAISE FND_API.G_EXC_ERROR;
337: END IF;
338: end if;
339: x_cust_account_role_id := p_cust_account_role_rec.cust_account_role_id;
332: x_return_status,
333: l_msg_count,
334: l_msg_data);
335: IF x_return_status <> fnd_api.g_ret_sts_success THEN
336: RAISE FND_API.G_EXC_ERROR;
337: END IF;
338: end if;
339: x_cust_account_role_id := p_cust_account_role_rec.cust_account_role_id;
340: -- Debug info.
361: * IN/OUT:
362: * p_cust_account_role_rec Customer account role record.
363: * p_object_version_number Used for locking the being updated record.
364: * x_return_status Return status after the call. The status can
365: * be FND_API.G_RET_STS_SUCCESS (success),
366: * FND_API.G_RET_STS_ERROR (error),
367: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
368: *
369: * NOTES
362: * p_cust_account_role_rec Customer account role record.
363: * p_object_version_number Used for locking the being updated record.
364: * x_return_status Return status after the call. The status can
365: * be FND_API.G_RET_STS_SUCCESS (success),
366: * FND_API.G_RET_STS_ERROR (error),
367: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
368: *
369: * NOTES
370: *
363: * p_object_version_number Used for locking the being updated record.
364: * x_return_status Return status after the call. The status can
365: * be FND_API.G_RET_STS_SUCCESS (success),
366: * FND_API.G_RET_STS_ERROR (error),
367: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
368: *
369: * NOTES
370: *
371: * MODIFICATION HISTORY
412: THEN
413: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_RECORD_CHANGED' );
414: FND_MESSAGE.SET_TOKEN( 'TABLE', 'hz_cust_account_roles' );
415: FND_MSG_PUB.ADD;
416: RAISE FND_API.G_EXC_ERROR;
417: END IF;
418:
419: p_object_version_number := NVL( l_object_version_number, 1 ) + 1;
420:
424: FND_MESSAGE.SET_TOKEN( 'RECORD', 'customer account role' );
425: FND_MESSAGE.SET_TOKEN( 'VALUE',
426: NVL( TO_CHAR( p_cust_account_role_rec.cust_account_role_id ), 'null' ) );
427: FND_MSG_PUB.ADD;
428: RAISE FND_API.G_EXC_ERROR;
429: END;
430:
431: -- Validate cust account role record
432: HZ_ACCOUNT_VALIDATE_V2PUB.validate_cust_account_role (
434: p_cust_account_role_rec => p_cust_account_role_rec,
435: p_rowid => l_rowid,
436: x_return_status => x_return_status );
437:
438: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
439: RAISE FND_API.G_EXC_ERROR;
440: END IF;
441:
442: if (p_cust_account_role_rec.orig_system is not null
435: p_rowid => l_rowid,
436: x_return_status => x_return_status );
437:
438: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
439: RAISE FND_API.G_EXC_ERROR;
440: END IF;
441:
442: if (p_cust_account_role_rec.orig_system is not null
443: and p_cust_account_role_rec.orig_system <>fnd_api.g_miss_char)
439: RAISE FND_API.G_EXC_ERROR;
440: END IF;
441:
442: if (p_cust_account_role_rec.orig_system is not null
443: and p_cust_account_role_rec.orig_system <>fnd_api.g_miss_char)
444: and (p_cust_account_role_rec.orig_system_reference is not null
445: and p_cust_account_role_rec.orig_system_reference <>fnd_api.g_miss_char)
446: then
447: p_cust_account_role_rec.orig_system_reference := null;
441:
442: if (p_cust_account_role_rec.orig_system is not null
443: and p_cust_account_role_rec.orig_system <>fnd_api.g_miss_char)
444: and (p_cust_account_role_rec.orig_system_reference is not null
445: and p_cust_account_role_rec.orig_system_reference <>fnd_api.g_miss_char)
446: then
447: p_cust_account_role_rec.orig_system_reference := null;
448: -- In mosr, we have bypassed osr nonupdateable validation
449: -- but we should not update existing osr, set it to null
521: * ARGUMENTS
522: * IN/OUT:
523: * p_role_responsibility_rec Customer account role responsibility record.
524: * x_return_status Return status after the call. The status can
525: * be FND_API.G_RET_STS_SUCCESS (success),
526: * FND_API.G_RET_STS_ERROR (error),
527: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
528: * OUT:
529: * x_responsibility_id Role responsibility ID.
522: * IN/OUT:
523: * p_role_responsibility_rec Customer account role responsibility record.
524: * x_return_status Return status after the call. The status can
525: * be FND_API.G_RET_STS_SUCCESS (success),
526: * FND_API.G_RET_STS_ERROR (error),
527: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
528: * OUT:
529: * x_responsibility_id Role responsibility ID.
530: *
523: * p_role_responsibility_rec Customer account role responsibility record.
524: * x_return_status Return status after the call. The status can
525: * be FND_API.G_RET_STS_SUCCESS (success),
526: * FND_API.G_RET_STS_ERROR (error),
527: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
528: * OUT:
529: * x_responsibility_id Role responsibility ID.
530: *
531: * NOTES
559: p_role_responsibility_rec => p_role_responsibility_rec,
560: p_rowid => NULL,
561: x_return_status => x_return_status );
562:
563: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
564: RAISE FND_API.G_EXC_ERROR;
565: END IF;
566:
567: -- Debug info.
560: p_rowid => NULL,
561: x_return_status => x_return_status );
562:
563: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
564: RAISE FND_API.G_EXC_ERROR;
565: END IF;
566:
567: -- Debug info.
568: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
632: * IN/OUT:
633: * p_role_responsibility_rec Customer account role responsibility record.
634: * p_object_version_number Used for locking the being updated record.
635: * x_return_status Return status after the call. The status can
636: * be FND_API.G_RET_STS_SUCCESS (success),
637: * FND_API.G_RET_STS_ERROR (error),
638: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
639: *
640: * NOTES
633: * p_role_responsibility_rec Customer account role responsibility record.
634: * p_object_version_number Used for locking the being updated record.
635: * x_return_status Return status after the call. The status can
636: * be FND_API.G_RET_STS_SUCCESS (success),
637: * FND_API.G_RET_STS_ERROR (error),
638: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
639: *
640: * NOTES
641: *
634: * p_object_version_number Used for locking the being updated record.
635: * x_return_status Return status after the call. The status can
636: * be FND_API.G_RET_STS_SUCCESS (success),
637: * FND_API.G_RET_STS_ERROR (error),
638: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
639: *
640: * NOTES
641: *
642: * MODIFICATION HISTORY
681: THEN
682: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_RECORD_CHANGED' );
683: FND_MESSAGE.SET_TOKEN( 'TABLE', 'hz_role_responsibility' );
684: FND_MSG_PUB.ADD;
685: RAISE FND_API.G_EXC_ERROR;
686: END IF;
687:
688: p_object_version_number := NVL( l_object_version_number, 1 ) + 1;
689:
693: FND_MESSAGE.SET_TOKEN( 'RECORD', 'customer account role responsibility' );
694: FND_MESSAGE.SET_TOKEN( 'VALUE',
695: NVL( TO_CHAR( p_role_responsibility_rec.responsibility_id ), 'null' ) );
696: FND_MSG_PUB.ADD;
697: RAISE FND_API.G_EXC_ERROR;
698: END;
699:
700: -- Validate role responsibility record
701: HZ_ACCOUNT_VALIDATE_V2PUB.validate_role_responsibility (
703: p_role_responsibility_rec => p_role_responsibility_rec,
704: p_rowid => l_rowid,
705: x_return_status => x_return_status );
706:
707: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
708: RAISE FND_API.G_EXC_ERROR;
709: END IF;
710:
711: -- Debug info.
704: p_rowid => l_rowid,
705: x_return_status => x_return_status );
706:
707: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
708: RAISE FND_API.G_EXC_ERROR;
709: END IF;
710:
711: -- Debug info.
712: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
775: *
776: * ARGUMENTS
777: * IN:
778: * p_init_msg_list Initialize message stack if it is set to
779: * FND_API.G_TRUE. Default is FND_API.G_FALSE.
780: * p_cust_account_role_rec Customer account role record.
781: * IN/OUT:
782: * OUT:
783: * x_cust_account_role_id Customer account role ID.
781: * IN/OUT:
782: * OUT:
783: * x_cust_account_role_id Customer account role ID.
784: * x_return_status Return status after the call. The status can
785: * be FND_API.G_RET_STS_SUCCESS (success),
786: * FND_API.G_RET_STS_ERROR (error),
787: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
788: * x_msg_count Number of messages in message stack.
789: * x_msg_data Message text if x_msg_count is 1.
782: * OUT:
783: * x_cust_account_role_id Customer account role ID.
784: * x_return_status Return status after the call. The status can
785: * be FND_API.G_RET_STS_SUCCESS (success),
786: * FND_API.G_RET_STS_ERROR (error),
787: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
788: * x_msg_count Number of messages in message stack.
789: * x_msg_data Message text if x_msg_count is 1.
790: *
783: * x_cust_account_role_id Customer account role ID.
784: * x_return_status Return status after the call. The status can
785: * be FND_API.G_RET_STS_SUCCESS (success),
786: * FND_API.G_RET_STS_ERROR (error),
787: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
788: * x_msg_count Number of messages in message stack.
789: * x_msg_data Message text if x_msg_count is 1.
790: *
791: * NOTES
796: *
797: */
798:
799: PROCEDURE create_cust_account_role (
800: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
801: p_cust_account_role_rec IN CUST_ACCOUNT_ROLE_REC_TYPE,
802: x_cust_account_role_id OUT NOCOPY NUMBER,
803: x_return_status OUT NOCOPY VARCHAR2,
804: x_msg_count OUT NOCOPY NUMBER,
824: p_msg_level=>fnd_log.level_procedure);
825: END IF;
826:
827: -- Initialize message list if p_init_msg_list is set to TRUE.
828: IF FND_API.to_Boolean(p_init_msg_list) THEN
829: FND_MSG_PUB.initialize;
830: END IF;
831:
832: -- Initialize API return status to success.
829: FND_MSG_PUB.initialize;
830: END IF;
831:
832: -- Initialize API return status to success.
833: x_return_status := FND_API.G_RET_STS_SUCCESS;
834:
835: -- Call to business logic.
836: do_create_cust_account_role (
837: l_cust_account_role_rec,
838: x_cust_account_role_id,
839: x_return_status );
840:
841:
842: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
843: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('Y', 'EVENTS_ENABLED')) THEN
844: -- Invoke business event system.
845: HZ_BUSINESS_EVENT_V2PVT.create_cust_account_role_event (
846: l_cust_account_role_rec );
854: END IF;
855:
856: -- Standard call to get message count and if count is 1, get message info.
857: FND_MSG_PUB.Count_And_Get(
858: p_encoded => FND_API.G_FALSE,
859: p_count => x_msg_count,
860: p_data => x_msg_data );
861:
862: -- Debug info.
875: -- Check if API is called in debug mode. If yes, disable debug.
876: --disable_debug;
877:
878: EXCEPTION
879: WHEN FND_API.G_EXC_ERROR THEN
880: ROLLBACK TO create_cust_account_role;
881: x_return_status := FND_API.G_RET_STS_ERROR;
882:
883: FND_MSG_PUB.Count_And_Get(
877:
878: EXCEPTION
879: WHEN FND_API.G_EXC_ERROR THEN
880: ROLLBACK TO create_cust_account_role;
881: x_return_status := FND_API.G_RET_STS_ERROR;
882:
883: FND_MSG_PUB.Count_And_Get(
884: p_encoded => FND_API.G_FALSE,
885: p_count => x_msg_count,
880: ROLLBACK TO create_cust_account_role;
881: x_return_status := FND_API.G_RET_STS_ERROR;
882:
883: FND_MSG_PUB.Count_And_Get(
884: p_encoded => FND_API.G_FALSE,
885: p_count => x_msg_count,
886: p_data => x_msg_data );
887: IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
888: hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
898:
899: -- Check if API is called in debug mode. If yes, disable debug.
900: --disable_debug;
901:
902: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
903: ROLLBACK TO create_cust_account_role;
904: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
905:
906: FND_MSG_PUB.Count_And_Get(
900: --disable_debug;
901:
902: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
903: ROLLBACK TO create_cust_account_role;
904: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
905:
906: FND_MSG_PUB.Count_And_Get(
907: p_encoded => FND_API.G_FALSE,
908: p_count => x_msg_count,
903: ROLLBACK TO create_cust_account_role;
904: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
905:
906: FND_MSG_PUB.Count_And_Get(
907: p_encoded => FND_API.G_FALSE,
908: p_count => x_msg_count,
909: p_data => x_msg_data );
910:
911: IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
925: --disable_debug;
926:
927: WHEN OTHERS THEN
928: ROLLBACK TO create_cust_account_role;
929: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
930:
931: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
932: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
933: FND_MSG_PUB.ADD;
932: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
933: FND_MSG_PUB.ADD;
934:
935: FND_MSG_PUB.Count_And_Get(
936: p_encoded => FND_API.G_FALSE,
937: p_count => x_msg_count,
938: p_data => x_msg_data );
939: IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
940: hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
964: *
965: * ARGUMENTS
966: * IN:
967: * p_init_msg_list Initialize message stack if it is set to
968: * FND_API.G_TRUE. Default is FND_API.G_FALSE.
969: * p_cust_account_role_rec Customer account role record.
970: * IN/OUT:
971: * p_object_version_number Used for locking the being updated record.
972: * OUT:
970: * IN/OUT:
971: * p_object_version_number Used for locking the being updated record.
972: * OUT:
973: * x_return_status Return status after the call. The status can
974: * be FND_API.G_RET_STS_SUCCESS (success),
975: * FND_API.G_RET_STS_ERROR (error),
976: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
977: * x_msg_count Number of messages in message stack.
978: * x_msg_data Message text if x_msg_count is 1.
971: * p_object_version_number Used for locking the being updated record.
972: * OUT:
973: * x_return_status Return status after the call. The status can
974: * be FND_API.G_RET_STS_SUCCESS (success),
975: * FND_API.G_RET_STS_ERROR (error),
976: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
977: * x_msg_count Number of messages in message stack.
978: * x_msg_data Message text if x_msg_count is 1.
979: *
972: * OUT:
973: * x_return_status Return status after the call. The status can
974: * be FND_API.G_RET_STS_SUCCESS (success),
975: * FND_API.G_RET_STS_ERROR (error),
976: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
977: * x_msg_count Number of messages in message stack.
978: * x_msg_data Message text if x_msg_count is 1.
979: *
980: * NOTES
985: *
986: */
987:
988: PROCEDURE update_cust_account_role (
989: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
990: p_cust_account_role_rec IN CUST_ACCOUNT_ROLE_REC_TYPE,
991: p_object_version_number IN OUT NOCOPY NUMBER,
992: x_return_status OUT NOCOPY VARCHAR2,
993: x_msg_count OUT NOCOPY NUMBER,
1013: p_msg_level=>fnd_log.level_procedure);
1014: END IF;
1015:
1016: -- Initialize message list if p_init_msg_list is set to TRUE.
1017: IF FND_API.to_Boolean(p_init_msg_list) THEN
1018: FND_MSG_PUB.initialize;
1019: END IF;
1020:
1021: -- Initialize API return status to success.
1018: FND_MSG_PUB.initialize;
1019: END IF;
1020:
1021: -- Initialize API return status to success.
1022: x_return_status := FND_API.G_RET_STS_SUCCESS;
1023:
1024: IF (p_cust_account_role_rec.orig_system is not null and p_cust_account_role_rec.orig_system <>fnd_api.g_miss_char)
1025: and (p_cust_account_role_rec.orig_system_reference is not null and p_cust_account_role_rec.orig_system_reference <>fnd_api.g_miss_char)
1026: and (p_cust_account_role_rec.cust_account_role_id = FND_API.G_MISS_NUM or p_cust_account_role_rec.cust_account_role_id is null) THEN
1020:
1021: -- Initialize API return status to success.
1022: x_return_status := FND_API.G_RET_STS_SUCCESS;
1023:
1024: IF (p_cust_account_role_rec.orig_system is not null and p_cust_account_role_rec.orig_system <>fnd_api.g_miss_char)
1025: and (p_cust_account_role_rec.orig_system_reference is not null and p_cust_account_role_rec.orig_system_reference <>fnd_api.g_miss_char)
1026: and (p_cust_account_role_rec.cust_account_role_id = FND_API.G_MISS_NUM or p_cust_account_role_rec.cust_account_role_id is null) THEN
1027:
1028: hz_orig_system_ref_pub.get_owner_table_id
1021: -- Initialize API return status to success.
1022: x_return_status := FND_API.G_RET_STS_SUCCESS;
1023:
1024: IF (p_cust_account_role_rec.orig_system is not null and p_cust_account_role_rec.orig_system <>fnd_api.g_miss_char)
1025: and (p_cust_account_role_rec.orig_system_reference is not null and p_cust_account_role_rec.orig_system_reference <>fnd_api.g_miss_char)
1026: and (p_cust_account_role_rec.cust_account_role_id = FND_API.G_MISS_NUM or p_cust_account_role_rec.cust_account_role_id is null) THEN
1027:
1028: hz_orig_system_ref_pub.get_owner_table_id
1029: (p_orig_system => p_cust_account_role_rec.orig_system,
1022: x_return_status := FND_API.G_RET_STS_SUCCESS;
1023:
1024: IF (p_cust_account_role_rec.orig_system is not null and p_cust_account_role_rec.orig_system <>fnd_api.g_miss_char)
1025: and (p_cust_account_role_rec.orig_system_reference is not null and p_cust_account_role_rec.orig_system_reference <>fnd_api.g_miss_char)
1026: and (p_cust_account_role_rec.cust_account_role_id = FND_API.G_MISS_NUM or p_cust_account_role_rec.cust_account_role_id is null) THEN
1027:
1028: hz_orig_system_ref_pub.get_owner_table_id
1029: (p_orig_system => p_cust_account_role_rec.orig_system,
1030: p_orig_system_reference => p_cust_account_role_rec.orig_system_reference,
1030: p_orig_system_reference => p_cust_account_role_rec.orig_system_reference,
1031: p_owner_table_name => 'HZ_CUST_ACCOUNT_ROLES',
1032: x_owner_table_id => l_cust_account_role_rec.cust_account_role_id,
1033: x_return_status => x_return_status);
1034: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1035: RAISE FND_API.G_EXC_ERROR;
1036: END IF;
1037:
1038: END IF;
1031: p_owner_table_name => 'HZ_CUST_ACCOUNT_ROLES',
1032: x_owner_table_id => l_cust_account_role_rec.cust_account_role_id,
1033: x_return_status => x_return_status);
1034: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1035: RAISE FND_API.G_EXC_ERROR;
1036: END IF;
1037:
1038: END IF;
1039:
1043: x_return_status => x_return_status,
1044: x_msg_count => x_msg_count,
1045: x_msg_data => x_msg_data);
1046:
1047: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1048: RAISE FND_API.G_EXC_ERROR;
1049: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1050: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1051: END IF;
1044: x_msg_count => x_msg_count,
1045: x_msg_data => x_msg_data);
1046:
1047: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1048: RAISE FND_API.G_EXC_ERROR;
1049: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1050: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1051: END IF;
1052:
1045: x_msg_data => x_msg_data);
1046:
1047: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1048: RAISE FND_API.G_EXC_ERROR;
1049: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1050: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1051: END IF;
1052:
1053: -- Call to business logic.
1046:
1047: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1048: RAISE FND_API.G_EXC_ERROR;
1049: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1050: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1051: END IF;
1052:
1053: -- Call to business logic.
1054: do_update_cust_account_role (
1055: l_cust_account_role_rec,
1056: p_object_version_number,
1057: x_return_status );
1058:
1059: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1060: -- Invoke business event system.
1061: l_old_cust_account_role_rec.orig_system := l_cust_account_role_rec.orig_system;
1062: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('Y', 'EVENTS_ENABLED')) THEN
1063: HZ_BUSINESS_EVENT_V2PVT.update_cust_account_role_event (
1072: END IF;
1073:
1074: -- Standard call to get message count and if count is 1, get message info.
1075: FND_MSG_PUB.Count_And_Get(
1076: p_encoded => FND_API.G_FALSE,
1077: p_count => x_msg_count,
1078: p_data => x_msg_data );
1079: IF fnd_log.level_exception>=fnd_log.g_current_runtime_level THEN
1080: hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
1091: -- Check if API is called in debug mode. If yes, disable debug.
1092: --disable_debug;
1093:
1094: EXCEPTION
1095: WHEN FND_API.G_EXC_ERROR THEN
1096: ROLLBACK TO update_cust_account_role;
1097: x_return_status := FND_API.G_RET_STS_ERROR;
1098:
1099: FND_MSG_PUB.Count_And_Get(
1093:
1094: EXCEPTION
1095: WHEN FND_API.G_EXC_ERROR THEN
1096: ROLLBACK TO update_cust_account_role;
1097: x_return_status := FND_API.G_RET_STS_ERROR;
1098:
1099: FND_MSG_PUB.Count_And_Get(
1100: p_encoded => FND_API.G_FALSE,
1101: p_count => x_msg_count,
1096: ROLLBACK TO update_cust_account_role;
1097: x_return_status := FND_API.G_RET_STS_ERROR;
1098:
1099: FND_MSG_PUB.Count_And_Get(
1100: p_encoded => FND_API.G_FALSE,
1101: p_count => x_msg_count,
1102: p_data => x_msg_data );
1103:
1104: IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
1115:
1116: -- Check if API is called in debug mode. If yes, disable debug.
1117: --disable_debug;
1118:
1119: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1120: ROLLBACK TO update_cust_account_role;
1121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1122:
1123: FND_MSG_PUB.Count_And_Get(
1117: --disable_debug;
1118:
1119: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1120: ROLLBACK TO update_cust_account_role;
1121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1122:
1123: FND_MSG_PUB.Count_And_Get(
1124: p_encoded => FND_API.G_FALSE,
1125: p_count => x_msg_count,
1120: ROLLBACK TO update_cust_account_role;
1121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1122:
1123: FND_MSG_PUB.Count_And_Get(
1124: p_encoded => FND_API.G_FALSE,
1125: p_count => x_msg_count,
1126: p_data => x_msg_data );
1127: IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
1128: hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
1140: --disable_debug;
1141:
1142: WHEN OTHERS THEN
1143: ROLLBACK TO update_cust_account_role;
1144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1145:
1146: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
1147: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
1148: FND_MSG_PUB.ADD;
1147: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
1148: FND_MSG_PUB.ADD;
1149:
1150: FND_MSG_PUB.Count_And_Get(
1151: p_encoded => FND_API.G_FALSE,
1152: p_count => x_msg_count,
1153: p_data => x_msg_data );
1154:
1155: IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
1180: *
1181: * ARGUMENTS
1182: * IN:
1183: * p_init_msg_list Initialize message stack if it is set to
1184: * FND_API.G_TRUE. Default is FND_API.G_FALSE.
1185: * p_cust_account_role_id Customer account role id.
1186: * IN/OUT:
1187: * OUT:
1188: * x_cust_account_role_rec Returned customer account role record.
1186: * IN/OUT:
1187: * OUT:
1188: * x_cust_account_role_rec Returned customer account role record.
1189: * x_return_status Return status after the call. The status can
1190: * be FND_API.G_RET_STS_SUCCESS (success),
1191: * FND_API.G_RET_STS_ERROR (error),
1192: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1193: * x_msg_count Number of messages in message stack.
1194: * x_msg_data Message text if x_msg_count is 1.
1187: * OUT:
1188: * x_cust_account_role_rec Returned customer account role record.
1189: * x_return_status Return status after the call. The status can
1190: * be FND_API.G_RET_STS_SUCCESS (success),
1191: * FND_API.G_RET_STS_ERROR (error),
1192: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1193: * x_msg_count Number of messages in message stack.
1194: * x_msg_data Message text if x_msg_count is 1.
1195: *
1188: * x_cust_account_role_rec Returned customer account role record.
1189: * x_return_status Return status after the call. The status can
1190: * be FND_API.G_RET_STS_SUCCESS (success),
1191: * FND_API.G_RET_STS_ERROR (error),
1192: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1193: * x_msg_count Number of messages in message stack.
1194: * x_msg_data Message text if x_msg_count is 1.
1195: *
1196: * NOTES
1201: *
1202: */
1203:
1204: PROCEDURE get_cust_account_role_rec (
1205: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1206: p_cust_account_role_id IN NUMBER,
1207: x_cust_account_role_rec OUT NOCOPY CUST_ACCOUNT_ROLE_REC_TYPE,
1208: x_return_status OUT NOCOPY VARCHAR2,
1209: x_msg_count OUT NOCOPY NUMBER,
1223: END IF;
1224:
1225:
1226: -- Initialize message list if p_init_msg_list is set to TRUE.
1227: IF FND_API.to_Boolean(p_init_msg_list) THEN
1228: FND_MSG_PUB.initialize;
1229: END IF;
1230:
1231: -- Initialize API return status to success.
1228: FND_MSG_PUB.initialize;
1229: END IF;
1230:
1231: -- Initialize API return status to success.
1232: x_return_status := FND_API.G_RET_STS_SUCCESS;
1233:
1234: -- Check whether primary key has been passed in.
1235: IF p_cust_account_role_id IS NULL OR
1236: p_cust_account_role_id = FND_API.G_MISS_NUM THEN
1232: x_return_status := FND_API.G_RET_STS_SUCCESS;
1233:
1234: -- Check whether primary key has been passed in.
1235: IF p_cust_account_role_id IS NULL OR
1236: p_cust_account_role_id = FND_API.G_MISS_NUM THEN
1237: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
1238: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'cust_account_role_id' );
1239: FND_MSG_PUB.ADD;
1240: RAISE FND_API.G_EXC_ERROR;
1236: p_cust_account_role_id = FND_API.G_MISS_NUM THEN
1237: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
1238: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'cust_account_role_id' );
1239: FND_MSG_PUB.ADD;
1240: RAISE FND_API.G_EXC_ERROR;
1241: END IF;
1242:
1243: x_cust_account_role_rec.cust_account_role_id := p_cust_account_role_id;
1244:
1300:
1301:
1302: -- Standard call to get message count and if count is 1, get message info.
1303: FND_MSG_PUB.Count_And_Get(
1304: p_encoded => FND_API.G_FALSE,
1305: p_count => x_msg_count,
1306: p_data => x_msg_data );
1307:
1308: -- Debug info.
1321: -- Check if API is called in debug mode. If yes, disable debug.
1322: --disable_debug;
1323:
1324: EXCEPTION
1325: WHEN FND_API.G_EXC_ERROR THEN
1326: x_return_status := FND_API.G_RET_STS_ERROR;
1327:
1328: FND_MSG_PUB.Count_And_Get(
1329: p_encoded => FND_API.G_FALSE,
1322: --disable_debug;
1323:
1324: EXCEPTION
1325: WHEN FND_API.G_EXC_ERROR THEN
1326: x_return_status := FND_API.G_RET_STS_ERROR;
1327:
1328: FND_MSG_PUB.Count_And_Get(
1329: p_encoded => FND_API.G_FALSE,
1330: p_count => x_msg_count,
1325: WHEN FND_API.G_EXC_ERROR THEN
1326: x_return_status := FND_API.G_RET_STS_ERROR;
1327:
1328: FND_MSG_PUB.Count_And_Get(
1329: p_encoded => FND_API.G_FALSE,
1330: p_count => x_msg_count,
1331: p_data => x_msg_data );
1332:
1333: -- Debug info.
1345:
1346: -- Check if API is called in debug mode. If yes, disable debug.
1347: --disable_debug;
1348:
1349: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1351:
1352: FND_MSG_PUB.Count_And_Get(
1353: p_encoded => FND_API.G_FALSE,
1346: -- Check if API is called in debug mode. If yes, disable debug.
1347: --disable_debug;
1348:
1349: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1351:
1352: FND_MSG_PUB.Count_And_Get(
1353: p_encoded => FND_API.G_FALSE,
1354: p_count => x_msg_count,
1349: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1351:
1352: FND_MSG_PUB.Count_And_Get(
1353: p_encoded => FND_API.G_FALSE,
1354: p_count => x_msg_count,
1355: p_data => x_msg_data );
1356:
1357: -- Debug info.
1370: -- Check if API is called in debug mode. If yes, disable debug.
1371: --disable_debug;
1372:
1373: WHEN OTHERS THEN
1374: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1375:
1376: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
1377: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
1378: FND_MSG_PUB.ADD;
1377: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
1378: FND_MSG_PUB.ADD;
1379:
1380: FND_MSG_PUB.Count_And_Get(
1381: p_encoded => FND_API.G_FALSE,
1382: p_count => x_msg_count,
1383: p_data => x_msg_data );
1384:
1385: -- Debug info.
1411: *
1412: * ARGUMENTS
1413: * IN:
1414: * p_init_msg_list Initialize message stack if it is set to
1415: * FND_API.G_TRUE. Default is FND_API.G_FALSE.
1416: * p_role_responsibility_rec Customer account role responsibility record.
1417: * IN/OUT:
1418: * OUT:
1419: * x_responsibility_id Role responsibility ID.
1417: * IN/OUT:
1418: * OUT:
1419: * x_responsibility_id Role responsibility ID.
1420: * x_return_status Return status after the call. The status can
1421: * be FND_API.G_RET_STS_SUCCESS (success),
1422: * FND_API.G_RET_STS_ERROR (error),
1423: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1424: * x_msg_count Number of messages in message stack.
1425: * x_msg_data Message text if x_msg_count is 1.
1418: * OUT:
1419: * x_responsibility_id Role responsibility ID.
1420: * x_return_status Return status after the call. The status can
1421: * be FND_API.G_RET_STS_SUCCESS (success),
1422: * FND_API.G_RET_STS_ERROR (error),
1423: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1424: * x_msg_count Number of messages in message stack.
1425: * x_msg_data Message text if x_msg_count is 1.
1426: *
1419: * x_responsibility_id Role responsibility ID.
1420: * x_return_status Return status after the call. The status can
1421: * be FND_API.G_RET_STS_SUCCESS (success),
1422: * FND_API.G_RET_STS_ERROR (error),
1423: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1424: * x_msg_count Number of messages in message stack.
1425: * x_msg_data Message text if x_msg_count is 1.
1426: *
1427: * NOTES
1432: *
1433: */
1434:
1435: PROCEDURE create_role_responsibility (
1436: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1437: p_role_responsibility_rec IN ROLE_RESPONSIBILITY_REC_TYPE,
1438: x_responsibility_id OUT NOCOPY NUMBER,
1439: x_return_status OUT NOCOPY VARCHAR2,
1440: x_msg_count OUT NOCOPY NUMBER,
1458: p_msg_level=>fnd_log.level_procedure);
1459: END IF;
1460:
1461: -- Initialize message list if p_init_msg_list is set to TRUE.
1462: IF FND_API.to_Boolean(p_init_msg_list) THEN
1463: FND_MSG_PUB.initialize;
1464: END IF;
1465:
1466: -- Initialize API return status to success.
1463: FND_MSG_PUB.initialize;
1464: END IF;
1465:
1466: -- Initialize API return status to success.
1467: x_return_status := FND_API.G_RET_STS_SUCCESS;
1468:
1469: -- Call to business logic.
1470: do_create_role_responsibility (
1471: l_role_responsibility_rec,
1471: l_role_responsibility_rec,
1472: x_responsibility_id,
1473: x_return_status );
1474:
1475: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1476: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('Y', 'EVENTS_ENABLED')) THEN
1477: -- Invoke business event system.
1478: HZ_BUSINESS_EVENT_V2PVT.create_role_resp_event (
1479: l_role_responsibility_rec );
1487: END IF;
1488:
1489: -- Standard call to get message count and if count is 1, get message info.
1490: FND_MSG_PUB.Count_And_Get(
1491: p_encoded => FND_API.G_FALSE,
1492: p_count => x_msg_count,
1493: p_data => x_msg_data );
1494:
1495: -- Debug info.
1508: -- Check if API is called in debug mode. If yes, disable debug.
1509: --disable_debug;
1510:
1511: EXCEPTION
1512: WHEN FND_API.G_EXC_ERROR THEN
1513: ROLLBACK TO create_role_responsibility;
1514: x_return_status := FND_API.G_RET_STS_ERROR;
1515:
1516: FND_MSG_PUB.Count_And_Get(
1510:
1511: EXCEPTION
1512: WHEN FND_API.G_EXC_ERROR THEN
1513: ROLLBACK TO create_role_responsibility;
1514: x_return_status := FND_API.G_RET_STS_ERROR;
1515:
1516: FND_MSG_PUB.Count_And_Get(
1517: p_encoded => FND_API.G_FALSE,
1518: p_count => x_msg_count,
1513: ROLLBACK TO create_role_responsibility;
1514: x_return_status := FND_API.G_RET_STS_ERROR;
1515:
1516: FND_MSG_PUB.Count_And_Get(
1517: p_encoded => FND_API.G_FALSE,
1518: p_count => x_msg_count,
1519: p_data => x_msg_data );
1520:
1521: -- Debug info.
1533:
1534: -- Check if API is called in debug mode. If yes, disable debug.
1535: --disable_debug;
1536:
1537: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1538: ROLLBACK TO create_role_responsibility;
1539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1540:
1541: FND_MSG_PUB.Count_And_Get(
1535: --disable_debug;
1536:
1537: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1538: ROLLBACK TO create_role_responsibility;
1539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1540:
1541: FND_MSG_PUB.Count_And_Get(
1542: p_encoded => FND_API.G_FALSE,
1543: p_count => x_msg_count,
1538: ROLLBACK TO create_role_responsibility;
1539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1540:
1541: FND_MSG_PUB.Count_And_Get(
1542: p_encoded => FND_API.G_FALSE,
1543: p_count => x_msg_count,
1544: p_data => x_msg_data );
1545:
1546: -- Debug info.
1560: --disable_debug;
1561:
1562: WHEN OTHERS THEN
1563: ROLLBACK TO create_role_responsibility;
1564: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1565:
1566: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
1567: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
1568: FND_MSG_PUB.ADD;
1567: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
1568: FND_MSG_PUB.ADD;
1569:
1570: FND_MSG_PUB.Count_And_Get(
1571: p_encoded => FND_API.G_FALSE,
1572: p_count => x_msg_count,
1573: p_data => x_msg_data );
1574:
1575: -- Debug info.
1601: *
1602: * ARGUMENTS
1603: * IN:
1604: * p_init_msg_list Initialize message stack if it is set to
1605: * FND_API.G_TRUE. Default is FND_API.G_FALSE.
1606: * p_role_responsibility_rec Customer account role responsibility record.
1607: * IN/OUT:
1608: * p_object_version_number Used for locking the being updated record.
1609: * OUT:
1607: * IN/OUT:
1608: * p_object_version_number Used for locking the being updated record.
1609: * OUT:
1610: * x_return_status Return status after the call. The status can
1611: * be FND_API.G_RET_STS_SUCCESS (success),
1612: * FND_API.G_RET_STS_ERROR (error),
1613: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1614: * x_msg_count Number of messages in message stack.
1615: * x_msg_data Message text if x_msg_count is 1.
1608: * p_object_version_number Used for locking the being updated record.
1609: * OUT:
1610: * x_return_status Return status after the call. The status can
1611: * be FND_API.G_RET_STS_SUCCESS (success),
1612: * FND_API.G_RET_STS_ERROR (error),
1613: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1614: * x_msg_count Number of messages in message stack.
1615: * x_msg_data Message text if x_msg_count is 1.
1616: *
1609: * OUT:
1610: * x_return_status Return status after the call. The status can
1611: * be FND_API.G_RET_STS_SUCCESS (success),
1612: * FND_API.G_RET_STS_ERROR (error),
1613: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1614: * x_msg_count Number of messages in message stack.
1615: * x_msg_data Message text if x_msg_count is 1.
1616: *
1617: * NOTES
1622: *
1623: */
1624:
1625: PROCEDURE update_role_responsibility (
1626: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1627: p_role_responsibility_rec IN ROLE_RESPONSIBILITY_REC_TYPE,
1628: p_object_version_number IN OUT NOCOPY NUMBER,
1629: x_return_status OUT NOCOPY VARCHAR2,
1630: x_msg_count OUT NOCOPY NUMBER,
1650: p_msg_level=>fnd_log.level_procedure);
1651: END IF;
1652:
1653: -- Initialize message list if p_init_msg_list is set to TRUE.
1654: IF FND_API.to_Boolean(p_init_msg_list) THEN
1655: FND_MSG_PUB.initialize;
1656: END IF;
1657:
1658: -- Initialize API return status to success.
1655: FND_MSG_PUB.initialize;
1656: END IF;
1657:
1658: -- Initialize API return status to success.
1659: x_return_status := FND_API.G_RET_STS_SUCCESS;
1660:
1661: --2290537
1662: get_role_responsibility_rec (
1663: p_responsibility_id => p_role_responsibility_rec.responsibility_id,
1665: x_return_status => x_return_status,
1666: x_msg_count => x_msg_count,
1667: x_msg_data => x_msg_data);
1668:
1669: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1670: RAISE FND_API.G_EXC_ERROR;
1671: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1672: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1673: END IF;
1666: x_msg_count => x_msg_count,
1667: x_msg_data => x_msg_data);
1668:
1669: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1670: RAISE FND_API.G_EXC_ERROR;
1671: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1672: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1673: END IF;
1674:
1667: x_msg_data => x_msg_data);
1668:
1669: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1670: RAISE FND_API.G_EXC_ERROR;
1671: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1672: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1673: END IF;
1674:
1675: -- Call to business logic.
1668:
1669: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1670: RAISE FND_API.G_EXC_ERROR;
1671: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1672: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1673: END IF;
1674:
1675: -- Call to business logic.
1676: do_update_role_responsibility (
1677: l_role_responsibility_rec,
1678: p_object_version_number,
1679: x_return_status );
1680:
1681: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1682: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('Y', 'EVENTS_ENABLED')) THEN
1683: -- Invoke business event system.
1684: HZ_BUSINESS_EVENT_V2PVT.update_role_resp_event (
1685: l_role_responsibility_rec , l_old_role_responsibility_rec);
1693: END IF;
1694:
1695: -- Standard call to get message count and if count is 1, get message info.
1696: FND_MSG_PUB.Count_And_Get(
1697: p_encoded => FND_API.G_FALSE,
1698: p_count => x_msg_count,
1699: p_data => x_msg_data );
1700:
1701: -- Debug info.
1714: -- Check if API is called in debug mode. If yes, disable debug.
1715: --disable_debug;
1716:
1717: EXCEPTION
1718: WHEN FND_API.G_EXC_ERROR THEN
1719: ROLLBACK TO update_role_responsibility;
1720: x_return_status := FND_API.G_RET_STS_ERROR;
1721:
1722: FND_MSG_PUB.Count_And_Get(
1716:
1717: EXCEPTION
1718: WHEN FND_API.G_EXC_ERROR THEN
1719: ROLLBACK TO update_role_responsibility;
1720: x_return_status := FND_API.G_RET_STS_ERROR;
1721:
1722: FND_MSG_PUB.Count_And_Get(
1723: p_encoded => FND_API.G_FALSE,
1724: p_count => x_msg_count,
1719: ROLLBACK TO update_role_responsibility;
1720: x_return_status := FND_API.G_RET_STS_ERROR;
1721:
1722: FND_MSG_PUB.Count_And_Get(
1723: p_encoded => FND_API.G_FALSE,
1724: p_count => x_msg_count,
1725: p_data => x_msg_data );
1726:
1727: -- Debug info.
1739:
1740: -- Check if API is called in debug mode. If yes, disable debug.
1741: --disable_debug;
1742:
1743: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1744: ROLLBACK TO update_role_responsibility;
1745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1746:
1747: FND_MSG_PUB.Count_And_Get(
1741: --disable_debug;
1742:
1743: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1744: ROLLBACK TO update_role_responsibility;
1745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1746:
1747: FND_MSG_PUB.Count_And_Get(
1748: p_encoded => FND_API.G_FALSE,
1749: p_count => x_msg_count,
1744: ROLLBACK TO update_role_responsibility;
1745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1746:
1747: FND_MSG_PUB.Count_And_Get(
1748: p_encoded => FND_API.G_FALSE,
1749: p_count => x_msg_count,
1750: p_data => x_msg_data );
1751:
1752: -- Debug info.
1766: --disable_debug;
1767:
1768: WHEN OTHERS THEN
1769: ROLLBACK TO update_role_responsibility;
1770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1771:
1772: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
1773: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
1774: FND_MSG_PUB.ADD;
1773: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
1774: FND_MSG_PUB.ADD;
1775:
1776: FND_MSG_PUB.Count_And_Get(
1777: p_encoded => FND_API.G_FALSE,
1778: p_count => x_msg_count,
1779: p_data => x_msg_data );
1780:
1781: -- Debug info.
1807: *
1808: * ARGUMENTS
1809: * IN:
1810: * p_init_msg_list Initialize message stack if it is set to
1811: * FND_API.G_TRUE. Default is FND_API.G_FALSE.
1812: * p_responsibility_id Role responsibility ID.
1813: * IN/OUT:
1814: * OUT:
1815: * x_role_responsibility_rec Returned customer account role responsibility record.
1813: * IN/OUT:
1814: * OUT:
1815: * x_role_responsibility_rec Returned customer account role responsibility record.
1816: * x_return_status Return status after the call. The status can
1817: * be FND_API.G_RET_STS_SUCCESS (success),
1818: * FND_API.G_RET_STS_ERROR (error),
1819: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1820: * x_msg_count Number of messages in message stack.
1821: * x_msg_data Message text if x_msg_count is 1.
1814: * OUT:
1815: * x_role_responsibility_rec Returned customer account role responsibility record.
1816: * x_return_status Return status after the call. The status can
1817: * be FND_API.G_RET_STS_SUCCESS (success),
1818: * FND_API.G_RET_STS_ERROR (error),
1819: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1820: * x_msg_count Number of messages in message stack.
1821: * x_msg_data Message text if x_msg_count is 1.
1822: *
1815: * x_role_responsibility_rec Returned customer account role responsibility record.
1816: * x_return_status Return status after the call. The status can
1817: * be FND_API.G_RET_STS_SUCCESS (success),
1818: * FND_API.G_RET_STS_ERROR (error),
1819: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1820: * x_msg_count Number of messages in message stack.
1821: * x_msg_data Message text if x_msg_count is 1.
1822: *
1823: * NOTES
1828: *
1829: */
1830:
1831: PROCEDURE get_role_responsibility_rec (
1832: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1833: p_responsibility_id IN NUMBER,
1834: x_role_responsibility_rec OUT NOCOPY ROLE_RESPONSIBILITY_REC_TYPE,
1835: x_return_status OUT NOCOPY VARCHAR2,
1836: x_msg_count OUT NOCOPY NUMBER,
1849: p_msg_level=>fnd_log.level_procedure);
1850: END IF;
1851:
1852: -- Initialize message list if p_init_msg_list is set to TRUE.
1853: IF FND_API.to_Boolean(p_init_msg_list) THEN
1854: FND_MSG_PUB.initialize;
1855: END IF;
1856:
1857: -- Initialize API return status to success.
1854: FND_MSG_PUB.initialize;
1855: END IF;
1856:
1857: -- Initialize API return status to success.
1858: x_return_status := FND_API.G_RET_STS_SUCCESS;
1859:
1860: -- Check whether primary key has been passed in.
1861: IF p_responsibility_id IS NULL OR
1862: p_responsibility_id = FND_API.G_MISS_NUM THEN
1858: x_return_status := FND_API.G_RET_STS_SUCCESS;
1859:
1860: -- Check whether primary key has been passed in.
1861: IF p_responsibility_id IS NULL OR
1862: p_responsibility_id = FND_API.G_MISS_NUM THEN
1863: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
1864: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'responsibility_id' );
1865: FND_MSG_PUB.ADD;
1866: RAISE FND_API.G_EXC_ERROR;
1862: p_responsibility_id = FND_API.G_MISS_NUM THEN
1863: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
1864: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'responsibility_id' );
1865: FND_MSG_PUB.ADD;
1866: RAISE FND_API.G_EXC_ERROR;
1867: END IF;
1868:
1869: x_role_responsibility_rec.responsibility_id := p_responsibility_id;
1870:
1910: END IF;
1911:
1912: -- Standard call to get message count and if count is 1, get message info.
1913: FND_MSG_PUB.Count_And_Get(
1914: p_encoded => FND_API.G_FALSE,
1915: p_count => x_msg_count,
1916: p_data => x_msg_data );
1917:
1918: -- Debug info.
1931: -- Check if API is called in debug mode. If yes, disable debug.
1932: --disable_debug;
1933:
1934: EXCEPTION
1935: WHEN FND_API.G_EXC_ERROR THEN
1936: x_return_status := FND_API.G_RET_STS_ERROR;
1937:
1938: FND_MSG_PUB.Count_And_Get(
1939: p_encoded => FND_API.G_FALSE,
1932: --disable_debug;
1933:
1934: EXCEPTION
1935: WHEN FND_API.G_EXC_ERROR THEN
1936: x_return_status := FND_API.G_RET_STS_ERROR;
1937:
1938: FND_MSG_PUB.Count_And_Get(
1939: p_encoded => FND_API.G_FALSE,
1940: p_count => x_msg_count,
1935: WHEN FND_API.G_EXC_ERROR THEN
1936: x_return_status := FND_API.G_RET_STS_ERROR;
1937:
1938: FND_MSG_PUB.Count_And_Get(
1939: p_encoded => FND_API.G_FALSE,
1940: p_count => x_msg_count,
1941: p_data => x_msg_data );
1942:
1943: -- Debug info.
1955:
1956: -- Check if API is called in debug mode. If yes, disable debug.
1957: --disable_debug;
1958:
1959: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1961:
1962: FND_MSG_PUB.Count_And_Get(
1963: p_encoded => FND_API.G_FALSE,
1956: -- Check if API is called in debug mode. If yes, disable debug.
1957: --disable_debug;
1958:
1959: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1961:
1962: FND_MSG_PUB.Count_And_Get(
1963: p_encoded => FND_API.G_FALSE,
1964: p_count => x_msg_count,
1959: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1961:
1962: FND_MSG_PUB.Count_And_Get(
1963: p_encoded => FND_API.G_FALSE,
1964: p_count => x_msg_count,
1965: p_data => x_msg_data );
1966:
1967: -- Debug info.
1980: -- Check if API is called in debug mode. If yes, disable debug.
1981: --disable_debug;
1982:
1983: WHEN OTHERS THEN
1984: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1985:
1986: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
1987: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
1988: FND_MSG_PUB.ADD;
1987: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
1988: FND_MSG_PUB.ADD;
1989:
1990: FND_MSG_PUB.Count_And_Get(
1991: p_encoded => FND_API.G_FALSE,
1992: p_count => x_msg_count,
1993: p_data => x_msg_data );
1994:
1995: -- Debug info.