[Home] [Help]
116: -- No rule found in cache so we will load the next rule into memory
117:
118: select rule_source
119: into l_rule_source_lng
120: from ar_app_rule_sets
121: where rule_set_id = p_rule_set_id ;
122:
123: l_in_rule_start := 1;
124: -- The rule chunk defines the size of the pieces that we are taken out NOCOPY of
1077: | COMPILE_RULE () |
1078: | DESCRIPTION |
1079: | This procedure will create a long column that will be |
1080: | inserted into |
1081: | the ar_app_rule_sets table with the according rule |
1082: | This compilation makes it possible for the calc_applied_and_remaining |
1083: | procedure not to select multiple times from app_rule... tables |
1084: | |
1085: | This procedure should be called from the application rules set up form |
1200: | 03-11-97 -- Joan Zaman -- Created |
1201: | 07-SEP-99 J Rautiainen Bugfix for bug 973520 |
1202: +===========================================================================*/
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
1212: select rule_set_name
1213: from ar_app_rule_sets
1214: where rule_set_id = p_rule_set_id;
1215:
1216: cursor all_application_blocks is
1217: select rule_name, rule_id,rule_sequence
1695: AND (l_num_round_error <> 2)
1696: ) then
1697:
1698:
1699: update ar_app_rule_sets
1700: set rule_source = l_source
1701: , last_updated_by = fnd_global.user_id
1702: , last_update_date = sysdate
1703: , last_update_login = fnd_global.login_id