[Home] [Help]
150:
151: PROCEDURE Create_Burden_Details
152: (
153: p_api_version IN NUMBER ,
154: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
155: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
156:
157: x_return_status OUT NOCOPY VARCHAR2 ,
158: x_msg_count OUT NOCOPY VARCHAR2 ,
151: PROCEDURE Create_Burden_Details
152: (
153: p_api_version IN NUMBER ,
154: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
155: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
156:
157: x_return_status OUT NOCOPY VARCHAR2 ,
158: x_msg_count OUT NOCOPY VARCHAR2 ,
159: x_msg_data OUT NOCOPY VARCHAR2 ,
181: -- Standard Start of API savepoint
182: SAVEPOINT Create_Burden_Details_PUB ;
183:
184: -- Initialize message list if p_init_msg_list is set to TRUE.
185: IF FND_API.to_Boolean( p_init_msg_list ) THEN
186: FND_MSG_PUB.initialize;
187: END IF;
188:
189: -- Standard call to check for call compatibility.
186: FND_MSG_PUB.initialize;
187: END IF;
188:
189: -- Standard call to check for call compatibility.
190: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
191: p_api_version ,
192: l_api_name ,
193: G_PKG_NAME )
194: THEN
191: p_api_version ,
192: l_api_name ,
193: G_PKG_NAME )
194: THEN
195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
196: END IF;
197:
198: -- Initialize API return status to success
199: x_return_status := FND_API.G_RET_STS_SUCCESS;
195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
196: END IF;
197:
198: -- Initialize API return status to success
199: x_return_status := FND_API.G_RET_STS_SUCCESS;
200:
201: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
202: log_msg('Beginning Create Burden details process.');
203: END IF;
229: log_msg('Return Status after validating : ' || l_return_status);
230: END IF;
231:
232: -- Return if validation failures detected
233: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
234: add_header_to_error_stack(p_header_rec); -- Bug 2659435
235: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
236: FND_MSG_PUB.Add;
237: RAISE FND_API.G_EXC_ERROR;
233: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
234: add_header_to_error_stack(p_header_rec); -- Bug 2659435
235: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
236: FND_MSG_PUB.Add;
237: RAISE FND_API.G_EXC_ERROR;
238: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
239: add_header_to_error_stack(p_header_rec); -- Bug 2659435
240: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
241: FND_MSG_PUB.Add;
234: add_header_to_error_stack(p_header_rec); -- Bug 2659435
235: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
236: FND_MSG_PUB.Add;
237: RAISE FND_API.G_EXC_ERROR;
238: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
239: add_header_to_error_stack(p_header_rec); -- Bug 2659435
240: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
241: FND_MSG_PUB.Add;
242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
238: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
239: add_header_to_error_stack(p_header_rec); -- Bug 2659435
240: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
241: FND_MSG_PUB.Add;
242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
243: END IF;
244: END IF;
245:
246: IF l_dtl_tbl.count > 0 THEN
249: END IF;
250: GMF_BurdenDetails_PVT.Create_Burden_Details
251: (
252: p_api_version => 2.0
253: , p_init_msg_list => FND_API.G_FALSE
254: , p_commit => FND_API.G_FALSE
255:
256: , x_return_status => l_return_status
257: , x_msg_count => l_count
250: GMF_BurdenDetails_PVT.Create_Burden_Details
251: (
252: p_api_version => 2.0
253: , p_init_msg_list => FND_API.G_FALSE
254: , p_commit => FND_API.G_FALSE
255:
256: , x_return_status => l_return_status
257: , x_msg_count => l_count
258: , x_msg_data => l_data
265: , x_burdenline_ids => x_burdenline_ids
266: );
267:
268: -- Return if insert fails for any reason
269: IF l_return_status = FND_API.G_RET_STS_ERROR
270: THEN
271: add_header_to_error_stack(l_header_rec); -- Bug 2659435
272: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
273: FND_MSG_PUB.Add;
270: THEN
271: add_header_to_error_stack(l_header_rec); -- Bug 2659435
272: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
273: FND_MSG_PUB.Add;
274: RAISE FND_API.G_EXC_ERROR;
275: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
276: THEN
277: add_header_to_error_stack(l_header_rec); -- Bug 2659435
278: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
271: add_header_to_error_stack(l_header_rec); -- Bug 2659435
272: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
273: FND_MSG_PUB.Add;
274: RAISE FND_API.G_EXC_ERROR;
275: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
276: THEN
277: add_header_to_error_stack(l_header_rec); -- Bug 2659435
278: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
279: FND_MSG_PUB.Add;
276: THEN
277: add_header_to_error_stack(l_header_rec); -- Bug 2659435
278: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
279: FND_MSG_PUB.Add;
280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
281: END IF;
282:
283: add_header_to_error_stack(l_header_rec); -- Bug 2659435
284: FND_MESSAGE.SET_NAME('GMF','GMF_API_ROWS_INS');
290: FND_MSG_PUB.Add;
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_Burden_Details_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_Burden_Details_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_Burden_Details_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_Burden_Details_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_Burden_Details_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
369:
370: PROCEDURE Update_Burden_Details
371: (
372: p_api_version IN NUMBER ,
373: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
374: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
375:
376: x_return_status OUT NOCOPY VARCHAR2 ,
377: x_msg_count OUT NOCOPY VARCHAR2 ,
370: PROCEDURE Update_Burden_Details
371: (
372: p_api_version IN NUMBER ,
373: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
374: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
375:
376: x_return_status OUT NOCOPY VARCHAR2 ,
377: x_msg_count OUT NOCOPY VARCHAR2 ,
378: x_msg_data OUT NOCOPY VARCHAR2 ,
397: -- Standard Start of API savepoint
398: SAVEPOINT Update_Burden_Details_PUB;
399:
400: -- Initialize message list if p_init_msg_list is set to TRUE.
401: IF FND_API.to_Boolean( p_init_msg_list ) THEN
402: FND_MSG_PUB.initialize;
403: END IF;
404:
405: -- Standard call to check for call compatibility.
402: FND_MSG_PUB.initialize;
403: END IF;
404:
405: -- Standard call to check for call compatibility.
406: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
407: p_api_version ,
408: l_api_name ,
409: G_PKG_NAME )
410: THEN
407: p_api_version ,
408: l_api_name ,
409: G_PKG_NAME )
410: THEN
411: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
412: END IF;
413:
414: -- Initialize API return status to success
415: x_return_status := FND_API.G_RET_STS_SUCCESS;
411: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
412: END IF;
413:
414: -- Initialize API return status to success
415: x_return_status := FND_API.G_RET_STS_SUCCESS;
416:
417: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
418: log_msg('Beginning Update Burden Details Definition process.');
419: END IF;
445: log_msg('Return Status after validating : ' || l_return_status);
446: END IF;
447:
448: -- Return if validation failures detected
449: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
450: add_header_to_error_stack(p_header_rec); -- Bug 2659435
451: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
452: FND_MSG_PUB.Add;
453: RAISE FND_API.G_EXC_ERROR;
449: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
450: add_header_to_error_stack(p_header_rec); -- Bug 2659435
451: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
452: FND_MSG_PUB.Add;
453: RAISE FND_API.G_EXC_ERROR;
454: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
455: add_header_to_error_stack(p_header_rec); -- Bug 2659435
456: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
457: FND_MSG_PUB.Add;
450: add_header_to_error_stack(p_header_rec); -- Bug 2659435
451: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
452: FND_MSG_PUB.Add;
453: RAISE FND_API.G_EXC_ERROR;
454: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
455: add_header_to_error_stack(p_header_rec); -- Bug 2659435
456: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
457: FND_MSG_PUB.Add;
458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
454: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
455: add_header_to_error_stack(p_header_rec); -- Bug 2659435
456: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
457: FND_MSG_PUB.Add;
458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
459: END IF;
460: END IF;
461:
462: IF l_dtl_tbl.count > 0 THEN
465: END IF;
466: GMF_BurdenDetails_PVT.Update_Burden_Details
467: (
468: p_api_version => 2.0
469: , p_init_msg_list => FND_API.G_FALSE
470: , p_commit => FND_API.G_FALSE
471:
472: , x_return_status => l_return_status
473: , x_msg_count => l_count
466: GMF_BurdenDetails_PVT.Update_Burden_Details
467: (
468: p_api_version => 2.0
469: , p_init_msg_list => FND_API.G_FALSE
470: , p_commit => FND_API.G_FALSE
471:
472: , x_return_status => l_return_status
473: , x_msg_count => l_count
474: , x_msg_data => l_data
479: , p_burden_factor_tbl => l_brdn_factor_tbl
480: );
481:
482: -- Return if update fails for any reason
483: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
484: add_header_to_error_stack(l_header_rec); -- Bug 2659435
485: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
486: FND_MSG_PUB.Add;
487: RAISE FND_API.G_EXC_ERROR;
483: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
484: add_header_to_error_stack(l_header_rec); -- Bug 2659435
485: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
486: FND_MSG_PUB.Add;
487: RAISE FND_API.G_EXC_ERROR;
488: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
489: add_header_to_error_stack(l_header_rec); -- Bug 2659435
490: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
491: FND_MSG_PUB.Add;
484: add_header_to_error_stack(l_header_rec); -- Bug 2659435
485: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
486: FND_MSG_PUB.Add;
487: RAISE FND_API.G_EXC_ERROR;
488: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
489: add_header_to_error_stack(l_header_rec); -- Bug 2659435
490: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
491: FND_MSG_PUB.Add;
492: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
488: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
489: add_header_to_error_stack(l_header_rec); -- Bug 2659435
490: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
491: FND_MSG_PUB.Add;
492: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
493: END IF;
494:
495: add_header_to_error_stack(l_header_rec); -- Bug 2659435
496: FND_MESSAGE.SET_NAME('GMF','GMF_API_ROWS_UPD');
505: --log_msg( l_no_rows_upd || ' rows updated.');
506:
507:
508: -- Standard check of p_commit.
509: IF FND_API.To_Boolean( p_commit ) THEN
510: COMMIT WORK;
511: END IF;
512:
513: -- Standard call to get message count and if count is 1, get message info.
516: p_data => x_msg_data
517: );
518:
519: EXCEPTION
520: WHEN FND_API.G_EXC_ERROR THEN
521: ROLLBACK TO Update_Burden_Details_PUB;
522: x_return_status := FND_API.G_RET_STS_ERROR ;
523: FND_MSG_PUB.Count_And_Get
524: ( p_count => x_msg_count ,
518:
519: EXCEPTION
520: WHEN FND_API.G_EXC_ERROR THEN
521: ROLLBACK TO Update_Burden_Details_PUB;
522: x_return_status := FND_API.G_RET_STS_ERROR ;
523: FND_MSG_PUB.Count_And_Get
524: ( p_count => x_msg_count ,
525: p_data => x_msg_data
526: );
523: FND_MSG_PUB.Count_And_Get
524: ( p_count => x_msg_count ,
525: p_data => x_msg_data
526: );
527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
528: ROLLBACK TO Update_Burden_Details_PUB;
529: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
530: FND_MSG_PUB.Count_And_Get
531: ( p_count => x_msg_count ,
525: p_data => x_msg_data
526: );
527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
528: ROLLBACK TO Update_Burden_Details_PUB;
529: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
530: FND_MSG_PUB.Count_And_Get
531: ( p_count => x_msg_count ,
532: p_data => x_msg_data
533: );
532: p_data => x_msg_data
533: );
534: WHEN OTHERS THEN
535: ROLLBACK TO Update_Burden_Details_PUB;
536: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
537: IF FND_MSG_PUB.Check_Msg_Level
538: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
539: THEN
540: FND_MSG_PUB.Add_Exc_Msg
583:
584: PROCEDURE Delete_Burden_Details
585: (
586: p_api_version IN NUMBER ,
587: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
588: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
589:
590: x_return_status OUT NOCOPY VARCHAR2 ,
591: x_msg_count OUT NOCOPY VARCHAR2 ,
584: PROCEDURE Delete_Burden_Details
585: (
586: p_api_version IN NUMBER ,
587: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
588: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
589:
590: x_return_status OUT NOCOPY VARCHAR2 ,
591: x_msg_count OUT NOCOPY VARCHAR2 ,
592: x_msg_data OUT NOCOPY VARCHAR2 ,
605: l_return_status VARCHAR2(2) ;
606: l_count NUMBER(10) ;
607: l_data VARCHAR2(2000) ;
608: l_no_rows_del NUMBER(10) ;
609: -- l_user_name fnd_user.user_name%TYPE := FND_API.G_MISS_CHAR ; Bug 2659435
610:
611: BEGIN
612:
613: -- Standard Start of API savepoint
613: -- Standard Start of API savepoint
614: SAVEPOINT Delete_Burden_Details_PUB;
615:
616: -- Initialize message list if p_init_msg_list is set to TRUE.
617: IF FND_API.to_Boolean( p_init_msg_list ) THEN
618: FND_MSG_PUB.initialize;
619: END IF;
620:
621: -- Standard call to check for call compatibility.
618: FND_MSG_PUB.initialize;
619: END IF;
620:
621: -- Standard call to check for call compatibility.
622: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
623: p_api_version ,
624: l_api_name ,
625: G_PKG_NAME )
626: THEN
623: p_api_version ,
624: l_api_name ,
625: G_PKG_NAME )
626: THEN
627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
628: END IF;
629:
630: -- Initialize API return status to success
631: x_return_status := FND_API.G_RET_STS_SUCCESS;
627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
628: END IF;
629:
630: -- Initialize API return status to success
631: x_return_status := FND_API.G_RET_STS_SUCCESS;
632:
633: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
634: log_msg('Beginning Delete Burden Details process.');
635: END IF;
662: log_msg('Return Status after validating : ' || l_return_status);
663: END IF;
664:
665: -- Return if validation failures detected
666: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
667: add_header_to_error_stack(p_header_rec); -- Bug 2659435
668: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
669: FND_MSG_PUB.Add;
670: RAISE FND_API.G_EXC_ERROR;
666: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
667: add_header_to_error_stack(p_header_rec); -- Bug 2659435
668: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
669: FND_MSG_PUB.Add;
670: RAISE FND_API.G_EXC_ERROR;
671: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
672: add_header_to_error_stack(p_header_rec); -- Bug 2659435
673: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
674: FND_MSG_PUB.Add;
667: add_header_to_error_stack(p_header_rec); -- Bug 2659435
668: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
669: FND_MSG_PUB.Add;
670: RAISE FND_API.G_EXC_ERROR;
671: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
672: add_header_to_error_stack(p_header_rec); -- Bug 2659435
673: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
674: FND_MSG_PUB.Add;
675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
671: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
672: add_header_to_error_stack(p_header_rec); -- Bug 2659435
673: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
674: FND_MSG_PUB.Add;
675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
676: END IF;
677: END IF;
678:
679: IF l_dtl_tbl.count > 0 THEN
683:
684: GMF_BurdenDetails_PVT.Update_Burden_Details
685: (
686: p_api_version => 2.0
687: , p_init_msg_list => FND_API.G_FALSE
688: , p_commit => FND_API.G_FALSE
689:
690: , x_return_status => l_return_status
691: , x_msg_count => l_count
684: GMF_BurdenDetails_PVT.Update_Burden_Details
685: (
686: p_api_version => 2.0
687: , p_init_msg_list => FND_API.G_FALSE
688: , p_commit => FND_API.G_FALSE
689:
690: , x_return_status => l_return_status
691: , x_msg_count => l_count
692: , x_msg_data => l_data
697: , p_burden_factor_tbl => l_brdn_factor_tbl
698: );
699:
700: -- Return if update fails for any reason
701: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
702: add_header_to_error_stack(l_header_rec); -- Bug 2659435
703: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
704: FND_MSG_PUB.Add;
705: RAISE FND_API.G_EXC_ERROR;
701: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
702: add_header_to_error_stack(l_header_rec); -- Bug 2659435
703: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
704: FND_MSG_PUB.Add;
705: RAISE FND_API.G_EXC_ERROR;
706: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
707: add_header_to_error_stack(l_header_rec); -- Bug 2659435
708: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
709: FND_MSG_PUB.Add;
702: add_header_to_error_stack(l_header_rec); -- Bug 2659435
703: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
704: FND_MSG_PUB.Add;
705: RAISE FND_API.G_EXC_ERROR;
706: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
707: add_header_to_error_stack(l_header_rec); -- Bug 2659435
708: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
709: FND_MSG_PUB.Add;
710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
706: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
707: add_header_to_error_stack(l_header_rec); -- Bug 2659435
708: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
709: FND_MSG_PUB.Add;
710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
711: END IF;
712:
713: add_header_to_error_stack(l_header_rec); -- Bug 2659435
714: FND_MESSAGE.SET_NAME('GMF','GMF_API_ROWS_DEL');
723:
724: --log_msg(l_no_rows_del || ' rows deleted.');
725:
726: -- Standard check of p_commit.
727: IF FND_API.To_Boolean( p_commit ) THEN
728: COMMIT WORK;
729: END IF;
730:
731: -- Standard call to get message count and if count is 1, get message info.
734: p_data => x_msg_data
735: );
736:
737: EXCEPTION
738: WHEN FND_API.G_EXC_ERROR THEN
739: ROLLBACK TO Delete_Burden_Details_PUB;
740: x_return_status := FND_API.G_RET_STS_ERROR ;
741: FND_MSG_PUB.Count_And_Get
742: ( p_count => x_msg_count ,
736:
737: EXCEPTION
738: WHEN FND_API.G_EXC_ERROR THEN
739: ROLLBACK TO Delete_Burden_Details_PUB;
740: x_return_status := FND_API.G_RET_STS_ERROR ;
741: FND_MSG_PUB.Count_And_Get
742: ( p_count => x_msg_count ,
743: p_data => x_msg_data
744: );
741: FND_MSG_PUB.Count_And_Get
742: ( p_count => x_msg_count ,
743: p_data => x_msg_data
744: );
745: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
746: ROLLBACK TO Delete_Burden_Details_PUB;
747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
748: FND_MSG_PUB.Count_And_Get
749: ( p_count => x_msg_count ,
743: p_data => x_msg_data
744: );
745: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
746: ROLLBACK TO Delete_Burden_Details_PUB;
747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
748: FND_MSG_PUB.Count_And_Get
749: ( p_count => x_msg_count ,
750: p_data => x_msg_data
751: );
750: p_data => x_msg_data
751: );
752: WHEN OTHERS THEN
753: ROLLBACK TO Delete_Burden_Details_PUB;
754: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
755: IF FND_MSG_PUB.Check_Msg_Level
756: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
757: THEN
758: FND_MSG_PUB.Add_Exc_Msg
801:
802: PROCEDURE Get_Burden_Details
803: (
804: p_api_version IN NUMBER ,
805: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
806:
807: x_return_status OUT NOCOPY VARCHAR2 ,
808: x_msg_count OUT NOCOPY VARCHAR2 ,
809: x_msg_data OUT NOCOPY VARCHAR2 ,
831: -- Standard Start of API savepoint
832: SAVEPOINT Get_Burden_Details_PUB;
833:
834: -- Initialize message list if p_init_msg_list is set to TRUE.
835: IF FND_API.to_Boolean( p_init_msg_list ) THEN
836: FND_MSG_PUB.initialize;
837: END IF;
838:
839: -- Standard call to check for call compatibility.
837: END IF;
838:
839: -- Standard call to check for call compatibility.
840:
841: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
842: p_api_version ,
843: l_api_name ,
844: G_PKG_NAME )
845: THEN
842: p_api_version ,
843: l_api_name ,
844: G_PKG_NAME )
845: THEN
846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
847: END IF;
848:
849: -- Initialize API return status to success
850: x_return_status := FND_API.G_RET_STS_SUCCESS;
846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
847: END IF;
848:
849: -- Initialize API return status to success
850: x_return_status := FND_API.G_RET_STS_SUCCESS;
851:
852: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
853: log_msg('Beginning Get Burden Details process.');
854: END IF;
861: --------------------------
862: -- If organization id is sent then use organization id else
863: -- use organization code
864: -- organization id
865: IF (p_header_rec.organization_id <> FND_API.G_MISS_NUM) AND
866: (p_header_rec.organization_id IS NOT NULL) THEN
867: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
868: log_msg('validating organization_id : ' || p_header_rec.organization_id);
869: END IF;
872: add_header_to_error_stack(p_header_rec); -- Bug 2659435
873: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_ORGN_ID');
874: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_header_rec.organization_id);
875: FND_MSG_PUB.Add;
876: RAISE FND_API.G_EXC_ERROR;
877: END IF;
878: -- Log message to ignore if organization_Code is also passed
879: IF (p_header_rec.organization_code <> FND_API.G_MISS_CHAR) AND
880: (p_header_rec.organization_code IS NOT NULL) THEN
875: FND_MSG_PUB.Add;
876: RAISE FND_API.G_EXC_ERROR;
877: END IF;
878: -- Log message to ignore if organization_Code is also passed
879: IF (p_header_rec.organization_code <> FND_API.G_MISS_CHAR) AND
880: (p_header_rec.organization_code IS NOT NULL) THEN
881: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
882: add_header_to_error_stack(p_header_rec); -- Bug 2659435
883: FND_MESSAGE.SET_NAME('GMF','GMF_API_IGNORE_ORGN_CODE');
885: FND_MSG_PUB.Add;
886: END IF;
887: END IF;
888: -- organization code
889: ELSIF (p_header_rec.organization_code <> FND_API.G_MISS_CHAR) AND
890: (p_header_rec.organization_code IS NOT NULL) THEN
891: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
892: log_msg('validating organization_code : ' || p_header_rec.organization_code);
893: END IF;
897: add_header_to_error_stack(p_header_rec); -- Bug 2659435
898: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_ORGN_CODE');
899: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',p_header_rec.organization_code);
900: FND_MSG_PUB.Add;
901: RAISE FND_API.G_EXC_ERROR;
902: ELSE
903: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 5589409, pmarada
904: log_msg('Organization Id : ' || l_header_rec.organization_id );
905: END IF;
907: ELSE
908: add_header_to_error_stack(p_header_rec);
909: FND_MESSAGE.SET_NAME('GMF','GMF_API_ORGANIZATION_ID_REQ');
910: FND_MSG_PUB.Add;
911: RAISE FND_API.G_EXC_ERROR;
912: END IF;
913: -- End organization validation
914: --
915: ------------------------
918: -- Use inventory item_id if sent otherwise use item_number
919: -- If both are sent then use only item_id and ignore other params and log a message
920: -- If both are not sent then raise error.
921: --
922: IF (p_header_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
923: (p_header_rec.inventory_item_id IS NOT NULL) THEN
924: -- validate inventory_item_id
925: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
926: log_msg('validating inventory_item_id : ' || p_header_rec.inventory_item_id);
931: add_header_to_error_stack(p_header_rec); -- Bug 2659435
932: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_ITEM_ID');
933: FND_MESSAGE.SET_TOKEN('ITEM_ID',p_header_rec.inventory_item_id);
934: FND_MSG_PUB.Add;
935: RAISE FND_API.G_EXC_ERROR;
936: END IF;
937: -- Log message if item_number is also passed
938: IF (p_header_rec.item_number <> FND_API.G_MISS_CHAR) AND
939: (p_header_rec.item_number IS NOT NULL) THEN
934: FND_MSG_PUB.Add;
935: RAISE FND_API.G_EXC_ERROR;
936: END IF;
937: -- Log message if item_number is also passed
938: IF (p_header_rec.item_number <> FND_API.G_MISS_CHAR) AND
939: (p_header_rec.item_number IS NOT NULL) THEN
940: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
941: add_header_to_error_stack(p_header_rec); -- Bug 2659435
942: FND_MESSAGE.SET_NAME('GMF','GMF_API_IGNORE_ITEM_NO');
943: FND_MESSAGE.SET_TOKEN('ITEM_NO',p_header_rec.item_number);
944: FND_MSG_PUB.Add;
945: END IF;
946: END IF;
947: ELSIF (p_header_rec.item_number <> FND_API.G_MISS_CHAR) AND
948: (p_header_rec.item_number IS NOT NULL) THEN
949: -- Convert item number value into item ID.
950: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
951: log_msg('validating item_number : ' || p_header_rec.item_number);
960: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_ITEM_NO');
961: FND_MESSAGE.SET_TOKEN('ITEM_NO',p_header_rec.item_number);
962: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',l_header_rec.organization_id);
963: FND_MSG_PUB.Add;
964: RAISE FND_API.G_EXC_ERROR;
965: ELSE
966: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
967: log_msg('inventory_item_id : ' || l_header_rec.inventory_item_id );
968: END IF;
970: ELSE
971: add_header_to_error_stack(p_header_rec); -- Bug 2659435
972: FND_MESSAGE.SET_NAME('GMF','GMF_API_ITEM_ID_REQ');
973: FND_MSG_PUB.Add;
974: RAISE FND_API.G_EXC_ERROR;
975: END IF;
976: -- End Item validation
977:
978:
978:
979: ------------------------
980: -- Cost Method Code
981: ------------------------
982: IF (p_header_rec.cost_type_id <> FND_API.G_MISS_NUM)
983: AND (p_header_rec.cost_type_id IS NOT NULL)
984: THEN
985: IF (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level)
986: THEN
993: add_header_to_error_stack(p_header_rec);
994: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_COST_TYPE_ID');
995: FND_MESSAGE.SET_TOKEN('COST_TYPE_ID',p_header_rec.cost_type_id);
996: FND_MSG_PUB.Add;
997: RAISE FND_API.G_EXC_ERROR;
998: END IF;
999: -- log a message to ignore if cost method code also passed
1000: IF (p_header_rec.cost_mthd_code <> FND_API.G_MISS_CHAR) AND (p_header_rec.cost_mthd_code IS NOT NULL) THEN
1001: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
996: FND_MSG_PUB.Add;
997: RAISE FND_API.G_EXC_ERROR;
998: END IF;
999: -- log a message to ignore if cost method code also passed
1000: IF (p_header_rec.cost_mthd_code <> FND_API.G_MISS_CHAR) AND (p_header_rec.cost_mthd_code IS NOT NULL) THEN
1001: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
1002: FND_MESSAGE.SET_NAME('GMF','GMF_API_IGNORE_COST_TYPE');
1003: FND_MESSAGE.SET_TOKEN('COST_TYPE', p_header_rec.cost_mthd_code);
1004: FND_MSG_PUB.Add;
1005: END IF;
1006: END IF;
1007: -- if cost type method code passed
1008: ELSE
1009: IF (p_header_rec.cost_mthd_code <> FND_API.G_MISS_CHAR)
1010: AND (p_header_rec.cost_mthd_code IS NOT NULL)
1011: THEN
1012: IF (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level) THEN
1013: log_msg('Validating Cost type : ' || p_header_rec.cost_mthd_code);
1023: add_header_to_error_stack(p_header_rec);
1024: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_COST_TYPE');
1025: FND_MESSAGE.SET_TOKEN('COST_TYPE',p_header_rec.cost_mthd_code);
1026: FND_MSG_PUB.Add;
1027: RAISE FND_API.G_EXC_ERROR;
1028: ELSE
1029: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
1030: log_msg('Cost_Type_id : ' || l_header_rec.cost_Type_id );
1031: END IF;
1033: ELSE
1034: add_header_to_error_stack(p_header_rec);
1035: FND_MESSAGE.SET_NAME('GMF','GMF_API_COST_TYPE_ID_REQ');
1036: FND_MSG_PUB.Add;
1037: RAISE FND_API.G_EXC_ERROR;
1038: END IF;
1039: END IF;
1040: -- End Cost Method Code
1041:
1041:
1042: ------------------------
1043: -- Period Id validation
1044: ------------------------
1045: IF (p_header_rec.period_id <> FND_API.G_MISS_NUM) AND (p_header_rec.period_id IS NOT NULL)
1046: THEN
1047: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
1048: THEN
1049: log_msg('validating Period Id : ' || p_header_rec.period_id);
1053: add_header_to_error_stack(p_header_rec);
1054: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_PERIOD_ID');
1055: FND_MESSAGE.SET_TOKEN('PERIOD_ID',p_header_rec.period_id);
1056: FND_MSG_PUB.Add;
1057: RAISE FND_API.G_EXC_ERROR;
1058: END IF;
1059: -- If period code also passed then ignore period code
1060: IF ((p_header_rec.calendar_code <> FND_API.G_MISS_CHAR) AND (p_header_rec.calendar_code IS NOT NULL))
1061: AND ((p_header_rec.period_code <> FND_API.G_MISS_CHAR) AND (p_header_rec.period_code IS NOT NULL)) THEN
1056: FND_MSG_PUB.Add;
1057: RAISE FND_API.G_EXC_ERROR;
1058: END IF;
1059: -- If period code also passed then ignore period code
1060: IF ((p_header_rec.calendar_code <> FND_API.G_MISS_CHAR) AND (p_header_rec.calendar_code IS NOT NULL))
1061: AND ((p_header_rec.period_code <> FND_API.G_MISS_CHAR) AND (p_header_rec.period_code IS NOT NULL)) THEN
1062: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
1063: FND_MESSAGE.SET_NAME('GMF','GMF_API_IGNORE_PERIOD_CODE');
1064: FND_MESSAGE.SET_TOKEN('CALENDAR_CODE', p_header_rec.calendar_code);
1057: RAISE FND_API.G_EXC_ERROR;
1058: END IF;
1059: -- If period code also passed then ignore period code
1060: IF ((p_header_rec.calendar_code <> FND_API.G_MISS_CHAR) AND (p_header_rec.calendar_code IS NOT NULL))
1061: AND ((p_header_rec.period_code <> FND_API.G_MISS_CHAR) AND (p_header_rec.period_code IS NOT NULL)) THEN
1062: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
1063: FND_MESSAGE.SET_NAME('GMF','GMF_API_IGNORE_PERIOD_CODE');
1064: FND_MESSAGE.SET_TOKEN('CALENDAR_CODE', p_header_rec.calendar_code);
1065: FND_MESSAGE.SET_TOKEN('PERIOD_CODE', p_header_rec.period_code);
1067: END IF;
1068: END IF;
1069: -- period code and calendar code are passed instead of period id
1070: ELSE
1071: IF ((p_header_rec.calendar_code <> FND_API.G_MISS_CHAR) AND (p_header_rec.calendar_code IS NOT NULL))
1072: AND ((p_header_rec.period_code <> FND_API.G_MISS_CHAR) AND (p_header_rec.period_code IS NOT NULL))
1073: THEN
1074: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
1075: THEN
1068: END IF;
1069: -- period code and calendar code are passed instead of period id
1070: ELSE
1071: IF ((p_header_rec.calendar_code <> FND_API.G_MISS_CHAR) AND (p_header_rec.calendar_code IS NOT NULL))
1072: AND ((p_header_rec.period_code <> FND_API.G_MISS_CHAR) AND (p_header_rec.period_code IS NOT NULL))
1073: THEN
1074: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
1075: THEN
1076: log_msg('Validating Calendar Code : '|| p_header_rec.Calendar_code||' period_code : ' || p_header_rec.period_code);
1087: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_CLDR_PERIOD');
1088: FND_MESSAGE.SET_TOKEN('CALENDAR_CODE',p_header_rec.calendar_code);
1089: FND_MESSAGE.SET_TOKEN('PERIOD_CODE',p_header_rec.period_code);
1090: FND_MSG_PUB.Add;
1091: RAISE FND_API.G_EXC_ERROR;
1092: ELSE
1093: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
1094: log_msg('period_id : ' || l_header_rec.period_id );
1095: END IF;
1097: ELSE
1098: add_header_to_error_stack(p_header_rec);
1099: FND_MESSAGE.SET_NAME('GMF','GMF_API_PERIOD_ID_REQ');
1100: FND_MSG_PUB.Add;
1101: RAISE FND_API.G_EXC_ERROR;
1102: END IF;
1103: END IF;
1104:
1105: -- Note: period Code
1108: --
1109: ------------------------
1110: -- Populate WHO columns
1111: ------------------------
1112: IF (p_header_rec.user_name <> FND_API.G_MISS_CHAR) AND
1113: (p_header_rec.user_name IS NOT NULL) THEN
1114: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
1115: log_msg('Validating user name : ' || p_header_rec.user_name);
1116: END IF;
1122: add_header_to_error_stack(p_header_rec); -- Bug 2659435
1123: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_USER_NAME');
1124: FND_MESSAGE.SET_TOKEN('USER_NAME',p_header_rec.user_name);
1125: FND_MSG_PUB.Add;
1126: RAISE FND_API.G_EXC_ERROR;
1127: END IF;
1128:
1129: ELSE
1130: add_header_to_error_stack(p_header_rec); -- Bug 2659435
1129: ELSE
1130: add_header_to_error_stack(p_header_rec); -- Bug 2659435
1131: FND_MESSAGE.SET_NAME('GMF','GMF_API_USER_NAME_REQ');
1132: FND_MSG_PUB.Add;
1133: RAISE FND_API.G_EXC_ERROR;
1134: END IF;
1135: -- End User Name
1136: l_header_rec.organization_id := nvl(p_header_rec.organization_id,l_header_rec.organization_id) ;
1137: l_header_rec.organization_code := p_header_rec.organization_code ;
1163: END IF;
1164: GMF_BurdenDetails_PVT.Get_Burden_Details
1165: (
1166: p_api_version => 2.0
1167: , p_init_msg_list => FND_API.G_FALSE
1168:
1169: , x_return_status => l_return_status
1170: , x_msg_count => l_count
1171: , x_msg_data => l_data
1174: , x_dtl_tbl => x_dtl_tbl
1175: );
1176:
1177: -- Return if update fails for any reason
1178: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1179: RAISE FND_API.G_EXC_ERROR;
1180: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1182: END IF;
1175: );
1176:
1177: -- Return if update fails for any reason
1178: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1179: RAISE FND_API.G_EXC_ERROR;
1180: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1182: END IF;
1183:
1176:
1177: -- Return if update fails for any reason
1178: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1179: RAISE FND_API.G_EXC_ERROR;
1180: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1182: END IF;
1183:
1184: /*
1177: -- Return if update fails for any reason
1178: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1179: RAISE FND_API.G_EXC_ERROR;
1180: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1182: END IF;
1183:
1184: /*
1185: -- Standard check of p_commit.
1182: END IF;
1183:
1184: /*
1185: -- Standard check of p_commit.
1186: IF FND_API.To_Boolean( p_commit ) THEN
1187: COMMIT WORK;
1188: END IF;
1189: */
1190:
1194: p_data => x_msg_data
1195: );
1196:
1197: EXCEPTION
1198: WHEN FND_API.G_EXC_ERROR THEN
1199: ROLLBACK TO Get_Burden_Details_PUB;
1200: x_return_status := FND_API.G_RET_STS_ERROR ;
1201: FND_MSG_PUB.Count_And_Get
1202: ( p_count => x_msg_count ,
1196:
1197: EXCEPTION
1198: WHEN FND_API.G_EXC_ERROR THEN
1199: ROLLBACK TO Get_Burden_Details_PUB;
1200: x_return_status := FND_API.G_RET_STS_ERROR ;
1201: FND_MSG_PUB.Count_And_Get
1202: ( p_count => x_msg_count ,
1203: p_data => x_msg_data
1204: );
1201: FND_MSG_PUB.Count_And_Get
1202: ( p_count => x_msg_count ,
1203: p_data => x_msg_data
1204: );
1205: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1206: ROLLBACK TO Get_Burden_Details_PUB;
1207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1208: FND_MSG_PUB.Count_And_Get
1209: ( p_count => x_msg_count ,
1203: p_data => x_msg_data
1204: );
1205: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1206: ROLLBACK TO Get_Burden_Details_PUB;
1207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1208: FND_MSG_PUB.Count_And_Get
1209: ( p_count => x_msg_count ,
1210: p_data => x_msg_data
1211: );
1210: p_data => x_msg_data
1211: );
1212: WHEN OTHERS THEN
1213: ROLLBACK TO Get_Burden_Details_PUB;
1214: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1215: IF FND_MSG_PUB.Check_Msg_Level
1216: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1217: THEN
1218: FND_MSG_PUB.Add_Exc_Msg
1311:
1312: BEGIN
1313:
1314: -- Initialize API return status to success
1315: x_return_status := FND_API.G_RET_STS_SUCCESS;
1316:
1317: -- just to make sure no elements exist.
1318: x_dtl_tbl.delete ;
1319: x_brdn_factor_tbl.delete ;
1325: ------------------------------
1326: -- If organization id is sent then use organization id else
1327: -- use organization code
1328: -- organization id
1329: IF (p_header_rec.organization_id <> FND_API.G_MISS_NUM) AND
1330: (p_header_rec.organization_id IS NOT NULL) THEN
1331: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
1332: log_msg('validating organization_id : ' || p_header_rec.organization_id);
1333: END IF;
1337: add_header_to_error_stack(p_header_rec); -- Bug 2659435
1338: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_ORGN_ID');
1339: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_header_rec.organization_id);
1340: FND_MSG_PUB.Add;
1341: RAISE FND_API.G_EXC_ERROR;
1342: END IF;
1343:
1344: -- Log message to ignore if organization_Code is also passed
1345: IF (p_header_rec.organization_code <> FND_API.G_MISS_CHAR) AND
1341: RAISE FND_API.G_EXC_ERROR;
1342: END IF;
1343:
1344: -- Log message to ignore if organization_Code is also passed
1345: IF (p_header_rec.organization_code <> FND_API.G_MISS_CHAR) AND
1346: (p_header_rec.organization_code IS NOT NULL) THEN
1347: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
1348: add_header_to_error_stack(p_header_rec); -- Bug 2659435
1349: FND_MESSAGE.SET_NAME('GMF','GMF_API_IGNORE_ORGN_CODE');
1351: FND_MSG_PUB.Add;
1352: END IF;
1353: END IF;
1354: -- organization code
1355: ELSIF (p_header_rec.organization_code <> FND_API.G_MISS_CHAR) AND
1356: (p_header_rec.organization_code IS NOT NULL) THEN
1357:
1358: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
1359: log_msg('validating organization_code : ' || p_header_rec.organization_code);
1363: add_header_to_error_stack(p_header_rec); -- Bug 2659435
1364: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_ORGN_CODE');
1365: FND_MESSAGE.SET_TOKEN('ORG_CODE',p_header_rec.organization_code);
1366: FND_MSG_PUB.Add;
1367: RAISE FND_API.G_EXC_ERROR;
1368: ELSE
1369: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 5589409, pmarada
1370: log_msg('Organization Id : ' || x_header_rec.organization_id );
1371: END IF;
1373: ELSE
1374: add_header_to_error_stack(p_header_rec);
1375: FND_MESSAGE.SET_NAME('GMF','GMF_API_ORGANIZATION_ID_REQ');
1376: FND_MSG_PUB.Add;
1377: RAISE FND_API.G_EXC_ERROR;
1378: END IF;
1379: -- End organization validation
1380: -------------------
1381: -- Item Validation
1383: -- Use inventory item_id if sent otherwise use item_number
1384: -- If both are sent then use only item_id and ignore other params and log a message
1385: -- If both are not sent then raise error.
1386: --
1387: IF (p_header_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
1388: (p_header_rec.inventory_item_id IS NOT NULL) THEN
1389: -- validate inventory_item_id
1390: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1391: log_msg('validating inventory_item_id : ' || p_header_rec.inventory_item_id);
1396: add_header_to_error_stack(p_header_rec); -- Bug 2659435
1397: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_ITEM_ID');
1398: FND_MESSAGE.SET_TOKEN('ITEM_ID',p_header_rec.inventory_item_id);
1399: FND_MSG_PUB.Add;
1400: RAISE FND_API.G_EXC_ERROR;
1401: END IF;
1402: -- Log message if item_number is also passed
1403: IF (p_header_rec.item_number <> FND_API.G_MISS_CHAR) AND
1404: (p_header_rec.item_number IS NOT NULL) THEN
1399: FND_MSG_PUB.Add;
1400: RAISE FND_API.G_EXC_ERROR;
1401: END IF;
1402: -- Log message if item_number is also passed
1403: IF (p_header_rec.item_number <> FND_API.G_MISS_CHAR) AND
1404: (p_header_rec.item_number IS NOT NULL) THEN
1405: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
1406: add_header_to_error_stack(p_header_rec); -- Bug 2659435
1407: FND_MESSAGE.SET_NAME('GMF','GMF_API_IGNORE_ITEM_NO');
1408: FND_MESSAGE.SET_TOKEN('ITEM_NO',p_header_rec.item_number);
1409: FND_MSG_PUB.Add;
1410: END IF;
1411: END IF;
1412: ELSIF (p_header_rec.item_number <> FND_API.G_MISS_CHAR) AND
1413: (p_header_rec.item_number IS NOT NULL) THEN
1414: -- Convert item number value into item ID.
1415: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
1416: log_msg('validating item_number : ' || p_header_rec.item_number);
1424: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_ITEM_NO');
1425: FND_MESSAGE.SET_TOKEN('ITEM_NO',p_header_rec.item_number);
1426: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',x_header_rec.organization_id);
1427: FND_MSG_PUB.Add;
1428: RAISE FND_API.G_EXC_ERROR;
1429: ELSE
1430: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
1431: log_msg('inventory_item_id : ' || x_header_rec.inventory_item_id );
1432: END IF;
1434: ELSE
1435: add_header_to_error_stack(p_header_rec); -- Bug 2659435
1436: FND_MESSAGE.SET_NAME('GMF','GMF_API_ITEM_ID_REQ');
1437: FND_MSG_PUB.Add;
1438: RAISE FND_API.G_EXC_ERROR;
1439: END IF;
1440: -- End Item validation
1441:
1442: -- Bug 7513552 Now Item Org is valid fetch UOM No need to handle exception
1449:
1450: -------------------
1451: -- Cost Method Code
1452: -------------------
1453: IF (p_header_rec.cost_type_id <> FND_API.G_MISS_NUM)
1454: AND (p_header_rec.cost_type_id IS NOT NULL)
1455: THEN
1456: IF (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level) THEN
1457: log_msg('Validating Cost type Id : ' || p_header_rec.cost_type_id);
1464: add_header_to_error_stack(p_header_rec);
1465: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_COST_TYPE_ID');
1466: FND_MESSAGE.SET_TOKEN('COST_TYPE_ID',p_header_rec.cost_type_id);
1467: FND_MSG_PUB.Add;
1468: RAISE FND_API.G_EXC_ERROR;
1469: END IF;
1470: -- log a message to ignore if cost method code also passed
1471: IF (p_header_rec.cost_mthd_code <> FND_API.G_MISS_CHAR) AND (p_header_rec.cost_mthd_code IS NOT NULL) THEN
1472: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
1467: FND_MSG_PUB.Add;
1468: RAISE FND_API.G_EXC_ERROR;
1469: END IF;
1470: -- log a message to ignore if cost method code also passed
1471: IF (p_header_rec.cost_mthd_code <> FND_API.G_MISS_CHAR) AND (p_header_rec.cost_mthd_code IS NOT NULL) THEN
1472: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
1473: FND_MESSAGE.SET_NAME('GMF','GMF_API_IGNORE_COST_TYPE');
1474: FND_MESSAGE.SET_TOKEN('COST_TYPE', p_header_rec.cost_mthd_code);
1475: FND_MSG_PUB.Add;
1476: END IF;
1477: END IF;
1478: -- If cost type code is passed then derive the cost type id
1479: ELSE
1480: IF (p_header_rec.cost_mthd_code <> FND_API.G_MISS_CHAR)
1481: AND (p_header_rec.cost_mthd_code IS NOT NULL)
1482: THEN
1483: IF (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level) THEN
1484: log_msg('Validating Cost type code : ' || p_header_rec.cost_mthd_code);
1494: add_header_to_error_stack(p_header_rec);
1495: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_COST_TYPE');
1496: FND_MESSAGE.SET_TOKEN('COST_TYPE',p_header_rec.cost_mthd_code);
1497: FND_MSG_PUB.Add;
1498: RAISE FND_API.G_EXC_ERROR;
1499: ELSE
1500: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 5589409, pmarada
1501: log_msg('Cost Type Id : ' || x_header_rec.cost_Type_id );
1502: END IF;
1504: ELSE
1505: add_header_to_error_stack(p_header_rec);
1506: FND_MESSAGE.SET_NAME('GMF','GMF_API_COST_TYPE_ID_REQ');
1507: FND_MSG_PUB.Add;
1508: RAISE FND_API.G_EXC_ERROR;
1509: END IF;
1510: END IF;
1511: -- End Cost Method Code
1512:
1512:
1513: ------------------------
1514: -- Period Id validation
1515: ------------------------
1516: IF (p_header_rec.period_id <> FND_API.G_MISS_NUM) AND (p_header_rec.period_id IS NOT NULL)
1517: THEN
1518: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1519: log_msg('validating Period Id : ' || p_header_rec.period_id);
1520: END IF;
1524: add_header_to_error_stack(p_header_rec);
1525: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_PERIOD_ID');
1526: FND_MESSAGE.SET_TOKEN('PERIOD_ID',p_header_rec.period_id);
1527: FND_MSG_PUB.Add;
1528: RAISE FND_API.G_EXC_ERROR;
1529: END IF;
1530: -- If period code also passed then ignore period code
1531: IF ((p_header_rec.calendar_code <> FND_API.G_MISS_CHAR) AND (p_header_rec.calendar_code IS NOT NULL))
1532: AND ((p_header_rec.period_code <> FND_API.G_MISS_CHAR) AND (p_header_rec.period_code IS NOT NULL)) THEN
1527: FND_MSG_PUB.Add;
1528: RAISE FND_API.G_EXC_ERROR;
1529: END IF;
1530: -- If period code also passed then ignore period code
1531: IF ((p_header_rec.calendar_code <> FND_API.G_MISS_CHAR) AND (p_header_rec.calendar_code IS NOT NULL))
1532: AND ((p_header_rec.period_code <> FND_API.G_MISS_CHAR) AND (p_header_rec.period_code IS NOT NULL)) THEN
1533: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
1534: FND_MESSAGE.SET_NAME('GMF','GMF_API_IGNORE_PERIOD_CODE');
1535: FND_MESSAGE.SET_TOKEN('CALENDAR_CODE', p_header_rec.calendar_code);
1528: RAISE FND_API.G_EXC_ERROR;
1529: END IF;
1530: -- If period code also passed then ignore period code
1531: IF ((p_header_rec.calendar_code <> FND_API.G_MISS_CHAR) AND (p_header_rec.calendar_code IS NOT NULL))
1532: AND ((p_header_rec.period_code <> FND_API.G_MISS_CHAR) AND (p_header_rec.period_code IS NOT NULL)) THEN
1533: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
1534: FND_MESSAGE.SET_NAME('GMF','GMF_API_IGNORE_PERIOD_CODE');
1535: FND_MESSAGE.SET_TOKEN('CALENDAR_CODE', p_header_rec.calendar_code);
1536: FND_MESSAGE.SET_TOKEN('PERIOD_CODE', p_header_rec.period_code);
1538: END IF;
1539: END IF;
1540: ELSE
1541: -- period code and calendar code are passed instead of period id
1542: IF ((p_header_rec.calendar_code <> FND_API.G_MISS_CHAR) AND (p_header_rec.calendar_code IS NOT NULL))
1543: AND ((p_header_rec.period_code <> FND_API.G_MISS_CHAR) AND (p_header_rec.period_code IS NOT NULL))
1544: THEN
1545: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1546: log_msg('Validating Calendar Code : '|| p_header_rec.Calendar_code||' period_code : ' || p_header_rec.period_code);
1539: END IF;
1540: ELSE
1541: -- period code and calendar code are passed instead of period id
1542: IF ((p_header_rec.calendar_code <> FND_API.G_MISS_CHAR) AND (p_header_rec.calendar_code IS NOT NULL))
1543: AND ((p_header_rec.period_code <> FND_API.G_MISS_CHAR) AND (p_header_rec.period_code IS NOT NULL))
1544: THEN
1545: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1546: log_msg('Validating Calendar Code : '|| p_header_rec.Calendar_code||' period_code : ' || p_header_rec.period_code);
1547: END IF;
1557: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_CLDR_PERIOD');
1558: FND_MESSAGE.SET_TOKEN('CALENDAR_CODE',p_header_rec.calendar_code);
1559: FND_MESSAGE.SET_TOKEN('PERIOD_CODE',p_header_rec.period_code);
1560: FND_MSG_PUB.Add;
1561: RAISE FND_API.G_EXC_ERROR;
1562: ELSE
1563: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 5589409, pmarada
1564: log_msg('Period Id : ' || x_header_rec.period_id );
1565: END IF;
1567: ELSE
1568: add_header_to_error_stack(p_header_rec);
1569: FND_MESSAGE.SET_NAME('GMF','GMF_API_PERIOD_ID_REQ');
1570: FND_MSG_PUB.Add;
1571: RAISE FND_API.G_EXC_ERROR;
1572: END IF;
1573: END IF;
1574:
1575: -- Note: period Code
1577: -- and updates even of period is Frozen and Closed.
1578: --
1579:
1580: -- Populate WHO columns
1581: IF (p_header_rec.user_name <> FND_API.G_MISS_CHAR) AND
1582: (p_header_rec.user_name IS NOT NULL) THEN
1583: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
1584: log_msg('Validating user name : ' || p_header_rec.user_name);
1585: END IF;
1591: add_header_to_error_stack(p_header_rec); -- Bug 2659435
1592: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_USER_NAME');
1593: FND_MESSAGE.SET_TOKEN('USER_NAME',p_header_rec.user_name);
1594: FND_MSG_PUB.Add;
1595: RAISE FND_API.G_EXC_ERROR;
1596: END IF;
1597:
1598: ELSE
1599: add_header_to_error_stack(p_header_rec); -- Bug 2659435
1598: ELSE
1599: add_header_to_error_stack(p_header_rec); -- Bug 2659435
1600: FND_MESSAGE.SET_NAME('GMF','GMF_API_USER_NAME_REQ');
1601: FND_MSG_PUB.Add;
1602: RAISE FND_API.G_EXC_ERROR;
1603: END IF;
1604: -- End User Name
1605:
1606: x_header_rec.organization_id := nvl(p_header_rec.organization_id,x_header_rec.organization_id) ;
1668: -- If burdenline_id is not supplied then skip all validations
1669: -- except resource, cost_cmpntcls_id and analysis code
1670: --
1671: IF ((p_operation = 'DELETE') AND
1672: ((p_dtl_tbl(i).burdenline_id <> FND_API.G_MISS_NUM) OR (p_dtl_tbl(i).burdenline_id IS NOT NULL))
1673: ) THEN
1674: add_header_to_error_stack(p_header_rec); -- Bug 2659435
1675: FND_MESSAGE.SET_NAME('GMF','GMF_API_IGNORE_BRDN_UNIQUE_KEY');
1676: FND_MESSAGE.SET_TOKEN('OVERHEADLINE_ID', p_dtl_tbl(i).burdenline_id);
1688: -- Message is given before calling private API since it is
1689: -- appropriate place.
1690: --
1691: IF ((p_operation = 'UPDATE') AND
1692: ((p_dtl_tbl(i).burdenline_id <> FND_API.G_MISS_NUM) OR
1693: (p_dtl_tbl(i).burdenline_id IS NOT NULL))
1694: ) THEN
1695:
1696: l_burdenline_id := p_dtl_tbl(i).burdenline_id;
1729:
1730: ------------
1731: -- Resources
1732: ------------
1733: IF (p_dtl_tbl(i).resources <> FND_API.G_MISS_CHAR) AND
1734: (p_dtl_tbl(i).resources IS NOT NULL) THEN
1735:
1736: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
1737: log_msg('validating resources : '|| p_dtl_tbl(i).resources);
1760: -- Use cmpntcls_id if sent otherwise use cmpntcls_code
1761: -- If both are sent then use only cmpntcls_id and ignore other params and log a message
1762: -- If both are not sent then raise error.
1763: --
1764: IF (p_dtl_tbl(i).cost_cmpntcls_id <> FND_API.G_MISS_NUM) AND
1765: (p_dtl_tbl(i).cost_cmpntcls_id IS NOT NULL) THEN
1766: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
1767: log_msg('validating Cmpt Cls ID('||i||') : '||
1768: p_dtl_tbl(i).cost_cmpntcls_id);
1786:
1787: l_cost_cmpntcls_id := p_dtl_tbl(i).cost_cmpntcls_id ;
1788:
1789: -- Log message if cost_cmpntcls_code is also passed
1790: IF (p_dtl_tbl(i).cost_cmpntcls_code <> FND_API.G_MISS_CHAR) AND
1791: (p_dtl_tbl(i).cost_cmpntcls_code IS NOT NULL) THEN
1792: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
1793: add_header_to_error_stack(p_header_rec); -- Bug 2659435
1794: FND_MESSAGE.SET_NAME('GMF','GMF_API_IGNORE_CMPNTCLS_CODE');
1795: FND_MESSAGE.SET_TOKEN('CMPNTCLS_CODE',p_dtl_tbl(i).cost_cmpntcls_code);
1796: FND_MSG_PUB.Add;
1797: END IF;
1798: END IF;
1799: ELSIF (p_dtl_tbl(i).cost_cmpntcls_code <> FND_API.G_MISS_CHAR) AND
1800: (p_dtl_tbl(i).cost_cmpntcls_code IS NOT NULL) THEN
1801: l_cost_cmpntcls_code := p_dtl_tbl(i).cost_cmpntcls_code ;
1802:
1803: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
1839:
1840: ----------------
1841: -- Analysis Code
1842: ----------------
1843: IF (p_dtl_tbl(i).cost_analysis_code <> FND_API.G_MISS_CHAR) AND
1844: (p_dtl_tbl(i).cost_analysis_code IS NOT NULL) THEN
1845:
1846: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
1847: log_msg('validating analysis_code('||i||') : ' || p_dtl_tbl(i).cost_analysis_code);
1912: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
1913: log_msg('validating Burden Usage : '||p_dtl_tbl(i).burden_usage);
1914: END IF;
1915:
1916: IF (p_dtl_tbl(i).burden_usage <> FND_API.G_MISS_NUM) AND
1917: (p_dtl_tbl(i).burden_usage IS NOT NULL) THEN
1918:
1919: l_burden_usage := p_dtl_tbl(i).burden_usage; -- Bug 2681243
1920:
1932: RAISE e_brdn_dtl;
1933: END IF;
1934: */
1935:
1936: ELSIF (p_dtl_tbl(i).burden_usage = FND_API.G_MISS_NUM AND -- Bug 2659435
1937: p_operation = 'UPDATE') OR
1938: (p_operation = 'INSERT') THEN
1939: add_header_to_error_stack(p_header_rec); -- Bug 2659435
1940: FND_MESSAGE.SET_NAME('GMF','GMF_API_BURDEN_USAGE_REQ');
1953: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
1954: log_msg('validating Item Quantity : '||p_dtl_tbl(i).item_qty);
1955: END IF;
1956:
1957: IF (p_dtl_tbl(i).item_qty <> FND_API.G_MISS_NUM) AND
1958: (p_dtl_tbl(i).item_qty IS NOT NULL) THEN
1959:
1960: l_item_qty := p_dtl_tbl(i).item_qty; -- Bug 2681243
1961:
1966: FND_MESSAGE.SET_TOKEN('ITEM_QTY',p_dtl_tbl(i).item_qty);
1967: FND_MSG_PUB.Add;
1968: RAISE e_brdn_dtl;
1969: END IF;
1970: ELSIF (p_dtl_tbl(i).item_qty = FND_API.G_MISS_NUM AND -- Bug 2659435
1971: p_operation = 'UPDATE') OR
1972: (p_operation = 'INSERT') THEN
1973: add_header_to_error_stack(p_header_rec); -- Bug 2659435
1974: FND_MESSAGE.SET_NAME('GMF','GMF_API_ITEM_QTY_REQ');
1983: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
1984: log_msg('validating item_uom : ' || p_dtl_tbl(i).item_uom);
1985: END IF;
1986:
1987: IF (p_dtl_tbl(i).item_uom <> FND_API.G_MISS_CHAR) AND
1988: (p_dtl_tbl(i).item_uom IS NOT NULL) THEN
1989:
1990: l_item_uom := p_dtl_tbl(i).item_uom; -- Bug 2681243
1991: IF NOT GMF_VALIDATIONS_PVT.Validate_Usage_Uom(p_dtl_tbl(i).item_uom) THEN
1995: FND_MSG_PUB.Add;
1996: RAISE e_brdn_dtl;
1997: END IF;
1998:
1999: ELSIF (p_dtl_tbl(i).item_uom = FND_API.G_MISS_CHAR AND -- Bug 2659435
2000: p_operation = 'UPDATE') OR
2001: (p_operation = 'INSERT') THEN
2002: add_header_to_error_stack(p_header_rec); -- Bug 2659435
2003: FND_MESSAGE.SET_NAME('GMF','GMF_API_ITEM_UM_REQ');
2068: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
2069: log_msg('validating Burden Quantity : '||p_dtl_tbl(i).burden_qty);
2070: END IF;
2071:
2072: IF (p_dtl_tbl(i).burden_qty <> FND_API.G_MISS_NUM) AND
2073: (p_dtl_tbl(i).burden_qty IS NOT NULL) THEN
2074:
2075: l_burden_qty := p_dtl_tbl(i).burden_qty; -- Bug 2681243
2076: IF ((nvl(p_dtl_tbl(i).burden_qty,0) <= 0.000000001) OR
2080: FND_MESSAGE.SET_TOKEN('OVERHEAD_QTY',p_dtl_tbl(i).burden_qty);
2081: FND_MSG_PUB.Add;
2082: RAISE e_brdn_dtl;
2083: END IF;
2084: ELSIF (p_dtl_tbl(i).burden_qty = FND_API.G_MISS_NUM AND -- Bug 2659435
2085: p_operation = 'UPDATE') OR
2086: (p_operation = 'INSERT') THEN
2087: add_header_to_error_stack(p_header_rec); -- Bug 2659435
2088: FND_MESSAGE.SET_NAME('GMF','GMF_API_BURDEN_QTY_REQ');
2097: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
2098: log_msg('validating burden_uom : ' || p_dtl_tbl(i).burden_uom);
2099: END IF;
2100:
2101: IF (p_dtl_tbl(i).burden_uom <> FND_API.G_MISS_CHAR) AND
2102: (p_dtl_tbl(i).burden_uom IS NOT NULL) THEN
2103:
2104: l_burden_uom := p_dtl_tbl(i).burden_uom; -- Bug 2681243
2105: GMF_VALIDATIONS_PVT.Validate_Usage_Uom(p_dtl_tbl(i).burden_uom, l_burden_uom_class) ;
2123: FND_MESSAGE.SET_TOKEN('RESOURCE_UM',l_resource_uom_class);
2124: FND_MSG_PUB.Add;
2125: RAISE e_brdn_dtl;
2126: END IF;
2127: ELSIF (p_dtl_tbl(i).burden_uom = FND_API.G_MISS_CHAR AND -- Bug 2659435
2128: p_operation = 'UPDATE') OR
2129: (p_operation = 'INSERT') THEN
2130: add_header_to_error_stack(p_header_rec); -- Bug 2659435
2131: FND_MESSAGE.SET_NAME('GMF','GMF_API_BURDEN_UM_REQ');
2189: log_msg('validating delete_mark('||i||') :' ||
2190: p_dtl_tbl(i).delete_mark);
2191: END IF;
2192:
2193: IF (p_dtl_tbl(i).delete_mark <> FND_API.G_MISS_NUM) AND
2194: (p_dtl_tbl(i).delete_mark IS NOT NULL) THEN
2195: IF p_dtl_tbl(i).delete_mark NOT IN (0,1) THEN
2196: add_header_to_error_stack(p_header_rec); -- Bug 2659435
2197: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_DELETE_MARK');
2198: FND_MESSAGE.SET_TOKEN('DELETE_MARK',p_dtl_tbl(i).delete_mark);
2199: FND_MSG_PUB.Add;
2200: RAISE e_brdn_dtl;
2201: END IF;
2202: ELSIF (p_dtl_tbl(i).delete_mark = FND_API.G_MISS_NUM AND -- Bug 2659435
2203: p_operation = 'UPDATE') OR
2204: (p_operation = 'INSERT') THEN
2205: add_header_to_error_stack(p_header_rec); -- Bug 2659435
2206: FND_MESSAGE.SET_NAME('GMF','GMF_API_DELETE_MARK_REQ');
2224: -- use unique key combination to update/delete the record.
2225: -- Private API check uses burdenline_id if supplied else uses unique key combination
2226: --
2227: IF ((p_operation = 'UPDATE') AND
2228: ((p_dtl_tbl(i).burdenline_id <> FND_API.G_MISS_NUM) OR (p_dtl_tbl(i).burdenline_id IS NOT NULL))
2229: ) THEN
2230: add_header_to_error_stack(p_header_rec); -- Bug 2659435
2231: FND_MESSAGE.SET_NAME('GMF','GMF_API_IGNORE_BRDN_UNIQUE_KEY');
2232: FND_MESSAGE.SET_TOKEN('OVERHEADLINE_ID', p_dtl_tbl(i).burdenline_id);
2270: END IF;
2271:
2272: EXCEPTION
2273: WHEN e_brdn_dtl THEN
2274: RAISE FND_API.G_EXC_ERROR;
2275: END ;
2276: END LOOP;
2277:
2278: EXCEPTION -- Bug 2681243: removed when others to capture ORA errors.
2275: END ;
2276: END LOOP;
2277:
2278: EXCEPTION -- Bug 2681243: removed when others to capture ORA errors.
2279: WHEN FND_API.G_EXC_ERROR THEN
2280: x_return_status := FND_API.G_RET_STS_ERROR ;
2281: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2283: END Validate_Input_Params ;
2276: END LOOP;
2277:
2278: EXCEPTION -- Bug 2681243: removed when others to capture ORA errors.
2279: WHEN FND_API.G_EXC_ERROR THEN
2280: x_return_status := FND_API.G_RET_STS_ERROR ;
2281: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2283: END Validate_Input_Params ;
2284: --
2277:
2278: EXCEPTION -- Bug 2681243: removed when others to capture ORA errors.
2279: WHEN FND_API.G_EXC_ERROR THEN
2280: x_return_status := FND_API.G_RET_STS_ERROR ;
2281: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2283: END Validate_Input_Params ;
2284: --
2285: -- Func start of comments
2278: EXCEPTION -- Bug 2681243: removed when others to capture ORA errors.
2279: WHEN FND_API.G_EXC_ERROR THEN
2280: x_return_status := FND_API.G_RET_STS_ERROR ;
2281: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2283: END Validate_Input_Params ;
2284: --
2285: -- Func start of comments
2286: --+==========================================================================+