APPS.ARP_APP_CALC_PKG dependencies on ARPCURR

Line 240: l_tax_applied := arpcurr.currround((tax_remaining*amt/(tax_remaining+line_remaining)),currency);

236: END IF;
237:
238: if tax_treatment = 'PRORATE' then
239: if ((tax_remaining+line_remaining) <> 0) then
240: l_tax_applied := arpcurr.currround((tax_remaining*amt/(tax_remaining+line_remaining)),currency);
241: end if;
242: line_applied := amt - l_tax_applied;
243: IF PG_DEBUG in ('Y', 'C') THEN
244: arp_standard.debug('extract_taxes: ' || '.. PRORATE : line_applied = ' || to_char(line_applied));

Line 271: l_tax_applied := arpcurr.currround((tax_remaining*amt/(tax_remaining+line_remaining)),currency);

267: end if;
268: else
269: if o_tax_treatment = 'PRORATE' then
270: if ((tax_remaining+line_remaining) <> 0) then
271: l_tax_applied := arpcurr.currround((tax_remaining*amt/(tax_remaining+line_remaining)),currency);
272: end if;
273: line_applied := amt - l_tax_applied;
274: elsif o_tax_treatment = 'BEFORE' then
275: line_applied := line_remaining ;

Line 1135: | l_freight_applied := arpcurr.currround((l_amt * l_freight_remaining /

1131: | l_gross_remaining := l_line_remaining + l_freight_remaining + l_charges_rema
1132: | ining ;
1133: | if (l_amt > 0) and (l_amt < l_gross_remaining) then
1134: |
1135: | l_freight_applied := arpcurr.currround((l_amt * l_freight_remaining /
1136: | l_gross_remaining),:currency) ;
1137: |
1138: | l_charges_applied := arpcurr.currround((l_amt * l_charges_remaining /
1139: | l_gross_remaining),:currency) ;

Line 1138: | l_charges_applied := arpcurr.currround((l_amt * l_charges_remaining /

1134: |
1135: | l_freight_applied := arpcurr.currround((l_amt * l_freight_remaining /
1136: | l_gross_remaining),:currency) ;
1137: |
1138: | l_charges_applied := arpcurr.currround((l_amt * l_charges_remaining /
1139: | l_gross_remaining),:currency) ;
1140: |
1141: | l_line_applied := l_amt - l_freight_applied - l_charges_applied ;
1142: |

Line 1173: | l_freight_applied := l_freight_applied + arpcurr.currround((l_amt * l

1169: | l_amt := l_amt - l_charges_remaining ;
1170: |
1171: | end loop;
1172: |
1173: | l_freight_applied := l_freight_applied + arpcurr.currround((l_amt * l
1174: | _freight_remaining / l_gross_remaining),:currency) ;
1175: |
1176: | l_charges_applied := l_charges_applied + arpcurr.currround((l_amt * l_
1177: | charges_remaining / l_gross_remaining),:currency) ;

Line 1176: | l_charges_applied := l_charges_applied + arpcurr.currround((l_amt * l_

1172: |
1173: | l_freight_applied := l_freight_applied + arpcurr.currround((l_amt * l
1174: | _freight_remaining / l_gross_remaining),:currency) ;
1175: |
1176: | l_charges_applied := l_charges_applied + arpcurr.currround((l_amt * l_
1177: | charges_remaining / l_gross_remaining),:currency) ;
1178: |
1179: | l_line_applied := l_line_applied + l_amt - arpcurr.currround((l_amt *
1180: | l_freight_remaining / l_gross_remaining),:currency) - arpcurr.currround((l_amt

Line 1179: | l_line_applied := l_line_applied + l_amt - arpcurr.currround((l_amt *

1175: |
1176: | l_charges_applied := l_charges_applied + arpcurr.currround((l_amt * l_
1177: | charges_remaining / l_gross_remaining),:currency) ;
1178: |
1179: | l_line_applied := l_line_applied + l_amt - arpcurr.currround((l_amt *
1180: | l_freight_remaining / l_gross_remaining),:currency) - arpcurr.currround((l_amt
1181: | * l_charges_remaining / l_gross_remaining),:currency) ;
1182: |
1183: | l_amt := 0 ;

Line 1180: | l_freight_remaining / l_gross_remaining),:currency) - arpcurr.currround((l_amt

1176: | l_charges_applied := l_charges_applied + arpcurr.currround((l_amt * l_
1177: | charges_remaining / l_gross_remaining),:currency) ;
1178: |
1179: | l_line_applied := l_line_applied + l_amt - arpcurr.currround((l_amt *
1180: | l_freight_remaining / l_gross_remaining),:currency) - arpcurr.currround((l_amt
1181: | * l_charges_remaining / l_gross_remaining),:currency) ;
1182: |
1183: | l_amt := 0 ;
1184: |

Line 1207: prorate_line_gross varchar2(100) :='arpcurr.currround((l_amt * l_line_remaining / l_gross_remaining),:currency) ';

1203:
1204: procedure COMPILE_RULE ( p_rule_set_id in ar_app_rule_sets.rule_set_id%TYPE) is
1205:
1206:
1207: prorate_line_gross varchar2(100) :='arpcurr.currround((l_amt * l_line_remaining / l_gross_remaining),:currency) ';
1208: prorate_freight_gross varchar2(100) :='arpcurr.currround((l_amt * l_freight_remaining / l_gross_remaining),:currency) ';
1209: prorate_charges_gross varchar2(100) :='arpcurr.currround((l_amt * l_charges_remaining / l_gross_remaining),:currency) ';
1210:
1211: cursor rules is

Line 1208: prorate_freight_gross varchar2(100) :='arpcurr.currround((l_amt * l_freight_remaining / l_gross_remaining),:currency) ';

1204: procedure COMPILE_RULE ( p_rule_set_id in ar_app_rule_sets.rule_set_id%TYPE) is
1205:
1206:
1207: prorate_line_gross varchar2(100) :='arpcurr.currround((l_amt * l_line_remaining / l_gross_remaining),:currency) ';
1208: prorate_freight_gross varchar2(100) :='arpcurr.currround((l_amt * l_freight_remaining / l_gross_remaining),:currency) ';
1209: prorate_charges_gross varchar2(100) :='arpcurr.currround((l_amt * l_charges_remaining / l_gross_remaining),:currency) ';
1210:
1211: cursor rules is
1212: select rule_set_name

Line 1209: prorate_charges_gross varchar2(100) :='arpcurr.currround((l_amt * l_charges_remaining / l_gross_remaining),:currency) ';

1205:
1206:
1207: prorate_line_gross varchar2(100) :='arpcurr.currround((l_amt * l_line_remaining / l_gross_remaining),:currency) ';
1208: prorate_freight_gross varchar2(100) :='arpcurr.currround((l_amt * l_freight_remaining / l_gross_remaining),:currency) ';
1209: prorate_charges_gross varchar2(100) :='arpcurr.currround((l_amt * l_charges_remaining / l_gross_remaining),:currency) ';
1210:
1211: cursor rules is
1212: select rule_set_name
1213: from ar_app_rule_sets