DBA Data[Home] [Help]

APPS.MSD_PURGE_LEG dependencies on MSC_ST_UTIL

Line 60: msc_st_util.log_message (lv_errtxt);

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

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

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

Line 89: msc_st_util.log_message (lv_table_name);

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

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

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

Line 108: msc_st_util.log_message(lv_errtxt);

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

Line 113: msc_st_util.log_message(lv_errtxt);

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

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

151: 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 ;
152: END IF;
153:
154: IF v_debug THEN
155: msc_st_util.log_message ('Sql statements executed-'||lv_sql_stmt);
156: END IF;
157: /* Bug 4038215 */
158: ELSIF ( lv_table_name = 'MSD_ST_ITEM_RELATIONSHIPS' ) THEN
159:

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

164: 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||'';
165: END IF;
166:
167: IF v_debug THEN
168: msc_st_util.log_message ('Sql statements executed-'||lv_sql_stmt);
169: END IF;
170:
171:
172: ELSE

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

178: 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||'';
179: END IF;
180:
181: IF v_debug THEN
182: msc_st_util.log_message ('Sql statements executed-'||lv_sql_stmt);
183: END IF;
184:
185:
186: END IF;

Line 201: MSC_ST_UTIL.LOG_MESSAGE(lv_errtxt);

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

Line 206: MSC_ST_UTIL.LOG_MESSAGE(lv_errtxt);

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

Line 211: msc_st_util.log_message(lv_errtxt);

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

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

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

Line 239: msc_st_util.log_message(lv_errtxt);

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

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

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

Line 273: msc_st_util.log_message (ERRBUF);

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

Line 293: msc_st_util.log_message (ERRBUF);

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

Line 312: msc_st_util.log_message (ERRBUF);

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

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

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

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

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

Line 479: msc_st_util.log_message(lv_instance_code);

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

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

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

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

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

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

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

Line 542: msc_st_util.log_message (lv_errtxt);

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