DECLARE
        L_PATH VARCHAR2(100);
        PL_ID   PARAMLIST; 
        PL_NAME VARCHAR2(10) := 'JUST8';
        L_REPNAME VARCHAR2(30);
        VC_REPORTOBJ VARCHAR2(100);
        V_REPORT_ID REPORT_OBJECT;
        VC_REPORTSERVER VARCHAR2(100);
        VC_RUNFORMAT VARCHAR2(100);
        VC_DESNAME VARCHAR2(100);
        STR_REPORT_JOBID VARCHAR2(100);
        STRSERVER VARCHAR2(100);
        HIDDEN_ACTION VARCHAR2(2000):='';
BEGIN
        L_REPNAME:=:PARAMETER.REPNME;
        SELECT REPORTPATH, APPSERVER,REP_SERVER_NAME INTO L_PATH,STRSERVER,     VC_REPORTSERVER FROM PRMAUSER;
        PL_ID := GET_PARAMETER_LIST(PL_NAME);
        IF ID_NULL(PL_ID) = FALSE THEN
                DESTROY_PARAMETER_LIST(PL_ID); 
                PL_ID := CREATE_PARAMETER_LIST(PL_NAME); 
                IF ID_NULL(PL_ID) THEN 
                        MESSAGE('ERROR CREATING PARAMETER LIST '||PL_NAME); 
                        RAISE FORM_TRIGGER_FAILURE; 
                END IF; 
        ELSE 
                PL_ID := CREATE_PARAMETER_LIST(PL_NAME); 
        END IF;
        ADD_PARAMETER(PL_ID, 'MODE',    TEXT_PARAMETER, 'BITMAP');
        ADD_PARAMETER(PL_ID, 'DESTYPE',         TEXT_PARAMETER, 'CACHE');
        ADD_PARAMETER(PL_ID, 'DESFORMAT',       TEXT_PARAMETER, 'PDF');
        ADD_PARAMETER(PL_ID, 'PARAMFORM',       TEXT_PARAMETER, 'NO');
        ADD_PARAMETER(PL_ID, 'P_GROUPUNIT',     TEXT_PARAMETER, :P_GROUPUNIT);

        VC_REPORTOBJ:=L_PATH||L_REPNAME;
        V_REPORT_ID:= FIND_REPORT_OBJECT('REPORT18');
        SET_REPORT_OBJECT_PROPERTY(V_REPORT_ID, REPORT_FILENAME, VC_REPORTOBJ);
        SET_REPORT_OBJECT_PROPERTY(V_REPORT_ID,REPORT_EXECUTION_MODE,BATCH);
        SET_REPORT_OBJECT_PROPERTY(V_REPORT_ID,REPORT_COMM_MODE,ASYNCHRONOUS);
        SET_REPORT_OBJECT_PROPERTY(V_REPORT_ID,REPORT_SERVER,VC_REPORTSERVER);
        
        IF :P_GROUPUNIT IS NULL THEN
                SET_REPORT_OBJECT_PROPERTY(V_REPORT_ID,REPORT_OTHER ,'PARAMFORM=YES');
                HIDDEN_ACTION := (HIDDEN_ACTION || '&REPORT='||GET_REPORT_OBJECT_PROPERTY(V_REPORT_ID,REPORT_FILENAME));
                HIDDEN_ACTION := HIDDEN_ACTION||'&DESTYPE=CACHE';
                HIDDEN_ACTION := HIDDEN_ACTION||'&DESFORMAT=PDF';
                HIDDEN_ACTION := HIDDEN_ACTION ||'&MODE=BITMAP&USERID='||GET_APPLICATION_PROPERTY(USERNAME)
||'/'||GET_APPLICATION_PROPERTY(PASSWORD)
||'@'||GET_APPLICATION_PROPERTY(CONNECT_STRING);
        HIDDEN_ACTION := 'HTTP://'||STRSERVER||'/reports/rwservlet/'
