eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.MSC_PURGE_LID dependencies on MSC_UTIL

Line 170: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,' '||FND_MESSAGE.GET);

166: lv_task_start_time:= SYSDATE;
167:
168: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
169: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'DELETE_MSC_TABLE:'||p_table_name);
170: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,' '||FND_MESSAGE.GET);
171:
172:
173: IF p_sub_str IS NULL
174: AND is_msctbl_partitioned( p_table_name) THEN

Line 198: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'Partition Name : '||lv_partition_name);

194: lv_return_status,
195: lv_msg_data);
196:
197:
198: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'Partition Name : '||lv_partition_name);
199:
200: v_sql_stmt := 01;
201:
202: lv_sql_stmt:= 'ALTER TABLE '||p_table_name

Line 206: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,lv_sql_stmt);

202: lv_sql_stmt:= 'ALTER TABLE '||p_table_name
203: ||' TRUNCATE PARTITION '||lv_partition_name;
204:
205:
206: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,lv_sql_stmt);
207:
208:
209: AD_DDL.DO_DDL( APPLSYS_SCHEMA => v_applsys_schema,
210: APPLICATION_SHORT_NAME => lv_appl_short_nm,

Line 238: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,lv_sql_stmt);

234:
235: lv_sql_stmt:= 'DELETE '||p_table_name
236: || lv_where_clause;
237:
238: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,lv_sql_stmt);
239:
240: LOOP
241: IF p_instance_id IS NOT NULL THEN
242: EXECUTE IMMEDIATE lv_sql_stmt

Line 255: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,lv_cnt || ' Rows Deleted ');

251:
252: COMMIT;
253:
254: END LOOP;
255: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,lv_cnt || ' Rows Deleted ');
256:
257:
258: ELSE
259:

Line 278: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,lv_sql_stmt);

274: lv_cnt := 0;
275: lv_sql_stmt:= 'DELETE '||p_table_name
276: || lv_where_clause;
277:
278: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,lv_sql_stmt);
279:
280: LOOP
281:
282: IF p_instance_id IS NOT NULL THEN

Line 296: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,lv_cnt || ' Rows Deleted ');

292:
293: COMMIT;
294:
295: END LOOP;
296: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,lv_cnt || ' Rows Deleted ');
297:
298: END IF;
299: END IF;
300:

Line 304: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,' '||FND_MESSAGE.GET);

300:
301: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
302: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',
303: TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));
304: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,' '||FND_MESSAGE.GET);
305:
306: EXCEPTION
307: WHEN OTHERS THEN
308: lv_errtext := substr('DELETE_MSC_TABLE'||'('

Line 311: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_errtext);

307: WHEN OTHERS THEN
308: lv_errtext := substr('DELETE_MSC_TABLE'||'('
309: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
310:
311: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_errtext);
312:
313: END DELETE_MSC_TABLE;
314:
315:

Line 344: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,' '||FND_MESSAGE.GET);

340: lv_task_start_time:= SYSDATE;
341:
342: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
343: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'DELETE_LID_TABLE:'||p_lid_table);
344: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,' '||FND_MESSAGE.GET);
345:
346: lv_where_str := p_where_str;
347:
348: v_sql_stmt := 01;

Line 355: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,lv_sql_stmt);

351: ||' WHERE lid.instance_id = :p_instance_id'
352: ||' AND lid.entity_name = :p_entity_name'
353: || lv_where_str ;
354:
355: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,lv_sql_stmt);
356:
357:
358: EXECUTE IMMEDIATE lv_sql_stmt
359: INTO lv_cnt

Line 376: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,lv_sql_stmt);

372:
373: EXECUTE IMMEDIATE lv_sql_stmt
374: USING p_instance_id,p_entity_name;
375:
376: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,lv_sql_stmt);
377:
378:
379: lv_total := lv_total+SQL%ROWCOUNT ;
380:

Line 389: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,lv_sql_stmt);

385: ||' AND lid.entity_name = :p_entity_name'
386: || lv_where_str
387: ||' AND ROWNUM < :lv_pbs';
388:
389: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,lv_sql_stmt);
390:
391: lv_total := 0;
392:
393: LOOP

Line 407: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'Table: '||p_lid_table||' Entity :'||p_entity_name);

403: END IF ; -- batch size
404:
405:
406:
407: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'Table: '||p_lid_table||' Entity :'||p_entity_name);
408: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'No of Rows deleted : '||lv_total);
409:
410:
411: COMMIT;

Line 408: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'No of Rows deleted : '||lv_total);

404:
405:
406:
407: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'Table: '||p_lid_table||' Entity :'||p_entity_name);
408: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'No of Rows deleted : '||lv_total);
409:
410:
411: COMMIT;
412:

Line 417: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,' '||FND_MESSAGE.GET);

413:
414: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
415: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',
416: TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));
417: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,' '||FND_MESSAGE.GET);
418:
419:
420: EXCEPTION
421:

Line 426: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_errtext);

422: WHEN OTHERS THEN
423: lv_errtext := substr('DELETE_LID_TABLE'||'('
424: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
425:
426: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_errtext);
427:
428: END DELETE_LID_TABLE ;
429:
430:

Line 1030: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'Delete from MSC_LOCAL_ID_DEMAND for entity_name DISPOSITION_ID_FCT' );

1026: lv_total := 0;
1027: v_sql_stmt := 01;
1028:
1029:
1030: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'Delete from MSC_LOCAL_ID_DEMAND for entity_name DISPOSITION_ID_FCT' );
1031:
1032:
1033: OPEN C1(v_instance_id);
1034:

Line 1052: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'No of Rows deleted : '||lv_total);

1048: CLOSE C1;
1049:
1050: COMMIT;
1051:
1052: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'No of Rows deleted : '||lv_total);
1053:
1054:
1055: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
1056: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));

Line 1057: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,' '||FND_MESSAGE.GET);

