The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
X_ROWID in out NOCOPY VARCHAR2,
X_USER_ID in NUMBER,
X_FUNCTION_ID in out NOCOPY VARCHAR2,
X_WEB_HTML_CALL in VARCHAR2,
X_FUNCTION_NAME in VARCHAR2,
X_PARAMETERS in VARCHAR2,
X_TYPE in VARCHAR2,
X_USER_FUNCTION_NAME in VARCHAR2,
X_DESCRIPTION in VARCHAR2) is
l_new_function_id NUMBER;
select FND_FORM_FUNCTIONS_S.NEXTVAL into l_new_function_id from dual;
FND_FORM_FUNCTIONS_PKG.INSERT_ROW(
X_ROWID => X_ROWID,
X_FUNCTION_ID => l_new_function_id,
X_WEB_HOST_NAME => null,
X_WEB_AGENT_NAME => null,
X_WEB_HTML_CALL => X_WEB_HTML_CALL,
X_WEB_ENCRYPT_PARAMETERS => c_WEB_ENCRYPT_PARAMETERS,
X_WEB_SECURED => c_WEB_SECURED,
X_WEB_ICON => null,
X_OBJECT_ID => null,
X_REGION_APPLICATION_ID => null,
X_REGION_CODE => null,
X_FUNCTION_NAME => upper(X_FUNCTION_NAME),
X_APPLICATION_ID => null,
X_FORM_ID => null,
X_PARAMETERS => X_PARAMETERS,
X_TYPE => X_TYPE,
X_USER_FUNCTION_NAME => X_USER_FUNCTION_NAME,
X_DESCRIPTION => X_DESCRIPTION,
X_CREATION_DATE => sysdate,
X_CREATED_BY => X_USER_ID,
X_LAST_UPDATE_DATE => sysdate,
X_LAST_UPDATED_BY => X_USER_ID,
X_LAST_UPDATE_LOGIN => X_USER_ID,
X_MAINTENANCE_MODE_SUPPORT => NULL,
X_CONTEXT_DEPENDENCE => NULL);
end INSERT_ROW;
procedure INSERT_ROW (
p_FUNCTION_NAME in VARCHAR2
,p_WEB_HTML_CALL in VARCHAR2
,p_PARAMETERS in VARCHAR2
,p_TYPE in VARCHAR2
,p_USER_FUNCTION_NAME in VARCHAR2
,p_DESCRIPTION in VARCHAR2 := NULL
,x_FUNCTION_ID OUT NOCOPY NUMBER
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
,p_REGION_CODE in VARCHAR2 := BIS_COMMON_UTILS.G_DEF_CHAR
,p_REGION_APPLICATION_ID in NUMBER := BIS_COMMON_UTILS.G_DEF_NUM
,p_APPLICATION_ID in NUMBER := BIS_COMMON_UTILS.G_DEF_NUM
,p_OBJECT_TYPE in VARCHAR2 := BIS_COMMON_UTILS.G_DEF_CHAR
,p_FUNCTIONAL_AREA_ID in NUMBER := BIS_COMMON_UTILS.G_DEF_NUM
) is
l_rowid VARCHAR2(30);
select FND_FORM_FUNCTIONS_S.NEXTVAL into l_new_function_id from dual;
FND_FORM_FUNCTIONS_PKG.INSERT_ROW(
X_ROWID => l_ROWID,
X_FUNCTION_ID => l_new_function_id,
X_WEB_HOST_NAME => null,
X_WEB_AGENT_NAME => null,
X_WEB_HTML_CALL => p_WEB_HTML_CALL,
X_WEB_ENCRYPT_PARAMETERS => c_WEB_ENCRYPT_PARAMETERS,
X_WEB_SECURED => c_WEB_SECURED,
X_WEB_ICON => null,
X_OBJECT_ID => null,
X_REGION_APPLICATION_ID => l_region_application_id,
X_REGION_CODE => l_region_code,
X_FUNCTION_NAME => upper(p_FUNCTION_NAME),
X_APPLICATION_ID => null,
X_FORM_ID => null,
X_PARAMETERS => p_PARAMETERS,
X_TYPE => p_TYPE,
X_USER_FUNCTION_NAME => p_USER_FUNCTION_NAME,
X_DESCRIPTION => p_DESCRIPTION,
X_CREATION_DATE => sysdate,
X_CREATED_BY => fnd_global.user_id,
X_LAST_UPDATE_DATE => sysdate,
X_LAST_UPDATED_BY => fnd_global.user_id,
X_LAST_UPDATE_LOGIN => fnd_global.user_id,
X_MAINTENANCE_MODE_SUPPORT => NULL,
X_CONTEXT_DEPENDENCE => NULL);
x_msg_data := 'BIS_FORM_FUNCTIONS_PUB.INSERT_ROW: ' || SQLERRM;
end INSERT_ROW;
procedure UPDATE_ROW (
X_USER_ID in NUMBER,
X_FUNCTION_ID in NUMBER,
X_PARAMETERS in VARCHAR2,
X_DESCRIPTION in VARCHAR2) is
l_formFunction_rec FormFunction_Rec_Type;
select function_name,
user_function_name,
type,
web_html_call,
web_host_name,
web_agent_name,
web_encrypt_parameters,
web_secured,
web_icon,
object_id,
region_application_id,
region_code,
application_id,
form_id,
maintenance_mode_support,
context_dependence
from fnd_form_functions_vl
where function_id = X_FUNCTION_ID;
FND_FORM_FUNCTIONS_PKG.UPDATE_ROW(
X_FUNCTION_ID => X_FUNCTION_ID,
X_WEB_HOST_NAME => l_formFunction_rec.web_host_name,
X_WEB_AGENT_NAME => l_formFunction_rec.web_agent_name,
X_WEB_HTML_CALL => l_formFunction_rec.web_html_call,
X_WEB_ENCRYPT_PARAMETERS => l_formFunction_rec.web_encrypt_parameters,
X_WEB_SECURED => l_formFunction_rec.web_secured,
X_WEB_ICON => l_formFunction_rec.web_icon,
X_OBJECT_ID => l_formFunction_rec.object_id,
X_REGION_APPLICATION_ID => l_formFunction_rec.region_application_id,
X_REGION_CODE => l_formFunction_rec.region_code,
X_FUNCTION_NAME => l_formFunction_rec.function_name,
X_APPLICATION_ID => l_formFunction_rec.application_id,
X_FORM_ID => l_formFunction_rec.form_id,
X_PARAMETERS => X_PARAMETERS,
X_TYPE => l_formFunction_rec.type,
X_USER_FUNCTION_NAME => l_formFunction_rec.user_function_name,
X_DESCRIPTION => X_DESCRIPTION,
X_LAST_UPDATE_DATE => sysdate,
X_LAST_UPDATED_BY => X_USER_ID,
X_LAST_UPDATE_LOGIN => X_USER_ID,
X_MAINTENANCE_MODE_SUPPORT => l_formFunction_rec.maintenance_mode_support,
X_CONTEXT_DEPENDENCE => l_formFunction_rec.context_dependence);
end UPDATE_ROW;
PROCEDURE UPDATE_ROW (
p_FUNCTION_ID IN NUMBER
,p_USER_FUNCTION_NAME IN VARCHAR2 := BIS_COMMON_UTILS.G_DEF_CHAR
,p_PARAMETERS IN VARCHAR2 := BIS_COMMON_UTILS.G_DEF_CHAR
,p_DESCRIPTION IN VARCHAR2 := BIS_COMMON_UTILS.G_DEF_CHAR
,p_WEB_HTML_CALL IN VARCHAR2 := BIS_COMMON_UTILS.G_DEF_CHAR
,p_APPLICATION_ID IN NUMBER := BIS_COMMON_UTILS.G_DEF_NUM
,p_OBJECT_TYPE IN VARCHAR2 := BIS_COMMON_UTILS.G_DEF_CHAR
,p_FUNCTIONAL_AREA_ID IN NUMBER := BIS_COMMON_UTILS.G_DEF_NUM
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
,p_REGION_CODE IN VARCHAR2 := NULL
,p_REGION_APPLICATION_ID IN NUMBER := NULL
) IS
l_formFunction_rec FormFunction_Rec_Type;
select function_name,
type,
web_html_call,
web_host_name,
web_agent_name,
web_encrypt_parameters,
web_secured,
web_icon,
object_id,
region_application_id,
region_code,
application_id,
form_id,
maintenance_mode_support,
context_dependence,
user_function_name,
description,
parameters
from fnd_form_functions_vl
where function_id = p_FUNCTION_ID;
l_formFunction_rec.region_code := p_REGION_CODE; --We need to update with null even in update case
FND_FORM_FUNCTIONS_PKG.UPDATE_ROW(
X_FUNCTION_ID => p_FUNCTION_ID,
X_WEB_HOST_NAME => l_formFunction_rec.web_host_name,
X_WEB_AGENT_NAME => l_formFunction_rec.web_agent_name,
X_WEB_HTML_CALL => l_formFunction_rec.web_html_call,
X_WEB_ENCRYPT_PARAMETERS => l_formFunction_rec.web_encrypt_parameters,
X_WEB_SECURED => l_formFunction_rec.web_secured,
X_WEB_ICON => l_formFunction_rec.web_icon,
X_OBJECT_ID => l_formFunction_rec.object_id,
X_REGION_APPLICATION_ID => l_formFunction_rec.region_application_id,
X_REGION_CODE => l_formFunction_rec.region_code,
X_FUNCTION_NAME => l_formFunction_rec.function_name,
X_APPLICATION_ID => l_formFunction_rec.application_id,
X_FORM_ID => l_formFunction_rec.form_id,
X_PARAMETERS => l_formFunction_rec.parameters,
X_TYPE => l_formFunction_rec.type,
X_USER_FUNCTION_NAME => l_formFunction_rec.user_function_name,
X_DESCRIPTION => l_formFunction_rec.description,
X_LAST_UPDATE_DATE => sysdate,
X_LAST_UPDATED_BY => fnd_global.user_id,
X_LAST_UPDATE_LOGIN => fnd_global.user_id,
X_MAINTENANCE_MODE_SUPPORT => l_formFunction_rec.maintenance_mode_support,
X_CONTEXT_DEPENDENCE => l_formFunction_rec.context_dependence);
select function_name into l_function_name
from fnd_form_functions_vl
where function_id = p_FUNCTION_ID;
select count(1) into l_count from bis_form_function_extension where upper(object_name) = upper(l_function_name);
BIS_OBJECT_EXTENSIONS_PUB.Update_Form_Func_Extension(
p_Api_Version => 1.0
, p_Commit => FND_API.G_FALSE
, 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);
x_msg_data := 'BIS_FORM_FUNCTIONS_PUB.UPDATE_ROW: ' || SQLERRM;
end UPDATE_ROW;
PROCEDURE DELETE_ROW (
p_FUNCTION_ID in VARCHAR2
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
) IS
l_function_name FND_FORM_FUNCTIONS.FUNCTION_NAME%TYPE;
select function_name into l_function_name
from fnd_form_functions
where function_id = p_function_id;
FND_FORM_FUNCTIONS_PKG.DELETE_ROW(
X_FUNCTION_ID => p_FUNCTION_ID
);
select count(1) into l_count from bis_form_function_extension where object_name = l_function_name;
BIS_OBJECT_EXTENSIONS_PUB.Delete_Form_Func_Extension(
p_Api_Version => 1.0
, p_Commit => FND_API.G_FALSE
, 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);
x_msg_data := 'BIS_FORM_FUNCTIONS_PUB.DELETE_ROW: ' || SQLERRM;
END DELETE_ROW;
PROCEDURE DELETE_FUNCTION_AND_MENU_ENT
(p_function_name IN VARCHAR2
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_function_id fnd_form_functions.function_id%TYPE;
SELECT function_id
FROM fnd_form_functions
WHERE function_name = p_function_name;
SELECT menu_id, entry_sequence
FROM fnd_menu_entries
WHERE function_id = p_function_id;
/* Also delete the menu entries corresponding to this function */
if c_menu_entries%ISOPEN then
CLOSE c_menu_entries;
bis_menu_entries_pub.delete_row(x_menu_id=>mentry.menu_id,
x_entry_sequence => mentry.entry_sequence,
x_return_status=> x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
delete_row(p_function_id => l_function_id,
x_return_status=> x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
x_msg_data := 'BIS_FORM_FUNCTIONS_PUB.DELETE_FUNCTION_AND_MENU_ENT: ' || SQLERRM;
END DELETE_FUNCTION_AND_MENU_ENT;
PROCEDURE DELETE_ROW_FUNC_MENUENTRIES (
p_FUNCTION_ID in VARCHAR2
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
) IS
l_return_status VARCHAR2(40);
select menu_id, entry_sequence
from fnd_menu_entries
where function_id = p_FUNCTION_ID;
BIS_MENU_ENTRIES_PUB.DELETE_ROW (X_MENU_ID => ent_seq_menu_cur.menu_id,
X_ENTRY_SEQUENCE => ent_seq_menu_cur.entry_sequence,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data);
FND_FORM_FUNCTIONS_PKG.DELETE_ROW(
X_FUNCTION_ID => p_FUNCTION_ID
);
x_msg_data := 'BIS_FORM_FUNCTIONS_PUB.DELETE_ROW_FUNC_MENUENTRIES: ' || SQLERRM;
END DELETE_ROW_FUNC_MENUENTRIES;
, p_last_update_date IN VARCHAR2
, x_record_status OUT NOCOPY VARCHAR2
) IS
l_last_update_date date;
cursor cFunction is select last_update_date
from fnd_form_functions
where function_id = p_function_id
for update of function_id nowait;
FETCH cFunction INTO l_last_update_date;
x_record_status := BIS_FORM_FUNCTIONS_PUB.c_RECORD_DELETED;
if p_last_update_date is not null then
if p_last_update_date <> TO_CHAR(l_last_update_date, BIS_FORM_FUNCTIONS_PUB.C_LAST_UPDATE_DATE_FORMAT) then
x_record_status := BIS_FORM_FUNCTIONS_PUB.c_RECORD_CHANGED;
PROCEDURE UPDATE_FUNCTION_MENU_PROMPTS
(p_function_id IN NUMBER
,p_user_function_name IN VARCHAR2
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
)
IS
CURSOR menu_crsr (p_function_id fnd_menu_entries.function_id%TYPE) IS
SELECT menu_id, entry_sequence
FROM fnd_menu_entries
WHERE function_id = p_function_id;
BIS_MENU_ENTRIES_PUB.UPDATE_PROMPT (
X_USER_ID => fnd_global.user_id,
X_MENU_ID => rec.menu_id,
X_OLD_ENTRY_SEQUENCE => rec.entry_sequence,
X_FUNCTION_ID => p_function_id,
X_PROMPT => p_user_function_name);
x_msg_data := 'BIS_FORM_FUNCTIONS_PUB.UPDATE_FUNCTION_MENU_PROMPTS: ' || SQLERRM;
END UPDATE_FUNCTION_MENU_PROMPTS;
PROCEDURE Update_Form_Func_Obsolete_Flag (
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_func_name IN VARCHAR2,
p_obsolete IN VARCHAR2,
x_return_status OUT nocopy VARCHAR2,
x_Msg_Count OUT NOCOPY NUMBER,
x_msg_data OUT nocopy VARCHAR2
) IS
l_form_func_parameters FND_FORM_FUNCTIONS_VL.PARAMETERS%TYPE;
SAVEPOINT FormFunctionObsoleteUpdate;
SELECT function_id,parameters,description
INTO l_form_function_id,l_form_func_parameters,l_form_func_description
FROM fnd_form_functions_vl
WHERE function_name = p_func_name;
BIS_FORM_FUNCTIONS_PUB.UPDATE_ROW(
X_USER_ID => FND_GLOBAL.USER_ID,
X_FUNCTION_ID => l_form_function_id,
X_PARAMETERS => l_form_func_parameters,
X_DESCRIPTION => l_form_func_description
);
ROLLBACK TO FormFunctionObsoleteUpdate;
x_msg_data := x_msg_data||' -> BIS_FORM_FUNCTIONS_PUB.Update_Form_Func_Obsolete_Flag ';
x_msg_data := SQLERRM||' at BIS_FORM_FUNCTIONS_PUB.Update_Form_Func_Obsolete_Flag ';
END Update_Form_Func_Obsolete_Flag;
FND_MESSAGE.SET_NAME('BIS','BIS_HTML_PORTLET_DELETE');