DBA Data[Home] [Help]

APPS.MSD_PURGE_LEG dependencies on MSC_ST_UTIL

Line 59: msc_st_util.log_message (lv_errtxt);

55: FETCH table_names INTO lv_table_name;
56: IF ( table_names%ROWCOUNT = 0 ) THEN
57: FND_MESSAGE.SET_NAME('MSC','MSC_PS_INVALID_LOOKUP');
58: lv_errtxt:= FND_MESSAGE.GET;
59: msc_st_util.log_message (lv_errtxt);
60: v_program_status := G_ERROR;
61:
62: CLOSE table_names;
63: ELSE -- IF ( table_names%ROWCOUNT = 0 ) THEN

Line 72: msc_st_util.log_message ('Truncation flag is YES. Entering in truncation LOOP');

68:
69: IF (lv_truncation_flag = SYS_YES) THEN
70:
71: IF v_debug THEN
72: msc_st_util.log_message ('Truncation flag is YES. Entering in truncation LOOP');
73: END IF;
74:
75: UPDATE msc_apps_instances
76: SET st_status= G_ST_PURGING;

Line 88: msc_st_util.log_message (lv_table_name);

84: LOOP
85: FETCH table_names INTO lv_table_name;
86: EXIT WHEN table_names%NOTFOUND;
87: IF v_debug THEN
88: msc_st_util.log_message (lv_table_name);
89: END IF;
90:
91:
92: BEGIN

Line 96: msc_st_util.log_message ('Sql statements to be executed-'||lv_sql_stmt);

92: BEGIN
93: lv_sql_stmt := 'TRUNCATE TABLE '||v_applsys_schema||'.'||lv_table_name|| '';
94:
95: IF v_debug THEN
96: msc_st_util.log_message ('Sql statements to be executed-'||lv_sql_stmt);
97: END IF;
98:
99:
100:

Line 107: msc_st_util.log_message(lv_errtxt);

103: EXCEPTION
104:
105: WHEN table_not_found THEN
106: lv_errtxt := substr(SQLERRM,1,240) ;
107: msc_st_util.log_message(lv_errtxt);
108:
109:
110: WHEN OTHERS THEN
111: lv_errtxt := substr(SQLERRM,1,240) ;

Line 112: msc_st_util.log_message(lv_errtxt);

108:
109:
110: WHEN OTHERS THEN
111: lv_errtxt := substr(SQLERRM,1,240) ;
112: msc_st_util.log_message(lv_errtxt);
113:
114:
115: END;
116:

Line 154: msc_st_util.log_message ('Sql statements executed-'||lv_sql_stmt);

150: lv_sql_stmt := 'DELETE FROM '||lv_table_name||' WHERE (( SR_INSTANCE_CODE= '''||lv_instance_code||''' ) OR ( ATTRIBUTE_1 = '''||lv_instance_id||''' )) AND ROWNUM <= '||v_batch_size ;
151: END IF;
152:
153: IF v_debug THEN
154: msc_st_util.log_message ('Sql statements executed-'||lv_sql_stmt);
155: END IF;
156: /* Bug 4038215 */
157: ELSIF ( lv_table_name = 'MSD_ST_ITEM_RELATIONSHIPS' ) THEN
158:

Line 167: msc_st_util.log_message ('Sql statements executed-'||lv_sql_stmt);

163: lv_sql_stmt := 'DELETE FROM '||lv_table_name||' WHERE (( SR_INSTANCE_CODE= '''||lv_instance_code||''') OR ( INSTANCE_ID= '||lv_instance_id||')) AND ROWNUM <= '||v_batch_size||'';
164: END IF;
165:
166: IF v_debug THEN
167: msc_st_util.log_message ('Sql statements executed-'||lv_sql_stmt);
168: END IF;
169:
170:
171: ELSE

Line 181: msc_st_util.log_message ('Sql statements executed-'||lv_sql_stmt);

177: lv_sql_stmt := 'DELETE FROM '||lv_table_name||' WHERE (( SR_INSTANCE_CODE= '''||lv_instance_code||''') OR ( INSTANCE= '||lv_instance_id||')) AND ROWNUM <= '||v_batch_size||'';
178: END IF;
179:
180: IF v_debug THEN
181: msc_st_util.log_message ('Sql statements executed-'||lv_sql_stmt);
182: END IF;
183:
184:
185: END IF;

Line 200: MSC_ST_UTIL.LOG_MESSAGE(lv_errtxt);

196: EXCEPTION
197:
198: WHEN table_not_found THEN
199: lv_errtxt := substr(SQLERRM,1,240) ;
200: MSC_ST_UTIL.LOG_MESSAGE(lv_errtxt);
201: exit;
202:
203: WHEN synonym_translation_invalid THEN
204: lv_errtxt := substr(SQLERRM,1,240) ;

Line 205: MSC_ST_UTIL.LOG_MESSAGE(lv_errtxt);

201: exit;
202:
203: WHEN synonym_translation_invalid THEN
204: lv_errtxt := substr(SQLERRM,1,240) ;
205: MSC_ST_UTIL.LOG_MESSAGE(lv_errtxt);
206: exit;
207:
208: WHEN OTHERS THEN
209: lv_errtxt := substr(SQLERRM,1,240) ;

Line 210: msc_st_util.log_message(lv_errtxt);

206: exit;
207:
208: WHEN OTHERS THEN
209: lv_errtxt := substr(SQLERRM,1,240) ;
210: msc_st_util.log_message(lv_errtxt);
211: exit;
212:
213: END;
214:

Line 221: msc_st_util.log_message ('No. of rows deleted from '|| lv_table_name ||' - '||lv_total);

217: COMMIT;
218: end loop;
219:
220: IF v_debug THEN
221: msc_st_util.log_message ('No. of rows deleted from '|| lv_table_name ||' - '||lv_total);
222: END IF;
223:
224:
225:

Line 238: msc_st_util.log_message(lv_errtxt);

234:
235: WHEN OTHERS THEN
236:
237: lv_errtxt := substr(SQLERRM,1,240) ;
238: msc_st_util.log_message(lv_errtxt);
239:
240: END delete_records;
241:
242:

Line 262: msc_st_util.log_message ('Entered to check whether purge possible for the instance-'||pINSTANCE_CODE);

258: WHERE INSTANCE_CODE= pINSTANCE_CODE
259: FOR UPDATE;
260:
261: IF v_debug THEN
262: msc_st_util.log_message ('Entered to check whether purge possible for the instance-'||pINSTANCE_CODE);
263: END IF;
264:
265:
266:

Line 272: msc_st_util.log_message (ERRBUF);

268: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_PULLING');
269: ERRBUF:= FND_MESSAGE.GET;
270:
271: IF v_debug THEN
272: msc_st_util.log_message (ERRBUF);
273: END IF;
274:
275: IF ( pINSTANCE_ID <> -1 )
276: THEN

Line 292: msc_st_util.log_message (ERRBUF);

288: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_LOADING');
289: ERRBUF:= FND_MESSAGE.GET;
290:
291: IF v_debug THEN
292: msc_st_util.log_message (ERRBUF);
293: END IF;
294:
295: IF ( pINSTANCE_ID <> -1 )
296: THEN

Line 311: msc_st_util.log_message (ERRBUF);

307: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_PRE_PROCESSING');
308: ERRBUF:= FND_MESSAGE.GET;
309:
310: IF v_debug THEN
311: msc_st_util.log_message (ERRBUF);
312: END IF;
313:
314: IF ( pINSTANCE_ID <> -1 )
315: THEN

Line 442: msc_st_util.log_message ('Value of lv_st_status_flag-'||lv_st_status_flag);

438: FETCH staging_status into lv_st_status_flag;
439: CLOSE staging_status;
440:
441: IF v_debug THEN
442: msc_st_util.log_message ('Value of lv_st_status_flag-'||lv_st_status_flag);
443: END IF;
444: END IF;
445:
446: -- Setting the truncation flag

Line 469: msc_st_util.log_message ('Truncation flag is NO. Entered in DELETION LOOP');

465:
466: commit; -- To break the lock on the records, acquired while opening the cursor p or q
467:
468: IF v_debug THEN
469: msc_st_util.log_message ('Truncation flag is NO. Entered in DELETION LOOP');
470: END IF;
471:
472: OPEN instance_codes(lv_p_instance_id);
473: LOOP

Line 478: msc_st_util.log_message(lv_instance_code);

474: FETCH instance_codes INTO lv_instance_code,lv_instance_type,lv_instance_id,lv_st_status;
475: EXIT WHEN instance_codes%NOTFOUND;
476:
477: IF v_debug THEN
478: msc_st_util.log_message(lv_instance_code);
479: END IF;
480:
481: IF (lv_p_del_rej_rec=SYS_YES) THEN
482:

Line 484: msc_st_util.log_message ('Deleting without checking the ST_STATUS');

480:
481: IF (lv_p_del_rej_rec=SYS_YES) THEN
482:
483: IF v_debug THEN
484: msc_st_util.log_message ('Deleting without checking the ST_STATUS');
485: END IF;
486:
487:
488:

Line 498: msc_st_util.log_message ('Deleting after checking the ST_STATUS');

494: IF ( is_purge_possible( ERRBUF,RETCODE,lv_instance_code,lv_p_instance_id) ) THEN
495:
496:
497: IF v_debug THEN
498: msc_st_util.log_message ('Deleting after checking the ST_STATUS');
499: END IF;
500:
501: delete_records(lv_instance_code,lv_instance_id,lv_p_del_rej_rec,lv_trunc_flag);
502:

Line 505: msc_st_util.log_message ('Setting the st_status to empty');

501: delete_records(lv_instance_code,lv_instance_id,lv_p_del_rej_rec,lv_trunc_flag);
502:
503:
504: IF v_debug THEN
505: msc_st_util.log_message ('Setting the st_status to empty');
506: END IF;
507:
508: UPDATE msc_apps_instances
509: SET st_status=G_ST_EMPTY

Line 541: msc_st_util.log_message (lv_errtxt);

537: ERRBUF := SQLERRM;
538: RETCODE := G_ERROR;
539:
540: lv_errtxt := substr(SQLERRM,1,240) ;
541: msc_st_util.log_message (lv_errtxt);
542:
543: END LAUNCH_PROCEDURE;
544:
545: END MSD_PURGE_LEG ;