How to run a Concurrent Program from ZOOM button in R12

Brief Introduction to Custom Library: The CUSTOM.pll library is a standard Oracle Forms PL/SQL library that is supplied by Oracle with the Oracle Applications. This is Oracle’s built-in feature that allows the customer to enhance the standard functionality of the Applications by implementing site-specific business rules. Every Oracle Forms -based eBusiness screen, and any custom form developed using the Oracle Application development standards, will access the CUSTOM library. This makes an ideal point of creating business rules that effect the entire organization. This is the only method of forms enhancement whose functionality is supported by Oracle World Wide Support. Although any enhancements coded by the customer are not directly supported by Oracle World Wide Support.

Solution:

To run a report we have to make changes in CUSTOM.pll library which resides in $AU_TOP resource folder. To make customizations in CUSTOM.pll we have to open the CUSTOM.pll in form builder.

Then to make code enable for ZOOM button is to be written in CUSTOM.pll to write the code library is to be opened in Forms builder.

After compiling the library place it on the server and compile it again with the following code

Source the environment variable.

. frmcmp_batch.sh module=/opt/oracle/apps/apps_st/appl/au/12.0.0/resource/CUSTOM.pll userid=apps/apps output_file=/opt/oracle/apps/apps_st/appl/au/12.0.0/resource/CUSTOM.plx module_type=library compile_all=special

Note: You have to re login to see the changes.

Code to Run the Concurrent Program:

To run the reports we will have to write the code in event procedure of CUSTOM.pll the code is as following:

procedure event(event_name varchar2) is

form_name            varchar2(30) := name_in('system.current_form');

  block_name          varchar2(30) := name_in('system.cursor_block');

  lv_param_p1         varchar2(30);

  lv_param_p2         varchar2(30);

  request_id          NUMBER;

  timer_id            timer;

  parm_request_id     number;

  progress_no         number;

  v_layout            boolean;

  l_wait                            boolean;

  x_Phase             Varchar2(100);

  x_Status            Varchar2(100);

  x_Dev_Phase         Varchar2(100);

  x_Dev_Status        Varchar2(100);

  x_Message           Varchar2(100); 

  begin

   

    if (event_name = 'ZOOM') then

    if (form_name = 'ARXTWMAI' and block_name = 'TGW_HEADER') THEN

   

    lv_param_p1 := name_in('tgw_header.TRX_NUMBER_MIR'); --- This is the parameter that is from standard form into the report parameter

   

    v_layout :=FND_REQUEST.add_layout('AR','USA_AR_INVOICE_VOUCHER','en','US','PDF',NULL); -- This is to set the layout

   

    request_id :=  fnd_request.submit_request('AR','USA_AR_INVOICE_VOUCHER','Cust Export Sale  Voucher',SYSDATE,FALSE,'','','',lv_param_p1,lv_param_p1,'','','','','');  --- This will submit the concurrent request to execute the report. Parameters in sequence to execute the report.

   

    COMMIT; --- commit must be used when ever a concurrent parogram is run customized

    clear_message;

     If request_id Is Null Or

       request_id = 0 Then

      Return;

     End If;

    

    

       fnd_message.set_string('Request Submitted :' || request_id ||'. Please Wait ..... ');

       fnd_message.show;

        SET_APPLICATION_PROPERTY(CURSOR_STYLE, 'BUSY');

        APP_WINDOW.PROGRESS(0);

       

        l_wait := Fnd_Concurrent.Wait_For_Request(request_id,1,0,x_Phase,x_Status,x_Dev_Phase,x_Dev_Status,x_Message);

       

          If x_Dev_Phase = 'COMPLETE' THEN --- And x_Dev_Status = 'NORMAL' Then

            

             --    message(x_Dev_Phase);

            

Editor_Pkg.Report(request_id,'Y'); --- This resides in FNDCON.pll library you will have to add this library to CUSTIOM.pll so the compile the library otherwise it will not compile. Shown in figure at the end.

           Else

                              Fnd_File.Put_Line(1,Rpad('x_phase',20,' ') || '=' || x_Phase);

                              Fnd_File.Put_Line(1,Rpad('x_status=',20,' ') || '=' || x_Status);

                              Fnd_File.Put_Line(1,Rpad('x_dev_phase=',20,' ') || '=' || x_Dev_Phase);

                              Fnd_File.Put_Line(1,Rpad('x_dev_status=',20,' ') || '=' || x_Dev_Status);

                              Fnd_File.Put_Line(1,Rpad('x_message=',20,' ') || '=' || x_Message);

                              Fnd_File.Put_Line(1,'Warning : Starting print report failure! It did not running in 120 seconds, its request_id is ' ||

                                                To_Char(request_id) || ' please check it.');

    End If;

     

        SET_APPLICATION_PROPERTY(CURSOR_STYLE, 'DEFAULT'); 

        APP_WINDOW.PROGRESS(1);

       

       

                

        end if;   

 

    end if;   

 

  end event;

This will execute your required report but report will be complete in warning and report must be added to that request group.

Press Yes in above figure.