[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;
220: --Below count selection from HZ_ORG_CONTACTS query changed.
221: --When multiple records for sequence generated contact number then rror out.
222: --Instead of 1 getting count.
223: IF l_gen_contact_number = 'Y' OR l_gen_contact_number IS NULL THEN
224: IF l_contact_number = FND_API.G_MISS_CHAR OR l_contact_number IS NULL THEN
225: l_count := 1;
226:
227: WHILE l_count > 0 LOOP
228: SELECT to_char(hz_contact_numbers_s.nextval)
249: p_org_contact_rec,
250: l_rowid,
251: x_return_status);
252:
253: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
254: RAISE FND_API.G_EXC_ERROR;
255: END IF;
256: l_object_id := p_org_contact_rec.party_rel_rec.object_id;
257: p_org_contact_rec.party_rel_rec.created_by_module := p_org_contact_rec.created_by_module;
250: l_rowid,
251: x_return_status);
252:
253: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
254: RAISE FND_API.G_EXC_ERROR;
255: END IF;
256: l_object_id := p_org_contact_rec.party_rel_rec.object_id;
257: p_org_contact_rec.party_rel_rec.created_by_module := p_org_contact_rec.created_by_module;
258: p_org_contact_rec.party_rel_rec.application_id := p_org_contact_rec.application_id;
268: FND_MESSAGE.SET_TOKEN('FK', 'relationship_code, subject_type, object_type');
269: FND_MESSAGE.SET_TOKEN('COLUMN', 'forward_rel_code, subject_type, object_type');
270: FND_MESSAGE.SET_TOKEN('TABLE', 'hz_relationship_types');
271: FND_MSG_PUB.ADD;
272: RAISE FND_API.G_EXC_ERROR;
273: END IF;
274: CLOSE c_rel;
275:
276: p_org_contact_rec.party_rel_rec.object_id := p_org_contact_rec.party_rel_rec.subject_id;
281:
282: /* Bug Fix : 2500275 */
283: IF p_org_contact_rec.party_rel_rec.subject_type = 'PERSON' AND
284: p_org_contact_rec.title IS NOT NULL AND
285: p_org_contact_rec.title <> FND_API.G_MISS_CHAR
286: THEN
287: /* HZ_PARTIES */
288: BEGIN
289: SELECT person_pre_name_adjunct
296: WHEN OTHERS THEN
297: fnd_message.set_name('AR', 'HZ_API_RECORD_CHANGED');
298: fnd_message.set_token('TABLE', 'HZ_PARTIES');
299: fnd_msg_pub.add;
300: RAISE FND_API.G_EXC_ERROR;
301: END;
302: IF l_person_pre_name IS NULL THEN
303: UPDATE hz_parties
304: SET person_pre_name_adjunct = p_org_contact_rec.title
317: WHEN OTHERS THEN
318: fnd_message.set_name('AR', 'HZ_API_RECORD_CHANGED');
319: fnd_message.set_token('TABLE', 'HZ_PERSON_PROFILES');
320: fnd_msg_pub.add;
321: RAISE FND_API.G_EXC_ERROR;
322: END;
323: UPDATE hz_person_profiles
324: SET person_pre_name_adjunct = p_org_contact_rec.title
325: WHERE party_id = p_org_contact_rec.party_rel_rec.subject_id
344: p_org_contact_rec.party_rel_rec.party_rec.party_number := x_party_number;
345: p_org_contact_rec.party_rel_rec.relationship_id := x_party_rel_id;
346: l_org_status := p_org_contact_rec.party_rel_rec.status;
347:
348: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
349: RAISE FND_API.G_EXC_ERROR;
350: END IF;
351:
352: -- this is for orig_system_reference defaulting
345: p_org_contact_rec.party_rel_rec.relationship_id := x_party_rel_id;
346: l_org_status := p_org_contact_rec.party_rel_rec.status;
347:
348: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
349: RAISE FND_API.G_EXC_ERROR;
350: END IF;
351:
352: -- this is for orig_system_reference defaulting
353: IF p_org_contact_rec.org_contact_id = FND_API.G_MISS_NUM THEN
349: RAISE FND_API.G_EXC_ERROR;
350: END IF;
351:
352: -- this is for orig_system_reference defaulting
353: IF p_org_contact_rec.org_contact_id = FND_API.G_MISS_NUM THEN
354: p_org_contact_rec.org_contact_id := NULL;
355: END IF;
356:
357: -- Debug info.
419: --DQM Sync call added
420: HZ_DQM_SYNC.sync_contact(p_org_contact_rec.org_contact_id, 'C');
421:
422: if p_org_contact_rec.orig_system is not null
423: and p_org_contact_rec.orig_system <>fnd_api.g_miss_char
424: then
425: l_orig_sys_reference_rec.orig_system := p_org_contact_rec.orig_system;
426: l_orig_sys_reference_rec.orig_system_reference := p_org_contact_rec.orig_system_reference;
427: l_orig_sys_reference_rec.owner_table_name := 'HZ_ORG_CONTACTS';
428: l_orig_sys_reference_rec.owner_table_id := p_org_contact_rec.org_contact_id;
429: l_orig_sys_reference_rec.created_by_module := p_org_contact_rec.created_by_module;
430:
431: hz_orig_system_ref_pub.create_orig_system_reference(
432: FND_API.G_FALSE,
433: l_orig_sys_reference_rec,
434: x_return_status,
435: l_msg_count,
436: l_msg_data);
433: l_orig_sys_reference_rec,
434: x_return_status,
435: l_msg_count,
436: l_msg_data);
437: IF x_return_status <> fnd_api.g_ret_sts_success THEN
438: RAISE FND_API.G_EXC_ERROR;
439: END IF;
440: end if;
441:
434: x_return_status,
435: l_msg_count,
436: l_msg_data);
437: IF x_return_status <> fnd_api.g_ret_sts_success THEN
438: RAISE FND_API.G_EXC_ERROR;
439: END IF;
440: end if;
441:
442: x_org_contact_id := p_org_contact_rec.org_contact_id;
529: THEN
530: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_RECORD_CHANGED' );
531: FND_MESSAGE.SET_TOKEN( 'TABLE', 'hz_org_contacts' );
532: FND_MSG_PUB.ADD;
533: RAISE FND_API.G_EXC_ERROR;
534: END IF;
535:
536: p_cont_object_version_number := NVL( l_object_version_number, 1 ) + 1;
537:
541: FND_MESSAGE.SET_TOKEN( 'RECORD', 'org contact' );
542: FND_MESSAGE.SET_TOKEN( 'VALUE',
543: NVL( TO_CHAR( p_org_contact_rec.org_contact_id ), 'null' ) );
544: FND_MSG_PUB.ADD;
545: RAISE FND_API.G_EXC_ERROR;
546: END;
547: --Bug Fix 2188731
548: IF p_org_contact_rec.party_rel_rec.relationship_id IS NOT NULL THEN
549:
568: FND_MESSAGE.SET_TOKEN( 'RECORD', 'party relationship' );
569: FND_MESSAGE.SET_TOKEN( 'VALUE',
570: NVL( TO_CHAR( p_org_contact_rec.party_rel_rec.relationship_id ), 'null' ) );
571: FND_MSG_PUB.ADD;
572: RAISE FND_API.G_EXC_ERROR;
573: END;
574: END IF;
575: -- call for validations.
576: HZ_REGISTRY_VALIDATE_V2PUB.validate_org_contact(
578: p_org_contact_rec,
579: l_rowid,
580: x_return_status);
581:
582: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
583: RAISE FND_API.G_EXC_ERROR;
584: END IF;
585:
586: l_org_status := p_org_contact_rec.party_rel_rec.status ;
579: l_rowid,
580: x_return_status);
581:
582: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
583: RAISE FND_API.G_EXC_ERROR;
584: END IF;
585:
586: l_org_status := p_org_contact_rec.party_rel_rec.status ;
587:
608:
609: /* Bug No : 2500275 */
610:
611: IF p_org_contact_rec.title IS NOT NULL AND
612: p_org_contact_rec.title <> FND_API.G_MISS_CHAR
613: THEN
614: BEGIN
615: SELECT P.PERSON_PRE_NAME_ADJUNCT,P.PARTY_ID INTO
616: l_person_pre_name,l_party_id
638: END;
639: END IF;
640:
641: if (p_org_contact_rec.orig_system is not null
642: and p_org_contact_rec.orig_system <>fnd_api.g_miss_char)
643: and (p_org_contact_rec.orig_system_reference is not null
644: and p_org_contact_rec.orig_system_reference <>fnd_api.g_miss_char)
645: then
646: p_org_contact_rec.orig_system_reference := null;
640:
641: if (p_org_contact_rec.orig_system is not null
642: and p_org_contact_rec.orig_system <>fnd_api.g_miss_char)
643: and (p_org_contact_rec.orig_system_reference is not null
644: and p_org_contact_rec.orig_system_reference <>fnd_api.g_miss_char)
645: then
646: p_org_contact_rec.orig_system_reference := null;
647: -- In mosr, we have bypassed osr nonupdateable validation
648: -- but we should not update existing osr, set it to null
709: END IF;
710:
711: -- update party relationship. party_relationship_id in hz_org_contacts is
712: -- non-updateable and l_party_relationship_id is selected from table.
713: IF nvl(p_rel_object_version_number, 1) <> FND_API.G_MISS_NUM
714: THEN
715: IF l_party_relationship_id IS NOT NULL THEN
716: p_org_contact_rec.party_rel_rec.relationship_id := l_party_relationship_id;
717: p_org_contact_rec.party_rel_rec.created_by_module := p_org_contact_rec.created_by_module;
735: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NO_RECORD' );
736: FND_MESSAGE.SET_TOKEN( 'RECORD', 'party relationship' );
737: FND_MESSAGE.SET_TOKEN( 'VALUE', NVL( TO_CHAR( p_org_contact_rec.party_rel_rec.relationship_id ), 'null' ) );
738: FND_MSG_PUB.ADD;
739: RAISE FND_API.G_EXC_ERROR;
740: END;
741:
742: p_org_contact_rec.party_rel_rec.object_type := 'ORGANIZATION';
743: p_org_contact_rec.party_rel_rec.subject_type := 'PERSON';
750: x_return_status => x_return_status,
751: x_msg_count => l_msg_count,
752: x_msg_data => l_msg_data
753: );
754: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
755: RAISE FND_API.G_EXC_ERROR; --BUG# 6335274
756: END IF;
757: END IF;
758: END IF;
751: x_msg_count => l_msg_count,
752: x_msg_data => l_msg_data
753: );
754: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
755: RAISE FND_API.G_EXC_ERROR; --BUG# 6335274
756: END IF;
757: END IF;
758: END IF;
759:
818: END IF;
819:
820: -- if primary key value is passed, check for uniqueness.
821: IF l_org_contact_role_id IS NOT NULL AND
822: l_org_contact_role_id <> FND_API.G_MISS_NUM
823: THEN
824: BEGIN
825: SELECT 'Y'
826: INTO l_dummy
829:
830: FND_MESSAGE.SET_NAME('AR', 'HZ_API_DUPLICATE_COLUMN');
831: FND_MESSAGE.SET_TOKEN('COLUMN', 'org_contact_role_id');
832: FND_MSG_PUB.ADD;
833: RAISE FND_API.G_EXC_ERROR;
834:
835: EXCEPTION
836: WHEN NO_DATA_FOUND THEN
837: NULL;
843: p_org_contact_role_rec,
844: l_rowid,
845: x_return_status);
846:
847: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
848: RAISE FND_API.G_EXC_ERROR;
849: END IF;
850:
851: -- this is for orig_system_reference defaulting
844: l_rowid,
845: x_return_status);
846:
847: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
848: RAISE FND_API.G_EXC_ERROR;
849: END IF;
850:
851: -- this is for orig_system_reference defaulting
852: IF p_org_contact_role_rec.org_contact_role_id = FND_API.G_MISS_NUM THEN
848: RAISE FND_API.G_EXC_ERROR;
849: END IF;
850:
851: -- this is for orig_system_reference defaulting
852: IF p_org_contact_role_rec.org_contact_role_id = FND_API.G_MISS_NUM THEN
853: p_org_contact_role_rec.org_contact_role_id := NULL;
854: END IF;
855:
856: /* Bug#6411541: Start of changes made by Neeraj Shinde
933:
934: -- Bug#6411541: End of changes made by Neeraj
935:
936: if p_org_contact_role_rec.orig_system is not null
937: and p_org_contact_role_rec.orig_system <>fnd_api.g_miss_char
938: then
939: l_orig_sys_reference_rec.orig_system := p_org_contact_role_rec.orig_system;
940: l_orig_sys_reference_rec.orig_system_reference := p_org_contact_role_rec.orig_system_reference;
941: l_orig_sys_reference_rec.owner_table_name := 'HZ_ORG_CONTACT_ROLES';
945: l_orig_sys_reference_rec.created_by_module := p_org_contact_role_rec.created_by_module;
946: -- End changes made by Neeraj
947:
948: hz_orig_system_ref_pub.create_orig_system_reference(
949: FND_API.G_FALSE,
950: l_orig_sys_reference_rec,
951: x_return_status,
952: l_msg_count,
953: l_msg_data);
950: l_orig_sys_reference_rec,
951: x_return_status,
952: l_msg_count,
953: l_msg_data);
954: IF x_return_status <> fnd_api.g_ret_sts_success THEN
955: RAISE FND_API.G_EXC_ERROR;
956: END IF;
957: end if;
958:
951: x_return_status,
952: l_msg_count,
953: l_msg_data);
954: IF x_return_status <> fnd_api.g_ret_sts_success THEN
955: RAISE FND_API.G_EXC_ERROR;
956: END IF;
957: end if;
958:
959: -- Debug info.
1031: THEN
1032: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1033: FND_MESSAGE.SET_TOKEN('TABLE', 'hz_org_contact_roles');
1034: FND_MSG_PUB.ADD;
1035: RAISE FND_API.G_EXC_ERROR;
1036: END IF;
1037:
1038: p_object_version_number := nvl(l_object_version_number, 1) + 1;
1039:
1041: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
1042: FND_MESSAGE.SET_TOKEN('RECORD', 'contact role');
1043: FND_MESSAGE.SET_TOKEN('VALUE', NVL( TO_CHAR(p_org_contact_role_rec.org_contact_role_id ), 'null' ) );
1044: FND_MSG_PUB.ADD;
1045: RAISE FND_API.G_EXC_ERROR;
1046: END;
1047:
1048: -- call for validations.
1049: HZ_REGISTRY_VALIDATE_V2PUB.validate_org_contact_role(
1051: p_org_contact_role_rec,
1052: l_rowid,
1053: x_return_status);
1054:
1055: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1056: RAISE FND_API.G_EXC_ERROR;
1057: END IF;
1058:
1059: if (p_org_contact_role_rec.orig_system is not null
1052: l_rowid,
1053: x_return_status);
1054:
1055: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1056: RAISE FND_API.G_EXC_ERROR;
1057: END IF;
1058:
1059: if (p_org_contact_role_rec.orig_system is not null
1060: and p_org_contact_role_rec.orig_system <>fnd_api.g_miss_char)
1056: RAISE FND_API.G_EXC_ERROR;
1057: END IF;
1058:
1059: if (p_org_contact_role_rec.orig_system is not null
1060: and p_org_contact_role_rec.orig_system <>fnd_api.g_miss_char)
1061: and (p_org_contact_role_rec.orig_system_reference is not null
1062: and p_org_contact_role_rec.orig_system_reference <>fnd_api.g_miss_char)
1063: then
1064: p_org_contact_role_rec.orig_system_reference := null;
1058:
1059: if (p_org_contact_role_rec.orig_system is not null
1060: and p_org_contact_role_rec.orig_system <>fnd_api.g_miss_char)
1061: and (p_org_contact_role_rec.orig_system_reference is not null
1062: and p_org_contact_role_rec.orig_system_reference <>fnd_api.g_miss_char)
1063: then
1064: p_org_contact_role_rec.orig_system_reference := null;
1065: -- In mosr, we have bypassed osr nonupdateable validation
1066: -- but we should not update existing osr, set it to null
1142: |
1143: +===========================================================================*/
1144:
1145: PROCEDURE create_org_contact (
1146: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
1147: p_org_contact_rec IN ORG_CONTACT_REC_TYPE,
1148: x_org_contact_id OUT NOCOPY NUMBER,
1149: x_party_rel_id OUT NOCOPY NUMBER,
1150: x_party_id OUT NOCOPY NUMBER,
1174: p_msg_level=>fnd_log.level_procedure);
1175: END IF;
1176:
1177: -- initialize message list if p_init_msg_list is set to TRUE.
1178: IF FND_API.to_Boolean(p_init_msg_list) THEN
1179: FND_MSG_PUB.initialize;
1180: END IF;
1181:
1182: -- initialize API return status to success.
1179: FND_MSG_PUB.initialize;
1180: END IF;
1181:
1182: -- initialize API return status to success.
1183: x_return_status := FND_API.G_RET_STS_SUCCESS;
1184:
1185: -- report error on obsolete columns based on profile
1186: IF NVL(FND_PROFILE.VALUE('HZ_API_ERR_ON_OBSOLETE_COLUMN'), 'Y') = 'Y' THEN
1187: check_obsolete_columns (
1189: p_org_contact_rec => l_org_contact_rec,
1190: x_return_status => x_return_status
1191: );
1192:
1193: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1194: RAISE FND_API.G_EXC_ERROR;
1195: END IF;
1196: END IF;
1197:
1190: x_return_status => x_return_status
1191: );
1192:
1193: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1194: RAISE FND_API.G_EXC_ERROR;
1195: END IF;
1196: END IF;
1197:
1198: -- call to business logic.
1204: x_party_id,
1205: x_party_number
1206: );
1207:
1208: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1209: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('EVENTS_ENABLED', 'Y')) THEN
1210: -- Invoke business event system.
1211: HZ_BUSINESS_EVENT_V2PVT.create_org_contact_event (
1212: l_org_contact_rec );
1224: --Bug 4866187
1225: --Bug 5370799
1226: --Bug 13117445
1227: --Commented Sync_contact call as it will be called in do_create_org_contact just after org_cotact insertion
1228: /* IF (p_org_contact_rec.orig_system IS NULL OR p_org_contact_rec.orig_system=FND_API.G_MISS_CHAR) THEN
1229: HZ_DQM_SYNC.sync_contact(l_org_contact_rec.org_contact_id, 'C');
1230: END IF;
1231: */
1232: -- standard call to get message count and if count is 1, get message info.
1230: END IF;
1231: */
1232: -- standard call to get message count and if count is 1, get message info.
1233: FND_MSG_PUB.Count_And_Get(
1234: p_encoded => FND_API.G_FALSE,
1235: p_count => x_msg_count,
1236: p_data => x_msg_data);
1237:
1238: -- Debug info.
1251: -- Check if API is called in debug mode. If yes, disable debug.
1252: --disable_debug;
1253:
1254: EXCEPTION
1255: WHEN FND_API.G_EXC_ERROR THEN
1256: ROLLBACK TO create_org_contact;
1257: x_return_status := FND_API.G_RET_STS_ERROR;
1258: FND_MSG_PUB.Count_And_Get(
1259: p_encoded => FND_API.G_FALSE,
1253:
1254: EXCEPTION
1255: WHEN FND_API.G_EXC_ERROR THEN
1256: ROLLBACK TO create_org_contact;
1257: x_return_status := FND_API.G_RET_STS_ERROR;
1258: FND_MSG_PUB.Count_And_Get(
1259: p_encoded => FND_API.G_FALSE,
1260: p_count => x_msg_count,
1261: p_data => x_msg_data);
1255: WHEN FND_API.G_EXC_ERROR THEN
1256: ROLLBACK TO create_org_contact;
1257: x_return_status := FND_API.G_RET_STS_ERROR;
1258: FND_MSG_PUB.Count_And_Get(
1259: p_encoded => FND_API.G_FALSE,
1260: p_count => x_msg_count,
1261: p_data => x_msg_data);
1262:
1263: -- Debug info.
1276:
1277: -- Check if API is called in debug mode. If yes, disable debug.
1278: --disable_debug;
1279:
1280: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1281: ROLLBACK TO create_org_contact;
1282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1283: FND_MSG_PUB.Count_And_Get(
1284: p_encoded => FND_API.G_FALSE,
1278: --disable_debug;
1279:
1280: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1281: ROLLBACK TO create_org_contact;
1282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1283: FND_MSG_PUB.Count_And_Get(
1284: p_encoded => FND_API.G_FALSE,
1285: p_count => x_msg_count,
1286: p_data => x_msg_data);
1280: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1281: ROLLBACK TO create_org_contact;
1282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1283: FND_MSG_PUB.Count_And_Get(
1284: p_encoded => FND_API.G_FALSE,
1285: p_count => x_msg_count,
1286: p_data => x_msg_data);
1287:
1288: -- Debug info.
1302: --disable_debug;
1303:
1304: WHEN OTHERS THEN
1305: ROLLBACK TO create_org_contact;
1306: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1307: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1308: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1309: FND_MSG_PUB.ADD;
1310: FND_MSG_PUB.Count_And_Get(
1307: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1308: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1309: FND_MSG_PUB.ADD;
1310: FND_MSG_PUB.Count_And_Get(
1311: p_encoded => FND_API.G_FALSE,
1312: p_count => x_msg_count,
1313: p_data => x_msg_data);
1314:
1315: -- Debug info.
1363: |
1364: +===========================================================================*/
1365:
1366: PROCEDURE update_org_contact (
1367: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
1368: p_org_contact_rec IN ORG_CONTACT_REC_TYPE,
1369: p_cont_object_version_number IN OUT NOCOPY NUMBER,
1370: p_rel_object_version_number IN OUT NOCOPY NUMBER,
1371: p_party_object_version_number IN OUT NOCOPY NUMBER,
1396: p_msg_level=>fnd_log.level_procedure);
1397: END IF;
1398:
1399: -- initialize message list if p_init_msg_list is set to TRUE.
1400: IF FND_API.to_Boolean(p_init_msg_list) THEN
1401: FND_MSG_PUB.initialize;
1402: END IF;
1403:
1404: -- initialize API return status to success.
1401: FND_MSG_PUB.initialize;
1402: END IF;
1403:
1404: -- initialize API return status to success.
1405: x_return_status := FND_API.G_RET_STS_SUCCESS;
1406:
1407: IF (p_org_contact_rec.orig_system is not null
1408: and p_org_contact_rec.orig_system <>fnd_api.g_miss_char)
1409: and (p_org_contact_rec.orig_system_reference is not null
1404: -- initialize API return status to success.
1405: x_return_status := FND_API.G_RET_STS_SUCCESS;
1406:
1407: IF (p_org_contact_rec.orig_system is not null
1408: and p_org_contact_rec.orig_system <>fnd_api.g_miss_char)
1409: and (p_org_contact_rec.orig_system_reference is not null
1410: and p_org_contact_rec.orig_system_reference <>fnd_api.g_miss_char)
1411: and (p_org_contact_rec.org_contact_id = FND_API.G_MISS_NUM or p_org_contact_rec.org_contact_id is null) THEN
1412: hz_orig_system_ref_pub.get_owner_table_id
1406:
1407: IF (p_org_contact_rec.orig_system is not null
1408: and p_org_contact_rec.orig_system <>fnd_api.g_miss_char)
1409: and (p_org_contact_rec.orig_system_reference is not null
1410: and p_org_contact_rec.orig_system_reference <>fnd_api.g_miss_char)
1411: and (p_org_contact_rec.org_contact_id = FND_API.G_MISS_NUM or p_org_contact_rec.org_contact_id is null) THEN
1412: hz_orig_system_ref_pub.get_owner_table_id
1413: (p_orig_system => p_org_contact_rec.orig_system,
1414: p_orig_system_reference => p_org_contact_rec.orig_system_reference,
1407: IF (p_org_contact_rec.orig_system is not null
1408: and p_org_contact_rec.orig_system <>fnd_api.g_miss_char)
1409: and (p_org_contact_rec.orig_system_reference is not null
1410: and p_org_contact_rec.orig_system_reference <>fnd_api.g_miss_char)
1411: and (p_org_contact_rec.org_contact_id = FND_API.G_MISS_NUM or p_org_contact_rec.org_contact_id is null) THEN
1412: hz_orig_system_ref_pub.get_owner_table_id
1413: (p_orig_system => p_org_contact_rec.orig_system,
1414: p_orig_system_reference => p_org_contact_rec.orig_system_reference,
1415: p_owner_table_name => 'HZ_ORG_CONTACTS',
1414: p_orig_system_reference => p_org_contact_rec.orig_system_reference,
1415: p_owner_table_name => 'HZ_ORG_CONTACTS',
1416: x_owner_table_id => l_org_contact_rec.org_contact_id,
1417: x_return_status => x_return_status);
1418: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1419: RAISE FND_API.G_EXC_ERROR;
1420: END IF;
1421: END IF;
1422:
1415: p_owner_table_name => 'HZ_ORG_CONTACTS',
1416: x_owner_table_id => l_org_contact_rec.org_contact_id,
1417: x_return_status => x_return_status);
1418: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1419: RAISE FND_API.G_EXC_ERROR;
1420: END IF;
1421: END IF;
1422:
1423:
1428: x_return_status => x_return_status,
1429: x_msg_count => x_msg_count,
1430: x_msg_data => x_msg_data );
1431:
1432: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1433: RAISE FND_API.G_EXC_ERROR;
1434: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1436: END IF;
1429: x_msg_count => x_msg_count,
1430: x_msg_data => x_msg_data );
1431:
1432: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1433: RAISE FND_API.G_EXC_ERROR;
1434: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1436: END IF;
1437:
1430: x_msg_data => x_msg_data );
1431:
1432: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1433: RAISE FND_API.G_EXC_ERROR;
1434: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1436: END IF;
1437:
1438: -- report error on obsolete columns based on profile
1431:
1432: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1433: RAISE FND_API.G_EXC_ERROR;
1434: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1436: END IF;
1437:
1438: -- report error on obsolete columns based on profile
1439: IF NVL(FND_PROFILE.VALUE('HZ_API_ERR_ON_OBSOLETE_COLUMN'), 'Y') = 'Y' THEN
1443: p_old_org_contact_rec => l_old_org_contact_rec,
1444: x_return_status => x_return_status
1445: );
1446:
1447: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1448: RAISE FND_API.G_EXC_ERROR;
1449: END IF;
1450: END IF;
1451:
1444: x_return_status => x_return_status
1445: );
1446:
1447: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1448: RAISE FND_API.G_EXC_ERROR;
1449: END IF;
1450: END IF;
1451:
1452: -- call to business logic.
1457: p_party_object_version_number,
1458: x_return_status
1459: );
1460:
1461: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1462: l_old_org_contact_rec.orig_system := p_org_contact_rec.orig_system;
1463: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('EVENTS_ENABLED', 'Y')) THEN
1464: -- Invoke business event system.
1465: HZ_BUSINESS_EVENT_V2PVT.update_org_contact_event (
1479: HZ_DQM_SYNC.sync_contact(l_org_contact_rec.org_contact_id, 'U');
1480:
1481: -- standard call to get message count and if count is 1, get message info.
1482: FND_MSG_PUB.Count_And_Get(
1483: p_encoded => FND_API.G_FALSE,
1484: p_count => x_msg_count,
1485: p_data => x_msg_data);
1486:
1487: -- Debug info.
1499:
1500: -- Check if API is called in debug mode. If yes, disable debug.
1501: --disable_debug;
1502: EXCEPTION
1503: WHEN FND_API.G_EXC_ERROR THEN
1504: ROLLBACK TO update_org_contact;
1505: x_return_status := FND_API.G_RET_STS_ERROR;
1506: FND_MSG_PUB.Count_And_Get(
1507: p_encoded => FND_API.G_FALSE,
1501: --disable_debug;
1502: EXCEPTION
1503: WHEN FND_API.G_EXC_ERROR THEN
1504: ROLLBACK TO update_org_contact;
1505: x_return_status := FND_API.G_RET_STS_ERROR;
1506: FND_MSG_PUB.Count_And_Get(
1507: p_encoded => FND_API.G_FALSE,
1508: p_count => x_msg_count,
1509: p_data => x_msg_data);
1503: WHEN FND_API.G_EXC_ERROR THEN
1504: ROLLBACK TO update_org_contact;
1505: x_return_status := FND_API.G_RET_STS_ERROR;
1506: FND_MSG_PUB.Count_And_Get(
1507: p_encoded => FND_API.G_FALSE,
1508: p_count => x_msg_count,
1509: p_data => x_msg_data);
1510:
1511: -- Debug info.
1523:
1524: -- Check if API is called in debug mode. If yes, disable debug.
1525: --disable_debug;
1526:
1527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1528: ROLLBACK TO update_org_contact;
1529: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1530: FND_MSG_PUB.Count_And_Get(
1531: p_encoded => FND_API.G_FALSE,
1525: --disable_debug;
1526:
1527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1528: ROLLBACK TO update_org_contact;
1529: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1530: FND_MSG_PUB.Count_And_Get(
1531: p_encoded => FND_API.G_FALSE,
1532: p_count => x_msg_count,
1533: p_data => x_msg_data);
1527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1528: ROLLBACK TO update_org_contact;
1529: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1530: FND_MSG_PUB.Count_And_Get(
1531: p_encoded => FND_API.G_FALSE,
1532: p_count => x_msg_count,
1533: p_data => x_msg_data);
1534:
1535: -- Debug info.
1549: --disable_debug;
1550:
1551: WHEN OTHERS THEN
1552: ROLLBACK TO update_org_contact;
1553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1554: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1555: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1556: FND_MSG_PUB.ADD;
1557: FND_MSG_PUB.Count_And_Get(
1554: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1555: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1556: FND_MSG_PUB.ADD;
1557: FND_MSG_PUB.Count_And_Get(
1558: p_encoded => FND_API.G_FALSE,
1559: p_count => x_msg_count,
1560: p_data => x_msg_data);
1561:
1562: -- Debug info.
1607: |
1608: +===========================================================================*/
1609:
1610: PROCEDURE create_org_contact_role (
1611: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
1612: p_org_contact_role_rec IN ORG_CONTACT_ROLE_REC_TYPE,
1613: x_org_contact_role_id OUT NOCOPY NUMBER,
1614: x_return_status OUT NOCOPY VARCHAR2,
1615: x_msg_count OUT NOCOPY NUMBER,
1636: p_msg_level=>fnd_log.level_procedure);
1637: END IF;
1638:
1639: -- initialize message list if p_init_msg_list is set to TRUE.
1640: IF FND_API.to_Boolean(p_init_msg_list) THEN
1641: FND_MSG_PUB.initialize;
1642: END IF;
1643:
1644: -- initialize API return status to success.
1641: FND_MSG_PUB.initialize;
1642: END IF;
1643:
1644: -- initialize API return status to success.
1645: x_return_status := FND_API.G_RET_STS_SUCCESS;
1646:
1647: -- call to business logic.
1648: do_create_org_contact_role(
1649: l_org_contact_role_rec,
1650: x_org_contact_role_id,
1651: x_return_status
1652: );
1653:
1654: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1655: -- Invoke business event system.
1656: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('EVENTS_ENABLED', 'Y')) THEN
1657: HZ_BUSINESS_EVENT_V2PVT.create_org_contact_role_event (
1658: l_org_contact_role_rec );
1666: END IF;
1667:
1668: -- standard call to get message count and if count is 1, get message info.
1669: FND_MSG_PUB.Count_And_Get(
1670: p_encoded => FND_API.G_FALSE,
1671: p_count => x_msg_count,
1672: p_data => x_msg_data);
1673:
1674: -- Debug info.
1687: -- Check if API is called in debug mode. If yes, disable debug.
1688: --disable_debug;
1689:
1690: EXCEPTION
1691: WHEN FND_API.G_EXC_ERROR THEN
1692: ROLLBACK TO create_org_contact_role;
1693: x_return_status := FND_API.G_RET_STS_ERROR;
1694: FND_MSG_PUB.Count_And_Get(
1695: p_encoded => FND_API.G_FALSE,
1689:
1690: EXCEPTION
1691: WHEN FND_API.G_EXC_ERROR THEN
1692: ROLLBACK TO create_org_contact_role;
1693: x_return_status := FND_API.G_RET_STS_ERROR;
1694: FND_MSG_PUB.Count_And_Get(
1695: p_encoded => FND_API.G_FALSE,
1696: p_count => x_msg_count,
1697: p_data => x_msg_data);
1691: WHEN FND_API.G_EXC_ERROR THEN
1692: ROLLBACK TO create_org_contact_role;
1693: x_return_status := FND_API.G_RET_STS_ERROR;
1694: FND_MSG_PUB.Count_And_Get(
1695: p_encoded => FND_API.G_FALSE,
1696: p_count => x_msg_count,
1697: p_data => x_msg_data);
1698:
1699: -- Debug info.
1711:
1712: -- Check if API is called in debug mode. If yes, disable debug.
1713: --disable_debug;
1714:
1715: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1716: ROLLBACK TO create_org_contact_role;
1717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1718: FND_MSG_PUB.Count_And_Get(
1719: p_encoded => FND_API.G_FALSE,
1713: --disable_debug;
1714:
1715: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1716: ROLLBACK TO create_org_contact_role;
1717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1718: FND_MSG_PUB.Count_And_Get(
1719: p_encoded => FND_API.G_FALSE,
1720: p_count => x_msg_count,
1721: p_data => x_msg_data);
1715: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1716: ROLLBACK TO create_org_contact_role;
1717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1718: FND_MSG_PUB.Count_And_Get(
1719: p_encoded => FND_API.G_FALSE,
1720: p_count => x_msg_count,
1721: p_data => x_msg_data);
1722:
1723: -- Debug info.
1737: --disable_debug;
1738:
1739: WHEN OTHERS THEN
1740: ROLLBACK TO create_org_contact_role;
1741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1742: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1743: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1744: FND_MSG_PUB.ADD;
1745: FND_MSG_PUB.Count_And_Get(
1742: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1743: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1744: FND_MSG_PUB.ADD;
1745: FND_MSG_PUB.Count_And_Get(
1746: p_encoded => FND_API.G_FALSE,
1747: p_count => x_msg_count,
1748: p_data => x_msg_data);
1749:
1750: -- Debug info.
1795: |
1796: +===========================================================================*/
1797:
1798: PROCEDURE update_org_contact_role (
1799: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
1800: p_org_contact_role_rec IN ORG_CONTACT_ROLE_REC_TYPE,
1801: p_object_version_number IN OUT NOCOPY NUMBER,
1802: x_return_status OUT NOCOPY VARCHAR2,
1803: x_msg_count OUT NOCOPY NUMBER,
1825: p_msg_level=>fnd_log.level_procedure);
1826: END IF;
1827:
1828: -- initialize message list if p_init_msg_list is set to TRUE.
1829: IF FND_API.to_Boolean(p_init_msg_list) THEN
1830: FND_MSG_PUB.initialize;
1831: END IF;
1832:
1833: -- initialize API return status to success.
1830: FND_MSG_PUB.initialize;
1831: END IF;
1832:
1833: -- initialize API return status to success.
1834: x_return_status := FND_API.G_RET_STS_SUCCESS;
1835:
1836: IF (p_org_contact_role_rec.orig_system is not null
1837: and p_org_contact_role_rec.orig_system <>fnd_api.g_miss_char)
1838: and (p_org_contact_role_rec.orig_system_reference is not null
1833: -- initialize API return status to success.
1834: x_return_status := FND_API.G_RET_STS_SUCCESS;
1835:
1836: IF (p_org_contact_role_rec.orig_system is not null
1837: and p_org_contact_role_rec.orig_system <>fnd_api.g_miss_char)
1838: and (p_org_contact_role_rec.orig_system_reference is not null
1839: and p_org_contact_role_rec.orig_system_reference <>fnd_api.g_miss_char)
1840: 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
1841: hz_orig_system_ref_pub.get_owner_table_id
1835:
1836: IF (p_org_contact_role_rec.orig_system is not null
1837: and p_org_contact_role_rec.orig_system <>fnd_api.g_miss_char)
1838: and (p_org_contact_role_rec.orig_system_reference is not null
1839: and p_org_contact_role_rec.orig_system_reference <>fnd_api.g_miss_char)
1840: 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
1841: hz_orig_system_ref_pub.get_owner_table_id
1842: (p_orig_system => p_org_contact_role_rec.orig_system,
1843: p_orig_system_reference => p_org_contact_role_rec.orig_system_reference,
1836: IF (p_org_contact_role_rec.orig_system is not null
1837: and p_org_contact_role_rec.orig_system <>fnd_api.g_miss_char)
1838: and (p_org_contact_role_rec.orig_system_reference is not null
1839: and p_org_contact_role_rec.orig_system_reference <>fnd_api.g_miss_char)
1840: 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
1841: hz_orig_system_ref_pub.get_owner_table_id
1842: (p_orig_system => p_org_contact_role_rec.orig_system,
1843: p_orig_system_reference => p_org_contact_role_rec.orig_system_reference,
1844: p_owner_table_name => 'HZ_ORG_CONTACT_ROLES',
1843: p_orig_system_reference => p_org_contact_role_rec.orig_system_reference,
1844: p_owner_table_name => 'HZ_ORG_CONTACT_ROLES',
1845: x_owner_table_id => l_org_contact_role_rec.org_contact_role_id,
1846: x_return_status => x_return_status);
1847: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1848: RAISE FND_API.G_EXC_ERROR;
1849: END IF;
1850: END IF;
1851:
1844: p_owner_table_name => 'HZ_ORG_CONTACT_ROLES',
1845: x_owner_table_id => l_org_contact_role_rec.org_contact_role_id,
1846: x_return_status => x_return_status);
1847: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1848: RAISE FND_API.G_EXC_ERROR;
1849: END IF;
1850: END IF;
1851:
1852: --2290537
1856: x_return_status => x_return_status,
1857: x_msg_count => x_msg_count,
1858: x_msg_data => x_msg_data);
1859:
1860: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1861: RAISE FND_API.G_EXC_ERROR;
1862: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1863: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1864: END IF;
1857: x_msg_count => x_msg_count,
1858: x_msg_data => x_msg_data);
1859:
1860: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1861: RAISE FND_API.G_EXC_ERROR;
1862: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1863: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1864: END IF;
1865:
1858: x_msg_data => x_msg_data);
1859:
1860: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1861: RAISE FND_API.G_EXC_ERROR;
1862: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1863: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1864: END IF;
1865:
1866: -- call to business logic.
1859:
1860: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1861: RAISE FND_API.G_EXC_ERROR;
1862: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1863: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1864: END IF;
1865:
1866: -- call to business logic.
1867: do_update_org_contact_role(
1869: p_object_version_number,
1870: x_return_status
1871: );
1872:
1873: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1874: -- Invoke business event system.
1875: l_old_org_contact_role_rec.orig_system := p_org_contact_role_rec.orig_system;
1876: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('EVENTS_ENABLED', 'Y')) THEN
1877: HZ_BUSINESS_EVENT_V2PVT.update_org_contact_role_event (
1886: END IF;
1887:
1888: -- standard call to get message count and if count is 1, get message info.
1889: FND_MSG_PUB.Count_And_Get(
1890: p_encoded => FND_API.G_FALSE,
1891: p_count => x_msg_count,
1892: p_data => x_msg_data);
1893:
1894: -- Debug info.
1907: -- Check if API is called in debug mode. If yes, disable debug.
1908: --disable_debug;
1909:
1910: EXCEPTION
1911: WHEN FND_API.G_EXC_ERROR THEN
1912: ROLLBACK TO update_org_contact_role;
1913: x_return_status := FND_API.G_RET_STS_ERROR;
1914: FND_MSG_PUB.Count_And_Get(
1915: p_encoded => FND_API.G_FALSE,
1909:
1910: EXCEPTION
1911: WHEN FND_API.G_EXC_ERROR THEN
1912: ROLLBACK TO update_org_contact_role;
1913: x_return_status := FND_API.G_RET_STS_ERROR;
1914: FND_MSG_PUB.Count_And_Get(
1915: p_encoded => FND_API.G_FALSE,
1916: p_count => x_msg_count,
1917: p_data => x_msg_data);
1911: WHEN FND_API.G_EXC_ERROR THEN
1912: ROLLBACK TO update_org_contact_role;
1913: x_return_status := FND_API.G_RET_STS_ERROR;
1914: FND_MSG_PUB.Count_And_Get(
1915: p_encoded => FND_API.G_FALSE,
1916: p_count => x_msg_count,
1917: p_data => x_msg_data);
1918:
1919: -- Debug info.
1931:
1932: -- Check if API is called in debug mode. If yes, disable debug.
1933: --disable_debug;
1934:
1935: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1936: ROLLBACK TO update_org_contact_role;
1937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1938: FND_MSG_PUB.Count_And_Get(
1939: p_encoded => FND_API.G_FALSE,
1933: --disable_debug;
1934:
1935: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1936: ROLLBACK TO update_org_contact_role;
1937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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);
1935: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1936: ROLLBACK TO update_org_contact_role;
1937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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.
1957: --disable_debug;
1958:
1959: WHEN OTHERS THEN
1960: ROLLBACK TO update_org_contact_role;
1961: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1962: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1963: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1964: FND_MSG_PUB.ADD;
1965: FND_MSG_PUB.Count_And_Get(
1962: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1963: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1964: FND_MSG_PUB.ADD;
1965: FND_MSG_PUB.Count_And_Get(
1966: p_encoded => FND_API.G_FALSE,
1967: p_count => x_msg_count,
1968: p_data => x_msg_data);
1969:
1970: -- Debug info.
2017: |
2018: +===========================================================================*/
2019:
2020: PROCEDURE get_org_contact_rec (
2021: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2022: p_org_contact_id IN NUMBER,
2023: x_org_contact_rec OUT NOCOPY ORG_CONTACT_REC_TYPE,
2024: x_return_status OUT NOCOPY VARCHAR2,
2025: x_msg_count OUT NOCOPY NUMBER,
2032:
2033: BEGIN
2034:
2035: --Initialize message list if p_init_msg_list is set to TRUE.
2036: IF FND_API.to_Boolean(p_init_msg_list) THEN
2037: FND_MSG_PUB.initialize;
2038: END IF;
2039:
2040: --Initialize API return status to success.
2037: FND_MSG_PUB.initialize;
2038: END IF;
2039:
2040: --Initialize API return status to success.
2041: x_return_status := FND_API.G_RET_STS_SUCCESS;
2042: --Check whether primary key has been passed in.
2043: IF p_org_contact_id IS NULL OR
2044: p_org_contact_id = FND_API.G_MISS_NUM THEN
2045: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
2040: --Initialize API return status to success.
2041: x_return_status := FND_API.G_RET_STS_SUCCESS;
2042: --Check whether primary key has been passed in.
2043: IF p_org_contact_id IS NULL OR
2044: p_org_contact_id = FND_API.G_MISS_NUM THEN
2045: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
2046: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'org_contact_id' );
2047: FND_MSG_PUB.ADD;
2048: RAISE FND_API.G_EXC_ERROR;
2044: p_org_contact_id = FND_API.G_MISS_NUM THEN
2045: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
2046: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'org_contact_id' );
2047: FND_MSG_PUB.ADD;
2048: RAISE FND_API.G_EXC_ERROR;
2049: END IF;
2050:
2051: x_org_contact_rec.org_contact_id := p_org_contact_id;
2052:
2098: --- RETURN THE RELATIONSHIP REC
2099:
2100: IF l_party_relationship_id IS NOT NULL
2101: AND
2102: l_party_relationship_id <> FND_API.G_MISS_NUM
2103: THEN
2104: HZ_RELATIONSHIP_V2PUB.get_relationship_rec (
2105: p_relationship_id => l_party_relationship_id,
2106: p_directional_flag => 'F',
2109: x_msg_count => x_msg_count,
2110: x_msg_data => x_msg_data
2111: );
2112:
2113: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2114: RAISE FND_API.G_EXC_ERROR;
2115: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2117: END IF;
2110: x_msg_data => x_msg_data
2111: );
2112:
2113: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2114: RAISE FND_API.G_EXC_ERROR;
2115: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2117: END IF;
2118: END IF;
2111: );
2112:
2113: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2114: RAISE FND_API.G_EXC_ERROR;
2115: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2117: END IF;
2118: END IF;
2119:
2112:
2113: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2114: RAISE FND_API.G_EXC_ERROR;
2115: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2117: END IF;
2118: END IF;
2119:
2120: --Standard call to get message count and if count is 1, get message info.
2118: END IF;
2119:
2120: --Standard call to get message count and if count is 1, get message info.
2121: FND_MSG_PUB.Count_And_Get(
2122: p_encoded => FND_API.G_FALSE,
2123: p_count => x_msg_count,
2124: p_data => x_msg_data );
2125:
2126: EXCEPTION
2123: p_count => x_msg_count,
2124: p_data => x_msg_data );
2125:
2126: EXCEPTION
2127: WHEN FND_API.G_EXC_ERROR THEN
2128: x_return_status := FND_API.G_RET_STS_ERROR;
2129:
2130: FND_MSG_PUB.Count_And_Get(
2131: p_encoded => FND_API.G_FALSE,
2124: p_data => x_msg_data );
2125:
2126: EXCEPTION
2127: WHEN FND_API.G_EXC_ERROR THEN
2128: x_return_status := FND_API.G_RET_STS_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_ERROR THEN
2128: x_return_status := FND_API.G_RET_STS_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 FND_API.G_EXC_UNEXPECTED_ERROR THEN
2131: p_encoded => FND_API.G_FALSE,
2132: p_count => x_msg_count,
2133: p_data => x_msg_data );
2134:
2135: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2137:
2138: FND_MSG_PUB.Count_And_Get(
2139: p_encoded => FND_API.G_FALSE,
2132: p_count => x_msg_count,
2133: p_data => x_msg_data );
2134:
2135: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2137:
2138: FND_MSG_PUB.Count_And_Get(
2139: p_encoded => FND_API.G_FALSE,
2140: p_count => x_msg_count,
2135: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2137:
2138: FND_MSG_PUB.Count_And_Get(
2139: p_encoded => FND_API.G_FALSE,
2140: p_count => x_msg_count,
2141: p_data => x_msg_data );
2142:
2143: WHEN OTHERS THEN
2140: p_count => x_msg_count,
2141: p_data => x_msg_data );
2142:
2143: WHEN OTHERS THEN
2144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2145: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
2146: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
2147: FND_MSG_PUB.ADD;
2148: FND_MSG_PUB.Count_And_Get(
2145: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
2146: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
2147: FND_MSG_PUB.ADD;
2148: FND_MSG_PUB.Count_And_Get(
2149: p_encoded => FND_API.G_FALSE,
2150: p_count => x_msg_count,
2151: p_data => x_msg_data );
2152:
2153: END get_org_contact_rec;
2181: |
2182: +===========================================================================*/
2183:
2184: PROCEDURE get_org_contact_role_rec (
2185: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2186: p_org_contact_role_id IN NUMBER,
2187: x_org_contact_role_rec OUT NOCOPY ORG_CONTACT_ROLE_REC_TYPE,
2188: x_return_status OUT NOCOPY VARCHAR2,
2189: x_msg_count OUT NOCOPY NUMBER,
2194:
2195: BEGIN
2196:
2197: --Initialize message list if p_init_msg_list is set to TRUE.
2198: IF FND_API.to_Boolean(p_init_msg_list) THEN
2199: FND_MSG_PUB.initialize;
2200: END IF;
2201:
2202: --Initialize API return status to success.
2199: FND_MSG_PUB.initialize;
2200: END IF;
2201:
2202: --Initialize API return status to success.
2203: x_return_status := FND_API.G_RET_STS_SUCCESS;
2204:
2205: --Check whether primary key has been passed in.
2206: IF p_org_contact_role_id IS NULL OR
2207: p_org_contact_role_id = FND_API.G_MISS_NUM THEN
2203: x_return_status := FND_API.G_RET_STS_SUCCESS;
2204:
2205: --Check whether primary key has been passed in.
2206: IF p_org_contact_role_id IS NULL OR
2207: p_org_contact_role_id = FND_API.G_MISS_NUM THEN
2208: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
2209: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'org_contact_role_id' );
2210: FND_MSG_PUB.ADD;
2211: RAISE FND_API.G_EXC_ERROR;
2207: p_org_contact_role_id = FND_API.G_MISS_NUM THEN
2208: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
2209: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'org_contact_role_id' );
2210: FND_MSG_PUB.ADD;
2211: RAISE FND_API.G_EXC_ERROR;
2212: END IF;
2213:
2214: x_org_contact_role_rec.org_contact_role_id := p_org_contact_role_id;
2215:
2227: );
2228:
2229: --Standard call to get message count and if count is 1, get message info.
2230: FND_MSG_PUB.Count_And_Get(
2231: p_encoded => FND_API.G_FALSE,
2232: p_count => x_msg_count,
2233: p_data => x_msg_data );
2234:
2235: EXCEPTION
2232: p_count => x_msg_count,
2233: p_data => x_msg_data );
2234:
2235: EXCEPTION
2236: WHEN FND_API.G_EXC_ERROR THEN
2237: x_return_status := FND_API.G_RET_STS_ERROR;
2238:
2239: FND_MSG_PUB.Count_And_Get(
2240: p_encoded => FND_API.G_FALSE,
2233: p_data => x_msg_data );
2234:
2235: EXCEPTION
2236: WHEN FND_API.G_EXC_ERROR THEN
2237: x_return_status := FND_API.G_RET_STS_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_ERROR THEN
2237: x_return_status := FND_API.G_RET_STS_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 FND_API.G_EXC_UNEXPECTED_ERROR THEN
2240: p_encoded => FND_API.G_FALSE,
2241: p_count => x_msg_count,
2242: p_data => x_msg_data );
2243:
2244: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2245: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2246:
2247: FND_MSG_PUB.Count_And_Get(
2248: p_encoded => FND_API.G_FALSE,
2241: p_count => x_msg_count,
2242: p_data => x_msg_data );
2243:
2244: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2245: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2246:
2247: FND_MSG_PUB.Count_And_Get(
2248: p_encoded => FND_API.G_FALSE,
2249: p_count => x_msg_count,
2244: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2245: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2246:
2247: FND_MSG_PUB.Count_And_Get(
2248: p_encoded => FND_API.G_FALSE,
2249: p_count => x_msg_count,
2250: p_data => x_msg_data );
2251:
2252: WHEN OTHERS THEN
2249: p_count => x_msg_count,
2250: p_data => x_msg_data );
2251:
2252: WHEN OTHERS THEN
2253: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2254:
2255: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
2256: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
2257: FND_MSG_PUB.ADD;
2256: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
2257: FND_MSG_PUB.ADD;
2258:
2259: FND_MSG_PUB.Count_And_Get(
2260: p_encoded => FND_API.G_FALSE,
2261: p_count => x_msg_count,
2262: p_data => x_msg_data );
2263:
2264: END get_org_contact_role_rec;
2288:
2289: -- check title
2290: IF (p_create_update_flag = 'C' AND
2291: p_org_contact_rec.title IS NOT NULL AND
2292: p_org_contact_rec.title <> FND_API.G_MISS_CHAR) OR
2293: (p_create_update_flag = 'U' AND
2294: p_org_contact_rec.title IS NOT NULL AND
2295: p_org_contact_rec.title <> p_old_org_contact_rec.title)
2296: THEN
2296: THEN
2297: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');
2298: FND_MESSAGE.SET_TOKEN('COLUMN', 'title');
2299: FND_MSG_PUB.ADD;
2300: x_return_status := FND_API.G_RET_STS_ERROR;
2301: END IF;
2302:
2303: END check_obsolete_columns;
2304: