133: END IF;
134:
135: -- Initialize message list if p_init_msg_list is set to TRUE.
136: IF FND_API.to_Boolean(p_init_msg_list) THEN
137: FND_MSG_PUB.initialize;
138: END IF;
139:
140: -- Initialize API return status to success
141: x_return_status := FND_API.G_RET_STS_SUCCESS;
145: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''First party legal entity Id'' missing.');
146: END IF;
147: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
148: FND_MESSAGE.SET_TOKEN('PARAM', fnd_message.GET_String('IBY','IBY_1PARTY_LE_ID'));
149: FND_MSG_PUB.Add;
150: RAISE FND_API.G_EXC_ERROR;
151: END IF;
152:
153: OPEN payer_country_csr(p_trxn_attributes_rec.payer_legal_entity_id);
159: print_debuginfo(l_module_name,'Error: First party legal entity country not populated.');
160: END IF;
161: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_DATA');
162: FND_MESSAGE.SET_TOKEN('PARAM', 'First party legal entity country');
163: FND_MSG_PUB.Add;
164: RAISE FND_API.G_EXC_ERROR;
165: END IF;
166:
167: OPEN delivery_channels_csr(l_payer_country);
181:
182: -- End of API body.
183:
184: -- Standard call to get message count and if count is 1, get message info.
185: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
186:
187: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
188: print_debuginfo(l_module_name, 'RETURN');
189:
190: END IF;
191: EXCEPTION
192: WHEN FND_API.G_EXC_ERROR THEN
193: x_return_status := FND_API.G_RET_STS_ERROR;
194: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
195: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
196: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
197: print_debuginfo(l_module_name,'SQLerr is :'
198: || substr(SQLERRM, 1, 150));
198: || substr(SQLERRM, 1, 150));
199: END IF;
200: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
202: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
203: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
204: print_debuginfo(l_module_name,'Unexpected ERROR: Exception occured during call to API ');
205: print_debuginfo(l_module_name,'SQLerr is :'
206: || substr(SQLERRM, 1, 150));
207: END IF;
208: WHEN OTHERS THEN
209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
210:
211: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
212: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
213: END IF;
214: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
215: print_debuginfo(l_module_name,'Other ERROR: Exception occured during call to API ');
208: WHEN OTHERS THEN
209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
210:
211: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
212: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
213: END IF;
214: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
215: print_debuginfo(l_module_name,'Other ERROR: Exception occured during call to API ');
216: print_debuginfo(l_module_name,'SQLerr is :'
215: print_debuginfo(l_module_name,'Other ERROR: Exception occured during call to API ');
216: print_debuginfo(l_module_name,'SQLerr is :'
217: || substr(SQLERRM, 1, 150));
218: END IF;
219: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
220:
221: END Get_Appl_Delivery_Channels;
222:
223:
323: END IF;
324:
325: -- Initialize message list if p_init_msg_list is set to TRUE.
326: IF FND_API.to_Boolean(p_init_msg_list) THEN
327: FND_MSG_PUB.initialize;
328: END IF;
329:
330: -- Initialize API return status to success
331: x_return_status := FND_API.G_RET_STS_SUCCESS;
336: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''Payee Party Id'' missing.');
337: END IF;
338: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
339: FND_MESSAGE.SET_TOKEN('PARAM', fnd_message.GET_String('IBY','IBY_PAYEE_PARTY_ID_FIELD'));
340: FND_MSG_PUB.Add;
341: RAISE FND_API.G_EXC_ERROR;
342: END IF;
343:
344: IF (p_trxn_attributes_rec.payment_currency IS NULL) THEN
346: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''Payment Currency'' missing.');
347: END IF;
348: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
349: FND_MESSAGE.SET_TOKEN('PARAM', fnd_message.GET_String('IBY','IBY_PMT_CURR_FIELD'));
350: FND_MSG_PUB.Add;
351: RAISE FND_API.G_EXC_ERROR;
352: END IF;
353:
354: IF (p_trxn_attributes_rec.payment_function IS NULL) THEN
356: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''Account Usage'' missing.');
357: END IF;
358: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
359: FND_MESSAGE.SET_TOKEN('PARAM', fnd_message.GET_String('IBY','IBY_ACCT_USG_FIELD'));
360: FND_MSG_PUB.Add;
361: RAISE FND_API.G_EXC_ERROR;
362: END IF;
363:
364: -- Start of API body.
386:
387: -- End of API body.
388:
389: -- Standard call to get message count and if count is 1, get message info.
390: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
391:
392: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
393: print_debuginfo(l_module_name, 'RETURN');
394:
395: END IF;
396: EXCEPTION
397: WHEN FND_API.G_EXC_ERROR THEN
398: x_return_status := FND_API.G_RET_STS_ERROR;
399: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
400: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
401: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
402: print_debuginfo(l_module_name,'SQLerr is :'
403: || substr(SQLERRM, 1, 150));
403: || substr(SQLERRM, 1, 150));
404: END IF;
405: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
407: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
408: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
409: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
410: print_debuginfo(l_module_name,'SQLerr is :'
411: || substr(SQLERRM, 1, 150));
412: END IF;
413: WHEN OTHERS THEN
414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
415:
416: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR))
417: THEN
418: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
419: END IF;
420: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
415:
416: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR))
417: THEN
418: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
419: END IF;
420: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
421: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
422: print_debuginfo(l_module_name,'SQLerr is :'
421: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
422: print_debuginfo(l_module_name,'SQLerr is :'
423: || substr(SQLERRM, 1, 150));
424: END IF;
425: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
426:
427: END Get_Applicable_Payee_BankAccts;
428:
429: -- Start of comments
496: END IF;
497:
498: -- Initialize message list if p_init_msg_list is set to TRUE.
499: IF FND_API.to_Boolean(p_init_msg_list) THEN
500: FND_MSG_PUB.initialize;
501: END IF;
502:
503: -- Initialize API return status to success
504: x_return_status := FND_API.G_RET_STS_SUCCESS;
522:
523: -- End of API body.
524:
525: -- Standard call to get message count and if count is 1, get message info.
526: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
527:
528: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
529: print_debuginfo(l_module_name, 'RETURN');
530:
531: END IF;
532: EXCEPTION
533: WHEN FND_API.G_EXC_ERROR THEN
534: x_return_status := FND_API.G_RET_STS_ERROR;
535: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
536: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
537: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
538: print_debuginfo(l_module_name,'SQLerr is :'
539: || substr(SQLERRM, 1, 150));
539: || substr(SQLERRM, 1, 150));
540: END IF;
541: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
543: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
544: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
545: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
546: print_debuginfo(l_module_name,'SQLerr is :'
547: || substr(SQLERRM, 1, 150));
548: END IF;
549: WHEN OTHERS THEN
550: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
551:
552: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR))
553: THEN
554: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
555: END IF;
556: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
550: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
551:
552: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR))
553: THEN
554: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
555: END IF;
556: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
557: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
558: print_debuginfo(l_module_name,'SQLerr is :'
557: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
558: print_debuginfo(l_module_name,'SQLerr is :'
559: || substr(SQLERRM, 1, 150));
560: END IF;
561: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
562:
563: END Get_Applicable_Payment_Formats;
564:
565: -- Start of comments
754: END IF;
755:
756: -- Initialize message list if p_init_msg_list is set to TRUE.
757: IF FND_API.to_Boolean(p_init_msg_list) THEN
758: FND_MSG_PUB.initialize;
759: END IF;
760:
761: -- Initialize API return status to success
762: x_return_status := FND_API.G_RET_STS_SUCCESS;
767: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''Application Id'' missing.');
768: END IF;
769: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
770: FND_MESSAGE.SET_TOKEN('PARAM', fnd_message.GET_String('IBY','IBY_APP_ID'));
771: FND_MSG_PUB.Add;
772: RAISE FND_API.G_EXC_ERROR;
773: END IF;
774:
775: IF (p_trxn_attributes_rec.payer_legal_entity_id IS NULL) THEN
777: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''First party legal entity Id'' missing.');
778: END IF;
779: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
780: FND_MESSAGE.SET_TOKEN('PARAM', fnd_message.GET_String('IBY','IBY_1PARTY_LE_ID'));
781: FND_MSG_PUB.Add;
782: RAISE FND_API.G_EXC_ERROR;
783: END IF;
784:
785: IF (p_trxn_attributes_rec.payee_party_id IS NULL) THEN
787: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''Payee Party Id'' missing.');
788: END IF;
789: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
790: FND_MESSAGE.SET_TOKEN('PARAM', fnd_message.GET_String('IBY','IBY_PAYEE_PARTY_ID_FIELD'));
791: FND_MSG_PUB.Add;
792: RAISE FND_API.G_EXC_ERROR;
793: END IF;
794:
795: IF (p_trxn_attributes_rec.pay_proc_trxn_type_code IS NULL) THEN
797: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''Transaction Type Id'' missing.');
798: END IF;
799: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
800: FND_MESSAGE.SET_TOKEN('PARAM', fnd_message.GET_String('IBY','IBY_TRANS_TYPE_ID'));
801: FND_MSG_PUB.Add;
802: RAISE FND_API.G_EXC_ERROR;
803: END IF;
804:
805: IF (p_trxn_attributes_rec.payment_currency IS NULL) THEN
807: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''Payment Currency'' missing.');
808: END IF;
809: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
810: FND_MESSAGE.SET_TOKEN('PARAM', fnd_message.GET_String('IBY','IBY_PMT_CURR_FIELD'));
811: FND_MSG_PUB.Add;
812: RAISE FND_API.G_EXC_ERROR;
813: END IF;
814:
815: IF (p_trxn_attributes_rec.payment_function IS NULL) THEN
817: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''Account Usage'' missing.');
818: END IF;
819: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
820: FND_MESSAGE.SET_TOKEN('PARAM', fnd_message.GET_String('IBY','IBY_ACCT_USG_FIELD'));
821: FND_MSG_PUB.Add;
822: RAISE FND_API.G_EXC_ERROR;
823: END IF;
824:
825: -- Fetch Accounting Currency and 1st part Payer country
988: print_debuginfo(l_module_name,'Error: No Payment Methods Applicable');
989:
990: END IF;
991: FND_MESSAGE.set_name('IBY', 'IBY_NO_APPLICABLE_PAYMENT_METHODS');
992: FND_MSG_PUB.Add;
993: raise FND_API.G_EXC_ERROR;
994: ELSE
995: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
996: print_debuginfo(l_module_name,'Applicable Payment Methods Count : '|| l_pmtmthd_table.COUNT);
999: END IF;
1000:
1001: -- End of API body.
1002: -- Standard call to get message count and if count is 1, get message info.
1003: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1004:
1005: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1006: print_debuginfo(l_module_name, 'RETURN');
1007:
1008: END IF;
1009: EXCEPTION
1010: WHEN FND_API.G_EXC_ERROR THEN
1011: x_return_status := FND_API.G_RET_STS_ERROR;
1012: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1013: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1014: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
1015: print_debuginfo(l_module_name,'SQLerr is :'
1016: || substr(SQLERRM, 1, 150));
1016: || substr(SQLERRM, 1, 150));
1017: END IF;
1018: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1019: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1020: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1021: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1022: print_debuginfo(l_module_name,'Unexpected ERROR: Exception occured during call to API ');
1023: print_debuginfo(l_module_name,'SQLerr is :'
1024: || substr(SQLERRM, 1, 150));
1025: END IF;
1026: WHEN OTHERS THEN
1027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1028:
1029: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR))
1030: THEN
1031: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1032: END IF;
1033: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1028:
1029: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR))
1030: THEN
1031: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1032: END IF;
1033: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1034: print_debuginfo(l_module_name,'Other ERROR: Exception occured during call to API ');
1035: print_debuginfo(l_module_name,'SQLerr is :'
1034: print_debuginfo(l_module_name,'Other ERROR: Exception occured during call to API ');
1035: print_debuginfo(l_module_name,'SQLerr is :'
1036: || substr(SQLERRM, 1, 150));
1037: END IF;
1038: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1039:
1040: END Get_Applicable_Payment_Methods;
1041:
1042: -- Start of comments
1211: END IF;
1212:
1213: -- Initialize message list if p_init_msg_list is set to TRUE.
1214: IF FND_API.to_Boolean(p_init_msg_list) THEN
1215: FND_MSG_PUB.initialize;
1216: END IF;
1217:
1218: -- Initialize API return status to success
1219: x_return_status := FND_API.G_RET_STS_SUCCESS;
1235: print_debuginfo(l_module_name,'Error: No applicable payment profiles '
1236: || 'were found.');
1237: END IF;
1238: FND_MESSAGE.set_name('IBY', 'IBY_NO_APPLICABLE_PAYMENT_PROFILES');
1239: FND_MSG_PUB.Add;
1240: raise FND_API.G_EXC_ERROR;
1241: ELSE
1242: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1243: print_debuginfo(l_module_name, 'Count of applicable payment profiles: '
1249:
1250: -- End of API body.
1251:
1252: -- Standard call to get message count and if count is 1, get message info.
1253: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1254:
1255: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1256: print_debuginfo(l_module_name, 'RETURN');
1257:
1259: EXCEPTION
1260:
1261: WHEN FND_API.G_EXC_ERROR THEN
1262: x_return_status := FND_API.G_RET_STS_ERROR;
1263: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1264: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1265: print_debuginfo(l_module_name, 'ERROR: Exception occured '
1266: || 'during call to API ');
1267: print_debuginfo(l_module_name, 'SQLerr is :'
1269:
1270: END IF;
1271: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1273: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1274: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1275: print_debuginfo(l_module_name, 'ERROR: Exception occured during '
1276: || 'call to API ');
1277: print_debuginfo(l_module_name,'SQLerr is :'
1280: END IF;
1281: WHEN OTHERS THEN
1282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1283:
1284: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1285: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1286: END IF;
1287:
1288: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1281: WHEN OTHERS THEN
1282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1283:
1284: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1285: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1286: END IF;
1287:
1288: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1289: print_debuginfo(l_module_name, 'ERROR: Exception occured during '
1290: || 'call to API ');
1291: print_debuginfo(l_module_name,'SQLerr is :'
1292: || substr(SQLERRM, 1, 150));
1293: END IF;
1294: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1295:
1296: END Get_Applicable_Pmt_Profiles;
1297:
1298: -- Start of comments
1366: END IF;
1367:
1368: -- Initialize message list if p_init_msg_list is set to TRUE.
1369: IF FND_API.to_Boolean(p_init_msg_list) THEN
1370: FND_MSG_PUB.initialize;
1371: END IF;
1372:
1373: -- Initialize API return status to success
1374: x_return_status := FND_API.G_RET_STS_SUCCESS;
1627: x_payment_profiles_tbl := l_prof_intsct_tab;
1628:
1629: -- End of API body.
1630: -- Standard call to get message count and if count is 1, get message info.
1631: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1632:
1633: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1634: print_debuginfo(l_module_name, 'RETURN');
1635:
1637: EXCEPTION
1638:
1639: WHEN FND_API.G_EXC_ERROR THEN
1640: x_return_status := FND_API.G_RET_STS_ERROR;
1641: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1642: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1643: print_debuginfo(l_module_name, 'ERROR: Exception occured '
1644: || 'during call to API ');
1645: print_debuginfo(l_module_name, 'SQLerr is :'
1647:
1648: END IF;
1649: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1651: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1652: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1653: print_debuginfo(l_module_name, 'ERROR: Exception occured during '
1654: || 'call to API ');
1655: print_debuginfo(l_module_name,'SQLerr is :'
1658: END IF;
1659: WHEN OTHERS THEN
1660: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1661:
1662: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR))
1663: THEN
1664:
1665: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1666:
1661:
1662: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR))
1663: THEN
1664:
1665: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1666:
1667: END IF;
1668:
1669: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1671: || 'call to API ');
1672: print_debuginfo(l_module_name,'SQLerr is :'
1673: || substr(SQLERRM, 1, 150));
1674: END IF;
1675: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1676:
1677: END Get_Pmt_Profiles_Intersect;
1678:
1679: -- Start of comments
1743: END IF;
1744:
1745: -- Initialize message list if p_init_msg_list is set to TRUE
1746: IF FND_API.to_Boolean(p_init_msg_list) THEN
1747: FND_MSG_PUB.initialize;
1748: END IF;
1749:
1750: -- Initialize API return status to success
1751: x_return_status := FND_API.G_RET_STS_SUCCESS;
1755: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''First party legal entity Id'' missing.');
1756: END IF;
1757: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
1758: FND_MESSAGE.SET_TOKEN('PARAM', fnd_message.GET_String('IBY','IBY_1PARTY_LE_ID'));
1759: FND_MSG_PUB.Add;
1760: RAISE FND_API.G_EXC_ERROR;
1761: END IF;
1762:
1763: OPEN payer_country_csr(p_trxn_attributes_rec.payer_legal_entity_id);
1769: print_debuginfo(l_module_name,'Error: First party country Not populated.');
1770: END IF;
1771: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_DATA');
1772: FND_MESSAGE.SET_TOKEN('PARAM', 'First party country');
1773: FND_MSG_PUB.Add;
1774: RAISE FND_API.G_EXC_ERROR;
1775: END IF;
1776:
1777: OPEN payment_reason_csr(l_payer_country);
1791:
1792: -- End of API body.
1793:
1794: -- Standard call to get message count and if count is 1, get message info.
1795: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1796:
1797: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1798: print_debuginfo(l_module_name, 'RETURN');
1799:
1800: END IF;
1801: EXCEPTION
1802: WHEN FND_API.G_EXC_ERROR THEN
1803: x_return_status := FND_API.G_RET_STS_ERROR;
1804: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1805: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1806: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
1807: print_debuginfo(l_module_name,'SQLerr is :'
1808: || substr(SQLERRM, 1, 150));
1808: || substr(SQLERRM, 1, 150));
1809: END IF;
1810: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1811: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1812: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1813: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1814: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
1815: print_debuginfo(l_module_name,'SQLerr is :'
1816: || substr(SQLERRM, 1, 150));
1817: END IF;
1818: WHEN OTHERS THEN
1819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1820:
1821: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1822: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1823: END IF;
1824: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1825: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
1818: WHEN OTHERS THEN
1819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1820:
1821: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1822: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1823: END IF;
1824: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1825: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
1826: print_debuginfo(l_module_name,'SQLerr is :'
1825: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
1826: print_debuginfo(l_module_name,'SQLerr is :'
1827: || substr(SQLERRM, 1, 150));
1828: END IF;
1829: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1830:
1831: END Get_Applicable_Payment_Reasons;
1832:
1833: -- Start of comments
2206: END IF;
2207:
2208: -- Initialize message list if p_init_msg_list is set to TRUE.
2209: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2210: FND_MSG_PUB.initialize;
2211: END IF;
2212:
2213: -- Initialize API return status to success
2214: x_return_status := FND_API.G_RET_STS_SUCCESS;
2553: x_default_pmt_attrs_rec.payment_reason_comments :=l_payment_reason_comments;
2554: -- End of API body.
2555:
2556: -- Standard call to get message count and if count is 1, get message info.
2557: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2558: p_data => x_msg_data);
2559:
2560: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2561: print_debuginfo(l_module_name, 'RETURN');
2568: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2569: print_debuginfo(l_module_name,'SQLerr is :'
2570: || substr(SQLERRM, 1, 150));
2571: END IF;
2572: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2573: p_data => x_msg_data);
2574:
2575: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2576: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2578: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2579: print_debuginfo(l_module_name,'SQLerr is :'
2580: || substr(SQLERRM, 1, 150));
2581: END IF;
2582: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2583: p_data => x_msg_data);
2584:
2585: WHEN OTHERS THEN
2586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2588: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2589: print_debuginfo(l_module_name,'SQLerr is :'
2590: || substr(SQLERRM, 1, 150));
2591: END IF;
2592: IF (FND_MSG_PUB.Check_Msg_Level
2593: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2594: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
2595: l_api_name);
2596: END IF;
2589: print_debuginfo(l_module_name,'SQLerr is :'
2590: || substr(SQLERRM, 1, 150));
2591: END IF;
2592: IF (FND_MSG_PUB.Check_Msg_Level
2593: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2594: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
2595: l_api_name);
2596: END IF;
2597: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2590: || substr(SQLERRM, 1, 150));
2591: END IF;
2592: IF (FND_MSG_PUB.Check_Msg_Level
2593: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2594: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
2595: l_api_name);
2596: END IF;
2597: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2598: p_data => x_msg_data);
2593: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2594: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
2595: l_api_name);
2596: END IF;
2597: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2598: p_data => x_msg_data);
2599:
2600: END Get_Default_Payment_Attributes;
2601:
2709: END IF;
2710:
2711: -- Initialize message list if p_init_msg_list is set to TRUE.
2712: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2713: FND_MSG_PUB.initialize;
2714: END IF;
2715:
2716: -- Initialize API return status to success
2717: x_return_status := FND_API.G_RET_STS_SUCCESS;
2779: x_payee_bankaccount := l_payee_bankaccount_rec;
2780: -- End of API body.
2781:
2782: -- Standard call to get message count and if count is 1, get message info.
2783: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2784: p_data => x_msg_data);
2785:
2786: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2787: print_debuginfo(l_module_name, 'RETURN');
2794: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2795: print_debuginfo(l_module_name,'SQLerr is :'
2796: || substr(SQLERRM, 1, 150));
2797: END IF;
2798: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2799: p_data => x_msg_data);
2800:
2801: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2802: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2804: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2805: print_debuginfo(l_module_name,'SQLerr is :'
2806: || substr(SQLERRM, 1, 150));
2807: END IF;
2808: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2809: p_data => x_msg_data);
2810:
2811: WHEN OTHERS THEN
2812: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2814: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2815: print_debuginfo(l_module_name,'SQLerr is :'
2816: || substr(SQLERRM, 1, 150));
2817: END IF;
2818: IF (FND_MSG_PUB.Check_Msg_Level
2819: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2820: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
2821: l_api_name);
2822: END IF;
2815: print_debuginfo(l_module_name,'SQLerr is :'
2816: || substr(SQLERRM, 1, 150));
2817: END IF;
2818: IF (FND_MSG_PUB.Check_Msg_Level
2819: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2820: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
2821: l_api_name);
2822: END IF;
2823: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2816: || substr(SQLERRM, 1, 150));
2817: END IF;
2818: IF (FND_MSG_PUB.Check_Msg_Level
2819: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2820: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
2821: l_api_name);
2822: END IF;
2823: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2824: p_data => x_msg_data);
2819: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2820: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
2821: l_api_name);
2822: END IF;
2823: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2824: p_data => x_msg_data);
2825:
2826: END Get_Default_Payee_Bank_Acc;
2827:
2899: END IF;
2900:
2901: -- Initialize message list if p_init_msg_list is set to TRUE.
2902: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2903: FND_MSG_PUB.initialize;
2904: END IF;
2905:
2906: -- Initialize API return status to success
2907: x_return_status := FND_API.G_RET_STS_SUCCESS;
2915: print_debuginfo(l_module_name,'Error: Payment Method is inactive.');
2916: END IF;
2917: FND_MESSAGE.set_name('IBY', 'IBY_INACTIVE_ATTRIBUTE');
2918: FND_MESSAGE.SET_TOKEN('PARAM', 'Payment Method');
2919: FND_MSG_PUB.Add;
2920: RAISE FND_API.G_EXC_ERROR;
2921: ELSE
2922: x_Payment_Field_Properties := l_Payment_Field_Properties;
2923: END IF;
2926:
2927: -- End of API body.
2928:
2929: -- Standard call to get message count and if count is 1, get message info.
2930: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2931: p_data => x_msg_data);
2932:
2933: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2934: print_debuginfo(l_module_name, 'RETURN');
2940: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2941: print_debuginfo(l_module_name,'SQLerr is :'
2942: || substr(SQLERRM, 1, 150));
2943: END IF;
2944: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2945: p_data => x_msg_data);
2946:
2947: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2948: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2950: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2951: print_debuginfo(l_module_name,'SQLerr is :'
2952: || substr(SQLERRM, 1, 150));
2953: END IF;
2954: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2955: p_data => x_msg_data);
2956:
2957: WHEN OTHERS THEN
2958: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2960: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
2961: print_debuginfo(l_module_name,'SQLerr is :'
2962: || substr(SQLERRM, 1, 150));
2963: END IF;
2964: IF (FND_MSG_PUB.Check_Msg_Level
2965: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2966: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
2967: l_api_name);
2968: END IF;
2961: print_debuginfo(l_module_name,'SQLerr is :'
2962: || substr(SQLERRM, 1, 150));
2963: END IF;
2964: IF (FND_MSG_PUB.Check_Msg_Level
2965: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2966: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
2967: l_api_name);
2968: END IF;
2969: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2962: || substr(SQLERRM, 1, 150));
2963: END IF;
2964: IF (FND_MSG_PUB.Check_Msg_Level
2965: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2966: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
2967: l_api_name);
2968: END IF;
2969: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2970: p_data => x_msg_data);
2965: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2966: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
2967: l_api_name);
2968: END IF;
2969: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2970: p_data => x_msg_data);
2971:
2972: END Get_Payment_Field_Properties;
2973:
3025: END IF;
3026:
3027: -- Initialize message list if p_init_msg_list is set to TRUE.
3028: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3029: FND_MSG_PUB.initialize;
3030: END IF;
3031:
3032: -- Initialize API return status to success
3033: x_return_status := FND_API.G_RET_STS_SUCCESS;
3044:
3045: -- End of API body.
3046:
3047: -- Standard call to get message count and if count is 1, get message info.
3048: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3049: p_data => x_msg_data);
3050:
3051: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3052: print_debuginfo(l_module_name, 'RETURN');
3059: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
3060: print_debuginfo(l_module_name,'SQLerr is :'
3061: || substr(SQLERRM, 1, 150));
3062: END IF;
3063: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3064: p_data => x_msg_data);
3065:
3066: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3067: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3069: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
3070: print_debuginfo(l_module_name,'SQLerr is :'
3071: || substr(SQLERRM, 1, 150));
3072: END IF;
3073: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3074: p_data => x_msg_data);
3075:
3076: WHEN OTHERS THEN
3077: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3079: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
3080: print_debuginfo(l_module_name,'SQLerr is :'
3081: || substr(SQLERRM, 1, 150));
3082: END IF;
3083: IF (FND_MSG_PUB.Check_Msg_Level
3084: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3085: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
3086: l_api_name);
3087: END IF;
3080: print_debuginfo(l_module_name,'SQLerr is :'
3081: || substr(SQLERRM, 1, 150));
3082: END IF;
3083: IF (FND_MSG_PUB.Check_Msg_Level
3084: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3085: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
3086: l_api_name);
3087: END IF;
3088: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3081: || substr(SQLERRM, 1, 150));
3082: END IF;
3083: IF (FND_MSG_PUB.Check_Msg_Level
3084: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3085: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
3086: l_api_name);
3087: END IF;
3088: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3089: p_data => x_msg_data);
3084: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3085: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
3086: l_api_name);
3087: END IF;
3088: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3089: p_data => x_msg_data);
3090:
3091: END Validate_Documents;
3092:
3614: END IF;
3615:
3616: -- Initialize message list if p_init_msg_list is set to TRUE.
3617: IF FND_API.to_Boolean(p_init_msg_list) THEN
3618: FND_MSG_PUB.initialize;
3619: END IF;
3620:
3621: -- Initialize API return status to success
3622: x_return_status := FND_API.G_RET_STS_SUCCESS;
3627: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''Payee Party Id'' missing.');
3628: END IF;
3629: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
3630: FND_MESSAGE.SET_TOKEN('PARAM', fnd_message.GET_String('IBY','IBY_PAYEE_PARTY_ID_FIELD'));
3631: FND_MSG_PUB.Add;
3632: RAISE FND_API.G_EXC_ERROR;
3633: END IF;
3634:
3635: IF (p_trxn_attributes_rec.payment_currency IS NULL) THEN
3637: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''Payment Currency'' missing.');
3638: END IF;
3639: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
3640: FND_MESSAGE.SET_TOKEN('PARAM', fnd_message.GET_String('IBY','IBY_PMT_CURR_FIELD'));
3641: FND_MSG_PUB.Add;
3642: RAISE FND_API.G_EXC_ERROR;
3643: END IF;
3644:
3645: IF (p_trxn_attributes_rec.payment_function IS NULL) THEN
3647: print_debuginfo(l_module_name,'Error: Mandatory Parameter ''Account Usage'' missing.');
3648: END IF;
3649: FND_MESSAGE.set_name('IBY', 'IBY_MISSING_MANDATORY_PARAM');
3650: FND_MESSAGE.SET_TOKEN('PARAM', fnd_message.GET_String('IBY','IBY_ACCT_USG_FIELD'));
3651: FND_MSG_PUB.Add;
3652: RAISE FND_API.G_EXC_ERROR;
3653: END IF;
3654:
3655: -- Start of API body.
3677:
3678: -- End of API body.
3679:
3680: -- Standard call to get message count and if count is 1, get message info.
3681: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3682:
3683: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3684: print_debuginfo(l_module_name, 'RETURN');
3685:
3686: END IF;
3687: EXCEPTION
3688: WHEN FND_API.G_EXC_ERROR THEN
3689: x_return_status := FND_API.G_RET_STS_ERROR;
3690: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3691: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3692: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
3693: print_debuginfo(l_module_name,'SQLerr is :'
3694: || substr(SQLERRM, 1, 150));
3694: || substr(SQLERRM, 1, 150));
3695: END IF;
3696: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3698: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3699: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3700: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
3701: print_debuginfo(l_module_name,'SQLerr is :'
3702: || substr(SQLERRM, 1, 150));
3703: END IF;
3704: WHEN OTHERS THEN
3705: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3706:
3707: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR))
3708: THEN
3709: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3710: END IF;
3711: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3705: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3706:
3707: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR))
3708: THEN
3709: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3710: END IF;
3711: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3712: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
3713: print_debuginfo(l_module_name,'SQLerr is :'
3712: print_debuginfo(l_module_name,'ERROR: Exception occured during call to API ');
3713: print_debuginfo(l_module_name,'SQLerr is :'
3714: || substr(SQLERRM, 1, 150));
3715: END IF;
3716: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3717:
3718: END Get_Applicable_Payee_Acc_list;
3719:
3720: END IBY_DISBURSEMENT_COMP_PUB;