1: PACKAGE BODY AHL_LTP_RESRC_LEVL_PUB AS
2: /* $Header: AHLPRLGB.pls 115.14 2003/09/09 06:05:19 rroy noship $ */
3: G_PKG_NAME VARCHAR2(30) := 'AHL_LTP_RESRC_LEVL_PUB';
4: G_DEBUG VARCHAR2(1) := AHL_DEBUG_PUB.is_log_enabled;
5: --
6: -----------------------------------------------------------
7: -- PACKAGE
8: -- AHL_LTP_RESRC_LEVL_PUB
56: -- Standard Start of API savepoint
57: SAVEPOINT derive_resource_capacity;
58: -- Check if API is called in debug mode. If yes, enable debug.
59: IF G_DEBUG='Y' THEN
60: AHL_DEBUG_PUB.enable_debug;
61: END IF;
62: -- Debug info.
63: IF G_DEBUG='Y' THEN
64: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_resrc_levl_pub. derive resource capacity','+RESLG+');
60: AHL_DEBUG_PUB.enable_debug;
61: END IF;
62: -- Debug info.
63: IF G_DEBUG='Y' THEN
64: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_resrc_levl_pub. derive resource capacity','+RESLG+');
65: END IF;
66: -- Standard call to check for call compatibility.
67: IF FND_API.to_boolean(p_init_msg_list)
68: THEN
139: x_aval_resources_tbl(i).resource_name := l_period_Rsrc_Req_Tbl(i).resource_name;
140: x_aval_resources_tbl(i).resource_id := l_period_Rsrc_Req_Tbl(i).resource_id;
141: IF G_DEBUG='Y' THEN
142: --
143: AHL_DEBUG_PUB.debug( 'END PUB SDATE:'||x_aval_resources_tbl(i).period_start);
144: AHL_DEBUG_PUB.debug( 'END PUB EDATE:'||x_aval_resources_tbl(i).period_end);
145: AHL_DEBUG_PUB.debug( 'END PUB period string:'||x_aval_resources_tbl(i).period_string);
146: AHL_DEBUG_PUB.debug( 'END PUB RID:'||x_aval_resources_tbl(i).resource_id);
147: --
140: x_aval_resources_tbl(i).resource_id := l_period_Rsrc_Req_Tbl(i).resource_id;
141: IF G_DEBUG='Y' THEN
142: --
143: AHL_DEBUG_PUB.debug( 'END PUB SDATE:'||x_aval_resources_tbl(i).period_start);
144: AHL_DEBUG_PUB.debug( 'END PUB EDATE:'||x_aval_resources_tbl(i).period_end);
145: AHL_DEBUG_PUB.debug( 'END PUB period string:'||x_aval_resources_tbl(i).period_string);
146: AHL_DEBUG_PUB.debug( 'END PUB RID:'||x_aval_resources_tbl(i).resource_id);
147: --
148: END IF;
141: IF G_DEBUG='Y' THEN
142: --
143: AHL_DEBUG_PUB.debug( 'END PUB SDATE:'||x_aval_resources_tbl(i).period_start);
144: AHL_DEBUG_PUB.debug( 'END PUB EDATE:'||x_aval_resources_tbl(i).period_end);
145: AHL_DEBUG_PUB.debug( 'END PUB period string:'||x_aval_resources_tbl(i).period_string);
146: AHL_DEBUG_PUB.debug( 'END PUB RID:'||x_aval_resources_tbl(i).resource_id);
147: --
148: END IF;
149: END LOOP;
142: --
143: AHL_DEBUG_PUB.debug( 'END PUB SDATE:'||x_aval_resources_tbl(i).period_start);
144: AHL_DEBUG_PUB.debug( 'END PUB EDATE:'||x_aval_resources_tbl(i).period_end);
145: AHL_DEBUG_PUB.debug( 'END PUB period string:'||x_aval_resources_tbl(i).period_string);
146: AHL_DEBUG_PUB.debug( 'END PUB RID:'||x_aval_resources_tbl(i).resource_id);
147: --
148: END IF;
149: END LOOP;
150: END IF;
165: COMMIT;
166: END IF;
167: -- Debug info
168: IF G_DEBUG='Y' THEN
169: Ahl_Debug_Pub.debug( 'End of public api Derive Resource Capacity','+RSRLG+');
170: -- Check if API is called in debug mode. If yes, disable debug.
171: Ahl_Debug_Pub.disable_debug;
172: --
173: END IF;
167: -- Debug info
168: IF G_DEBUG='Y' THEN
169: Ahl_Debug_Pub.debug( 'End of public api Derive Resource Capacity','+RSRLG+');
170: -- Check if API is called in debug mode. If yes, disable debug.
171: Ahl_Debug_Pub.disable_debug;
172: --
173: END IF;
174: EXCEPTION
175: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
179: p_count => x_msg_count,
180: p_data => x_msg_data);
181: IF G_DEBUG='Y' THEN
182:
183: AHL_DEBUG_PUB.log_app_messages (
184: x_msg_count, x_msg_data, 'ERROR' );
185: AHL_DEBUG_PUB.debug( 'ahl_ltp_resrc_levl_pub. Derive Resource Capacity','+RSRLG+');
186: -- Check if API is called in debug mode. If yes, disable debug.
187: AHL_DEBUG_PUB.disable_debug;
181: IF G_DEBUG='Y' THEN
182:
183: AHL_DEBUG_PUB.log_app_messages (
184: x_msg_count, x_msg_data, 'ERROR' );
185: AHL_DEBUG_PUB.debug( 'ahl_ltp_resrc_levl_pub. Derive Resource Capacity','+RSRLG+');
186: -- Check if API is called in debug mode. If yes, disable debug.
187: AHL_DEBUG_PUB.disable_debug;
188: END IF;
189: WHEN FND_API.G_EXC_ERROR THEN
183: AHL_DEBUG_PUB.log_app_messages (
184: x_msg_count, x_msg_data, 'ERROR' );
185: AHL_DEBUG_PUB.debug( 'ahl_ltp_resrc_levl_pub. Derive Resource Capacity','+RSRLG+');
186: -- Check if API is called in debug mode. If yes, disable debug.
187: AHL_DEBUG_PUB.disable_debug;
188: END IF;
189: WHEN FND_API.G_EXC_ERROR THEN
190: ROLLBACK TO derive_resource_capacity;
191: X_return_status := FND_API.G_RET_STS_ERROR;
194: p_data => X_msg_data);
195: IF G_DEBUG='Y' THEN
196:
197: -- Debug info.
198: AHL_DEBUG_PUB.log_app_messages (
199: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
200: AHL_DEBUG_PUB.debug( 'ahl_ltp_resrc_levl_pub. Derive Resource Capacity','+RSRLG+');
201: -- Check if API is called in debug mode. If yes, disable debug.
202: AHL_DEBUG_PUB.disable_debug;
196:
197: -- Debug info.
198: AHL_DEBUG_PUB.log_app_messages (
199: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
200: AHL_DEBUG_PUB.debug( 'ahl_ltp_resrc_levl_pub. Derive Resource Capacity','+RSRLG+');
201: -- Check if API is called in debug mode. If yes, disable debug.
202: AHL_DEBUG_PUB.disable_debug;
203: END IF;
204: WHEN OTHERS THEN
198: AHL_DEBUG_PUB.log_app_messages (
199: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
200: AHL_DEBUG_PUB.debug( 'ahl_ltp_resrc_levl_pub. Derive Resource Capacity','+RSRLG+');
201: -- Check if API is called in debug mode. If yes, disable debug.
202: AHL_DEBUG_PUB.disable_debug;
203: END IF;
204: WHEN OTHERS THEN
205: ROLLBACK TO derive_resource_capacity;
206: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
215: p_data => X_msg_data);
216: IF G_DEBUG='Y' THEN
217:
218: -- Debug info.
219: AHL_DEBUG_PUB.log_app_messages (
220: x_msg_count, x_msg_data, 'SQL ERROR' );
221: AHL_DEBUG_PUB.debug( 'ahl_ltp_resrc_levl_pub. Derive Resource Capacity','+RSRLG+');
222: -- Check if API is called in debug mode. If yes, disable debug.
223: AHL_DEBUG_PUB.disable_debug;
217:
218: -- Debug info.
219: AHL_DEBUG_PUB.log_app_messages (
220: x_msg_count, x_msg_data, 'SQL ERROR' );
221: AHL_DEBUG_PUB.debug( 'ahl_ltp_resrc_levl_pub. Derive Resource Capacity','+RSRLG+');
222: -- Check if API is called in debug mode. If yes, disable debug.
223: AHL_DEBUG_PUB.disable_debug;
224: END IF;
225:
219: AHL_DEBUG_PUB.log_app_messages (
220: x_msg_count, x_msg_data, 'SQL ERROR' );
221: AHL_DEBUG_PUB.debug( 'ahl_ltp_resrc_levl_pub. Derive Resource Capacity','+RSRLG+');
222: -- Check if API is called in debug mode. If yes, disable debug.
223: AHL_DEBUG_PUB.disable_debug;
224: END IF;
225:
226: END Derive_Resource_Capacity;
227:
265: -- Standard Start of API savepoint
266: SAVEPOINT derive_resource_consum;
267: -- Check if API is called in debug mode. If yes, enable debug.
268: IF G_DEBUG='Y' THEN
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_resrc_levl_pub. derive resource consum','+RESLG+');
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_resrc_levl_pub. derive resource consum','+RESLG+');
274: END IF;
275: -- Standard call to check for call compatibility.
276: IF FND_API.to_boolean(p_init_msg_list)
277: THEN
310: Fnd_Msg_Pub.ADD;
311: RAISE Fnd_Api.G_EXC_ERROR;
312: END IF;
313: IF G_DEBUG='Y' THEN
314: AHL_DEBUG_PUB.debug( 'before public CallRID:'||p_req_resources.resource_id);
315: AHL_DEBUG_PUB.debug( 'before public CallRTY:'||p_req_resources.resource_type_meaning);
316: AHL_DEBUG_PUB.debug( 'before public CallDID:'||p_req_resources.dept_id);
317: AHL_DEBUG_PUB.debug( 'before public CallDNAME:'||p_req_resources.dept_name);
318: AHL_DEBUG_PUB.debug( 'before public CallDSTART:'||p_req_resources.display_start_date);
311: RAISE Fnd_Api.G_EXC_ERROR;
312: END IF;
313: IF G_DEBUG='Y' THEN
314: AHL_DEBUG_PUB.debug( 'before public CallRID:'||p_req_resources.resource_id);
315: AHL_DEBUG_PUB.debug( 'before public CallRTY:'||p_req_resources.resource_type_meaning);
316: AHL_DEBUG_PUB.debug( 'before public CallDID:'||p_req_resources.dept_id);
317: AHL_DEBUG_PUB.debug( 'before public CallDNAME:'||p_req_resources.dept_name);
318: AHL_DEBUG_PUB.debug( 'before public CallDSTART:'||p_req_resources.display_start_date);
319: AHL_DEBUG_PUB.debug( 'before public CallDENDD:'||p_req_resources.display_end_date);
312: END IF;
313: IF G_DEBUG='Y' THEN
314: AHL_DEBUG_PUB.debug( 'before public CallRID:'||p_req_resources.resource_id);
315: AHL_DEBUG_PUB.debug( 'before public CallRTY:'||p_req_resources.resource_type_meaning);
316: AHL_DEBUG_PUB.debug( 'before public CallDID:'||p_req_resources.dept_id);
317: AHL_DEBUG_PUB.debug( 'before public CallDNAME:'||p_req_resources.dept_name);
318: AHL_DEBUG_PUB.debug( 'before public CallDSTART:'||p_req_resources.display_start_date);
319: AHL_DEBUG_PUB.debug( 'before public CallDENDD:'||p_req_resources.display_end_date);
320: AHL_DEBUG_PUB.debug( 'before public CallSTART:'||p_req_resources.start_date);
313: IF G_DEBUG='Y' THEN
314: AHL_DEBUG_PUB.debug( 'before public CallRID:'||p_req_resources.resource_id);
315: AHL_DEBUG_PUB.debug( 'before public CallRTY:'||p_req_resources.resource_type_meaning);
316: AHL_DEBUG_PUB.debug( 'before public CallDID:'||p_req_resources.dept_id);
317: AHL_DEBUG_PUB.debug( 'before public CallDNAME:'||p_req_resources.dept_name);
318: AHL_DEBUG_PUB.debug( 'before public CallDSTART:'||p_req_resources.display_start_date);
319: AHL_DEBUG_PUB.debug( 'before public CallDENDD:'||p_req_resources.display_end_date);
320: AHL_DEBUG_PUB.debug( 'before public CallSTART:'||p_req_resources.start_date);
321: AHL_DEBUG_PUB.debug( 'before public CallENDD:'||p_req_resources.end_date);
314: AHL_DEBUG_PUB.debug( 'before public CallRID:'||p_req_resources.resource_id);
315: AHL_DEBUG_PUB.debug( 'before public CallRTY:'||p_req_resources.resource_type_meaning);
316: AHL_DEBUG_PUB.debug( 'before public CallDID:'||p_req_resources.dept_id);
317: AHL_DEBUG_PUB.debug( 'before public CallDNAME:'||p_req_resources.dept_name);
318: AHL_DEBUG_PUB.debug( 'before public CallDSTART:'||p_req_resources.display_start_date);
319: AHL_DEBUG_PUB.debug( 'before public CallDENDD:'||p_req_resources.display_end_date);
320: AHL_DEBUG_PUB.debug( 'before public CallSTART:'||p_req_resources.start_date);
321: AHL_DEBUG_PUB.debug( 'before public CallENDD:'||p_req_resources.end_date);
322: END IF;
315: AHL_DEBUG_PUB.debug( 'before public CallRTY:'||p_req_resources.resource_type_meaning);
316: AHL_DEBUG_PUB.debug( 'before public CallDID:'||p_req_resources.dept_id);
317: AHL_DEBUG_PUB.debug( 'before public CallDNAME:'||p_req_resources.dept_name);
318: AHL_DEBUG_PUB.debug( 'before public CallDSTART:'||p_req_resources.display_start_date);
319: AHL_DEBUG_PUB.debug( 'before public CallDENDD:'||p_req_resources.display_end_date);
320: AHL_DEBUG_PUB.debug( 'before public CallSTART:'||p_req_resources.start_date);
321: AHL_DEBUG_PUB.debug( 'before public CallENDD:'||p_req_resources.end_date);
322: END IF;
323: AHL_LTP_RESRC_LEVL_PVT.Get_Task_Requirements
316: AHL_DEBUG_PUB.debug( 'before public CallDID:'||p_req_resources.dept_id);
317: AHL_DEBUG_PUB.debug( 'before public CallDNAME:'||p_req_resources.dept_name);
318: AHL_DEBUG_PUB.debug( 'before public CallDSTART:'||p_req_resources.display_start_date);
319: AHL_DEBUG_PUB.debug( 'before public CallDENDD:'||p_req_resources.display_end_date);
320: AHL_DEBUG_PUB.debug( 'before public CallSTART:'||p_req_resources.start_date);
321: AHL_DEBUG_PUB.debug( 'before public CallENDD:'||p_req_resources.end_date);
322: END IF;
323: AHL_LTP_RESRC_LEVL_PVT.Get_Task_Requirements
324: (
317: AHL_DEBUG_PUB.debug( 'before public CallDNAME:'||p_req_resources.dept_name);
318: AHL_DEBUG_PUB.debug( 'before public CallDSTART:'||p_req_resources.display_start_date);
319: AHL_DEBUG_PUB.debug( 'before public CallDENDD:'||p_req_resources.display_end_date);
320: AHL_DEBUG_PUB.debug( 'before public CallSTART:'||p_req_resources.start_date);
321: AHL_DEBUG_PUB.debug( 'before public CallENDD:'||p_req_resources.end_date);
322: END IF;
323: AHL_LTP_RESRC_LEVL_PVT.Get_Task_Requirements
324: (
325: p_api_version => p_api_version,
356: x_resource_con_tbl(i).dept_name := l_task_req_tbl(i).dept_name;
357: x_resource_con_tbl(i).quantity := l_task_req_tbl(i).required_units;
358: x_resource_con_tbl(i).available_units := l_task_req_tbl(i).available_units;
359: IF G_DEBUG='Y' THEN
360: AHL_DEBUG_PUB.debug( 'End of public VID:'||x_resource_con_tbl(i).visit_id);
361: AHL_DEBUG_PUB.debug( 'End of public TID:'||x_resource_con_tbl(i).task_id);
362: AHL_DEBUG_PUB.debug( 'End of public VTNA:'||x_resource_con_tbl(i).visit_task_name);
363: AHL_DEBUG_PUB.debug( 'End of public VNAM:'||x_resource_con_tbl(i).visit_name);
364: AHL_DEBUG_PUB.debug( 'End of public RQTY:'||x_resource_con_tbl(i).required_units);
357: x_resource_con_tbl(i).quantity := l_task_req_tbl(i).required_units;
358: x_resource_con_tbl(i).available_units := l_task_req_tbl(i).available_units;
359: IF G_DEBUG='Y' THEN
360: AHL_DEBUG_PUB.debug( 'End of public VID:'||x_resource_con_tbl(i).visit_id);
361: AHL_DEBUG_PUB.debug( 'End of public TID:'||x_resource_con_tbl(i).task_id);
362: AHL_DEBUG_PUB.debug( 'End of public VTNA:'||x_resource_con_tbl(i).visit_task_name);
363: AHL_DEBUG_PUB.debug( 'End of public VNAM:'||x_resource_con_tbl(i).visit_name);
364: AHL_DEBUG_PUB.debug( 'End of public RQTY:'||x_resource_con_tbl(i).required_units);
365: AHL_DEBUG_PUB.debug( 'End of public AQTY:'||x_resource_con_tbl(i).available_units);
358: x_resource_con_tbl(i).available_units := l_task_req_tbl(i).available_units;
359: IF G_DEBUG='Y' THEN
360: AHL_DEBUG_PUB.debug( 'End of public VID:'||x_resource_con_tbl(i).visit_id);
361: AHL_DEBUG_PUB.debug( 'End of public TID:'||x_resource_con_tbl(i).task_id);
362: AHL_DEBUG_PUB.debug( 'End of public VTNA:'||x_resource_con_tbl(i).visit_task_name);
363: AHL_DEBUG_PUB.debug( 'End of public VNAM:'||x_resource_con_tbl(i).visit_name);
364: AHL_DEBUG_PUB.debug( 'End of public RQTY:'||x_resource_con_tbl(i).required_units);
365: AHL_DEBUG_PUB.debug( 'End of public AQTY:'||x_resource_con_tbl(i).available_units);
366: END IF;
359: IF G_DEBUG='Y' THEN
360: AHL_DEBUG_PUB.debug( 'End of public VID:'||x_resource_con_tbl(i).visit_id);
361: AHL_DEBUG_PUB.debug( 'End of public TID:'||x_resource_con_tbl(i).task_id);
362: AHL_DEBUG_PUB.debug( 'End of public VTNA:'||x_resource_con_tbl(i).visit_task_name);
363: AHL_DEBUG_PUB.debug( 'End of public VNAM:'||x_resource_con_tbl(i).visit_name);
364: AHL_DEBUG_PUB.debug( 'End of public RQTY:'||x_resource_con_tbl(i).required_units);
365: AHL_DEBUG_PUB.debug( 'End of public AQTY:'||x_resource_con_tbl(i).available_units);
366: END IF;
367:
360: AHL_DEBUG_PUB.debug( 'End of public VID:'||x_resource_con_tbl(i).visit_id);
361: AHL_DEBUG_PUB.debug( 'End of public TID:'||x_resource_con_tbl(i).task_id);
362: AHL_DEBUG_PUB.debug( 'End of public VTNA:'||x_resource_con_tbl(i).visit_task_name);
363: AHL_DEBUG_PUB.debug( 'End of public VNAM:'||x_resource_con_tbl(i).visit_name);
364: AHL_DEBUG_PUB.debug( 'End of public RQTY:'||x_resource_con_tbl(i).required_units);
365: AHL_DEBUG_PUB.debug( 'End of public AQTY:'||x_resource_con_tbl(i).available_units);
366: END IF;
367:
368: END LOOP;
361: AHL_DEBUG_PUB.debug( 'End of public TID:'||x_resource_con_tbl(i).task_id);
362: AHL_DEBUG_PUB.debug( 'End of public VTNA:'||x_resource_con_tbl(i).visit_task_name);
363: AHL_DEBUG_PUB.debug( 'End of public VNAM:'||x_resource_con_tbl(i).visit_name);
364: AHL_DEBUG_PUB.debug( 'End of public RQTY:'||x_resource_con_tbl(i).required_units);
365: AHL_DEBUG_PUB.debug( 'End of public AQTY:'||x_resource_con_tbl(i).available_units);
366: END IF;
367:
368: END LOOP;
369: END IF;
385: COMMIT;
386: END IF;
387: -- Debug info
388: IF G_DEBUG='Y' THEN
389: Ahl_Debug_Pub.debug( 'End of public api Derive Resource Consum','+RSRLG+');
390: -- Check if API is called in debug mode. If yes, disable debug.
391: Ahl_Debug_Pub.disable_debug;
392: END IF;
393:
387: -- Debug info
388: IF G_DEBUG='Y' THEN
389: Ahl_Debug_Pub.debug( 'End of public api Derive Resource Consum','+RSRLG+');
390: -- Check if API is called in debug mode. If yes, disable debug.
391: Ahl_Debug_Pub.disable_debug;
392: END IF;
393:
394: EXCEPTION
395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
399: p_count => x_msg_count,
400: p_data => x_msg_data);
401: IF G_DEBUG='Y' THEN
402:
403: AHL_DEBUG_PUB.log_app_messages (
404: x_msg_count, x_msg_data, 'ERROR' );
405: AHL_DEBUG_PUB.debug( 'ahl_ltp_resrc_levl_pub. Derive Resource Consum','+RSRLG+');
406: -- Check if API is called in debug mode. If yes, disable debug.
407: AHL_DEBUG_PUB.disable_debug;
401: IF G_DEBUG='Y' THEN
402:
403: AHL_DEBUG_PUB.log_app_messages (
404: x_msg_count, x_msg_data, 'ERROR' );
405: AHL_DEBUG_PUB.debug( 'ahl_ltp_resrc_levl_pub. Derive Resource Consum','+RSRLG+');
406: -- Check if API is called in debug mode. If yes, disable debug.
407: AHL_DEBUG_PUB.disable_debug;
408: END IF;
409:
403: AHL_DEBUG_PUB.log_app_messages (
404: x_msg_count, x_msg_data, 'ERROR' );
405: AHL_DEBUG_PUB.debug( 'ahl_ltp_resrc_levl_pub. Derive Resource Consum','+RSRLG+');
406: -- Check if API is called in debug mode. If yes, disable debug.
407: AHL_DEBUG_PUB.disable_debug;
408: END IF;
409:
410: WHEN FND_API.G_EXC_ERROR THEN
411: ROLLBACK TO derive_resource_consum;
415: p_data => X_msg_data);
416: IF G_DEBUG='Y' THEN
417:
418: -- Debug info.
419: AHL_DEBUG_PUB.log_app_messages (
420: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
421: AHL_DEBUG_PUB.debug( 'ahl_ltp_resrc_levl_pub. Derive Resource Consum','+RSRLG+');
422: -- Check if API is called in debug mode. If yes, disable debug.
423: AHL_DEBUG_PUB.disable_debug;
417:
418: -- Debug info.
419: AHL_DEBUG_PUB.log_app_messages (
420: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
421: AHL_DEBUG_PUB.debug( 'ahl_ltp_resrc_levl_pub. Derive Resource Consum','+RSRLG+');
422: -- Check if API is called in debug mode. If yes, disable debug.
423: AHL_DEBUG_PUB.disable_debug;
424: END IF;
425:
419: AHL_DEBUG_PUB.log_app_messages (
420: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
421: AHL_DEBUG_PUB.debug( 'ahl_ltp_resrc_levl_pub. Derive Resource Consum','+RSRLG+');
422: -- Check if API is called in debug mode. If yes, disable debug.
423: AHL_DEBUG_PUB.disable_debug;
424: END IF;
425:
426: WHEN OTHERS THEN
427: ROLLBACK TO derive_resource_consum;
437: p_data => X_msg_data);
438: IF G_DEBUG='Y' THEN
439:
440: -- Debug info.
441: AHL_DEBUG_PUB.log_app_messages (
442: x_msg_count, x_msg_data, 'SQL ERROR' );
443: AHL_DEBUG_PUB.debug( 'ahl_ltp_resrc_levl_pub. Derive Resource Consum','+RSRLG+');
444: -- Check if API is called in debug mode. If yes, disable debug.
445: AHL_DEBUG_PUB.disable_debug;
439:
440: -- Debug info.
441: AHL_DEBUG_PUB.log_app_messages (
442: x_msg_count, x_msg_data, 'SQL ERROR' );
443: AHL_DEBUG_PUB.debug( 'ahl_ltp_resrc_levl_pub. Derive Resource Consum','+RSRLG+');
444: -- Check if API is called in debug mode. If yes, disable debug.
445: AHL_DEBUG_PUB.disable_debug;
446: END IF;
447:
441: AHL_DEBUG_PUB.log_app_messages (
442: x_msg_count, x_msg_data, 'SQL ERROR' );
443: AHL_DEBUG_PUB.debug( 'ahl_ltp_resrc_levl_pub. Derive Resource Consum','+RSRLG+');
444: -- Check if API is called in debug mode. If yes, disable debug.
445: AHL_DEBUG_PUB.disable_debug;
446: END IF;
447:
448: END Derive_Resource_Consum;
449: --