CREATE OR REPLACE PROCEDURE RETORNA_NRORG(P_NRORG OUT FLOAT)
  
  AS
  V_RESULT FLOAT;
  BEGIN
    SELECT SYS_CONTEXT('nrorg_ctx', 'nrorg') AS NRORG
      INTO V_RESULT
      FROM DUAL;
      P_NRORG := V_RESULT;
  END;
  
/
-- VERSAO --
BEGIN ATUVEROBJ('RETORNA_NRORG','6.49.035'); END;
/
