[Home] [Help]
146: FOR UPDATE OF gua.LAST_UPDATE_DATE NOWAIT ;
147:
148:
149: CURSOR c_gach (
150: cp_create_dt IGS_GR_AWD_CRMN_HIST.create_dt%TYPE) IS
151: SELECT gach.gach_id
152: FROM IGS_GR_AWD_CRMN_HIST gach
153: WHERE gach.person_id = p_person_id
154: AND gach.create_dt = cp_create_dt;
148:
149: CURSOR c_gach (
150: cp_create_dt IGS_GR_AWD_CRMN_HIST.create_dt%TYPE) IS
151: SELECT gach.gach_id
152: FROM IGS_GR_AWD_CRMN_HIST gach
153: WHERE gach.person_id = p_person_id
154: AND gach.create_dt = cp_create_dt;
155:
156: CURSOR c_gach_del (
153: WHERE gach.person_id = p_person_id
154: AND gach.create_dt = cp_create_dt;
155:
156: CURSOR c_gach_del (
157: cp_gach_id IGS_GR_AWD_CRMN_HIST.gach_id%TYPE) IS
158: SELECT rowid
159: FROM IGS_GR_AWD_CRMN_HIST gach
160: WHERE gach.gach_id = cp_gach_id
161: FOR UPDATE OF gach.LAST_UPDATE_DATE NOWAIT ;
155:
156: CURSOR c_gach_del (
157: cp_gach_id IGS_GR_AWD_CRMN_HIST.gach_id%TYPE) IS
158: SELECT rowid
159: FROM IGS_GR_AWD_CRMN_HIST gach
160: WHERE gach.gach_id = cp_gach_id
161: FOR UPDATE OF gach.LAST_UPDATE_DATE NOWAIT ;
162:
163: CURSOR c_gac (
160: WHERE gach.gach_id = cp_gach_id
161: FOR UPDATE OF gach.LAST_UPDATE_DATE NOWAIT ;
162:
163: CURSOR c_gac (
164: cp_create_dt IGS_GR_AWD_CRMN.create_dt%TYPE) IS
165: SELECT gac.gac_id
166: FROM IGS_GR_AWD_CRMN gac
167: WHERE gac.person_id = p_person_id
168: AND gac.create_dt = cp_create_dt;
162:
163: CURSOR c_gac (
164: cp_create_dt IGS_GR_AWD_CRMN.create_dt%TYPE) IS
165: SELECT gac.gac_id
166: FROM IGS_GR_AWD_CRMN gac
167: WHERE gac.person_id = p_person_id
168: AND gac.create_dt = cp_create_dt;
169:
170: CURSOR c_gac_del (
167: WHERE gac.person_id = p_person_id
168: AND gac.create_dt = cp_create_dt;
169:
170: CURSOR c_gac_del (
171: cp_gac_id IGS_GR_AWD_CRMN.gac_id%TYPE) IS
172: SELECT rowid
173: FROM IGS_GR_AWD_CRMN gac
174: WHERE gac.gac_id = cp_gac_id
175: FOR UPDATE OF gac.LAST_UPDATE_DATE NOWAIT ;
169:
170: CURSOR c_gac_del (
171: cp_gac_id IGS_GR_AWD_CRMN.gac_id%TYPE) IS
172: SELECT rowid
173: FROM IGS_GR_AWD_CRMN gac
174: WHERE gac.gac_id = cp_gac_id
175: FOR UPDATE OF gac.LAST_UPDATE_DATE NOWAIT ;
176:
177: v_gua_del_exists c_gua_del%ROWTYPE;
181:
182: FOR v_gua_rec IN c_gua LOOP
183: FOR v_gach_rec IN c_gach (v_gua_rec.create_dt) LOOP
184: BEGIN
185: -- Delete unconfirmed IGS_GR_AWD_CRMN_HIST records
186: FOR c_gach_del_rec in c_gach_del(v_gach_rec.gach_id)
187: LOOP
188:
189: IGS_GR_AWD_CRMN_HIST_PKG.DELETE_ROW( X_ROWID => c_gach_del_rec.ROWID );
185: -- Delete unconfirmed IGS_GR_AWD_CRMN_HIST records
186: FOR c_gach_del_rec in c_gach_del(v_gach_rec.gach_id)
187: LOOP
188:
189: IGS_GR_AWD_CRMN_HIST_PKG.DELETE_ROW( X_ROWID => c_gach_del_rec.ROWID );
190:
191: END LOOP;
192:
193: EXCEPTION
194: WHEN e_resource_busy THEN
195: IF c_gach_del%ISOPEN THEN
196: CLOSE c_gach_del;
197: END IF;
198: l_entity_name := 'IGS_GR_AWD_CRMN_HIST';
199: EXIT;
200: END;
201: END LOOP;
202: IF l_entity_name IS NOT NULL THEN
204: END IF;
205:
206: FOR v_gca_rec IN c_gac(v_gua_rec.create_dt) LOOP
207: BEGIN
208: -- Delete unconfirmed IGS_GR_AWD_CRMN records
209: FOR c_gac_del_rec IN c_gac_del(
210: v_gca_rec.gac_id) LOOP
211: IGS_GR_AWD_CRMN_PKG.DELETE_ROW(
212: X_ROWID => c_gac_del_rec.ROWID );
207: BEGIN
208: -- Delete unconfirmed IGS_GR_AWD_CRMN records
209: FOR c_gac_del_rec IN c_gac_del(
210: v_gca_rec.gac_id) LOOP
211: IGS_GR_AWD_CRMN_PKG.DELETE_ROW(
212: X_ROWID => c_gac_del_rec.ROWID );
213: END LOOP;
214: EXCEPTION
215: WHEN e_resource_busy THEN
215: WHEN e_resource_busy THEN
216: IF c_gac_del%ISOPEN THEN
217: CLOSE c_gac_del;
218: END IF;
219: l_entity_name := 'IGS_GR_AWD_CRMN';
220: EXIT;
221: END;
222: END LOOP;
223: