CREATE TABLE project_master ( project_code  NUMBER(1)
                            , user_name     VARCHAR2(10)
                            , install_date  DATE
                            , expiry_date   DATE
                            )
/
CREATE TABLE product_master ( product_code  NUMBER(1)
                            , product_key   VARCHAR2(16)
                            , CONSTRAINT product_code_pk    PRIMARY KEY (product_code)
                            , CONSTRAINT product_key_uk     UNIQUE      (product_key)
                            )
/

INSERT INTO project_master  ( project_code, user_name, install_date, expiry_date)
VALUES  (1, 'songoku', to_date(SYSDATE), add_months(TO_DATE(SYSDATE), 12))
/

INSERT INTO product_master  ( product_code, product_key)
VALUES  (1, 'RAVZWCMP4972P3EX')
/

COMMIT;

DECLARE
    key_menu	menuitem;
    v_user	PROJECT_MASTER.user_name%TYPE;
    v_install	PROJECT_MASTER.install_date%TYPE;
    v_expiry	PROJECT_MASTER.expiry_date%TYPE;
    v_days	NUMBER;
    v_left	NUMBER;
    v_check	NUMBER;
BEGIN
    SELECT	user_name, install_date, expiry_date
    INTO	v_user, v_install, v_expiry
    FROM	project_master;

    v_days	:= v_expiry - v_install;
    v_left	:= v_days - (to_date(SYSDATE) - to_date(v_install));

    IF :GLOBAL.register = 0
    THEN
        IF v_left BETWEEN 1 AND 15 
        THEN
            --FOR DENABLING REGISTER MENU IN MAIN FORM
            key_menu	:= find_menu_item ('MAIN_MENU.REGISTER');
            set_menu_item_property (key_menu, visible, property_true);
            set_alert_property ('CAUTION', title, 'Register Alert');
            set_alert_property ('CAUTION', alert_message_text, 'Software is Expiring in '||v_left||' Days. Do you want to Register It Now...?');
            v_check := show_alert ('CAUTION');
            IF v_check = alert_button1 
            THEN
                call_form (:GLOBAL.product_master); --CALLING REGISTER FORM
            END IF;
        ELSIF v_left > 15
        THEN
            --FOR DISABLING REGISTER MENU IN MAIN FORM
            key_menu	:= find_menu_item ('MAIN_MENU.REGISTER');
            set_menu_item_property (key_menu, visible, property_false);
        ELSIF v_left = 0
        THEN
            :GLOBAL.pro_exit := 0;
        END IF;
    END IF;

    IF :GLOBAL.pro_exit = 0
    THEN
        exit_form;
    END IF;
END;