117:
118: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
119: RAISE FND_API.G_EXC_ERROR;
120: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
121: FND_MESSAGE.SET_NAME('AR', 'HZ_API_HOOK_ERROR');
122: FND_MESSAGE.SET_TOKEN('PROCEDURE',
123: 'HZ_PROFITABILITY_CRMHK.CREATE_PROFITABILITY_PRE');
124: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
125: FND_MSG_PUB.ADD;
118: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
119: RAISE FND_API.G_EXC_ERROR;
120: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
121: FND_MESSAGE.SET_NAME('AR', 'HZ_API_HOOK_ERROR');
122: FND_MESSAGE.SET_TOKEN('PROCEDURE',
123: 'HZ_PROFITABILITY_CRMHK.CREATE_PROFITABILITY_PRE');
124: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
125: FND_MSG_PUB.ADD;
126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
120: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
121: FND_MESSAGE.SET_NAME('AR', 'HZ_API_HOOK_ERROR');
122: FND_MESSAGE.SET_TOKEN('PROCEDURE',
123: 'HZ_PROFITABILITY_CRMHK.CREATE_PROFITABILITY_PRE');
124: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
125: FND_MSG_PUB.ADD;
126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
127: END IF;
128:
146:
147: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
148: RAISE FND_API.G_EXC_ERROR;
149: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
150: FND_MESSAGE.SET_NAME('AR', 'HZ_API_HOOK_ERROR');
151: FND_MESSAGE.SET_TOKEN('PROCEDURE',
152: 'HZ_PROFITABILITY_CRMHK.CREATE_PROFITABILITY_POST');
153: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
154: FND_MSG_PUB.ADD;
147: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
148: RAISE FND_API.G_EXC_ERROR;
149: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
150: FND_MESSAGE.SET_NAME('AR', 'HZ_API_HOOK_ERROR');
151: FND_MESSAGE.SET_TOKEN('PROCEDURE',
152: 'HZ_PROFITABILITY_CRMHK.CREATE_PROFITABILITY_POST');
153: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
154: FND_MSG_PUB.ADD;
155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
149: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
150: FND_MESSAGE.SET_NAME('AR', 'HZ_API_HOOK_ERROR');
151: FND_MESSAGE.SET_TOKEN('PROCEDURE',
152: 'HZ_PROFITABILITY_CRMHK.CREATE_PROFITABILITY_POST');
153: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
154: FND_MSG_PUB.ADD;
155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
156: END IF;
157:
189: WHEN OTHERS THEN
190: ROLLBACK TO create_profitability_pub;
191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
192:
193: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
194: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
195: FND_MSG_PUB.ADD;
196:
197: FND_MSG_PUB.Count_And_Get(
190: ROLLBACK TO create_profitability_pub;
191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
192:
193: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
194: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
195: FND_MSG_PUB.ADD;
196:
197: FND_MSG_PUB.Count_And_Get(
198: p_encoded => FND_API.G_FALSE,
294:
295: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
296: RAISE FND_API.G_EXC_ERROR;
297: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
298: FND_MESSAGE.SET_NAME('AR', 'HZ_API_HOOK_ERROR');
299: FND_MESSAGE.SET_TOKEN('PROCEDURE',
300: 'HZ_PROFITABILITY_CRMHK.UPDATE_PROFITABILITY_PRE');
301: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
302: FND_MSG_PUB.ADD;
295: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
296: RAISE FND_API.G_EXC_ERROR;
297: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
298: FND_MESSAGE.SET_NAME('AR', 'HZ_API_HOOK_ERROR');
299: FND_MESSAGE.SET_TOKEN('PROCEDURE',
300: 'HZ_PROFITABILITY_CRMHK.UPDATE_PROFITABILITY_PRE');
301: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
302: FND_MSG_PUB.ADD;
303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
297: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
298: FND_MESSAGE.SET_NAME('AR', 'HZ_API_HOOK_ERROR');
299: FND_MESSAGE.SET_TOKEN('PROCEDURE',
300: 'HZ_PROFITABILITY_CRMHK.UPDATE_PROFITABILITY_PRE');
301: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
302: FND_MSG_PUB.ADD;
303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
304: END IF;
305:
335:
336: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
337: RAISE FND_API.G_EXC_ERROR;
338: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
339: FND_MESSAGE.SET_NAME('AR', 'HZ_API_HOOK_ERROR');
340: FND_MESSAGE.SET_TOKEN('PROCEDURE',
341: 'HZ_PROFITABILITY_CRMHK.UPDATE_PROFITABILITY_POST');
342: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
343: FND_MSG_PUB.ADD;
336: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
337: RAISE FND_API.G_EXC_ERROR;
338: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
339: FND_MESSAGE.SET_NAME('AR', 'HZ_API_HOOK_ERROR');
340: FND_MESSAGE.SET_TOKEN('PROCEDURE',
341: 'HZ_PROFITABILITY_CRMHK.UPDATE_PROFITABILITY_POST');
342: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
343: FND_MSG_PUB.ADD;
344: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
338: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
339: FND_MESSAGE.SET_NAME('AR', 'HZ_API_HOOK_ERROR');
340: FND_MESSAGE.SET_TOKEN('PROCEDURE',
341: 'HZ_PROFITABILITY_CRMHK.UPDATE_PROFITABILITY_POST');
342: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
343: FND_MSG_PUB.ADD;
344: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
345: END IF;
346:
383: WHEN OTHERS THEN
384: ROLLBACK TO update_profitability_pub;
385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
386:
387: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
388: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
389: FND_MSG_PUB.ADD;
390:
391: FND_MSG_PUB.Count_And_Get(
384: ROLLBACK TO update_profitability_pub;
385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
386:
387: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
388: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
389: FND_MSG_PUB.ADD;
390:
391: FND_MSG_PUB.Count_And_Get(
392: p_encoded => FND_API.G_FALSE,
661: --Check whether primary key has been passed in.
662: IF p_profitability_rec.party_id IS NULL OR
663: p_profitability_rec.party_id = FND_API.G_MISS_NUM THEN
664:
665: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
666: FND_MESSAGE.SET_TOKEN('COLUMN', 'party id');
667: FND_MSG_PUB.ADD;
668: RAISE FND_API.G_EXC_ERROR;
669: END IF;
662: IF p_profitability_rec.party_id IS NULL OR
663: p_profitability_rec.party_id = FND_API.G_MISS_NUM THEN
664:
665: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
666: FND_MESSAGE.SET_TOKEN('COLUMN', 'party id');
667: FND_MSG_PUB.ADD;
668: RAISE FND_API.G_EXC_ERROR;
669: END IF;
670:
676: /*--Check whether last_update_date has been passed in.
677: IF p_last_update_date IS NULL OR
678: p_last_update_date = FND_API.G_MISS_DATE THEN
679:
680: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
681: FND_MESSAGE.SET_TOKEN('COLUMN', 'profitability last update date');
682: FND_MSG_PUB.ADD;
683: RAISE FND_API.G_EXC_ERROR;
684: END IF; */
677: IF p_last_update_date IS NULL OR
678: p_last_update_date = FND_API.G_MISS_DATE THEN
679:
680: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
681: FND_MESSAGE.SET_TOKEN('COLUMN', 'profitability last update date');
682: FND_MSG_PUB.ADD;
683: RAISE FND_API.G_EXC_ERROR;
684: END IF; */
685: ---------------------------------------------------------------
717: to_char(last_update_date, 'DD-MON-YYYY HH:MI:SS')
718: FOR UPDATE OF party_id NOWAIT;
719:
720: EXCEPTION WHEN NO_DATA_FOUND THEN
721: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
722: FND_MESSAGE.SET_TOKEN('TABLE', 'FEM_PARTY_PROFITABILITY');
723: FND_MSG_PUB.ADD;
724: RAISE FND_API.G_EXC_ERROR; */
725: -----------------------------------------------------------------------
718: FOR UPDATE OF party_id NOWAIT;
719:
720: EXCEPTION WHEN NO_DATA_FOUND THEN
721: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
722: FND_MESSAGE.SET_TOKEN('TABLE', 'FEM_PARTY_PROFITABILITY');
723: FND_MSG_PUB.ADD;
724: RAISE FND_API.G_EXC_ERROR; */
725: -----------------------------------------------------------------------
726:
868: --Check for mandatory, but updateable columns
869: IF (create_update_flag = 'C' AND (p_profitability_rec.party_id = FND_API.G_MISS_NUM OR
870: p_profitability_rec.party_id IS NULL)) OR (create_update_flag = 'U' AND
871: p_profitability_rec.party_id IS NULL) THEN
872: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
873: FND_MESSAGE.SET_TOKEN('COLUMN', 'party_id');
874: FND_MSG_PUB.ADD;
875: x_return_status := FND_API.G_RET_STS_ERROR;
876: END IF;
869: IF (create_update_flag = 'C' AND (p_profitability_rec.party_id = FND_API.G_MISS_NUM OR
870: p_profitability_rec.party_id IS NULL)) OR (create_update_flag = 'U' AND
871: p_profitability_rec.party_id IS NULL) THEN
872: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
873: FND_MESSAGE.SET_TOKEN('COLUMN', 'party_id');
874: FND_MSG_PUB.ADD;
875: x_return_status := FND_API.G_RET_STS_ERROR;
876: END IF;
877: