text: CREATE OR REPLACE PROCEDURE SP_SET_SERVER_TOKEN_TTL
  (
  P_TOKEN_TTL                    IN        NUMBER, -- IN SECOND
  P_CONSUMER_KEY                 IN        VARCHAR2,
  P_TOKEN                        IN        VARCHAR2,
  P_RESULT                       OUT       NUMBER
  )
  AS
  
   -- PROCEDURE TO Set the ttl of a server access token.
  
  BEGIN
  
    P_RESULT := 0;
    
  
  UPDATE OAUTH_CONSUMER_TOKEN
  SET OCT_TOKEN_TTL = SYSDATE + (P_TOKEN_TTL/(24*60*60)) -- DATE_ADD(NOW(), INTERVAL %D SECOND)
  WHERE OCT_TOKEN = P_TOKEN
  AND OCT_OCR_ID_REF IN (SELECT OCR_ID FROM OAUTH_CONSUMER_REGISTRY WHERE OCR_CONSUMER_KEY = P_CONSUMER_KEY);
                
    
  EXCEPTION
  WHEN OTHERS THEN
  -- CALL THE FUNCTION TO LOG ERRORS
  ROLLBACK;
  P_RESULT := 1; -- ERROR
  END;
  /
  