Como cargar el entorno de Aplicaciones desde una SQL window

Si necesitamos tener cargado el entrono de applications para ejecutar una query (para filtrar correctamente por las vistas, etc.) tenemos que ejecutar el siguiente trozo de código: 

DECLARE
var VARCHAR2(20);
BEGIN
fnd_client_info.setup_client_info(551,52845,3018,-1);
fnd_global.apps_initialize(3018,52845,551);
SELECT fnd_profile.VALUE('GEMMS_DEFAULT_ORGN')
INTO var
FROM dual;
DBMS_OUTPUT.enable(10000);
DBMS_OUTPUT.put_line('var=>'||var);
END;