DBA Data[Home] [Help]

APPS.GMF_LOTCOSTADJUSTMENT_PVT dependencies on FND_MSG_PUB

Line 56: G_DEBUG_LEVEL NUMBER(2) := FND_MSG_PUB.G_Msg_Level_Threshold;

52: PROCEDURE log_msg(p_msg_text IN VARCHAR2);
53:
54: -- Global variables
55: G_PKG_NAME CONSTANT VARCHAR2(30) := 'GMF_LotCostAdjustment_PVT';
56: G_DEBUG_LEVEL NUMBER(2) := FND_MSG_PUB.G_Msg_Level_Threshold;
57:
58: --Start of comments
59: --+========================================================================+
60: --| API Name : Create_LotCost_Adjustment |

Line 120: FND_MSG_PUB.initialize;

116: SAVEPOINT Create_LotCost_Adjustment_PVT ;
117:
118: -- Initialize message list if p_init_msg_list is set to TRUE.
119: IF FND_API.to_Boolean( p_init_msg_list ) THEN
120: FND_MSG_PUB.initialize;
121: END IF;
122:
123: -- Standard call to check for call compatibility.
124: IF NOT FND_API.Compatible_API_Call (

Line 136: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

132:
133: -- Initialize API return status to success
134: x_return_status := FND_API.G_RET_STS_SUCCESS;
135:
136: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
137: log_msg('Beginning Private Create Lot Cost Adjustment API');
138: END IF;
139:
140: IF p_header_Rec.adjustment_id IS NULL THEN

Line 148: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

144: END IF;
145:
146: IF p_header_Rec.adjustment_id IS NULL THEN
147:
148: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
149: log_msg ('Inserting Lot Cost Adjustments for Item ' || p_header_rec.item_id ||
150: ' Legal Entity' || p_header_rec.legal_entity_id ||
151: ' Organization ' || p_header_rec.organization_id ||
152: ' Cost Type Id ' || p_header_rec.cost_type_id ||

Line 258: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

254: , p_header_rec.ATTRIBUTE30
255: , p_header_rec.ATTRIBUTE_CATEGORY
256: ) RETURNING adjustment_id INTO p_header_rec.adjustment_id;
257:
258: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
259: log_msg ( SQL%ROWCOUNT || 'Header Record Inserted for Lot Cost Adjustments for Item ' || p_header_rec.item_id ||
260: ' Legal Entity' || p_header_rec.legal_entity_id ||
261: ' Organization ' || p_header_rec.organization_id ||
262: ' Cost Type Id ' || p_header_rec.cost_type_id ||

Line 276: FND_MSG_PUB.Add;

272: FND_MESSAGE.SET_TOKEN('ORGANIZATION', p_header_rec.organization_id);
273: FND_MESSAGE.SET_TOKEN('COST_TYPE', p_header_rec.cost_type_id);
274: FND_MESSAGE.SET_TOKEN('LOT', p_header_rec.lot_number);
275: FND_MESSAGE.SET_TOKEN('ADJUSTMENT_DATE', p_header_rec.adjustment_date);
276: FND_MSG_PUB.Add;
277: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
278: RAISE ;
279: END;
280:

Line 283: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

279: END;
280:
281: ELSIF p_header_Rec.adjustment_id IS NOT NULL THEN
282:
283: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
284: log_msg ('Lot Cost Adjustments for Item ' || p_header_rec.item_id ||
285: ' Legal Entity' || p_header_rec.legal_entity_id ||
286: ' Organization ' || p_header_rec.organization_id ||
287: ' Cost Type Id ' || p_header_rec.cost_type_id ||

Line 306: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

302: FROM dual;
303: END IF;
304:
305: IF p_dtl_tbl(i).adjustment_dtl_id IS NULL THEN
306: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
307: log_msg ( 'Inserting Detail Record for Cost Component Class Id ' || p_dtl_tbl(i).cost_cmpntcls_id ||
308: ' Cost Analysis Code ' || p_dtl_tbl(i).cost_analysis_code
309: );
310: END IF;

Line 342: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

338: , p_user_id
339: , FND_GLOBAL.LOGIN_ID
340: , SYSDATE
341: ) RETURNING adjustment_dtl_id INTO p_dtl_tbl(i).adjustment_dtl_id;
342: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
343: log_msg ( SQL%ROWCOUNT || 'Detail Record inserted for Cost Component Class Id ' || p_dtl_tbl(i).cost_cmpntcls_id ||
344: ' Cost Analysis Code ' || p_dtl_tbl(i).cost_analysis_code
345: );
346: END IF;

Line 352: FND_MSG_PUB.Add;

348: WHEN OTHERS THEN
349: FND_MESSAGE.SET_NAME('GMF','GMF_API_LCA_DTL_INS_FAILED');
350: FND_MESSAGE.SET_TOKEN('COMPONENT_CLASS', p_dtl_tbl(i).cost_cmpntcls_id);
351: FND_MESSAGE.SET_TOKEN('ANALYSIS_CODE', p_dtl_tbl(i).cost_analysis_code);
352: FND_MSG_PUB.Add;
353: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
354: RAISE ;
355: END ;
356: ELSIF p_dtl_tbl(i).adjustment_dtl_id IS NOT NULL THEN

Line 358: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

354: RAISE ;
355: END ;
356: ELSIF p_dtl_tbl(i).adjustment_dtl_id IS NOT NULL THEN
357:
358: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
359: log_msg ('Ignoring Lot Cost Adjustment Details for Cost Component Class Id ' || p_dtl_tbl(i).cost_cmpntcls_id ||
360: ' Cost Analysis Code ' || p_dtl_tbl(i).cost_analysis_code
361: );
362: END IF;

Line 367: FND_MSG_PUB.Count_And_Get (

363: END IF;
364: END LOOP;
365:
366: -- Standard call to get message count and if count is 1, get message info.
367: FND_MSG_PUB.Count_And_Get (
368: p_count => x_msg_count
369: , p_data => x_msg_data
370: );
371: EXCEPTION

Line 375: FND_MSG_PUB.Count_And_Get (

371: EXCEPTION
372: WHEN FND_API.G_EXC_ERROR THEN
373: ROLLBACK TO Create_LotCost_Adjustment_PVT;
374: x_return_status := FND_API.G_RET_STS_ERROR ;
375: FND_MSG_PUB.Count_And_Get (
376: p_count => x_msg_count
377: , p_data => x_msg_data
378: );
379: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 382: FND_MSG_PUB.Count_And_Get (

378: );
379: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
380: ROLLBACK TO Create_LotCost_Adjustment_PVT;
381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
382: FND_MSG_PUB.Count_And_Get (
383: p_count => x_msg_count
384: , p_data => x_msg_data
385: );
386: WHEN OTHERS THEN

Line 389: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

385: );
386: WHEN OTHERS THEN
387: ROLLBACK TO Create_LotCost_Adjustment_PVT;
388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
389: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
390: FND_MSG_PUB.Add_Exc_Msg (
391: G_PKG_NAME
392: , l_api_name
393: );

Line 390: FND_MSG_PUB.Add_Exc_Msg (

386: WHEN OTHERS THEN
387: ROLLBACK TO Create_LotCost_Adjustment_PVT;
388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
389: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
390: FND_MSG_PUB.Add_Exc_Msg (
391: G_PKG_NAME
392: , l_api_name
393: );
394: END IF;

Line 395: FND_MSG_PUB.Count_And_Get (

391: G_PKG_NAME
392: , l_api_name
393: );
394: END IF;
395: FND_MSG_PUB.Count_And_Get (
396: p_count => x_msg_count
397: , p_data => x_msg_data
398: );
399: END Create_LotCost_Adjustment;

Line 458: FND_MSG_PUB.initialize;

454: SAVEPOINT Update_LotCost_Adjustment_PVT ;
455:
456: -- Initialize message list if p_init_msg_list is set to TRUE.
457: IF FND_API.to_Boolean( p_init_msg_list ) THEN
458: FND_MSG_PUB.initialize;
459: END IF;
460:
461: -- Standard call to check for call compatibility.
462: IF NOT FND_API.Compatible_API_Call ( l_api_version ,

Line 473: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

469:
470: -- Initialize API return status to success
471: x_return_status := FND_API.G_RET_STS_SUCCESS;
472:
473: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
474: log_msg('Beginning Private Update Lot Cost Adjustment API');
475: END IF;
476:
477: FOR i IN p_dtl_tbl.FIRST .. p_dtl_tbl.LAST

Line 480: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

476:
477: FOR i IN p_dtl_tbl.FIRST .. p_dtl_tbl.LAST
478: LOOP
479: IF p_dtl_tbl(i).adjustment_dtl_id IS NOT NULL THEN
480: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
481: log_msg ( 'Updating Detail Record for Adjustment Detail Id ' || p_dtl_tbl(i).adjustment_dtl_id );
482: END IF;
483: BEGIN
484: UPDATE gmf_lot_cost_adjustment_dtls

Line 493: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

489: , LAST_UPDATE_DATE = SYSDATE
490: WHERE adjustment_dtl_id = p_dtl_tbl(i).adjustment_dtl_id
491: AND delete_mark = 0;
492:
493: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
494: log_msg ( SQL%ROWCOUNT || 'Detail Record Updated for Adjustment Detail Id ' || p_dtl_tbl(i).adjustment_dtl_id );
495: END IF;
496: EXCEPTION
497: WHEN OTHERS THEN

Line 500: FND_MSG_PUB.Add;

496: EXCEPTION
497: WHEN OTHERS THEN
498: FND_MESSAGE.SET_NAME('GMF','GMF_API_LCA_DTL_ID_UPD_FAILED');
499: FND_MESSAGE.SET_TOKEN('ADJUSTMENT_DTL_ID', p_dtl_tbl(i).adjustment_dtl_id);
500: FND_MSG_PUB.Add;
501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
502: RAISE ;
503: END ;
504: ELSIF p_dtl_tbl(i).adjustment_dtl_id IS NULL THEN

Line 506: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

502: RAISE ;
503: END ;
504: ELSIF p_dtl_tbl(i).adjustment_dtl_id IS NULL THEN
505:
506: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
507: log_msg ( 'Detail Record for Cost Component Class Id ' || p_dtl_tbl(i).cost_cmpntcls_id ||
508: ' Cost Analysis Code ' || p_dtl_tbl(i).cost_analysis_code ||
509: ' Doesn''t Exist'
510: );

Line 519: FND_MSG_PUB.Count_And_Get (

515: END LOOP;
516:
517:
518: -- Standard call to get message count and if count is 1, get message info.
519: FND_MSG_PUB.Count_And_Get (
520: p_count => x_msg_count
521: , p_data => x_msg_data
522: );
523:

Line 528: FND_MSG_PUB.Count_And_Get (

524: EXCEPTION
525: WHEN FND_API.G_EXC_ERROR THEN
526: ROLLBACK TO Update_LotCost_Adjustment_PVT;
527: x_return_status := FND_API.G_RET_STS_ERROR ;
528: FND_MSG_PUB.Count_And_Get (
529: p_count => x_msg_count
530: , p_data => x_msg_data
531: );
532: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 535: FND_MSG_PUB.Count_And_Get (

531: );
532: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
533: ROLLBACK TO Update_LotCost_Adjustment_PVT;
534: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
535: FND_MSG_PUB.Count_And_Get (
536: p_count => x_msg_count
537: , p_data => x_msg_data
538: );
539: WHEN OTHERS THEN

Line 542: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

538: );
539: WHEN OTHERS THEN
540: ROLLBACK TO Update_LotCost_Adjustment_PVT;
541: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
542: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
543: FND_MSG_PUB.Add_Exc_Msg (
544: G_PKG_NAME
545: , l_api_name
546: );

Line 543: FND_MSG_PUB.Add_Exc_Msg (

539: WHEN OTHERS THEN
540: ROLLBACK TO Update_LotCost_Adjustment_PVT;
541: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
542: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
543: FND_MSG_PUB.Add_Exc_Msg (
544: G_PKG_NAME
545: , l_api_name
546: );
547: END IF;

Line 548: FND_MSG_PUB.Count_And_Get (

544: G_PKG_NAME
545: , l_api_name
546: );
547: END IF;
548: FND_MSG_PUB.Count_And_Get (
549: p_count => x_msg_count
550: , p_data => x_msg_data
551: );
552: END Update_LotCost_Adjustment;

Line 611: FND_MSG_PUB.initialize;

607: SAVEPOINT Delete_LotCost_Adjustment_PVT ;
608:
609: -- Initialize message list if p_init_msg_list is set to TRUE.
610: IF FND_API.to_Boolean( p_init_msg_list ) THEN
611: FND_MSG_PUB.initialize;
612: END IF;
613:
614: -- Standard call to check for call compatibility.
615: IF NOT FND_API.Compatible_API_Call ( l_api_version ,

Line 626: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

622:
623: -- Initialize API return status to success
624: x_return_status := FND_API.G_RET_STS_SUCCESS;
625:
626: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
627: log_msg('Beginning Private Delete Lot Cost Adjustment API');
628: END IF;
629:
630: FOR i IN p_dtl_tbl.FIRST .. p_dtl_tbl.LAST

Line 635: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

631: LOOP
632:
633: IF p_dtl_tbl(i).adjustment_dtl_id IS NOT NULL THEN
634:
635: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
636: log_msg ( 'Deleting Detail Record for Adjustment Detail Id ' || p_dtl_tbl(i).adjustment_dtl_id);
637: END IF;
638:
639: BEGIN

Line 642: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

638:
639: BEGIN
640: DELETE gmf_lot_cost_adjustment_dtls
641: WHERE adjustment_dtl_id = p_dtl_tbl(i).adjustment_dtl_id;
642: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
643: log_msg ( SQL%ROWCOUNT || ' Detail Record(s) deleted for Adjustment Detail Id ' || p_dtl_tbl(i).adjustment_dtl_id);
644: END IF;
645: EXCEPTION
646: WHEN OTHERS THEN

Line 649: FND_MSG_PUB.Add;

645: EXCEPTION
646: WHEN OTHERS THEN
647: FND_MESSAGE.SET_NAME('GMF','GMF_API_LCA_DTL_ID_DEL_FAILED');
648: FND_MESSAGE.SET_TOKEN('ADJUSTMENT_ID', p_dtl_tbl(i).adjustment_dtl_id);
649: FND_MSG_PUB.Add;
650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
651: RAISE ;
652: END ;
653: ELSIF p_dtl_tbl(i).adjustment_dtl_id IS NULL THEN

Line 655: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

651: RAISE ;
652: END ;
653: ELSIF p_dtl_tbl(i).adjustment_dtl_id IS NULL THEN
654:
655: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
656: log_msg ( 'Detail Record for Cost Component Class Id ' || p_dtl_tbl(i).cost_cmpntcls_id ||
657: ' Cost Analysis Code ' || p_dtl_tbl(i).cost_analysis_code||
658: ' Doesn''t Exist '
659: );

Line 664: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

660: END IF;
661: END IF;
662: END LOOP;
663:
664: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
665: log_msg ('Deleting Lot Cost Adjustments for Item ' || p_header_rec.item_id ||
666: ' Legal Entity' || p_header_rec.legal_entity_id ||
667: ' Organization ' || p_header_rec.organization_id ||
668: ' Cost Type Id ' || p_header_rec.cost_type_id ||

Line 697: FND_MSG_PUB.Add;

693: FND_MESSAGE.SET_TOKEN('ORGANIZATION', p_header_rec.organization_id);
694: FND_MESSAGE.SET_TOKEN('COST_TYPE', p_header_rec.cost_type_id);
695: FND_MESSAGE.SET_TOKEN('LOT', p_header_rec.lot_number);
696: FND_MESSAGE.SET_TOKEN('ADJUSTMENT_DATE', p_header_rec.adjustment_date);
697: FND_MSG_PUB.Add;
698: x_return_status := FND_API.G_RET_STS_ERROR ;
699: RAISE FND_API.G_EXC_ERROR;
700: ELSE
701: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

Line 701: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

697: FND_MSG_PUB.Add;
698: x_return_status := FND_API.G_RET_STS_ERROR ;
699: RAISE FND_API.G_EXC_ERROR;
700: ELSE
701: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
702: log_msg( SQL%ROWCOUNT || ' Record Deleted for Adjustment Id ' || p_header_rec.adjustment_id);
703: END IF;
704: END IF ;
705: EXCEPTION

Line 710: FND_MSG_PUB.Add;

706: WHEN OTHERS THEN
707: IF (p_header_rec.adjustment_id IS NOT NULL) OR (p_header_rec.adjustment_id <> FND_API.G_MISS_NUM) THEN
708: FND_MESSAGE.SET_NAME('GMF','GMF_API_LCA_DEL_FAILED');
709: FND_MESSAGE.SET_TOKEN('ADJUSTMENT_ID', p_header_rec.adjustment_id);
710: FND_MSG_PUB.Add;
711: END IF ;
712: END;
713: ELSE
714: FND_MESSAGE.SET_NAME('GMF','GMF_API_LCA_DEL_IGNORE');

Line 721: FND_MSG_PUB.Add;

717: FND_MESSAGE.SET_TOKEN('ORGANIZATION', p_header_rec.organization_id);
718: FND_MESSAGE.SET_TOKEN('COST_TYPE', p_header_rec.cost_type_id);
719: FND_MESSAGE.SET_TOKEN('LOT', p_header_rec.lot_number);
720: FND_MESSAGE.SET_TOKEN('ADJUSTMENT_DATE', p_header_rec.adjustment_date);
721: FND_MSG_PUB.Add;
722: END IF;
723:
724: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
725: log_msg(p_dtl_tbl.COUNT || ' Lot Cost Adjustment Detail row(s) Deleted');

Line 724: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

720: FND_MESSAGE.SET_TOKEN('ADJUSTMENT_DATE', p_header_rec.adjustment_date);
721: FND_MSG_PUB.Add;
722: END IF;
723:
724: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
725: log_msg(p_dtl_tbl.COUNT || ' Lot Cost Adjustment Detail row(s) Deleted');
726: END IF;
727:
728: -- Standard call to get message count and if count is 1, get message info.

Line 729: FND_MSG_PUB.Count_And_Get (

725: log_msg(p_dtl_tbl.COUNT || ' Lot Cost Adjustment Detail row(s) Deleted');
726: END IF;
727:
728: -- Standard call to get message count and if count is 1, get message info.
729: FND_MSG_PUB.Count_And_Get (
730: p_count => x_msg_count
731: , p_data => x_msg_data
732: );
733: EXCEPTION

Line 737: FND_MSG_PUB.Count_And_Get (

733: EXCEPTION
734: WHEN FND_API.G_EXC_ERROR THEN
735: ROLLBACK TO Delete_LotCost_Adjustment_PVT;
736: x_return_status := FND_API.G_RET_STS_ERROR ;
737: FND_MSG_PUB.Count_And_Get (
738: p_count => x_msg_count
739: , p_data => x_msg_data
740: );
741: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 744: FND_MSG_PUB.Count_And_Get (

740: );
741: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
742: ROLLBACK TO Delete_LotCost_Adjustment_PVT;
743: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
744: FND_MSG_PUB.Count_And_Get (
745: p_count => x_msg_count
746: , p_data => x_msg_data
747: );
748: WHEN OTHERS THEN

Line 751: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

747: );
748: WHEN OTHERS THEN
749: ROLLBACK TO Delete_LotCost_Adjustment_PVT;
750: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
751: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
752: FND_MSG_PUB.Add_Exc_Msg (
753: G_PKG_NAME
754: , l_api_name
755: );

Line 752: FND_MSG_PUB.Add_Exc_Msg (

748: WHEN OTHERS THEN
749: ROLLBACK TO Delete_LotCost_Adjustment_PVT;
750: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
751: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
752: FND_MSG_PUB.Add_Exc_Msg (
753: G_PKG_NAME
754: , l_api_name
755: );
756: END IF;

Line 757: FND_MSG_PUB.Count_And_Get (

753: G_PKG_NAME
754: , l_api_name
755: );
756: END IF;
757: FND_MSG_PUB.Count_And_Get (
758: p_count => x_msg_count
759: , p_data => x_msg_data
760: );
761:

Line 892: FND_MSG_PUB.initialize;

888: SAVEPOINT Get_LotCost_Adjustment_PVT;
889:
890: -- Initialize message list if p_init_msg_list is set to TRUE.
891: IF FND_API.to_Boolean( p_init_msg_list ) THEN
892: FND_MSG_PUB.initialize;
893: END IF;
894:
895: -- Standard call to check for call compatibility.
896: IF NOT FND_API.Compatible_API_Call ( l_api_version ,

Line 907: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

903:
904: -- Initialize API return status to success
905: x_return_status := FND_API.G_RET_STS_SUCCESS;
906:
907: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
908: log_msg('Beginning Private Get Lot Cost Adjustment API.');
909: END IF;
910:
911: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

Line 911: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

907: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
908: log_msg('Beginning Private Get Lot Cost Adjustment API.');
909: END IF;
910:
911: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
912: log_msg ('Retrieving Lot Cost Adjustments for Adjustment ID ' || p_header_rec.adjustment_id ||
913: ' Item ' || p_header_rec.item_id ||
914: ' Legal Entity' || p_header_rec.legal_entity_id ||
915: ' Organization ' || p_header_rec.organization_id ||

Line 968: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

964:
965: END LOOP;
966:
967:
968: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
969: log_msg ('Retrieving Lot Cost Adjustments for Adjustment ID ' || p_header_rec.adjustment_id ||
970: ' Item ' || p_header_rec.item_id ||
971: ' Legal Entity' || p_header_rec.legal_entity_id ||
972: ' Organization ' || p_header_rec.organization_id ||

Line 979: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

975: ' Adjustment Date ' || p_header_rec.adjustment_date
976: );
977: END IF;
978:
979: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
980: log_msg( 'Retrieving Lot Cost Adjustment Records for Adjustment ID'|| p_header_Rec.adjustment_id );
981: END IF;
982:
983: OPEN adjustment_dtls_csr (p_header_Rec.adjustment_id);

Line 994: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

990: , p_dtl_tbl(l_idx).ADJUSTMENT_COST
991: , p_dtl_tbl(l_idx).TEXT_CODE ;
992: EXIT WHEN adjustment_dtls_csr%NOTFOUND;
993: END LOOP;
994: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
995: log_msg ( adjustment_dtls_csr%rowcount||' Records retrieved for Adjustment Id ' || p_header_rec.adjustment_id );
996: END IF;
997: CLOSE adjustment_dtls_csr;
998:

Line 1001: FND_MSG_PUB.Count_And_Get (

997: CLOSE adjustment_dtls_csr;
998:
999:
1000: -- Standard call to get message count and if count is 1, get message info.
1001: FND_MSG_PUB.Count_And_Get (
1002: p_count => x_msg_count
1003: , p_data => x_msg_data
1004: );
1005:

Line 1036: FND_MSG_PUB.Add;

1032: IS
1033: BEGIN
1034: FND_MESSAGE.SET_NAME('GMF','GMF_API_DEBUG');
1035: FND_MESSAGE.SET_TOKEN('MSG',p_msg_text);
1036: FND_MSG_PUB.Add;
1037: END log_msg ;
1038:
1039: END GMF_LotCostAdjustment_PVT;