[Home] [Help]
1: PACKAGE BODY ar_receipt_lib_pvt AS
2: /* $Header: ARXPRELB.pls 120.92.12020000.6 2013/04/25 13:02:33 kgnanase ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AR_RECEIPT_LIB_PVT';
5:
1: PACKAGE BODY ar_receipt_lib_pvt AS
2: /* $Header: ARXPRELB.pls 120.92.12020000.6 2013/04/25 13:02:33 kgnanase ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AR_RECEIPT_LIB_PVT';
5:
6: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
7: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
8: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
2869: sp_lines_row.tax_amount IS NULL AND
2870: sp_lines_row.amount_applied is NULL AND
2871: sp_lines_row.customer_trx_line_id is NOT NULL
2872: THEN
2873: ar_receipt_lib_pvt.populate_errors_gt (
2874: p_customer_trx_id => p_customer_trx_id,
2875: p_customer_trx_line_id => sp_lines_row.customer_trx_line_id,
2876: p_error_message =>
2877: arp_standard.fnd_message('AR_RAPI_LTFC_AMT_NULL'),
3059: l_payment_amount_cal, 'WHEN-VALIDATE-ITEM',
3060: l_message_name);
3061: IF l_message_name IS NOT NULL
3062: THEN
3063: AR_RECEIPT_LIB_PVT.populate_errors_gt (
3064: p_customer_trx_id => sp_lines_row.customer_trx_id,
3065: p_customer_trx_line_id => sp_lines_row.customer_trx_line_id,
3066: p_error_message => arp_standard.fnd_message('AR_LL_NO_OVERAPPLY'),
3067: p_invalid_value => NULL );
3072: -- application flag.
3073: --
3074: l_temp_amount := NVL( l_payment_amount, 0 ) + l_payment_amount_cal;
3075: IF ( ( l_sign_value_of_ps * l_temp_amount ) < 0 ) THEN
3076: AR_RECEIPT_LIB_PVT.populate_errors_gt (
3077: p_customer_trx_id => sp_lines_row.customer_trx_id,
3078: p_customer_trx_line_id => sp_lines_row.customer_trx_line_id,
3079: p_error_message => arp_standard.fnd_message('AR_LL_NO_OVERAPPLY'),
3080: p_invalid_value => NULL );
3092: l_temp_amount := 0;
3093: END IF;
3094:
3095: IF (( l_sign_value_of_ps * l_temp_amount ) = 1) THEN
3096: AR_RECEIPT_LIB_PVT.populate_errors_gt (
3097: p_customer_trx_id => sp_lines_row.customer_trx_id,
3098: p_customer_trx_line_id => sp_lines_row.customer_trx_line_id,
3099: p_error_message => arp_standard.fnd_message('AR_LL_NO_OVERAPPLY'),
3100: p_invalid_value => NULL );
4582: where customer_trx_id = p_customer_trx_id
4583: and line_number = i.line_number;
4584: EXCEPTION
4585: WHEN no_data_found THEN
4586: ar_receipt_lib_pvt.populate_errors_gt (
4587: p_customer_trx_id => p_customer_trx_id,
4588: p_customer_trx_line_id => i.customer_trx_line_id,
4589: p_error_message =>
4590: arp_standard.fnd_message('AR_RAPI_TRX_LINE_NO_INVALID'),
4602: AND customer_trx_line_id = i.customer_trx_line_id
4603: AND line_type = 'LINE';
4604: EXCEPTION
4605: WHEN no_data_found THEN
4606: ar_receipt_lib_pvt.populate_errors_gt (
4607: p_customer_trx_id => p_customer_trx_id,
4608: p_customer_trx_line_id => i.customer_trx_line_id,
4609: p_error_message =>
4610: arp_standard.fnd_message('AR_RAPI_TRX_LINE_ID_INVALID'),
4619: i.amount_applied is NULL AND
4620: i.amount_applied_from is NULL AND -- Bug 6931978 - Cross Currency App
4621: i.customer_trx_line_id is NOT NULL
4622: THEN
4623: ar_receipt_lib_pvt.populate_errors_gt (
4624: p_customer_trx_id => p_customer_trx_id,
4625: p_customer_trx_line_id => i.customer_trx_line_id,
4626: p_error_message =>
4627: arp_standard.fnd_message('AR_RAPI_LTFC_AMT_NULL'),
7201: END IF;
7202:
7203: /* Initialize ZX */
7204: l_le_id :=
7205: ar_receipt_lib_pvt.get_legal_entity(p_remittance_bank_account_id);
7206:
7207: -- Exchange_rate_type
7208: IF p_exchange_rate_type IS NULL THEN
7209: IF p_usr_exchange_rate_type IS NOT NULL
7446: /*------------------------------------------+
7447: | Get legal_entity_id |
7448: +------------------------------------------*/
7449: l_le_id :=
7450: ar_receipt_lib_pvt.get_legal_entity(p_remittance_bank_account_id);
7451:
7452: /* 5955921 Remittance_bank_account info is not passed by the user then the system will not default
7453: the vat_tax_id based on the user tax_code. Hence moving the below set_tax_security_context
7454: from Default_misc_ids to Get_misc_defaults procedure. */
7845: p_return_status IN OUT NOCOPY VARCHAR2
7846: ) IS
7847: BEGIN
7848: IF PG_DEBUG in ('Y', 'C') THEN
7849: arp_util.debug('ar_receipt_lib_pvt.Default_Desc_Flexfield(+)');
7850: END IF;
7851: p_return_status := FND_API.G_RET_STS_SUCCESS;
7852: IF p_cash_receipt_id IS NOT NULL THEN
7853: SELECT attribute_category,
7871: FROM ar_cash_receipts
7872: WHERE cash_receipt_id = p_cash_receipt_id;
7873: END IF;
7874: IF PG_DEBUG in ('Y', 'C') THEN
7875: arp_util.debug('ar_receipt_lib_pvt.Default_Desc_Flexfield(-)');
7876: END IF;
7877:
7878: EXCEPTION WHEN OTHERS THEN
7879: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CASH_RCPT_ID_INVALID');
7888: p_return_status OUT NOCOPY VARCHAR2
7889: ) IS
7890: BEGIN
7891: IF PG_DEBUG in ('Y', 'C') THEN
7892: arp_util.debug('ar_receipt_lib_pvt.Default_prepay_cc_activity(+)');
7893: END IF;
7894:
7895: p_return_status := FND_API.G_RET_STS_SUCCESS;
7896:
7913: END;
7914: END IF;
7915:
7916: IF PG_DEBUG in ('Y', 'C') THEN
7917: arp_util.debug('ar_receipt_lib_pvt.Default_prepay_cc_activity(+)');
7918: END IF;
7919:
7920: END Default_prepay_cc_activity;
7921:
7964:
7965: BEGIN
7966:
7967: IF PG_DEBUG in ('Y', 'C') THEN
7968: arp_util.debug('ar_receipt_lib_pvt.Default_open_receipt(+)');
7969: END IF;
7970:
7971: x_return_status := FND_API.G_RET_STS_SUCCESS ;
7972: x_open_applied_ps_id := NULL;
8110: IF p_apply_gl_date IS NULL
8111: THEN
8112: p_apply_gl_date := (GREATEST(x_cr_gl_date,x_open_cr_gl_date));
8113: l_app_gl_date_prof :=
8114: NVL(ar_receipt_lib_pvt.pg_profile_appln_gl_date_def,'INV_REC_DT');
8115: IF (l_app_gl_date_prof = 'INV_REC_DT') THEN
8116: NULL;
8117: ELSIF (l_app_gl_date_prof = 'INV_REC_SYS_DT') THEN
8118: IF p_apply_gl_date > SYSDATE THEN
8127:
8128: x_last_receipt_date := GREATEST(l_receipt_date,l_open_receipt_date);
8129:
8130: IF PG_DEBUG in ('Y', 'C') THEN
8131: arp_util.debug('ar_receipt_lib_pvt.Default_open_receipt(-)');
8132: END IF;
8133: END default_open_receipt;
8134:
8135: PROCEDURE default_unapp_open_receipt(
8143: BEGIN
8144:
8145: x_return_status := FND_API.G_RET_STS_SUCCESS;
8146: IF PG_DEBUG in ('Y', 'C') THEN
8147: arp_util.debug('ar_receipt_lib_pvt.Default_unapp_open_receipt(+)');
8148: END IF;
8149:
8150: SELECT app.applied_rec_app_id,
8151: applied_app.cash_receipt_id,
8158: WHERE app.applied_rec_app_id = applied_app.receivable_application_id
8159: AND app.receivable_application_id = p_receivable_application_id;
8160:
8161: IF PG_DEBUG in ('Y', 'C') THEN
8162: arp_util.debug('ar_receipt_lib_pvt.Default_unapp_open_receipt(-)');
8163: END IF;
8164:
8165: EXCEPTION
8166: WHEN no_data_found THEN
8175: l_legal_entity_id NUMBER;
8176: l_return_status VARCHAR2(1);
8177: BEGIN
8178: IF PG_DEBUG in ('Y', 'C') THEN
8179: arp_util.debug('ar_receipt_lib_pvt.get_legal_entity(+)');
8180: END IF;
8181:
8182: l_legal_entity_id := TO_NUMBER(Get_Id('LEGAL_ENTITY',
8183: p_remit_bank_acct_use_id,
8185: ));
8186: RETURN l_legal_entity_id;
8187:
8188: IF PG_DEBUG in ('Y', 'C') THEN
8189: arp_util.debug('ar_receipt_lib_pvt.get_legal_entity(-)');
8190: END IF;
8191: EXCEPTION
8192: WHEN OTHERS THEN
8193: RETURN NULL;
8231: l_party_site_id hz_parties.party_id%TYPE;
8232: l_pmt_attr_rec iby_disbursement_comp_pub.default_pmt_attrs_rec_type;
8233: BEGIN
8234: IF PG_DEBUG in ('Y', 'C') THEN
8235: arp_util.debug('ar_receipt_lib_pvt.default_refund_attributes(+)');
8236: END IF;
8237: l_trxn_attributes_rec.application_id := 222;
8238:
8239: IF p_cash_receipt_id IS NOT NULL THEN
8361: x_delivery_channel_code := l_pmt_attr_rec.delivery_channel.code;
8362: x_delivery_channel_name := l_pmt_attr_rec.delivery_channel.meaning;
8363: x_pay_alone_flag := l_pmt_attr_rec.pay_alone;
8364: IF PG_DEBUG in ('Y', 'C') THEN
8365: arp_util.debug('ar_receipt_lib_pvt.default_refund_attributes(-)');
8366: END IF;
8367: END default_refund_attributes;
8368:
8369:
8555: END IF;
8556: raise;
8557: End populate_errors_gt;
8558:
8559: END ar_receipt_lib_pvt;