The following lines contain the word 'select', 'insert', 'update' or 'delete':
| line_post_insert |
| |
| DESCRIPTION |
| Line post-insert logic for debit memo reversals. |
| |
| This procedure creates two distribution records that correspond to the |
| two sets of ccid / amount pairs that are passed in as parameters. |
| |
| SCOPE - PUBLIC |
| |
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
| arp_util.debug |
| |
| ARGUMENTS : IN: |
| p_customer_trx_line_id |
| p_ccid1 |
| p_ccid2 |
| p_amount1 |
| p_amount2 |
| OUT: |
| RETURNS : NONE |
| |
| NOTES |
| |
| MODIFICATION HISTORY |
| 06-AUG-95 Charlie Tomberg Created |
| 19-OCT-01 Muthuraman. R Bugfix 2061395. Ora 1476 divide by zero|
| occurs when receipt amount is zero. |
| This was because of percentage |
| calculation using zero. Handled in code|
| now so that it becomes 100 if Amt is 0.|
| |
+===========================================================================*/
PROCEDURE line_post_insert (
p_customer_trx_line_id IN
ra_customer_trx_lines.customer_trx_line_id%type,
p_ccid1 IN
gl_code_combinations.code_combination_id%type,
p_ccid2 IN
gl_code_combinations.code_combination_id%type,
p_amount1 IN
ra_cust_trx_line_gl_dist.amount%type,
p_amount2 IN
ra_cust_trx_line_gl_dist.amount%type )
IS
l_dist_rec ra_cust_trx_line_gl_dist%rowtype;
arp_util.debug('arp_process_debit_memo.line_post_insert()+');
SELECT ct.customer_trx_id,
ct.exchange_rate,
lgd.gl_date,
ctl.extended_amount
INTO l_customer_trx_id,
l_exchange_rate,
l_gl_date,
l_extended_amount
FROM ra_customer_trx ct,
ra_cust_trx_line_gl_dist lgd,
ra_customer_trx_lines ctl
WHERE ctl.customer_trx_line_id = p_customer_trx_line_id
AND ctl.customer_trx_id = ct.customer_trx_id
AND ctl.customer_trx_id = lgd.customer_trx_id
AND lgd.account_class = 'REC'
AND lgd.latest_rec_flag = 'Y';
arp_util.debug('invalid parameters specified for line_post_insert()');
'arp_process_debit_memo.line_post_insert()');
| Insert distribution number one |
+----------------------------------*/
arp_ctlgd_pkg.insert_p(
l_dist_rec,
l_cust_trx_line_gl_dist_id,
l_exchange_rate,
arp_trx_global.system_info.base_currency,
arp_trx_global.system_info.base_precision,
arp_trx_global.system_info.base_min_acc_unit
);
| Insert distribution number two |
+----------------------------------*/
arp_ctlgd_pkg.insert_p(
l_dist_rec,
l_cust_trx_line_gl_dist_id,
l_exchange_rate,
arp_trx_global.system_info.base_currency,
arp_trx_global.system_info.base_precision,
arp_trx_global.system_info.base_min_acc_unit
);
arp_util.debug('arp_process_debit_memo.line_post_insert()-');
arp_util.debug('EXCEPTION: arp_process_debit_memo.line_post_insert()');
'Parameters for arp_process_debit_memo.line_post_insert() ' ||
'---------- ');