[Home] [Help]
6119: --Locks:
6120: -- None.
6121: --Function:
6122: -- This procedure is a wrapper around the currency rounding procedure
6123: -- in PO_CORE_S2. It pulls the appropriate column to be rounded from
6124: -- the Encumbrance GTT and also updates a corresponding column with
6125: -- the results of the round/conversion.
6126: -- GTT Column to Round Column with Rounded Result
6127: -- AMOUNT_TO_ENCUMBER AMT_TO_ENCUMBER_FUNC
6217: -- foreign currency code and rate in the GTT. We do not want to repeat
6218: -- the currency conversion a 2nd time. But rounding should occur for all
6219: -- 3 of these columns.
6220: -- Rounding without currency conversion is achieved by setting the
6221: -- round_only_flag to 'Y' when calling PO_CORE_S2.round_and_convert_currency
6222: , DECODE ( DISTS.distribution_type
6223: , g_dist_type_AGREEMENT, DECODE( p_column_to_use
6224: , g_column_AMOUNT_TO_ENCUMBER, 'N'
6225: , 'Y'
6267:
6268: l_progress := '010';
6269:
6270: -- Call the currency conversion/rounding routine
6271: PO_CORE_S2.round_and_convert_currency(
6272: x_return_status => l_return_status
6273: , p_unique_id_tbl => l_sequence_num_tbl --bug 4878973
6274: , p_amount_in_tbl => l_amount_to_round_tbl
6275: , p_exchange_rate_tbl => l_exchange_rate_tbl
7863: PO_DEBUG.debug_var(l_log_head,l_progress,'l_origin_sequence_num_tbl',l_origin_sequence_num_tbl);
7864: END IF;
7865: l_progress:= '080';
7866:
7867: PO_CORE_S2.round_and_convert_currency(
7868: x_return_status => l_return_status
7869: , p_unique_id_tbl => l_sequence_num_tbl
7870: , p_amount_in_tbl => l_amount_to_round_tbl
7871: , p_exchange_rate_tbl => l_exchange_rate_tbl
7878: );
7879:
7880: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7881:
7882: PO_DEBUG.debug_stmt(l_log_head,l_progress,'After completing PO_CORE_S2.round_and_convert_currency on distributions');
7883: PO_DEBUG.debug_var(l_log_head,l_progress,'l_return_status',l_return_status);
7884: l_progress := '090';
7885: RAISE FND_API.g_EXC_UNEXPECTED_ERROR;
7886: END IF;