25: | |
26: | SCOPE - PUBLIC |
27: | |
28: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED - |
29: | arpcurr.currround |
30: | |
31: | ARGUMENTS : IN: |
32: | p_adj_low_amt Autoadjust low amount |
33: | p_adj_high_amt Autoadjust high amount |
124: RETURN('N');
125:
126: ELSE
127:
128: l_adj_tax_low_amt := arpcurr.currround((p_tax_remaining/(l_base_remaining + p_tax_remaining))
129: * p_adj_low_amt, p_currency);
130:
131: l_adj_low_amt := p_adj_low_amt - l_adj_tax_low_amt;
132:
129: * p_adj_low_amt, p_currency);
130:
131: l_adj_low_amt := p_adj_low_amt - l_adj_tax_low_amt;
132:
133: l_adj_tax_high_amt := arpcurr.currround((p_tax_remaining/(l_base_remaining + p_tax_remaining))
134: * p_adj_high_amt, p_currency);
135:
136: l_adj_high_amt := p_adj_high_amt - l_adj_tax_high_amt;
137:
148: END IF;
149:
150: ELSIF ((p_tax_code_source = 'ACTIVITY') AND (p_type IN ('LINE','CHARGES'))) THEN
151:
152: l_cal_tax_remaining := arpcurr.currround(l_base_remaining * p_tax_rate/100, p_currency);
153:
154: IF ((l_base_remaining + l_cal_tax_remaining) = 0) THEN
155: RETURN('N');
156: END IF;
155: RETURN('N');
156: END IF;
157:
158: l_adj_tax_low_amt :=
159: arpcurr.currround(p_adj_low_amt *
160: l_cal_tax_remaining/(l_base_remaining + l_cal_tax_remaining ),
161: p_currency);
162:
163: l_adj_low_amt := p_adj_low_amt - l_adj_tax_low_amt;
162:
163: l_adj_low_amt := p_adj_low_amt - l_adj_tax_low_amt;
164:
165: l_adj_tax_high_amt :=
166: arpcurr.currround(p_adj_high_amt *
167: l_cal_tax_remaining/(l_base_remaining + l_cal_tax_remaining ),
168: p_currency);
169:
170: l_adj_high_amt := p_adj_high_amt - l_adj_tax_high_amt;
221: END IF;
222:
223: ELSIF ((p_tax_code_source = 'ACTIVITY') AND (p_type IN ('LINE','CHARGES'))) THEN
224:
225: l_cal_tax_remaining := arpcurr.currround(l_base_remaining * p_tax_rate/100, p_currency);
226:
227: IF (((l_base_remaining + l_cal_tax_remaining) = 0)
228: OR (l_base_original = 0)
229: OR (sign(p_tax_remaining - l_cal_tax_remaining) NOT IN (0,sign(p_tax_remaining)))