30: --the procedure initialize_profile_globals would not do any initialization in that
31: --case
32: PROCEDURE initialize_profile_globals IS
33: BEGIN
34: IF ar_receipt_lib_pvt.pg_profile_doc_seq = FND_API.G_MISS_CHAR THEN
35: ar_receipt_lib_pvt.pg_profile_doc_seq
36: := fnd_profile.value('UNIQUE:SEQ_NUMBERS');
37: END IF;
38: -- pofile option AR_ENABLE_CROSS_CURRENCY has been obsolited
36: := fnd_profile.value('UNIQUE:SEQ_NUMBERS');
37: END IF;
38: -- pofile option AR_ENABLE_CROSS_CURRENCY has been obsolited
39: -- it will now always be 'Y'
40: -- IF ar_receipt_lib_pvt.pg_profile_enable_cc = FND_API.G_MISS_CHAR THEN
41: ar_receipt_lib_pvt.pg_profile_enable_cc:='Y';
42: -- := fnd_profile.value('AR_ENABLE_CROSS_CURRENCY');
43: -- END IF;
44: IF ar_receipt_lib_pvt.pg_profile_appln_gl_date_def = FND_API.G_MISS_CHAR THEN
40: -- IF ar_receipt_lib_pvt.pg_profile_enable_cc = FND_API.G_MISS_CHAR THEN
41: ar_receipt_lib_pvt.pg_profile_enable_cc:='Y';
42: -- := fnd_profile.value('AR_ENABLE_CROSS_CURRENCY');
43: -- END IF;
44: IF ar_receipt_lib_pvt.pg_profile_appln_gl_date_def = FND_API.G_MISS_CHAR THEN
45: ar_receipt_lib_pvt.pg_profile_appln_gl_date_def
46: := fnd_profile.value('AR_APPLICATION_GL_DATE_DEFAULT');
47: END IF;
48: ---Profile option: AR: Cash - default Amount Applied has been
46: := fnd_profile.value('AR_APPLICATION_GL_DATE_DEFAULT');
47: END IF;
48: ---Profile option: AR: Cash - default Amount Applied has been
49: -- obsoleted
50: IF ar_receipt_lib_pvt.pg_profile_amt_applied_def = FND_API.G_MISS_CHAR THEN
51: ar_receipt_lib_pvt.pg_profile_amt_applied_def :='INV';
52: END IF;
53: IF ar_receipt_lib_pvt.pg_profile_cc_rate_type = FND_API.G_MISS_CHAR THEN
54: ar_receipt_lib_pvt.pg_profile_cc_rate_type
49: -- obsoleted
50: IF ar_receipt_lib_pvt.pg_profile_amt_applied_def = FND_API.G_MISS_CHAR THEN
51: ar_receipt_lib_pvt.pg_profile_amt_applied_def :='INV';
52: END IF;
53: IF ar_receipt_lib_pvt.pg_profile_cc_rate_type = FND_API.G_MISS_CHAR THEN
54: ar_receipt_lib_pvt.pg_profile_cc_rate_type
55: := ar_setup.value('AR_CROSS_CURRENCY_RATE_TYPE',null);
56: -- null should be replaced with org_id, to find profile for diffrent org
57: END IF;
55: := ar_setup.value('AR_CROSS_CURRENCY_RATE_TYPE',null);
56: -- null should be replaced with org_id, to find profile for diffrent org
57: END IF;
58:
59: IF ar_receipt_lib_pvt.pg_profile_dsp_inv_rate = FND_API.G_MISS_CHAR THEN
60: ar_receipt_lib_pvt.pg_profile_dsp_inv_rate
61: := fnd_profile.value('DISPLAY_INVERSE_RATE');
62: END IF;
63: IF ar_receipt_lib_pvt.pg_profile_create_bk_charges = FND_API.G_MISS_CHAR THEN
59: IF ar_receipt_lib_pvt.pg_profile_dsp_inv_rate = FND_API.G_MISS_CHAR THEN
60: ar_receipt_lib_pvt.pg_profile_dsp_inv_rate
61: := fnd_profile.value('DISPLAY_INVERSE_RATE');
62: END IF;
63: IF ar_receipt_lib_pvt.pg_profile_create_bk_charges = FND_API.G_MISS_CHAR THEN
64: ar_receipt_lib_pvt.pg_profile_create_bk_charges
65: := fnd_profile.value('AR_JG_CREATE_BANK_CHARGES');
66: END IF;
67: IF ar_receipt_lib_pvt.pg_profile_def_x_rate_type = FND_API.G_MISS_CHAR THEN
63: IF ar_receipt_lib_pvt.pg_profile_create_bk_charges = FND_API.G_MISS_CHAR THEN
64: ar_receipt_lib_pvt.pg_profile_create_bk_charges
65: := fnd_profile.value('AR_JG_CREATE_BANK_CHARGES');
66: END IF;
67: IF ar_receipt_lib_pvt.pg_profile_def_x_rate_type = FND_API.G_MISS_CHAR THEN
68: ar_receipt_lib_pvt.pg_profile_def_x_rate_type
69: := fnd_profile.value('AR_DEFAULT_EXCHANGE_RATE_TYPE');
70: END IF;
71: arp_util.debug('*******Profile Option Values************');
83:
84: PROCEDURE Create_cash_1(
85: -- Standard API parameters.
86: p_api_version IN NUMBER,
87: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
88: p_commit IN VARCHAR2 := FND_API.G_FALSE,
89: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
90: x_return_status OUT NOCOPY VARCHAR2,
91: x_msg_count OUT NOCOPY NUMBER,
84: PROCEDURE Create_cash_1(
85: -- Standard API parameters.
86: p_api_version IN NUMBER,
87: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
88: p_commit IN VARCHAR2 := FND_API.G_FALSE,
89: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
90: x_return_status OUT NOCOPY VARCHAR2,
91: x_msg_count OUT NOCOPY NUMBER,
92: x_msg_data OUT NOCOPY VARCHAR2,
85: -- Standard API parameters.
86: p_api_version IN NUMBER,
87: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
88: p_commit IN VARCHAR2 := FND_API.G_FALSE,
89: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
90: x_return_status OUT NOCOPY VARCHAR2,
91: x_msg_count OUT NOCOPY NUMBER,
92: x_msg_data OUT NOCOPY VARCHAR2,
93: -- Receipt info. parameters
180: l_state VARCHAR2(30);
181: l_cr_id NUMBER;
182: l_ps_id NUMBER;
183: l_row_id VARCHAR2(30);
184: l_validation_status VARCHAR2(2) DEFAULT FND_API.G_RET_STS_SUCCESS;
185: l_doc_seq_status VARCHAR2(10);
186: l_doc_sequence_id NUMBER;
187: l_doc_sequence_value NUMBER;
188: l_postmark_date DATE;
189: l_cash_def_return_status VARCHAR2(1);
190: l_val_return_status VARCHAR2(1);
191: l_def_cash_id_return_status VARCHAR2(1);
192: l_derive_cust_return_status VARCHAR2(1);
193: l_dflex_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
194: l_attribute_rec attribute_rec_type;
195: l_global_attribute_rec global_attribute_rec_type;
196: l_gdflex_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
197: l_creation_method_code ar_receipt_classes.creation_method_code%TYPE;
192: l_derive_cust_return_status VARCHAR2(1);
193: l_dflex_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
194: l_attribute_rec attribute_rec_type;
195: l_global_attribute_rec global_attribute_rec_type;
196: l_gdflex_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
197: l_creation_method_code ar_receipt_classes.creation_method_code%TYPE;
198: l_creation_method VARCHAR2(1);
199: l_org_return_status VARCHAR2(1);
200: l_org_id NUMBER;
199: l_org_return_status VARCHAR2(1);
200: l_org_id NUMBER;
201: l_legal_entity_id NUMBER; /* R12 LE uptake */
202: /* bichatte payment uptake */
203: l_copy_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
204: l_copy_msg_count NUMBER;
205: l_copy_msg_data VARCHAR2(2000);
206: l_copy_pmt_trxn_extension_id ar_cash_receipts.payment_trxn_extension_id%TYPE; /* bichatte payment uptake project */
207: l_create_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
203: l_copy_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
204: l_copy_msg_count NUMBER;
205: l_copy_msg_data VARCHAR2(2000);
206: l_copy_pmt_trxn_extension_id ar_cash_receipts.payment_trxn_extension_id%TYPE; /* bichatte payment uptake project */
207: l_create_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
208: l_create_msg_count NUMBER;
209: l_create_msg_data VARCHAR2(2000);
210: l_create_pmt_trxn_extension_id ar_cash_receipts.payment_trxn_extension_id%TYPE; /* bichatte payment uptake project */
211: l_default_site_use VARCHAR2(1); --bug4448307-4509459
258: /*--------------------------------------------------+
259: | Standard call to check for call compatibility |
260: +--------------------------------------------------*/
261:
262: IF NOT FND_API.Compatible_API_Call(
263: l_api_version,
264: p_api_version,
265: l_api_name,
266: G_PKG_NAME
265: l_api_name,
266: G_PKG_NAME
267: )
268: THEN
269: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
270: END IF;
271:
272: /*--------------------------------------------------------------+
273: | Initialize message list if p_init_msg_list is set to TRUE |
272: /*--------------------------------------------------------------+
273: | Initialize message list if p_init_msg_list is set to TRUE |
274: +--------------------------------------------------------------*/
275:
276: IF FND_API.to_Boolean( p_init_msg_list )
277: THEN
278: FND_MSG_PUB.initialize;
279: END IF;
280:
306: /*-----------------------------------------+
307: | Initialize return status to SUCCESS |
308: +-----------------------------------------*/
309:
310: x_return_status := FND_API.G_RET_STS_SUCCESS;
311: l_doc_seq_status := FND_API.G_RET_STS_SUCCESS;
312:
313: /* SSA change */
314: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
307: | Initialize return status to SUCCESS |
308: +-----------------------------------------*/
309:
310: x_return_status := FND_API.G_RET_STS_SUCCESS;
311: l_doc_seq_status := FND_API.G_RET_STS_SUCCESS;
312:
313: /* SSA change */
314: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
315: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
310: x_return_status := FND_API.G_RET_STS_SUCCESS;
311: l_doc_seq_status := FND_API.G_RET_STS_SUCCESS;
312:
313: /* SSA change */
314: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
315: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
316: p_return_status =>l_org_return_status);
317:
318: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
314: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
315: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
316: p_return_status =>l_org_return_status);
317:
318: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
319: x_return_status := FND_API.G_RET_STS_ERROR;
320: ELSE
321:
322: /*-------------------------------------------------+
315: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
316: p_return_status =>l_org_return_status);
317:
318: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
319: x_return_status := FND_API.G_RET_STS_ERROR;
320: ELSE
321:
322: /*-------------------------------------------------+
323: | Initialize the profile option package variables |
360: );
361:
362: IF p_calling_api = 'CREATE_AND_APPLY' THEN
363: IF l_customer_id IS NULL AND
364: l_def_cash_id_return_status = FND_API.G_RET_STS_SUCCESS AND
365: l_currency_code IS NOT NULL
366: THEN
367: ar_receipt_lib_pvt.Derive_cust_info_from_trx(
368: p_customer_trx_id,
488: END IF;
489:
490: END IF;
491:
492: IF l_cash_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
493: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
494: l_def_cash_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
495: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
496: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
489:
490: END IF;
491:
492: IF l_cash_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
493: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
494: l_def_cash_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
495: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
496: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
497:
490: END IF;
491:
492: IF l_cash_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
493: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
494: l_def_cash_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
495: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
496: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
497:
498: x_return_status := FND_API.G_RET_STS_ERROR;
491:
492: IF l_cash_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
493: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
494: l_def_cash_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
495: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
496: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
497:
498: x_return_status := FND_API.G_RET_STS_ERROR;
499: END IF;
492: IF l_cash_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
493: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
494: l_def_cash_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
495: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
496: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
497:
498: x_return_status := FND_API.G_RET_STS_ERROR;
499: END IF;
500:
494: l_def_cash_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
495: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
496: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
497:
498: x_return_status := FND_API.G_RET_STS_ERROR;
499: END IF;
500:
501: --APANDIT : after the changes made for iReceivables credit card feature
502: --the receipt api will also be creating the automatic receipts.
517: END IF;
518:
519: --Call the document sequence routine only there have been no errors
520: --reported so far.
521: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
522:
523: ar_receipt_lib_pvt.get_doc_seq(222,
524: l_receipt_method_name,
525: arp_global.set_of_books_id,
548: END IF;
549: --raise error message
550: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_NUM_NULL');
551: FND_MSG_PUB.Add;
552: x_return_status := FND_API.G_RET_STS_ERROR;
553: END IF;
554: END IF;
555:
556: /* Bug 5364287 */
556: /* Bug 5364287 */
557: arp_standard.debug ('x_return_status (' || x_return_status ||')');
558: arp_standard.debug ('l_doc_seq_status (' || l_doc_seq_status ||')');
559: IF (
560: x_return_status <> FND_API.G_RET_STS_SUCCESS
561: OR l_doc_seq_status <> FND_API.G_RET_STS_SUCCESS
562: )
563: THEN
564: x_return_status := FND_API.G_RET_STS_ERROR ;
557: arp_standard.debug ('x_return_status (' || x_return_status ||')');
558: arp_standard.debug ('l_doc_seq_status (' || l_doc_seq_status ||')');
559: IF (
560: x_return_status <> FND_API.G_RET_STS_SUCCESS
561: OR l_doc_seq_status <> FND_API.G_RET_STS_SUCCESS
562: )
563: THEN
564: x_return_status := FND_API.G_RET_STS_ERROR ;
565: ELSE
560: x_return_status <> FND_API.G_RET_STS_SUCCESS
561: OR l_doc_seq_status <> FND_API.G_RET_STS_SUCCESS
562: )
563: THEN
564: x_return_status := FND_API.G_RET_STS_ERROR ;
565: ELSE
566:
567: -- HERE we have to call the payment engine in order to get the payment_trx_extension_id
568: -- the conditions are if creation_method = 'A' and p_payment_trx_extension_id is null.
589: arp_util.debug('Create_cash_122: ' || l_creation_method_code);
590: arp_util.debug('Create_cash_122: ' || l_payment_trxn_extension_id );
591: FND_MESSAGE.SET_NAME('AR','AR_CC_AUTH_FAILED');
592: FND_MSG_PUB.Add;
593: x_return_status := FND_API.G_RET_STS_ERROR;
594: END IF;
595:
596: /*Bug 5614569
597: Commented out the existing logic to call the create_payment_extension if the receipt creation
618: p_called_from => p_called_from,
619: p_receipt_date => l_receipt_date
620: );
621:
622: IF l_copy_return_status <> FND_API.G_RET_STS_SUCCESS THEN
623: arp_util.debug('Create_cash_123: ' );
624: FND_MESSAGE.set_name('AR', 'AR_CC_AUTH_FAILED');
625: FND_MSG_PUB.Add;
626: x_return_status := FND_API.G_RET_STS_ERROR;
622: IF l_copy_return_status <> FND_API.G_RET_STS_SUCCESS THEN
623: arp_util.debug('Create_cash_123: ' );
624: FND_MESSAGE.set_name('AR', 'AR_CC_AUTH_FAILED');
625: FND_MSG_PUB.Add;
626: x_return_status := FND_API.G_RET_STS_ERROR;
627: END IF;
628:
629: l_payment_trxn_extension_id := l_copy_pmt_trxn_extension_id;
630:
650: o_payment_trxn_extension_id =>l_create_pmt_trxn_extension_id,
651: p_receipt_date => l_receipt_date
652: );
653:
654: IF l_create_return_status <> FND_API.G_RET_STS_SUCCESS THEN
655: arp_util.debug('Create_cash_123: ' );
656: FND_MESSAGE.set_name('AR', 'AR_CC_AUTH_FAILED');
657: FND_MSG_PUB.Add;
658: x_return_status := FND_API.G_RET_STS_ERROR;
654: IF l_create_return_status <> FND_API.G_RET_STS_SUCCESS THEN
655: arp_util.debug('Create_cash_123: ' );
656: FND_MESSAGE.set_name('AR', 'AR_CC_AUTH_FAILED');
657: FND_MSG_PUB.Add;
658: x_return_status := FND_API.G_RET_STS_ERROR;
659: END IF;
660:
661: l_payment_trxn_extension_id := l_create_pmt_trxn_extension_id;
662:
704: arp_util.debug('Create_cash_1: ' || 'x_return_status : '||x_return_status);
705: arp_util.debug('Create_cash_1: ' || 'l_doc_seq_status : '||l_doc_seq_status);
706: END IF;
707: IF (
708: x_return_status <> FND_API.G_RET_STS_SUCCESS
709: OR l_doc_seq_status <> FND_API.G_RET_STS_SUCCESS
710: )
711: THEN
712:
705: arp_util.debug('Create_cash_1: ' || 'l_doc_seq_status : '||l_doc_seq_status);
706: END IF;
707: IF (
708: x_return_status <> FND_API.G_RET_STS_SUCCESS
709: OR l_doc_seq_status <> FND_API.G_RET_STS_SUCCESS
710: )
711: THEN
712:
713: ROLLBACK TO Create_cash_PVT;
711: THEN
712:
713: ROLLBACK TO Create_cash_PVT;
714:
715: x_return_status := FND_API.G_RET_STS_ERROR ;
716:
717: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
718: p_count => x_msg_count,
719: p_data => x_msg_data);
713: ROLLBACK TO Create_cash_PVT;
714:
715: x_return_status := FND_API.G_RET_STS_ERROR ;
716:
717: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
718: p_count => x_msg_count,
719: p_data => x_msg_data);
720:
721: IF PG_DEBUG in ('Y', 'C') THEN
820: THEN
821: ROLLBACK TO Create_Cash_PVT;
822:
823: -- Display_Parameters;
824: x_return_status := FND_API.G_RET_STS_ERROR ;
825: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
826: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROC_RECEIPTS2.INSERT_CASH_RECEIPT : '||SQLERRM);
827: FND_MSG_PUB.Add;
828:
825: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
826: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROC_RECEIPTS2.INSERT_CASH_RECEIPT : '||SQLERRM);
827: FND_MSG_PUB.Add;
828:
829: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
830: p_count => x_msg_count,
831: p_data => x_msg_data
832: );
833: RETURN;
847: | in the message stack. If there is only one message in |
848: | the stack it retrieves this message |
849: +-------------------------------------------------------*/
850:
851: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
852: p_count => x_msg_count,
853: p_data => x_msg_data
854: );
855:
857: /*--------------------------------+
858: | Standard check of p_commit |
859: +--------------------------------*/
860:
861: IF FND_API.To_Boolean( p_commit )
862: THEN
863: IF PG_DEBUG in ('Y', 'C') THEN
864: arp_util.debug('Create_cash_1: ' || 'committing');
865: END IF;
871: END IF;
872:
873:
874: EXCEPTION
875: WHEN FND_API.G_EXC_ERROR THEN
876:
877: IF PG_DEBUG in ('Y', 'C') THEN
878: arp_util.debug('Create_cash_1: ' || SQLCODE, G_MSG_ERROR);
879: arp_util.debug('Create_cash_1: ' || SQLERRM, G_MSG_ERROR);
879: arp_util.debug('Create_cash_1: ' || SQLERRM, G_MSG_ERROR);
880: END IF;
881:
882: ROLLBACK TO Create_Cash_PVT;
883: x_return_status := FND_API.G_RET_STS_ERROR ;
884:
885: --Display_Parameters;
886:
887: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
883: x_return_status := FND_API.G_RET_STS_ERROR ;
884:
885: --Display_Parameters;
886:
887: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
888: p_count => x_msg_count,
889: p_data => x_msg_data
890: );
891:
888: p_count => x_msg_count,
889: p_data => x_msg_data
890: );
891:
892: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
893:
894: IF PG_DEBUG in ('Y', 'C') THEN
895: arp_util.debug('Create_cash_1: ' || SQLERRM, G_MSG_ERROR);
896: END IF;
894: IF PG_DEBUG in ('Y', 'C') THEN
895: arp_util.debug('Create_cash_1: ' || SQLERRM, G_MSG_ERROR);
896: END IF;
897: ROLLBACK TO Create_Cash_PVT;
898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
899:
900: -- Display_Parameters;
901:
902: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
899:
900: -- Display_Parameters;
901:
902: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
903: p_count => x_msg_count,
904: p_data => x_msg_data
905: );
906:
916: THEN
917: ROLLBACK TO Create_Cash_PVT;
918:
919: -- Display_Parameters;
920: x_return_status := FND_API.G_RET_STS_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:
921: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
922: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','CREATE_CASH : '||SQLERRM);
923: FND_MSG_PUB.Add;
924:
925: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
926: p_count => x_msg_count,
927: p_data => x_msg_data
928: );
929: RETURN;
927: p_data => x_msg_data
928: );
929: RETURN;
930: ELSE
931: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
932: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
933: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','CREATE_CASH : '||SQLERRM);
934: FND_MSG_PUB.Add;
935: END IF;
949: );
950: END IF;
951:
952: -- Display_Parameters;
953: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
954: p_count => x_msg_count,
955: p_data => x_msg_data
956: );
957:
959:
960: PROCEDURE Create_cash(
961: -- Standard API parameters.
962: p_api_version IN NUMBER,
963: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
964: p_commit IN VARCHAR2 := FND_API.G_FALSE,
965: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
966: x_return_status OUT NOCOPY VARCHAR2,
967: x_msg_count OUT NOCOPY NUMBER,
960: PROCEDURE Create_cash(
961: -- Standard API parameters.
962: p_api_version IN NUMBER,
963: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
964: p_commit IN VARCHAR2 := FND_API.G_FALSE,
965: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
966: x_return_status OUT NOCOPY VARCHAR2,
967: x_msg_count OUT NOCOPY NUMBER,
968: x_msg_data OUT NOCOPY VARCHAR2,
961: -- Standard API parameters.
962: p_api_version IN NUMBER,
963: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
964: p_commit IN VARCHAR2 := FND_API.G_FALSE,
965: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
966: x_return_status OUT NOCOPY VARCHAR2,
967: x_msg_count OUT NOCOPY NUMBER,
968: x_msg_data OUT NOCOPY VARCHAR2,
969: -- Receipt info. parameters
1046: l_state VARCHAR2(30);
1047: l_cr_id NUMBER;
1048: l_ps_id NUMBER;
1049: l_row_id VARCHAR2(30);
1050: l_validation_status VARCHAR2(2) := FND_API.G_RET_STS_SUCCESS;
1051: l_doc_seq_status VARCHAR2(10);
1052: l_doc_sequence_id NUMBER;
1053: l_doc_sequence_value NUMBER;
1054: l_postmark_date DATE;
1127:
1128: PROCEDURE Apply(
1129: -- Standard API parameters.
1130: p_api_version IN NUMBER,
1131: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1132: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1133: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1134: x_return_status OUT NOCOPY VARCHAR2,
1135: x_msg_count OUT NOCOPY NUMBER,
1128: PROCEDURE Apply(
1129: -- Standard API parameters.
1130: p_api_version IN NUMBER,
1131: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1132: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1133: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1134: x_return_status OUT NOCOPY VARCHAR2,
1135: x_msg_count OUT NOCOPY NUMBER,
1136: x_msg_data OUT NOCOPY VARCHAR2,
1129: -- Standard API parameters.
1130: p_api_version IN NUMBER,
1131: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1132: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1133: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1134: x_return_status OUT NOCOPY VARCHAR2,
1135: x_msg_count OUT NOCOPY NUMBER,
1136: x_msg_data OUT NOCOPY VARCHAR2,
1137: -- Receipt application parameters.
1263: /*--------------------------------------------------+
1264: | Standard call to check for call compatibility |
1265: +--------------------------------------------------*/
1266:
1267: IF NOT FND_API.Compatible_API_Call(
1268: l_api_version,
1269: p_api_version,
1270: l_api_name,
1271: G_PKG_NAME
1270: l_api_name,
1271: G_PKG_NAME
1272: )
1273: THEN
1274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1275: END IF;
1276:
1277: /*--------------------------------------------------------------+
1278: | Initialize message list if p_init_msg_list is set to TRUE |
1277: /*--------------------------------------------------------------+
1278: | Initialize message list if p_init_msg_list is set to TRUE |
1279: +--------------------------------------------------------------*/
1280:
1281: IF FND_API.to_Boolean( p_init_msg_list )
1282: THEN
1283: FND_MSG_PUB.initialize;
1284: END IF;
1285:
1300:
1301: /*-----------------------------------------+
1302: | Initialize return status to SUCCESS |
1303: +-----------------------------------------*/
1304: x_return_status := FND_API.G_RET_STS_SUCCESS;
1305:
1306:
1307:
1308:
1307:
1308:
1309: /* SSA change */
1310: l_org_id := p_org_id;
1311: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
1312: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
1313: p_return_status =>l_org_return_status);
1314: l_called_from := p_called_from;
1315:
1314: l_called_from := p_called_from;
1315:
1316: IF(p_called_from = 'OZFAPI') THEN
1317:
1318: if ( FND_API.to_Boolean(p_commit) = FALSE ) then
1319: select COUNT(*) into l_gt from ra_customer_trx_lines_gt where customer_trx_id=p_customer_trx_id;
1320:
1321: IF (l_gt > 0 ) then
1322: delete FROM ra_customer_trx_lines_gt where customer_trx_id=p_customer_trx_id;
1326: l_called_from := NULL;
1327: END IF;
1328:
1329:
1330: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1331: x_return_status := FND_API.G_RET_STS_ERROR;
1332: ELSE
1333:
1334:
1327: END IF;
1328:
1329:
1330: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1331: x_return_status := FND_API.G_RET_STS_ERROR;
1332: ELSE
1333:
1334:
1335: /*-------------------------------------------------+
1462: --defaulting for any of the two entities : Cash receipt and Transaction.
1463: --So in this case there is no point in calling the validation routines as
1464: --at least on of the two main entities are invalid.
1465: --The invalid cash receipt is bound to give an invalid transaction error
1466: IF l_def_return_status = FND_API.G_RET_STS_SUCCESS AND
1467: l_def_ids_return_status = FND_API.G_RET_STS_SUCCESS
1468: THEN
1469: ar_receipt_val_pvt.Validate_Application_info(
1470: l_apply_date,
1463: --So in this case there is no point in calling the validation routines as
1464: --at least on of the two main entities are invalid.
1465: --The invalid cash receipt is bound to give an invalid transaction error
1466: IF l_def_return_status = FND_API.G_RET_STS_SUCCESS AND
1467: l_def_ids_return_status = FND_API.G_RET_STS_SUCCESS
1468: THEN
1469: ar_receipt_val_pvt.Validate_Application_info(
1470: l_apply_date,
1471: l_cr_date,
1585:
1586: END IF;
1587: END IF;
1588:
1589: IF l_def_ids_return_status <> FND_API.G_RET_STS_SUCCESS OR
1590: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
1591: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
1592: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
1593: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
1586: END IF;
1587: END IF;
1588:
1589: IF l_def_ids_return_status <> FND_API.G_RET_STS_SUCCESS OR
1590: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
1591: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
1592: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
1593: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
1594: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1587: END IF;
1588:
1589: IF l_def_ids_return_status <> FND_API.G_RET_STS_SUCCESS OR
1590: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
1591: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
1592: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
1593: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
1594: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1595: x_return_status := FND_API.G_RET_STS_ERROR;
1588:
1589: IF l_def_ids_return_status <> FND_API.G_RET_STS_SUCCESS OR
1590: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
1591: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
1592: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
1593: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
1594: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1595: x_return_status := FND_API.G_RET_STS_ERROR;
1596: END IF;
1589: IF l_def_ids_return_status <> FND_API.G_RET_STS_SUCCESS OR
1590: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
1591: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
1592: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
1593: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
1594: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1595: x_return_status := FND_API.G_RET_STS_ERROR;
1596: END IF;
1597:
1590: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
1591: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
1592: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
1593: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
1594: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1595: x_return_status := FND_API.G_RET_STS_ERROR;
1596: END IF;
1597:
1598: /* Bug fix 3435834
1591: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
1592: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
1593: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
1594: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1595: x_return_status := FND_API.G_RET_STS_ERROR;
1596: END IF;
1597:
1598: /* Bug fix 3435834
1599: The messages should be retrieved irrespective of the return status */
1596: END IF;
1597:
1598: /* Bug fix 3435834
1599: The messages should be retrieved irrespective of the return status */
1600: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1601: p_count => x_msg_count,
1602: p_data => x_msg_data
1603: );
1604:
1601: p_count => x_msg_count,
1602: p_data => x_msg_data
1603: );
1604:
1605: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1606: THEN
1607:
1608: ROLLBACK TO Apply_PVT;
1609:
1606: THEN
1607:
1608: ROLLBACK TO Apply_PVT;
1609:
1610: x_return_status := FND_API.G_RET_STS_ERROR ;
1611:
1612: IF PG_DEBUG in ('Y', 'C') THEN
1613: arp_util.debug('Apply: ' || 'Error(s) occurred. Rolling back and setting status to ERROR');
1614: END IF;
1637: /* Bug 4042420: lock the payment schedule of the applied transaction */
1638: arp_ps_pkg.nowaitlock_p (p_ps_id => l_applied_payment_schedule_id);
1639:
1640: /* Bug 3773036: Initializing the return status */
1641: l_return_status := FND_API.G_RET_STS_SUCCESS;
1642:
1643: BEGIN
1644: --call the entity handler
1645: arp_process_application.receipt_application(
1735: THEN
1736: ROLLBACK TO Apply_PVT;
1737:
1738: -- Display_Parameters;
1739: x_return_status := FND_API.G_RET_STS_ERROR ;
1740: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
1741: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.RECEIPT_APPLICATION '||SQLERRM);
1742: FND_MSG_PUB.Add;
1743:
1740: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
1741: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.RECEIPT_APPLICATION '||SQLERRM);
1742: FND_MSG_PUB.Add;
1743:
1744: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
1745: p_count => x_msg_count,
1746: p_data => x_msg_data
1747: );
1748: RETURN;
1751: END IF;
1752: END;
1753:
1754: /* Bug 3773036: raising error if return status is not success */
1755: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1756: RAISE FND_API.G_EXC_ERROR;
1757: END IF;
1758: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1759: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1752: END;
1753:
1754: /* Bug 3773036: raising error if return status is not success */
1755: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1756: RAISE FND_API.G_EXC_ERROR;
1757: END IF;
1758: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1759: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1760: END IF;
1754: /* Bug 3773036: raising error if return status is not success */
1755: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1756: RAISE FND_API.G_EXC_ERROR;
1757: END IF;
1758: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1759: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1760: END IF;
1761:
1762: jg_ar_receivable_applications.apply(
1755: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1756: RAISE FND_API.G_EXC_ERROR;
1757: END IF;
1758: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1759: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1760: END IF;
1761:
1762: jg_ar_receivable_applications.apply(
1763: p_apply_before_after => 'AFTER',
1795: /*--------------------------------+
1796: | Standard check of p_commit |
1797: +--------------------------------*/
1798:
1799: IF FND_API.To_Boolean( p_commit )
1800: THEN
1801: IF PG_DEBUG in ('Y', 'C') THEN
1802: arp_util.debug('Apply: ' || 'committing');
1803: END IF;
1806: IF PG_DEBUG in ('Y', 'C') THEN
1807: arp_util.debug('Apply ()- ');
1808: END IF;
1809: EXCEPTION
1810: WHEN FND_API.G_EXC_ERROR THEN
1811:
1812: IF PG_DEBUG in ('Y', 'C') THEN
1813: arp_util.debug('Apply: ' || SQLCODE, G_MSG_ERROR);
1814: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
1814: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
1815: END IF;
1816:
1817: ROLLBACK TO Apply_PVT;
1818: x_return_status := FND_API.G_RET_STS_ERROR ;
1819:
1820: -- Display_Parameters;
1821:
1822: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1818: x_return_status := FND_API.G_RET_STS_ERROR ;
1819:
1820: -- Display_Parameters;
1821:
1822: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1823: p_count => x_msg_count,
1824: p_data => x_msg_data
1825: );
1826:
1823: p_count => x_msg_count,
1824: p_data => x_msg_data
1825: );
1826:
1827: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1828:
1829: IF PG_DEBUG in ('Y', 'C') THEN
1830: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
1831: END IF;
1829: IF PG_DEBUG in ('Y', 'C') THEN
1830: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
1831: END IF;
1832: ROLLBACK TO Apply_PVT;
1833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1834:
1835: -- Display_Parameters;
1836:
1837: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1834:
1835: -- Display_Parameters;
1836:
1837: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1838: p_count => x_msg_count,
1839: p_data => x_msg_data
1840: );
1841:
1854:
1855: --If only one error message on the stack,
1856: --retrive it
1857:
1858: x_return_status := FND_API.G_RET_STS_ERROR ;
1859: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
1860: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','APPLY : '||SQLERRM);
1861: FND_MSG_PUB.Add;
1862:
1859: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
1860: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','APPLY : '||SQLERRM);
1861: FND_MSG_PUB.Add;
1862:
1863: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1864: p_count => x_msg_count,
1865: p_data => x_msg_data
1866: );
1867:
1867:
1868: RETURN;
1869:
1870: ELSE
1871: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1872: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
1873: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','APPLY : '||SQLERRM);
1874: FND_MSG_PUB.Add;
1875: END IF;
1889: END IF;
1890:
1891: -- Display_Parameters;
1892:
1893: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1894: p_count => x_msg_count,
1895: p_data => x_msg_data
1896: );
1897:
1899:
1900: PROCEDURE Apply_In_Detail(
1901: -- Standard API parameters.
1902: p_api_version IN NUMBER,
1903: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1904: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1905: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1906: x_return_status OUT NOCOPY VARCHAR2,
1907: x_msg_count OUT NOCOPY NUMBER,
1900: PROCEDURE Apply_In_Detail(
1901: -- Standard API parameters.
1902: p_api_version IN NUMBER,
1903: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1904: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1905: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1906: x_return_status OUT NOCOPY VARCHAR2,
1907: x_msg_count OUT NOCOPY NUMBER,
1908: x_msg_data OUT NOCOPY VARCHAR2,
1901: -- Standard API parameters.
1902: p_api_version IN NUMBER,
1903: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1904: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1905: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1906: x_return_status OUT NOCOPY VARCHAR2,
1907: x_msg_count OUT NOCOPY NUMBER,
1908: x_msg_data OUT NOCOPY VARCHAR2,
1909: -- Receipt application parameters.
2058:
2059: /*--------------------------------------------------+
2060: | Standard call to check for call compatibility |
2061: +--------------------------------------------------*/
2062: IF NOT FND_API.Compatible_API_Call(
2063: l_api_version,
2064: p_api_version,
2065: l_api_name,
2066: G_PKG_NAME
2065: l_api_name,
2066: G_PKG_NAME
2067: )
2068: THEN
2069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2070: END IF;
2071:
2072: /*--------------------------------------------------------------+
2073: | Initialize message list if p_init_msg_list is set to TRUE |
2072: /*--------------------------------------------------------------+
2073: | Initialize message list if p_init_msg_list is set to TRUE |
2074: +--------------------------------------------------------------*/
2075:
2076: IF FND_API.to_Boolean( p_init_msg_list )
2077: THEN
2078: FND_MSG_PUB.initialize;
2079: END IF;
2080:
2096:
2097: /*-----------------------------------------+
2098: | Initialize return status to SUCCESS |
2099: +-----------------------------------------*/
2100: x_return_status := FND_API.G_RET_STS_SUCCESS;
2101:
2102: /* SSA change */
2103: l_org_id := p_org_id;
2104: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
2100: x_return_status := FND_API.G_RET_STS_SUCCESS;
2101:
2102: /* SSA change */
2103: l_org_id := p_org_id;
2104: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
2105: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
2106: p_return_status =>l_org_return_status);
2107:
2108: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2104: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
2105: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
2106: p_return_status =>l_org_return_status);
2107:
2108: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2109: x_return_status := FND_API.G_RET_STS_ERROR;
2110: ELSE
2111: --Verify whether LLCA is allowed for given invoice
2112: IF NOT arp_standard.is_llca_allowed(l_org_id,p_customer_trx_id) THEN
2105: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
2106: p_return_status =>l_org_return_status);
2107:
2108: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2109: x_return_status := FND_API.G_RET_STS_ERROR;
2110: ELSE
2111: --Verify whether LLCA is allowed for given invoice
2112: IF NOT arp_standard.is_llca_allowed(l_org_id,p_customer_trx_id) THEN
2113: FND_MESSAGE.set_name('AR', 'AR_SUMMARIZED_DIST_NO_LLCA_RCT');
2111: --Verify whether LLCA is allowed for given invoice
2112: IF NOT arp_standard.is_llca_allowed(l_org_id,p_customer_trx_id) THEN
2113: FND_MESSAGE.set_name('AR', 'AR_SUMMARIZED_DIST_NO_LLCA_RCT');
2114: FND_MSG_PUB.Add;
2115: x_return_status := FND_API.G_RET_STS_ERROR;
2116: RAISE FND_API.G_EXC_ERROR;
2117: END IF;
2118:
2119: /*-------------------------------------------------+
2112: IF NOT arp_standard.is_llca_allowed(l_org_id,p_customer_trx_id) THEN
2113: FND_MESSAGE.set_name('AR', 'AR_SUMMARIZED_DIST_NO_LLCA_RCT');
2114: FND_MSG_PUB.Add;
2115: x_return_status := FND_API.G_RET_STS_ERROR;
2116: RAISE FND_API.G_EXC_ERROR;
2117: END IF;
2118:
2119: /*-------------------------------------------------+
2120: | Initialize the profile option package variables |
2203: l_charges_amount := p_charges_amount;
2204: l_line_discount := p_line_discount;
2205: l_tax_discount := p_tax_discount;
2206: l_freight_discount := p_freight_discount;
2207: l_ad_dflex_val_return_status := FND_API.G_RET_STS_SUCCESS;
2208:
2209: ar_receipt_lib_pvt.populate_llca_gt(
2210: p_customer_trx_id => l_customer_trx_id,
2211: p_llca_type => l_llca_type,
2224: IF PG_DEBUG in ('Y', 'C') THEN
2225: arp_util.debug('Apply_In_Detail: ' || 'Plsql table Return_status = '||l_gt_return_status);
2226: END IF;
2227:
2228: IF l_gt_return_status <> FND_API.G_RET_STS_SUCCESS
2229: THEN
2230: ROLLBACK TO Apply_In_Detail_PVT;
2231: x_return_status := FND_API.G_RET_STS_ERROR ;
2232:
2227:
2228: IF l_gt_return_status <> FND_API.G_RET_STS_SUCCESS
2229: THEN
2230: ROLLBACK TO Apply_In_Detail_PVT;
2231: x_return_status := FND_API.G_RET_STS_ERROR ;
2232:
2233: IF PG_DEBUG in ('Y', 'C') THEN
2234: arp_util.debug('Apply_In_Detail: ' || 'Error(s) occurred. Rolling back and setting status to ERROR');
2235: END IF;
2258: arp_util.debug('Apply_In_Detail: ' || 'Defaulting Ids Return_status = '||l_def_ids_return_status);
2259: END IF;
2260:
2261: -- Inorder to retained the errors on GT, we need to return the call without rollback.
2262: IF l_def_ids_return_status <> FND_API.G_RET_STS_SUCCESS
2263: Then
2264: select count(1) into l_count from ar_llca_trx_errors_gt
2265: where customer_trx_id = p_customer_trx_id;
2266:
2265: where customer_trx_id = p_customer_trx_id;
2266:
2267: If l_count <> 0 AND p_llca_type = 'L'
2268: THEN
2269: x_return_status := FND_API.G_RET_STS_ERROR ;
2270:
2271: IF PG_DEBUG in ('Y', 'C') THEN
2272: arp_util.debug('Apply_In_Detail: ' || 'Error(s) occurred in PLSQL table parameters. ');
2273: END IF;
2351: | |
2352: | VALIDATION |
2353: | |
2354: +---------------------*/
2355: IF l_def_return_status = FND_API.G_RET_STS_SUCCESS AND
2356: l_def_ids_return_status = FND_API.G_RET_STS_SUCCESS
2357: THEN
2358: ar_receipt_val_pvt.Validate_Application_info(
2359: p_apply_date => l_apply_date,
2352: | VALIDATION |
2353: | |
2354: +---------------------*/
2355: IF l_def_return_status = FND_API.G_RET_STS_SUCCESS AND
2356: l_def_ids_return_status = FND_API.G_RET_STS_SUCCESS
2357: THEN
2358: ar_receipt_val_pvt.Validate_Application_info(
2359: p_apply_date => l_apply_date,
2360: p_cr_date => l_cr_date,
2499: END IF;
2500:
2501: IF l_llca_return_status = 'X'
2502: Then
2503: x_return_status := FND_API.G_RET_STS_ERROR ;
2504: Return;
2505: END IF ;
2506:
2507: IF l_def_ids_return_status <> FND_API.G_RET_STS_SUCCESS OR
2503: x_return_status := FND_API.G_RET_STS_ERROR ;
2504: Return;
2505: END IF ;
2506:
2507: IF l_def_ids_return_status <> FND_API.G_RET_STS_SUCCESS OR
2508: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2509: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
2510: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2511: l_ad_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2504: Return;
2505: END IF ;
2506:
2507: IF l_def_ids_return_status <> FND_API.G_RET_STS_SUCCESS OR
2508: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2509: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
2510: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2511: l_ad_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2512: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
2505: END IF ;
2506:
2507: IF l_def_ids_return_status <> FND_API.G_RET_STS_SUCCESS OR
2508: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2509: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
2510: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2511: l_ad_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2512: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
2513: l_llca_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2506:
2507: IF l_def_ids_return_status <> FND_API.G_RET_STS_SUCCESS OR
2508: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2509: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
2510: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2511: l_ad_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2512: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
2513: l_llca_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2514: x_return_status := FND_API.G_RET_STS_ERROR;
2507: IF l_def_ids_return_status <> FND_API.G_RET_STS_SUCCESS OR
2508: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2509: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
2510: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2511: l_ad_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2512: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
2513: l_llca_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2514: x_return_status := FND_API.G_RET_STS_ERROR;
2515: END IF;
2508: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2509: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
2510: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2511: l_ad_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2512: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
2513: l_llca_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2514: x_return_status := FND_API.G_RET_STS_ERROR;
2515: END IF;
2516:
2509: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
2510: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2511: l_ad_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2512: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
2513: l_llca_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2514: x_return_status := FND_API.G_RET_STS_ERROR;
2515: END IF;
2516:
2517: /* Bug fix 3435834
2510: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2511: l_ad_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
2512: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
2513: l_llca_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2514: x_return_status := FND_API.G_RET_STS_ERROR;
2515: END IF;
2516:
2517: /* Bug fix 3435834
2518: The messages should be retrieved irrespective of the return status */
2515: END IF;
2516:
2517: /* Bug fix 3435834
2518: The messages should be retrieved irrespective of the return status */
2519: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2520: p_count => x_msg_count,
2521: p_data => x_msg_data
2522: );
2523:
2520: p_count => x_msg_count,
2521: p_data => x_msg_data
2522: );
2523:
2524: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
2525: THEN
2526:
2527: ROLLBACK TO Apply_In_Detail_PVT;
2528:
2525: THEN
2526:
2527: ROLLBACK TO Apply_In_Detail_PVT;
2528:
2529: x_return_status := FND_API.G_RET_STS_ERROR ;
2530:
2531: IF PG_DEBUG in ('Y', 'C') THEN
2532: arp_util.debug('Apply_In_Detail: ' || 'Error(s) occurred. Rolling back and setting status to ERROR');
2533: END IF;
2584: p_return_status => l_gdflex_return_status);
2585:
2586: END IF;
2587:
2588: IF l_llca_app_return_status <> FND_API.G_RET_STS_SUCCESS OR
2589: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2590: x_return_status := FND_API.G_RET_STS_ERROR;
2591: END IF;
2592:
2585:
2586: END IF;
2587:
2588: IF l_llca_app_return_status <> FND_API.G_RET_STS_SUCCESS OR
2589: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2590: x_return_status := FND_API.G_RET_STS_ERROR;
2591: END IF;
2592:
2593: /* Bug fix 3435834
2586: END IF;
2587:
2588: IF l_llca_app_return_status <> FND_API.G_RET_STS_SUCCESS OR
2589: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2590: x_return_status := FND_API.G_RET_STS_ERROR;
2591: END IF;
2592:
2593: /* Bug fix 3435834
2594: The messages should be retrieved irrespective of the return status */
2591: END IF;
2592:
2593: /* Bug fix 3435834
2594: The messages should be retrieved irrespective of the return status */
2595: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2596: p_count => x_msg_count,
2597: p_data => x_msg_data
2598: );
2599:
2596: p_count => x_msg_count,
2597: p_data => x_msg_data
2598: );
2599:
2600: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
2601: THEN
2602:
2603: ROLLBACK TO Apply_In_Detail_PVT;
2604:
2601: THEN
2602:
2603: ROLLBACK TO Apply_In_Detail_PVT;
2604:
2605: x_return_status := FND_API.G_RET_STS_ERROR ;
2606:
2607: IF PG_DEBUG in ('Y', 'C') THEN
2608: arp_util.debug('Apply_In_Detail: ' || 'Error(s) occurred. Rolling back and setting status to ERROR');
2609: END IF;
2631:
2632: -- lock the payment schedule of the applied transaction
2633: arp_ps_pkg.nowaitlock_p (p_ps_id => l_applied_payment_schedule_id);
2634:
2635: l_return_status := FND_API.G_RET_STS_SUCCESS;
2636:
2637: BEGIN
2638: --call the entity handler
2639: arp_process_det_pkg.final_commit(
2684: x_msg_count => lfc_msg_count,
2685: x_msg_data => lfc_msg_data
2686: );
2687: --Bug fix for 5645383
2688: IF lfc_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2689: x_return_status := FND_API.G_RET_STS_ERROR;
2690: END IF;
2691: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2692: p_count => x_msg_count,
2685: x_msg_data => lfc_msg_data
2686: );
2687: --Bug fix for 5645383
2688: IF lfc_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2689: x_return_status := FND_API.G_RET_STS_ERROR;
2690: END IF;
2691: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2692: p_count => x_msg_count,
2693: p_data => x_msg_data
2687: --Bug fix for 5645383
2688: IF lfc_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2689: x_return_status := FND_API.G_RET_STS_ERROR;
2690: END IF;
2691: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2692: p_count => x_msg_count,
2693: p_data => x_msg_data
2694: );
2695: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2691: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2692: p_count => x_msg_count,
2693: p_data => x_msg_data
2694: );
2695: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2696: ROLLBACK TO Apply_In_Detail_PVT;
2697: x_return_status := FND_API.G_RET_STS_ERROR ;
2698: IF PG_DEBUG in ('Y', 'C') THEN
2699: arp_util.debug('Apply_In_Detail: ' || 'Error(s) occurred. Rolling back and setting status to ERROR');
2693: p_data => x_msg_data
2694: );
2695: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2696: ROLLBACK TO Apply_In_Detail_PVT;
2697: x_return_status := FND_API.G_RET_STS_ERROR ;
2698: IF PG_DEBUG in ('Y', 'C') THEN
2699: arp_util.debug('Apply_In_Detail: ' || 'Error(s) occurred. Rolling back and setting status to ERROR');
2700: END IF;
2701: Return;
2734: THEN
2735: ROLLBACK TO Apply_In_Detail_PVT;
2736:
2737: -- Display_Parameters;
2738: x_return_status := FND_API.G_RET_STS_ERROR ;
2739: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
2740: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.RECEIPT_APPLICATION '||SQLERRM);
2741: FND_MSG_PUB.Add;
2742:
2739: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
2740: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.RECEIPT_APPLICATION '||SQLERRM);
2741: FND_MSG_PUB.Add;
2742:
2743: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
2744: p_count => x_msg_count,
2745: p_data => x_msg_data
2746: );
2747: RETURN;
2751: END IF;
2752: END;
2753:
2754: /* Bug 3773036: raising error if return status is not success */
2755: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2756: RAISE FND_API.G_EXC_ERROR;
2757: END IF;
2758: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2759: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2752: END;
2753:
2754: /* Bug 3773036: raising error if return status is not success */
2755: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2756: RAISE FND_API.G_EXC_ERROR;
2757: END IF;
2758: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2759: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2760: END IF;
2754: /* Bug 3773036: raising error if return status is not success */
2755: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2756: RAISE FND_API.G_EXC_ERROR;
2757: END IF;
2758: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2759: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2760: END IF;
2761:
2762: jg_ar_receivable_applications.apply(
2755: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2756: RAISE FND_API.G_EXC_ERROR;
2757: END IF;
2758: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2759: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2760: END IF;
2761:
2762: jg_ar_receivable_applications.apply(
2763: p_apply_before_after => 'AFTER',
2792: p_global_attribute19 => l_global_attribute_rec.global_attribute19,
2793: p_global_attribute20 => l_global_attribute_rec.global_attribute20,
2794: p_return_status => l_gdflex_return_status);
2795: --Bug fix for 5645383
2796: IF l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2797: x_return_status := FND_API.G_RET_STS_ERROR;
2798: END IF;
2799: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2800: p_count => x_msg_count,
2793: p_global_attribute20 => l_global_attribute_rec.global_attribute20,
2794: p_return_status => l_gdflex_return_status);
2795: --Bug fix for 5645383
2796: IF l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2797: x_return_status := FND_API.G_RET_STS_ERROR;
2798: END IF;
2799: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2800: p_count => x_msg_count,
2801: p_data => x_msg_data
2795: --Bug fix for 5645383
2796: IF l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2797: x_return_status := FND_API.G_RET_STS_ERROR;
2798: END IF;
2799: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2800: p_count => x_msg_count,
2801: p_data => x_msg_data
2802: );
2803: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2799: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2800: p_count => x_msg_count,
2801: p_data => x_msg_data
2802: );
2803: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2804: ROLLBACK TO Apply_In_Detail_PVT;
2805: x_return_status := FND_API.G_RET_STS_ERROR ;
2806: IF PG_DEBUG in ('Y', 'C') THEN
2807: arp_util.debug('Apply_In_Detail: ' || 'Error(s) occurred. Rolling back and setting status to ERROR');
2801: p_data => x_msg_data
2802: );
2803: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2804: ROLLBACK TO Apply_In_Detail_PVT;
2805: x_return_status := FND_API.G_RET_STS_ERROR ;
2806: IF PG_DEBUG in ('Y', 'C') THEN
2807: arp_util.debug('Apply_In_Detail: ' || 'Error(s) occurred. Rolling back and setting status to ERROR');
2808: END IF;
2809: Return;
2812: /*--------------------------------+
2813: | Standard check of p_commit |
2814: +--------------------------------*/
2815:
2816: IF FND_API.To_Boolean( p_commit )
2817: THEN
2818: IF PG_DEBUG in ('Y', 'C') THEN
2819: arp_util.debug('Apply_In_Detail: ' || 'committing');
2820: END IF;
2823: IF PG_DEBUG in ('Y', 'C') THEN
2824: arp_util.debug('Apply_In_Detail ()- ');
2825: END IF;
2826: EXCEPTION
2827: WHEN FND_API.G_EXC_ERROR THEN
2828:
2829: IF PG_DEBUG in ('Y', 'C') THEN
2830: arp_util.debug('Apply_In_Detail: ' || SQLCODE, G_MSG_ERROR);
2831: arp_util.debug('Apply_In_Detail: ' || SQLERRM, G_MSG_ERROR);
2831: arp_util.debug('Apply_In_Detail: ' || SQLERRM, G_MSG_ERROR);
2832: END IF;
2833:
2834: ROLLBACK TO Apply_In_Detail_PVT;
2835: x_return_status := FND_API.G_RET_STS_ERROR ;
2836:
2837: -- Display_Parameters;
2838:
2839: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2835: x_return_status := FND_API.G_RET_STS_ERROR ;
2836:
2837: -- Display_Parameters;
2838:
2839: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2840: p_count => x_msg_count,
2841: p_data => x_msg_data
2842: );
2843:
2840: p_count => x_msg_count,
2841: p_data => x_msg_data
2842: );
2843:
2844: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2845:
2846: IF PG_DEBUG in ('Y', 'C') THEN
2847: arp_util.debug('Apply_In_Detail: ' || SQLERRM, G_MSG_ERROR);
2848: END IF;
2846: IF PG_DEBUG in ('Y', 'C') THEN
2847: arp_util.debug('Apply_In_Detail: ' || SQLERRM, G_MSG_ERROR);
2848: END IF;
2849: ROLLBACK TO Apply_In_Detail_PVT;
2850: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2851:
2852: -- Display_Parameters;
2853:
2854: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2850: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2851:
2852: -- Display_Parameters;
2853:
2854: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2855: p_count => x_msg_count,
2856: p_data => x_msg_data
2857: );
2858:
2871:
2872: --If only one error message on the stack,
2873: --retrive it
2874:
2875: x_return_status := FND_API.G_RET_STS_ERROR ;
2876: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
2877: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','APPLY : '||SQLERRM);
2878: FND_MSG_PUB.Add;
2879:
2876: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
2877: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','APPLY : '||SQLERRM);
2878: FND_MSG_PUB.Add;
2879:
2880: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2881: p_count => x_msg_count,
2882: p_data => x_msg_data
2883: );
2884:
2884:
2885: RETURN;
2886:
2887: ELSE
2888: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2889: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
2890: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','APPLY : '||SQLERRM);
2891: FND_MSG_PUB.Add;
2892: END IF;
2906: END IF;
2907:
2908: -- Display_Parameters;
2909:
2910: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2911: p_count => x_msg_count,
2912: p_data => x_msg_data
2913: );
2914: END Apply_In_Detail;
2915:
2916: PROCEDURE Unapply(
2917: -- Standard API parameters.
2918: p_api_version IN NUMBER,
2919: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2920: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2921: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2922: x_return_status OUT NOCOPY VARCHAR2,
2923: x_msg_count OUT NOCOPY NUMBER,
2916: PROCEDURE Unapply(
2917: -- Standard API parameters.
2918: p_api_version IN NUMBER,
2919: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2920: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2921: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2922: x_return_status OUT NOCOPY VARCHAR2,
2923: x_msg_count OUT NOCOPY NUMBER,
2924: x_msg_data OUT NOCOPY VARCHAR2,
2917: -- Standard API parameters.
2918: p_api_version IN NUMBER,
2919: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2920: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2921: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2922: x_return_status OUT NOCOPY VARCHAR2,
2923: x_msg_count OUT NOCOPY NUMBER,
2924: x_msg_data OUT NOCOPY VARCHAR2,
2925: -- *** Receipt Info. parameters *****
2966: /*--------------------------------------------------+
2967: | Standard call to check for call compatibility |
2968: +--------------------------------------------------*/
2969:
2970: IF NOT FND_API.Compatible_API_Call(
2971: l_api_version,
2972: p_api_version,
2973: l_api_name,
2974: G_PKG_NAME
2973: l_api_name,
2974: G_PKG_NAME
2975: )
2976: THEN
2977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2978: END IF;
2979: /*-----------------------------------------+
2980: | Initialize return status to SUCCESS |
2981: +-----------------------------------------*/
2979: /*-----------------------------------------+
2980: | Initialize return status to SUCCESS |
2981: +-----------------------------------------*/
2982:
2983: x_return_status := FND_API.G_RET_STS_SUCCESS;
2984:
2985: /*--------------------------------------------------------------+
2986: | Initialize message list if p_init_msg_list is set to TRUE |
2987: +--------------------------------------------------------------*/
2985: /*--------------------------------------------------------------+
2986: | Initialize message list if p_init_msg_list is set to TRUE |
2987: +--------------------------------------------------------------*/
2988:
2989: IF FND_API.to_Boolean( p_init_msg_list )
2990: THEN
2991: FND_MSG_PUB.initialize;
2992: END IF;
2993:
3003: Original_unapp_info.receivable_application_id := p_receivable_application_id;
3004:
3005: /* SSA change */
3006: l_org_id := p_org_id;
3007: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
3008: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
3009: p_return_status =>l_org_return_status);
3010: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3011: x_return_status := FND_API.G_RET_STS_ERROR;
3006: l_org_id := p_org_id;
3007: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
3008: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
3009: p_return_status =>l_org_return_status);
3010: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3011: x_return_status := FND_API.G_RET_STS_ERROR;
3012: ELSE
3013:
3014: /*-------------------------------------------------+
3007: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
3008: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
3009: p_return_status =>l_org_return_status);
3010: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3011: x_return_status := FND_API.G_RET_STS_ERROR;
3012: ELSE
3013:
3014: /*-------------------------------------------------+
3015: | Initialize the profile option package variables |
3100: l_glob_return_status );
3101: --
3102: END IF;
3103:
3104: IF l_derive_ids_ret_status <> FND_API.G_RET_STS_SUCCESS OR
3105: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
3106: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS OR
3107: l_glob_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3108: x_return_status := FND_API.G_RET_STS_ERROR ;
3101: --
3102: END IF;
3103:
3104: IF l_derive_ids_ret_status <> FND_API.G_RET_STS_SUCCESS OR
3105: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
3106: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS OR
3107: l_glob_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3108: x_return_status := FND_API.G_RET_STS_ERROR ;
3109: END IF;
3102: END IF;
3103:
3104: IF l_derive_ids_ret_status <> FND_API.G_RET_STS_SUCCESS OR
3105: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
3106: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS OR
3107: l_glob_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3108: x_return_status := FND_API.G_RET_STS_ERROR ;
3109: END IF;
3110:
3103:
3104: IF l_derive_ids_ret_status <> FND_API.G_RET_STS_SUCCESS OR
3105: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
3106: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS OR
3107: l_glob_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3108: x_return_status := FND_API.G_RET_STS_ERROR ;
3109: END IF;
3110:
3111: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
3104: IF l_derive_ids_ret_status <> FND_API.G_RET_STS_SUCCESS OR
3105: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
3106: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS OR
3107: l_glob_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3108: x_return_status := FND_API.G_RET_STS_ERROR ;
3109: END IF;
3110:
3111: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
3112: THEN
3107: l_glob_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3108: x_return_status := FND_API.G_RET_STS_ERROR ;
3109: END IF;
3110:
3111: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
3112: THEN
3113:
3114: ROLLBACK TO Unapply_PVT;
3115:
3112: THEN
3113:
3114: ROLLBACK TO Unapply_PVT;
3115:
3116: x_return_status := FND_API.G_RET_STS_ERROR ;
3117:
3118: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3119: p_count => x_msg_count,
3120: p_data => x_msg_data
3114: ROLLBACK TO Unapply_PVT;
3115:
3116: x_return_status := FND_API.G_RET_STS_ERROR ;
3117:
3118: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3119: p_count => x_msg_count,
3120: p_data => x_msg_data
3121: );
3122:
3287: THEN
3288: ROLLBACK TO Unapply_PVT;
3289:
3290: -- Display_Parameters;
3291: x_return_status := FND_API.G_RET_STS_ERROR ;
3292: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
3293: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.REVERSE : '||SQLERRM);
3294: FND_MSG_PUB.Add;
3295:
3292: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
3293: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.REVERSE : '||SQLERRM);
3294: FND_MSG_PUB.Add;
3295:
3296: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
3297: p_count => x_msg_count,
3298: p_data => x_msg_data
3299: );
3300: RETURN;
3306: /*--------------------------------+
3307: | Standard check of p_commit |
3308: +--------------------------------*/
3309:
3310: IF FND_API.To_Boolean( p_commit )
3311: THEN
3312: IF PG_DEBUG in ('Y', 'C') THEN
3313: arp_util.debug('Apply: ' || 'committing');
3314: END IF;
3320: END IF;
3321:
3322:
3323: EXCEPTION
3324: WHEN FND_API.G_EXC_ERROR THEN
3325:
3326: IF PG_DEBUG in ('Y', 'C') THEN
3327: arp_util.debug('Apply: ' || SQLCODE, G_MSG_ERROR);
3328: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
3328: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
3329: END IF;
3330:
3331: ROLLBACK TO Unapply_PVT;
3332: x_return_status := FND_API.G_RET_STS_ERROR ;
3333:
3334: -- Display_Parameters;
3335:
3336: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3332: x_return_status := FND_API.G_RET_STS_ERROR ;
3333:
3334: -- Display_Parameters;
3335:
3336: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3337: p_count => x_msg_count,
3338: p_data => x_msg_data
3339: );
3340:
3337: p_count => x_msg_count,
3338: p_data => x_msg_data
3339: );
3340:
3341: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3342:
3343: IF PG_DEBUG in ('Y', 'C') THEN
3344: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
3345: END IF;
3343: IF PG_DEBUG in ('Y', 'C') THEN
3344: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
3345: END IF;
3346: ROLLBACK TO Unapply_PVT;
3347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3348:
3349: -- Display_Parameters;
3350:
3351: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3348:
3349: -- Display_Parameters;
3350:
3351: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3352: p_count => x_msg_count,
3353: p_data => x_msg_data
3354: );
3355:
3365: THEN
3366:
3367: ROLLBACK TO Unapply_PVT;
3368:
3369: x_return_status := FND_API.G_RET_STS_ERROR ;
3370: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
3371: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','UNAPPLY : '||SQLERRM);
3372: FND_MSG_PUB.Add;
3373:
3373:
3374: --If only one error message on the stack,
3375: --retrive it
3376:
3377: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3378: p_count => x_msg_count,
3379: p_data => x_msg_data
3380: );
3381:
3381:
3382: RETURN;
3383:
3384: ELSE
3385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3386: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
3387: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','UNAPPLY : '||SQLERRM);
3388: FND_MSG_PUB.Add;
3389: END IF;
3403: END IF;
3404:
3405: -- Display_Parameters;
3406:
3407: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3408: p_count => x_msg_count,
3409: p_data => x_msg_data
3410: );
3411:
3463:
3464: l_payment_server_order_num VARCHAR2(80);
3465: l_action VARCHAR2(80);
3466:
3467: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3468: l_msg_count NUMBER;
3469: l_msg_data VARCHAR2(2000);
3470: */
3471:
3527:
3528: FND_MESSAGE.set_name('AR', 'AR_PAY_PROCESS_INVALID_STATUS');
3529: FND_MSG_PUB.Add;
3530:
3531: x_return_status := FND_API.G_RET_STS_ERROR; -- should never happen
3532: RETURN;
3533: end if;
3534:
3535: -- Step 1: (always performed):
3595: END IF;
3596:
3597: IBY_Payment_Adapter_pub.OraPmtReq(
3598: p_api_version => 1.0,
3599: p_init_msg_list => FND_API.G_TRUE,
3600: p_commit => FND_API.G_FALSE,
3601: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3602: p_ecapp_id => 222, -- AR product id
3603: x_return_status => l_return_status,
3596:
3597: IBY_Payment_Adapter_pub.OraPmtReq(
3598: p_api_version => 1.0,
3599: p_init_msg_list => FND_API.G_TRUE,
3600: p_commit => FND_API.G_FALSE,
3601: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3602: p_ecapp_id => 222, -- AR product id
3603: x_return_status => l_return_status,
3604: x_msg_count => l_msg_count,
3597: IBY_Payment_Adapter_pub.OraPmtReq(
3598: p_api_version => 1.0,
3599: p_init_msg_list => FND_API.G_TRUE,
3600: p_commit => FND_API.G_FALSE,
3601: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3602: p_ecapp_id => 222, -- AR product id
3603: x_return_status => l_return_status,
3604: x_msg_count => l_msg_count,
3605: x_msg_data => l_msg_data,
3649: arp_standard.debug('Apply: ' || l_MSG_DATA);
3650: END IF;
3651: ELSIF(l_MSG_COUNT>1)THEN
3652: LOOP
3653: l_MSG_DATA:=FND_MSG_PUB.GET(p_encoded=>FND_API.G_FALSE);
3654: IF (l_MSG_DATA IS NULL)THEN
3655: EXIT;
3656: END IF;
3657: IF PG_DEBUG in ('Y', 'C') THEN
3660: END LOOP;
3661: END IF;
3662: END IF;
3663:
3664: if (l_return_status <> FND_API.G_RET_STS_SUCCESS)
3665: AND (NVL(p_called_from,'NONE') = 'IREC') then
3666:
3667: FND_MESSAGE.set_name('AR', 'AR_PAY_PROCESS_AUTHFAILURE');
3668: FND_MSG_PUB.Add;
3667: FND_MESSAGE.set_name('AR', 'AR_PAY_PROCESS_AUTHFAILURE');
3668: FND_MSG_PUB.Add;
3669: x_return_status := l_return_status;
3670: RETURN;
3671: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3672: --bug 3398538
3673: arp_util.debug('Create_cash_124: ');
3674: FND_MESSAGE.set_name('AR', 'AR_CC_AUTH_FAILED');
3675: FND_MSG_PUB.Add;
3713:
3714:
3715: IBY_Payment_Adapter_pub.OraPmtCapture(
3716: p_api_version => 1.0,
3717: p_init_msg_list => FND_API.G_FALSE,
3718: p_commit => FND_API.G_FALSE,
3719: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3720: p_ecapp_id => 222, -- AR product id
3721: x_return_status => l_return_status,
3714:
3715: IBY_Payment_Adapter_pub.OraPmtCapture(
3716: p_api_version => 1.0,
3717: p_init_msg_list => FND_API.G_FALSE,
3718: p_commit => FND_API.G_FALSE,
3719: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3720: p_ecapp_id => 222, -- AR product id
3721: x_return_status => l_return_status,
3722: x_msg_count => l_msg_count,
3715: IBY_Payment_Adapter_pub.OraPmtCapture(
3716: p_api_version => 1.0,
3717: p_init_msg_list => FND_API.G_FALSE,
3718: p_commit => FND_API.G_FALSE,
3719: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3720: p_ecapp_id => 222, -- AR product id
3721: x_return_status => l_return_status,
3722: x_msg_count => l_msg_count,
3723: x_msg_data => l_msg_data,
3745: arp_standard.debug('Apply: ' || l_MSG_DATA);
3746: END IF;
3747: ELSIF(l_MSG_COUNT>1)THEN
3748: LOOP
3749: l_MSG_DATA:=FND_MSG_PUB.GET(p_encoded=>FND_API.G_FALSE);
3750: IF (l_MSG_DATA IS NULL)THEN
3751: EXIT;
3752: END IF;
3753: IF PG_DEBUG in ('Y', 'C') THEN
3772:
3773: --Add message to message stack only it it is called from iReceivables
3774: --if not pass the message stack received from iPayment
3775:
3776: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) AND (NVL(p_called_from,'NONE') = 'IREC') then
3777: FND_MESSAGE.set_name('AR', 'AR_PAY_PROCESS_CAPTFAILURE');
3778: FND_MSG_PUB.Add;
3779: --bug 3398538
3780: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3776: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) AND (NVL(p_called_from,'NONE') = 'IREC') then
3777: FND_MESSAGE.set_name('AR', 'AR_PAY_PROCESS_CAPTFAILURE');
3778: FND_MSG_PUB.Add;
3779: --bug 3398538
3780: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3781: FND_MESSAGE.set_name('AR', 'AR_CC_CAPTURE_FAILED');
3782: FND_MSG_PUB.Add;
3783: end if;
3784: x_return_status := l_return_status;
3852: rct_info rct_info_cur%ROWTYPE;
3853: l_cr_rec ar_cash_receipts_all%ROWTYPE;
3854: l_org_type HR_ALL_ORGANIZATION_UNITS.TYPE%TYPE;
3855: l_action VARCHAR2(80);
3856: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3857: l_msg_count NUMBER;
3858: l_msg_data VARCHAR2(2000);
3859: l_iby_msg_data VARCHAR2(2000);
3860: l_vend_msg_data VARCHAR2(2000);
3883:
3884:
3885: /* DECLARE the variables required for the payment engine (SETTLEMENT) all the REC TYPES */
3886: ls_response_rec IBY_FNDCPT_COMMON_PUB.Result_rec_type; /* OUT RESPONSE STRUCTURE */
3887: ls_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3888: ls_msg_count NUMBER;
3889: ls_msg_data VARCHAR2(2000);
3890: ls_iby_msg_data VARCHAR2(2000);
3891:
3922:
3923: FND_MESSAGE.set_name('AR', 'AR_PAY_PROCESS_INVALID_STATUS');
3924: FND_MSG_PUB.Add;
3925:
3926: x_return_status := FND_API.G_RET_STS_ERROR; -- should never happen
3927: RETURN;
3928: end if;
3929:
3930: -- Step 1: (always performed):
4053:
4054: BEGIN
4055: IBY_FNDCPT_TRXN_PUB.Create_Authorization(
4056: p_api_version => 1.0,
4057: p_init_msg_list => FND_API.G_TRUE,
4058: x_return_status => l_return_status,
4059: x_msg_count => l_msg_count,
4060: x_msg_data => l_msg_data,
4061: p_payer => l_payer_rec,
4080: arp_standard.debug('x_msg_count :<' || l_msg_count || '>');
4081:
4082: FOR i IN 1..l_msg_count LOOP
4083: arp_standard.debug('x_msg #' || TO_CHAR(i) || ' = <' ||
4084: SUBSTR(fnd_msg_pub.get(p_msg_index => i,p_encoded => FND_API.G_FALSE),1,150) || '>');
4085: END LOOP;
4086:
4087: IF PG_DEBUG in ('Y', 'C') THEN
4088: arp_standard.debug( '-------------------------------------');
4099: -- arp_standard.debug( 'l_authresult_rec.Risk_Result: ' || l_authresult_rec.Risk_Result);
4100:
4101: END IF;
4102:
4103: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4104: -- update cash receipt with authorization code and
4105:
4106: ARP_CASH_RECEIPTS_PKG.set_to_dummy(l_cr_rec);
4107: l_cr_rec.approval_code := l_authresult_rec.Auth_code ||'AR'||to_char(l_authresult_rec.Auth_Id);
4131: arp_standard.debug( l_MSG_DATA);
4132: END IF;
4133: ELSIF(l_MSG_COUNT>1)THEN
4134: LOOP
4135: l_MSG_DATA:=FND_MSG_PUB.GET(p_encoded=>FND_API.G_FALSE);
4136: IF (l_MSG_DATA IS NULL)THEN
4137: EXIT;
4138: END IF;
4139: IF PG_DEBUG in ('Y', 'C') THEN
4142: END LOOP;
4143: END IF;
4144: END IF;
4145:
4146: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
4147: AND (NVL(p_called_from,'NONE') = 'IREC') then
4148:
4149: FND_MESSAGE.set_name('AR', 'AR_PAY_PROCESS_AUTHFAILURE');
4150: FND_MSG_PUB.Add;
4150: FND_MSG_PUB.Add;
4151: x_return_status := l_return_status;
4152: RETURN;
4153:
4154: ELSIF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4155:
4156: arp_standard.debug('create_cash_126');
4157: FND_MESSAGE.set_name('AR', 'AR_CC_AUTH_FAILED');
4158: FND_MSG_PUB.Add;
4190:
4191: END IF;
4192:
4193:
4194: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
4195: p_count => x_msg_count,
4196: p_data => x_msg_data );
4197:
4198: x_return_status := l_return_status;
4221: END IF;
4222:
4223: IBY_FNDCPT_TRXN_PUB.Create_Settlement (
4224: p_api_version => 1.0,
4225: p_init_msg_list => FND_API.G_TRUE,
4226: x_return_status => ls_return_status,
4227: x_msg_count => ls_msg_count,
4228: x_msg_data => ls_msg_data,
4229: p_payer => l_payer_rec,
4239: arp_standard.debug('x_msg_count :<' || ls_msg_count || '>');
4240:
4241: FOR i IN 1..ls_msg_count LOOP
4242: arp_standard.debug('x_msg #' || TO_CHAR(i) || ' = <' ||
4243: SUBSTR(fnd_msg_pub.get(p_msg_index => i,p_encoded => FND_API.G_FALSE),1,150) || '>');
4244: END LOOP;
4245:
4246: IF PG_DEBUG in ('Y', 'C') THEN
4247: arp_standard.debug( '-------------------------------------');
4265: arp_standard.debug( ls_MSG_DATA);
4266: END IF;
4267: ELSIF(ls_MSG_COUNT>1)THEN
4268: LOOP
4269: ls_MSG_DATA:=FND_MSG_PUB.GET(p_encoded=>FND_API.G_FALSE);
4270: IF (ls_MSG_DATA IS NULL)THEN
4271: EXIT;
4272: END IF;
4273: IF PG_DEBUG in ('Y', 'C') THEN
4276: END LOOP;
4277: END IF;
4278: END IF;
4279:
4280: IF (ls_return_status <> FND_API.G_RET_STS_SUCCESS)
4281: AND (NVL(p_called_from,'NONE') = 'IREC') then
4282:
4283: FND_MESSAGE.set_name('AR', 'AR_PAY_PROCESS_AUTHFAILURE');
4284: FND_MSG_PUB.Add;
4284: FND_MSG_PUB.Add;
4285: x_return_status := ls_return_status;
4286: RETURN;
4287:
4288: ELSIF (ls_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4289:
4290:
4291: FND_MESSAGE.set_name('AR', 'AR_CC_CAPTURE_FAILED');
4292: FND_MSG_PUB.Add;
4308:
4309: END IF;
4310:
4311:
4312: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
4313: p_count => x_msg_count,
4314: p_data => x_msg_data );
4315:
4316: x_return_status := ls_return_status;
4351: p_receipt_date IN DATE DEFAULT NULL
4352: ) IS
4353:
4354: l_payer_rec IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type;
4355: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
4356: l_msg_count NUMBER;
4357: l_msg_data VARCHAR2(2000);
4358: l_cpy_msg_data VARCHAR2(2000);
4359: l_assignment_id NUMBER;
4433: arp_standard.debug ( 'Receipt date out of instrument assignment range. Receipt will not be created for this instrument.');
4434: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
4435: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','Instrument assignment date range out of bound.');
4436: FND_MSG_PUB.Add;
4437: x_return_status := FND_API.G_RET_STS_ERROR;
4438: RETURN;
4439: ELSE
4440: arp_standard.debug ('Receipt date is valid for instrument assignment.');
4441: END IF ;
4444: arp_standard.debug ( 'No Data found while getting date range for instrument assignment '|| sqlerrm);
4445: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
4446: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','No data range found for instrument assignment.');
4447: FND_MSG_PUB.Add;
4448: x_return_status := FND_API.G_RET_STS_ERROR;
4449: RETURN;
4450: WHEN OTHERS THEN
4451: arp_standard.debug ( 'Exception while getting date range for instrument assignment '|| sqlerrm);
4452: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
4451: arp_standard.debug ( 'Exception while getting date range for instrument assignment '|| sqlerrm);
4452: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
4453: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','Error getting data range found for instrument assignment.');
4454: FND_MSG_PUB.Add;
4455: x_return_status := FND_API.G_RET_STS_ERROR;
4456: RETURN;
4457: END ;
4458:
4459:
4492: arp_standard.debug('payment_trx_extension_id :<'|| l_payment_trxn_extension_id || '>');
4493:
4494: IBY_FNDCPT_TRXN_PUB.Copy_Transaction_Extension
4495: ( p_api_version => 1.0,
4496: p_init_msg_list => FND_API.G_TRUE,
4497: p_commit => FND_API.G_FALSE,
4498: x_return_status => l_return_status,
4499: x_msg_count => l_msg_count,
4500: x_msg_data => l_msg_data,
4493:
4494: IBY_FNDCPT_TRXN_PUB.Copy_Transaction_Extension
4495: ( p_api_version => 1.0,
4496: p_init_msg_list => FND_API.G_TRUE,
4497: p_commit => FND_API.G_FALSE,
4498: x_return_status => l_return_status,
4499: x_msg_count => l_msg_count,
4500: x_msg_data => l_msg_data,
4501: p_payer => l_payer_rec,
4505: x_entity_id => p_trxn_entity_id, -- out parm
4506: x_response => l_response_rec -- out
4507: );
4508:
4509: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
4510: o_payment_trxn_extension_id := p_trxn_entity_id ;
4511:
4512: arp_standard.debug('the copied value of trx_entn is ' || o_payment_trxn_extension_id );
4513: END IF;
4517: arp_standard.debug('x_msg_count :<' || l_msg_count || '>');
4518:
4519: FOR i IN 1..l_msg_count LOOP
4520: arp_standard.debug('x_msg #' || TO_CHAR(i) || ' = <' ||
4521: SUBSTR(fnd_msg_pub.get(p_msg_index => i,p_encoded => FND_API.G_FALSE),1,150) || '>');
4522: END LOOP;
4523:
4524:
4525: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4521: SUBSTR(fnd_msg_pub.get(p_msg_index => i,p_encoded => FND_API.G_FALSE),1,150) || '>');
4522: END LOOP;
4523:
4524:
4525: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4526:
4527: arp_standard.debug('create_cash_127');
4528: FND_MESSAGE.set_name('AR', 'AR_CC_AUTH_FAILED');
4529: FND_MSG_PUB.Add;
4542: FND_MSG_PUB.Add;
4543:
4544: END IF;
4545:
4546: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
4547: p_count => x_msg_count,
4548: p_data => x_msg_data );
4549:
4550: x_return_status := l_return_status;
4570: o_payment_trxn_extension_id OUT NOCOPY NUMBER,
4571: p_receipt_date IN DATE DEFAULT NULL
4572: ) IS
4573:
4574: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
4575: l_msg_count NUMBER;
4576: l_msg_data VARCHAR2(2000);
4577:
4578: l_payer_rec IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type;
4638: arp_standard.debug ( 'Receipt date out of instrument assignment range. Receipt will not be created for this instrument.');
4639: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
4640: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','Instrument assignment date range out of bound.');
4641: FND_MSG_PUB.Add;
4642: x_return_status := FND_API.G_RET_STS_ERROR;
4643: RETURN;
4644: ELSE
4645: arp_standard.debug ('Receipt date is valid for instrument assignment.');
4646: END IF ;
4649: arp_standard.debug ( 'No Data found while getting date range for instrument assignment '|| sqlerrm);
4650: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
4651: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','No data range found for instrument assignment.');
4652: FND_MSG_PUB.Add;
4653: x_return_status := FND_API.G_RET_STS_ERROR;
4654: RETURN;
4655: WHEN OTHERS THEN
4656: arp_standard.debug ( 'Exception while getting date range for instrument assignment '|| sqlerrm);
4657: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
4656: arp_standard.debug ( 'Exception while getting date range for instrument assignment '|| sqlerrm);
4657: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
4658: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','Error getting data range found for instrument assignment.');
4659: FND_MSG_PUB.Add;
4660: x_return_status := FND_API.G_RET_STS_ERROR;
4661: RETURN;
4662: END ;
4663: /* End - Bug 13056525 : Get start and end date for instrument assignment. */
4664:
4691:
4692: IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension
4693: (
4694: p_api_version =>1.0,
4695: p_init_msg_list =>FND_API.G_TRUE,
4696: p_commit =>FND_API.G_FALSE,
4697: x_return_status =>l_return_status,
4698: x_msg_count =>l_msg_count,
4699: x_msg_data =>l_msg_data,
4692: IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension
4693: (
4694: p_api_version =>1.0,
4695: p_init_msg_list =>FND_API.G_TRUE,
4696: p_commit =>FND_API.G_FALSE,
4697: x_return_status =>l_return_status,
4698: x_msg_count =>l_msg_count,
4699: x_msg_data =>l_msg_data,
4700: p_payer =>l_payer_rec,
4706: x_response =>l_result_rec
4707: );
4708:
4709:
4710: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
4711:
4712: o_payment_trxn_extension_id := l_extension_id;
4713:
4714: arp_standard.debug(to_char(SQL%ROWCOUNT) || 'PMT_EXTN_ID row(s) updated.');
4716: END IF;
4717:
4718: FOR i IN 1..l_msg_count LOOP
4719: arp_standard.debug('x_msg #' || TO_CHAR(i) || ' = <' ||
4720: SUBSTR(fnd_msg_pub.get(p_msg_index => i,p_encoded => FND_API.G_FALSE),1,150) || '>');
4721: END LOOP;
4722:
4723:
4724: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4720: SUBSTR(fnd_msg_pub.get(p_msg_index => i,p_encoded => FND_API.G_FALSE),1,150) || '>');
4721: END LOOP;
4722:
4723:
4724: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4725: arp_standard.debug('FAILED: ' ||l_result_rec.result_code);
4726: arp_standard.debug('PARM-l_payer_rec.Payment_Function ' ||l_payer_rec.Payment_Function);
4727: arp_standard.debug('PARM-l_payer_rec.party_id ' ||l_payer_rec.Party_Id);
4728: arp_standard.debug('PARM-l_payer_rec.org_id ' ||l_payer_rec.org_id);
4734: arp_standard.debug('PARM-l_trxn_attribs_rec.Trxn_Ref_Number1 ' ||l_trxn_attribs_rec.Trxn_Ref_Number1);
4735: arp_standard.debug('PARM-l_assignment_id ' ||l_assignment_id);
4736:
4737:
4738: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
4739: p_count => x_msg_count,
4740: p_data => x_msg_data );
4741:
4742: x_return_status := l_return_status;
4759:
4760: PROCEDURE Create_and_apply(
4761: -- Standard API parameters.
4762: p_api_version IN NUMBER,
4763: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4764: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4765: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4766: x_return_status OUT NOCOPY VARCHAR2,
4767: x_msg_count OUT NOCOPY NUMBER,
4760: PROCEDURE Create_and_apply(
4761: -- Standard API parameters.
4762: p_api_version IN NUMBER,
4763: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4764: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4765: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4766: x_return_status OUT NOCOPY VARCHAR2,
4767: x_msg_count OUT NOCOPY NUMBER,
4768: x_msg_data OUT NOCOPY VARCHAR2,
4761: -- Standard API parameters.
4762: p_api_version IN NUMBER,
4763: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4764: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4765: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4766: x_return_status OUT NOCOPY VARCHAR2,
4767: x_msg_count OUT NOCOPY NUMBER,
4768: x_msg_data OUT NOCOPY VARCHAR2,
4769: -- Receipt info. parameters
4835: app_attribute_rec IN attribute_rec_type DEFAULT attribute_rec_const,
4836: -- ******* Global Flexfield parameters *******
4837: app_global_attribute_rec IN global_attribute_rec_type DEFAULT global_attribute_rec_const,
4838: app_comments IN ar_receivable_applications.comments%TYPE DEFAULT NULL,
4839: p_call_payment_processor IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4840: p_org_id IN NUMBER DEFAULT NULL
4841: ) IS
4842: l_cash_receipt_id NUMBER(15);
4843: l_create_return_status VARCHAR2(1);
4861: --calling the internal create_cash routine
4862: Create_cash_1(
4863: p_api_version,
4864: p_init_msg_list,
4865: FND_API.G_FALSE, --p_commit is passed as FND_API.G_FALSE here but the actual value is passed i Apply routine
4866: FND_API.G_VALID_LEVEL_FULL,
4867: l_create_return_status,
4868: l_create_msg_count,
4869: l_create_msg_data,
4862: Create_cash_1(
4863: p_api_version,
4864: p_init_msg_list,
4865: FND_API.G_FALSE, --p_commit is passed as FND_API.G_FALSE here but the actual value is passed i Apply routine
4866: FND_API.G_VALID_LEVEL_FULL,
4867: l_create_return_status,
4868: l_create_msg_count,
4869: l_create_msg_data,
4870: -- Receipt info. parameters
4924: arp_util.debug('Apply: ' || 'Receipt create_return_status '||l_create_return_status);
4925: END IF;
4926: --IF the receipt creation part returns no errors then
4927: --call the application routine.
4928: IF l_create_return_status = FND_API.G_RET_STS_SUCCESS THEN
4929:
4930:
4931: IF l_create_msg_count = 1 THEN
4932: /* If one message, like warning, then put this back on stack as the
4937: FND_MSG_PUB.Add;
4938: END IF;
4939:
4940: Apply( p_api_version => p_api_version,
4941: p_init_msg_list => FND_API.G_FALSE, --message stack is not initialized here.
4942: p_commit => p_commit,
4943: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4944: x_return_status => x_return_status,
4945: x_msg_count => x_msg_count,
4939:
4940: Apply( p_api_version => p_api_version,
4941: p_init_msg_list => FND_API.G_FALSE, --message stack is not initialized here.
4942: p_commit => p_commit,
4943: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4944: x_return_status => x_return_status,
4945: x_msg_count => x_msg_count,
4946: x_msg_data => x_msg_data,
4947: p_cash_receipt_id => l_cash_receipt_id,
4969: );
4970:
4971: --If the application fails then we need to rollback all the changes
4972: --made in the create() routine also.
4973: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4974: ROLLBACK TO Create_Apply_PVT;
4975: ELSE
4976:
4977: -- OSTEINME 3/2/2001: Enhancements for iReceivables
4983: IF PG_DEBUG in ('Y', 'C') THEN
4984: arp_standard.debug('Apply: ' || 'Checking p_call_payment_processor: ' || p_call_payment_processor);
4985: END IF;
4986:
4987: if (p_call_payment_processor = FND_API.G_TRUE) then
4988:
4989: l_payment_trxn_extension_id := p_payment_trxn_extension_id;
4990:
4991: process_payment_1(
5000: -- If the payment processor call fails, then we
5001: -- need to rollback all the changes
5002: -- made in the create() and apply() routines also.
5003:
5004: IF l_cc_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5005: ROLLBACK TO Create_Apply_PVT;
5006: x_return_status := l_cc_return_status;
5007: return; -- exit back to caller
5008: END IF;
5006: x_return_status := l_cc_return_status;
5007: return; -- exit back to caller
5008: END IF;
5009:
5010: end if; -- if p_call_payment_processor = fnd_api.g_true
5011:
5012: -- OSTEINME 2/27/2001: bug 1659048:
5013: -- need to pass back cr_id
5014: p_cr_id := l_cash_receipt_id;
5028: WHEN others THEN
5029: IF PG_DEBUG in ('Y', 'C') THEN
5030: arp_util.debug('Exception : Create_and_apply() ');
5031: END IF;
5032: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5033: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
5034: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','CREATE_AND_APPLY : '||SQLERRM);
5035: FND_MSG_PUB.Add;
5036: END Create_and_apply;
5081: *=======================================================================*/
5082: PROCEDURE Create_Apply_On_Acc(
5083: -- Standard API parameters.
5084: p_api_version IN NUMBER,
5085: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5086: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5087: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5088: x_return_status OUT NOCOPY VARCHAR2,
5089: x_msg_count OUT NOCOPY NUMBER,
5082: PROCEDURE Create_Apply_On_Acc(
5083: -- Standard API parameters.
5084: p_api_version IN NUMBER,
5085: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5086: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5087: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5088: x_return_status OUT NOCOPY VARCHAR2,
5089: x_msg_count OUT NOCOPY NUMBER,
5090: x_msg_data OUT NOCOPY VARCHAR2,
5083: -- Standard API parameters.
5084: p_api_version IN NUMBER,
5085: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5086: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5087: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5088: x_return_status OUT NOCOPY VARCHAR2,
5089: x_msg_count OUT NOCOPY NUMBER,
5090: x_msg_data OUT NOCOPY VARCHAR2,
5091: -- Receipt info. parameters
5166: ar_receivable_applications.secondary_application_ref_type%TYPE := null,
5167: p_secondary_app_ref_num IN
5168: ar_receivable_applications.secondary_application_ref_num%TYPE := null,
5169:
5170: p_call_payment_processor IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5171: p_org_id IN NUMBER DEFAULT NULL
5172: ) IS
5173:
5174: l_cash_receipt_id ar_cash_receipts.cash_receipt_id%type;
5204: /*-----------------------------------------+
5205: | Initialize return status to SUCCESS |
5206: +-----------------------------------------*/
5207:
5208: x_return_status := FND_API.G_RET_STS_SUCCESS;
5209:
5210: /*--------------------------------------------------+
5211: | Standard call to check for call compatibility |
5212: +--------------------------------------------------*/
5209:
5210: /*--------------------------------------------------+
5211: | Standard call to check for call compatibility |
5212: +--------------------------------------------------*/
5213: IF NOT FND_API.Compatible_API_Call(
5214: l_api_version,
5215: p_api_version,
5216: l_api_name,
5217: G_PKG_NAME
5216: l_api_name,
5217: G_PKG_NAME
5218: )
5219: THEN
5220: x_return_status := FND_API.G_RET_STS_ERROR;
5221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5222: END IF;
5223:
5224: /*--------------------------------------------------------------+
5217: G_PKG_NAME
5218: )
5219: THEN
5220: x_return_status := FND_API.G_RET_STS_ERROR;
5221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5222: END IF;
5223:
5224: /*--------------------------------------------------------------+
5225: | Initialize message list if p_init_msg_list is set to TRUE |
5223:
5224: /*--------------------------------------------------------------+
5225: | Initialize message list if p_init_msg_list is set to TRUE |
5226: +--------------------------------------------------------------*/
5227: IF FND_API.to_Boolean( p_init_msg_list )
5228: THEN
5229: FND_MSG_PUB.initialize;
5230: END IF;
5231:
5311:
5312: /*------------------------------------------------------+
5313: | Check the return status from create_cash |
5314: +------------------------------------------------------*/
5315: IF l_create_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5316:
5317: x_return_status := l_create_return_status;
5318: ROLLBACK TO Create_Apply_On_Acc;
5319: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
5315: IF l_create_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5316:
5317: x_return_status := l_create_return_status;
5318: ROLLBACK TO Create_Apply_On_Acc;
5319: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
5320: p_count => l_create_msg_count,
5321: p_data => l_create_msg_data);
5322:
5323: x_msg_count := l_create_msg_count;
5370:
5371: /*------------------------------------------------------+
5372: | Check the return status from Apply_on_account |
5373: +------------------------------------------------------*/
5374: IF l_apply_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5375: x_return_status := l_apply_return_status;
5376: ROLLBACK TO Create_Apply_On_Acc;
5377: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
5378: p_count => l_apply_msg_count,
5373: +------------------------------------------------------*/
5374: IF l_apply_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5375: x_return_status := l_apply_return_status;
5376: ROLLBACK TO Create_Apply_On_Acc;
5377: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
5378: p_count => l_apply_msg_count,
5379: p_data => l_apply_msg_data);
5380:
5381: x_msg_count := l_apply_msg_count;
5388: IF PG_DEBUG in ('Y', 'C') THEN
5389: arp_util.debug('Create_Apply_On_Acc: ' || 'Checking p_call_payment_processor: ' || p_call_payment_processor);
5390: END IF;
5391:
5392: IF ( p_call_payment_processor = FND_API.G_TRUE ) THEN
5393:
5394: l_payment_trxn_extension_id := p_payment_trxn_extension_id;
5395:
5396: /*------------------------------------------------------+
5411:
5412: /*------------------------------------------------------+
5413: | Check the return status from Process_Payment |
5414: +------------------------------------------------------*/
5415: IF l_cc_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5416: x_return_status := l_cc_return_status;
5417:
5418: IF PG_DEBUG in ('Y', 'C') THEN
5419: arp_util.debug('Create_Apply_On_Acc: ' || 'p_payment_response_error_code: ' || l_response_error_code);
5419: arp_util.debug('Create_Apply_On_Acc: ' || 'p_payment_response_error_code: ' || l_response_error_code);
5420: END IF;
5421:
5422: ROLLBACK TO Create_Apply_On_Acc;
5423: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
5424: p_count => x_msg_count,
5425: p_data => x_msg_data);
5426: RETURN; -- exit back to caller
5427: END IF;
5446: IF PG_DEBUG in ('Y', 'C') THEN
5447: arp_util.debug('Create_Apply_On_Acc: ' || 'Exception:'|| SQLERRM);
5448: END IF;
5449:
5450: x_return_status := FND_API.G_RET_STS_ERROR ;
5451: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
5452: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','AR_RECEIPT_API_PUB.Create_Apply_On_Acc:'|| SQLERRM);
5453: FND_MSG_PUB.Add;
5454: ROLLBACK TO Create_Apply_On_Acc;
5451: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
5452: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','AR_RECEIPT_API_PUB.Create_Apply_On_Acc:'|| SQLERRM);
5453: FND_MSG_PUB.Add;
5454: ROLLBACK TO Create_Apply_On_Acc;
5455: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
5456: p_count => x_msg_count,
5457: p_data => x_msg_data);
5458:
5459:
5476: l_crh_rec ar_cash_receipt_history%ROWTYPE;
5477: l_cr_rec ar_cash_receipts%ROWTYPE;
5478: l_ps_rec ar_payment_schedules%ROWTYPE;
5479: BEGIN
5480: p_return_status := FND_API.G_RET_STS_SUCCESS;
5481: /*-------------------------------------------------+
5482: | Initialize SOB/org dependent variables |
5483: +-------------------------------------------------*/
5484: arp_global.init_global;
5557:
5558: IF (SQLCODE = -20001)
5559: THEN
5560:
5561: p_return_status := FND_API.G_RET_STS_ERROR ;
5562: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
5563: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_REVERSE_RECEIPT.REVERSE : '||SQLERRM);
5564: FND_MSG_PUB.Add;
5565:
5580: /* This is standard reversal */
5581: PROCEDURE Reverse(
5582: -- Standard API parameters.
5583: p_api_version IN NUMBER,
5584: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5585: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5586: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5587: x_return_status OUT NOCOPY VARCHAR2,
5588: x_msg_count OUT NOCOPY NUMBER,
5581: PROCEDURE Reverse(
5582: -- Standard API parameters.
5583: p_api_version IN NUMBER,
5584: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5585: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5586: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5587: x_return_status OUT NOCOPY VARCHAR2,
5588: x_msg_count OUT NOCOPY NUMBER,
5589: x_msg_data OUT NOCOPY VARCHAR2,
5582: -- Standard API parameters.
5583: p_api_version IN NUMBER,
5584: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5585: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5586: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5587: x_return_status OUT NOCOPY VARCHAR2,
5588: x_msg_count OUT NOCOPY NUMBER,
5589: x_msg_data OUT NOCOPY VARCHAR2,
5590: -- Receipt reversal related parameters
5615: l_receipt_state VARCHAR2(30);
5616: l_reversal_gl_date DATE;
5617: l_reversal_date DATE;
5618: l_receipt_gl_date DATE;
5619: l_rev_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5620: l_clm_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5621: l_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5622: l_dflex_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5623: l_dflex_def_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS; /* Bug fix 3539008 */
5616: l_reversal_gl_date DATE;
5617: l_reversal_date DATE;
5618: l_receipt_gl_date DATE;
5619: l_rev_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5620: l_clm_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5621: l_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5622: l_dflex_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5623: l_dflex_def_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS; /* Bug fix 3539008 */
5624: l_dflex_val1_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5617: l_reversal_date DATE;
5618: l_receipt_gl_date DATE;
5619: l_rev_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5620: l_clm_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5621: l_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5622: l_dflex_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5623: l_dflex_def_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS; /* Bug fix 3539008 */
5624: l_dflex_val1_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5625: l_attribute_rec attribute_rec_type;
5618: l_receipt_gl_date DATE;
5619: l_rev_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5620: l_clm_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5621: l_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5622: l_dflex_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5623: l_dflex_def_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS; /* Bug fix 3539008 */
5624: l_dflex_val1_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5625: l_attribute_rec attribute_rec_type;
5626: --l_global_attribute_rec global_attribute_rec_type_upd;
5619: l_rev_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5620: l_clm_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5621: l_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5622: l_dflex_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5623: l_dflex_def_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS; /* Bug fix 3539008 */
5624: l_dflex_val1_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5625: l_attribute_rec attribute_rec_type;
5626: --l_global_attribute_rec global_attribute_rec_type_upd;
5627: l_global_attribute_rec global_attribute_rec_type;
5620: l_clm_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5621: l_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5622: l_dflex_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5623: l_dflex_def_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS; /* Bug fix 3539008 */
5624: l_dflex_val1_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5625: l_attribute_rec attribute_rec_type;
5626: --l_global_attribute_rec global_attribute_rec_type_upd;
5627: l_global_attribute_rec global_attribute_rec_type;
5628: l_glob_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5624: l_dflex_val1_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5625: l_attribute_rec attribute_rec_type;
5626: --l_global_attribute_rec global_attribute_rec_type_upd;
5627: l_global_attribute_rec global_attribute_rec_type;
5628: l_glob_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5629: l_def_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5630: l_type VARCHAR2(20);
5631: l_rev_cover_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5632: l_msg_count NUMBER;
5625: l_attribute_rec attribute_rec_type;
5626: --l_global_attribute_rec global_attribute_rec_type_upd;
5627: l_global_attribute_rec global_attribute_rec_type;
5628: l_glob_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5629: l_def_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5630: l_type VARCHAR2(20);
5631: l_rev_cover_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5632: l_msg_count NUMBER;
5633: l_msg_data VARCHAR2(2000);
5627: l_global_attribute_rec global_attribute_rec_type;
5628: l_glob_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5629: l_def_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5630: l_type VARCHAR2(20);
5631: l_rev_cover_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5632: l_msg_count NUMBER;
5633: l_msg_data VARCHAR2(2000);
5634: l_org_return_status VARCHAR2(1);
5635: l_org_id NUMBER;
5634: l_org_return_status VARCHAR2(1);
5635: l_org_id NUMBER;
5636:
5637: l_trxn_extn_id NUMBER;
5638: l_pend_settlment_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
5639:
5640: l_receipt_method_id NUMBER ;
5641:
5642: l_exist_flag number;
5652: /*--------------------------------------------------+
5653: | Standard call to check for call compatibility |
5654: +--------------------------------------------------*/
5655:
5656: IF NOT FND_API.Compatible_API_Call(
5657: l_api_version,
5658: p_api_version,
5659: l_api_name,
5660: G_PKG_NAME
5659: l_api_name,
5660: G_PKG_NAME
5661: )
5662: THEN
5663: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5664: END IF;
5665:
5666: /*--------------------------------------------------------------+
5667: | Initialize message list if p_init_msg_list is set to TRUE |
5666: /*--------------------------------------------------------------+
5667: | Initialize message list if p_init_msg_list is set to TRUE |
5668: +--------------------------------------------------------------*/
5669:
5670: IF FND_API.to_Boolean( p_init_msg_list )
5671: THEN
5672: FND_MSG_PUB.initialize;
5673: END IF;
5674: /*-----------------------------------------+
5674: /*-----------------------------------------+
5675: | Initialize return status to SUCCESS |
5676: +-----------------------------------------*/
5677:
5678: x_return_status := FND_API.G_RET_STS_SUCCESS;
5679:
5680:
5681: IF PG_DEBUG in ('Y', 'C') THEN
5682: arp_util.debug('Apply: ' || 'Reverse()+ ');
5684:
5685:
5686: /* SSA change */
5687: l_org_id := p_org_id;
5688: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
5689: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
5690: p_return_status =>l_org_return_status);
5691: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5692: x_return_status := FND_API.G_RET_STS_ERROR;
5687: l_org_id := p_org_id;
5688: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
5689: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
5690: p_return_status =>l_org_return_status);
5691: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5692: x_return_status := FND_API.G_RET_STS_ERROR;
5693: ELSE
5694:
5695: /*-------------------------------------------------+
5688: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
5689: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
5690: p_return_status =>l_org_return_status);
5691: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5692: x_return_status := FND_API.G_RET_STS_ERROR;
5693: ELSE
5694:
5695: /*-------------------------------------------------+
5696: | Initialize the profile option package variables |
5782: arp_util.debug('Apply: ' || 'Standard reversal not possible for this receipt');
5783: END IF;
5784: FND_MESSAGE.SET_NAME('AR','AR_RAPI_NON_REVERSIBLE');
5785: FND_MSG_PUB.Add;
5786: l_rev_return_status := FND_API.G_RET_STS_ERROR;
5787: END IF;
5788:
5789:
5790: /*Bug 7828491 Adding validation for avoiding reversal of receipt when
5808: p_extension_id => l_trxn_extn_id)
5809: THEN
5810: FND_MESSAGE.SET_NAME('AR','AR_IBY_SETTLEMENT_PENDING');
5811: FND_MSG_PUB.ADD;
5812: l_pend_settlment_status:= FND_API.G_RET_STS_ERROR;
5813: END IF;
5814: END IF;
5815: -- Bug 2232366 - check for existence of claims and if they are cancellable
5816: IF arp_reverse_receipt.receipt_has_non_cancel_claims(
5818: p_include_trx_claims => 'Y')
5819: THEN
5820: FND_MESSAGE.SET_NAME('AR','AR_RW_NO_REVERSAL_WITH_CLAIMS');
5821: FND_MSG_PUB.Add;
5822: l_clm_return_status := FND_API.G_RET_STS_ERROR;
5823: ELSE
5824: arp_reverse_receipt.cancel_claims(
5825: p_cr_id => p_cash_receipt_id
5826: , p_include_trx_claims => 'Y'
5838: WHERE cash_receipt_id = l_cash_receipt_id ;
5839:
5840: EXCEPTION WHEN NO_DATA_FOUND THEN
5841: arp_util.debug( 'No Data Found exception while getting Receipt Method Id : '||sqlerrm);
5842: x_return_status := FND_API.G_RET_STS_ERROR ;
5843: WHEN OTHERS THEN
5844: arp_util.debug( 'Others exception while getting Receipt Method Id : '||sqlerrm);
5845: x_return_status := FND_API.G_RET_STS_ERROR ;
5846: END;
5841: arp_util.debug( 'No Data Found exception while getting Receipt Method Id : '||sqlerrm);
5842: x_return_status := FND_API.G_RET_STS_ERROR ;
5843: WHEN OTHERS THEN
5844: arp_util.debug( 'Others exception while getting Receipt Method Id : '||sqlerrm);
5845: x_return_status := FND_API.G_RET_STS_ERROR ;
5846: END;
5847:
5848: IF l_receipt_method_id = -1 THEN
5849: NULL;
5889: arp_util.debug('Apply: ' || 'l_glob_return_status :'||l_glob_return_status);
5890: END IF;
5891: END IF;
5892:
5893: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
5894: l_rev_return_status <> FND_API.G_RET_STS_SUCCESS OR
5895: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS OR
5896: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
5897: l_dflex_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
5890: END IF;
5891: END IF;
5892:
5893: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
5894: l_rev_return_status <> FND_API.G_RET_STS_SUCCESS OR
5895: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS OR
5896: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
5897: l_dflex_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
5898: l_dflex_val1_return_status <> FND_API.G_RET_STS_SUCCESS OR
5891: END IF;
5892:
5893: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
5894: l_rev_return_status <> FND_API.G_RET_STS_SUCCESS OR
5895: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS OR
5896: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
5897: l_dflex_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
5898: l_dflex_val1_return_status <> FND_API.G_RET_STS_SUCCESS OR
5899: -- l_glob_return_status <> FND_API.G_RET_STS_SUCCESS OR
5892:
5893: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
5894: l_rev_return_status <> FND_API.G_RET_STS_SUCCESS OR
5895: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS OR
5896: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
5897: l_dflex_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
5898: l_dflex_val1_return_status <> FND_API.G_RET_STS_SUCCESS OR
5899: -- l_glob_return_status <> FND_API.G_RET_STS_SUCCESS OR
5900: l_def_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
5893: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
5894: l_rev_return_status <> FND_API.G_RET_STS_SUCCESS OR
5895: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS OR
5896: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
5897: l_dflex_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
5898: l_dflex_val1_return_status <> FND_API.G_RET_STS_SUCCESS OR
5899: -- l_glob_return_status <> FND_API.G_RET_STS_SUCCESS OR
5900: l_def_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
5901: l_pend_settlment_status <> FND_API.G_RET_STS_SUCCESS THEN
5894: l_rev_return_status <> FND_API.G_RET_STS_SUCCESS OR
5895: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS OR
5896: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
5897: l_dflex_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
5898: l_dflex_val1_return_status <> FND_API.G_RET_STS_SUCCESS OR
5899: -- l_glob_return_status <> FND_API.G_RET_STS_SUCCESS OR
5900: l_def_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
5901: l_pend_settlment_status <> FND_API.G_RET_STS_SUCCESS THEN
5902: x_return_status := FND_API.G_RET_STS_ERROR;
5895: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS OR
5896: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
5897: l_dflex_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
5898: l_dflex_val1_return_status <> FND_API.G_RET_STS_SUCCESS OR
5899: -- l_glob_return_status <> FND_API.G_RET_STS_SUCCESS OR
5900: l_def_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
5901: l_pend_settlment_status <> FND_API.G_RET_STS_SUCCESS THEN
5902: x_return_status := FND_API.G_RET_STS_ERROR;
5903: END IF;
5896: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
5897: l_dflex_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
5898: l_dflex_val1_return_status <> FND_API.G_RET_STS_SUCCESS OR
5899: -- l_glob_return_status <> FND_API.G_RET_STS_SUCCESS OR
5900: l_def_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
5901: l_pend_settlment_status <> FND_API.G_RET_STS_SUCCESS THEN
5902: x_return_status := FND_API.G_RET_STS_ERROR;
5903: END IF;
5904:
5897: l_dflex_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
5898: l_dflex_val1_return_status <> FND_API.G_RET_STS_SUCCESS OR
5899: -- l_glob_return_status <> FND_API.G_RET_STS_SUCCESS OR
5900: l_def_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
5901: l_pend_settlment_status <> FND_API.G_RET_STS_SUCCESS THEN
5902: x_return_status := FND_API.G_RET_STS_ERROR;
5903: END IF;
5904:
5905: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5898: l_dflex_val1_return_status <> FND_API.G_RET_STS_SUCCESS OR
5899: -- l_glob_return_status <> FND_API.G_RET_STS_SUCCESS OR
5900: l_def_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
5901: l_pend_settlment_status <> FND_API.G_RET_STS_SUCCESS THEN
5902: x_return_status := FND_API.G_RET_STS_ERROR;
5903: END IF;
5904:
5905: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5906:
5901: l_pend_settlment_status <> FND_API.G_RET_STS_SUCCESS THEN
5902: x_return_status := FND_API.G_RET_STS_ERROR;
5903: END IF;
5904:
5905: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5906:
5907: ROLLBACK TO Reverse_PVT;
5908:
5909: x_return_status := FND_API.G_RET_STS_ERROR ;
5905: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5906:
5907: ROLLBACK TO Reverse_PVT;
5908:
5909: x_return_status := FND_API.G_RET_STS_ERROR ;
5910:
5911: FND_MSG_PUB.Count_And_Get(
5912: p_count => x_msg_count,
5913: p_data => x_msg_data
6049: l_type,
6050: p_called_from,
6051: l_rev_cover_return_status
6052: );
6053: IF l_rev_cover_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6054:
6055: ROLLBACK TO Reverse_PVT;
6056:
6057: x_return_status := FND_API.G_RET_STS_ERROR ;
6053: IF l_rev_cover_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6054:
6055: ROLLBACK TO Reverse_PVT;
6056:
6057: x_return_status := FND_API.G_RET_STS_ERROR ;
6058:
6059: FND_MSG_PUB.Count_And_Get(
6060: p_count => x_msg_count,
6061: p_data => x_msg_data
6118: /*--------------------------------+
6119: | Standard check of p_commit |
6120: +--------------------------------*/
6121:
6122: IF FND_API.To_Boolean( p_commit )
6123: THEN
6124: IF PG_DEBUG in ('Y', 'C') THEN
6125: arp_util.debug('Apply: ' || 'committing');
6126: END IF;
6131: END IF;
6132:
6133:
6134: EXCEPTION
6135: WHEN FND_API.G_EXC_ERROR THEN
6136:
6137: IF PG_DEBUG in ('Y', 'C') THEN
6138: arp_util.debug('Apply: ' || SQLCODE, G_MSG_ERROR);
6139: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
6139: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
6140: END IF;
6141:
6142: ROLLBACK TO Reverse_PVT;
6143: x_return_status := FND_API.G_RET_STS_ERROR ;
6144:
6145: -- Display_Parameters;
6146:
6147: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
6147: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
6148: p_data => x_msg_data
6149: );
6150:
6151: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6152:
6153: IF PG_DEBUG in ('Y', 'C') THEN
6154: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
6155: END IF;
6153: IF PG_DEBUG in ('Y', 'C') THEN
6154: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
6155: END IF;
6156: ROLLBACK TO Reverse_PVT;
6157: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6158:
6159: -- Display_Parameters;
6160:
6161: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
6175:
6176: ROLLBACK TO Reverse_PVT;
6177:
6178:
6179: x_return_status := FND_API.G_RET_STS_ERROR ;
6180: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
6181: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','REVERSE : '||SQLERRM);
6182: FND_MSG_PUB.Add;
6183:
6190:
6191: RETURN;
6192:
6193: ELSE
6194: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6195: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
6196: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','REVERSE : '||SQLERRM);
6197: FND_MSG_PUB.Add;
6198: END IF;
6222:
6223: PROCEDURE Apply_on_account(
6224: -- Standard API parameters.
6225: p_api_version IN NUMBER,
6226: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6227: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6228: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6229: x_return_status OUT NOCOPY VARCHAR2,
6230: x_msg_count OUT NOCOPY NUMBER,
6223: PROCEDURE Apply_on_account(
6224: -- Standard API parameters.
6225: p_api_version IN NUMBER,
6226: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6227: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6228: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6229: x_return_status OUT NOCOPY VARCHAR2,
6230: x_msg_count OUT NOCOPY NUMBER,
6231: x_msg_data OUT NOCOPY VARCHAR2,
6224: -- Standard API parameters.
6225: p_api_version IN NUMBER,
6226: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6227: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6228: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6229: x_return_status OUT NOCOPY VARCHAR2,
6230: x_msg_count OUT NOCOPY NUMBER,
6231: x_msg_data OUT NOCOPY VARCHAR2,
6232: -- Receipt application parameters.
6281: /*--------------------------------------------------+
6282: | Standard call to check for call compatibility |
6283: +--------------------------------------------------*/
6284:
6285: IF NOT FND_API.Compatible_API_Call(
6286: l_api_version,
6287: p_api_version,
6288: l_api_name,
6289: G_PKG_NAME
6288: l_api_name,
6289: G_PKG_NAME
6290: )
6291: THEN
6292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6293: END IF;
6294:
6295: /*--------------------------------------------------------------+
6296: | Initialize message list if p_init_msg_list is set to TRUE |
6295: /*--------------------------------------------------------------+
6296: | Initialize message list if p_init_msg_list is set to TRUE |
6297: +--------------------------------------------------------------*/
6298:
6299: IF FND_API.to_Boolean( p_init_msg_list )
6300: THEN
6301: FND_MSG_PUB.initialize;
6302: END IF;
6303:
6307: /*-----------------------------------------+
6308: | Initialize return status to SUCCESS |
6309: +-----------------------------------------*/
6310:
6311: x_return_status := FND_API.G_RET_STS_SUCCESS;
6312:
6313:
6314:
6315:
6314:
6315:
6316: /* SSA change */
6317: l_org_id := p_org_id;
6318: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
6319: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
6320: p_return_status =>l_org_return_status);
6321: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6322: x_return_status := FND_API.G_RET_STS_ERROR;
6317: l_org_id := p_org_id;
6318: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
6319: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
6320: p_return_status =>l_org_return_status);
6321: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6322: x_return_status := FND_API.G_RET_STS_ERROR;
6323: ELSE
6324:
6325:
6318: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
6319: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
6320: p_return_status =>l_org_return_status);
6321: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6322: x_return_status := FND_API.G_RET_STS_ERROR;
6323: ELSE
6324:
6325:
6326: /*-------------------------------------------------+
6416: END IF;
6417: END IF;
6418:
6419:
6420: IF l_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
6421: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
6422: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
6423: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6424:
6417: END IF;
6418:
6419:
6420: IF l_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
6421: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
6422: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
6423: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6424:
6425: x_return_status := FND_API.G_RET_STS_ERROR;
6418:
6419:
6420: IF l_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
6421: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
6422: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
6423: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6424:
6425: x_return_status := FND_API.G_RET_STS_ERROR;
6426: END IF;
6419:
6420: IF l_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
6421: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
6422: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
6423: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6424:
6425: x_return_status := FND_API.G_RET_STS_ERROR;
6426: END IF;
6427:
6421: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
6422: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
6423: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6424:
6425: x_return_status := FND_API.G_RET_STS_ERROR;
6426: END IF;
6427:
6428: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
6429: THEN
6424:
6425: x_return_status := FND_API.G_RET_STS_ERROR;
6426: END IF;
6427:
6428: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
6429: THEN
6430:
6431: ROLLBACK TO Apply_on_ac_PVT;
6432:
6429: THEN
6430:
6431: ROLLBACK TO Apply_on_ac_PVT;
6432:
6433: x_return_status := FND_API.G_RET_STS_ERROR ;
6434:
6435: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6436: p_count => x_msg_count,
6437: p_data => x_msg_data
6431: ROLLBACK TO Apply_on_ac_PVT;
6432:
6433: x_return_status := FND_API.G_RET_STS_ERROR ;
6434:
6435: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6436: p_count => x_msg_count,
6437: p_data => x_msg_data
6438: );
6439:
6525: ROLLBACK TO Apply_on_ac_PVT;
6526:
6527: -- Display_Parameters
6528:
6529: x_return_status := FND_API.G_RET_STS_ERROR ;
6530: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
6531: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.ON_ACCOUNT_RECEIPTS : '||SQLERRM);
6532: FND_MSG_PUB.Add;
6533:
6530: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
6531: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.ON_ACCOUNT_RECEIPTS : '||SQLERRM);
6532: FND_MSG_PUB.Add;
6533:
6534: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
6535: p_count => x_msg_count,
6536: p_data => x_msg_data
6537: );
6538: RETURN;
6543: /*--------------------------------+
6544: | Standard check of p_commit |
6545: +--------------------------------*/
6546:
6547: IF FND_API.To_Boolean( p_commit )
6548: THEN
6549: IF PG_DEBUG in ('Y', 'C') THEN
6550: arp_util.debug('Apply: ' || 'committing');
6551: END IF;
6554: IF PG_DEBUG in ('Y', 'C') THEN
6555: arp_util.debug('Apply_on_account ()- ');
6556: END IF;
6557: EXCEPTION
6558: WHEN FND_API.G_EXC_ERROR THEN
6559:
6560: IF PG_DEBUG in ('Y', 'C') THEN
6561: arp_util.debug('Apply: ' || SQLCODE, G_MSG_ERROR);
6562: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
6562: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
6563: END IF;
6564:
6565: ROLLBACK TO Apply_on_ac_PVT;
6566: x_return_status := FND_API.G_RET_STS_ERROR ;
6567:
6568: -- Display_Parameters;
6569:
6570: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6566: x_return_status := FND_API.G_RET_STS_ERROR ;
6567:
6568: -- Display_Parameters;
6569:
6570: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6571: p_count => x_msg_count,
6572: p_data => x_msg_data
6573: );
6574:
6571: p_count => x_msg_count,
6572: p_data => x_msg_data
6573: );
6574:
6575: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6576:
6577: IF PG_DEBUG in ('Y', 'C') THEN
6578: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
6579: END IF;
6577: IF PG_DEBUG in ('Y', 'C') THEN
6578: arp_util.debug('Apply: ' || SQLERRM, G_MSG_ERROR);
6579: END IF;
6580: ROLLBACK TO Apply_on_ac_PVT;
6581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6582:
6583: -- Display_Parameters;
6584:
6585: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6582:
6583: -- Display_Parameters;
6584:
6585: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6586: p_count => x_msg_count,
6587: p_data => x_msg_data
6588: );
6589:
6602:
6603: --If only one error message on the stack,
6604: --retrive it
6605:
6606: x_return_status := FND_API.G_RET_STS_ERROR ;
6607: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
6608: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','APPLY_ON_ACCOUNT : '||SQLERRM);
6609: FND_MSG_PUB.Add;
6610:
6609: FND_MSG_PUB.Add;
6610:
6611: --If only one error message on the stack,
6612: --retrive it
6613: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6614: p_count => x_msg_count,
6615: p_data => x_msg_data
6616: );
6617:
6617:
6618: RETURN;
6619:
6620: ELSE
6621: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6622: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
6623: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','APPLY_ON_ACCOUNT : '||SQLERRM);
6624: FND_MSG_PUB.Add;
6625: END IF;
6639: END IF;
6640:
6641: -- Display_Parameters;
6642:
6643: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6644: p_count => x_msg_count,
6645: p_data => x_msg_data
6646: );
6647: END Apply_on_account;
6648:
6649: PROCEDURE Unapply_on_account(
6650: -- Standard API parameters.
6651: p_api_version IN NUMBER,
6652: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6653: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6654: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6655: x_return_status OUT NOCOPY VARCHAR2 ,
6656: x_msg_count OUT NOCOPY NUMBER ,
6649: PROCEDURE Unapply_on_account(
6650: -- Standard API parameters.
6651: p_api_version IN NUMBER,
6652: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6653: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6654: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6655: x_return_status OUT NOCOPY VARCHAR2 ,
6656: x_msg_count OUT NOCOPY NUMBER ,
6657: x_msg_data OUT NOCOPY VARCHAR2 ,
6650: -- Standard API parameters.
6651: p_api_version IN NUMBER,
6652: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6653: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6654: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6655: x_return_status OUT NOCOPY VARCHAR2 ,
6656: x_msg_count OUT NOCOPY NUMBER ,
6657: x_msg_data OUT NOCOPY VARCHAR2 ,
6658: -- *** Receipt Info. parameters *****
6686: /*--------------------------------------------------+
6687: | Standard call to check for call compatibility |
6688: +--------------------------------------------------*/
6689:
6690: IF NOT FND_API.Compatible_API_Call(
6691: l_api_version,
6692: p_api_version,
6693: l_api_name,
6694: G_PKG_NAME
6693: l_api_name,
6694: G_PKG_NAME
6695: )
6696: THEN
6697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6698: END IF;
6699:
6700: /*--------------------------------------------------------------+
6701: | Initialize message list if p_init_msg_list is set to TRUE |
6700: /*--------------------------------------------------------------+
6701: | Initialize message list if p_init_msg_list is set to TRUE |
6702: +--------------------------------------------------------------*/
6703:
6704: IF FND_API.to_Boolean( p_init_msg_list )
6705: THEN
6706: FND_MSG_PUB.initialize;
6707: END IF;
6708:
6712: /*-----------------------------------------+
6713: | Initialize return status to SUCCESS |
6714: +-----------------------------------------*/
6715:
6716: x_return_status := FND_API.G_RET_STS_SUCCESS;
6717:
6718: /* SSA change */
6719: l_org_id := p_org_id;
6720: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
6716: x_return_status := FND_API.G_RET_STS_SUCCESS;
6717:
6718: /* SSA change */
6719: l_org_id := p_org_id;
6720: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
6721: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
6722: p_return_status =>l_org_return_status);
6723: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6724: x_return_status := FND_API.G_RET_STS_ERROR;
6719: l_org_id := p_org_id;
6720: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
6721: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
6722: p_return_status =>l_org_return_status);
6723: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6724: x_return_status := FND_API.G_RET_STS_ERROR;
6725: ELSE
6726:
6727: /*-------------------------------------------------+
6720: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
6721: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
6722: p_return_status =>l_org_return_status);
6723: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6724: x_return_status := FND_API.G_RET_STS_ERROR;
6725: ELSE
6726:
6727: /*-------------------------------------------------+
6728: | Initialize the profile option package variables |
6776: arp_util.debug('Unapply_on_account: ' || 'validation return status :'||l_val_return_status);
6777: END IF;
6778: END IF;
6779:
6780: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
6781: l_def_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6782: x_return_status := FND_API.G_RET_STS_ERROR;
6783: END IF;
6784:
6777: END IF;
6778: END IF;
6779:
6780: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
6781: l_def_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6782: x_return_status := FND_API.G_RET_STS_ERROR;
6783: END IF;
6784:
6785: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
6778: END IF;
6779:
6780: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
6781: l_def_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6782: x_return_status := FND_API.G_RET_STS_ERROR;
6783: END IF;
6784:
6785: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
6786: THEN
6781: l_def_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6782: x_return_status := FND_API.G_RET_STS_ERROR;
6783: END IF;
6784:
6785: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
6786: THEN
6787:
6788: ROLLBACK TO Unapply_on_ac_PVT;
6789:
6786: THEN
6787:
6788: ROLLBACK TO Unapply_on_ac_PVT;
6789:
6790: x_return_status := FND_API.G_RET_STS_ERROR ;
6791:
6792: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6793: p_count => x_msg_count,
6794: p_data => x_msg_data
6788: ROLLBACK TO Unapply_on_ac_PVT;
6789:
6790: x_return_status := FND_API.G_RET_STS_ERROR ;
6791:
6792: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6793: p_count => x_msg_count,
6794: p_data => x_msg_data
6795: );
6796:
6832: THEN
6833: ROLLBACK TO Unapply_on_ac_PVT;
6834:
6835: -- Display_Parameters;
6836: x_return_status := FND_API.G_RET_STS_ERROR ;
6837: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
6838: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.REVERSE : '||SQLERRM);
6839: FND_MSG_PUB.Add;
6840:
6837: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
6838: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.REVERSE : '||SQLERRM);
6839: FND_MSG_PUB.Add;
6840:
6841: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
6842: p_count => x_msg_count,
6843: p_data => x_msg_data
6844: );
6845: RETURN;
6851: /*--------------------------------+
6852: | Standard check of p_commit |
6853: +--------------------------------*/
6854:
6855: IF FND_API.To_Boolean( p_commit )
6856: THEN
6857: IF PG_DEBUG in ('Y', 'C') THEN
6858: arp_util.debug('Unapply_on_account: ' || 'committing');
6859: END IF;
6865: END IF;
6866:
6867:
6868: EXCEPTION
6869: WHEN FND_API.G_EXC_ERROR THEN
6870:
6871: IF PG_DEBUG in ('Y', 'C') THEN
6872: arp_util.debug('Unapply_on_account: ' || SQLCODE, G_MSG_ERROR);
6873: arp_util.debug('Unapply_on_account: ' || SQLERRM, G_MSG_ERROR);
6873: arp_util.debug('Unapply_on_account: ' || SQLERRM, G_MSG_ERROR);
6874: END IF;
6875:
6876: ROLLBACK TO Unapply_on_ac_PVT;
6877: x_return_status := FND_API.G_RET_STS_ERROR ;
6878:
6879: -- Display_Parameters;
6880:
6881: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6877: x_return_status := FND_API.G_RET_STS_ERROR ;
6878:
6879: -- Display_Parameters;
6880:
6881: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6882: p_count => x_msg_count,
6883: p_data => x_msg_data
6884: );
6885:
6882: p_count => x_msg_count,
6883: p_data => x_msg_data
6884: );
6885:
6886: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6887:
6888: IF PG_DEBUG in ('Y', 'C') THEN
6889: arp_util.debug('Unapply_on_account: ' || SQLERRM, G_MSG_ERROR);
6890: END IF;
6888: IF PG_DEBUG in ('Y', 'C') THEN
6889: arp_util.debug('Unapply_on_account: ' || SQLERRM, G_MSG_ERROR);
6890: END IF;
6891: ROLLBACK TO Unapply_on_ac_PVT;
6892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6893:
6894: -- Display_Parameters;
6895:
6896: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6893:
6894: -- Display_Parameters;
6895:
6896: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6897: p_count => x_msg_count,
6898: p_data => x_msg_data
6899: );
6900:
6913:
6914: --If only one error message on the stack,
6915: --retrive it
6916:
6917: x_return_status := FND_API.G_RET_STS_ERROR ;
6918: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
6919: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','UNAPPLY_ON_ACCOUNT : '||SQLERRM);
6920: FND_MSG_PUB.Add;
6921: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6917: x_return_status := FND_API.G_RET_STS_ERROR ;
6918: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
6919: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','UNAPPLY_ON_ACCOUNT : '||SQLERRM);
6920: FND_MSG_PUB.Add;
6921: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6922: p_count => x_msg_count,
6923: p_data => x_msg_data
6924: );
6925:
6925:
6926: RETURN;
6927:
6928: ELSE
6929: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6930: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
6931: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','UNAPPLY_ON_ACCOUNT : '||SQLERRM);
6932: FND_MSG_PUB.Add;
6933: END IF;
6947: END IF;
6948:
6949: -- Display_Parameters;
6950:
6951: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
6952: p_count => x_msg_count,
6953: p_data => x_msg_data
6954: );
6955: END Unapply_on_account;
6956:
6957: PROCEDURE Unapply_other_account(
6958: -- Standard API parameters.
6959: p_api_version IN NUMBER,
6960: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6961: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6962: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6963: x_return_status OUT NOCOPY VARCHAR2 ,
6964: x_msg_count OUT NOCOPY NUMBER ,
6957: PROCEDURE Unapply_other_account(
6958: -- Standard API parameters.
6959: p_api_version IN NUMBER,
6960: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6961: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6962: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6963: x_return_status OUT NOCOPY VARCHAR2 ,
6964: x_msg_count OUT NOCOPY NUMBER ,
6965: x_msg_data OUT NOCOPY VARCHAR2 ,
6958: -- Standard API parameters.
6959: p_api_version IN NUMBER,
6960: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6961: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6962: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6963: x_return_status OUT NOCOPY VARCHAR2 ,
6964: x_msg_count OUT NOCOPY NUMBER ,
6965: x_msg_data OUT NOCOPY VARCHAR2 ,
6966: -- *** Receipt Info. parameters *****
7004: /*--------------------------------------------------+
7005: | Standard call to check for call compatibility |
7006: +--------------------------------------------------*/
7007:
7008: IF NOT FND_API.Compatible_API_Call(
7009: p_current_version_number => l_api_version,
7010: p_caller_version_number => p_api_version,
7011: p_api_name => l_api_name,
7012: p_pkg_name => G_PKG_NAME
7011: p_api_name => l_api_name,
7012: p_pkg_name => G_PKG_NAME
7013: )
7014: THEN
7015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7016: END IF;
7017:
7018: /*--------------------------------------------------------------+
7019: | Initialize message list if p_init_msg_list is set to TRUE |
7018: /*--------------------------------------------------------------+
7019: | Initialize message list if p_init_msg_list is set to TRUE |
7020: +--------------------------------------------------------------*/
7021:
7022: IF FND_API.to_Boolean( p_init_msg_list )
7023: THEN
7024: FND_MSG_PUB.initialize;
7025: END IF;
7026:
7030: /*-----------------------------------------+
7031: | Initialize return status to SUCCESS |
7032: +-----------------------------------------*/
7033:
7034: x_return_status := FND_API.G_RET_STS_SUCCESS;
7035:
7036: /* SSA change */
7037: l_org_id := p_org_id;
7038: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
7034: x_return_status := FND_API.G_RET_STS_SUCCESS;
7035:
7036: /* SSA change */
7037: l_org_id := p_org_id;
7038: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
7039: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
7040: p_return_status =>l_org_return_status);
7041: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7042: x_return_status := FND_API.G_RET_STS_ERROR;
7037: l_org_id := p_org_id;
7038: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
7039: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
7040: p_return_status =>l_org_return_status);
7041: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7042: x_return_status := FND_API.G_RET_STS_ERROR;
7043: ELSE
7044: /*-------------------------------------------------+
7045: | Initialize the profile option package variables |
7038: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
7039: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
7040: p_return_status =>l_org_return_status);
7041: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7042: x_return_status := FND_API.G_RET_STS_ERROR;
7043: ELSE
7044: /*-------------------------------------------------+
7045: | Initialize the profile option package variables |
7046: +-------------------------------------------------*/
7112: -- Bug 2270809 , bug 2751910
7113: -- If a claim investigation app, then update the claim.
7114: -- Bug 3708728: update_claim not called if validation errors exist
7115:
7116: IF (l_val_return_status = FND_API.G_RET_STS_SUCCESS AND
7117: l_def_return_status = FND_API.G_RET_STS_SUCCESS AND
7118: l_applied_ps_id = -4 AND
7119: NVL(p_called_from,'RAPI') <> 'TRADE_MANAGEMENT')
7120: THEN
7113: -- If a claim investigation app, then update the claim.
7114: -- Bug 3708728: update_claim not called if validation errors exist
7115:
7116: IF (l_val_return_status = FND_API.G_RET_STS_SUCCESS AND
7117: l_def_return_status = FND_API.G_RET_STS_SUCCESS AND
7118: l_applied_ps_id = -4 AND
7119: NVL(p_called_from,'RAPI') <> 'TRADE_MANAGEMENT')
7120: THEN
7121: /* Bug 4170060 do not update with claim balance for partial
7147: arp_util.debug('Unapply_other_account: ' || 'validation return status :'||l_val_return_status);
7148: END IF;
7149: END IF;
7150:
7151: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
7152: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
7153: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7154: x_return_status := FND_API.G_RET_STS_ERROR;
7155: END IF;
7148: END IF;
7149: END IF;
7150:
7151: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
7152: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
7153: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7154: x_return_status := FND_API.G_RET_STS_ERROR;
7155: END IF;
7156:
7149: END IF;
7150:
7151: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
7152: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
7153: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7154: x_return_status := FND_API.G_RET_STS_ERROR;
7155: END IF;
7156:
7157: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
7150:
7151: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
7152: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
7153: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7154: x_return_status := FND_API.G_RET_STS_ERROR;
7155: END IF;
7156:
7157: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
7158: THEN
7153: l_clm_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7154: x_return_status := FND_API.G_RET_STS_ERROR;
7155: END IF;
7156:
7157: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
7158: THEN
7159:
7160: ROLLBACK TO Unapply_other_ac_PVT;
7161:
7158: THEN
7159:
7160: ROLLBACK TO Unapply_other_ac_PVT;
7161:
7162: x_return_status := FND_API.G_RET_STS_ERROR ;
7163:
7164: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7165: p_count => x_msg_count,
7166: p_data => x_msg_data
7160: ROLLBACK TO Unapply_other_ac_PVT;
7161:
7162: x_return_status := FND_API.G_RET_STS_ERROR ;
7163:
7164: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7165: p_count => x_msg_count,
7166: p_data => x_msg_data
7167: );
7168:
7216: THEN
7217: ROLLBACK TO Unapply_other_ac_PVT;
7218:
7219: -- Display_Parameters;
7220: x_return_status := FND_API.G_RET_STS_ERROR ;
7221: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
7222: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.REVERSE : '||SQLERRM);
7223: FND_MSG_PUB.Add;
7224:
7221: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
7222: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.REVERSE : '||SQLERRM);
7223: FND_MSG_PUB.Add;
7224:
7225: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
7226: p_count => x_msg_count,
7227: p_data => x_msg_data
7228: );
7229: RETURN;
7235: /*--------------------------------+
7236: | Standard check of p_commit |
7237: +--------------------------------*/
7238:
7239: IF FND_API.To_Boolean( p_commit )
7240: THEN
7241: IF PG_DEBUG in ('Y', 'C') THEN
7242: arp_util.debug('Unapply_other_account: ' || 'committing');
7243: END IF;
7249: END IF;
7250:
7251:
7252: EXCEPTION
7253: WHEN FND_API.G_EXC_ERROR THEN
7254:
7255: IF PG_DEBUG in ('Y', 'C') THEN
7256: arp_util.debug('Unapply_other_account: ' || SQLCODE, G_MSG_ERROR);
7257: arp_util.debug('Unapply_other_account: ' || SQLERRM, G_MSG_ERROR);
7257: arp_util.debug('Unapply_other_account: ' || SQLERRM, G_MSG_ERROR);
7258: END IF;
7259:
7260: ROLLBACK TO Unapply_other_ac_PVT;
7261: x_return_status := FND_API.G_RET_STS_ERROR ;
7262:
7263: -- Display_Parameters;
7264:
7265: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7261: x_return_status := FND_API.G_RET_STS_ERROR ;
7262:
7263: -- Display_Parameters;
7264:
7265: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7266: p_count => x_msg_count,
7267: p_data => x_msg_data
7268: );
7269:
7266: p_count => x_msg_count,
7267: p_data => x_msg_data
7268: );
7269:
7270: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7271:
7272: IF PG_DEBUG in ('Y', 'C') THEN
7273: arp_util.debug('Unapply_other_account: ' || SQLERRM, G_MSG_ERROR);
7274: END IF;
7272: IF PG_DEBUG in ('Y', 'C') THEN
7273: arp_util.debug('Unapply_other_account: ' || SQLERRM, G_MSG_ERROR);
7274: END IF;
7275: ROLLBACK TO Unapply_other_ac_PVT;
7276: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7277:
7278: -- Display_Parameters;
7279:
7280: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7276: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7277:
7278: -- Display_Parameters;
7279:
7280: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7281: p_count => x_msg_count,
7282: p_data => x_msg_data
7283: );
7284:
7297:
7298: --If only one error message on the stack,
7299: --retrive it
7300:
7301: x_return_status := FND_API.G_RET_STS_ERROR ;
7302: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
7303: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','UNAPPLY_ON_ACCOUNT : '||SQLERRM);
7304: FND_MSG_PUB.Add;
7305: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7301: x_return_status := FND_API.G_RET_STS_ERROR ;
7302: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
7303: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','UNAPPLY_ON_ACCOUNT : '||SQLERRM);
7304: FND_MSG_PUB.Add;
7305: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7306: p_count => x_msg_count,
7307: p_data => x_msg_data
7308: );
7309:
7309:
7310: RETURN;
7311:
7312: ELSE
7313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7314: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
7315: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','UNAPPLY_OTHER_ACCOUNT : '||SQLERRM);
7316: FND_MSG_PUB.Add;
7317: END IF;
7331: END IF;
7332:
7333: -- Display_Parameters;
7334:
7335: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7336: p_count => x_msg_count,
7337: p_data => x_msg_data
7338: );
7339: END Unapply_other_account;
7340:
7341: PROCEDURE Activity_application(
7342: -- Standard API parameters.
7343: p_api_version IN NUMBER,
7344: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7345: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7346: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7347: x_return_status OUT NOCOPY VARCHAR2,
7348: x_msg_count OUT NOCOPY NUMBER,
7341: PROCEDURE Activity_application(
7342: -- Standard API parameters.
7343: p_api_version IN NUMBER,
7344: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7345: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7346: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7347: x_return_status OUT NOCOPY VARCHAR2,
7348: x_msg_count OUT NOCOPY NUMBER,
7349: x_msg_data OUT NOCOPY VARCHAR2,
7342: -- Standard API parameters.
7343: p_api_version IN NUMBER,
7344: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7345: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7346: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7347: x_return_status OUT NOCOPY VARCHAR2,
7348: x_msg_count OUT NOCOPY NUMBER,
7349: x_msg_data OUT NOCOPY VARCHAR2,
7350: -- Receipt application parameters.
7449: l_called_from varchar2(20); /*5444407*/
7450:
7451: --Bug8290172 Changes Start Here
7452: l_term_id ap_invoices_interface.TERMS_ID%TYPE;
7453: l_pay_term_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
7454: l_pay_priority_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
7455: --Bug8290172 Changes End Here
7456:
7457: BEGIN
7450:
7451: --Bug8290172 Changes Start Here
7452: l_term_id ap_invoices_interface.TERMS_ID%TYPE;
7453: l_pay_term_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
7454: l_pay_priority_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
7455: --Bug8290172 Changes End Here
7456:
7457: BEGIN
7458: l_called_from:=p_called_from; /*5444407*/
7466: /*--------------------------------------------------+
7467: | Standard call to check for call compatibility |
7468: +--------------------------------------------------*/
7469:
7470: IF NOT FND_API.Compatible_API_Call(
7471: l_api_version,
7472: p_api_version,
7473: l_api_name,
7474: G_PKG_NAME
7473: l_api_name,
7474: G_PKG_NAME
7475: )
7476: THEN
7477: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7478: END IF;
7479:
7480: /*--------------------------------------------------------------+
7481: | Initialize message list if p_init_msg_list is set to TRUE |
7480: /*--------------------------------------------------------------+
7481: | Initialize message list if p_init_msg_list is set to TRUE |
7482: +--------------------------------------------------------------*/
7483:
7484: IF FND_API.to_Boolean( p_init_msg_list )
7485: THEN
7486: FND_MSG_PUB.initialize;
7487: END IF;
7488:
7492: /*-----------------------------------------+
7493: | Initialize return status to SUCCESS |
7494: +-----------------------------------------*/
7495:
7496: x_return_status := FND_API.G_RET_STS_SUCCESS;
7497:
7498:
7499:
7500:
7499:
7500:
7501: /* SSA change */
7502: l_org_id := p_org_id;
7503: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
7504:
7505: /*Bug 11705172 Changed to set org_context only when org_id is not same when called from writeoff*/
7506: IF l_called_from = 'WRITEOFF' THEN
7507: IF nvl(mo_global.get_current_org_id,-99) <> l_org_id THEN
7514: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
7515: p_return_status =>l_org_return_status);
7516:
7517: END IF;
7518: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7519: x_return_status := FND_API.G_RET_STS_ERROR;
7520: ELSE
7521: /*-------------------------------------------------+
7522: | Initialize the profile option package variables |
7515: p_return_status =>l_org_return_status);
7516:
7517: END IF;
7518: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7519: x_return_status := FND_API.G_RET_STS_ERROR;
7520: ELSE
7521: /*-------------------------------------------------+
7522: | Initialize the profile option package variables |
7523: +-------------------------------------------------*/
7678: FROM ap_terms_bat_pay_terms_v
7679: WHERE term_id = p_terms_id;
7680: EXCEPTION
7681: WHEN OTHERS THEN
7682: l_pay_term_return_status := FND_API.G_RET_STS_ERROR ;
7683:
7684: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
7685: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','Invalid Payment Term');
7686: FND_MSG_PUB.Add;
7694: -- Validate Payment Priority. It Should be between 1 to 99
7695: IF p_payment_priority IS NOT NULL THEN
7696: IF p_payment_priority < 1 OR p_payment_priority > 99 THEN
7697:
7698: l_pay_priority_return_status := FND_API.G_RET_STS_ERROR ;
7699:
7700: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
7701: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','Payment Priority Not In Range(1-99)');
7702: FND_MSG_PUB.Add;
7707: END IF;
7708: END IF;
7709: -- Bug8290172 Changes End Here
7710:
7711: IF l_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
7712: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
7713: l_dft_ref_return_status <> FND_API.G_RET_STS_SUCCESS OR
7714: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
7715: l_pay_term_return_status <> FND_API.G_RET_STS_SUCCESS OR -- Bug8290172
7708: END IF;
7709: -- Bug8290172 Changes End Here
7710:
7711: IF l_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
7712: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
7713: l_dft_ref_return_status <> FND_API.G_RET_STS_SUCCESS OR
7714: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
7715: l_pay_term_return_status <> FND_API.G_RET_STS_SUCCESS OR -- Bug8290172
7716: l_pay_priority_return_status <> FND_API.G_RET_STS_SUCCESS THEN -- Bug8290172
7709: -- Bug8290172 Changes End Here
7710:
7711: IF l_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
7712: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
7713: l_dft_ref_return_status <> FND_API.G_RET_STS_SUCCESS OR
7714: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
7715: l_pay_term_return_status <> FND_API.G_RET_STS_SUCCESS OR -- Bug8290172
7716: l_pay_priority_return_status <> FND_API.G_RET_STS_SUCCESS THEN -- Bug8290172
7717:
7710:
7711: IF l_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
7712: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
7713: l_dft_ref_return_status <> FND_API.G_RET_STS_SUCCESS OR
7714: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
7715: l_pay_term_return_status <> FND_API.G_RET_STS_SUCCESS OR -- Bug8290172
7716: l_pay_priority_return_status <> FND_API.G_RET_STS_SUCCESS THEN -- Bug8290172
7717:
7718: IF PG_DEBUG in ('Y', 'C') THEN
7711: IF l_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
7712: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
7713: l_dft_ref_return_status <> FND_API.G_RET_STS_SUCCESS OR
7714: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
7715: l_pay_term_return_status <> FND_API.G_RET_STS_SUCCESS OR -- Bug8290172
7716: l_pay_priority_return_status <> FND_API.G_RET_STS_SUCCESS THEN -- Bug8290172
7717:
7718: IF PG_DEBUG in ('Y', 'C') THEN
7719: arp_util.debug('Activity_application: ' || 'Validation FAILED ');
7712: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
7713: l_dft_ref_return_status <> FND_API.G_RET_STS_SUCCESS OR
7714: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
7715: l_pay_term_return_status <> FND_API.G_RET_STS_SUCCESS OR -- Bug8290172
7716: l_pay_priority_return_status <> FND_API.G_RET_STS_SUCCESS THEN -- Bug8290172
7717:
7718: IF PG_DEBUG in ('Y', 'C') THEN
7719: arp_util.debug('Activity_application: ' || 'Validation FAILED ');
7720: END IF;
7717:
7718: IF PG_DEBUG in ('Y', 'C') THEN
7719: arp_util.debug('Activity_application: ' || 'Validation FAILED ');
7720: END IF;
7721: x_return_status := FND_API.G_RET_STS_ERROR;
7722: END IF;
7723:
7724: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
7725: THEN
7720: END IF;
7721: x_return_status := FND_API.G_RET_STS_ERROR;
7722: END IF;
7723:
7724: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
7725: THEN
7726:
7727: ROLLBACK TO Activity_app_PVT;
7728:
7725: THEN
7726:
7727: ROLLBACK TO Activity_app_PVT;
7728:
7729: x_return_status := FND_API.G_RET_STS_ERROR ;
7730:
7731: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7732: p_count => x_msg_count,
7733: p_data => x_msg_data
7727: ROLLBACK TO Activity_app_PVT;
7728:
7729: x_return_status := FND_API.G_RET_STS_ERROR ;
7730:
7731: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7732: p_count => x_msg_count,
7733: p_data => x_msg_data
7734: );
7735:
7822: THEN
7823: ROLLBACK TO Activity_app_PVT;
7824:
7825: -- Display_Parameters;
7826: x_return_status := FND_API.G_RET_STS_ERROR ;
7827: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
7828: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.ACTIVITY_APPLICATION : '||SQLERRM);
7829: FND_MSG_PUB.Add;
7830:
7827: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
7828: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.ACTIVITY_APPLICATION : '||SQLERRM);
7829: FND_MSG_PUB.Add;
7830:
7831: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
7832: p_count => x_msg_count,
7833: p_data => x_msg_data
7834: );
7835: RETURN;
7890: THEN
7891: ROLLBACK TO Activity_app_PVT;
7892:
7893: -- Display_Parameters;
7894: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7895: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
7896: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','AR_REFUNDS_PVT.Create_Refund : '||SQLERRM);
7897: FND_MSG_PUB.Add;
7898:
7895: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
7896: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','AR_REFUNDS_PVT.Create_Refund : '||SQLERRM);
7897: FND_MSG_PUB.Add;
7898:
7899: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
7900: p_count => x_msg_count,
7901: p_data => x_msg_data
7902: );
7903: RETURN;
7914: /*--------------------------------+
7915: | Standard check of p_commit |
7916: +--------------------------------*/
7917:
7918: IF FND_API.To_Boolean( p_commit )
7919: THEN
7920: IF PG_DEBUG in ('Y', 'C') THEN
7921: arp_util.debug('Activity_application: ' || 'committing');
7922: END IF;
7925: IF PG_DEBUG in ('Y', 'C') THEN
7926: arp_util.debug('Activity_application ()- ');
7927: END IF;
7928: EXCEPTION
7929: WHEN FND_API.G_EXC_ERROR THEN
7930:
7931: IF PG_DEBUG in ('Y', 'C') THEN
7932: arp_util.debug('Activity_application: ' || SQLCODE, G_MSG_ERROR);
7933: arp_util.debug('Activity_application: ' || SQLERRM, G_MSG_ERROR);
7933: arp_util.debug('Activity_application: ' || SQLERRM, G_MSG_ERROR);
7934: END IF;
7935:
7936: ROLLBACK TO Activity_app_PVT;
7937: x_return_status := FND_API.G_RET_STS_ERROR ;
7938:
7939: -- Display_Parameters;
7940:
7941: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7937: x_return_status := FND_API.G_RET_STS_ERROR ;
7938:
7939: -- Display_Parameters;
7940:
7941: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7942: p_count => x_msg_count,
7943: p_data => x_msg_data
7944: );
7945:
7942: p_count => x_msg_count,
7943: p_data => x_msg_data
7944: );
7945:
7946: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7947:
7948: IF PG_DEBUG in ('Y', 'C') THEN
7949: arp_util.debug('Activity_application: ' || SQLERRM, G_MSG_ERROR);
7950: END IF;
7948: IF PG_DEBUG in ('Y', 'C') THEN
7949: arp_util.debug('Activity_application: ' || SQLERRM, G_MSG_ERROR);
7950: END IF;
7951: ROLLBACK TO Activity_app_PVT;
7952: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7953:
7954: -- Display_Parameters;
7955:
7956: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7952: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7953:
7954: -- Display_Parameters;
7955:
7956: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7957: p_count => x_msg_count,
7958: p_data => x_msg_data
7959: );
7960:
7973:
7974: --If only one error message on the stack,
7975: --retrive it
7976:
7977: x_return_status := FND_API.G_RET_STS_ERROR ;
7978: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
7979: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ACTIVITY_APPLICATION : '||SQLERRM);
7980: FND_MSG_PUB.Add;
7981:
7981:
7982: --If only one error message on the stack,
7983: --retrive it
7984:
7985: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
7986: p_count => x_msg_count,
7987: p_data => x_msg_data
7988: );
7989:
7989:
7990: RETURN;
7991:
7992: ELSE
7993: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7994: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
7995: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ACTIVITY_APPLICATION : '||SQLERRM);
7996: FND_MSG_PUB.Add;
7997: END IF;
8011: END IF;
8012:
8013: -- Display_Parameters;
8014:
8015: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
8016: p_count => x_msg_count,
8017: p_data => x_msg_data
8018: );
8019: END Activity_application;
8020:
8021: PROCEDURE Activity_Unapplication(
8022: -- Standard API parameters.
8023: p_api_version IN NUMBER,
8024: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8025: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8026: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8027: x_return_status OUT NOCOPY VARCHAR2 ,
8028: x_msg_count OUT NOCOPY NUMBER ,
8021: PROCEDURE Activity_Unapplication(
8022: -- Standard API parameters.
8023: p_api_version IN NUMBER,
8024: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8025: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8026: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8027: x_return_status OUT NOCOPY VARCHAR2 ,
8028: x_msg_count OUT NOCOPY NUMBER ,
8029: x_msg_data OUT NOCOPY VARCHAR2 ,
8022: -- Standard API parameters.
8023: p_api_version IN NUMBER,
8024: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8025: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8026: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8027: x_return_status OUT NOCOPY VARCHAR2 ,
8028: x_msg_count OUT NOCOPY NUMBER ,
8029: x_msg_data OUT NOCOPY VARCHAR2 ,
8030: -- *** Receipt Info. parameters *****
8062: /*--------------------------------------------------+
8063: | Standard call to check for call compatibility |
8064: +--------------------------------------------------*/
8065:
8066: IF NOT FND_API.Compatible_API_Call(
8067: l_api_version,
8068: p_api_version,
8069: l_api_name,
8070: G_PKG_NAME
8069: l_api_name,
8070: G_PKG_NAME
8071: )
8072: THEN
8073: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8074: END IF;
8075:
8076: /*--------------------------------------------------------------+
8077: | Initialize message list if p_init_msg_list is set to TRUE |
8076: /*--------------------------------------------------------------+
8077: | Initialize message list if p_init_msg_list is set to TRUE |
8078: +--------------------------------------------------------------*/
8079:
8080: IF FND_API.to_Boolean( p_init_msg_list )
8081: THEN
8082: FND_MSG_PUB.initialize;
8083: END IF;
8084:
8088: /*-----------------------------------------+
8089: | Initialize return status to SUCCESS |
8090: +-----------------------------------------*/
8091:
8092: x_return_status := FND_API.G_RET_STS_SUCCESS;
8093:
8094:
8095:
8096: /* SSA change */
8094:
8095:
8096: /* SSA change */
8097: l_org_id := p_org_id;
8098: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
8099: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
8100: p_return_status =>l_org_return_status);
8101: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8102: x_return_status := FND_API.G_RET_STS_ERROR;
8097: l_org_id := p_org_id;
8098: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
8099: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
8100: p_return_status =>l_org_return_status);
8101: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8102: x_return_status := FND_API.G_RET_STS_ERROR;
8103: ELSE
8104:
8105: /*-------------------------------------------------+
8098: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
8099: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
8100: p_return_status =>l_org_return_status);
8101: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8102: x_return_status := FND_API.G_RET_STS_ERROR;
8103: ELSE
8104:
8105: /*-------------------------------------------------+
8106: | Initialize the profile option package variables |
8178: , x_msg_data => x_msg_data);
8179: END IF;
8180:
8181:
8182: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
8183: l_refund_return_status <> FND_API.G_RET_STS_SUCCESS OR
8184: l_def_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8185: x_return_status := FND_API.G_RET_STS_ERROR;
8186: END IF;
8179: END IF;
8180:
8181:
8182: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
8183: l_refund_return_status <> FND_API.G_RET_STS_SUCCESS OR
8184: l_def_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8185: x_return_status := FND_API.G_RET_STS_ERROR;
8186: END IF;
8187:
8180:
8181:
8182: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
8183: l_refund_return_status <> FND_API.G_RET_STS_SUCCESS OR
8184: l_def_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8185: x_return_status := FND_API.G_RET_STS_ERROR;
8186: END IF;
8187:
8188: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
8181:
8182: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
8183: l_refund_return_status <> FND_API.G_RET_STS_SUCCESS OR
8184: l_def_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8185: x_return_status := FND_API.G_RET_STS_ERROR;
8186: END IF;
8187:
8188: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
8189: THEN
8184: l_def_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8185: x_return_status := FND_API.G_RET_STS_ERROR;
8186: END IF;
8187:
8188: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
8189: THEN
8190:
8191: ROLLBACK TO Activity_unapplication_PVT;
8192:
8189: THEN
8190:
8191: ROLLBACK TO Activity_unapplication_PVT;
8192:
8193: x_return_status := FND_API.G_RET_STS_ERROR ;
8194:
8195: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
8196: p_count => x_msg_count,
8197: p_data => x_msg_data
8191: ROLLBACK TO Activity_unapplication_PVT;
8192:
8193: x_return_status := FND_API.G_RET_STS_ERROR ;
8194:
8195: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
8196: p_count => x_msg_count,
8197: p_data => x_msg_data
8198: );
8199:
8235: THEN
8236: ROLLBACK TO Activity_unapplication_PVT;
8237:
8238: -- Display_Parameters;
8239: x_return_status := FND_API.G_RET_STS_ERROR ;
8240: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
8241: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.REVERSE : '||SQLERRM);
8242: FND_MSG_PUB.Add;
8243:
8240: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
8241: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.REVERSE : '||SQLERRM);
8242: FND_MSG_PUB.Add;
8243:
8244: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
8245: p_count => x_msg_count,
8246: p_data => x_msg_data
8247: );
8248: RETURN;
8254: /*--------------------------------+
8255: | Standard check of p_commit |
8256: +--------------------------------*/
8257:
8258: IF FND_API.To_Boolean( p_commit )
8259: THEN
8260: IF PG_DEBUG in ('Y', 'C') THEN
8261: arp_util.debug('Activity_Unapplication: ' || 'committing');
8262: END IF;
8268: END IF;
8269:
8270:
8271: EXCEPTION
8272: WHEN FND_API.G_EXC_ERROR THEN
8273:
8274: IF PG_DEBUG in ('Y', 'C') THEN
8275: arp_util.debug('Activity_Unapplication: ' || SQLCODE, G_MSG_ERROR);
8276: arp_util.debug('Activity_Unapplication: ' || SQLERRM, G_MSG_ERROR);
8276: arp_util.debug('Activity_Unapplication: ' || SQLERRM, G_MSG_ERROR);
8277: END IF;
8278:
8279: ROLLBACK TO Activity_unapplication_PVT;
8280: x_return_status := FND_API.G_RET_STS_ERROR ;
8281:
8282: -- Display_Parameters;
8283:
8284: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
8280: x_return_status := FND_API.G_RET_STS_ERROR ;
8281:
8282: -- Display_Parameters;
8283:
8284: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
8285: p_count => x_msg_count,
8286: p_data => x_msg_data
8287: );
8288:
8285: p_count => x_msg_count,
8286: p_data => x_msg_data
8287: );
8288:
8289: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8290:
8291: IF PG_DEBUG in ('Y', 'C') THEN
8292: arp_util.debug('Activity_Unapplication: ' || SQLERRM, G_MSG_ERROR);
8293: END IF;
8291: IF PG_DEBUG in ('Y', 'C') THEN
8292: arp_util.debug('Activity_Unapplication: ' || SQLERRM, G_MSG_ERROR);
8293: END IF;
8294: ROLLBACK TO Activity_unapplication_PVT;
8295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8296:
8297: -- Display_Parameters;
8298:
8299: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
8295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8296:
8297: -- Display_Parameters;
8298:
8299: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
8300: p_count => x_msg_count,
8301: p_data => x_msg_data
8302: );
8303:
8313: THEN
8314:
8315: ROLLBACK TO Activity_unapplication_PVT;
8316:
8317: x_return_status := FND_API.G_RET_STS_ERROR ;
8318: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
8319: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ACTIVITY_UNAPPLICATION : '||SQLERRM);
8320: FND_MSG_PUB.Add;
8321:
8320: FND_MSG_PUB.Add;
8321:
8322: --If only one error message on the stack,
8323: --retrive it
8324: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
8325: p_count => x_msg_count,
8326: p_data => x_msg_data
8327: );
8328:
8328:
8329: RETURN;
8330:
8331: ELSE
8332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8333: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
8334: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ACTIVITY_UNAPPLICATION : '||SQLERRM);
8335: FND_MSG_PUB.Add;
8336: END IF;
8350: END IF;
8351:
8352: -- Display_Parameters;
8353:
8354: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
8355: p_count => x_msg_count,
8356: p_data => x_msg_data
8357: );
8358: END Activity_unapplication;
8359:
8360: PROCEDURE Apply_other_account(
8361: -- Standard API parameters.
8362: p_api_version IN NUMBER,
8363: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8364: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8365: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8366: x_return_status OUT NOCOPY VARCHAR2,
8367: x_msg_count OUT NOCOPY NUMBER,
8360: PROCEDURE Apply_other_account(
8361: -- Standard API parameters.
8362: p_api_version IN NUMBER,
8363: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8364: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8365: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8366: x_return_status OUT NOCOPY VARCHAR2,
8367: x_msg_count OUT NOCOPY NUMBER,
8368: x_msg_data OUT NOCOPY VARCHAR2,
8361: -- Standard API parameters.
8362: p_api_version IN NUMBER,
8363: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8364: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8365: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8366: x_return_status OUT NOCOPY VARCHAR2,
8367: x_msg_count OUT NOCOPY NUMBER,
8368: x_msg_data OUT NOCOPY VARCHAR2,
8369: p_receivable_application_id OUT NOCOPY ar_receivable_applications.receivable_application_id%TYPE,
8410: l_attribute_rec attribute_rec_type;
8411: l_cr_currency_code VARCHAR2(15);
8412: l_receivables_trx_id NUMBER;
8413: l_applied_payment_schedule_id ar_receivable_applications.applied_payment_schedule_id%TYPE;
8414: l_gdflex_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8415: l_global_attribute_rec global_attribute_rec_type;
8416:
8417: -- Bug # 2707702
8418: l_temp_ref_id ar_receivable_applications.application_ref_id%TYPE;
8432: /*--------------------------------------------------+
8433: | Standard call to check for call compatibility |
8434: +--------------------------------------------------*/
8435:
8436: IF NOT FND_API.Compatible_API_Call(
8437: l_api_version,
8438: p_api_version,
8439: l_api_name,
8440: G_PKG_NAME
8439: l_api_name,
8440: G_PKG_NAME
8441: )
8442: THEN
8443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8444: END IF;
8445:
8446: /*--------------------------------------------------------------+
8447: | Initialize message list if p_init_msg_list is set to TRUE |
8446: /*--------------------------------------------------------------+
8447: | Initialize message list if p_init_msg_list is set to TRUE |
8448: +--------------------------------------------------------------*/
8449:
8450: IF FND_API.to_Boolean( p_init_msg_list )
8451: THEN
8452: FND_MSG_PUB.initialize;
8453: END IF;
8454:
8456: /*-----------------------------------------+
8457: | Initialize return status to SUCCESS |
8458: +-----------------------------------------*/
8459:
8460: x_return_status := FND_API.G_RET_STS_SUCCESS;
8461:
8462:
8463:
8464:
8463:
8464:
8465: /* SSA change */
8466: l_org_id := p_org_id;
8467: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
8468: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
8469: p_return_status =>l_org_return_status);
8470: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8471: x_return_status := FND_API.G_RET_STS_ERROR;
8466: l_org_id := p_org_id;
8467: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
8468: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
8469: p_return_status =>l_org_return_status);
8470: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8471: x_return_status := FND_API.G_RET_STS_ERROR;
8472: ELSE
8473: /*-------------------------------------------------+
8474: | Initialize the profile option package variables |
8467: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
8468: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
8469: p_return_status =>l_org_return_status);
8470: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8471: x_return_status := FND_API.G_RET_STS_ERROR;
8472: ELSE
8473: /*-------------------------------------------------+
8474: | Initialize the profile option package variables |
8475: +-------------------------------------------------*/
8617: arp_util.debug('l_apply_gl_date : '||to_char(l_apply_gl_date,'DD-MON-YY'));
8618: END IF;
8619:
8620:
8621: IF l_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
8622: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
8623: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
8624: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
8625: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
8618: END IF;
8619:
8620:
8621: IF l_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
8622: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
8623: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
8624: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
8625: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
8626: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8619:
8620:
8621: IF l_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
8622: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
8623: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
8624: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
8625: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
8626: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8627:
8620:
8621: IF l_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
8622: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
8623: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
8624: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
8625: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
8626: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8627:
8628: x_return_status := FND_API.G_RET_STS_ERROR;
8621: IF l_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
8622: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
8623: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
8624: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
8625: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
8626: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8627:
8628: x_return_status := FND_API.G_RET_STS_ERROR;
8629: END IF;
8622: l_app_validation_return_status <> FND_API.G_RET_STS_SUCCESS OR
8623: l_default_return_status <> FND_API.G_RET_STS_SUCCESS OR
8624: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
8625: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
8626: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8627:
8628: x_return_status := FND_API.G_RET_STS_ERROR;
8629: END IF;
8630:
8624: l_id_conv_return_status <> FND_API.G_RET_STS_SUCCESS OR
8625: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
8626: l_gdflex_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8627:
8628: x_return_status := FND_API.G_RET_STS_ERROR;
8629: END IF;
8630:
8631: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
8632: THEN
8627:
8628: x_return_status := FND_API.G_RET_STS_ERROR;
8629: END IF;
8630:
8631: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
8632: THEN
8633:
8634: ROLLBACK TO Apply_other_ac_PVT;
8635:
8632: THEN
8633:
8634: ROLLBACK TO Apply_other_ac_PVT;
8635:
8636: x_return_status := FND_API.G_RET_STS_ERROR ;
8637:
8638: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
8639: p_count => x_msg_count,
8640: p_data => x_msg_data
8634: ROLLBACK TO Apply_other_ac_PVT;
8635:
8636: x_return_status := FND_API.G_RET_STS_ERROR ;
8637:
8638: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
8639: p_count => x_msg_count,
8640: p_data => x_msg_data
8641: );
8642:
8741: ROLLBACK TO Apply_other_ac_PVT;
8742:
8743: -- Display_Parameters
8744:
8745: x_return_status := FND_API.G_RET_STS_ERROR ;
8746: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
8747: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.APPLY_OTHER_ACCOUNT : '||SQLERRM);
8748: FND_MSG_PUB.Add;
8749:
8746: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
8747: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_APPLICATION.APPLY_OTHER_ACCOUNT : '||SQLERRM);
8748: FND_MSG_PUB.Add;
8749:
8750: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
8751: p_count => x_msg_count,
8752: p_data => x_msg_data
8753: );
8754: RETURN;
8759: /*--------------------------------+
8760: | Standard check of p_commit |
8761: +--------------------------------*/
8762:
8763: IF FND_API.To_Boolean( p_commit )
8764: THEN
8765: arp_util.debug('committing');
8766: Commit;
8767: END IF;
8766: Commit;
8767: END IF;
8768: arp_util.debug('Apply_other_account ()- ');
8769: EXCEPTION
8770: WHEN FND_API.G_EXC_ERROR THEN
8771:
8772: arp_util.debug(SQLCODE, G_MSG_ERROR);
8773: arp_util.debug(SQLERRM, G_MSG_ERROR);
8774:
8772: arp_util.debug(SQLCODE, G_MSG_ERROR);
8773: arp_util.debug(SQLERRM, G_MSG_ERROR);
8774:
8775: ROLLBACK TO Apply_other_ac_PVT;
8776: x_return_status := FND_API.G_RET_STS_ERROR ;
8777:
8778: -- Display_Parameters;
8779:
8780: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
8776: x_return_status := FND_API.G_RET_STS_ERROR ;
8777:
8778: -- Display_Parameters;
8779:
8780: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
8781: p_count => x_msg_count,
8782: p_data => x_msg_data
8783: );
8784:
8781: p_count => x_msg_count,
8782: p_data => x_msg_data
8783: );
8784:
8785: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8786:
8787: arp_util.debug(SQLERRM, G_MSG_ERROR);
8788: ROLLBACK TO Apply_other_ac_PVT;
8789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8785: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8786:
8787: arp_util.debug(SQLERRM, G_MSG_ERROR);
8788: ROLLBACK TO Apply_other_ac_PVT;
8789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8790:
8791: -- Display_Parameters;
8792:
8793: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
8789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8790:
8791: -- Display_Parameters;
8792:
8793: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
8794: p_count => x_msg_count,
8795: p_data => x_msg_data
8796: );
8797:
8810:
8811: --If only one error message on the stack,
8812: --retrive it
8813:
8814: x_return_status := FND_API.G_RET_STS_ERROR ;
8815: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
8816: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','APPLY_OTHER_ACCOUNT : '||SQLERRM);
8817: FND_MSG_PUB.Add;
8818:
8817: FND_MSG_PUB.Add;
8818:
8819: --If only one error message on the stack,
8820: --retrive it
8821: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
8822: p_count => x_msg_count,
8823: p_data => x_msg_data
8824: );
8825:
8825:
8826: RETURN;
8827:
8828: ELSE
8829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8830: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
8831: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','APPLY_OTHER_ACCOUNT : '||SQLERRM);
8832: FND_MSG_PUB.Add;
8833: END IF;
8845: END IF;
8846:
8847: -- Display_Parameters;
8848:
8849: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
8850: p_count => x_msg_count,
8851: p_data => x_msg_data
8852: );
8853: END;
8854:
8855: PROCEDURE create_misc(
8856: -- Standard API parameters.
8857: p_api_version IN NUMBER,
8858: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8859: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8860: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8861: x_return_status OUT NOCOPY VARCHAR2 ,
8862: x_msg_count OUT NOCOPY NUMBER ,
8855: PROCEDURE create_misc(
8856: -- Standard API parameters.
8857: p_api_version IN NUMBER,
8858: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8859: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8860: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8861: x_return_status OUT NOCOPY VARCHAR2 ,
8862: x_msg_count OUT NOCOPY NUMBER ,
8863: x_msg_data OUT NOCOPY VARCHAR2 ,
8856: -- Standard API parameters.
8857: p_api_version IN NUMBER,
8858: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8859: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8860: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8861: x_return_status OUT NOCOPY VARCHAR2 ,
8862: x_msg_count OUT NOCOPY NUMBER ,
8863: x_msg_data OUT NOCOPY VARCHAR2 ,
8864: -- Misc Receipt info. parameters
8928: l_receipt_method_name VARCHAR2(30);
8929: l_state VARCHAR2(30);
8930: l_creation_method VARCHAR2(1);
8931: l_doc_seq_status VARCHAR2(1);
8932: l_def_misc_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8933: l_misc_def_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8934: l_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8935: l_dflex_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8936: l_creation_method_code ar_receipt_classes.creation_method_code%TYPE;
8929: l_state VARCHAR2(30);
8930: l_creation_method VARCHAR2(1);
8931: l_doc_seq_status VARCHAR2(1);
8932: l_def_misc_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8933: l_misc_def_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8934: l_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8935: l_dflex_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8936: l_creation_method_code ar_receipt_classes.creation_method_code%TYPE;
8937: /* Bug fix 2300268 */
8930: l_creation_method VARCHAR2(1);
8931: l_doc_seq_status VARCHAR2(1);
8932: l_def_misc_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8933: l_misc_def_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8934: l_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8935: l_dflex_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8936: l_creation_method_code ar_receipt_classes.creation_method_code%TYPE;
8937: /* Bug fix 2300268 */
8938: l_tax_account_id ar_distributions.code_combination_id%TYPE;
8931: l_doc_seq_status VARCHAR2(1);
8932: l_def_misc_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8933: l_misc_def_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8934: l_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8935: l_dflex_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
8936: l_creation_method_code ar_receipt_classes.creation_method_code%TYPE;
8937: /* Bug fix 2300268 */
8938: l_tax_account_id ar_distributions.code_combination_id%TYPE;
8939: /* Bug fix 2742388 */
8942: l_org_id NUMBER;
8943: l_legal_entity_id NUMBER; /* R12 LE uptake */
8944: l_payment_trxn_extension_id ar_cash_receipts.payment_trxn_extension_id%TYPE;
8945: /* bichatte payment uptake */
8946: l_copy_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
8947: l_copy_msg_count NUMBER;
8948: l_copy_msg_data VARCHAR2(2000);
8949: l_copy_pmt_trxn_extension_id ar_cash_receipts.payment_trxn_extension_id%TYPE; /* bichatte payment uptake project */
8950: l_default_site_use VARCHAR2(1);
8984: /*--------------------------------------------------+
8985: | Standard call to check for call compatibility |
8986: +--------------------------------------------------*/
8987:
8988: IF NOT FND_API.Compatible_API_Call(
8989: l_api_version,
8990: p_api_version,
8991: l_api_name,
8992: G_PKG_NAME
8991: l_api_name,
8992: G_PKG_NAME
8993: )
8994: THEN
8995: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8996: END IF;
8997:
8998: /*--------------------------------------------------------------+
8999: | Initialize message list if p_init_msg_list is set to TRUE |
8998: /*--------------------------------------------------------------+
8999: | Initialize message list if p_init_msg_list is set to TRUE |
9000: +--------------------------------------------------------------*/
9001:
9002: IF FND_API.to_Boolean( p_init_msg_list )
9003: THEN
9004: FND_MSG_PUB.initialize;
9005: END IF;
9006:
9010: /*-----------------------------------------+
9011: | Initialize return status to SUCCESS |
9012: +-----------------------------------------*/
9013:
9014: x_return_status := FND_API.G_RET_STS_SUCCESS;
9015: l_doc_seq_status := FND_API.G_RET_STS_SUCCESS;
9016:
9017:
9018:
9011: | Initialize return status to SUCCESS |
9012: +-----------------------------------------*/
9013:
9014: x_return_status := FND_API.G_RET_STS_SUCCESS;
9015: l_doc_seq_status := FND_API.G_RET_STS_SUCCESS;
9016:
9017:
9018:
9019: /* SSA change */
9017:
9018:
9019: /* SSA change */
9020: l_org_id := p_org_id;
9021: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
9022: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
9023: p_return_status =>l_org_return_status);
9024: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9025: x_return_status := FND_API.G_RET_STS_ERROR;
9020: l_org_id := p_org_id;
9021: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
9022: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
9023: p_return_status =>l_org_return_status);
9024: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9025: x_return_status := FND_API.G_RET_STS_ERROR;
9026: ELSE
9027: /*-------------------------------------------------+
9028: | Initialize the profile option package variables |
9021: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
9022: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
9023: p_return_status =>l_org_return_status);
9024: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9025: x_return_status := FND_API.G_RET_STS_ERROR;
9026: ELSE
9027: /*-------------------------------------------------+
9028: | Initialize the profile option package variables |
9029: +-------------------------------------------------*/
9143: END IF;
9144: END IF;
9145:
9146:
9147: IF l_misc_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
9148: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
9149: l_def_misc_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
9150: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9151:
9144: END IF;
9145:
9146:
9147: IF l_misc_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
9148: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
9149: l_def_misc_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
9150: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9151:
9152: x_return_status := FND_API.G_RET_STS_ERROR;
9145:
9146:
9147: IF l_misc_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
9148: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
9149: l_def_misc_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
9150: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9151:
9152: x_return_status := FND_API.G_RET_STS_ERROR;
9153: END IF;
9146:
9147: IF l_misc_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
9148: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
9149: l_def_misc_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
9150: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9151:
9152: x_return_status := FND_API.G_RET_STS_ERROR;
9153: END IF;
9154:
9148: l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
9149: l_def_misc_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
9150: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9151:
9152: x_return_status := FND_API.G_RET_STS_ERROR;
9153: END IF;
9154:
9155: --Call the document sequence routine only if there have been no errors
9156: --reported so far.
9173: arp_util.debug('create_misc: arp_global.set_of_books_id = ' || arp_global.set_of_books_id );
9174: arp_util.debug('create_misc: l_receipt_date = ' || l_receipt_date );
9175: arp_util.debug('create_misc: x_return_status = ' || x_return_status );
9176: END IF;
9177: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
9178:
9179: ar_receipt_lib_pvt.get_doc_seq(
9180: 222,
9181: l_receipt_method_name,
9207: END IF;
9208: --raise error message
9209: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_NUM_NULL');
9210: FND_MSG_PUB.Add;
9211: x_return_status := FND_API.G_RET_STS_ERROR;
9212: END IF;
9213: END IF;
9214:
9215: /*------------------------------------------------------------+
9217: | rollback any changes and return an error status. |
9218: +------------------------------------------------------------*/
9219:
9220: IF (
9221: x_return_status <> FND_API.G_RET_STS_SUCCESS
9222: OR l_doc_seq_status <> FND_API.G_RET_STS_SUCCESS
9223: )
9224: THEN
9225:
9218: +------------------------------------------------------------*/
9219:
9220: IF (
9221: x_return_status <> FND_API.G_RET_STS_SUCCESS
9222: OR l_doc_seq_status <> FND_API.G_RET_STS_SUCCESS
9223: )
9224: THEN
9225:
9226: ROLLBACK TO Create_misc_PVT;
9224: THEN
9225:
9226: ROLLBACK TO Create_misc_PVT;
9227:
9228: x_return_status := FND_API.G_RET_STS_ERROR ;
9229:
9230: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
9231: p_count => x_msg_count,
9232: p_data => x_msg_data);
9226: ROLLBACK TO Create_misc_PVT;
9227:
9228: x_return_status := FND_API.G_RET_STS_ERROR ;
9229:
9230: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
9231: p_count => x_msg_count,
9232: p_data => x_msg_data);
9233:
9234: IF PG_DEBUG in ('Y', 'C') THEN
9273: arp_util.debug('Create_cash_122: ' || l_creation_method);
9274: arp_util.debug('Create_cash_122: ' || l_payment_trxn_extension_id );
9275: FND_MESSAGE.SET_NAME('AR','AR_CC_AUTH_FAILED');
9276: FND_MSG_PUB.Add;
9277: x_return_status := FND_API.G_RET_STS_ERROR;
9278: END IF;
9279:
9280: IF l_creation_method = 'A' THEN
9281: arp_standard.debug('calling copy Extension....');
9309: o_payment_trxn_extension_id =>l_copy_pmt_trxn_extension_id ,
9310: p_receipt_date => l_receipt_date
9311: );
9312:
9313: IF l_copy_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9314: arp_util.debug('Create_cash_123: ' );
9315: FND_MESSAGE.set_name('AR', 'AR_CC_AUTH_FAILED');
9316: FND_MSG_PUB.Add;
9317: x_return_status := FND_API.G_RET_STS_ERROR;
9313: IF l_copy_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9314: arp_util.debug('Create_cash_123: ' );
9315: FND_MESSAGE.set_name('AR', 'AR_CC_AUTH_FAILED');
9316: FND_MSG_PUB.Add;
9317: x_return_status := FND_API.G_RET_STS_ERROR;
9318: END IF;
9319: l_payment_trxn_extension_id := l_copy_pmt_trxn_extension_id;
9320:
9321: arp_standard.debug('calling copy Extension end ....');
9489: THEN
9490: ROLLBACK TO Create_misc_PVT;
9491:
9492: -- Display_Parameters;
9493: x_return_status := FND_API.G_RET_STS_ERROR ;
9494: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
9495: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',
9496: 'ARP_PROCESS_MISC_RECEIPTS.INSERT_MISC_RECEIPT : '||SQLERRM);
9497: FND_MSG_PUB.Add;
9495: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',
9496: 'ARP_PROCESS_MISC_RECEIPTS.INSERT_MISC_RECEIPT : '||SQLERRM);
9497: FND_MSG_PUB.Add;
9498:
9499: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
9500: p_count => x_msg_count,
9501: p_data => x_msg_data
9502: );
9503: RETURN;
9516: | in the message stack. If there is only one message in |
9517: | the stack it retrieves this message |
9518: +-------------------------------------------------------*/
9519:
9520: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
9521: p_count => x_msg_count,
9522: p_data => x_msg_data
9523: );
9524:
9526: /*--------------------------------+
9527: | Standard check of p_commit |
9528: +--------------------------------*/
9529:
9530: IF FND_API.To_Boolean( p_commit )
9531: THEN
9532: IF PG_DEBUG in ('Y', 'C') THEN
9533: arp_util.debug('create_misc: ' || 'committing');
9534: END IF;
9544:
9545:
9546:
9547: EXCEPTION
9548: WHEN FND_API.G_EXC_ERROR THEN
9549:
9550: IF PG_DEBUG in ('Y', 'C') THEN
9551: arp_util.debug('create_misc: ' || SQLCODE, G_MSG_ERROR);
9552: arp_util.debug('create_misc: ' || SQLERRM, G_MSG_ERROR);
9552: arp_util.debug('create_misc: ' || SQLERRM, G_MSG_ERROR);
9553: END IF;
9554:
9555: ROLLBACK TO Create_misc_PVT;
9556: x_return_status := FND_API.G_RET_STS_ERROR ;
9557:
9558: --Display_Parameters;
9559:
9560: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
9556: x_return_status := FND_API.G_RET_STS_ERROR ;
9557:
9558: --Display_Parameters;
9559:
9560: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
9561: p_count => x_msg_count,
9562: p_data => x_msg_data
9563: );
9564:
9561: p_count => x_msg_count,
9562: p_data => x_msg_data
9563: );
9564:
9565: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9566:
9567: IF PG_DEBUG in ('Y', 'C') THEN
9568: arp_util.debug('create_misc: ' || SQLERRM, G_MSG_ERROR);
9569: END IF;
9567: IF PG_DEBUG in ('Y', 'C') THEN
9568: arp_util.debug('create_misc: ' || SQLERRM, G_MSG_ERROR);
9569: END IF;
9570: ROLLBACK TO Create_misc_PVT;
9571: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9572:
9573: -- Display_Parameters;
9574:
9575: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
9571: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9572:
9573: -- Display_Parameters;
9574:
9575: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
9576: p_count => x_msg_count,
9577: p_data => x_msg_data
9578: );
9579:
9589: THEN
9590: ROLLBACK TO Create_misc_PVT;
9591:
9592: -- Display_Parameters;
9593: x_return_status := FND_API.G_RET_STS_ERROR ;
9594: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
9595: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','CREATE_MISC : '||SQLERRM);
9596: FND_MSG_PUB.Add;
9597:
9594: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
9595: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','CREATE_MISC : '||SQLERRM);
9596: FND_MSG_PUB.Add;
9597:
9598: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
9599: p_count => x_msg_count,
9600: p_data => x_msg_data
9601: );
9602: RETURN;
9600: p_data => x_msg_data
9601: );
9602: RETURN;
9603: ELSE
9604: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9605: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
9606: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','CREATE_MISC : '||SQLERRM);
9607: FND_MSG_PUB.Add;
9608: END IF;
9622: );
9623: END IF;
9624:
9625: -- Display_Parameters;
9626: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
9627: p_count => x_msg_count,
9628: p_data => x_msg_data
9629: );
9630:
9762: /*--------------------------------------------------+
9763: | Standard call to check for call compatibility |
9764: +--------------------------------------------------*/
9765:
9766: IF NOT FND_API.Compatible_API_Call(
9767: l_api_version,
9768: p_api_version,
9769: l_api_name,
9770: G_PKG_NAME
9769: l_api_name,
9770: G_PKG_NAME
9771: )
9772: THEN
9773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9774: END IF;
9775:
9776: /*--------------------------------------------------------------+
9777: | Initialize message list if p_init_msg_list is set to TRUE |
9776: /*--------------------------------------------------------------+
9777: | Initialize message list if p_init_msg_list is set to TRUE |
9778: +--------------------------------------------------------------*/
9779:
9780: IF FND_API.to_Boolean( p_init_msg_list )
9781: THEN
9782: FND_MSG_PUB.initialize;
9783: END IF;
9784:
9789: /*-----------------------------------------+
9790: | Initialize return status to SUCCESS |
9791: +-----------------------------------------*/
9792:
9793: x_return_status := FND_API.G_RET_STS_SUCCESS;
9794:
9795:
9796:
9797:
9796:
9797:
9798: /* SSA change */
9799: l_org_id := p_org_id;
9800: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
9801: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
9802: p_return_status =>l_org_return_status);
9803: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9804: x_return_status := FND_API.G_RET_STS_ERROR;
9799: l_org_id := p_org_id;
9800: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
9801: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
9802: p_return_status =>l_org_return_status);
9803: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9804: x_return_status := FND_API.G_RET_STS_ERROR;
9805: ELSE
9806: /*-------------------------------------------------+
9807: | Initialize the profile option package variables |
9800: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
9801: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
9802: p_return_status =>l_org_return_status);
9803: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9804: x_return_status := FND_API.G_RET_STS_ERROR;
9805: ELSE
9806: /*-------------------------------------------------+
9807: | Initialize the profile option package variables |
9808: +-------------------------------------------------*/
9871: --defaulting for any of the two receipts.
9872: --So in this case there is no point in calling the validation routines as
9873: --at least one of the two main entities are invalid.
9874:
9875: IF l_def_return_status = FND_API.G_RET_STS_SUCCESS
9876: THEN
9877: ar_receipt_val_pvt.Validate_open_receipt_info(
9878: p_cash_receipt_id => l_cash_receipt_id
9879: , p_open_cash_receipt_id => l_open_cash_receipt_id
9911: arp_util.debug('l_apply_gl_date : '||to_char(l_apply_gl_date,'DD-MON-YY'));
9912: END IF;
9913:
9914:
9915: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
9916: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
9917: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9918: x_return_status := FND_API.G_RET_STS_ERROR;
9919: END IF;
9912: END IF;
9913:
9914:
9915: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
9916: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
9917: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9918: x_return_status := FND_API.G_RET_STS_ERROR;
9919: END IF;
9920:
9913:
9914:
9915: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
9916: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
9917: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9918: x_return_status := FND_API.G_RET_STS_ERROR;
9919: END IF;
9920:
9921: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
9914:
9915: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS OR
9916: l_def_return_status <> FND_API.G_RET_STS_SUCCESS OR
9917: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9918: x_return_status := FND_API.G_RET_STS_ERROR;
9919: END IF;
9920:
9921: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
9922: THEN
9917: l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9918: x_return_status := FND_API.G_RET_STS_ERROR;
9919: END IF;
9920:
9921: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
9922: THEN
9923:
9924: ROLLBACK TO Apply_Open_Receipt_PVT;
9925:
9922: THEN
9923:
9924: ROLLBACK TO Apply_Open_Receipt_PVT;
9925:
9926: x_return_status := FND_API.G_RET_STS_ERROR ;
9927:
9928: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
9929: p_count => x_msg_count,
9930: p_data => x_msg_data
9924: ROLLBACK TO Apply_Open_Receipt_PVT;
9925:
9926: x_return_status := FND_API.G_RET_STS_ERROR ;
9927:
9928: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
9929: p_count => x_msg_count,
9930: p_data => x_msg_data
9931: );
9932:
9964:
9965: IF l_open_applied_ps_id = -1 THEN
9966: Unapply_on_account(
9967: p_api_version => 1.0,
9968: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9969: x_return_status => x_return_status ,
9970: x_msg_count => l_unapply_msg_count,
9971: x_msg_data => x_msg_data ,
9972: p_cash_receipt_id => l_open_cash_receipt_id,
9973: p_receivable_application_id => l_open_rec_app_id,
9974: p_reversal_gl_date => l_apply_gl_date
9975: );
9976:
9977: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
9978: IF (l_reapply_amount <> 0) THEN
9979: Apply_on_account(
9980: p_api_version => 1.0,
9981: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9977: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
9978: IF (l_reapply_amount <> 0) THEN
9979: Apply_on_account(
9980: p_api_version => 1.0,
9981: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9982: x_return_status => x_return_status ,
9983: x_msg_count => l_reapply_msg_count,
9984: x_msg_data => x_msg_data ,
9985: p_cash_receipt_id => l_open_cash_receipt_id,
10002: validation on unapplied amount */
10003:
10004: Unapply_other_account(
10005: p_api_version => 1.0,
10006: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10007: x_return_status => x_return_status ,
10008: x_msg_count => l_unapply_msg_count ,
10009: x_msg_data => x_msg_data ,
10010: p_cash_receipt_id => l_open_cash_receipt_id,
10012: p_reversal_gl_date => l_apply_gl_date,
10013: p_org_id => p_org_id,
10014: p_called_from => 'APPLY_OPEN_RECEIPT'
10015: );
10016: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
10017: IF (l_reapply_amount <> 0) THEN
10018: IF p_called_from = 'ARXRWAPP' THEN
10019: l_called_from := 'RAPI';
10020: ELSE
10021: l_called_from := p_called_from;
10022: END IF;
10023: Apply_other_account(
10024: p_api_version => 1.0,
10025: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10026: x_return_status => x_return_status ,
10027: x_msg_count => l_reapply_msg_count,
10028: x_msg_data => x_msg_data ,
10029: p_receivable_application_id => l_reapply_rec_app_id,
10057: | Apply open receipt to netting activity |
10058: | |
10059: +------------------------------------------------*/
10060:
10061: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
10062: Activity_application(
10063: p_api_version => 1.0,
10064: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10065: x_return_status => x_return_status ,
10060:
10061: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
10062: Activity_application(
10063: p_api_version => 1.0,
10064: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10065: x_return_status => x_return_status ,
10066: x_msg_count => l_act1_msg_count,
10067: x_msg_data => x_msg_data ,
10068: p_cash_receipt_id => l_open_cash_receipt_id,
10094: | Apply netting receipt to netting activity |
10095: | |
10096: +------------------------------------------------*/
10097:
10098: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
10099: Activity_application(
10100: p_api_version => 1.0,
10101: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10102: x_return_status => x_return_status ,
10097:
10098: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
10099: Activity_application(
10100: p_api_version => 1.0,
10101: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10102: x_return_status => x_return_status ,
10103: x_msg_count => l_act2_msg_count,
10104: x_msg_data => x_msg_data ,
10105: p_cash_receipt_id => l_cash_receipt_id,
10141: arp_util.debug('Apply_Open_Receipt: l_open_net_rec_app_id = ' || l_open_net_rec_app_id);
10142: END IF;
10143: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_APP_ID_INVALID');
10144: FND_MSG_PUB.Add;
10145: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10146: END IF;
10147:
10148: BEGIN
10149: arp_app_pkg.fetch_p(l_net_rec_app_id,l_app_rec);
10162: IF PG_DEBUG in ('Y', 'C') THEN
10163: arp_util.debug('Apply_Open_Receipt: error updating applications ' || SQLCODE, G_MSG_ERROR);
10164: arp_util.debug('Apply_Open_Receipt: ' || SQLERRM, G_MSG_ERROR);
10165: END IF;
10166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10167: RAISE;
10168: END;
10169:
10170: x_application_ref_num := l_application_ref_num;
10175: /*---------------------------------------------------+
10176: | Raise exception if return status is not success |
10177: +---------------------------------------------------*/
10178:
10179: IF x_return_status = FND_API.G_RET_STS_ERROR
10180: THEN
10181: RAISE FND_API.G_EXC_ERROR;
10182: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10183: THEN
10177: +---------------------------------------------------*/
10178:
10179: IF x_return_status = FND_API.G_RET_STS_ERROR
10180: THEN
10181: RAISE FND_API.G_EXC_ERROR;
10182: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10183: THEN
10184: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10185: END IF;
10178:
10179: IF x_return_status = FND_API.G_RET_STS_ERROR
10180: THEN
10181: RAISE FND_API.G_EXC_ERROR;
10182: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10183: THEN
10184: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10185: END IF;
10186:
10180: THEN
10181: RAISE FND_API.G_EXC_ERROR;
10182: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10183: THEN
10184: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10185: END IF;
10186:
10187: x_receivable_application_id := l_net_rec_app_id;
10188: x_applied_rec_app_id := l_open_net_rec_app_id;
10190: /*--------------------------------+
10191: | Standard check of p_commit |
10192: +--------------------------------*/
10193:
10194: IF FND_API.To_Boolean( p_commit )
10195: THEN
10196: IF PG_DEBUG in ('Y', 'C') THEN
10197: arp_util.debug('Apply_Open_Receipt: ' || 'committing');
10198: END IF;
10201: IF PG_DEBUG in ('Y', 'C') THEN
10202: arp_util.debug('Apply_Open_Receipt()- ');
10203: END IF;
10204: EXCEPTION
10205: WHEN FND_API.G_EXC_ERROR THEN
10206:
10207: IF PG_DEBUG in ('Y', 'C') THEN
10208: arp_util.debug('Apply_Open_Receipt: ' || SQLCODE, G_MSG_ERROR);
10209: arp_util.debug('Apply_Open_Receipt: ' || SQLERRM, G_MSG_ERROR);
10209: arp_util.debug('Apply_Open_Receipt: ' || SQLERRM, G_MSG_ERROR);
10210: END IF;
10211:
10212: ROLLBACK TO Apply_Open_Receipt_PVT;
10213: x_return_status := FND_API.G_RET_STS_ERROR ;
10214:
10215: -- Display_Parameters;
10216:
10217: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
10213: x_return_status := FND_API.G_RET_STS_ERROR ;
10214:
10215: -- Display_Parameters;
10216:
10217: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
10218: p_count => x_msg_count,
10219: p_data => x_msg_data
10220: );
10221:
10218: p_count => x_msg_count,
10219: p_data => x_msg_data
10220: );
10221:
10222: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10223:
10224: IF PG_DEBUG in ('Y', 'C') THEN
10225: arp_util.debug('Apply_Open_Receipt: ' || SQLERRM, G_MSG_ERROR);
10226: END IF;
10224: IF PG_DEBUG in ('Y', 'C') THEN
10225: arp_util.debug('Apply_Open_Receipt: ' || SQLERRM, G_MSG_ERROR);
10226: END IF;
10227: ROLLBACK TO Apply_Open_Receipt_PVT;
10228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10229:
10230: -- Display_Parameters;
10231:
10232: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
10228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10229:
10230: -- Display_Parameters;
10231:
10232: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
10233: p_count => x_msg_count,
10234: p_data => x_msg_data
10235: );
10236:
10249:
10250: --If only one error message on the stack,
10251: --retrive it
10252:
10253: x_return_status := FND_API.G_RET_STS_ERROR ;
10254: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
10255: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','APPLY_Open_Receipt : '||SQLERRM);
10256: FND_MSG_PUB.Add;
10257:
10254: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
10255: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','APPLY_Open_Receipt : '||SQLERRM);
10256: FND_MSG_PUB.Add;
10257:
10258: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
10259: p_count => x_msg_count,
10260: p_data => x_msg_data
10261: );
10262:
10262:
10263: RETURN;
10264:
10265: ELSE
10266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10267: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
10268: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','APPLY_Open_Receipt : '||SQLERRM);
10269: FND_MSG_PUB.Add;
10270: END IF;
10284: END IF;
10285:
10286: -- Display_Parameters;
10287:
10288: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
10289: p_count => x_msg_count,
10290: p_data => x_msg_data
10291: );
10292:
10331: /*--------------------------------------------------+
10332: | Standard call to check for call compatibility |
10333: +--------------------------------------------------*/
10334:
10335: IF NOT FND_API.Compatible_API_Call(
10336: p_current_version_number => l_api_version,
10337: p_caller_version_number => p_api_version,
10338: p_api_name => l_api_name,
10339: p_pkg_name => G_PKG_NAME
10338: p_api_name => l_api_name,
10339: p_pkg_name => G_PKG_NAME
10340: )
10341: THEN
10342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10343: END IF;
10344:
10345: /*--------------------------------------------------------------+
10346: | Initialize message list if p_init_msg_list is set to TRUE |
10345: /*--------------------------------------------------------------+
10346: | Initialize message list if p_init_msg_list is set to TRUE |
10347: +--------------------------------------------------------------*/
10348:
10349: IF FND_API.to_Boolean( p_init_msg_list )
10350: THEN
10351: FND_MSG_PUB.initialize;
10352: END IF;
10353:
10357: /*-----------------------------------------+
10358: | Initialize return status to SUCCESS |
10359: +-----------------------------------------*/
10360:
10361: l_def_return_status := FND_API.G_RET_STS_SUCCESS;
10362: l_val_return_status := FND_API.G_RET_STS_SUCCESS;
10363: x_return_status := FND_API.G_RET_STS_SUCCESS;
10364:
10365:
10358: | Initialize return status to SUCCESS |
10359: +-----------------------------------------*/
10360:
10361: l_def_return_status := FND_API.G_RET_STS_SUCCESS;
10362: l_val_return_status := FND_API.G_RET_STS_SUCCESS;
10363: x_return_status := FND_API.G_RET_STS_SUCCESS;
10364:
10365:
10366:
10359: +-----------------------------------------*/
10360:
10361: l_def_return_status := FND_API.G_RET_STS_SUCCESS;
10362: l_val_return_status := FND_API.G_RET_STS_SUCCESS;
10363: x_return_status := FND_API.G_RET_STS_SUCCESS;
10364:
10365:
10366:
10367: /* SSA change */
10365:
10366:
10367: /* SSA change */
10368: l_org_id := p_org_id;
10369: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
10370: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
10371: p_return_status =>l_org_return_status);
10372: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10373: x_return_status := FND_API.G_RET_STS_ERROR;
10368: l_org_id := p_org_id;
10369: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
10370: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
10371: p_return_status =>l_org_return_status);
10372: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10373: x_return_status := FND_API.G_RET_STS_ERROR;
10374: ELSE
10375: /*-------------------------------------------------+
10376: | Initialize the profile option package variables |
10369: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
10370: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
10371: p_return_status =>l_org_return_status);
10372: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10373: x_return_status := FND_API.G_RET_STS_ERROR;
10374: ELSE
10375: /*-------------------------------------------------+
10376: | Initialize the profile option package variables |
10377: +-------------------------------------------------*/
10419: | Unapply netting activity on both receipts |
10420: | |
10421: +------------------------------------------------*/
10422:
10423: IF (l_def_return_status = FND_API.G_RET_STS_SUCCESS AND
10424: l_val_return_status = FND_API.G_RET_STS_SUCCESS)
10425: THEN
10426: Activity_Unapplication(
10427: p_api_version => 1.0,
10420: | |
10421: +------------------------------------------------*/
10422:
10423: IF (l_def_return_status = FND_API.G_RET_STS_SUCCESS AND
10424: l_val_return_status = FND_API.G_RET_STS_SUCCESS)
10425: THEN
10426: Activity_Unapplication(
10427: p_api_version => 1.0,
10428: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10424: l_val_return_status = FND_API.G_RET_STS_SUCCESS)
10425: THEN
10426: Activity_Unapplication(
10427: p_api_version => 1.0,
10428: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10429: x_return_status => x_return_status ,
10430: x_msg_count => l_act1_msg_count,
10431: x_msg_data => x_msg_data ,
10432: p_receivable_application_id => l_receivable_application_id,
10433: p_reversal_gl_date => l_reversal_gl_date,
10434: p_org_id => p_org_id,
10435: p_called_from => p_called_from);
10436:
10437: IF x_return_status = FND_API.G_RET_STS_SUCCESS
10438: THEN
10439: Activity_Unapplication(
10440: p_api_version => 1.0,
10441: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10437: IF x_return_status = FND_API.G_RET_STS_SUCCESS
10438: THEN
10439: Activity_Unapplication(
10440: p_api_version => 1.0,
10441: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10442: x_return_status => x_return_status ,
10443: x_msg_count => l_act2_msg_count,
10444: x_msg_data => x_msg_data ,
10445: p_receivable_application_id => l_applied_rec_app_id,
10456: /*---------------------------------------------------+
10457: | Raise exception if return status is not success |
10458: +---------------------------------------------------*/
10459:
10460: IF (l_def_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
10461: x_return_status := l_def_return_status;
10462: ELSIF (l_val_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
10463: x_return_status := l_val_return_status;
10464: END IF;
10458: +---------------------------------------------------*/
10459:
10460: IF (l_def_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
10461: x_return_status := l_def_return_status;
10462: ELSIF (l_val_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
10463: x_return_status := l_val_return_status;
10464: END IF;
10465:
10466: IF x_return_status = FND_API.G_RET_STS_ERROR
10462: ELSIF (l_val_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
10463: x_return_status := l_val_return_status;
10464: END IF;
10465:
10466: IF x_return_status = FND_API.G_RET_STS_ERROR
10467: THEN
10468: RAISE FND_API.G_EXC_ERROR;
10469: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10470: THEN
10464: END IF;
10465:
10466: IF x_return_status = FND_API.G_RET_STS_ERROR
10467: THEN
10468: RAISE FND_API.G_EXC_ERROR;
10469: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10470: THEN
10471: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10472: END IF;
10465:
10466: IF x_return_status = FND_API.G_RET_STS_ERROR
10467: THEN
10468: RAISE FND_API.G_EXC_ERROR;
10469: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10470: THEN
10471: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10472: END IF;
10473:
10467: THEN
10468: RAISE FND_API.G_EXC_ERROR;
10469: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10470: THEN
10471: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10472: END IF;
10473:
10474: /*--------------------------------+
10475: | Standard check of p_commit |
10474: /*--------------------------------+
10475: | Standard check of p_commit |
10476: +--------------------------------*/
10477:
10478: IF FND_API.To_Boolean( p_commit )
10479: THEN
10480: IF PG_DEBUG in ('Y', 'C') THEN
10481: arp_util.debug('Unapply_Open_Receipt: ' || 'committing');
10482: END IF;
10485: IF PG_DEBUG in ('Y', 'C') THEN
10486: arp_util.debug('Unapply_Open_Receipt()- ');
10487: END IF;
10488: EXCEPTION
10489: WHEN FND_API.G_EXC_ERROR THEN
10490:
10491: IF PG_DEBUG in ('Y', 'C') THEN
10492: arp_util.debug('Unapply_Open_Receipt: ' || SQLCODE, G_MSG_ERROR);
10493: arp_util.debug('Unapply_Open_Receipt: ' || SQLERRM, G_MSG_ERROR);
10493: arp_util.debug('Unapply_Open_Receipt: ' || SQLERRM, G_MSG_ERROR);
10494: END IF;
10495:
10496: ROLLBACK TO Unapply_Open_Receipt_PVT;
10497: x_return_status := FND_API.G_RET_STS_ERROR ;
10498:
10499: -- Display_Parameters;
10500:
10501: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
10497: x_return_status := FND_API.G_RET_STS_ERROR ;
10498:
10499: -- Display_Parameters;
10500:
10501: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
10502: p_count => x_msg_count,
10503: p_data => x_msg_data
10504: );
10505:
10502: p_count => x_msg_count,
10503: p_data => x_msg_data
10504: );
10505:
10506: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10507:
10508: IF PG_DEBUG in ('Y', 'C') THEN
10509: arp_util.debug('Unapply_Open_Receipt: ' || SQLERRM, G_MSG_ERROR);
10510: END IF;
10508: IF PG_DEBUG in ('Y', 'C') THEN
10509: arp_util.debug('Unapply_Open_Receipt: ' || SQLERRM, G_MSG_ERROR);
10510: END IF;
10511: ROLLBACK TO Unapply_Open_Receipt_PVT;
10512: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10513:
10514: -- Display_Parameters;
10515:
10516: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
10512: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10513:
10514: -- Display_Parameters;
10515:
10516: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
10517: p_count => x_msg_count,
10518: p_data => x_msg_data
10519: );
10520:
10533:
10534: --If only one error message on the stack,
10535: --retrive it
10536:
10537: x_return_status := FND_API.G_RET_STS_ERROR ;
10538: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
10539: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','UnaPPLY_Open_Receipt : '||SQLERRM);
10540: FND_MSG_PUB.Add;
10541:
10538: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
10539: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','UnaPPLY_Open_Receipt : '||SQLERRM);
10540: FND_MSG_PUB.Add;
10541:
10542: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
10543: p_count => x_msg_count,
10544: p_data => x_msg_data
10545: );
10546:
10546:
10547: RETURN;
10548:
10549: ELSE
10550: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10551: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
10552: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','UnaPPLY_Open_Receipt : '||SQLERRM);
10553: FND_MSG_PUB.Add;
10554: END IF;
10568: END IF;
10569:
10570: -- Display_Parameters;
10571:
10572: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
10573: p_count => x_msg_count,
10574: p_data => x_msg_data
10575: );
10576:
10616: -- Standard API parameters.
10617: p_api_version IN NUMBER,
10618: p_cash_receipts_id IN CR_ID_TABLE,
10619: p_called_from IN VARCHAR2 DEFAULT NULL,
10620: p_commit IN VARCHAR2 := FND_API.G_FALSE,
10621: x_return_status OUT NOCOPY VARCHAR2,
10622: x_msg_count OUT NOCOPY NUMBER,
10623: x_msg_data OUT NOCOPY VARCHAR2
10624: ) IS
10697: END IF;
10698:
10699: -- SAVEPOINT Reverse_Rem_PVT;
10700:
10701: IF NOT FND_API.Compatible_API_Call(
10702: p_current_version_number => l_api_version,
10703: p_caller_version_number => p_api_version,
10704: p_api_name => l_api_name,
10705: p_pkg_name => G_PKG_NAME
10704: p_api_name => l_api_name,
10705: p_pkg_name => G_PKG_NAME
10706: )
10707: THEN
10708: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10709: END IF;
10710:
10711: /* initiating global table for fresh call*/
10712:
10709: END IF;
10710:
10711: /* initiating global table for fresh call*/
10712:
10713: -- IF NOT FND_API.To_Boolean( p_commit ) THEN
10714: delete from ar_rr_crh_gt;
10715: -- END IF;
10716:
10717:
10734:
10735: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
10736: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','API called with wrong parameters. Call is not internal');
10737: FND_MSG_PUB.Add;
10738: x_return_status := FND_API.G_RET_STS_ERROR;
10739: return;
10740: END IF;
10741:
10742:
10921: /*
10922: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
10923: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', l_error_message);
10924: FND_MSG_PUB.Add;
10925: x_return_status := FND_API.G_RET_STS_ERROR;
10926: EXIT;
10927: */
10928: l_crh_upd.rec_status(i) := 'INVALID_GL_DATE';
10929: END IF;
11275: END IF;
11276: END LOOP;
11277: END IF;
11278:
11279: IF FND_API.To_Boolean( p_commit ) THEN
11280: COMMIT;
11281: END IF;
11282:
11283: END LOOP;
11304: l_error_message := 'Unexpected Error: ' || substr(1,100,sqlerrm);
11305: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
11306: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', l_error_message);
11307: FND_MSG_PUB.Add;
11308: x_return_status := FND_API.G_RET_STS_ERROR;
11309: x_msg_data := substr(1,2000,sqlerrm);
11310: END Reverse_Remittances_in_err;
11311:
11312:
11485: *=======================================================================*/
11486: PROCEDURE Create_Cash_Bulk(
11487: -- Standard API parameters.
11488: p_api_version IN NUMBER DEFAULT 1.0,
11489: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
11490: p_commit IN VARCHAR2 := FND_API.G_FALSE,
11491: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
11492: p_fetch_bulk_commit IN NUMBER DEFAULT 1000,
11493: x_return_status OUT NOCOPY VARCHAR2,
11486: PROCEDURE Create_Cash_Bulk(
11487: -- Standard API parameters.
11488: p_api_version IN NUMBER DEFAULT 1.0,
11489: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
11490: p_commit IN VARCHAR2 := FND_API.G_FALSE,
11491: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
11492: p_fetch_bulk_commit IN NUMBER DEFAULT 1000,
11493: x_return_status OUT NOCOPY VARCHAR2,
11494: x_msg_count OUT NOCOPY NUMBER,
11487: -- Standard API parameters.
11488: p_api_version IN NUMBER DEFAULT 1.0,
11489: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
11490: p_commit IN VARCHAR2 := FND_API.G_FALSE,
11491: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
11492: p_fetch_bulk_commit IN NUMBER DEFAULT 1000,
11493: x_return_status OUT NOCOPY VARCHAR2,
11494: x_msg_count OUT NOCOPY NUMBER,
11495: x_msg_data OUT NOCOPY VARCHAR2
11577:
11578: FOR org_rec IN org_cur LOOP
11579: /*code to set the org context for the batch,will avoid the org setting for
11580: each record inside the receipt API code */
11581: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
11582: ar_mo_cache_utils.set_org_context_in_api( p_org_id => org_rec.org_id,
11583: p_return_status => l_org_return_status);
11584:
11585: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11581: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
11582: ar_mo_cache_utils.set_org_context_in_api( p_org_id => org_rec.org_id,
11583: p_return_status => l_org_return_status);
11584:
11585: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11586: x_return_status := FND_API.G_RET_STS_ERROR;
11587: RETURN;
11588: END IF;
11589:
11582: ar_mo_cache_utils.set_org_context_in_api( p_org_id => org_rec.org_id,
11583: p_return_status => l_org_return_status);
11584:
11585: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11586: x_return_status := FND_API.G_RET_STS_ERROR;
11587: RETURN;
11588: END IF;
11589:
11590: l_gt_id := 0;
11814:
11815: ELSIF l_msg_count > 1 THEN
11816: FOR l_count IN 1..l_msg_count LOOP
11817:
11818: l_msg_data :=FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
11819:
11820: IF PG_DEBUG in ('Y', 'C') THEN
11821: arp_standard.debug ( 'the number is ' || l_count );
11822: arp_standard.debug ( 'the message data is ' || l_msg_data );
11907:
11908: PROCEDURE Change_customer(
11909: -- Standard API parameters.
11910: p_api_version IN NUMBER,
11911: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
11912: p_commit IN VARCHAR2 := FND_API.G_FALSE,
11913: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
11914: x_return_status OUT NOCOPY VARCHAR2,
11915: x_msg_count OUT NOCOPY NUMBER,
11908: PROCEDURE Change_customer(
11909: -- Standard API parameters.
11910: p_api_version IN NUMBER,
11911: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
11912: p_commit IN VARCHAR2 := FND_API.G_FALSE,
11913: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
11914: x_return_status OUT NOCOPY VARCHAR2,
11915: x_msg_count OUT NOCOPY NUMBER,
11916: x_msg_data OUT NOCOPY VARCHAR2,
11909: -- Standard API parameters.
11910: p_api_version IN NUMBER,
11911: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
11912: p_commit IN VARCHAR2 := FND_API.G_FALSE,
11913: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
11914: x_return_status OUT NOCOPY VARCHAR2,
11915: x_msg_count OUT NOCOPY NUMBER,
11916: x_msg_data OUT NOCOPY VARCHAR2,
11917: -- Receipt application parameters.
11941: /*--------------------------------------------------+
11942: | Standard call to check for call compatibility |
11943: +--------------------------------------------------*/
11944:
11945: IF NOT FND_API.Compatible_API_Call(
11946: l_api_version,
11947: p_api_version,
11948: l_api_name,
11949: G_PKG_NAME
11948: l_api_name,
11949: G_PKG_NAME
11950: )
11951: THEN
11952: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11953: END IF;
11954:
11955: /*--------------------------------------------------------------+
11956: | Initialize message list if p_init_msg_list is set to TRUE |
11955: /*--------------------------------------------------------------+
11956: | Initialize message list if p_init_msg_list is set to TRUE |
11957: +--------------------------------------------------------------*/
11958:
11959: IF FND_API.to_Boolean( p_init_msg_list )
11960: THEN
11961: FND_MSG_PUB.initialize;
11962: END IF;
11963:
11981: /*-----------------------------------------+
11982: | Initialize return status to SUCCESS |
11983: +-----------------------------------------*/
11984:
11985: x_return_status := FND_API.G_RET_STS_SUCCESS;
11986:
11987: /*---------------------------------------------+
11988: | ========== Start of API Body ========== |
11989: +---------------------------------------------*/
12029: EXCEPTION
12030: WHEN no_data_found THEN
12031: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_ID_INVALID');
12032: FND_MSG_PUB.Add;
12033: RAISE FND_API.G_EXC_ERROR;
12034: END;
12035: ELSIF ( l_pay_unrel_inv_flag = 'N')
12036: THEN
12037: BEGIN
12064: EXCEPTION
12065: WHEN no_data_found THEN
12066: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_ID_INVALID');
12067: FND_MSG_PUB.Add;
12068: RAISE FND_API.G_EXC_ERROR;
12069: END;
12070: END IF;
12071:
12072: /*----------------------------------------------+
12093: EXCEPTION
12094: WHEN no_data_found THEN
12095: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_STE_USE_ID_INVALID');
12096: FND_MSG_PUB.Add;
12097: RAISE FND_API.G_EXC_ERROR;
12098: END;
12099:
12100: /*----------------------------------------------+
12101: | Update receivable_application with new value|
12111: EXCEPTION
12112: WHEN OTHERS THEN
12113: arp_standard.debug('Change_customer: ' || 'Unexpected error '||sqlerrm||
12114: ' at AR_RECEIPT_API_PUB.Change_customer()+');
12115: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12116: IF FND_MSG_PUB.Check_Msg_Level
12117: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
12118: THEN
12119: FND_MSG_PUB.Add_Exc_Msg
12123: END IF;
12124: END;
12125:
12126: EXCEPTION
12127: WHEN FND_API.G_EXC_ERROR THEN
12128:
12129: IF PG_DEBUG in ('Y', 'C') THEN
12130: arp_util.debug('Change_customer: ' || SQLCODE, G_MSG_ERROR);
12131: arp_util.debug('Change_customer: ' || SQLERRM, G_MSG_ERROR);
12131: arp_util.debug('Change_customer: ' || SQLERRM, G_MSG_ERROR);
12132: END IF;
12133:
12134: ROLLBACK TO Change_customer_PVT;
12135: x_return_status := FND_API.G_RET_STS_ERROR ;
12136:
12137: -- Display_Parameters;
12138:
12139: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
12135: x_return_status := FND_API.G_RET_STS_ERROR ;
12136:
12137: -- Display_Parameters;
12138:
12139: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
12140: p_count => x_msg_count,
12141: p_data => x_msg_data
12142: );
12143:
12140: p_count => x_msg_count,
12141: p_data => x_msg_data
12142: );
12143:
12144: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12145:
12146: IF PG_DEBUG in ('Y', 'C') THEN
12147: arp_util.debug('Change_customer: ' || SQLERRM, G_MSG_ERROR);
12148: END IF;
12146: IF PG_DEBUG in ('Y', 'C') THEN
12147: arp_util.debug('Change_customer: ' || SQLERRM, G_MSG_ERROR);
12148: END IF;
12149: ROLLBACK TO Unapply_Open_Receipt_PVT;
12150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12151:
12152: -- Display_Parameters;
12153:
12154: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
12150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12151:
12152: -- Display_Parameters;
12153:
12154: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
12155: p_count => x_msg_count,
12156: p_data => x_msg_data
12157: );
12158:
12164:
12165: --If only one error message on the stack,
12166: --retrive it
12167:
12168: x_return_status := FND_API.G_RET_STS_ERROR ;
12169: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
12170: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','Change_customer: '||SQLERRM);
12171: FND_MSG_PUB.Add;
12172:
12169: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
12170: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','Change_customer: '||SQLERRM);
12171: FND_MSG_PUB.Add;
12172:
12173: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
12174: p_count => x_msg_count,
12175: p_data => x_msg_data
12176: );
12177: RETURN;
12175: p_data => x_msg_data
12176: );
12177: RETURN;
12178: ELSE
12179: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12180: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
12181: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','Change_customer : '||SQLERRM);
12182: FND_MSG_PUB.Add;
12183: END IF;
12197: END IF;
12198:
12199: -- Display_Parameters;
12200:
12201: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
12202: p_count => x_msg_count,
12203: p_data => x_msg_data
12204: );
12205:
12206: END Change_customer;
12207:
12208: BEGIN
12209: arp_util.debug('initialization section of ar_receipt_api_pub');
12210: ar_receipt_lib_pvt.pg_profile_doc_seq := FND_API.G_MISS_CHAR;
12211: ar_receipt_lib_pvt.pg_profile_enable_cc := FND_API.G_MISS_CHAR;
12212: ar_receipt_lib_pvt.pg_profile_appln_gl_date_def := FND_API.G_MISS_CHAR;
12213: ar_receipt_lib_pvt.pg_profile_amt_applied_def := FND_API.G_MISS_CHAR;
12214: ar_receipt_lib_pvt.pg_profile_cc_rate_type := FND_API.G_MISS_CHAR;
12207:
12208: BEGIN
12209: arp_util.debug('initialization section of ar_receipt_api_pub');
12210: ar_receipt_lib_pvt.pg_profile_doc_seq := FND_API.G_MISS_CHAR;
12211: ar_receipt_lib_pvt.pg_profile_enable_cc := FND_API.G_MISS_CHAR;
12212: ar_receipt_lib_pvt.pg_profile_appln_gl_date_def := FND_API.G_MISS_CHAR;
12213: ar_receipt_lib_pvt.pg_profile_amt_applied_def := FND_API.G_MISS_CHAR;
12214: ar_receipt_lib_pvt.pg_profile_cc_rate_type := FND_API.G_MISS_CHAR;
12215: ar_receipt_lib_pvt.pg_profile_dsp_inv_rate := FND_API.G_MISS_CHAR;
12208: BEGIN
12209: arp_util.debug('initialization section of ar_receipt_api_pub');
12210: ar_receipt_lib_pvt.pg_profile_doc_seq := FND_API.G_MISS_CHAR;
12211: ar_receipt_lib_pvt.pg_profile_enable_cc := FND_API.G_MISS_CHAR;
12212: ar_receipt_lib_pvt.pg_profile_appln_gl_date_def := FND_API.G_MISS_CHAR;
12213: ar_receipt_lib_pvt.pg_profile_amt_applied_def := FND_API.G_MISS_CHAR;
12214: ar_receipt_lib_pvt.pg_profile_cc_rate_type := FND_API.G_MISS_CHAR;
12215: ar_receipt_lib_pvt.pg_profile_dsp_inv_rate := FND_API.G_MISS_CHAR;
12216: ar_receipt_lib_pvt.pg_profile_create_bk_charges := FND_API.G_MISS_CHAR;
12209: arp_util.debug('initialization section of ar_receipt_api_pub');
12210: ar_receipt_lib_pvt.pg_profile_doc_seq := FND_API.G_MISS_CHAR;
12211: ar_receipt_lib_pvt.pg_profile_enable_cc := FND_API.G_MISS_CHAR;
12212: ar_receipt_lib_pvt.pg_profile_appln_gl_date_def := FND_API.G_MISS_CHAR;
12213: ar_receipt_lib_pvt.pg_profile_amt_applied_def := FND_API.G_MISS_CHAR;
12214: ar_receipt_lib_pvt.pg_profile_cc_rate_type := FND_API.G_MISS_CHAR;
12215: ar_receipt_lib_pvt.pg_profile_dsp_inv_rate := FND_API.G_MISS_CHAR;
12216: ar_receipt_lib_pvt.pg_profile_create_bk_charges := FND_API.G_MISS_CHAR;
12217: ar_receipt_lib_pvt.pg_profile_def_x_rate_type := FND_API.G_MISS_CHAR;
12210: ar_receipt_lib_pvt.pg_profile_doc_seq := FND_API.G_MISS_CHAR;
12211: ar_receipt_lib_pvt.pg_profile_enable_cc := FND_API.G_MISS_CHAR;
12212: ar_receipt_lib_pvt.pg_profile_appln_gl_date_def := FND_API.G_MISS_CHAR;
12213: ar_receipt_lib_pvt.pg_profile_amt_applied_def := FND_API.G_MISS_CHAR;
12214: ar_receipt_lib_pvt.pg_profile_cc_rate_type := FND_API.G_MISS_CHAR;
12215: ar_receipt_lib_pvt.pg_profile_dsp_inv_rate := FND_API.G_MISS_CHAR;
12216: ar_receipt_lib_pvt.pg_profile_create_bk_charges := FND_API.G_MISS_CHAR;
12217: ar_receipt_lib_pvt.pg_profile_def_x_rate_type := FND_API.G_MISS_CHAR;
12218:
12211: ar_receipt_lib_pvt.pg_profile_enable_cc := FND_API.G_MISS_CHAR;
12212: ar_receipt_lib_pvt.pg_profile_appln_gl_date_def := FND_API.G_MISS_CHAR;
12213: ar_receipt_lib_pvt.pg_profile_amt_applied_def := FND_API.G_MISS_CHAR;
12214: ar_receipt_lib_pvt.pg_profile_cc_rate_type := FND_API.G_MISS_CHAR;
12215: ar_receipt_lib_pvt.pg_profile_dsp_inv_rate := FND_API.G_MISS_CHAR;
12216: ar_receipt_lib_pvt.pg_profile_create_bk_charges := FND_API.G_MISS_CHAR;
12217: ar_receipt_lib_pvt.pg_profile_def_x_rate_type := FND_API.G_MISS_CHAR;
12218:
12219: END AR_RECEIPT_API_PUB;
12212: ar_receipt_lib_pvt.pg_profile_appln_gl_date_def := FND_API.G_MISS_CHAR;
12213: ar_receipt_lib_pvt.pg_profile_amt_applied_def := FND_API.G_MISS_CHAR;
12214: ar_receipt_lib_pvt.pg_profile_cc_rate_type := FND_API.G_MISS_CHAR;
12215: ar_receipt_lib_pvt.pg_profile_dsp_inv_rate := FND_API.G_MISS_CHAR;
12216: ar_receipt_lib_pvt.pg_profile_create_bk_charges := FND_API.G_MISS_CHAR;
12217: ar_receipt_lib_pvt.pg_profile_def_x_rate_type := FND_API.G_MISS_CHAR;
12218:
12219: END AR_RECEIPT_API_PUB;
12213: ar_receipt_lib_pvt.pg_profile_amt_applied_def := FND_API.G_MISS_CHAR;
12214: ar_receipt_lib_pvt.pg_profile_cc_rate_type := FND_API.G_MISS_CHAR;
12215: ar_receipt_lib_pvt.pg_profile_dsp_inv_rate := FND_API.G_MISS_CHAR;
12216: ar_receipt_lib_pvt.pg_profile_create_bk_charges := FND_API.G_MISS_CHAR;
12217: ar_receipt_lib_pvt.pg_profile_def_x_rate_type := FND_API.G_MISS_CHAR;
12218:
12219: END AR_RECEIPT_API_PUB;