The following lines contain the word 'select', 'insert', 'update' or 'delete':
DESCRIPTION :- This basically updates the properties for form functions
This can be called from UI directly also
AUTHOR :- KRISHNA
*********************************************************************************************/
PROCEDURE Translate_Form_Func_Extension(
p_Api_Version IN NUMBER
,p_Commit IN VARCHAR2
,p_Form_Func_Extn_Rec IN BIS_OBJECT_EXTENSIONS_PUB.Form_Function_Extension_Type
,x_Return_Status OUT NOCOPY VARCHAR2
,x_Msg_Count OUT NOCOPY NUMBER
,x_Msg_Data OUT NOCOPY VARCHAR2
)IS
l_Commit VARCHAR2(30);
FUNCTION Name :- Update_Form_Func_Extension
PARAMETERS :-
p_Form_Func_Extn_Rec :- The Details of form function sent from UI for update
DESCRIPTION :- This basically updates the properties for form functions
This can be called from UI also
AUTHOR :- KRISHNA
*********************************************************************************************/
PROCEDURE Update_Form_Func_Extension(
p_Api_Version IN NUMBER
,p_Commit IN VARCHAR2
,p_Form_Func_Extn_Rec IN BIS_OBJECT_EXTENSIONS_PUB.Form_Function_Extension_Type
,x_Return_Status OUT NOCOPY VARCHAR2
,x_Msg_Count OUT NOCOPY NUMBER
,x_Msg_Data OUT NOCOPY VARCHAR2
)IS
l_Commit VARCHAR2(30);
SAVEPOINT UpdateFormFuncPSP;
, p_Action_Type => BIS_OBJECT_EXTENSIONS_PUB.C_UPDATE
, x_Return_Status => x_Return_Status
, x_Msg_Count => x_Msg_Count
, x_Msg_Data => x_Msg_Data
);
BIS_OBJECT_EXTENSIONS_PVT.Update_Form_Func_Extension(
p_Api_Version => p_Api_Version
, p_Commit => p_Commit
, p_Form_Func_Extn_Rec => p_Form_Func_Extn_Rec
, x_Return_Status => x_Return_Status
, x_Msg_Count => x_Msg_Count
, x_Msg_Data => x_Msg_Data
);
ROLLBACK TO UpdateFormFuncPSP;
ROLLBACK TO UpdateFormFuncPSP;
ROLLBACK TO UpdateFormFuncPSP;
x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PUB.Update_Form_Func_Extension ';
x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PUB.Update_Form_Func_Extension ';
ROLLBACK TO UpdateFormFuncPSP;
x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PUB.Update_Form_Func_Extension ';
x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PUB.Update_Form_Func_Extension ';
END Update_Form_Func_Extension;
IF (FND_LOAD_UTIL.UPLOAD_TEST(p_Form_Func_Extn_Rec.Last_Updated_By
, p_Form_Func_Extn_Rec.Last_Update_Date
, l_Form_Func_Extn_Rec.Last_Updated_By
, l_Form_Func_Extn_Rec.Last_Update_Date
, p_Custom_mode)) THEN
l_Form_Func_Extn_Rec := p_Form_Func_Extn_Rec;
BIS_OBJECT_EXTENSIONS_PUB.Update_Form_Func_Extension(
p_Api_Version => p_Api_Version
, p_Commit => p_Commit
, p_Form_Func_Extn_Rec => l_Form_Func_Extn_Rec
, x_Return_Status => x_Return_Status
, x_Msg_Count => x_Msg_Count
, x_Msg_Data => x_Msg_Data
);
FUNCTION Name :- Delete_Form_Func_Extension
PARAMETERS :-
p_Form_Func_Extn_Rec :- The properites of Form function
DESCRIPTION :- This is the main function that is being called from ldt/UI
And this calls relevant APIs
AUTHOR :- KRISHNA
*********************************************************************************************/
PROCEDURE Delete_Form_Func_Extension(
p_Api_Version IN NUMBER
, p_Commit IN VARCHAR2
, p_Form_Func_Extn_Rec IN BIS_OBJECT_EXTENSIONS_PUB.Form_Function_Extension_Type
, x_Return_Status OUT NOCOPY VARCHAR2
, x_Msg_Count OUT NOCOPY NUMBER
, x_Msg_Data OUT NOCOPY VARCHAR2
)IS
l_Commit VARCHAR2(30);
SAVEPOINT DeleteFormFuncPSP;
, p_Action_Type => BIS_OBJECT_EXTENSIONS_PUB.C_DELETE
, x_Return_Status => x_Return_Status
, x_Msg_Count => x_Msg_Count
, x_Msg_Data => x_Msg_Data
);
BIS_OBJECT_EXTENSIONS_PVT.Delete_Form_Func_Extension(
p_Api_Version => p_Api_Version
, p_Commit => p_Commit
, p_Form_Func_Extn_Rec => p_Form_Func_Extn_Rec
, x_Return_Status => x_Return_Status
, x_Msg_Count => x_Msg_Count
, x_Msg_Data => x_Msg_Data
);
ROLLBACK TO DeleteFormFuncPSP;
ROLLBACK TO DeleteFormFuncPSP;
ROLLBACK TO DeleteFormFuncPSP;
x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PUB.Delete_Form_Func_Extension ';
x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PUB.Delete_Form_Func_Extension ';
ROLLBACK TO DeleteFormFuncPSP;
x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PUB.Delete_Form_Func_Extension ';
x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PUB.Delete_Form_Func_Extension ';
END Delete_Form_Func_Extension;
PROCEDURE Update_Measure_Extension(
p_Api_Version IN NUMBER
,p_Commit IN VARCHAR2
,p_Meas_Extn_Rec IN BIS_OBJECT_EXTENSIONS_PUB.Measure_Extension_Type
,x_Return_Status OUT NOCOPY VARCHAR2
,x_Msg_Count OUT NOCOPY NUMBER
,x_Msg_Data OUT NOCOPY VARCHAR2
) IS
BEGIN
SAVEPOINT UpdateMeasExtnPSP;
,p_Action_Type => BIS_OBJECT_EXTENSIONS_PUB.C_UPDATE
,x_Return_Status => x_Return_Status
,x_Msg_Count => x_Msg_Count
,x_Msg_Data => x_Msg_Data
);
BIS_OBJECT_EXTENSIONS_PVT.Update_Measure_Extension(
p_Api_Version => p_Api_Version
,p_Commit => p_Commit
,p_Meas_Extn_Rec => p_Meas_Extn_Rec
,x_Return_Status => x_Return_Status
,x_Msg_Count => x_Msg_Count
,x_Msg_Data => x_Msg_Data
);
ROLLBACK TO UpdateMeasExtnPSP;
ROLLBACK TO UpdateMeasExtnPSP;
ROLLBACK TO UpdateMeasExtnPSP;
x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PUB.Update_Measure_Extension ';
x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PUB.Update_Measure_Extension ';
ROLLBACK TO UpdateMeasExtnPSP;
x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PUB.Update_Measure_Extension ';
x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PUB.Update_Measure_Extension ';
END Update_Measure_Extension;
IF (FND_LOAD_UTIL.UPLOAD_TEST(p_Meas_Extn_Rec.Last_Updated_By
, p_Meas_Extn_Rec.Last_Update_Date
, l_Meas_Extn_Rec.Last_Updated_By
, l_Meas_Extn_Rec.Last_Update_Date
, p_Custom_mode)) THEN
--dbms_output.put_line('UPLDOATE SUCESS I AM GOING TO UPDATE FOR MEASURES' );
BIS_OBJECT_EXTENSIONS_PUB.Update_Measure_Extension(
p_Api_Version => p_Api_Version
,p_Commit => p_Commit
,p_Meas_Extn_Rec => l_Mes_up_Rec
,x_Return_Status => x_Return_Status
,x_Msg_Count => x_Msg_Count
,x_Msg_Data => x_Msg_Data
);
FUNCTION Name :- Delete_Measure_Extension
PARAMETERS :-
p_Form_Func_Extn_Rec:- The Record containing all the vlaues of form function tables
DESCRIPTION :- This fucntions takes care of all validations based on action type
AUTHOR :- KRISHNA
*********************************************************************************************/
PROCEDURE Delete_Measure_Extension(
p_Api_Version IN NUMBER
,p_Commit IN VARCHAR2
,p_Meas_Extn_Rec IN BIS_OBJECT_EXTENSIONS_PUB.Measure_Extension_Type
,x_Return_Status OUT NOCOPY VARCHAR2
,x_Msg_Count OUT NOCOPY NUMBER
,x_Msg_Data OUT NOCOPY VARCHAR2
) IS
l_Commit VARCHAR2(30);
SAVEPOINT DeleteMeasExtnPSP;
,p_Action_Type => C_DELETE
,x_Return_Status => x_Return_Status
,x_Msg_Count => x_Msg_Count
,x_Msg_Data => x_Msg_Data
);
BIS_OBJECT_EXTENSIONS_PVT.Delete_Measure_Extension(
p_Api_Version => p_Api_Version
,p_Commit => p_Commit
,p_Meas_Extn_Rec => p_Meas_Extn_Rec
,x_Return_Status => x_Return_Status
,x_Msg_Count => x_Msg_Count
,x_Msg_Data => x_Msg_Data
);
ROLLBACK TO DeleteMeasExtnPSP;
ROLLBACK TO DeleteMeasExtnPSP;
ROLLBACK TO DeleteMeasExtnPSP;
x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PUB.Delete_Measure_Extension ';
x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PUB.Delete_Measure_Extension ';
ROLLBACK TO DeleteMeasExtnPSP;
x_msg_data := x_msg_data||' -> BIS_OBJECT_EXTENSIONS_PUB.Delete_Measure_Extension ';
x_msg_data := SQLERRM||' at BIS_OBJECT_EXTENSIONS_PUB.Delete_Measure_Extension ';
END Delete_Measure_Extension;
SELECT FUNCTIONAL_AREA_ID
INTO l_FA_Id
FROM BIS_FUNCTIONAL_AREAS
WHERE UPPER(SHORT_NAME) = UPPER(Trim(p_Functional_Area_Short_Name));
IF(p_Action_Type = BIS_OBJECT_EXTENSIONS_PUB.C_UPDATE OR p_Action_Type = BIS_OBJECT_EXTENSIONS_PUB.C_CREATE) THEN
IF(Trim(l_Meas_Extn_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 B
WHERE B.FUNCTIONAL_AREA_ID = p_Meas_Extn_Rec.Functional_Area_Id;
SELECT COUNT(1) INTO l_Count
FROM BIS_MEASURES_EXTENSION
WHERE UPPER(MEASURE_SHORT_NAME) = UPPER(Trim(l_Meas_Extn_Rec.Measure_Short_Name));
ELSIF (p_Action_Type = C_UPDATE) THEN
IF (l_Count = 0) THEN
FND_MESSAGE.SET_NAME('BIS','BIS_SHORT_NAME_NOT_EXISTS');
SELECT COUNT(1)
INTO l_Count
FROM BIS_FUNCTIONAL_AREAS
WHERE UPPER(SHORT_NAME) = UPPER(TRIM(l_Meas_Extn_Rec.Func_Area_Short_Name));
ELSIF (p_Action_Type = C_RETRIEVE OR p_Action_Type = C_DELETE OR p_Action_Type = C_TRANS) THEN
IF (l_Count = 0) THEN
FND_MESSAGE.SET_NAME('BIS','BIS_SHORT_NAME_NOT_EXISTS');
p_Action_Type :- Action type this can be either CREATE or UPDATE
p_Form_Func_Extn_Rec:- The Record containing all the vlaues of form function tables
DESCRIPTION :- This fucntions takes care of all validations based on action type
AUTHOR :- KRISHNA
*********************************************************************************************/
PROCEDURE Validate_Form_Func_Extension(
p_Form_Func_Extn_Rec IN BIS_OBJECT_EXTENSIONS_PUB.Form_Function_Extension_Type
,p_Action_Type IN VARCHAR2
,x_Return_Status OUT NOCOPY VARCHAR2
,x_Msg_Count OUT NOCOPY NUMBER
,x_Msg_Data OUT NOCOPY VARCHAR2
) IS
l_Count NUMBER;
SELECT COUNT(1)
INTO l_cnt_sht_name
FROM BIS_FORM_FUNCTION_EXTENSION
WHERE UPPER(OBJECT_NAME) = UPPER(TRIM(p_Form_Func_Extn_Rec.Object_Name));
SELECT COUNT(1)
INTO l_cnt_func_id
FROM BIS_FUNCTIONAL_AREAS
WHERE FUNCTIONAL_AREA_ID = p_Form_Func_Extn_Rec.Func_Area_Id;
IF(p_Action_Type = BIS_OBJECT_EXTENSIONS_PUB.C_UPDATE) THEN
IF(l_cnt_sht_name = 0 ) THEN
FND_MESSAGE.SET_NAME('BIS','BIS_FORM_FUNC_SHTNAME_NOTEXIST');
IF(p_Action_Type = BIS_OBJECT_EXTENSIONS_PUB.C_UPDATE OR p_Action_Type = BIS_OBJECT_EXTENSIONS_PUB.C_CREATE) THEN
IF(Trim(p_Form_Func_Extn_Rec.Func_Area_Id) IS NULL) THEN
FND_MESSAGE.SET_NAME('BIS','BIS_FUNC_ID_NOT_ENTERED');
SELECT COUNT(1)
INTO l_cnt_app_id
FROM FND_APPLICATION
WHERE APPLICATION_ID = p_Form_Func_Extn_Rec.Application_Id;
SELECT COUNT(1)
INTO l_cnt_func_id
FROM BIS_FUNCTIONAL_AREAS
WHERE SHORT_NAME = p_Form_Func_Extn_Rec.Func_Area_short_name;
IF(p_Action_Type = BIS_OBJECT_EXTENSIONS_PUB.C_TRANS OR p_Action_Type = BIS_OBJECT_EXTENSIONS_PUB.C_DELETE OR p_Action_Type = BIS_OBJECT_EXTENSIONS_PUB.C_RETRIEVE) THEN
IF(l_cnt_sht_name = 0 ) THEN
FND_MESSAGE.SET_NAME('BIS','BIS_FORM_FUNC_SHTNAME_NOTEXIST');
SELECT COUNT(0)
INTO l_count
FROM BIS_FORM_FUNCTION_EXTENSION
WHERE UPPER(TRIM(object_name)) = UPPER(TRIM(p_object_name));
SELECT COUNT(0)
INTO l_count
FROM BIS_MEASURES_EXTENSION
WHERE UPPER(TRIM(measure_short_name)) = UPPER(TRIM(p_object_name));
update the object type with the new functional Area Id.
3.If the Functional Area Id is passed as NULL and the association exists
for the current Objevt Type then delete that association.
AUTHOR : Ashankar
*********************************************************************************************/
PROCEDURE Measure_Funct_Area_Map
(
p_Api_Version IN NUMBER
, p_Commit IN VARCHAR2 := FND_API.G_FALSE
, p_Obj_Type IN VARCHAR2
, p_Obj_Name IN VARCHAR2
, p_App_Id IN NUMBER
, p_Func_Area_Sht_Name IN VARCHAR2
, x_Return_Status OUT NOCOPY VARCHAR2
, x_Msg_Count OUT NOCOPY NUMBER
, x_Msg_Data OUT NOCOPY VARCHAR2
)IS
l_count NUMBER;
l_Meas_Extn_Rec.Last_Updated_By := FND_GLOBAL.user_id;
l_Meas_Extn_Rec.Last_Update_Date := SYSDATE;
l_Meas_Extn_Rec.Last_Update_Login := FND_GLOBAL.LOGIN_ID;
BIS_OBJECT_EXTENSIONS_PUB.Update_Measure_Extension
(
p_Api_Version => p_Api_Version
, p_Commit => p_Commit
, p_Meas_Extn_Rec => l_Meas_Extn_Rec
, x_Return_Status => x_Return_Status
, x_Msg_Count => x_Msg_Count
, x_Msg_Data => x_Msg_Data
);
FND_MESSAGE.SET_NAME('BIS','BIS_OBJ_EXT_UPDATE_SUCCESSFUL');
BIS_OBJECT_EXTENSIONS_PUB.Delete_Measure_Extension
(
p_Api_Version => p_Api_Version
, p_Commit => p_Commit
, p_Meas_Extn_Rec => l_Meas_Extn_Rec
, x_Return_Status => x_Return_Status
, x_Msg_Count => x_Msg_Count
, x_Msg_Data => x_Msg_Data
);
FND_MESSAGE.SET_NAME('BIS','BIS_OBJ_EXT_DELETE_SUCCESSFUL');
l_Meas_Extn_Rec.Last_Updated_By := FND_GLOBAL.user_id;
l_Meas_Extn_Rec.Last_Update_Date := SYSDATE;
l_Meas_Extn_Rec.Last_Update_Login := FND_GLOBAL.LOGIN_ID;
update the object type with the new functional Area Id.
3.If the Functional Area Id is passed as NULL and the association exists
for the current Objevt Type then delete that association.
AUTHOR : Ashankar
*********************************************************************************************/
PROCEDURE Form_Func_Functional_Area_Map
(
p_Api_Version IN NUMBER
, p_Commit IN VARCHAR2 := FND_API.G_FALSE
, p_Obj_Type IN VARCHAR2
, p_Obj_Name IN VARCHAR2
, p_App_Id IN NUMBER
, p_Func_Area_Sht_Name IN VARCHAR2
, x_Return_Status OUT NOCOPY VARCHAR2
, x_Msg_Count OUT NOCOPY NUMBER
, x_Msg_Data OUT NOCOPY VARCHAR2
)IS
l_count NUMBER;
l_From_Func_Extn_Rec.Last_Updated_By := FND_GLOBAL.user_id;
l_From_Func_Extn_Rec.Last_Update_Date := SYSDATE;
l_From_Func_Extn_Rec.Last_Update_Login := FND_GLOBAL.LOGIN_ID;
BIS_OBJECT_EXTENSIONS_PUB.Update_Form_Func_Extension
(
p_Api_Version => p_Api_Version
, p_Commit => p_Commit
, p_Form_Func_Extn_Rec => l_From_Func_Extn_Rec
, x_Return_Status => x_Return_Status
, x_Msg_Count => x_Msg_Count
, x_Msg_Data => x_Msg_Data
);
FND_MESSAGE.SET_NAME('BIS','BIS_OBJ_EXT_UPDATE_SUCCESSFUL');
BIS_OBJECT_EXTENSIONS_PUB.Delete_Form_Func_Extension
(
p_Api_Version => p_Api_Version
, p_Commit => p_Commit
, p_Form_Func_Extn_Rec => l_From_Func_Extn_Rec
, x_Return_Status => x_Return_Status
, x_Msg_Count => x_Msg_Count
, x_Msg_Data => x_Msg_Data
);
FND_MESSAGE.SET_NAME('BIS','BIS_OBJ_EXT_DELETE_SUCCESSFUL');
l_From_Func_Extn_Rec.Last_Updated_By := FND_GLOBAL.user_id;
l_From_Func_Extn_Rec.Last_Update_Date := SYSDATE;
l_From_Func_Extn_Rec.Last_Update_Login := FND_GLOBAL.LOGIN_ID;