122: l_purge_batch_id);
123:
124: EXCEPTION
125: /* Bug#2510609 */
126: WHEN PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error THEN
127: errbuf := PA_PROJECT_UTILS2.g_sqlerrm ;
128: retcode := -1 ;
129: WHEN OTHERS THEN
130: errbuf := SQLERRM ;
123:
124: EXCEPTION
125: /* Bug#2510609 */
126: WHEN PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error THEN
127: errbuf := PA_PROJECT_UTILS2.g_sqlerrm ;
128: retcode := -1 ;
129: WHEN OTHERS THEN
130: errbuf := SQLERRM ;
131: retcode := -1 ;
131: retcode := -1 ;
132: arpr_log('errbuf in exception: '||errbuf);
133:
134: /* Bug#2510609
135: WHEN PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error then
136: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
137:
138: WHEN OTHERS THEN
139: arpr_log('Error Procedure Name := PA_PURGE_UNASGN_FI.PA_FORECASTITEMS' );
132: arpr_log('errbuf in exception: '||errbuf);
133:
134: /* Bug#2510609
135: WHEN PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error then
136: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
137:
138: WHEN OTHERS THEN
139: arpr_log('Error Procedure Name := PA_PURGE_UNASGN_FI.PA_FORECASTITEMS' );
140: arpr_log('Error stage is '||x_err_stage );
139: arpr_log('Error Procedure Name := PA_PURGE_UNASGN_FI.PA_FORECASTITEMS' );
140: arpr_log('Error stage is '||x_err_stage );
141: arpr_log('Error stack is '||x_err_stack );
142: arpr_log(SQLERRM);
143: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;
144:
145: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
146: */
147:
141: arpr_log('Error stack is '||x_err_stack );
142: arpr_log(SQLERRM);
143: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;
144:
145: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
146: */
147:
148: End PA_FORECASTITEM;
149:
745: END LOOP; /* Bug#2510609 */
746:
747:
748: EXCEPTION
749: WHEN PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error then
750: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
751:
752: WHEN OTHERS THEN
753: arpr_log('Error Procedure Name := PA_PURGE_UNASGN_FI.DELETE_FI' );
746:
747:
748: EXCEPTION
749: WHEN PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error then
750: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
751:
752: WHEN OTHERS THEN
753: arpr_log('Error Procedure Name := PA_PURGE_UNASGN_FI.DELETE_FI' );
754: arpr_log('Error stage is '||x_err_stage );
753: arpr_log('Error Procedure Name := PA_PURGE_UNASGN_FI.DELETE_FI' );
754: arpr_log('Error stage is '||x_err_stage );
755: arpr_log('Error stack is '||x_err_stack );
756: arpr_log(SQLERRM);
757: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;
758:
759: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
760:
761: End delete_fi;
755: arpr_log('Error stack is '||x_err_stack );
756: arpr_log(SQLERRM);
757: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;
758:
759: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
760:
761: End delete_fi;
762:
763: