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 128: FND_MSG_PUB.initialize;

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

Line 150: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level

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

Line 162: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

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

Line 300: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

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

Line 321: FND_MSG_PUB.Add;

317: FND_MESSAGE.SET_TOKEN('COST_TYPE', p_adjustment_rec.cost_type_id);
318: FND_MESSAGE.SET_TOKEN('PERIOD_ID', p_adjustment_rec.period_id);
319: FND_MESSAGE.SET_TOKEN('COST_CMPNT_CLS', p_adjustment_rec.cost_cmpntcls_id);
320: FND_MESSAGE.SET_TOKEN('COST_ANALYSIS_CODE', p_adjustment_rec.cost_analysis_code);
321: FND_MSG_PUB.Add;
322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
323: RAISE ;
324: END;
325:

Line 327: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

323: RAISE ;
324: END;
325:
326: ELSIF p_adjustment_rec.cost_adjust_id IS NOT NULL THEN
327: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
328: log_msg( ' Actual Cost Adjustments for ' ||
329: ' Item ' || p_adjustment_rec.inventory_item_id ||
330: ' Organization ' || p_adjustment_rec.organization_id ||
331: ' Cost Type ' || p_adjustment_rec.cost_type_id ||

Line 344: FND_MSG_PUB.Count_And_Get (

340:
341: /**************************************************************************
342: * Standard call to get message count and if count is 1, get message info. *
343: **************************************************************************/
344: FND_MSG_PUB.Count_And_Get (
345: p_count => x_msg_count
346: , p_data => x_msg_data
347: );
348: EXCEPTION

Line 352: FND_MSG_PUB.Count_And_Get(

348: EXCEPTION
349: WHEN FND_API.G_EXC_ERROR THEN
350: ROLLBACK TO CREATE_ACT_COST_ADJUSTMENT_PVT;
351: x_return_status := FND_API.G_RET_STS_ERROR ;
352: FND_MSG_PUB.Count_And_Get(
353: p_count => x_msg_count
354: , p_data => x_msg_data
355: );
356: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 359: FND_MSG_PUB.Count_And_Get (

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

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

362: );
363: WHEN OTHERS THEN
364: ROLLBACK TO CREATE_ACT_COST_ADJUSTMENT_PVT;
365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
366: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
367: FND_MSG_PUB.Add_Exc_Msg (
368: G_PKG_NAME
369: , l_api_name
370: );

Line 367: FND_MSG_PUB.Add_Exc_Msg (

363: WHEN OTHERS THEN
364: ROLLBACK TO CREATE_ACT_COST_ADJUSTMENT_PVT;
365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
366: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
367: FND_MSG_PUB.Add_Exc_Msg (
368: G_PKG_NAME
369: , l_api_name
370: );
371: END IF;

Line 372: FND_MSG_PUB.Count_And_Get (

368: G_PKG_NAME
369: , l_api_name
370: );
371: END IF;
372: FND_MSG_PUB.Count_And_Get (
373: p_count => x_msg_count
374: , p_data => x_msg_data
375: );
376:

Line 439: FND_MSG_PUB.initialize;

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

Line 461: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

457: * Initialize API return status to success *
458: ******************************************/
459: x_return_status := FND_API.G_RET_STS_SUCCESS;
460:
461: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
462: log_msg('Beginning Private Update Actual Cost Adjustment API');
463: END IF;
464:
465: IF p_adjustment_rec.cost_adjust_id IS NOT NULL THEN

Line 466: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

462: log_msg('Beginning Private Update Actual Cost Adjustment API');
463: END IF;
464:
465: IF p_adjustment_rec.cost_adjust_id IS NOT NULL THEN
466: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
467: log_msg ( 'Updating Actual Cost Adjustment Record for Cost Adjustment Id ' || p_adjustment_rec.cost_adjust_id);
468: END IF;
469:
470: BEGIN

Line 494: FND_MSG_PUB.Add;

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

Line 499: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

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

Line 509: FND_MSG_PUB.Count_And_Get(

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

Line 517: FND_MSG_PUB.Count_And_Get(

513: EXCEPTION
514: WHEN FND_API.G_EXC_ERROR THEN
515: ROLLBACK TO UPDATE_ACT_COST_ADJUSTMENT_PVT;
516: x_return_status := FND_API.G_RET_STS_ERROR ;
517: FND_MSG_PUB.Count_And_Get(
518: p_count => x_msg_count
519: , p_data => x_msg_data
520: );
521: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 524: FND_MSG_PUB.Count_And_Get(

520: );
521: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
522: ROLLBACK TO UPDATE_ACT_COST_ADJUSTMENT_PVT;
523: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
524: FND_MSG_PUB.Count_And_Get(
525: p_count => x_msg_count
526: , p_data => x_msg_data
527: );
528: WHEN OTHERS THEN

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

527: );
528: WHEN OTHERS THEN
529: ROLLBACK TO UPDATE_ACT_COST_ADJUSTMENT_PVT;
530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
531: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
532: FND_MSG_PUB.Add_Exc_Msg(
533: G_PKG_NAME
534: , l_api_name
535: );

Line 532: FND_MSG_PUB.Add_Exc_Msg(

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

Line 537: FND_MSG_PUB.Count_And_Get(

533: G_PKG_NAME
534: , l_api_name
535: );
536: END IF;
537: FND_MSG_PUB.Count_And_Get(
538: p_count => x_msg_count
539: , p_data => x_msg_data
540: );
541: END UPDATE_ACTUAL_COST_ADJUSTMENT;

Line 603: FND_MSG_PUB.initialize;

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

Line 625: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

621: * Initialize API return status to success *
622: ******************************************/
623: x_return_status := FND_API.G_RET_STS_SUCCESS;
624:
625: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
626: log_msg('Beginning Private Delete Actual Cost Adjustment API');
627: END IF;
628:
629: IF p_adjustment_rec.cost_adjust_id IS NOT NULL THEN

Line 630: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

626: log_msg('Beginning Private Delete Actual Cost Adjustment API');
627: END IF;
628:
629: IF p_adjustment_rec.cost_adjust_id IS NOT NULL THEN
630: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
631: log_msg ( 'Deleting Actual Cost Adjustment Record for Cost Adjustment Id ' || p_adjustment_rec.cost_adjust_id);
632: END IF;
633: BEGIN
634: /* bug 9005515, update the adjustment with delete mark =1, through form we are not deleting the adjustments

Line 650: FND_MSG_PUB.Add;

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

Line 659: FND_MSG_PUB.Add;

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

Line 663: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

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

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) THEN

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) THEN
696: FND_MSG_PUB.Add_Exc_Msg(
697: G_PKG_NAME
698: , l_api_name
699: );

Line 696: FND_MSG_PUB.Add_Exc_Msg(

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) THEN
696: FND_MSG_PUB.Add_Exc_Msg(
697: G_PKG_NAME
698: , l_api_name
699: );
700: END IF;

Line 701: FND_MSG_PUB.Count_And_Get(

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

Line 808: FND_MSG_PUB.initialize;

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

Line 830: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

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

Line 834: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

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

Line 937: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level

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

Line 955: FND_MSG_PUB.Count_And_Get(

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

Line 962: FND_MSG_PUB.Count_And_Get(

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

Line 968: FND_MSG_PUB.Count_And_Get(

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

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

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

Line 975: FND_MSG_PUB.Add_Exc_Msg (

971: );
972: WHEN OTHERS THEN
973: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
974: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
975: FND_MSG_PUB.Add_Exc_Msg (
976: G_PKG_NAME
977: , l_api_name
978: );
979: END IF;

Line 980: FND_MSG_PUB.Count_And_Get(

976: G_PKG_NAME
977: , l_api_name
978: );
979: END IF;
980: FND_MSG_PUB.Count_And_Get(
981: p_count => x_msg_count
982: , p_data => x_msg_data
983: );
984: END GET_ACTUAL_COST_ADJUSTMENT;