[Home] [Help]
121:
122: PROCEDURE Create_LotCost_Adjustment
123: (
124: p_api_version IN NUMBER
125: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
126: , p_commit IN VARCHAR2 := FND_API.G_FALSE
127: , x_return_status OUT NOCOPY VARCHAR2
128: , x_msg_count OUT NOCOPY NUMBER
129: , x_msg_data OUT NOCOPY VARCHAR2
122: PROCEDURE Create_LotCost_Adjustment
123: (
124: p_api_version IN NUMBER
125: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
126: , p_commit IN VARCHAR2 := FND_API.G_FALSE
127: , x_return_status OUT NOCOPY VARCHAR2
128: , x_msg_count OUT NOCOPY NUMBER
129: , x_msg_data OUT NOCOPY VARCHAR2
130: , p_header_rec IN OUT NOCOPY Lc_Adjustment_Header_Rec_Type
142: -- Standard Start of API savepoint
143: SAVEPOINT Create_LotCost_Adjustment_PUB ;
144:
145: -- Initialize message list if p_init_msg_list is set to TRUE.
146: IF FND_API.to_Boolean( p_init_msg_list )
147: THEN
148: FND_MSG_PUB.initialize;
149: END IF;
150:
148: FND_MSG_PUB.initialize;
149: END IF;
150:
151: -- Standard call to check for call compatibility.
152: IF NOT FND_API.Compatible_API_Call (l_api_version ,
153: p_api_version ,
154: l_api_name ,
155: G_PKG_NAME
156: )
154: l_api_name ,
155: G_PKG_NAME
156: )
157: THEN
158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
159: END IF;
160:
161: -- Initialize API return status to success
162: x_return_status := FND_API.G_RET_STS_SUCCESS;
158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
159: END IF;
160:
161: -- Initialize API return status to success
162: x_return_status := FND_API.G_RET_STS_SUCCESS;
163:
164: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
165: THEN
166: log_msg('Beginning Create Lot Cost Adjustment process.');
186: THEN
187: log_msg('Return Status after validating : ' || l_return_status);
188: END IF;
189:
190: IF l_return_status = FND_API.G_RET_STS_ERROR
191: THEN
192: add_header_to_error_stack ( p_header_Rec => p_header_rec );
193: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
194: FND_MSG_PUB.Add;
191: THEN
192: add_header_to_error_stack ( p_header_Rec => p_header_rec );
193: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
194: FND_MSG_PUB.Add;
195: RAISE FND_API.G_EXC_ERROR;
196: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
197: THEN
198: add_header_to_error_stack ( p_header_Rec => p_header_rec );
199: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
192: add_header_to_error_stack ( p_header_Rec => p_header_rec );
193: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
194: FND_MSG_PUB.Add;
195: RAISE FND_API.G_EXC_ERROR;
196: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
197: THEN
198: add_header_to_error_stack ( p_header_Rec => p_header_rec );
199: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
200: FND_MSG_PUB.Add;
197: THEN
198: add_header_to_error_stack ( p_header_Rec => p_header_rec );
199: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
200: FND_MSG_PUB.Add;
201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
202: END IF;
203:
204: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
205: THEN
209: --Call Private Procedure
210: GMF_LotCostAdjustment_PVT.Create_LotCost_Adjustment
211: (
212: p_api_version => p_api_version
213: , p_init_msg_list => FND_API.G_FALSE
214: , x_return_status => x_return_status
215: , x_msg_count => x_msg_count
216: , x_msg_data => x_msg_data
217: , p_header_rec => p_header_Rec
219: , p_user_id => l_user_id
220: );
221:
222: -- Return if insert fails for any reason
223: IF l_return_status = FND_API.G_RET_STS_ERROR
224: THEN
225: add_header_to_error_stack ( p_header_Rec => p_header_rec );
226: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
227: FND_MSG_PUB.Add;
224: THEN
225: add_header_to_error_stack ( p_header_Rec => p_header_rec );
226: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
227: FND_MSG_PUB.Add;
228: RAISE FND_API.G_EXC_ERROR;
229: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
230: THEN
231: add_header_to_error_stack ( p_header_Rec => p_header_rec );
232: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
225: add_header_to_error_stack ( p_header_Rec => p_header_rec );
226: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
227: FND_MSG_PUB.Add;
228: RAISE FND_API.G_EXC_ERROR;
229: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
230: THEN
231: add_header_to_error_stack ( p_header_Rec => p_header_rec );
232: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
233: FND_MSG_PUB.Add;
230: THEN
231: add_header_to_error_stack ( p_header_Rec => p_header_rec );
232: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
233: FND_MSG_PUB.Add;
234: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
235: END IF;
236:
237: FND_MESSAGE.SET_NAME('GMF','GMF_API_ROWS_INS');
238: FND_MESSAGE.SET_TOKEN('NUM_ROWS',p_dtl_tbl.COUNT);
238: FND_MESSAGE.SET_TOKEN('NUM_ROWS',p_dtl_tbl.COUNT);
239: FND_MSG_PUB.Add;
240:
241: -- Standard check of p_commit.
242: IF FND_API.To_Boolean( p_commit )
243: THEN
244: COMMIT WORK;
245: END IF;
246: -- Standard call to get message count and if count is 1, get message info.
249: p_count => x_msg_count
250: , p_data => x_msg_data
251: );
252: EXCEPTION
253: WHEN FND_API.G_EXC_ERROR
254: THEN
255: ROLLBACK TO Create_LotCost_Adjustment_PUB;
256: add_header_to_error_stack ( p_header_Rec => p_header_rec );
257: x_return_status := FND_API.G_RET_STS_ERROR ;
253: WHEN FND_API.G_EXC_ERROR
254: THEN
255: ROLLBACK TO Create_LotCost_Adjustment_PUB;
256: add_header_to_error_stack ( p_header_Rec => p_header_rec );
257: x_return_status := FND_API.G_RET_STS_ERROR ;
258: FND_MSG_PUB.Count_And_Get
259: (
260: p_count => x_msg_count
261: , p_data => x_msg_data
259: (
260: p_count => x_msg_count
261: , p_data => x_msg_data
262: );
263: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
264: THEN
265: ROLLBACK TO Create_LotCost_Adjustment_PUB;
266: add_header_to_error_stack ( p_header_Rec => p_header_rec );
267: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
263: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
264: THEN
265: ROLLBACK TO Create_LotCost_Adjustment_PUB;
266: add_header_to_error_stack ( p_header_Rec => p_header_rec );
267: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
268: FND_MSG_PUB.Count_And_Get
269: (
270: p_count => x_msg_count
271: ,p_data => x_msg_data
273: WHEN OTHERS
274: THEN
275: ROLLBACK TO Create_LotCost_Adjustment_PUB;
276: add_header_to_error_stack ( p_header_Rec => p_header_rec );
277: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
278: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
279: THEN
280: FND_MSG_PUB.Add_Exc_Msg
281: (
339:
340: PROCEDURE Update_LotCost_Adjustment
341: (
342: p_api_version IN NUMBER
343: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
344: , p_commit IN VARCHAR2 := FND_API.G_FALSE
345: , x_return_status OUT NOCOPY VARCHAR2
346: , x_msg_count OUT NOCOPY NUMBER
347: , x_msg_data OUT NOCOPY VARCHAR2
340: PROCEDURE Update_LotCost_Adjustment
341: (
342: p_api_version IN NUMBER
343: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
344: , p_commit IN VARCHAR2 := FND_API.G_FALSE
345: , x_return_status OUT NOCOPY VARCHAR2
346: , x_msg_count OUT NOCOPY NUMBER
347: , x_msg_data OUT NOCOPY VARCHAR2
348: , p_header_rec IN OUT NOCOPY Lc_Adjustment_Header_Rec_Type
360: -- Standard Start of API savepoint
361: SAVEPOINT Update_LotCost_Adjustment_PUB ;
362:
363: -- Initialize message list if p_init_msg_list is set to TRUE.
364: IF FND_API.to_Boolean( p_init_msg_list )
365: THEN
366: FND_MSG_PUB.initialize;
367: END IF;
368:
366: FND_MSG_PUB.initialize;
367: END IF;
368:
369: -- Standard call to check for call compatibility.
370: IF NOT FND_API.Compatible_API_Call (l_api_version ,
371: p_api_version ,
372: l_api_name ,
373: G_PKG_NAME
374: )
372: l_api_name ,
373: G_PKG_NAME
374: )
375: THEN
376: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
377: END IF;
378:
379: -- Initialize API return status to success
380: x_return_status := FND_API.G_RET_STS_SUCCESS;
376: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
377: END IF;
378:
379: -- Initialize API return status to success
380: x_return_status := FND_API.G_RET_STS_SUCCESS;
381:
382: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
383: THEN
384: log_msg('Beginning Update Lot Cost Adjustment process.');
404: THEN
405: log_msg('Return Status after validating : ' || l_return_status);
406: END IF;
407:
408: IF l_return_status = FND_API.G_RET_STS_ERROR
409: THEN
410: add_header_to_error_stack ( p_header_Rec => p_header_rec );
411: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
412: FND_MSG_PUB.Add;
409: THEN
410: add_header_to_error_stack ( p_header_Rec => p_header_rec );
411: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
412: FND_MSG_PUB.Add;
413: RAISE FND_API.G_EXC_ERROR;
414: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
415: THEN
416: add_header_to_error_stack ( p_header_Rec => p_header_rec );
417: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
410: add_header_to_error_stack ( p_header_Rec => p_header_rec );
411: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
412: FND_MSG_PUB.Add;
413: RAISE FND_API.G_EXC_ERROR;
414: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
415: THEN
416: add_header_to_error_stack ( p_header_Rec => p_header_rec );
417: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
418: FND_MSG_PUB.Add;
415: THEN
416: add_header_to_error_stack ( p_header_Rec => p_header_rec );
417: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
418: FND_MSG_PUB.Add;
419: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
420: END IF;
421:
422: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
423: THEN
427: --Call Private Procedure
428: GMF_LotCostAdjustment_PVT.Update_LotCost_Adjustment
429: (
430: p_api_version => p_api_version
431: , p_init_msg_list => FND_API.G_FALSE
432: , x_return_status => x_return_status
433: , x_msg_count => x_msg_count
434: , x_msg_data => x_msg_data
435: , p_header_rec => p_header_Rec
437: , p_user_id => l_user_id
438: );
439:
440: -- Return if update fails for any reason
441: IF l_return_status = FND_API.G_RET_STS_ERROR
442: THEN
443: add_header_to_error_stack ( p_header_Rec => p_header_rec );
444: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
445: FND_MSG_PUB.Add;
442: THEN
443: add_header_to_error_stack ( p_header_Rec => p_header_rec );
444: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
445: FND_MSG_PUB.Add;
446: RAISE FND_API.G_EXC_ERROR;
447: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
448: THEN
449: add_header_to_error_stack ( p_header_Rec => p_header_rec );
450: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
443: add_header_to_error_stack ( p_header_Rec => p_header_rec );
444: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
445: FND_MSG_PUB.Add;
446: RAISE FND_API.G_EXC_ERROR;
447: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
448: THEN
449: add_header_to_error_stack ( p_header_Rec => p_header_rec );
450: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
451: FND_MSG_PUB.Add;
448: THEN
449: add_header_to_error_stack ( p_header_Rec => p_header_rec );
450: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
451: FND_MSG_PUB.Add;
452: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
453: END IF;
454:
455: FND_MESSAGE.SET_NAME('GMF','GMF_API_ROWS_UPD');
456: FND_MESSAGE.SET_TOKEN('NUM_ROWS',p_dtl_tbl.COUNT);
456: FND_MESSAGE.SET_TOKEN('NUM_ROWS',p_dtl_tbl.COUNT);
457: FND_MSG_PUB.Add;
458:
459: -- Standard check of p_commit.
460: IF FND_API.To_Boolean( p_commit )
461: THEN
462: COMMIT WORK;
463: END IF;
464: -- Standard call to get message count and if count is 1, get message info.
467: p_count => x_msg_count
468: , p_data => x_msg_data
469: );
470: EXCEPTION
471: WHEN FND_API.G_EXC_ERROR
472: THEN
473: ROLLBACK TO Update_LotCost_Adjustment_PUB;
474: add_header_to_error_stack ( p_header_Rec => p_header_rec );
475: x_return_status := FND_API.G_RET_STS_ERROR ;
471: WHEN FND_API.G_EXC_ERROR
472: THEN
473: ROLLBACK TO Update_LotCost_Adjustment_PUB;
474: add_header_to_error_stack ( p_header_Rec => p_header_rec );
475: x_return_status := FND_API.G_RET_STS_ERROR ;
476: FND_MSG_PUB.Count_And_Get
477: (
478: p_count => x_msg_count
479: , p_data => x_msg_data
477: (
478: p_count => x_msg_count
479: , p_data => x_msg_data
480: );
481: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
482: THEN
483: ROLLBACK TO Update_LotCost_Adjustment_PUB;
484: add_header_to_error_stack ( p_header_Rec => p_header_rec );
485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
481: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
482: THEN
483: ROLLBACK TO Update_LotCost_Adjustment_PUB;
484: add_header_to_error_stack ( p_header_Rec => p_header_rec );
485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
486: FND_MSG_PUB.Count_And_Get
487: (
488: p_count => x_msg_count
489: ,p_data => x_msg_data
491: WHEN OTHERS
492: THEN
493: ROLLBACK TO Update_LotCost_Adjustment_PUB;
494: add_header_to_error_stack ( p_header_Rec => p_header_rec );
495: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
496: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
497: THEN
498: FND_MSG_PUB.Add_Exc_Msg
499: (
557:
558: PROCEDURE Delete_LotCost_Adjustment
559: (
560: p_api_version IN NUMBER
561: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
562: , p_commit IN VARCHAR2 := FND_API.G_FALSE
563: , x_return_status OUT NOCOPY VARCHAR2
564: , x_msg_count OUT NOCOPY NUMBER
565: , x_msg_data OUT NOCOPY VARCHAR2
558: PROCEDURE Delete_LotCost_Adjustment
559: (
560: p_api_version IN NUMBER
561: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
562: , p_commit IN VARCHAR2 := FND_API.G_FALSE
563: , x_return_status OUT NOCOPY VARCHAR2
564: , x_msg_count OUT NOCOPY NUMBER
565: , x_msg_data OUT NOCOPY VARCHAR2
566: , p_header_rec IN OUT NOCOPY Lc_Adjustment_Header_Rec_Type
578: -- Standard Start of API savepoint
579: SAVEPOINT Delete_LotCost_Adjustment_PUB ;
580:
581: -- Initialize message list if p_init_msg_list is set to TRUE.
582: IF FND_API.to_Boolean( p_init_msg_list )
583: THEN
584: FND_MSG_PUB.initialize;
585: END IF;
586:
584: FND_MSG_PUB.initialize;
585: END IF;
586:
587: -- Standard call to check for call compatibility.
588: IF NOT FND_API.Compatible_API_Call (l_api_version ,
589: p_api_version ,
590: l_api_name ,
591: G_PKG_NAME
592: )
590: l_api_name ,
591: G_PKG_NAME
592: )
593: THEN
594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
595: END IF;
596:
597: -- Initialize API return status to success
598: x_return_status := FND_API.G_RET_STS_SUCCESS;
594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
595: END IF;
596:
597: -- Initialize API return status to success
598: x_return_status := FND_API.G_RET_STS_SUCCESS;
599:
600: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
601: THEN
602: log_msg('Beginning Delete Lot Cost Adjustment process.');
622: THEN
623: log_msg('Return Status after validating : ' || l_return_status);
624: END IF;
625:
626: IF l_return_status = FND_API.G_RET_STS_ERROR
627: THEN
628: add_header_to_error_stack ( p_header_Rec => p_header_rec );
629: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
630: FND_MSG_PUB.Add;
627: THEN
628: add_header_to_error_stack ( p_header_Rec => p_header_rec );
629: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
630: FND_MSG_PUB.Add;
631: RAISE FND_API.G_EXC_ERROR;
632: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
633: THEN
634: add_header_to_error_stack ( p_header_Rec => p_header_rec );
635: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
628: add_header_to_error_stack ( p_header_Rec => p_header_rec );
629: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
630: FND_MSG_PUB.Add;
631: RAISE FND_API.G_EXC_ERROR;
632: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
633: THEN
634: add_header_to_error_stack ( p_header_Rec => p_header_rec );
635: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
636: FND_MSG_PUB.Add;
633: THEN
634: add_header_to_error_stack ( p_header_Rec => p_header_rec );
635: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
636: FND_MSG_PUB.Add;
637: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
638: END IF;
639:
640: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
641: THEN
645: --Call Private Procedure
646: GMF_LotCostAdjustment_PVT.Delete_LotCost_Adjustment
647: (
648: p_api_version => p_api_version
649: , p_init_msg_list => FND_API.G_FALSE
650: , x_return_status => x_return_status
651: , x_msg_count => x_msg_count
652: , x_msg_data => x_msg_data
653: , p_header_rec => p_header_Rec
654: , p_dtl_Tbl => p_dtl_tbl
655: );
656:
657: -- Return if delete fails for any reason
658: IF l_return_status = FND_API.G_RET_STS_ERROR
659: THEN
660: add_header_to_error_stack ( p_header_Rec => p_header_rec );
661: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
662: FND_MSG_PUB.Add;
659: THEN
660: add_header_to_error_stack ( p_header_Rec => p_header_rec );
661: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
662: FND_MSG_PUB.Add;
663: RAISE FND_API.G_EXC_ERROR;
664: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
665: THEN
666: add_header_to_error_stack ( p_header_Rec => p_header_rec );
667: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
660: add_header_to_error_stack ( p_header_Rec => p_header_rec );
661: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
662: FND_MSG_PUB.Add;
663: RAISE FND_API.G_EXC_ERROR;
664: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
665: THEN
666: add_header_to_error_stack ( p_header_Rec => p_header_rec );
667: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
668: FND_MSG_PUB.Add;
665: THEN
666: add_header_to_error_stack ( p_header_Rec => p_header_rec );
667: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
668: FND_MSG_PUB.Add;
669: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
670: END IF;
671:
672: FND_MESSAGE.SET_NAME('GMF','GMF_API_ROWS_DEL');
673: FND_MESSAGE.SET_TOKEN('NUM_ROWS',p_dtl_tbl.COUNT);
673: FND_MESSAGE.SET_TOKEN('NUM_ROWS',p_dtl_tbl.COUNT);
674: FND_MSG_PUB.Add;
675:
676: -- Standard check of p_commit.
677: IF FND_API.To_Boolean( p_commit )
678: THEN
679: COMMIT WORK;
680: END IF;
681: -- Standard call to get message count and if count is 1, get message info.
684: p_count => x_msg_count
685: , p_data => x_msg_data
686: );
687: EXCEPTION
688: WHEN FND_API.G_EXC_ERROR
689: THEN
690: ROLLBACK TO Delete_LotCost_Adjustment_PUB;
691: add_header_to_error_stack ( p_header_Rec => p_header_rec );
692: x_return_status := FND_API.G_RET_STS_ERROR ;
688: WHEN FND_API.G_EXC_ERROR
689: THEN
690: ROLLBACK TO Delete_LotCost_Adjustment_PUB;
691: add_header_to_error_stack ( p_header_Rec => p_header_rec );
692: x_return_status := FND_API.G_RET_STS_ERROR ;
693: FND_MSG_PUB.Count_And_Get
694: (
695: p_count => x_msg_count
696: , p_data => x_msg_data
694: (
695: p_count => x_msg_count
696: , p_data => x_msg_data
697: );
698: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
699: THEN
700: ROLLBACK TO Delete_LotCost_Adjustment_PUB;
701: add_header_to_error_stack ( p_header_Rec => p_header_rec );
702: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
698: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
699: THEN
700: ROLLBACK TO Delete_LotCost_Adjustment_PUB;
701: add_header_to_error_stack ( p_header_Rec => p_header_rec );
702: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
703: FND_MSG_PUB.Count_And_Get
704: (
705: p_count => x_msg_count
706: ,p_data => x_msg_data
708: WHEN OTHERS
709: THEN
710: ROLLBACK TO Delete_LotCost_Adjustment_PUB;
711: add_header_to_error_stack ( p_header_Rec => p_header_rec );
712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
713: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
714: THEN
715: FND_MSG_PUB.Add_Exc_Msg
716: (
774:
775: PROCEDURE Get_LotCost_Adjustment
776: (
777: p_api_version IN NUMBER
778: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
779: , x_return_status OUT NOCOPY VARCHAR2
780: , x_msg_count OUT NOCOPY NUMBER
781: , x_msg_data OUT NOCOPY VARCHAR2
782: , p_header_rec IN OUT NOCOPY Lc_Adjustment_Header_Rec_Type
794: -- Standard Start of API savepoint
795: SAVEPOINT Get_LotCost_Adjustment_PUB ;
796:
797: -- Initialize message list if p_init_msg_list is set to TRUE.
798: IF FND_API.to_Boolean( p_init_msg_list )
799: THEN
800: FND_MSG_PUB.initialize;
801: END IF;
802:
800: FND_MSG_PUB.initialize;
801: END IF;
802:
803: -- Standard call to check for call compatibility.
804: IF NOT FND_API.Compatible_API_Call (l_api_version ,
805: p_api_version ,
806: l_api_name ,
807: G_PKG_NAME
808: )
806: l_api_name ,
807: G_PKG_NAME
808: )
809: THEN
810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
811: END IF;
812:
813: -- Initialize API return status to success
814: x_return_status := FND_API.G_RET_STS_SUCCESS;
810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
811: END IF;
812:
813: -- Initialize API return status to success
814: x_return_status := FND_API.G_RET_STS_SUCCESS;
815:
816: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
817: THEN
818: log_msg('Beginning Get Lot Cost Adjustment process.');
838: THEN
839: log_msg('Return Status after validating : ' || l_return_status);
840: END IF;
841:
842: IF l_return_status = FND_API.G_RET_STS_ERROR
843: THEN
844: add_header_to_error_stack ( p_header_Rec => p_header_rec );
845: RAISE FND_API.G_EXC_ERROR;
846: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
841:
842: IF l_return_status = FND_API.G_RET_STS_ERROR
843: THEN
844: add_header_to_error_stack ( p_header_Rec => p_header_rec );
845: RAISE FND_API.G_EXC_ERROR;
846: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
847: THEN
848: add_header_to_error_stack ( p_header_Rec => p_header_rec );
849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
842: IF l_return_status = FND_API.G_RET_STS_ERROR
843: THEN
844: add_header_to_error_stack ( p_header_Rec => p_header_rec );
845: RAISE FND_API.G_EXC_ERROR;
846: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
847: THEN
848: add_header_to_error_stack ( p_header_Rec => p_header_rec );
849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
850: END IF;
845: RAISE FND_API.G_EXC_ERROR;
846: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
847: THEN
848: add_header_to_error_stack ( p_header_Rec => p_header_rec );
849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
850: END IF;
851:
852: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
853: THEN
857: --Call Private Procedure
858: GMF_LotCostAdjustment_PVT.Get_LotCost_Adjustment
859: (
860: p_api_version => p_api_version
861: , p_init_msg_list => FND_API.G_FALSE
862: , x_return_status => x_return_status
863: , x_msg_count => x_msg_count
864: , x_msg_data => x_msg_data
865: , p_header_rec => p_header_Rec
866: , p_dtl_Tbl => p_dtl_tbl
867: );
868:
869: -- Return if Get fails for any reason
870: IF l_return_status = FND_API.G_RET_STS_ERROR
871: THEN
872: add_header_to_error_stack ( p_header_Rec => p_header_rec );
873: RAISE FND_API.G_EXC_ERROR;
874: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
869: -- Return if Get fails for any reason
870: IF l_return_status = FND_API.G_RET_STS_ERROR
871: THEN
872: add_header_to_error_stack ( p_header_Rec => p_header_rec );
873: RAISE FND_API.G_EXC_ERROR;
874: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
875: THEN
876: add_header_to_error_stack ( p_header_Rec => p_header_rec );
877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
870: IF l_return_status = FND_API.G_RET_STS_ERROR
871: THEN
872: add_header_to_error_stack ( p_header_Rec => p_header_rec );
873: RAISE FND_API.G_EXC_ERROR;
874: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
875: THEN
876: add_header_to_error_stack ( p_header_Rec => p_header_rec );
877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
878: END IF;
873: RAISE FND_API.G_EXC_ERROR;
874: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
875: THEN
876: add_header_to_error_stack ( p_header_Rec => p_header_rec );
877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
878: END IF;
879:
880: -- Standard call to get message count and if count is 1, get message info.
881: FND_MSG_PUB.Count_And_Get
882: ( p_count => x_msg_count ,
883: p_data => x_msg_data
884: );
885: EXCEPTION
886: WHEN FND_API.G_EXC_ERROR
887: THEN
888: ROLLBACK TO Get_LotCost_Adjustment_PUB;
889: add_header_to_error_stack ( p_header_Rec => p_header_rec );
890: x_return_status := FND_API.G_RET_STS_ERROR ;
886: WHEN FND_API.G_EXC_ERROR
887: THEN
888: ROLLBACK TO Get_LotCost_Adjustment_PUB;
889: add_header_to_error_stack ( p_header_Rec => p_header_rec );
890: x_return_status := FND_API.G_RET_STS_ERROR ;
891: FND_MSG_PUB.Count_And_Get
892: ( p_count => x_msg_count ,
893: p_data => x_msg_data
894: );
891: FND_MSG_PUB.Count_And_Get
892: ( p_count => x_msg_count ,
893: p_data => x_msg_data
894: );
895: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
896: THEN
897: ROLLBACK TO Get_LotCost_Adjustment_PUB;
898: add_header_to_error_stack ( p_header_Rec => p_header_rec );
899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
895: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
896: THEN
897: ROLLBACK TO Get_LotCost_Adjustment_PUB;
898: add_header_to_error_stack ( p_header_Rec => p_header_rec );
899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
900: FND_MSG_PUB.Count_And_Get
901: ( p_count => x_msg_count ,
902: p_data => x_msg_data
903: );
904: WHEN OTHERS
905: THEN
906: ROLLBACK TO Get_LotCost_Adjustment_PUB;
907: add_header_to_error_stack ( p_header_Rec => p_header_rec );
908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
909: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
910: THEN
911: FND_MSG_PUB.Add_Exc_Msg
912: ( G_PKG_NAME ,
969: --l_itemcost_class IC_ITEM_MST.itemcost_class%TYPE;
970: --l_itemcost_class_cnt NUMBER;
971: BEGIN
972: -- Initialize API return status to success
973: x_return_status := FND_API.G_RET_STS_SUCCESS;
974: l_applied_ind := NULL;
975:
976: IF P_OPERATION IN ('INSERT', 'UPDATE', 'DELETE', 'GET')
977: THEN
994: THEN
995:
996: FND_MESSAGE.SET_NAME('GMF','GMF_API_LCA_ADJ_APPLIED');
997: FND_MSG_PUB.Add;
998: RAISE FND_API.G_EXC_ERROR;
999:
1000: ELSIF l_applied_ind = 'N'
1001: AND p_operation IN ('INSERT')
1002: THEN
1007: ELSIF l_applied_ind IS NULL
1008: THEN
1009: FND_MESSAGE.SET_NAME('GMF','GMF_API_LCA_ADJUSTMENT_ID');
1010: FND_MSG_PUB.Add;
1011: RAISE FND_API.G_EXC_ERROR;
1012: END IF;
1013:
1014: IF (p_header_Rec.legal_entity_id IS NOT NULL
1015: AND (p_header_Rec.COST_MTHD_CODE IS NOT NULL
1030: END IF;
1031: END IF;
1032: ELSE
1033: --Legal Entity Validation
1034: IF ((p_header_rec.legal_entity_id <> FND_API.G_MISS_NUM)
1035: AND (p_header_rec.legal_entity_id IS NOT NULL))
1036: THEN
1037: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
1038: THEN
1046: FND_MESSAGE.SET_TOKEN('LEGAL_ENTITY',p_header_rec.legal_entity_id);
1047: /*FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_CO_CODE');
1048: FND_MESSAGE.SET_TOKEN('CO_CODE',p_header_rec.co_code);*/
1049: FND_MSG_PUB.Add;
1050: RAISE FND_API.G_EXC_ERROR;
1051: END IF;
1052: ELSE
1053: FND_MESSAGE.SET_NAME('GMF','GMF_API_LE_ID_REQ');
1054: -- FND_MESSAGE.SET_NAME('GMF','GMF_API_CO_CODE_REQ');
1052: ELSE
1053: FND_MESSAGE.SET_NAME('GMF','GMF_API_LE_ID_REQ');
1054: -- FND_MESSAGE.SET_NAME('GMF','GMF_API_CO_CODE_REQ');
1055: FND_MSG_PUB.Add;
1056: RAISE FND_API.G_EXC_ERROR;
1057:
1058: END IF;
1059:
1060: --Cost type Validation
1057:
1058: END IF;
1059:
1060: --Cost type Validation
1061: IF (p_header_rec.cost_type_id <> FND_API.G_MISS_NUM)
1062: AND (p_header_rec.cost_type_id IS NOT NULL)
1063: THEN
1064: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
1065: THEN
1069: THEN
1070: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_COST_TYPE_ID');
1071: FND_MESSAGE.SET_TOKEN('COST_TYPE_ID',p_header_rec.cost_type_id);
1072: FND_MSG_PUB.Add;
1073: RAISE FND_API.G_EXC_ERROR;
1074: END IF;
1075:
1076: -- Log message if cost_mthd_code is also passed
1077: IF (p_header_rec.cost_mthd_code <> FND_API.G_MISS_CHAR) AND (p_header_rec.cost_type_id IS NOT NULL)
1073: RAISE FND_API.G_EXC_ERROR;
1074: END IF;
1075:
1076: -- Log message if cost_mthd_code is also passed
1077: IF (p_header_rec.cost_mthd_code <> FND_API.G_MISS_CHAR) AND (p_header_rec.cost_type_id IS NOT NULL)
1078: THEN
1079:
1080: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
1081: THEN
1085: FND_MSG_PUB.Add;
1086:
1087: END IF;
1088: END IF;
1089: ELSIF ((p_header_rec.cost_mthd_code <> FND_API.G_MISS_CHAR)AND (p_header_rec.cost_mthd_code IS NOT NULL))
1090: THEN
1091:
1092: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
1093: THEN
1105: THEN
1106: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_COST_TYPE');
1107: FND_MESSAGE.SET_TOKEN('COST_TYPE',p_header_rec.cost_mthd_code);
1108: FND_MSG_PUB.Add;
1109: RAISE FND_API.G_EXC_ERROR;
1110: END IF;
1111: ELSE
1112:
1113: FND_MESSAGE.SET_NAME('GMF','GMF_API_COST_TYPE_ID_REQ');
1111: ELSE
1112:
1113: FND_MESSAGE.SET_NAME('GMF','GMF_API_COST_TYPE_ID_REQ');
1114: FND_MSG_PUB.Add;
1115: RAISE FND_API.G_EXC_ERROR;
1116: END IF;
1117:
1118:
1119: --Organization Validation
1116: END IF;
1117:
1118:
1119: --Organization Validation
1120: IF (p_header_rec.organization_id <> FND_API.G_MISS_NUM)
1121: AND (p_header_rec.organization_id IS NOT NULL)
1122: THEN
1123: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
1124: THEN
1128: THEN
1129: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_ORGN_ID');
1130: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_header_rec.organization_id);
1131: FND_MSG_PUB.Add;
1132: RAISE FND_API.G_EXC_ERROR;
1133: END IF;
1134:
1135: -- Log message if organization_code is also passed
1136: IF (p_header_rec.organization_code <> FND_API.G_MISS_CHAR) AND (p_header_rec.organization_id IS NOT NULL)
1132: RAISE FND_API.G_EXC_ERROR;
1133: END IF;
1134:
1135: -- Log message if organization_code is also passed
1136: IF (p_header_rec.organization_code <> FND_API.G_MISS_CHAR) AND (p_header_rec.organization_id IS NOT NULL)
1137: THEN
1138:
1139: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
1140: THEN
1144: FND_MSG_PUB.Add;
1145:
1146: END IF;
1147: END IF;
1148: ELSIF ((p_header_rec.organization_code <> FND_API.G_MISS_CHAR)AND (p_header_rec.organization_code IS NOT NULL))
1149: THEN
1150:
1151: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
1152: THEN
1164: THEN
1165: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_ORGN_CODE');
1166: FND_MESSAGE.SET_TOKEN('ORG_CODE',p_header_rec.organization_code);
1167: FND_MSG_PUB.Add;
1168: RAISE FND_API.G_EXC_ERROR;
1169: END IF;
1170: ELSE
1171:
1172: FND_MESSAGE.SET_NAME('GMF','GMF_API_ORGANIZATION_ID_REQ');
1170: ELSE
1171:
1172: FND_MESSAGE.SET_NAME('GMF','GMF_API_ORGANIZATION_ID_REQ');
1173: FND_MSG_PUB.Add;
1174: RAISE FND_API.G_EXC_ERROR;
1175: END IF; -- end for organization
1176:
1177:
1178:
1176:
1177:
1178:
1179: --Item Validation
1180: IF (p_header_rec.item_id <> FND_API.G_MISS_NUM)
1181: AND (p_header_rec.item_id IS NOT NULL)
1182: THEN
1183: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
1184: THEN
1190: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_ITEM_ID');
1191: FND_MESSAGE.SET_TOKEN('ITEM_ID',p_header_rec.item_id);
1192: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_header_rec.organization_id);
1193: FND_MSG_PUB.Add;
1194: RAISE FND_API.G_EXC_ERROR;
1195: END IF;
1196:
1197: -- Log message if item_number is also passed
1198: IF (p_header_rec.item_number <> FND_API.G_MISS_CHAR) AND (p_header_rec.item_number IS NOT NULL)
1194: RAISE FND_API.G_EXC_ERROR;
1195: END IF;
1196:
1197: -- Log message if item_number is also passed
1198: IF (p_header_rec.item_number <> FND_API.G_MISS_CHAR) AND (p_header_rec.item_number IS NOT NULL)
1199: THEN
1200:
1201: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
1202: THEN
1206: FND_MSG_PUB.Add;
1207:
1208: END IF;
1209: END IF;
1210: ELSIF (p_header_rec.item_number <> FND_API.G_MISS_CHAR) AND (p_header_rec.item_number IS NOT NULL)
1211: THEN
1212: -- Convert value into ID.
1213: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
1214: THEN
1227: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_ITEM_NO');
1228: FND_MESSAGE.SET_TOKEN('ITEM_NO',p_header_rec.item_number);
1229: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_header_rec.organization_id);
1230: FND_MSG_PUB.Add;
1231: RAISE FND_API.G_EXC_ERROR;
1232: END IF;
1233: ELSE
1234: FND_MESSAGE.SET_NAME('GMF','GMF_API_ITEM_ID_REQ');
1235: FND_MSG_PUB.Add;
1232: END IF;
1233: ELSE
1234: FND_MESSAGE.SET_NAME('GMF','GMF_API_ITEM_ID_REQ');
1235: FND_MSG_PUB.Add;
1236: RAISE FND_API.G_EXC_ERROR;
1237: END IF;
1238:
1239: -- Bug # 3755374 ANTHIYAG 12-Jul-2004 Start
1240: --Lot Costed Item Validation
1237: END IF;
1238:
1239: -- Bug # 3755374 ANTHIYAG 12-Jul-2004 Start
1240: --Lot Costed Item Validation
1241: IF (p_header_rec.item_id IS NOT NULL and p_header_rec.item_id <> FND_API.G_MISS_NUM)
1242: THEN
1243:
1244: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
1245: THEN
1289: THEN
1290: FND_MESSAGE.SET_NAME('GMF','GMF_ITEM_ID_NOT_LOT_COSTED');
1291: FND_MESSAGE.SET_TOKEN('ITEM_ID',p_header_rec.item_id);
1292: FND_MSG_PUB.Add;
1293: RAISE FND_API.G_EXC_ERROR;
1294: END;
1295: END;
1296: END IF;
1297: -- Bug # 3755374 ANTHIYAG 12-Jul-2004 End
1296: END IF;
1297: -- Bug # 3755374 ANTHIYAG 12-Jul-2004 End
1298:
1299: --Lot Validation
1300: IF (p_header_rec.lot_number <> FND_API.G_MISS_CHAR) AND (p_header_rec.lot_number IS NOT NULL)
1301: THEN
1302:
1303: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
1304: THEN
1311: FND_MESSAGE.SET_TOKEN('LOT_NUMBER',p_header_rec.lot_number);
1312: FND_MESSAGE.SET_TOKEN('ITEM_ID',p_header_rec.item_number);
1313: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_header_rec.organization_id);
1314: FND_MSG_PUB.Add;
1315: RAISE FND_API.G_EXC_ERROR;
1316: END IF;
1317: ELSE
1318: FND_MESSAGE.SET_NAME('GMF','GMF_API_LOT_NUMBER_REQ');
1319: FND_MSG_PUB.Add;
1316: END IF;
1317: ELSE
1318: FND_MESSAGE.SET_NAME('GMF','GMF_API_LOT_NUMBER_REQ');
1319: FND_MSG_PUB.Add;
1320: RAISE FND_API.G_EXC_ERROR;
1321: END IF;
1322:
1323: --Adjustment_date Validation
1324: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
1353: OR (p_header_Rec.adjustment_date > SYSDATE)))
1354: THEN
1355: FND_MESSAGE.SET_NAME('GMF','GMF_API_LCA_ADJ_DATE');
1356: FND_MSG_PUB.Add;
1357: RAISE FND_API.G_EXC_ERROR;
1358: ELSE
1359: IF p_header_Rec.adjustment_date > SYSDATE
1360: THEN
1361: FND_MESSAGE.SET_NAME('GMF','GMF_API_LCA_ADJ_DATE');
1359: IF p_header_Rec.adjustment_date > SYSDATE
1360: THEN
1361: FND_MESSAGE.SET_NAME('GMF','GMF_API_LCA_ADJ_DATE');
1362: FND_MSG_PUB.Add;
1363: RAISE FND_API.G_EXC_ERROR;
1364: END IF;
1365: END IF;
1366: END IF;
1367:
1370: THEN
1371: log_msg('Validating Reason Code: ' || p_header_rec.reason_code );
1372: END IF;
1373:
1374: IF ((p_header_rec.reason_code <> FND_API.G_MISS_CHAR)
1375: AND (p_header_rec.reason_code IS NOT NULL))
1376: THEN
1377: BEGIN
1378: SELECT 1
1386: THEN
1387: FND_MESSAGE.SET_NAME('GMF','GMF_API_LCA_REASON_CODE');
1388: FND_MESSAGE.SET_TOKEN('REASON_CODE',p_header_rec.reason_code);
1389: FND_MSG_PUB.Add;
1390: RAISE FND_API.G_EXC_ERROR;
1391: END;
1392: ELSE
1393: FND_MESSAGE.SET_NAME('GMF','GMF_API_REASON_CODE_REQ');
1394: FND_MSG_PUB.Add;
1391: END;
1392: ELSE
1393: FND_MESSAGE.SET_NAME('GMF','GMF_API_REASON_CODE_REQ');
1394: FND_MSG_PUB.Add;
1395: RAISE FND_API.G_EXC_ERROR;
1396: END IF;
1397:
1398: -- Bug # 3755374 ANTHIYAG 12-Jul-2004 Start
1399: -- Delete Mark
1401: THEN
1402: log_msg('Validating Delete_mark : ' || p_header_Rec.delete_mark);
1403: END IF;
1404:
1405: IF (p_header_Rec.delete_mark <> FND_API.G_MISS_NUM) AND (p_header_Rec.delete_mark IS NOT NULL)
1406: THEN
1407: IF p_header_Rec.delete_mark NOT IN (0,1) THEN
1408: add_header_to_error_stack(p_header_rec);
1409: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_DELETE_MARK');
1408: add_header_to_error_stack(p_header_rec);
1409: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_DELETE_MARK');
1410: FND_MESSAGE.SET_TOKEN('DELETE_MARK',p_header_Rec.delete_mark);
1411: FND_MSG_PUB.Add;
1412: RAISE FND_API.G_EXC_ERROR;
1413: END IF;
1414: ELSIF (p_header_Rec.delete_mark = FND_API.G_MISS_NUM AND p_operation = 'UPDATE') OR
1415: (p_operation = 'INSERT') THEN
1416: add_header_to_error_stack(p_header_rec);
1410: FND_MESSAGE.SET_TOKEN('DELETE_MARK',p_header_Rec.delete_mark);
1411: FND_MSG_PUB.Add;
1412: RAISE FND_API.G_EXC_ERROR;
1413: END IF;
1414: ELSIF (p_header_Rec.delete_mark = FND_API.G_MISS_NUM AND p_operation = 'UPDATE') OR
1415: (p_operation = 'INSERT') THEN
1416: add_header_to_error_stack(p_header_rec);
1417: FND_MESSAGE.SET_NAME('GMF','GMF_API_DELETE_MARK_REQ');
1418: FND_MSG_PUB.Add;
1415: (p_operation = 'INSERT') THEN
1416: add_header_to_error_stack(p_header_rec);
1417: FND_MESSAGE.SET_NAME('GMF','GMF_API_DELETE_MARK_REQ');
1418: FND_MSG_PUB.Add;
1419: RAISE FND_API.G_EXC_ERROR;
1420: END IF;
1421: IF ((p_operation = 'UPDATE') AND (p_header_Rec.delete_mark = 1)) THEN
1422: add_header_to_error_stack(p_header_rec);
1423: FND_MESSAGE.SET_NAME('GMF','GMF_API_CANT_MARK_FOR_PURGE');
1421: IF ((p_operation = 'UPDATE') AND (p_header_Rec.delete_mark = 1)) THEN
1422: add_header_to_error_stack(p_header_rec);
1423: FND_MESSAGE.SET_NAME('GMF','GMF_API_CANT_MARK_FOR_PURGE');
1424: FND_MSG_PUB.Add;
1425: RAISE FND_API.G_EXC_ERROR;
1426: END IF;
1427: -- Bug # 3755374 ANTHIYAG 12-Jul-2004 End
1428:
1429: --Adjustment ID validation
1491: END IF;
1492:
1493: FND_MESSAGE.SET_NAME('GMF','GMF_API_LCA_ADJUSTMENT_ID');
1494: FND_MSG_PUB.Add;
1495: RAISE FND_API.G_EXC_ERROR;
1496: END IF;
1497:
1498: IF l_applied_ind = 'Y'
1499: AND P_OPERATION IN ('INSERT', 'UPDATE', 'DELETE')
1500: THEN
1501:
1502: FND_MESSAGE.SET_NAME('GMF','GMF_API_LCA_ADJ_APPLIED');
1503: FND_MSG_PUB.Add;
1504: RAISE FND_API.G_EXC_ERROR;
1505:
1506: ELSIF l_applied_ind = 'N'
1507: AND p_operation IN ('INSERT')
1508: THEN
1522: THEN
1523: log_msg('Validating user name : ' || p_header_rec.user_name);
1524: END IF;
1525:
1526: IF (p_header_rec.user_name <> FND_API.G_MISS_CHAR)
1527: AND (p_header_rec.user_name IS NOT NULL)
1528: THEN
1529: GMA_GLOBAL_GRP.Get_who(p_user_name => p_header_rec.user_name
1530: ,x_user_id => x_user_id
1533: THEN
1534: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_USER_NAME');
1535: FND_MESSAGE.SET_TOKEN('USER_NAME',p_header_rec.user_name);
1536: FND_MSG_PUB.Add;
1537: RAISE FND_API.G_EXC_ERROR;
1538: END IF;
1539: ELSE
1540: FND_MESSAGE.SET_NAME('GMF','GMF_API_USER_NAME_REQ');
1541: FND_MSG_PUB.Add;
1538: END IF;
1539: ELSE
1540: FND_MESSAGE.SET_NAME('GMF','GMF_API_USER_NAME_REQ');
1541: FND_MSG_PUB.Add;
1542: RAISE FND_API.G_EXC_ERROR;
1543: END IF; -- end if for user name validation
1544: END IF; -- End if for p_operation
1545:
1546: --Detail Record Validation
1572: THEN
1573:
1574: FND_MESSAGE.SET_NAME('GMF','CM_DUP_RECORD'); -- Bug # 3755374 ANTHIYAG 12-Jul-2004
1575: FND_MSG_PUB.Add;
1576: RAISE FND_API.G_EXC_ERROR;
1577:
1578: ELSIF l_detail_cnt = 0
1579: THEN
1580: FND_MESSAGE.SET_NAME('GMF','GMF_API_LCA_ADJ_DTL_ID');
1578: ELSIF l_detail_cnt = 0
1579: THEN
1580: FND_MESSAGE.SET_NAME('GMF','GMF_API_LCA_ADJ_DTL_ID');
1581: FND_MSG_PUB.Add;
1582: RAISE FND_API.G_EXC_ERROR;
1583: END IF;
1584:
1585: ELSE
1586:
1584:
1585: ELSE
1586:
1587: --Cost Component Class Validation
1588: IF (p_dtl_tbl(i).cost_cmpntcls_id <> FND_API.G_MISS_NUM) AND (p_dtl_tbl(i).cost_cmpntcls_id IS NOT NULL)
1589: THEN
1590:
1591: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
1592: THEN
1597: THEN
1598: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_CMPNTCLS_ID');
1599: FND_MESSAGE.SET_TOKEN('CMPNTCLS_ID',p_dtl_tbl(i).cost_cmpntcls_id);
1600: FND_MSG_PUB.Add;
1601: RAISE FND_API.G_EXC_ERROR;
1602: END IF;
1603:
1604: IF (p_dtl_tbl(i).cost_cmpntcls_code <> FND_API.G_MISS_CHAR) AND (p_dtl_tbl(i).cost_cmpntcls_code IS NOT NULL)
1605: THEN
1600: FND_MSG_PUB.Add;
1601: RAISE FND_API.G_EXC_ERROR;
1602: END IF;
1603:
1604: IF (p_dtl_tbl(i).cost_cmpntcls_code <> FND_API.G_MISS_CHAR) AND (p_dtl_tbl(i).cost_cmpntcls_code IS NOT NULL)
1605: THEN
1606: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
1607: THEN
1608: FND_MESSAGE.SET_NAME('GMF','GMF_API_IGNORE_CMPNTCLS_CODE');
1610: FND_MSG_PUB.Add;
1611: END IF;
1612: END IF;
1613:
1614: ELSIF (p_dtl_tbl(i).cost_cmpntcls_code <> FND_API.G_MISS_CHAR) AND (p_dtl_tbl(i).cost_cmpntcls_code IS NOT NULL)
1615: THEN
1616:
1617: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
1618: THEN
1630: THEN
1631: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_CMPNTCLS_CODE');
1632: FND_MESSAGE.SET_TOKEN('CMPNTCLS_CODE',p_dtl_tbl(i).cost_cmpntcls_code);
1633: FND_MSG_PUB.Add;
1634: RAISE FND_API.G_EXC_ERROR;
1635: END IF;
1636: ELSE
1637: FND_MESSAGE.SET_NAME('GMF','GMF_API_CMPNTCLS_ID_REQ');
1638: FND_MSG_PUB.Add;
1635: END IF;
1636: ELSE
1637: FND_MESSAGE.SET_NAME('GMF','GMF_API_CMPNTCLS_ID_REQ');
1638: FND_MSG_PUB.Add;
1639: RAISE FND_API.G_EXC_ERROR;
1640: END IF;
1641:
1642: --Analysis Code Validation
1643: IF (p_dtl_tbl(i).cost_analysis_code <> FND_API.G_MISS_CHAR) AND (p_dtl_tbl(i).cost_analysis_code IS NOT NULL)
1639: RAISE FND_API.G_EXC_ERROR;
1640: END IF;
1641:
1642: --Analysis Code Validation
1643: IF (p_dtl_tbl(i).cost_analysis_code <> FND_API.G_MISS_CHAR) AND (p_dtl_tbl(i).cost_analysis_code IS NOT NULL)
1644: THEN
1645: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
1646: THEN
1647: log_msg('Validating Details Analysis code('||i||') :' || p_dtl_tbl(i).cost_analysis_code);
1651: THEN
1652: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_ANALYSIS_CODE');
1653: FND_MESSAGE.SET_TOKEN('ANALYSIS_CODE',p_dtl_tbl(i).cost_analysis_code);
1654: FND_MSG_PUB.Add;
1655: RAISE FND_API.G_EXC_ERROR;
1656: END IF;
1657:
1658: ELSE
1659: FND_MESSAGE.SET_NAME('GMF','GMF_API_ANALYSIS_CODE_REQ');
1657:
1658: ELSE
1659: FND_MESSAGE.SET_NAME('GMF','GMF_API_ANALYSIS_CODE_REQ');
1660: FND_MSG_PUB.Add;
1661: RAISE FND_API.G_EXC_ERROR;
1662: END IF;
1663:
1664: --Text Code Validation
1665: IF (p_dtl_tbl(i).text_code <> FND_API.G_MISS_NUM) AND (p_dtl_tbl(i).text_code IS NOT NULL)
1661: RAISE FND_API.G_EXC_ERROR;
1662: END IF;
1663:
1664: --Text Code Validation
1665: IF (p_dtl_tbl(i).text_code <> FND_API.G_MISS_NUM) AND (p_dtl_tbl(i).text_code IS NOT NULL)
1666: THEN
1667: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
1668: THEN
1669: log_msg('Validating Details Text code('||i||') :' || p_dtl_tbl(i).text_code);
1684: THEN
1685: FND_MESSAGE.SET_NAME('GMF','GMF_API_TEXT_CODE'); -- Bug # 3755374 ANTHIYAG 12-Jul-2004
1686: FND_MESSAGE.SET_TOKEN('TEXT_CODE',p_dtl_tbl(i).text_code);
1687: FND_MSG_PUB.Add;
1688: RAISE FND_API.G_EXC_ERROR;
1689: END IF;
1690: END IF;
1691: END IF;
1692:
1696: IF p_dtl_tbl(i).adjustment_cost IS NULL
1697: THEN
1698: FND_MESSAGE.SET_NAME('GMF','GMF_API_LCA_ADJ_COST');
1699: FND_MSG_PUB.Add;
1700: RAISE FND_API.G_EXC_ERROR;
1701: END IF;
1702: END IF;
1703:
1704: --Adjustment Details ID validation
1728: IF P_operation IN ('UPDATE', 'DELETE')
1729: THEN
1730: FND_MESSAGE.SET_NAME('GMF','GMF_API_LCA_ADJ_DTL_ID');
1731: FND_MSG_PUB.Add;
1732: RAISE FND_API.G_EXC_ERROR;
1733: ELSE
1734: p_dtl_tbl(i).adjustment_dtl_id := NULL;
1735: END IF;
1736: END;
1740: THEN
1741:
1742: FND_MESSAGE.SET_NAME('GMF','CM_DUP_RECORD'); -- Bug # 3755374 ANTHIYAG 12-Jul-2004
1743: FND_MSG_PUB.Add;
1744: RAISE FND_API.G_EXC_ERROR;
1745:
1746: END IF;
1747:
1748: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
1751: END IF;
1752: ELSE
1753: FND_MESSAGE.SET_NAME('GMF','GMF_API_LCA_ADJ_DTL_ID');
1754: FND_MSG_PUB.Add;
1755: RAISE FND_API.G_EXC_ERROR;
1756: END IF;
1757: END IF;
1758: END IF;
1759: END LOOP;