[Home] [Help]
55: EXIT WHEN cur_creation_dates%NOTFOUND ;
56: -- Give a message if there are No rows to delete
57: IF trunc(cur_date) = trunc(sysdate)
58: THEN
59: FND_FILE.PUT_LINE(FND_FILE.LOG,'Cannot delete rows for the Current Date --> '||cur_date);
60: END IF;
61: IF l_date_cnt >= 1 THEN
62: -- let the same vars be updated by child proc
63: delete_data(errbuf, retcode ,cur_date,p_validate, at_msc_dblink , l_instance_id) ;
155: OPEN Cur_plan_name FOR statement2 USING p_instance_id,trunc(p_cur_date);
156: LOOP
157: FETCH Cur_plan_name INTO v_plan_name;
158: EXIT WHEN Cur_plan_name%NOTFOUND;
159: FND_FILE.PUT_LINE(FND_FILE.LOG,'Rows Exist in gmp_form_eff table, cannot delete effectivities for the following Plans --> '||v_plan_name);
160: END LOOP;
161: CLOSE Cur_plan_name ;
162:
163: RAISE excp_eff_in_use ;
180: OPEN Cur_plan_name2 FOR statement3 USING p_instance_id,trunc(p_cur_date);
181: LOOP
182: FETCH Cur_plan_name2 INTO v_plan_name;
183: EXIT WHEN Cur_plan_name2%NOTFOUND;
184: FND_FILE.PUT_LINE(FND_FILE.LOG,'Effectivities for the following Plans have been deleted --> '||v_plan_name);
185: END LOOP;
186: CLOSE Cur_plan_name2 ;
187:
188: END IF ; /* End if for Validate Flag check */
202: EXIT ;
203: END IF ;
204: END LOOP;
205:
206: FND_FILE.PUT_LINE(FND_FILE.LOG,'Number of rows Successfully deleted from collection run on '||to_char(p_cur_date,'DD-MON-YYYY HH24:MI:SS')||'= '||total_rows_deleted);
207:
208: EXCEPTION
209: WHEN excp_eff_in_use THEN
210: FND_FILE.PUT_LINE(FND_FILE.LOG,'Rows Exist in gmp_form_eff table '||v_plan_name||'-'||p_cur_date);
206: FND_FILE.PUT_LINE(FND_FILE.LOG,'Number of rows Successfully deleted from collection run on '||to_char(p_cur_date,'DD-MON-YYYY HH24:MI:SS')||'= '||total_rows_deleted);
207:
208: EXCEPTION
209: WHEN excp_eff_in_use THEN
210: FND_FILE.PUT_LINE(FND_FILE.LOG,'Rows Exist in gmp_form_eff table '||v_plan_name||'-'||p_cur_date);
211: NULL ;
212: WHEN others THEN
213: errbuf := sqlcode ||' - '||sqlerrm;
214: retcode := -2 ;