97: IF p_confirm = 'Y' THEN
98:
99: IF p_object = 'CAMPAIGN' THEN
100:
101: ddl_curs := dbms_sql.open_cursor;
102:
103: FOR rec in trunc_camp_tables(l_schema) LOOP
104:
105: /* Parse implicitly executes the DDL statements */
103: FOR rec in trunc_camp_tables(l_schema) LOOP
104:
105: /* Parse implicitly executes the DDL statements */
106:
107: dbms_sql.parse(ddl_curs, rec.sqlstmt,dbms_sql.native) ;
108:
109: END LOOP;
110:
111: dbms_sql.close_cursor(ddl_curs);
107: dbms_sql.parse(ddl_curs, rec.sqlstmt,dbms_sql.native) ;
108:
109: END LOOP;
110:
111: dbms_sql.close_cursor(ddl_curs);
112:
113: DELETE bim_rep_history
114: WHERE object = 'CAMPAIGN';
115:
118: ------------------------------------------
119:
120: IF p_object = 'EVENT' THEN
121:
122: ddl_curs := dbms_sql.open_cursor;
123:
124: FOR rec in trunc_even_tables(l_schema) LOOP
125:
126: /* Parse implicitly executes the DDL statements */
124: FOR rec in trunc_even_tables(l_schema) LOOP
125:
126: /* Parse implicitly executes the DDL statements */
127:
128: dbms_sql.parse(ddl_curs, rec.sqlstmt,dbms_sql.native) ;
129:
130: END LOOP;
131:
132: dbms_sql.close_cursor(ddl_curs);
128: dbms_sql.parse(ddl_curs, rec.sqlstmt,dbms_sql.native) ;
129:
130: END LOOP;
131:
132: dbms_sql.close_cursor(ddl_curs);
133:
134: DELETE bim_rep_history
135: WHERE object = 'EVENT';
136:
139: ------------------------------------------
140:
141: IF p_object = 'BUDGET' THEN
142:
143: ddl_curs := dbms_sql.open_cursor;
144:
145: FOR rec in trunc_fund_tables(l_schema) LOOP
146:
147: /* Parse implicitly executes the DDL statements */
145: FOR rec in trunc_fund_tables(l_schema) LOOP
146:
147: /* Parse implicitly executes the DDL statements */
148:
149: dbms_sql.parse(ddl_curs, rec.sqlstmt,dbms_sql.native) ;
150:
151: END LOOP;
152:
153: dbms_sql.close_cursor(ddl_curs);
149: dbms_sql.parse(ddl_curs, rec.sqlstmt,dbms_sql.native) ;
150:
151: END LOOP;
152:
153: dbms_sql.close_cursor(ddl_curs);
154:
155: DELETE BIM_REP_HISTORY
156: WHERE object = 'FUND';
157:
160: ------------------------------------------
161:
162: IF p_object = 'LEADS' THEN
163:
164: ddl_curs := dbms_sql.open_cursor;
165:
166: FOR rec in trunc_lead_tables(l_schema) LOOP
167:
168: /* Parse implicitly executes the DDL statements */
166: FOR rec in trunc_lead_tables(l_schema) LOOP
167:
168: /* Parse implicitly executes the DDL statements */
169:
170: dbms_sql.parse (ddl_curs, rec.sqlstmt, dbms_sql.native);
171:
172: END LOOP;
173:
174: dbms_sql.close_cursor (ddl_curs);
170: dbms_sql.parse (ddl_curs, rec.sqlstmt, dbms_sql.native);
171:
172: END LOOP;
173:
174: dbms_sql.close_cursor (ddl_curs);
175:
176: DELETE BIM_REP_HISTORY
177: WHERE object = 'LEADS';
178:
181: ------------------------------------------
182:
183: IF p_object = 'LEAD_IMPORT' THEN
184:
185: ddl_curs := dbms_sql.open_cursor;
186:
187: FOR rec in trunc_limp_tables(l_schema) LOOP
188:
189: /* Parse implicitly executes the DDL statements */
187: FOR rec in trunc_limp_tables(l_schema) LOOP
188:
189: /* Parse implicitly executes the DDL statements */
190:
191: dbms_sql.parse (ddl_curs, rec.sqlstmt, dbms_sql.native);
192:
193: END LOOP;
194:
195: dbms_sql.close_cursor (ddl_curs);
191: dbms_sql.parse (ddl_curs, rec.sqlstmt, dbms_sql.native);
192:
193: END LOOP;
194:
195: dbms_sql.close_cursor (ddl_curs);
196:
197: DELETE BIM_REP_HISTORY
198: WHERE object = 'LEAD_IMPORT';
199:
202: ------------------------------------------
203:
204: IF p_object = 'RESPONSE' THEN
205:
206: ddl_curs := dbms_sql.open_cursor;
207:
208: FOR rec in trunc_resp_tables(l_schema) LOOP
209:
210: /* Parse implicitly executes the DDL statements */
208: FOR rec in trunc_resp_tables(l_schema) LOOP
209:
210: /* Parse implicitly executes the DDL statements */
211:
212: dbms_sql.parse (ddl_curs, rec.sqlstmt, dbms_sql.native);
213:
214: END LOOP;
215:
216: dbms_sql.close_cursor (ddl_curs);
212: dbms_sql.parse (ddl_curs, rec.sqlstmt, dbms_sql.native);
213:
214: END LOOP;
215:
216: dbms_sql.close_cursor (ddl_curs);
217:
218: DELETE BIM_REP_HISTORY
219: WHERE object = 'RESPONSE';
220:
223: ------------------------------------------
224:
225: IF p_object = 'ALL' THEN
226:
227: ddl_curs := dbms_sql.open_cursor;
228:
229: FOR rec in trunc_camp_tables(l_schema) LOOP
230:
231: /* Parse implicitly executes the DDL statements */
229: FOR rec in trunc_camp_tables(l_schema) LOOP
230:
231: /* Parse implicitly executes the DDL statements */
232:
233: dbms_sql.parse(ddl_curs, rec.sqlstmt,dbms_sql.native) ;
234:
235: END LOOP;
236:
237: DELETE bim_rep_history
240: FOR rec in trunc_even_tables(l_schema) LOOP
241:
242: /* Parse implicitly executes the DDL statements */
243:
244: dbms_sql.parse(ddl_curs, rec.sqlstmt,dbms_sql.native) ;
245:
246: END LOOP;
247:
248: DELETE bim_rep_history
251: FOR rec in trunc_fund_tables(l_schema) LOOP
252:
253: /* Parse implicitly executes the DDL statements */
254:
255: dbms_sql.parse(ddl_curs, rec.sqlstmt,dbms_sql.native) ;
256:
257: END LOOP;
258:
259: DELETE bim_rep_history
263: FOR rec in trunc_lead_tables(l_schema) LOOP
264:
265: /* Parse implicitly executes the DDL statements */
266:
267: dbms_sql.parse (ddl_curs, rec.sqlstmt, dbms_sql.native);
268:
269: END LOOP;
270:
271: DELETE BIM_REP_HISTORY
274: FOR rec in trunc_limp_tables(l_schema) LOOP
275:
276: /* Parse implicitly executes the DDL statements */
277:
278: dbms_sql.parse (ddl_curs, rec.sqlstmt, dbms_sql.native);
279:
280: END LOOP;
281:
282: DELETE BIM_REP_HISTORY
285: FOR rec in trunc_resp_tables(l_schema) LOOP
286:
287: /* Parse implicitly executes the DDL statements */
288:
289: dbms_sql.parse (ddl_curs, rec.sqlstmt, dbms_sql.native);
290:
291: END LOOP;
292:
293: DELETE BIM_REP_HISTORY
292:
293: DELETE BIM_REP_HISTORY
294: WHERE object = 'RESPONSE';
295:
296: dbms_sql.close_cursor(ddl_curs);
297:
298: END IF;
299:
300: DELETE bim_rep_history