APPS.IGS_PS_PURGE_DEL_RECORD dependencies on IGS_PS_UNIT_OFR_PAT_ALL

Line 199: PROCEDURE purge_igs_ps_unit_ofr_pat_all AS

195: END purge_igs_ps_ofr_opt_all; /* End Of Processing IGS_PS_OFR_OPT_ALL records */
196:
197:
198:
199: PROCEDURE purge_igs_ps_unit_ofr_pat_all AS
200: /***********************************************************************************************
201:
202: Created By : sarakshi
203: Date Created By: 13-Jul-2004

Line 204: Purpose : To purge logically deleted records from the table IGS_PS_UNIT_OFR_PAT_ALL.

200: /***********************************************************************************************
201:
202: Created By : sarakshi
203: Date Created By: 13-Jul-2004
204: Purpose : To purge logically deleted records from the table IGS_PS_UNIT_OFR_PAT_ALL.
205: If any child record exists for a logically deleted record then that
206: record will be updated such that it becomes active else it will be deleted.
207:
208: Known limitations,enhancements,remarks:

Line 215: FROM igs_ps_unit_ofr_pat_all a

211:
212: ********************************************************************************************** */
213: CURSOR c_del_recs IS
214: SELECT a.rowid, a.*
215: FROM igs_ps_unit_ofr_pat_all a
216: WHERE a.delete_flag = 'Y';
217: rec_del_recs c_del_recs%ROWTYPE;
218:
219: CURSOR c_alt_code (cp_cal_type igs_ca_inst_all.cal_type%TYPE,

Line 233: SAVEPOINT igs_ps_unit_ofr_pat_all ;

229: l_n_rec_count NUMBER(10);
230:
231: BEGIN
232: -- Create a Savepoint for Rollback
233: SAVEPOINT igs_ps_unit_ofr_pat_all ;
234:
235: fnd_file.put_line ( fnd_file.LOG, ' ' );
236: fnd_message.set_name ( 'IGS', 'IGS_PS_UOP_PURGE' );
237: fnd_file.put_line ( fnd_file.LOG, fnd_message.get );

Line 333: ROLLBACK TO igs_ps_unit_ofr_pat_all;

329:
330: EXCEPTION /* This exception handling is at table level */
331: WHEN OTHERS THEN
332: -- If any exception occurs, whole transaction should be rolled off.
333: ROLLBACK TO igs_ps_unit_ofr_pat_all;
334:
335: -- We have to log message stacked by TBH, if any. Otherwise, we will log the generic unhandled exception.
336: l_c_message := fnd_message.get ;
337: IF ( l_c_message IS NOT NULL ) THEN

Line 341: fnd_message.set_token ( 'NAME', 'purge_igs_ps_unit_ofr_pat_all' );

337: IF ( l_c_message IS NOT NULL ) THEN
338: fnd_file.put_line ( fnd_file.LOG, l_c_message );
339: ELSE
340: fnd_message.set_name ( 'IGS', 'IGS_GE_UNHANDLED_EXP' );
341: fnd_message.set_token ( 'NAME', 'purge_igs_ps_unit_ofr_pat_all' );
342: fnd_file.put_line ( fnd_file.LOG, fnd_message.get || ' : ' || SQLERRM );
343: END IF;
344:
345: END purge_igs_ps_unit_ofr_pat_all; /* End Of Processing IGS_PS_UNIT_OFR_PAT_ALL records */

Line 345: END purge_igs_ps_unit_ofr_pat_all; /* End Of Processing IGS_PS_UNIT_OFR_PAT_ALL records */

341: fnd_message.set_token ( 'NAME', 'purge_igs_ps_unit_ofr_pat_all' );
342: fnd_file.put_line ( fnd_file.LOG, fnd_message.get || ' : ' || SQLERRM );
343: END IF;
344:
345: END purge_igs_ps_unit_ofr_pat_all; /* End Of Processing IGS_PS_UNIT_OFR_PAT_ALL records */
346:
347: PROCEDURE purge_ps_records AS
348: /***********************************************************************************************
349:

Line 378: -- Begin Processing Records of IGS_PS_UNIT_OFR_PAT_ALL table.

374: -- Begin Processing Records of IGS_PS_OFR_OPT_ALL table.
375: purge_igs_ps_ofr_opt_all;
376:
377:
378: -- Begin Processing Records of IGS_PS_UNIT_OFR_PAT_ALL table.
379: purge_igs_ps_unit_ofr_pat_all;
380:
381:
382: EXCEPTION /* This exception handling is at Module Level */

Line 379: purge_igs_ps_unit_ofr_pat_all;

375: purge_igs_ps_ofr_opt_all;
376:
377:
378: -- Begin Processing Records of IGS_PS_UNIT_OFR_PAT_ALL table.
379: purge_igs_ps_unit_ofr_pat_all;
380:
381:
382: EXCEPTION /* This exception handling is at Module Level */
383: WHEN OTHERS THEN