set serveroutput on
begin
declare
VALIDATION_RESULT VARCHAR2(500);
input_value VARCHAR2(500);
begin

  DBMS_OUTPUT.PUT_LINE('FTARPT_V_CHECK_GRAZING_TENURE');
--FTARPT_V_CHECK_GRAZING_TENURE (VALIDATION_RESULT, P_FOREST_FILE_ID In VARCHAR2)
  input_value := '070004';
  FTARPT_V_CHECK_GRAZING_TENURE (VALIDATION_RESULT, input_value);
  DBMS_OUTPUT.PUT_LINE('input_value=' || input_value || ' VALIDATION_RESULT=' || VALIDATION_RESULT);

  input_value := '546549';
  FTARPT_V_CHECK_GRAZING_TENURE (VALIDATION_RESULT, input_value);
  DBMS_OUTPUT.PUT_LINE('input_value=' || input_value || ' VALIDATION_RESULT=' || VALIDATION_RESULT);

  DBMS_OUTPUT.PUT_LINE('FTARPT_V_CHECK_RANGE_UNIT');
--FTARPT_V_CHECK_RANGE_UNIT     (VALIDATION_RESULT, P_FOREST_FILE_ID In VARCHAR2)
  input_value := '1005';
  FTARPT_V_CHECK_RANGE_UNIT     (VALIDATION_RESULT, input_value);
  DBMS_OUTPUT.PUT_LINE('input_value=' || input_value || ' VALIDATION_RESULT=' || VALIDATION_RESULT);

  input_value := '6549';
  FTARPT_V_CHECK_RANGE_UNIT     (VALIDATION_RESULT, input_value);
  DBMS_OUTPUT.PUT_LINE('input_value=' || input_value || ' VALIDATION_RESULT=' || VALIDATION_RESULT);

  DBMS_OUTPUT.PUT_LINE('FTARPT_V_CHECK_SB_PROJECT_NUM');
--FTARPT_V_CHECK_SB_PROJECT_NUM (VALIDATION_RESULT, P_SB_PROJECT_NUMBER In VARCHAR2)
  input_value := '01749';
  FTARPT_V_CHECK_SB_PROJECT_NUM (VALIDATION_RESULT, input_value);
  DBMS_OUTPUT.PUT_LINE('input_value=' || input_value || ' VALIDATION_RESULT=' || VALIDATION_RESULT);

  input_value := '45747';
  FTARPT_V_CHECK_SB_PROJECT_NUM (VALIDATION_RESULT, input_value);
  DBMS_OUTPUT.PUT_LINE('input_value=' || input_value || ' VALIDATION_RESULT=' || VALIDATION_RESULT);

  DBMS_OUTPUT.PUT_LINE('FTARPT_V_CHECK_TIMBER_MARK');
--FTARPT_V_CHECK_TIMBER_MARK    (VALIDATION_RESULT, P_TIMBER_MARK In VARCHAR2)
  input_value := 'AA353';
  FTARPT_V_CHECK_TIMBER_MARK    (VALIDATION_RESULT, input_value);
  DBMS_OUTPUT.PUT_LINE('input_value=' || input_value || ' VALIDATION_RESULT=' || VALIDATION_RESULT);

  input_value := 'DFDHDHD';
  FTARPT_V_CHECK_TIMBER_MARK    (VALIDATION_RESULT, input_value);
  DBMS_OUTPUT.PUT_LINE('input_value=' || input_value || ' VALIDATION_RESULT=' || VALIDATION_RESULT);

end;
end;
/
