/*=======================================================================+
 |  Copyright (c) 1997 Oracle Corporation Redwood Shores, California, USA|
 |                            All rights reserved.                       |
 +=======================================================================+
 | FILENAME
 | DESCRIPTION
 |   PL/SQL body for package:  FND_SVC_COMP_PARAMS_PKG
 *=======================================================================*/
SET VERIFY OFF
WHENEVER SQLERROR EXIT FAILURE ROLLBACK;
WHENEVER OSERROR EXIT FAILURE ROLLBACK;

REM Added for ARU db drv auto generation
REM dbdrv: sql ~PROD ~PATH ~FILE none none none package &phase=plb \
REM dbdrv: checkfile:~PROD:~PATH:~FILE

create or replace package body FND_SVC_COMP_PARAMS_PKG as
/* $Header: AFSVCPTB.pls 26.3 2002/12/27 20:39:46 ankung ship $ */
procedure INSERT_ROW (
  X_ROWID in out nocopy VARCHAR2,
  X_PARAMETER_ID in NUMBER,
  X_OBJECT_VERSION_NUMBER in NUMBER,
  X_PARAMETER_NAME in VARCHAR2,
  X_COMPONENT_TYPE in VARCHAR2,
  X_DEFAULT_PARAMETER_VALUE in VARCHAR2,
  X_REQUIRED_FLAG in VARCHAR2,
  X_ALLOW_RELOAD_FLAG in VARCHAR2,
  X_ENCRYPTED_FLAG in VARCHAR2,
  X_CUSTOMIZATION_LEVEL in VARCHAR2,
  X_DISPLAY_NAME in VARCHAR2,
  X_DESCRIPTION in VARCHAR2,
  X_CREATION_DATE in DATE,
  X_CREATED_BY in NUMBER,
  X_LAST_UPDATE_DATE in DATE,
  X_LAST_UPDATED_BY in NUMBER,
  X_LAST_UPDATE_LOGIN in NUMBER
) is
  cursor C is select ROWID from FND_SVC_COMP_PARAMS_B
    where PARAMETER_ID = X_PARAMETER_ID
    ;
begin
  insert into FND_SVC_COMP_PARAMS_B (
    OBJECT_VERSION_NUMBER,
    PARAMETER_ID,
    PARAMETER_NAME,
    COMPONENT_TYPE,
    DEFAULT_PARAMETER_VALUE,
    REQUIRED_FLAG,
    ALLOW_RELOAD_FLAG,
    ENCRYPTED_FLAG,
    CUSTOMIZATION_LEVEL,
    CREATION_DATE,
    CREATED_BY,
    LAST_UPDATE_DATE,
    LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN
  ) values (
    X_OBJECT_VERSION_NUMBER,
    X_PARAMETER_ID,
    X_PARAMETER_NAME,
    X_COMPONENT_TYPE,
    X_DEFAULT_PARAMETER_VALUE,
    X_REQUIRED_FLAG,
    X_ALLOW_RELOAD_FLAG,
    X_ENCRYPTED_FLAG,
    X_CUSTOMIZATION_LEVEL,
    X_CREATION_DATE,
    X_CREATED_BY,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_LOGIN
  );

  insert into FND_SVC_COMP_PARAMS_TL (
    PARAMETER_ID,
    DISPLAY_NAME,
    DESCRIPTION,
    CREATION_DATE,
    CREATED_BY,
    LAST_UPDATE_DATE,
    LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN,
    LANGUAGE,
    SOURCE_LANG
  ) select
    X_PARAMETER_ID,
    X_DISPLAY_NAME,
    X_DESCRIPTION,
    X_CREATION_DATE,
    X_CREATED_BY,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_LOGIN,
    L.CODE,
    userenv('LANG')
  from WF_LANGUAGES L
  where L.INSTALLED_FLAG = 'Y'
  and not exists
    (select NULL
    from FND_SVC_COMP_PARAMS_TL T
    where T.PARAMETER_ID = X_PARAMETER_ID
    and T.LANGUAGE = L.CODE);

  open c;
  fetch c into X_ROWID;
  if (c%notfound) then
    close c;
    raise no_data_found;
  end if;
  close c;

exception
  when others then
    wf_core.context('FND_SVC_COMP_PARAMS_PKG', 'Insert_Row', X_PARAMETER_ID, X_PARAMETER_NAME);
    raise;
end INSERT_ROW;

