Date: Mon, 18 Oct 1999 16:35:10 -0600
From: "Kossmann, Bill" BKossmann@mail.dthr.ab.ca
To: "'oraapps-l@cpa.qc.ca'" oraapps-l@cpa.qc.ca
Subject: RE: Passing parameters with Zooms
Message-ID: 2F1A38DC0413D311A7310090273AD5270ACF62@dthrexch01

Elizabeth,

------------------
Thanks again for your help!

Regards,

Bill

Code snippet follows:
-------------------------------------------------------------------------

    form_name           varchar2(30) := name_in('system.current_form');
    block_name          varchar2(30) := name_in('system.cursor_block');
    param_to_pass1      varchar2(50);
    param_to_pass2      varchar2(100);
    param_to_pass3      varchar2(25);
  --
  begin
    if (event_name = 'ZOOM') then
      if (form_name = 'GLXJEENT') and
        ((block_name = 'HEADER') or (block_name = 'LINES')) then
        param_to_pass1  := 'DTHR Journal Entry Report';
        param_to_pass2  := name_in('HEADER.NAME');
        param_to_pass3  := name_in('HEADER.PERIOD_NAME');
        fnd_function.execute(FUNCTION_NAME='FND_FNDRSRUN',
                             OPEN_FLAG='Y',
                             SESSION_FLAG='Y',

OTHER_PARAMS='CONCURRENT_PROGRAM_NAME="'||param_to_pass1||'"');
      end if;
    else
      null;
    end if;

-------------------------------------------------------------------------

    if (event_name = 'WHEN-NEW-FORM-INSTANCE') then
      if (form_name = 'FNDRSRUN') and
        name_in('PARAMETER.CONCURRENT_PROGRAM_NAME') is not null then
                copy(param_to_pass1, 'REPORT.USER_CONCURRENT_PROGRAM_NAME');
                copy('DTHR Set of
Books:'||param_to_pass3||':'||param_to_pass2||':::::::::',
'REPORT.REPORT_ARGUMENTS');
                copy('1', 'REPORT.NUMBER_OF_COPIES');
                copy('Landwide', 'REPORT.USER_PRINT_STYLE');
                copy('fin4000', 'REPORT.PRINTER');
      end if;
    else
      null;
    end if;

  end event;