DECLARE
  VAR_AL     NUMBER;
  alert_id   ALERT                 := Find_Alert ('ALERT_CALC');
  PLR_ID     PARAMLIST;
  PRNO       PROPOSAL.PR_NO%TYPE;
BEGIN
--ALLERT FOR PREMIUM CALCULATION BUTTON
  SET_ALERT_PROPERTY (ALERT_ID,
                      ALERT_MESSAGE_TEXT,
                      'Are You sure you want to generate Proposal Letter ');
  VAR_AL  := SHOW_ALERT (ALERT_ID);
  IF VAR_AL = ALERT_BUTTON1 THEN
    PLR_ID  := GET_PARAMETER_LIST ('TMPDATA');
    IF NOT ID_NULL (PLR_ID) THEN
      DESTROY_PARAMETER_LIST (PLR_ID);
    END IF;
    PLR_ID  := CREATE_PARAMETER_LIST ('TMPDATA');
    SELECT PR_NO
      INTO PRNO
      FROM POL_CAT_MAS
     WHERE :PREM_RATE_CALC.C_CODE = POL_CAT_MAS.C_CODE;
    ADD_PARAMETER (PLR_ID, 'P_1', TEXT_PARAMETER, PRNO);
    ADD_PARAMETER (PLR_ID, 'PARAMFORM', TEXT_PARAMETER, 'NO');
    WEB.SHOW_DOCUMENT
      ('http://gr:8890/reports/rwservlet?destype=CACHE&desformat=PDF&report=PROP.rdf&userid=phs/phs@phs&P_1='
       || PRNO);
  END IF;
END;