1053:
1054:
1055: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
1056: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));
1057: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,' '||FND_MESSAGE.GET);
1058:
1059: -- Delete from MSC_LOCAL_ID_DEMAND for entity_name DISPOSITION_ID_FCT ends here----
1060:
1061:

Line 1068: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'Delete from MSC_LOCAL_ID_DEMAND for entity_name DISPOSITION_ID_MDS');

1064: lv_task_start_time:= SYSDATE;
1065: lv_total := 0;
1066: v_sql_stmt := 02;
1067:
1068: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'Delete from MSC_LOCAL_ID_DEMAND for entity_name DISPOSITION_ID_MDS');
1069:
1070:
1071: OPEN C2(v_instance_id);
1072:

Line 1091: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'No of Rows deleted : '||lv_total);

1087:
1088: COMMIT;
1089:
1090:
1091: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'No of Rows deleted : '||lv_total);
1092:
1093:
1094: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
1095: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));

Line 1096: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,' '||FND_MESSAGE.GET);

1092:
1093:
1094: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
1095: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));
1096: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,' '||FND_MESSAGE.GET);
1097:
1098: -- Delete from MSC_LOCAL_ID_DEMAND for entity_name DISPOSITION_ID_MDS ends here----
1099:
1100:

Line 1107: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'Delete from MSC_LOCAL_ID_DEMAND for entity_name SALES_ORDER_ID');

1103: lv_task_start_time:= SYSDATE;
1104: lv_total := 0;
1105: v_sql_stmt := 03;
1106:
1107: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'Delete from MSC_LOCAL_ID_DEMAND for entity_name SALES_ORDER_ID');
1108:
1109:
1110: OPEN C3(v_instance_id);
1111:

Line 1130: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'No of Rows deleted : '||lv_total);

1126:
1127: COMMIT;
1128:
1129:
1130: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'No of Rows deleted : '||lv_total);
1131:
1132: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
1133: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));
1134: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,' '||FND_MESSAGE.GET);

Line 1134: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,' '||FND_MESSAGE.GET);

1130: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'No of Rows deleted : '||lv_total);
1131:
1132: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
1133: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));
1134: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,' '||FND_MESSAGE.GET);
1135:
1136: -- Deletion from MSC_LOCAL_ID_DEMAND for entity_name SALES_ORDER_ID ends here----
1137:
1138:

Line 1145: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'Delete from MSC_LOCAL_ID_DEMAND for entity_name DEMAND_ID');

1141: lv_task_start_time:= SYSDATE;
1142: lv_total := 0;
1143: v_sql_stmt := 04;
1144:
1145: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'Delete from MSC_LOCAL_ID_DEMAND for entity_name DEMAND_ID');
1146:
1147:
1148: OPEN C4(v_instance_id);
1149:

Line 1167: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'No of Rows deleted : '||lv_total);

1163: CLOSE C4;
1164:
1165: COMMIT;
1166:
1167: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'No of Rows deleted : '||lv_total);
1168:
1169: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
1170: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));
1171: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,' '||FND_MESSAGE.GET);

Line 1171: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,' '||FND_MESSAGE.GET);

1167: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'No of Rows deleted : '||lv_total);
1168:
1169: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
1170: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));
1171: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,' '||FND_MESSAGE.GET);
1172:
1173: -- Deletion from MSC_LOCAL_ID_DEMAND for entity_name DEMAND_ID ends here ----
1174:
1175:

Line 1247: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'Delete from MSC_LOCAL_ID_SUPPLY for entity_name WIP_ENTITY_ID');

1243: lv_task_start_time:= SYSDATE;
1244: lv_total := 0;
1245: v_sql_stmt := 06;
1246:
1247: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'Delete from MSC_LOCAL_ID_SUPPLY for entity_name WIP_ENTITY_ID');
1248:
1249: OPEN C5(v_instance_id);
1250:
1251: FETCH C5 BULK COLLECT INTO lb_rowid ;

Line 1267: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'No of Rows deleted : '||lv_total);

1263: CLOSE C5;
1264:
1265: COMMIT;
1266:
1267: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'No of Rows deleted : '||lv_total);
1268:
1269:
1270: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
1271: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));

Line 1272: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,' '||FND_MESSAGE.GET);

1268:
1269:
1270: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
1271: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));
1272: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,' '||FND_MESSAGE.GET);
1273:
1274: -- Deletion from MSC_LOCAL_ID_SUPPLY for entity_name WIP_ENTITY_ID ends here ----
1275:
1276:

Line 1283: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'Delete from MSC_LOCAL_ID_SUPPLY for entity_name SR_MTL_SUPPLY_ID');

1279: lv_task_start_time:= SYSDATE;
1280: lv_total := 0;
1281: v_sql_stmt := 07;
1282:
1283: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'Delete from MSC_LOCAL_ID_SUPPLY for entity_name SR_MTL_SUPPLY_ID');
1284:
1285:
1286: OPEN C6(v_instance_id);
1287:

Line 1305: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'No of Rows deleted : '||lv_total);

1301: CLOSE C6;
1302:
1303: COMMIT;
1304:
1305: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'No of Rows deleted : '||lv_total);
1306:
1307:
1308: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
1309: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));

Line 1310: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,' '||FND_MESSAGE.GET);

1306:
1307:
1308: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
1309: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));
1310: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,' '||FND_MESSAGE.GET);
1311:
1312: -- Deletion from MSC_LOCAL_ID_SUPPLY for entity_name SR_MTL_SUPPLY_ID ends here ----
1313:
1314:

Line 1321: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'Delete from MSC_LOCAL_ID_SUPPLY for entity_name PO_LINE_ID');

1317: lv_task_start_time:= SYSDATE;
1318: lv_total := 0;
1319: v_sql_stmt := 08;
1320:
1321: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'Delete from MSC_LOCAL_ID_SUPPLY for entity_name PO_LINE_ID');
1322:
1323: OPEN C7(v_instance_id);
1324:
1325: FETCH C7 BULK COLLECT INTO lb_rowid ;

