The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row(
X_Rowid IN OUT VARCHAR2,
X_Inventory_Item_Id NUMBER,
X_Organization_Id NUMBER,
X_Schedule_Designator VARCHAR2,
X_Last_Update_Date DATE,
X_Last_Updated_By NUMBER,
X_Creation_Date DATE,
X_Created_By NUMBER,
X_Last_Update_Login NUMBER DEFAULT NULL,
X_MPS_Explosion_Level NUMBER DEFAULT NULL,
X_Request_Id NUMBER DEFAULT NULL,
X_Program_Application_Id NUMBER DEFAULT NULL,
X_Program_Id NUMBER DEFAULT NULL,
X_Program_Update_Date DATE DEFAULT NULL,
X_Attribute_Category VARCHAR2 DEFAULT NULL,
X_Attribute1 VARCHAR2 DEFAULT NULL,
X_Attribute2 VARCHAR2 DEFAULT NULL,
X_Attribute3 VARCHAR2 DEFAULT NULL,
X_Attribute4 VARCHAR2 DEFAULT NULL,
X_Attribute5 VARCHAR2 DEFAULT NULL,
X_Attribute6 VARCHAR2 DEFAULT NULL,
X_Attribute7 VARCHAR2 DEFAULT NULL,
X_Attribute8 VARCHAR2 DEFAULT NULL,
X_Attribute9 VARCHAR2 DEFAULT NULL,
X_Attribute10 VARCHAR2 DEFAULT NULL,
X_Attribute11 VARCHAR2 DEFAULT NULL,
X_Attribute12 VARCHAR2 DEFAULT NULL,
X_Attribute13 VARCHAR2 DEFAULT NULL,
X_Attribute14 VARCHAR2 DEFAULT NULL,
X_Attribute15 VARCHAR2 DEFAULT NULL,
X_Capacity_Model_Id NUMBER DEFAULT NULL
) IS
CURSOR C IS SELECT rowid
FROM MRP_SCHEDULE_ITEMS
WHERE inventory_item_id = X_Inventory_Item_Id
AND schedule_designator = X_Schedule_Designator
AND organization_id = X_Organization_Id;
INSERT INTO MRP_SCHEDULE_ITEMS(
inventory_item_id,
organization_id,
schedule_designator,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login,
mps_explosion_level,
request_id,
program_application_id,
program_id,
program_update_date,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
capacity_model_id
) VALUES (
X_Inventory_Item_Id,
X_Organization_Id,
X_Schedule_Designator,
X_Last_Update_Date,
X_Last_Updated_By,
X_Creation_Date,
X_Created_By,
X_Last_Update_Login,
X_MPS_Explosion_Level,
X_Request_Id,
X_Program_Application_Id,
X_Program_Id,
X_Program_Update_Date,
X_Attribute_Category,
X_Attribute1,
X_Attribute2,
X_Attribute3,
X_Attribute4,
X_Attribute5,
X_Attribute6,
X_Attribute7,
X_Attribute8,
X_Attribute9,
X_Attribute10,
X_Attribute11,
X_Attribute12,
X_Attribute13,
X_Attribute14,
X_Attribute15,
X_Capacity_Model_Id
);
END Insert_Row;
X_Last_Update_Date DATE,
X_Last_Updated_By NUMBER,
X_Creation_Date DATE,
X_Created_By NUMBER,
X_Last_Update_Login NUMBER DEFAULT NULL,
X_MPS_Explosion_Level NUMBER DEFAULT NULL,
X_Request_Id NUMBER DEFAULT NULL,
X_Program_Application_Id NUMBER DEFAULT NULL,
X_Program_Id NUMBER DEFAULT NULL,
X_Program_Update_Date DATE DEFAULT NULL,
X_Attribute_Category VARCHAR2 DEFAULT NULL,
X_Attribute1 VARCHAR2 DEFAULT NULL,
X_Attribute2 VARCHAR2 DEFAULT NULL,
X_Attribute3 VARCHAR2 DEFAULT NULL,
X_Attribute4 VARCHAR2 DEFAULT NULL,
X_Attribute5 VARCHAR2 DEFAULT NULL,
X_Attribute6 VARCHAR2 DEFAULT NULL,
X_Attribute7 VARCHAR2 DEFAULT NULL,
X_Attribute8 VARCHAR2 DEFAULT NULL,
X_Attribute9 VARCHAR2 DEFAULT NULL,
X_Attribute10 VARCHAR2 DEFAULT NULL,
X_Attribute11 VARCHAR2 DEFAULT NULL,
X_Attribute12 VARCHAR2 DEFAULT NULL,
X_Attribute13 VARCHAR2 DEFAULT NULL,
X_Attribute14 VARCHAR2 DEFAULT NULL,
X_Attribute15 VARCHAR2 DEFAULT NULL,
X_Capacity_Model_Id NUMBER DEFAULT NULL
) IS
CURSOR C IS
SELECT *
FROM MRP_SCHEDULE_ITEMS
WHERE rowid = X_Rowid
FOR UPDATE of inventory_item_id NOWAIT;
PROCEDURE Update_Row(
X_Rowid VARCHAR2,
X_Inventory_Item_Id NUMBER,
X_Organization_Id NUMBER,
X_Schedule_Designator VARCHAR2,
X_Last_Update_Date DATE,
X_Last_Updated_By NUMBER,
X_Creation_Date DATE,
X_Created_By NUMBER,
X_Last_Update_Login NUMBER DEFAULT NULL,
X_MPS_Explosion_Level NUMBER DEFAULT NULL,
X_Request_Id NUMBER DEFAULT NULL,
X_Program_Application_Id NUMBER DEFAULT NULL,
X_Program_Id NUMBER DEFAULT NULL,
X_Program_Update_Date DATE DEFAULT NULL,
X_Attribute_Category VARCHAR2 DEFAULT NULL,
X_Attribute1 VARCHAR2 DEFAULT NULL,
X_Attribute2 VARCHAR2 DEFAULT NULL,
X_Attribute3 VARCHAR2 DEFAULT NULL,
X_Attribute4 VARCHAR2 DEFAULT NULL,
X_Attribute5 VARCHAR2 DEFAULT NULL,
X_Attribute6 VARCHAR2 DEFAULT NULL,
X_Attribute7 VARCHAR2 DEFAULT NULL,
X_Attribute8 VARCHAR2 DEFAULT NULL,
X_Attribute9 VARCHAR2 DEFAULT NULL,
X_Attribute10 VARCHAR2 DEFAULT NULL,
X_Attribute11 VARCHAR2 DEFAULT NULL,
X_Attribute12 VARCHAR2 DEFAULT NULL,
X_Attribute13 VARCHAR2 DEFAULT NULL,
X_Attribute14 VARCHAR2 DEFAULT NULL,
X_Attribute15 VARCHAR2 DEFAULT NULL,
X_Capacity_Model_Id NUMBER DEFAULT NULL
) IS
BEGIN
UPDATE MRP_SCHEDULE_ITEMS
SET
inventory_item_id = X_Inventory_Item_Id,
organization_id = X_Organization_Id,
schedule_designator = X_Schedule_Designator,
last_update_date = X_Last_Update_Date,
last_updated_by = X_Last_Updated_By,
creation_date = X_Creation_Date,
created_by = X_Created_By,
last_update_login = X_Last_Update_Login,
mps_explosion_level = X_MPS_Explosion_Level,
request_id = X_Request_Id,
program_application_id = X_Program_Application_Id,
program_id = X_Program_Id,
program_update_date = X_Program_Update_Date,
attribute_category = X_Attribute_Category,
attribute1 = X_Attribute1,
attribute2 = X_Attribute2,
attribute3 = X_Attribute3,
attribute4 = X_Attribute4,
attribute5 = X_Attribute5,
attribute6 = X_Attribute6,
attribute7 = X_Attribute7,
attribute8 = X_Attribute8,
attribute9 = X_Attribute9,
attribute10 = X_Attribute10,
attribute11 = X_Attribute11,
attribute12 = X_Attribute12,
attribute13 = X_Attribute13,
attribute14 = X_Attribute14,
attribute15 = X_Attribute15,
capacity_model_id = X_Capacity_Model_Id
WHERE rowid = X_rowid;
END Update_Row;
PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
BEGIN
DELETE FROM MRP_SCHEDULE_ITEMS
WHERE rowid = X_Rowid;
END Delete_Row;
SELECT msi.description,
msi.primary_uom_code,
NVL(msi.demand_time_fence_days,0),
NVL(msi.planning_time_fence_days,0),
DECODE(X_schedule_type,
1, DECODE(msi.demand_time_fence_days,
NULL, NULL,
cal2.calendar_date),
2, NULL),
DECODE(X_schedule_type,
1, NULL,
2, DECODE(msi.planning_time_fence_days,
NULL, NULL,
cal2.calendar_date)),
NVL(msi.repetitive_planning_flag,'N'),
msi.bom_item_type,
l1.meaning,
msi.mrp_planning_code,
l2.meaning
FROM MTL_SYSTEM_ITEMS msi,
BOM_CALENDAR_DATES cal2,
MTL_PARAMETERS param,
BOM_CALENDAR_DATES cal1,
MFG_LOOKUPS l1,
MFG_LOOKUPS l2
WHERE msi.organization_id = X_organization_id
AND msi.inventory_item_id = X_inventory_item_id
AND l1.lookup_type = 'BOM_ITEM_TYPE'
AND l1.lookup_code = msi.bom_item_type
AND l2.lookup_type(+) = 'MRP_PLANNING_CODE'
AND l2.lookup_code(+) = msi.mrp_planning_code
AND param.organization_id = msi.organization_id
AND cal2.exception_set_id = param.calendar_exception_set_id
AND cal2.calendar_code = param.calendar_code
AND cal2.seq_num = cal1.prior_seq_num +
DECODE(X_schedule_type,
1, NVL(msi.demand_time_fence_days, 0),
2, NVL(msi.planning_time_fence_days,0))
AND cal1.exception_set_id = param.calendar_exception_set_id
AND cal1.calendar_code = param.calendar_code
AND cal1.calendar_date = TRUNC(sysdate);
PROCEDURE Delete_Details(X_organization_id NUMBER,
X_schedule_designator VARCHAR2,
X_inventory_item_id NUMBER
) IS
BEGIN
DELETE
FROM mrp_schedule_dates
WHERE inventory_item_id = X_inventory_item_id
AND schedule_designator = X_schedule_designator
AND organization_id = X_organization_id;
END Delete_Details;
SELECT 1
INTO dummy
FROM dual
WHERE NOT EXISTS (SELECT 1
FROM mrp_schedule_items
WHERE inventory_item_id = X_inventory_item_id
AND schedule_designator = X_schedule_designator
AND organization_id = X_organization_id
AND ( (X_rowid IS NULL)
OR (rowid <> X_rowid) )
);