1: PACKAGE BODY AHL_LTP_SPACE_ASSIGN_PUB AS
2: /* $Header: AHLPSANB.pls 115.10 2003/09/09 06:05:33 rroy noship $ */
3: --
4: G_PKG_NAME VARCHAR2(30) := 'AHL_LTP_SPACE_ASSIGN_PUB';
5: G_DEBUG VARCHAR2(1) := AHL_DEBUG_PUB.is_log_enabled;
1: PACKAGE BODY AHL_LTP_SPACE_ASSIGN_PUB AS
2: /* $Header: AHLPSANB.pls 115.10 2003/09/09 06:05:33 rroy noship $ */
3: --
4: G_PKG_NAME VARCHAR2(30) := 'AHL_LTP_SPACE_ASSIGN_PUB';
5: G_DEBUG VARCHAR2(1) := AHL_DEBUG_PUB.is_log_enabled;
6: --
7: -- PACKAGE
8: -- AHL_LTP_SPACE_ASSIGN_PUB
4: G_PKG_NAME VARCHAR2(30) := 'AHL_LTP_SPACE_ASSIGN_PUB';
5: G_DEBUG VARCHAR2(1) := AHL_DEBUG_PUB.is_log_enabled;
6: --
7: -- PACKAGE
8: -- AHL_LTP_SPACE_ASSIGN_PUB
9: --
10: -- PURPOSE
11: -- This package is a Public API for managing Space Assignment information in
12: -- Advanced Services Online. It contains specification for pl/sql records and tables
62: Ahl_Debug_Pub.enable_debug;
63: END IF;
64: -- Debug info.
65: IF G_DEBUG='Y' THEN
66: Ahl_Debug_Pub.debug( 'enter ahl_ltp_space_assign_pub.Assign Sch Visit Spaces','+SPANT+');
67: END IF;
68: -- Standard call to check for call compatibility.
69: IF Fnd_Api.to_boolean(p_init_msg_list)
70: THEN
190: IF G_DEBUG='Y' THEN
191:
192: Ahl_Debug_Pub.log_app_messages (
193: x_msg_count, x_msg_data, 'ERROR' );
194: Ahl_Debug_Pub.debug( 'ahl_ltp_space_assign_pub.Assign Sch Visit Spaces','+SPANT+');
195: -- Check if API is called in debug mode. If yes, disable debug.
196: Ahl_Debug_Pub.disable_debug;
197: END IF;
198: WHEN Fnd_Api.G_EXC_ERROR THEN
204: IF G_DEBUG='Y' THEN
205: -- Debug info.
206: Ahl_Debug_Pub.log_app_messages (
207: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
208: Ahl_Debug_Pub.debug( 'ahl_ltp_space_assign_pub.Assign Sch Visit Spaces','+SPANT+');
209: -- Check if API is called in debug mode. If yes, disable debug.
210: Ahl_Debug_Pub.disable_debug;
211: END IF;
212: WHEN OTHERS THEN
213: ROLLBACK TO Assign_Sch_Visit_Spaces;
214: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
215: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
216: THEN
217: Fnd_Msg_Pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_ASSIGN_PUB',
218: p_procedure_name => 'ASSIGN_SCH_VISIT_SPACES',
219: p_error_text => SUBSTR(SQLERRM,1,240));
220: END IF;
221: Fnd_Msg_Pub.count_and_get( p_encoded => Fnd_Api.G_FALSE,
225:
226: -- Debug info.
227: Ahl_Debug_Pub.log_app_messages (
228: x_msg_count, x_msg_data, 'SQL ERROR' );
229: Ahl_Debug_Pub.debug( 'ahl_ltp_space_assign_pub.Assign Sch Visit Spaces','+SPANT+');
230: -- Check if API is called in debug mode. If yes, disable debug.
231: Ahl_Debug_Pub.disable_debug;
232: END IF;
233: END Assign_Sch_Visit_Spaces;
269: Ahl_Debug_Pub.enable_debug;
270: END IF;
271: -- Debug info.
272: IF G_DEBUG='Y' THEN
273: Ahl_Debug_Pub.debug( 'enter ahl_ltp_space_assign_pub.Schedule Visit','+SPANT+');
274: END IF;
275: -- Standard call to check for call compatibility.
276: IF Fnd_Api.to_boolean(p_init_msg_list)
277: THEN
333: IF G_DEBUG='Y' THEN
334:
335: Ahl_Debug_Pub.log_app_messages (
336: x_msg_count, x_msg_data, 'ERROR' );
337: Ahl_Debug_Pub.debug( 'ahl_ltp_space_assign_pub.Schedule Visit','+SPANT+');
338: -- Check if API is called in debug mode. If yes, disable debug.
339: Ahl_Debug_Pub.disable_debug;
340: END IF;
341: WHEN Fnd_Api.G_EXC_ERROR THEN
347: IF G_DEBUG='Y' THEN
348: -- Debug info.
349: Ahl_Debug_Pub.log_app_messages (
350: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
351: Ahl_Debug_Pub.debug( 'ahl_ltp_space_assign_pub.Schedule Visit','+SPANT+');
352: -- Check if API is called in debug mode. If yes, disable debug.
353: Ahl_Debug_Pub.disable_debug;
354: END IF;
355: WHEN OTHERS THEN
367: IF G_DEBUG='Y' THEN
368: -- Debug info.
369: Ahl_Debug_Pub.log_app_messages (
370: x_msg_count, x_msg_data, 'SQL ERROR' );
371: Ahl_Debug_Pub.debug( 'ahl_ltp_space_assign_pub.Schedule Visit','+SPANT+');
372: -- Check if API is called in debug mode. If yes, disable debug.
373: Ahl_Debug_Pub.disable_debug;
374: END IF;
375: END Schedule_Visit;
413: Ahl_Debug_Pub.enable_debug;
414: END IF;
415: -- Debug info.
416: IF G_DEBUG='Y' THEN
417: Ahl_Debug_Pub.debug( 'enter ahl_ltp_space_assign_pub.Unschedule Visit','+SPANT+');
418: END IF;
419: -- Standard call to check for call compatibility.
420: IF Fnd_Api.to_boolean(p_init_msg_list)
421: THEN
476: IF G_DEBUG='Y' THEN
477:
478: Ahl_Debug_Pub.log_app_messages (
479: x_msg_count, x_msg_data, 'ERROR' );
480: Ahl_Debug_Pub.debug( 'ahl_ltp_space_assign_pub.Unschedule Visit','+SPANT+');
481: -- Check if API is called in debug mode. If yes, disable debug.
482: Ahl_Debug_Pub.disable_debug;
483: END IF;
484: WHEN Fnd_Api.G_EXC_ERROR THEN
490: IF G_DEBUG='Y' THEN
491: -- Debug info.
492: Ahl_Debug_Pub.log_app_messages (
493: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
494: Ahl_Debug_Pub.debug( 'ahl_ltp_space_assign_pub.Unschedule Visit','+SPANT+');
495: -- Check if API is called in debug mode. If yes, disable debug.
496: Ahl_Debug_Pub.disable_debug;
497: END IF;
498: WHEN OTHERS THEN
511:
512: -- Debug info.
513: Ahl_Debug_Pub.log_app_messages (
514: x_msg_count, x_msg_data, 'SQL ERROR' );
515: Ahl_Debug_Pub.debug( 'ahl_ltp_space_assign_pub.Unschedule Visit','+SPANT+');
516: -- Check if API is called in debug mode. If yes, disable debug.
517: Ahl_Debug_Pub.disable_debug;
518: END IF;
519: END Unschedule_Visit;
517: Ahl_Debug_Pub.disable_debug;
518: END IF;
519: END Unschedule_Visit;
520: --
521: END AHL_LTP_SPACE_ASSIGN_PUB;