DECLARE
    l_user_id NUMBER;
    l_resp_id NUMBER;
    l_app_id NUMBER;
    l_org_id NUMBER;
    l_err_num VARCHAR2(1000);
    l_err_msg VARCHAR2(1000);

BEGIN

    SELECT user_id
    INTO l_user_id
    FROM fnd_user
    WHERE user_name = 'OPERATIONS';

    SELECT responsibility_id, application_id
    INTO l_resp_id,l_app_id
    FROM fnd_responsibility
    WHERE responsibility_key = 'PAYABLES_MANAGER';

    BEGIN

        fnd_global.apps_initialize(l_user_id,l_resp_id,l_app_id);

        fnd_global.set_nls_context(p_nls_language => 'AMERICAN'
                                  ,p_nls_date_format => NULL
                                  ,p_nls_date_language => NULL
                                  ,p_nls_numeric_characters => NULL
                                  ,p_nls_sort => NULL
                                  ,p_nls_territory => NULL);

        fnd_profile.get(name => 'DEFAULT_ORG_ID',val => l_org_id);
        mo_global.set_policy_context(p_access_mode => 'S',p_org_id => l_org_id);
        mo_global.init(p_appl_short_name => 'SQLAP');

    EXCEPTION WHEN OTHERS THEN
        l_err_num := sqlcode;
        l_err_msg := substr(sqlerrm,1,1000);
        raise_application_error(l_err_num,l_err_msg);
    END;
END;