The following lines contain the word 'select', 'insert', 'update' or 'delete':
| Validate_Update_Maturity_Date |
| |
| DESCRIPTION |
| Validates that Maturity Date can be updated |
| |
+==============================================================================*/
PROCEDURE Validate_Update_Maturity_Date (p_customer_trx_id IN ra_customer_trx.customer_trx_id%TYPE,
p_term_due_date IN DATE )
IS
l_trx_rec ra_customer_trx%ROWTYPE;
arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Update_Maturity_Date ()+');
arp_util.debug('Validate_Update_Maturity_Date: ' || '>>>>>>>>>> Current Maturity Date has passed, it cannot be updated');
arp_util.debug('Validate_Update_Maturity_Date: ' || 'Maturity Date parameter : ' || p_term_due_date);
arp_util.debug('Validate_Update_Maturity_Date: ' || 'Maturity Date of the BR : ' || l_trx_rec.term_due_date);
FND_MESSAGE.set_name( 'AR','AR_BR_CANNOT_UPDATE_MAT_DATE');
arp_util.debug('Validate_Update_Maturity_Date: ' || '>>>>>>>>>> The new Maturity Date must be later that sysdate');
arp_util.debug('Validate_Update_Maturity_Date: ' || 'Maturity Date parameter : ' || p_term_due_date);
arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Update_Maturity_Date ()-');
arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Update_Maturity_Date() ');
arp_util.debug('Validate_Update_Maturity_Date: ' || 'p_customer_trx_id = ' || p_customer_trx_id);
arp_util.debug('Validate_Update_Maturity_Date: ' || 'p_term_due_date = ' || p_term_due_date);
END Validate_Update_Maturity_Date;
SELECT start_date, end_date, status
INTO l_start_date, l_end_date, l_status
FROM RA_BATCH_SOURCES bs
WHERE bs.batch_source_id = p_batch_source_id;
SELECT status, start_date, end_date
INTO l_status, l_start_date, l_end_date
FROM RA_CUST_TRX_TYPES
WHERE cust_trx_type_id = p_cust_trx_type_id
AND TYPE = 'BR';
SELECT 'Y'
INTO l_drawee_valid
FROM HZ_CUST_ACCOUNTS
WHERE cust_account_id = p_drawee_id;
SELECT STATUS
INTO l_status
FROM HZ_CUST_SITE_USES
WHERE site_use_id = p_drawee_site_use_id
AND SITE_USE_CODE = 'DRAWEE';
SELECT status
INTO l_status
FROM hz_cust_account_roles
WHERE cust_account_role_id = p_drawee_contact_id
AND cust_account_id = p_drawee_id;
SELECT start_date_active, end_date_active
INTO l_start_date , l_end_date
FROM FND_CURRENCIES_VL
WHERE currency_code = p_invoice_currency_code
AND enabled_flag = 'Y';
SELECT 'Y'
INTO l_printing_option_valid
FROM AR_LOOKUPS
WHERE lookup_type = 'INVOICE_PRINT_OPTIONS'
AND lookup_code = p_printing_option;
SELECT signed_flag , format_program_id
INTO l_signed_flag, l_format_program_id
FROM RA_CUST_TRX_TYPES
WHERE cust_trx_type_id = p_cust_trx_type_id;
| 24-May-01 Debbie Jancis Fixed bug 1798699: changed all selects to |
| verify bank account information with issue |
| instead of trying to select dates and then |
| verify because customer setup allows multiple |
| usage records with different dates. This |
| causes too many rows to be selected. |
+============================================================================*/
PROCEDURE Validate_Drawee_Account ( p_drawee_bank_account_id IN VARCHAR2 ,
p_drawee_id IN NUMBER ,
p_drawee_site_use_id IN NUMBER ,
p_issue_date IN DATE ) IS
l_start_date DATE;
/* Bug 3285863 Selecting receipt_multi_currency_flag rather than
multi_currency_allowed_flag. */
CURSOR c IS
SELECT cba.currency_code,
cba.receipt_multi_currency_flag receipt_multi_currency_flag,
cbau.end_date inactive_date
FROM ce_bank_accounts cba,
ce_bank_acct_uses cbau
WHERE cbau.bank_acct_use_id = p_remit_bank_account_id
AND cbau.bank_account_id = cba.bank_account_id
AND cba.account_classification = 'INTERNAL';
SELECT 'Y'
INTO l_batch_id_valid
FROM RA_BATCHES
WHERE batch_id = p_batch_id
AND status = 'A';
SELECT 'Y'
INTO l_customer_trx_id_valid
FROM RA_CUSTOMER_TRX
WHERE customer_trx_id = p_customer_trx_id;
SELECT 'Y'
INTO l_valid
FROM RA_CUSTOMER_TRX_LINES
WHERE customer_trx_line_id = p_customer_trx_line_id;
| Validates the BR Header Information before insertion |
| |
+==============================================================================*/
PROCEDURE Validate_Create_BR_Header (
p_trx_rec IN ra_customer_trx%ROWTYPE ,
p_gl_date IN DATE )
IS
BEGIN
IF PG_DEBUG in ('Y', 'C') THEN
arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Create_BR_Header ()+');
| Validate_Update_BR_Header |
| |
| DESCRIPTION |
| Validates the BR Header Information before update |
| |
+==============================================================================*/
PROCEDURE Validate_Update_BR_Header (
p_trx_rec IN ra_customer_trx%ROWTYPE ,
p_gl_date IN DATE )
IS
BEGIN
IF PG_DEBUG in ('Y', 'C') THEN
arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Update_BR_Header ()+');
Validate_Update_Maturity_Date (p_trx_rec.customer_trx_id ,
p_trx_rec.term_due_date );
arp_util.debug('Validate_Update_BR_Header: ' || 'AR_BILLS_CREATION_VAL_PVT.Validate_BR_Update_Header ()-');
arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Update_BR_Header () ');
END Validate_Update_BR_Header;
SELECT type
INTO l_type
FROM RA_CUST_TRX_TYPES
WHERE cust_trx_type_id = p_cust_trx_type_id;
| Validates the status of the BR (must be INCOMPLETE), so that insert, |
| update and delete of BR Assignments are allowed. |
| |
+==============================================================================*/
PROCEDURE Validate_BR_Status ( p_customer_trx_id IN NUMBER) IS
l_trh_rec AR_TRANSACTION_HISTORY%ROWTYPE;
| allow the insert, update or delete of BR |
| assignments. |
+-----------------------------------------------*/
IF (l_trh_rec.status <> C_INCOMPLETE)
THEN
IF PG_DEBUG in ('Y', 'C') THEN
arp_util.debug ('Validate_BR_Status: ' || 'You cannot update the assignments when the BR has a status : ' || l_trh_rec.status);
| Validates the BR Assignment Information before insertion or update |
| |
+==============================================================================*/
PROCEDURE Validate_BR_Assignment (p_trl_rec IN OUT NOCOPY ra_customer_trx_lines%ROWTYPE ,
p_ps_rec IN ar_payment_schedules%ROWTYPE ,
p_trx_rec IN ra_customer_trx%ROWTYPE ,
p_BR_rec IN ra_customer_trx%ROWTYPE )
IS
l_type VARCHAR2(20);
SELECT type
INTO l_type
FROM RA_CUST_TRX_TYPES
WHERE cust_trx_type_id = p_ps_rec.cust_trx_type_id;