PLS-00103: Encountered the symbol "END" when expecting one of the following: begin function pragma

CREATE OR REPLACE PACKAGE BODY APPS.AFSV_PV_MTF_PKG
IS

**************************************************************************************/


PROCEDURE main (p_errbuff OUT VARCHAR2, p_retcode OUT NUMBER)

IS

    -- Application Globals



    g_conc_user_id      NUMBER (15) := fnd_global.user_id;

    g_conc_request_id   NUMBER (15) := fnd_global.conc_request_id;


    -- GLOBAL Interface

    g_pkg_name          VARCHAR2 (100) := 'AFSV_PV_MTF_PKG ';

    g_log               VARCHAR2 (1);



    /************************************************************************************

     TYPE      :PROCEDURE

     Name      : write_log

    Usage      : To Write given message to concurrent LOG file

     ************************************************************************************/

    PROCEDURE write_log (p_message VARCHAR2, p_flag VARCHAR2 DEFAULT 'Y')

    IS

    BEGIN

        IF p_flag = 'Y'

        THEN

            afsv_lib.print_log_p (p_message);

        END IF;