[Home] [Help]
24: --the procedure initialize_profile_globals would not do any initialization in that
25: --case
26: PROCEDURE initialize_profile_globals IS
27: BEGIN
28: IF ar_receipt_lib_pvt.pg_profile_doc_seq = FND_API.G_MISS_CHAR THEN
29: ar_receipt_lib_pvt.pg_profile_doc_seq
30: := fnd_profile.value('UNIQUE:SEQ_NUMBERS');
31: END IF;
32: -- pofile option AR_ENABLE_CROSS_CURRENCY has been obsolited
30: := fnd_profile.value('UNIQUE:SEQ_NUMBERS');
31: END IF;
32: -- pofile option AR_ENABLE_CROSS_CURRENCY has been obsolited
33: -- it will now always be 'Y'
34: -- IF ar_receipt_lib_pvt.pg_profile_enable_cc = FND_API.G_MISS_CHAR THEN
35: ar_receipt_lib_pvt.pg_profile_enable_cc:='Y';
36: -- := fnd_profile.value('AR_ENABLE_CROSS_CURRENCY');
37: -- END IF;
38: IF ar_receipt_lib_pvt.pg_profile_appln_gl_date_def = FND_API.G_MISS_CHAR THEN
34: -- IF ar_receipt_lib_pvt.pg_profile_enable_cc = FND_API.G_MISS_CHAR THEN
35: ar_receipt_lib_pvt.pg_profile_enable_cc:='Y';
36: -- := fnd_profile.value('AR_ENABLE_CROSS_CURRENCY');
37: -- END IF;
38: IF ar_receipt_lib_pvt.pg_profile_appln_gl_date_def = FND_API.G_MISS_CHAR THEN
39: ar_receipt_lib_pvt.pg_profile_appln_gl_date_def
40: := fnd_profile.value('AR_APPLICATION_GL_DATE_DEFAULT');
41: END IF;
42: ---Profile option: AR: Cash - default Amount Applied has been
40: := fnd_profile.value('AR_APPLICATION_GL_DATE_DEFAULT');
41: END IF;
42: ---Profile option: AR: Cash - default Amount Applied has been
43: -- obsoleted
44: IF ar_receipt_lib_pvt.pg_profile_amt_applied_def = FND_API.G_MISS_CHAR THEN
45: ar_receipt_lib_pvt.pg_profile_amt_applied_def :='INV';
46: END IF;
47: IF ar_receipt_lib_pvt.pg_profile_cc_rate_type = FND_API.G_MISS_CHAR THEN
48: ar_receipt_lib_pvt.pg_profile_cc_rate_type
43: -- obsoleted
44: IF ar_receipt_lib_pvt.pg_profile_amt_applied_def = FND_API.G_MISS_CHAR THEN
45: ar_receipt_lib_pvt.pg_profile_amt_applied_def :='INV';
46: END IF;
47: IF ar_receipt_lib_pvt.pg_profile_cc_rate_type = FND_API.G_MISS_CHAR THEN
48: ar_receipt_lib_pvt.pg_profile_cc_rate_type
49: := ar_setup.value('AR_CROSS_CURRENCY_RATE_TYPE',null);
50: -- null should be replaced with org_id, to find profile for diffrent org
51: END IF;
49: := ar_setup.value('AR_CROSS_CURRENCY_RATE_TYPE',null);
50: -- null should be replaced with org_id, to find profile for diffrent org
51: END IF;
52:
53: IF ar_receipt_lib_pvt.pg_profile_dsp_inv_rate = FND_API.G_MISS_CHAR THEN
54: ar_receipt_lib_pvt.pg_profile_dsp_inv_rate
55: := fnd_profile.value('DISPLAY_INVERSE_RATE');
56: END IF;
57: IF ar_receipt_lib_pvt.pg_profile_create_bk_charges = FND_API.G_MISS_CHAR THEN
53: IF ar_receipt_lib_pvt.pg_profile_dsp_inv_rate = FND_API.G_MISS_CHAR THEN
54: ar_receipt_lib_pvt.pg_profile_dsp_inv_rate
55: := fnd_profile.value('DISPLAY_INVERSE_RATE');
56: END IF;
57: IF ar_receipt_lib_pvt.pg_profile_create_bk_charges = FND_API.G_MISS_CHAR THEN
58: ar_receipt_lib_pvt.pg_profile_create_bk_charges
59: := fnd_profile.value('AR_JG_CREATE_BANK_CHARGES');
60: END IF;
61: IF ar_receipt_lib_pvt.pg_profile_def_x_rate_type = FND_API.G_MISS_CHAR THEN
57: IF ar_receipt_lib_pvt.pg_profile_create_bk_charges = FND_API.G_MISS_CHAR THEN
58: ar_receipt_lib_pvt.pg_profile_create_bk_charges
59: := fnd_profile.value('AR_JG_CREATE_BANK_CHARGES');
60: END IF;
61: IF ar_receipt_lib_pvt.pg_profile_def_x_rate_type = FND_API.G_MISS_CHAR THEN
62: ar_receipt_lib_pvt.pg_profile_def_x_rate_type
63: := fnd_profile.value('AR_DEFAULT_EXCHANGE_RATE_TYPE');
64: END IF;
65: arp_util.debug('*******Profile Option Values************');
77:
78: PROCEDURE Create_cash_1(
79: -- Standard API parameters.
80: p_api_version IN NUMBER,
81: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
82: p_commit IN VARCHAR2 := FND_API.G_FALSE,
83: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
84: x_return_status OUT NOCOPY VARCHAR2,
85: x_msg_count OUT NOCOPY NUMBER,
78: PROCEDURE Create_cash_1(
79: -- Standard API parameters.
80: p_api_version IN NUMBER,
81: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
82: p_commit IN VARCHAR2 := FND_API.G_FALSE,
83: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
84: x_return_status OUT NOCOPY VARCHAR2,
85: x_msg_count OUT NOCOPY NUMBER,
86: x_msg_data OUT NOCOPY VARCHAR2,
79: -- Standard API parameters.
80: p_api_version IN NUMBER,
81: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
82: p_commit IN VARCHAR2 := FND_API.G_FALSE,
83: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
84: x_return_status OUT NOCOPY VARCHAR2,
85: x_msg_count OUT NOCOPY NUMBER,
86: x_msg_data OUT NOCOPY VARCHAR2,
87: -- Receipt info. parameters
174: l_state VARCHAR2(30);
175: l_cr_id NUMBER;
176: l_ps_id NUMBER;
177: l_row_id VARCHAR2(30);
178: l_validation_status VARCHAR2(2) DEFAULT FND_API.G_RET_STS_SUCCESS;
179: l_doc_seq_status VARCHAR2(10);
180: l_doc_sequence_id NUMBER;
181: l_doc_sequence_value NUMBER;
182: l_postmark_date DATE;
183: l_cash_def_return_status VARCHAR2(1);
184: l_val_return_status VARCHAR2(1);
185: l_def_cash_id_return_status VARCHAR2(1);
186: l_derive_cust_return_status VARCHAR2(1);
187: l_dflex_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
188: l_attribute_rec attribute_rec_type;
189: l_global_attribute_rec global_attribute_rec_type;
190: l_gdflex_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
191: l_creation_method_code ar_receipt_classes.creation_method_code%TYPE;
186: l_derive_cust_return_status VARCHAR2(1);
187: l_dflex_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
188: l_attribute_rec attribute_rec_type;
189: l_global_attribute_rec global_attribute_rec_type;
190: l_gdflex_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
191: l_creation_method_code ar_receipt_classes.creation_method_code%TYPE;
192: l_creation_method VARCHAR2(1);
193: l_org_return_status VARCHAR2(1);
194: l_org_id NUMBER;
193: l_org_return_status VARCHAR2(1);
194: l_org_id NUMBER;
195: l_legal_entity_id NUMBER; /* R12 LE uptake */
196: /* bichatte payment uptake */
197: l_copy_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
198: l_copy_msg_count NUMBER;
199: l_copy_msg_data VARCHAR2(2000);
200: l_copy_pmt_trxn_extension_id ar_cash_receipts.payment_trxn_extension_id%TYPE; /* bichatte payment uptake project */
201: l_create_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
197: l_copy_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
198: l_copy_msg_count NUMBER;
199: l_copy_msg_data VARCHAR2(2000);
200: l_copy_pmt_trxn_extension_id ar_cash_receipts.payment_trxn_extension_id%TYPE; /* bichatte payment uptake project */
201: l_create_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
202: l_create_msg_count NUMBER;
203: l_create_msg_data VARCHAR2(2000);
204: l_create_pmt_trxn_extension_id ar_cash_receipts.payment_trxn_extension_id%TYPE; /* bichatte payment uptake project */
205: l_default_site_use VARCHAR2(1); --bug4448307-4509459
252: /*--------------------------------------------------+
253: | Standard call to check for call compatibility |
254: +--------------------------------------------------*/
255:
256: IF NOT FND_API.Compatible_API_Call(
257: l_api_version,
258: p_api_version,
259: l_api_name,
260: G_PKG_NAME
259: l_api_name,
260: G_PKG_NAME
261: )
262: THEN
263: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
264: END IF;
265:
266: /*--------------------------------------------------------------+
267: | Initialize message list if p_init_msg_list is set to TRUE |
266: /*--------------------------------------------------------------+
267: | Initialize message list if p_init_msg_list is set to TRUE |
268: +--------------------------------------------------------------*/
269:
270: IF FND_API.to_Boolean( p_init_msg_list )
271: THEN
272: FND_MSG_PUB.initialize;
273: END IF;
274:
300: /*-----------------------------------------+
301: | Initialize return status to SUCCESS |
302: +-----------------------------------------*/
303:
304: x_return_status := FND_API.G_RET_STS_SUCCESS;
305: l_doc_seq_status := FND_API.G_RET_STS_SUCCESS;
306:
307: /* SSA change */
308: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
301: | Initialize return status to SUCCESS |
302: +-----------------------------------------*/
303:
304: x_return_status := FND_API.G_RET_STS_SUCCESS;
305: l_doc_seq_status := FND_API.G_RET_STS_SUCCESS;
306:
307: /* SSA change */
308: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
309: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
304: x_return_status := FND_API.G_RET_STS_SUCCESS;
305: l_doc_seq_status := FND_API.G_RET_STS_SUCCESS;
306:
307: /* SSA change */
308: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
309: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
310: p_return_status =>l_org_return_status);
311:
312: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
308: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
309: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
310: p_return_status =>l_org_return_status);
311:
312: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
313: x_return_status := FND_API.G_RET_STS_ERROR;
314: ELSE
315:
316: /*-------------------------------------------------+
309: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
310: p_return_status =>l_org_return_status);
311:
312: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
313: x_return_status := FND_API.G_RET_STS_ERROR;
314: ELSE
315:
316: /*-------------------------------------------------+
317: | Initialize the profile option package variables |
354: );
355:
356: IF p_calling_api = 'CREATE_AND_APPLY' THEN
357: IF l_customer_id IS NULL AND
358: l_def_cash_id_return_status = FND_API.G_RET_STS_SUCCESS AND
359: l_currency_code IS NOT NULL
360: THEN
361: ar_receipt_lib_pvt.Derive_cust_info_from_trx(
362: p_customer_trx_id,
480: END IF;
481:
482: END IF;
483:
484: IF l_cash_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
485: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
486: l_def_cash_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
487: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
488: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
481:
482: END IF;
483:
484: IF l_cash_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
485: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
486: l_def_cash_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
487: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
488: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
489:
482: END IF;
483:
484: IF l_cash_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
485: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
486: l_def_cash_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
487: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
488: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
489:
490: x_return_status := FND_API.G_RET_STS_ERROR;
483:
484: IF l_cash_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
485: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
486: l_def_cash_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
487: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
488: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
489:
490: x_return_status := FND_API.G_RET_STS_ERROR;
491: END IF;
484: IF l_cash_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
485: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
486: l_def_cash_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
487: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
488: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
489:
490: x_return_status := FND_API.G_RET_STS_ERROR;
491: END IF;
492:
486: l_def_cash_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
487: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
488: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
489:
490: x_return_status := FND_API.G_RET_STS_ERROR;
491: END IF;
492:
493: --APANDIT : after the changes made for iReceivables credit card feature
494: --the receipt api will also be creating the automatic receipts.
509: END IF;
510:
511: --Call the document sequence routine only there have been no errors
512: --reported so far.
513: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
514:
515: ar_receipt_lib_pvt.get_doc_seq(222,
516: l_receipt_method_name,
517: arp_global.set_of_books_id,
540: END IF;
541: --raise error message
542: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_NUM_NULL');
543: FND_MSG_PUB.Add;
544: x_return_status := FND_API.G_RET_STS_ERROR;
545: END IF;
546: END IF;
547:
548: /* Bug 5364287 */
548: /* Bug 5364287 */
549: arp_standard.debug ('x_return_status (' || x_return_status ||')');
550: arp_standard.debug ('l_doc_seq_status (' || l_doc_seq_status ||')');
551: IF (
552: x_return_status <> FND_API.G_RET_STS_SUCCESS
553: OR l_doc_seq_status <> FND_API.G_RET_STS_SUCCESS
554: )
555: THEN
556: x_return_status := FND_API.G_RET_STS_ERROR ;
549: arp_standard.debug ('x_return_status (' || x_return_status ||')');
550: arp_standard.debug ('l_doc_seq_status (' || l_doc_seq_status ||')');
551: IF (
552: x_return_status <> FND_API.G_RET_STS_SUCCESS
553: OR l_doc_seq_status <> FND_API.G_RET_STS_SUCCESS
554: )
555: THEN
556: x_return_status := FND_API.G_RET_STS_ERROR ;
557: ELSE
552: x_return_status <> FND_API.G_RET_STS_SUCCESS
553: OR l_doc_seq_status <> FND_API.G_RET_STS_SUCCESS
554: )
555: THEN
556: x_return_status := FND_API.G_RET_STS_ERROR ;
557: ELSE
558:
559: -- HERE we have to call the payment engine in order to get the payment_trx_extension_id
560: -- the conditions are if creation_method = 'A' and p_payment_trx_extension_id is null.
581: arp_util.debug('Create_cash_122: ' || l_creation_method_code);
582: arp_util.debug('Create_cash_122: ' || l_payment_trxn_extension_id );
583: FND_MESSAGE.SET_NAME('AR','AR_CC_AUTH_FAILED');
584: FND_MSG_PUB.Add;
585: x_return_status := FND_API.G_RET_STS_ERROR;
586: END IF;
587:
588: /*Bug 5614569
589: Commented out the existing logic to call the create_payment_extension if the receipt creation
608: x_return_status =>l_copy_return_status,
609: o_payment_trxn_extension_id =>l_copy_pmt_trxn_extension_id
610: );
611:
612: IF l_copy_return_status <> FND_API.G_RET_STS_SUCCESS THEN
613: arp_util.debug('Create_cash_123: ' );
614: FND_MESSAGE.set_name('AR', 'AR_CC_AUTH_FAILED');
615: FND_MSG_PUB.Add;
616: x_return_status := FND_API.G_RET_STS_ERROR;
612: IF l_copy_return_status <> FND_API.G_RET_STS_SUCCESS THEN
613: arp_util.debug('Create_cash_123: ' );
614: FND_MESSAGE.set_name('AR', 'AR_CC_AUTH_FAILED');
615: FND_MSG_PUB.Add;
616: x_return_status := FND_API.G_RET_STS_ERROR;
617: END IF;
618:
619: l_payment_trxn_extension_id := l_copy_pmt_trxn_extension_id;
620:
639: x_return_status =>l_create_return_status,
640: o_payment_trxn_extension_id =>l_create_pmt_trxn_extension_id
641: );
642:
643: IF l_create_return_status <> FND_API.G_RET_STS_SUCCESS THEN
644: arp_util.debug('Create_cash_123: ' );
645: FND_MESSAGE.set_name('AR', 'AR_CC_AUTH_FAILED');
646: FND_MSG_PUB.Add;
647: x_return_status := FND_API.G_RET_STS_ERROR;
643: IF l_create_return_status <> FND_API.G_RET_STS_SUCCESS THEN
644: arp_util.debug('Create_cash_123: ' );
645: FND_MESSAGE.set_name('AR', 'AR_CC_AUTH_FAILED');
646: FND_MSG_PUB.Add;
647: x_return_status := FND_API.G_RET_STS_ERROR;
648: END IF;
649:
650: l_payment_trxn_extension_id := l_create_pmt_trxn_extension_id;
651:
693: arp_util.debug('Create_cash_1: ' || 'x_return_status : '||x_return_status);
694: arp_util.debug('Create_cash_1: ' || 'l_doc_seq_status : '||l_doc_seq_status);
695: END IF;
696: IF (
697: x_return_status <> FND_API.G_RET_STS_SUCCESS
698: OR l_doc_seq_status <> FND_API.G_RET_STS_SUCCESS
699: )
700: THEN
701:
694: arp_util.debug('Create_cash_1: ' || 'l_doc_seq_status : '||l_doc_seq_status);
695: END IF;
696: IF (
697: x_return_status <> FND_API.G_RET_STS_SUCCESS
698: OR l_doc_seq_status <> FND_API.G_RET_STS_SUCCESS
699: )
700: THEN
701:
702: ROLLBACK TO Create_cash_PVT;
700: THEN
701:
702: ROLLBACK TO Create_cash_PVT;
703:
704: x_return_status := FND_API.G_RET_STS_ERROR ;
705:
706: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
707: p_count => x_msg_count,
708: p_data => x_msg_data);
702: ROLLBACK TO Create_cash_PVT;
703:
704: x_return_status := FND_API.G_RET_STS_ERROR ;
705:
706: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
707: p_count => x_msg_count,
708: p_data => x_msg_data);
709:
710: IF PG_DEBUG in ('Y', 'C') THEN
809: THEN
810: ROLLBACK TO Create_Cash_PVT;
811:
812: -- Display_Parameters;
813: x_return_status := FND_API.G_RET_STS_ERROR ;
814: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
815: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROC_RECEIPTS2.INSERT_CASH_RECEIPT : '||SQLERRM);
816: FND_MSG_PUB.Add;
817:
814: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
815: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROC_RECEIPTS2.INSERT_CASH_RECEIPT : '||SQLERRM);
816: FND_MSG_PUB.Add;
817:
818: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
819: p_count => x_msg_count,
820: p_data => x_msg_data
821: );
822: RETURN;
836: | in the message stack. If there is only one message in |
837: | the stack it retrieves this message |
838: +-------------------------------------------------------*/
839:
840: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
841: p_count => x_msg_count,
842: p_data => x_msg_data
843: );
844:
846: /*--------------------------------+
847: | Standard check of p_commit |
848: +--------------------------------*/
849:
850: IF FND_API.To_Boolean( p_commit )
851: THEN
852: IF PG_DEBUG in ('Y', 'C') THEN
853: arp_util.debug('Create_cash_1: ' || 'committing');
854: END IF;
860: END IF;
861:
862:
863: EXCEPTION
864: WHEN FND_API.G_EXC_ERROR THEN
865:
866: IF PG_DEBUG in ('Y', 'C') THEN
867: arp_util.debug('Create_cash_1: ' || SQLCODE, G_MSG_ERROR);
868: arp_util.debug('Create_cash_1: ' || SQLERRM, G_MSG_ERROR);
868: arp_util.debug('Create_cash_1: ' || SQLERRM, G_MSG_ERROR);
869: END IF;
870:
871: ROLLBACK TO Create_Cash_PVT;
872: x_return_status := FND_API.G_RET_STS_ERROR ;
873:
874: --Display_Parameters;
875:
876: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
872: x_return_status := FND_API.G_RET_STS_ERROR ;
873:
874: --Display_Parameters;
875:
876: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
877: p_count => x_msg_count,
878: p_data => x_msg_data
879: );
880:
877: p_count => x_msg_count,
878: p_data => x_msg_data
879: );
880:
881: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
882:
883: IF PG_DEBUG in ('Y', 'C') THEN
884: arp_util.debug('Create_cash_1: ' || SQLERRM, G_MSG_ERROR);
885: END IF;
883: IF PG_DEBUG in ('Y', 'C') THEN
884: arp_util.debug('Create_cash_1: ' || SQLERRM, G_MSG_ERROR);
885: END IF;
886: ROLLBACK TO Create_Cash_PVT;
887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
888:
889: -- Display_Parameters;
890:
891: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
888:
889: -- Display_Parameters;
890:
891: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
892: p_count => x_msg_count,
893: p_data => x_msg_data
894: );
895:
905: THEN
906: ROLLBACK TO Create_Cash_PVT;
907:
908: -- Display_Parameters;
909: x_return_status := FND_API.G_RET_STS_ERROR ;
910: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
911: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','CREATE_CASH : '||SQLERRM);
912: FND_MSG_PUB.Add;
913:
910: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
911: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','CREATE_CASH : '||SQLERRM);
912: FND_MSG_PUB.Add;
913:
914: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
915: p_count => x_msg_count,
916: p_data => x_msg_data
917: );
918: RETURN;
916: p_data => x_msg_data
917: );
918: RETURN;
919: ELSE
920: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
921: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
922: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','CREATE_CASH : '||SQLERRM);
923: FND_MSG_PUB.Add;
924: END IF;
938: );
939: END IF;
940:
941: -- Display_Parameters;
942: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
943: p_count => x_msg_count,
944: p_data => x_msg_data
945: );
946:
948:
949: PROCEDURE Create_cash(
950: -- Standard API parameters.
951: p_api_version IN NUMBER,
952: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
953: p_commit IN VARCHAR2 := FND_API.G_FALSE,
954: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
955: x_return_status OUT NOCOPY VARCHAR2,
956: x_msg_count OUT NOCOPY NUMBER,
949: PROCEDURE Create_cash(
950: -- Standard API parameters.
951: p_api_version IN NUMBER,
952: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
953: p_commit IN VARCHAR2 := FND_API.G_FALSE,
954: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
955: x_return_status OUT NOCOPY VARCHAR2,
956: x_msg_count OUT NOCOPY NUMBER,
957: x_msg_data OUT NOCOPY VARCHAR2,
950: -- Standard API parameters.
951: p_api_version IN NUMBER,
952: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
953: p_commit IN VARCHAR2 := FND_API.G_FALSE,
954: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
955: x_return_status OUT NOCOPY VARCHAR2,
956: x_msg_count OUT NOCOPY NUMBER,
957: x_msg_data OUT NOCOPY VARCHAR2,
958: -- Receipt info. parameters
1035: l_state VARCHAR2(30);
1036: l_cr_id NUMBER;
1037: l_ps_id NUMBER;
1038: l_row_id VARCHAR2(30);
1039: l_validation_status VARCHAR2(2) := FND_API.G_RET_STS_SUCCESS;
1040: l_doc_seq_status VARCHAR2(10);
1041: l_doc_sequence_id NUMBER;
1042: l_doc_sequence_value NUMBER;
1043: l_postmark_date DATE;
1116:
1117: PROCEDURE Apply(
1118: -- Standard API parameters.
1119: p_api_version IN NUMBER,
1120: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1121: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1122: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1123: x_return_status OUT NOCOPY VARCHAR2,
1124: x_msg_count OUT NOCOPY NUMBER,
1117: PROCEDURE Apply(
1118: -- Standard API parameters.
1119: p_api_version IN NUMBER,
1120: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1121: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1122: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1123: x_return_status OUT NOCOPY VARCHAR2,
1124: x_msg_count OUT NOCOPY NUMBER,
1125: x_msg_data OUT NOCOPY VARCHAR2,
1118: -- Standard API parameters.
1119: p_api_version IN NUMBER,
1120: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1121: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1122: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1123: x_return_status OUT NOCOPY VARCHAR2,
1124: x_msg_count OUT NOCOPY NUMBER,
1125: x_msg_data OUT NOCOPY VARCHAR2,
1126: -- Receipt application parameters.
1250: /*--------------------------------------------------+
1251: | Standard call to check for call compatibility |
1252: +--------------------------------------------------*/
1253:
1254: IF NOT FND_API.Compatible_API_Call(
1255: l_api_version,
1256: p_api_version,
1257: l_api_name,
1258: G_PKG_NAME
1257: l_api_name,
1258: G_PKG_NAME
1259: )
1260: THEN
1261: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1262: END IF;
1263:
1264: /*--------------------------------------------------------------+
1265: | Initialize message list if p_init_msg_list is set to TRUE |
1264: /*--------------------------------------------------------------+
1265: | Initialize message list if p_init_msg_list is set to TRUE |
1266: +--------------------------------------------------------------*/
1267:
1268: IF FND_API.to_Boolean( p_init_msg_list )
1269: THEN
1270: FND_MSG_PUB.initialize;
1271: END IF;
1272:
1287:
1288: /*-----------------------------------------+
1289: | Initialize return status to SUCCESS |
1290: +-----------------------------------------*/
1291: x_return_status := FND_API.G_RET_STS_SUCCESS;
1292:
1293:
1294:
1295:
1294:
1295:
1296: /* SSA change */
1297: l_org_id := p_org_id;
1298: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
1299: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
1300: p_return_status =>l_org_return_status);
1301: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1302: x_return_status := FND_API.G_RET_STS_ERROR;
1297: l_org_id := p_org_id;
1298: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
1299: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
1300: p_return_status =>l_org_return_status);
1301: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1302: x_return_status := FND_API.G_RET_STS_ERROR;
1303: ELSE
1304:
1305:
1298: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
1299: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
1300: p_return_status =>l_org_return_status);
1301: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1302: x_return_status := FND_API.G_RET_STS_ERROR;
1303: ELSE
1304:
1305:
1306: /*-------------------------------------------------+
1433: --defaulting for any of the two entities : Cash receipt and Transaction.
1434: --So in this case there is no point in calling the validation routines as
1435: --at least on of the two main entities are invalid.
1436: --The invalid cash receipt is bound to give an invalid transaction error
1437: IF l_def_return_status = FND_API.G_RET_STS_SUCCESS AND
1438: l_def_ids_return_status = FND_API.G_RET_STS_SUCCESS
1439: THEN
1440: ar_receipt_val_pvt.Validate_Application_info(
1441: l_apply_date,
1434: --So in this case there is no point in calling the validation routines as
1435: --at least on of the two main entities are invalid.
1436: --The invalid cash receipt is bound to give an invalid transaction error
1437: IF l_def_return_status = FND_API.G_RET_STS_SUCCESS AND
1438: l_def_ids_return_status = FND_API.G_RET_STS_SUCCESS
1439: THEN
1440: ar_receipt_val_pvt.Validate_Application_info(
1441: l_apply_date,
1442: l_cr_date,
1552: p_global_attribute20 => l_global_attribute_rec.global_attribute20,
1553: p_return_status => l_gdflex_return_status);
1554: END IF;
1555:
1556: IF l_def_ids_return_status <> FND_API.G_RET_STS_SUCCESS OR
1557: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
1558: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
1559: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
1560: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
1553: p_return_status => l_gdflex_return_status);
1554: END IF;
1555:
1556: IF l_def_ids_return_status <> FND_API.G_RET_STS_SUCCESS OR
1557: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
1558: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
1559: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
1560: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
1561: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1554: END IF;
1555:
1556: IF l_def_ids_return_status <> FND_API.G_RET_STS_SUCCESS OR
1557: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
1558: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
1559: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
1560: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
1561: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1562: x_return_status := FND_API.G_RET_STS_ERROR;
1555:
1556: IF l_def_ids_return_status <> FND_API.G_RET_STS_SUCCESS OR
1557: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
1558: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
1559: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
1560: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
1561: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1562: x_return_status := FND_API.G_RET_STS_ERROR;
1563: END IF;
1556: IF l_def_ids_return_status <> FND_API.G_RET_STS_SUCCESS OR
1557: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
1558: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
1559: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
1560: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
1561: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1562: x_return_status := FND_API.G_RET_STS_ERROR;
1563: END IF;
1564:
1557: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
1558: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
1559: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
1560: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
1561: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1562: x_return_status := FND_API.G_RET_STS_ERROR;
1563: END IF;
1564:
1565: /* Bug fix 3435834
1558: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
1559: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
1560: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
1561: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1562: x_return_status := FND_API.G_RET_STS_ERROR;
1563: END IF;
1564:
1565: /* Bug fix 3435834
1566: The messages should be retrieved irrespective of the return status */
1563: END IF;
1564:
1565: /* Bug fix 3435834
1566: The messages should be retrieved irrespective of the return status */
1567: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1568: p_count => x_msg_count,
1569: p_data => x_msg_data
1570: );
1571:
1568: p_count => x_msg_count,
1569: p_data => x_msg_data
1570: );
1571:
1572: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1573: THEN
1574:
1575: ROLLBACK TO Apply_PVT;
1576:
1573: THEN
1574:
1575: ROLLBACK TO Apply_PVT;
1576:
1577: x_return_status := FND_API.G_RET_STS_ERROR ;
1578:
1579: IF PG_DEBUG in ('Y', 'C') THEN
1580: arp_util.debug('Apply: ' || 'Error(s) occurred. Rolling back and setting status to ERROR');
1581: END IF;
1604: /* Bug 4042420: lock the payment schedule of the applied transaction */
1605: arp_ps_pkg.nowaitlock_p (p_ps_id => l_applied_payment_schedule_id);
1606:
1607: /* Bug 3773036: Initializing the return status */
1608: l_return_status := FND_API.G_RET_STS_SUCCESS;
1609:
1610: BEGIN
1611: --call the entity handler
1612: arp_process_application.receipt_application(
1702: THEN
1703: ROLLBACK TO Apply_PVT;
1704:
1705: -- Display_Parameters;
1706: x_return_status := FND_API.G_RET_STS_ERROR ;
1707: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
1708: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.RECEIPT_APPLICATION '||SQLERRM);
1709: FND_MSG_PUB.Add;
1710:
1707: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
1708: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.RECEIPT_APPLICATION '||SQLERRM);
1709: FND_MSG_PUB.Add;
1710:
1711: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
1712: p_count => x_msg_count,
1713: p_data => x_msg_data
1714: );
1715: RETURN;
1718: END IF;
1719: END;
1720:
1721: /* Bug 3773036: raising error if return status is not success */
1722: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1723: RAISE FND_API.G_EXC_ERROR;
1724: END IF;
1725: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1719: END;
1720:
1721: /* Bug 3773036: raising error if return status is not success */
1722: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1723: RAISE FND_API.G_EXC_ERROR;
1724: END IF;
1725: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1727: END IF;
1721: /* Bug 3773036: raising error if return status is not success */
1722: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1723: RAISE FND_API.G_EXC_ERROR;
1724: END IF;
1725: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1727: END IF;
1728:
1729: jg_ar_receivable_applications.apply(
1722: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1723: RAISE FND_API.G_EXC_ERROR;
1724: END IF;
1725: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1727: END IF;
1728:
1729: jg_ar_receivable_applications.apply(
1730: p_apply_before_after => 'AFTER',
1762: /*--------------------------------+
1763: | Standard check of p_commit |
1764: +--------------------------------*/
1765:
1766: IF FND_API.To_Boolean( p_commit )
1767: THEN
1768: IF PG_DEBUG in ('Y', 'C') THEN
1769: arp_util.debug('Apply: ' || 'committing');
1770: END IF;
1773: IF PG_DEBUG in ('Y', 'C') THEN
1774: arp_util.debug('Apply ()- ');
1775: END IF;
1776: EXCEPTION
1777: WHEN FND_API.G_EXC_ERROR THEN
1778:
1779: IF PG_DEBUG in ('Y', 'C') THEN
1780: arp_util.debug('Apply: ' || SQLCODE, G_MSG_ERROR);
1781: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
1781: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
1782: END IF;
1783:
1784: ROLLBACK TO Apply_PVT;
1785: x_return_status := FND_API.G_RET_STS_ERROR ;
1786:
1787: -- Display_Parameters;
1788:
1789: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1785: x_return_status := FND_API.G_RET_STS_ERROR ;
1786:
1787: -- Display_Parameters;
1788:
1789: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1790: p_count => x_msg_count,
1791: p_data => x_msg_data
1792: );
1793:
1790: p_count => x_msg_count,
1791: p_data => x_msg_data
1792: );
1793:
1794: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1795:
1796: IF PG_DEBUG in ('Y', 'C') THEN
1797: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
1798: END IF;
1796: IF PG_DEBUG in ('Y', 'C') THEN
1797: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
1798: END IF;
1799: ROLLBACK TO Apply_PVT;
1800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1801:
1802: -- Display_Parameters;
1803:
1804: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1801:
1802: -- Display_Parameters;
1803:
1804: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1805: p_count => x_msg_count,
1806: p_data => x_msg_data
1807: );
1808:
1821:
1822: --If only one error message on the stack,
1823: --retrive it
1824:
1825: x_return_status := FND_API.G_RET_STS_ERROR ;
1826: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
1827: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','APPLY : '||SQLERRM);
1828: FND_MSG_PUB.Add;
1829:
1826: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
1827: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','APPLY : '||SQLERRM);
1828: FND_MSG_PUB.Add;
1829:
1830: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1831: p_count => x_msg_count,
1832: p_data => x_msg_data
1833: );
1834:
1834:
1835: RETURN;
1836:
1837: ELSE
1838: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1839: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
1840: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','APPLY : '||SQLERRM);
1841: FND_MSG_PUB.Add;
1842: END IF;
1856: END IF;
1857:
1858: -- Display_Parameters;
1859:
1860: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1861: p_count => x_msg_count,
1862: p_data => x_msg_data
1863: );
1864:
1866:
1867: PROCEDURE Apply_In_Detail(
1868: -- Standard API parameters.
1869: p_api_version IN NUMBER,
1870: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1871: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1872: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1873: x_return_status OUT NOCOPY VARCHAR2,
1874: x_msg_count OUT NOCOPY NUMBER,
1867: PROCEDURE Apply_In_Detail(
1868: -- Standard API parameters.
1869: p_api_version IN NUMBER,
1870: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1871: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1872: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1873: x_return_status OUT NOCOPY VARCHAR2,
1874: x_msg_count OUT NOCOPY NUMBER,
1875: x_msg_data OUT NOCOPY VARCHAR2,
1868: -- Standard API parameters.
1869: p_api_version IN NUMBER,
1870: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1871: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1872: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1873: x_return_status OUT NOCOPY VARCHAR2,
1874: x_msg_count OUT NOCOPY NUMBER,
1875: x_msg_data OUT NOCOPY VARCHAR2,
1876: -- Receipt application parameters.
2025:
2026: /*--------------------------------------------------+
2027: | Standard call to check for call compatibility |
2028: +--------------------------------------------------*/
2029: IF NOT FND_API.Compatible_API_Call(
2030: l_api_version,
2031: p_api_version,
2032: l_api_name,
2033: G_PKG_NAME
2032: l_api_name,
2033: G_PKG_NAME
2034: )
2035: THEN
2036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2037: END IF;
2038:
2039: /*--------------------------------------------------------------+
2040: | Initialize message list if p_init_msg_list is set to TRUE |
2039: /*--------------------------------------------------------------+
2040: | Initialize message list if p_init_msg_list is set to TRUE |
2041: +--------------------------------------------------------------*/
2042:
2043: IF FND_API.to_Boolean( p_init_msg_list )
2044: THEN
2045: FND_MSG_PUB.initialize;
2046: END IF;
2047:
2063:
2064: /*-----------------------------------------+
2065: | Initialize return status to SUCCESS |
2066: +-----------------------------------------*/
2067: x_return_status := FND_API.G_RET_STS_SUCCESS;
2068:
2069: /* SSA change */
2070: l_org_id := p_org_id;
2071: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
2067: x_return_status := FND_API.G_RET_STS_SUCCESS;
2068:
2069: /* SSA change */
2070: l_org_id := p_org_id;
2071: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
2072: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
2073: p_return_status =>l_org_return_status);
2074:
2075: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2071: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
2072: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
2073: p_return_status =>l_org_return_status);
2074:
2075: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2076: x_return_status := FND_API.G_RET_STS_ERROR;
2077: ELSE
2078:
2079:
2072: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
2073: p_return_status =>l_org_return_status);
2074:
2075: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2076: x_return_status := FND_API.G_RET_STS_ERROR;
2077: ELSE
2078:
2079:
2080: /*-------------------------------------------------+
2164: l_charges_amount := p_charges_amount;
2165: l_line_discount := p_line_discount;
2166: l_tax_discount := p_tax_discount;
2167: l_freight_discount := p_freight_discount;
2168: l_ad_dflex_val_return_status := FND_API.G_RET_STS_SUCCESS;
2169:
2170: ar_receipt_lib_pvt.populate_llca_gt(
2171: p_customer_trx_id => l_customer_trx_id,
2172: p_llca_type => l_llca_type,
2185: IF PG_DEBUG in ('Y', 'C') THEN
2186: arp_util.debug('Apply_In_Detail: ' || 'Plsql table Return_status = '||l_gt_return_status);
2187: END IF;
2188:
2189: IF l_gt_return_status <> FND_API.G_RET_STS_SUCCESS
2190: THEN
2191: ROLLBACK TO Apply_In_Detail_PVT;
2192: x_return_status := FND_API.G_RET_STS_ERROR ;
2193:
2188:
2189: IF l_gt_return_status <> FND_API.G_RET_STS_SUCCESS
2190: THEN
2191: ROLLBACK TO Apply_In_Detail_PVT;
2192: x_return_status := FND_API.G_RET_STS_ERROR ;
2193:
2194: IF PG_DEBUG in ('Y', 'C') THEN
2195: arp_util.debug('Apply_In_Detail: ' || 'Error(s) occurred. Rolling back and setting status to ERROR');
2196: END IF;
2219: arp_util.debug('Apply_In_Detail: ' || 'Defaulting Ids Return_status = '||l_def_ids_return_status);
2220: END IF;
2221:
2222: -- Inorder to retained the errors on GT, we need to return the call without rollback.
2223: IF l_def_ids_return_status <> FND_API.G_RET_STS_SUCCESS
2224: Then
2225: select count(1) into l_count from ar_llca_trx_errors_gt
2226: where customer_trx_id = p_customer_trx_id;
2227:
2226: where customer_trx_id = p_customer_trx_id;
2227:
2228: If l_count <> 0 AND p_llca_type = 'L'
2229: THEN
2230: x_return_status := FND_API.G_RET_STS_ERROR ;
2231:
2232: IF PG_DEBUG in ('Y', 'C') THEN
2233: arp_util.debug('Apply_In_Detail: ' || 'Error(s) occurred in PLSQL table parameters. ');
2234: END IF;
2312: | |
2313: | VALIDATION |
2314: | |
2315: +---------------------*/
2316: IF l_def_return_status = FND_API.G_RET_STS_SUCCESS AND
2317: l_def_ids_return_status = FND_API.G_RET_STS_SUCCESS
2318: THEN
2319: ar_receipt_val_pvt.Validate_Application_info(
2320: p_apply_date => l_apply_date,
2313: | VALIDATION |
2314: | |
2315: +---------------------*/
2316: IF l_def_return_status = FND_API.G_RET_STS_SUCCESS AND
2317: l_def_ids_return_status = FND_API.G_RET_STS_SUCCESS
2318: THEN
2319: ar_receipt_val_pvt.Validate_Application_info(
2320: p_apply_date => l_apply_date,
2321: p_cr_date => l_cr_date,
2454: END IF;
2455:
2456: IF l_llca_return_status = 'X'
2457: Then
2458: x_return_status := FND_API.G_RET_STS_ERROR ;
2459: Return;
2460: END IF ;
2461:
2462: IF l_def_ids_return_status <> FND_API.G_RET_STS_SUCCESS OR
2458: x_return_status := FND_API.G_RET_STS_ERROR ;
2459: Return;
2460: END IF ;
2461:
2462: IF l_def_ids_return_status <> FND_API.G_RET_STS_SUCCESS OR
2463: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2464: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
2465: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2466: l_ad_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2459: Return;
2460: END IF ;
2461:
2462: IF l_def_ids_return_status <> FND_API.G_RET_STS_SUCCESS OR
2463: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2464: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
2465: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2466: l_ad_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2467: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
2460: END IF ;
2461:
2462: IF l_def_ids_return_status <> FND_API.G_RET_STS_SUCCESS OR
2463: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2464: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
2465: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2466: l_ad_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2467: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
2468: l_llca_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2461:
2462: IF l_def_ids_return_status <> FND_API.G_RET_STS_SUCCESS OR
2463: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2464: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
2465: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2466: l_ad_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2467: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
2468: l_llca_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2469: x_return_status := FND_API.G_RET_STS_ERROR;
2462: IF l_def_ids_return_status <> FND_API.G_RET_STS_SUCCESS OR
2463: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2464: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
2465: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2466: l_ad_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2467: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
2468: l_llca_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2469: x_return_status := FND_API.G_RET_STS_ERROR;
2470: END IF;
2463: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2464: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
2465: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2466: l_ad_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2467: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
2468: l_llca_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2469: x_return_status := FND_API.G_RET_STS_ERROR;
2470: END IF;
2471:
2464: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
2465: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2466: l_ad_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2467: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
2468: l_llca_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2469: x_return_status := FND_API.G_RET_STS_ERROR;
2470: END IF;
2471:
2472: /* Bug fix 3435834
2465: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2466: l_ad_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2467: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
2468: l_llca_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2469: x_return_status := FND_API.G_RET_STS_ERROR;
2470: END IF;
2471:
2472: /* Bug fix 3435834
2473: The messages should be retrieved irrespective of the return status */
2470: END IF;
2471:
2472: /* Bug fix 3435834
2473: The messages should be retrieved irrespective of the return status */
2474: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2475: p_count => x_msg_count,
2476: p_data => x_msg_data
2477: );
2478:
2475: p_count => x_msg_count,
2476: p_data => x_msg_data
2477: );
2478:
2479: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
2480: THEN
2481:
2482: ROLLBACK TO Apply_In_Detail_PVT;
2483:
2480: THEN
2481:
2482: ROLLBACK TO Apply_In_Detail_PVT;
2483:
2484: x_return_status := FND_API.G_RET_STS_ERROR ;
2485:
2486: IF PG_DEBUG in ('Y', 'C') THEN
2487: arp_util.debug('Apply_In_Detail: ' || 'Error(s) occurred. Rolling back and setting status to ERROR');
2488: END IF;
2539: p_return_status => l_gdflex_return_status);
2540:
2541: END IF;
2542:
2543: IF l_llca_app_return_status <> FND_API.G_RET_STS_SUCCESS OR
2544: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2545: x_return_status := FND_API.G_RET_STS_ERROR;
2546: END IF;
2547:
2540:
2541: END IF;
2542:
2543: IF l_llca_app_return_status <> FND_API.G_RET_STS_SUCCESS OR
2544: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2545: x_return_status := FND_API.G_RET_STS_ERROR;
2546: END IF;
2547:
2548: /* Bug fix 3435834
2541: END IF;
2542:
2543: IF l_llca_app_return_status <> FND_API.G_RET_STS_SUCCESS OR
2544: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2545: x_return_status := FND_API.G_RET_STS_ERROR;
2546: END IF;
2547:
2548: /* Bug fix 3435834
2549: The messages should be retrieved irrespective of the return status */
2546: END IF;
2547:
2548: /* Bug fix 3435834
2549: The messages should be retrieved irrespective of the return status */
2550: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2551: p_count => x_msg_count,
2552: p_data => x_msg_data
2553: );
2554:
2551: p_count => x_msg_count,
2552: p_data => x_msg_data
2553: );
2554:
2555: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
2556: THEN
2557:
2558: ROLLBACK TO Apply_In_Detail_PVT;
2559:
2556: THEN
2557:
2558: ROLLBACK TO Apply_In_Detail_PVT;
2559:
2560: x_return_status := FND_API.G_RET_STS_ERROR ;
2561:
2562: IF PG_DEBUG in ('Y', 'C') THEN
2563: arp_util.debug('Apply_In_Detail: ' || 'Error(s) occurred. Rolling back and setting status to ERROR');
2564: END IF;
2586:
2587: -- lock the payment schedule of the applied transaction
2588: arp_ps_pkg.nowaitlock_p (p_ps_id => l_applied_payment_schedule_id);
2589:
2590: l_return_status := FND_API.G_RET_STS_SUCCESS;
2591:
2592: BEGIN
2593: --call the entity handler
2594: arp_process_det_pkg.final_commit(
2639: x_msg_count => lfc_msg_count,
2640: x_msg_data => lfc_msg_data
2641: );
2642: --Bug fix for 5645383
2643: IF lfc_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2644: x_return_status := FND_API.G_RET_STS_ERROR;
2645: END IF;
2646: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2647: p_count => x_msg_count,
2640: x_msg_data => lfc_msg_data
2641: );
2642: --Bug fix for 5645383
2643: IF lfc_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2644: x_return_status := FND_API.G_RET_STS_ERROR;
2645: END IF;
2646: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2647: p_count => x_msg_count,
2648: p_data => x_msg_data
2642: --Bug fix for 5645383
2643: IF lfc_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2644: x_return_status := FND_API.G_RET_STS_ERROR;
2645: END IF;
2646: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2647: p_count => x_msg_count,
2648: p_data => x_msg_data
2649: );
2650: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2646: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2647: p_count => x_msg_count,
2648: p_data => x_msg_data
2649: );
2650: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2651: ROLLBACK TO Apply_In_Detail_PVT;
2652: x_return_status := FND_API.G_RET_STS_ERROR ;
2653: IF PG_DEBUG in ('Y', 'C') THEN
2654: arp_util.debug('Apply_In_Detail: ' || 'Error(s) occurred. Rolling back and setting status to ERROR');
2648: p_data => x_msg_data
2649: );
2650: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2651: ROLLBACK TO Apply_In_Detail_PVT;
2652: x_return_status := FND_API.G_RET_STS_ERROR ;
2653: IF PG_DEBUG in ('Y', 'C') THEN
2654: arp_util.debug('Apply_In_Detail: ' || 'Error(s) occurred. Rolling back and setting status to ERROR');
2655: END IF;
2656: Return;
2688: THEN
2689: ROLLBACK TO Apply_In_Detail_PVT;
2690:
2691: -- Display_Parameters;
2692: x_return_status := FND_API.G_RET_STS_ERROR ;
2693: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
2694: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.RECEIPT_APPLICATION '||SQLERRM);
2695: FND_MSG_PUB.Add;
2696:
2693: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
2694: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.RECEIPT_APPLICATION '||SQLERRM);
2695: FND_MSG_PUB.Add;
2696:
2697: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
2698: p_count => x_msg_count,
2699: p_data => x_msg_data
2700: );
2701: RETURN;
2705: END IF;
2706: END;
2707:
2708: /* Bug 3773036: raising error if return status is not success */
2709: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2710: RAISE FND_API.G_EXC_ERROR;
2711: END IF;
2712: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2706: END;
2707:
2708: /* Bug 3773036: raising error if return status is not success */
2709: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2710: RAISE FND_API.G_EXC_ERROR;
2711: END IF;
2712: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2714: END IF;
2708: /* Bug 3773036: raising error if return status is not success */
2709: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2710: RAISE FND_API.G_EXC_ERROR;
2711: END IF;
2712: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2714: END IF;
2715:
2716: jg_ar_receivable_applications.apply(
2709: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2710: RAISE FND_API.G_EXC_ERROR;
2711: END IF;
2712: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2714: END IF;
2715:
2716: jg_ar_receivable_applications.apply(
2717: p_apply_before_after => 'AFTER',
2746: p_global_attribute19 => l_global_attribute_rec.global_attribute19,
2747: p_global_attribute20 => l_global_attribute_rec.global_attribute20,
2748: p_return_status => l_gdflex_return_status);
2749: --Bug fix for 5645383
2750: IF l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2751: x_return_status := FND_API.G_RET_STS_ERROR;
2752: END IF;
2753: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2754: p_count => x_msg_count,
2747: p_global_attribute20 => l_global_attribute_rec.global_attribute20,
2748: p_return_status => l_gdflex_return_status);
2749: --Bug fix for 5645383
2750: IF l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2751: x_return_status := FND_API.G_RET_STS_ERROR;
2752: END IF;
2753: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2754: p_count => x_msg_count,
2755: p_data => x_msg_data
2749: --Bug fix for 5645383
2750: IF l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2751: x_return_status := FND_API.G_RET_STS_ERROR;
2752: END IF;
2753: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2754: p_count => x_msg_count,
2755: p_data => x_msg_data
2756: );
2757: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2753: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2754: p_count => x_msg_count,
2755: p_data => x_msg_data
2756: );
2757: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2758: ROLLBACK TO Apply_In_Detail_PVT;
2759: x_return_status := FND_API.G_RET_STS_ERROR ;
2760: IF PG_DEBUG in ('Y', 'C') THEN
2761: arp_util.debug('Apply_In_Detail: ' || 'Error(s) occurred. Rolling back and setting status to ERROR');
2755: p_data => x_msg_data
2756: );
2757: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2758: ROLLBACK TO Apply_In_Detail_PVT;
2759: x_return_status := FND_API.G_RET_STS_ERROR ;
2760: IF PG_DEBUG in ('Y', 'C') THEN
2761: arp_util.debug('Apply_In_Detail: ' || 'Error(s) occurred. Rolling back and setting status to ERROR');
2762: END IF;
2763: Return;
2766: /*--------------------------------+
2767: | Standard check of p_commit |
2768: +--------------------------------*/
2769:
2770: IF FND_API.To_Boolean( p_commit )
2771: THEN
2772: IF PG_DEBUG in ('Y', 'C') THEN
2773: arp_util.debug('Apply_In_Detail: ' || 'committing');
2774: END IF;
2777: IF PG_DEBUG in ('Y', 'C') THEN
2778: arp_util.debug('Apply_In_Detail ()- ');
2779: END IF;
2780: EXCEPTION
2781: WHEN FND_API.G_EXC_ERROR THEN
2782:
2783: IF PG_DEBUG in ('Y', 'C') THEN
2784: arp_util.debug('Apply_In_Detail: ' || SQLCODE, G_MSG_ERROR);
2785: arp_util.debug('Apply_In_Detail: ' || SQLERRM, G_MSG_ERROR);
2785: arp_util.debug('Apply_In_Detail: ' || SQLERRM, G_MSG_ERROR);
2786: END IF;
2787:
2788: ROLLBACK TO Apply_In_Detail_PVT;
2789: x_return_status := FND_API.G_RET_STS_ERROR ;
2790:
2791: -- Display_Parameters;
2792:
2793: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2789: x_return_status := FND_API.G_RET_STS_ERROR ;
2790:
2791: -- Display_Parameters;
2792:
2793: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2794: p_count => x_msg_count,
2795: p_data => x_msg_data
2796: );
2797:
2794: p_count => x_msg_count,
2795: p_data => x_msg_data
2796: );
2797:
2798: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2799:
2800: IF PG_DEBUG in ('Y', 'C') THEN
2801: arp_util.debug('Apply_In_Detail: ' || SQLERRM, G_MSG_ERROR);
2802: END IF;
2800: IF PG_DEBUG in ('Y', 'C') THEN
2801: arp_util.debug('Apply_In_Detail: ' || SQLERRM, G_MSG_ERROR);
2802: END IF;
2803: ROLLBACK TO Apply_In_Detail_PVT;
2804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2805:
2806: -- Display_Parameters;
2807:
2808: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2805:
2806: -- Display_Parameters;
2807:
2808: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2809: p_count => x_msg_count,
2810: p_data => x_msg_data
2811: );
2812:
2825:
2826: --If only one error message on the stack,
2827: --retrive it
2828:
2829: x_return_status := FND_API.G_RET_STS_ERROR ;
2830: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
2831: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','APPLY : '||SQLERRM);
2832: FND_MSG_PUB.Add;
2833:
2830: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
2831: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','APPLY : '||SQLERRM);
2832: FND_MSG_PUB.Add;
2833:
2834: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2835: p_count => x_msg_count,
2836: p_data => x_msg_data
2837: );
2838:
2838:
2839: RETURN;
2840:
2841: ELSE
2842: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2843: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
2844: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','APPLY : '||SQLERRM);
2845: FND_MSG_PUB.Add;
2846: END IF;
2860: END IF;
2861:
2862: -- Display_Parameters;
2863:
2864: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2865: p_count => x_msg_count,
2866: p_data => x_msg_data
2867: );
2868: END Apply_In_Detail;
2869:
2870: PROCEDURE Unapply(
2871: -- Standard API parameters.
2872: p_api_version IN NUMBER,
2873: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2874: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2875: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2876: x_return_status OUT NOCOPY VARCHAR2,
2877: x_msg_count OUT NOCOPY NUMBER,
2870: PROCEDURE Unapply(
2871: -- Standard API parameters.
2872: p_api_version IN NUMBER,
2873: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2874: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2875: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2876: x_return_status OUT NOCOPY VARCHAR2,
2877: x_msg_count OUT NOCOPY NUMBER,
2878: x_msg_data OUT NOCOPY VARCHAR2,
2871: -- Standard API parameters.
2872: p_api_version IN NUMBER,
2873: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2874: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2875: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2876: x_return_status OUT NOCOPY VARCHAR2,
2877: x_msg_count OUT NOCOPY NUMBER,
2878: x_msg_data OUT NOCOPY VARCHAR2,
2879: -- *** Receipt Info. parameters *****
2920: /*--------------------------------------------------+
2921: | Standard call to check for call compatibility |
2922: +--------------------------------------------------*/
2923:
2924: IF NOT FND_API.Compatible_API_Call(
2925: l_api_version,
2926: p_api_version,
2927: l_api_name,
2928: G_PKG_NAME
2927: l_api_name,
2928: G_PKG_NAME
2929: )
2930: THEN
2931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2932: END IF;
2933: /*-----------------------------------------+
2934: | Initialize return status to SUCCESS |
2935: +-----------------------------------------*/
2933: /*-----------------------------------------+
2934: | Initialize return status to SUCCESS |
2935: +-----------------------------------------*/
2936:
2937: x_return_status := FND_API.G_RET_STS_SUCCESS;
2938:
2939: /*--------------------------------------------------------------+
2940: | Initialize message list if p_init_msg_list is set to TRUE |
2941: +--------------------------------------------------------------*/
2939: /*--------------------------------------------------------------+
2940: | Initialize message list if p_init_msg_list is set to TRUE |
2941: +--------------------------------------------------------------*/
2942:
2943: IF FND_API.to_Boolean( p_init_msg_list )
2944: THEN
2945: FND_MSG_PUB.initialize;
2946: END IF;
2947:
2957: Original_unapp_info.receivable_application_id := p_receivable_application_id;
2958:
2959: /* SSA change */
2960: l_org_id := p_org_id;
2961: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
2962: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
2963: p_return_status =>l_org_return_status);
2964: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2965: x_return_status := FND_API.G_RET_STS_ERROR;
2960: l_org_id := p_org_id;
2961: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
2962: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
2963: p_return_status =>l_org_return_status);
2964: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2965: x_return_status := FND_API.G_RET_STS_ERROR;
2966: ELSE
2967:
2968: /*-------------------------------------------------+
2961: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
2962: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
2963: p_return_status =>l_org_return_status);
2964: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2965: x_return_status := FND_API.G_RET_STS_ERROR;
2966: ELSE
2967:
2968: /*-------------------------------------------------+
2969: | Initialize the profile option package variables |
3054: l_glob_return_status );
3055: --
3056: END IF;
3057:
3058: IF l_derive_ids_ret_status <> FND_API.G_RET_STS_SUCCESS OR
3059: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
3060: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS OR
3061: l_glob_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3062: x_return_status := FND_API.G_RET_STS_ERROR ;
3055: --
3056: END IF;
3057:
3058: IF l_derive_ids_ret_status <> FND_API.G_RET_STS_SUCCESS OR
3059: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
3060: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS OR
3061: l_glob_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3062: x_return_status := FND_API.G_RET_STS_ERROR ;
3063: END IF;
3056: END IF;
3057:
3058: IF l_derive_ids_ret_status <> FND_API.G_RET_STS_SUCCESS OR
3059: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
3060: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS OR
3061: l_glob_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3062: x_return_status := FND_API.G_RET_STS_ERROR ;
3063: END IF;
3064:
3057:
3058: IF l_derive_ids_ret_status <> FND_API.G_RET_STS_SUCCESS OR
3059: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
3060: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS OR
3061: l_glob_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3062: x_return_status := FND_API.G_RET_STS_ERROR ;
3063: END IF;
3064:
3065: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
3058: IF l_derive_ids_ret_status <> FND_API.G_RET_STS_SUCCESS OR
3059: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
3060: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS OR
3061: l_glob_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3062: x_return_status := FND_API.G_RET_STS_ERROR ;
3063: END IF;
3064:
3065: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
3066: THEN
3061: l_glob_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3062: x_return_status := FND_API.G_RET_STS_ERROR ;
3063: END IF;
3064:
3065: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
3066: THEN
3067:
3068: ROLLBACK TO Unapply_PVT;
3069:
3066: THEN
3067:
3068: ROLLBACK TO Unapply_PVT;
3069:
3070: x_return_status := FND_API.G_RET_STS_ERROR ;
3071:
3072: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3073: p_count => x_msg_count,
3074: p_data => x_msg_data
3068: ROLLBACK TO Unapply_PVT;
3069:
3070: x_return_status := FND_API.G_RET_STS_ERROR ;
3071:
3072: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3073: p_count => x_msg_count,
3074: p_data => x_msg_data
3075: );
3076:
3241: THEN
3242: ROLLBACK TO Unapply_PVT;
3243:
3244: -- Display_Parameters;
3245: x_return_status := FND_API.G_RET_STS_ERROR ;
3246: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
3247: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.REVERSE : '||SQLERRM);
3248: FND_MSG_PUB.Add;
3249:
3246: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
3247: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.REVERSE : '||SQLERRM);
3248: FND_MSG_PUB.Add;
3249:
3250: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
3251: p_count => x_msg_count,
3252: p_data => x_msg_data
3253: );
3254: RETURN;
3260: /*--------------------------------+
3261: | Standard check of p_commit |
3262: +--------------------------------*/
3263:
3264: IF FND_API.To_Boolean( p_commit )
3265: THEN
3266: IF PG_DEBUG in ('Y', 'C') THEN
3267: arp_util.debug('Apply: ' || 'committing');
3268: END IF;
3274: END IF;
3275:
3276:
3277: EXCEPTION
3278: WHEN FND_API.G_EXC_ERROR THEN
3279:
3280: IF PG_DEBUG in ('Y', 'C') THEN
3281: arp_util.debug('Apply: ' || SQLCODE, G_MSG_ERROR);
3282: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
3282: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
3283: END IF;
3284:
3285: ROLLBACK TO Unapply_PVT;
3286: x_return_status := FND_API.G_RET_STS_ERROR ;
3287:
3288: -- Display_Parameters;
3289:
3290: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3286: x_return_status := FND_API.G_RET_STS_ERROR ;
3287:
3288: -- Display_Parameters;
3289:
3290: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3291: p_count => x_msg_count,
3292: p_data => x_msg_data
3293: );
3294:
3291: p_count => x_msg_count,
3292: p_data => x_msg_data
3293: );
3294:
3295: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3296:
3297: IF PG_DEBUG in ('Y', 'C') THEN
3298: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
3299: END IF;
3297: IF PG_DEBUG in ('Y', 'C') THEN
3298: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
3299: END IF;
3300: ROLLBACK TO Unapply_PVT;
3301: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3302:
3303: -- Display_Parameters;
3304:
3305: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3301: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3302:
3303: -- Display_Parameters;
3304:
3305: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3306: p_count => x_msg_count,
3307: p_data => x_msg_data
3308: );
3309:
3319: THEN
3320:
3321: ROLLBACK TO Unapply_PVT;
3322:
3323: x_return_status := FND_API.G_RET_STS_ERROR ;
3324: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
3325: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','UNAPPLY : '||SQLERRM);
3326: FND_MSG_PUB.Add;
3327:
3327:
3328: --If only one error message on the stack,
3329: --retrive it
3330:
3331: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3332: p_count => x_msg_count,
3333: p_data => x_msg_data
3334: );
3335:
3335:
3336: RETURN;
3337:
3338: ELSE
3339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3340: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
3341: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','UNAPPLY : '||SQLERRM);
3342: FND_MSG_PUB.Add;
3343: END IF;
3357: END IF;
3358:
3359: -- Display_Parameters;
3360:
3361: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3362: p_count => x_msg_count,
3363: p_data => x_msg_data
3364: );
3365:
3417:
3418: l_payment_server_order_num VARCHAR2(80);
3419: l_action VARCHAR2(80);
3420:
3421: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3422: l_msg_count NUMBER;
3423: l_msg_data VARCHAR2(2000);
3424: */
3425:
3481:
3482: FND_MESSAGE.set_name('AR', 'AR_PAY_PROCESS_INVALID_STATUS');
3483: FND_MSG_PUB.Add;
3484:
3485: x_return_status := FND_API.G_RET_STS_ERROR; -- should never happen
3486: RETURN;
3487: end if;
3488:
3489: -- Step 1: (always performed):
3549: END IF;
3550:
3551: IBY_Payment_Adapter_pub.OraPmtReq(
3552: p_api_version => 1.0,
3553: p_init_msg_list => FND_API.G_TRUE,
3554: p_commit => FND_API.G_FALSE,
3555: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3556: p_ecapp_id => 222, -- AR product id
3557: x_return_status => l_return_status,
3550:
3551: IBY_Payment_Adapter_pub.OraPmtReq(
3552: p_api_version => 1.0,
3553: p_init_msg_list => FND_API.G_TRUE,
3554: p_commit => FND_API.G_FALSE,
3555: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3556: p_ecapp_id => 222, -- AR product id
3557: x_return_status => l_return_status,
3558: x_msg_count => l_msg_count,
3551: IBY_Payment_Adapter_pub.OraPmtReq(
3552: p_api_version => 1.0,
3553: p_init_msg_list => FND_API.G_TRUE,
3554: p_commit => FND_API.G_FALSE,
3555: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3556: p_ecapp_id => 222, -- AR product id
3557: x_return_status => l_return_status,
3558: x_msg_count => l_msg_count,
3559: x_msg_data => l_msg_data,
3603: arp_standard.debug('Apply: ' || l_MSG_DATA);
3604: END IF;
3605: ELSIF(l_MSG_COUNT>1)THEN
3606: LOOP
3607: l_MSG_DATA:=FND_MSG_PUB.GET(p_encoded=>FND_API.G_FALSE);
3608: IF (l_MSG_DATA IS NULL)THEN
3609: EXIT;
3610: END IF;
3611: IF PG_DEBUG in ('Y', 'C') THEN
3614: END LOOP;
3615: END IF;
3616: END IF;
3617:
3618: if (l_return_status <> FND_API.G_RET_STS_SUCCESS)
3619: AND (NVL(p_called_from,'NONE') = 'IREC') then
3620:
3621: FND_MESSAGE.set_name('AR', 'AR_PAY_PROCESS_AUTHFAILURE');
3622: FND_MSG_PUB.Add;
3621: FND_MESSAGE.set_name('AR', 'AR_PAY_PROCESS_AUTHFAILURE');
3622: FND_MSG_PUB.Add;
3623: x_return_status := l_return_status;
3624: RETURN;
3625: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3626: --bug 3398538
3627: arp_util.debug('Create_cash_124: ');
3628: FND_MESSAGE.set_name('AR', 'AR_CC_AUTH_FAILED');
3629: FND_MSG_PUB.Add;
3667:
3668:
3669: IBY_Payment_Adapter_pub.OraPmtCapture(
3670: p_api_version => 1.0,
3671: p_init_msg_list => FND_API.G_FALSE,
3672: p_commit => FND_API.G_FALSE,
3673: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3674: p_ecapp_id => 222, -- AR product id
3675: x_return_status => l_return_status,
3668:
3669: IBY_Payment_Adapter_pub.OraPmtCapture(
3670: p_api_version => 1.0,
3671: p_init_msg_list => FND_API.G_FALSE,
3672: p_commit => FND_API.G_FALSE,
3673: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3674: p_ecapp_id => 222, -- AR product id
3675: x_return_status => l_return_status,
3676: x_msg_count => l_msg_count,
3669: IBY_Payment_Adapter_pub.OraPmtCapture(
3670: p_api_version => 1.0,
3671: p_init_msg_list => FND_API.G_FALSE,
3672: p_commit => FND_API.G_FALSE,
3673: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3674: p_ecapp_id => 222, -- AR product id
3675: x_return_status => l_return_status,
3676: x_msg_count => l_msg_count,
3677: x_msg_data => l_msg_data,
3699: arp_standard.debug('Apply: ' || l_MSG_DATA);
3700: END IF;
3701: ELSIF(l_MSG_COUNT>1)THEN
3702: LOOP
3703: l_MSG_DATA:=FND_MSG_PUB.GET(p_encoded=>FND_API.G_FALSE);
3704: IF (l_MSG_DATA IS NULL)THEN
3705: EXIT;
3706: END IF;
3707: IF PG_DEBUG in ('Y', 'C') THEN
3726:
3727: --Add message to message stack only it it is called from iReceivables
3728: --if not pass the message stack received from iPayment
3729:
3730: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) AND (NVL(p_called_from,'NONE') = 'IREC') then
3731: FND_MESSAGE.set_name('AR', 'AR_PAY_PROCESS_CAPTFAILURE');
3732: FND_MSG_PUB.Add;
3733: --bug 3398538
3734: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3730: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) AND (NVL(p_called_from,'NONE') = 'IREC') then
3731: FND_MESSAGE.set_name('AR', 'AR_PAY_PROCESS_CAPTFAILURE');
3732: FND_MSG_PUB.Add;
3733: --bug 3398538
3734: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3735: FND_MESSAGE.set_name('AR', 'AR_CC_CAPTURE_FAILED');
3736: FND_MSG_PUB.Add;
3737: end if;
3738: x_return_status := l_return_status;
3798: rct_info rct_info_cur%ROWTYPE;
3799: l_cr_rec ar_cash_receipts_all%ROWTYPE;
3800: l_org_type HR_ALL_ORGANIZATION_UNITS.TYPE%TYPE;
3801: l_action VARCHAR2(80);
3802: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3803: l_msg_count NUMBER;
3804: l_msg_data VARCHAR2(2000);
3805: l_iby_msg_data VARCHAR2(2000);
3806: l_vend_msg_data VARCHAR2(2000);
3829:
3830:
3831: /* DECLARE the variables required for the payment engine (SETTLEMENT) all the REC TYPES */
3832: ls_response_rec IBY_FNDCPT_COMMON_PUB.Result_rec_type; /* OUT RESPONSE STRUCTURE */
3833: ls_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3834: ls_msg_count NUMBER;
3835: ls_msg_data VARCHAR2(2000);
3836: ls_iby_msg_data VARCHAR2(2000);
3837:
3866:
3867: FND_MESSAGE.set_name('AR', 'AR_PAY_PROCESS_INVALID_STATUS');
3868: FND_MSG_PUB.Add;
3869:
3870: x_return_status := FND_API.G_RET_STS_ERROR; -- should never happen
3871: RETURN;
3872: end if;
3873:
3874: -- Step 1: (always performed):
3996:
3997:
3998: IBY_FNDCPT_TRXN_PUB.Create_Authorization(
3999: p_api_version => 1.0,
4000: p_init_msg_list => FND_API.G_TRUE,
4001: x_return_status => l_return_status,
4002: x_msg_count => l_msg_count,
4003: x_msg_data => l_msg_data,
4004: p_payer => l_payer_rec,
4018: arp_standard.debug('x_msg_count :<' || l_msg_count || '>');
4019:
4020: FOR i IN 1..l_msg_count LOOP
4021: arp_standard.debug('x_msg #' || TO_CHAR(i) || ' = <' ||
4022: SUBSTR(fnd_msg_pub.get(p_msg_index => i,p_encoded => FND_API.G_FALSE),1,150) || '>');
4023: END LOOP;
4024:
4025: IF PG_DEBUG in ('Y', 'C') THEN
4026: arp_standard.debug( '-------------------------------------');
4037: -- arp_standard.debug( 'l_authresult_rec.Risk_Result: ' || l_authresult_rec.Risk_Result);
4038:
4039: END IF;
4040:
4041: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4042: -- update cash receipt with authorization code and
4043:
4044: ARP_CASH_RECEIPTS_PKG.set_to_dummy(l_cr_rec);
4045: l_cr_rec.approval_code := l_authresult_rec.Auth_code ||'AR'||to_char(l_authresult_rec.Auth_Id);
4069: arp_standard.debug( l_MSG_DATA);
4070: END IF;
4071: ELSIF(l_MSG_COUNT>1)THEN
4072: LOOP
4073: l_MSG_DATA:=FND_MSG_PUB.GET(p_encoded=>FND_API.G_FALSE);
4074: IF (l_MSG_DATA IS NULL)THEN
4075: EXIT;
4076: END IF;
4077: IF PG_DEBUG in ('Y', 'C') THEN
4080: END LOOP;
4081: END IF;
4082: END IF;
4083:
4084: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
4085: AND (NVL(p_called_from,'NONE') = 'IREC') then
4086:
4087: FND_MESSAGE.set_name('AR', 'AR_PAY_PROCESS_AUTHFAILURE');
4088: FND_MSG_PUB.Add;
4088: FND_MSG_PUB.Add;
4089: x_return_status := l_return_status;
4090: RETURN;
4091:
4092: ELSIF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4093:
4094: arp_standard.debug('create_cash_126');
4095: FND_MESSAGE.set_name('AR', 'AR_CC_AUTH_FAILED');
4096: FND_MSG_PUB.Add;
4124:
4125: END IF;
4126:
4127:
4128: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
4129: p_count => x_msg_count,
4130: p_data => x_msg_data );
4131:
4132: x_return_status := l_return_status;
4155: END IF;
4156:
4157: IBY_FNDCPT_TRXN_PUB.Create_Settlement (
4158: p_api_version => 1.0,
4159: p_init_msg_list => FND_API.G_TRUE,
4160: x_return_status => ls_return_status,
4161: x_msg_count => ls_msg_count,
4162: x_msg_data => ls_msg_data,
4163: p_payer => l_payer_rec,
4173: arp_standard.debug('x_msg_count :<' || ls_msg_count || '>');
4174:
4175: FOR i IN 1..ls_msg_count LOOP
4176: arp_standard.debug('x_msg #' || TO_CHAR(i) || ' = <' ||
4177: SUBSTR(fnd_msg_pub.get(p_msg_index => i,p_encoded => FND_API.G_FALSE),1,150) || '>');
4178: END LOOP;
4179:
4180: IF PG_DEBUG in ('Y', 'C') THEN
4181: arp_standard.debug( '-------------------------------------');
4199: arp_standard.debug( ls_MSG_DATA);
4200: END IF;
4201: ELSIF(ls_MSG_COUNT>1)THEN
4202: LOOP
4203: ls_MSG_DATA:=FND_MSG_PUB.GET(p_encoded=>FND_API.G_FALSE);
4204: IF (ls_MSG_DATA IS NULL)THEN
4205: EXIT;
4206: END IF;
4207: IF PG_DEBUG in ('Y', 'C') THEN
4210: END LOOP;
4211: END IF;
4212: END IF;
4213:
4214: IF (ls_return_status <> FND_API.G_RET_STS_SUCCESS)
4215: AND (NVL(p_called_from,'NONE') = 'IREC') then
4216:
4217: FND_MESSAGE.set_name('AR', 'AR_PAY_PROCESS_AUTHFAILURE');
4218: FND_MSG_PUB.Add;
4218: FND_MSG_PUB.Add;
4219: x_return_status := ls_return_status;
4220: RETURN;
4221:
4222: ELSIF (ls_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4223:
4224:
4225: FND_MESSAGE.set_name('AR', 'AR_CC_CAPTURE_FAILED');
4226: FND_MSG_PUB.Add;
4240:
4241: END IF;
4242:
4243:
4244: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
4245: p_count => x_msg_count,
4246: p_data => x_msg_data );
4247:
4248: x_return_status := ls_return_status;
4281: o_payment_trxn_extension_id OUT NOCOPY NUMBER
4282: ) IS
4283:
4284: l_payer_rec IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type;
4285: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
4286: l_msg_count NUMBER;
4287: l_msg_data VARCHAR2(2000);
4288: l_cpy_msg_data VARCHAR2(2000);
4289: l_pmt_channel_code VARCHAR2(20);
4366: arp_standard.debug('payment_trx_extension_id :<'|| l_payment_trxn_extension_id || '>');
4367:
4368: IBY_FNDCPT_TRXN_PUB.Copy_Transaction_Extension
4369: ( p_api_version => 1.0,
4370: p_init_msg_list => FND_API.G_TRUE,
4371: p_commit => FND_API.G_FALSE,
4372: x_return_status => l_return_status,
4373: x_msg_count => l_msg_count,
4374: x_msg_data => l_msg_data,
4367:
4368: IBY_FNDCPT_TRXN_PUB.Copy_Transaction_Extension
4369: ( p_api_version => 1.0,
4370: p_init_msg_list => FND_API.G_TRUE,
4371: p_commit => FND_API.G_FALSE,
4372: x_return_status => l_return_status,
4373: x_msg_count => l_msg_count,
4374: x_msg_data => l_msg_data,
4375: p_payer => l_payer_rec,
4379: x_entity_id => p_trxn_entity_id, -- out parm
4380: x_response => l_response_rec -- out
4381: );
4382:
4383: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
4384: o_payment_trxn_extension_id := p_trxn_entity_id ;
4385:
4386: arp_standard.debug('the copied value of trx_entn is ' || o_payment_trxn_extension_id );
4387: END IF;
4391: arp_standard.debug('x_msg_count :<' || l_msg_count || '>');
4392:
4393: FOR i IN 1..l_msg_count LOOP
4394: arp_standard.debug('x_msg #' || TO_CHAR(i) || ' = <' ||
4395: SUBSTR(fnd_msg_pub.get(p_msg_index => i,p_encoded => FND_API.G_FALSE),1,150) || '>');
4396: END LOOP;
4397:
4398:
4399: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4395: SUBSTR(fnd_msg_pub.get(p_msg_index => i,p_encoded => FND_API.G_FALSE),1,150) || '>');
4396: END LOOP;
4397:
4398:
4399: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4400:
4401: arp_standard.debug('create_cash_127');
4402: FND_MESSAGE.set_name('AR', 'AR_CC_AUTH_FAILED');
4403: FND_MSG_PUB.Add;
4416: FND_MSG_PUB.Add;
4417:
4418: END IF;
4419:
4420: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
4421: p_count => x_msg_count,
4422: p_data => x_msg_data );
4423:
4424: x_return_status := l_return_status;
4443: x_return_status OUT NOCOPY VARCHAR2,
4444: o_payment_trxn_extension_id OUT NOCOPY NUMBER
4445: ) IS
4446:
4447: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
4448: l_msg_count NUMBER;
4449: l_msg_data VARCHAR2(2000);
4450:
4451: l_payer_rec IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type;
4518:
4519: IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension
4520: (
4521: p_api_version =>1.0,
4522: p_init_msg_list =>FND_API.G_TRUE,
4523: p_commit =>FND_API.G_FALSE,
4524: x_return_status =>l_return_status,
4525: x_msg_count =>l_msg_count,
4526: x_msg_data =>l_msg_data,
4519: IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension
4520: (
4521: p_api_version =>1.0,
4522: p_init_msg_list =>FND_API.G_TRUE,
4523: p_commit =>FND_API.G_FALSE,
4524: x_return_status =>l_return_status,
4525: x_msg_count =>l_msg_count,
4526: x_msg_data =>l_msg_data,
4527: p_payer =>l_payer_rec,
4533: x_response =>l_result_rec
4534: );
4535:
4536:
4537: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
4538:
4539: o_payment_trxn_extension_id := l_extension_id;
4540:
4541: arp_standard.debug(to_char(SQL%ROWCOUNT) || 'PMT_EXTN_ID row(s) updated.');
4543: END IF;
4544:
4545: FOR i IN 1..l_msg_count LOOP
4546: arp_standard.debug('x_msg #' || TO_CHAR(i) || ' = <' ||
4547: SUBSTR(fnd_msg_pub.get(p_msg_index => i,p_encoded => FND_API.G_FALSE),1,150) || '>');
4548: END LOOP;
4549:
4550:
4551: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4547: SUBSTR(fnd_msg_pub.get(p_msg_index => i,p_encoded => FND_API.G_FALSE),1,150) || '>');
4548: END LOOP;
4549:
4550:
4551: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4552: arp_standard.debug('FAILED: ' ||l_result_rec.result_code);
4553: arp_standard.debug('PARM-l_payer_rec.Payment_Function ' ||l_payer_rec.Payment_Function);
4554: arp_standard.debug('PARM-l_payer_rec.party_id ' ||l_payer_rec.Party_Id);
4555: arp_standard.debug('PARM-l_payer_rec.org_id ' ||l_payer_rec.org_id);
4561: arp_standard.debug('PARM-l_trxn_attribs_rec.Trxn_Ref_Number1 ' ||l_trxn_attribs_rec.Trxn_Ref_Number1);
4562: arp_standard.debug('PARM-l_assignment_id ' ||l_assignment_id);
4563:
4564:
4565: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
4566: p_count => x_msg_count,
4567: p_data => x_msg_data );
4568:
4569: x_return_status := l_return_status;
4586:
4587: PROCEDURE Create_and_apply(
4588: -- Standard API parameters.
4589: p_api_version IN NUMBER,
4590: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4591: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4592: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4593: x_return_status OUT NOCOPY VARCHAR2,
4594: x_msg_count OUT NOCOPY NUMBER,
4587: PROCEDURE Create_and_apply(
4588: -- Standard API parameters.
4589: p_api_version IN NUMBER,
4590: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4591: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4592: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4593: x_return_status OUT NOCOPY VARCHAR2,
4594: x_msg_count OUT NOCOPY NUMBER,
4595: x_msg_data OUT NOCOPY VARCHAR2,
4588: -- Standard API parameters.
4589: p_api_version IN NUMBER,
4590: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4591: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4592: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4593: x_return_status OUT NOCOPY VARCHAR2,
4594: x_msg_count OUT NOCOPY NUMBER,
4595: x_msg_data OUT NOCOPY VARCHAR2,
4596: -- Receipt info. parameters
4662: app_attribute_rec IN attribute_rec_type DEFAULT attribute_rec_const,
4663: -- ******* Global Flexfield parameters *******
4664: app_global_attribute_rec IN global_attribute_rec_type DEFAULT global_attribute_rec_const,
4665: app_comments IN ar_receivable_applications.comments%TYPE DEFAULT NULL,
4666: p_call_payment_processor IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4667: p_org_id IN NUMBER DEFAULT NULL
4668: ) IS
4669: l_cash_receipt_id NUMBER(15);
4670: l_create_return_status VARCHAR2(1);
4688: --calling the internal create_cash routine
4689: Create_cash_1(
4690: p_api_version,
4691: p_init_msg_list,
4692: FND_API.G_FALSE, --p_commit is passed as FND_API.G_FALSE here but the actual value is passed i Apply routine
4693: FND_API.G_VALID_LEVEL_FULL,
4694: l_create_return_status,
4695: l_create_msg_count,
4696: l_create_msg_data,
4689: Create_cash_1(
4690: p_api_version,
4691: p_init_msg_list,
4692: FND_API.G_FALSE, --p_commit is passed as FND_API.G_FALSE here but the actual value is passed i Apply routine
4693: FND_API.G_VALID_LEVEL_FULL,
4694: l_create_return_status,
4695: l_create_msg_count,
4696: l_create_msg_data,
4697: -- Receipt info. parameters
4751: arp_util.debug('Apply: ' || 'Receipt create_return_status '||l_create_return_status);
4752: END IF;
4753: --IF the receipt creation part returns no errors then
4754: --call the application routine.
4755: IF l_create_return_status = FND_API.G_RET_STS_SUCCESS THEN
4756:
4757:
4758: IF l_create_msg_count = 1 THEN
4759: /* If one message, like warning, then put this back on stack as the
4764: FND_MSG_PUB.Add;
4765: END IF;
4766:
4767: Apply( p_api_version => p_api_version,
4768: p_init_msg_list => FND_API.G_FALSE, --message stack is not initialized here.
4769: p_commit => p_commit,
4770: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4771: x_return_status => x_return_status,
4772: x_msg_count => x_msg_count,
4766:
4767: Apply( p_api_version => p_api_version,
4768: p_init_msg_list => FND_API.G_FALSE, --message stack is not initialized here.
4769: p_commit => p_commit,
4770: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4771: x_return_status => x_return_status,
4772: x_msg_count => x_msg_count,
4773: x_msg_data => x_msg_data,
4774: p_cash_receipt_id => l_cash_receipt_id,
4796: );
4797:
4798: --If the application fails then we need to rollback all the changes
4799: --made in the create() routine also.
4800: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4801: ROLLBACK TO Create_Apply_PVT;
4802: ELSE
4803:
4804: -- OSTEINME 3/2/2001: Enhancements for iReceivables
4810: IF PG_DEBUG in ('Y', 'C') THEN
4811: arp_standard.debug('Apply: ' || 'Checking p_call_payment_processor: ' || p_call_payment_processor);
4812: END IF;
4813:
4814: if (p_call_payment_processor = FND_API.G_TRUE) then
4815:
4816: l_payment_trxn_extension_id := p_payment_trxn_extension_id;
4817:
4818: process_payment_1(
4827: -- If the payment processor call fails, then we
4828: -- need to rollback all the changes
4829: -- made in the create() and apply() routines also.
4830:
4831: IF l_cc_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4832: ROLLBACK TO Create_Apply_PVT;
4833: x_return_status := l_cc_return_status;
4834: return; -- exit back to caller
4835: END IF;
4833: x_return_status := l_cc_return_status;
4834: return; -- exit back to caller
4835: END IF;
4836:
4837: end if; -- if p_call_payment_processor = fnd_api.g_true
4838:
4839: -- OSTEINME 2/27/2001: bug 1659048:
4840: -- need to pass back cr_id
4841: p_cr_id := l_cash_receipt_id;
4855: WHEN others THEN
4856: IF PG_DEBUG in ('Y', 'C') THEN
4857: arp_util.debug('Exception : Create_and_apply() ');
4858: END IF;
4859: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4860: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
4861: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','CREATE_AND_APPLY : '||SQLERRM);
4862: FND_MSG_PUB.Add;
4863: END Create_and_apply;
4908: *=======================================================================*/
4909: PROCEDURE Create_Apply_On_Acc(
4910: -- Standard API parameters.
4911: p_api_version IN NUMBER,
4912: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4913: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4914: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4915: x_return_status OUT NOCOPY VARCHAR2,
4916: x_msg_count OUT NOCOPY NUMBER,
4909: PROCEDURE Create_Apply_On_Acc(
4910: -- Standard API parameters.
4911: p_api_version IN NUMBER,
4912: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4913: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4914: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4915: x_return_status OUT NOCOPY VARCHAR2,
4916: x_msg_count OUT NOCOPY NUMBER,
4917: x_msg_data OUT NOCOPY VARCHAR2,
4910: -- Standard API parameters.
4911: p_api_version IN NUMBER,
4912: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4913: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4914: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4915: x_return_status OUT NOCOPY VARCHAR2,
4916: x_msg_count OUT NOCOPY NUMBER,
4917: x_msg_data OUT NOCOPY VARCHAR2,
4918: -- Receipt info. parameters
4993: ar_receivable_applications.secondary_application_ref_type%TYPE := null,
4994: p_secondary_app_ref_num IN
4995: ar_receivable_applications.secondary_application_ref_num%TYPE := null,
4996:
4997: p_call_payment_processor IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4998: p_org_id IN NUMBER DEFAULT NULL
4999: ) IS
5000:
5001: l_cash_receipt_id ar_cash_receipts.cash_receipt_id%type;
5031: /*-----------------------------------------+
5032: | Initialize return status to SUCCESS |
5033: +-----------------------------------------*/
5034:
5035: x_return_status := FND_API.G_RET_STS_SUCCESS;
5036:
5037: /*--------------------------------------------------+
5038: | Standard call to check for call compatibility |
5039: +--------------------------------------------------*/
5036:
5037: /*--------------------------------------------------+
5038: | Standard call to check for call compatibility |
5039: +--------------------------------------------------*/
5040: IF NOT FND_API.Compatible_API_Call(
5041: l_api_version,
5042: p_api_version,
5043: l_api_name,
5044: G_PKG_NAME
5043: l_api_name,
5044: G_PKG_NAME
5045: )
5046: THEN
5047: x_return_status := FND_API.G_RET_STS_ERROR;
5048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5049: END IF;
5050:
5051: /*--------------------------------------------------------------+
5044: G_PKG_NAME
5045: )
5046: THEN
5047: x_return_status := FND_API.G_RET_STS_ERROR;
5048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5049: END IF;
5050:
5051: /*--------------------------------------------------------------+
5052: | Initialize message list if p_init_msg_list is set to TRUE |
5050:
5051: /*--------------------------------------------------------------+
5052: | Initialize message list if p_init_msg_list is set to TRUE |
5053: +--------------------------------------------------------------*/
5054: IF FND_API.to_Boolean( p_init_msg_list )
5055: THEN
5056: FND_MSG_PUB.initialize;
5057: END IF;
5058:
5138:
5139: /*------------------------------------------------------+
5140: | Check the return status from create_cash |
5141: +------------------------------------------------------*/
5142: IF l_create_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5143:
5144: x_return_status := l_create_return_status;
5145: ROLLBACK TO Create_Apply_On_Acc;
5146: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
5142: IF l_create_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5143:
5144: x_return_status := l_create_return_status;
5145: ROLLBACK TO Create_Apply_On_Acc;
5146: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
5147: p_count => l_create_msg_count,
5148: p_data => l_create_msg_data);
5149:
5150: x_msg_count := l_create_msg_count;
5197:
5198: /*------------------------------------------------------+
5199: | Check the return status from Apply_on_account |
5200: +------------------------------------------------------*/
5201: IF l_apply_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5202: x_return_status := l_apply_return_status;
5203: ROLLBACK TO Create_Apply_On_Acc;
5204: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
5205: p_count => l_apply_msg_count,
5200: +------------------------------------------------------*/
5201: IF l_apply_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5202: x_return_status := l_apply_return_status;
5203: ROLLBACK TO Create_Apply_On_Acc;
5204: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
5205: p_count => l_apply_msg_count,
5206: p_data => l_apply_msg_data);
5207:
5208: x_msg_count := l_apply_msg_count;
5215: IF PG_DEBUG in ('Y', 'C') THEN
5216: arp_util.debug('Create_Apply_On_Acc: ' || 'Checking p_call_payment_processor: ' || p_call_payment_processor);
5217: END IF;
5218:
5219: IF ( p_call_payment_processor = FND_API.G_TRUE ) THEN
5220:
5221: l_payment_trxn_extension_id := p_payment_trxn_extension_id;
5222:
5223: /*------------------------------------------------------+
5238:
5239: /*------------------------------------------------------+
5240: | Check the return status from Process_Payment |
5241: +------------------------------------------------------*/
5242: IF l_cc_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5243: x_return_status := l_cc_return_status;
5244:
5245: IF PG_DEBUG in ('Y', 'C') THEN
5246: arp_util.debug('Create_Apply_On_Acc: ' || 'p_payment_response_error_code: ' || l_response_error_code);
5246: arp_util.debug('Create_Apply_On_Acc: ' || 'p_payment_response_error_code: ' || l_response_error_code);
5247: END IF;
5248:
5249: ROLLBACK TO Create_Apply_On_Acc;
5250: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
5251: p_count => x_msg_count,
5252: p_data => x_msg_data);
5253: RETURN; -- exit back to caller
5254: END IF;
5273: IF PG_DEBUG in ('Y', 'C') THEN
5274: arp_util.debug('Create_Apply_On_Acc: ' || 'Exception:'|| SQLERRM);
5275: END IF;
5276:
5277: x_return_status := FND_API.G_RET_STS_ERROR ;
5278: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
5279: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','AR_RECEIPT_API_PUB.Create_Apply_On_Acc:'|| SQLERRM);
5280: FND_MSG_PUB.Add;
5281: ROLLBACK TO Create_Apply_On_Acc;
5278: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
5279: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','AR_RECEIPT_API_PUB.Create_Apply_On_Acc:'|| SQLERRM);
5280: FND_MSG_PUB.Add;
5281: ROLLBACK TO Create_Apply_On_Acc;
5282: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
5283: p_count => x_msg_count,
5284: p_data => x_msg_data);
5285:
5286:
5303: l_crh_rec ar_cash_receipt_history%ROWTYPE;
5304: l_cr_rec ar_cash_receipts%ROWTYPE;
5305: l_ps_rec ar_payment_schedules%ROWTYPE;
5306: BEGIN
5307: p_return_status := FND_API.G_RET_STS_SUCCESS;
5308: /*-------------------------------------------------+
5309: | Initialize SOB/org dependent variables |
5310: +-------------------------------------------------*/
5311: arp_global.init_global;
5378:
5379: IF (SQLCODE = -20001)
5380: THEN
5381:
5382: p_return_status := FND_API.G_RET_STS_ERROR ;
5383: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
5384: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_REVERSE_RECEIPT.REVERSE : '||SQLERRM);
5385: FND_MSG_PUB.Add;
5386:
5401: /* This is standard reversal */
5402: PROCEDURE Reverse(
5403: -- Standard API parameters.
5404: p_api_version IN NUMBER,
5405: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5406: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5407: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5408: x_return_status OUT NOCOPY VARCHAR2,
5409: x_msg_count OUT NOCOPY NUMBER,
5402: PROCEDURE Reverse(
5403: -- Standard API parameters.
5404: p_api_version IN NUMBER,
5405: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5406: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5407: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5408: x_return_status OUT NOCOPY VARCHAR2,
5409: x_msg_count OUT NOCOPY NUMBER,
5410: x_msg_data OUT NOCOPY VARCHAR2,
5403: -- Standard API parameters.
5404: p_api_version IN NUMBER,
5405: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5406: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5407: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5408: x_return_status OUT NOCOPY VARCHAR2,
5409: x_msg_count OUT NOCOPY NUMBER,
5410: x_msg_data OUT NOCOPY VARCHAR2,
5411: -- Receipt reversal related parameters
5436: l_receipt_state VARCHAR2(30);
5437: l_reversal_gl_date DATE;
5438: l_reversal_date DATE;
5439: l_receipt_gl_date DATE;
5440: l_rev_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5441: l_clm_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5442: l_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5443: l_dflex_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5444: l_dflex_def_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS; /* Bug fix 3539008 */
5437: l_reversal_gl_date DATE;
5438: l_reversal_date DATE;
5439: l_receipt_gl_date DATE;
5440: l_rev_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5441: l_clm_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5442: l_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5443: l_dflex_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5444: l_dflex_def_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS; /* Bug fix 3539008 */
5445: l_dflex_val1_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5438: l_reversal_date DATE;
5439: l_receipt_gl_date DATE;
5440: l_rev_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5441: l_clm_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5442: l_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5443: l_dflex_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5444: l_dflex_def_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS; /* Bug fix 3539008 */
5445: l_dflex_val1_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5446: l_attribute_rec attribute_rec_type;
5439: l_receipt_gl_date DATE;
5440: l_rev_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5441: l_clm_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5442: l_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5443: l_dflex_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5444: l_dflex_def_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS; /* Bug fix 3539008 */
5445: l_dflex_val1_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5446: l_attribute_rec attribute_rec_type;
5447: --l_global_attribute_rec global_attribute_rec_type_upd;
5440: l_rev_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5441: l_clm_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5442: l_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5443: l_dflex_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5444: l_dflex_def_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS; /* Bug fix 3539008 */
5445: l_dflex_val1_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5446: l_attribute_rec attribute_rec_type;
5447: --l_global_attribute_rec global_attribute_rec_type_upd;
5448: l_global_attribute_rec global_attribute_rec_type;
5441: l_clm_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5442: l_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5443: l_dflex_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5444: l_dflex_def_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS; /* Bug fix 3539008 */
5445: l_dflex_val1_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5446: l_attribute_rec attribute_rec_type;
5447: --l_global_attribute_rec global_attribute_rec_type_upd;
5448: l_global_attribute_rec global_attribute_rec_type;
5449: l_glob_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5445: l_dflex_val1_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5446: l_attribute_rec attribute_rec_type;
5447: --l_global_attribute_rec global_attribute_rec_type_upd;
5448: l_global_attribute_rec global_attribute_rec_type;
5449: l_glob_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5450: l_def_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5451: l_type VARCHAR2(20);
5452: l_rev_cover_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5453: l_msg_count NUMBER;
5446: l_attribute_rec attribute_rec_type;
5447: --l_global_attribute_rec global_attribute_rec_type_upd;
5448: l_global_attribute_rec global_attribute_rec_type;
5449: l_glob_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5450: l_def_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5451: l_type VARCHAR2(20);
5452: l_rev_cover_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5453: l_msg_count NUMBER;
5454: l_msg_data VARCHAR2(2000);
5448: l_global_attribute_rec global_attribute_rec_type;
5449: l_glob_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5450: l_def_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5451: l_type VARCHAR2(20);
5452: l_rev_cover_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5453: l_msg_count NUMBER;
5454: l_msg_data VARCHAR2(2000);
5455: l_org_return_status VARCHAR2(1);
5456: l_org_id NUMBER;
5465: /*--------------------------------------------------+
5466: | Standard call to check for call compatibility |
5467: +--------------------------------------------------*/
5468:
5469: IF NOT FND_API.Compatible_API_Call(
5470: l_api_version,
5471: p_api_version,
5472: l_api_name,
5473: G_PKG_NAME
5472: l_api_name,
5473: G_PKG_NAME
5474: )
5475: THEN
5476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5477: END IF;
5478:
5479: /*--------------------------------------------------------------+
5480: | Initialize message list if p_init_msg_list is set to TRUE |
5479: /*--------------------------------------------------------------+
5480: | Initialize message list if p_init_msg_list is set to TRUE |
5481: +--------------------------------------------------------------*/
5482:
5483: IF FND_API.to_Boolean( p_init_msg_list )
5484: THEN
5485: FND_MSG_PUB.initialize;
5486: END IF;
5487: /*-----------------------------------------+
5487: /*-----------------------------------------+
5488: | Initialize return status to SUCCESS |
5489: +-----------------------------------------*/
5490:
5491: x_return_status := FND_API.G_RET_STS_SUCCESS;
5492:
5493:
5494: IF PG_DEBUG in ('Y', 'C') THEN
5495: arp_util.debug('Apply: ' || 'Reverse()+ ');
5497:
5498:
5499: /* SSA change */
5500: l_org_id := p_org_id;
5501: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
5502: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
5503: p_return_status =>l_org_return_status);
5504: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5505: x_return_status := FND_API.G_RET_STS_ERROR;
5500: l_org_id := p_org_id;
5501: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
5502: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
5503: p_return_status =>l_org_return_status);
5504: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5505: x_return_status := FND_API.G_RET_STS_ERROR;
5506: ELSE
5507:
5508: /*-------------------------------------------------+
5501: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
5502: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
5503: p_return_status =>l_org_return_status);
5504: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5505: x_return_status := FND_API.G_RET_STS_ERROR;
5506: ELSE
5507:
5508: /*-------------------------------------------------+
5509: | Initialize the profile option package variables |
5595: arp_util.debug('Apply: ' || 'Standard reversal not possible for this receipt');
5596: END IF;
5597: FND_MESSAGE.SET_NAME('AR','AR_RAPI_NON_REVERSIBLE');
5598: FND_MSG_PUB.Add;
5599: l_rev_return_status := FND_API.G_RET_STS_ERROR;
5600: END IF;
5601:
5602: -- Bug 2232366 - check for existence of claims and if they are cancellable
5603: IF arp_reverse_receipt.receipt_has_non_cancel_claims(
5605: p_include_trx_claims => 'Y')
5606: THEN
5607: FND_MESSAGE.SET_NAME('AR','AR_RW_NO_REVERSAL_WITH_CLAIMS');
5608: FND_MSG_PUB.Add;
5609: l_clm_return_status := FND_API.G_RET_STS_ERROR;
5610: ELSE
5611: arp_reverse_receipt.cancel_claims(
5612: p_cr_id => p_cash_receipt_id
5613: , p_include_trx_claims => 'Y'
5658: arp_util.debug('Apply: ' || 'l_glob_return_status :'||l_glob_return_status);
5659: END IF;
5660: END IF;
5661:
5662: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
5663: l_rev_return_status <> FND_API.G_RET_STS_SUCCESS OR
5664: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS OR
5665: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
5666: l_dflex_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
5659: END IF;
5660: END IF;
5661:
5662: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
5663: l_rev_return_status <> FND_API.G_RET_STS_SUCCESS OR
5664: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS OR
5665: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
5666: l_dflex_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
5667: l_dflex_val1_return_status <> FND_API.G_RET_STS_SUCCESS OR
5660: END IF;
5661:
5662: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
5663: l_rev_return_status <> FND_API.G_RET_STS_SUCCESS OR
5664: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS OR
5665: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
5666: l_dflex_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
5667: l_dflex_val1_return_status <> FND_API.G_RET_STS_SUCCESS OR
5668: -- l_glob_return_status <> FND_API.G_RET_STS_SUCCESS OR
5661:
5662: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
5663: l_rev_return_status <> FND_API.G_RET_STS_SUCCESS OR
5664: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS OR
5665: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
5666: l_dflex_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
5667: l_dflex_val1_return_status <> FND_API.G_RET_STS_SUCCESS OR
5668: -- l_glob_return_status <> FND_API.G_RET_STS_SUCCESS OR
5669: l_def_id_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5662: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
5663: l_rev_return_status <> FND_API.G_RET_STS_SUCCESS OR
5664: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS OR
5665: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
5666: l_dflex_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
5667: l_dflex_val1_return_status <> FND_API.G_RET_STS_SUCCESS OR
5668: -- l_glob_return_status <> FND_API.G_RET_STS_SUCCESS OR
5669: l_def_id_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5670: x_return_status := FND_API.G_RET_STS_ERROR;
5663: l_rev_return_status <> FND_API.G_RET_STS_SUCCESS OR
5664: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS OR
5665: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
5666: l_dflex_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
5667: l_dflex_val1_return_status <> FND_API.G_RET_STS_SUCCESS OR
5668: -- l_glob_return_status <> FND_API.G_RET_STS_SUCCESS OR
5669: l_def_id_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5670: x_return_status := FND_API.G_RET_STS_ERROR;
5671: END IF;
5664: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS OR
5665: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
5666: l_dflex_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
5667: l_dflex_val1_return_status <> FND_API.G_RET_STS_SUCCESS OR
5668: -- l_glob_return_status <> FND_API.G_RET_STS_SUCCESS OR
5669: l_def_id_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5670: x_return_status := FND_API.G_RET_STS_ERROR;
5671: END IF;
5672:
5665: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
5666: l_dflex_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
5667: l_dflex_val1_return_status <> FND_API.G_RET_STS_SUCCESS OR
5668: -- l_glob_return_status <> FND_API.G_RET_STS_SUCCESS OR
5669: l_def_id_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5670: x_return_status := FND_API.G_RET_STS_ERROR;
5671: END IF;
5672:
5673: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5666: l_dflex_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
5667: l_dflex_val1_return_status <> FND_API.G_RET_STS_SUCCESS OR
5668: -- l_glob_return_status <> FND_API.G_RET_STS_SUCCESS OR
5669: l_def_id_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5670: x_return_status := FND_API.G_RET_STS_ERROR;
5671: END IF;
5672:
5673: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5674:
5669: l_def_id_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5670: x_return_status := FND_API.G_RET_STS_ERROR;
5671: END IF;
5672:
5673: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5674:
5675: ROLLBACK TO Reverse_PVT;
5676:
5677: x_return_status := FND_API.G_RET_STS_ERROR ;
5673: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5674:
5675: ROLLBACK TO Reverse_PVT;
5676:
5677: x_return_status := FND_API.G_RET_STS_ERROR ;
5678:
5679: FND_MSG_PUB.Count_And_Get(
5680: p_count => x_msg_count,
5681: p_data => x_msg_data
5817: l_type,
5818: p_called_from,
5819: l_rev_cover_return_status
5820: );
5821: IF l_rev_cover_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5822:
5823: ROLLBACK TO Reverse_PVT;
5824:
5825: x_return_status := FND_API.G_RET_STS_ERROR ;
5821: IF l_rev_cover_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5822:
5823: ROLLBACK TO Reverse_PVT;
5824:
5825: x_return_status := FND_API.G_RET_STS_ERROR ;
5826:
5827: FND_MSG_PUB.Count_And_Get(
5828: p_count => x_msg_count,
5829: p_data => x_msg_data
5839: /*--------------------------------+
5840: | Standard check of p_commit |
5841: +--------------------------------*/
5842:
5843: IF FND_API.To_Boolean( p_commit )
5844: THEN
5845: IF PG_DEBUG in ('Y', 'C') THEN
5846: arp_util.debug('Apply: ' || 'committing');
5847: END IF;
5852: END IF;
5853:
5854:
5855: EXCEPTION
5856: WHEN FND_API.G_EXC_ERROR THEN
5857:
5858: IF PG_DEBUG in ('Y', 'C') THEN
5859: arp_util.debug('Apply: ' || SQLCODE, G_MSG_ERROR);
5860: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
5860: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
5861: END IF;
5862:
5863: ROLLBACK TO Reverse_PVT;
5864: x_return_status := FND_API.G_RET_STS_ERROR ;
5865:
5866: -- Display_Parameters;
5867:
5868: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
5868: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
5869: p_data => x_msg_data
5870: );
5871:
5872: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5873:
5874: IF PG_DEBUG in ('Y', 'C') THEN
5875: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
5876: END IF;
5874: IF PG_DEBUG in ('Y', 'C') THEN
5875: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
5876: END IF;
5877: ROLLBACK TO Reverse_PVT;
5878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5879:
5880: -- Display_Parameters;
5881:
5882: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
5896:
5897: ROLLBACK TO Reverse_PVT;
5898:
5899:
5900: x_return_status := FND_API.G_RET_STS_ERROR ;
5901: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
5902: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','REVERSE : '||SQLERRM);
5903: FND_MSG_PUB.Add;
5904:
5911:
5912: RETURN;
5913:
5914: ELSE
5915: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5916: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
5917: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','REVERSE : '||SQLERRM);
5918: FND_MSG_PUB.Add;
5919: END IF;
5943:
5944: PROCEDURE Apply_on_account(
5945: -- Standard API parameters.
5946: p_api_version IN NUMBER,
5947: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5948: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5949: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5950: x_return_status OUT NOCOPY VARCHAR2,
5951: x_msg_count OUT NOCOPY NUMBER,
5944: PROCEDURE Apply_on_account(
5945: -- Standard API parameters.
5946: p_api_version IN NUMBER,
5947: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5948: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5949: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5950: x_return_status OUT NOCOPY VARCHAR2,
5951: x_msg_count OUT NOCOPY NUMBER,
5952: x_msg_data OUT NOCOPY VARCHAR2,
5945: -- Standard API parameters.
5946: p_api_version IN NUMBER,
5947: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5948: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5949: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5950: x_return_status OUT NOCOPY VARCHAR2,
5951: x_msg_count OUT NOCOPY NUMBER,
5952: x_msg_data OUT NOCOPY VARCHAR2,
5953: -- Receipt application parameters.
6002: /*--------------------------------------------------+
6003: | Standard call to check for call compatibility |
6004: +--------------------------------------------------*/
6005:
6006: IF NOT FND_API.Compatible_API_Call(
6007: l_api_version,
6008: p_api_version,
6009: l_api_name,
6010: G_PKG_NAME
6009: l_api_name,
6010: G_PKG_NAME
6011: )
6012: THEN
6013: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6014: END IF;
6015:
6016: /*--------------------------------------------------------------+
6017: | Initialize message list if p_init_msg_list is set to TRUE |
6016: /*--------------------------------------------------------------+
6017: | Initialize message list if p_init_msg_list is set to TRUE |
6018: +--------------------------------------------------------------*/
6019:
6020: IF FND_API.to_Boolean( p_init_msg_list )
6021: THEN
6022: FND_MSG_PUB.initialize;
6023: END IF;
6024:
6028: /*-----------------------------------------+
6029: | Initialize return status to SUCCESS |
6030: +-----------------------------------------*/
6031:
6032: x_return_status := FND_API.G_RET_STS_SUCCESS;
6033:
6034:
6035:
6036:
6035:
6036:
6037: /* SSA change */
6038: l_org_id := p_org_id;
6039: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
6040: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
6041: p_return_status =>l_org_return_status);
6042: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6043: x_return_status := FND_API.G_RET_STS_ERROR;
6038: l_org_id := p_org_id;
6039: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
6040: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
6041: p_return_status =>l_org_return_status);
6042: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6043: x_return_status := FND_API.G_RET_STS_ERROR;
6044: ELSE
6045:
6046:
6039: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
6040: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
6041: p_return_status =>l_org_return_status);
6042: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6043: x_return_status := FND_API.G_RET_STS_ERROR;
6044: ELSE
6045:
6046:
6047: /*-------------------------------------------------+
6137: END IF;
6138: END IF;
6139:
6140:
6141: IF l_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
6142: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
6143: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
6144: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6145:
6138: END IF;
6139:
6140:
6141: IF l_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
6142: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
6143: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
6144: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6145:
6146: x_return_status := FND_API.G_RET_STS_ERROR;
6139:
6140:
6141: IF l_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
6142: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
6143: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
6144: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6145:
6146: x_return_status := FND_API.G_RET_STS_ERROR;
6147: END IF;
6140:
6141: IF l_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
6142: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
6143: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
6144: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6145:
6146: x_return_status := FND_API.G_RET_STS_ERROR;
6147: END IF;
6148:
6142: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
6143: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
6144: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6145:
6146: x_return_status := FND_API.G_RET_STS_ERROR;
6147: END IF;
6148:
6149: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
6150: THEN
6145:
6146: x_return_status := FND_API.G_RET_STS_ERROR;
6147: END IF;
6148:
6149: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
6150: THEN
6151:
6152: ROLLBACK TO Apply_on_ac_PVT;
6153:
6150: THEN
6151:
6152: ROLLBACK TO Apply_on_ac_PVT;
6153:
6154: x_return_status := FND_API.G_RET_STS_ERROR ;
6155:
6156: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6157: p_count => x_msg_count,
6158: p_data => x_msg_data
6152: ROLLBACK TO Apply_on_ac_PVT;
6153:
6154: x_return_status := FND_API.G_RET_STS_ERROR ;
6155:
6156: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6157: p_count => x_msg_count,
6158: p_data => x_msg_data
6159: );
6160:
6246: ROLLBACK TO Apply_on_ac_PVT;
6247:
6248: -- Display_Parameters
6249:
6250: x_return_status := FND_API.G_RET_STS_ERROR ;
6251: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
6252: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.ON_ACCOUNT_RECEIPTS : '||SQLERRM);
6253: FND_MSG_PUB.Add;
6254:
6251: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
6252: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.ON_ACCOUNT_RECEIPTS : '||SQLERRM);
6253: FND_MSG_PUB.Add;
6254:
6255: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
6256: p_count => x_msg_count,
6257: p_data => x_msg_data
6258: );
6259: RETURN;
6264: /*--------------------------------+
6265: | Standard check of p_commit |
6266: +--------------------------------*/
6267:
6268: IF FND_API.To_Boolean( p_commit )
6269: THEN
6270: IF PG_DEBUG in ('Y', 'C') THEN
6271: arp_util.debug('Apply: ' || 'committing');
6272: END IF;
6275: IF PG_DEBUG in ('Y', 'C') THEN
6276: arp_util.debug('Apply_on_account ()- ');
6277: END IF;
6278: EXCEPTION
6279: WHEN FND_API.G_EXC_ERROR THEN
6280:
6281: IF PG_DEBUG in ('Y', 'C') THEN
6282: arp_util.debug('Apply: ' || SQLCODE, G_MSG_ERROR);
6283: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
6283: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
6284: END IF;
6285:
6286: ROLLBACK TO Apply_on_ac_PVT;
6287: x_return_status := FND_API.G_RET_STS_ERROR ;
6288:
6289: -- Display_Parameters;
6290:
6291: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6287: x_return_status := FND_API.G_RET_STS_ERROR ;
6288:
6289: -- Display_Parameters;
6290:
6291: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6292: p_count => x_msg_count,
6293: p_data => x_msg_data
6294: );
6295:
6292: p_count => x_msg_count,
6293: p_data => x_msg_data
6294: );
6295:
6296: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6297:
6298: IF PG_DEBUG in ('Y', 'C') THEN
6299: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
6300: END IF;
6298: IF PG_DEBUG in ('Y', 'C') THEN
6299: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
6300: END IF;
6301: ROLLBACK TO Apply_on_ac_PVT;
6302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6303:
6304: -- Display_Parameters;
6305:
6306: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6303:
6304: -- Display_Parameters;
6305:
6306: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6307: p_count => x_msg_count,
6308: p_data => x_msg_data
6309: );
6310:
6323:
6324: --If only one error message on the stack,
6325: --retrive it
6326:
6327: x_return_status := FND_API.G_RET_STS_ERROR ;
6328: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
6329: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','APPLY_ON_ACCOUNT : '||SQLERRM);
6330: FND_MSG_PUB.Add;
6331:
6330: FND_MSG_PUB.Add;
6331:
6332: --If only one error message on the stack,
6333: --retrive it
6334: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6335: p_count => x_msg_count,
6336: p_data => x_msg_data
6337: );
6338:
6338:
6339: RETURN;
6340:
6341: ELSE
6342: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6343: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
6344: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','APPLY_ON_ACCOUNT : '||SQLERRM);
6345: FND_MSG_PUB.Add;
6346: END IF;
6360: END IF;
6361:
6362: -- Display_Parameters;
6363:
6364: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6365: p_count => x_msg_count,
6366: p_data => x_msg_data
6367: );
6368: END Apply_on_account;
6369:
6370: PROCEDURE Unapply_on_account(
6371: -- Standard API parameters.
6372: p_api_version IN NUMBER,
6373: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6374: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6375: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6376: x_return_status OUT NOCOPY VARCHAR2 ,
6377: x_msg_count OUT NOCOPY NUMBER ,
6370: PROCEDURE Unapply_on_account(
6371: -- Standard API parameters.
6372: p_api_version IN NUMBER,
6373: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6374: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6375: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6376: x_return_status OUT NOCOPY VARCHAR2 ,
6377: x_msg_count OUT NOCOPY NUMBER ,
6378: x_msg_data OUT NOCOPY VARCHAR2 ,
6371: -- Standard API parameters.
6372: p_api_version IN NUMBER,
6373: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6374: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6375: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6376: x_return_status OUT NOCOPY VARCHAR2 ,
6377: x_msg_count OUT NOCOPY NUMBER ,
6378: x_msg_data OUT NOCOPY VARCHAR2 ,
6379: -- *** Receipt Info. parameters *****
6407: /*--------------------------------------------------+
6408: | Standard call to check for call compatibility |
6409: +--------------------------------------------------*/
6410:
6411: IF NOT FND_API.Compatible_API_Call(
6412: l_api_version,
6413: p_api_version,
6414: l_api_name,
6415: G_PKG_NAME
6414: l_api_name,
6415: G_PKG_NAME
6416: )
6417: THEN
6418: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6419: END IF;
6420:
6421: /*--------------------------------------------------------------+
6422: | Initialize message list if p_init_msg_list is set to TRUE |
6421: /*--------------------------------------------------------------+
6422: | Initialize message list if p_init_msg_list is set to TRUE |
6423: +--------------------------------------------------------------*/
6424:
6425: IF FND_API.to_Boolean( p_init_msg_list )
6426: THEN
6427: FND_MSG_PUB.initialize;
6428: END IF;
6429:
6433: /*-----------------------------------------+
6434: | Initialize return status to SUCCESS |
6435: +-----------------------------------------*/
6436:
6437: x_return_status := FND_API.G_RET_STS_SUCCESS;
6438:
6439: /* SSA change */
6440: l_org_id := p_org_id;
6441: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
6437: x_return_status := FND_API.G_RET_STS_SUCCESS;
6438:
6439: /* SSA change */
6440: l_org_id := p_org_id;
6441: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
6442: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
6443: p_return_status =>l_org_return_status);
6444: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6445: x_return_status := FND_API.G_RET_STS_ERROR;
6440: l_org_id := p_org_id;
6441: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
6442: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
6443: p_return_status =>l_org_return_status);
6444: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6445: x_return_status := FND_API.G_RET_STS_ERROR;
6446: ELSE
6447:
6448: /*-------------------------------------------------+
6441: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
6442: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
6443: p_return_status =>l_org_return_status);
6444: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6445: x_return_status := FND_API.G_RET_STS_ERROR;
6446: ELSE
6447:
6448: /*-------------------------------------------------+
6449: | Initialize the profile option package variables |
6497: arp_util.debug('Unapply_on_account: ' || 'validation return status :'||l_val_return_status);
6498: END IF;
6499: END IF;
6500:
6501: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
6502: l_def_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6503: x_return_status := FND_API.G_RET_STS_ERROR;
6504: END IF;
6505:
6498: END IF;
6499: END IF;
6500:
6501: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
6502: l_def_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6503: x_return_status := FND_API.G_RET_STS_ERROR;
6504: END IF;
6505:
6506: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
6499: END IF;
6500:
6501: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
6502: l_def_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6503: x_return_status := FND_API.G_RET_STS_ERROR;
6504: END IF;
6505:
6506: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
6507: THEN
6502: l_def_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6503: x_return_status := FND_API.G_RET_STS_ERROR;
6504: END IF;
6505:
6506: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
6507: THEN
6508:
6509: ROLLBACK TO Unapply_on_ac_PVT;
6510:
6507: THEN
6508:
6509: ROLLBACK TO Unapply_on_ac_PVT;
6510:
6511: x_return_status := FND_API.G_RET_STS_ERROR ;
6512:
6513: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6514: p_count => x_msg_count,
6515: p_data => x_msg_data
6509: ROLLBACK TO Unapply_on_ac_PVT;
6510:
6511: x_return_status := FND_API.G_RET_STS_ERROR ;
6512:
6513: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6514: p_count => x_msg_count,
6515: p_data => x_msg_data
6516: );
6517:
6553: THEN
6554: ROLLBACK TO Unapply_on_ac_PVT;
6555:
6556: -- Display_Parameters;
6557: x_return_status := FND_API.G_RET_STS_ERROR ;
6558: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
6559: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.REVERSE : '||SQLERRM);
6560: FND_MSG_PUB.Add;
6561:
6558: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
6559: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.REVERSE : '||SQLERRM);
6560: FND_MSG_PUB.Add;
6561:
6562: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
6563: p_count => x_msg_count,
6564: p_data => x_msg_data
6565: );
6566: RETURN;
6572: /*--------------------------------+
6573: | Standard check of p_commit |
6574: +--------------------------------*/
6575:
6576: IF FND_API.To_Boolean( p_commit )
6577: THEN
6578: IF PG_DEBUG in ('Y', 'C') THEN
6579: arp_util.debug('Unapply_on_account: ' || 'committing');
6580: END IF;
6586: END IF;
6587:
6588:
6589: EXCEPTION
6590: WHEN FND_API.G_EXC_ERROR THEN
6591:
6592: IF PG_DEBUG in ('Y', 'C') THEN
6593: arp_util.debug('Unapply_on_account: ' || SQLCODE, G_MSG_ERROR);
6594: arp_util.debug('Unapply_on_account: ' || SQLERRM, G_MSG_ERROR);
6594: arp_util.debug('Unapply_on_account: ' || SQLERRM, G_MSG_ERROR);
6595: END IF;
6596:
6597: ROLLBACK TO Unapply_on_ac_PVT;
6598: x_return_status := FND_API.G_RET_STS_ERROR ;
6599:
6600: -- Display_Parameters;
6601:
6602: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6598: x_return_status := FND_API.G_RET_STS_ERROR ;
6599:
6600: -- Display_Parameters;
6601:
6602: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6603: p_count => x_msg_count,
6604: p_data => x_msg_data
6605: );
6606:
6603: p_count => x_msg_count,
6604: p_data => x_msg_data
6605: );
6606:
6607: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6608:
6609: IF PG_DEBUG in ('Y', 'C') THEN
6610: arp_util.debug('Unapply_on_account: ' || SQLERRM, G_MSG_ERROR);
6611: END IF;
6609: IF PG_DEBUG in ('Y', 'C') THEN
6610: arp_util.debug('Unapply_on_account: ' || SQLERRM, G_MSG_ERROR);
6611: END IF;
6612: ROLLBACK TO Unapply_on_ac_PVT;
6613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6614:
6615: -- Display_Parameters;
6616:
6617: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6614:
6615: -- Display_Parameters;
6616:
6617: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6618: p_count => x_msg_count,
6619: p_data => x_msg_data
6620: );
6621:
6634:
6635: --If only one error message on the stack,
6636: --retrive it
6637:
6638: x_return_status := FND_API.G_RET_STS_ERROR ;
6639: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
6640: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','UNAPPLY_ON_ACCOUNT : '||SQLERRM);
6641: FND_MSG_PUB.Add;
6642: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6638: x_return_status := FND_API.G_RET_STS_ERROR ;
6639: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
6640: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','UNAPPLY_ON_ACCOUNT : '||SQLERRM);
6641: FND_MSG_PUB.Add;
6642: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6643: p_count => x_msg_count,
6644: p_data => x_msg_data
6645: );
6646:
6646:
6647: RETURN;
6648:
6649: ELSE
6650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6651: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
6652: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','UNAPPLY_ON_ACCOUNT : '||SQLERRM);
6653: FND_MSG_PUB.Add;
6654: END IF;
6668: END IF;
6669:
6670: -- Display_Parameters;
6671:
6672: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6673: p_count => x_msg_count,
6674: p_data => x_msg_data
6675: );
6676: END Unapply_on_account;
6677:
6678: PROCEDURE Unapply_other_account(
6679: -- Standard API parameters.
6680: p_api_version IN NUMBER,
6681: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6682: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6683: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6684: x_return_status OUT NOCOPY VARCHAR2 ,
6685: x_msg_count OUT NOCOPY NUMBER ,
6678: PROCEDURE Unapply_other_account(
6679: -- Standard API parameters.
6680: p_api_version IN NUMBER,
6681: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6682: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6683: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6684: x_return_status OUT NOCOPY VARCHAR2 ,
6685: x_msg_count OUT NOCOPY NUMBER ,
6686: x_msg_data OUT NOCOPY VARCHAR2 ,
6679: -- Standard API parameters.
6680: p_api_version IN NUMBER,
6681: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6682: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6683: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6684: x_return_status OUT NOCOPY VARCHAR2 ,
6685: x_msg_count OUT NOCOPY NUMBER ,
6686: x_msg_data OUT NOCOPY VARCHAR2 ,
6687: -- *** Receipt Info. parameters *****
6725: /*--------------------------------------------------+
6726: | Standard call to check for call compatibility |
6727: +--------------------------------------------------*/
6728:
6729: IF NOT FND_API.Compatible_API_Call(
6730: p_current_version_number => l_api_version,
6731: p_caller_version_number => p_api_version,
6732: p_api_name => l_api_name,
6733: p_pkg_name => G_PKG_NAME
6732: p_api_name => l_api_name,
6733: p_pkg_name => G_PKG_NAME
6734: )
6735: THEN
6736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6737: END IF;
6738:
6739: /*--------------------------------------------------------------+
6740: | Initialize message list if p_init_msg_list is set to TRUE |
6739: /*--------------------------------------------------------------+
6740: | Initialize message list if p_init_msg_list is set to TRUE |
6741: +--------------------------------------------------------------*/
6742:
6743: IF FND_API.to_Boolean( p_init_msg_list )
6744: THEN
6745: FND_MSG_PUB.initialize;
6746: END IF;
6747:
6751: /*-----------------------------------------+
6752: | Initialize return status to SUCCESS |
6753: +-----------------------------------------*/
6754:
6755: x_return_status := FND_API.G_RET_STS_SUCCESS;
6756:
6757: /* SSA change */
6758: l_org_id := p_org_id;
6759: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
6755: x_return_status := FND_API.G_RET_STS_SUCCESS;
6756:
6757: /* SSA change */
6758: l_org_id := p_org_id;
6759: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
6760: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
6761: p_return_status =>l_org_return_status);
6762: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6763: x_return_status := FND_API.G_RET_STS_ERROR;
6758: l_org_id := p_org_id;
6759: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
6760: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
6761: p_return_status =>l_org_return_status);
6762: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6763: x_return_status := FND_API.G_RET_STS_ERROR;
6764: ELSE
6765: /*-------------------------------------------------+
6766: | Initialize the profile option package variables |
6759: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
6760: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
6761: p_return_status =>l_org_return_status);
6762: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6763: x_return_status := FND_API.G_RET_STS_ERROR;
6764: ELSE
6765: /*-------------------------------------------------+
6766: | Initialize the profile option package variables |
6767: +-------------------------------------------------*/
6833: -- Bug 2270809 , bug 2751910
6834: -- If a claim investigation app, then update the claim.
6835: -- Bug 3708728: update_claim not called if validation errors exist
6836:
6837: IF (l_val_return_status = FND_API.G_RET_STS_SUCCESS AND
6838: l_def_return_status = FND_API.G_RET_STS_SUCCESS AND
6839: l_applied_ps_id = -4 AND
6840: NVL(p_called_from,'RAPI') <> 'TRADE_MANAGEMENT')
6841: THEN
6834: -- If a claim investigation app, then update the claim.
6835: -- Bug 3708728: update_claim not called if validation errors exist
6836:
6837: IF (l_val_return_status = FND_API.G_RET_STS_SUCCESS AND
6838: l_def_return_status = FND_API.G_RET_STS_SUCCESS AND
6839: l_applied_ps_id = -4 AND
6840: NVL(p_called_from,'RAPI') <> 'TRADE_MANAGEMENT')
6841: THEN
6842: /* Bug 4170060 do not update with claim balance for partial
6868: arp_util.debug('Unapply_other_account: ' || 'validation return status :'||l_val_return_status);
6869: END IF;
6870: END IF;
6871:
6872: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
6873: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
6874: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6875: x_return_status := FND_API.G_RET_STS_ERROR;
6876: END IF;
6869: END IF;
6870: END IF;
6871:
6872: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
6873: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
6874: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6875: x_return_status := FND_API.G_RET_STS_ERROR;
6876: END IF;
6877:
6870: END IF;
6871:
6872: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
6873: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
6874: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6875: x_return_status := FND_API.G_RET_STS_ERROR;
6876: END IF;
6877:
6878: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
6871:
6872: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
6873: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
6874: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6875: x_return_status := FND_API.G_RET_STS_ERROR;
6876: END IF;
6877:
6878: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
6879: THEN
6874: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6875: x_return_status := FND_API.G_RET_STS_ERROR;
6876: END IF;
6877:
6878: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
6879: THEN
6880:
6881: ROLLBACK TO Unapply_other_ac_PVT;
6882:
6879: THEN
6880:
6881: ROLLBACK TO Unapply_other_ac_PVT;
6882:
6883: x_return_status := FND_API.G_RET_STS_ERROR ;
6884:
6885: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6886: p_count => x_msg_count,
6887: p_data => x_msg_data
6881: ROLLBACK TO Unapply_other_ac_PVT;
6882:
6883: x_return_status := FND_API.G_RET_STS_ERROR ;
6884:
6885: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6886: p_count => x_msg_count,
6887: p_data => x_msg_data
6888: );
6889:
6925: THEN
6926: ROLLBACK TO Unapply_other_ac_PVT;
6927:
6928: -- Display_Parameters;
6929: x_return_status := FND_API.G_RET_STS_ERROR ;
6930: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
6931: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.REVERSE : '||SQLERRM);
6932: FND_MSG_PUB.Add;
6933:
6930: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
6931: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.REVERSE : '||SQLERRM);
6932: FND_MSG_PUB.Add;
6933:
6934: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
6935: p_count => x_msg_count,
6936: p_data => x_msg_data
6937: );
6938: RETURN;
6944: /*--------------------------------+
6945: | Standard check of p_commit |
6946: +--------------------------------*/
6947:
6948: IF FND_API.To_Boolean( p_commit )
6949: THEN
6950: IF PG_DEBUG in ('Y', 'C') THEN
6951: arp_util.debug('Unapply_other_account: ' || 'committing');
6952: END IF;
6958: END IF;
6959:
6960:
6961: EXCEPTION
6962: WHEN FND_API.G_EXC_ERROR THEN
6963:
6964: IF PG_DEBUG in ('Y', 'C') THEN
6965: arp_util.debug('Unapply_other_account: ' || SQLCODE, G_MSG_ERROR);
6966: arp_util.debug('Unapply_other_account: ' || SQLERRM, G_MSG_ERROR);
6966: arp_util.debug('Unapply_other_account: ' || SQLERRM, G_MSG_ERROR);
6967: END IF;
6968:
6969: ROLLBACK TO Unapply_other_ac_PVT;
6970: x_return_status := FND_API.G_RET_STS_ERROR ;
6971:
6972: -- Display_Parameters;
6973:
6974: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6970: x_return_status := FND_API.G_RET_STS_ERROR ;
6971:
6972: -- Display_Parameters;
6973:
6974: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6975: p_count => x_msg_count,
6976: p_data => x_msg_data
6977: );
6978:
6975: p_count => x_msg_count,
6976: p_data => x_msg_data
6977: );
6978:
6979: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6980:
6981: IF PG_DEBUG in ('Y', 'C') THEN
6982: arp_util.debug('Unapply_other_account: ' || SQLERRM, G_MSG_ERROR);
6983: END IF;
6981: IF PG_DEBUG in ('Y', 'C') THEN
6982: arp_util.debug('Unapply_other_account: ' || SQLERRM, G_MSG_ERROR);
6983: END IF;
6984: ROLLBACK TO Unapply_other_ac_PVT;
6985: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6986:
6987: -- Display_Parameters;
6988:
6989: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6985: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6986:
6987: -- Display_Parameters;
6988:
6989: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6990: p_count => x_msg_count,
6991: p_data => x_msg_data
6992: );
6993:
7006:
7007: --If only one error message on the stack,
7008: --retrive it
7009:
7010: x_return_status := FND_API.G_RET_STS_ERROR ;
7011: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
7012: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','UNAPPLY_ON_ACCOUNT : '||SQLERRM);
7013: FND_MSG_PUB.Add;
7014: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7010: x_return_status := FND_API.G_RET_STS_ERROR ;
7011: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
7012: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','UNAPPLY_ON_ACCOUNT : '||SQLERRM);
7013: FND_MSG_PUB.Add;
7014: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7015: p_count => x_msg_count,
7016: p_data => x_msg_data
7017: );
7018:
7018:
7019: RETURN;
7020:
7021: ELSE
7022: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7023: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
7024: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','UNAPPLY_OTHER_ACCOUNT : '||SQLERRM);
7025: FND_MSG_PUB.Add;
7026: END IF;
7040: END IF;
7041:
7042: -- Display_Parameters;
7043:
7044: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7045: p_count => x_msg_count,
7046: p_data => x_msg_data
7047: );
7048: END Unapply_other_account;
7049:
7050: PROCEDURE Activity_application(
7051: -- Standard API parameters.
7052: p_api_version IN NUMBER,
7053: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7054: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7055: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7056: x_return_status OUT NOCOPY VARCHAR2,
7057: x_msg_count OUT NOCOPY NUMBER,
7050: PROCEDURE Activity_application(
7051: -- Standard API parameters.
7052: p_api_version IN NUMBER,
7053: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7054: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7055: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7056: x_return_status OUT NOCOPY VARCHAR2,
7057: x_msg_count OUT NOCOPY NUMBER,
7058: x_msg_data OUT NOCOPY VARCHAR2,
7051: -- Standard API parameters.
7052: p_api_version IN NUMBER,
7053: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7054: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7055: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7056: x_return_status OUT NOCOPY VARCHAR2,
7057: x_msg_count OUT NOCOPY NUMBER,
7058: x_msg_data OUT NOCOPY VARCHAR2,
7059: -- Receipt application parameters.
7167: /*--------------------------------------------------+
7168: | Standard call to check for call compatibility |
7169: +--------------------------------------------------*/
7170:
7171: IF NOT FND_API.Compatible_API_Call(
7172: l_api_version,
7173: p_api_version,
7174: l_api_name,
7175: G_PKG_NAME
7174: l_api_name,
7175: G_PKG_NAME
7176: )
7177: THEN
7178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7179: END IF;
7180:
7181: /*--------------------------------------------------------------+
7182: | Initialize message list if p_init_msg_list is set to TRUE |
7181: /*--------------------------------------------------------------+
7182: | Initialize message list if p_init_msg_list is set to TRUE |
7183: +--------------------------------------------------------------*/
7184:
7185: IF FND_API.to_Boolean( p_init_msg_list )
7186: THEN
7187: FND_MSG_PUB.initialize;
7188: END IF;
7189:
7193: /*-----------------------------------------+
7194: | Initialize return status to SUCCESS |
7195: +-----------------------------------------*/
7196:
7197: x_return_status := FND_API.G_RET_STS_SUCCESS;
7198:
7199:
7200:
7201:
7200:
7201:
7202: /* SSA change */
7203: l_org_id := p_org_id;
7204: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
7205: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
7206: p_return_status =>l_org_return_status);
7207: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7208: x_return_status := FND_API.G_RET_STS_ERROR;
7203: l_org_id := p_org_id;
7204: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
7205: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
7206: p_return_status =>l_org_return_status);
7207: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7208: x_return_status := FND_API.G_RET_STS_ERROR;
7209: ELSE
7210: /*-------------------------------------------------+
7211: | Initialize the profile option package variables |
7204: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
7205: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
7206: p_return_status =>l_org_return_status);
7207: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7208: x_return_status := FND_API.G_RET_STS_ERROR;
7209: ELSE
7210: /*-------------------------------------------------+
7211: | Initialize the profile option package variables |
7212: +-------------------------------------------------*/
7353: arp_util.debug('Activity_application: ' || 'l_apply_gl_date : '||to_char(l_apply_gl_date,'DD-MON-YY'));
7354: END IF;
7355: END IF;
7356:
7357: IF l_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
7358: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
7359: l_dft_ref_return_status <> FND_API.G_RET_STS_SUCCESS OR
7360: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7361:
7354: END IF;
7355: END IF;
7356:
7357: IF l_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
7358: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
7359: l_dft_ref_return_status <> FND_API.G_RET_STS_SUCCESS OR
7360: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7361:
7362: IF PG_DEBUG in ('Y', 'C') THEN
7355: END IF;
7356:
7357: IF l_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
7358: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
7359: l_dft_ref_return_status <> FND_API.G_RET_STS_SUCCESS OR
7360: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7361:
7362: IF PG_DEBUG in ('Y', 'C') THEN
7363: arp_util.debug('Activity_application: ' || 'Validation FAILED ');
7356:
7357: IF l_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
7358: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
7359: l_dft_ref_return_status <> FND_API.G_RET_STS_SUCCESS OR
7360: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7361:
7362: IF PG_DEBUG in ('Y', 'C') THEN
7363: arp_util.debug('Activity_application: ' || 'Validation FAILED ');
7364: END IF;
7361:
7362: IF PG_DEBUG in ('Y', 'C') THEN
7363: arp_util.debug('Activity_application: ' || 'Validation FAILED ');
7364: END IF;
7365: x_return_status := FND_API.G_RET_STS_ERROR;
7366: END IF;
7367:
7368: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
7369: THEN
7364: END IF;
7365: x_return_status := FND_API.G_RET_STS_ERROR;
7366: END IF;
7367:
7368: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
7369: THEN
7370:
7371: ROLLBACK TO Activity_app_PVT;
7372:
7369: THEN
7370:
7371: ROLLBACK TO Activity_app_PVT;
7372:
7373: x_return_status := FND_API.G_RET_STS_ERROR ;
7374:
7375: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7376: p_count => x_msg_count,
7377: p_data => x_msg_data
7371: ROLLBACK TO Activity_app_PVT;
7372:
7373: x_return_status := FND_API.G_RET_STS_ERROR ;
7374:
7375: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7376: p_count => x_msg_count,
7377: p_data => x_msg_data
7378: );
7379:
7466: THEN
7467: ROLLBACK TO Activity_app_PVT;
7468:
7469: -- Display_Parameters;
7470: x_return_status := FND_API.G_RET_STS_ERROR ;
7471: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
7472: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.ACTIVITY_APPLICATION : '||SQLERRM);
7473: FND_MSG_PUB.Add;
7474:
7471: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
7472: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.ACTIVITY_APPLICATION : '||SQLERRM);
7473: FND_MSG_PUB.Add;
7474:
7475: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
7476: p_count => x_msg_count,
7477: p_data => x_msg_data
7478: );
7479: RETURN;
7530: THEN
7531: ROLLBACK TO Activity_app_PVT;
7532:
7533: -- Display_Parameters;
7534: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7535: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
7536: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','AR_REFUNDS_PVT.Create_Refund : '||SQLERRM);
7537: FND_MSG_PUB.Add;
7538:
7535: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
7536: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','AR_REFUNDS_PVT.Create_Refund : '||SQLERRM);
7537: FND_MSG_PUB.Add;
7538:
7539: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
7540: p_count => x_msg_count,
7541: p_data => x_msg_data
7542: );
7543: RETURN;
7554: /*--------------------------------+
7555: | Standard check of p_commit |
7556: +--------------------------------*/
7557:
7558: IF FND_API.To_Boolean( p_commit )
7559: THEN
7560: IF PG_DEBUG in ('Y', 'C') THEN
7561: arp_util.debug('Activity_application: ' || 'committing');
7562: END IF;
7565: IF PG_DEBUG in ('Y', 'C') THEN
7566: arp_util.debug('Activity_application ()- ');
7567: END IF;
7568: EXCEPTION
7569: WHEN FND_API.G_EXC_ERROR THEN
7570:
7571: IF PG_DEBUG in ('Y', 'C') THEN
7572: arp_util.debug('Activity_application: ' || SQLCODE, G_MSG_ERROR);
7573: arp_util.debug('Activity_application: ' || SQLERRM, G_MSG_ERROR);
7573: arp_util.debug('Activity_application: ' || SQLERRM, G_MSG_ERROR);
7574: END IF;
7575:
7576: ROLLBACK TO Activity_app_PVT;
7577: x_return_status := FND_API.G_RET_STS_ERROR ;
7578:
7579: -- Display_Parameters;
7580:
7581: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7577: x_return_status := FND_API.G_RET_STS_ERROR ;
7578:
7579: -- Display_Parameters;
7580:
7581: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7582: p_count => x_msg_count,
7583: p_data => x_msg_data
7584: );
7585:
7582: p_count => x_msg_count,
7583: p_data => x_msg_data
7584: );
7585:
7586: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7587:
7588: IF PG_DEBUG in ('Y', 'C') THEN
7589: arp_util.debug('Activity_application: ' || SQLERRM, G_MSG_ERROR);
7590: END IF;
7588: IF PG_DEBUG in ('Y', 'C') THEN
7589: arp_util.debug('Activity_application: ' || SQLERRM, G_MSG_ERROR);
7590: END IF;
7591: ROLLBACK TO Activity_app_PVT;
7592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7593:
7594: -- Display_Parameters;
7595:
7596: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7593:
7594: -- Display_Parameters;
7595:
7596: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7597: p_count => x_msg_count,
7598: p_data => x_msg_data
7599: );
7600:
7613:
7614: --If only one error message on the stack,
7615: --retrive it
7616:
7617: x_return_status := FND_API.G_RET_STS_ERROR ;
7618: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
7619: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ACTIVITY_APPLICATION : '||SQLERRM);
7620: FND_MSG_PUB.Add;
7621:
7621:
7622: --If only one error message on the stack,
7623: --retrive it
7624:
7625: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7626: p_count => x_msg_count,
7627: p_data => x_msg_data
7628: );
7629:
7629:
7630: RETURN;
7631:
7632: ELSE
7633: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7634: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
7635: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ACTIVITY_APPLICATION : '||SQLERRM);
7636: FND_MSG_PUB.Add;
7637: END IF;
7651: END IF;
7652:
7653: -- Display_Parameters;
7654:
7655: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7656: p_count => x_msg_count,
7657: p_data => x_msg_data
7658: );
7659: END Activity_application;
7660:
7661: PROCEDURE Activity_Unapplication(
7662: -- Standard API parameters.
7663: p_api_version IN NUMBER,
7664: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7665: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7666: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7667: x_return_status OUT NOCOPY VARCHAR2 ,
7668: x_msg_count OUT NOCOPY NUMBER ,
7661: PROCEDURE Activity_Unapplication(
7662: -- Standard API parameters.
7663: p_api_version IN NUMBER,
7664: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7665: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7666: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7667: x_return_status OUT NOCOPY VARCHAR2 ,
7668: x_msg_count OUT NOCOPY NUMBER ,
7669: x_msg_data OUT NOCOPY VARCHAR2 ,
7662: -- Standard API parameters.
7663: p_api_version IN NUMBER,
7664: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7665: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7666: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7667: x_return_status OUT NOCOPY VARCHAR2 ,
7668: x_msg_count OUT NOCOPY NUMBER ,
7669: x_msg_data OUT NOCOPY VARCHAR2 ,
7670: -- *** Receipt Info. parameters *****
7702: /*--------------------------------------------------+
7703: | Standard call to check for call compatibility |
7704: +--------------------------------------------------*/
7705:
7706: IF NOT FND_API.Compatible_API_Call(
7707: l_api_version,
7708: p_api_version,
7709: l_api_name,
7710: G_PKG_NAME
7709: l_api_name,
7710: G_PKG_NAME
7711: )
7712: THEN
7713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7714: END IF;
7715:
7716: /*--------------------------------------------------------------+
7717: | Initialize message list if p_init_msg_list is set to TRUE |
7716: /*--------------------------------------------------------------+
7717: | Initialize message list if p_init_msg_list is set to TRUE |
7718: +--------------------------------------------------------------*/
7719:
7720: IF FND_API.to_Boolean( p_init_msg_list )
7721: THEN
7722: FND_MSG_PUB.initialize;
7723: END IF;
7724:
7728: /*-----------------------------------------+
7729: | Initialize return status to SUCCESS |
7730: +-----------------------------------------*/
7731:
7732: x_return_status := FND_API.G_RET_STS_SUCCESS;
7733:
7734:
7735:
7736: /* SSA change */
7734:
7735:
7736: /* SSA change */
7737: l_org_id := p_org_id;
7738: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
7739: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
7740: p_return_status =>l_org_return_status);
7741: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7742: x_return_status := FND_API.G_RET_STS_ERROR;
7737: l_org_id := p_org_id;
7738: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
7739: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
7740: p_return_status =>l_org_return_status);
7741: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7742: x_return_status := FND_API.G_RET_STS_ERROR;
7743: ELSE
7744:
7745: /*-------------------------------------------------+
7738: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
7739: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
7740: p_return_status =>l_org_return_status);
7741: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7742: x_return_status := FND_API.G_RET_STS_ERROR;
7743: ELSE
7744:
7745: /*-------------------------------------------------+
7746: | Initialize the profile option package variables |
7818: , x_msg_data => x_msg_data);
7819: END IF;
7820:
7821:
7822: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
7823: l_refund_return_status <> FND_API.G_RET_STS_SUCCESS OR
7824: l_def_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7825: x_return_status := FND_API.G_RET_STS_ERROR;
7826: END IF;
7819: END IF;
7820:
7821:
7822: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
7823: l_refund_return_status <> FND_API.G_RET_STS_SUCCESS OR
7824: l_def_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7825: x_return_status := FND_API.G_RET_STS_ERROR;
7826: END IF;
7827:
7820:
7821:
7822: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
7823: l_refund_return_status <> FND_API.G_RET_STS_SUCCESS OR
7824: l_def_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7825: x_return_status := FND_API.G_RET_STS_ERROR;
7826: END IF;
7827:
7828: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
7821:
7822: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
7823: l_refund_return_status <> FND_API.G_RET_STS_SUCCESS OR
7824: l_def_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7825: x_return_status := FND_API.G_RET_STS_ERROR;
7826: END IF;
7827:
7828: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
7829: THEN
7824: l_def_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7825: x_return_status := FND_API.G_RET_STS_ERROR;
7826: END IF;
7827:
7828: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
7829: THEN
7830:
7831: ROLLBACK TO Activity_unapplication_PVT;
7832:
7829: THEN
7830:
7831: ROLLBACK TO Activity_unapplication_PVT;
7832:
7833: x_return_status := FND_API.G_RET_STS_ERROR ;
7834:
7835: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7836: p_count => x_msg_count,
7837: p_data => x_msg_data
7831: ROLLBACK TO Activity_unapplication_PVT;
7832:
7833: x_return_status := FND_API.G_RET_STS_ERROR ;
7834:
7835: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7836: p_count => x_msg_count,
7837: p_data => x_msg_data
7838: );
7839:
7875: THEN
7876: ROLLBACK TO Activity_unapplication_PVT;
7877:
7878: -- Display_Parameters;
7879: x_return_status := FND_API.G_RET_STS_ERROR ;
7880: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
7881: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.REVERSE : '||SQLERRM);
7882: FND_MSG_PUB.Add;
7883:
7880: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
7881: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.REVERSE : '||SQLERRM);
7882: FND_MSG_PUB.Add;
7883:
7884: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
7885: p_count => x_msg_count,
7886: p_data => x_msg_data
7887: );
7888: RETURN;
7894: /*--------------------------------+
7895: | Standard check of p_commit |
7896: +--------------------------------*/
7897:
7898: IF FND_API.To_Boolean( p_commit )
7899: THEN
7900: IF PG_DEBUG in ('Y', 'C') THEN
7901: arp_util.debug('Activity_Unapplication: ' || 'committing');
7902: END IF;
7908: END IF;
7909:
7910:
7911: EXCEPTION
7912: WHEN FND_API.G_EXC_ERROR THEN
7913:
7914: IF PG_DEBUG in ('Y', 'C') THEN
7915: arp_util.debug('Activity_Unapplication: ' || SQLCODE, G_MSG_ERROR);
7916: arp_util.debug('Activity_Unapplication: ' || SQLERRM, G_MSG_ERROR);
7916: arp_util.debug('Activity_Unapplication: ' || SQLERRM, G_MSG_ERROR);
7917: END IF;
7918:
7919: ROLLBACK TO Activity_unapplication_PVT;
7920: x_return_status := FND_API.G_RET_STS_ERROR ;
7921:
7922: -- Display_Parameters;
7923:
7924: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7920: x_return_status := FND_API.G_RET_STS_ERROR ;
7921:
7922: -- Display_Parameters;
7923:
7924: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7925: p_count => x_msg_count,
7926: p_data => x_msg_data
7927: );
7928:
7925: p_count => x_msg_count,
7926: p_data => x_msg_data
7927: );
7928:
7929: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7930:
7931: IF PG_DEBUG in ('Y', 'C') THEN
7932: arp_util.debug('Activity_Unapplication: ' || SQLERRM, G_MSG_ERROR);
7933: END IF;
7931: IF PG_DEBUG in ('Y', 'C') THEN
7932: arp_util.debug('Activity_Unapplication: ' || SQLERRM, G_MSG_ERROR);
7933: END IF;
7934: ROLLBACK TO Activity_unapplication_PVT;
7935: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7936:
7937: -- Display_Parameters;
7938:
7939: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7935: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7936:
7937: -- Display_Parameters;
7938:
7939: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7940: p_count => x_msg_count,
7941: p_data => x_msg_data
7942: );
7943:
7953: THEN
7954:
7955: ROLLBACK TO Activity_unapplication_PVT;
7956:
7957: x_return_status := FND_API.G_RET_STS_ERROR ;
7958: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
7959: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ACTIVITY_UNAPPLICATION : '||SQLERRM);
7960: FND_MSG_PUB.Add;
7961:
7960: FND_MSG_PUB.Add;
7961:
7962: --If only one error message on the stack,
7963: --retrive it
7964: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7965: p_count => x_msg_count,
7966: p_data => x_msg_data
7967: );
7968:
7968:
7969: RETURN;
7970:
7971: ELSE
7972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7973: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
7974: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ACTIVITY_UNAPPLICATION : '||SQLERRM);
7975: FND_MSG_PUB.Add;
7976: END IF;
7990: END IF;
7991:
7992: -- Display_Parameters;
7993:
7994: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7995: p_count => x_msg_count,
7996: p_data => x_msg_data
7997: );
7998: END Activity_unapplication;
7999:
8000: PROCEDURE Apply_other_account(
8001: -- Standard API parameters.
8002: p_api_version IN NUMBER,
8003: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8004: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8005: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8006: x_return_status OUT NOCOPY VARCHAR2,
8007: x_msg_count OUT NOCOPY NUMBER,
8000: PROCEDURE Apply_other_account(
8001: -- Standard API parameters.
8002: p_api_version IN NUMBER,
8003: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8004: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8005: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8006: x_return_status OUT NOCOPY VARCHAR2,
8007: x_msg_count OUT NOCOPY NUMBER,
8008: x_msg_data OUT NOCOPY VARCHAR2,
8001: -- Standard API parameters.
8002: p_api_version IN NUMBER,
8003: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8004: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8005: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8006: x_return_status OUT NOCOPY VARCHAR2,
8007: x_msg_count OUT NOCOPY NUMBER,
8008: x_msg_data OUT NOCOPY VARCHAR2,
8009: p_receivable_application_id OUT NOCOPY ar_receivable_applications.receivable_application_id%TYPE,
8050: l_attribute_rec attribute_rec_type;
8051: l_cr_currency_code VARCHAR2(15);
8052: l_receivables_trx_id NUMBER;
8053: l_applied_payment_schedule_id ar_receivable_applications.applied_payment_schedule_id%TYPE;
8054: l_gdflex_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8055: l_global_attribute_rec global_attribute_rec_type;
8056:
8057: -- Bug # 2707702
8058: l_temp_ref_id ar_receivable_applications.application_ref_id%TYPE;
8072: /*--------------------------------------------------+
8073: | Standard call to check for call compatibility |
8074: +--------------------------------------------------*/
8075:
8076: IF NOT FND_API.Compatible_API_Call(
8077: l_api_version,
8078: p_api_version,
8079: l_api_name,
8080: G_PKG_NAME
8079: l_api_name,
8080: G_PKG_NAME
8081: )
8082: THEN
8083: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8084: END IF;
8085:
8086: /*--------------------------------------------------------------+
8087: | Initialize message list if p_init_msg_list is set to TRUE |
8086: /*--------------------------------------------------------------+
8087: | Initialize message list if p_init_msg_list is set to TRUE |
8088: +--------------------------------------------------------------*/
8089:
8090: IF FND_API.to_Boolean( p_init_msg_list )
8091: THEN
8092: FND_MSG_PUB.initialize;
8093: END IF;
8094:
8096: /*-----------------------------------------+
8097: | Initialize return status to SUCCESS |
8098: +-----------------------------------------*/
8099:
8100: x_return_status := FND_API.G_RET_STS_SUCCESS;
8101:
8102:
8103:
8104:
8103:
8104:
8105: /* SSA change */
8106: l_org_id := p_org_id;
8107: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
8108: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
8109: p_return_status =>l_org_return_status);
8110: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8111: x_return_status := FND_API.G_RET_STS_ERROR;
8106: l_org_id := p_org_id;
8107: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
8108: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
8109: p_return_status =>l_org_return_status);
8110: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8111: x_return_status := FND_API.G_RET_STS_ERROR;
8112: ELSE
8113: /*-------------------------------------------------+
8114: | Initialize the profile option package variables |
8107: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
8108: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
8109: p_return_status =>l_org_return_status);
8110: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8111: x_return_status := FND_API.G_RET_STS_ERROR;
8112: ELSE
8113: /*-------------------------------------------------+
8114: | Initialize the profile option package variables |
8115: +-------------------------------------------------*/
8257: arp_util.debug('l_apply_gl_date : '||to_char(l_apply_gl_date,'DD-MON-YY'));
8258: END IF;
8259:
8260:
8261: IF l_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
8262: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
8263: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
8264: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
8265: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
8258: END IF;
8259:
8260:
8261: IF l_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
8262: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
8263: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
8264: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
8265: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
8266: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8259:
8260:
8261: IF l_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
8262: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
8263: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
8264: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
8265: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
8266: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8267:
8260:
8261: IF l_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
8262: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
8263: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
8264: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
8265: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
8266: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8267:
8268: x_return_status := FND_API.G_RET_STS_ERROR;
8261: IF l_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
8262: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
8263: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
8264: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
8265: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
8266: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8267:
8268: x_return_status := FND_API.G_RET_STS_ERROR;
8269: END IF;
8262: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
8263: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
8264: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
8265: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
8266: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8267:
8268: x_return_status := FND_API.G_RET_STS_ERROR;
8269: END IF;
8270:
8264: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
8265: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
8266: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8267:
8268: x_return_status := FND_API.G_RET_STS_ERROR;
8269: END IF;
8270:
8271: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
8272: THEN
8267:
8268: x_return_status := FND_API.G_RET_STS_ERROR;
8269: END IF;
8270:
8271: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
8272: THEN
8273:
8274: ROLLBACK TO Apply_other_ac_PVT;
8275:
8272: THEN
8273:
8274: ROLLBACK TO Apply_other_ac_PVT;
8275:
8276: x_return_status := FND_API.G_RET_STS_ERROR ;
8277:
8278: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
8279: p_count => x_msg_count,
8280: p_data => x_msg_data
8274: ROLLBACK TO Apply_other_ac_PVT;
8275:
8276: x_return_status := FND_API.G_RET_STS_ERROR ;
8277:
8278: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
8279: p_count => x_msg_count,
8280: p_data => x_msg_data
8281: );
8282:
8381: ROLLBACK TO Apply_other_ac_PVT;
8382:
8383: -- Display_Parameters
8384:
8385: x_return_status := FND_API.G_RET_STS_ERROR ;
8386: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
8387: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.APPLY_OTHER_ACCOUNT : '||SQLERRM);
8388: FND_MSG_PUB.Add;
8389:
8386: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
8387: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.APPLY_OTHER_ACCOUNT : '||SQLERRM);
8388: FND_MSG_PUB.Add;
8389:
8390: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
8391: p_count => x_msg_count,
8392: p_data => x_msg_data
8393: );
8394: RETURN;
8399: /*--------------------------------+
8400: | Standard check of p_commit |
8401: +--------------------------------*/
8402:
8403: IF FND_API.To_Boolean( p_commit )
8404: THEN
8405: arp_util.debug('committing');
8406: Commit;
8407: END IF;
8406: Commit;
8407: END IF;
8408: arp_util.debug('Apply_other_account ()- ');
8409: EXCEPTION
8410: WHEN FND_API.G_EXC_ERROR THEN
8411:
8412: arp_util.debug(SQLCODE, G_MSG_ERROR);
8413: arp_util.debug(SQLERRM, G_MSG_ERROR);
8414:
8412: arp_util.debug(SQLCODE, G_MSG_ERROR);
8413: arp_util.debug(SQLERRM, G_MSG_ERROR);
8414:
8415: ROLLBACK TO Apply_other_ac_PVT;
8416: x_return_status := FND_API.G_RET_STS_ERROR ;
8417:
8418: -- Display_Parameters;
8419:
8420: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
8416: x_return_status := FND_API.G_RET_STS_ERROR ;
8417:
8418: -- Display_Parameters;
8419:
8420: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
8421: p_count => x_msg_count,
8422: p_data => x_msg_data
8423: );
8424:
8421: p_count => x_msg_count,
8422: p_data => x_msg_data
8423: );
8424:
8425: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8426:
8427: arp_util.debug(SQLERRM, G_MSG_ERROR);
8428: ROLLBACK TO Apply_other_ac_PVT;
8429: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8425: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8426:
8427: arp_util.debug(SQLERRM, G_MSG_ERROR);
8428: ROLLBACK TO Apply_other_ac_PVT;
8429: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8430:
8431: -- Display_Parameters;
8432:
8433: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
8429: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8430:
8431: -- Display_Parameters;
8432:
8433: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
8434: p_count => x_msg_count,
8435: p_data => x_msg_data
8436: );
8437:
8450:
8451: --If only one error message on the stack,
8452: --retrive it
8453:
8454: x_return_status := FND_API.G_RET_STS_ERROR ;
8455: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
8456: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','APPLY_OTHER_ACCOUNT : '||SQLERRM);
8457: FND_MSG_PUB.Add;
8458:
8457: FND_MSG_PUB.Add;
8458:
8459: --If only one error message on the stack,
8460: --retrive it
8461: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
8462: p_count => x_msg_count,
8463: p_data => x_msg_data
8464: );
8465:
8465:
8466: RETURN;
8467:
8468: ELSE
8469: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8470: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
8471: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','APPLY_OTHER_ACCOUNT : '||SQLERRM);
8472: FND_MSG_PUB.Add;
8473: END IF;
8485: END IF;
8486:
8487: -- Display_Parameters;
8488:
8489: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
8490: p_count => x_msg_count,
8491: p_data => x_msg_data
8492: );
8493: END;
8494:
8495: PROCEDURE create_misc(
8496: -- Standard API parameters.
8497: p_api_version IN NUMBER,
8498: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8499: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8500: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8501: x_return_status OUT NOCOPY VARCHAR2 ,
8502: x_msg_count OUT NOCOPY NUMBER ,
8495: PROCEDURE create_misc(
8496: -- Standard API parameters.
8497: p_api_version IN NUMBER,
8498: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8499: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8500: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8501: x_return_status OUT NOCOPY VARCHAR2 ,
8502: x_msg_count OUT NOCOPY NUMBER ,
8503: x_msg_data OUT NOCOPY VARCHAR2 ,
8496: -- Standard API parameters.
8497: p_api_version IN NUMBER,
8498: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8499: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8500: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8501: x_return_status OUT NOCOPY VARCHAR2 ,
8502: x_msg_count OUT NOCOPY NUMBER ,
8503: x_msg_data OUT NOCOPY VARCHAR2 ,
8504: -- Misc Receipt info. parameters
8568: l_receipt_method_name VARCHAR2(30);
8569: l_state VARCHAR2(30);
8570: l_creation_method VARCHAR2(1);
8571: l_doc_seq_status VARCHAR2(1);
8572: l_def_misc_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8573: l_misc_def_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8574: l_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8575: l_dflex_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8576: l_creation_method_code ar_receipt_classes.creation_method_code%TYPE;
8569: l_state VARCHAR2(30);
8570: l_creation_method VARCHAR2(1);
8571: l_doc_seq_status VARCHAR2(1);
8572: l_def_misc_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8573: l_misc_def_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8574: l_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8575: l_dflex_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8576: l_creation_method_code ar_receipt_classes.creation_method_code%TYPE;
8577: /* Bug fix 2300268 */
8570: l_creation_method VARCHAR2(1);
8571: l_doc_seq_status VARCHAR2(1);
8572: l_def_misc_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8573: l_misc_def_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8574: l_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8575: l_dflex_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8576: l_creation_method_code ar_receipt_classes.creation_method_code%TYPE;
8577: /* Bug fix 2300268 */
8578: l_tax_account_id ar_distributions.code_combination_id%TYPE;
8571: l_doc_seq_status VARCHAR2(1);
8572: l_def_misc_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8573: l_misc_def_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8574: l_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8575: l_dflex_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8576: l_creation_method_code ar_receipt_classes.creation_method_code%TYPE;
8577: /* Bug fix 2300268 */
8578: l_tax_account_id ar_distributions.code_combination_id%TYPE;
8579: /* Bug fix 2742388 */
8582: l_org_id NUMBER;
8583: l_legal_entity_id NUMBER; /* R12 LE uptake */
8584: l_payment_trxn_extension_id ar_cash_receipts.payment_trxn_extension_id%TYPE;
8585: /* bichatte payment uptake */
8586: l_copy_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
8587: l_copy_msg_count NUMBER;
8588: l_copy_msg_data VARCHAR2(2000);
8589: l_copy_pmt_trxn_extension_id ar_cash_receipts.payment_trxn_extension_id%TYPE; /* bichatte payment uptake project */
8590: l_default_site_use VARCHAR2(1);
8624: /*--------------------------------------------------+
8625: | Standard call to check for call compatibility |
8626: +--------------------------------------------------*/
8627:
8628: IF NOT FND_API.Compatible_API_Call(
8629: l_api_version,
8630: p_api_version,
8631: l_api_name,
8632: G_PKG_NAME
8631: l_api_name,
8632: G_PKG_NAME
8633: )
8634: THEN
8635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8636: END IF;
8637:
8638: /*--------------------------------------------------------------+
8639: | Initialize message list if p_init_msg_list is set to TRUE |
8638: /*--------------------------------------------------------------+
8639: | Initialize message list if p_init_msg_list is set to TRUE |
8640: +--------------------------------------------------------------*/
8641:
8642: IF FND_API.to_Boolean( p_init_msg_list )
8643: THEN
8644: FND_MSG_PUB.initialize;
8645: END IF;
8646:
8650: /*-----------------------------------------+
8651: | Initialize return status to SUCCESS |
8652: +-----------------------------------------*/
8653:
8654: x_return_status := FND_API.G_RET_STS_SUCCESS;
8655: l_doc_seq_status := FND_API.G_RET_STS_SUCCESS;
8656:
8657:
8658:
8651: | Initialize return status to SUCCESS |
8652: +-----------------------------------------*/
8653:
8654: x_return_status := FND_API.G_RET_STS_SUCCESS;
8655: l_doc_seq_status := FND_API.G_RET_STS_SUCCESS;
8656:
8657:
8658:
8659: /* SSA change */
8657:
8658:
8659: /* SSA change */
8660: l_org_id := p_org_id;
8661: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
8662: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
8663: p_return_status =>l_org_return_status);
8664: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8665: x_return_status := FND_API.G_RET_STS_ERROR;
8660: l_org_id := p_org_id;
8661: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
8662: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
8663: p_return_status =>l_org_return_status);
8664: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8665: x_return_status := FND_API.G_RET_STS_ERROR;
8666: ELSE
8667: /*-------------------------------------------------+
8668: | Initialize the profile option package variables |
8661: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
8662: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
8663: p_return_status =>l_org_return_status);
8664: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8665: x_return_status := FND_API.G_RET_STS_ERROR;
8666: ELSE
8667: /*-------------------------------------------------+
8668: | Initialize the profile option package variables |
8669: +-------------------------------------------------*/
8783: END IF;
8784: END IF;
8785:
8786:
8787: IF l_misc_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
8788: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
8789: l_def_misc_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
8790: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8791:
8784: END IF;
8785:
8786:
8787: IF l_misc_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
8788: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
8789: l_def_misc_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
8790: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8791:
8792: x_return_status := FND_API.G_RET_STS_ERROR;
8785:
8786:
8787: IF l_misc_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
8788: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
8789: l_def_misc_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
8790: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8791:
8792: x_return_status := FND_API.G_RET_STS_ERROR;
8793: END IF;
8786:
8787: IF l_misc_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
8788: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
8789: l_def_misc_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
8790: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8791:
8792: x_return_status := FND_API.G_RET_STS_ERROR;
8793: END IF;
8794:
8788: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
8789: l_def_misc_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
8790: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8791:
8792: x_return_status := FND_API.G_RET_STS_ERROR;
8793: END IF;
8794:
8795: --Call the document sequence routine only if there have been no errors
8796: --reported so far.
8813: arp_util.debug('create_misc: arp_global.set_of_books_id = ' || arp_global.set_of_books_id );
8814: arp_util.debug('create_misc: l_receipt_date = ' || l_receipt_date );
8815: arp_util.debug('create_misc: x_return_status = ' || x_return_status );
8816: END IF;
8817: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
8818:
8819: ar_receipt_lib_pvt.get_doc_seq(
8820: 222,
8821: l_receipt_method_name,
8847: END IF;
8848: --raise error message
8849: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_NUM_NULL');
8850: FND_MSG_PUB.Add;
8851: x_return_status := FND_API.G_RET_STS_ERROR;
8852: END IF;
8853: END IF;
8854:
8855: /*------------------------------------------------------------+
8857: | rollback any changes and return an error status. |
8858: +------------------------------------------------------------*/
8859:
8860: IF (
8861: x_return_status <> FND_API.G_RET_STS_SUCCESS
8862: OR l_doc_seq_status <> FND_API.G_RET_STS_SUCCESS
8863: )
8864: THEN
8865:
8858: +------------------------------------------------------------*/
8859:
8860: IF (
8861: x_return_status <> FND_API.G_RET_STS_SUCCESS
8862: OR l_doc_seq_status <> FND_API.G_RET_STS_SUCCESS
8863: )
8864: THEN
8865:
8866: ROLLBACK TO Create_misc_PVT;
8864: THEN
8865:
8866: ROLLBACK TO Create_misc_PVT;
8867:
8868: x_return_status := FND_API.G_RET_STS_ERROR ;
8869:
8870: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
8871: p_count => x_msg_count,
8872: p_data => x_msg_data);
8866: ROLLBACK TO Create_misc_PVT;
8867:
8868: x_return_status := FND_API.G_RET_STS_ERROR ;
8869:
8870: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
8871: p_count => x_msg_count,
8872: p_data => x_msg_data);
8873:
8874: IF PG_DEBUG in ('Y', 'C') THEN
8913: arp_util.debug('Create_cash_122: ' || l_creation_method);
8914: arp_util.debug('Create_cash_122: ' || l_payment_trxn_extension_id );
8915: FND_MESSAGE.SET_NAME('AR','AR_CC_AUTH_FAILED');
8916: FND_MSG_PUB.Add;
8917: x_return_status := FND_API.G_RET_STS_ERROR;
8918: END IF;
8919:
8920: IF l_creation_method = 'A' THEN
8921: arp_standard.debug('calling copy Extension....');
8948: x_return_status =>l_copy_return_status,
8949: o_payment_trxn_extension_id =>l_copy_pmt_trxn_extension_id
8950: );
8951:
8952: IF l_copy_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8953: arp_util.debug('Create_cash_123: ' );
8954: FND_MESSAGE.set_name('AR', 'AR_CC_AUTH_FAILED');
8955: FND_MSG_PUB.Add;
8956: x_return_status := FND_API.G_RET_STS_ERROR;
8952: IF l_copy_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8953: arp_util.debug('Create_cash_123: ' );
8954: FND_MESSAGE.set_name('AR', 'AR_CC_AUTH_FAILED');
8955: FND_MSG_PUB.Add;
8956: x_return_status := FND_API.G_RET_STS_ERROR;
8957: END IF;
8958: l_payment_trxn_extension_id := l_copy_pmt_trxn_extension_id;
8959:
8960: arp_standard.debug('calling copy Extension end ....');
9128: THEN
9129: ROLLBACK TO Create_misc_PVT;
9130:
9131: -- Display_Parameters;
9132: x_return_status := FND_API.G_RET_STS_ERROR ;
9133: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
9134: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',
9135: 'ARP_PROCESS_MISC_RECEIPTS.INSERT_MISC_RECEIPT : '||SQLERRM);
9136: FND_MSG_PUB.Add;
9134: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',
9135: 'ARP_PROCESS_MISC_RECEIPTS.INSERT_MISC_RECEIPT : '||SQLERRM);
9136: FND_MSG_PUB.Add;
9137:
9138: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
9139: p_count => x_msg_count,
9140: p_data => x_msg_data
9141: );
9142: RETURN;
9155: | in the message stack. If there is only one message in |
9156: | the stack it retrieves this message |
9157: +-------------------------------------------------------*/
9158:
9159: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
9160: p_count => x_msg_count,
9161: p_data => x_msg_data
9162: );
9163:
9165: /*--------------------------------+
9166: | Standard check of p_commit |
9167: +--------------------------------*/
9168:
9169: IF FND_API.To_Boolean( p_commit )
9170: THEN
9171: IF PG_DEBUG in ('Y', 'C') THEN
9172: arp_util.debug('create_misc: ' || 'committing');
9173: END IF;
9183:
9184:
9185:
9186: EXCEPTION
9187: WHEN FND_API.G_EXC_ERROR THEN
9188:
9189: IF PG_DEBUG in ('Y', 'C') THEN
9190: arp_util.debug('create_misc: ' || SQLCODE, G_MSG_ERROR);
9191: arp_util.debug('create_misc: ' || SQLERRM, G_MSG_ERROR);
9191: arp_util.debug('create_misc: ' || SQLERRM, G_MSG_ERROR);
9192: END IF;
9193:
9194: ROLLBACK TO Create_misc_PVT;
9195: x_return_status := FND_API.G_RET_STS_ERROR ;
9196:
9197: --Display_Parameters;
9198:
9199: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
9195: x_return_status := FND_API.G_RET_STS_ERROR ;
9196:
9197: --Display_Parameters;
9198:
9199: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
9200: p_count => x_msg_count,
9201: p_data => x_msg_data
9202: );
9203:
9200: p_count => x_msg_count,
9201: p_data => x_msg_data
9202: );
9203:
9204: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9205:
9206: IF PG_DEBUG in ('Y', 'C') THEN
9207: arp_util.debug('create_misc: ' || SQLERRM, G_MSG_ERROR);
9208: END IF;
9206: IF PG_DEBUG in ('Y', 'C') THEN
9207: arp_util.debug('create_misc: ' || SQLERRM, G_MSG_ERROR);
9208: END IF;
9209: ROLLBACK TO Create_misc_PVT;
9210: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9211:
9212: -- Display_Parameters;
9213:
9214: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
9210: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9211:
9212: -- Display_Parameters;
9213:
9214: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
9215: p_count => x_msg_count,
9216: p_data => x_msg_data
9217: );
9218:
9228: THEN
9229: ROLLBACK TO Create_misc_PVT;
9230:
9231: -- Display_Parameters;
9232: x_return_status := FND_API.G_RET_STS_ERROR ;
9233: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
9234: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','CREATE_MISC : '||SQLERRM);
9235: FND_MSG_PUB.Add;
9236:
9233: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
9234: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','CREATE_MISC : '||SQLERRM);
9235: FND_MSG_PUB.Add;
9236:
9237: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
9238: p_count => x_msg_count,
9239: p_data => x_msg_data
9240: );
9241: RETURN;
9239: p_data => x_msg_data
9240: );
9241: RETURN;
9242: ELSE
9243: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9244: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
9245: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','CREATE_MISC : '||SQLERRM);
9246: FND_MSG_PUB.Add;
9247: END IF;
9261: );
9262: END IF;
9263:
9264: -- Display_Parameters;
9265: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
9266: p_count => x_msg_count,
9267: p_data => x_msg_data
9268: );
9269:
9401: /*--------------------------------------------------+
9402: | Standard call to check for call compatibility |
9403: +--------------------------------------------------*/
9404:
9405: IF NOT FND_API.Compatible_API_Call(
9406: l_api_version,
9407: p_api_version,
9408: l_api_name,
9409: G_PKG_NAME
9408: l_api_name,
9409: G_PKG_NAME
9410: )
9411: THEN
9412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9413: END IF;
9414:
9415: /*--------------------------------------------------------------+
9416: | Initialize message list if p_init_msg_list is set to TRUE |
9415: /*--------------------------------------------------------------+
9416: | Initialize message list if p_init_msg_list is set to TRUE |
9417: +--------------------------------------------------------------*/
9418:
9419: IF FND_API.to_Boolean( p_init_msg_list )
9420: THEN
9421: FND_MSG_PUB.initialize;
9422: END IF;
9423:
9428: /*-----------------------------------------+
9429: | Initialize return status to SUCCESS |
9430: +-----------------------------------------*/
9431:
9432: x_return_status := FND_API.G_RET_STS_SUCCESS;
9433:
9434:
9435:
9436:
9435:
9436:
9437: /* SSA change */
9438: l_org_id := p_org_id;
9439: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
9440: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
9441: p_return_status =>l_org_return_status);
9442: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9443: x_return_status := FND_API.G_RET_STS_ERROR;
9438: l_org_id := p_org_id;
9439: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
9440: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
9441: p_return_status =>l_org_return_status);
9442: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9443: x_return_status := FND_API.G_RET_STS_ERROR;
9444: ELSE
9445: /*-------------------------------------------------+
9446: | Initialize the profile option package variables |
9439: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
9440: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
9441: p_return_status =>l_org_return_status);
9442: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9443: x_return_status := FND_API.G_RET_STS_ERROR;
9444: ELSE
9445: /*-------------------------------------------------+
9446: | Initialize the profile option package variables |
9447: +-------------------------------------------------*/
9510: --defaulting for any of the two receipts.
9511: --So in this case there is no point in calling the validation routines as
9512: --at least one of the two main entities are invalid.
9513:
9514: IF l_def_return_status = FND_API.G_RET_STS_SUCCESS
9515: THEN
9516: ar_receipt_val_pvt.Validate_open_receipt_info(
9517: p_cash_receipt_id => l_cash_receipt_id
9518: , p_open_cash_receipt_id => l_open_cash_receipt_id
9550: arp_util.debug('l_apply_gl_date : '||to_char(l_apply_gl_date,'DD-MON-YY'));
9551: END IF;
9552:
9553:
9554: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
9555: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
9556: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9557: x_return_status := FND_API.G_RET_STS_ERROR;
9558: END IF;
9551: END IF;
9552:
9553:
9554: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
9555: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
9556: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9557: x_return_status := FND_API.G_RET_STS_ERROR;
9558: END IF;
9559:
9552:
9553:
9554: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
9555: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
9556: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9557: x_return_status := FND_API.G_RET_STS_ERROR;
9558: END IF;
9559:
9560: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
9553:
9554: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
9555: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
9556: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9557: x_return_status := FND_API.G_RET_STS_ERROR;
9558: END IF;
9559:
9560: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
9561: THEN
9556: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9557: x_return_status := FND_API.G_RET_STS_ERROR;
9558: END IF;
9559:
9560: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
9561: THEN
9562:
9563: ROLLBACK TO Apply_Open_Receipt_PVT;
9564:
9561: THEN
9562:
9563: ROLLBACK TO Apply_Open_Receipt_PVT;
9564:
9565: x_return_status := FND_API.G_RET_STS_ERROR ;
9566:
9567: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
9568: p_count => x_msg_count,
9569: p_data => x_msg_data
9563: ROLLBACK TO Apply_Open_Receipt_PVT;
9564:
9565: x_return_status := FND_API.G_RET_STS_ERROR ;
9566:
9567: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
9568: p_count => x_msg_count,
9569: p_data => x_msg_data
9570: );
9571:
9603:
9604: IF l_open_applied_ps_id = -1 THEN
9605: Unapply_on_account(
9606: p_api_version => 1.0,
9607: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9608: x_return_status => x_return_status ,
9609: x_msg_count => l_unapply_msg_count,
9610: x_msg_data => x_msg_data ,
9611: p_cash_receipt_id => l_open_cash_receipt_id,
9612: p_receivable_application_id => l_open_rec_app_id,
9613: p_reversal_gl_date => l_apply_gl_date
9614: );
9615:
9616: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
9617: IF (l_reapply_amount <> 0) THEN
9618: Apply_on_account(
9619: p_api_version => 1.0,
9620: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9616: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
9617: IF (l_reapply_amount <> 0) THEN
9618: Apply_on_account(
9619: p_api_version => 1.0,
9620: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9621: x_return_status => x_return_status ,
9622: x_msg_count => l_reapply_msg_count,
9623: x_msg_data => x_msg_data ,
9624: p_cash_receipt_id => l_open_cash_receipt_id,
9641: validation on unapplied amount */
9642:
9643: Unapply_other_account(
9644: p_api_version => 1.0,
9645: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9646: x_return_status => x_return_status ,
9647: x_msg_count => l_unapply_msg_count ,
9648: x_msg_data => x_msg_data ,
9649: p_cash_receipt_id => l_open_cash_receipt_id,
9651: p_reversal_gl_date => l_apply_gl_date,
9652: p_org_id => p_org_id,
9653: p_called_from => 'APPLY_OPEN_RECEIPT'
9654: );
9655: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
9656: IF (l_reapply_amount <> 0) THEN
9657: IF p_called_from = 'ARXRWAPP' THEN
9658: l_called_from := 'RAPI';
9659: ELSE
9660: l_called_from := p_called_from;
9661: END IF;
9662: Apply_other_account(
9663: p_api_version => 1.0,
9664: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9665: x_return_status => x_return_status ,
9666: x_msg_count => l_reapply_msg_count,
9667: x_msg_data => x_msg_data ,
9668: p_receivable_application_id => l_reapply_rec_app_id,
9696: | Apply open receipt to netting activity |
9697: | |
9698: +------------------------------------------------*/
9699:
9700: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
9701: Activity_application(
9702: p_api_version => 1.0,
9703: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9704: x_return_status => x_return_status ,
9699:
9700: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
9701: Activity_application(
9702: p_api_version => 1.0,
9703: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9704: x_return_status => x_return_status ,
9705: x_msg_count => l_act1_msg_count,
9706: x_msg_data => x_msg_data ,
9707: p_cash_receipt_id => l_open_cash_receipt_id,
9733: | Apply netting receipt to netting activity |
9734: | |
9735: +------------------------------------------------*/
9736:
9737: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
9738: Activity_application(
9739: p_api_version => 1.0,
9740: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9741: x_return_status => x_return_status ,
9736:
9737: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
9738: Activity_application(
9739: p_api_version => 1.0,
9740: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9741: x_return_status => x_return_status ,
9742: x_msg_count => l_act2_msg_count,
9743: x_msg_data => x_msg_data ,
9744: p_cash_receipt_id => l_cash_receipt_id,
9780: arp_util.debug('Apply_Open_Receipt: l_open_net_rec_app_id = ' || l_open_net_rec_app_id);
9781: END IF;
9782: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_APP_ID_INVALID');
9783: FND_MSG_PUB.Add;
9784: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9785: END IF;
9786:
9787: BEGIN
9788: arp_app_pkg.fetch_p(l_net_rec_app_id,l_app_rec);
9801: IF PG_DEBUG in ('Y', 'C') THEN
9802: arp_util.debug('Apply_Open_Receipt: error updating applications ' || SQLCODE, G_MSG_ERROR);
9803: arp_util.debug('Apply_Open_Receipt: ' || SQLERRM, G_MSG_ERROR);
9804: END IF;
9805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9806: RAISE;
9807: END;
9808:
9809: x_application_ref_num := l_application_ref_num;
9814: /*---------------------------------------------------+
9815: | Raise exception if return status is not success |
9816: +---------------------------------------------------*/
9817:
9818: IF x_return_status = FND_API.G_RET_STS_ERROR
9819: THEN
9820: RAISE FND_API.G_EXC_ERROR;
9821: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9822: THEN
9816: +---------------------------------------------------*/
9817:
9818: IF x_return_status = FND_API.G_RET_STS_ERROR
9819: THEN
9820: RAISE FND_API.G_EXC_ERROR;
9821: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9822: THEN
9823: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9824: END IF;
9817:
9818: IF x_return_status = FND_API.G_RET_STS_ERROR
9819: THEN
9820: RAISE FND_API.G_EXC_ERROR;
9821: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9822: THEN
9823: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9824: END IF;
9825:
9819: THEN
9820: RAISE FND_API.G_EXC_ERROR;
9821: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9822: THEN
9823: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9824: END IF;
9825:
9826: x_receivable_application_id := l_net_rec_app_id;
9827: x_applied_rec_app_id := l_open_net_rec_app_id;
9829: /*--------------------------------+
9830: | Standard check of p_commit |
9831: +--------------------------------*/
9832:
9833: IF FND_API.To_Boolean( p_commit )
9834: THEN
9835: IF PG_DEBUG in ('Y', 'C') THEN
9836: arp_util.debug('Apply_Open_Receipt: ' || 'committing');
9837: END IF;
9840: IF PG_DEBUG in ('Y', 'C') THEN
9841: arp_util.debug('Apply_Open_Receipt()- ');
9842: END IF;
9843: EXCEPTION
9844: WHEN FND_API.G_EXC_ERROR THEN
9845:
9846: IF PG_DEBUG in ('Y', 'C') THEN
9847: arp_util.debug('Apply_Open_Receipt: ' || SQLCODE, G_MSG_ERROR);
9848: arp_util.debug('Apply_Open_Receipt: ' || SQLERRM, G_MSG_ERROR);
9848: arp_util.debug('Apply_Open_Receipt: ' || SQLERRM, G_MSG_ERROR);
9849: END IF;
9850:
9851: ROLLBACK TO Apply_Open_Receipt_PVT;
9852: x_return_status := FND_API.G_RET_STS_ERROR ;
9853:
9854: -- Display_Parameters;
9855:
9856: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
9852: x_return_status := FND_API.G_RET_STS_ERROR ;
9853:
9854: -- Display_Parameters;
9855:
9856: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
9857: p_count => x_msg_count,
9858: p_data => x_msg_data
9859: );
9860:
9857: p_count => x_msg_count,
9858: p_data => x_msg_data
9859: );
9860:
9861: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9862:
9863: IF PG_DEBUG in ('Y', 'C') THEN
9864: arp_util.debug('Apply_Open_Receipt: ' || SQLERRM, G_MSG_ERROR);
9865: END IF;
9863: IF PG_DEBUG in ('Y', 'C') THEN
9864: arp_util.debug('Apply_Open_Receipt: ' || SQLERRM, G_MSG_ERROR);
9865: END IF;
9866: ROLLBACK TO Apply_Open_Receipt_PVT;
9867: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9868:
9869: -- Display_Parameters;
9870:
9871: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
9867: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9868:
9869: -- Display_Parameters;
9870:
9871: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
9872: p_count => x_msg_count,
9873: p_data => x_msg_data
9874: );
9875:
9888:
9889: --If only one error message on the stack,
9890: --retrive it
9891:
9892: x_return_status := FND_API.G_RET_STS_ERROR ;
9893: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
9894: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','APPLY_Open_Receipt : '||SQLERRM);
9895: FND_MSG_PUB.Add;
9896:
9893: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
9894: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','APPLY_Open_Receipt : '||SQLERRM);
9895: FND_MSG_PUB.Add;
9896:
9897: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
9898: p_count => x_msg_count,
9899: p_data => x_msg_data
9900: );
9901:
9901:
9902: RETURN;
9903:
9904: ELSE
9905: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9906: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
9907: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','APPLY_Open_Receipt : '||SQLERRM);
9908: FND_MSG_PUB.Add;
9909: END IF;
9923: END IF;
9924:
9925: -- Display_Parameters;
9926:
9927: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
9928: p_count => x_msg_count,
9929: p_data => x_msg_data
9930: );
9931:
9970: /*--------------------------------------------------+
9971: | Standard call to check for call compatibility |
9972: +--------------------------------------------------*/
9973:
9974: IF NOT FND_API.Compatible_API_Call(
9975: p_current_version_number => l_api_version,
9976: p_caller_version_number => p_api_version,
9977: p_api_name => l_api_name,
9978: p_pkg_name => G_PKG_NAME
9977: p_api_name => l_api_name,
9978: p_pkg_name => G_PKG_NAME
9979: )
9980: THEN
9981: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9982: END IF;
9983:
9984: /*--------------------------------------------------------------+
9985: | Initialize message list if p_init_msg_list is set to TRUE |
9984: /*--------------------------------------------------------------+
9985: | Initialize message list if p_init_msg_list is set to TRUE |
9986: +--------------------------------------------------------------*/
9987:
9988: IF FND_API.to_Boolean( p_init_msg_list )
9989: THEN
9990: FND_MSG_PUB.initialize;
9991: END IF;
9992:
9996: /*-----------------------------------------+
9997: | Initialize return status to SUCCESS |
9998: +-----------------------------------------*/
9999:
10000: l_def_return_status := FND_API.G_RET_STS_SUCCESS;
10001: l_val_return_status := FND_API.G_RET_STS_SUCCESS;
10002: x_return_status := FND_API.G_RET_STS_SUCCESS;
10003:
10004:
9997: | Initialize return status to SUCCESS |
9998: +-----------------------------------------*/
9999:
10000: l_def_return_status := FND_API.G_RET_STS_SUCCESS;
10001: l_val_return_status := FND_API.G_RET_STS_SUCCESS;
10002: x_return_status := FND_API.G_RET_STS_SUCCESS;
10003:
10004:
10005:
9998: +-----------------------------------------*/
9999:
10000: l_def_return_status := FND_API.G_RET_STS_SUCCESS;
10001: l_val_return_status := FND_API.G_RET_STS_SUCCESS;
10002: x_return_status := FND_API.G_RET_STS_SUCCESS;
10003:
10004:
10005:
10006: /* SSA change */
10004:
10005:
10006: /* SSA change */
10007: l_org_id := p_org_id;
10008: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
10009: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
10010: p_return_status =>l_org_return_status);
10011: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10012: x_return_status := FND_API.G_RET_STS_ERROR;
10007: l_org_id := p_org_id;
10008: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
10009: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
10010: p_return_status =>l_org_return_status);
10011: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10012: x_return_status := FND_API.G_RET_STS_ERROR;
10013: ELSE
10014: /*-------------------------------------------------+
10015: | Initialize the profile option package variables |
10008: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
10009: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
10010: p_return_status =>l_org_return_status);
10011: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10012: x_return_status := FND_API.G_RET_STS_ERROR;
10013: ELSE
10014: /*-------------------------------------------------+
10015: | Initialize the profile option package variables |
10016: +-------------------------------------------------*/
10058: | Unapply netting activity on both receipts |
10059: | |
10060: +------------------------------------------------*/
10061:
10062: IF (l_def_return_status = FND_API.G_RET_STS_SUCCESS AND
10063: l_val_return_status = FND_API.G_RET_STS_SUCCESS)
10064: THEN
10065: Activity_Unapplication(
10066: p_api_version => 1.0,
10059: | |
10060: +------------------------------------------------*/
10061:
10062: IF (l_def_return_status = FND_API.G_RET_STS_SUCCESS AND
10063: l_val_return_status = FND_API.G_RET_STS_SUCCESS)
10064: THEN
10065: Activity_Unapplication(
10066: p_api_version => 1.0,
10067: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10063: l_val_return_status = FND_API.G_RET_STS_SUCCESS)
10064: THEN
10065: Activity_Unapplication(
10066: p_api_version => 1.0,
10067: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10068: x_return_status => x_return_status ,
10069: x_msg_count => l_act1_msg_count,
10070: x_msg_data => x_msg_data ,
10071: p_receivable_application_id => l_receivable_application_id,
10072: p_reversal_gl_date => l_reversal_gl_date,
10073: p_org_id => p_org_id,
10074: p_called_from => p_called_from);
10075:
10076: IF x_return_status = FND_API.G_RET_STS_SUCCESS
10077: THEN
10078: Activity_Unapplication(
10079: p_api_version => 1.0,
10080: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10076: IF x_return_status = FND_API.G_RET_STS_SUCCESS
10077: THEN
10078: Activity_Unapplication(
10079: p_api_version => 1.0,
10080: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10081: x_return_status => x_return_status ,
10082: x_msg_count => l_act2_msg_count,
10083: x_msg_data => x_msg_data ,
10084: p_receivable_application_id => l_applied_rec_app_id,
10095: /*---------------------------------------------------+
10096: | Raise exception if return status is not success |
10097: +---------------------------------------------------*/
10098:
10099: IF (l_def_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
10100: x_return_status := l_def_return_status;
10101: ELSIF (l_val_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
10102: x_return_status := l_val_return_status;
10103: END IF;
10097: +---------------------------------------------------*/
10098:
10099: IF (l_def_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
10100: x_return_status := l_def_return_status;
10101: ELSIF (l_val_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
10102: x_return_status := l_val_return_status;
10103: END IF;
10104:
10105: IF x_return_status = FND_API.G_RET_STS_ERROR
10101: ELSIF (l_val_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
10102: x_return_status := l_val_return_status;
10103: END IF;
10104:
10105: IF x_return_status = FND_API.G_RET_STS_ERROR
10106: THEN
10107: RAISE FND_API.G_EXC_ERROR;
10108: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10109: THEN
10103: END IF;
10104:
10105: IF x_return_status = FND_API.G_RET_STS_ERROR
10106: THEN
10107: RAISE FND_API.G_EXC_ERROR;
10108: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10109: THEN
10110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10111: END IF;
10104:
10105: IF x_return_status = FND_API.G_RET_STS_ERROR
10106: THEN
10107: RAISE FND_API.G_EXC_ERROR;
10108: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10109: THEN
10110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10111: END IF;
10112:
10106: THEN
10107: RAISE FND_API.G_EXC_ERROR;
10108: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10109: THEN
10110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10111: END IF;
10112:
10113: /*--------------------------------+
10114: | Standard check of p_commit |
10113: /*--------------------------------+
10114: | Standard check of p_commit |
10115: +--------------------------------*/
10116:
10117: IF FND_API.To_Boolean( p_commit )
10118: THEN
10119: IF PG_DEBUG in ('Y', 'C') THEN
10120: arp_util.debug('Unapply_Open_Receipt: ' || 'committing');
10121: END IF;
10124: IF PG_DEBUG in ('Y', 'C') THEN
10125: arp_util.debug('Unapply_Open_Receipt()- ');
10126: END IF;
10127: EXCEPTION
10128: WHEN FND_API.G_EXC_ERROR THEN
10129:
10130: IF PG_DEBUG in ('Y', 'C') THEN
10131: arp_util.debug('Unapply_Open_Receipt: ' || SQLCODE, G_MSG_ERROR);
10132: arp_util.debug('Unapply_Open_Receipt: ' || SQLERRM, G_MSG_ERROR);
10132: arp_util.debug('Unapply_Open_Receipt: ' || SQLERRM, G_MSG_ERROR);
10133: END IF;
10134:
10135: ROLLBACK TO Unapply_Open_Receipt_PVT;
10136: x_return_status := FND_API.G_RET_STS_ERROR ;
10137:
10138: -- Display_Parameters;
10139:
10140: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
10136: x_return_status := FND_API.G_RET_STS_ERROR ;
10137:
10138: -- Display_Parameters;
10139:
10140: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
10141: p_count => x_msg_count,
10142: p_data => x_msg_data
10143: );
10144:
10141: p_count => x_msg_count,
10142: p_data => x_msg_data
10143: );
10144:
10145: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10146:
10147: IF PG_DEBUG in ('Y', 'C') THEN
10148: arp_util.debug('Unapply_Open_Receipt: ' || SQLERRM, G_MSG_ERROR);
10149: END IF;
10147: IF PG_DEBUG in ('Y', 'C') THEN
10148: arp_util.debug('Unapply_Open_Receipt: ' || SQLERRM, G_MSG_ERROR);
10149: END IF;
10150: ROLLBACK TO Unapply_Open_Receipt_PVT;
10151: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10152:
10153: -- Display_Parameters;
10154:
10155: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
10151: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10152:
10153: -- Display_Parameters;
10154:
10155: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
10156: p_count => x_msg_count,
10157: p_data => x_msg_data
10158: );
10159:
10172:
10173: --If only one error message on the stack,
10174: --retrive it
10175:
10176: x_return_status := FND_API.G_RET_STS_ERROR ;
10177: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
10178: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','UnaPPLY_Open_Receipt : '||SQLERRM);
10179: FND_MSG_PUB.Add;
10180:
10177: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
10178: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','UnaPPLY_Open_Receipt : '||SQLERRM);
10179: FND_MSG_PUB.Add;
10180:
10181: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
10182: p_count => x_msg_count,
10183: p_data => x_msg_data
10184: );
10185:
10185:
10186: RETURN;
10187:
10188: ELSE
10189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10190: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
10191: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','UnaPPLY_Open_Receipt : '||SQLERRM);
10192: FND_MSG_PUB.Add;
10193: END IF;
10207: END IF;
10208:
10209: -- Display_Parameters;
10210:
10211: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
10212: p_count => x_msg_count,
10213: p_data => x_msg_data
10214: );
10215:
10217:
10218:
10219: BEGIN
10220: arp_util.debug('initialization section of ar_receipt_api_pub');
10221: ar_receipt_lib_pvt.pg_profile_doc_seq := FND_API.G_MISS_CHAR;
10222: ar_receipt_lib_pvt.pg_profile_enable_cc := FND_API.G_MISS_CHAR;
10223: ar_receipt_lib_pvt.pg_profile_appln_gl_date_def := FND_API.G_MISS_CHAR;
10224: ar_receipt_lib_pvt.pg_profile_amt_applied_def := FND_API.G_MISS_CHAR;
10225: ar_receipt_lib_pvt.pg_profile_cc_rate_type := FND_API.G_MISS_CHAR;
10218:
10219: BEGIN
10220: arp_util.debug('initialization section of ar_receipt_api_pub');
10221: ar_receipt_lib_pvt.pg_profile_doc_seq := FND_API.G_MISS_CHAR;
10222: ar_receipt_lib_pvt.pg_profile_enable_cc := FND_API.G_MISS_CHAR;
10223: ar_receipt_lib_pvt.pg_profile_appln_gl_date_def := FND_API.G_MISS_CHAR;
10224: ar_receipt_lib_pvt.pg_profile_amt_applied_def := FND_API.G_MISS_CHAR;
10225: ar_receipt_lib_pvt.pg_profile_cc_rate_type := FND_API.G_MISS_CHAR;
10226: ar_receipt_lib_pvt.pg_profile_dsp_inv_rate := FND_API.G_MISS_CHAR;
10219: BEGIN
10220: arp_util.debug('initialization section of ar_receipt_api_pub');
10221: ar_receipt_lib_pvt.pg_profile_doc_seq := FND_API.G_MISS_CHAR;
10222: ar_receipt_lib_pvt.pg_profile_enable_cc := FND_API.G_MISS_CHAR;
10223: ar_receipt_lib_pvt.pg_profile_appln_gl_date_def := FND_API.G_MISS_CHAR;
10224: ar_receipt_lib_pvt.pg_profile_amt_applied_def := FND_API.G_MISS_CHAR;
10225: ar_receipt_lib_pvt.pg_profile_cc_rate_type := FND_API.G_MISS_CHAR;
10226: ar_receipt_lib_pvt.pg_profile_dsp_inv_rate := FND_API.G_MISS_CHAR;
10227: ar_receipt_lib_pvt.pg_profile_create_bk_charges := FND_API.G_MISS_CHAR;
10220: arp_util.debug('initialization section of ar_receipt_api_pub');
10221: ar_receipt_lib_pvt.pg_profile_doc_seq := FND_API.G_MISS_CHAR;
10222: ar_receipt_lib_pvt.pg_profile_enable_cc := FND_API.G_MISS_CHAR;
10223: ar_receipt_lib_pvt.pg_profile_appln_gl_date_def := FND_API.G_MISS_CHAR;
10224: ar_receipt_lib_pvt.pg_profile_amt_applied_def := FND_API.G_MISS_CHAR;
10225: ar_receipt_lib_pvt.pg_profile_cc_rate_type := FND_API.G_MISS_CHAR;
10226: ar_receipt_lib_pvt.pg_profile_dsp_inv_rate := FND_API.G_MISS_CHAR;
10227: ar_receipt_lib_pvt.pg_profile_create_bk_charges := FND_API.G_MISS_CHAR;
10228: ar_receipt_lib_pvt.pg_profile_def_x_rate_type := FND_API.G_MISS_CHAR;
10221: ar_receipt_lib_pvt.pg_profile_doc_seq := FND_API.G_MISS_CHAR;
10222: ar_receipt_lib_pvt.pg_profile_enable_cc := FND_API.G_MISS_CHAR;
10223: ar_receipt_lib_pvt.pg_profile_appln_gl_date_def := FND_API.G_MISS_CHAR;
10224: ar_receipt_lib_pvt.pg_profile_amt_applied_def := FND_API.G_MISS_CHAR;
10225: ar_receipt_lib_pvt.pg_profile_cc_rate_type := FND_API.G_MISS_CHAR;
10226: ar_receipt_lib_pvt.pg_profile_dsp_inv_rate := FND_API.G_MISS_CHAR;
10227: ar_receipt_lib_pvt.pg_profile_create_bk_charges := FND_API.G_MISS_CHAR;
10228: ar_receipt_lib_pvt.pg_profile_def_x_rate_type := FND_API.G_MISS_CHAR;
10229:
10222: ar_receipt_lib_pvt.pg_profile_enable_cc := FND_API.G_MISS_CHAR;
10223: ar_receipt_lib_pvt.pg_profile_appln_gl_date_def := FND_API.G_MISS_CHAR;
10224: ar_receipt_lib_pvt.pg_profile_amt_applied_def := FND_API.G_MISS_CHAR;
10225: ar_receipt_lib_pvt.pg_profile_cc_rate_type := FND_API.G_MISS_CHAR;
10226: ar_receipt_lib_pvt.pg_profile_dsp_inv_rate := FND_API.G_MISS_CHAR;
10227: ar_receipt_lib_pvt.pg_profile_create_bk_charges := FND_API.G_MISS_CHAR;
10228: ar_receipt_lib_pvt.pg_profile_def_x_rate_type := FND_API.G_MISS_CHAR;
10229:
10230: END AR_RECEIPT_API_PUB;
10223: ar_receipt_lib_pvt.pg_profile_appln_gl_date_def := FND_API.G_MISS_CHAR;
10224: ar_receipt_lib_pvt.pg_profile_amt_applied_def := FND_API.G_MISS_CHAR;
10225: ar_receipt_lib_pvt.pg_profile_cc_rate_type := FND_API.G_MISS_CHAR;
10226: ar_receipt_lib_pvt.pg_profile_dsp_inv_rate := FND_API.G_MISS_CHAR;
10227: ar_receipt_lib_pvt.pg_profile_create_bk_charges := FND_API.G_MISS_CHAR;
10228: ar_receipt_lib_pvt.pg_profile_def_x_rate_type := FND_API.G_MISS_CHAR;
10229:
10230: END AR_RECEIPT_API_PUB;
10224: ar_receipt_lib_pvt.pg_profile_amt_applied_def := FND_API.G_MISS_CHAR;
10225: ar_receipt_lib_pvt.pg_profile_cc_rate_type := FND_API.G_MISS_CHAR;
10226: ar_receipt_lib_pvt.pg_profile_dsp_inv_rate := FND_API.G_MISS_CHAR;
10227: ar_receipt_lib_pvt.pg_profile_create_bk_charges := FND_API.G_MISS_CHAR;
10228: ar_receipt_lib_pvt.pg_profile_def_x_rate_type := FND_API.G_MISS_CHAR;
10229:
10230: END AR_RECEIPT_API_PUB;