[Home] [Help]
14964: p_to_time IN NUMBER ) IS
14965: BEGIN
14966: stmt_no := 31;
14967: /* Call Unavail_rsrc_proc */
14968: INSERT INTO msc_st_net_resource_avail
14969: ( organization_id,
14970: sr_instance_id,
14971: resource_id,
14972: department_id,
16649:
16650: IF ((p_usage = 'APS') OR (p_usage = 'BASED')) THEN /* Usage APS/BASED */
16651:
16652: FORALL i IN first_in..last_in
16653: INSERT INTO msc_st_net_resource_avail
16654: ( organization_id,
16655: sr_instance_id,
16656: resource_id,
16657: department_id,
17346: || ' lead(capacity_units,1) '
17347: || ' over(order by organization_id,simulation_set,'
17348: || ' resource_id,shift_date, shift_num,from_time,to_time,capacity_units) '
17349: || ' as lead_rc '
17350: || ' FROM msc_st_net_resource_avail '
17351: || ' WHERE sr_instance_id = :inst_id '
17352: || ' ) net '
17353: || ' WHERE net.resource_id = net.lead_rid '
17354: || ' AND net.organization_id = net.lead_iid '
17370: LOOP
17371: FETCH ri_assembly INTO interval_record_aps;
17372: EXIT WHEN ri_assembly%NOTFOUND;
17373:
17374: sqlstmt := ' DELETE FROM msc_st_net_resource_avail '
17375: || ' WHERE organization_id = :org_id '
17376: || ' AND simulation_set = :sim_set '
17377: || ' AND sr_instance_id = :inst_id '
17378: || ' AND resource_id = :prid '
17427: /* Bug: 6030499 conditionalising the following code */
17428: IF collect_ps_data THEN
17429:
17430: upd_res_avl := null ;
17431: upd_res_avl := 'UPDATE msc_st_net_resource_avail '
17432: ||' SET to_time = 86400 '
17433: ||' WHERE to_time = 86399 '
17434: ||' AND shift_num >= 99999 ' ;
17435:
17436: EXECUTE immediate upd_res_avl;
17437:
17438: stmt_no := 80;
17439: upd_res_avl := null ;
17440: upd_res_avl := 'UPDATE msc_st_net_resource_avail '
17441: ||' SET shift_num = (shift_num - 99999) '
17442: ||' WHERE shift_num >= 99999 ' ;
17443:
17444: EXECUTE immediate upd_res_avl;