1: PACKAGE BODY RLM_PS_SV as
2: /*$Header: RLMDPPSB.pls 120.4.12000000.2 2007/09/03 13:54:26 sunilku ship $*/
3: /*========================== rlm_ps_sv========================*/
4: --
5: l_DEBUG NUMBER := NVL(fnd_profile.value('RLM_DEBUG_MODE'),-1);
1: PACKAGE BODY RLM_PS_SV as
2: /*$Header: RLMDPPSB.pls 120.4.12000000.2 2007/09/03 13:54:26 sunilku ship $*/
3: /*========================== rlm_ps_sv========================*/
4: --
5: l_DEBUG NUMBER := NVL(fnd_profile.value('RLM_DEBUG_MODE'),-1);
6: TYPE g_number_tbl_type IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
7: g_BindVarTab RLM_CORE_SV.t_dynamic_tab;
307: p_delete_beyond_days => p_delete_beyond_days,
308: p_authorization => p_authorization,
309: p_status => p_status);
310: --
311: rlm_message_sv.sql_error('rlm_ps_sv.PurgeSchedule', v_Progress);
312: --
313: IF (l_debug <> -1) THEN
314: rlm_core_sv.dpop(C_SDEBUG);
315: END IF;
336: p_delete_beyond_days => p_delete_beyond_days,
337: p_authorization => p_authorization,
338: p_status => p_status);
339: --
340: rlm_message_sv.sql_error('rlm_ps_sv.PurgeSchedule', v_Progress);
341: rlm_message_sv.dump_messages;
342: --
343: IF (l_debug <> -1) THEN
344: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '|| SUBSTR(SQLERRM,1,200));
716: EXCEPTION
717:
718: when others then
719:
720: rlm_message_sv.sql_error('rlm_ps_sv.PurgeArchive', v_Progress);
721: rlm_message_sv.dump_messages;
722: --
723: IF (l_debug <> -1) THEN
724: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '|| SUBSTR(SQLERRM,1,200));
1084: --
1085: EXCEPTION
1086: WHEN OTHERS THEN
1087: --
1088: rlm_message_sv.sql_error('rlm_ps_sv.PurgeInterface', v_Progress);
1089: rlm_message_sv.dump_messages;
1090: --
1091: IF (l_debug <> -1) THEN
1092: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '|| SUBSTR(SQLERRM,1,200));
1161: EXCEPTION
1162: --
1163: WHEN OTHERS THEN
1164: --
1165: rlm_message_sv.sql_error('rlm_ps_sv.RunReport', v_Progress);
1166: rlm_message_sv.dump_messages;
1167: --
1168: IF (l_debug <> -1) THEN
1169: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '|| SUBSTR(SQLERRM,1,200));
1394: --
1395: EXCEPTION
1396:
1397: When others then
1398: rlm_message_sv.sql_error('rlm_ps_sv.BuildQuery', v_Progress);
1399: rlm_message_sv.dump_messages;
1400: --
1401: IF (l_debug <> -1) THEN
1402: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '|| SUBSTR(SQLERRM,1,200));
1552:
1553: EXCEPTION
1554:
1555: When others then
1556: rlm_message_sv.sql_error('rlm_ps_sv.CheckOpenOrder', v_Progress);
1557: rlm_message_sv.dump_messages;
1558: --
1559: IF (l_debug <> -1) THEN
1560: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '|| SUBSTR(SQLERRM,1,200));
1564:
1565: END CheckOpenOrder;
1566:
1567:
1568: END RLM_PS_SV;