[Home] [Help]
135: v_stmt := 30;
136:
137: if var_from_time >= 86400 AND var_to_time >= 86400 then
138:
139: UPDATE MSC_net_resource_avail
140: SET to_time = var_time1,
141: from_time =var_time2,
142: shift_date = shift_date + 1
143: WHERE rowid = var_rowid;
143: WHERE rowid = var_rowid;
144:
145: else
146:
147: UPDATE MSC_net_resource_avail
148: SET to_time = var_time1,
149: from_time = var_time2
150: WHERE rowid = var_rowid;
151:
169: PROCEDURE delete_avail(var_rowid in ROWID) IS
170: BEGIN
171:
172: v_stmt := 40;
173: DELETE from MSC_net_resource_avail
174: WHERE rowid = var_rowid;
175:
176: if( v_show_warning is null) then
177: v_show_warning := 0;
214:
215: v_stmt := 50;
216:
217: v_stmt := 60;
218: INSERT into MSC_net_resource_avail(
219: transaction_id,
220: plan_id,
221: department_id,
222: resource_id,
242: program_id,
243: program_update_date,
244: refresh_number)
245: VALUES(
246: msc_net_resource_avail_s.NEXTVAL
247: , -1
248: ,var_department_id
249: ,var_resource_id
250: ,var_organization_id
344: var_capacity number;
345:
346: /* add index hint for better performance */
347: CURSOR avail IS
348: SELECT /*+ index (nra MSC_NET_RESOURCE_AVAIL_U2 )*/
349: capacity_units capacity_units,
350: from_time from_time,
351: to_time to_time,
352: rowid
349: capacity_units capacity_units,
350: from_time from_time,
351: to_time to_time,
352: rowid
353: FROM MSC_net_resource_avail nra
354: WHERE plan_id = -1
355: AND sr_instance_id = arg_sr_instance_id
356: AND organization_id = arg_organization_id
357: AND department_id = arg_department_id
374: v_stmt := 70;
375:
376: if (arg_disable_date IS NOT NULL) then
377:
378: INSERT into MSC_net_resource_avail(
379: transaction_id,
380: plan_id,
381: organization_id,
382: sr_instance_id,
400: request_id,
401: program_application_id,
402: program_id,
403: program_update_date)
404: SELECT msc_net_resource_avail_s.NEXTVAL
405: ,-1
406: ,arg_organization_id
407: ,arg_sr_instance_id
408: ,arg_department_id
439: end if;
440:
441: end if;
442:
443: INSERT into MSC_net_resource_avail(
444: transaction_id,
445: plan_id,
446: organization_id,
447: sr_instance_id,
465: request_id,
466: program_application_id,
467: program_id,
468: program_update_date)
469: SELECT msc_net_resource_avail_s.NEXTVAL
470: ,-1
471: ,arg_organization_id
472: ,arg_sr_instance_id
473: ,arg_department_id
527: */
528:
529: IF arg_simulation_set IS NOT NULL THEN
530:
531: UPDATE MSC_NET_RESOURCE_AVAIL
532: SET capacity_units= 0
533: WHERE ROWID IN
534: ( select /*+ ordered index (nra MSC_NET_RESOURCE_AVAIL_U2 )*/
535: nra.ROWID
530:
531: UPDATE MSC_NET_RESOURCE_AVAIL
532: SET capacity_units= 0
533: WHERE ROWID IN
534: ( select /*+ ordered index (nra MSC_NET_RESOURCE_AVAIL_U2 )*/
535: nra.ROWID
536: from MSC_RESOURCE_CHANGES changes,
537: MSC_NET_RESOURCE_AVAIL nra
538: WHERE changes.department_id = arg_department_id
533: WHERE ROWID IN
534: ( select /*+ ordered index (nra MSC_NET_RESOURCE_AVAIL_U2 )*/
535: nra.ROWID
536: from MSC_RESOURCE_CHANGES changes,
537: MSC_NET_RESOURCE_AVAIL nra
538: WHERE changes.department_id = arg_department_id
539: AND changes.resource_id = arg_resource_id
540: AND changes.sr_instance_id = arg_sr_instance_id
541: AND changes.simulation_set= arg_simulation_set
556: ELSE
557:
558: if (arg_disable_date IS NOT NULL) then
559:
560: INSERT into MSC_net_resource_avail(
561: transaction_id,
562: plan_id,
563: organization_id,
564: sr_instance_id,
582: request_id,
583: program_application_id,
584: program_id,
585: program_update_date)
586: VALUES( msc_net_resource_avail_s.NEXTVAL
587: ,-1
588: ,arg_organization_id
589: ,arg_sr_instance_id
590: ,arg_department_id
653:
654: END IF; -- calendar_code, calendar_exception_set_id
655:
656: FORALL j IN 1..v_workdate_count
657: INSERT into MSC_net_resource_avail(
658: transaction_id,
659: plan_id,
660: organization_id,
661: sr_instance_id,
679: request_id,
680: program_application_id,
681: program_id,
682: program_update_date)
683: VALUES( msc_net_resource_avail_s.NEXTVAL
684: ,-1
685: ,arg_organization_id
686: ,arg_sr_instance_id
687: ,arg_department_id
1095:
1096: -- Finally add the availability from the add workday type modifications
1097:
1098: v_stmt := 90;
1099: INSERT into MSC_net_resource_avail(
1100: transaction_id,
1101: plan_id,
1102: organization_id,
1103: sr_instance_id,
1122: program_application_id,
1123: program_id,
1124: program_update_date,
1125: refresh_number)
1126: SELECT msc_net_resource_avail_s.NEXTVAL
1127: ,-1
1128: ,arg_organization_id
1129: ,arg_sr_instance_id
1130: ,arg_department_id
1414: -- all department resources with the new refresh number.
1415:
1416: if arg_refresh_flag = 2 then
1417: v_stmt := 100;
1418: delete from msc_net_resource_avail
1419: where rowid in (select res.rowid
1420: from msc_net_resource_avail res,
1421: msc_resource_changes chg,
1422: msc_department_resources dept
1416: if arg_refresh_flag = 2 then
1417: v_stmt := 100;
1418: delete from msc_net_resource_avail
1419: where rowid in (select res.rowid
1420: from msc_net_resource_avail res,
1421: msc_resource_changes chg,
1422: msc_department_resources dept
1423: where res.organization_id = arg_organization_id
1424: and res.sr_instance_id = arg_sr_instance_id
1499:
1500: LOG_MESSAGE('========================================');
1501: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
1502: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'POPULATE_ORG_RESOURCES');
1503: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RESOURCE_AVAIL');
1504: LOG_MESSAGE(FND_MESSAGE.GET);
1505:
1506: LOG_MESSAGE(SQLERRM);
1507:
1565: -- For net change, refresh_flag = 2, delete resourse availability of
1566: -- lines with the new refresh number.
1567: if arg_refresh_flag = 2 then
1568: v_stmt := 110;
1569: delete from msc_net_resource_avail
1570: where rowid in (select res.rowid
1571: from msc_net_resource_avail res, msc_department_resources line
1572: where res.organization_id = line.organization_id
1573: and res.sr_instance_id = line.sr_instance_id
1567: if arg_refresh_flag = 2 then
1568: v_stmt := 110;
1569: delete from msc_net_resource_avail
1570: where rowid in (select res.rowid
1571: from msc_net_resource_avail res, msc_department_resources line
1572: where res.organization_id = line.organization_id
1573: and res.sr_instance_id = line.sr_instance_id
1574: and res.department_id = line.department_id
1575: and res.resource_id = -1
1583: /* 2201418 - Added hints to improve performance. Also defined a new index
1584: on msc_department_resources (line_flag, plan_id, sr_instance_id,
1585: organization_id) */
1586:
1587: INSERT into MSC_net_resource_avail(
1588: transaction_id,
1589: plan_id,
1590: organization_id,
1591: sr_instance_id,
1608: program_id,
1609: program_update_date,
1610: refresh_number)
1611: SELECT /*+ leading(line) INDEX(LINE) use_nl(dates) */
1612: msc_net_resource_avail_s.NEXTVAL
1613: ,-1
1614: ,arg_organization_id
1615: ,arg_sr_instance_id
1616: ,line.department_id
1651: AND dates.calendar_date <= least(trunc(v_cutoff_date),
1652: trunc(nvl(line.disable_date-1, v_cutoff_date)) )
1653: AND dates.seq_num is not null;
1654:
1655: INSERT into MSC_net_resource_avail(
1656: transaction_id,
1657: plan_id,
1658: organization_id,
1659: sr_instance_id,
1676: program_id,
1677: program_update_date,
1678: refresh_number)
1679: SELECT /*+ leading(line) INDEX(LINE) use_nl(dates) */
1680: msc_net_resource_avail_s.NEXTVAL
1681: ,-1
1682: ,arg_organization_id
1683: ,arg_sr_instance_id
1684: ,line.department_id
1729:
1730: LOG_MESSAGE('========================================');
1731: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
1732: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'POPULATE_ALL_LINES');
1733: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RESOURCE_AVAIL');
1734: LOG_MESSAGE(FND_MESSAGE.GET);
1735:
1736: LOG_MESSAGE(SQLERRM);
1737:
1794: lv_where_clause := ' AND ORGANIZATION_ID IN ( SELECT SR_TP_ID FROM MSC_TRADING_PARTNERS WHERE '||
1795: ' SR_INSTANCE_ID = '||MSC_CL_COLLECTION.v_instance_id ||
1796: ' AND ORGANIZATION_TYPE =1 ) ';
1797:
1798: -- log_debug('before delete of MSC_NET_RESOURCE_AVAIL debug0 ');
1799: IF MSC_CL_COLLECTION.v_instance_type = MSC_UTIL.G_INS_DISCRETE OR MSC_CL_COLLECTION.v_instance_type = MSC_UTIL.G_INS_OTHER THEN
1800: -- log_debug('before delete of MSC_NET_RESOURCE_AVAIL ');
1801: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RESOURCE_AVAIL', MSC_CL_COLLECTION.v_instance_id, -1);
1802: COMMIT;
1796: ' AND ORGANIZATION_TYPE =1 ) ';
1797:
1798: -- log_debug('before delete of MSC_NET_RESOURCE_AVAIL debug0 ');
1799: IF MSC_CL_COLLECTION.v_instance_type = MSC_UTIL.G_INS_DISCRETE OR MSC_CL_COLLECTION.v_instance_type = MSC_UTIL.G_INS_OTHER THEN
1800: -- log_debug('before delete of MSC_NET_RESOURCE_AVAIL ');
1801: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RESOURCE_AVAIL', MSC_CL_COLLECTION.v_instance_id, -1);
1802: COMMIT;
1803: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RES_INST_AVAIL', MSC_CL_COLLECTION.v_instance_id, -1);
1804: COMMIT;
1797:
1798: -- log_debug('before delete of MSC_NET_RESOURCE_AVAIL debug0 ');
1799: IF MSC_CL_COLLECTION.v_instance_type = MSC_UTIL.G_INS_DISCRETE OR MSC_CL_COLLECTION.v_instance_type = MSC_UTIL.G_INS_OTHER THEN
1800: -- log_debug('before delete of MSC_NET_RESOURCE_AVAIL ');
1801: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RESOURCE_AVAIL', MSC_CL_COLLECTION.v_instance_id, -1);
1802: COMMIT;
1803: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RES_INST_AVAIL', MSC_CL_COLLECTION.v_instance_id, -1);
1804: COMMIT;
1805:
1819: END IF;
1820:
1821: ELSIF MSC_CL_COLLECTION.v_instance_type = MSC_UTIL.G_INS_MIXED THEN
1822: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'debug-07');
1823: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RESOURCE_AVAIL', MSC_CL_COLLECTION.v_instance_id, -1,lv_where_clause);
1824: COMMIT;
1825: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RES_INST_AVAIL', MSC_CL_COLLECTION.v_instance_id, -1,lv_where_clause);
1826: COMMIT;
1827:
2153:
2154: /* Bug 3295824 - We need to set the capacity units to 0 of any records
2155: having -ve capacity units */
2156:
2157: update MSC_net_resource_avail
2158: set capacity_units = 0
2159: where capacity_units < 0
2160: and plan_id = -1
2161: AND sr_instance_id = MSC_CL_COLLECTION.v_instance_id
2273:
2274: /*IF (v_is_complete_refresh OR (v_is_partial_refresh AND MSC_CL_COLLECTION.v_coll_prec.resource_nra_flag = MSC_CL_COLLECTION.SYS_YES)) THEN
2275: -- We want to delete all NRA related data and get new stuff.
2276:
2277: --MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RESOURCE_AVAIL', v_instance_id, -1);
2278: --MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RES_INST_AVAIL', v_instance_id, -1);
2279:
2280: IF MSC_CL_COLLECTION.v_coll_prec.org_group_flag = MSC_CL_COLLECTION.G_ALL_ORGANIZATIONS THEN
2281: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'debug-00');
2278: --MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RES_INST_AVAIL', v_instance_id, -1);
2279:
2280: IF MSC_CL_COLLECTION.v_coll_prec.org_group_flag = MSC_CL_COLLECTION.G_ALL_ORGANIZATIONS THEN
2281: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'debug-00');
2282: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RESOURCE_AVAIL', v_instance_id, -1);
2283: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RES_INST_AVAIL', v_instance_id, -1);
2284: ELSE
2285: v_sub_str :=' AND ORGANIZATION_ID '||v_in_org_str;
2286: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'debug-01');
2283: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RES_INST_AVAIL', v_instance_id, -1);
2284: ELSE
2285: v_sub_str :=' AND ORGANIZATION_ID '||v_in_org_str;
2286: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'debug-01');
2287: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RESOURCE_AVAIL', v_instance_id, -1,v_sub_str);
2288: MSC_CL_COLLECTION.DELETE_MSC_TABLE( 'MSC_NET_RES_INST_AVAIL', v_instance_id, -1,v_sub_str);
2289: END IF;
2290:
2291: END IF;*/
2308:
2309: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Loading res avail for OPM orgs : ' || c_rec1.organization_id);
2310:
2311: lv_sql_stmt:=
2312: ' INSERT into MSC_net_resource_avail '
2313: ||' ( transaction_id,'
2314: ||' plan_id,'
2315: ||' department_id,'
2316: ||' resource_id,'
2330: ||' creation_date,'
2331: ||' created_by,'
2332: ||' refresh_number)'
2333: ||' SELECT'
2334: ||' msc_net_resource_avail_s.NEXTVAL,'
2335: ||' -1,'
2336: ||' msnra.department_id,'
2337: ||' msnra.resource_id,'
2338: ||' msnra.organization_id,'
2383:
2384: FOR c_rec IN c11(c_rec1.organization_id) LOOP
2385:
2386: BEGIN
2387: INSERT into MSC_net_resource_avail(
2388: transaction_id,
2389: plan_id,
2390: department_id,
2391: resource_id,
2405: creation_date,
2406: created_by,
2407: refresh_number)
2408: VALUES(
2409: msc_net_resource_avail_s.NEXTVAL,
2410: -1,
2411: c_rec.department_id,
2412: c_rec.resource_id,
2413: c_rec.organization_id,
2441:
2442: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '========================================');
2443: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
2444: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CALENDAR_DATE');
2445: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RESOURCE_AVAIL');
2446: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2447:
2448: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
2449: RAISE;
2454:
2455: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '========================================');
2456: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
2457: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CALENDAR_DATE');
2458: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_NET_RESOURCE_AVAIL');
2459: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
2460:
2461: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
2462: FND_MESSAGE.SET_TOKEN('COLUMN', 'RESOURCE_ID');