CREATE OR REPLACE FUNCTION f_onlogin(vHostname VARCHAR2,
                                     vUser VARCHAR2,
                                     vOwner VARCHAR2,
                                     vSession VARCHAR2,
                                     vRequest NUMBER) RETURN VARCHAR2
as
function f_get_key(vSQL VARCHAR2,vUser VARCHAR2) RETURN VARCHAR2
    as
    PRAGMA AUTONOMOUS_TRANSACTION;

    lIdent varchar2(512);

  begin
    SET TRANSACTION READ ONLY;

    execute immediate vSQL
    using in vUser,out lIdent;

    commit;

    return lIdent;
  end;

begin
       if lower(vOwner) = 'plmon' then
               lSQL:= 'begin SELECT plmon.GIS_GetKey@plmon(:user) into :ident FROM dual; end;';
        end if;

    lIdent := f_get_key(lSQL,lUser);
    
    if lower(vOwner) = 'plmon' then
        execute immediate 'ALTER SESSION CLOSE DATABASE LINK PLMON';
    end if;