APPS.ARP_CASH_BASIS_JE_REPORT dependencies on ARPCURR

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

438: FOR GlDistRecord IN gl_dist_cursor( l_customer_trx_id, p_type ) LOOP
439: IF l_FirstInstallmentFlag = 'Y' AND l_FirstInstallmentCode = 'INCLUDE' AND p_Type IN ('TAX','FREIGHT') THEN
440: l_Amount := GlDistRecord.Amount;
441: ELSE
442: l_Amount := arpcurr.CurrRound( GlDistRecord.amount * l_term_fraction, l_currency_code );
443: END IF;
444: Amount( l_NextElement ) := l_Amount;
445: Source( l_NextElement ) := 'GL';
446: SourceId( l_NextElement ) := GlDistRecord.cust_trx_line_gl_dist_id;

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

1000: IF CRD_TotalAmount = 0
1001: THEN
1002: NewAppToLine := 0;
1003: ELSE
1004: NewAppToLine := arpcurr.CurrRound( CRD_Amount( CRD_i ) * GrandTotalApplied/
1005: CRD_TotalAmount, p_Receipt.CurrencyCode );
1006: END IF;
1007: END IF;
1008: RunningNewAppToLine := RunningNewAppToLine + NewAppToLine;

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

1024: -- amount to apply this time is equal to what the total amount should
1025: -- be, because there is not an existing appliation to the line
1026: AppToLineThisTime := NewAppToLine;
1027: END IF;
1028: AcctdAppToLineThisTime := arpcurr.ReconcileAcctdAmounts( p_Receipt.ExchangeRate,
1029: p_Amount, -- total of distributions reconciles to the applied amount
1030: p_AcctdAmount,
1031: AppToLineThisTime,
1032: RunningAppToLineThisTime,

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

1058: THEN
1059: NewAppToLine := GrandTotalApplied - RunningNewAppToLine;
1060: RunningNewAppToLine := RunningNewAppToLine + NewAppToLine;
1061: AppToLineThisTime := NewAppToLine - CBD_TotalUnallocatedAmt;
1062: AcctdAppToLineThisTime := arpcurr.ReconcileAcctdAmounts( p_Receipt.ExchangeRate,
1063: p_Amount, -- total of distributions reconciles to the applied amount
1064: p_AcctdAmount,
1065: AppToLineThisTime,
1066: RunningAppToLineThisTime,

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

1120: AcctdAmount NUMBER;
1121: SurplusAmount NUMBER;
1122: BEGIN
1123: IF p_AppAmount.ChargesApplied <> 0 THEN
1124: AcctdAmount := arpcurr.ReconcileAcctdAmounts( p_Receipt.ExchangeRate,
1125: p_AppAmount.Amount,
1126: p_AppAmount.AcctdAmount,
1127: p_AppAmount.ChargesApplied,
1128: RunningTotalAmount,

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

1130: DistributeApplicationType( p_Report, p_Receipt, p_Trx, p_App, 'CHARGES', p_AppAmount.ChargesApplied, AcctdAmount );
1131: END IF;
1132: --
1133: IF p_AppAmount.FreightApplied <> 0 THEN
1134: AcctdAmount := arpcurr.ReconcileAcctdAmounts( p_Receipt.ExchangeRate,
1135: p_AppAmount.Amount,
1136: p_AppAmount.AcctdAmount,
1137: p_AppAmount.FreightApplied,
1138: RunningTotalAmount,

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

1140: DistributeApplicationType( p_Report, p_Receipt, p_Trx, p_App, 'FREIGHT', p_AppAmount.FreightApplied, AcctdAmount );
1141: END IF;
1142: --
1143: IF p_AppAmount.TaxApplied <> 0 THEN
1144: AcctdAmount := arpcurr.ReconcileAcctdAmounts( p_Receipt.ExchangeRate,
1145: p_AppAmount.Amount,
1146: p_AppAmount.AcctdAmount,
1147: p_AppAmount.TaxApplied,
1148: RunningTotalAmount,

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

1150: DistributeApplicationType( p_Report, p_Receipt,p_Trx, p_App, 'TAX', p_AppAmount.TaxApplied, AcctdAmount );
1151: END IF;
1152: --
1153: IF p_AppAmount.LineApplied <> 0 THEN
1154: AcctdAmount := arpcurr.ReconcileAcctdAmounts( p_Receipt.ExchangeRate,
1155: p_AppAmount.Amount,
1156: p_AppAmount.AcctdAmount,
1157: p_AppAmount.LineApplied,
1158: RunningTotalAmount,

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

1169: IF SurplusAmount <> 0 THEN
1170: arp_standard.debug( 'DistributeLTFApplication' );
1171: arp_standard.debug( 'LTF Charges doesn''t equal application amount for ra_id:'||p_App.ReceivableApplicationId );
1172: arp_standard.debug( '----------------------------------------' );
1173: AcctdAmount := arpcurr.ReconcileAcctdAmounts( p_Receipt.ExchangeRate,
1174: p_AppAmount.Amount,
1175: p_AppAmount.AcctdAmount,
1176: SurplusAmount,
1177: RunningTotalAmount,