5603:
5604: l_cust_account_id NUMBER;
5605: l_site_use_id NUMBER;
5606: l_cust_account_profile_id NUMBER;
5607: l_currency_code HZ_CUST_PROFILE_AMTS.currency_code%TYPE;
5608: l_created_by_module HZ_CUST_PROFILE_AMTS.created_by_module%TYPE;
5609: l_application_id NUMBER;
5610: l_overall_credit_limit HZ_CUST_PROFILE_AMTS.OVERALL_CREDIT_LIMIT%TYPE;
5611: l_trx_credit_limit HZ_CUST_PROFILE_AMTS.TRX_CREDIT_LIMIT%TYPE;
5604: l_cust_account_id NUMBER;
5605: l_site_use_id NUMBER;
5606: l_cust_account_profile_id NUMBER;
5607: l_currency_code HZ_CUST_PROFILE_AMTS.currency_code%TYPE;
5608: l_created_by_module HZ_CUST_PROFILE_AMTS.created_by_module%TYPE;
5609: l_application_id NUMBER;
5610: l_overall_credit_limit HZ_CUST_PROFILE_AMTS.OVERALL_CREDIT_LIMIT%TYPE;
5611: l_trx_credit_limit HZ_CUST_PROFILE_AMTS.TRX_CREDIT_LIMIT%TYPE;
5612: -- Bug 4770111 : Added for CBM of customer profile
5606: l_cust_account_profile_id NUMBER;
5607: l_currency_code HZ_CUST_PROFILE_AMTS.currency_code%TYPE;
5608: l_created_by_module HZ_CUST_PROFILE_AMTS.created_by_module%TYPE;
5609: l_application_id NUMBER;
5610: l_overall_credit_limit HZ_CUST_PROFILE_AMTS.OVERALL_CREDIT_LIMIT%TYPE;
5611: l_trx_credit_limit HZ_CUST_PROFILE_AMTS.TRX_CREDIT_LIMIT%TYPE;
5612: -- Bug 4770111 : Added for CBM of customer profile
5613: l_prof_cbm HZ_CUST_PROFILE_AMTS.created_by_module%TYPE := 'TCA_V2_API';
5614:
5607: l_currency_code HZ_CUST_PROFILE_AMTS.currency_code%TYPE;
5608: l_created_by_module HZ_CUST_PROFILE_AMTS.created_by_module%TYPE;
5609: l_application_id NUMBER;
5610: l_overall_credit_limit HZ_CUST_PROFILE_AMTS.OVERALL_CREDIT_LIMIT%TYPE;
5611: l_trx_credit_limit HZ_CUST_PROFILE_AMTS.TRX_CREDIT_LIMIT%TYPE;
5612: -- Bug 4770111 : Added for CBM of customer profile
5613: l_prof_cbm HZ_CUST_PROFILE_AMTS.created_by_module%TYPE := 'TCA_V2_API';
5614:
5615: -- Added following variables for late charge policy project.
5609: l_application_id NUMBER;
5610: l_overall_credit_limit HZ_CUST_PROFILE_AMTS.OVERALL_CREDIT_LIMIT%TYPE;
5611: l_trx_credit_limit HZ_CUST_PROFILE_AMTS.TRX_CREDIT_LIMIT%TYPE;
5612: -- Bug 4770111 : Added for CBM of customer profile
5613: l_prof_cbm HZ_CUST_PROFILE_AMTS.created_by_module%TYPE := 'TCA_V2_API';
5614:
5615: -- Added following variables for late charge policy project.
5616: v_cust_profile_amt_rec HZ_CUSTOMER_PROFILE_V2PUB.CUST_PROFILE_AMT_REC_TYPE;
5617: l_min_fc_invoice_overdue_type HZ_CUST_PROFILE_AMTS.MIN_FC_INVOICE_OVERDUE_TYPE%TYPE;
5613: l_prof_cbm HZ_CUST_PROFILE_AMTS.created_by_module%TYPE := 'TCA_V2_API';
5614:
5615: -- Added following variables for late charge policy project.
5616: v_cust_profile_amt_rec HZ_CUSTOMER_PROFILE_V2PUB.CUST_PROFILE_AMT_REC_TYPE;
5617: l_min_fc_invoice_overdue_type HZ_CUST_PROFILE_AMTS.MIN_FC_INVOICE_OVERDUE_TYPE%TYPE;
5618: l_min_fc_balance_overdue_type HZ_CUST_PROFILE_AMTS.MIN_FC_BALANCE_OVERDUE_TYPE%TYPE;
5619: l_interest_type HZ_CUST_PROFILE_AMTS.INTEREST_TYPE%TYPE;
5620: l_penalty_type HZ_CUST_PROFILE_AMTS.PENALTY_TYPE%TYPE;
5621: l_exchange_rate_type HZ_CUST_PROFILE_AMTS.EXCHANGE_RATE_TYPE%TYPE;
5614:
5615: -- Added following variables for late charge policy project.
5616: v_cust_profile_amt_rec HZ_CUSTOMER_PROFILE_V2PUB.CUST_PROFILE_AMT_REC_TYPE;
5617: l_min_fc_invoice_overdue_type HZ_CUST_PROFILE_AMTS.MIN_FC_INVOICE_OVERDUE_TYPE%TYPE;
5618: l_min_fc_balance_overdue_type HZ_CUST_PROFILE_AMTS.MIN_FC_BALANCE_OVERDUE_TYPE%TYPE;
5619: l_interest_type HZ_CUST_PROFILE_AMTS.INTEREST_TYPE%TYPE;
5620: l_penalty_type HZ_CUST_PROFILE_AMTS.PENALTY_TYPE%TYPE;
5621: l_exchange_rate_type HZ_CUST_PROFILE_AMTS.EXCHANGE_RATE_TYPE%TYPE;
5622: l_min_fc_invoice_amount HZ_CUST_PROFILE_AMTS.MIN_FC_INVOICE_AMOUNT%TYPE;
5615: -- Added following variables for late charge policy project.
5616: v_cust_profile_amt_rec HZ_CUSTOMER_PROFILE_V2PUB.CUST_PROFILE_AMT_REC_TYPE;
5617: l_min_fc_invoice_overdue_type HZ_CUST_PROFILE_AMTS.MIN_FC_INVOICE_OVERDUE_TYPE%TYPE;
5618: l_min_fc_balance_overdue_type HZ_CUST_PROFILE_AMTS.MIN_FC_BALANCE_OVERDUE_TYPE%TYPE;
5619: l_interest_type HZ_CUST_PROFILE_AMTS.INTEREST_TYPE%TYPE;
5620: l_penalty_type HZ_CUST_PROFILE_AMTS.PENALTY_TYPE%TYPE;
5621: l_exchange_rate_type HZ_CUST_PROFILE_AMTS.EXCHANGE_RATE_TYPE%TYPE;
5622: l_min_fc_invoice_amount HZ_CUST_PROFILE_AMTS.MIN_FC_INVOICE_AMOUNT%TYPE;
5623: l_min_fc_invoice_percent HZ_CUST_PROFILE_AMTS.MIN_FC_INVOICE_PERCENT%TYPE;
5616: v_cust_profile_amt_rec HZ_CUSTOMER_PROFILE_V2PUB.CUST_PROFILE_AMT_REC_TYPE;
5617: l_min_fc_invoice_overdue_type HZ_CUST_PROFILE_AMTS.MIN_FC_INVOICE_OVERDUE_TYPE%TYPE;
5618: l_min_fc_balance_overdue_type HZ_CUST_PROFILE_AMTS.MIN_FC_BALANCE_OVERDUE_TYPE%TYPE;
5619: l_interest_type HZ_CUST_PROFILE_AMTS.INTEREST_TYPE%TYPE;
5620: l_penalty_type HZ_CUST_PROFILE_AMTS.PENALTY_TYPE%TYPE;
5621: l_exchange_rate_type HZ_CUST_PROFILE_AMTS.EXCHANGE_RATE_TYPE%TYPE;
5622: l_min_fc_invoice_amount HZ_CUST_PROFILE_AMTS.MIN_FC_INVOICE_AMOUNT%TYPE;
5623: l_min_fc_invoice_percent HZ_CUST_PROFILE_AMTS.MIN_FC_INVOICE_PERCENT%TYPE;
5624: l_min_fc_balance_amount HZ_CUST_PROFILE_AMTS.MIN_FC_BALANCE_AMOUNT%TYPE;
5617: l_min_fc_invoice_overdue_type HZ_CUST_PROFILE_AMTS.MIN_FC_INVOICE_OVERDUE_TYPE%TYPE;
5618: l_min_fc_balance_overdue_type HZ_CUST_PROFILE_AMTS.MIN_FC_BALANCE_OVERDUE_TYPE%TYPE;
5619: l_interest_type HZ_CUST_PROFILE_AMTS.INTEREST_TYPE%TYPE;
5620: l_penalty_type HZ_CUST_PROFILE_AMTS.PENALTY_TYPE%TYPE;
5621: l_exchange_rate_type HZ_CUST_PROFILE_AMTS.EXCHANGE_RATE_TYPE%TYPE;
5622: l_min_fc_invoice_amount HZ_CUST_PROFILE_AMTS.MIN_FC_INVOICE_AMOUNT%TYPE;
5623: l_min_fc_invoice_percent HZ_CUST_PROFILE_AMTS.MIN_FC_INVOICE_PERCENT%TYPE;
5624: l_min_fc_balance_amount HZ_CUST_PROFILE_AMTS.MIN_FC_BALANCE_AMOUNT%TYPE;
5625: l_min_fc_balance_percent HZ_CUST_PROFILE_AMTS.MIN_FC_BALANCE_PERCENT%TYPE;
5618: l_min_fc_balance_overdue_type HZ_CUST_PROFILE_AMTS.MIN_FC_BALANCE_OVERDUE_TYPE%TYPE;
5619: l_interest_type HZ_CUST_PROFILE_AMTS.INTEREST_TYPE%TYPE;
5620: l_penalty_type HZ_CUST_PROFILE_AMTS.PENALTY_TYPE%TYPE;
5621: l_exchange_rate_type HZ_CUST_PROFILE_AMTS.EXCHANGE_RATE_TYPE%TYPE;
5622: l_min_fc_invoice_amount HZ_CUST_PROFILE_AMTS.MIN_FC_INVOICE_AMOUNT%TYPE;
5623: l_min_fc_invoice_percent HZ_CUST_PROFILE_AMTS.MIN_FC_INVOICE_PERCENT%TYPE;
5624: l_min_fc_balance_amount HZ_CUST_PROFILE_AMTS.MIN_FC_BALANCE_AMOUNT%TYPE;
5625: l_min_fc_balance_percent HZ_CUST_PROFILE_AMTS.MIN_FC_BALANCE_PERCENT%TYPE;
5626: l_interest_rate HZ_CUST_PROFILE_AMTS.INTEREST_RATE%TYPE;
5619: l_interest_type HZ_CUST_PROFILE_AMTS.INTEREST_TYPE%TYPE;
5620: l_penalty_type HZ_CUST_PROFILE_AMTS.PENALTY_TYPE%TYPE;
5621: l_exchange_rate_type HZ_CUST_PROFILE_AMTS.EXCHANGE_RATE_TYPE%TYPE;
5622: l_min_fc_invoice_amount HZ_CUST_PROFILE_AMTS.MIN_FC_INVOICE_AMOUNT%TYPE;
5623: l_min_fc_invoice_percent HZ_CUST_PROFILE_AMTS.MIN_FC_INVOICE_PERCENT%TYPE;
5624: l_min_fc_balance_amount HZ_CUST_PROFILE_AMTS.MIN_FC_BALANCE_AMOUNT%TYPE;
5625: l_min_fc_balance_percent HZ_CUST_PROFILE_AMTS.MIN_FC_BALANCE_PERCENT%TYPE;
5626: l_interest_rate HZ_CUST_PROFILE_AMTS.INTEREST_RATE%TYPE;
5627: l_interest_fixed_amount HZ_CUST_PROFILE_AMTS.INTEREST_FIXED_AMOUNT%TYPE;
5620: l_penalty_type HZ_CUST_PROFILE_AMTS.PENALTY_TYPE%TYPE;
5621: l_exchange_rate_type HZ_CUST_PROFILE_AMTS.EXCHANGE_RATE_TYPE%TYPE;
5622: l_min_fc_invoice_amount HZ_CUST_PROFILE_AMTS.MIN_FC_INVOICE_AMOUNT%TYPE;
5623: l_min_fc_invoice_percent HZ_CUST_PROFILE_AMTS.MIN_FC_INVOICE_PERCENT%TYPE;
5624: l_min_fc_balance_amount HZ_CUST_PROFILE_AMTS.MIN_FC_BALANCE_AMOUNT%TYPE;
5625: l_min_fc_balance_percent HZ_CUST_PROFILE_AMTS.MIN_FC_BALANCE_PERCENT%TYPE;
5626: l_interest_rate HZ_CUST_PROFILE_AMTS.INTEREST_RATE%TYPE;
5627: l_interest_fixed_amount HZ_CUST_PROFILE_AMTS.INTEREST_FIXED_AMOUNT%TYPE;
5628: l_interest_schedule_id HZ_CUST_PROFILE_AMTS.INTEREST_SCHEDULE_ID%TYPE;
5621: l_exchange_rate_type HZ_CUST_PROFILE_AMTS.EXCHANGE_RATE_TYPE%TYPE;
5622: l_min_fc_invoice_amount HZ_CUST_PROFILE_AMTS.MIN_FC_INVOICE_AMOUNT%TYPE;
5623: l_min_fc_invoice_percent HZ_CUST_PROFILE_AMTS.MIN_FC_INVOICE_PERCENT%TYPE;
5624: l_min_fc_balance_amount HZ_CUST_PROFILE_AMTS.MIN_FC_BALANCE_AMOUNT%TYPE;
5625: l_min_fc_balance_percent HZ_CUST_PROFILE_AMTS.MIN_FC_BALANCE_PERCENT%TYPE;
5626: l_interest_rate HZ_CUST_PROFILE_AMTS.INTEREST_RATE%TYPE;
5627: l_interest_fixed_amount HZ_CUST_PROFILE_AMTS.INTEREST_FIXED_AMOUNT%TYPE;
5628: l_interest_schedule_id HZ_CUST_PROFILE_AMTS.INTEREST_SCHEDULE_ID%TYPE;
5629: l_penalty_rate HZ_CUST_PROFILE_AMTS.PENALTY_RATE%TYPE;
5622: l_min_fc_invoice_amount HZ_CUST_PROFILE_AMTS.MIN_FC_INVOICE_AMOUNT%TYPE;
5623: l_min_fc_invoice_percent HZ_CUST_PROFILE_AMTS.MIN_FC_INVOICE_PERCENT%TYPE;
5624: l_min_fc_balance_amount HZ_CUST_PROFILE_AMTS.MIN_FC_BALANCE_AMOUNT%TYPE;
5625: l_min_fc_balance_percent HZ_CUST_PROFILE_AMTS.MIN_FC_BALANCE_PERCENT%TYPE;
5626: l_interest_rate HZ_CUST_PROFILE_AMTS.INTEREST_RATE%TYPE;
5627: l_interest_fixed_amount HZ_CUST_PROFILE_AMTS.INTEREST_FIXED_AMOUNT%TYPE;
5628: l_interest_schedule_id HZ_CUST_PROFILE_AMTS.INTEREST_SCHEDULE_ID%TYPE;
5629: l_penalty_rate HZ_CUST_PROFILE_AMTS.PENALTY_RATE%TYPE;
5630: l_penalty_fixed_amount HZ_CUST_PROFILE_AMTS.PENALTY_FIXED_AMOUNT%TYPE;
5623: l_min_fc_invoice_percent HZ_CUST_PROFILE_AMTS.MIN_FC_INVOICE_PERCENT%TYPE;
5624: l_min_fc_balance_amount HZ_CUST_PROFILE_AMTS.MIN_FC_BALANCE_AMOUNT%TYPE;
5625: l_min_fc_balance_percent HZ_CUST_PROFILE_AMTS.MIN_FC_BALANCE_PERCENT%TYPE;
5626: l_interest_rate HZ_CUST_PROFILE_AMTS.INTEREST_RATE%TYPE;
5627: l_interest_fixed_amount HZ_CUST_PROFILE_AMTS.INTEREST_FIXED_AMOUNT%TYPE;
5628: l_interest_schedule_id HZ_CUST_PROFILE_AMTS.INTEREST_SCHEDULE_ID%TYPE;
5629: l_penalty_rate HZ_CUST_PROFILE_AMTS.PENALTY_RATE%TYPE;
5630: l_penalty_fixed_amount HZ_CUST_PROFILE_AMTS.PENALTY_FIXED_AMOUNT%TYPE;
5631: l_penalty_schedule_id HZ_CUST_PROFILE_AMTS.PENALTY_SCHEDULE_ID%TYPE;
5624: l_min_fc_balance_amount HZ_CUST_PROFILE_AMTS.MIN_FC_BALANCE_AMOUNT%TYPE;
5625: l_min_fc_balance_percent HZ_CUST_PROFILE_AMTS.MIN_FC_BALANCE_PERCENT%TYPE;
5626: l_interest_rate HZ_CUST_PROFILE_AMTS.INTEREST_RATE%TYPE;
5627: l_interest_fixed_amount HZ_CUST_PROFILE_AMTS.INTEREST_FIXED_AMOUNT%TYPE;
5628: l_interest_schedule_id HZ_CUST_PROFILE_AMTS.INTEREST_SCHEDULE_ID%TYPE;
5629: l_penalty_rate HZ_CUST_PROFILE_AMTS.PENALTY_RATE%TYPE;
5630: l_penalty_fixed_amount HZ_CUST_PROFILE_AMTS.PENALTY_FIXED_AMOUNT%TYPE;
5631: l_penalty_schedule_id HZ_CUST_PROFILE_AMTS.PENALTY_SCHEDULE_ID%TYPE;
5632:
5625: l_min_fc_balance_percent HZ_CUST_PROFILE_AMTS.MIN_FC_BALANCE_PERCENT%TYPE;
5626: l_interest_rate HZ_CUST_PROFILE_AMTS.INTEREST_RATE%TYPE;
5627: l_interest_fixed_amount HZ_CUST_PROFILE_AMTS.INTEREST_FIXED_AMOUNT%TYPE;
5628: l_interest_schedule_id HZ_CUST_PROFILE_AMTS.INTEREST_SCHEDULE_ID%TYPE;
5629: l_penalty_rate HZ_CUST_PROFILE_AMTS.PENALTY_RATE%TYPE;
5630: l_penalty_fixed_amount HZ_CUST_PROFILE_AMTS.PENALTY_FIXED_AMOUNT%TYPE;
5631: l_penalty_schedule_id HZ_CUST_PROFILE_AMTS.PENALTY_SCHEDULE_ID%TYPE;
5632:
5633: BEGIN
5626: l_interest_rate HZ_CUST_PROFILE_AMTS.INTEREST_RATE%TYPE;
5627: l_interest_fixed_amount HZ_CUST_PROFILE_AMTS.INTEREST_FIXED_AMOUNT%TYPE;
5628: l_interest_schedule_id HZ_CUST_PROFILE_AMTS.INTEREST_SCHEDULE_ID%TYPE;
5629: l_penalty_rate HZ_CUST_PROFILE_AMTS.PENALTY_RATE%TYPE;
5630: l_penalty_fixed_amount HZ_CUST_PROFILE_AMTS.PENALTY_FIXED_AMOUNT%TYPE;
5631: l_penalty_schedule_id HZ_CUST_PROFILE_AMTS.PENALTY_SCHEDULE_ID%TYPE;
5632:
5633: BEGIN
5634:
5627: l_interest_fixed_amount HZ_CUST_PROFILE_AMTS.INTEREST_FIXED_AMOUNT%TYPE;
5628: l_interest_schedule_id HZ_CUST_PROFILE_AMTS.INTEREST_SCHEDULE_ID%TYPE;
5629: l_penalty_rate HZ_CUST_PROFILE_AMTS.PENALTY_RATE%TYPE;
5630: l_penalty_fixed_amount HZ_CUST_PROFILE_AMTS.PENALTY_FIXED_AMOUNT%TYPE;
5631: l_penalty_schedule_id HZ_CUST_PROFILE_AMTS.PENALTY_SCHEDULE_ID%TYPE;
5632:
5633: BEGIN
5634:
5635: -- Check if API is called in debug mode. If yes, enable debug.
5666: l_min_fc_invoice_amount, l_min_fc_invoice_percent,
5667: l_min_fc_balance_amount, l_min_fc_balance_percent,
5668: l_interest_rate, l_interest_fixed_amount, l_interest_schedule_id,
5669: l_penalty_rate, l_penalty_fixed_amount, l_penalty_schedule_id
5670: FROM HZ_CUST_PROFILE_AMTS
5671: WHERE ROWID = p_rowid;
5672: END IF;
5673:
5674: --------------------------------------
5686: p_cust_profile_amt_rec.cust_acct_profile_amt_id <> FND_API.G_MISS_NUM
5687: THEN
5688: BEGIN
5689: SELECT 'Y' INTO l_dummy
5690: FROM HZ_CUST_PROFILE_AMTS
5691: WHERE CUST_ACCT_PROFILE_AMT_ID = p_cust_profile_amt_rec.cust_acct_profile_amt_id;
5692:
5693: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_DUPLICATE_COLUMN' );
5694: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'cust_acct_profile_amt_id' );
5977:
5978: IF p_create_update_flag = 'C' THEN
5979: BEGIN
5980: SELECT 'Y' INTO l_dummy
5981: FROM HZ_CUST_PROFILE_AMTS
5982: WHERE CUST_ACCOUNT_PROFILE_ID = p_cust_profile_amt_rec.cust_account_profile_id
5983: AND CURRENCY_CODE = p_cust_profile_amt_rec.currency_code
5984: AND ROWNUM = 1;
5985: