The following lines contain the word 'select', 'insert', 'update' or 'delete':
l_last_updated_by NUMBER := P_plsl_Rec.last_updated_by;
l_last_update_login NUMBER := P_plsl_Rec.last_update_login;
l_last_update_date DATE := P_plsl_Rec.last_update_date;
IF l_last_updated_by IS NULL THEN
l_last_updated_by := G_USER_ID;
IF l_last_update_login IS NULL THEN
l_last_update_login := G_LOGIN_ID;
IF l_last_update_date IS NULL THEN
l_last_update_date := sysdate;
CSP_PACKLIST_SERIAL_LOTS_PKG.Insert_Row(
px_PACKLIST_SERIAL_LOT_ID => x_PACKLIST_SERIAL_LOT_ID,
p_CREATED_BY => l_created_by,
p_CREATION_DATE => l_creation_date,
p_LAST_UPDATED_BY => l_last_updated_by,
p_LAST_UPDATE_DATE => l_last_update_date,
p_LAST_UPDATE_LOGIN => l_last_update_login,
p_PACKLIST_LINE_ID => p_plsl_rec.PACKLIST_LINE_ID,
p_ORGANIZATION_ID => p_plsl_rec.ORGANIZATION_ID,
p_INVENTORY_ITEM_ID => p_plsl_rec.INVENTORY_ITEM_ID,
p_QUANTITY => p_plsl_rec.QUANTITY,
p_LOT_NUMBER => p_plsl_rec.LOT_NUMBER,
p_SERIAL_NUMBER => p_plsl_rec.SERIAL_NUMBER);
PROCEDURE Update_pack_serial_lots(
P_Api_Version_Number IN NUMBER,
P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
P_Commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
P_Identity_Salesforce_Id IN NUMBER := NULL,
P_plsl_Rec IN plsl_Rec_Type,
X_Return_Status OUT NOCOPY VARCHAR2,
X_Msg_Count OUT NOCOPY NUMBER,
X_Msg_Data OUT NOCOPY VARCHAR2
)
IS
/*
Cursor C_Get_pack_serial_lots(PACKLIST_SERIAL_LOT_ID Number) IS
Select rowid,
PACKLIST_SERIAL_LOT_ID,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
PACKLIST_LINE_ID,
ORGANIZATION_ID,
INVENTORY_ITEM_ID,
QUANTITY,
LOT_NUMBER,
SERIAL_NUMBER
From CSP_PACKLIST_SERIAL_LOTS
-- Hint: Developer need to provide Where clause
For Update NOWAIT;
l_api_name CONSTANT VARCHAR2(30) := 'Update_pack_serial_lots';
SAVEPOINT UPDATE_Pack_Serial_Lots_PVT;
AS_CALLOUT_PKG.Update_pack_serial_lots_BU(
p_api_version_number => 2.0,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
p_validation_level => p_validation_level,
p_identity_salesforce_id => p_identity_salesforce_id,
P_plsl_Rec => P_plsl_Rec,
-- Hint: Add detail tables as parameter lists if it's master-detail relationship.
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: - Open Cursor to Select');
l_ref_plsl_rec.LAST_UPDATED_BY,
l_ref_plsl_rec.LAST_UPDATE_DATE,
l_ref_plsl_rec.LAST_UPDATE_LOGIN,
l_ref_plsl_rec.PACKLIST_LINE_ID,
l_ref_plsl_rec.ORGANIZATION_ID,
l_ref_plsl_rec.INVENTORY_ITEM_ID,
l_ref_plsl_rec.QUANTITY,
l_ref_plsl_rec.LOT_NUMBER,
l_ref_plsl_rec.SERIAL_NUMBER;
FND_MESSAGE.Set_Name('CSP', 'API_MISSING_UPDATE_TARGET');
If (l_tar_plsl_rec.last_update_date is NULL or
l_tar_plsl_rec.last_update_date = FND_API.G_MISS_Date ) Then
IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
THEN
FND_MESSAGE.Set_Name('CSP', 'API_MISSING_ID');
FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
If (l_tar_plsl_rec.last_update_date <> l_ref_plsl_rec.last_update_date) Then
IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
THEN
FND_MESSAGE.Set_Name('CSP', 'API_RECORD_CHANGED');
p_validation_mode => JTF_PLSQL_API.G_UPDATE,
P_plsl_Rec => P_plsl_Rec,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Calling update table handler');
CSP_PACKLIST_SERIAL_LOTS_PKG.Update_Row(
p_PACKLIST_SERIAL_LOT_ID => p_plsl_rec.PACKLIST_SERIAL_LOT_ID,
p_CREATED_BY => p_plsl_rec.CREATED_BY,
p_CREATION_DATE => p_plsl_rec.CREATION_DATE,
p_LAST_UPDATED_BY => p_plsl_rec.LAST_UPDATED_BY,
p_LAST_UPDATE_DATE => p_plsl_rec.LAST_UPDATE_DATE,
p_LAST_UPDATE_LOGIN => p_plsl_rec.LAST_UPDATE_LOGIN,
p_PACKLIST_LINE_ID => p_plsl_rec.PACKLIST_LINE_ID,
p_ORGANIZATION_ID => p_plsl_rec.ORGANIZATION_ID,
p_INVENTORY_ITEM_ID => p_plsl_rec.INVENTORY_ITEM_ID,
p_QUANTITY => p_plsl_rec.QUANTITY,
p_LOT_NUMBER => p_plsl_rec.LOT_NUMBER,
p_SERIAL_NUMBER => p_plsl_rec.SERIAL_NUMBER);
AS_CALLOUT_PKG.Update_pack_serial_lots_AU(
p_api_version_number => 2.0,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
p_validation_level => p_validation_level,
p_identity_salesforce_id => p_identity_salesforce_id,
P_plsl_Rec => P_plsl_Rec,
-- Hint: Add detail tables as parameter lists if it's master-detail relationship.
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
End Update_pack_serial_lots;
PROCEDURE Delete_pack_serial_lots(
P_Api_Version_Number IN NUMBER,
P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
P_Commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
P_identity_salesforce_id IN NUMBER := NULL,
P_plsl_Rec IN plsl_Rec_Type,
X_Return_Status OUT NOCOPY VARCHAR2,
X_Msg_Count OUT NOCOPY NUMBER,
X_Msg_Data OUT NOCOPY VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Delete_pack_serial_lots';
SAVEPOINT DELETE_Pack_Serial_Lots_PVT;
AS_CALLOUT_PKG.Delete_pack_serial_lots_BD(
p_api_version_number => 2.0,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
p_validation_level => p_validation_level,
p_identity_salesforce_id => p_identity_salesforce_id,
P_plsl_Rec => P_plsl_Rec,
-- Hint: Add detail tables as parameter lists if it's master-detail relationship.
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Calling delete table handler');
CSP_PACKLIST_SERIAL_LOTS_PKG.Delete_Row(
p_PACKLIST_SERIAL_LOT_ID => p_plsl_rec.PACKLIST_SERIAL_LOT_ID);
AS_CALLOUT_PKG.Delete_pack_serial_lots_AD(
p_api_version_number => 2.0,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
p_validation_level => p_validation_level,
p_identity_salesforce_id => p_identity_salesforce_id,
P_plsl_Rec => P_plsl_Rec,
-- Hint: Add detail tables as parameter lists if it's master-detail relationship.
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
End Delete_pack_serial_lots;
PROCEDURE Gen_Select(
x_select_cl OUT NOCOPY VARCHAR2
)
IS
BEGIN
-- Debug Message
JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Generate Select Begins');
x_select_cl := 'Select ' ||
'CSP_PACKLIST_SERIAL_LOTS_V.ROW_ID,' ||
'CSP_PACKLIST_SERIAL_LOTS_V.PACKLIST_SERIAL_LOT_ID,' ||
'CSP_PACKLIST_SERIAL_LOTS_V.CREATED_BY,' ||
'CSP_PACKLIST_SERIAL_LOTS_V.CREATION_DATE,' ||
'CSP_PACKLIST_SERIAL_LOTS_V.LAST_UPDATED_BY,' ||
'CSP_PACKLIST_SERIAL_LOTS_V.LAST_UPDATE_DATE,' ||
'CSP_PACKLIST_SERIAL_LOTS_V.LAST_UPDATE_LOGIN,' ||
'CSP_PACKLIST_SERIAL_LOTS_V.PACKLIST_LINE_ID,' ||
'CSP_PACKLIST_SERIAL_LOTS_V.ORGANIZATION_ID,' ||
'CSP_PACKLIST_SERIAL_LOTS_V.INVENTORY_ITEM_ID,' ||
'CSP_PACKLIST_SERIAL_LOTS_V.QUANTITY,' ||
'CSP_PACKLIST_SERIAL_LOTS_V.LOT_NUMBER,' ||
'CSP_PACKLIST_SERIAL_LOTS_V.SERIAL_NUMBER,' ||
'from CSP_PACKLIST_SERIAL_LOTS_V';
JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Private API: Generate Select Ends');
END Gen_Select;
SELECT INSTR(p_rec_item, '%', 1, 1)
FROM DUAL;
SELECT INSTR(p_rec_item, '_', 1, 1)
FROM DUAL;
ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
THEN
-- Hint: Validate data
-- IF p_PACKLIST_SERIAL_LOT_ID <> G_MISS_CHAR
-- verify if data is valid
-- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
THEN
-- Hint: Validate data
-- IF p_PACKLIST_LINE_ID <> G_MISS_CHAR
-- verify if data is valid
-- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
THEN
-- Hint: Validate data
-- IF p_ORGANIZATION_ID <> G_MISS_CHAR
-- verify if data is valid
-- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
THEN
-- Hint: Validate data
-- IF p_INVENTORY_ITEM_ID <> G_MISS_CHAR
-- verify if data is valid
-- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
THEN
-- Hint: Validate data
-- IF p_QUANTITY <> G_MISS_CHAR
-- verify if data is valid
-- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
THEN
-- Hint: Validate data
-- IF p_LOT_NUMBER <> G_MISS_CHAR
-- verify if data is valid
-- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
ELSIF(p_validation_mode = JTF_PLSQL_API.G_UPDATE)
THEN
-- Hint: Validate data
-- IF p_SERIAL_NUMBER <> G_MISS_CHAR
-- verify if data is valid
-- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;