[Home] [Help]
1500:
1501: -- Get all orgs currently on the schedule
1502: CURSOR C_ITEM_ORGS_REVISION IS
1503: SELECT distinct csi.organization_id
1504: FROM chv_schedule_items csi
1505: WHERE csi.schedule_id = x_old_schedule_id;
1506:
1507: -- Get all records where the flag is set to rebuild.
1508: CURSOR REBUILD IS
1511: decode(csi.item_planning_method,'MRP_PLANNED',3,
1512: 'MPS_PLANNED',2,
1513: 'DRP_PLANNED',4),
1514: csi.organization_id
1515: FROM chv_schedule_items csi
1516: WHERE csi.schedule_id = x_schedule_id
1517: AND nvl(csi.rebuild_flag, 'N') = 'Y';
1518:
1519: -- Get all item records for a schedule.
1524: decode(csi.item_planning_method,'MRP_PLANNED',3,
1525: 'MPS_PLANNED',2,
1526: 'DRP_PLANNED',4),
1527: csi.purchasing_unit_of_measure
1528: FROM chv_schedule_items csi
1529: WHERE csi.schedule_id = x_old_schedule_id;
1530:
1531: -- Get all item records for a schedule and organization.
1532: CURSOR REVISION_MULTI_ORGS IS
1536: decode(csi.item_planning_method,'MRP_PLANNED',3,
1537: 'MPS_PLANNED',2,
1538: 'DRP_PLANNED',4),
1539: csi.purchasing_unit_of_measure
1540: FROM chv_schedule_items csi
1541: WHERE csi.schedule_id = x_old_schedule_id
1542: AND csi.organization_id = x_organization_id;
1543:
1544:
1858: x_cum_period_end_date_l);
1859: END IF;
1860:
1861:
1862: -- If p_schedule_category is not REBUILD, insert new chv_schedule_items.
1863: -- Before that, need to get a new unique schedule item id.
1864: IF p_schedule_category <> 'REBUILD' THEN
1865: x_progress := '060';
1866: SELECT chv_schedule_items_s.NEXTVAL
1862: -- If p_schedule_category is not REBUILD, insert new chv_schedule_items.
1863: -- Before that, need to get a new unique schedule item id.
1864: IF p_schedule_category <> 'REBUILD' THEN
1865: x_progress := '060';
1866: SELECT chv_schedule_items_s.NEXTVAL
1867: INTO x_schedule_item_id_l
1868: FROM DUAL;
1869:
1870: ---- dbms_output.put_line ('Create_items: inserting into chv_schedule_items');
1866: SELECT chv_schedule_items_s.NEXTVAL
1867: INTO x_schedule_item_id_l
1868: FROM DUAL;
1869:
1870: ---- dbms_output.put_line ('Create_items: inserting into chv_schedule_items');
1871: ---- dbms_output.put_line ('Create_items: schedule id'||x_schedule_id);
1872: ---- dbms_output.put_line ('Create_items: schedule_item_id'||x_schedule_item_id_l);
1873: ---- dbms_output.put_line ('Create_items: item id'||x_item_id_l);
1874: ---- dbms_output.put_line ('Create_items: org'||x_organization_id);
1877: ---- dbms_output.put_line ('Create_items: login'||x_login_id);
1878:
1879: x_progress := '070';
1880:
1881: INSERT INTO chv_schedule_items (schedule_id,
1882: schedule_item_id,
1883: organization_id,
1884: item_id,
1885: item_planning_method,
1929: x_progress := '080';
1930:
1931: -- We need to update the primary and purchasing unit of measure
1932: -- on the item in case it has changed since the orginial build.
1933: update chv_schedule_items
1934: set rebuild_flag = 'N',
1935: item_confirm_status = 'IN_PROCESS',
1936: last_updated_by = x_user_id,
1937: last_update_date = sysdate,
2265: nvl(x_past_due_primary,0);
2266:
2267: END IF;
2268:
2269: -- Update chv_schedule_items with the new po_header_id, po_line_id, and
2270: -- starting authorization quantities.
2271: ---- dbms_output.put_line('Create_items: updating chv_schedule_items');
2272:
2273: x_progress := '140';
2267: END IF;
2268:
2269: -- Update chv_schedule_items with the new po_header_id, po_line_id, and
2270: -- starting authorization quantities.
2271: ---- dbms_output.put_line('Create_items: updating chv_schedule_items');
2272:
2273: x_progress := '140';
2274: UPDATE chv_schedule_items
2275: SET po_header_id = x_po_header_id_l,
2270: -- starting authorization quantities.
2271: ---- dbms_output.put_line('Create_items: updating chv_schedule_items');
2272:
2273: x_progress := '140';
2274: UPDATE chv_schedule_items
2275: SET po_header_id = x_po_header_id_l,
2276: po_line_id = x_po_line_id_l,
2277: starting_auth_quantity = x_starting_auth_quantity_l,
2278: starting_auth_qty_primary = x_starting_auth_qty_primary_l