[Home] [Help]
195: END IF;
196:
197: -- if primary key value is passed, check for uniqueness.
198: IF l_org_contact_id IS NOT NULL AND
199: l_org_contact_id <> FND_API.G_MISS_NUM
200: THEN
201: BEGIN
202: SELECT 'Y'
203: INTO l_dummy
206:
207: FND_MESSAGE.SET_NAME('AR', 'HZ_API_DUPLICATE_COLUMN');
208: FND_MESSAGE.SET_TOKEN('COLUMN', 'org_contact_id');
209: FND_MSG_PUB.ADD;
210: RAISE FND_API.G_EXC_ERROR;
211:
212: EXCEPTION
213: WHEN NO_DATA_FOUND THEN
214: NULL;
217:
218: l_gen_contact_number := fnd_profile.value('HZ_GENERATE_CONTACT_NUMBER');
219:
220: IF l_gen_contact_number = 'Y' OR l_gen_contact_number IS NULL THEN
221: IF l_contact_number = FND_API.G_MISS_CHAR OR l_contact_number IS NULL THEN
222: l_count := 1;
223:
224: WHILE l_count > 0 LOOP
225: SELECT to_char(hz_contact_numbers_s.nextval)
246: p_org_contact_rec,
247: l_rowid,
248: x_return_status);
249:
250: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
251: RAISE FND_API.G_EXC_ERROR;
252: END IF;
253: l_object_id := p_org_contact_rec.party_rel_rec.object_id;
254: p_org_contact_rec.party_rel_rec.created_by_module := p_org_contact_rec.created_by_module;
247: l_rowid,
248: x_return_status);
249:
250: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
251: RAISE FND_API.G_EXC_ERROR;
252: END IF;
253: l_object_id := p_org_contact_rec.party_rel_rec.object_id;
254: p_org_contact_rec.party_rel_rec.created_by_module := p_org_contact_rec.created_by_module;
255: p_org_contact_rec.party_rel_rec.application_id := p_org_contact_rec.application_id;
265: FND_MESSAGE.SET_TOKEN('FK', 'relationship_code, subject_type, object_type');
266: FND_MESSAGE.SET_TOKEN('COLUMN', 'forward_rel_code, subject_type, object_type');
267: FND_MESSAGE.SET_TOKEN('TABLE', 'hz_relationship_types');
268: FND_MSG_PUB.ADD;
269: RAISE FND_API.G_EXC_ERROR;
270: END IF;
271: CLOSE c_rel;
272:
273: p_org_contact_rec.party_rel_rec.object_id := p_org_contact_rec.party_rel_rec.subject_id;
278:
279: /* Bug Fix : 2500275 */
280: IF p_org_contact_rec.party_rel_rec.subject_type = 'PERSON' AND
281: p_org_contact_rec.title IS NOT NULL AND
282: p_org_contact_rec.title <> FND_API.G_MISS_CHAR
283: THEN
284: /* HZ_PARTIES */
285: BEGIN
286: SELECT person_pre_name_adjunct
293: WHEN OTHERS THEN
294: fnd_message.set_name('AR', 'HZ_API_RECORD_CHANGED');
295: fnd_message.set_token('TABLE', 'HZ_PARTIES');
296: fnd_msg_pub.add;
297: RAISE FND_API.G_EXC_ERROR;
298: END;
299: IF l_person_pre_name IS NULL THEN
300: UPDATE hz_parties
301: SET person_pre_name_adjunct = p_org_contact_rec.title
314: WHEN OTHERS THEN
315: fnd_message.set_name('AR', 'HZ_API_RECORD_CHANGED');
316: fnd_message.set_token('TABLE', 'HZ_PERSON_PROFILES');
317: fnd_msg_pub.add;
318: RAISE FND_API.G_EXC_ERROR;
319: END;
320: UPDATE hz_person_profiles
321: SET person_pre_name_adjunct = p_org_contact_rec.title
322: WHERE party_id = p_org_contact_rec.party_rel_rec.subject_id
341: p_org_contact_rec.party_rel_rec.party_rec.party_number := x_party_number;
342: p_org_contact_rec.party_rel_rec.relationship_id := x_party_rel_id;
343: l_org_status := p_org_contact_rec.party_rel_rec.status;
344:
345: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
346: RAISE FND_API.G_EXC_ERROR;
347: END IF;
348:
349: -- this is for orig_system_reference defaulting
342: p_org_contact_rec.party_rel_rec.relationship_id := x_party_rel_id;
343: l_org_status := p_org_contact_rec.party_rel_rec.status;
344:
345: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
346: RAISE FND_API.G_EXC_ERROR;
347: END IF;
348:
349: -- this is for orig_system_reference defaulting
350: IF p_org_contact_rec.org_contact_id = FND_API.G_MISS_NUM THEN
346: RAISE FND_API.G_EXC_ERROR;
347: END IF;
348:
349: -- this is for orig_system_reference defaulting
350: IF p_org_contact_rec.org_contact_id = FND_API.G_MISS_NUM THEN
351: p_org_contact_rec.org_contact_id := NULL;
352: END IF;
353:
354: -- Debug info.
414:
415:
416:
417: if p_org_contact_rec.orig_system is not null
418: and p_org_contact_rec.orig_system <>fnd_api.g_miss_char
419: then
420: l_orig_sys_reference_rec.orig_system := p_org_contact_rec.orig_system;
421: l_orig_sys_reference_rec.orig_system_reference := p_org_contact_rec.orig_system_reference;
422: l_orig_sys_reference_rec.owner_table_name := 'HZ_ORG_CONTACTS';
423: l_orig_sys_reference_rec.owner_table_id := p_org_contact_rec.org_contact_id;
424: l_orig_sys_reference_rec.created_by_module := p_org_contact_rec.created_by_module;
425:
426: hz_orig_system_ref_pub.create_orig_system_reference(
427: FND_API.G_FALSE,
428: l_orig_sys_reference_rec,
429: x_return_status,
430: l_msg_count,
431: l_msg_data);
428: l_orig_sys_reference_rec,
429: x_return_status,
430: l_msg_count,
431: l_msg_data);
432: IF x_return_status <> fnd_api.g_ret_sts_success THEN
433: RAISE FND_API.G_EXC_ERROR;
434: END IF;
435: end if;
436:
429: x_return_status,
430: l_msg_count,
431: l_msg_data);
432: IF x_return_status <> fnd_api.g_ret_sts_success THEN
433: RAISE FND_API.G_EXC_ERROR;
434: END IF;
435: end if;
436:
437: x_org_contact_id := p_org_contact_rec.org_contact_id;
524: THEN
525: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_RECORD_CHANGED' );
526: FND_MESSAGE.SET_TOKEN( 'TABLE', 'hz_org_contacts' );
527: FND_MSG_PUB.ADD;
528: RAISE FND_API.G_EXC_ERROR;
529: END IF;
530:
531: p_cont_object_version_number := NVL( l_object_version_number, 1 ) + 1;
532:
536: FND_MESSAGE.SET_TOKEN( 'RECORD', 'org contact' );
537: FND_MESSAGE.SET_TOKEN( 'VALUE',
538: NVL( TO_CHAR( p_org_contact_rec.org_contact_id ), 'null' ) );
539: FND_MSG_PUB.ADD;
540: RAISE FND_API.G_EXC_ERROR;
541: END;
542: --Bug Fix 2188731
543: IF p_org_contact_rec.party_rel_rec.relationship_id IS NOT NULL THEN
544:
563: FND_MESSAGE.SET_TOKEN( 'RECORD', 'party relationship' );
564: FND_MESSAGE.SET_TOKEN( 'VALUE',
565: NVL( TO_CHAR( p_org_contact_rec.party_rel_rec.relationship_id ), 'null' ) );
566: FND_MSG_PUB.ADD;
567: RAISE FND_API.G_EXC_ERROR;
568: END;
569: END IF;
570: -- call for validations.
571: HZ_REGISTRY_VALIDATE_V2PUB.validate_org_contact(
573: p_org_contact_rec,
574: l_rowid,
575: x_return_status);
576:
577: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
578: RAISE FND_API.G_EXC_ERROR;
579: END IF;
580:
581: l_org_status := p_org_contact_rec.party_rel_rec.status ;
574: l_rowid,
575: x_return_status);
576:
577: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
578: RAISE FND_API.G_EXC_ERROR;
579: END IF;
580:
581: l_org_status := p_org_contact_rec.party_rel_rec.status ;
582:
603:
604: /* Bug No : 2500275 */
605:
606: IF p_org_contact_rec.title IS NOT NULL AND
607: p_org_contact_rec.title <> FND_API.G_MISS_CHAR
608: THEN
609: BEGIN
610: SELECT P.PERSON_PRE_NAME_ADJUNCT,P.PARTY_ID INTO
611: l_person_pre_name,l_party_id
633: END;
634: END IF;
635:
636: if (p_org_contact_rec.orig_system is not null
637: and p_org_contact_rec.orig_system <>fnd_api.g_miss_char)
638: and (p_org_contact_rec.orig_system_reference is not null
639: and p_org_contact_rec.orig_system_reference <>fnd_api.g_miss_char)
640: then
641: p_org_contact_rec.orig_system_reference := null;
635:
636: if (p_org_contact_rec.orig_system is not null
637: and p_org_contact_rec.orig_system <>fnd_api.g_miss_char)
638: and (p_org_contact_rec.orig_system_reference is not null
639: and p_org_contact_rec.orig_system_reference <>fnd_api.g_miss_char)
640: then
641: p_org_contact_rec.orig_system_reference := null;
642: -- In mosr, we have bypassed osr nonupdateable validation
643: -- but we should not update existing osr, set it to null
704: END IF;
705:
706: -- update party relationship. party_relationship_id in hz_org_contacts is
707: -- non-updateable and l_party_relationship_id is selected from table.
708: IF nvl(p_rel_object_version_number, 1) <> FND_API.G_MISS_NUM
709: THEN
710: IF l_party_relationship_id IS NOT NULL THEN
711: p_org_contact_rec.party_rel_rec.relationship_id := l_party_relationship_id;
712: p_org_contact_rec.party_rel_rec.created_by_module := p_org_contact_rec.created_by_module;
730: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NO_RECORD' );
731: FND_MESSAGE.SET_TOKEN( 'RECORD', 'party relationship' );
732: FND_MESSAGE.SET_TOKEN( 'VALUE', NVL( TO_CHAR( p_org_contact_rec.party_rel_rec.relationship_id ), 'null' ) );
733: FND_MSG_PUB.ADD;
734: RAISE FND_API.G_EXC_ERROR;
735: END;
736:
737: p_org_contact_rec.party_rel_rec.object_type := 'ORGANIZATION';
738: p_org_contact_rec.party_rel_rec.subject_type := 'PERSON';
745: x_return_status => x_return_status,
746: x_msg_count => l_msg_count,
747: x_msg_data => l_msg_data
748: );
749: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
750: RAISE FND_API.G_EXC_ERROR; --BUG# 6335274
751: END IF;
752: END IF;
753: END IF;
746: x_msg_count => l_msg_count,
747: x_msg_data => l_msg_data
748: );
749: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
750: RAISE FND_API.G_EXC_ERROR; --BUG# 6335274
751: END IF;
752: END IF;
753: END IF;
754:
813: END IF;
814:
815: -- if primary key value is passed, check for uniqueness.
816: IF l_org_contact_role_id IS NOT NULL AND
817: l_org_contact_role_id <> FND_API.G_MISS_NUM
818: THEN
819: BEGIN
820: SELECT 'Y'
821: INTO l_dummy
824:
825: FND_MESSAGE.SET_NAME('AR', 'HZ_API_DUPLICATE_COLUMN');
826: FND_MESSAGE.SET_TOKEN('COLUMN', 'org_contact_role_id');
827: FND_MSG_PUB.ADD;
828: RAISE FND_API.G_EXC_ERROR;
829:
830: EXCEPTION
831: WHEN NO_DATA_FOUND THEN
832: NULL;
838: p_org_contact_role_rec,
839: l_rowid,
840: x_return_status);
841:
842: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
843: RAISE FND_API.G_EXC_ERROR;
844: END IF;
845:
846: -- this is for orig_system_reference defaulting
839: l_rowid,
840: x_return_status);
841:
842: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
843: RAISE FND_API.G_EXC_ERROR;
844: END IF;
845:
846: -- this is for orig_system_reference defaulting
847: IF p_org_contact_role_rec.org_contact_role_id = FND_API.G_MISS_NUM THEN
843: RAISE FND_API.G_EXC_ERROR;
844: END IF;
845:
846: -- this is for orig_system_reference defaulting
847: IF p_org_contact_role_rec.org_contact_role_id = FND_API.G_MISS_NUM THEN
848: p_org_contact_role_rec.org_contact_role_id := NULL;
849: END IF;
850:
851: /* Bug#6411541: Start of changes made by Neeraj Shinde
928:
929: -- Bug#6411541: End of changes made by Neeraj
930:
931: if p_org_contact_role_rec.orig_system is not null
932: and p_org_contact_role_rec.orig_system <>fnd_api.g_miss_char
933: then
934: l_orig_sys_reference_rec.orig_system := p_org_contact_role_rec.orig_system;
935: l_orig_sys_reference_rec.orig_system_reference := p_org_contact_role_rec.orig_system_reference;
936: l_orig_sys_reference_rec.owner_table_name := 'HZ_ORG_CONTACT_ROLES';
940: l_orig_sys_reference_rec.created_by_module := p_org_contact_role_rec.created_by_module;
941: -- End changes made by Neeraj
942:
943: hz_orig_system_ref_pub.create_orig_system_reference(
944: FND_API.G_FALSE,
945: l_orig_sys_reference_rec,
946: x_return_status,
947: l_msg_count,
948: l_msg_data);
945: l_orig_sys_reference_rec,
946: x_return_status,
947: l_msg_count,
948: l_msg_data);
949: IF x_return_status <> fnd_api.g_ret_sts_success THEN
950: RAISE FND_API.G_EXC_ERROR;
951: END IF;
952: end if;
953:
946: x_return_status,
947: l_msg_count,
948: l_msg_data);
949: IF x_return_status <> fnd_api.g_ret_sts_success THEN
950: RAISE FND_API.G_EXC_ERROR;
951: END IF;
952: end if;
953:
954: -- Debug info.
1026: THEN
1027: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1028: FND_MESSAGE.SET_TOKEN('TABLE', 'hz_org_contact_roles');
1029: FND_MSG_PUB.ADD;
1030: RAISE FND_API.G_EXC_ERROR;
1031: END IF;
1032:
1033: p_object_version_number := nvl(l_object_version_number, 1) + 1;
1034:
1036: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
1037: FND_MESSAGE.SET_TOKEN('RECORD', 'contact role');
1038: FND_MESSAGE.SET_TOKEN('VALUE', NVL( TO_CHAR(p_org_contact_role_rec.org_contact_role_id ), 'null' ) );
1039: FND_MSG_PUB.ADD;
1040: RAISE FND_API.G_EXC_ERROR;
1041: END;
1042:
1043: -- call for validations.
1044: HZ_REGISTRY_VALIDATE_V2PUB.validate_org_contact_role(
1046: p_org_contact_role_rec,
1047: l_rowid,
1048: x_return_status);
1049:
1050: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1051: RAISE FND_API.G_EXC_ERROR;
1052: END IF;
1053:
1054: if (p_org_contact_role_rec.orig_system is not null
1047: l_rowid,
1048: x_return_status);
1049:
1050: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1051: RAISE FND_API.G_EXC_ERROR;
1052: END IF;
1053:
1054: if (p_org_contact_role_rec.orig_system is not null
1055: and p_org_contact_role_rec.orig_system <>fnd_api.g_miss_char)
1051: RAISE FND_API.G_EXC_ERROR;
1052: END IF;
1053:
1054: if (p_org_contact_role_rec.orig_system is not null
1055: and p_org_contact_role_rec.orig_system <>fnd_api.g_miss_char)
1056: and (p_org_contact_role_rec.orig_system_reference is not null
1057: and p_org_contact_role_rec.orig_system_reference <>fnd_api.g_miss_char)
1058: then
1059: p_org_contact_role_rec.orig_system_reference := null;
1053:
1054: if (p_org_contact_role_rec.orig_system is not null
1055: and p_org_contact_role_rec.orig_system <>fnd_api.g_miss_char)
1056: and (p_org_contact_role_rec.orig_system_reference is not null
1057: and p_org_contact_role_rec.orig_system_reference <>fnd_api.g_miss_char)
1058: then
1059: p_org_contact_role_rec.orig_system_reference := null;
1060: -- In mosr, we have bypassed osr nonupdateable validation
1061: -- but we should not update existing osr, set it to null
1137: |
1138: +===========================================================================*/
1139:
1140: PROCEDURE create_org_contact (
1141: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
1142: p_org_contact_rec IN ORG_CONTACT_REC_TYPE,
1143: x_org_contact_id OUT NOCOPY NUMBER,
1144: x_party_rel_id OUT NOCOPY NUMBER,
1145: x_party_id OUT NOCOPY NUMBER,
1169: p_msg_level=>fnd_log.level_procedure);
1170: END IF;
1171:
1172: -- initialize message list if p_init_msg_list is set to TRUE.
1173: IF FND_API.to_Boolean(p_init_msg_list) THEN
1174: FND_MSG_PUB.initialize;
1175: END IF;
1176:
1177: -- initialize API return status to success.
1174: FND_MSG_PUB.initialize;
1175: END IF;
1176:
1177: -- initialize API return status to success.
1178: x_return_status := FND_API.G_RET_STS_SUCCESS;
1179:
1180: -- report error on obsolete columns based on profile
1181: IF NVL(FND_PROFILE.VALUE('HZ_API_ERR_ON_OBSOLETE_COLUMN'), 'Y') = 'Y' THEN
1182: check_obsolete_columns (
1184: p_org_contact_rec => l_org_contact_rec,
1185: x_return_status => x_return_status
1186: );
1187:
1188: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1189: RAISE FND_API.G_EXC_ERROR;
1190: END IF;
1191: END IF;
1192:
1185: x_return_status => x_return_status
1186: );
1187:
1188: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1189: RAISE FND_API.G_EXC_ERROR;
1190: END IF;
1191: END IF;
1192:
1193: -- call to business logic.
1199: x_party_id,
1200: x_party_number
1201: );
1202:
1203: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1204: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('EVENTS_ENABLED', 'Y')) THEN
1205: -- Invoke business event system.
1206: HZ_BUSINESS_EVENT_V2PVT.create_org_contact_event (
1207: l_org_contact_rec );
1217:
1218: -- Call to indicate Org Contact creation to DQM
1219: --Bug 4866187
1220: --Bug 5370799
1221: IF (p_org_contact_rec.orig_system IS NULL OR p_org_contact_rec.orig_system=FND_API.G_MISS_CHAR) THEN
1222: HZ_DQM_SYNC.sync_contact(l_org_contact_rec.org_contact_id, 'C');
1223: END IF;
1224: -- standard call to get message count and if count is 1, get message info.
1225: FND_MSG_PUB.Count_And_Get(
1222: HZ_DQM_SYNC.sync_contact(l_org_contact_rec.org_contact_id, 'C');
1223: END IF;
1224: -- standard call to get message count and if count is 1, get message info.
1225: FND_MSG_PUB.Count_And_Get(
1226: p_encoded => FND_API.G_FALSE,
1227: p_count => x_msg_count,
1228: p_data => x_msg_data);
1229:
1230: -- Debug info.
1243: -- Check if API is called in debug mode. If yes, disable debug.
1244: --disable_debug;
1245:
1246: EXCEPTION
1247: WHEN FND_API.G_EXC_ERROR THEN
1248: ROLLBACK TO create_org_contact;
1249: x_return_status := FND_API.G_RET_STS_ERROR;
1250: FND_MSG_PUB.Count_And_Get(
1251: p_encoded => FND_API.G_FALSE,
1245:
1246: EXCEPTION
1247: WHEN FND_API.G_EXC_ERROR THEN
1248: ROLLBACK TO create_org_contact;
1249: x_return_status := FND_API.G_RET_STS_ERROR;
1250: FND_MSG_PUB.Count_And_Get(
1251: p_encoded => FND_API.G_FALSE,
1252: p_count => x_msg_count,
1253: p_data => x_msg_data);
1247: WHEN FND_API.G_EXC_ERROR THEN
1248: ROLLBACK TO create_org_contact;
1249: x_return_status := FND_API.G_RET_STS_ERROR;
1250: FND_MSG_PUB.Count_And_Get(
1251: p_encoded => FND_API.G_FALSE,
1252: p_count => x_msg_count,
1253: p_data => x_msg_data);
1254:
1255: -- Debug info.
1268:
1269: -- Check if API is called in debug mode. If yes, disable debug.
1270: --disable_debug;
1271:
1272: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1273: ROLLBACK TO create_org_contact;
1274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1275: FND_MSG_PUB.Count_And_Get(
1276: p_encoded => FND_API.G_FALSE,
1270: --disable_debug;
1271:
1272: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1273: ROLLBACK TO create_org_contact;
1274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1275: FND_MSG_PUB.Count_And_Get(
1276: p_encoded => FND_API.G_FALSE,
1277: p_count => x_msg_count,
1278: p_data => x_msg_data);
1272: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1273: ROLLBACK TO create_org_contact;
1274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1275: FND_MSG_PUB.Count_And_Get(
1276: p_encoded => FND_API.G_FALSE,
1277: p_count => x_msg_count,
1278: p_data => x_msg_data);
1279:
1280: -- Debug info.
1294: --disable_debug;
1295:
1296: WHEN OTHERS THEN
1297: ROLLBACK TO create_org_contact;
1298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1299: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1300: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1301: FND_MSG_PUB.ADD;
1302: FND_MSG_PUB.Count_And_Get(
1299: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1300: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1301: FND_MSG_PUB.ADD;
1302: FND_MSG_PUB.Count_And_Get(
1303: p_encoded => FND_API.G_FALSE,
1304: p_count => x_msg_count,
1305: p_data => x_msg_data);
1306:
1307: -- Debug info.
1355: |
1356: +===========================================================================*/
1357:
1358: PROCEDURE update_org_contact (
1359: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
1360: p_org_contact_rec IN ORG_CONTACT_REC_TYPE,
1361: p_cont_object_version_number IN OUT NOCOPY NUMBER,
1362: p_rel_object_version_number IN OUT NOCOPY NUMBER,
1363: p_party_object_version_number IN OUT NOCOPY NUMBER,
1388: p_msg_level=>fnd_log.level_procedure);
1389: END IF;
1390:
1391: -- initialize message list if p_init_msg_list is set to TRUE.
1392: IF FND_API.to_Boolean(p_init_msg_list) THEN
1393: FND_MSG_PUB.initialize;
1394: END IF;
1395:
1396: -- initialize API return status to success.
1393: FND_MSG_PUB.initialize;
1394: END IF;
1395:
1396: -- initialize API return status to success.
1397: x_return_status := FND_API.G_RET_STS_SUCCESS;
1398:
1399: IF (p_org_contact_rec.orig_system is not null
1400: and p_org_contact_rec.orig_system <>fnd_api.g_miss_char)
1401: and (p_org_contact_rec.orig_system_reference is not null
1396: -- initialize API return status to success.
1397: x_return_status := FND_API.G_RET_STS_SUCCESS;
1398:
1399: IF (p_org_contact_rec.orig_system is not null
1400: and p_org_contact_rec.orig_system <>fnd_api.g_miss_char)
1401: and (p_org_contact_rec.orig_system_reference is not null
1402: and p_org_contact_rec.orig_system_reference <>fnd_api.g_miss_char)
1403: and (p_org_contact_rec.org_contact_id = FND_API.G_MISS_NUM or p_org_contact_rec.org_contact_id is null) THEN
1404: hz_orig_system_ref_pub.get_owner_table_id
1398:
1399: IF (p_org_contact_rec.orig_system is not null
1400: and p_org_contact_rec.orig_system <>fnd_api.g_miss_char)
1401: and (p_org_contact_rec.orig_system_reference is not null
1402: and p_org_contact_rec.orig_system_reference <>fnd_api.g_miss_char)
1403: and (p_org_contact_rec.org_contact_id = FND_API.G_MISS_NUM or p_org_contact_rec.org_contact_id is null) THEN
1404: hz_orig_system_ref_pub.get_owner_table_id
1405: (p_orig_system => p_org_contact_rec.orig_system,
1406: p_orig_system_reference => p_org_contact_rec.orig_system_reference,
1399: IF (p_org_contact_rec.orig_system is not null
1400: and p_org_contact_rec.orig_system <>fnd_api.g_miss_char)
1401: and (p_org_contact_rec.orig_system_reference is not null
1402: and p_org_contact_rec.orig_system_reference <>fnd_api.g_miss_char)
1403: and (p_org_contact_rec.org_contact_id = FND_API.G_MISS_NUM or p_org_contact_rec.org_contact_id is null) THEN
1404: hz_orig_system_ref_pub.get_owner_table_id
1405: (p_orig_system => p_org_contact_rec.orig_system,
1406: p_orig_system_reference => p_org_contact_rec.orig_system_reference,
1407: p_owner_table_name => 'HZ_ORG_CONTACTS',
1406: p_orig_system_reference => p_org_contact_rec.orig_system_reference,
1407: p_owner_table_name => 'HZ_ORG_CONTACTS',
1408: x_owner_table_id => l_org_contact_rec.org_contact_id,
1409: x_return_status => x_return_status);
1410: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1411: RAISE FND_API.G_EXC_ERROR;
1412: END IF;
1413: END IF;
1414:
1407: p_owner_table_name => 'HZ_ORG_CONTACTS',
1408: x_owner_table_id => l_org_contact_rec.org_contact_id,
1409: x_return_status => x_return_status);
1410: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1411: RAISE FND_API.G_EXC_ERROR;
1412: END IF;
1413: END IF;
1414:
1415:
1420: x_return_status => x_return_status,
1421: x_msg_count => x_msg_count,
1422: x_msg_data => x_msg_data );
1423:
1424: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1425: RAISE FND_API.G_EXC_ERROR;
1426: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1428: END IF;
1421: x_msg_count => x_msg_count,
1422: x_msg_data => x_msg_data );
1423:
1424: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1425: RAISE FND_API.G_EXC_ERROR;
1426: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1428: END IF;
1429:
1422: x_msg_data => x_msg_data );
1423:
1424: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1425: RAISE FND_API.G_EXC_ERROR;
1426: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1428: END IF;
1429:
1430: -- report error on obsolete columns based on profile
1423:
1424: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1425: RAISE FND_API.G_EXC_ERROR;
1426: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1428: END IF;
1429:
1430: -- report error on obsolete columns based on profile
1431: IF NVL(FND_PROFILE.VALUE('HZ_API_ERR_ON_OBSOLETE_COLUMN'), 'Y') = 'Y' THEN
1435: p_old_org_contact_rec => l_old_org_contact_rec,
1436: x_return_status => x_return_status
1437: );
1438:
1439: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1440: RAISE FND_API.G_EXC_ERROR;
1441: END IF;
1442: END IF;
1443:
1436: x_return_status => x_return_status
1437: );
1438:
1439: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1440: RAISE FND_API.G_EXC_ERROR;
1441: END IF;
1442: END IF;
1443:
1444: -- call to business logic.
1449: p_party_object_version_number,
1450: x_return_status
1451: );
1452:
1453: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1454: l_old_org_contact_rec.orig_system := p_org_contact_rec.orig_system;
1455: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('EVENTS_ENABLED', 'Y')) THEN
1456: -- Invoke business event system.
1457: HZ_BUSINESS_EVENT_V2PVT.update_org_contact_event (
1471: HZ_DQM_SYNC.sync_contact(l_org_contact_rec.org_contact_id, 'U');
1472:
1473: -- standard call to get message count and if count is 1, get message info.
1474: FND_MSG_PUB.Count_And_Get(
1475: p_encoded => FND_API.G_FALSE,
1476: p_count => x_msg_count,
1477: p_data => x_msg_data);
1478:
1479: -- Debug info.
1491:
1492: -- Check if API is called in debug mode. If yes, disable debug.
1493: --disable_debug;
1494: EXCEPTION
1495: WHEN FND_API.G_EXC_ERROR THEN
1496: ROLLBACK TO update_org_contact;
1497: x_return_status := FND_API.G_RET_STS_ERROR;
1498: FND_MSG_PUB.Count_And_Get(
1499: p_encoded => FND_API.G_FALSE,
1493: --disable_debug;
1494: EXCEPTION
1495: WHEN FND_API.G_EXC_ERROR THEN
1496: ROLLBACK TO update_org_contact;
1497: x_return_status := FND_API.G_RET_STS_ERROR;
1498: FND_MSG_PUB.Count_And_Get(
1499: p_encoded => FND_API.G_FALSE,
1500: p_count => x_msg_count,
1501: p_data => x_msg_data);
1495: WHEN FND_API.G_EXC_ERROR THEN
1496: ROLLBACK TO update_org_contact;
1497: x_return_status := FND_API.G_RET_STS_ERROR;
1498: FND_MSG_PUB.Count_And_Get(
1499: p_encoded => FND_API.G_FALSE,
1500: p_count => x_msg_count,
1501: p_data => x_msg_data);
1502:
1503: -- Debug info.
1515:
1516: -- Check if API is called in debug mode. If yes, disable debug.
1517: --disable_debug;
1518:
1519: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1520: ROLLBACK TO update_org_contact;
1521: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1522: FND_MSG_PUB.Count_And_Get(
1523: p_encoded => FND_API.G_FALSE,
1517: --disable_debug;
1518:
1519: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1520: ROLLBACK TO update_org_contact;
1521: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1522: FND_MSG_PUB.Count_And_Get(
1523: p_encoded => FND_API.G_FALSE,
1524: p_count => x_msg_count,
1525: p_data => x_msg_data);
1519: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1520: ROLLBACK TO update_org_contact;
1521: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1522: FND_MSG_PUB.Count_And_Get(
1523: p_encoded => FND_API.G_FALSE,
1524: p_count => x_msg_count,
1525: p_data => x_msg_data);
1526:
1527: -- Debug info.
1541: --disable_debug;
1542:
1543: WHEN OTHERS THEN
1544: ROLLBACK TO update_org_contact;
1545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1546: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1547: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1548: FND_MSG_PUB.ADD;
1549: FND_MSG_PUB.Count_And_Get(
1546: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1547: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1548: FND_MSG_PUB.ADD;
1549: FND_MSG_PUB.Count_And_Get(
1550: p_encoded => FND_API.G_FALSE,
1551: p_count => x_msg_count,
1552: p_data => x_msg_data);
1553:
1554: -- Debug info.
1599: |
1600: +===========================================================================*/
1601:
1602: PROCEDURE create_org_contact_role (
1603: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
1604: p_org_contact_role_rec IN ORG_CONTACT_ROLE_REC_TYPE,
1605: x_org_contact_role_id OUT NOCOPY NUMBER,
1606: x_return_status OUT NOCOPY VARCHAR2,
1607: x_msg_count OUT NOCOPY NUMBER,
1628: p_msg_level=>fnd_log.level_procedure);
1629: END IF;
1630:
1631: -- initialize message list if p_init_msg_list is set to TRUE.
1632: IF FND_API.to_Boolean(p_init_msg_list) THEN
1633: FND_MSG_PUB.initialize;
1634: END IF;
1635:
1636: -- initialize API return status to success.
1633: FND_MSG_PUB.initialize;
1634: END IF;
1635:
1636: -- initialize API return status to success.
1637: x_return_status := FND_API.G_RET_STS_SUCCESS;
1638:
1639: -- call to business logic.
1640: do_create_org_contact_role(
1641: l_org_contact_role_rec,
1642: x_org_contact_role_id,
1643: x_return_status
1644: );
1645:
1646: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1647: -- Invoke business event system.
1648: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('EVENTS_ENABLED', 'Y')) THEN
1649: HZ_BUSINESS_EVENT_V2PVT.create_org_contact_role_event (
1650: l_org_contact_role_rec );
1658: END IF;
1659:
1660: -- standard call to get message count and if count is 1, get message info.
1661: FND_MSG_PUB.Count_And_Get(
1662: p_encoded => FND_API.G_FALSE,
1663: p_count => x_msg_count,
1664: p_data => x_msg_data);
1665:
1666: -- Debug info.
1679: -- Check if API is called in debug mode. If yes, disable debug.
1680: --disable_debug;
1681:
1682: EXCEPTION
1683: WHEN FND_API.G_EXC_ERROR THEN
1684: ROLLBACK TO create_org_contact_role;
1685: x_return_status := FND_API.G_RET_STS_ERROR;
1686: FND_MSG_PUB.Count_And_Get(
1687: p_encoded => FND_API.G_FALSE,
1681:
1682: EXCEPTION
1683: WHEN FND_API.G_EXC_ERROR THEN
1684: ROLLBACK TO create_org_contact_role;
1685: x_return_status := FND_API.G_RET_STS_ERROR;
1686: FND_MSG_PUB.Count_And_Get(
1687: p_encoded => FND_API.G_FALSE,
1688: p_count => x_msg_count,
1689: p_data => x_msg_data);
1683: WHEN FND_API.G_EXC_ERROR THEN
1684: ROLLBACK TO create_org_contact_role;
1685: x_return_status := FND_API.G_RET_STS_ERROR;
1686: FND_MSG_PUB.Count_And_Get(
1687: p_encoded => FND_API.G_FALSE,
1688: p_count => x_msg_count,
1689: p_data => x_msg_data);
1690:
1691: -- Debug info.
1703:
1704: -- Check if API is called in debug mode. If yes, disable debug.
1705: --disable_debug;
1706:
1707: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1708: ROLLBACK TO create_org_contact_role;
1709: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1710: FND_MSG_PUB.Count_And_Get(
1711: p_encoded => FND_API.G_FALSE,
1705: --disable_debug;
1706:
1707: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1708: ROLLBACK TO create_org_contact_role;
1709: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1710: FND_MSG_PUB.Count_And_Get(
1711: p_encoded => FND_API.G_FALSE,
1712: p_count => x_msg_count,
1713: p_data => x_msg_data);
1707: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1708: ROLLBACK TO create_org_contact_role;
1709: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1710: FND_MSG_PUB.Count_And_Get(
1711: p_encoded => FND_API.G_FALSE,
1712: p_count => x_msg_count,
1713: p_data => x_msg_data);
1714:
1715: -- Debug info.
1729: --disable_debug;
1730:
1731: WHEN OTHERS THEN
1732: ROLLBACK TO create_org_contact_role;
1733: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1734: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1735: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1736: FND_MSG_PUB.ADD;
1737: FND_MSG_PUB.Count_And_Get(
1734: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1735: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1736: FND_MSG_PUB.ADD;
1737: FND_MSG_PUB.Count_And_Get(
1738: p_encoded => FND_API.G_FALSE,
1739: p_count => x_msg_count,
1740: p_data => x_msg_data);
1741:
1742: -- Debug info.
1787: |
1788: +===========================================================================*/
1789:
1790: PROCEDURE update_org_contact_role (
1791: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
1792: p_org_contact_role_rec IN ORG_CONTACT_ROLE_REC_TYPE,
1793: p_object_version_number IN OUT NOCOPY NUMBER,
1794: x_return_status OUT NOCOPY VARCHAR2,
1795: x_msg_count OUT NOCOPY NUMBER,
1817: p_msg_level=>fnd_log.level_procedure);
1818: END IF;
1819:
1820: -- initialize message list if p_init_msg_list is set to TRUE.
1821: IF FND_API.to_Boolean(p_init_msg_list) THEN
1822: FND_MSG_PUB.initialize;
1823: END IF;
1824:
1825: -- initialize API return status to success.
1822: FND_MSG_PUB.initialize;
1823: END IF;
1824:
1825: -- initialize API return status to success.
1826: x_return_status := FND_API.G_RET_STS_SUCCESS;
1827:
1828: IF (p_org_contact_role_rec.orig_system is not null
1829: and p_org_contact_role_rec.orig_system <>fnd_api.g_miss_char)
1830: and (p_org_contact_role_rec.orig_system_reference is not null
1825: -- initialize API return status to success.
1826: x_return_status := FND_API.G_RET_STS_SUCCESS;
1827:
1828: IF (p_org_contact_role_rec.orig_system is not null
1829: and p_org_contact_role_rec.orig_system <>fnd_api.g_miss_char)
1830: and (p_org_contact_role_rec.orig_system_reference is not null
1831: and p_org_contact_role_rec.orig_system_reference <>fnd_api.g_miss_char)
1832: and (p_org_contact_role_rec.org_contact_role_id = FND_API.G_MISS_NUM or p_org_contact_role_rec.org_contact_role_id is null) THEN
1833: hz_orig_system_ref_pub.get_owner_table_id
1827:
1828: IF (p_org_contact_role_rec.orig_system is not null
1829: and p_org_contact_role_rec.orig_system <>fnd_api.g_miss_char)
1830: and (p_org_contact_role_rec.orig_system_reference is not null
1831: and p_org_contact_role_rec.orig_system_reference <>fnd_api.g_miss_char)
1832: and (p_org_contact_role_rec.org_contact_role_id = FND_API.G_MISS_NUM or p_org_contact_role_rec.org_contact_role_id is null) THEN
1833: hz_orig_system_ref_pub.get_owner_table_id
1834: (p_orig_system => p_org_contact_role_rec.orig_system,
1835: p_orig_system_reference => p_org_contact_role_rec.orig_system_reference,
1828: IF (p_org_contact_role_rec.orig_system is not null
1829: and p_org_contact_role_rec.orig_system <>fnd_api.g_miss_char)
1830: and (p_org_contact_role_rec.orig_system_reference is not null
1831: and p_org_contact_role_rec.orig_system_reference <>fnd_api.g_miss_char)
1832: and (p_org_contact_role_rec.org_contact_role_id = FND_API.G_MISS_NUM or p_org_contact_role_rec.org_contact_role_id is null) THEN
1833: hz_orig_system_ref_pub.get_owner_table_id
1834: (p_orig_system => p_org_contact_role_rec.orig_system,
1835: p_orig_system_reference => p_org_contact_role_rec.orig_system_reference,
1836: p_owner_table_name => 'HZ_ORG_CONTACT_ROLES',
1835: p_orig_system_reference => p_org_contact_role_rec.orig_system_reference,
1836: p_owner_table_name => 'HZ_ORG_CONTACT_ROLES',
1837: x_owner_table_id => l_org_contact_role_rec.org_contact_role_id,
1838: x_return_status => x_return_status);
1839: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1840: RAISE FND_API.G_EXC_ERROR;
1841: END IF;
1842: END IF;
1843:
1836: p_owner_table_name => 'HZ_ORG_CONTACT_ROLES',
1837: x_owner_table_id => l_org_contact_role_rec.org_contact_role_id,
1838: x_return_status => x_return_status);
1839: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1840: RAISE FND_API.G_EXC_ERROR;
1841: END IF;
1842: END IF;
1843:
1844: --2290537
1848: x_return_status => x_return_status,
1849: x_msg_count => x_msg_count,
1850: x_msg_data => x_msg_data);
1851:
1852: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1853: RAISE FND_API.G_EXC_ERROR;
1854: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1856: END IF;
1849: x_msg_count => x_msg_count,
1850: x_msg_data => x_msg_data);
1851:
1852: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1853: RAISE FND_API.G_EXC_ERROR;
1854: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1856: END IF;
1857:
1850: x_msg_data => x_msg_data);
1851:
1852: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1853: RAISE FND_API.G_EXC_ERROR;
1854: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1856: END IF;
1857:
1858: -- call to business logic.
1851:
1852: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1853: RAISE FND_API.G_EXC_ERROR;
1854: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1856: END IF;
1857:
1858: -- call to business logic.
1859: do_update_org_contact_role(
1861: p_object_version_number,
1862: x_return_status
1863: );
1864:
1865: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1866: -- Invoke business event system.
1867: l_old_org_contact_role_rec.orig_system := p_org_contact_role_rec.orig_system;
1868: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('EVENTS_ENABLED', 'Y')) THEN
1869: HZ_BUSINESS_EVENT_V2PVT.update_org_contact_role_event (
1878: END IF;
1879:
1880: -- standard call to get message count and if count is 1, get message info.
1881: FND_MSG_PUB.Count_And_Get(
1882: p_encoded => FND_API.G_FALSE,
1883: p_count => x_msg_count,
1884: p_data => x_msg_data);
1885:
1886: -- Debug info.
1899: -- Check if API is called in debug mode. If yes, disable debug.
1900: --disable_debug;
1901:
1902: EXCEPTION
1903: WHEN FND_API.G_EXC_ERROR THEN
1904: ROLLBACK TO update_org_contact_role;
1905: x_return_status := FND_API.G_RET_STS_ERROR;
1906: FND_MSG_PUB.Count_And_Get(
1907: p_encoded => FND_API.G_FALSE,
1901:
1902: EXCEPTION
1903: WHEN FND_API.G_EXC_ERROR THEN
1904: ROLLBACK TO update_org_contact_role;
1905: x_return_status := FND_API.G_RET_STS_ERROR;
1906: FND_MSG_PUB.Count_And_Get(
1907: p_encoded => FND_API.G_FALSE,
1908: p_count => x_msg_count,
1909: p_data => x_msg_data);
1903: WHEN FND_API.G_EXC_ERROR THEN
1904: ROLLBACK TO update_org_contact_role;
1905: x_return_status := FND_API.G_RET_STS_ERROR;
1906: FND_MSG_PUB.Count_And_Get(
1907: p_encoded => FND_API.G_FALSE,
1908: p_count => x_msg_count,
1909: p_data => x_msg_data);
1910:
1911: -- Debug info.
1923:
1924: -- Check if API is called in debug mode. If yes, disable debug.
1925: --disable_debug;
1926:
1927: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1928: ROLLBACK TO update_org_contact_role;
1929: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1930: FND_MSG_PUB.Count_And_Get(
1931: p_encoded => FND_API.G_FALSE,
1925: --disable_debug;
1926:
1927: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1928: ROLLBACK TO update_org_contact_role;
1929: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1930: FND_MSG_PUB.Count_And_Get(
1931: p_encoded => FND_API.G_FALSE,
1932: p_count => x_msg_count,
1933: p_data => x_msg_data);
1927: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1928: ROLLBACK TO update_org_contact_role;
1929: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1930: FND_MSG_PUB.Count_And_Get(
1931: p_encoded => FND_API.G_FALSE,
1932: p_count => x_msg_count,
1933: p_data => x_msg_data);
1934:
1935: -- Debug info.
1949: --disable_debug;
1950:
1951: WHEN OTHERS THEN
1952: ROLLBACK TO update_org_contact_role;
1953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1954: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1955: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1956: FND_MSG_PUB.ADD;
1957: FND_MSG_PUB.Count_And_Get(
1954: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1955: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1956: FND_MSG_PUB.ADD;
1957: FND_MSG_PUB.Count_And_Get(
1958: p_encoded => FND_API.G_FALSE,
1959: p_count => x_msg_count,
1960: p_data => x_msg_data);
1961:
1962: -- Debug info.
2009: |
2010: +===========================================================================*/
2011:
2012: PROCEDURE get_org_contact_rec (
2013: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2014: p_org_contact_id IN NUMBER,
2015: x_org_contact_rec OUT NOCOPY ORG_CONTACT_REC_TYPE,
2016: x_return_status OUT NOCOPY VARCHAR2,
2017: x_msg_count OUT NOCOPY NUMBER,
2024:
2025: BEGIN
2026:
2027: --Initialize message list if p_init_msg_list is set to TRUE.
2028: IF FND_API.to_Boolean(p_init_msg_list) THEN
2029: FND_MSG_PUB.initialize;
2030: END IF;
2031:
2032: --Initialize API return status to success.
2029: FND_MSG_PUB.initialize;
2030: END IF;
2031:
2032: --Initialize API return status to success.
2033: x_return_status := FND_API.G_RET_STS_SUCCESS;
2034: --Check whether primary key has been passed in.
2035: IF p_org_contact_id IS NULL OR
2036: p_org_contact_id = FND_API.G_MISS_NUM THEN
2037: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
2032: --Initialize API return status to success.
2033: x_return_status := FND_API.G_RET_STS_SUCCESS;
2034: --Check whether primary key has been passed in.
2035: IF p_org_contact_id IS NULL OR
2036: p_org_contact_id = FND_API.G_MISS_NUM THEN
2037: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
2038: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'org_contact_id' );
2039: FND_MSG_PUB.ADD;
2040: RAISE FND_API.G_EXC_ERROR;
2036: p_org_contact_id = FND_API.G_MISS_NUM THEN
2037: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
2038: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'org_contact_id' );
2039: FND_MSG_PUB.ADD;
2040: RAISE FND_API.G_EXC_ERROR;
2041: END IF;
2042:
2043: x_org_contact_rec.org_contact_id := p_org_contact_id;
2044:
2090: --- RETURN THE RELATIONSHIP REC
2091:
2092: IF l_party_relationship_id IS NOT NULL
2093: AND
2094: l_party_relationship_id <> FND_API.G_MISS_NUM
2095: THEN
2096: HZ_RELATIONSHIP_V2PUB.get_relationship_rec (
2097: p_relationship_id => l_party_relationship_id,
2098: p_directional_flag => 'F',
2101: x_msg_count => x_msg_count,
2102: x_msg_data => x_msg_data
2103: );
2104:
2105: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2106: RAISE FND_API.G_EXC_ERROR;
2107: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2109: END IF;
2102: x_msg_data => x_msg_data
2103: );
2104:
2105: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2106: RAISE FND_API.G_EXC_ERROR;
2107: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2109: END IF;
2110: END IF;
2103: );
2104:
2105: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2106: RAISE FND_API.G_EXC_ERROR;
2107: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2109: END IF;
2110: END IF;
2111:
2104:
2105: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2106: RAISE FND_API.G_EXC_ERROR;
2107: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2109: END IF;
2110: END IF;
2111:
2112: --Standard call to get message count and if count is 1, get message info.
2110: END IF;
2111:
2112: --Standard call to get message count and if count is 1, get message info.
2113: FND_MSG_PUB.Count_And_Get(
2114: p_encoded => FND_API.G_FALSE,
2115: p_count => x_msg_count,
2116: p_data => x_msg_data );
2117:
2118: EXCEPTION
2115: p_count => x_msg_count,
2116: p_data => x_msg_data );
2117:
2118: EXCEPTION
2119: WHEN FND_API.G_EXC_ERROR THEN
2120: x_return_status := FND_API.G_RET_STS_ERROR;
2121:
2122: FND_MSG_PUB.Count_And_Get(
2123: p_encoded => FND_API.G_FALSE,
2116: p_data => x_msg_data );
2117:
2118: EXCEPTION
2119: WHEN FND_API.G_EXC_ERROR THEN
2120: x_return_status := FND_API.G_RET_STS_ERROR;
2121:
2122: FND_MSG_PUB.Count_And_Get(
2123: p_encoded => FND_API.G_FALSE,
2124: p_count => x_msg_count,
2119: WHEN FND_API.G_EXC_ERROR THEN
2120: x_return_status := FND_API.G_RET_STS_ERROR;
2121:
2122: FND_MSG_PUB.Count_And_Get(
2123: p_encoded => FND_API.G_FALSE,
2124: p_count => x_msg_count,
2125: p_data => x_msg_data );
2126:
2127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2123: p_encoded => FND_API.G_FALSE,
2124: p_count => x_msg_count,
2125: p_data => x_msg_data );
2126:
2127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2129:
2130: FND_MSG_PUB.Count_And_Get(
2131: p_encoded => FND_API.G_FALSE,
2124: p_count => x_msg_count,
2125: p_data => x_msg_data );
2126:
2127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2129:
2130: FND_MSG_PUB.Count_And_Get(
2131: p_encoded => FND_API.G_FALSE,
2132: p_count => x_msg_count,
2127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2129:
2130: FND_MSG_PUB.Count_And_Get(
2131: p_encoded => FND_API.G_FALSE,
2132: p_count => x_msg_count,
2133: p_data => x_msg_data );
2134:
2135: WHEN OTHERS THEN
2132: p_count => x_msg_count,
2133: p_data => x_msg_data );
2134:
2135: WHEN OTHERS THEN
2136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2137: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
2138: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
2139: FND_MSG_PUB.ADD;
2140: FND_MSG_PUB.Count_And_Get(
2137: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
2138: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
2139: FND_MSG_PUB.ADD;
2140: FND_MSG_PUB.Count_And_Get(
2141: p_encoded => FND_API.G_FALSE,
2142: p_count => x_msg_count,
2143: p_data => x_msg_data );
2144:
2145: END get_org_contact_rec;
2173: |
2174: +===========================================================================*/
2175:
2176: PROCEDURE get_org_contact_role_rec (
2177: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2178: p_org_contact_role_id IN NUMBER,
2179: x_org_contact_role_rec OUT NOCOPY ORG_CONTACT_ROLE_REC_TYPE,
2180: x_return_status OUT NOCOPY VARCHAR2,
2181: x_msg_count OUT NOCOPY NUMBER,
2186:
2187: BEGIN
2188:
2189: --Initialize message list if p_init_msg_list is set to TRUE.
2190: IF FND_API.to_Boolean(p_init_msg_list) THEN
2191: FND_MSG_PUB.initialize;
2192: END IF;
2193:
2194: --Initialize API return status to success.
2191: FND_MSG_PUB.initialize;
2192: END IF;
2193:
2194: --Initialize API return status to success.
2195: x_return_status := FND_API.G_RET_STS_SUCCESS;
2196:
2197: --Check whether primary key has been passed in.
2198: IF p_org_contact_role_id IS NULL OR
2199: p_org_contact_role_id = FND_API.G_MISS_NUM THEN
2195: x_return_status := FND_API.G_RET_STS_SUCCESS;
2196:
2197: --Check whether primary key has been passed in.
2198: IF p_org_contact_role_id IS NULL OR
2199: p_org_contact_role_id = FND_API.G_MISS_NUM THEN
2200: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
2201: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'org_contact_role_id' );
2202: FND_MSG_PUB.ADD;
2203: RAISE FND_API.G_EXC_ERROR;
2199: p_org_contact_role_id = FND_API.G_MISS_NUM THEN
2200: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
2201: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'org_contact_role_id' );
2202: FND_MSG_PUB.ADD;
2203: RAISE FND_API.G_EXC_ERROR;
2204: END IF;
2205:
2206: x_org_contact_role_rec.org_contact_role_id := p_org_contact_role_id;
2207:
2219: );
2220:
2221: --Standard call to get message count and if count is 1, get message info.
2222: FND_MSG_PUB.Count_And_Get(
2223: p_encoded => FND_API.G_FALSE,
2224: p_count => x_msg_count,
2225: p_data => x_msg_data );
2226:
2227: EXCEPTION
2224: p_count => x_msg_count,
2225: p_data => x_msg_data );
2226:
2227: EXCEPTION
2228: WHEN FND_API.G_EXC_ERROR THEN
2229: x_return_status := FND_API.G_RET_STS_ERROR;
2230:
2231: FND_MSG_PUB.Count_And_Get(
2232: p_encoded => FND_API.G_FALSE,
2225: p_data => x_msg_data );
2226:
2227: EXCEPTION
2228: WHEN FND_API.G_EXC_ERROR THEN
2229: x_return_status := FND_API.G_RET_STS_ERROR;
2230:
2231: FND_MSG_PUB.Count_And_Get(
2232: p_encoded => FND_API.G_FALSE,
2233: p_count => x_msg_count,
2228: WHEN FND_API.G_EXC_ERROR THEN
2229: x_return_status := FND_API.G_RET_STS_ERROR;
2230:
2231: FND_MSG_PUB.Count_And_Get(
2232: p_encoded => FND_API.G_FALSE,
2233: p_count => x_msg_count,
2234: p_data => x_msg_data );
2235:
2236: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2232: p_encoded => FND_API.G_FALSE,
2233: p_count => x_msg_count,
2234: p_data => x_msg_data );
2235:
2236: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2238:
2239: FND_MSG_PUB.Count_And_Get(
2240: p_encoded => FND_API.G_FALSE,
2233: p_count => x_msg_count,
2234: p_data => x_msg_data );
2235:
2236: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2238:
2239: FND_MSG_PUB.Count_And_Get(
2240: p_encoded => FND_API.G_FALSE,
2241: p_count => x_msg_count,
2236: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2238:
2239: FND_MSG_PUB.Count_And_Get(
2240: p_encoded => FND_API.G_FALSE,
2241: p_count => x_msg_count,
2242: p_data => x_msg_data );
2243:
2244: WHEN OTHERS THEN
2241: p_count => x_msg_count,
2242: p_data => x_msg_data );
2243:
2244: WHEN OTHERS THEN
2245: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2246:
2247: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
2248: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
2249: FND_MSG_PUB.ADD;
2248: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
2249: FND_MSG_PUB.ADD;
2250:
2251: FND_MSG_PUB.Count_And_Get(
2252: p_encoded => FND_API.G_FALSE,
2253: p_count => x_msg_count,
2254: p_data => x_msg_data );
2255:
2256: END get_org_contact_role_rec;
2280:
2281: -- check title
2282: IF (p_create_update_flag = 'C' AND
2283: p_org_contact_rec.title IS NOT NULL AND
2284: p_org_contact_rec.title <> FND_API.G_MISS_CHAR) OR
2285: (p_create_update_flag = 'U' AND
2286: p_org_contact_rec.title IS NOT NULL AND
2287: p_org_contact_rec.title <> p_old_org_contact_rec.title)
2288: THEN
2288: THEN
2289: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');
2290: FND_MESSAGE.SET_TOKEN('COLUMN', 'title');
2291: FND_MSG_PUB.ADD;
2292: x_return_status := FND_API.G_RET_STS_ERROR;
2293: END IF;
2294:
2295: END check_obsolete_columns;
2296: