DBA Data[Home] [Help]

APPS.GMF_ACTUAL_COST_ADJUSTMENT_PVT dependencies on FND_MSG_PUB

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

39: * Global variables *
40: *******************/
41:
42: G_PKG_NAME CONSTANT VARCHAR2(30) := 'GMF_ACTUAL_COST_ADJUSTMENT_PVT';
43: G_DEBUG_LEVEL NUMBER(2) := FND_MSG_PUB.G_Msg_Level_Threshold;
44:
45: /**************************************************************
46: * PROCEDURE *
47: * log_msg *

Line 68: FND_MSG_PUB.Add;

64: IS
65: BEGIN
66: FND_MESSAGE.SET_NAME('GMF','GMF_API_DEBUG');
67: FND_MESSAGE.SET_TOKEN('MSG',p_msg_text);
68: FND_MSG_PUB.Add;
69: END log_msg ;
70:
71: /********************************************************************
72: * PROCEDURE *

Line 129: FND_MSG_PUB.initialize;

125: * Initialize message list if p_init_msg_list is set to TRUE. *
126: *************************************************************/
127: IF FND_API.to_Boolean( p_init_msg_list )
128: THEN
129: FND_MSG_PUB.initialize;
130: END IF;
131:
132: /*************************************************
133: * Standard call to check for call compatibility. *

Line 151: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level

147: * Initialize API return status to success *
148: ******************************************/
149: x_return_status := FND_API.G_RET_STS_SUCCESS;
150:
151: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
152: THEN
153: log_msg('Beginning Private Create Actual Cost Adjustment API');
154: END IF;
155:

Line 164: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level

