PROCEDURE P_NEW_NO
          (P_NO     IN OUT  NUMBER,
           P_CODE   IN      VARCHAR2,
           P_CCODE  IN      VARCHAR2) IS
M_CURR_NO  TXN_RANGE.T_CURR_NO%TYPE ;
M_TO_NO    TXN_RANGE.T_TO_NO%TYPE ;
CURSOR GET_NEW_NO IS
       SELECT NVL(T_CURR_NO, 0) + 1, NVL(T_TO_NO, 0)
       FROM   TXN_RANGE
       WHERE  T_COMP_CODE = P_CCODE
       AND    T_TXN_CODE  = P_CODE;
BEGIN
   OPEN  GET_NEW_NO;
   FETCH GET_NEW_NO INTO M_CURR_NO, M_TO_NO ;
   IF GET_NEW_NO%NOTFOUND THEN
      MESSAGE('TRANSACTION NO. NOT INITIALISED');
      MESSAGE(' ');
      RAISE FORM_TRIGGER_FAILURE;
   END IF ;
   CLOSE GET_NEW_NO;
   IF M_CURR_NO > M_TO_NO THEN
      MESSAGE('CURRENT TXN NO. IS OVER THE LIMIT');
      MESSAGE(' ');    
      RAISE FORM_TRIGGER_FAILURE;
   END IF ;
   P_NO := M_CURR_NO ;
END;