Line 1342: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'No of Rows deleted : '||lv_total);

1338: CLOSE C7;
1339:
1340: COMMIT;
1341:
1342: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'No of Rows deleted : '||lv_total);
1343:
1344:
1345: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
1346: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));

Line 1347: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,' '||FND_MESSAGE.GET);

1343:
1344:
1345: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
1346: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));
1347: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,' '||FND_MESSAGE.GET);
1348:
1349: -- Deletion from MSC_LOCAL_ID_SUPPLY for entity_name PO_LINE_ID ends here ----
1350:
1351: -- Delete from MSC_LOCAL_ID_SUPPLY for entity_name DISPOSITION_ID starts here --

Line 1357: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'Delete from MSC_LOCAL_ID_SUPPLY for entity_name DISPOSITION_ID');

1353: lv_task_start_time:= SYSDATE;
1354: lv_total := 0;
1355: v_sql_stmt := 09;
1356:
1357: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'Delete from MSC_LOCAL_ID_SUPPLY for entity_name DISPOSITION_ID');
1358:
1359:
1360: OPEN C8(v_instance_id);
1361:

Line 1379: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'No of Rows deleted : '||lv_total);

1375: CLOSE C8;
1376:
1377: COMMIT;
1378:
1379: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'No of Rows deleted : '||lv_total);
1380:
1381:
1382: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
1383: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));

Line 1384: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,' '||FND_MESSAGE.GET);

1380:
1381:
1382: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
1383: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));
1384: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,' '||FND_MESSAGE.GET);
1385:
1386: -- Deletion from MSC_LOCAL_ID_SUPPLY for entity_name DISPOSITION_ID ends here ----
1387:
1388:

Line 1395: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'Delete from MSC_LOCAL_ID_SUPPLY for entity_name DISPOSITION_ID_MPS');

1391: lv_task_start_time:= SYSDATE;
1392: lv_total := 0;
1393: v_sql_stmt := 10;
1394:
1395: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'Delete from MSC_LOCAL_ID_SUPPLY for entity_name DISPOSITION_ID_MPS');
1396:
1397:
1398: OPEN C9(v_instance_id);
1399:

Line 1417: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'No of Rows deleted : '||lv_total);

1413: CLOSE C9;
1414:
1415: COMMIT;
1416:
1417: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'No of Rows deleted : '||lv_total);
1418:
1419:
1420: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
1421: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));

Line 1422: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,' '||FND_MESSAGE.GET);

1418:
1419:
1420: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
1421: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));
1422: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,' '||FND_MESSAGE.GET);
1423:
1424: -- Deletion from MSC_LOCAL_ID_SUPPLY for entity_name DISPOSITION_ID_MPS ends here ----
1425:
1426:

Line 1433: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'Delete from MSC_LOCAL_ID_SUPPLY for entity_name SCHEDULE_GROUP_ID');

1429: lv_task_start_time:= SYSDATE;
1430: lv_total := 0;
1431: v_sql_stmt := 11;
1432:
1433: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'Delete from MSC_LOCAL_ID_SUPPLY for entity_name SCHEDULE_GROUP_ID');
1434:
1435:
1436: OPEN C10(v_instance_id);
1437:

Line 1455: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,' No of Rows deleted : '||lv_total);

1451: CLOSE C10;
1452:
1453: COMMIT;
1454:
1455: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,' No of Rows deleted : '||lv_total);
1456:
1457:
1458: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
1459: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));

Line 1460: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,' '||FND_MESSAGE.GET);

1456:
1457:
1458: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
1459: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));
1460: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,' '||FND_MESSAGE.GET);
1461:
1462: -- Deletion from MSC_LOCAL_ID_SUPPLY for entity_name SCHEDULE_GROUP_ID ends here ----
1463: END IF ; -- p_suply_flag
1464: END IF ; -- Complete refresh

Line 1472: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, ERRBUF);

1468:
1469: FND_MESSAGE.SET_NAME('MSC', 'MSC_PP_PURGE_SUCCEED');
1470: ERRBUF:= FND_MESSAGE.GET;
1471: RETCODE := G_SUCCESS;
1472: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, ERRBUF);
1473: RETCODE := G_SUCCESS;
1474:
1475:
1476: EXCEPTION

Line 1481: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_errtext);

1477:
1478: WHEN ex_logging_err THEN
1479: ERRBUF := lv_errtext;
1480: RETCODE := G_ERROR;
1481: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_errtext);
1482:
1483: WHEN OTHERS THEN
1484: ERRBUF := SQLERRM;
1485: RETCODE := SQLCODE;

Line 1487: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_errtext);

1483: WHEN OTHERS THEN
1484: ERRBUF := SQLERRM;
1485: RETCODE := SQLCODE;
1486: lv_errtext := substr(v_sql_stmt||SQLERRM,1,240) ;
1487: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_errtext);
1488: END PURGE_LID_TABLES ;
1489:
1490: PROCEDURE PURGE_ODS_TABLES_DEL( p_instance_id IN NUMBER) IS
1491:

Line 1544: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'debug-02');

1540: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_SHIFT_TIMES', p_instance_id, NULL);
1541: COMMIT;
1542: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_SHIFT_EXCEPTIONS', p_instance_id, NULL);
1543: COMMIT;
1544: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'debug-02');
1545: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RESOURCE_AVAIL', p_instance_id, NULL);
1546: COMMIT;
1547: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RES_INST_AVAIL', p_instance_id, NULL);
1548: COMMIT;

Line 1775: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'* Prcocedure PURGE_INSTANCE_DATA *');

1771:
1772:
1773:
1774:
1775: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'******* Prcocedure PURGE_INSTANCE_DATA *******');
1776:
1777: -- Get row_limit and schema
1778:
1779: BEGIN

Line 1797: RETCODE := MSC_UTIL.G_ERROR;

1793: IF NOT FND_INSTALLATION.GET_APP_INFO ( lv_schema_short_nm, lv_dummy1, lv_dummy2, lv_schema) THEN
1794:
1795: ERRBUF := lv_schema_short_nm||'--Schema not found';
1796:
1797: RETCODE := MSC_UTIL.G_ERROR;
1798:
1799: RETURN;
1800:
1801: END IF;

Line 1809: RETCODE := MSC_UTIL.G_ERROR;

1805: WHEN NO_DATA_FOUND THEN
1806:
1807: ERRBUF := 'Schema Short name for application_id 724 Not found';
1808:
1809: RETCODE := MSC_UTIL.G_ERROR;
1810:
1811: RETURN;
1812:
1813: END;

Line 1869: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,lv_qry_str);

1865: ||' AND SUBSTR(b.partition_name,INSTR(partition_name,''__'')+2) IN '||lv_inst_str;
1866:
1867:
1868:
1869: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,lv_qry_str);
1870:
1871: --EXECUTE IMMEDIATE lv_qry_str1 INTO lv_tab_list,lv_Index_list ;
1872:
1873: BEGIN

Line 1885: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'ALTER TABLE '||lv_schema||'.'||lv_tab||' DROP PARTITION '||lv_tab_Part);

1881: EXIT WHEN v_index_cur%NOTFOUND;
1882:
1883: BEGIN
1884:
1885: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'ALTER TABLE '||lv_schema||'.'||lv_tab||' DROP PARTITION '||lv_tab_Part);
1886:
1887: EXECUTE IMMEDIATE 'ALTER TABLE '||lv_schema||'.'||lv_tab||' DROP PARTITION '||lv_tab_Part ;
1888:
1889: EXCEPTION

Line 1893: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'ERROR IN DEL_INST --'||SQLERRM);

1889: EXCEPTION
1890:
1891: WHEN OTHERS THEN
1892:
1893: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'ERROR IN DEL_INST --'||SQLERRM);
1894:
1895: RETCODE := MSC_UTIL.G_WARNING;
1896:
1897: END;

Line 1895: RETCODE := MSC_UTIL.G_WARNING;

1891: WHEN OTHERS THEN
1892:
1893: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'ERROR IN DEL_INST --'||SQLERRM);
1894:
1895: RETCODE := MSC_UTIL.G_WARNING;
1896:
1897: END;
1898:
1899: END LOOP;

Line 1909: RETCODE := MSC_UTIL.G_ERROR;

1905: WHEN OTHERS THEN
1906:
1907: ERRBUF := SQLERRM;
1908:
1909: RETCODE := MSC_UTIL.G_ERROR;
1910:
1911: RETURN;
1912:
1913: END;

Line 1923: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'* Delete Rows for Instance *');

1919: SELECT REPLACE(lv_inst_str,'''','') INTO lv_inst_str FROM DUAL;
1920:
1921: --
1922:
1923: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'******* Delete Rows for Instance *******');
1924:
1925: FOR tab IN ( SELECT attribute2 tname,ATTRIBUTE12 Plan_Id
1926:
1927: FROM fnd_lookup_values a, dba_tables b

Line 1963: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,lv_qry_str);

1959: -- TRC('DELETE FROM '||tab.tname||' WHERE sr_instance_id IN '||lv_inst_str);
1960:
1961: END IF;
1962:
1963: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,lv_qry_str);
1964:
1965:
1966:
1967: -- Delete Using Rownum Limitation

Line 1981: RETCODE := MSC_UTIL.G_WARNING;

1977: EXCEPTION
1978:
1979: WHEN OTHERS THEN
1980:
1981: RETCODE := MSC_UTIL.G_WARNING;
1982:
1983: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'Error while deleting from '||tab.tname|| '--'||SQLERRM);
1984:
1985: lv_err_flag := TRUE;

Line 1983: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'Error while deleting from '||tab.tname|| '--'||SQLERRM);

1979: WHEN OTHERS THEN
1980:
1981: RETCODE := MSC_UTIL.G_WARNING;
1982:
1983: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'Error while deleting from '||tab.tname|| '--'||SQLERRM);
1984:
1985: lv_err_flag := TRUE;
1986:
1987: END;

Line 2027: RETCODE := MSC_UTIL.G_WARNING;

2023: WHEN NO_DATA_FOUND THEN
2024:
2025: ERRBUF := 'Schema Short name for application_id 704 Not found';
2026:
2027: RETCODE := MSC_UTIL.G_WARNING;
2028:
2029: END;
2030:
2031:

Line 2051: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,lv_qry_str);

2047: lv_qry_str := 'DELETE FROM '||lv_source_schema ||'.MRP_AP_APPS_INSTANCES_ALL'||GET_M2A_DBLINK(pInstList(indx) )
2048:
2049: ||' WHERE instance_id IN '||lv_inst_str;
2050:
2051: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,lv_qry_str);
2052:
2053: EXECUTE IMMEDIATE lv_qry_str;
2054:
2055: EXCEPTION

Line 2059: RETCODE := MSC_UTIL.G_WARNING;

2055: EXCEPTION
2056:
2057: WHEN OTHERS THEN
2058:
2059: RETCODE := MSC_UTIL.G_WARNING;
2060:
2061: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'Error while deleting from MRP_AP_APPS_INSTANCES_ALL --'||SQLERRM);
2062:
2063: END;

Line 2061: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'Error while deleting from MRP_AP_APPS_INSTANCES_ALL --'||SQLERRM);

2057: WHEN OTHERS THEN
2058:
2059: RETCODE := MSC_UTIL.G_WARNING;
2060:
2061: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'Error while deleting from MRP_AP_APPS_INSTANCES_ALL --'||SQLERRM);
2062:
2063: END;
2064:
2065: END LOOP;

Line 2071: RETCODE := MSC_UTIL.G_WARNING;

2067: ELSE
2068:
2069: ERRBUF := 'Source Schema not found';
2070:
2071: RETCODE := MSC_UTIL.G_WARNING;
2072:
2073: END IF;
2074:
2075: --

Line 2083: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,lv_qry_str);

2079: BEGIN -- delete from MSC_INST_PARTITIONS --
2080:
2081: lv_qry_str := 'DELETE FROM MSC_INST_PARTITIONS WHERE instance_id IN '||lv_inst_str;
2082:
2083: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,lv_qry_str);
2084:
2085: EXECUTE IMMEDIATE lv_qry_str;
2086:
2087: EXCEPTION

Line 2091: RETCODE := MSC_UTIL.G_WARNING;

2087: EXCEPTION
2088:
2089: WHEN OTHERS THEN
2090:
2091: RETCODE := MSC_UTIL.G_WARNING;
2092:
2093: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'Error while deleting from MSC_INST_PARTITIONS --'||SQLERRM);
2094:
2095: END;

Line 2093: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'Error while deleting from MSC_INST_PARTITIONS --'||SQLERRM);

2089: WHEN OTHERS THEN
2090:
2091: RETCODE := MSC_UTIL.G_WARNING;
2092:
2093: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'Error while deleting from MSC_INST_PARTITIONS --'||SQLERRM);
2094:
2095: END;
2096:
2097: --

Line 2103: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,lv_qry_str);

2099: BEGIN -- delete from MSC_APPS_INSTANCES --
2100:
2101: lv_qry_str := 'DELETE FROM MSC_APPS_INSTANCES WHERE instance_id IN '||lv_inst_str;
2102:
2103: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,lv_qry_str);
2104:
2105: EXECUTE IMMEDIATE lv_qry_str;
2106:
2107: EXCEPTION

Line 2111: RETCODE := MSC_UTIL.G_WARNING;

2107: EXCEPTION
2108:
2109: WHEN OTHERS THEN
2110:
2111: RETCODE := MSC_UTIL.G_WARNING;
2112:
2113: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'Error while deleting from MSC_APPS_INSTANCES --'||SQLERRM);
2114:
2115: END;

Line 2113: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'Error while deleting from MSC_APPS_INSTANCES --'||SQLERRM);

2109: WHEN OTHERS THEN
2110:
2111: RETCODE := MSC_UTIL.G_WARNING;
2112:
2113: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'Error while deleting from MSC_APPS_INSTANCES --'||SQLERRM);
2114:
2115: END;
2116:
2117: COMMIT;

Line 2121: IF NVL(RETCODE,-1) <> MSC_UTIL.G_WARNING THEN

2117: COMMIT;
2118:
2119: --
2120:
2121: IF NVL(RETCODE,-1) <> MSC_UTIL.G_WARNING THEN
2122:
2123: RETCODE := MSC_UTIL.G_SUCCESS;
2124:
2125: END IF;

Line 2123: RETCODE := MSC_UTIL.G_SUCCESS;

2119: --
2120:
2121: IF NVL(RETCODE,-1) <> MSC_UTIL.G_WARNING THEN
2122:
2123: RETCODE := MSC_UTIL.G_SUCCESS;
2124:
2125: END IF;
2126:
2127: EXCEPTION

Line 2133: RETCODE := MSC_UTIL.G_ERROR;

2129: WHEN OTHERS THEN
2130:
2131: ERRBUF := SQLERRM;
2132:
2133: RETCODE := MSC_UTIL.G_ERROR;
2134:
2135: END PURGE_INSTANCE_DATA;
2136:
2137: ---------------------------------PURGE_PLAN_DATA----------------------------------------

Line 2203: RETCODE := MSC_UTIL.G_ERROR;

2199: IF NOT FND_INSTALLATION.GET_APP_INFO ( lv_schema_short_nm, lv_dummy1, lv_dummy2, lv_schema) THEN
2200:
2201: ERRBUF := lv_schema_short_nm||'--Schema not found ';
2202:
2203: RETCODE := MSC_UTIL.G_ERROR;
2204:
2205: RETURN;
2206:
2207: END IF;

Line 2215: RETCODE := MSC_UTIL.G_ERROR;

2211: WHEN NO_DATA_FOUND THEN
2212:
2213: ERRBUF := 'Schema Short name for application_id 724 Not found';
2214:
2215: RETCODE := MSC_UTIL.G_ERROR;
2216:
2217: RETURN;
2218:
2219: END;

Line 2247: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'* Drop Plan Partition *****');

2243: --End Generate List of Instances passed --
2244:
2245: --
2246:
2247: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'******* Drop Plan Partition ***********');
2248:
2249: lv_qry_str := 'SELECT table_name,partition_name '
2250:
2251: ||' FROM fnd_lookup_values a,DBA_TAB_PARTITIONS b'

Line 2287: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'ALTER TABLE '||lv_schema||'.'||lv_tab||' DROP PARTITION '||lv_tab_Part);

2283: EXIT WHEN v_plan_part_cur%NOTFOUND;
2284:
2285: BEGIN
2286:
2287: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'ALTER TABLE '||lv_schema||'.'||lv_tab||' DROP PARTITION '||lv_tab_Part);
2288:
2289: EXECUTE IMMEDIATE 'ALTER TABLE '||lv_schema||'.'||lv_tab||' DROP PARTITION '||lv_tab_Part;
2290:
2291: EXCEPTION

Line 2295: RETCODE := MSC_UTIL.G_WARNING;

2291: EXCEPTION
2292:
2293: WHEN OTHERS THEN
2294:
2295: RETCODE := MSC_UTIL.G_WARNING;
2296:
2297: END;
2298:
2299: --TRC(lv_tab||'-----------'||lv_tab_Part);

Line 2311: RETCODE := MSC_UTIL.G_ERROR;

2307: WHEN OTHERS THEN
2308:
2309: ERRBUF := SQLERRM;
2310:
2311: RETCODE := MSC_UTIL.G_ERROR;
2312:
2313: RETURN;
2314:
2315: END;

Line 2323: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'* Delete Rows for plan*****');

2319: SELECT REPLACE(lv_plan_str,'''','') INTO lv_plan_str FROM DUAL;
2320:
2321: --
2322:
2323: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'******* Delete Rows for plan***********');
2324:
2325: -- delete rows for Plan
2326:
2327: FOR tab IN (SELECT a.attribute2 tname

Line 2353: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,lv_qry_str);

