291: ( p_object_version_number IS NOT NULL AND
292: l_object_version_number IS NOT NULL AND
293: p_object_version_number = l_object_version_number ) )
294: THEN
295: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
296: FND_MESSAGE.SET_TOKEN('TABLE', 'hz_contact_preferences');
297: FND_MSG_PUB.ADD;
298: RAISE FND_API.G_EXC_ERROR;
299: END IF;
292: l_object_version_number IS NOT NULL AND
293: p_object_version_number = l_object_version_number ) )
294: THEN
295: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
296: FND_MESSAGE.SET_TOKEN('TABLE', 'hz_contact_preferences');
297: FND_MSG_PUB.ADD;
298: RAISE FND_API.G_EXC_ERROR;
299: END IF;
300:
300:
301: p_object_version_number := nvl(l_object_version_number, 1) + 1;
302:
303: EXCEPTION WHEN NO_DATA_FOUND THEN
304: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
305: FND_MESSAGE.SET_TOKEN('RECORD', 'contact_preference');
306: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR( p_contact_preference_rec.contact_preference_id), 'null'));
307: FND_MSG_PUB.ADD;
308: RAISE FND_API.G_EXC_ERROR;
301: p_object_version_number := nvl(l_object_version_number, 1) + 1;
302:
303: EXCEPTION WHEN NO_DATA_FOUND THEN
304: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
305: FND_MESSAGE.SET_TOKEN('RECORD', 'contact_preference');
306: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR( p_contact_preference_rec.contact_preference_id), 'null'));
307: FND_MSG_PUB.ADD;
308: RAISE FND_API.G_EXC_ERROR;
309: END;
302:
303: EXCEPTION WHEN NO_DATA_FOUND THEN
304: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
305: FND_MESSAGE.SET_TOKEN('RECORD', 'contact_preference');
306: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR( p_contact_preference_rec.contact_preference_id), 'null'));
307: FND_MSG_PUB.ADD;
308: RAISE FND_API.G_EXC_ERROR;
309: END;
310:
540:
541: WHEN OTHERS THEN
542: ROLLBACK TO create_contact_preference_pub;
543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
544: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
545: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
546: FND_MSG_PUB.ADD;
547: FND_MSG_PUB.Count_And_Get(
548: p_encoded => FND_API.G_FALSE,
541: WHEN OTHERS THEN
542: ROLLBACK TO create_contact_preference_pub;
543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
544: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
545: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
546: FND_MSG_PUB.ADD;
547: FND_MSG_PUB.Count_And_Get(
548: p_encoded => FND_API.G_FALSE,
549: p_count => x_msg_count,
742:
743: WHEN OTHERS THEN
744: ROLLBACK TO update_contact_preference_pub;
745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
746: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
747: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
748: FND_MSG_PUB.ADD;
749: FND_MSG_PUB.Count_And_Get(
750: p_encoded => FND_API.G_FALSE,
743: WHEN OTHERS THEN
744: ROLLBACK TO update_contact_preference_pub;
745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
746: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
747: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
748: FND_MSG_PUB.ADD;
749: FND_MSG_PUB.Count_And_Get(
750: p_encoded => FND_API.G_FALSE,
751: p_count => x_msg_count,
831:
832: --Check whether primary key has been passed in.
833: IF p_contact_preference_id IS NULL OR
834: p_contact_preference_id = FND_API.G_MISS_NUM THEN
835: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
836: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'contact_preference_id' );
837: FND_MSG_PUB.ADD;
838: RAISE FND_API.G_EXC_ERROR;
839: END IF;
832: --Check whether primary key has been passed in.
833: IF p_contact_preference_id IS NULL OR
834: p_contact_preference_id = FND_API.G_MISS_NUM THEN
835: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
836: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'contact_preference_id' );
837: FND_MSG_PUB.ADD;
838: RAISE FND_API.G_EXC_ERROR;
839: END IF;
840:
950:
951: WHEN OTHERS THEN
952: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
953:
954: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
955: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
956: FND_MSG_PUB.ADD;
957:
958: FND_MSG_PUB.Count_And_Get(
951: WHEN OTHERS THEN
952: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
953:
954: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
955: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
956: FND_MSG_PUB.ADD;
957:
958: FND_MSG_PUB.Count_And_Get(
959: p_encoded => FND_API.G_FALSE,