||'?_HIDDEN_SERVER='||VC_REPORTSERVER||(HIDDEN_ACTION);
                SET_REPORT_OBJECT_PROPERTY(V_REPORT_ID,REPORT_OTHER,'PFACTION='||HIDDEN_ACTION||' PARAMFORM=YES');
        END IF;

        :GLOBAL.VC_REPORT_JOB_ID:=RUN_REPORT_OBJECT(V_REPORT_ID,PL_ID);
        :GLOBAL.VC_REP_STATUS :=REPORT_OBJECT_STATUS(:GLOBAL.VC_REPORT_JOB_ID);
        WHILE :GLOBAL.VC_REP_STATUS IN ('RUNNING','OPENING_REPORT','ENQUEUED') 
        LOOP
                :GLOBAL.VC_REP_STATUS :=REPORT_OBJECT_STATUS(:GLOBAL.VC_REPORT_JOB_ID);
        END LOOP;



        IF :GLOBAL.VC_REP_STATUS='FINISHED' THEN
                MESSAGE(:GLOBAL.VC_REP_STATUS);
                STR_REPORT_JOBID:=(SUBSTR(:GLOBAL.VC_REPORT_JOB_ID,
LENGTH(VC_REPORTSERVER)+2,LENGTH(:GLOBAL.VC_REPORT_JOB_ID)));
                WEB.SHOW_DOCUMENT ('HTTP://'||STRSERVER||'/reports/rwservlet/getjobid'
||STR_REPORT_JOBID||'?server='||VC_REPORTSERVER);
        ELSE
                MESSAGE ('REPORT FAILED WITH ERROR MESSAGE '||:GLOBAL.VC_REP_STATUS);
        END IF;
EXCEPTION
        WHEN NO_DATA_FOUND THEN
        NULL;
END;

   PROCEDURE run_report(p_rpt_name  varchar2,
                     p_dest      varchar2  default 'C'
                     )
    IS
    v_url                   varchar2(2000);
    v_cur_form_name         varchar2(100);
    v_length                number;
    vPath_Sep               char(1);
    v_rpt_name_with_path    varchar2(500);
    v_rpt_format            varchar2(50):='pdf'; -- Example: pdf,html,xml etc.
    v_rpt_key               varchar2(50):='Rep_key';
    v_para_form             varchar2(3) :='NO'; -- YES/NO
    v_dest                  varchar2(20);
    v_rpt_builder           varchar2(200);
    v_rpt_server            varchar2(50);

BEGIN
--------Report_Path -------------
    v_cur_form_name:=get_application_property(current_form);

    if get_application_property(operating_system) in ('MSWINDOWS', 'MSWINDOWS32', 'WIN32COMMON') then
        vPath_Sep := '\';
    else
        vPath_Sep := '/';
    end if;

  v_length:=instr(v_cur_form_name,vPath_Sep,-1);
   --Getting Current Report Name With Path.
  v_rpt_name_with_path:=substr(v_cur_form_name,1,v_length)||'Reports'||vPath_Sep||p_rpt_name;
  

------Report Destination-----

    v_dest:=upper(p_dest);
    if v_dest ='C' then
        v_dest:='cache';
    elsif v_dest='P' then
        v_dest:='printer';
    elsif v_dest='M' then
        v_dest:='mail';
    elsif v_dest='F' then
        v_dest:='file';
    end if;
    
-------Start Call Report----------
    v_url:=    '/reports/rwservlet?'||v_rpt_key
                                    ||'&desformat='   ||v_rpt_format
                                    ||'&destype='     ||v_dest
                                    ||'&paramform='   ||v_para_Form
                                    ||'&report='      ||v_rpt_name_with_path;



    web.show_document(v_url, '_blank');

--------End Call Report---------
    
exception
    when others then null;
end;

    v_url:=    '/reports/rwservlet?'||v_rpt_key
		          ||'&mode=bitmap'                                                            
			  ||'&desformat='   ||v_rpt_format                    
			  ||'&destype='     ||v_dest 
			  ||'&paramform='   ||v_para_Form                               
			  ||'&report='      ||v_rpt_name_with_path;

    v_url:=    '/reports/rwservlet?'||v_rpt_key
		          ||v_rpt_name
                          ||'&mode=bitmap'                                                
			  ||'&desformat='   ||v_rpt_format                    
			  ||'&destype='     ||v_dest 
			  ||'&paramform='   ||v_para_Form;