2349: LOOP
2350:
2351: lv_qry_str := 'DELETE FROM '||tab.tname||' WHERE plan_id IN '||lv_plan_str||' AND ROWNUM <= '||row_limit;
2352:
2353: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,lv_qry_str);
2354:
2355: LOOP
2356:
2357: lv_err_flag := FALSE;

Line 2367: RETCODE := MSC_UTIL.G_WARNING;

2363: EXCEPTION
2364:
2365: WHEN OTHERS THEN
2366:
2367: RETCODE := MSC_UTIL.G_WARNING;
2368:
2369: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'ERROR IN DEL_INST --'||SQLERRM);
2370:
2371: lv_err_flag := TRUE;

Line 2369: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'ERROR IN DEL_INST --'||SQLERRM);

2365: WHEN OTHERS THEN
2366:
2367: RETCODE := MSC_UTIL.G_WARNING;
2368:
2369: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'ERROR IN DEL_INST --'||SQLERRM);
2370:
2371: lv_err_flag := TRUE;
2372:
2373: END;

Line 2387: IF NVL(RETCODE,-1) <> MSC_UTIL.G_WARNING THEN

2383: COMMIT;
2384:
2385:
2386:
2387: IF NVL(RETCODE,-1) <> MSC_UTIL.G_WARNING THEN
2388:
2389: RETCODE := MSC_UTIL.G_SUCCESS;
2390:
2391: END IF;

Line 2389: RETCODE := MSC_UTIL.G_SUCCESS;

2385:
2386:
2387: IF NVL(RETCODE,-1) <> MSC_UTIL.G_WARNING THEN
2388:
2389: RETCODE := MSC_UTIL.G_SUCCESS;
2390:
2391: END IF;
2392:
2393: EXCEPTION

Line 2399: RETCODE := MSC_UTIL.G_ERROR;

2395: WHEN OTHERS THEN
2396:
2397: ERRBUF := SQLERRM;
2398:
2399: RETCODE := MSC_UTIL.G_ERROR;
2400:
2401: END PURGE_PLAN_DATA;
2402:
2403: --======================================================================

Line 2415: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'START PURGE_INSTANCE_PLAN_DATA******');

2411: pPlanId NUMBER)
2412:
2413: IS
2414: BEGIN
2415: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'****************START PURGE_INSTANCE_PLAN_DATA**********************');
2416:
2417: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'******---InstanceId = '||nvl(to_char(pInstanceId),'NULL')
2418:
2419: || ' AND PlanId = '||nvl(to_char(pPlanId),'NULL')

Line 2417: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'******---InstanceId = '||nvl(to_char(pInstanceId),'NULL')

2413: IS
2414: BEGIN
2415: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'****************START PURGE_INSTANCE_PLAN_DATA**********************');
2416:
2417: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'******---InstanceId = '||nvl(to_char(pInstanceId),'NULL')
2418:
2419: || ' AND PlanId = '||nvl(to_char(pPlanId),'NULL')
2420:
2421: ||' -------***** ');

Line 2437: IF RETCODE = MSC_UTIL.G_ERROR THEN

2433: BEGIN
2434:
2435: PURGE_INSTANCE_DATA(ERRBUF,RETCODE,lv_Inst_List);
2436:
2437: IF RETCODE = MSC_UTIL.G_ERROR THEN
2438:
2439: RETURN;
2440:
2441: END IF;

Line 2471: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'END**************');

2467: END IF;
2468:
2469:
2470:
2471: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'****************************END******************************************');
2472:
2473:
2474:
2475: EXCEPTION

Line 2481: RETCODE := MSC_UTIL.G_ERROR;

2477: WHEN OTHERS THEN
2478:
2479: ERRBUF := SQLERRM;
2480:
2481: RETCODE := MSC_UTIL.G_ERROR;
2482:
2483: END PURGE_INSTANCE_PLAN_DATA;
2484:
2485: PROCEDURE Purge_localid_table( pMode NUMBER,

Line 2506: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV,'pWhereClause'|| pWhereClause || 'XXX');

