509: qp_preq_grp.engine_debug('Currency_Conversion_API - TRANSACTION function and base currency different ');
510: END IF;
511: -- Function and base currency not same, raise error
512: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
513: FND_MESSAGE.SET_NAME('QP', 'QP_DIFF_FUNC_AND_BASE_CURR');
514: FND_MESSAGE.SET_TOKEN('BASE_CURR', base_currency_code_t(J));
515: FND_MESSAGE.SET_TOKEN('FUNC_CURR', p_function_currency);
516:
517: error_message_t(J) := FND_MESSAGE.GET;
510: END IF;
511: -- Function and base currency not same, raise error
512: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
513: FND_MESSAGE.SET_NAME('QP', 'QP_DIFF_FUNC_AND_BASE_CURR');
514: FND_MESSAGE.SET_TOKEN('BASE_CURR', base_currency_code_t(J));
515: FND_MESSAGE.SET_TOKEN('FUNC_CURR', p_function_currency);
516:
517: error_message_t(J) := FND_MESSAGE.GET;
518: status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
511: -- Function and base currency not same, raise error
512: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
513: FND_MESSAGE.SET_NAME('QP', 'QP_DIFF_FUNC_AND_BASE_CURR');
514: FND_MESSAGE.SET_TOKEN('BASE_CURR', base_currency_code_t(J));
515: FND_MESSAGE.SET_TOKEN('FUNC_CURR', p_function_currency);
516:
517: error_message_t(J) := FND_MESSAGE.GET;
518: status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
519: lines_status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
513: FND_MESSAGE.SET_NAME('QP', 'QP_DIFF_FUNC_AND_BASE_CURR');
514: FND_MESSAGE.SET_TOKEN('BASE_CURR', base_currency_code_t(J));
515: FND_MESSAGE.SET_TOKEN('FUNC_CURR', p_function_currency);
516:
517: error_message_t(J) := FND_MESSAGE.GET;
518: status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
519: lines_status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
520:
521: END IF;
550: IF l_conversion_rate = -1 THEN
551:
552: -- No currency rate found from GL, raise error
553: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
554: FND_MESSAGE.SET_NAME('QP', 'QP_CONV_RATE_NOT_FOUND');
555: FND_MESSAGE.SET_TOKEN('FROM_CURR', base_currency_code_t(J));
556: FND_MESSAGE.SET_TOKEN('TO_CURR', to_currency_code_t(J));
557: FND_MESSAGE.SET_TOKEN('CONV_DATE', pricing_effective_date_t(J));
558: FND_MESSAGE.SET_TOKEN('CONV_TYPE', p_user_conversion_type);
551:
552: -- No currency rate found from GL, raise error
553: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
554: FND_MESSAGE.SET_NAME('QP', 'QP_CONV_RATE_NOT_FOUND');
555: FND_MESSAGE.SET_TOKEN('FROM_CURR', base_currency_code_t(J));
556: FND_MESSAGE.SET_TOKEN('TO_CURR', to_currency_code_t(J));
557: FND_MESSAGE.SET_TOKEN('CONV_DATE', pricing_effective_date_t(J));
558: FND_MESSAGE.SET_TOKEN('CONV_TYPE', p_user_conversion_type);
559:
552: -- No currency rate found from GL, raise error
553: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
554: FND_MESSAGE.SET_NAME('QP', 'QP_CONV_RATE_NOT_FOUND');
555: FND_MESSAGE.SET_TOKEN('FROM_CURR', base_currency_code_t(J));
556: FND_MESSAGE.SET_TOKEN('TO_CURR', to_currency_code_t(J));
557: FND_MESSAGE.SET_TOKEN('CONV_DATE', pricing_effective_date_t(J));
558: FND_MESSAGE.SET_TOKEN('CONV_TYPE', p_user_conversion_type);
559:
560: error_message_t(J) := FND_MESSAGE.GET;
553: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
554: FND_MESSAGE.SET_NAME('QP', 'QP_CONV_RATE_NOT_FOUND');
555: FND_MESSAGE.SET_TOKEN('FROM_CURR', base_currency_code_t(J));
556: FND_MESSAGE.SET_TOKEN('TO_CURR', to_currency_code_t(J));
557: FND_MESSAGE.SET_TOKEN('CONV_DATE', pricing_effective_date_t(J));
558: FND_MESSAGE.SET_TOKEN('CONV_TYPE', p_user_conversion_type);
559:
560: error_message_t(J) := FND_MESSAGE.GET;
561: status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
554: FND_MESSAGE.SET_NAME('QP', 'QP_CONV_RATE_NOT_FOUND');
555: FND_MESSAGE.SET_TOKEN('FROM_CURR', base_currency_code_t(J));
556: FND_MESSAGE.SET_TOKEN('TO_CURR', to_currency_code_t(J));
557: FND_MESSAGE.SET_TOKEN('CONV_DATE', pricing_effective_date_t(J));
558: FND_MESSAGE.SET_TOKEN('CONV_TYPE', p_user_conversion_type);
559:
560: error_message_t(J) := FND_MESSAGE.GET;
561: status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
562: lines_status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
556: FND_MESSAGE.SET_TOKEN('TO_CURR', to_currency_code_t(J));
557: FND_MESSAGE.SET_TOKEN('CONV_DATE', pricing_effective_date_t(J));
558: FND_MESSAGE.SET_TOKEN('CONV_TYPE', p_user_conversion_type);
559:
560: error_message_t(J) := FND_MESSAGE.GET;
561: status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
562: lines_status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
563:
564: END IF;
568: ELSIF l_conversion_rate = -2 THEN
569:
570: -- Base currency or/and order currency are in valid, raise error
571: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
572: FND_MESSAGE.SET_NAME('QP','QP_INVALID_CURRENCY');
573:
574: error_message_t(J) := FND_MESSAGE.GET;
575: status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
576: lines_status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
570: -- Base currency or/and order currency are in valid, raise error
571: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
572: FND_MESSAGE.SET_NAME('QP','QP_INVALID_CURRENCY');
573:
574: error_message_t(J) := FND_MESSAGE.GET;
575: status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
576: lines_status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
577:
578:
590: END IF;
591: -- For 'TRANSACTION' conv, OM did not pass user conversion type, raise error
592: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
593:
594: FND_MESSAGE.SET_NAME('QP', 'QP_NO_USER_CONVTYPE_F_TRANSACT');
595:
596: error_message_t(J) := FND_MESSAGE.GET;
597: status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
598: lines_status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
592: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
593:
594: FND_MESSAGE.SET_NAME('QP', 'QP_NO_USER_CONVTYPE_F_TRANSACT');
595:
596: error_message_t(J) := FND_MESSAGE.GET;
597: status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
598: lines_status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
599:
600: END IF;
630: qp_preq_grp.engine_debug('Currency_Conversion_API - FORMULA not success');
631: END IF;
632: -- Formula calculation failed, raise error
633: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
634: FND_MESSAGE.SET_NAME('QP', 'QP_FORMULA_CALC_FAILURE');
635:
636: error_message_t(J) := FND_MESSAGE.GET;
637: status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
638: lines_status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
632: -- Formula calculation failed, raise error
633: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
634: FND_MESSAGE.SET_NAME('QP', 'QP_FORMULA_CALC_FAILURE');
635:
636: error_message_t(J) := FND_MESSAGE.GET;
637: status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
638: lines_status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
639:
640: END IF;
701: IF l_conversion_rate = -1 THEN
702:
703: -- No currency rate found from GL, raise error
704: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
705: FND_MESSAGE.SET_NAME('QP', 'QP_CONV_RATE_NOT_FOUND');
706: FND_MESSAGE.SET_TOKEN('FROM_CURR', base_currency_code_t(J));
707: FND_MESSAGE.SET_TOKEN('TO_CURR', to_currency_code_t(J));
708: FND_MESSAGE.SET_TOKEN('CONV_DATE', l_conversion_date);
709: FND_MESSAGE.SET_TOKEN('CONV_TYPE', conversion_type_t(J));
702:
703: -- No currency rate found from GL, raise error
704: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
705: FND_MESSAGE.SET_NAME('QP', 'QP_CONV_RATE_NOT_FOUND');
706: FND_MESSAGE.SET_TOKEN('FROM_CURR', base_currency_code_t(J));
707: FND_MESSAGE.SET_TOKEN('TO_CURR', to_currency_code_t(J));
708: FND_MESSAGE.SET_TOKEN('CONV_DATE', l_conversion_date);
709: FND_MESSAGE.SET_TOKEN('CONV_TYPE', conversion_type_t(J));
710:
703: -- No currency rate found from GL, raise error
704: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
705: FND_MESSAGE.SET_NAME('QP', 'QP_CONV_RATE_NOT_FOUND');
706: FND_MESSAGE.SET_TOKEN('FROM_CURR', base_currency_code_t(J));
707: FND_MESSAGE.SET_TOKEN('TO_CURR', to_currency_code_t(J));
708: FND_MESSAGE.SET_TOKEN('CONV_DATE', l_conversion_date);
709: FND_MESSAGE.SET_TOKEN('CONV_TYPE', conversion_type_t(J));
710:
711: error_message_t(J) := FND_MESSAGE.GET;
704: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
705: FND_MESSAGE.SET_NAME('QP', 'QP_CONV_RATE_NOT_FOUND');
706: FND_MESSAGE.SET_TOKEN('FROM_CURR', base_currency_code_t(J));
707: FND_MESSAGE.SET_TOKEN('TO_CURR', to_currency_code_t(J));
708: FND_MESSAGE.SET_TOKEN('CONV_DATE', l_conversion_date);
709: FND_MESSAGE.SET_TOKEN('CONV_TYPE', conversion_type_t(J));
710:
711: error_message_t(J) := FND_MESSAGE.GET;
712: status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
705: FND_MESSAGE.SET_NAME('QP', 'QP_CONV_RATE_NOT_FOUND');
706: FND_MESSAGE.SET_TOKEN('FROM_CURR', base_currency_code_t(J));
707: FND_MESSAGE.SET_TOKEN('TO_CURR', to_currency_code_t(J));
708: FND_MESSAGE.SET_TOKEN('CONV_DATE', l_conversion_date);
709: FND_MESSAGE.SET_TOKEN('CONV_TYPE', conversion_type_t(J));
710:
711: error_message_t(J) := FND_MESSAGE.GET;
712: status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
713: lines_status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
707: FND_MESSAGE.SET_TOKEN('TO_CURR', to_currency_code_t(J));
708: FND_MESSAGE.SET_TOKEN('CONV_DATE', l_conversion_date);
709: FND_MESSAGE.SET_TOKEN('CONV_TYPE', conversion_type_t(J));
710:
711: error_message_t(J) := FND_MESSAGE.GET;
712: status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
713: lines_status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
714:
715: END IF;
719: ELSIF l_conversion_rate = -2 THEN
720:
721: -- Base currency or/and order currency are in valid, raise error
722: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
723: FND_MESSAGE.SET_NAME('QP','QP_INVALID_CURRENCY');
724:
725: error_message_t(J) := FND_MESSAGE.GET;
726: status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
727: lines_status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
721: -- Base currency or/and order currency are in valid, raise error
722: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
723: FND_MESSAGE.SET_NAME('QP','QP_INVALID_CURRENCY');
724:
725: error_message_t(J) := FND_MESSAGE.GET;
726: status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
727: lines_status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
728:
729: END IF;
817: qp_preq_grp.engine_debug('Currency_Conversion_API - markup formula fails ');
818: END IF;
819: -- Formula calculation failed, raise error
820: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
821: FND_MESSAGE.SET_NAME('QP', 'QP_FORMULA_CALC_FAILURE');
822:
823: error_message_t(J) := FND_MESSAGE.GET;
824: status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
825: lines_status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
819: -- Formula calculation failed, raise error
820: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
821: FND_MESSAGE.SET_NAME('QP', 'QP_FORMULA_CALC_FAILURE');
822:
823: error_message_t(J) := FND_MESSAGE.GET;
824: status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
825: lines_status_code_t(J) := QP_PREQ_GRP.G_STATUS_OTHER_ERRORS;
826:
827: END IF;
881: END IF;
882:
883: -- Formula calculation failed, raise error
884: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
885: error_message_t(J) := FND_MESSAGE.GET;
886: status_code_t(J) := FND_API.G_RET_STS_ERROR;
887: lines_status_code_t(J) := FND_API.G_RET_STS_ERROR;
888:
889: END IF;
970: l_process_status := FND_API.G_RET_STS_ERROR;
971:
972: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
973:
974: FND_MESSAGE.SET_NAME('QP','QP_CURR_CONV_EXP_ERROR');
975:
976: END IF;
977: */
978: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
980: l_process_status := FND_API.G_RET_STS_UNEXP_ERROR;
981:
982: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
983:
984: FND_MESSAGE.SET_NAME('QP','QP_CURR_CONV_UNEXPECTED_ERROR');
985:
986: END IF;
987:
988: WHEN OTHERS THEN