The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Update_Functional_Area(
p_Api_Version IN NUMBER
,p_Commit IN VARCHAR2 := FND_API.G_FALSE
,p_Func_Area_Rec IN BIS_FUNCTIONAL_AREA_PUB.Functional_Area_Rec_Type
,x_Return_Status OUT NOCOPY VARCHAR2
,x_Msg_Count OUT NOCOPY NUMBER
,x_Msg_Data OUT NOCOPY VARCHAR2
) IS
l_Count NUMBER;
SAVEPOINT UpdateFuncAreaSP;
,p_Action_Type => C_UPDATE
,x_Return_Status => x_Return_Status
,x_Msg_Count => x_Msg_Count
,x_Msg_Data => x_Msg_Data
);
BIS_FUNCTIONAL_AREA_PVT.Update_Functional_Area(
p_Api_Version => 1.0
,p_Commit => p_Commit
,p_Func_Area_Rec => p_Func_Area_Rec
,x_Return_Status => x_Return_Status
,x_Msg_Count => x_Msg_Count
,x_Msg_Data => x_Msg_Data
);
ROLLBACK TO UpdateFuncAreaSP;
ROLLBACK TO UpdateFuncAreaSP;
ROLLBACK TO UpdateFuncAreaSP;
x_msg_data := x_msg_data||' -> BIS_FUNCTIONAL_AREA_PUB.Update_Functional_Area ';
x_msg_data := SQLERRM||' at BIS_FUNCTIONAL_AREA_PUB.Update_Functional_Area ';
ROLLBACK TO UpdateFuncAreaSP;
x_msg_data := x_msg_data||' -> BIS_FUNCTIONAL_AREA_PUB.Update_Functional_Area ';
x_msg_data := SQLERRM||' at BIS_FUNCTIONAL_AREA_PUB.Update_Functional_Area ';
END Update_Functional_Area;
,p_Action_Type => C_UPDATE
,x_Return_Status => x_Return_Status
,x_Msg_Count => x_Msg_Count
,x_Msg_Data => x_Msg_Data
);
IF (FND_LOAD_UTIL.UPLOAD_TEST(p_Func_Area_Rec.Last_Updated_By
, p_Func_Area_Rec.Last_Update_Date
, l_Func_Area_Rec.Last_Updated_By
, l_Func_Area_Rec.Last_Update_Date
, NULL)) THEN
BIS_FUNCTIONAL_AREA_PUB.Update_Functional_Area(
p_Api_Version => 1.0
,p_Commit => p_Commit
,p_Func_Area_Rec => p_Func_Area_Rec
,x_Return_Status => x_Return_Status
,x_Msg_Count => x_Msg_Count
,x_Msg_Data => x_Msg_Data
);
PROCEDURE Update_Func_Area_Apps_Dep (
p_Api_Version IN NUMBER
,p_Commit IN VARCHAR2 := FND_API.G_FALSE
,p_Functional_Area_Id IN NUMBER
,p_Application_Id IN NUMBER
,x_Return_Status OUT NOCOPY VARCHAR2
,x_Msg_Count OUT NOCOPY NUMBER
,x_Msg_Data OUT NOCOPY VARCHAR2
) IS
l_Count NUMBER;
SAVEPOINT UpdateFuncAreaAppDepSP;
,p_Action_Type => C_UPDATE
,x_Return_Status => x_Return_Status
,x_Msg_Count => x_Msg_Count
,x_Msg_Data => x_Msg_Data
);
BIS_FUNCTIONAL_AREA_PVT.Update_Func_Area_Apps_Dep (
p_Api_Version => 1.0
,p_Commit => p_Commit
,p_Functional_Area_Id => p_Functional_Area_Id
,p_Application_Id => p_Application_Id
,x_Return_Status => x_Return_Status
,x_Msg_Count => x_Msg_Count
,x_Msg_Data => x_Msg_Data
);
ROLLBACK TO UpdateFuncAreaAppDepSP;
ROLLBACK TO UpdateFuncAreaAppDepSP;
ROLLBACK TO UpdateFuncAreaAppDepSP;
x_msg_data := x_msg_data||' -> BIS_FUNCTIONAL_AREA_PUB.Update_Func_Area_Apps_Dep ';
x_msg_data := SQLERRM||' at BIS_FUNCTIONAL_AREA_PUB.Update_Func_Area_Apps_Dep ';
ROLLBACK TO UpdateFuncAreaAppDepSP;
x_msg_data := x_msg_data||' -> BIS_FUNCTIONAL_AREA_PUB.Update_Func_Area_Apps_Dep ';
x_msg_data := SQLERRM||' at BIS_FUNCTIONAL_AREA_PUB.Update_Func_Area_Apps_Dep ';
END Update_Func_Area_Apps_Dep;
SELECT COUNT(1) INTO l_Count
FROM BIS_FUNC_AREA_APP_DEPENDENCY
WHERE FUNCTIONAL_AREA_ID = l_Func_Area_App_Dep_Rec.Functional_Area_Id
AND APPLICATION_ID = l_Func_Area_App_Dep_Rec.Application_Id;
BIS_FUNCTIONAL_AREA_PUB.Update_Func_Area_Apps_Dep (
p_Api_Version => 1.0
,p_Commit => p_Commit
,p_Functional_Area_Id => l_Func_Area_App_Dep_Rec.Functional_Area_Id
,p_Application_Id => l_Func_Area_App_Dep_Rec.Application_Id
,x_Return_Status => x_Return_Status
,x_Msg_Count => x_Msg_Count
,x_Msg_Data => x_Msg_Data
);
SELECT COUNT(1) INTO l_Count
FROM BIS_FUNCTIONAL_AREAS
WHERE UPPER(SHORT_NAME) = UPPER(p_Func_Area_Rec.Short_Name);
ELSIF(p_Action_Type = C_UPDATE OR p_Action_Type = C_RETRIEVE OR p_Action_Type = C_DELETE) THEN
/*
IF (p_Func_Area_Rec.Functional_Area_Id IS NULL) THEN
FND_MESSAGE.SET_NAME('BIS','BIS_FUNC_ID_NOT_ENTERED');
SELECT COUNT(1) INTO l_Count
FROM BIS_FUNCTIONAL_AREAS_VL
WHERE SHORT_NAME = p_Func_Area_Rec.Short_Name;
SELECT COUNT(1) INTO l_Count
FROM BIS_FUNCTIONAL_AREAS
WHERE FUNCTIONAL_AREA_ID = p_Functional_Area_Id;
SELECT COUNT(1) INTO l_Count
FROM FND_APPLICATION
WHERE APPLICATION_ID = p_Application_Id;
SELECT COUNT(1) INTO l_Count
FROM BIS_FUNC_AREA_APP_DEPENDENCY
WHERE FUNCTIONAL_AREA_ID = p_Functional_Area_Id
AND APPLICATION_ID = p_Application_Id;
SELECT COUNT(1) INTO l_Count
FROM BIS_FUNC_AREA_APP_DEPENDENCY
WHERE APPLICATION_ID = p_Application_Id;
ELSIF(p_Action_Type = C_UPDATE OR p_Action_Type = C_DELETE) THEN
SELECT COUNT(1) INTO l_Count
FROM BIS_FUNC_AREA_APP_DEPENDENCY
WHERE FUNCTIONAL_AREA_ID = p_Functional_Area_Id
AND APPLICATION_ID = p_Application_Id;
/*SELECT (NVL(MAX(FUNCTIONAL_AREA_ID), 0)+1)
INTO l_Max_Id
FROM BIS_FUNCTIONAL_AREAS;
SELECT BIS_FUNC_AREA_ID_S.NEXTVAL
INTO l_next
FROM DUAL;
SELECT FUNCTIONAL_AREA_ID
INTO l_FA_Id
FROM BIS_FUNCTIONAL_AREAS
WHERE UPPER(SHORT_NAME) = UPPER(p_Functional_Area_Short_Name);
PROCEDURE Delete_Functional_Area(
p_Api_Version IN NUMBER
,p_Commit IN VARCHAR2 := FND_API.G_FALSE
,p_Func_Area_Rec IN BIS_FUNCTIONAL_AREA_PUB.Functional_Area_Rec_Type
,x_Return_Status OUT NOCOPY VARCHAR2
,x_Msg_Count OUT NOCOPY NUMBER
,x_Msg_Data OUT NOCOPY VARCHAR2
) IS
l_Func_Area_Rec BIS_FUNCTIONAL_AREA_PUB.Functional_Area_Rec_Type;
SELECT B.FUNCTIONAL_AREA_ID,
B.APPLICATION_ID
FROM BIS_FUNC_AREA_APP_DEPENDENCY B
WHERE B.FUNCTIONAL_AREA_ID = l_Func_Area_Rec.Functional_Area_Id;
SAVEPOINT DeleteFuncAreaSP;
,p_Action_Type => C_DELETE
,x_Return_Status => x_Return_Status
,x_Msg_Count => x_Msg_Count
,x_Msg_Data => x_Msg_Data
);
BIS_FUNCTIONAL_AREA_PVT.Delete_Functional_Area(
p_Api_Version => 1.0
,p_Commit => p_Commit
,p_Func_Area_Rec => l_Func_Area_Rec
,x_Return_Status => x_Return_Status
,x_Msg_Count => x_Msg_Count
,x_Msg_Data => x_Msg_Data
);
ROLLBACK TO DeleteFuncAreaSP;
ROLLBACK TO DeleteFuncAreaSP;
ROLLBACK TO DeleteFuncAreaSP;
x_msg_data := x_msg_data||' -> BIS_FUNCTIONAL_AREA_PUB.Delete_Functional_Area ';
x_msg_data := SQLERRM||' at BIS_FUNCTIONAL_AREA_PUB.Delete_Functional_Area ';
ROLLBACK TO DeleteFuncAreaSP;
x_msg_data := x_msg_data||' -> BIS_FUNCTIONAL_AREA_PUB.Delete_Functional_Area ';
x_msg_data := SQLERRM||' at BIS_FUNCTIONAL_AREA_PUB.Delete_Functional_Area ';
END Delete_Functional_Area;
,p_Action_Type => C_DELETE
,x_Return_Status => x_Return_Status
,x_Msg_Count => x_Msg_Count
,x_Msg_Data => x_Msg_Data
);