93: BEGIN
94: SAVEPOINT insert_oprn;
95:
96: /* Make sure we are call compatible */
97: IF NOT FND_API.compatible_api_call(l_api_version
98: ,p_api_version
99: ,'insert_operation'
100: ,'gmd_operations_pub') THEN
101: RAISE invalid_version;
114: RAISE setup_failure;
115: END IF;
116:
117: /* Initially let us assign the return status to success */
118: x_return_status := FND_API.g_ret_sts_success;
119:
120: /* Operation number must be passed, otherwise give error */
121: IF p_operations.oprn_no IS NULL THEN
122: IF (l_debug = 'Y') THEN
195: --Check that organization id is not null if raise an error message
196: IF (p_operations.owner_organization_id IS NULL) THEN
197: FND_MESSAGE.SET_NAME('GMD', 'GMD_MISSING_ORGANIZATION_ID');
198: FND_MSG_PUB.Add;
199: RAISE FND_API.G_EXC_ERROR;
200: END IF;
201:
202: -- Check if organization is accessible to the responsibility
203: IF NOT (GMD_API_GRP.OrgnAccessible (powner_orgn_id => p_operations.owner_organization_id) ) THEN
208: IF NOT (gmd_api_grp.check_orgn_status(p_operations.owner_organization_id)) THEN
209: FND_MESSAGE.SET_NAME('GMD', 'GMD_INVALID_ORGANIZATION_ID');
210: FND_MESSAGE.SET_TOKEN('ORGN_ID', p_operations.owner_organization_id);
211: FND_MSG_PUB.Add;
212: RAISE FND_API.G_EXC_ERROR;
213: END IF;
214:
215: /* Effective start date must be passed, otherwise give error */
216: --Bug 15967808 Remove trunc for not null effective_start_date and effective_end_date
270: GMD_OPERATIONS_PVT.insert_operation(p_operations => p_operations,
271: x_message_count => x_message_count,
272: x_message_list => x_message_list,
273: x_return_status => l_retn_status);
274: IF l_retn_status <> FND_API.g_ret_sts_success THEN
275: RAISE ins_operation_err;
276: END IF;
277:
278:
307: x_message_count => x_message_count,
308: x_message_list => x_message_list,
309: x_return_status => l_retn_status);
310:
311: IF l_retn_status <> FND_API.g_ret_sts_success THEN
312: RAISE ins_operation_err;
313: END IF;
314: my_rsrc_table_type.delete;
315: END LOOP; --i in 1.. p_oprn_actv_tbl.count
338: , p_ignore_flag => FALSE
339: , x_message_count => x_message_count
340: , x_message_list => x_message_list
341: , x_return_status => l_retn_status);
342: IF x_return_status NOT IN (FND_API.g_ret_sts_success,'P') THEN
343: RAISE default_status_err;
344: END IF; --x_return_status
345: END IF; --l_entity_status.entity_status <> 100
346: COMMIT;
352:
353: EXCEPTION
354: WHEN setup_failure OR invalid_version THEN
355: ROLLBACK TO SAVEPOINT insert_oprn;
356: x_return_status := FND_API.G_RET_STS_ERROR;
357: FND_MSG_PUB.COUNT_AND_GET (P_count => x_message_count,
358: P_data => x_message_list);
359: WHEN ins_operation_err THEN
360: ROLLBACK TO SAVEPOINT insert_oprn;
357: FND_MSG_PUB.COUNT_AND_GET (P_count => x_message_count,
358: P_data => x_message_list);
359: WHEN ins_operation_err THEN
360: ROLLBACK TO SAVEPOINT insert_oprn;
361: x_return_status := FND_API.g_ret_sts_error;
362: FND_MSG_PUB.COUNT_AND_GET (P_count => x_message_count,
363: P_data => x_message_list);
364: WHEN default_status_err THEN
365: ROLLBACK TO default_status_sp;
362: FND_MSG_PUB.COUNT_AND_GET (P_count => x_message_count,
363: P_data => x_message_list);
364: WHEN default_status_err THEN
365: ROLLBACK TO default_status_sp;
366: x_return_status := FND_API.g_ret_sts_error;
367: FND_MSG_PUB.Count_And_Get (
368: p_count => x_message_count,
369: p_data => x_message_list );
370: WHEN OTHERS THEN
368: p_count => x_message_count,
369: p_data => x_message_list );
370: WHEN OTHERS THEN
371: ROLLBACK TO SAVEPOINT insert_oprn;
372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
373: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
374: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
375: FND_MSG_PUB.ADD;
376: FND_MSG_PUB.COUNT_AND_GET (P_count => x_message_count,
435: fnd_msg_pub.initialize;
436: END IF;
437:
438: /* Make sure we are call compatible */
439: IF NOT FND_API.compatible_api_call(l_api_version
440: ,p_api_version
441: ,'update_operation'
442: ,'gmd_operations_pub') THEN
443: RAISE invalid_version;
451: RAISE setup_failure;
452: END IF;
453:
454: /* Initially let us assign the return status to success */
455: x_return_status := FND_API.g_ret_sts_success;
456:
457: IF (l_debug = 'Y') THEN
458: gmd_debug.put_line('Start of update_operation PUB');
459: END IF;
579: , p_update_table => p_update_table
580: , x_message_count => x_message_count
581: , x_message_list => x_message_list
582: , x_return_status => l_retn_status);
583: IF l_retn_status <> FND_API.g_ret_sts_success THEN
584: RAISE upd_oprn_err;
585: END IF;
586: IF p_commit THEN
587: COMMIT;
595: ,p_data => x_message_list);
596:
597: EXCEPTION
598: WHEN invalid_version or setup_failure THEN
599: x_return_status := FND_API.G_RET_STS_ERROR;
600: ROLLBACK TO SAVEPOINT update_oprn;
601: FND_MSG_PUB.COUNT_AND_GET (P_count => x_message_count,
602: P_data => x_message_list);
603: WHEN upd_oprn_err THEN
600: ROLLBACK TO SAVEPOINT update_oprn;
601: FND_MSG_PUB.COUNT_AND_GET (P_count => x_message_count,
602: P_data => x_message_list);
603: WHEN upd_oprn_err THEN
604: x_return_status := FND_API.G_RET_STS_ERROR;
605: ROLLBACK TO SAVEPOINT update_oprn;
606: FND_MSG_PUB.COUNT_AND_GET (P_count => x_message_count,
607: P_data => x_message_list);
608: WHEN OTHERS THEN
606: FND_MSG_PUB.COUNT_AND_GET (P_count => x_message_count,
607: P_data => x_message_list);
608: WHEN OTHERS THEN
609: ROLLBACK TO SAVEPOINT update_oprn;
610: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
611: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
612: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
613: FND_MSG_PUB.ADD;
614: FND_MSG_PUB.COUNT_AND_GET (P_count => x_message_count,
647: fnd_msg_pub.initialize;
648: END IF;
649:
650: /* Initially let us assign the return status to success */
651: x_return_status := FND_API.g_ret_sts_success;
652:
653: IF (l_debug = 'Y') THEN
654: gmd_debug.put_line('START of delete_operation PUB');
655: END IF;
668: ,x_message_count => x_message_count
669: ,x_message_list => x_message_list
670: ,x_return_status => l_retn_status);
671:
672: IF l_retn_status <> FND_API.g_ret_sts_success THEN
673: RAISE upd_oprn_err;
674: END IF;
675:
676: IF p_commit THEN
687: END IF;
688:
689: EXCEPTION
690: WHEN upd_oprn_err THEN
691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
692: ROLLBACK TO SAVEPOINT delete_oprn;
693: FND_MSG_PUB.COUNT_AND_GET (P_count => x_message_count,
694: P_data => x_message_list);
695: WHEN OTHERS THEN
693: FND_MSG_PUB.COUNT_AND_GET (P_count => x_message_count,
694: P_data => x_message_list);
695: WHEN OTHERS THEN
696: ROLLBACK TO SAVEPOINT delete_oprn;
697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
698: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
699: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
700: FND_MSG_PUB.ADD;
701: FND_MSG_PUB.COUNT_AND_GET (P_count => x_message_count,