EBS模拟登录

--GL总账

PROCEDURE init_gl_mo_context(p_org_id IN NUMBER) IS
  l_application_id    NUMBER; --应用id
  l_responsibility_id NUMBER; --职责id
BEGIN
  SELECT application_id
    INTO l_application_id
    FROM fnd_application
   WHERE application_short_name = 'SQLGL'; --总帐应用简称 
  SELECT fr.responsibility_id
    INTO l_responsibility_id
    FROM fnd_responsibility_vl fr
   WHERE EXISTS
   (SELECT 1
            FROM fnd_profile_option_values fpov,
                 fnd_profile_options       fpo,
                 fnd_profile_options_vl    fpot
           WHERE fpov.profile_option_id = fpo.profile_option_id
             AND fpo.profile_option_name = fpot.profile_option_name
             AND fpot.profile_option_name IN ('DEFAULT_ORG_ID', 'ORG_ID')
             AND fpov.profile_option_value = to_char(p_org_id)
             AND fpov.level_value = fr.responsibility_id)
     AND fr.application_id = l_application