2502:
2503: lv_is_data_truncated boolean := false;
2504:
2505: BEGIN
2506: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV,'pWhereClause'|| pWhereClause || 'XXX');
2507: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV,'pTable_name'|| pTable_name || 'XXX');
2508: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV,'pInstance_id'|| pInstance_id || 'XXX');
2509: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV,'pPlan_id'|| pPlan_id || 'XXX');
2510: /*

Line 2507: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV,'pTable_name'|| pTable_name || 'XXX');

2503: lv_is_data_truncated boolean := false;
2504:
2505: BEGIN
2506: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV,'pWhereClause'|| pWhereClause || 'XXX');
2507: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV,'pTable_name'|| pTable_name || 'XXX');
2508: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV,'pInstance_id'|| pInstance_id || 'XXX');
2509: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV,'pPlan_id'|| pPlan_id || 'XXX');
2510: /*
2511: IF pWhereClause IS NULL

Line 2508: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV,'pInstance_id'|| pInstance_id || 'XXX');

2504:
2505: BEGIN
2506: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV,'pWhereClause'|| pWhereClause || 'XXX');
2507: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV,'pTable_name'|| pTable_name || 'XXX');
2508: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV,'pInstance_id'|| pInstance_id || 'XXX');
2509: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV,'pPlan_id'|| pPlan_id || 'XXX');
2510: /*
2511: IF pWhereClause IS NULL
2512: AND pMode = 1

Line 2509: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV,'pPlan_id'|| pPlan_id || 'XXX');

2505: BEGIN
2506: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV,'pWhereClause'|| pWhereClause || 'XXX');
2507: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV,'pTable_name'|| pTable_name || 'XXX');
2508: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV,'pInstance_id'|| pInstance_id || 'XXX');
2509: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV,'pPlan_id'|| pPlan_id || 'XXX');
2510: /*
2511: IF pWhereClause IS NULL
2512: AND pMode = 1
2513: AND pInstance_id IS NOT NULL

Line 2517: lv_is_plan:= MSC_UTIL.SYS_NO;

2513: AND pInstance_id IS NOT NULL
2514: AND is_msctbl_partitioned( pTable_name) THEN
2515:
2516: IF pPlan_id= -1 OR pPlan_id IS NULL THEN
2517: lv_is_plan:= MSC_UTIL.SYS_NO;
2518: ELSE
2519: lv_is_plan:= MSC_UTIL.SYS_YES;
2520: END IF;
2521:

Line 2519: lv_is_plan:= MSC_UTIL.SYS_YES;

2515:
2516: IF pPlan_id= -1 OR pPlan_id IS NULL THEN
2517: lv_is_plan:= MSC_UTIL.SYS_NO;
2518: ELSE
2519: lv_is_plan:= MSC_UTIL.SYS_YES;
2520: END IF;
2521:
2522: msc_manage_plan_partitions.get_partition_name
2523: ( pPlan_id,

Line 2531: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'Partition Name : '||lv_partition_name);

2527: lv_partition_name,
2528: lv_return_status,
2529: lv_msg_data);
2530:
2531: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,'Partition Name : '||lv_partition_name);
2532: IF lv_return_status = FND_API.G_RET_STS_SUCCESS THEN
2533: lv_sql_stmt:= 'ALTER TABLE '||pTable_name
2534: ||' TRUNCATE PARTITION '||lv_partition_name;
2535:

Line 2536: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,lv_sql_stmt);

2532: IF lv_return_status = FND_API.G_RET_STS_SUCCESS THEN
2533: lv_sql_stmt:= 'ALTER TABLE '||pTable_name
2534: ||' TRUNCATE PARTITION '||lv_partition_name;
2535:
2536: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,lv_sql_stmt);
2537: AD_DDL.DO_DDL( APPLSYS_SCHEMA => v_applsys_schema,
2538: APPLICATION_SHORT_NAME => 'MSC',
2539: STATEMENT_TYPE => AD_DDL.ALTER_TABLE,
2540: STATEMENT => lv_sql_stmt,

Line 2543: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'Table ' || pTable_name || 'Partition ' || lv_partition_name || ' truncated ');

2539: STATEMENT_TYPE => AD_DDL.ALTER_TABLE,
2540: STATEMENT => lv_sql_stmt,
2541: OBJECT_NAME => pTable_name);
2542: lv_is_data_truncated := true;
2543: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'Table ' || pTable_name || 'Partition ' || lv_partition_name || ' truncated ');
2544: ELSE
2545: lv_is_data_truncated := false;
2546: END IF;
2547: END IF;

Line 2568: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,lv_sql_stmt);

2564: IF pWhereClause IS NOT NULL THEN
2565: lv_sql_stmt:= lv_sql_stmt || ' AND ' || pWhereClause;
2566: END IF;
2567:
2568: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,lv_sql_stmt);
2569: lv_cnt := 0;
2570: LOOP
2571: EXECUTE IMMEDIATE lv_sql_stmt
2572: USING lv_pbs;

Line 2577: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,lv_cnt || ' records deleted from ' || pTable_name);

2573: EXIT WHEN SQL%ROWCOUNT= 0;
2574: lv_cnt := lv_cnt + SQL%ROWCOUNT;
2575: COMMIT;
2576: END LOOP;
2577: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,lv_cnt || ' records deleted from ' || pTable_name);
2578: --END IF;
2579: EXCEPTION
2580: WHEN OTHERS THEN
2581: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error Wile purging data from ' || pTable_name);

Line 2581: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error Wile purging data from ' || pTable_name);

2577: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,lv_cnt || ' records deleted from ' || pTable_name);
2578: --END IF;
2579: EXCEPTION
2580: WHEN OTHERS THEN
2581: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error Wile purging data from ' || pTable_name);
2582: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,lv_sql_stmt);
2583: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,DBMS_UTILITY.FORMAT_ERROR_STACK);
2584: END;
2585:

Line 2582: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,lv_sql_stmt);

2578: --END IF;
2579: EXCEPTION
2580: WHEN OTHERS THEN
2581: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error Wile purging data from ' || pTable_name);
2582: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,lv_sql_stmt);
2583: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,DBMS_UTILITY.FORMAT_ERROR_STACK);
2584: END;
2585:
2586: PROCEDURE PURGE_ODS_DATA(

Line 2583: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,DBMS_UTILITY.FORMAT_ERROR_STACK);

2579: EXCEPTION
2580: WHEN OTHERS THEN
2581: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error Wile purging data from ' || pTable_name);
2582: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,lv_sql_stmt);
2583: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,DBMS_UTILITY.FORMAT_ERROR_STACK);
2584: END;
2585:
2586: PROCEDURE PURGE_ODS_DATA(
2587: ERRBUF OUT NOCOPY VARCHAR2,

Line 2686: if pstatusflag =MSC_UTIL.G_SUCCESS THEN

2682: IF pNOTES_ENABLED =1 THEN array1(i) := 'NOTES';i:=i+1; END IF;
2683:
2684: purge_inst_entity_ods_data(pINSTANCE_ID,array1,2,ppurgeglobalflag,pstatusflag);
2685:
2686: if pstatusflag =MSC_UTIL.G_SUCCESS THEN
2687: RETCODE := MSC_UTIL.G_SUCCESS;
2688: END IF ;
2689:
2690: EXCEPTION WHEN OTHERS THEN

Line 2687: RETCODE := MSC_UTIL.G_SUCCESS;

2683:
2684: purge_inst_entity_ods_data(pINSTANCE_ID,array1,2,ppurgeglobalflag,pstatusflag);
2685:
2686: if pstatusflag =MSC_UTIL.G_SUCCESS THEN
2687: RETCODE := MSC_UTIL.G_SUCCESS;
2688: END IF ;
2689:
2690: EXCEPTION WHEN OTHERS THEN
2691: RETCODE := MSC_UTIL.G_ERROR;

Line 2691: RETCODE := MSC_UTIL.G_ERROR;

2687: RETCODE := MSC_UTIL.G_SUCCESS;
2688: END IF ;
2689:
2690: EXCEPTION WHEN OTHERS THEN
2691: RETCODE := MSC_UTIL.G_ERROR;
2692:
2693: END PURGE_ODS_DATA;
2694:
2695: PROCEDURE PURGE_ODS_LEG_DATA(

Line 2812: if pstatusflag =MSC_UTIL.G_SUCCESS THEN

2808: IF pDELIVERY_DETAILS_ENABLED =1 THEN array1(i) := 'DELIVERY DETAILS';i:=i+1; END IF;
2809:
2810: purge_inst_entity_ods_data(pINSTANCE_ID,array1,ppurgelocalidflag,ppurgeglobalflag,pstatusflag);
2811:
2812: if pstatusflag =MSC_UTIL.G_SUCCESS THEN
2813: RETCODE := MSC_UTIL.G_SUCCESS;
2814: end if;
2815:
2816: EXCEPTION WHEN OTHERS THEN

Line 2813: RETCODE := MSC_UTIL.G_SUCCESS;

2809:
2810: purge_inst_entity_ods_data(pINSTANCE_ID,array1,ppurgelocalidflag,ppurgeglobalflag,pstatusflag);
2811:
2812: if pstatusflag =MSC_UTIL.G_SUCCESS THEN
2813: RETCODE := MSC_UTIL.G_SUCCESS;
2814: end if;
2815:
2816: EXCEPTION WHEN OTHERS THEN
2817: RETCODE := MSC_UTIL.G_ERROR;

Line 2817: RETCODE := MSC_UTIL.G_ERROR;

2813: RETCODE := MSC_UTIL.G_SUCCESS;
2814: end if;
2815:
2816: EXCEPTION WHEN OTHERS THEN
2817: RETCODE := MSC_UTIL.G_ERROR;
2818:
2819: END PURGE_ODS_LEG_DATA;
2820:
2821: PROCEDURE PURGE_INST_ENTITY_ODS_DATA (

Line 2885: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV, p_entity_name );

2881: p_local_id_entity,p_where_clause,p_instance_flag,p_plan_flag,p_global_flag ;
2882:
2883: exit when c1%NOTFOUND;
2884:
2885: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV, p_entity_name );
2886: /*
2887: IF lv_prev_entity <> p_entity_name THEN
2888: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,p_entity_name );
2889: lv_prev_entity := p_entity_name;

Line 2888: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,p_entity_name );

2884:
2885: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV, p_entity_name );
2886: /*
2887: IF lv_prev_entity <> p_entity_name THEN
2888: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,p_entity_name );
2889: lv_prev_entity := p_entity_name;
2890: lv_prev_table := 'NOT INITIALIZED';
2891: END IF;
2892: */

Line 2895: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV,p_table_name || ' ' || lv_prev_table);

2891: END IF;
2892: */
2893:
2894: lv_where_clause := '';
2895: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV,p_table_name || ' ' || lv_prev_table);
2896:
2897: IF p_table_name <> lv_prev_table THEN
2898: lv_prev_table := p_table_name;
2899:

Line 2917: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV,'delete_msc_table 1' );

2913: lv_pln_id := -1;
2914: ELSE
2915: lv_pln_id := NULL;
2916: END IF;
2917: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV,'delete_msc_table 1' );
2918: DELETE_MSC_TABLE(p_table_name,lv_inst_id,lv_pln_id,lv_where_clause);
2919:
2920: END IF;
2921:

Line 2922: IF (ppurgelocalidflag =MSC_UTIL.SYS_YES AND p_local_id_table IS NOT NULL) THEN

2918: DELETE_MSC_TABLE(p_table_name,lv_inst_id,lv_pln_id,lv_where_clause);
2919:
2920: END IF;
2921:
2922: IF (ppurgelocalidflag =MSC_UTIL.SYS_YES AND p_local_id_table IS NOT NULL) THEN
2923: lv_where_clause := ' ENTITY_NAME = ''' || p_local_id_table || ''' ';
2924: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV,'Purge_table_data 2' );
2925: Purge_localid_table(2,p_local_id_table,pINSTANCE_ID,NULL,lv_where_clause);
2926: END IF;

Line 2924: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV,'Purge_table_data 2' );

2920: END IF;
2921:
2922: IF (ppurgelocalidflag =MSC_UTIL.SYS_YES AND p_local_id_table IS NOT NULL) THEN
2923: lv_where_clause := ' ENTITY_NAME = ''' || p_local_id_table || ''' ';
2924: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEV,'Purge_table_data 2' );
2925: Purge_localid_table(2,p_local_id_table,pINSTANCE_ID,NULL,lv_where_clause);
2926: END IF;
2927:
2928: END loop;

Line 2937: pstatusflag :=MSC_UTIL.G_SUCCESS;

2933: lv_prev_table := 'NOT INITIALIZED';
2934:
2935: END LOOP;
2936:
2937: pstatusflag :=MSC_UTIL.G_SUCCESS;
2938:
2939: EXCEPTION WHEN OTHERS THEN
2940: pstatusflag := MSC_UTIL.G_ERROR;
2941:

Line 2940: pstatusflag := MSC_UTIL.G_ERROR;

2936:
2937: pstatusflag :=MSC_UTIL.G_SUCCESS;
2938:
2939: EXCEPTION WHEN OTHERS THEN
2940: pstatusflag := MSC_UTIL.G_ERROR;
2941:
2942:
2943: END PURGE_INST_ENTITY_ODS_DATA;
2944: