[Home] [Help]
17: BEGIN
18: fnd_message.set_name('OKL', 'OKL_API_ALL_MISSING_PARAM');
19: fnd_message.set_token('API_NAME', p_api_name);
20: fnd_message.set_token('MISSING_PARAM', p_param_name);
21: fnd_msg_pub.add;
22:
23: END AddMissingArgMsg;
24:
25: /**Name AddFailMsg
34: BEGIN
35: fnd_message.set_name('OKL', 'OKL_FAILED_OPERATION');
36: fnd_message.set_token('OBJECT', p_object);
37: fnd_message.set_token('OPERATION', p_operation);
38: fnd_msg_pub.add;
39:
40: END AddfailMsg;
41:
42:
69:
70: BEGIN
71: FOR l_count in 1..p_message_count LOOP
72:
73: l_temp_msg := fnd_msg_pub.get(fnd_msg_pub.g_next, fnd_api.g_true);
74: fnd_message.parse_encoded(l_temp_msg, l_appl_short_name, l_message_name);
75: OPEN Get_Appl_Id (l_appl_short_name);
76: FETCH Get_Appl_Id into l_id;
77: CLOSE Get_Appl_Id;
84: FETCH Get_Message_Num into l_message_num;
85: CLOSE Get_Message_Num;
86: END IF;
87:
88: l_temp_msg := fnd_msg_pub.get(fnd_msg_pub.g_previous, fnd_api.g_true);
89:
90: IF NVL(l_message_num, 0) <> 0
91: THEN
92: l_temp_msg := 'APP-' || to_char(l_message_num) || ': ';
96:
97: IF l_count = 1
98: THEN
99: l_msg_list := l_msg_list || l_temp_msg ||
100: fnd_msg_pub.get(fnd_msg_pub.g_first, fnd_api.g_false);
101: ELSE
102: l_msg_list := l_msg_list || l_temp_msg ||
103: fnd_msg_pub.get(fnd_msg_pub.g_next, fnd_api.g_false);
104: END IF;
99: l_msg_list := l_msg_list || l_temp_msg ||
100: fnd_msg_pub.get(fnd_msg_pub.g_first, fnd_api.g_false);
101: ELSE
102: l_msg_list := l_msg_list || l_temp_msg ||
103: fnd_msg_pub.get(fnd_msg_pub.g_next, fnd_api.g_false);
104: END IF;
105:
106: l_msg_list := l_msg_list || '';
107:
216:
217: SAVEPOINT CREATE_REFUND;
218: -- Initialize message list if p_init_msg_list is set to TRUE.
219:
220: FND_MSG_PUB.initialize;
221:
222:
223: /*** Logic for refunds ********
224: ** 1) Invoke the common disbursement API for ap header and line creation
321: EXCEPTION
322: WHEN OTHERS THEN
323: IF SQLCODE = 100 THEN
324: fnd_message.set_name('OKL', 'OKL_PAY_INV_SEQ_CHECK');
325: fnd_msg_pub.add;
326: RAISE FND_API.G_EXC_ERROR;
327: END IF;
328: END;
329:
490: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'lx_tapv_rec.id'
491: ||lx_tapv_rec.id);
492: END IF;
493: END IF;
494: FND_MSG_PUB.initialize;
495: END IF;
496:
497: lp_tplv_rec.tap_id := lx_tapv_rec.id;
498:
520: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'lx_tplv_rec.id'
521: ||lx_tplv_rec.id);
522: END IF;
523: END IF;
524: FND_MSG_PUB.initialize;
525: END IF;
526: -- end:
527: --cklee 06/04/2007 Reverse the original code back due to the duplicated
528: -- accounting entries will be created
574: x_cure_refund_id :=lx_crfv_rec.cure_refund_id;
575: END IF;
576:
577: IF x_return_status =FND_API.G_RET_STS_SUCCESS THEN
578: FND_MSG_PUB.initialize;
579: END IF;
580:
581: FND_MSG_PUB.Count_And_Get
582: ( p_count => x_msg_count,
577: IF x_return_status =FND_API.G_RET_STS_SUCCESS THEN
578: FND_MSG_PUB.initialize;
579: END IF;
580:
581: FND_MSG_PUB.Count_And_Get
582: ( p_count => x_msg_count,
583: p_data => x_msg_data
584: );
585:
598: ROLLBACK TO CREATE_REFUND;
599: x_return_status := Fnd_Api.G_RET_STS_ERROR;
600: x_msg_count := l_msg_count ;
601: x_msg_data := l_msg_data ;
602: Fnd_Msg_Pub.count_and_get(
603: p_count => x_msg_count
604: ,p_data => x_msg_data);
605: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
606: ROLLBACK TO CREATE_REFUND;
606: ROLLBACK TO CREATE_REFUND;
607: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
608: x_msg_count := l_msg_count ;
609: x_msg_data := l_msg_data ;
610: Fnd_Msg_Pub.count_and_get(
611: p_count => x_msg_count
612: ,p_data => x_msg_data);
613: WHEN OTHERS THEN
614: ROLLBACK TO CREATE_REFUND;
614: ROLLBACK TO CREATE_REFUND;
615: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
616: x_msg_count := l_msg_count ;
617: x_msg_data := l_msg_data ;
618: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','CREATE_REFUND');
619: Fnd_Msg_Pub.count_and_get(
620: p_count => x_msg_count
621: ,p_data => x_msg_data);
622:
615: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
616: x_msg_count := l_msg_count ;
617: x_msg_data := l_msg_data ;
618: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','CREATE_REFUND');
619: Fnd_Msg_Pub.count_and_get(
620: p_count => x_msg_count
621: ,p_data => x_msg_data);
622:
623: END create_refund;
999: SAVEPOINT CREATE_REFUND_HDR;
1000: -- Initialize message list if p_init_msg_list is set to TRUE.
1001: IF FND_API.to_Boolean( p_init_msg_list )
1002: THEN
1003: FND_MSG_PUB.initialize;
1004: END IF;
1005:
1006: x_return_status := FND_API.G_RET_STS_SUCCESS;
1007:
1016: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'duplicate refund number' );
1017: END IF;
1018: END IF;
1019: fnd_message.set_name('OKL', 'OKL_DUPLICATE_REFUND_NUMBER');
1020: fnd_msg_pub.add;
1021: RAISE FND_API.G_EXC_ERROR;
1022: END IF;
1023:
1024: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: create_refund_hdr : l_cure_refund_header_number : '||l_cure_refund_header_number);
1031: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Refund amount exceeds total refund due' );
1032: END IF;
1033: END IF;
1034: fnd_message.set_name('OKL', 'OKL_CURE_REFUND_EXCEEDS');
1035: fnd_msg_pub.add;
1036: RAISE FND_API.G_EXC_ERROR;
1037: END IF;
1038:
1039: IF PG_DEBUG < 11 THEN
1062: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Contract ' ||x_contract_number);
1063: END IF;
1064: fnd_message.set_name('OKL', 'OKL_CO_CONTRACT_DELINQUENT');
1065: fnd_message.set_token('CONTRACT_NUMBER', x_contract_number);
1066: fnd_msg_pub.add;
1067: raise FND_API.G_EXC_ERROR;
1068: END IF;
1069:
1070:
1185: THEN
1186: COMMIT WORK;
1187: END IF;
1188:
1189: FND_MSG_PUB.Count_And_Get
1190: ( p_count => x_msg_count,
1191: p_data => x_msg_data
1192: );
1193:
1199: ROLLBACK TO CREATE_REFUND_HDR;
1200: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1201: x_msg_count := l_msg_count ;
1202: x_msg_data := l_msg_data ;
1203: Fnd_Msg_Pub.count_and_get(
1204: p_count => x_msg_count
1205: ,p_data => x_msg_data);
1206: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1207: ROLLBACK TO CREATE_REFUND_HDR;
1207: ROLLBACK TO CREATE_REFUND_HDR;
1208: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1209: x_msg_count := l_msg_count ;
1210: x_msg_data := l_msg_data ;
1211: Fnd_Msg_Pub.count_and_get(
1212: p_count => x_msg_count
1213: ,p_data => x_msg_data);
1214: WHEN OTHERS THEN
1215: ROLLBACK TO CREATE_REFUND_HDR;
1215: ROLLBACK TO CREATE_REFUND_HDR;
1216: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1217: x_msg_count := l_msg_count ;
1218: x_msg_data := l_msg_data ;
1219: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','CREATE_REFUND_HDR');
1220: Fnd_Msg_Pub.count_and_get(
1221: p_count => x_msg_count
1222: ,p_data => x_msg_data);
1223:
1216: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1217: x_msg_count := l_msg_count ;
1218: x_msg_data := l_msg_data ;
1219: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','CREATE_REFUND_HDR');
1220: Fnd_Msg_Pub.count_and_get(
1221: p_count => x_msg_count
1222: ,p_data => x_msg_data);
1223:
1224:
1272:
1273: -- Initialize message list if p_init_msg_list is set to TRUE.
1274: IF FND_API.to_Boolean( p_init_msg_list )
1275: THEN
1276: FND_MSG_PUB.initialize;
1277: END IF;
1278: x_return_status := FND_API.G_RET_STS_SUCCESS;
1279:
1280: --update tap and cure_refund_headers table
1323: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1324: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Succesfully updated tap records');
1325: END IF;
1326: END IF;
1327: FND_MSG_PUB.initialize;
1328: END IF;
1329:
1330:
1331:
1360: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1361: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Succesfully updated CRF records');
1362: END IF;
1363: END IF;
1364: FND_MSG_PUB.initialize;
1365: END IF;
1366:
1367:
1368: --set error message,so this will be prefixed before the
1409: END IF;
1410: END IF;
1411:
1412: IF x_return_status =FND_API.G_RET_STS_SUCCESS THEN
1413: FND_MSG_PUB.initialize;
1414: END IF;
1415:
1416:
1417: -- Standard check for p_commit
1419: THEN
1420: COMMIT WORK;
1421: END IF;
1422:
1423: FND_MSG_PUB.Count_And_Get
1424: ( p_count => x_msg_count,
1425: p_data => x_msg_data
1426: );
1427:
1433: ROLLBACK TO UPDATE_REFUND_HDR;
1434: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1435: x_msg_count := l_msg_count ;
1436: x_msg_data := l_msg_data ;
1437: Fnd_Msg_Pub.count_and_get(
1438: p_count => x_msg_count
1439: ,p_data => x_msg_data);
1440: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1441: ROLLBACK TO UPDATE_REFUND_HDR;
1441: ROLLBACK TO UPDATE_REFUND_HDR;
1442: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1443: x_msg_count := l_msg_count ;
1444: x_msg_data := l_msg_data ;
1445: Fnd_Msg_Pub.count_and_get(
1446: p_count => x_msg_count
1447: ,p_data => x_msg_data);
1448: WHEN OTHERS THEN
1449: ROLLBACK TO UPDATE_REFUND_HDR;
1449: ROLLBACK TO UPDATE_REFUND_HDR;
1450: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1451: x_msg_count := l_msg_count ;
1452: x_msg_data := l_msg_data ;
1453: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','UPDATE_REFUND_HDR');
1454: Fnd_Msg_Pub.count_and_get(
1455: p_count => x_msg_count
1456: ,p_data => x_msg_data);
1457:
1450: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1451: x_msg_count := l_msg_count ;
1452: x_msg_data := l_msg_data ;
1453: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','UPDATE_REFUND_HDR');
1454: Fnd_Msg_Pub.count_and_get(
1455: p_count => x_msg_count
1456: ,p_data => x_msg_data);
1457:
1458: END update_refund_hdr;
1509:
1510: -- Initialize message list if p_init_msg_list is set to TRUE.
1511: IF FND_API.to_Boolean( p_init_msg_list )
1512: THEN
1513: FND_MSG_PUB.initialize;
1514: END IF;
1515:
1516: x_return_status := FND_API.G_RET_STS_SUCCESS;
1517:
1563: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1564: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Succesfully deleted tap records');
1565: END IF;
1566: END IF;
1567: FND_MSG_PUB.initialize;
1568: END IF;
1569:
1570: --set error message,so this will be prefixed before the
1571: --actual message, so it makes more sense than displaying an
1597: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1598: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Succesfully deleted tap records');
1599: END IF;
1600: END IF;
1601: FND_MSG_PUB.initialize;
1602: END IF;
1603:
1604: --set error message,so this will be prefixed before the
1605: --actual message, so it makes more sense than displaying an
1630: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1631: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Succesfully deleted CRF records');
1632: END IF;
1633: END IF;
1634: FND_MSG_PUB.initialize;
1635: END IF;
1636:
1637:
1638: --set error message,so this will be prefixed before the
1676: END IF;
1677:
1678:
1679: IF x_return_status =FND_API.G_RET_STS_SUCCESS THEN
1680: FND_MSG_PUB.initialize;
1681: END IF;
1682:
1683:
1684: -- Standard check for p_commit
1686: THEN
1687: COMMIT WORK;
1688: END IF;
1689:
1690: FND_MSG_PUB.Count_And_Get
1691: ( p_count => x_msg_count,
1692: p_data => x_msg_data
1693: );
1694:
1699: ROLLBACK TO DELETE_REFUND_HDR;
1700: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1701: x_msg_count := l_msg_count ;
1702: x_msg_data := l_msg_data ;
1703: Fnd_Msg_Pub.count_and_get(
1704: p_count => x_msg_count
1705: ,p_data => x_msg_data);
1706: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1707: ROLLBACK TO DELETE_REFUND_HDR;
1707: ROLLBACK TO DELETE_REFUND_HDR;
1708: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1709: x_msg_count := l_msg_count ;
1710: x_msg_data := l_msg_data ;
1711: Fnd_Msg_Pub.count_and_get(
1712: p_count => x_msg_count
1713: ,p_data => x_msg_data);
1714: WHEN OTHERS THEN
1715: ROLLBACK TO DELETE_REFUND_HDR;
1715: ROLLBACK TO DELETE_REFUND_HDR;
1716: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1717: x_msg_count := l_msg_count ;
1718: x_msg_data := l_msg_data ;
1719: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','DELETE_REFUND_HDR');
1720: Fnd_Msg_Pub.count_and_get(
1721: p_count => x_msg_count
1722: ,p_data => x_msg_data);
1723:
1716: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1717: x_msg_count := l_msg_count ;
1718: x_msg_data := l_msg_data ;
1719: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','DELETE_REFUND_HDR');
1720: Fnd_Msg_Pub.count_and_get(
1721: p_count => x_msg_count
1722: ,p_data => x_msg_data);
1723:
1724: END delete_refund_hdr;
1973:
1974: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1975: raise FND_API.G_EXC_ERROR;
1976: ELSE
1977: FND_MSG_PUB.initialize;
1978: IF PG_DEBUG < 11 THEN
1979: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1980: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_acc_gen_primary_key_tbl for TAI'
1981: ||l_acc_gen_primary_key_tbl(1).acc_gen_key_tbl.count
2074: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2075: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'count of l_template_tbl'||l_template_tbl.count);
2076: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'count of l_amount_tbl'||l_amount_tbl.count);
2077: END IF;
2078: FND_MSG_PUB.initialize;
2079: END IF;
2080:
2081: END LOOP; -- for c_get_accounting cursor
2082:
2084: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2085: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after accounting dist '||l_return_status);
2086:
2087: END IF;
2088: FND_MSG_PUB.Count_And_Get
2089: ( p_count => x_msg_count,
2090: p_data => x_msg_data
2091: );
2092: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2102: ROLLBACK TO CREATE_TAI_ACCOUNTING;
2103: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2104: x_msg_count := l_msg_count ;
2105: x_msg_data := l_msg_data ;
2106: Fnd_Msg_Pub.count_and_get(
2107: p_count => x_msg_count
2108: ,p_data => x_msg_data);
2109: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2110: ROLLBACK TO CREATE_TAI_ACCOUNTING;
2110: ROLLBACK TO CREATE_TAI_ACCOUNTING;
2111: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2112: x_msg_count := l_msg_count ;
2113: x_msg_data := l_msg_data ;
2114: Fnd_Msg_Pub.count_and_get(
2115: p_count => x_msg_count
2116: ,p_data => x_msg_data);
2117: WHEN OTHERS THEN
2118: ROLLBACK TO CREATE_TAI_ACCOUNTING;
2118: ROLLBACK TO CREATE_TAI_ACCOUNTING;
2119: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2120: x_msg_count := l_msg_count ;
2121: x_msg_data := l_msg_data ;
2122: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_RECON_PVT','CREATE_TAI_ACCOUNTING');
2123: Fnd_Msg_Pub.count_and_get(
2124: p_count => x_msg_count
2125: ,p_data => x_msg_data);
2126:
2119: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2120: x_msg_count := l_msg_count ;
2121: x_msg_data := l_msg_data ;
2122: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_RECON_PVT','CREATE_TAI_ACCOUNTING');
2123: Fnd_Msg_Pub.count_and_get(
2124: p_count => x_msg_count
2125: ,p_data => x_msg_data);
2126:
2127: END CREATE_TAI_ACCOUNTING;
2248:
2249: -- Initialize message list if p_init_msg_list is set to TRUE.
2250: IF FND_API.to_Boolean( p_init_msg_list )
2251: THEN
2252: FND_MSG_PUB.initialize;
2253: END IF;
2254:
2255: x_return_status := FND_API.G_RET_STS_SUCCESS;
2256:
2313: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2314: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Succesfully updated tap records');
2315: END IF;
2316: END IF;
2317: FND_MSG_PUB.initialize;
2318: END IF;
2319:
2320:
2321: IF lp_taiv_tbl.COUNT > 0 THEN
2359: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2360: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Succesfully updated tai records');
2361: END IF;
2362: END IF;
2363: FND_MSG_PUB.initialize;
2364: END IF;
2365: END IF; -- if tai table count > 0
2366:
2367:
2397: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2398: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Success -updated cure refund stage' );
2399: END IF;
2400: END IF;
2401: FND_MSG_PUB.initialize;
2402: END IF;
2403:
2404: --create accounting
2405: -- set accounting call required values
2499: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2500: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Success -Okl_Securitization_Pvt.check_khr_ia_associated' );
2501: END IF;
2502: END IF;
2503: FND_MSG_PUB.initialize;
2504: END IF;
2505: --end:REM 28-June-2007 cklee
2506:
2507:
2547:
2548: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2549: raise FND_API.G_EXC_ERROR;
2550: ELSE
2551: FND_MSG_PUB.initialize;
2552: IF PG_DEBUG < 11 THEN
2553: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2554: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_acc_gen_primary_key_tbl'
2555: ||l_acc_gen_primary_key_tbl(1).acc_gen_key_tbl.count
2617: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2618: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'count of l_template_tbl for tap '||l_template_tbl.count);
2619: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'count of l_amount_tbl for tap '||l_amount_tbl.count);
2620: END IF;
2621: FND_MSG_PUB.initialize;
2622: END IF;
2623:
2624:
2625: END LOOP; -- for c_get_accounting cursor
2654: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2655: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Success -created accounting for tai records');
2656: END IF;
2657: END IF;
2658: FND_MSG_PUB.initialize;
2659: END IF;
2660:
2661: IF PG_DEBUG <11 THEN
2662: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2708: END IF;
2709:
2710:
2711: IF x_return_status =FND_API.G_RET_STS_SUCCESS THEN
2712: FND_MSG_PUB.initialize;
2713: END IF;
2714:
2715:
2716: -- Standard check for p_commit
2718: THEN
2719: COMMIT WORK;
2720: END IF;
2721:
2722: FND_MSG_PUB.Count_And_Get
2723: ( p_count => x_msg_count,
2724: p_data => x_msg_data
2725: );
2726:
2731: ROLLBACK TO SUBMIT_CURE_REFUND_HDR;
2732: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2733: x_msg_count := l_msg_count ;
2734: x_msg_data := l_msg_data ;
2735: Fnd_Msg_Pub.count_and_get(
2736: p_count => x_msg_count
2737: ,p_data => x_msg_data);
2738: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2739: ROLLBACK TO SUBMIT_CURE_REFUND_HDR;
2739: ROLLBACK TO SUBMIT_CURE_REFUND_HDR;
2740: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2741: x_msg_count := l_msg_count ;
2742: x_msg_data := l_msg_data ;
2743: Fnd_Msg_Pub.count_and_get(
2744: p_count => x_msg_count
2745: ,p_data => x_msg_data);
2746: WHEN OTHERS THEN
2747: ROLLBACK TO SUBMIT_CURE_REFUND_HDR;
2747: ROLLBACK TO SUBMIT_CURE_REFUND_HDR;
2748: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2749: x_msg_count := l_msg_count ;
2750: x_msg_data := l_msg_data ;
2751: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','SUBMIT_CURE_REFUND_HDR');
2752: Fnd_Msg_Pub.count_and_get(
2753: p_count => x_msg_count
2754: ,p_data => x_msg_data);
2755:
2748: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2749: x_msg_count := l_msg_count ;
2750: x_msg_data := l_msg_data ;
2751: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','SUBMIT_CURE_REFUND_HDR');
2752: Fnd_Msg_Pub.count_and_get(
2753: p_count => x_msg_count
2754: ,p_data => x_msg_data);
2755:
2756:
2834:
2835: --set error stack
2836: IF l_email is NULL THEN
2837: fnd_message.set_name('OKL', 'OKL_MISSING_EMAIL_ID');
2838: fnd_msg_pub.add;
2839: RAISE FND_API.G_EXC_ERROR;
2840: END IF;
2841:
2842: -- check if role exists, otherwise create a new role
2870: ELSE
2871: x_role:=l_role_name;
2872: end if;
2873:
2874: FND_MSG_PUB.Count_And_Get
2875: ( p_count => x_msg_count,
2876: p_data => x_msg_data
2877: );
2878:
2881: ROLLBACK TO GET_ROLE;
2882: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2883: x_msg_count := l_msg_count ;
2884: x_msg_data := l_msg_data ;
2885: Fnd_Msg_Pub.count_and_get(
2886: p_count => x_msg_count
2887: ,p_data => x_msg_data);
2888:
2889: WHEN OTHERS THEN
2890: ROLLBACK TO GET_ROLE;
2891: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2892: x_msg_count := l_msg_count ;
2893: x_msg_data := l_msg_data ;
2894: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','GET_ROLE');
2895: Fnd_Msg_Pub.count_and_get(
2896: p_count => x_msg_count
2897: ,p_data => x_msg_data);
2898:
2891: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2892: x_msg_count := l_msg_count ;
2893: x_msg_data := l_msg_data ;
2894: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','GET_ROLE');
2895: Fnd_Msg_Pub.count_and_get(
2896: p_count => x_msg_count
2897: ,p_data => x_msg_data);
2898:
2899: End GET_ROLE;
3083: END IF;
3084: END IF;
3085:
3086:
3087: FND_MSG_PUB.Count_And_Get
3088: ( p_count => x_msg_count,
3089: p_data => x_msg_data
3090: );
3091: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: invoke_refund_wf : END ');
3095: ROLLBACK TO INVOKE_REFUND_WF;
3096: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3097: x_msg_count := l_msg_count ;
3098: x_msg_data := l_msg_data ;
3099: Fnd_Msg_Pub.count_and_get(
3100: p_count => x_msg_count
3101: ,p_data => x_msg_data);
3102:
3103: WHEN OTHERS THEN
3105: ROLLBACK TO INVOKE_REFUND_WF;
3106: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3107: x_msg_count := l_msg_count ;
3108: x_msg_data := l_msg_data ;
3109: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','INVOKE_REFUND_WF');
3110: Fnd_Msg_Pub.count_and_get(
3111: p_count => x_msg_count
3112: ,p_data => x_msg_data);
3113:
3106: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3107: x_msg_count := l_msg_count ;
3108: x_msg_data := l_msg_data ;
3109: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','INVOKE_REFUND_WF');
3110: Fnd_Msg_Pub.count_and_get(
3111: p_count => x_msg_count
3112: ,p_data => x_msg_data);
3113:
3114: End invoke_refund_wf;
3200: END IF;
3201:
3202: -- Initialize message list if requested
3203: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
3204: FND_MSG_PUB.initialize;
3205: END IF;
3206:
3207: -- Initialize API status to success
3208: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3267: --TIL
3268: /*** End API body ******************************************************/
3269:
3270: -- Get message count and if count is 1, get message info
3271: FND_MSG_PUB.Count_And_Get
3272: (p_count => x_msg_count,
3273: p_data => x_msg_data);
3274:
3275: EXCEPTION
3275: EXCEPTION
3276: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3277: ROLLBACK TO additional_tld_attr;
3278: x_return_status := OKL_API.G_RET_STS_ERROR;
3279: FND_MSG_PUB.Count_And_Get
3280: (p_count => x_msg_count,
3281: p_data => x_msg_data);
3282:
3283: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3282:
3283: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3284: ROLLBACK TO additional_tld_attr;
3285: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3286: FND_MSG_PUB.Count_And_Get
3287: (p_count => x_msg_count,
3288: p_data => x_msg_data);
3289:
3290: WHEN OTHERS THEN
3295: p_token1 => G_SQLCODE_TOKEN,
3296: p_token1_value => SQLCODE,
3297: p_token2 => G_SQLERRM_TOKEN,
3298: p_token2_value => SQLERRM);
3299: FND_MSG_PUB.Count_And_Get
3300: (p_count => x_msg_count,
3301: p_data => x_msg_data);
3302:
3303: end additional_tld_attr;
3424: BEGIN
3425: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: create_credit_memo : START ');
3426: SAVEPOINT CREATE_CREDIT_MEMO;
3427: -- Initialize message list if p_init_msg_list is set to TRUE.
3428: FND_MSG_PUB.initialize;
3429:
3430:
3431: x_return_status := FND_API.G_RET_STS_SUCCESS;
3432:
3684: ||l_message);
3685: END IF;
3686: raise FND_API.G_EXC_ERROR;
3687: ELSE
3688: FND_MSG_PUB.initialize;
3689: --INSERT okl_txl_ar_inv_lns
3690: --set error message,so this will be prefixed before the
3691: --actual message, so it makes more sense than displaying an
3692: -- OKL message.
3737: ||l_message);
3738: END IF;
3739: raise FND_API.G_EXC_ERROR;
3740: ELSE
3741: FND_MSG_PUB.initialize;
3742:
3743: -- R12 Change - START
3744: -- Ashim's instructions for TXD table
3745: -- populate sty_id, kle_id(NULL), khr_id, amount, til_id_details, txl_ar_line_number
3813: x_return_status := l_return_status;
3814: END IF;
3815: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3816: ELSE
3817: FND_MSG_PUB.initialize;
3818:
3819: END IF; -- for okl_txd_ar_ln_dtls
3820:
3821: -- R12 Change - END
3863: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3864: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Succesfully updated CRF records');
3865: END IF;
3866: END IF;
3867: FND_MSG_PUB.initialize;
3868: END IF;
3869:
3870: IF x_return_status =FND_API.G_RET_STS_SUCCESS THEN
3871: FND_MSG_PUB.initialize;
3867: FND_MSG_PUB.initialize;
3868: END IF;
3869:
3870: IF x_return_status =FND_API.G_RET_STS_SUCCESS THEN
3871: FND_MSG_PUB.initialize;
3872: END IF;
3873:
3874:
3875: FND_MSG_PUB.Count_And_Get
3871: FND_MSG_PUB.initialize;
3872: END IF;
3873:
3874:
3875: FND_MSG_PUB.Count_And_Get
3876: ( p_count => x_msg_count,
3877: p_data => x_msg_data
3878: );
3879:
3883: ROLLBACK TO CREATE_CREDIT_MEMO;
3884: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3885: x_msg_count := l_msg_count ;
3886: x_msg_data := l_msg_data ;
3887: Fnd_Msg_Pub.count_and_get(
3888: p_count => x_msg_count
3889: ,p_data => x_msg_data);
3890: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3891: ROLLBACK TO CREATE_CREDIT_MEMO;
3891: ROLLBACK TO CREATE_CREDIT_MEMO;
3892: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3893: x_msg_count := l_msg_count ;
3894: x_msg_data := l_msg_data ;
3895: Fnd_Msg_Pub.count_and_get(
3896: p_count => x_msg_count
3897: ,p_data => x_msg_data);
3898: WHEN OTHERS THEN
3899: ROLLBACK TO CREATE_CREDIT_MEMO;
3899: ROLLBACK TO CREATE_CREDIT_MEMO;
3900: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3901: x_msg_count := l_msg_count ;
3902: x_msg_data := l_msg_data ;
3903: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','CREATE_CREDIT_MEMO');
3904: Fnd_Msg_Pub.count_and_get(
3905: p_count => x_msg_count
3906: ,p_data => x_msg_data);
3907:
3900: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3901: x_msg_count := l_msg_count ;
3902: x_msg_data := l_msg_data ;
3903: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','CREATE_CREDIT_MEMO');
3904: Fnd_Msg_Pub.count_and_get(
3905: p_count => x_msg_count
3906: ,p_data => x_msg_data);
3907:
3908: END CREATE_CREDIT_MEMO;
4016: BEGIN
4017: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: CREATE_CUREREFUNDS : START ');
4018: SAVEPOINT CREATE_CUREREFUNDS;
4019: -- Initialize message list if p_init_msg_list is set to TRUE.
4020: FND_MSG_PUB.initialize;
4021:
4022: x_return_status := FND_API.G_RET_STS_SUCCESS;
4023:
4024: IF (p_refund_header_id IS NULL) THEN
4139: EXCEPTION
4140: WHEN OTHERS THEN
4141: IF SQLCODE = 100 THEN
4142: fnd_message.set_name('OKL', 'OKL_PAY_INV_SEQ_CHECK');
4143: fnd_msg_pub.add;
4144: RAISE FND_API.G_EXC_ERROR;
4145: END IF;
4146: END;
4147:
4297: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'lx_tapv_rec.id'
4298: ||lx_tapv_rec.id);
4299: END IF;
4300: END IF;
4301: FND_MSG_PUB.initialize;
4302: END IF;
4303:
4304: lp_tplv_rec.tap_id := lx_tapv_rec.id;
4305:
4326: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'lx_tplv_rec.id'
4327: ||lx_tplv_rec.id);
4328: END IF;
4329: END IF;
4330: FND_MSG_PUB.initialize;
4331: END IF;
4332: -- end:
4333: --cklee 06/04/2007 Reverse the original code back due to the duplicated
4334: -- accounting entries will be created
4368: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4369: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Succesfully updated CRF records');
4370: END IF;
4371: END IF;
4372: FND_MSG_PUB.initialize;
4373: END IF;
4374:
4375: IF i.offset_contract is not null THEN
4376: --Update Cure refunds table
4411: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4412: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Success ' );
4413: END IF;
4414: END IF;
4415: FND_MSG_PUB.initialize;
4416: END IF;
4417: END IF; --offset contract
4418:
4419: END LOOP;
4418:
4419: END LOOP;
4420:
4421: IF x_return_status =FND_API.G_RET_STS_SUCCESS THEN
4422: FND_MSG_PUB.initialize;
4423: END IF;
4424:
4425: -- Standard check for p_commit
4426: IF FND_API.to_Boolean( p_commit ) THEN
4426: IF FND_API.to_Boolean( p_commit ) THEN
4427: COMMIT WORK;
4428: END IF;
4429:
4430: FND_MSG_PUB.Count_And_Get
4431: ( p_count => x_msg_count,
4432: p_data => x_msg_data
4433: );
4434:
4438: ROLLBACK TO CREATE_CUREREFUNDS;
4439: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4440: x_msg_count := l_msg_count ;
4441: x_msg_data := l_msg_data ;
4442: Fnd_Msg_Pub.count_and_get(
4443: p_count => x_msg_count
4444: ,p_data => x_msg_data);
4445: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4446: ROLLBACK TO CREATE_CUREREFUNDS;
4446: ROLLBACK TO CREATE_CUREREFUNDS;
4447: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4448: x_msg_count := l_msg_count ;
4449: x_msg_data := l_msg_data ;
4450: Fnd_Msg_Pub.count_and_get(
4451: p_count => x_msg_count
4452: ,p_data => x_msg_data);
4453: WHEN OTHERS THEN
4454: ROLLBACK TO CREATE_CUREREFUNDS;
4454: ROLLBACK TO CREATE_CUREREFUNDS;
4455: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4456: x_msg_count := l_msg_count ;
4457: x_msg_data := l_msg_data ;
4458: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','CREATE_CUREREFUNDS');
4459: Fnd_Msg_Pub.count_and_get(
4460: p_count => x_msg_count
4461: ,p_data => x_msg_data);
4462:
4455: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4456: x_msg_count := l_msg_count ;
4457: x_msg_data := l_msg_data ;
4458: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','CREATE_CUREREFUNDS');
4459: Fnd_Msg_Pub.count_and_get(
4460: p_count => x_msg_count
4461: ,p_data => x_msg_data);
4462:
4463: END create_curerefunds;
4507: SAVEPOINT APPROVE_CURE_REFUNDS_PVT;
4508: -- Initialize message list if p_init_msg_list is set to TRUE.
4509: IF FND_API.to_Boolean( p_init_msg_list )
4510: THEN
4511: FND_MSG_PUB.initialize;
4512: END IF;
4513:
4514: x_return_status := FND_API.G_RET_STS_SUCCESS;
4515:
4542: END IF;
4543: END IF;
4544: fnd_message.set_name('OKL', 'OKL_CO_MISSING_REFUND_DETAILS');
4545: fnd_message.set_token('REFUND_NUMBER',l_refund_header_number);
4546: fnd_msg_pub.add;
4547: RAISE FND_API.G_EXC_ERROR;
4548: ELSE
4549: --check for refund header status
4550: IF l_refund_status <> 'IN_PROGRESS' THEN
4554: END IF;
4555: END IF;
4556: fnd_message.set_name('OKL', 'OKL_CO_REFUND_STATUS');
4557: fnd_message.set_token('REFUND_NUMBER',l_refund_header_number);
4558: fnd_msg_pub.add;
4559: RAISE FND_API.G_EXC_ERROR;
4560: END IF; --refund_status check
4561: END IF; -- if details exists
4562: -- STEP 0
4583: END IF;
4584: END IF;
4585: raise FND_API.G_EXC_ERROR;
4586: ELSE
4587: FND_MSG_PUB.initialize;
4588: END IF;
4589:
4590: --call refund_workflow
4591: invoke_refund_wf(
4603: END IF;
4604: END IF;
4605: raise FND_API.G_EXC_ERROR;
4606: ELSE
4607: FND_MSG_PUB.initialize;
4608: END IF;
4609:
4610: --Update Cure refunds headers table
4611: --set error message,so this will be prefixed before the
4644: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4645: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Success -updated cure refund header' );
4646: END IF;
4647: END IF;
4648: FND_MSG_PUB.initialize;
4649: END IF;
4650:
4651:
4652:
4650:
4651:
4652:
4653: IF x_return_status =FND_API.G_RET_STS_SUCCESS THEN
4654: FND_MSG_PUB.initialize;
4655: END IF;
4656:
4657: -- Standard check for p_commit
4658: IF FND_API.to_Boolean( p_commit )THEN
4658: IF FND_API.to_Boolean( p_commit )THEN
4659: COMMIT WORK;
4660: END IF;
4661:
4662: FND_MSG_PUB.Count_And_Get
4663: ( p_count => x_msg_count,
4664: p_data => x_msg_data
4665: );
4666:
4670: ROLLBACK TO APPROVE_CURE_REFUNDS_PVT;
4671: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4672: x_msg_count := l_msg_count ;
4673: x_msg_data := l_msg_data ;
4674: Fnd_Msg_Pub.count_and_get(
4675: p_count => x_msg_count
4676: ,p_data => x_msg_data);
4677: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4678: ROLLBACK TO APPROVE_CURE_REFUNDS_PVT;
4678: ROLLBACK TO APPROVE_CURE_REFUNDS_PVT;
4679: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4680: x_msg_count := l_msg_count ;
4681: x_msg_data := l_msg_data ;
4682: Fnd_Msg_Pub.count_and_get(
4683: p_count => x_msg_count
4684: ,p_data => x_msg_data);
4685: WHEN OTHERS THEN
4686: ROLLBACK TO APPROVE_CURE_REFUNDS;
4686: ROLLBACK TO APPROVE_CURE_REFUNDS;
4687: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4688: x_msg_count := l_msg_count ;
4689: x_msg_data := l_msg_data ;
4690: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','APPROVE_CURE_REFUNDS');
4691: Fnd_Msg_Pub.count_and_get(
4692: p_count => x_msg_count
4693: ,p_data => x_msg_data);
4694:
4687: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4688: x_msg_count := l_msg_count ;
4689: x_msg_data := l_msg_data ;
4690: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','APPROVE_CURE_REFUNDS');
4691: Fnd_Msg_Pub.count_and_get(
4692: p_count => x_msg_count
4693: ,p_data => x_msg_data);
4694:
4695:
4749: SAVEPOINT SUBMIT_CURE_REFUNDS;
4750: -- Initialize message list if p_init_msg_list is set to TRUE.
4751: IF FND_API.to_Boolean( p_init_msg_list )
4752: THEN
4753: FND_MSG_PUB.initialize;
4754: END IF;
4755:
4756: IF p_status ='APPROVED' THEN
4757:
4778: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4779: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Success -updated TAP ' );
4780: END IF;
4781: END IF;
4782: FND_MSG_PUB.initialize;
4783: END IF;
4784:
4785: ELSE
4786: /** logic**
4848: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4849: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Succesfully updated tap records');
4850: END IF;
4851: END IF;
4852: FND_MSG_PUB.initialize;
4853: END IF;
4854:
4855: IF lp_taiv_tbl.COUNT > 0 THEN
4856: --Update trx ar invoices
4892: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4893: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Succesfully updated tai records');
4894: END IF;
4895: END IF;
4896: FND_MSG_PUB.initialize;
4897: END IF;
4898: END IF; -- if tai table count > 0
4899:
4900: --Update OKL_CURE_REFUND_STAGE
4973: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4974: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Success -updated cure refund header' );
4975: END IF;
4976: END IF;
4977: FND_MSG_PUB.initialize;
4978: END IF;
4979:
4980:
4981: IF x_return_status =FND_API.G_RET_STS_SUCCESS THEN
4978: END IF;
4979:
4980:
4981: IF x_return_status =FND_API.G_RET_STS_SUCCESS THEN
4982: FND_MSG_PUB.initialize;
4983: END IF;
4984:
4985:
4986: -- Standard check for p_commit
4988: THEN
4989: COMMIT WORK;
4990: END IF;
4991:
4992: FND_MSG_PUB.Count_And_Get
4993: ( p_count => x_msg_count,
4994: p_data => x_msg_data
4995: );
4996:
5000: ROLLBACK TO SUBMIT_CURE_REFUNDS;
5001: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5002: x_msg_count := l_msg_count ;
5003: x_msg_data := l_msg_data ;
5004: Fnd_Msg_Pub.count_and_get(
5005: p_count => x_msg_count
5006: ,p_data => x_msg_data);
5007: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5008: ROLLBACK TO SUBMIT_CURE_REFUNDS;
5008: ROLLBACK TO SUBMIT_CURE_REFUNDS;
5009: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5010: x_msg_count := l_msg_count ;
5011: x_msg_data := l_msg_data ;
5012: Fnd_Msg_Pub.count_and_get(
5013: p_count => x_msg_count
5014: ,p_data => x_msg_data);
5015: WHEN OTHERS THEN
5016: ROLLBACK TO SUBMIT_CURE_REFUNDS;
5016: ROLLBACK TO SUBMIT_CURE_REFUNDS;
5017: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5018: x_msg_count := l_msg_count ;
5019: x_msg_data := l_msg_data ;
5020: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','SUBMIT_CURE_REFUNDS');
5021: Fnd_Msg_Pub.count_and_get(
5022: p_count => x_msg_count
5023: ,p_data => x_msg_data);
5024:
5017: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5018: x_msg_count := l_msg_count ;
5019: x_msg_data := l_msg_data ;
5020: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','SUBMIT_CURE_REFUNDS');
5021: Fnd_Msg_Pub.count_and_get(
5022: p_count => x_msg_count
5023: ,p_data => x_msg_data);
5024:
5025:
5337: SAVEPOINT CREATE_REFUND_HEADERS;
5338: -- Initialize message list if p_init_msg_list is set to TRUE.
5339: IF FND_API.to_Boolean( p_init_msg_list )
5340: THEN
5341: FND_MSG_PUB.initialize;
5342: END IF;
5343:
5344: x_return_status := FND_API.G_RET_STS_SUCCESS;
5345:
5354: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'duplicate refund number' );
5355: END IF;
5356: END IF;
5357: fnd_message.set_name('OKL', 'OKL_DUPLICATE_REFUND_NUMBER');
5358: fnd_msg_pub.add;
5359: RAISE FND_API.G_EXC_ERROR;
5360: END IF;
5361:
5362:
5415: THEN
5416: COMMIT WORK;
5417: END IF;
5418:
5419: FND_MSG_PUB.Count_And_Get
5420: ( p_count => x_msg_count,
5421: p_data => x_msg_data
5422: );
5423:
5428: ROLLBACK TO CREATE_REFUND_HEADERS;
5429: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5430: x_msg_count := l_msg_count ;
5431: x_msg_data := l_msg_data ;
5432: Fnd_Msg_Pub.count_and_get(
5433: p_count => x_msg_count
5434: ,p_data => x_msg_data);
5435: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5436: ROLLBACK TO CREATE_REFUND_HEADERS;
5436: ROLLBACK TO CREATE_REFUND_HEADERS;
5437: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5438: x_msg_count := l_msg_count ;
5439: x_msg_data := l_msg_data ;
5440: Fnd_Msg_Pub.count_and_get(
5441: p_count => x_msg_count
5442: ,p_data => x_msg_data);
5443: WHEN OTHERS THEN
5444: ROLLBACK TO CREATE_REFUND_HEADERS;
5444: ROLLBACK TO CREATE_REFUND_HEADERS;
5445: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5446: x_msg_count := l_msg_count ;
5447: x_msg_data := l_msg_data ;
5448: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','CREATE_REFUND_HEADERS');
5449: Fnd_Msg_Pub.count_and_get(
5450: p_count => x_msg_count
5451: ,p_data => x_msg_data);
5452:
5445: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5446: x_msg_count := l_msg_count ;
5447: x_msg_data := l_msg_data ;
5448: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','CREATE_REFUND_HEADERS');
5449: Fnd_Msg_Pub.count_and_get(
5450: p_count => x_msg_count
5451: ,p_data => x_msg_data);
5452:
5453:
5501:
5502: -- Initialize message list if p_init_msg_list is set to TRUE.
5503: IF FND_API.to_Boolean( p_init_msg_list )
5504: THEN
5505: FND_MSG_PUB.initialize;
5506: END IF;
5507: x_return_status := FND_API.G_RET_STS_SUCCESS;
5508:
5509: --set error message,so this will be prefixed before the
5549: END IF;
5550: END IF;
5551:
5552: IF x_return_status =FND_API.G_RET_STS_SUCCESS THEN
5553: FND_MSG_PUB.initialize;
5554: END IF;
5555:
5556:
5557: -- Standard check for p_commit
5559: THEN
5560: COMMIT WORK;
5561: END IF;
5562:
5563: FND_MSG_PUB.Count_And_Get
5564: ( p_count => x_msg_count,
5565: p_data => x_msg_data
5566: );
5567:
5572: ROLLBACK TO UPDATE_REFUND_HEADERS;
5573: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5574: x_msg_count := l_msg_count ;
5575: x_msg_data := l_msg_data ;
5576: Fnd_Msg_Pub.count_and_get(
5577: p_count => x_msg_count
5578: ,p_data => x_msg_data);
5579: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5580: ROLLBACK TO UPDATE_REFUND_HEADERS;
5580: ROLLBACK TO UPDATE_REFUND_HEADERS;
5581: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5582: x_msg_count := l_msg_count ;
5583: x_msg_data := l_msg_data ;
5584: Fnd_Msg_Pub.count_and_get(
5585: p_count => x_msg_count
5586: ,p_data => x_msg_data);
5587: WHEN OTHERS THEN
5588: ROLLBACK TO UPDATE_REFUND_HEADERS;
5588: ROLLBACK TO UPDATE_REFUND_HEADERS;
5589: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5590: x_msg_count := l_msg_count ;
5591: x_msg_data := l_msg_data ;
5592: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','UPDATE_REFUND_HEADERS');
5593: Fnd_Msg_Pub.count_and_get(
5594: p_count => x_msg_count
5595: ,p_data => x_msg_data);
5596:
5589: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5590: x_msg_count := l_msg_count ;
5591: x_msg_data := l_msg_data ;
5592: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','UPDATE_REFUND_HEADERS');
5593: Fnd_Msg_Pub.count_and_get(
5594: p_count => x_msg_count
5595: ,p_data => x_msg_data);
5596:
5597: