The following lines contain the word 'select', 'insert', 'update' or 'delete':
| DESCRIPTION: Use this package to insert,lock,update and delete |
| records from the table CST_PAC_ITEM_COSTS |
| |
| PROCEDURE LIST: |
| PROCEDURE Insert_row, |
| PROCEDURE Lock_row, |
| PROCEDURE Update_row, |
| PROCEDURE Delete_row |
| |
| HISTORY: |
| 02/15/99 Tatiana Simmonds Created |
+=======================================================================*/
--======================================================================
--CONSTANTS
--======================================================================
G_PKG_NAME CONSTANT VARCHAR2(30) :='CST_PAC_ITEM_COSTS_PKG';
PROCEDURE Insert_row (
p_row_id IN OUT NOCOPY VARCHAR2
, p_pac_period_id NUMBER
, p_cost_group_id NUMBER
, p_inventory_item_id NUMBER
, p_item_cost NUMBER
, p_market_value NUMBER
, p_justification VARCHAR2
, p_creation_date DATE
, p_created_by NUMBER
)
IS
CURSOR C IS
SELECT
rowid
FROM
CST_PAC_ITEM_COSTS
WHERE pac_period_id=p_pac_period_id
AND cost_group_id=p_cost_group_id
AND inventory_item_id=p_inventory_item_id;
INSERT
INTO cst_pac_item_costs
( pac_period_id
, cost_group_id
, inventory_item_id
, item_cost
, market_value
, justification
, creation_date
, created_by
)
VALUES
( p_pac_period_id
, p_cost_group_id
, p_inventory_item_id
, p_item_cost
, p_market_value
, p_justification
, p_creation_date
, p_created_by
);
FND_MSG_PUB.Add_exc_msg(G_PKG_NAME,'Insert_row');
END Insert_row;
SELECT *
FROM CST_PAC_ITEM_COSTS
WHERE ROWID=CHARTOROWID(p_row_id)
FOR UPDATE OF market_value NOWAIT;
FND_MESSAGE.Set_name('FND', 'FORM_RECORD_DELETED');
PROCEDURE Update_row (
p_row_id VARCHAR2
, p_item_cost NUMBER
, p_market_value NUMBER
, p_justification VARCHAR2
, p_last_update_date DATE
, p_last_updated_by NUMBER
)
IS
BEGIN
UPDATE CST_PAC_ITEM_COSTS
SET
item_cost=p_item_cost
,market_value=p_market_value
,justification=p_justification
,last_update_date=p_last_update_date
,last_updated_by=p_last_updated_by
WHERE ROWID=CHARTOROWID(p_row_id);
FND_MSG_PUB.Add_exc_msg(G_PKG_NAME,'Update_row');
END Update_Row;
PROCEDURE Delete_row (
p_row_id VARCHAR2)
IS
BEGIN
DELETE
FROM CST_PAC_ITEM_COSTS
WHERE ROWID=p_row_id;
FND_MSG_PUB.Add_exc_msg(G_PKG_NAME,'Delete_row');
END Delete_row;