The following lines contain the word 'select', 'insert', 'update' or 'delete':
| Locks a misc receipt for update. Checks if values displayed in form |
| are still the ones stored in the database. |
| |
| SCOPE - PUBLIC |
| |
| EXTERNAL PROCEDURES/FUNCTIONS ACCESSED |
| |
| NOTES |
| |
| MODIFICATION HISTORY |
| |
| 12-OCT-95 OSTEINME created |
| 05-FEB-2003 RVSHARMA Added parameter receipt_status.Bug 2688648. | | |
+===========================================================================*/
PROCEDURE lock_misc_receipt(
p_cash_receipt_id IN NUMBER,
p_currency_code IN VARCHAR2,
p_amount IN NUMBER,
p_receivables_trx_id IN NUMBER,
p_misc_payment_source IN VARCHAR2,
p_receipt_number IN VARCHAR2,
p_receipt_date IN DATE,
p_gl_date IN DATE,
p_comments IN VARCHAR2,
p_exchange_rate_type IN VARCHAR2,
p_exchange_rate IN NUMBER,
p_exchange_date IN DATE,
p_attribute_category IN VARCHAR2,
p_attribute1 IN VARCHAR2,
p_attribute2 IN VARCHAR2,
p_attribute3 IN VARCHAR2,
p_attribute4 IN VARCHAR2,
p_attribute5 IN VARCHAR2,
p_attribute6 IN VARCHAR2,
p_attribute7 IN VARCHAR2,
p_attribute8 IN VARCHAR2,
p_attribute9 IN VARCHAR2,
p_attribute10 IN VARCHAR2,
p_attribute11 IN VARCHAR2,
p_attribute12 IN VARCHAR2,
p_attribute13 IN VARCHAR2,
p_attribute14 IN VARCHAR2,
p_attribute15 IN VARCHAR2,
p_remittance_bank_account_id IN NUMBER,
p_deposit_date IN DATE,
p_receipt_method_id IN NUMBER,
p_doc_sequence_value IN NUMBER,
p_doc_sequence_id IN NUMBER,
p_distribution_set_id IN NUMBER,
p_reference_type IN VARCHAR2,
p_reference_id IN NUMBER,
p_vat_tax_id IN NUMBER,
p_ussgl_transaction_code IN VARCHAR2,
p_anticipated_clearing_date IN DATE,
--
-- ******* Global Flexfield parameters *******
--
p_global_attribute1 IN VARCHAR2,
p_global_attribute2 IN VARCHAR2,
p_global_attribute3 IN VARCHAR2,
p_global_attribute4 IN VARCHAR2,
p_global_attribute5 IN VARCHAR2,
p_global_attribute6 IN VARCHAR2,
p_global_attribute7 IN VARCHAR2,
p_global_attribute8 IN VARCHAR2,
p_global_attribute9 IN VARCHAR2,
p_global_attribute10 IN VARCHAR2,
p_global_attribute11 IN VARCHAR2,
p_global_attribute12 IN VARCHAR2,
p_global_attribute13 IN VARCHAR2,
p_global_attribute14 IN VARCHAR2,
p_global_attribute15 IN VARCHAR2,
p_global_attribute16 IN VARCHAR2,
p_global_attribute17 IN VARCHAR2,
p_global_attribute18 IN VARCHAR2,
p_global_attribute19 IN VARCHAR2,
p_global_attribute20 IN VARCHAR2,
p_global_attribute_category IN VARCHAR2,
----
p_form_name IN varchar2,
p_form_version IN varchar2,
p_receipt_status IN VARCHAR2 ,
p_cash_receipt_history_id IN NUMBER,
p_state IN VARCHAR2,
p_posting_control_id IN NUMBER, /* Bug fix 2742388 */
p_rec_version_number IN NUMBER /* Bug fix 3032059 */
) IS
l_cr_rec ar_cash_receipts%ROWTYPE;
| delete_misc_receipt |
| |
| DESCRIPTION |
| Entity handler that delete miscelleanous transactions. |
| |
| SCOPE - PUBLIC |
| |
| NOTES |
| |
| MODIFICATION HISTORY |
| |
| 25-OCT-95 OSTEINME created |
| 18-Sep-01 Debbie Jancis Modified for MRC trigger removal for |
| ar_misc_cash_distributions. Called |
| ar mrc engine for processing. |
| 21-Jan-02 Rahna Kader Modified delete_misc_receipt procedure |
| for deleting records in |
| ar_misc_cash_distributions table in cash |
| basis accounting.Refer Bug2189383 for details|
+===========================================================================*/
PROCEDURE delete_misc_receipt(
p_cash_receipt_id IN NUMBER,
p_batch_id IN NUMBER) IS
l_ae_doc_rec l_ae_doc_rec_type;
arp_standard.debug('arp_process_misc_receipts2.delete_misc_receipt()+');
select arp_standard.sysparm.accounting_method into l_accounting_method from dual;
arp_standard.debug('delete_misc_receipt: ' || 'Acconting Method = '|| l_accounting_method);
arp_standard.debug('delete_misc_receipt: ' || ' =====> BEGIN <=====');
SELECT count(mcd.misc_cash_distribution_id)
INTO l_count
FROM ar_misc_cash_distributions mcd
WHERE mcd.cash_receipt_id = p_cash_receipt_id
AND mcd.reversal_gl_date IS NULL --For rate adjustments picks up records with new rate
AND mcd.posting_control_id = -3 ; --Not posted
SELECT count(mcd.misc_cash_distribution_id)
INTO l_count
FROM ar_misc_cash_distributions mcd
WHERE mcd.cash_receipt_id = p_cash_receipt_id
AND mcd.reversal_gl_date IS NULL --For rate adjustments picks up records with new rate
AND mcd.posting_control_id = -3 --Not posted
AND EXISTS (SELECT 'x'
FROM ar_distributions ard
WHERE ard.source_id = mcd.misc_cash_distribution_id
AND ard.source_table = 'MCD');
SELECT count(mcd.misc_cash_distribution_id)
INTO l_dist_cnt
FROM ar_misc_cash_distributions mcd
WHERE mcd.cash_receipt_id = p_cash_receipt_id
AND mcd.reversal_gl_date IS NULL --For rate adjustments picks up records with new rate
AND mcd.posting_control_id = -3 --Not posted
AND EXISTS (SELECT 'x'
FROM ar_distributions ard
WHERE ard.source_id = mcd.misc_cash_distribution_id
AND ard.source_table = 'MCD');
SELECT count(mcd.misc_cash_distribution_id)
INTO l_count
FROM ar_misc_cash_distributions mcd
WHERE mcd.cash_receipt_id = p_cash_receipt_id
AND mcd.reversal_gl_date IS NULL --For rate adjustments picks up records with new rate
AND mcd.posting_control_id = -3 ; --Not posted
arp_standard.debug('delete_misc_receipt: ' || ' l_count ' || TO_CHAR(l_count));
arp_standard.debug('delete_misc_receipt: ' || 'Delete Misc Cash Receipt start () +');
arp_acct_main.Delete_Acct_Entry(l_ae_doc_rec);
arp_standard.debug('delete_misc_receipt: ' || 'Delete Misc Cash Receipt start () -');
arp_cash_receipts_pkg.delete_p(p_cash_receipt_id);
arp_standard.debug('delete_misc_receipt: ' || ' l_count ' || TO_CHAR(l_count));
arp_standard.debug('delete_misc_receipt: ' || ' Delete AR_DISTRIBUTION');
DELETE AR_DISTRIBUTIONS
WHERE source_table = 'CRH'
AND source_id IN (
SELECT cash_receipt_history_id
FROM ar_cash_receipt_history
WHERE cash_receipt_id = p_cash_receipt_id)
RETURNING line_id
BULK COLLECT INTO l_ar_dist_key_value_list;
p_event_mode => 'DELETE',
p_table_name => 'AR_DISTRIBUTIONS',
p_mode => 'BATCH',
p_key_value_list => l_ar_dist_key_value_list);
arp_standard.debug('delete_misc_receipt: ' || ' Delete MISC_CASH_DISTRIBUTION');
DELETE AR_MISC_CASH_DISTRIBUTIONS
WHERE cash_receipt_id = p_cash_receipt_id
RETURNING misc_cash_distribution_id
BULK COLLECT INTO l_misc_cash_key_value_list;
p_event_mode => 'DELETE',
p_table_name => 'AR_MISC_CASH_DISTRIBUTIONS',
p_mode => 'BATCH',
p_key_value_list => l_misc_cash_key_value_list);
ARP_XLA_EVENTS.delete_event
( p_document_id => p_cash_receipt_id,
p_doc_table => 'CRH');
arp_cr_history_pkg.delete_p_cr(p_cash_receipt_id);
arp_rw_batches_check_pkg.update_batch_status(
p_batch_id);
arp_standard.debug('arp_process_receipts.delete_misc_receipt()-');
arp_standard.debug('EXCEPTION: arp_process_misc_receipts2.delete_misc_receipts');
END delete_misc_receipt;