108:
109: BEGIN
110:
111: -- Initialize API return status to success
112: x_return_status := FND_API.G_RET_STS_SUCCESS;
113: x_loading_status := p_loading_status;
114:
115: -- Start of API body
116:
897:
898:
899: cn_calc_classify_pvt.classify_batch
900: ( p_api_version => 1.0,
901: p_init_msg_list => fnd_api.g_true,
902: p_commit => fnd_api.g_true ,
903: x_return_status => x_return_status,
904: x_msg_count => x_msg_count,
905: x_msg_data => x_msg_data,
898:
899: cn_calc_classify_pvt.classify_batch
900: ( p_api_version => 1.0,
901: p_init_msg_list => fnd_api.g_true,
902: p_commit => fnd_api.g_true ,
903: x_return_status => x_return_status,
904: x_msg_count => x_msg_count,
905: x_msg_data => x_msg_data,
906: p_physical_batch_id => p_physical_batch_id,
914: || x_msg_data );
915:
916: FOR l_counter IN 1..x_msg_count LOOP
917: debugmsg( FND_MSG_PUB.get(p_msg_index => l_counter,
918: p_encoded => FND_API.G_FALSE));
919: END LOOP;
920:
921: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
922: debugmsg('Loader : load_worker : Classification Failed.');
917: debugmsg( FND_MSG_PUB.get(p_msg_index => l_counter,
918: p_encoded => FND_API.G_FALSE));
919: END LOOP;
920:
921: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
922: debugmsg('Loader : load_worker : Classification Failed.');
923: x_loading_status := 'CN_FAIL_CLASSIFICATION';
924: RAISE FND_API.G_EXC_ERROR;
925: END IF;
920:
921: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
922: debugmsg('Loader : load_worker : Classification Failed.');
923: x_loading_status := 'CN_FAIL_CLASSIFICATION';
924: RAISE FND_API.G_EXC_ERROR;
925: END IF;
926:
927: debugmsg('Loader : Load_Worker : Rollup : p_physical_batch_id = '
928: || p_physical_batch_id);
929: debugmsg('Loader : Load_Worker : Rollup : calling cn_calc_classify_pvt.classify_batch');
930:
931: cn_calc_rollup_pvt.rollup_batch
932: ( p_api_version => 1.0,
933: p_init_msg_list => fnd_api.g_true,
934: p_commit => fnd_api.g_true ,
935: x_return_status => x_return_status,
936: x_msg_count => x_msg_count,
937: x_msg_data => x_msg_data,
930:
931: cn_calc_rollup_pvt.rollup_batch
932: ( p_api_version => 1.0,
933: p_init_msg_list => fnd_api.g_true,
934: p_commit => fnd_api.g_true ,
935: x_return_status => x_return_status,
936: x_msg_count => x_msg_count,
937: x_msg_data => x_msg_data,
938: p_physical_batch_id => p_physical_batch_id,
947:
948:
949: FOR l_counter IN 1..x_msg_count LOOP
950: debugmsg( FND_MSG_PUB.get(p_msg_index => l_counter,
951: p_encoded => FND_API.G_FALSE));
952: END LOOP;
953:
954: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
955: debugmsg('Loader : load_worker : Rollup Failed.');
950: debugmsg( FND_MSG_PUB.get(p_msg_index => l_counter,
951: p_encoded => FND_API.G_FALSE));
952: END LOOP;
953:
954: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
955: debugmsg('Loader : load_worker : Rollup Failed.');
956: x_loading_status := 'CN_FAIL_ROLLUP';
957: RAISE FND_API.G_EXC_ERROR;
958: END IF;
953:
954: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
955: debugmsg('Loader : load_worker : Rollup Failed.');
956: x_loading_status := 'CN_FAIL_ROLLUP';
957: RAISE FND_API.G_EXC_ERROR;
958: END IF;
959:
960: ELSE
961:
969: FND_MSG_PUB.Count_And_Get
970: (
971: p_count => x_msg_count ,
972: p_data => x_msg_data ,
973: p_encoded => FND_API.G_FALSE
974: );
975:
976: EXCEPTION
977: WHEN FND_API.G_EXC_ERROR THEN
973: p_encoded => FND_API.G_FALSE
974: );
975:
976: EXCEPTION
977: WHEN FND_API.G_EXC_ERROR THEN
978: x_return_status := FND_API.G_RET_STS_ERROR ;
979: debugmsg('Loader : load_worker : Exception : Error msg : ' || x_msg_data);
980: FND_MSG_PUB.Count_And_Get
981: (
974: );
975:
976: EXCEPTION
977: WHEN FND_API.G_EXC_ERROR THEN
978: x_return_status := FND_API.G_RET_STS_ERROR ;
979: debugmsg('Loader : load_worker : Exception : Error msg : ' || x_msg_data);
980: FND_MSG_PUB.Count_And_Get
981: (
982: p_count => x_msg_count ,
980: FND_MSG_PUB.Count_And_Get
981: (
982: p_count => x_msg_count ,
983: p_data => x_msg_data ,
984: p_encoded => FND_API.G_FALSE
985: );
986: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
987: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
988: x_loading_status := 'UNEXPECTED_ERR';
982: p_count => x_msg_count ,
983: p_data => x_msg_data ,
984: p_encoded => FND_API.G_FALSE
985: );
986: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
987: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
988: x_loading_status := 'UNEXPECTED_ERR';
989: debugmsg('Loader : load_worker : Exception : Unexpected Error : Error message : ' || x_msg_data);
990: FND_MSG_PUB.Count_And_Get
983: p_data => x_msg_data ,
984: p_encoded => FND_API.G_FALSE
985: );
986: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
987: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
988: x_loading_status := 'UNEXPECTED_ERR';
989: debugmsg('Loader : load_worker : Exception : Unexpected Error : Error message : ' || x_msg_data);
990: FND_MSG_PUB.Count_And_Get
991: (
990: FND_MSG_PUB.Count_And_Get
991: (
992: p_count => x_msg_count ,
993: p_data => x_msg_data ,
994: p_encoded => FND_API.G_FALSE
995: );
996: WHEN OTHERS THEN
997: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
998: x_loading_status := 'UNEXPECTED_ERR';
993: p_data => x_msg_data ,
994: p_encoded => FND_API.G_FALSE
995: );
996: WHEN OTHERS THEN
997: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
998: x_loading_status := 'UNEXPECTED_ERR';
999: debugmsg('Loader : load_worker : Exception Others : Error : Error message : ' || x_msg_data);
1000: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1001: THEN
1004: FND_MSG_PUB.Count_And_Get
1005: (
1006: p_count => x_msg_count ,
1007: p_data => x_msg_data ,
1008: p_encoded => FND_API.G_FALSE
1009: );
1010: END Load_worker;
1011:
1012:
1018: -- to HEADER table (CN_COMMISSION_HEADERS)
1019: -- Parameters :
1020: -- IN : p_api_version IN NUMBER Require
1021: -- : p_init_msg_list IN VARCHAR2 Optional
1022: -- Default = FND_API.G_FALSE
1023: -- : p_commit IN VARCHAR2 Optional
1024: -- Default = FND_API.G_FALSE
1025: -- : p_validation_level IN NUMBER Optional
1026: -- Default = FND_API.G_VALID_LEVEL_FULL
1020: -- IN : p_api_version IN NUMBER Require
1021: -- : p_init_msg_list IN VARCHAR2 Optional
1022: -- Default = FND_API.G_FALSE
1023: -- : p_commit IN VARCHAR2 Optional
1024: -- Default = FND_API.G_FALSE
1025: -- : p_validation_level IN NUMBER Optional
1026: -- Default = FND_API.G_VALID_LEVEL_FULL
1027: -- OUT : x_return_status OUT VARCHAR2(1)
1028: -- : x_msg_count OUT NUMBER
1022: -- Default = FND_API.G_FALSE
1023: -- : p_commit IN VARCHAR2 Optional
1024: -- Default = FND_API.G_FALSE
1025: -- : p_validation_level IN NUMBER Optional
1026: -- Default = FND_API.G_VALID_LEVEL_FULL
1027: -- OUT : x_return_status OUT VARCHAR2(1)
1028: -- : x_msg_count OUT NUMBER
1029: -- : x_msg_data OUT VARCHAR2(2000)
1030: -- : x_loading_status OUT VARCHAR2
1055:
1056: PROCEDURE load
1057: (
1058: p_api_version IN NUMBER,
1059: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1060: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1061: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1062: p_salesrep_id IN NUMBER,
1063: p_start_date IN DATE,
1056: PROCEDURE load
1057: (
1058: p_api_version IN NUMBER,
1059: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1060: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1061: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1062: p_salesrep_id IN NUMBER,
1063: p_start_date IN DATE,
1064: p_end_date IN DATE,
1057: (
1058: p_api_version IN NUMBER,
1059: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1060: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1061: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1062: p_salesrep_id IN NUMBER,
1063: p_start_date IN DATE,
1064: p_end_date IN DATE,
1065: p_cls_rol_flag IN VARCHAR2,
1207: -- Standard Start of API savepoint
1208: SAVEPOINT load_savepoint;
1209:
1210: -- Standard call to check for call compatibility.
1211: IF NOT FND_API.compatible_api_call
1212: ( l_api_version ,p_api_version ,l_api_name ,G_PKG_NAME )
1213: THEN
1214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1215: END IF;
1210: -- Standard call to check for call compatibility.
1211: IF NOT FND_API.compatible_api_call
1212: ( l_api_version ,p_api_version ,l_api_name ,G_PKG_NAME )
1213: THEN
1214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1215: END IF;
1216:
1217: -- Initialize message list if p_init_msg_list is set to TRUE.
1218: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1215: END IF;
1216:
1217: -- Initialize message list if p_init_msg_list is set to TRUE.
1218: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1219: FND_MSG_PUB.initialize;
1220: END IF;
1221:
1222: -- Initialize API return status to success
1219: FND_MSG_PUB.initialize;
1220: END IF;
1221:
1222: -- Initialize API return status to success
1223: x_return_status := FND_API.G_RET_STS_SUCCESS;
1224: x_loading_status := 'CN_LOADED';
1225:
1226:
1227: -- User hooks
1243: x_msg_data => x_msg_data,
1244: x_loading_status => x_loading_status
1245: );
1246:
1247: IF (x_return_status = FND_API.G_RET_STS_ERROR )
1248: THEN
1249: RAISE FND_API.G_EXC_ERROR;
1250: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR )
1251: THEN
1245: );
1246:
1247: IF (x_return_status = FND_API.G_RET_STS_ERROR )
1248: THEN
1249: RAISE FND_API.G_EXC_ERROR;
1250: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR )
1251: THEN
1252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1253: END IF;
1246:
1247: IF (x_return_status = FND_API.G_RET_STS_ERROR )
1248: THEN
1249: RAISE FND_API.G_EXC_ERROR;
1250: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR )
1251: THEN
1252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1253: END IF;
1254: END IF;
1248: THEN
1249: RAISE FND_API.G_EXC_ERROR;
1250: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR )
1251: THEN
1252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1253: END IF;
1254: END IF;
1255:
1256:
1272: x_msg_data => x_msg_data,
1273: x_loading_status => x_loading_status
1274: );
1275:
1276: IF ( x_return_status = FND_API.G_RET_STS_ERROR )
1277: THEN
1278: RAISE FND_API.G_EXC_ERROR;
1279: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR )
1280: THEN
1274: );
1275:
1276: IF ( x_return_status = FND_API.G_RET_STS_ERROR )
1277: THEN
1278: RAISE FND_API.G_EXC_ERROR;
1279: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR )
1280: THEN
1281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1282: END IF;
1275:
1276: IF ( x_return_status = FND_API.G_RET_STS_ERROR )
1277: THEN
1278: RAISE FND_API.G_EXC_ERROR;
1279: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR )
1280: THEN
1281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1282: END IF;
1283: END IF;
1277: THEN
1278: RAISE FND_API.G_EXC_ERROR;
1279: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR )
1280: THEN
1281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1282: END IF;
1283: END IF;
1284:
1285:
1321: FND_MSG_PUB.Add;
1322: END IF;
1323:
1324: x_loading_status := 'CN_CALC_SUB_OPEN_DATE';
1325: RAISE FND_API.G_EXC_ERROR ;
1326: END IF;
1327:
1328: /* verify that parameter end date is within an open acc period */
1329: l_count := 0;
1346: FND_MSG_PUB.Add;
1347: END IF;
1348:
1349: x_loading_status := 'CN_CALC_SUB_OPEN_DATE';
1350: RAISE FND_API.G_EXC_ERROR ;
1351: END IF;
1352:
1353: /* Get the value of the profile "OIC: Skip Credit Allocation" */
1354: l_skip_credit_flag := 'Y';
1378: FND_MESSAGE.SET_NAME ('CN' , 'CN_LOAD_INVALID_RULESET');
1379: FND_MSG_PUB.Add;
1380: END IF;
1381: x_loading_status := 'CN_LOAD_INVALID_RULESET';
1382: RAISE FND_API.G_EXC_ERROR ;
1383: END IF;
1384: END IF;
1385:
1386:
1429: FND_MESSAGE.SET_NAME ('CN' , 'CN_LOAD_NO_TRX_TO_LOAD');
1430: FND_MSG_PUB.Add;
1431: END IF;
1432: x_loading_status := 'CN_LOAD_NO_TRX_TO_LOAD';
1433: RAISE FND_API.G_EXC_ERROR ;
1434: ELSE
1435: FOR i IN l_srp_id_tbl.FIRST .. l_srp_id_tbl.LAST LOOP
1436:
1437: -- sequence s1 is for process batch id
1630: x_msg_data => x_msg_data,
1631: x_loading_status => x_loading_status
1632: );
1633:
1634: IF (x_return_status = FND_API.G_RET_STS_ERROR )
1635: THEN
1636: RAISE FND_API.G_EXC_ERROR;
1637: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR )
1638: THEN
1632: );
1633:
1634: IF (x_return_status = FND_API.G_RET_STS_ERROR )
1635: THEN
1636: RAISE FND_API.G_EXC_ERROR;
1637: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR )
1638: THEN
1639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1640: END IF;
1633:
1634: IF (x_return_status = FND_API.G_RET_STS_ERROR )
1635: THEN
1636: RAISE FND_API.G_EXC_ERROR;
1637: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR )
1638: THEN
1639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1640: END IF;
1641: END IF;
1635: THEN
1636: RAISE FND_API.G_EXC_ERROR;
1637: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR )
1638: THEN
1639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1640: END IF;
1641: END IF;
1642:
1643:
1659: x_msg_data => x_msg_data,
1660: x_loading_status => x_loading_status
1661: );
1662:
1663: IF ( x_return_status = FND_API.G_RET_STS_ERROR )
1664: THEN
1665: RAISE FND_API.G_EXC_ERROR;
1666: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR )
1667: THEN
1661: );
1662:
1663: IF ( x_return_status = FND_API.G_RET_STS_ERROR )
1664: THEN
1665: RAISE FND_API.G_EXC_ERROR;
1666: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR )
1667: THEN
1668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1669: END IF;
1662:
1663: IF ( x_return_status = FND_API.G_RET_STS_ERROR )
1664: THEN
1665: RAISE FND_API.G_EXC_ERROR;
1666: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR )
1667: THEN
1668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1669: END IF;
1670: END IF;
1664: THEN
1665: RAISE FND_API.G_EXC_ERROR;
1666: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR )
1667: THEN
1668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1669: END IF;
1670: END IF;
1671:
1672:
1703: p_oai_param => null,
1704: p_oai_array => l_oai_array,
1705: x_return_code => x_return_status) ;
1706:
1707: IF (x_return_status = FND_API.G_RET_STS_ERROR)
1708: THEN
1709: RAISE FND_API.G_EXC_ERROR;
1710: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR )
1711: THEN
1705: x_return_code => x_return_status) ;
1706:
1707: IF (x_return_status = FND_API.G_RET_STS_ERROR)
1708: THEN
1709: RAISE FND_API.G_EXC_ERROR;
1710: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR )
1711: THEN
1712: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1713: END IF;
1706:
1707: IF (x_return_status = FND_API.G_RET_STS_ERROR)
1708: THEN
1709: RAISE FND_API.G_EXC_ERROR;
1710: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR )
1711: THEN
1712: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1713: END IF;
1714: END IF;
1708: THEN
1709: RAISE FND_API.G_EXC_ERROR;
1710: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR )
1711: THEN
1712: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1713: END IF;
1714: END IF;
1715: END IF;
1716:
1718: -- Standard call to get message count and if count is 1, get message info.
1719: FND_MSG_PUB.Count_And_Get
1720: (p_count => x_msg_count ,
1721: p_data => x_msg_data ,
1722: p_encoded => FND_API.G_FALSE
1723: );
1724:
1725: EXCEPTION
1726: WHEN no_valid_transactions THEN
1741:
1742: debugmsg('Loader : exception : exc_error : End of Loader');
1743: cn_message_pkg.end_batch(x_process_audit_id);
1744: x_loading_status := 'EXC_ERR';
1745: x_return_status := FND_API.G_RET_STS_ERROR ;
1746:
1747: FND_MSG_PUB.Count_And_Get
1748: (
1749: p_count => x_msg_count ,
1747: FND_MSG_PUB.Count_And_Get
1748: (
1749: p_count => x_msg_count ,
1750: p_data => x_msg_data ,
1751: p_encoded => FND_API.G_FALSE
1752: );
1753: WHEN FND_API.G_EXC_ERROR THEN
1754: ROLLBACK TO load_savepoint;
1755: debugmsg('Loader : exception : exc_error : End of Loader');
1749: p_count => x_msg_count ,
1750: p_data => x_msg_data ,
1751: p_encoded => FND_API.G_FALSE
1752: );
1753: WHEN FND_API.G_EXC_ERROR THEN
1754: ROLLBACK TO load_savepoint;
1755: debugmsg('Loader : exception : exc_error : End of Loader');
1756: cn_message_pkg.end_batch(x_process_audit_id);
1757: x_loading_status := 'EXC_ERR';
1754: ROLLBACK TO load_savepoint;
1755: debugmsg('Loader : exception : exc_error : End of Loader');
1756: cn_message_pkg.end_batch(x_process_audit_id);
1757: x_loading_status := 'EXC_ERR';
1758: x_return_status := FND_API.G_RET_STS_ERROR ;
1759: FND_MSG_PUB.Count_And_Get
1760: (
1761: p_count => x_msg_count ,
1762: p_data => x_msg_data ,
1759: FND_MSG_PUB.Count_And_Get
1760: (
1761: p_count => x_msg_count ,
1762: p_data => x_msg_data ,
1763: p_encoded => FND_API.G_FALSE
1764: );
1765: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1766: ROLLBACK TO load_savepoint;
1767: debugmsg('Loader : exception : unexc_error : End of Loader');
1761: p_count => x_msg_count ,
1762: p_data => x_msg_data ,
1763: p_encoded => FND_API.G_FALSE
1764: );
1765: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1766: ROLLBACK TO load_savepoint;
1767: debugmsg('Loader : exception : unexc_error : End of Loader');
1768: cn_message_pkg.end_batch(x_process_audit_id);
1769: x_loading_status := 'UNEXPECTED_ERR';
1766: ROLLBACK TO load_savepoint;
1767: debugmsg('Loader : exception : unexc_error : End of Loader');
1768: cn_message_pkg.end_batch(x_process_audit_id);
1769: x_loading_status := 'UNEXPECTED_ERR';
1770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1771: FND_MSG_PUB.Count_And_Get
1772: (
1773: p_count => x_msg_count ,
1774: p_data => x_msg_data ,
1771: FND_MSG_PUB.Count_And_Get
1772: (
1773: p_count => x_msg_count ,
1774: p_data => x_msg_data ,
1775: p_encoded => FND_API.G_FALSE
1776: );
1777: WHEN OTHERS THEN
1778: ROLLBACK TO load_savepoint;
1779: debugmsg('Loader : exception : others : End of Loader');
1778: ROLLBACK TO load_savepoint;
1779: debugmsg('Loader : exception : others : End of Loader');
1780: cn_message_pkg.end_batch(x_process_audit_id);
1781: x_loading_status := 'UNEXPECTED_ERR';
1782: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1783: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1784: THEN
1785: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1786: END IF;
1787: FND_MSG_PUB.Count_And_Get
1788: (
1789: p_count => x_msg_count ,
1790: p_data => x_msg_data ,
1791: p_encoded => FND_API.G_FALSE
1792: );
1793: END load;
1794:
1795: END cn_transaction_load_pub;