The following lines contain the word 'select', 'insert', 'update' or 'delete':
C_MATURITY_DATE_UPDATED CONSTANT VARCHAR2(30) := 'MATURITY_DATE_UPDATED';
C_SELECTED_REMITTANCE CONSTANT VARCHAR2(30) := 'SELECTED_REMITTANCE';
C_DESELECTED_REMITTANCE CONSTANT VARCHAR2(30) := 'DESELECTED_REMITTANCE';
C_SELECT_REMIT CONSTANT VARCHAR2(30) := 'SELECT_REMIT';
C_DESELECT_REMIT CONSTANT VARCHAR2(30) := 'DESELECT_REMIT';
C_DELETE CONSTANT VARCHAR2(30) := 'DELETE';
SELECT *
FROM ar_transaction_history
WHERE (postable_flag = 'Y' OR nvl(event,'1') = 'MATURITY_DATE')
CONNECT BY PRIOR prv_trx_history_id = transaction_history_id
START WITH transaction_history_id = p_trh_rec.transaction_history_id
ORDER BY transaction_history_id desc;
| relevant event (different from MATURITY_DATE_UPDATED and FORMATTED) |
| |
| SCOPE - PUBLIC |
| |
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
| arp_util.debug |
| |
| ARGUMENTS : |
| IN OUT NOCOPY p_trh_rec - BR transaction history record |
| |
| |
| |
| MODIFICATION HISTORY |
| 04-JUL-2000 Tien TRAN Created |
| |
+==============================================================================*/
PROCEDURE Find_Last_relevant_trh (p_trh_rec IN OUT NOCOPY ar_transaction_history%ROWTYPE)
IS
/*--------------------------------------------------------------+
| Cursor to fetch last relevant transaction history record |
+--------------------------------------------------------------*/
CURSOR Prev_trh_cur IS
SELECT *
FROM ar_transaction_history
WHERE nvl(event,'A') NOT IN (C_MATURITY_DATE_UPDATED, C_FORMATTED)
CONNECT BY PRIOR prv_trx_history_id = transaction_history_id
START WITH transaction_history_id = p_trh_rec.transaction_history_id
ORDER BY transaction_history_id desc;
| Is_BR_Remit_Selected |
| |
| DESCRIPTION |
| Validates that the BR is selected for remittance |
| |
+==============================================================================*/
FUNCTION Is_BR_Remit_Selected (p_trh_id IN ar_transaction_history.transaction_history_id%TYPE) RETURN BOOLEAN
IS
l_trh_rec ar_transaction_history%ROWTYPE;
arp_util.debug('AR_BILLS_MAINTAIN_STATUS_PUB.Is_BR_Remit_Selected()+');
IF (l_trh_rec.event = C_SELECTED_REMITTANCE)
THEN
IF PG_DEBUG in ('Y', 'C') THEN
arp_util.debug ('Is_BR_Remit_Selected: ' || '>>>>>>>>>>> The BR is Selected for Remittance');
arp_util.debug('AR_BILLS_MAINTAIN_STATUS_PUB.Is_BR_Remit_Selected()-');
arp_util.debug ('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_STATUS_PUB.Is_BR_Remit_Selected () ');
arp_util.debug ('Is_BR_Remit_Selected: ' || ' p_trh_id : ' || p_trh_id);
END Is_BR_Remit_Selected;
SELECT max(cash_receipt_id)
INTO l_cr_id
FROM ar_receivable_applications
WHERE applied_customer_trx_id = p_customer_trx_id
OR link_to_customer_trx_id = p_customer_trx_id;
SELECT max(receivable_application_id)
INTO l_ra_id
FROM ar_receivable_applications
WHERE applied_customer_trx_id = p_trh_rec.customer_trx_id;
SELECT count(*)
INTO l_rec_count
FROM ar_receivable_applications
WHERE applied_customer_trx_id = p_customer_trx_id
OR link_to_customer_trx_id = p_customer_trx_id;
SELECT count(*)
INTO l_adj_count
FROM ar_adjustments
WHERE customer_trx_id = p_customer_trx_id;
SELECT count(*)
INTO l_count
FROM AR_TRANSACTION_HISTORY
WHERE customer_trx_id = p_customer_trx_id
AND posting_control_id <> -3;
SELECT signed_flag , drawee_issued_flag
INTO l_signed_flag, l_drawee_issued_flag
FROM ra_cust_trx_types
WHERE cust_trx_type_id = p_cust_trx_type_id;
SELECT count(*)
INTO l_count
FROM RA_CUSTOMER_TRX_LINES
WHERE customer_trx_id = p_customer_trx_id;
p_select_remit_flag OUT NOCOPY VARCHAR2 ,
p_deselect_remit_flag OUT NOCOPY VARCHAR2 ,
p_approve_remit_flag OUT NOCOPY VARCHAR2 ,
p_hold_flag OUT NOCOPY VARCHAR2 ,
p_unhold_flag OUT NOCOPY VARCHAR2 ,
p_recall_flag OUT NOCOPY VARCHAR2 ,
p_eliminate_flag OUT NOCOPY VARCHAR2 ,
p_uneliminate_flag OUT NOCOPY VARCHAR2 ,
p_unpaid_flag OUT NOCOPY VARCHAR2 ,
p_protest_flag OUT NOCOPY VARCHAR2 ,
p_endorse_flag OUT NOCOPY VARCHAR2 ,
p_restate_flag OUT NOCOPY VARCHAR2 ,
p_exchange_flag OUT NOCOPY VARCHAR2 ,
p_delete_flag OUT NOCOPY VARCHAR2 )
IS
l_trh_rec AR_TRANSACTION_HISTORY%ROWTYPE;
p_select_remit_flag := 'N';
p_deselect_remit_flag := 'N';
p_delete_flag := 'N';
p_delete_flag := 'Y';
IF (Is_BR_Remit_Selected(l_trh_rec.transaction_history_id))
THEN
p_deselect_remit_flag := 'Y';
p_select_remit_flag := 'Y';
p_select_remit_flag := 'Y';
SELECT transaction_history_id
INTO l_trh_rec.transaction_history_id
FROM ar_transaction_history
WHERE customer_trx_id = p_trx_rec.customer_trx_id
AND current_record_flag = 'Y';
| SELECT FOR REMITTANCE |
+-----------------------------------------------*/
ELSIF (p_action = C_SELECT_REMIT)
THEN
p_new_status := C_PENDING_REMITTANCE ;
p_new_event := C_SELECTED_REMITTANCE ;
| DESELECT FOR REMITTANCE |
+-----------------------------------------------*/
ELSIF (p_action = C_DESELECT_REMIT)
THEN
IF (p_trx_rec.br_unpaid_flag = 'Y')
THEN
p_new_status := C_UNPAID;
p_new_event := C_DESELECTED_REMITTANCE ;