The following lines contain the word 'select', 'insert', 'update' or 'delete':
| delete_transaction |
| |
| DESCRIPTION |
| Deletes all records in all tables associated with a particular |
| transcation. |
| |
| SCOPE - PRIVATE |
| |
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
| dbms_sql.bind_variable |
| arp_util.debug |
| |
| ARGUMENTS : IN: |
| p_form_name |
| p_form_version |
| p_customer_trx_is |
| OUT: |
| None |
| |
| RETURNS : NONE |
| |
| NOTES |
| |
| MODIFICATION HISTORY |
| 05-JUL-95 Charlie Tomberg Created |
| 21-AUG-97 OSTEINME Bug 514459: Delete Payment Schedules |
| when transaction is deleted |
| 24-JUL-02 VERAO Bug 2217253: Delete RA record of a CM |
| when transaction is deleted |
| 11-APR-03 MRAYMOND Bug 2868648 - remove CMA rows when
| transaction is deleted.
+===========================================================================*/
PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
PROCEDURE delete_transaction(p_form_name IN varchar2,
p_form_version IN number,
p_customer_trx_id IN NUMBER) IS
BEGIN
arp_util.debug('arp_process_header.delete_transaction()+');
arp_ctls_pkg.delete_f_ct_id(p_customer_trx_id);
arp_ct_pkg.delete_p(p_customer_trx_id);
arp_cma_pkg.delete_f_ct_id(p_customer_trx_id);
arp_ctl_pkg.delete_f_ct_id(p_customer_trx_id);
arp_ctlgd_pkg.delete_f_ct_id(p_customer_trx_id, '', '');
arp_ps_pkg.delete_f_ct_id(p_customer_trx_id);
arp_app_pkg.delete_f_ct_id(p_customer_trx_id);
arp_util.debug('arp_process_header.delete_transaction()-');
arp_util.debug('EXCEPTION: arp_process_header.delete_transaction()');
rollback to savepoint ar_delete_transaction_1;
arp_util.debug('EXCEPTION: arp_trx_util.delete_lock()');
| update will be done on base MLS table |
| |
+===========================================================================*/
PROCEDURE set_term_in_use_flag(p_form_name IN varchar2,
p_form_version IN number,
p_term_id IN number,
p_term_in_use_flag IN varchar2) IS
BEGIN
arp_util.debug('arp_trx_util.set_term_in_use_flag()+');
UPDATE ra_terms_b
SET in_use = 'Y'
WHERE term_id = p_term_id
AND in_use = 'N';
SELECT decode(max(dummy),
NULL, 'N',
'Y')
INTO l_posted_flag
FROM dual
WHERE EXISTS
(SELECT 'posted distribution exists'
FROM ra_cust_trx_line_gl_dist
WHERE customer_trx_id = p_customer_trx_id
AND account_set_flag = 'N'
AND gl_posted_date IS NOT NULL
);
SELECT DECODE( MAX(t.customer_trx_id),
NULL, 'N',
'Y')
INTO l_result
FROM ra_customer_trx t,
ra_customer_trx_lines l,
ra_customeR_trx_lines frt
WHERE t.customer_trx_id = p_customer_trx_id
AND t.customer_trx_id = frt.customer_trx_id
AND frt.line_type = 'FREIGHT'
AND frt.link_to_cust_trx_line_id IS NULL
AND t.customer_trx_id = l.customer_trx_id(+)
AND 'FREIGHT' <> l.line_type(+)
AND t.invoicing_rule_id IS NOT NULL
AND l.customer_trx_line_id IS NULL;
select vendor_site_id from ap_supplier_sites_all
WHERE party_site_id = p_object_id;
SELECT vendor_id INTO l_vendor_id FROM po_vendors WHERE party_id = p_object_id;