The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 'Y' FROM FND_RESPONSIBILITY
WHERE application_id = p_appl_id
AND responsibility_key = p_resp_key;
SELECT fnd_responsibility_s.nextval
INTO l_resp_id
FROM dual;
FND_RESPONSIBILITY_PKG.INSERT_ROW(
X_ROWID => l_rowid,
X_RESPONSIBILITY_ID => l_resp_id,
X_APPLICATION_ID => p_appl_id,
X_WEB_HOST_NAME => NULL,
X_WEB_AGENT_NAME => NULL,
X_DATA_GROUP_APPLICATION_ID => p_appl_id,
X_DATA_GROUP_ID => 0,
X_MENU_ID => p_menu_id,
X_START_DATE => p_start_date,
X_END_DATE => p_end_date,
X_GROUP_APPLICATION_ID => NULL,
X_REQUEST_GROUP_ID => NULL,
X_VERSION => 'W',
X_RESPONSIBILITY_KEY => p_resp_key,
X_RESPONSIBILITY_NAME => p_resp_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.LOGIN_ID);
PROCEDURE Update_Responsibility
( 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_resp_id IN NUMBER,
p_appl_id IN NUMBER,
p_last_update_date IN DATE,
p_menu_id IN NUMBER,
p_start_date IN DATE,
p_end_date IN DATE,
p_resp_name IN VARCHAR2,
p_description IN VARCHAR2,
x_return_status OUT VARCHAR2,
x_msg_count OUT NUMBER,
x_msg_data OUT VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_Responsibility';
SELECT *
FROM FND_RESPONSIBILITY
WHERE responsibility_id = p_resp_id
AND application_id = p_appl_id
For Update NOWAIT;
SAVEPOINT UPDATE_RESPONSIBILITY_PUB;
If (p_last_update_date is NULL or
p_last_update_date = FND_API.G_MISS_Date ) Then
FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date');
If (p_last_update_date <> l_resp.last_update_date) Then
FND_MESSAGE.Set_Name('JTS', 'JTS_RECORD_CHANGED');
FND_RESPONSIBILITY_PKG.UPDATE_ROW(
X_RESPONSIBILITY_ID => p_resp_id,
X_APPLICATION_ID => p_appl_id,
X_WEB_HOST_NAME => l_resp.WEB_HOST_NAME,
X_WEB_AGENT_NAME => l_resp.WEB_AGENT_NAME,
X_DATA_GROUP_APPLICATION_ID => l_resp.DATA_GROUP_APPLICATION_ID,
X_DATA_GROUP_ID => l_resp.DATA_GROUP_ID,
X_MENU_ID => p_menu_id,
X_START_DATE => p_start_date,
X_END_DATE => p_end_date,
X_GROUP_APPLICATION_ID => l_resp.GROUP_APPLICATION_ID,
X_REQUEST_GROUP_ID => l_resp.REQUEST_GROUP_ID,
X_VERSION => l_resp.VERSION,
X_RESPONSIBILITY_KEY => l_resp.RESPONSIBILITY_KEY,
X_RESPONSIBILITY_NAME => p_resp_name,
X_DESCRIPTION => p_description,
X_LAST_UPDATE_DATE => sysdate,
X_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
X_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID);
END Update_Responsibility;
SELECT 'Y' FROM FND_RESP_FUNCTIONS
WHERE application_id = p_app_id
AND responsibility_id = p_resp_id
AND action_id = p_action_id
AND rule_type = p_rule_type;
FND_RESP_FUNCTIONS_PKG.INSERT_ROW(
X_ROWID => x_rowid,
X_APPLICATION_ID => p_app_id,
X_RESPONSIBILITY_ID => p_resp_id,
X_ACTION_ID => p_action_id,
X_RULE_TYPE => p_rule_type,
X_CREATED_BY => FND_GLOBAL.USER_ID,
X_CREATION_DATE => sysdate,
X_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
X_LAST_UPDATE_DATE => sysdate,
X_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID);
PROCEDURE Delete_Resp_Functions
( 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_app_id IN NUMBER,
p_resp_id IN NUMBER,
p_rule_type IN VARCHAR2,
p_action_id IN NUMBER,
x_return_status OUT VARCHAR2,
x_msg_count OUT NUMBER,
x_msg_data OUT VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Delete_Resp_Functions';
SELECT 'Y' FROM FND_RESP_FUNCTIONS
WHERE application_id = p_app_id
AND responsibility_id = p_resp_id
AND action_id = p_action_id
AND rule_type = p_rule_type;
SAVEPOINT DELETE_RESP_FUNCTIONS_PUB;
FND_RESP_FUNCTIONS_PKG.DELETE_ROW(
X_APPLICATION_ID => p_app_id,
X_RESPONSIBILITY_ID => p_resp_id,
X_RULE_TYPE => p_rule_type,
X_ACTION_ID => p_action_id);
END Delete_Resp_functions;