The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE INSERT_ITEM_TECHNICAL_DATA_HDR
(
p_api_version IN NUMBER
, p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
, p_commit IN VARCHAR2 := FND_API.G_FALSE
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
, x_tech_data_id IN OUT NOCOPY NUMBER
, p_organization_id IN NUMBER
, p_inventory_item_id IN NUMBER
, p_lot_no IN VARCHAR2
, p_lot_organization_id IN NUMBER
, p_formula_id IN NUMBER
, p_batch_id IN NUMBER
, p_delete_mark IN NUMBER
, p_text_code IN NUMBER
, p_creation_date IN DATE
, p_created_by IN NUMBER
, p_last_update_date IN DATE
, p_last_updated_by IN NUMBER
, p_last_update_login IN NUMBER
) IS
l_api_name CONSTANT VARCHAR2(40) := 'Insert_Item_Technical_Data_hdr';
SAVEPOINT Insert_Item_Technical_Data ;
SELECT GMD_TECH_DATA_ID_S.NEXTVAL
INTO l_tech_data_id
FROM FND_DUAL;
INSERT INTO GMD_TECHNICAL_DATA_HDR (
TECH_DATA_ID,
INVENTORY_ITEM_ID,
ORGANIZATION_ID,
LOT_ORGANIZATION_ID,
LOT_NUMBER,
FORMULA_ID,
BATCH_ID,
DELETE_MARK,
TEXT_CODE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) VALUES (
x_tech_data_id,
p_inventory_item_id,
p_organization_id,
p_lot_organization_id,
p_lot_no,
p_formula_id,
p_batch_id,
p_delete_mark,
p_text_code,
p_creation_date,
p_created_by,
p_last_update_date,
p_last_updated_by,
p_last_update_login
);
ROLLBACK TO Insert_Item_Technical_Data;
FND_MSG_PUB.Add_Exc_Msg('GMD_ITEM_TECHNICAL_DATA_PVT', 'INSERT_ITEM_TECHNICAL_DATA_HDR');
END INSERT_ITEM_TECHNICAL_DATA_HDR;
PROCEDURE INSERT_ITEM_TECHNICAL_DATA_DTL
(
p_api_version IN NUMBER
, p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
, p_commit IN VARCHAR2 := FND_API.G_FALSE
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
, x_tech_data_id IN OUT NOCOPY NUMBER
, x_tech_parm_id IN OUT NOCOPY NUMBER
, p_sort_seq IN NUMBER
, p_text_data IN VARCHAR2
, p_num_data IN NUMBER
, p_boolean_data IN NUMBER
, p_text_code IN NUMBER
, p_creation_date IN DATE
, p_created_by IN NUMBER
, p_last_update_date IN DATE
, p_last_updated_by IN NUMBER
, p_last_update_login IN NUMBER
) IS
l_api_name CONSTANT VARCHAR2(30) := 'Insert_Item_Technical_Data_dtl';
SAVEPOINT Insert_Item_Technical_Data ;
INSERT INTO GMD_TECHNICAL_DATA_DTL (
TECH_DATA_ID,
TECH_PARM_ID,
SORT_SEQ,
TEXT_DATA,
NUM_DATA,
BOOLEAN_DATA,
TEXT_CODE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) VALUES (
x_tech_data_id,
x_tech_parm_id,
p_sort_seq,
p_text_data,
p_num_data,
p_boolean_data,
p_text_code,
p_creation_date,
p_created_by,
p_last_update_date,
p_last_updated_by,
p_last_update_login
);
ROLLBACK TO Insert_Item_Technical_Data;
FND_MSG_PUB.Add_Exc_Msg('GMD_ITEM_TECHNICAL_DATA_PVT', 'INSERT_ITEM_TECHNICAL_DATA_DTL');
END INSERT_ITEM_TECHNICAL_DATA_DTL;
PROCEDURE UPDATE_ITEM_TECHNICAL_DATA
(
p_api_version IN NUMBER
, p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
, p_commit IN VARCHAR2 := FND_API.G_FALSE
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
, p_tech_data_id IN NUMBER
, x_tech_parm_id IN OUT NOCOPY NUMBER
, p_sort_seq IN NUMBER
, p_text_data IN VARCHAR2
, p_num_data IN NUMBER
, p_boolean_data IN NUMBER
, p_text_code IN NUMBER
, p_last_update_date IN DATE
, p_last_updated_by IN NUMBER
, p_last_update_login IN NUMBER
)IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_Item_Technical_Data';
SAVEPOINT Update_Item_Technical_Data ;
UPDATE gmd_technical_data_dtl
SET SORT_SEQ = p_sort_seq
, TEXT_DATA = p_text_data
, NUM_DATA = p_num_data
, BOOLEAN_DATA = p_boolean_data
, TEXT_CODE = p_text_code
, LAST_UPDATED_BY = p_last_updated_by
, LAST_UPDATE_LOGIN = p_last_update_login
, LAST_UPDATE_DATE = p_last_update_date
WHERE TECH_DATA_ID = p_tech_data_id
AND TECH_PARM_ID = x_tech_parm_id;
ROLLBACK TO Insert_Item_Technical_Data;
FND_MSG_PUB.Add_Exc_Msg('GMD_ITEM_TECHNICAL_DATA_PVT', 'UPDATE_ITEM_TECHNICAL_DATA');
END UPDATE_ITEM_TECHNICAL_DATA;
PROCEDURE DELETE_ITEM_TECHNICAL_DATA
(
p_api_version IN NUMBER
, p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
, p_commit IN VARCHAR2 := FND_API.G_FALSE
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
, p_tech_data_id IN NUMBER
) IS
l_api_name CONSTANT VARCHAR2(30) := 'Delete_Item_Technical_Data';
SAVEPOINT Delete_Item_Technical_Data ;
UPDATE gmd_technical_data_hdr
SET DELETE_MARK = 1
,LAST_UPDATED_BY = FND_GLOBAL.USER_ID
,LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
,LAST_UPDATE_DATE = SYSDATE
WHERE TECH_DATA_ID = p_tech_data_id;
ROLLBACK TO Delete_Item_Technical_Data;
FND_MSG_PUB.Add_Exc_Msg('GMD_ITEM_TECHNICAL_DATA_PVT', 'DELETE_ITEM_TECHNICAL_DATA');
END DELETE_ITEM_TECHNICAL_DATA;
SELECT tech_data_id
FROM gmd_technical_data_hdr h
WHERE h.inventory_item_id = p_header_rec.inventory_item_id
AND h.organization_id = p_header_rec.organization_id
AND (h.lot_number = p_header_rec.Lot_Number OR p_header_rec.Lot_Number IS NULL)
AND (h.lot_organization_id = p_header_rec.lot_organization_id OR p_header_rec.lot_organization_id IS NULL)
AND (h.formula_id = p_header_rec.formula_id OR p_header_rec.formula_id IS NULL)
AND (h.batch_id = p_header_rec.batch_id OR p_header_rec.batch_id IS NULL)
AND h.tech_data_id IS NOT NULL;
SELECT tech_parm_id, text_code, text_data, num_data, boolean_data, sort_seq
FROM gmd_technical_data_dtl
WHERE tech_data_id = l_tech_data_id;
SELECT data_type
FROM gmd_tech_parameters_b
WHERE tech_parm_id = l_tech_parm_id
AND (organization_id = l_orgn_id OR organization_id IS NULL);