1: package body pa_purge_extn as
2: /* $Header: PAXAPPXB.pls 120.1 2005/08/19 17:08:20 mwasowic noship $ */
3: -- forward declarations
4:
5: l_commit_size NUMBER ;
95: -- The value can be changed before calling the
96: --
97: --
98: -- pa_debug.debug('*-> About to purge Extn data ') ;
99: -- pa_purge_extn.
101: -- p_txn_through_date => p_txn_through_date,
102: -- p_purge_release => p_purge_release,
103: -- p_archive_flag => p_archive_flag,
113: -- other. This section of the code is called after all the main
114: -- tables are purged in the current run.
115: --
116: -- pa_debug.debug('*-> About to purge extn data ') ;
117: -- pa_purge_extn.
119: -- p_txn_through_date => p_txn_through_date,
120: -- p_purge_release => p_purge_release,
121: -- p_archive_flag => p_archive_flag,
136: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
137:
138: WHEN OTHERS THEN
139: x_err_stage := l_err_stage ;
140: pa_debug.debug('Error Procedure Name := PA_PURGE_EXTN.PA_PURGE_CLIENT_EXTN' );
141: pa_debug.debug('Error stage is '||l_err_stage );
142: pa_debug.debug('Error stack is '||l_err_stack );
143: pa_debug.debug(SQLERRM);
144: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;
323: -- RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
324: --
325: -- WHEN OTHERS THEN
326: -- x_err_stage := l_err_stage ;
327: -- pa_debug.debug('Error Procedure Name := PA_PURGE_EXTN.
329: -- pa_debug.debug('Error stack is '||l_err_stack );
330: -- pa_debug.debug(SQLERRM);
331: -- PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;
334: --
335: --
336: -- end
337:
338: END pa_purge_extn;