The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT count(*)
INTO l_frt_count
FROM ra_customer_trx_lines ctl
WHERE ctl.customer_trx_id = p_frt_rec.customer_trx_id
AND ctl.line_type = 'FREIGHT'
AND (
(
ctl.link_to_cust_trx_line_id is null /* HEADER freight */
)
OR
(
ctl.link_to_cust_trx_line_id = p_frt_rec.link_to_cust_trx_line_id
/* freight for the same LINE */
)
OR
(
p_frt_rec.link_to_cust_trx_line_id is null
/* LINE freight exits, and */
/* trying to insert HEADER */
/* freight */
)
);
| validate_insert_freight |
| |
| DESCRIPTION |
| Validates row that is going to be inserted into ra_customer_trx_lines |
| |
| SCOPE - PRIVATE |
| |
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
| arp_util.debug |
| |
| ARGUMENTS : IN: |
| p_frt_rec |
| OUT: |
| IN/ OUT: |
| |
| RETURNS : NONE |
| |
| NOTES |
| |
| MODIFICATION HISTORY |
| 12-JUL-95 Subash Chadalavada Created |
| |
+===========================================================================*/
PROCEDURE validate_insert_freight(
p_frt_rec IN ra_customer_trx_lines%rowtype)
IS
BEGIN
arp_util.debug('arp_process_freight.validate_insert_freight()+');
arp_util.debug('arp_process_freight.validate_insert_freight()-');
arp_util.debug('EXCEPTION: arp_process_freight.validate_insert_freight()');
| validate_update_freight |
| |
| DESCRIPTION |
| Validation for the freight line that is being updated |
| |
| SCOPE - PRIVATE |
| |
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
| arp_util.debug |
| |
| ARGUMENTS : IN: |
| p_frt_rec |
| OUT: |
| IN/ OUT: |
| |
| RETURNS : NONE |
| |
| NOTES |
| |
| MODIFICATION HISTORY |
| 12-JUL-95 Subash Chadalavada Created |
| |
+===========================================================================*/
PROCEDURE validate_update_freight(
p_frt_rec IN ra_customer_trx_lines%rowtype)
IS
BEGIN
arp_util.debug('arp_process_freight.validate_update_freight()+');
arp_util.debug('arp_process_freight.validate_update_freight()-');
arp_util.debug('EXCEPTION: arp_process_freight.validate_update_freight()');
| validate_delete_freight |
| |
| DESCRIPTION |
| Validation for the freight line that is being deleted |
| |
| SCOPE - PRIVATE |
| |
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
| arp_util.debug |
| |
| ARGUMENTS : IN: |
| p_customer_trx_id |
| p_customer_trx_line_id |
| p_complete_flag |
| OUT: |
| IN/ OUT: |
| |
| RETURNS : NONE |
| |
| NOTES |
| |
| MODIFICATION HISTORY |
| 12-JUL-95 Subash Chadalavada Created |
| |
+===========================================================================*/
PROCEDURE validate_delete_freight(
p_customer_trx_id IN ra_customer_trx.customer_trx_id%type,
p_customer_trx_line_id IN ra_customer_trx_lines.customer_trx_line_id%type,
p_complete_flag IN ra_customer_trx.complete_flag%type
)
IS
BEGIN
arp_util.debug('arp_process_freight.validate_delete_freight()+');
arp_util.debug('arp_process_freight.validate_delete_freight()-');
arp_util.debug('EXCEPTION: arp_process_freight.validate_delete_freight()');
select max(code_combination_id),
max(gl_date)
into l_old_ccid,
l_old_gl_date
from ra_cust_trx_line_gl_dist
where customer_trx_line_id = p_customer_trx_line_id;
| insert_freight |
| |
| DESCRIPTION |
| Inserts a freight record into RA_CUSTOMER_TRX_LINES |
| |
| SCOPE - PRIVATE |
| |
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
| dbms_sql.bind_variable |
| arp_util.debug |
| |
| ARGUMENTS : IN: |
| p_form_name |
| p_form_version |
| p_trx_class |
| p_gl_date |
| p_frt_ccid |
| OUT: |
| p_customer_trx_line_id |
| p_status |
| IN/ OUT: |
| p_frt_rec |
| |
| RETURNS : NONE |
| |
| NOTES |
| |
| MODIFICATION HISTORY |
| 12-JUL-95 Subash Chadalavada Created |
| |
+===========================================================================*/
PROCEDURE insert_freight(
p_form_name IN varchar2,
p_form_version IN number,
p_frt_rec IN OUT NOCOPY ra_customer_trx_lines%rowtype,
p_trx_class IN ra_cust_trx_types.type%type,
p_gl_date IN ra_cust_trx_line_gl_dist.gl_date%type,
p_frt_ccid IN
ra_cust_trx_line_gl_dist.code_combination_id%type,
p_customer_trx_line_id OUT NOCOPY
ra_customer_trx_lines.customer_trx_line_id%type,
p_status OUT NOCOPY varchar2,
p_run_autoacc_flag IN varchar2 DEFAULT 'Y')
IS
l_customer_trx_line_id ra_customer_trx_lines.customer_trx_line_id%type;
arp_util.debug('arp_process_freight.insert_freight()+');
arp_process_freight.validate_insert_freight(p_frt_rec);
| pre-insert logic |
+--------------------*/
IF (p_trx_class = 'CM') THEN
p_frt_rec.revenue_amount := p_frt_rec.extended_amount;
ARP_CTL_PKG.insert_p(p_frt_rec, l_customer_trx_line_id);
| post-insert logic |
+--------------------*/
-- call auto-accounting to insert the freight distribution
IF ( p_run_autoacc_flag = 'Y' )
THEN
BEGIN
arp_auto_accounting.do_autoaccounting(
'I',
'FREIGHT',
p_frt_rec.customer_trx_id,
l_customer_trx_line_id,
null,
null,
p_gl_date,
null,
p_frt_rec.extended_amount,
p_frt_ccid,
null,
null,
null,
null,
null,
l_ccid,
l_concat_segments,
l_num_failed_dist_rows);
arp_util.debug('EXCEPTION: Insert Freight');
arp_util.debug('arp_process_freight.insert_freight()-');
arp_util.debug('EXCEPTION: arp_process_freight.insert_freight()');
| update_freight |
| |
| DESCRIPTION |
| Updates freight record in RA_CUSTOMER_TRX_LINES |
| |
| SCOPE - PRIVATE |
| |
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
| dbms_sql.bind_variable |
| arp_util.debug |
| |
| ARGUMENTS : IN: |
| p_form_name |
| p_form_version |
| p_trx_class |
| p_gl_date |
| p_frt_ccid |
| p_complete_flag |
| p_open_rec_flag |
| OUT: |
| p_status |
| IN/ OUT: |
| p_frt_rec |
| |
| RETURNS : NONE |
| |
| NOTES |
| |
| MODIFICATION HISTORY |
| 12-JUL-95 Subash Chadalavada Created |
| |
+===========================================================================*/
PROCEDURE update_freight(
p_form_name IN varchar2,
p_form_version IN number,
p_customer_trx_id IN ra_customer_trx.customer_trx_id%type,
p_customer_trx_line_id IN ra_customer_trx_lines.customer_trx_line_id%type,
p_frt_rec IN OUT NOCOPY ra_customer_trx_lines%rowtype,
p_trx_class IN ra_cust_trx_types.type%type,
p_gl_date IN
ra_cust_trx_line_gl_dist.gl_date%type,
p_frt_ccid IN
ra_cust_trx_line_gl_dist.code_combination_id%type,
p_complete_flag IN varchar2,
p_open_rec_flag IN varchar2,
p_status OUT NOCOPY varchar2)
IS
l_amount_changed_flag boolean;
arp_util.debug('arp_process_freight.update_freight()+');
arp_process_freight.validate_update_freight(p_frt_rec);
| pre-update logic |
+--------------------*/
-- none
arp_process_freight.set_flags(p_customer_trx_line_id,
p_frt_rec,
p_frt_ccid,
p_gl_date,
l_amount_changed_flag,
l_ccid_changed_flag,
l_gl_date_changed_flag);
arp_ctl_pkg.update_p(p_frt_rec, p_customer_trx_line_id);
| post-update logic |
+--------------------*/
IF ((l_amount_changed_flag = TRUE)
OR
(l_ccid_changed_flag = TRUE)
OR
(l_gl_date_changed_flag = TRUE))
THEN
IF p_trx_class in ('INV', 'DM')
THEN
-- update the distribution record
arp_process_invoice.freight_post_update(
p_frt_rec,
p_gl_date,
p_frt_ccid,
p_status);
arp_process_credit.freight_post_update(
p_frt_rec,
p_gl_date,
p_frt_ccid);
arp_util.debug('EXCEPTION: Update Freight');
arp_util.debug('arp_process_freight.update_freight()-');
arp_util.debug('EXCEPTION: arp_process_freight.update_freight()');
| delete_freight |
| |
| DESCRIPTION |
| Deletes freight record from RA_CUSTOMER_TRX_LINES |
| |
| SCOPE - PRIVATE |
| |
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
| dbms_sql.bind_variable |
| arp_util.debug |
| |
| ARGUMENTS : IN: |
| p_form_name |
| p_form_version |
| p_trx_class |
| p_complete_flag |
| p_open_rec_flag |
| p_customer_trx_id |
| p_customer_trx_line_id |
| OUT: |
| IN/ OUT: |
| |
| RETURNS : NONE |
| |
| NOTES |
| |
| MODIFICATION HISTORY |
| 12-JUL-95 Subash Chadalavada Created |
| |
+===========================================================================*/
PROCEDURE delete_freight(
p_form_name IN varchar2,
p_form_version IN number,
p_trx_class IN ra_cust_trx_types.type%type,
p_complete_flag IN varchar2,
p_open_rec_flag IN varchar2,
p_customer_trx_id IN ra_customer_trx.customer_trx_id%type,
p_customer_trx_line_id IN ra_customer_trx_lines.customer_trx_line_id%type)
IS
l_gt_one_line BOOLEAN;
arp_util.debug('arp_process_freight.delete_freight()+');
arp_process_freight.validate_delete_freight(p_customer_trx_id,
p_customer_trx_line_id,
p_complete_flag);
| pre-delete logic |
+--------------------*/
-- delete the distribution record
arp_ctlgd_pkg.delete_f_ctl_id(p_customer_trx_line_id, null, null);
arp_ctl_pkg.delete_p(p_customer_trx_line_id);
| post-delete logic |
+--------------------*/
/* Bug 3604027 */
IF arp_rounding.correct_dist_rounding_errors(
NULL,
p_customer_trx_id ,
p_customer_trx_line_id,
l_dist_count,
l_error_message ,
pg_base_precision ,
pg_base_min_acc_unit ,
'ALL' ,
NULL,
'N' ,
pg_trx_header_level_rounding ,
'N',
'N') = 0 -- FALSE
THEN
arp_util.debug('EXCEPTION: Delete Freight');
arp_util.debug('arp_process_freight.delete_freight()-');
arp_util.debug('EXCEPTION: ARP_PROCESS_FREIGHT.delete_freight()');