The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT transaction_action_id
INTO p_transaction_action_id
FROM mtl_transaction_types
WHERE transaction_type_id = to_number(fnd_profile.value_specific('CS_FIELD_SERVICE_TRANSACTION_TYPE'));
Procedure Insert_Mtl_Interface_Records (
P_Detail_Txn_Id IN NUMBER,
P_Estimate_Id IN NUMBER,
P_Estimate_Detail_Id IN NUMBER,
P_Organization_Id IN NUMBER,
P_Inventory_Item_Id IN NUMBER,
P_Uom_Code IN VARCHAR2,
P_Quantity IN NUMBER,
P_Revision IN VARCHAR2,
p_serial_number IN VARCHAR2,
p_lot_number IN NUMBER,
P_Subinventory_Code IN VARCHAR2,
P_Locator_Id IN NUMBER,
p_transaction_type_id IN NUMBER) IS
CURSOR Mtl_Txn_Details IS
SELECT Transaction_Source_Type_Id,
Transaction_Action_Id
FROM MTL_TRANSACTION_TYPES
WHERE TRANSACTION_TYPE_ID = p_transaction_Type_Id;
SELECT Cost_Of_Sales_Account
FROM MTL_SYSTEM_ITEMS
WHERE Inventory_Item_Id = P_Inventory_Item_Id
AND Organization_Id = P_Organization_Id;
SELECT Mtl_Material_Transactions_S.NextVal
INTO l_transaction_interface_id
FROM DUAL;
Insert into MTL_TRANSACTIONS_INTERFACE (
Transaction_Interface_Id,
Source_Code, Organization_Id,
Source_Line_Id, Source_Header_Id,
Process_flag, Transaction_Mode,
Lock_Flag, Last_Update_Date,
Last_Updated_By, Creation_Date,
Created_By, Last_Update_Login,
Inventory_Item_Id, Revision,
Transaction_Quantity,
Transaction_UOM, Transaction_Date,
Subinventory_Code, Locator_Id,
Transaction_Source_Type_Id, Transaction_Action_Id,
Transaction_Type_Id,
Transaction_Reference, Distribution_Account_Id)
Values (
l_transaction_interface_Id,
'SERVICE', p_organization_id,
p_Estimate_Detail_Id, p_estimate_id,
1, 3,
2, sysdate,
l_user_id, sysdate,
l_user_id, l_login_id,
p_inventory_Item_id, p_revision,
l_quantity, p_uom_code,
sysdate,
p_subinventory_code, p_locator_id,
l_transaction_source_type_id,
l_transaction_action_id, p_transaction_type_id,
p_estimate_id, l_cost_of_sales_account);
Insert into MTL_Transaction_Lots_Interface(
Transaction_Interface_Id, Source_Code,
Source_Line_Id, Lot_Number,
Transaction_Quantity,
Serial_Transaction_Temp_Id, Last_Update_Date,
Last_Updated_By, Creation_Date,
Created_By, Last_Update_Login,
Process_Flag)
Values(
l_transaction_interface_Id, 'SERVICE',
p_Estimate_Detail_Id, p_lot_number,
-1,
l_serial_number_ref, sysdate,
l_user_id, sysdate,
l_user_id, l_login_id,
1);
Insert into Mtl_Serial_Numbers_Interface (
Transaction_Interface_Id, Source_Code,
Source_Line_Id, Last_Update_Date,
Last_Updated_By, Creation_Date,
Created_By, Last_Update_Login,
Fm_Serial_Number, Process_Flag)
Values(
l_transaction_interface_Id, 'SERVICE',
p_Estimate_Detail_Id, sysdate,
l_user_id, sysdate,
l_user_id, l_login_id,
p_serial_number, 1);
Update Cs_Est_Details_Mtl_Txns
Set Interface_to_Inventory_Flag = 'Y'
Where Detail_Transaction_Id = p_Detail_Txn_Id;
End Insert_Mtl_Interface_Records ;