[Home] [Help]
159: -- End of comments
160:
161: PROCEDURE Create_Resource_Cost
162: ( p_api_version IN NUMBER ,
163: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
164: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
165:
166: x_return_status OUT NOCOPY VARCHAR2 ,
167: x_msg_count OUT NOCOPY NUMBER ,
160:
161: PROCEDURE Create_Resource_Cost
162: ( p_api_version IN NUMBER ,
163: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
164: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
165:
166: x_return_status OUT NOCOPY VARCHAR2 ,
167: x_msg_count OUT NOCOPY NUMBER ,
168: x_msg_data OUT NOCOPY VARCHAR2 ,
185: -- Standard Start of API savepoint
186: SAVEPOINT Create_Alloc_Definition_PUB;
187:
188: -- Initialize message list if p_init_msg_list is set to TRUE.
189: IF FND_API.to_Boolean( p_init_msg_list ) THEN
190: FND_MSG_PUB.initialize;
191: END IF;
192:
193: -- Standard call to check for call compatibility.
190: FND_MSG_PUB.initialize;
191: END IF;
192:
193: -- Standard call to check for call compatibility.
194: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
195: p_api_version ,
196: l_api_name ,
197: G_PKG_NAME )
198: THEN
195: p_api_version ,
196: l_api_name ,
197: G_PKG_NAME )
198: THEN
199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
200: END IF;
201:
202: -- Initialize API return status to success
203: x_return_status := FND_API.G_RET_STS_SUCCESS;
199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
200: END IF;
201:
202: -- Initialize API return status to success
203: x_return_status := FND_API.G_RET_STS_SUCCESS;
204:
205: G_operation := 'INSERT'; -- Bug 2659435
206: G_header_logged := 'N'; -- to avoid logging duplicate header for errors
207:
220: END IF;
221:
222:
223: -- Return if validation failures detected
224: IF l_return_status = FND_API.G_RET_STS_ERROR
225: THEN
226: RAISE FND_API.G_EXC_ERROR;
227: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
228: THEN
222:
223: -- Return if validation failures detected
224: IF l_return_status = FND_API.G_RET_STS_ERROR
225: THEN
226: RAISE FND_API.G_EXC_ERROR;
227: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
228: THEN
229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
230: END IF;
223: -- Return if validation failures detected
224: IF l_return_status = FND_API.G_RET_STS_ERROR
225: THEN
226: RAISE FND_API.G_EXC_ERROR;
227: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
228: THEN
229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
230: END IF;
231:
225: THEN
226: RAISE FND_API.G_EXC_ERROR;
227: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
228: THEN
229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
230: END IF;
231:
232: --
233: -- Check for duplicate record.
244: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',l_rsrc_cost_rec.organization_id);
245: FND_MESSAGE.SET_TOKEN('PERIOD_ID',l_rsrc_cost_rec.period_id);
246: FND_MESSAGE.SET_TOKEN('COST_TYPE_ID',l_rsrc_cost_rec.cost_type_id);
247: FND_MSG_PUB.Add;
248: RAISE FND_API.G_EXC_ERROR;
249: END IF;
250:
251: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
252: log_msg('Inserting record for resource : ' || l_rsrc_cost_rec.resources ||
259:
260: -- call to private API to insert to record
261: GMF_ResourceCost_PVT.Create_Resource_Cost
262: ( p_api_version => 2.0
263: , p_init_msg_list => FND_API.G_FALSE
264: , p_commit => FND_API.G_FALSE
265:
266: , x_return_status => l_return_status
267: , x_msg_count => l_count
260: -- call to private API to insert to record
261: GMF_ResourceCost_PVT.Create_Resource_Cost
262: ( p_api_version => 2.0
263: , p_init_msg_list => FND_API.G_FALSE
264: , p_commit => FND_API.G_FALSE
265:
266: , x_return_status => l_return_status
267: , x_msg_count => l_count
268: , x_msg_data => l_data
272: );
273: -- created row count
274: l_no_rows_ins := SQL%ROWCOUNT ;
275: -- Return in case of insert fails
276: IF l_return_status = FND_API.G_RET_STS_ERROR
277: THEN
278: RAISE FND_API.G_EXC_ERROR;
279: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
280: THEN
274: l_no_rows_ins := SQL%ROWCOUNT ;
275: -- Return in case of insert fails
276: IF l_return_status = FND_API.G_RET_STS_ERROR
277: THEN
278: RAISE FND_API.G_EXC_ERROR;
279: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
280: THEN
281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
282: END IF;
275: -- Return in case of insert fails
276: IF l_return_status = FND_API.G_RET_STS_ERROR
277: THEN
278: RAISE FND_API.G_EXC_ERROR;
279: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
280: THEN
281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
282: END IF;
283:
277: THEN
278: RAISE FND_API.G_EXC_ERROR;
279: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
280: THEN
281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
282: END IF;
283:
284: add_header_to_error_stack(p_resource_cost_rec); -- Bug 2659435
285: FND_MESSAGE.SET_NAME('GMF','GMF_API_ROWS_INS');
290: log_msg('1 row inserted');
291: END IF;
292:
293: -- Standard check of p_commit.
294: IF FND_API.To_Boolean( p_commit ) THEN
295: COMMIT WORK;
296: END IF;
297:
298: -- Standard call to get message count and if count is 1, get message info.
301: p_data => x_msg_data
302: );
303:
304: EXCEPTION
305: WHEN FND_API.G_EXC_ERROR THEN
306: ROLLBACK TO Create_Alloc_Definition_PUB;
307: x_return_status := FND_API.G_RET_STS_ERROR ;
308: FND_MSG_PUB.Count_And_Get
309: ( p_count => x_msg_count ,
303:
304: EXCEPTION
305: WHEN FND_API.G_EXC_ERROR THEN
306: ROLLBACK TO Create_Alloc_Definition_PUB;
307: x_return_status := FND_API.G_RET_STS_ERROR ;
308: FND_MSG_PUB.Count_And_Get
309: ( p_count => x_msg_count ,
310: p_data => x_msg_data
311: );
308: FND_MSG_PUB.Count_And_Get
309: ( p_count => x_msg_count ,
310: p_data => x_msg_data
311: );
312: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
313: ROLLBACK TO Create_Alloc_Definition_PUB;
314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
315: FND_MSG_PUB.Count_And_Get
316: ( p_count => x_msg_count ,
310: p_data => x_msg_data
311: );
312: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
313: ROLLBACK TO Create_Alloc_Definition_PUB;
314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
315: FND_MSG_PUB.Count_And_Get
316: ( p_count => x_msg_count ,
317: p_data => x_msg_data
318: );
317: p_data => x_msg_data
318: );
319: WHEN OTHERS THEN
320: ROLLBACK TO Create_Alloc_Definition_PUB;
321: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
322: IF FND_MSG_PUB.Check_Msg_Level
323: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
324: THEN
325: FND_MSG_PUB.Add_Exc_Msg
367: -- End of comments
368:
369: PROCEDURE Update_Resource_Cost
370: ( p_api_version IN NUMBER ,
371: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
372: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
373:
374: x_return_status OUT NOCOPY VARCHAR2 ,
375: x_msg_count OUT NOCOPY NUMBER ,
368:
369: PROCEDURE Update_Resource_Cost
370: ( p_api_version IN NUMBER ,
371: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
372: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
373:
374: x_return_status OUT NOCOPY VARCHAR2 ,
375: x_msg_count OUT NOCOPY NUMBER ,
376: x_msg_data OUT NOCOPY VARCHAR2 ,
392: -- Standard Start of API savepoint
393: SAVEPOINT Update_Alloc_Definition_PUB;
394:
395: -- Initialize message list if p_init_msg_list is set to TRUE.
396: IF FND_API.to_Boolean( p_init_msg_list ) THEN
397: FND_MSG_PUB.initialize;
398: END IF;
399:
400: -- Standard call to check for call compatibility.
397: FND_MSG_PUB.initialize;
398: END IF;
399:
400: -- Standard call to check for call compatibility.
401: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
402: p_api_version ,
403: l_api_name ,
404: G_PKG_NAME )
405: THEN
402: p_api_version ,
403: l_api_name ,
404: G_PKG_NAME )
405: THEN
406: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
407: END IF;
408:
409: -- Initialize API return status to success
410: x_return_status := FND_API.G_RET_STS_SUCCESS;
406: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
407: END IF;
408:
409: -- Initialize API return status to success
410: x_return_status := FND_API.G_RET_STS_SUCCESS;
411:
412: G_operation := 'UPDATE'; -- Bug 2659435
413: G_header_logged := 'N'; -- to avoid logging duplicate header for errors
414:
427: log_msg('Return Status after validating : ' || l_return_status);
428: END IF;
429:
430: -- Return if validation failures detected
431: IF l_return_status = FND_API.G_RET_STS_ERROR
432: THEN
433: RAISE FND_API.G_EXC_ERROR;
434: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
435: THEN
429:
430: -- Return if validation failures detected
431: IF l_return_status = FND_API.G_RET_STS_ERROR
432: THEN
433: RAISE FND_API.G_EXC_ERROR;
434: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
435: THEN
436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
437: END IF;
430: -- Return if validation failures detected
431: IF l_return_status = FND_API.G_RET_STS_ERROR
432: THEN
433: RAISE FND_API.G_EXC_ERROR;
434: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
435: THEN
436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
437: END IF;
438:
432: THEN
433: RAISE FND_API.G_EXC_ERROR;
434: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
435: THEN
436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
437: END IF;
438:
439: -- Check whether any records exists for update
440: IF NOT check_records_exist(p_legal_entity_id => l_rsrc_cost_rec.legal_entity_id,
449: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',l_rsrc_cost_rec.organization_id);
450: FND_MESSAGE.SET_TOKEN('PERIOD_ID',l_rsrc_cost_rec.period_id);
451: FND_MESSAGE.SET_TOKEN('COST_TYPE_ID',l_rsrc_cost_rec.cost_type_id);
452: FND_MSG_PUB.Add;
453: RAISE FND_API.G_EXC_ERROR;
454: END IF ;
455:
456: IF l_rsrc_cost_rec.delete_mark = 1 THEN
457: add_header_to_error_stack(p_resource_cost_rec); -- Bug 2659435
456: IF l_rsrc_cost_rec.delete_mark = 1 THEN
457: add_header_to_error_stack(p_resource_cost_rec); -- Bug 2659435
458: FND_MESSAGE.SET_NAME('GMF','GMF_API_CANT_MARK_FOR_PURGE');
459: FND_MSG_PUB.Add;
460: RAISE FND_API.G_EXC_ERROR;
461: END IF ;
462:
463: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
464: log_msg('Updating record for resource : ' || l_rsrc_cost_rec.resources ||
469: END IF;
470: -- call to private API to insert to record
471: GMF_ResourceCost_PVT.Update_Resource_Cost
472: ( p_api_version => 2.0
473: , p_init_msg_list => FND_API.G_FALSE
474: , p_commit => FND_API.G_FALSE
475:
476: , x_return_status => l_return_status
477: , x_msg_count => l_count
470: -- call to private API to insert to record
471: GMF_ResourceCost_PVT.Update_Resource_Cost
472: ( p_api_version => 2.0
473: , p_init_msg_list => FND_API.G_FALSE
474: , p_commit => FND_API.G_FALSE
475:
476: , x_return_status => l_return_status
477: , x_msg_count => l_count
478: , x_msg_data => l_data
482: );
483: l_no_rows_upd := SQL%ROWCOUNT ;
484:
485: -- Return in case of insert fails
486: IF l_return_status = FND_API.G_RET_STS_ERROR
487: THEN
488: RAISE FND_API.G_EXC_ERROR;
489: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
490: THEN
484:
485: -- Return in case of insert fails
486: IF l_return_status = FND_API.G_RET_STS_ERROR
487: THEN
488: RAISE FND_API.G_EXC_ERROR;
489: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
490: THEN
491: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
492: END IF;
485: -- Return in case of insert fails
486: IF l_return_status = FND_API.G_RET_STS_ERROR
487: THEN
488: RAISE FND_API.G_EXC_ERROR;
489: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
490: THEN
491: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
492: END IF;
493:
487: THEN
488: RAISE FND_API.G_EXC_ERROR;
489: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
490: THEN
491: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
492: END IF;
493:
494: add_header_to_error_stack(p_resource_cost_rec); -- Bug 2659435
495: FND_MESSAGE.SET_NAME('GMF','GMF_API_ROWS_UPD');
500: log_msg( l_no_rows_upd || ' rows updated.');
501: END IF;
502:
503: -- Standard check of p_commit.
504: IF FND_API.To_Boolean( p_commit ) THEN
505: COMMIT WORK;
506: END IF;
507:
508: -- Standard call to get message count and if count is 1, get message info.
511: p_data => x_msg_data
512: );
513:
514: EXCEPTION
515: WHEN FND_API.G_EXC_ERROR THEN
516: ROLLBACK TO Update_Alloc_Definition_PUB;
517: x_return_status := FND_API.G_RET_STS_ERROR ;
518: FND_MSG_PUB.Count_And_Get
519: ( p_count => x_msg_count ,
513:
514: EXCEPTION
515: WHEN FND_API.G_EXC_ERROR THEN
516: ROLLBACK TO Update_Alloc_Definition_PUB;
517: x_return_status := FND_API.G_RET_STS_ERROR ;
518: FND_MSG_PUB.Count_And_Get
519: ( p_count => x_msg_count ,
520: p_data => x_msg_data
521: );
518: FND_MSG_PUB.Count_And_Get
519: ( p_count => x_msg_count ,
520: p_data => x_msg_data
521: );
522: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
523: ROLLBACK TO Update_Alloc_Definition_PUB;
524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
525: FND_MSG_PUB.Count_And_Get
526: ( p_count => x_msg_count ,
520: p_data => x_msg_data
521: );
522: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
523: ROLLBACK TO Update_Alloc_Definition_PUB;
524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
525: FND_MSG_PUB.Count_And_Get
526: ( p_count => x_msg_count ,
527: p_data => x_msg_data
528: );
527: p_data => x_msg_data
528: );
529: WHEN OTHERS THEN
530: ROLLBACK TO Update_Alloc_Definition_PUB;
531: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
532: IF FND_MSG_PUB.Check_Msg_Level
533: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
534: THEN
535: FND_MSG_PUB.Add_Exc_Msg
576: -- End of comments
577:
578: PROCEDURE Delete_Resource_Cost
579: ( p_api_version IN NUMBER ,
580: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
581: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
582:
583: x_return_status OUT NOCOPY VARCHAR2 ,
584: x_msg_count OUT NOCOPY NUMBER ,
577:
578: PROCEDURE Delete_Resource_Cost
579: ( p_api_version IN NUMBER ,
580: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
581: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
582:
583: x_return_status OUT NOCOPY VARCHAR2 ,
584: x_msg_count OUT NOCOPY NUMBER ,
585: x_msg_data OUT NOCOPY VARCHAR2 ,
602: -- Standard Start of API savepoint
603: SAVEPOINT Delete_Alloc_Definition_PUB;
604:
605: -- Initialize message list if p_init_msg_list is set to TRUE.
606: IF FND_API.to_Boolean( p_init_msg_list ) THEN
607: FND_MSG_PUB.initialize;
608: END IF;
609:
610: -- Standard call to check for call compatibility.
607: FND_MSG_PUB.initialize;
608: END IF;
609:
610: -- Standard call to check for call compatibility.
611: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
612: p_api_version ,
613: l_api_name ,
614: G_PKG_NAME )
615: THEN
612: p_api_version ,
613: l_api_name ,
614: G_PKG_NAME )
615: THEN
616: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
617: END IF;
618:
619: -- Initialize API return status to success
620: x_return_status := FND_API.G_RET_STS_SUCCESS;
616: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
617: END IF;
618:
619: -- Initialize API return status to success
620: x_return_status := FND_API.G_RET_STS_SUCCESS;
621:
622: G_operation := 'DELETE'; -- Bug 2659435
623: G_header_logged := 'N'; -- to avoid logging duplicate header for errors
624:
637: log_msg('Return Status after validating : ' || l_return_status);
638: END IF;
639:
640: -- Return if validation failures detected
641: IF l_return_status = FND_API.G_RET_STS_ERROR
642: THEN
643: RAISE FND_API.G_EXC_ERROR;
644: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
645: THEN
639:
640: -- Return if validation failures detected
641: IF l_return_status = FND_API.G_RET_STS_ERROR
642: THEN
643: RAISE FND_API.G_EXC_ERROR;
644: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
645: THEN
646: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
647: END IF;
640: -- Return if validation failures detected
641: IF l_return_status = FND_API.G_RET_STS_ERROR
642: THEN
643: RAISE FND_API.G_EXC_ERROR;
644: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
645: THEN
646: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
647: END IF;
648:
642: THEN
643: RAISE FND_API.G_EXC_ERROR;
644: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
645: THEN
646: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
647: END IF;
648:
649: -- Check whether any records exists for update
650: IF NOT check_records_exist(p_legal_entity_id => l_rsrc_cost_rec.legal_entity_id,
659: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',l_rsrc_cost_rec.organization_id);
660: FND_MESSAGE.SET_TOKEN('PERIOD_ID',l_rsrc_cost_rec.period_id);
661: FND_MESSAGE.SET_TOKEN('COST_TYPE_ID',l_rsrc_cost_rec.cost_type_id);
662: FND_MSG_PUB.Add;
663: RAISE FND_API.G_EXC_ERROR;
664: END IF ;
665:
666: -- set delete mark to 1 irrespective of users input.
667: l_rsrc_cost_rec.delete_mark := 1 ;
676:
677: -- call to private API to insert to record
678: GMF_ResourceCost_PVT.Update_Resource_Cost
679: ( p_api_version => 2.0
680: , p_init_msg_list => FND_API.G_FALSE
681: , p_commit => FND_API.G_FALSE
682:
683: , x_return_status => l_return_status
684: , x_msg_count => l_count
677: -- call to private API to insert to record
678: GMF_ResourceCost_PVT.Update_Resource_Cost
679: ( p_api_version => 2.0
680: , p_init_msg_list => FND_API.G_FALSE
681: , p_commit => FND_API.G_FALSE
682:
683: , x_return_status => l_return_status
684: , x_msg_count => l_count
685: , x_msg_data => l_data
690: -- deleted records row count
691: l_no_rows_del := SQL%ROWCOUNT ;
692:
693: -- Return in case of insert fails
694: IF l_return_status = FND_API.G_RET_STS_ERROR
695: THEN
696: RAISE FND_API.G_EXC_ERROR;
697: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
698: THEN
692:
693: -- Return in case of insert fails
694: IF l_return_status = FND_API.G_RET_STS_ERROR
695: THEN
696: RAISE FND_API.G_EXC_ERROR;
697: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
698: THEN
699: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
700: END IF;
693: -- Return in case of insert fails
694: IF l_return_status = FND_API.G_RET_STS_ERROR
695: THEN
696: RAISE FND_API.G_EXC_ERROR;
697: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
698: THEN
699: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
700: END IF;
701:
695: THEN
696: RAISE FND_API.G_EXC_ERROR;
697: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
698: THEN
699: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
700: END IF;
701:
702: add_header_to_error_stack(p_resource_cost_rec); -- Bug 2659435
703: FND_MESSAGE.SET_NAME('GMF','GMF_API_ROWS_DEL');
708: log_msg(l_no_rows_del || ' row(s) deleted.');
709: END IF;
710:
711: -- Standard check of p_commit.
712: IF FND_API.To_Boolean( p_commit ) THEN
713: COMMIT WORK;
714: END IF;
715:
716: -- Standard call to get message count and if count is 1, get message info.
719: p_data => x_msg_data
720: );
721:
722: EXCEPTION
723: WHEN FND_API.G_EXC_ERROR THEN
724: ROLLBACK TO Delete_Alloc_Definition_PUB;
725: x_return_status := FND_API.G_RET_STS_ERROR ;
726: FND_MSG_PUB.Count_And_Get
727: ( p_count => x_msg_count ,
721:
722: EXCEPTION
723: WHEN FND_API.G_EXC_ERROR THEN
724: ROLLBACK TO Delete_Alloc_Definition_PUB;
725: x_return_status := FND_API.G_RET_STS_ERROR ;
726: FND_MSG_PUB.Count_And_Get
727: ( p_count => x_msg_count ,
728: p_data => x_msg_data
729: );
726: FND_MSG_PUB.Count_And_Get
727: ( p_count => x_msg_count ,
728: p_data => x_msg_data
729: );
730: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
731: ROLLBACK TO Delete_Alloc_Definition_PUB;
732: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
733: FND_MSG_PUB.Count_And_Get
734: ( p_count => x_msg_count ,
728: p_data => x_msg_data
729: );
730: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
731: ROLLBACK TO Delete_Alloc_Definition_PUB;
732: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
733: FND_MSG_PUB.Count_And_Get
734: ( p_count => x_msg_count ,
735: p_data => x_msg_data
736: );
735: p_data => x_msg_data
736: );
737: WHEN OTHERS THEN
738: ROLLBACK TO Delete_Alloc_Definition_PUB;
739: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
740: IF FND_MSG_PUB.Check_Msg_Level
741: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
742: THEN
743: FND_MSG_PUB.Add_Exc_Msg
784: -- End of comments
785:
786: PROCEDURE Get_Resource_Cost
787: ( p_api_version IN NUMBER ,
788: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
789:
790: x_return_status OUT NOCOPY VARCHAR2 ,
791: x_msg_count OUT NOCOPY NUMBER ,
792: x_msg_data OUT NOCOPY VARCHAR2 ,
807: -- Standard Start of API savepoint
808: SAVEPOINT Get_Resource_Cost_PUB;
809:
810: -- Initialize message list if p_init_msg_list is set to TRUE.
811: IF FND_API.to_Boolean( p_init_msg_list ) THEN
812: FND_MSG_PUB.initialize;
813: END IF;
814:
815: -- Standard call to check for call compatibility.
812: FND_MSG_PUB.initialize;
813: END IF;
814:
815: -- Standard call to check for call compatibility.
816: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
817: p_api_version ,
818: l_api_name ,
819: G_PKG_NAME )
820: THEN
817: p_api_version ,
818: l_api_name ,
819: G_PKG_NAME )
820: THEN
821: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
822: END IF;
823:
824: -- Initialize API return status to success
825: x_return_status := FND_API.G_RET_STS_SUCCESS;
821: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
822: END IF;
823:
824: -- Initialize API return status to success
825: x_return_status := FND_API.G_RET_STS_SUCCESS;
826:
827: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
828: log_msg('Beginning Get Resource Cost process.');
829: END IF;
836:
837: GMF_ResourceCost_PVT.Get_Resource_Cost
838: (
839: p_api_version => 2.0
840: , p_init_msg_list => FND_API.G_FALSE
841:
842: , x_return_status => l_return_status
843: , x_msg_count => l_count
844: , x_msg_data => l_data
848: , x_resource_cost_rec => x_resource_cost_rec
849: );
850:
851: -- Return if update fails for any reason
852: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
853: RAISE FND_API.G_EXC_ERROR;
854: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
856: END IF;
849: );
850:
851: -- Return if update fails for any reason
852: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
853: RAISE FND_API.G_EXC_ERROR;
854: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
856: END IF;
857:
850:
851: -- Return if update fails for any reason
852: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
853: RAISE FND_API.G_EXC_ERROR;
854: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
856: END IF;
857:
858: /*
851: -- Return if update fails for any reason
852: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
853: RAISE FND_API.G_EXC_ERROR;
854: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
856: END IF;
857:
858: /*
859: -- Standard check of p_commit.
856: END IF;
857:
858: /*
859: -- Standard check of p_commit.
860: IF FND_API.To_Boolean( p_commit ) THEN
861: COMMIT WORK;
862: END IF;
863: */
864: -- Standard call to get message count and if count is 1, get message info.
867: p_data => x_msg_data
868: );
869:
870: EXCEPTION
871: WHEN FND_API.G_EXC_ERROR THEN
872: ROLLBACK TO Get_Resource_Cost_PUB;
873: x_return_status := FND_API.G_RET_STS_ERROR ;
874: FND_MSG_PUB.Count_And_Get
875: ( p_count => x_msg_count ,
869:
870: EXCEPTION
871: WHEN FND_API.G_EXC_ERROR THEN
872: ROLLBACK TO Get_Resource_Cost_PUB;
873: x_return_status := FND_API.G_RET_STS_ERROR ;
874: FND_MSG_PUB.Count_And_Get
875: ( p_count => x_msg_count ,
876: p_data => x_msg_data
877: );
874: FND_MSG_PUB.Count_And_Get
875: ( p_count => x_msg_count ,
876: p_data => x_msg_data
877: );
878: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
879: ROLLBACK TO Get_Resource_Cost_PUB;
880: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
881: FND_MSG_PUB.Count_And_Get
882: ( p_count => x_msg_count ,
876: p_data => x_msg_data
877: );
878: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
879: ROLLBACK TO Get_Resource_Cost_PUB;
880: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
881: FND_MSG_PUB.Count_And_Get
882: ( p_count => x_msg_count ,
883: p_data => x_msg_data
884: );
883: p_data => x_msg_data
884: );
885: WHEN OTHERS THEN
886: ROLLBACK TO Get_Resource_Cost_PUB;
887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
888: IF FND_MSG_PUB.Check_Msg_Level
889: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
890: THEN
891: FND_MSG_PUB.Add_Exc_Msg
994:
995: -------------
996: -- Resources
997: -------------
998: IF (l_resources <> FND_API.G_MISS_CHAR) AND
999: (l_resources IS NOT NULL) THEN
1000: -- validate alloc_id
1001: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
1002: log_msg('validating resources : '|| l_resources);
1010: add_header_to_error_stack(p_rsrc_cost_rec); -- Bug 2659435
1011: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_RESOURCES');
1012: FND_MESSAGE.SET_TOKEN('RESOURCES',l_resources);
1013: FND_MSG_PUB.Add;
1014: RAISE FND_API.G_EXC_ERROR;
1015: END IF;
1016: -- Get the resource UOM code, resource UOM class for further processing
1017: GMF_VALIDATIONS_PVT.Validate_Resource(l_resources,l_resource_uom,l_resource_uom_class);
1018: IF l_resource_uom IS NULL AND l_resource_uom_class IS NULL THEN
1019: add_header_to_error_stack(p_rsrc_cost_rec); -- Bug 2659435
1020: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_RESOURCES');
1021: FND_MESSAGE.SET_TOKEN('RESOURCES',l_resources);
1022: FND_MSG_PUB.Add;
1023: RAISE FND_API.G_EXC_ERROR;
1024: END IF;
1025: ELSE
1026: add_header_to_error_stack(p_rsrc_cost_rec); -- Bug 2659435
1027: FND_MESSAGE.SET_NAME('GMF','GMF_API_RESOURCES_REQ');
1025: ELSE
1026: add_header_to_error_stack(p_rsrc_cost_rec); -- Bug 2659435
1027: FND_MESSAGE.SET_NAME('GMF','GMF_API_RESOURCES_REQ');
1028: FND_MSG_PUB.Add;
1029: RAISE FND_API.G_EXC_ERROR;
1030: END IF;
1031: -- End Resource
1032:
1033: --------------------------
1036: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
1037: log_msg('validating legal_entity_id : ' || l_legal_entity_id);
1038: END IF;
1039:
1040: IF (l_legal_entity_id <> FND_API.G_MISS_NUM) AND
1041: (l_legal_entity_id IS NOT NULL) THEN
1042: IF NOT GMF_VALIDATIONS_PVT.Validate_legal_entity_id(l_legal_entity_id) THEN
1043: add_header_to_error_stack(p_rsrc_cost_rec); -- Bug 2659435
1044: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_LE_ID');
1043: add_header_to_error_stack(p_rsrc_cost_rec); -- Bug 2659435
1044: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_LE_ID');
1045: FND_MESSAGE.SET_TOKEN('LEGAL_ENTITY',l_legal_entity_id);
1046: FND_MSG_PUB.Add;
1047: RAISE FND_API.G_EXC_ERROR;
1048: END IF;
1049: ELSE
1050: add_header_to_error_stack(p_rsrc_cost_rec); -- Bug 2659435
1051: FND_MESSAGE.SET_NAME('GMF','GMF_API_LE_ID_REQ');
1049: ELSE
1050: add_header_to_error_stack(p_rsrc_cost_rec); -- Bug 2659435
1051: FND_MESSAGE.SET_NAME('GMF','GMF_API_LE_ID_REQ');
1052: FND_MSG_PUB.Add;
1053: RAISE FND_API.G_EXC_ERROR;
1054: END IF;
1055:
1056: -- End legal entity
1057:
1058: --------------------------
1059: -- Organization validation
1060: --------------------------
1061: -- validate organization id
1062: IF ((l_organization_id <> FND_API.G_MISS_NUM) AND (l_organization_id IS NOT NULL)) THEN
1063: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_debug_level THEN
1064: log_msg('Validation Organization ID : '||l_organization_id);
1065: END IF;
1066: -- invoke validate organization id method
1067: IF NOT gmf_validations_pvt.Validate_organization_id(l_organization_id) THEN
1068: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_ORGN_ID');
1069: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', l_organization_id);
1070: FND_MSG_PUB.Add;
1071: RAISE FND_API.G_EXC_ERROR;
1072: END IF;
1073: -- if organization code also passed then log a message to ignore organization code
1074: IF ( l_organization_code <> FND_API.G_MISS_CHAR) AND (l_organization_code IS NOT NULL) THEN
1075: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
1070: FND_MSG_PUB.Add;
1071: RAISE FND_API.G_EXC_ERROR;
1072: END IF;
1073: -- if organization code also passed then log a message to ignore organization code
1074: IF ( l_organization_code <> FND_API.G_MISS_CHAR) AND (l_organization_code IS NOT NULL) THEN
1075: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
1076: FND_MESSAGE.SET_NAME('GMF','GMF_API_IGNORE_ORGN_CODE');
1077: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE', l_organization_code);
1078: FND_MSG_PUB.Add;
1078: FND_MSG_PUB.Add;
1079: END IF;
1080: END IF;
1081: -- Organization code passed
1082: ELSIF (l_organization_code <> FND_API.G_MISS_CHAR ) AND (l_organization_code IS NOT NULL ) THEN
1083: IF (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level) THEN
1084: log_msg('Validating Organization Code : ' ||l_organization_code);
1085: END IF;
1086: -- get the organization id
1092: IF l_organization_id IS NULL THEN
1093: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_ORGN_CODE');
1094: FND_MESSAGE.SET_TOKEN('ORG_CODE', l_organization_code);
1095: FND_MSG_PUB.Add;
1096: RAISE FND_API.G_EXC_ERROR;
1097: END IF;
1098: -- Either organization id or organization code required
1099: ELSE
1100: /* Bug 12333658. Do not raise ERROR even though both organization_id and organization_code are NULL */
1100: /* Bug 12333658. Do not raise ERROR even though both organization_id and organization_code are NULL */
1101: /*
1102: FND_MESSAGE.SET_NAME('GMF','GMF_API_ORGANIZATION_ID_REQ');
1103: FND_MSG_PUB.Add;
1104: RAISE FND_API.G_EXC_ERROR;
1105: */
1106: null;
1107: END IF;
1108: -- End of Organization validation
1109:
1110: ----------------------------
1111: -- * Cost Type Validation *
1112: ----------------------------
1113: IF (l_cost_type_id <> FND_API.G_MISS_NUM) AND (l_cost_type_id IS NOT NULL) THEN
1114: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1115: log_msg('Validating Cost Type Id : ' || l_cost_type_id);
1116: END IF;
1117: -- Invoke cost type id validation method
1118: IF NOT gmf_validations_pvt.validate_cost_type_id (l_cost_type_id) THEN
1119: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_COST_TYPE_ID');
1120: FND_MESSAGE.SET_TOKEN('COST_TYPE_ID', l_cost_type_id);
1121: FND_MSG_PUB.Add;
1122: RAISE FND_API.G_EXC_ERROR;
1123: END IF;
1124: -- if cost method code is not then log a message
1125: IF (l_cost_type_code <> FND_API.G_MISS_CHAR) AND (l_cost_type_code IS NOT NULL) THEN
1126: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
1121: FND_MSG_PUB.Add;
1122: RAISE FND_API.G_EXC_ERROR;
1123: END IF;
1124: -- if cost method code is not then log a message
1125: IF (l_cost_type_code <> FND_API.G_MISS_CHAR) AND (l_cost_type_code IS NOT NULL) THEN
1126: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
1127: FND_MESSAGE.SET_NAME('GMF','GMF_API_IGNORE_COST_TYPE');
1128: FND_MESSAGE.SET_TOKEN('COST_TYPE', l_cost_type_code);
1129: FND_MSG_PUB.Add;
1128: FND_MESSAGE.SET_TOKEN('COST_TYPE', l_cost_type_code);
1129: FND_MSG_PUB.Add;
1130: END IF;
1131: END IF;
1132: ELSIF (l_cost_type_code <> FND_API.G_MISS_CHAR) AND (l_cost_type_code IS NOT NULL) THEN
1133:
1134: -- Get the cost type id from the method
1135: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1136: log_msg('Validating Cost Type Code : ' || l_cost_type_code);
1143: IF l_cost_type_id IS NULL THEN
1144: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_COST_TYPE');
1145: FND_MESSAGE.SET_TOKEN('COST_TYPE',l_cost_type_code);
1146: FND_MSG_PUB.Add;
1147: RAISE FND_API.G_EXC_ERROR;
1148: END IF;
1149: ELSE
1150: FND_MESSAGE.SET_NAME('GMF','GMF_API_COST_TYPE_ID_REQ');
1151: FND_MSG_PUB.Add;
1148: END IF;
1149: ELSE
1150: FND_MESSAGE.SET_NAME('GMF','GMF_API_COST_TYPE_ID_REQ');
1151: FND_MSG_PUB.Add;
1152: RAISE FND_API.G_EXC_ERROR;
1153: END IF;
1154: -- End Cost Method
1155: --
1156:
1156:
1157: --------------------------
1158: -- * Period Validation *
1159: --------------------------
1160: IF (l_period_id <> FND_API.G_MISS_NUM) AND (l_period_id IS NOT NULL) THEN
1161: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1162: log_msg('Validating Period Id : ' || l_period_id);
1163: END IF;
1164: -- Invoke validate period id method
1165: IF NOT gmf_validations_pvt.validate_period_id(l_period_id) THEN
1166: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_PERIOD_ID');
1167: FND_MESSAGE.SET_TOKEN('PERIOD_ID', l_period_id);
1168: FND_MSG_PUB.Add;
1169: RAISE FND_API.G_EXC_ERROR;
1170: END IF;
1171: -- If period code also passed then ignore period code
1172: IF ((l_calendar_code <> FND_API.G_MISS_CHAR) AND (l_calendar_code IS NOT NULL))
1173: AND ((l_period_code <> FND_API.G_MISS_CHAR) AND (l_period_code IS NOT NULL)) THEN
1168: FND_MSG_PUB.Add;
1169: RAISE FND_API.G_EXC_ERROR;
1170: END IF;
1171: -- If period code also passed then ignore period code
1172: IF ((l_calendar_code <> FND_API.G_MISS_CHAR) AND (l_calendar_code IS NOT NULL))
1173: AND ((l_period_code <> FND_API.G_MISS_CHAR) AND (l_period_code IS NOT NULL)) THEN
1174: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
1175: FND_MESSAGE.SET_NAME('GMF','GMF_API_IGNORE_PERIOD_CODE');
1176: FND_MESSAGE.SET_TOKEN('CALENDAR_CODE', l_calendar_code);
1169: RAISE FND_API.G_EXC_ERROR;
1170: END IF;
1171: -- If period code also passed then ignore period code
1172: IF ((l_calendar_code <> FND_API.G_MISS_CHAR) AND (l_calendar_code IS NOT NULL))
1173: AND ((l_period_code <> FND_API.G_MISS_CHAR) AND (l_period_code IS NOT NULL)) THEN
1174: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
1175: FND_MESSAGE.SET_NAME('GMF','GMF_API_IGNORE_PERIOD_CODE');
1176: FND_MESSAGE.SET_TOKEN('CALENDAR_CODE', l_calendar_code);
1177: FND_MESSAGE.SET_TOKEN('PERIOD_CODE', l_period_code);
1177: FND_MESSAGE.SET_TOKEN('PERIOD_CODE', l_period_code);
1178: FND_MSG_PUB.Add;
1179: END IF;
1180: END IF;
1181: ELSIF (l_calendar_code <> FND_API.G_MISS_CHAR) AND (l_calendar_code IS NOT NULL)
1182: AND ((l_period_code <> FND_API.G_MISS_CHAR) AND (l_period_code IS NOT NULL)) THEN
1183:
1184: -- Get the period id passing period code to the validate period id method
1185: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1178: FND_MSG_PUB.Add;
1179: END IF;
1180: END IF;
1181: ELSIF (l_calendar_code <> FND_API.G_MISS_CHAR) AND (l_calendar_code IS NOT NULL)
1182: AND ((l_period_code <> FND_API.G_MISS_CHAR) AND (l_period_code IS NOT NULL)) THEN
1183:
1184: -- Get the period id passing period code to the validate period id method
1185: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1186: log_msg('Validating Calendar Code : ' || l_calendar_code||', Period Code : '||l_period_code);
1215: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_CLDR_PERIOD');
1216: FND_MESSAGE.SET_TOKEN('CALENDAR_CODE',l_calendar_code);
1217: FND_MESSAGE.SET_TOKEN('PERIOD_CODE',l_period_code);
1218: FND_MSG_PUB.Add;
1219: RAISE FND_API.G_EXC_ERROR;
1220: END IF;
1221: ELSE
1222: FND_MESSAGE.SET_NAME('GMF','GMF_API_PERIOD_ID_REQ');
1223: FND_MSG_PUB.Add;
1220: END IF;
1221: ELSE
1222: FND_MESSAGE.SET_NAME('GMF','GMF_API_PERIOD_ID_REQ');
1223: FND_MSG_PUB.Add;
1224: RAISE FND_API.G_EXC_ERROR;
1225: END IF;
1226:
1227: -- End Period Validation
1228:
1239: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
1240: log_msg('validating usage_uom : ' || l_usage_uom);
1241: END IF;
1242:
1243: IF (l_usage_uom <> FND_API.G_MISS_CHAR) AND
1244: (l_usage_uom IS NOT NULL) THEN
1245:
1246: --
1247: -- Bug 2692459
1253: add_header_to_error_stack(p_rsrc_cost_rec); -- Bug 2659435
1254: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_USAGE_UM');
1255: FND_MESSAGE.SET_TOKEN('USAGE_UM',l_usage_uom);
1256: FND_MSG_PUB.Add;
1257: RAISE FND_API.G_EXC_ERROR;
1258: END IF;
1259:
1260: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
1261: log_msg('Usage UOM Class : ' || l_usage_uom_class ||
1268: FND_MESSAGE.SET_NAME('GMF','GMF_API_USAGE_UOM_SAMETYPE_REQ');
1269: FND_MESSAGE.SET_TOKEN('USAGE_UM',l_usage_uom);
1270: FND_MESSAGE.SET_TOKEN('RESOURCE_UM',l_resource_uom);
1271: FND_MSG_PUB.Add;
1272: RAISE FND_API.G_EXC_ERROR;
1273: END IF;
1274: -- End of bug 2692459
1275:
1276: ELSIF (l_usage_uom = FND_API.G_MISS_CHAR AND
1272: RAISE FND_API.G_EXC_ERROR;
1273: END IF;
1274: -- End of bug 2692459
1275:
1276: ELSIF (l_usage_uom = FND_API.G_MISS_CHAR AND
1277: G_operation = 'UPDATE') OR
1278: (G_operation = 'INSERT') THEN
1279: add_header_to_error_stack(p_rsrc_cost_rec); -- Bug 2659435
1280: FND_MESSAGE.SET_NAME('GMF','GMF_API_USAGE_UM_REQ');
1278: (G_operation = 'INSERT') THEN
1279: add_header_to_error_stack(p_rsrc_cost_rec); -- Bug 2659435
1280: FND_MESSAGE.SET_NAME('GMF','GMF_API_USAGE_UM_REQ');
1281: FND_MSG_PUB.Add;
1282: RAISE FND_API.G_EXC_ERROR;
1283: END IF;
1284: -- End Usage Unit of Measure
1285:
1286: --
1295:
1296: /*************************************************************************
1297: * dvadivel 13-May-2004 Bug # 3628252 Removed validation for Nominal cost
1298: *************************************************************************/
1299: /* IF (l_nominal_cost <> FND_API.G_MISS_NUM) AND
1300: (l_nominal_cost IS NOT NULL) THEN
1301: IF ((nvl(l_nominal_cost,0) <= 0) OR (nvl(l_nominal_cost,0) >= 1000000000)) THEN
1302: add_header_to_error_stack(p_rsrc_cost_rec); -- Bug 2659435
1303: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_NOMINAL_COST');
1302: add_header_to_error_stack(p_rsrc_cost_rec); -- Bug 2659435
1303: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_NOMINAL_COST');
1304: FND_MESSAGE.SET_TOKEN('NOMINAL_COST',l_nominal_cost);
1305: FND_MSG_PUB.Add;
1306: RAISE FND_API.G_EXC_ERROR;
1307: END IF;
1308: ELSIF (l_nominal_cost = FND_API.G_MISS_NUM AND
1309: */
1310: IF ((l_nominal_cost = FND_API.G_MISS_NUM) OR (l_nominal_cost IS NULL)) AND
1304: FND_MESSAGE.SET_TOKEN('NOMINAL_COST',l_nominal_cost);
1305: FND_MSG_PUB.Add;
1306: RAISE FND_API.G_EXC_ERROR;
1307: END IF;
1308: ELSIF (l_nominal_cost = FND_API.G_MISS_NUM AND
1309: */
1310: IF ((l_nominal_cost = FND_API.G_MISS_NUM) OR (l_nominal_cost IS NULL)) AND
1311: ((G_operation = 'UPDATE') OR
1312: (G_operation = 'INSERT')) THEN
1306: RAISE FND_API.G_EXC_ERROR;
1307: END IF;
1308: ELSIF (l_nominal_cost = FND_API.G_MISS_NUM AND
1309: */
1310: IF ((l_nominal_cost = FND_API.G_MISS_NUM) OR (l_nominal_cost IS NULL)) AND
1311: ((G_operation = 'UPDATE') OR
1312: (G_operation = 'INSERT')) THEN
1313: add_header_to_error_stack(p_rsrc_cost_rec); -- Bug 2659435
1314: FND_MESSAGE.SET_NAME('GMF','GMF_API_NOMINAL_COST_REQ');
1312: (G_operation = 'INSERT')) THEN
1313: add_header_to_error_stack(p_rsrc_cost_rec); -- Bug 2659435
1314: FND_MESSAGE.SET_NAME('GMF','GMF_API_NOMINAL_COST_REQ');
1315: FND_MSG_PUB.Add;
1316: RAISE FND_API.G_EXC_ERROR;
1317: END IF;
1318: -- End Nominal Cost
1319:
1320: --
1323: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
1324: log_msg('Validating delete_mark : ' || l_delete_mark);
1325: END IF;
1326:
1327: IF (l_delete_mark <> FND_API.G_MISS_NUM) AND
1328: (l_delete_mark IS NOT NULL) THEN
1329: IF l_delete_mark NOT IN (0,1) THEN
1330: add_header_to_error_stack(p_rsrc_cost_rec); -- Bug 2659435
1331: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_DELETE_MARK');
1330: add_header_to_error_stack(p_rsrc_cost_rec); -- Bug 2659435
1331: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_DELETE_MARK');
1332: FND_MESSAGE.SET_TOKEN('DELETE_MARK',l_delete_mark);
1333: FND_MSG_PUB.Add;
1334: RAISE FND_API.G_EXC_ERROR;
1335: END IF;
1336: ELSIF (l_delete_mark = FND_API.G_MISS_NUM AND
1337: G_operation = 'UPDATE') OR
1338: (G_operation = 'INSERT') THEN
1332: FND_MESSAGE.SET_TOKEN('DELETE_MARK',l_delete_mark);
1333: FND_MSG_PUB.Add;
1334: RAISE FND_API.G_EXC_ERROR;
1335: END IF;
1336: ELSIF (l_delete_mark = FND_API.G_MISS_NUM AND
1337: G_operation = 'UPDATE') OR
1338: (G_operation = 'INSERT') THEN
1339: add_header_to_error_stack(p_rsrc_cost_rec); -- Bug 2659435
1340: FND_MESSAGE.SET_NAME('GMF','GMF_API_DELETE_MARK_REQ');
1338: (G_operation = 'INSERT') THEN
1339: add_header_to_error_stack(p_rsrc_cost_rec); -- Bug 2659435
1340: FND_MESSAGE.SET_NAME('GMF','GMF_API_DELETE_MARK_REQ');
1341: FND_MSG_PUB.Add;
1342: RAISE FND_API.G_EXC_ERROR;
1343: END IF;
1344:
1345: -- Bug 2692459
1346: IF ((G_operation = 'UPDATE') AND (l_delete_mark = 1)) THEN
1346: IF ((G_operation = 'UPDATE') AND (l_delete_mark = 1)) THEN
1347: add_header_to_error_stack(p_rsrc_cost_rec);
1348: FND_MESSAGE.SET_NAME('GMF','GMF_API_CANT_MARK_FOR_PURGE');
1349: FND_MSG_PUB.Add;
1350: RAISE FND_API.G_EXC_ERROR;
1351: END IF;
1352: -- End Delete Mark
1353:
1354: END IF; -- Bug 2692459: G_operation <> 'DELETE'
1357: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
1358: log_msg('Validating user name : ' || l_user_name);
1359: END IF;
1360:
1361: IF (l_user_name <> FND_API.G_MISS_CHAR) AND
1362: (l_user_name IS NOT NULL) THEN
1363: GMA_GLOBAL_GRP.Get_who( p_user_name => l_user_name
1364: , x_user_id => l_user_id
1365: );
1372: add_header_to_error_stack(p_rsrc_cost_rec); -- Bug 2659435
1373: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_USER_NAME');
1374: FND_MESSAGE.SET_TOKEN('USER_NAME',l_user_name);
1375: FND_MSG_PUB.Add;
1376: RAISE FND_API.G_EXC_ERROR;
1377: END IF;
1378:
1379: ELSE
1380: add_header_to_error_stack(p_rsrc_cost_rec); -- Bug 2659435
1379: ELSE
1380: add_header_to_error_stack(p_rsrc_cost_rec); -- Bug 2659435
1381: FND_MESSAGE.SET_NAME('GMF','GMF_API_USER_NAME_REQ');
1382: FND_MSG_PUB.Add;
1383: RAISE FND_API.G_EXC_ERROR;
1384: END IF;
1385: -- End User Name
1386:
1387:
1400: x_rsrc_cost_rec.user_name := l_user_name ;
1401: x_user_id := l_user_id ;
1402:
1403: EXCEPTION -- Bug 2681243: removed when others to capture ORA errors.
1404: WHEN FND_API.G_EXC_ERROR THEN
1405: x_return_status := FND_API.G_RET_STS_ERROR ;
1406: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1408: END Validate_Input_Params;
1401: x_user_id := l_user_id ;
1402:
1403: EXCEPTION -- Bug 2681243: removed when others to capture ORA errors.
1404: WHEN FND_API.G_EXC_ERROR THEN
1405: x_return_status := FND_API.G_RET_STS_ERROR ;
1406: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1408: END Validate_Input_Params;
1409:
1402:
1403: EXCEPTION -- Bug 2681243: removed when others to capture ORA errors.
1404: WHEN FND_API.G_EXC_ERROR THEN
1405: x_return_status := FND_API.G_RET_STS_ERROR ;
1406: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1408: END Validate_Input_Params;
1409:
1410: -- Func start of comments
1403: EXCEPTION -- Bug 2681243: removed when others to capture ORA errors.
1404: WHEN FND_API.G_EXC_ERROR THEN
1405: x_return_status := FND_API.G_RET_STS_ERROR ;
1406: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1408: END Validate_Input_Params;
1409:
1410: -- Func start of comments
1411: --+==========================================================================+