101: END IF;
102:
103: --Initialize message list if p_init_msg_list is set to TRUE.
104: IF FND_API.to_Boolean(p_init_msg_list) THEN
105: FND_MSG_PUB.initialize;
106: END IF;
107:
108: --Initialize API return status to success.
109: x_return_status := FND_API.G_RET_STS_SUCCESS;
174: Commit;
175: END IF;
176:
177: --Standard call to get message count and if count is 1, get message info.
178: FND_MSG_PUB.Count_And_Get(
179: p_encoded => FND_API.G_FALSE,
180: p_count => x_msg_count,
181: p_data => x_msg_data);
182:
184: WHEN FND_API.G_EXC_ERROR THEN
185: ROLLBACK TO create_credit_ratings_pub;
186: x_return_status := FND_API.G_RET_STS_ERROR;
187:
188: FND_MSG_PUB.Count_And_Get(
189: p_encoded => FND_API.G_FALSE,
190: p_count => x_msg_count,
191: p_data => x_msg_data);
192:
193: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
194: ROLLBACK TO create_credit_ratings_pub;
195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
196:
197: FND_MSG_PUB.Count_And_Get(
198: p_encoded => FND_API.G_FALSE,
199: p_count => x_msg_count,
200: p_data => x_msg_data);
201:
204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
205:
206: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
207: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
208: FND_MSG_PUB.ADD;
209:
210: FND_MSG_PUB.Count_And_Get(
211: p_encoded => FND_API.G_FALSE,
212: p_count => x_msg_count,
206: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
207: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
208: FND_MSG_PUB.ADD;
209:
210: FND_MSG_PUB.Count_And_Get(
211: p_encoded => FND_API.G_FALSE,
212: p_count => x_msg_count,
213: p_data => x_msg_data);
214:
284: END IF;
285:
286: --Initialize message list if p_init_msg_list is set to TRUE.
287: IF FND_API.to_Boolean(p_init_msg_list) THEN
288: FND_MSG_PUB.initialize;
289: END IF;
290:
291: --Initialize API return status to success.
292: x_return_status := FND_API.G_RET_STS_SUCCESS;
358: Commit;
359: END IF;
360:
361: --Standard call to get message count and if count is 1, get message info.
362: FND_MSG_PUB.Count_And_Get(
363: p_encoded => FND_API.G_FALSE,
364: p_count => x_msg_count,
365: p_data => x_msg_data);
366:
368: WHEN FND_API.G_EXC_ERROR THEN
369: ROLLBACK TO update_credit_ratings_pub;
370: x_return_status := FND_API.G_RET_STS_ERROR;
371:
372: FND_MSG_PUB.Count_And_Get(
373: p_encoded => FND_API.G_FALSE,
374: p_count => x_msg_count,
375: p_data => x_msg_data);
376:
377: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
378: ROLLBACK TO update_credit_ratings_pub;
379: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
380:
381: FND_MSG_PUB.Count_And_Get(
382: p_encoded => FND_API.G_FALSE,
383: p_count => x_msg_count,
384: p_data => x_msg_data);
385:
388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
389:
390: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
391: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
392: FND_MSG_PUB.ADD;
393:
394: FND_MSG_PUB.Count_And_Get(
395: p_encoded => FND_API.G_FALSE,
396: p_count => x_msg_count,
390: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
391: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
392: FND_MSG_PUB.ADD;
393:
394: FND_MSG_PUB.Count_And_Get(
395: p_encoded => FND_API.G_FALSE,
396: p_count => x_msg_count,
397: p_data => x_msg_data);
398:
463: END IF;
464:
465: --Initialize message list if p_init_msg_list is set to TRUE.
466: IF FND_API.to_Boolean(p_init_msg_list) THEN
467: FND_MSG_PUB.initialize;
468: END IF;
469:
470: --Initialize API return status to success.
471: x_return_status := FND_API.G_RET_STS_SUCCESS;
484: FND_MESSAGE.SET_NAME('AR', 'HZ_API_HOOK_ERROR');
485: FND_MESSAGE.SET_TOKEN('PROCEDURE',
486: 'HZ_PARTY_INFO_CRMHK.CREATE_FINANCIAL_PROFILE_PRE');
487: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
488: FND_MSG_PUB.ADD;
489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
490: END IF;
491:
492: END IF;
512: FND_MESSAGE.SET_NAME('AR', 'HZ_API_HOOK_ERROR');
513: FND_MESSAGE.SET_TOKEN('PROCEDURE',
514: 'HZ_PARTY_INFO_CRMHK.CREATE_FINANCIAL_PROFILE_POST');
515: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
516: FND_MSG_PUB.ADD;
517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
518: END IF;
519:
520: END IF;
537: Commit;
538: END IF;
539:
540: --Standard call to get message count and if count is 1, get message info.
541: FND_MSG_PUB.Count_And_Get(
542: p_encoded => FND_API.G_FALSE,
543: p_count => x_msg_count,
544: p_data => x_msg_data);
545: EXCEPTION
545: EXCEPTION
546: WHEN FND_API.G_EXC_ERROR THEN
547: ROLLBACK TO create_financial_profile_pub;
548: x_return_status := FND_API.G_RET_STS_ERROR;
549: FND_MSG_PUB.Count_And_Get(
550: p_encoded => FND_API.G_FALSE,
551: p_count => x_msg_count,
552: p_data => x_msg_data);
553:
553:
554: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
555: ROLLBACK TO create_financial_profile_pub;
556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
557: FND_MSG_PUB.Count_And_Get(
558: p_encoded => FND_API.G_FALSE,
559: p_count => x_msg_count,
560: p_data => x_msg_data);
561:
564: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
565:
566: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
567: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
568: FND_MSG_PUB.ADD;
569:
570: FND_MSG_PUB.Count_And_Get(
571: p_encoded => FND_API.G_FALSE,
572: p_count => x_msg_count,
566: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
567: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
568: FND_MSG_PUB.ADD;
569:
570: FND_MSG_PUB.Count_And_Get(
571: p_encoded => FND_API.G_FALSE,
572: p_count => x_msg_count,
573: p_data => x_msg_data);
574:
635: END IF;
636:
637: --Initialize message list if p_init_msg_list is set to TRUE.
638: IF FND_API.to_Boolean(p_init_msg_list) THEN
639: FND_MSG_PUB.initialize;
640: END IF;
641:
642: --Initialize API return status to success.
643: x_return_status := FND_API.G_RET_STS_SUCCESS;
657: FND_MESSAGE.SET_NAME('AR', 'HZ_API_HOOK_ERROR');
658: FND_MESSAGE.SET_TOKEN('PROCEDURE',
659: 'HZ_PARTY_INFO_CRMHK.UPDATE_FINANCIAL_PROFILE_PRE');
660: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
661: FND_MSG_PUB.ADD;
662: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
663: END IF;
664:
665: END IF;
686: FND_MESSAGE.SET_NAME('AR', 'HZ_API_HOOK_ERROR');
687: FND_MESSAGE.SET_TOKEN('PROCEDURE',
688: 'HZ_PARTY_INFO_CRMHK.UPDATE_FINANCIAL_PROFILE_POST');
689: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
690: FND_MSG_PUB.ADD;
691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
692: END IF;
693:
694: END IF;
711: Commit;
712: END IF;
713:
714: --Standard call to get message count and if count is 1, get message info.
715: FND_MSG_PUB.Count_And_Get(
716: p_encoded => FND_API.G_FALSE,
717: p_count => x_msg_count,
718: p_data => x_msg_data);
719: EXCEPTION
719: EXCEPTION
720: WHEN FND_API.G_EXC_ERROR THEN
721: ROLLBACK TO update_financial_profile_pub;
722: x_return_status := FND_API.G_RET_STS_ERROR;
723: FND_MSG_PUB.Count_And_Get(
724: p_encoded => FND_API.G_FALSE,
725: p_count => x_msg_count,
726: p_data => x_msg_data);
727:
727:
728: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
729: ROLLBACK TO update_financial_profile_pub;
730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
731: FND_MSG_PUB.Count_And_Get(
732: p_encoded => FND_API.G_FALSE,
733: p_count => x_msg_count,
734: p_data => x_msg_data);
735:
738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
739:
740: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
741: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
742: FND_MSG_PUB.ADD;
743:
744: FND_MSG_PUB.Count_And_Get(
745: p_encoded => FND_API.G_FALSE,
746: p_count => x_msg_count,
740: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
741: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
742: FND_MSG_PUB.ADD;
743:
744: FND_MSG_PUB.Count_And_Get(
745: p_encoded => FND_API.G_FALSE,
746: p_count => x_msg_count,
747: p_data => x_msg_data);
748:
809: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
810: FND_MESSAGE.SET_NAME('AR', 'HZ_API_HOOK_ERROR');
811: FND_MESSAGE.SET_TOKEN('PROCEDURE','HZ_PARTY_INFO_CRMHK.CREATE_CREDIT_RATINGS_PRE');
812: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
813: FND_MSG_PUB.ADD;
814: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
815: END IF;
816: END IF;
817: */
841:
842: IF l_count > 0 THEN
843: FND_MESSAGE.SET_NAME('AR', 'HZ_API_DUPLICATE_COLUMN');
844: FND_MESSAGE.SET_TOKEN('COLUMN', 'credit_rating_id');
845: FND_MSG_PUB.ADD;
846: RAISE FND_API.G_EXC_ERROR;
847: END IF;
848: END IF;
849:
1006: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1007: FND_MESSAGE.SET_NAME('AR', 'HZ_API_HOOK_ERROR');
1008: FND_MESSAGE.SET_TOKEN('PROCEDURE','HZ_PARTY_INFO_CRMHK.CREATE_CREDIT_RATINGS_POST');
1009: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1010: FND_MSG_PUB.ADD;
1011: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1012: END IF;
1013: END IF;
1014: */
1062: p_credit_ratings_rec.credit_rating_id = FND_API.G_MISS_NUM
1063: THEN
1064: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
1065: FND_MESSAGE.SET_TOKEN('COLUMN', 'credit_rating_id');
1066: FND_MSG_PUB.ADD;
1067: RAISE FND_API.G_EXC_ERROR;
1068: END IF;
1069:
1070: IF p_last_update_date IS NULL OR
1071: p_last_update_date = FND_API.G_MISS_DATE
1072: THEN
1073: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
1074: FND_MESSAGE.SET_TOKEN('COLUMN', 'p_last_update_date');
1075: FND_MSG_PUB.ADD;
1076: RAISE FND_API.G_EXC_ERROR;
1077: END IF;
1078:
1079: BEGIN
1091: EXCEPTION
1092: WHEN NO_DATA_FOUND THEN
1093: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1094: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_CREDIT_RATINGS');
1095: FND_MSG_PUB.ADD;
1096: RAISE FND_API.G_EXC_ERROR;
1097: END;
1098:
1099: --Call to User-Hook pre Processing Procedure
1114: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1115: FND_MESSAGE.SET_NAME('AR', 'HZ_API_HOOK_ERROR');
1116: FND_MESSAGE.SET_TOKEN('PROCEDURE','HZ_PARTY_INFO_CRMHK.UPDATE_CREDIT_RATINGS_PRE');
1117: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1118: FND_MSG_PUB.ADD;
1119: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1120: END IF;
1121: END IF;
1122: */
1286: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1287: FND_MESSAGE.SET_NAME('AR', 'HZ_API_HOOK_ERROR');
1288: FND_MESSAGE.SET_TOKEN('PROCEDURE','HZ_PARTY_INFO_CRMHK.UPDATE_CREDIT_RATINGS_POST');
1289: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1290: FND_MSG_PUB.ADD;
1291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1292: END IF;
1293: END IF;
1294: */
1357:
1358: if l_count > 0 then
1359: FND_MESSAGE.SET_NAME('AR', 'HZ_API_DUPLICATE_COLUMN');
1360: FND_MESSAGE.SET_TOKEN('COLUMN', 'financial_profile_id');
1361: FND_MSG_PUB.ADD;
1362: RAISE FND_API.G_EXC_ERROR;
1363: end if;
1364:
1365: END IF;
1449: p_financial_profile_rec.financial_profile_id = FND_API.G_MISS_NUM THEN
1450:
1451: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
1452: FND_MESSAGE.SET_TOKEN('COLUMN', 'financial_profile_id');
1453: FND_MSG_PUB.ADD;
1454: RAISE FND_API.G_EXC_ERROR;
1455:
1456: END IF;
1457:
1459: p_last_update_date = FND_API.G_MISS_DATE
1460: THEN
1461: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
1462: FND_MESSAGE.SET_TOKEN('COLUMN', 'p_last_update_date');
1463: FND_MSG_PUB.ADD;
1464: RAISE FND_API.G_EXC_ERROR;
1465: END IF;
1466:
1467: begin
1476:
1477: EXCEPTION WHEN NO_DATA_FOUND THEN
1478: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1479: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_FINANCIAL_PROFILE');
1480: FND_MSG_PUB.ADD;
1481: RAISE FND_API.G_EXC_ERROR;
1482: end;
1483: -- validate credit rating record
1484: HZ_PARTY_INFO_VAL.validate_financial_profile(p_financial_profile_rec,'U',
1549: END IF;
1550:
1551: --Initialize message list if p_init_msg_list is set to TRUE.
1552: IF FND_API.to_Boolean(p_init_msg_list) THEN
1553: FND_MSG_PUB.initialize;
1554: END IF;
1555:
1556: --Initialize API return status to success.
1557: x_return_status := FND_API.G_RET_STS_SUCCESS;
1561: p_credit_rating_id = FND_API.G_MISS_NUM THEN
1562:
1563: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
1564: FND_MESSAGE.SET_TOKEN('COLUMN', 'credit_rating_id');
1565: FND_MSG_PUB.ADD;
1566: RAISE FND_API.G_EXC_ERROR;
1567: END IF;
1568:
1569: BEGIN /* Just for select statement */
1774: WHEN NO_DATA_FOUND THEN
1775: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
1776: FND_MESSAGE.SET_TOKEN('RECORD', 'credit rating');
1777: FND_MESSAGE.SET_TOKEN('VALUE', to_char(p_credit_rating_id));
1778: FND_MSG_PUB.ADD;
1779: RAISE FND_API.G_EXC_ERROR;
1780: END;
1781: --Standard call to get message count and if count is 1, get message info.
1782: FND_MSG_PUB.Count_And_Get(
1778: FND_MSG_PUB.ADD;
1779: RAISE FND_API.G_EXC_ERROR;
1780: END;
1781: --Standard call to get message count and if count is 1, get message info.
1782: FND_MSG_PUB.Count_And_Get(
1783: p_encoded => FND_API.G_FALSE,
1784: p_count => x_msg_count,
1785: p_data => x_msg_data);
1786:
1786:
1787: EXCEPTION
1788: WHEN FND_API.G_EXC_ERROR THEN
1789: x_return_status := FND_API.G_RET_STS_ERROR;
1790: FND_MSG_PUB.Count_And_Get(
1791: p_encoded => FND_API.G_FALSE,
1792: p_count => x_msg_count,
1793: p_data => x_msg_data);
1794:
1793: p_data => x_msg_data);
1794:
1795: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1797: FND_MSG_PUB.Count_And_Get(
1798: p_encoded => FND_API.G_FALSE,
1799: p_count => x_msg_count,
1800: p_data => x_msg_data);
1801: WHEN OTHERS THEN
1802: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1803:
1804: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1805: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1806: FND_MSG_PUB.ADD;
1807:
1808: FND_MSG_PUB.Count_And_Get(
1809: p_encoded => FND_API.G_FALSE,
1810: p_count => x_msg_count,
1804: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1805: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1806: FND_MSG_PUB.ADD;
1807:
1808: FND_MSG_PUB.Count_And_Get(
1809: p_encoded => FND_API.G_FALSE,
1810: p_count => x_msg_count,
1811: p_data => x_msg_data);
1812: