APPS.ARP_CASH_BASIS_ACCOUNTING dependencies on ARPCURR

Line 559: l_Amount := arpcurr.CurrRound( GlDistRecord.amount * l_term_fraction, l_currency_code );

555: AND l_FirstInstallmentCode = 'INCLUDE'
556: AND p_Type IN ('TAX','FREIGHT') THEN
557: l_Amount := GlDistRecord.Amount;
558: ELSE
559: l_Amount := arpcurr.CurrRound( GlDistRecord.amount * l_term_fraction, l_currency_code );
560: END IF;
561: Amount( l_NextElement ) := l_Amount;
562: Source( l_NextElement ) := 'GL';
563: SourceId( l_NextElement ) := GlDistRecord.cust_trx_line_gl_dist_id;

Line 1020: NewAppToLine := arpcurr.CurrRound( CRD_Amount( CRD_i ) * GrandTotalApplied/

1016: IF CRD_TotalAmount = 0
1017: THEN
1018: NewAppToLine := 0;
1019: ELSE
1020: NewAppToLine := arpcurr.CurrRound( CRD_Amount( CRD_i ) * GrandTotalApplied/
1021: CRD_TotalAmount, p_Receipt.CurrencyCode );
1022:
1023: -- if pro-rating formula comes up with an amount greater that the grandtotalapplied
1024: -- just make the 2 amounts equal

Line 1056: AcctdAppToLineThisTime := arpcurr.ReconcileAcctdAmounts( p_Receipt.ExchangeRate,

1052: -- amount to apply this time is equal to what the total amount should
1053: -- be, because there is not an existing appliation to the line
1054: AppToLineThisTime := NewAppToLine;
1055: END IF;
1056: AcctdAppToLineThisTime := arpcurr.ReconcileAcctdAmounts( p_Receipt.ExchangeRate,
1057: p_Amount, -- total of distributions reconciles to the applied amount
1058: p_AcctdAmount,
1059: AppToLineThisTime,
1060: RunningAppToLineThisTime,

Line 1092: arpcurr.ReconcileAcctdAmounts(

1088: NewAppToLine := GrandTotalApplied - RunningNewAppToLine;
1089: RunningNewAppToLine := RunningNewAppToLine + NewAppToLine;
1090: AppToLineThisTime := NewAppToLine - CBD_TotalUnallocatedAmt;
1091: AcctdAppToLineThisTime :=
1092: arpcurr.ReconcileAcctdAmounts(
1093: p_Receipt.ExchangeRate,
1094: p_Amount, -- total of distributions reconciles to the applied amount
1095: p_AcctdAmount,
1096: AppToLineThisTime,

Line 1155: AcctdAmount := arpcurr.ReconcileAcctdAmounts( p_Receipt.ExchangeRate,

1151: AcctdAmount NUMBER;
1152: SurplusAmount NUMBER;
1153: BEGIN
1154: IF p_AppAmount.ChargesApplied <> 0 THEN
1155: AcctdAmount := arpcurr.ReconcileAcctdAmounts( p_Receipt.ExchangeRate,
1156: p_AppAmount.Amount,
1157: p_AppAmount.AcctdAmount,
1158: p_AppAmount.ChargesApplied,
1159: RunningTotalAmount,

Line 1166: AcctdAmount := arpcurr.ReconcileAcctdAmounts( p_Receipt.ExchangeRate,

1162: p_AppAmount.AmountAppFrom);
1163: END IF;
1164: --
1165: IF p_AppAmount.FreightApplied <> 0 THEN
1166: AcctdAmount := arpcurr.ReconcileAcctdAmounts( p_Receipt.ExchangeRate,
1167: p_AppAmount.Amount,
1168: p_AppAmount.AcctdAmount,
1169: p_AppAmount.FreightApplied,
1170: RunningTotalAmount,

Line 1177: AcctdAmount := arpcurr.ReconcileAcctdAmounts( p_Receipt.ExchangeRate,

1173: p_AppAmount.AmountAppFrom);
1174: END IF;
1175: --
1176: IF p_AppAmount.TaxApplied <> 0 THEN
1177: AcctdAmount := arpcurr.ReconcileAcctdAmounts( p_Receipt.ExchangeRate,
1178: p_AppAmount.Amount,
1179: p_AppAmount.AcctdAmount,
1180: p_AppAmount.TaxApplied,
1181: RunningTotalAmount,

Line 1188: AcctdAmount := arpcurr.ReconcileAcctdAmounts( p_Receipt.ExchangeRate,

1184: p_AppAmount.AmountAppFrom);
1185: END IF;
1186: --
1187: IF p_AppAmount.LineApplied <> 0 THEN
1188: AcctdAmount := arpcurr.ReconcileAcctdAmounts( p_Receipt.ExchangeRate,
1189: p_AppAmount.Amount,
1190: p_AppAmount.AcctdAmount,
1191: p_AppAmount.LineApplied,
1192: RunningTotalAmount,