procedure LOCK_ROW (
  X_PARAMETER_ID in NUMBER,
  X_OBJECT_VERSION_NUMBER in NUMBER,
  X_PARAMETER_NAME in VARCHAR2,
  X_COMPONENT_TYPE in VARCHAR2,
  X_DEFAULT_PARAMETER_VALUE in VARCHAR2,
  X_REQUIRED_FLAG in VARCHAR2,
  X_ALLOW_RELOAD_FLAG in VARCHAR2,
  X_ENCRYPTED_FLAG in VARCHAR2,
  X_CUSTOMIZATION_LEVEL in VARCHAR2,
  X_DISPLAY_NAME in VARCHAR2,
  X_DESCRIPTION in VARCHAR2
) is
  cursor c is select
      OBJECT_VERSION_NUMBER,
      PARAMETER_NAME,
      COMPONENT_TYPE,
      DEFAULT_PARAMETER_VALUE,
      REQUIRED_FLAG,
      ALLOW_RELOAD_FLAG,
      ENCRYPTED_FLAG,
      CUSTOMIZATION_LEVEL
    from FND_SVC_COMP_PARAMS_B
    where PARAMETER_ID = X_PARAMETER_ID
    for update of PARAMETER_ID nowait;
  recinfo c%rowtype;

  cursor c1 is select
      DISPLAY_NAME,
      DESCRIPTION,
      decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
    from FND_SVC_COMP_PARAMS_TL
    where PARAMETER_ID = X_PARAMETER_ID
    and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
    for update of PARAMETER_ID nowait;
