[Home] [Help]
1: PACKAGE BODY AHL_LTP_SPACE_CAPB_PVT AS
2: /* $Header: AHLVSPCB.pls 115.10 2002/12/04 19:12:08 ssurapan noship $ */
3:
4: G_PKG_NAME VARCHAR2(30) := 'AHL_LTP_SPACE_CAPB_PVT';
5: G_DEBUG VARCHAR2(1):=FND_PROFILE.VALUE('AHL_API_FILE_DEBUG_ON');
1: PACKAGE BODY AHL_LTP_SPACE_CAPB_PVT AS
2: /* $Header: AHLVSPCB.pls 115.10 2002/12/04 19:12:08 ssurapan noship $ */
3:
4: G_PKG_NAME VARCHAR2(30) := 'AHL_LTP_SPACE_CAPB_PVT';
5: G_DEBUG VARCHAR2(1):=FND_PROFILE.VALUE('AHL_API_FILE_DEBUG_ON');
6: --
7: -----------------------------------------------------------
8: -- PACKAGE
5: G_DEBUG VARCHAR2(1):=FND_PROFILE.VALUE('AHL_API_FILE_DEBUG_ON');
6: --
7: -----------------------------------------------------------
8: -- PACKAGE
9: -- AHL_LTP_SPACE_CAPB_PVT
10: --
11: -- PURPOSE
12: -- This package is a Private API for managing Space and space capabilities information in
13: -- Advanced Services Online. It contains specification for pl/sql records and tables
814: AHL_DEBUG_PUB.enable_debug;
815: END IF;
816: -- Debug info.
817: IF G_DEBUG='Y' THEN
818: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_space_capb_pvt.Create Space ','+SPCBL+');
819: END IF;
820: -- Standard call to check for call compatibility.
821: IF FND_API.to_boolean(p_init_msg_list)
822: THEN
1173: p_data => x_msg_data);
1174: IF G_DEBUG='Y' THEN
1175: AHL_DEBUG_PUB.log_app_messages (
1176: x_msg_count, x_msg_data, 'ERROR' );
1177: AHL_DEBUG_PUB.debug( 'ahl_ltp_space_capb_pvt.Create Space ','+SPCBL+');
1178: -- Check if API is called in debug mode. If yes, disable debug.
1179: AHL_DEBUG_PUB.disable_debug;
1180: END IF;
1181: WHEN FND_API.G_EXC_ERROR THEN
1187: IF G_DEBUG='Y' THEN
1188: -- Debug info.
1189: AHL_DEBUG_PUB.log_app_messages (
1190: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
1191: AHL_DEBUG_PUB.debug( 'ahl_ltp_space_capb_pvt.Create Space','+SPCBL+');
1192: -- Check if API is called in debug mode. If yes, disable debug.
1193: AHL_DEBUG_PUB.disable_debug;
1194: END IF;
1195: WHEN OTHERS THEN
1196: ROLLBACK TO create_space;
1197: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1198: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1199: THEN
1200: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_CAPB_PVT',
1201: p_procedure_name => 'CREATE_SPACE',
1202: p_error_text => SUBSTR(SQLERRM,1,240));
1203: END IF;
1204: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1207: IF G_DEBUG='Y' THEN
1208: -- Debug info.
1209: AHL_DEBUG_PUB.log_app_messages (
1210: x_msg_count, x_msg_data, 'SQL ERROR' );
1211: AHL_DEBUG_PUB.debug( 'ahl_ltp_space_capb_pvt.Create Space','+SPCBL+');
1212: -- Check if API is called in debug mode. If yes, disable debug.
1213: AHL_DEBUG_PUB.disable_debug;
1214: END IF;
1215:
1273: AHL_DEBUG_PUB.enable_debug;
1274: END IF;
1275: -- Debug info.
1276: IF G_DEBUG='Y' THEN
1277: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_space_capb_pvt.Update Space ','+SPCBL+');
1278: END IF;
1279: -- Standard call to check for call compatibility.
1280: IF FND_API.to_boolean(p_init_msg_list)
1281: THEN
1483: p_data => x_msg_data);
1484: IF G_DEBUG='Y' THEN
1485: AHL_DEBUG_PUB.log_app_messages (
1486: x_msg_count, x_msg_data, 'ERROR' );
1487: AHL_DEBUG_PUB.debug( 'ahl_ltp_space_capb_pvt.Update Space ','+SPCBL+');
1488: -- Check if API is called in debug mode. If yes, disable debug.
1489: AHL_DEBUG_PUB.disable_debug;
1490: END IF;
1491: WHEN FND_API.G_EXC_ERROR THEN
1497: -- Debug info.
1498: IF G_DEBUG='Y' THEN
1499: AHL_DEBUG_PUB.log_app_messages (
1500: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
1501: AHL_DEBUG_PUB.debug( 'ahl_ltp_space_capb_pvt.Update Space ','+SPCBL+');
1502: -- Check if API is called in debug mode. If yes, disable debug.
1503: AHL_DEBUG_PUB.disable_debug;
1504: END IF;
1505: WHEN OTHERS THEN
1506: ROLLBACK TO update_space;
1507: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1508: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1509: THEN
1510: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_CAPB_PVT',
1511: p_procedure_name => 'UPDATE_SPACE',
1512: p_error_text => SUBSTR(SQLERRM,1,240));
1513: END IF;
1514: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1592: AHL_DEBUG_PUB.enable_debug;
1593: END IF;
1594: -- Debug info.
1595: IF G_DEBUG='Y' THEN
1596: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_space_capb_pvt.Delete Space','+SPCBL+');
1597: END IF;
1598: -- Standard call to check for call compatibility.
1599: IF FND_API.to_boolean(p_init_msg_list)
1600: THEN
1703: p_data => x_msg_data);
1704: IF G_DEBUG='Y' THEN
1705: AHL_DEBUG_PUB.log_app_messages (
1706: x_msg_count, x_msg_data, 'ERROR' );
1707: AHL_DEBUG_PUB.debug( 'ahl_ltp_space_capb_pvt.Delete Space ','+SPCBL+');
1708: -- Check if API is called in debug mode. If yes, disable debug.
1709: AHL_DEBUG_PUB.disable_debug;
1710: END IF;
1711: WHEN FND_API.G_EXC_ERROR THEN
1717: -- Debug info.
1718: IF G_DEBUG='Y' THEN
1719: AHL_DEBUG_PUB.log_app_messages (
1720: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
1721: AHL_DEBUG_PUB.debug( 'ahl_ltp_space_capb_pvt.Delete Space ','+SPCBL+');
1722: -- Check if API is called in debug mode. If yes, disable debug.
1723: AHL_DEBUG_PUB.disable_debug;
1724: END IF;
1725: WHEN OTHERS THEN
1726: ROLLBACK TO delete_space;
1727: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1728: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1729: THEN
1730: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_CAPB_PVT',
1731: p_procedure_name => 'DELETE_SPACE',
1732: p_error_text => SUBSTR(SQLERRM,1,240));
1733: END IF;
1734: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1738: -- Debug info.
1739: IF G_DEBUG='Y' THEN
1740: AHL_DEBUG_PUB.log_app_messages (
1741: x_msg_count, x_msg_data, 'SQL ERROR' );
1742: AHL_DEBUG_PUB.debug( 'ahl_ltp_space_capb_pvt.Delete Space','+SPCBL+');
1743: -- Check if API is called in debug mode. If yes, disable debug.
1744: AHL_DEBUG_PUB.disable_debug;
1745: END IF;
1746: END Delete_Space;
2344: AHL_DEBUG_PUB.enable_debug;
2345: END IF;
2346: -- Debug info.
2347: IF G_DEBUG='Y' THEN
2348: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_space_capb_pvt.Create Space Capblts ','+SPCBL+');
2349: END IF;
2350: -- Standard call to check for call compatibility.
2351: IF FND_API.to_boolean(p_init_msg_list)
2352: THEN
2784:
2785: IF G_DEBUG='Y' THEN
2786: AHL_DEBUG_PUB.log_app_messages (
2787: x_msg_count, x_msg_data, 'ERROR' );
2788: AHL_DEBUG_PUB.debug( 'ahl_ltp_space_capb_pvt.Create Space Capblts','+SPCBL+');
2789: -- Check if API is called in debug mode. If yes, disable debug.
2790: AHL_DEBUG_PUB.disable_debug;
2791: END IF;
2792: WHEN FND_API.G_EXC_ERROR THEN
2798: -- Debug info.
2799: IF G_DEBUG='Y' THEN
2800: AHL_DEBUG_PUB.log_app_messages (
2801: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
2802: AHL_DEBUG_PUB.debug( 'ahl_ltp_space_capb_pvt.Create Space Capblts','+SPCBL+');
2803: END IF;
2804: -- Check if API is called in debug mode. If yes, disable debug.
2805: AHL_DEBUG_PUB.disable_debug;
2806:
2808: ROLLBACK TO create_space_capblts;
2809: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2810: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2811: THEN
2812: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_CAPB_PVT',
2813: p_procedure_name => 'CREATE_SPACE_CAPBLTS',
2814: p_error_text => SUBSTR(SQLERRM,1,240));
2815: END IF;
2816: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2820: -- Debug info.
2821: IF G_DEBUG='Y' THEN
2822: AHL_DEBUG_PUB.log_app_messages (
2823: x_msg_count, x_msg_data, 'SQL ERROR' );
2824: AHL_DEBUG_PUB.debug( 'ahl_ltp_space_capb_pvt.Create Space Capblts','+SPCBL+');
2825: END IF;
2826: -- Check if API is called in debug mode. If yes, disable debug.
2827: AHL_DEBUG_PUB.disable_debug;
2828:
2883: AHL_DEBUG_PUB.enable_debug;
2884: END IF;
2885: -- Debug info.
2886: IF G_DEBUG='Y' THEN
2887: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_space_capb_pvt.Update Space Capblts','+SPCBL+');
2888: END IF;
2889: -- Standard call to check for call compatibility.
2890: IF FND_API.to_boolean(p_init_msg_list)
2891: THEN
3109:
3110: IF G_DEBUG='Y' THEN
3111: AHL_DEBUG_PUB.log_app_messages (
3112: x_msg_count, x_msg_data, 'ERROR' );
3113: AHL_DEBUG_PUB.debug( 'ahl_ltp_space_capb_pvt.Update Space Capblts','+SPCBL+');
3114: END IF;
3115: -- Check if API is called in debug mode. If yes, disable debug.
3116: AHL_DEBUG_PUB.disable_debug;
3117:
3124: -- Debug info.
3125: IF G_DEBUG='Y' THEN
3126: AHL_DEBUG_PUB.log_app_messages (
3127: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
3128: AHL_DEBUG_PUB.debug( 'ahl_ltp_space_capb_pvt.Update Space Capblts','+SPCBL+');
3129: END IF;
3130: -- Check if API is called in debug mode. If yes, disable debug.
3131: AHL_DEBUG_PUB.disable_debug;
3132:
3134: ROLLBACK TO update_space_capblts;
3135: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3136: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3137: THEN
3138: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_CAPB_PVT',
3139: p_procedure_name => 'UPDATE_SPACE_CAPBLTS',
3140: p_error_text => SUBSTR(SQLERRM,1,240));
3141: END IF;
3142: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3146: -- Debug info.
3147: IF G_DEBUG='Y' THEN
3148: AHL_DEBUG_PUB.log_app_messages (
3149: x_msg_count, x_msg_data, 'SQL ERROR' );
3150: AHL_DEBUG_PUB.debug( 'ahl_ltp_space_capb_pvt.Update Space Capblts','+SPCBL+');
3151: END IF;
3152: -- Check if API is called in debug mode. If yes, disable debug.
3153: AHL_DEBUG_PUB.disable_debug;
3154:
3227: AHL_DEBUG_PUB.enable_debug;
3228: END IF;
3229: -- Debug info.
3230: IF G_DEBUG='Y' THEN
3231: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_space_capb_pvt.Delete Space Capblts','+SPCBL+');
3232: END IF;
3233: -- Standard call to check for call compatibility.
3234: IF FND_API.to_boolean(p_init_msg_list)
3235: THEN
3325: p_data => x_msg_data);
3326: IF G_DEBUG='Y' THEN
3327: AHL_DEBUG_PUB.log_app_messages (
3328: x_msg_count, x_msg_data, 'ERROR' );
3329: AHL_DEBUG_PUB.debug( 'ahl_ltp_space_capb_pvt.Delete Space Capblts','+SPCBL+');
3330: -- Check if API is called in debug mode. If yes, disable debug.
3331: AHL_DEBUG_PUB.disable_debug;
3332: END IF;
3333: WHEN FND_API.G_EXC_ERROR THEN
3339: IF G_DEBUG='Y' THEN
3340: -- Debug info.
3341: AHL_DEBUG_PUB.log_app_messages (
3342: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
3343: AHL_DEBUG_PUB.debug( 'ahl_ltp_space_capb_pvt.Delete Space Capblts','+SPCBL+');
3344: -- Check if API is called in debug mode. If yes, disable debug.
3345: AHL_DEBUG_PUB.disable_debug;
3346: END IF;
3347: WHEN OTHERS THEN
3348: ROLLBACK TO delete_space_capblts;
3349: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3350: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3351: THEN
3352: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_CAPB_PVT',
3353: p_procedure_name => 'DELETE_SPACE_CAPBLTS',
3354: p_error_text => SUBSTR(SQLERRM,1,240));
3355: END IF;
3356: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3360: IF G_DEBUG='Y' THEN
3361: -- Debug info.
3362: AHL_DEBUG_PUB.log_app_messages (
3363: x_msg_count, x_msg_data, 'SQL ERROR' );
3364: AHL_DEBUG_PUB.debug( 'ahl_ltp_space_capb_pvt.Delete Space Capblts','+SPCBL+');
3365: -- Check if API is called in debug mode. If yes, disable debug.
3366: AHL_DEBUG_PUB.disable_debug;
3367: END IF;
3368: END Delete_Space_Capblts;
3366: AHL_DEBUG_PUB.disable_debug;
3367: END IF;
3368: END Delete_Space_Capblts;
3369:
3370: END AHL_LTP_SPACE_CAPB_PVT;