Oracle EBS 配置文件后台导入

--插入配置文件值
/*
profile_option_id 需要配置的文件
1991   MO：业务实体        ORG_ID                                          1507
3796   MO：安全性配置文件  XLA_MO_SECURITY_PROFILE_LEVEL                   43106
5799   MO：默认业务实体    DEFAULT_ORG_ID                                  1507
1202   GL 分类帐名称       GL_SET_OF_BKS_NAME                              O_XXXX_XXXXXX
1201    GL 分类帐标识     GL_SET_OF_BKS_ID                                                 
*/
DECLARE
  l_count NUMBER;
  l_flag  BOOLEAN;
BEGIN
  FOR resp IN (SELECT *
                 FROM fnd_responsibility_vl fsv
                WHERE fsv.responsibility_name LIKE '%10_xxx%') LOOP
  
    -- MO：业务实体 
    SELECT COUNT(1)
      INTO l_count
      FROM fnd_profile_option_values t
     WHERE 1 = 1
       AND t.level_value = resp.responsibility_id
       AND t.profile_option_id = 1991;
  
    IF l_count = 0 THEN
      l_flag := fnd_profile.save(x_name               => 'ORG_ID',
                                 x_value              => 1505, --值
                                 x_level_name         => 'RESP', --'SITE','APPL','RESP','USER', etc.
                                 x_level_value        => resp.responsibility_id, --RESP_ID
                                 x_level_value_app_id => resp.application_id); --RESP_APP_ID
      IF l_flag = TRUE THEN
        dbms_output.put_line(resp.responsibility_name || '->ORG_ID 成功');
      ELSE
        dbms_output.put_line(resp.responsibility_name || '->ORG_ID 失败');
      END IF;
    END IF;
  
    -- MO：安全性配置文件 
    SELECT COUNT(1)
      INTO l_count
      FROM fnd_profile_option_values t
     WHERE 1 = 1
       AND t.level_value = resp.responsibility_id
       AND t.profile_option_id = 3796;
  
    IF l_count = 0 THEN
      l_flag := fnd_profile.save(x_name               => 'XLA_MO_SECURITY_PROFILE_LEVEL',
                                 x_value              => 43107, --值
                                 x_level_name         => 'RESP', --'SITE','APPL','RESP','USER', etc.
                                 x_level_value        => resp.responsibility_id, --RESP_ID
                                 x_level_value_app_id => resp.application_id); --RESP_APP_ID
    
      IF l_flag = TRUE THEN
        dbms_output.put_line(resp.responsibility_name ||
                             '->XLA_MO_SECURITY_PROFILE_LEVEL 成功');
      ELSE
        dbms_output.put_line(resp.responsibility_name ||
                             '->XLA_MO_SECURITY_PROFILE_LEVEL 失败');
      END IF;
    END IF;
  
    --MO：默认业务实体
    SELECT COUNT(1)
      INTO l_count
      FROM fnd_profile_option_values t
     WHERE 1 = 1
       AND t.level_value = resp.responsibility_id
       AND t.profile_option_id = 5799;
  
    IF l_count = 0 THEN
      l_flag := fnd_profile.save(x_name               => 'DEFAULT_ORG_ID',
                                 x_value              => 1505, --值
                                 x_level_name         => 'RESP', --'SITE','APPL','RESP','USER', etc.
                                 x_level_value        => resp.responsibility_id, --RESP_ID
                                 x_level_value_app_id => resp.application_id); --RESP_APP_ID
    
      IF l_flag = TRUE THEN
        dbms_output.put_line(resp.responsibility_name ||
                             '->DEFAULT_ORG_ID 成功');
      ELSE
        dbms_output.put_line(resp.responsibility_name ||
                             '->DEFAULT_ORG_ID 失败');
      END IF;
    END IF;
  
    --GL 分类帐名称 
    SELECT COUNT(1)
      INTO l_count
      FROM fnd_profile_option_values t
     WHERE 1 = 1
       AND t.level_value = resp.responsibility_id
       AND t.profile_option_id = 1202;
  
    IF l_count = 0 THEN
      l_flag := fnd_profile.save(x_name               => 'GL_SET_OF_BKS_NAME',
                                 x_value              => 'O_XXXX_XXXX', --值
                                 x_level_name         => 'RESP', --'SITE','APPL','RESP','USER', etc.
                                 x_level_value        => resp.responsibility_id, --RESP_ID
                                 x_level_value_app_id => resp.application_id); --RESP_APP_ID
    
      IF l_flag = TRUE THEN
        dbms_output.put_line(resp.responsibility_name ||
                             '->GL_SET_OF_BKS_NAME 成功');
      ELSE
        dbms_output.put_line(resp.responsibility_name ||
                             '->GL_SET_OF_BKS_NAME 失败');
      END IF;
    END IF;
  
    --GL 分类帐标识
    SELECT COUNT(1)
      INTO l_count
      FROM fnd_profile_option_values t
     WHERE 1 = 1
       AND t.level_value = resp.responsibility_id
       AND t.profile_option_id = 1201;
  
    IF l_count = 0 THEN
      l_flag := fnd_profile.save(x_name               => 'GL_SET_OF_BKS_ID',
                                 x_value              => 2288, 
                                 x_level_name         => 'RESP', --'SITE','APPL','RESP','USER', etc.
                                 x_level_value        => resp.responsibility_id, --RESP_ID
                                 x_level_value_app_id => resp.application_id); --RESP_APP_ID
    
      IF l_flag = TRUE THEN
        dbms_output.put_line(resp.responsibility_name ||
                             '->GL_SET_OF_BKS_ID 成功');
      ELSE
        dbms_output.put_line(resp.responsibility_name ||
                             '->GL_SET_OF_BKS_ID 失败');
      END IF;
    END IF;
  
  END LOOP;
END;