1: PACKAGE BODY RLM_FORECAST_SV as
2: /* $Header: RLMDPFPB.pls 120.4 2008/02/21 09:21:22 sunilku ship $ */
3: /*======================= RLM_FORECAST_SV ============================*/
4:
5: --
1: PACKAGE BODY RLM_FORECAST_SV as
2: /* $Header: RLMDPFPB.pls 120.4 2008/02/21 09:21:22 sunilku ship $ */
3: /*======================= RLM_FORECAST_SV ============================*/
4:
5: --
6: l_DEBUG NUMBER := NVL(fnd_profile.value('RLM_DEBUG_MODE'),-1);
7: --
254: t_forecast.DELETE;
255: t_designator.DELETE;
256: x_ReturnStatus := rlm_core_sv.k_PROC_ERROR;
257: --
258: rlm_message_sv.sql_error('rlm_forecast_sv.ManageForecast',x_progress);
259: --
260: IF (l_debug <> -1) THEN
261: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
262: END IF;
407: --
408: WHEN OTHERS THEN
409: --
410: x_ReturnStatus := rlm_core_sv.k_PROC_ERROR;
411: rlm_message_sv.sql_error('rlm_forecast_sv.ManageForecast',x_progress);
412: --
413: IF (l_debug <> -1) THEN
414: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
415: END IF;
423: PROCEDURE InitializeGroup
424:
425: ===========================================================================*/
426: PROCEDURE InitializeGroup(x_Sched_rec IN rlm_interface_headers%ROWTYPE,
427: x_Group_ref IN OUT NOCOPY rlm_forecast_sv.t_Cursor_ref,
428: x_Group_rec IN rlm_dp_sv.t_Group_rec)
429: IS
430: x_progress VARCHAR2(3) := '010';
431:
476: END IF;
477: --
478: EXCEPTION
479: WHEN OTHERS THEN
480: rlm_message_sv.sql_error('RLM_FORECAST_SV.InitializeGroup',x_progress);
481: --
482: IF (l_debug <> -1) THEN
483: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
484: END IF;
535: END IF;
536:
537: EXCEPTION
538: WHEN OTHERS THEN
539: rlm_message_sv.sql_error('rlm_forecast_sv.FetchGroup',x_progress);
540: --
541: IF (l_debug <> -1) THEN
542: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
543: END IF;
592: --
593: RETURN FALSE;
594:
595: WHEN OTHERS THEN
596: rlm_message_sv.sql_error('rlm_forecast_sv.LockHeaders',x_progress);
597: --
598: IF (l_debug <> -1) THEN
599: rlm_core_sv.dlog(k_DEBUG,'Returning FALSE from WHEN OTHERS ');
600: rlm_core_sv.dlog(k_DEBUG,'progress',x_Progress);
638: EXCEPTION
639: --
640: WHEN OTHERS THEN
641: --
642: rlm_message_sv.sql_error('rlm_forecast_sv.UpdateHeaderStatus',x_progress);
643: --
644: IF (l_debug <> -1) THEN
645: rlm_core_sv.dlog(k_DEBUG,'progress',x_Progress);
646: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: OTHER - sql error');
702: --
703: RETURN FALSE;
704:
705: WHEN OTHERS THEN
706: rlm_message_sv.sql_error('rlm_forecast_sv.LockLines',x_progress);
707: --
708: IF (l_debug <> -1) THEN
709: rlm_core_sv.dlog(k_DEBUG,'Returning FALSE OTHERS ');
710: rlm_core_sv.dlog(k_DEBUG,'progress',x_Progress);
816: EXCEPTION
817: --
818: WHEN OTHERS THEN
819: --
820: rlm_message_sv.sql_error('rlm_forecast_sv.UpdateGroupStatus',x_progress);
821: --
822: IF (l_debug <> -1) THEN
823: rlm_core_sv.dlog(k_DEBUG,'progress',x_Progress);
824: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: OTHER - sql error');
853: END IF;
854: --
855: EXCEPTION
856: WHEN OTHERS THEN
857: rlm_message_sv.sql_error ('RLM_forecast_sv.initialize_table', x_progress);
858: --
859: IF (l_debug <> -1) THEN
860: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: OTHERS - sql error');
861: END IF;
1262: --
1263: raise;
1264:
1265: WHEN OTHERS THEN
1266: rlm_message_sv.sql_error ('RLM_forecast_sv.LoadForecast', x_progress);
1267: --
1268: IF (l_debug <> -1) THEN
1269: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: OTHERS - sql error');
1270: END IF;
1376: --
1377: RAISE;
1378: --
1379: WHEN OTHERS THEN
1380: rlm_message_sv.sql_error ('RLM_forecast_sv.process_table', x_progress);
1381: --
1382: IF (l_debug <> -1) THEN
1383: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: OTHERS - sql error');
1384: END IF;
2162: raise;
2163: --
2164: END Convert_UOM;
2165:
2166: END RLM_FORECAST_SV;