The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Update_Label(
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_Label_Rec IN Ibc_Labels_GRP.Label_Rec_Type,
X_Return_Status OUT NOCOPY VARCHAR2,
X_Msg_Count OUT NOCOPY NUMBER,
X_Msg_Data OUT NOCOPY VARCHAR2
);
SELECT Label_Code
FROM ibc_Labels_b
WHERE Label_Code = p_Label_Code;
Ibc_Labels_Pkg.insert_row (
x_rowid => lx_rowid,
p_Label_CODE => l_Label_rec.Label_CODE,
p_Label_NAME => l_Label_rec.Label_NAME,
p_CREATED_BY => l_Label_rec.CREATED_BY,
p_CREATION_DATE => l_Label_rec.CREATION_DATE,
p_DESCRIPTION => l_Label_rec.DESCRIPTION,
p_LAST_UPDATED_BY => l_Label_rec.LAST_UPDATED_BY,
p_LAST_UPDATE_DATE => l_Label_rec.LAST_UPDATE_DATE,
p_LAST_UPDATE_LOGIN => l_Label_rec.LAST_UPDATE_LOGIN,
p_OBJECT_VERSION_NUMBER => l_Label_rec.OBJECT_VERSION_NUMBER
);
FND_MESSAGE.Set_Name('IBC', 'IBC_INSERT_ERROR');
PROCEDURE Update_Labels(
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_Label_Tbl IN Ibc_Labels_GRP.Label_Tbl_Type := Ibc_Labels_GRP.G_Miss_Label_Tbl,
x_Label_Tbl OUT NOCOPY Ibc_Labels_GRP.Label_Tbl_Type,
X_Return_Status OUT NOCOPY VARCHAR2,
X_Msg_Count OUT NOCOPY NUMBER,
X_Msg_Data OUT NOCOPY VARCHAR2
)
IS
l_temp CHAR(1);
l_api_name VARCHAR2(50) := 'Update_Label';
Update_Label(
P_Api_Version_Number =>P_Api_Version_Number,
P_Init_Msg_List =>P_Init_Msg_List,
P_Commit =>P_Commit,
P_Validation_Level =>FND_API.G_VALID_LEVEL_FULL,
P_Label_Rec =>l_Label_Tbl(i),
X_Return_Status =>X_Return_Status,
X_Msg_Count =>X_Msg_Count,
X_Msg_Data =>X_Msg_Data);
FND_MESSAGE.Set_Name('IBC', 'IBC_UPDATE_ERROR');
END Update_Labels;
PROCEDURE delete_Label(
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_Label_Code IN VARCHAR2,
X_Return_Status OUT NOCOPY VARCHAR2,
X_Msg_Count OUT NOCOPY NUMBER,
X_Msg_Data OUT NOCOPY VARCHAR2
)
IS
CURSOR C_Label IS
SELECT
Label_Code
FROM ibc_Labels_b
WHERE Label_Code = p_Label_Code;
l_api_name VARCHAR2(50) := 'Delete_Label';
FND_MESSAGE.Set_Name('IBC', 'Cannot Find Record to be Deleted');
Ibc_Labels_Pkg.delete_row (
p_Label_code =>p_Label_code
);
Ibc_Labels_Pkg.DELETE_ROW (
p_Label_CODE =>p_Label_CODE);
FND_MESSAGE.Set_Name('IBC', 'IBC_DELETE_ERROR');
END delete_Label;
PROCEDURE Update_Label(
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_Label_Rec IN Ibc_Labels_GRP.Label_Rec_Type,
X_Return_Status OUT NOCOPY VARCHAR2,
X_Msg_Count OUT NOCOPY NUMBER,
X_Msg_Data OUT NOCOPY VARCHAR2
)
IS
CURSOR C_Label(p_Label_Code IN VARCHAR2) IS
SELECT Label_Code
FROM ibc_Labels_b
WHERE Label_Code = p_Label_Code;
l_api_name VARCHAR2(50) := 'Update_Label';
Ibc_Labels_Pkg.Update_row (
p_Label_CODE => l_Label_rec.Label_CODE,
p_Label_NAME => l_Label_rec.Label_NAME,
p_DESCRIPTION => l_Label_rec.DESCRIPTION,
p_LAST_UPDATED_BY => l_Label_rec.LAST_UPDATED_BY,
p_LAST_UPDATE_DATE => l_Label_rec.LAST_UPDATE_DATE,
p_LAST_UPDATE_LOGIN => l_Label_rec.LAST_UPDATE_LOGIN,
p_OBJECT_VERSION_NUMBER => l_Label_rec.OBJECT_VERSION_NUMBER
);
END Update_Label;
PROCEDURE delete_Label(
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_Label_Rec IN Ibc_Labels_GRP.Label_Rec_Type,
X_Return_Status OUT NOCOPY VARCHAR2,
X_Msg_Count OUT NOCOPY NUMBER,
X_Msg_Data OUT NOCOPY VARCHAR2
)
IS
CURSOR C_Label(p_Label_Code IN VARCHAR2) IS
SELECT Label_Code
FROM ibc_Labels_b
WHERE Label_Code = p_Label_Code;
l_api_name VARCHAR2(50) := 'delete_Label';
Ibc_Labels_Pkg.delete_row (
p_Label_code =>l_Label_rec.Label_code);
END delete_Label;
SELECT
Label_CODE
,CREATED_BY
,CREATION_DATE
,LAST_UPDATED_BY
,LAST_UPDATE_DATE
,LAST_UPDATE_LOGIN
,OBJECT_VERSION_NUMBER
,Label_NAME
,DESCRIPTION
INTO
l_Label_Rec.Label_CODE ,
l_Label_Rec.CREATED_BY ,
l_Label_Rec.CREATION_DATE ,
l_Label_Rec.LAST_UPDATED_BY ,
l_Label_Rec.LAST_UPDATE_DATE ,
l_Label_Rec.LAST_UPDATE_LOGIN ,
l_Label_Rec.OBJECT_VERSION_NUMBER ,
l_Label_Rec.Label_NAME ,
l_Label_Rec.DESCRIPTION
FROM IBC_LabelS_VL
WHERE Label_code = p_Label_code;