The following lines contain the word 'select', 'insert', 'update' or 'delete':
** purpose in case this short name is not updated
**
** not case sensitive
*/
function ecappShortNameExists(i_app_short_name
iby_ecapp.application_short_name%type,
o_ecappid out nocopy iby_ecapp.ecappid%type)
return boolean
is
l_app_short_name iby_ecapp.application_short_name%type;
SELECT application_short_name, ecappid
FROM iby_ecapp_v
WHERE UPPER(application_short_name) = UPPER(ci_app_short_name);
SELECT ecappid
FROM iby_ecapp_v
WHERE ecappid = ci_ecappid;
select iby_ecapp_s.nextval from dual;
INSERT into iby_ecapp (ecappid, name, application_short_name,
last_update_date, last_updated_by, creation_date, created_by,
last_update_login, object_version_number)
VALUES ( io_ecappid, i_ecappname, i_app_short_name,
sysdate, fnd_global.user_id, sysdate, fnd_global.user_id,
fnd_global.login_id, 1);
** update the row corresponding to the ecappid.
*/
--- update only if the object_version_number is correct
if (i_object_version < 0) then
-- no check in object version number in this case
UPDATE iby_ecapp
SET name = i_ecappname, application_short_name = i_app_short_name,
last_update_date = sysdate,
last_update_login = fnd_global.login_id,
object_version_number = object_version_number + 1
WHERE ecappid = i_ecappid ;
UPDATE iby_ecapp
SET name = i_ecappname, application_short_name = i_app_short_name,
last_update_date = sysdate,
last_update_login = fnd_global.login_id,
object_version_number = object_version_number + 1
WHERE ecappid = i_ecappid
AND object_version_number = i_object_version;