WHEN-TAB-PAGE-CHANGED (Forms-Trigger)

WHEN-TAB-PAGE-CHANGED
====================
BEGIN
        :SYSTEM.MESSAGE_LEVEL:=5;
        IF :SYSTEM.TAB_NEW_PAGE = 'PG_CONFIG' THEN
            GO_BLOCK('IN_CONFIG');
            EXECUTE_QUERY;
        ELSIF :SYSTEM.TAB_NEW_PAGE = 'PG_STYPE' THEN
            GO_BLOCK('IN_STYPE1');
            EXECUTE_QUERY;

        ELSIF :SYSTEM.TAB_NEW_PAGE =  'PG_ITEMSUPPLIER' THEN
            GO_BLOCK('IN_SUPPLIER1');
            EXECUTE_QUERY;
            P_SUPPLIER_LIST_ITEM;
        ELSIF :SYSTEM.TAB_NEW_PAGE =  'PG_SUPPLIER_BANK' THEN
            P_TREEPOP;
        ELSIF :SYSTEM.TAB_NEW_PAGE =  'PG_ATTACHMENT_TYPE' THEN
            GO_BLOCK('IN_INVOICE_DOCUMENT');
            EXECUTE_QUERY;

            GO_BLOCK('SL_DOCTYPE');
            EXECUTE_QUERY;

        END IF;
        :SYSTEM.MESSAGE_LEVEL:=0;
EXCEPTION
    WHEN OTHERS THEN NULL;
END;