160: END IF;
161:
162: IF p_adjustment_rec.cost_adjust_id IS NULL
163: THEN
164: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
165: THEN
166: log_msg ( ' Inserting Actual Cost Adjustments for '||
167: ' Item ' || p_adjustment_rec.inventory_item_id ||
168: ' Organization ' || p_adjustment_rec.organization_id ||

Line 303: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level

299: , p_adjustment_rec.adjustment_date
300: , 0
301: ) RETURNING cost_adjust_id INTO p_adjustment_rec.cost_adjust_id;
302:
303: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
304: THEN
305: log_msg ( SQL%ROWCOUNT || ' Record Inserted for Actual Cost Adjustments for '||
306: ' Item ' || p_adjustment_rec.inventory_item_id ||
307: ' Organization ' || p_adjustment_rec.organization_id ||

Line 325: FND_MSG_PUB.Add;

321: FND_MESSAGE.SET_TOKEN('COST_TYPE', p_adjustment_rec.cost_type_id);
322: FND_MESSAGE.SET_TOKEN('PERIOD_ID', p_adjustment_rec.period_id);
323: FND_MESSAGE.SET_TOKEN('COST_CMPNT_CLS', p_adjustment_rec.cost_cmpntcls_id);
324: FND_MESSAGE.SET_TOKEN('COST_ANALYSIS_CODE', p_adjustment_rec.cost_analysis_code);
325: FND_MSG_PUB.Add;
326: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
327: RAISE ;
328: END;
329:

Line 332: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level

328: END;
329:
330: ELSIF p_adjustment_rec.cost_adjust_id IS NOT NULL
331: THEN
332: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
333: THEN
334: log_msg ( ' Actual Cost Adjustments for ' ||
335: ' Item ' || p_adjustment_rec.inventory_item_id ||
336: ' Organization ' || p_adjustment_rec.organization_id ||

Line 350: FND_MSG_PUB.Count_And_Get (

346:
347: /**************************************************************************
348: * Standard call to get message count and if count is 1, get message info. *
349: **************************************************************************/
350: FND_MSG_PUB.Count_And_Get (
351: p_count => x_msg_count
352: , p_data => x_msg_data
353: );
354: EXCEPTION

Line 358: FND_MSG_PUB.Count_And_Get (

354: EXCEPTION
355: WHEN FND_API.G_EXC_ERROR THEN
356: ROLLBACK TO CREATE_ACT_COST_ADJUSTMENT_PVT;
357: x_return_status := FND_API.G_RET_STS_ERROR ;
358: FND_MSG_PUB.Count_And_Get (
359: p_count => x_msg_count
360: , p_data => x_msg_data
361: );
362: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 365: FND_MSG_PUB.Count_And_Get (

361: );
362: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
363: ROLLBACK TO CREATE_ACT_COST_ADJUSTMENT_PVT;
364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
365: FND_MSG_PUB.Count_And_Get (
366: p_count => x_msg_count
367: , p_data => x_msg_data
368: );
369: WHEN OTHERS THEN

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

368: );
369: WHEN OTHERS THEN
370: ROLLBACK TO CREATE_ACT_COST_ADJUSTMENT_PVT;
371: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
372: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
373: FND_MSG_PUB.Add_Exc_Msg (
374: G_PKG_NAME
375: , l_api_name
376: );

Line 373: FND_MSG_PUB.Add_Exc_Msg (

369: WHEN OTHERS THEN
370: ROLLBACK TO CREATE_ACT_COST_ADJUSTMENT_PVT;
371: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
372: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
373: FND_MSG_PUB.Add_Exc_Msg (
374: G_PKG_NAME
375: , l_api_name
376: );
377: END IF;

Line 378: FND_MSG_PUB.Count_And_Get (

374: G_PKG_NAME
375: , l_api_name
376: );
377: END IF;
378: FND_MSG_PUB.Count_And_Get (
379: p_count => x_msg_count
380: , p_data => x_msg_data
381: );
382: END CREATE_ACTUAL_COST_ADJUSTMENT;

Line 443: FND_MSG_PUB.initialize;

439: * Initialize message list if p_init_msg_list is set to TRUE. *
440: *************************************************************/
441: IF FND_API.to_Boolean( p_init_msg_list )
442: THEN
443: FND_MSG_PUB.initialize;
444: END IF;
445:
446: /*************************************************
447: * Standard call to check for call compatibility. *

Line 465: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level

461: * Initialize API return status to success *
462: ******************************************/
463: x_return_status := FND_API.G_RET_STS_SUCCESS;
464:
465: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
466: THEN
467: log_msg('Beginning Private Update Actual Cost Adjustment API');
468: END IF;
469:

Line 472: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level

468: END IF;
469:
470: IF p_adjustment_rec.cost_adjust_id IS NOT NULL
471: THEN
472: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
473: THEN
474: log_msg ( 'Updating Actual Cost Adjustment Record for Cost Adjustment Id ' || p_adjustment_rec.cost_adjust_id);
475: END IF;
476:

Line 496: FND_MSG_PUB.Add;

492: EXCEPTION
493: WHEN OTHERS THEN
494: FND_MESSAGE.SET_NAME('GMF','GMF_API_ACA_UPD_FAILED');
495: FND_MESSAGE.SET_TOKEN('COST_ADJUST_ID', p_adjustment_rec.cost_adjust_id);
496: FND_MSG_PUB.Add;
497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
498: RAISE ;
499: END ;
500: ELSIF p_adjustment_rec.cost_adjust_id IS NULL

Line 502: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level

498: RAISE ;
499: END ;
500: ELSIF p_adjustment_rec.cost_adjust_id IS NULL
501: THEN
502: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
503: THEN
504: log_msg ( ' Actual Cost Adjustment Record for ' ||
505: ' Cost Adjustment Id ' || p_adjustment_rec.cost_adjust_id ||
506: ' Doesn''t Exist');

Line 513: FND_MSG_PUB.Count_And_Get (

509:
510: /**************************************************************************
511: * Standard call to get message count and if count is 1, get message info. *
512: **************************************************************************/
513: FND_MSG_PUB.Count_And_Get (
514: p_count => x_msg_count
515: , p_data => x_msg_data
516: );
517: EXCEPTION

Line 521: FND_MSG_PUB.Count_And_Get (

517: EXCEPTION
518: WHEN FND_API.G_EXC_ERROR THEN
519: ROLLBACK TO UPDATE_ACT_COST_ADJUSTMENT_PVT;
520: x_return_status := FND_API.G_RET_STS_ERROR ;
521: FND_MSG_PUB.Count_And_Get (
522: p_count => x_msg_count
523: , p_data => x_msg_data
524: );
525: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 528: FND_MSG_PUB.Count_And_Get (

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

Line 535: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

531: );
532: WHEN OTHERS THEN
533: ROLLBACK TO UPDATE_ACT_COST_ADJUSTMENT_PVT;
534: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
535: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
536: THEN
537: FND_MSG_PUB.Add_Exc_Msg (
538: G_PKG_NAME
539: , l_api_name

Line 537: FND_MSG_PUB.Add_Exc_Msg (

533: ROLLBACK TO UPDATE_ACT_COST_ADJUSTMENT_PVT;
534: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
535: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
536: THEN
537: FND_MSG_PUB.Add_Exc_Msg (
538: G_PKG_NAME
539: , l_api_name
540: );
541: END IF;

Line 542: FND_MSG_PUB.Count_And_Get (

538: G_PKG_NAME
539: , l_api_name
540: );
541: END IF;
542: FND_MSG_PUB.Count_And_Get (
543: p_count => x_msg_count
544: , p_data => x_msg_data
545: );
546: END UPDATE_ACTUAL_COST_ADJUSTMENT;

Line 607: FND_MSG_PUB.initialize;

603: * Initialize message list if p_init_msg_list is set to TRUE. *
604: *************************************************************/
605: IF FND_API.to_Boolean( p_init_msg_list )
606: THEN
607: FND_MSG_PUB.initialize;
608: END IF;
609:
610: /*************************************************
611: * Standard call to check for call compatibility. *

Line 629: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level

625: * Initialize API return status to success *
626: ******************************************/
627: x_return_status := FND_API.G_RET_STS_SUCCESS;
628:
629: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
630: THEN
631: log_msg('Beginning Private Delete Actual Cost Adjustment API');
632: END IF;
633:

Line 636: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level

632: END IF;
633:
634: IF p_adjustment_rec.cost_adjust_id IS NOT NULL
635: THEN
636: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
637: THEN
638: log_msg ( 'Deleting Actual Cost Adjustment Record for Cost Adjustment Id ' || p_adjustment_rec.cost_adjust_id);
639: END IF;
640: BEGIN

Line 648: FND_MSG_PUB.Add;

644:
645: IF SQL%NOTFOUND THEN
646: FND_MESSAGE.SET_NAME('GMF','GMF_API_ACA_DEL_FAILED');
647: FND_MESSAGE.SET_TOKEN('ADJUST_ID', p_adjustment_rec.cost_adjust_id);
648: FND_MSG_PUB.Add;
649: x_return_status := FND_API.G_RET_STS_ERROR ;
650: RAISE FND_API.G_EXC_ERROR;
651: END IF;
652: EXCEPTION

Line 658: FND_MSG_PUB.Add;

654: IF (p_adjustment_rec.cost_adjust_id IS NOT NULL) OR (p_adjustment_rec.cost_adjust_id <> FND_API.G_MISS_NUM)
655: THEN
656: FND_MESSAGE.SET_NAME('GMF','GMF_API_ACA_DEL_FAILED');
657: FND_MESSAGE.SET_TOKEN('ADJUST_ID', p_adjustment_rec.cost_adjust_id);
658: FND_MSG_PUB.Add;
659: END IF ;
660: END;
661: ELSE
662: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level

Line 662: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level

658: FND_MSG_PUB.Add;
659: END IF ;
660: END;
661: ELSE
662: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
663: THEN
664: log_msg ( ' Actual Cost Adjustment Record for ' ||
665: ' Cost Adjustment Id ' || p_adjustment_rec.cost_adjust_id ||
666: ' Doesn''t Exist');

Line 673: FND_MSG_PUB.Count_And_Get (

669:
670: /**************************************************************************
671: * Standard call to get message count and if count is 1, get message info. *
672: **************************************************************************/
673: FND_MSG_PUB.Count_And_Get (
674: p_count => x_msg_count
675: , p_data => x_msg_data
676: );
677: EXCEPTION

Line 681: FND_MSG_PUB.Count_And_Get (

677: EXCEPTION
678: WHEN FND_API.G_EXC_ERROR THEN
679: ROLLBACK TO DELETE_ACT_COST_ADJUSTMENT_PVT;
680: x_return_status := FND_API.G_RET_STS_ERROR ;
681: FND_MSG_PUB.Count_And_Get (
682: p_count => x_msg_count
683: , p_data => x_msg_data
684: );
685: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 688: FND_MSG_PUB.Count_And_Get (

684: );
685: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
686: ROLLBACK TO DELETE_ACT_COST_ADJUSTMENT_PVT;
687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
688: FND_MSG_PUB.Count_And_Get (
689: p_count => x_msg_count
690: , p_data => x_msg_data
691: );
692: WHEN OTHERS THEN

Line 695: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

691: );
692: WHEN OTHERS THEN
693: ROLLBACK TO DELETE_ACT_COST_ADJUSTMENT_PVT;
694: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
695: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
696: THEN
697: FND_MSG_PUB.Add_Exc_Msg (
698: G_PKG_NAME
699: , l_api_name

Line 697: FND_MSG_PUB.Add_Exc_Msg (

693: ROLLBACK TO DELETE_ACT_COST_ADJUSTMENT_PVT;
694: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
695: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
696: THEN
697: FND_MSG_PUB.Add_Exc_Msg (
698: G_PKG_NAME
699: , l_api_name
700: );
701: END IF;

Line 702: FND_MSG_PUB.Count_And_Get (

698: G_PKG_NAME
699: , l_api_name
700: );
701: END IF;
702: FND_MSG_PUB.Count_And_Get (
703: p_count => x_msg_count
704: , p_data => x_msg_data
705: );
706: END DELETE_ACTUAL_COST_ADJUSTMENT;

Line 809: FND_MSG_PUB.initialize;

805: * Initialize message list if p_init_msg_list is set to TRUE. *
806: *************************************************************/
807: IF FND_API.to_Boolean( p_init_msg_list )
808: THEN
809: FND_MSG_PUB.initialize;
810: END IF;
811:
812: /*************************************************
813: * Standard call to check for call compatibility. *

Line 831: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level

827: * Initialize API return status to success *
828: ******************************************/
829: x_return_status := FND_API.G_RET_STS_SUCCESS;
830:
831: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
832: THEN
833: log_msg('Beginning Private Get Actual Cost Adjustment API');
834: END IF;
835:

Line 836: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level

832: THEN
833: log_msg('Beginning Private Get Actual Cost Adjustment API');
834: END IF;
835:
836: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
837: THEN
838: log_msg ( ' Retrieving Actual Cost Adjustments for ' ||
839: ' Cost Adjustment ID ' || p_adjustment_rec.cost_adjust_id ||
840: ' Item ' || p_adjustment_rec.inventory_item_id ||

Line 940: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level

936: p_adjustment_rec.subledger_ind := i.SUBLEDGER_IND;
937: p_adjustment_rec.adjustment_date := i.ADJUSTMENT_DATE;
938: END LOOP;
939: ELSE
940: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
941: THEN
942: log_msg ( ' No Actual Cost Adjustments retrieved for ' ||
943: ' Item ' || p_adjustment_rec.inventory_item_id ||
944: ' Organization ' || p_adjustment_rec.organization_id ||

Line 958: FND_MSG_PUB.Count_And_Get (

954:
955: /**************************************************************************
956: * Standard call to get message count and if count is 1, get message info. *
957: **************************************************************************/
958: FND_MSG_PUB.Count_And_Get (
959: p_count => x_msg_count
960: , p_data => x_msg_data
961: );
962: EXCEPTION

Line 965: FND_MSG_PUB.Count_And_Get (

961: );
962: EXCEPTION
963: WHEN FND_API.G_EXC_ERROR THEN
964: x_return_status := FND_API.G_RET_STS_ERROR ;
965: FND_MSG_PUB.Count_And_Get (
966: p_count => x_msg_count
967: , p_data => x_msg_data
968: );
969: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 971: FND_MSG_PUB.Count_And_Get (

967: , p_data => x_msg_data
968: );
969: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
970: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
971: FND_MSG_PUB.Count_And_Get (
972: p_count => x_msg_count
973: , p_data => x_msg_data
974: );
975: WHEN OTHERS THEN

Line 977: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

973: , p_data => x_msg_data
974: );
975: WHEN OTHERS THEN
976: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
977: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
978: THEN
979: FND_MSG_PUB.Add_Exc_Msg (
980: G_PKG_NAME
981: , l_api_name

Line 979: FND_MSG_PUB.Add_Exc_Msg (

975: WHEN OTHERS THEN
976: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
977: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
978: THEN
979: FND_MSG_PUB.Add_Exc_Msg (
980: G_PKG_NAME
981: , l_api_name
982: );
983: END IF;

Line 984: FND_MSG_PUB.Count_And_Get (

980: G_PKG_NAME
981: , l_api_name
982: );
983: END IF;
984: FND_MSG_PUB.Count_And_Get (
985: p_count => x_msg_count
986: , p_data => x_msg_data
987: );
988: END GET_ACTUAL_COST_ADJUSTMENT;