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,
220: cp_sequence_number igs_ca_inst_all.sequence_number%TYPE) IS
221: SELECT alternate_code
222: FROM igs_ca_inst_all
223: WHERE cal_type = cp_cal_type
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,
220: cp_sequence_number igs_ca_inst_all.sequence_number%TYPE) IS
221: SELECT alternate_code
222: FROM igs_ca_inst_all
223: WHERE cal_type = cp_cal_type
224: AND sequence_number = cp_sequence_number;
218:
219: CURSOR c_alt_code (cp_cal_type igs_ca_inst_all.cal_type%TYPE,
220: cp_sequence_number igs_ca_inst_all.sequence_number%TYPE) IS
221: SELECT alternate_code
222: FROM igs_ca_inst_all
223: WHERE cal_type = cp_cal_type
224: AND sequence_number = cp_sequence_number;
225:
226: l_c_alt_code igs_ca_inst_all.alternate_code%TYPE;
222: FROM igs_ca_inst_all
223: WHERE cal_type = cp_cal_type
224: AND sequence_number = cp_sequence_number;
225:
226: l_c_alt_code igs_ca_inst_all.alternate_code%TYPE;
227: l_b_purged BOOLEAN ;
228: l_c_message VARCHAR2 (4000);
229: l_n_rec_count NUMBER(10);
230: