42: l_rule_set_id number;
43:
44: begin
45:
46: arp_util.debug('ARP_APP_CALC_PKG: GET_RULE_SET_ID()+');
47: select nvl(rule_set_id,nvl(arp_standard.sysparm.rule_set_id,-1))
48: into l_rule_set_id
49: from ra_cust_trx_types
50: where cust_trx_type_id = p_trx_type_id ;
53: fnd_message.set_name('AR','AR_NO_RULE_DEFINED');
54: app_exception.raise_exception;
55: end if;
56:
57: arp_util.debug('ARP_APP_CALC_PKG: GET_RULE_SET_ID()- Rule Set Id = '||to_char(l_rule_set_id));
58:
59: return(l_rule_set_id);
60:
61: EXCEPTION
59: return(l_rule_set_id);
60:
61: EXCEPTION
62: WHEN OTHERS THEN
63: arp_util.debug('EXCEPTION: ARP_APP_CALC_PKG.GET_RULE_SET_ID() - OTHERS'||SQLERRM);
64: RAISE;
65: end;
66:
67: /*===========================================================================+
102: for rules_in_cache in 1..j loop
103: if p_rule_set_id = rule_set_id_tab(rules_in_cache) then
104: g_rule_start := rule_start_tab(rules_in_cache);
105: g_rule_end := rule_end_tab(rules_in_cache);
106: arp_util.debug('ARP_APP_CALC_PKG.set_rule_set - Rules cached = '|| to_char(j));
107: arp_util.debug('ARP_APP_CALC_PKG.set_rule_set - Current rule-set-id = '|| to_char(p_rule_set_id));
108: arp_util.debug('ARP_APP_CALC_PKG.set_rule_set - Cached at index = '|| to_char(rules_in_cache));
109: arp_util.debug('ARP_APP_CALC_PKG.set_rule_set - Rule Start = '|| to_char(g_rule_start));
110: arp_util.debug('ARP_APP_CALC_PKG.set_rule_set - Rule End = '|| to_char(g_rule_end));
103: if p_rule_set_id = rule_set_id_tab(rules_in_cache) then
104: g_rule_start := rule_start_tab(rules_in_cache);
105: g_rule_end := rule_end_tab(rules_in_cache);
106: arp_util.debug('ARP_APP_CALC_PKG.set_rule_set - Rules cached = '|| to_char(j));
107: arp_util.debug('ARP_APP_CALC_PKG.set_rule_set - Current rule-set-id = '|| to_char(p_rule_set_id));
108: arp_util.debug('ARP_APP_CALC_PKG.set_rule_set - Cached at index = '|| to_char(rules_in_cache));
109: arp_util.debug('ARP_APP_CALC_PKG.set_rule_set - Rule Start = '|| to_char(g_rule_start));
110: arp_util.debug('ARP_APP_CALC_PKG.set_rule_set - Rule End = '|| to_char(g_rule_end));
111: end if;
104: g_rule_start := rule_start_tab(rules_in_cache);
105: g_rule_end := rule_end_tab(rules_in_cache);
106: arp_util.debug('ARP_APP_CALC_PKG.set_rule_set - Rules cached = '|| to_char(j));
107: arp_util.debug('ARP_APP_CALC_PKG.set_rule_set - Current rule-set-id = '|| to_char(p_rule_set_id));
108: arp_util.debug('ARP_APP_CALC_PKG.set_rule_set - Cached at index = '|| to_char(rules_in_cache));
109: arp_util.debug('ARP_APP_CALC_PKG.set_rule_set - Rule Start = '|| to_char(g_rule_start));
110: arp_util.debug('ARP_APP_CALC_PKG.set_rule_set - Rule End = '|| to_char(g_rule_end));
111: end if;
112: end loop;
105: g_rule_end := rule_end_tab(rules_in_cache);
106: arp_util.debug('ARP_APP_CALC_PKG.set_rule_set - Rules cached = '|| to_char(j));
107: arp_util.debug('ARP_APP_CALC_PKG.set_rule_set - Current rule-set-id = '|| to_char(p_rule_set_id));
108: arp_util.debug('ARP_APP_CALC_PKG.set_rule_set - Cached at index = '|| to_char(rules_in_cache));
109: arp_util.debug('ARP_APP_CALC_PKG.set_rule_set - Rule Start = '|| to_char(g_rule_start));
110: arp_util.debug('ARP_APP_CALC_PKG.set_rule_set - Rule End = '|| to_char(g_rule_end));
111: end if;
112: end loop;
113:
106: arp_util.debug('ARP_APP_CALC_PKG.set_rule_set - Rules cached = '|| to_char(j));
107: arp_util.debug('ARP_APP_CALC_PKG.set_rule_set - Current rule-set-id = '|| to_char(p_rule_set_id));
108: arp_util.debug('ARP_APP_CALC_PKG.set_rule_set - Cached at index = '|| to_char(rules_in_cache));
109: arp_util.debug('ARP_APP_CALC_PKG.set_rule_set - Rule Start = '|| to_char(g_rule_start));
110: arp_util.debug('ARP_APP_CALC_PKG.set_rule_set - Rule End = '|| to_char(g_rule_end));
111: end if;
112: end loop;
113:
114: if ((g_rule_start = 0) and ( g_rule_end = 0 )) then
139: end if;
140: g_rule_end := nvl(g_rule_start - 1
141: + CEIL( ( length (l_rule_source_lng) / l_rule_chunk ) ),1);
142:
143: arp_util.debug('ARP_APP_CALC_PKG: Rule Start = ' || to_char(g_rule_start));
144: arp_util.debug('ARP_APP_CALC_PKG: Rule End = ' || to_char(g_rule_end)) ;
145: arp_util.debug('ARP_APP_CALC_PKG: Rule length = ' || to_char(length(l_rule_source_lng))) ;
146: arp_util.debug('ARP_APP_CALC_PKG: l_in_rule_start = ' || to_char(l_in_rule_start));
147: arp_util.debug('ARP_APP_CALC_PKG: l_rule_chunk = ' || to_char(l_rule_chunk));
140: g_rule_end := nvl(g_rule_start - 1
141: + CEIL( ( length (l_rule_source_lng) / l_rule_chunk ) ),1);
142:
143: arp_util.debug('ARP_APP_CALC_PKG: Rule Start = ' || to_char(g_rule_start));
144: arp_util.debug('ARP_APP_CALC_PKG: Rule End = ' || to_char(g_rule_end)) ;
145: arp_util.debug('ARP_APP_CALC_PKG: Rule length = ' || to_char(length(l_rule_source_lng))) ;
146: arp_util.debug('ARP_APP_CALC_PKG: l_in_rule_start = ' || to_char(l_in_rule_start));
147: arp_util.debug('ARP_APP_CALC_PKG: l_rule_chunk = ' || to_char(l_rule_chunk));
148: arp_util.debug('ARP_APP_CALC_PKG: rule_set_id = ' || to_char(p_rule_set_id));
141: + CEIL( ( length (l_rule_source_lng) / l_rule_chunk ) ),1);
142:
143: arp_util.debug('ARP_APP_CALC_PKG: Rule Start = ' || to_char(g_rule_start));
144: arp_util.debug('ARP_APP_CALC_PKG: Rule End = ' || to_char(g_rule_end)) ;
145: arp_util.debug('ARP_APP_CALC_PKG: Rule length = ' || to_char(length(l_rule_source_lng))) ;
146: arp_util.debug('ARP_APP_CALC_PKG: l_in_rule_start = ' || to_char(l_in_rule_start));
147: arp_util.debug('ARP_APP_CALC_PKG: l_rule_chunk = ' || to_char(l_rule_chunk));
148: arp_util.debug('ARP_APP_CALC_PKG: rule_set_id = ' || to_char(p_rule_set_id));
149:
142:
143: arp_util.debug('ARP_APP_CALC_PKG: Rule Start = ' || to_char(g_rule_start));
144: arp_util.debug('ARP_APP_CALC_PKG: Rule End = ' || to_char(g_rule_end)) ;
145: arp_util.debug('ARP_APP_CALC_PKG: Rule length = ' || to_char(length(l_rule_source_lng))) ;
146: arp_util.debug('ARP_APP_CALC_PKG: l_in_rule_start = ' || to_char(l_in_rule_start));
147: arp_util.debug('ARP_APP_CALC_PKG: l_rule_chunk = ' || to_char(l_rule_chunk));
148: arp_util.debug('ARP_APP_CALC_PKG: rule_set_id = ' || to_char(p_rule_set_id));
149:
150: for i in g_rule_start..g_rule_end loop
143: arp_util.debug('ARP_APP_CALC_PKG: Rule Start = ' || to_char(g_rule_start));
144: arp_util.debug('ARP_APP_CALC_PKG: Rule End = ' || to_char(g_rule_end)) ;
145: arp_util.debug('ARP_APP_CALC_PKG: Rule length = ' || to_char(length(l_rule_source_lng))) ;
146: arp_util.debug('ARP_APP_CALC_PKG: l_in_rule_start = ' || to_char(l_in_rule_start));
147: arp_util.debug('ARP_APP_CALC_PKG: l_rule_chunk = ' || to_char(l_rule_chunk));
148: arp_util.debug('ARP_APP_CALC_PKG: rule_set_id = ' || to_char(p_rule_set_id));
149:
150: for i in g_rule_start..g_rule_end loop
151: g_rule_source(i) := substr(l_rule_source_lng,l_in_rule_start,l_rule_chunk);
144: arp_util.debug('ARP_APP_CALC_PKG: Rule End = ' || to_char(g_rule_end)) ;
145: arp_util.debug('ARP_APP_CALC_PKG: Rule length = ' || to_char(length(l_rule_source_lng))) ;
146: arp_util.debug('ARP_APP_CALC_PKG: l_in_rule_start = ' || to_char(l_in_rule_start));
147: arp_util.debug('ARP_APP_CALC_PKG: l_rule_chunk = ' || to_char(l_rule_chunk));
148: arp_util.debug('ARP_APP_CALC_PKG: rule_set_id = ' || to_char(p_rule_set_id));
149:
150: for i in g_rule_start..g_rule_end loop
151: g_rule_source(i) := substr(l_rule_source_lng,l_in_rule_start,l_rule_chunk);
152: l_in_rule_start := l_in_rule_start + l_rule_chunk ;
165: for i in g_rule_start..g_rule_end loop
166: l_test_source := g_rule_source(i) ;
167:
168: -- bug 2389772 : turn off display of source code
169: -- arp_util.debug(l_test_source);
170: end loop;
171:
172: end if;
173: EXCEPTION
171:
172: end if;
173: EXCEPTION
174: WHEN OTHERS THEN
175: arp_util.debug('EXCEPTION: ARP_APP_CALC_PKG.SET_RULE_SET()'||SQLERRM);
176: RAISE;
177: end;
178:
179:
292:
293: EXCEPTION
294: WHEN OTHERS THEN
295: IF PG_DEBUG in ('Y', 'C') THEN
296: arp_util.debug('EXCEPTION: ARP_APP_CALC_PKG.extract_taxes'||SQLERRM);
297: END IF;
298: RAISE;
299:
300: end extract_taxes;
463: dbms_sql.parse(cursor_name , g_rule_source , g_rule_start , g_rule_end ,
464: FALSE , dbms_sql.v7);
465:
466: IF PG_DEBUG in ('Y', 'C') THEN
467: arp_util.debug('calc_applied_and_remaining: ' || '(After Parse): dbms_sql bind variables: ');
468: arp_util.debug('calc_applied_and_remaining: ' || ':currency : '||currency);
469: arp_util.debug('calc_applied_and_remaining: ' || ':amt : '||to_char(amt));
470: arp_util.debug('calc_applied_and_remaining: ' || ':line_remaining : '||to_char(t_line_remaining));
471: arp_util.debug('calc_applied_and_remaining: ' || ':freight_remaining : '||to_char(t_freight_remaining));
464: FALSE , dbms_sql.v7);
465:
466: IF PG_DEBUG in ('Y', 'C') THEN
467: arp_util.debug('calc_applied_and_remaining: ' || '(After Parse): dbms_sql bind variables: ');
468: arp_util.debug('calc_applied_and_remaining: ' || ':currency : '||currency);
469: arp_util.debug('calc_applied_and_remaining: ' || ':amt : '||to_char(amt));
470: arp_util.debug('calc_applied_and_remaining: ' || ':line_remaining : '||to_char(t_line_remaining));
471: arp_util.debug('calc_applied_and_remaining: ' || ':freight_remaining : '||to_char(t_freight_remaining));
472: arp_util.debug('calc_applied_and_remaining: ' || ':charges_remaining : '||to_char(t_charges_remaining));
465:
466: IF PG_DEBUG in ('Y', 'C') THEN
467: arp_util.debug('calc_applied_and_remaining: ' || '(After Parse): dbms_sql bind variables: ');
468: arp_util.debug('calc_applied_and_remaining: ' || ':currency : '||currency);
469: arp_util.debug('calc_applied_and_remaining: ' || ':amt : '||to_char(amt));
470: arp_util.debug('calc_applied_and_remaining: ' || ':line_remaining : '||to_char(t_line_remaining));
471: arp_util.debug('calc_applied_and_remaining: ' || ':freight_remaining : '||to_char(t_freight_remaining));
472: arp_util.debug('calc_applied_and_remaining: ' || ':charges_remaining : '||to_char(t_charges_remaining));
473: arp_util.debug('calc_applied_and_remaining: ' || ':line_applied : '||to_char(t_line_applied));
466: IF PG_DEBUG in ('Y', 'C') THEN
467: arp_util.debug('calc_applied_and_remaining: ' || '(After Parse): dbms_sql bind variables: ');
468: arp_util.debug('calc_applied_and_remaining: ' || ':currency : '||currency);
469: arp_util.debug('calc_applied_and_remaining: ' || ':amt : '||to_char(amt));
470: arp_util.debug('calc_applied_and_remaining: ' || ':line_remaining : '||to_char(t_line_remaining));
471: arp_util.debug('calc_applied_and_remaining: ' || ':freight_remaining : '||to_char(t_freight_remaining));
472: arp_util.debug('calc_applied_and_remaining: ' || ':charges_remaining : '||to_char(t_charges_remaining));
473: arp_util.debug('calc_applied_and_remaining: ' || ':line_applied : '||to_char(t_line_applied));
474: arp_util.debug('calc_applied_and_remaining: ' || ':freight_applied : '||to_char(t_freight_applied));
467: arp_util.debug('calc_applied_and_remaining: ' || '(After Parse): dbms_sql bind variables: ');
468: arp_util.debug('calc_applied_and_remaining: ' || ':currency : '||currency);
469: arp_util.debug('calc_applied_and_remaining: ' || ':amt : '||to_char(amt));
470: arp_util.debug('calc_applied_and_remaining: ' || ':line_remaining : '||to_char(t_line_remaining));
471: arp_util.debug('calc_applied_and_remaining: ' || ':freight_remaining : '||to_char(t_freight_remaining));
472: arp_util.debug('calc_applied_and_remaining: ' || ':charges_remaining : '||to_char(t_charges_remaining));
473: arp_util.debug('calc_applied_and_remaining: ' || ':line_applied : '||to_char(t_line_applied));
474: arp_util.debug('calc_applied_and_remaining: ' || ':freight_applied : '||to_char(t_freight_applied));
475: arp_util.debug('calc_applied_and_remaining: ' || ':charges_applied : '||to_char(t_charges_applied));
468: arp_util.debug('calc_applied_and_remaining: ' || ':currency : '||currency);
469: arp_util.debug('calc_applied_and_remaining: ' || ':amt : '||to_char(amt));
470: arp_util.debug('calc_applied_and_remaining: ' || ':line_remaining : '||to_char(t_line_remaining));
471: arp_util.debug('calc_applied_and_remaining: ' || ':freight_remaining : '||to_char(t_freight_remaining));
472: arp_util.debug('calc_applied_and_remaining: ' || ':charges_remaining : '||to_char(t_charges_remaining));
473: arp_util.debug('calc_applied_and_remaining: ' || ':line_applied : '||to_char(t_line_applied));
474: arp_util.debug('calc_applied_and_remaining: ' || ':freight_applied : '||to_char(t_freight_applied));
475: arp_util.debug('calc_applied_and_remaining: ' || ':charges_applied : '||to_char(t_charges_applied));
476: arp_util.debug('calc_applied_and_remaining: ' || ':line_tax_treatment : '||l_line_tax_treatment);
469: arp_util.debug('calc_applied_and_remaining: ' || ':amt : '||to_char(amt));
470: arp_util.debug('calc_applied_and_remaining: ' || ':line_remaining : '||to_char(t_line_remaining));
471: arp_util.debug('calc_applied_and_remaining: ' || ':freight_remaining : '||to_char(t_freight_remaining));
472: arp_util.debug('calc_applied_and_remaining: ' || ':charges_remaining : '||to_char(t_charges_remaining));
473: arp_util.debug('calc_applied_and_remaining: ' || ':line_applied : '||to_char(t_line_applied));
474: arp_util.debug('calc_applied_and_remaining: ' || ':freight_applied : '||to_char(t_freight_applied));
475: arp_util.debug('calc_applied_and_remaining: ' || ':charges_applied : '||to_char(t_charges_applied));
476: arp_util.debug('calc_applied_and_remaining: ' || ':line_tax_treatment : '||l_line_tax_treatment);
477: arp_util.debug('calc_applied_and_remaining: ' || ':freight_tax_treatment : '||l_freight_tax_treatment);
470: arp_util.debug('calc_applied_and_remaining: ' || ':line_remaining : '||to_char(t_line_remaining));
471: arp_util.debug('calc_applied_and_remaining: ' || ':freight_remaining : '||to_char(t_freight_remaining));
472: arp_util.debug('calc_applied_and_remaining: ' || ':charges_remaining : '||to_char(t_charges_remaining));
473: arp_util.debug('calc_applied_and_remaining: ' || ':line_applied : '||to_char(t_line_applied));
474: arp_util.debug('calc_applied_and_remaining: ' || ':freight_applied : '||to_char(t_freight_applied));
475: arp_util.debug('calc_applied_and_remaining: ' || ':charges_applied : '||to_char(t_charges_applied));
476: arp_util.debug('calc_applied_and_remaining: ' || ':line_tax_treatment : '||l_line_tax_treatment);
477: arp_util.debug('calc_applied_and_remaining: ' || ':freight_tax_treatment : '||l_freight_tax_treatment);
478: arp_util.debug('calc_applied_and_remaining: ' || ':charges_tax_treatment : '||l_charges_tax_treatment);
471: arp_util.debug('calc_applied_and_remaining: ' || ':freight_remaining : '||to_char(t_freight_remaining));
472: arp_util.debug('calc_applied_and_remaining: ' || ':charges_remaining : '||to_char(t_charges_remaining));
473: arp_util.debug('calc_applied_and_remaining: ' || ':line_applied : '||to_char(t_line_applied));
474: arp_util.debug('calc_applied_and_remaining: ' || ':freight_applied : '||to_char(t_freight_applied));
475: arp_util.debug('calc_applied_and_remaining: ' || ':charges_applied : '||to_char(t_charges_applied));
476: arp_util.debug('calc_applied_and_remaining: ' || ':line_tax_treatment : '||l_line_tax_treatment);
477: arp_util.debug('calc_applied_and_remaining: ' || ':freight_tax_treatment : '||l_freight_tax_treatment);
478: arp_util.debug('calc_applied_and_remaining: ' || ':charges_tax_treatment : '||l_charges_tax_treatment);
479: arp_util.debug('calc_applied_and_remaining: ' || ':o_line_tax_treatment : '||o_line_tax_treatment);
472: arp_util.debug('calc_applied_and_remaining: ' || ':charges_remaining : '||to_char(t_charges_remaining));
473: arp_util.debug('calc_applied_and_remaining: ' || ':line_applied : '||to_char(t_line_applied));
474: arp_util.debug('calc_applied_and_remaining: ' || ':freight_applied : '||to_char(t_freight_applied));
475: arp_util.debug('calc_applied_and_remaining: ' || ':charges_applied : '||to_char(t_charges_applied));
476: arp_util.debug('calc_applied_and_remaining: ' || ':line_tax_treatment : '||l_line_tax_treatment);
477: arp_util.debug('calc_applied_and_remaining: ' || ':freight_tax_treatment : '||l_freight_tax_treatment);
478: arp_util.debug('calc_applied_and_remaining: ' || ':charges_tax_treatment : '||l_charges_tax_treatment);
479: arp_util.debug('calc_applied_and_remaining: ' || ':o_line_tax_treatment : '||o_line_tax_treatment);
480: arp_util.debug('calc_applied_and_remaining: ' || ':o_freight_tax_treatment : '||o_freight_tax_treatment);
473: arp_util.debug('calc_applied_and_remaining: ' || ':line_applied : '||to_char(t_line_applied));
474: arp_util.debug('calc_applied_and_remaining: ' || ':freight_applied : '||to_char(t_freight_applied));
475: arp_util.debug('calc_applied_and_remaining: ' || ':charges_applied : '||to_char(t_charges_applied));
476: arp_util.debug('calc_applied_and_remaining: ' || ':line_tax_treatment : '||l_line_tax_treatment);
477: arp_util.debug('calc_applied_and_remaining: ' || ':freight_tax_treatment : '||l_freight_tax_treatment);
478: arp_util.debug('calc_applied_and_remaining: ' || ':charges_tax_treatment : '||l_charges_tax_treatment);
479: arp_util.debug('calc_applied_and_remaining: ' || ':o_line_tax_treatment : '||o_line_tax_treatment);
480: arp_util.debug('calc_applied_and_remaining: ' || ':o_freight_tax_treatment : '||o_freight_tax_treatment);
481: arp_util.debug('calc_applied_and_remaining: ' || ':o_charges_tax_treatment : '||o_charges_tax_treatment);
474: arp_util.debug('calc_applied_and_remaining: ' || ':freight_applied : '||to_char(t_freight_applied));
475: arp_util.debug('calc_applied_and_remaining: ' || ':charges_applied : '||to_char(t_charges_applied));
476: arp_util.debug('calc_applied_and_remaining: ' || ':line_tax_treatment : '||l_line_tax_treatment);
477: arp_util.debug('calc_applied_and_remaining: ' || ':freight_tax_treatment : '||l_freight_tax_treatment);
478: arp_util.debug('calc_applied_and_remaining: ' || ':charges_tax_treatment : '||l_charges_tax_treatment);
479: arp_util.debug('calc_applied_and_remaining: ' || ':o_line_tax_treatment : '||o_line_tax_treatment);
480: arp_util.debug('calc_applied_and_remaining: ' || ':o_freight_tax_treatment : '||o_freight_tax_treatment);
481: arp_util.debug('calc_applied_and_remaining: ' || ':o_charges_tax_treatment : '||o_charges_tax_treatment);
482: END IF;
475: arp_util.debug('calc_applied_and_remaining: ' || ':charges_applied : '||to_char(t_charges_applied));
476: arp_util.debug('calc_applied_and_remaining: ' || ':line_tax_treatment : '||l_line_tax_treatment);
477: arp_util.debug('calc_applied_and_remaining: ' || ':freight_tax_treatment : '||l_freight_tax_treatment);
478: arp_util.debug('calc_applied_and_remaining: ' || ':charges_tax_treatment : '||l_charges_tax_treatment);
479: arp_util.debug('calc_applied_and_remaining: ' || ':o_line_tax_treatment : '||o_line_tax_treatment);
480: arp_util.debug('calc_applied_and_remaining: ' || ':o_freight_tax_treatment : '||o_freight_tax_treatment);
481: arp_util.debug('calc_applied_and_remaining: ' || ':o_charges_tax_treatment : '||o_charges_tax_treatment);
482: END IF;
483:
476: arp_util.debug('calc_applied_and_remaining: ' || ':line_tax_treatment : '||l_line_tax_treatment);
477: arp_util.debug('calc_applied_and_remaining: ' || ':freight_tax_treatment : '||l_freight_tax_treatment);
478: arp_util.debug('calc_applied_and_remaining: ' || ':charges_tax_treatment : '||l_charges_tax_treatment);
479: arp_util.debug('calc_applied_and_remaining: ' || ':o_line_tax_treatment : '||o_line_tax_treatment);
480: arp_util.debug('calc_applied_and_remaining: ' || ':o_freight_tax_treatment : '||o_freight_tax_treatment);
481: arp_util.debug('calc_applied_and_remaining: ' || ':o_charges_tax_treatment : '||o_charges_tax_treatment);
482: END IF;
483:
484: -- +ve values are passed here. It will not affect the applied amounts
477: arp_util.debug('calc_applied_and_remaining: ' || ':freight_tax_treatment : '||l_freight_tax_treatment);
478: arp_util.debug('calc_applied_and_remaining: ' || ':charges_tax_treatment : '||l_charges_tax_treatment);
479: arp_util.debug('calc_applied_and_remaining: ' || ':o_line_tax_treatment : '||o_line_tax_treatment);
480: arp_util.debug('calc_applied_and_remaining: ' || ':o_freight_tax_treatment : '||o_freight_tax_treatment);
481: arp_util.debug('calc_applied_and_remaining: ' || ':o_charges_tax_treatment : '||o_charges_tax_treatment);
482: END IF;
483:
484: -- +ve values are passed here. It will not affect the applied amounts
485: -- They will be converted back at the end of this procedure.
500: dbms_sql.bind_variable(cursor_name , ':o_charges_tax_treatment' ,o_charges_tax_treatment,30);
501:
502: rows_processed := dbms_sql.execute(cursor_name);
503: IF PG_DEBUG in ('Y', 'C') THEN
504: arp_util.debug('calc_applied_and_remaining: ' || 'After dbms_sql.execute: rows_processed = : '||to_char(rows_processed));
505: END IF;
506:
507: dbms_sql.variable_value(cursor_name , ':line_applied',r_line_applied );
508: dbms_sql.variable_value(cursor_name , ':freight_applied',r_freight_applied );
514: dbms_sql.variable_value(cursor_name , ':o_freight_tax_treatment' ,o_freight_tax_treatment);
515: dbms_sql.variable_value(cursor_name , ':o_charges_tax_treatment' ,o_charges_tax_treatment);
516:
517: IF PG_DEBUG in ('Y', 'C') THEN
518: arp_util.debug('calc_applied_and_remaining: ' || '(After Execute): dbms_sql variable values: ');
519: arp_util.debug('calc_applied_and_remaining: ' || ':currency : '||currency);
520: arp_util.debug('calc_applied_and_remaining: ' || ':line_applied : '||to_char(r_line_applied));
521: arp_util.debug('calc_applied_and_remaining: ' || ':freight_applied : '||to_char(r_freight_applied));
522: arp_util.debug('calc_applied_and_remaining: ' || ':charges_applied : '||to_char(r_charges_applied));
515: dbms_sql.variable_value(cursor_name , ':o_charges_tax_treatment' ,o_charges_tax_treatment);
516:
517: IF PG_DEBUG in ('Y', 'C') THEN
518: arp_util.debug('calc_applied_and_remaining: ' || '(After Execute): dbms_sql variable values: ');
519: arp_util.debug('calc_applied_and_remaining: ' || ':currency : '||currency);
520: arp_util.debug('calc_applied_and_remaining: ' || ':line_applied : '||to_char(r_line_applied));
521: arp_util.debug('calc_applied_and_remaining: ' || ':freight_applied : '||to_char(r_freight_applied));
522: arp_util.debug('calc_applied_and_remaining: ' || ':charges_applied : '||to_char(r_charges_applied));
523: arp_util.debug('calc_applied_and_remaining: ' || ':line_tax_treatment : '||l_line_tax_treatment);
516:
517: IF PG_DEBUG in ('Y', 'C') THEN
518: arp_util.debug('calc_applied_and_remaining: ' || '(After Execute): dbms_sql variable values: ');
519: arp_util.debug('calc_applied_and_remaining: ' || ':currency : '||currency);
520: arp_util.debug('calc_applied_and_remaining: ' || ':line_applied : '||to_char(r_line_applied));
521: arp_util.debug('calc_applied_and_remaining: ' || ':freight_applied : '||to_char(r_freight_applied));
522: arp_util.debug('calc_applied_and_remaining: ' || ':charges_applied : '||to_char(r_charges_applied));
523: arp_util.debug('calc_applied_and_remaining: ' || ':line_tax_treatment : '||l_line_tax_treatment);
524: arp_util.debug('calc_applied_and_remaining: ' || ':freight_tax_treatment : '||l_freight_tax_treatment);
517: IF PG_DEBUG in ('Y', 'C') THEN
518: arp_util.debug('calc_applied_and_remaining: ' || '(After Execute): dbms_sql variable values: ');
519: arp_util.debug('calc_applied_and_remaining: ' || ':currency : '||currency);
520: arp_util.debug('calc_applied_and_remaining: ' || ':line_applied : '||to_char(r_line_applied));
521: arp_util.debug('calc_applied_and_remaining: ' || ':freight_applied : '||to_char(r_freight_applied));
522: arp_util.debug('calc_applied_and_remaining: ' || ':charges_applied : '||to_char(r_charges_applied));
523: arp_util.debug('calc_applied_and_remaining: ' || ':line_tax_treatment : '||l_line_tax_treatment);
524: arp_util.debug('calc_applied_and_remaining: ' || ':freight_tax_treatment : '||l_freight_tax_treatment);
525: arp_util.debug('calc_applied_and_remaining: ' || ':charges_tax_treatment : '||l_charges_tax_treatment);
518: arp_util.debug('calc_applied_and_remaining: ' || '(After Execute): dbms_sql variable values: ');
519: arp_util.debug('calc_applied_and_remaining: ' || ':currency : '||currency);
520: arp_util.debug('calc_applied_and_remaining: ' || ':line_applied : '||to_char(r_line_applied));
521: arp_util.debug('calc_applied_and_remaining: ' || ':freight_applied : '||to_char(r_freight_applied));
522: arp_util.debug('calc_applied_and_remaining: ' || ':charges_applied : '||to_char(r_charges_applied));
523: arp_util.debug('calc_applied_and_remaining: ' || ':line_tax_treatment : '||l_line_tax_treatment);
524: arp_util.debug('calc_applied_and_remaining: ' || ':freight_tax_treatment : '||l_freight_tax_treatment);
525: arp_util.debug('calc_applied_and_remaining: ' || ':charges_tax_treatment : '||l_charges_tax_treatment);
526: arp_util.debug('calc_applied_and_remaining: ' || ':o_line_tax_treatment : '||o_line_tax_treatment);
519: arp_util.debug('calc_applied_and_remaining: ' || ':currency : '||currency);
520: arp_util.debug('calc_applied_and_remaining: ' || ':line_applied : '||to_char(r_line_applied));
521: arp_util.debug('calc_applied_and_remaining: ' || ':freight_applied : '||to_char(r_freight_applied));
522: arp_util.debug('calc_applied_and_remaining: ' || ':charges_applied : '||to_char(r_charges_applied));
523: arp_util.debug('calc_applied_and_remaining: ' || ':line_tax_treatment : '||l_line_tax_treatment);
524: arp_util.debug('calc_applied_and_remaining: ' || ':freight_tax_treatment : '||l_freight_tax_treatment);
525: arp_util.debug('calc_applied_and_remaining: ' || ':charges_tax_treatment : '||l_charges_tax_treatment);
526: arp_util.debug('calc_applied_and_remaining: ' || ':o_line_tax_treatment : '||o_line_tax_treatment);
527: arp_util.debug('calc_applied_and_remaining: ' || ':o_freight_tax_treatment : '||o_freight_tax_treatment);
520: arp_util.debug('calc_applied_and_remaining: ' || ':line_applied : '||to_char(r_line_applied));
521: arp_util.debug('calc_applied_and_remaining: ' || ':freight_applied : '||to_char(r_freight_applied));
522: arp_util.debug('calc_applied_and_remaining: ' || ':charges_applied : '||to_char(r_charges_applied));
523: arp_util.debug('calc_applied_and_remaining: ' || ':line_tax_treatment : '||l_line_tax_treatment);
524: arp_util.debug('calc_applied_and_remaining: ' || ':freight_tax_treatment : '||l_freight_tax_treatment);
525: arp_util.debug('calc_applied_and_remaining: ' || ':charges_tax_treatment : '||l_charges_tax_treatment);
526: arp_util.debug('calc_applied_and_remaining: ' || ':o_line_tax_treatment : '||o_line_tax_treatment);
527: arp_util.debug('calc_applied_and_remaining: ' || ':o_freight_tax_treatment : '||o_freight_tax_treatment);
528: arp_util.debug('calc_applied_and_remaining: ' || ':o_charges_tax_treatment : '||o_charges_tax_treatment);
521: arp_util.debug('calc_applied_and_remaining: ' || ':freight_applied : '||to_char(r_freight_applied));
522: arp_util.debug('calc_applied_and_remaining: ' || ':charges_applied : '||to_char(r_charges_applied));
523: arp_util.debug('calc_applied_and_remaining: ' || ':line_tax_treatment : '||l_line_tax_treatment);
524: arp_util.debug('calc_applied_and_remaining: ' || ':freight_tax_treatment : '||l_freight_tax_treatment);
525: arp_util.debug('calc_applied_and_remaining: ' || ':charges_tax_treatment : '||l_charges_tax_treatment);
526: arp_util.debug('calc_applied_and_remaining: ' || ':o_line_tax_treatment : '||o_line_tax_treatment);
527: arp_util.debug('calc_applied_and_remaining: ' || ':o_freight_tax_treatment : '||o_freight_tax_treatment);
528: arp_util.debug('calc_applied_and_remaining: ' || ':o_charges_tax_treatment : '||o_charges_tax_treatment);
529: END IF;
522: arp_util.debug('calc_applied_and_remaining: ' || ':charges_applied : '||to_char(r_charges_applied));
523: arp_util.debug('calc_applied_and_remaining: ' || ':line_tax_treatment : '||l_line_tax_treatment);
524: arp_util.debug('calc_applied_and_remaining: ' || ':freight_tax_treatment : '||l_freight_tax_treatment);
525: arp_util.debug('calc_applied_and_remaining: ' || ':charges_tax_treatment : '||l_charges_tax_treatment);
526: arp_util.debug('calc_applied_and_remaining: ' || ':o_line_tax_treatment : '||o_line_tax_treatment);
527: arp_util.debug('calc_applied_and_remaining: ' || ':o_freight_tax_treatment : '||o_freight_tax_treatment);
528: arp_util.debug('calc_applied_and_remaining: ' || ':o_charges_tax_treatment : '||o_charges_tax_treatment);
529: END IF;
530:
523: arp_util.debug('calc_applied_and_remaining: ' || ':line_tax_treatment : '||l_line_tax_treatment);
524: arp_util.debug('calc_applied_and_remaining: ' || ':freight_tax_treatment : '||l_freight_tax_treatment);
525: arp_util.debug('calc_applied_and_remaining: ' || ':charges_tax_treatment : '||l_charges_tax_treatment);
526: arp_util.debug('calc_applied_and_remaining: ' || ':o_line_tax_treatment : '||o_line_tax_treatment);
527: arp_util.debug('calc_applied_and_remaining: ' || ':o_freight_tax_treatment : '||o_freight_tax_treatment);
528: arp_util.debug('calc_applied_and_remaining: ' || ':o_charges_tax_treatment : '||o_charges_tax_treatment);
529: END IF;
530:
531: --
524: arp_util.debug('calc_applied_and_remaining: ' || ':freight_tax_treatment : '||l_freight_tax_treatment);
525: arp_util.debug('calc_applied_and_remaining: ' || ':charges_tax_treatment : '||l_charges_tax_treatment);
526: arp_util.debug('calc_applied_and_remaining: ' || ':o_line_tax_treatment : '||o_line_tax_treatment);
527: arp_util.debug('calc_applied_and_remaining: ' || ':o_freight_tax_treatment : '||o_freight_tax_treatment);
528: arp_util.debug('calc_applied_and_remaining: ' || ':o_charges_tax_treatment : '||o_charges_tax_treatment);
529: END IF;
530:
531: --
532: --Sometimes one could overapply on an invoice that has remaining amounts equal to zero.
630:
631: EXCEPTION
632: WHEN OTHERS THEN
633: IF PG_DEBUG in ('Y', 'C') THEN
634: arp_util.debug('EXCEPTION: ARP_APP_CALC_PKG.calc_applied_and_remaining()'||SQLERRM);
635: END IF;
636: RAISE;
637:
638:
927: *
928: * Temporarily zero out NOCOPY components with sign opposite to that of 'amt',
929: * so that 'amt' may be applied to the same-sign amounts first.
930: */
931: arp_util.debug('Treating invoice components that have mixed signs.');
932: arp_util.debug('p_amt = ' || to_char(p_amt));
933:
934: p_line_remaining := l_ms_use_line * p_line_remaining;
935: p_line_tax_remaining := l_ms_use_line_tax * p_line_tax_remaining;
928: * Temporarily zero out NOCOPY components with sign opposite to that of 'amt',
929: * so that 'amt' may be applied to the same-sign amounts first.
930: */
931: arp_util.debug('Treating invoice components that have mixed signs.');
932: arp_util.debug('p_amt = ' || to_char(p_amt));
933:
934: p_line_remaining := l_ms_use_line * p_line_remaining;
935: p_line_tax_remaining := l_ms_use_line_tax * p_line_tax_remaining;
936: p_freight_remaining := l_ms_use_freight * p_freight_remaining;
954: l_ms_applied_amt := l_ms_gross_remaining;
955: END IF;
956:
957:
958: arp_util.debug('1. call calc_applied_and_remaining with params : ');
959: arp_util.debug(' l_ms_applied_amt = ' || to_char(l_ms_applied_amt));
960: arp_util.debug(' p_rule_set_id = ' || to_char(p_rule_set_id));
961: arp_util.debug(' p_line_remaining = ' || to_char(p_line_remaining));
962: arp_util.debug(' p_line_tax_remaining = ' || to_char(p_line_tax_remaining));
955: END IF;
956:
957:
958: arp_util.debug('1. call calc_applied_and_remaining with params : ');
959: arp_util.debug(' l_ms_applied_amt = ' || to_char(l_ms_applied_amt));
960: arp_util.debug(' p_rule_set_id = ' || to_char(p_rule_set_id));
961: arp_util.debug(' p_line_remaining = ' || to_char(p_line_remaining));
962: arp_util.debug(' p_line_tax_remaining = ' || to_char(p_line_tax_remaining));
963: arp_util.debug(' p_freight_remaining = ' || to_char(p_freight_remaining));
956:
957:
958: arp_util.debug('1. call calc_applied_and_remaining with params : ');
959: arp_util.debug(' l_ms_applied_amt = ' || to_char(l_ms_applied_amt));
960: arp_util.debug(' p_rule_set_id = ' || to_char(p_rule_set_id));
961: arp_util.debug(' p_line_remaining = ' || to_char(p_line_remaining));
962: arp_util.debug(' p_line_tax_remaining = ' || to_char(p_line_tax_remaining));
963: arp_util.debug(' p_freight_remaining = ' || to_char(p_freight_remaining));
964: arp_util.debug(' l_freight_tax_remaining = ' || to_char(l_freight_tax_remaining));
957:
958: arp_util.debug('1. call calc_applied_and_remaining with params : ');
959: arp_util.debug(' l_ms_applied_amt = ' || to_char(l_ms_applied_amt));
960: arp_util.debug(' p_rule_set_id = ' || to_char(p_rule_set_id));
961: arp_util.debug(' p_line_remaining = ' || to_char(p_line_remaining));
962: arp_util.debug(' p_line_tax_remaining = ' || to_char(p_line_tax_remaining));
963: arp_util.debug(' p_freight_remaining = ' || to_char(p_freight_remaining));
964: arp_util.debug(' l_freight_tax_remaining = ' || to_char(l_freight_tax_remaining));
965: arp_util.debug(' p_charges_remaining = ' || to_char(p_charges_remaining));
958: arp_util.debug('1. call calc_applied_and_remaining with params : ');
959: arp_util.debug(' l_ms_applied_amt = ' || to_char(l_ms_applied_amt));
960: arp_util.debug(' p_rule_set_id = ' || to_char(p_rule_set_id));
961: arp_util.debug(' p_line_remaining = ' || to_char(p_line_remaining));
962: arp_util.debug(' p_line_tax_remaining = ' || to_char(p_line_tax_remaining));
963: arp_util.debug(' p_freight_remaining = ' || to_char(p_freight_remaining));
964: arp_util.debug(' l_freight_tax_remaining = ' || to_char(l_freight_tax_remaining));
965: arp_util.debug(' p_charges_remaining = ' || to_char(p_charges_remaining));
966: arp_util.debug(' l_charges_tax_remaining = ' || to_char(l_charges_tax_remaining));
959: arp_util.debug(' l_ms_applied_amt = ' || to_char(l_ms_applied_amt));
960: arp_util.debug(' p_rule_set_id = ' || to_char(p_rule_set_id));
961: arp_util.debug(' p_line_remaining = ' || to_char(p_line_remaining));
962: arp_util.debug(' p_line_tax_remaining = ' || to_char(p_line_tax_remaining));
963: arp_util.debug(' p_freight_remaining = ' || to_char(p_freight_remaining));
964: arp_util.debug(' l_freight_tax_remaining = ' || to_char(l_freight_tax_remaining));
965: arp_util.debug(' p_charges_remaining = ' || to_char(p_charges_remaining));
966: arp_util.debug(' l_charges_tax_remaining = ' || to_char(l_charges_tax_remaining));
967:
960: arp_util.debug(' p_rule_set_id = ' || to_char(p_rule_set_id));
961: arp_util.debug(' p_line_remaining = ' || to_char(p_line_remaining));
962: arp_util.debug(' p_line_tax_remaining = ' || to_char(p_line_tax_remaining));
963: arp_util.debug(' p_freight_remaining = ' || to_char(p_freight_remaining));
964: arp_util.debug(' l_freight_tax_remaining = ' || to_char(l_freight_tax_remaining));
965: arp_util.debug(' p_charges_remaining = ' || to_char(p_charges_remaining));
966: arp_util.debug(' l_charges_tax_remaining = ' || to_char(l_charges_tax_remaining));
967:
968: calc_applied_and_remaining ( l_ms_applied_amt
961: arp_util.debug(' p_line_remaining = ' || to_char(p_line_remaining));
962: arp_util.debug(' p_line_tax_remaining = ' || to_char(p_line_tax_remaining));
963: arp_util.debug(' p_freight_remaining = ' || to_char(p_freight_remaining));
964: arp_util.debug(' l_freight_tax_remaining = ' || to_char(l_freight_tax_remaining));
965: arp_util.debug(' p_charges_remaining = ' || to_char(p_charges_remaining));
966: arp_util.debug(' l_charges_tax_remaining = ' || to_char(l_charges_tax_remaining));
967:
968: calc_applied_and_remaining ( l_ms_applied_amt
969: ,p_rule_set_id
962: arp_util.debug(' p_line_tax_remaining = ' || to_char(p_line_tax_remaining));
963: arp_util.debug(' p_freight_remaining = ' || to_char(p_freight_remaining));
964: arp_util.debug(' l_freight_tax_remaining = ' || to_char(l_freight_tax_remaining));
965: arp_util.debug(' p_charges_remaining = ' || to_char(p_charges_remaining));
966: arp_util.debug(' l_charges_tax_remaining = ' || to_char(l_charges_tax_remaining));
967:
968: calc_applied_and_remaining ( l_ms_applied_amt
969: ,p_rule_set_id
970: ,p_currency
1026: /*
1027: * Still some amt left. Apply as usual.
1028: */
1029:
1030: arp_util.debug('Treating invoice components that have the same sign.');
1031:
1032: arp_util.debug('2. call calc_applied_and_remaining with params : ');
1033: arp_util.debug(' l_amt_remaining = ' || to_char(l_amt_remaining));
1034: arp_util.debug(' p_rule_set_id = ' || to_char(p_rule_set_id));
1028: */
1029:
1030: arp_util.debug('Treating invoice components that have the same sign.');
1031:
1032: arp_util.debug('2. call calc_applied_and_remaining with params : ');
1033: arp_util.debug(' l_amt_remaining = ' || to_char(l_amt_remaining));
1034: arp_util.debug(' p_rule_set_id = ' || to_char(p_rule_set_id));
1035: arp_util.debug(' p_line_remaining = ' || to_char(p_line_remaining));
1036: arp_util.debug(' p_line_tax_remaining = ' || to_char(p_line_tax_remaining));
1029:
1030: arp_util.debug('Treating invoice components that have the same sign.');
1031:
1032: arp_util.debug('2. call calc_applied_and_remaining with params : ');
1033: arp_util.debug(' l_amt_remaining = ' || to_char(l_amt_remaining));
1034: arp_util.debug(' p_rule_set_id = ' || to_char(p_rule_set_id));
1035: arp_util.debug(' p_line_remaining = ' || to_char(p_line_remaining));
1036: arp_util.debug(' p_line_tax_remaining = ' || to_char(p_line_tax_remaining));
1037: arp_util.debug(' p_freight_remaining = ' || to_char(p_freight_remaining));
1030: arp_util.debug('Treating invoice components that have the same sign.');
1031:
1032: arp_util.debug('2. call calc_applied_and_remaining with params : ');
1033: arp_util.debug(' l_amt_remaining = ' || to_char(l_amt_remaining));
1034: arp_util.debug(' p_rule_set_id = ' || to_char(p_rule_set_id));
1035: arp_util.debug(' p_line_remaining = ' || to_char(p_line_remaining));
1036: arp_util.debug(' p_line_tax_remaining = ' || to_char(p_line_tax_remaining));
1037: arp_util.debug(' p_freight_remaining = ' || to_char(p_freight_remaining));
1038: arp_util.debug(' l_freight_tax_remaining = ' || to_char(l_freight_tax_remaining));
1031:
1032: arp_util.debug('2. call calc_applied_and_remaining with params : ');
1033: arp_util.debug(' l_amt_remaining = ' || to_char(l_amt_remaining));
1034: arp_util.debug(' p_rule_set_id = ' || to_char(p_rule_set_id));
1035: arp_util.debug(' p_line_remaining = ' || to_char(p_line_remaining));
1036: arp_util.debug(' p_line_tax_remaining = ' || to_char(p_line_tax_remaining));
1037: arp_util.debug(' p_freight_remaining = ' || to_char(p_freight_remaining));
1038: arp_util.debug(' l_freight_tax_remaining = ' || to_char(l_freight_tax_remaining));
1039: arp_util.debug(' p_charges_remaining = ' || to_char(p_charges_remaining));
1032: arp_util.debug('2. call calc_applied_and_remaining with params : ');
1033: arp_util.debug(' l_amt_remaining = ' || to_char(l_amt_remaining));
1034: arp_util.debug(' p_rule_set_id = ' || to_char(p_rule_set_id));
1035: arp_util.debug(' p_line_remaining = ' || to_char(p_line_remaining));
1036: arp_util.debug(' p_line_tax_remaining = ' || to_char(p_line_tax_remaining));
1037: arp_util.debug(' p_freight_remaining = ' || to_char(p_freight_remaining));
1038: arp_util.debug(' l_freight_tax_remaining = ' || to_char(l_freight_tax_remaining));
1039: arp_util.debug(' p_charges_remaining = ' || to_char(p_charges_remaining));
1040: arp_util.debug(' l_charges_tax_remaining = ' || to_char(l_charges_tax_remaining));
1033: arp_util.debug(' l_amt_remaining = ' || to_char(l_amt_remaining));
1034: arp_util.debug(' p_rule_set_id = ' || to_char(p_rule_set_id));
1035: arp_util.debug(' p_line_remaining = ' || to_char(p_line_remaining));
1036: arp_util.debug(' p_line_tax_remaining = ' || to_char(p_line_tax_remaining));
1037: arp_util.debug(' p_freight_remaining = ' || to_char(p_freight_remaining));
1038: arp_util.debug(' l_freight_tax_remaining = ' || to_char(l_freight_tax_remaining));
1039: arp_util.debug(' p_charges_remaining = ' || to_char(p_charges_remaining));
1040: arp_util.debug(' l_charges_tax_remaining = ' || to_char(l_charges_tax_remaining));
1041:
1034: arp_util.debug(' p_rule_set_id = ' || to_char(p_rule_set_id));
1035: arp_util.debug(' p_line_remaining = ' || to_char(p_line_remaining));
1036: arp_util.debug(' p_line_tax_remaining = ' || to_char(p_line_tax_remaining));
1037: arp_util.debug(' p_freight_remaining = ' || to_char(p_freight_remaining));
1038: arp_util.debug(' l_freight_tax_remaining = ' || to_char(l_freight_tax_remaining));
1039: arp_util.debug(' p_charges_remaining = ' || to_char(p_charges_remaining));
1040: arp_util.debug(' l_charges_tax_remaining = ' || to_char(l_charges_tax_remaining));
1041:
1042: calc_applied_and_remaining ( l_amt_remaining
1035: arp_util.debug(' p_line_remaining = ' || to_char(p_line_remaining));
1036: arp_util.debug(' p_line_tax_remaining = ' || to_char(p_line_tax_remaining));
1037: arp_util.debug(' p_freight_remaining = ' || to_char(p_freight_remaining));
1038: arp_util.debug(' l_freight_tax_remaining = ' || to_char(l_freight_tax_remaining));
1039: arp_util.debug(' p_charges_remaining = ' || to_char(p_charges_remaining));
1040: arp_util.debug(' l_charges_tax_remaining = ' || to_char(l_charges_tax_remaining));
1041:
1042: calc_applied_and_remaining ( l_amt_remaining
1043: ,p_rule_set_id
1036: arp_util.debug(' p_line_tax_remaining = ' || to_char(p_line_tax_remaining));
1037: arp_util.debug(' p_freight_remaining = ' || to_char(p_freight_remaining));
1038: arp_util.debug(' l_freight_tax_remaining = ' || to_char(l_freight_tax_remaining));
1039: arp_util.debug(' p_charges_remaining = ' || to_char(p_charges_remaining));
1040: arp_util.debug(' l_charges_tax_remaining = ' || to_char(l_charges_tax_remaining));
1041:
1042: calc_applied_and_remaining ( l_amt_remaining
1043: ,p_rule_set_id
1044: ,p_currency
1075: arp_standard.debug('calc_applied_and_remaining() Wrapper -');
1076:
1077: EXCEPTION
1078: WHEN OTHERS THEN
1079: arp_util.debug('EXCEPTION: ARP_APP_CALC_PKG.calc_applied_and_remaining: Wrapper: '||SQLERRM);
1080: RAISE;
1081:
1082: END;
1083:
1293:
1294: begin
1295:
1296: IF PG_DEBUG in ('Y', 'C') THEN
1297: arp_util.debug('ARP_APP_CALC_PKG.COMPILE_RULE()+');
1298: END IF;
1299:
1300: for rulerec in rules loop
1301: l_doc_source := '/* Rule Set Name : ' || rulerec.rule_set_name ||'
1720:
1721: end if;
1722:
1723: IF PG_DEBUG in ('Y', 'C') THEN
1724: arp_util.debug('ARP_APP_CALC_PKG.COMPILE_RULE()-');
1725: END IF;
1726:
1727: EXCEPTION
1728: WHEN OTHERS THEN
1726:
1727: EXCEPTION
1728: WHEN OTHERS THEN
1729: IF PG_DEBUG in ('Y', 'C') THEN
1730: arp_util.debug('EXCEPTION: ARP_APP_CALC_PKG.compile_rule'||SQLERRM);
1731: END IF;
1732: RAISE;
1733:
1734: end COMPILE_RULE;