77: gmd_debug.put_line('In insert_operation_resources public.');
78: END IF;
79:
80: /* Initially let us assign the return status to success */
81: x_return_status := FND_API.g_ret_sts_success;
82:
83: /* set row who columns */
84: IF NOT gmd_api_grp.setup_done THEN
85: gmd_api_grp.setup_done := gmd_api_grp.setup;
83: /* set row who columns */
84: IF NOT gmd_api_grp.setup_done THEN
85: gmd_api_grp.setup_done := gmd_api_grp.setup;
86: IF NOT gmd_api_grp.setup_done THEN
87: RAISE FND_API.G_EXC_ERROR;
88: END IF;
89: END IF;
90:
91: /*Before insert operation resources loop */
99: FND_MESSAGE.SET_NAME('GMD', 'GMD_DUP_ACTV_RSRC');
100: FND_MESSAGE.SET_TOKEN('RESOURCE', p_oprn_rsrc_tbl(i).resources);
101: FND_MESSAGE.SET_TOKEN('ACTIVITY', l_activity);
102: FND_MSG_PUB.ADD;
103: RAISE FND_API.G_EXC_ERROR;
104: END IF;
105: CLOSE Cur_check_resource;
106:
107:
216: gmd_debug.put_line('End insert oprn rsrc loop - insert_operation_rsrc private');
217: END IF;
218:
219: EXCEPTION
220: WHEN FND_API.G_EXC_ERROR THEN
221: x_return_status := FND_API.G_RET_STS_ERROR;
222: WHEN OTHERS THEN
223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
224: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
217: END IF;
218:
219: EXCEPTION
220: WHEN FND_API.G_EXC_ERROR THEN
221: x_return_status := FND_API.G_RET_STS_ERROR;
222: WHEN OTHERS THEN
223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
224: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
225: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
219: EXCEPTION
220: WHEN FND_API.G_EXC_ERROR THEN
221: x_return_status := FND_API.G_RET_STS_ERROR;
222: WHEN OTHERS THEN
223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
224: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
225: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
226: FND_MSG_PUB.ADD;
227: FND_MSG_PUB.COUNT_AND_GET (P_count => x_message_count,
260:
261: BEGIN
262:
263: /* Initially let us assign the return status to success */
264: x_return_status := FND_API.g_ret_sts_success;
265:
266: IF (l_debug = 'Y') THEN
267:
268: gmd_debug.put_line('Start of update_operation_rsrc PVT');
443: END IF;
444:
445: EXCEPTION
446: WHEN setup_failure THEN
447: x_return_status := FND_API.G_RET_STS_ERROR;
448: WHEN OTHERS THEN
449: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
450: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
451: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
445: EXCEPTION
446: WHEN setup_failure THEN
447: x_return_status := FND_API.G_RET_STS_ERROR;
448: WHEN OTHERS THEN
449: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
450: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
451: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
452: FND_MSG_PUB.ADD;
453: FND_MSG_PUB.COUNT_AND_GET (P_count => x_message_count,
476: setup_failure EXCEPTION;
477: BEGIN
478:
479: /* Initially let us assign the return status to success */
480: x_return_status := FND_API.g_ret_sts_success;
481:
482: /* Set row who columns */
483: FND_PROFILE.put('USER_ID', 2060);
484: IF NOT gmd_api_grp.setup_done THEN
502: END IF;
503:
504: EXCEPTION
505: WHEN setup_failure THEN
506: x_return_status := FND_API.G_RET_STS_ERROR;
507: WHEN OTHERS THEN
508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
509: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
510: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
504: EXCEPTION
505: WHEN setup_failure THEN
506: x_return_status := FND_API.G_RET_STS_ERROR;
507: WHEN OTHERS THEN
508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
509: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
510: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
511: FND_MSG_PUB.ADD;
512: FND_MSG_PUB.COUNT_AND_GET (P_count => x_message_count,