[Home] [Help]
1: PACKAGE BODY ar_receipt_lib_pvt AS
2: /* $Header: ARXPRELB.pls 120.78.12010000.7 2009/01/13 20:15:25 mraymond 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.78.12010000.7 2009/01/13 20:15:25 mraymond 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;
2766: sp_lines_row.tax_amount IS NULL AND
2767: sp_lines_row.amount_applied is NULL AND
2768: sp_lines_row.customer_trx_line_id is NOT NULL
2769: THEN
2770: ar_receipt_lib_pvt.populate_errors_gt (
2771: p_customer_trx_id => p_customer_trx_id,
2772: p_customer_trx_line_id => sp_lines_row.customer_trx_line_id,
2773: p_error_message =>
2774: arp_standard.fnd_message('AR_RAPI_LTFC_AMT_NULL'),
4353: where customer_trx_id = p_customer_trx_id
4354: and line_number = i.line_number;
4355: EXCEPTION
4356: WHEN no_data_found THEN
4357: ar_receipt_lib_pvt.populate_errors_gt (
4358: p_customer_trx_id => p_customer_trx_id,
4359: p_customer_trx_line_id => i.customer_trx_line_id,
4360: p_error_message =>
4361: arp_standard.fnd_message('AR_RAPI_TRX_LINE_NO_INVALID'),
4373: AND customer_trx_line_id = i.customer_trx_line_id
4374: AND line_type = 'LINE';
4375: EXCEPTION
4376: WHEN no_data_found THEN
4377: ar_receipt_lib_pvt.populate_errors_gt (
4378: p_customer_trx_id => p_customer_trx_id,
4379: p_customer_trx_line_id => i.customer_trx_line_id,
4380: p_error_message =>
4381: arp_standard.fnd_message('AR_RAPI_TRX_LINE_ID_INVALID'),
4390: i.amount_applied is NULL AND
4391: i.amount_applied_from is NULL AND -- Bug 6931978 - Cross Currency App
4392: i.customer_trx_line_id is NOT NULL
4393: THEN
4394: ar_receipt_lib_pvt.populate_errors_gt (
4395: p_customer_trx_id => p_customer_trx_id,
4396: p_customer_trx_line_id => i.customer_trx_line_id,
4397: p_error_message =>
4398: arp_standard.fnd_message('AR_RAPI_LTFC_AMT_NULL'),
6913: END IF;
6914:
6915: /* Initialize ZX */
6916: l_le_id :=
6917: ar_receipt_lib_pvt.get_legal_entity(p_remittance_bank_account_id);
6918:
6919: -- Exchange_rate_type
6920: IF p_exchange_rate_type IS NULL THEN
6921: IF p_usr_exchange_rate_type IS NOT NULL
7157: /*------------------------------------------+
7158: | Get legal_entity_id |
7159: +------------------------------------------*/
7160: l_le_id :=
7161: ar_receipt_lib_pvt.get_legal_entity(p_remittance_bank_account_id);
7162:
7163: /* 5955921 Remittance_bank_account info is not passed by the user then the system will not default
7164: the vat_tax_id based on the user tax_code. Hence moving the below set_tax_security_context
7165: from Default_misc_ids to Get_misc_defaults procedure. */
7546: p_return_status IN OUT NOCOPY VARCHAR2
7547: ) IS
7548: BEGIN
7549: IF PG_DEBUG in ('Y', 'C') THEN
7550: arp_util.debug('ar_receipt_lib_pvt.Default_Desc_Flexfield(+)');
7551: END IF;
7552: p_return_status := FND_API.G_RET_STS_SUCCESS;
7553: IF p_cash_receipt_id IS NOT NULL THEN
7554: SELECT attribute_category,
7572: FROM ar_cash_receipts
7573: WHERE cash_receipt_id = p_cash_receipt_id;
7574: END IF;
7575: IF PG_DEBUG in ('Y', 'C') THEN
7576: arp_util.debug('ar_receipt_lib_pvt.Default_Desc_Flexfield(-)');
7577: END IF;
7578:
7579: EXCEPTION WHEN OTHERS THEN
7580: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CASH_RCPT_ID_INVALID');
7589: p_return_status OUT NOCOPY VARCHAR2
7590: ) IS
7591: BEGIN
7592: IF PG_DEBUG in ('Y', 'C') THEN
7593: arp_util.debug('ar_receipt_lib_pvt.Default_prepay_cc_activity(+)');
7594: END IF;
7595:
7596: p_return_status := FND_API.G_RET_STS_SUCCESS;
7597:
7614: END;
7615: END IF;
7616:
7617: IF PG_DEBUG in ('Y', 'C') THEN
7618: arp_util.debug('ar_receipt_lib_pvt.Default_prepay_cc_activity(+)');
7619: END IF;
7620:
7621: END Default_prepay_cc_activity;
7622:
7665:
7666: BEGIN
7667:
7668: IF PG_DEBUG in ('Y', 'C') THEN
7669: arp_util.debug('ar_receipt_lib_pvt.Default_open_receipt(+)');
7670: END IF;
7671:
7672: x_return_status := FND_API.G_RET_STS_SUCCESS ;
7673: x_open_applied_ps_id := NULL;
7811: IF p_apply_gl_date IS NULL
7812: THEN
7813: p_apply_gl_date := (GREATEST(x_cr_gl_date,x_open_cr_gl_date));
7814: l_app_gl_date_prof :=
7815: NVL(ar_receipt_lib_pvt.pg_profile_appln_gl_date_def,'INV_REC_DT');
7816: IF (l_app_gl_date_prof = 'INV_REC_DT') THEN
7817: NULL;
7818: ELSIF (l_app_gl_date_prof = 'INV_REC_SYS_DT') THEN
7819: IF p_apply_gl_date > SYSDATE THEN
7828:
7829: x_last_receipt_date := GREATEST(l_receipt_date,l_open_receipt_date);
7830:
7831: IF PG_DEBUG in ('Y', 'C') THEN
7832: arp_util.debug('ar_receipt_lib_pvt.Default_open_receipt(-)');
7833: END IF;
7834: END default_open_receipt;
7835:
7836: PROCEDURE default_unapp_open_receipt(
7844: BEGIN
7845:
7846: x_return_status := FND_API.G_RET_STS_SUCCESS;
7847: IF PG_DEBUG in ('Y', 'C') THEN
7848: arp_util.debug('ar_receipt_lib_pvt.Default_unapp_open_receipt(+)');
7849: END IF;
7850:
7851: SELECT app.applied_rec_app_id,
7852: applied_app.cash_receipt_id,
7859: WHERE app.applied_rec_app_id = applied_app.receivable_application_id
7860: AND app.receivable_application_id = p_receivable_application_id;
7861:
7862: IF PG_DEBUG in ('Y', 'C') THEN
7863: arp_util.debug('ar_receipt_lib_pvt.Default_unapp_open_receipt(-)');
7864: END IF;
7865:
7866: EXCEPTION
7867: WHEN no_data_found THEN
7876: l_legal_entity_id NUMBER;
7877: l_return_status VARCHAR2(1);
7878: BEGIN
7879: IF PG_DEBUG in ('Y', 'C') THEN
7880: arp_util.debug('ar_receipt_lib_pvt.get_legal_entity(+)');
7881: END IF;
7882:
7883: l_legal_entity_id := TO_NUMBER(Get_Id('LEGAL_ENTITY',
7884: p_remit_bank_acct_use_id,
7886: ));
7887: RETURN l_legal_entity_id;
7888:
7889: IF PG_DEBUG in ('Y', 'C') THEN
7890: arp_util.debug('ar_receipt_lib_pvt.get_legal_entity(-)');
7891: END IF;
7892: EXCEPTION
7893: WHEN OTHERS THEN
7894: RETURN NULL;
7932: l_party_site_id hz_parties.party_id%TYPE;
7933: l_pmt_attr_rec iby_disbursement_comp_pub.default_pmt_attrs_rec_type;
7934: BEGIN
7935: IF PG_DEBUG in ('Y', 'C') THEN
7936: arp_util.debug('ar_receipt_lib_pvt.default_refund_attributes(+)');
7937: END IF;
7938: l_trxn_attributes_rec.application_id := 222;
7939:
7940: IF p_cash_receipt_id IS NOT NULL THEN
8062: x_delivery_channel_code := l_pmt_attr_rec.delivery_channel.code;
8063: x_delivery_channel_name := l_pmt_attr_rec.delivery_channel.meaning;
8064: x_pay_alone_flag := l_pmt_attr_rec.pay_alone;
8065: IF PG_DEBUG in ('Y', 'C') THEN
8066: arp_util.debug('ar_receipt_lib_pvt.default_refund_attributes(-)');
8067: END IF;
8068: END default_refund_attributes;
8069:
8070:
8256: END IF;
8257: raise;
8258: End populate_errors_gt;
8259:
8260: END ar_receipt_lib_pvt;