begin
  open c;
  fetch c into recinfo;
  if (c%notfound) then
    close c;
    wf_core.raise('WF_RECORD_DELETED');
  end if;
  close c;
  if (    (recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
      AND (recinfo.PARAMETER_NAME = X_PARAMETER_NAME)
      AND (recinfo.COMPONENT_TYPE = X_COMPONENT_TYPE)
      AND ((recinfo.DEFAULT_PARAMETER_VALUE = X_DEFAULT_PARAMETER_VALUE)
           OR ((recinfo.DEFAULT_PARAMETER_VALUE is null) AND (X_DEFAULT_PARAMETER_VALUE is null)))
      AND (recinfo.REQUIRED_FLAG = X_REQUIRED_FLAG)
      AND (recinfo.ALLOW_RELOAD_FLAG = X_ALLOW_RELOAD_FLAG)
      AND (recinfo.ENCRYPTED_FLAG = X_ENCRYPTED_FLAG)
      AND (recinfo.CUSTOMIZATION_LEVEL = X_CUSTOMIZATION_LEVEL)
  ) then
    null;
  else
    wf_core.raise('WF_RECORD_CHANGED');
  end if;

  for tlinfo in c1 loop
    if (tlinfo.BASELANG = 'Y') then
      if (    (tlinfo.DISPLAY_NAME = X_DISPLAY_NAME)
          AND ((tlinfo.DESCRIPTION = X_DESCRIPTION)
               OR ((tlinfo.DESCRIPTION is null) AND (X_DESCRIPTION is null)))
      ) then
        null;
      else
        wf_core.raise('WF_RECORD_CHANGED');
      end if;
    end if;
  end loop;
  return;

exception
  when others then
    wf_core.context('FND_SVC_COMP_PARAMS_PKG', 'Lock_Row', X_PARAMETER_ID, X_PARAMETER_NAME);
    raise;
end LOCK_ROW;

procedure UPDATE_ROW (
  X_PARAMETER_ID in NUMBER,
  X_OBJECT_VERSION_NUMBER in NUMBER,
  X_PARAMETER_NAME in VARCHAR2,
  X_COMPONENT_TYPE in VARCHAR2,
  X_DEFAULT_PARAMETER_VALUE in VARCHAR2,
  X_REQUIRED_FLAG in VARCHAR2,
  X_ALLOW_RELOAD_FLAG in VARCHAR2,
  X_ENCRYPTED_FLAG in VARCHAR2,
  X_CUSTOMIZATION_LEVEL in VARCHAR2,
  X_DISPLAY_NAME in VARCHAR2,
  X_DESCRIPTION in VARCHAR2,
  X_LAST_UPDATE_DATE in DATE,
  X_LAST_UPDATED_BY in NUMBER,
  X_LAST_UPDATE_LOGIN in NUMBER
) is

  l_object_version_number NUMBER;
begin

  --
  -- Perform OVN checks
  --
  if X_OBJECT_VERSION_NUMBER = -1 then

    --
    -- Allow update.  Increment the database's OVN by 1
    --
    select OBJECT_VERSION_NUMBER 
    into l_object_version_number
    from FND_SVC_COMP_PARAMS_B
    where PARAMETER_ID = X_PARAMETER_ID;
  
    l_object_version_number := l_object_version_number + 1;

  else

    --
    -- Lock the row.  Allow update only if the database's OVN equals the one
    -- passed in.  
    --
    -- If update is allowed, increment the database's OVN by 1.
    -- Otherwise, raise an error.
    --

    select OBJECT_VERSION_NUMBER 
    into l_object_version_number
    from FND_SVC_COMP_PARAMS_B
    where PARAMETER_ID = X_PARAMETER_ID
    for update;

    if (l_object_version_number = X_OBJECT_VERSION_NUMBER) then

        l_object_version_number := l_object_version_number + 1;
    else
   
      raise_application_error(-20002, 
        wf_core.translate('SVC_RECORD_ALREADY_UPDATED'));

    end if;

  end if;

  update FND_SVC_COMP_PARAMS_B set
    OBJECT_VERSION_NUMBER = l_object_version_number,
    PARAMETER_NAME = X_PARAMETER_NAME,
    COMPONENT_TYPE = X_COMPONENT_TYPE,
    DEFAULT_PARAMETER_VALUE = X_DEFAULT_PARAMETER_VALUE,
    REQUIRED_FLAG = X_REQUIRED_FLAG,
    ALLOW_RELOAD_FLAG = X_ALLOW_RELOAD_FLAG,
    ENCRYPTED_FLAG = X_ENCRYPTED_FLAG,
    CUSTOMIZATION_LEVEL = X_CUSTOMIZATION_LEVEL,
    LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
    LAST_UPDATED_BY = X_LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
  where PARAMETER_ID = X_PARAMETER_ID;

  if (sql%notfound) then
    raise no_data_found;
  end if;

  update FND_SVC_COMP_PARAMS_TL set
    DISPLAY_NAME = X_DISPLAY_NAME,
    DESCRIPTION = X_DESCRIPTION,
    LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
    LAST_UPDATED_BY = X_LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
    SOURCE_LANG = userenv('LANG')
  where PARAMETER_ID = X_PARAMETER_ID
  and userenv('LANG') in (LANGUAGE, SOURCE_LANG);

  if (sql%notfound) then
    raise no_data_found;
  end if;

exception
  when others then
    wf_core.context('FND_SVC_COMP_PARAMS_PKG', 'Update_Row', X_PARAMETER_ID, X_PARAMETER_NAME);
    raise;
end UPDATE_ROW;

procedure DELETE_ROW (
  X_PARAMETER_ID in NUMBER
) is
begin
  delete from FND_SVC_COMP_PARAMS_TL
  where PARAMETER_ID = X_PARAMETER_ID;

  if (sql%notfound) then
    raise no_data_found;
  end if;

  delete from FND_SVC_COMP_PARAMS_B
  where PARAMETER_ID = X_PARAMETER_ID;

  if (sql%notfound) then
    raise no_data_found;
  end if;

exception
  when others then
    wf_core.context('FND_SVC_COMP_PARAMS_PKG', 'Delete_Row', X_PARAMETER_ID);
    raise;
end DELETE_ROW;

procedure ADD_LANGUAGE
is
begin
  delete from FND_SVC_COMP_PARAMS_TL T 
  where not exists 
    (select NULL 
    from FND_SVC_COMP_PARAMS_B B 
    where B.PARAMETER_ID = T.PARAMETER_ID
    );

  update FND_SVC_COMP_PARAMS_TL T set (
      DISPLAY_NAME,
      DESCRIPTION
    ) = (select
      B.DISPLAY_NAME,
      B.DESCRIPTION
    from FND_SVC_COMP_PARAMS_TL B
    where B.PARAMETER_ID = T.PARAMETER_ID
    and B.LANGUAGE = T.SOURCE_LANG)
  where (
      T.PARAMETER_ID,
      T.LANGUAGE
  ) in (select
      SUBT.PARAMETER_ID,
      SUBT.LANGUAGE
    from FND_SVC_COMP_PARAMS_TL SUBB, FND_SVC_COMP_PARAMS_TL SUBT
    where SUBB.PARAMETER_ID = SUBT.PARAMETER_ID
    and SUBB.LANGUAGE = SUBT.SOURCE_LANG
    and (SUBB.DISPLAY_NAME <> SUBT.DISPLAY_NAME
      or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
      or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
      or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
  ));

  insert into FND_SVC_COMP_PARAMS_TL (
    PARAMETER_ID,
    DISPLAY_NAME,
    DESCRIPTION,
    CREATION_DATE,
    CREATED_BY,
    LAST_UPDATE_DATE,
    LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN,
    LANGUAGE,
    SOURCE_LANG
  ) select 
    B.PARAMETER_ID,
    B.DISPLAY_NAME,
    B.DESCRIPTION,
    B.CREATION_DATE,
    B.CREATED_BY,
    B.LAST_UPDATE_DATE,
    B.LAST_UPDATED_BY,
    B.LAST_UPDATE_LOGIN,
    L.CODE,
    B.SOURCE_LANG
  from FND_SVC_COMP_PARAMS_TL B, WF_LANGUAGES L
  where L.INSTALLED_FLAG = 'Y'
  and B.LANGUAGE = userenv('LANG')
  and not exists
    (select NULL
    from FND_SVC_COMP_PARAMS_TL T
    where T.PARAMETER_ID = B.PARAMETER_ID
    and T.LANGUAGE = L.CODE);
end ADD_LANGUAGE;


procedure LOAD_ROW (
  X_PARAMETER_NAME in VARCHAR2, 
  X_COMPONENT_TYPE in VARCHAR2, 
  X_DEFAULT_PARAMETER_VALUE in VARCHAR2, 
  X_REQUIRED_FLAG in VARCHAR2, 
  X_ALLOW_RELOAD_FLAG in VARCHAR2, 
  X_ENCRYPTED_FLAG in VARCHAR2, 
  X_CUSTOMIZATION_LEVEL in VARCHAR2, 
  X_DISPLAY_NAME in VARCHAR2,
  X_DESCRIPTION in VARCHAR2,
  X_OBJECT_VERSION_NUMBER in NUMBER,
  X_OWNER in VARCHAR2
) IS

begin
   
  declare
     user_id            number := 0;
     row_id             varchar2(64);

     l_parameter_id NUMBER;
  begin

      if (X_OWNER = 'ORACLE') then
      user_id := 1;
      end if;
      
      
      BEGIN
          SELECT parameter_id
          INTO l_parameter_id
          FROM fnd_svc_comp_params_b
          WHERE component_type = x_component_type
          AND parameter_name = x_parameter_name;
      
          FND_SVC_COMP_PARAMS_PKG.UPDATE_ROW (
              X_PARAMETER_ID => l_parameter_id,
              X_OBJECT_VERSION_NUMBER => X_OBJECT_VERSION_NUMBER,
              X_PARAMETER_NAME => X_PARAMETER_NAME, 
              X_COMPONENT_TYPE => X_COMPONENT_TYPE, 
              X_DEFAULT_PARAMETER_VALUE => X_DEFAULT_PARAMETER_VALUE,
              X_REQUIRED_FLAG => X_REQUIRED_FLAG,
              X_ALLOW_RELOAD_FLAG => X_ALLOW_RELOAD_FLAG,
              X_ENCRYPTED_FLAG => X_ENCRYPTED_FLAG,
              X_CUSTOMIZATION_LEVEL => X_CUSTOMIZATION_LEVEL,
              X_DISPLAY_NAME => X_DISPLAY_NAME,
              X_DESCRIPTION => X_DESCRIPTION,
              X_LAST_UPDATE_DATE => sysdate,
              X_LAST_UPDATED_BY => user_id,
              X_LAST_UPDATE_LOGIN => 0);
      
      EXCEPTION
          WHEN No_Data_Found THEN
              SELECT fnd_svc_comp_params_b_s.nextval
              INTO l_parameter_id
              FROM dual;
      
      
          FND_SVC_COMP_PARAMS_PKG.INSERT_ROW (
              X_ROWID => row_id,
              X_PARAMETER_ID => l_parameter_id,
              X_PARAMETER_NAME => X_PARAMETER_NAME, 
              X_COMPONENT_TYPE => X_COMPONENT_TYPE, 
              X_DEFAULT_PARAMETER_VALUE => X_DEFAULT_PARAMETER_VALUE,
              X_REQUIRED_FLAG => X_REQUIRED_FLAG,
              X_ALLOW_RELOAD_FLAG => X_ALLOW_RELOAD_FLAG,
              X_ENCRYPTED_FLAG => X_ENCRYPTED_FLAG,
              X_CUSTOMIZATION_LEVEL => X_CUSTOMIZATION_LEVEL,
              X_DISPLAY_NAME => X_DISPLAY_NAME,
              X_DESCRIPTION => X_DESCRIPTION,
              X_CREATION_DATE => sysdate,
              X_CREATED_BY => user_id,
              X_LAST_UPDATE_DATE => sysdate,
              X_LAST_UPDATED_BY => user_id,
              X_LAST_UPDATE_LOGIN => 0);
    END;
  end;
end LOAD_ROW;

procedure TRANSLATE_ROW (
  X_PARAMETER_ID in NUMBER,
  X_DISPLAY_NAME in VARCHAR2, 
  X_DESCRIPTION in VARCHAR2,
  X_OWNER in VARCHAR2
) IS
BEGIN

    --
    -- Only update rows that have not been altered by user
    --
    UPDATE FND_SVC_COMP_PARAMS_TL
    SET display_name = X_DISPLAY_NAME, 
        description = X_DESCRIPTION,
        source_lang = userenv('LANG'),
        last_update_date = sysdate,
        last_updated_by = decode(X_OWNER, 'ORACLE', 1, 0),
        last_update_login = 0
    WHERE parameter_id = X_PARAMETER_ID
      AND userenv('LANG') in (language, source_lang);

end TRANSLATE_ROW;


end FND_SVC_COMP_PARAMS_PKG;
/
-- show errors;
commit;
exit;