Calling report from Form (shows nothing)

hi
i tried this but it gives no error and not any preview of report
but when i check in completed jobs Application Server it's there but without data only show layout
DECLARE
     v_report_id REPORT_OBJECT;
     vc_report_job_id VARCHAR2(100);
BEGIN
     v_report_id:=FIND_REPORT_OBJECT('REPORT_NODE1');
     SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_COMM_MODE,SYNCHRONOUS);
     SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_DESTYPE,CACHE);
     SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_DESFORMAT,'PDF');
     SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_SERVER,'rep_uoas');
     SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_OTHER,':P_DEPTNO='||:DEPT.DEPTNO||'paramform=no');
     vc_report_job_id:=RUN_REPORT_OBJECT(v_report_id);
END;
plz guide

hi .
even i've same type of problem , on running its giving
i also use the same code n its give the error
"report id not valid"
i've written in code.
v_report_id:=FIND_REPORT_OBJECT('REPORT_NODE1');
where report_node1 in parameter is report object..
is there something wrong in property palette of report object.
i've given the path of report in property palette then
why its giving ?
"report id invalid"
thanks
Amit

Similar Messages

Calling Report from Form Error ORA-06508

Dear all,
I want migrate from Fom6i to Oracle Developer Suite 10g (10.1).
Folder Form = C:\APLIORA\IRS\FORM
Folder Report = C:\APLIORA\IRS\REPORT
I have modified file DEFAULT.ENV
FORMS_PATH=C:\APLIORA\IRS\FORM;C:\APLIORA\IRS\REPORT
i do not have problem call a form from form.
but when i call report from form show error ORA-06508 : PL/SQL : could not find program unit being called ; -6508
my procedure is
PROCEDURE Call_Report IS
     list_id ParamList;
BEGIN
list_id := Get_Parameter_List('input_params');
IF NOT Id_Null(list_id) THEN
Destroy_Parameter_List(list_id);
END IF;
list_id := Create_Parameter_List('input_params');
Add_Parameter(list_id,'MAXIMIZE',TEXT_PARAMETER,'YES');
Add_Parameter(list_id,'ORACLE_SHUTDOWN',TEXT_PARAMETER,'YES');
RP2RRO.RP2RRO_RUN_PRODUCT(REPORTS,'TESTREPORT.REP',SYNCHRONOUS,RUNTIME,FILESYSTEM,list_id,null);
END ;
Do I miss something ?
Can any one help ?
Thanks

Hi,
Thank you for your replay.
The problem have solved.
This my step :
1. Install Windows XP SP2 and Form 10.1.2.0.2 on new pc.
2. Install Jinit version 1.3.1.28.
3. Create report server
3. Compile form, report and pll
4. call report from from with this procedure :
PROCEDURE Call_Report (vFILENAME varchar2) IS
report_id                Report_Object;
ReportServerJob VARCHAR2(100);
vc_rep_status      VARCHAR2(100);
repsvr                          varchar2(21) := 'myserv';
userid                         VARCHAR2(100);
pass                          VARCHAR2(100);
Host                    VARCHAR2(100);
BEGIN
userid          := Get_Application_Property(USERNAME) ;
pass          := Get_Application_Property(PASSWORD) ;
Host          := Get_Application_Property(CONNECT_STRING) ;
report_id:= find_report_object('REPORT');
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_FILENAME,vFILENAME||'.jsp');
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_COMM_MODE,SYNCHRONOUS);
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_SERVER,repsvr);
ReportServerJob:=run_report_object(report_id);
vc_rep_status := REPORT_OBJECT_STATUS(ReportServerJob);
WHILE vc_rep_status in ('RUNNING','OPENING_REPORT','ENQUEUED', null)
LOOP
vc_rep_status:=REPORT_OBJECT_STATUS(ReportServerJob);
END LOOP;
IF vc_rep_status='FINISHED' THEN
WEB.SHOW_DOCUMENT('/reports/rwservlet?report='||vFILENAME||'.jsp'||'&userid='||userid||'/'||pass||'@'||Host||'&destype=CACHE&desformat=PDF&paramform=yes','_blank');
ELSE
message ('Report failed with error message '|| vc_rep_status);
END IF;
END;
Ok, but i have another strange error. I will post new thread.
Thank you and regards
Teguh S

Calling Report From Form To Many Destinations

Hi
I am calling reports from forms using SET_REPORT_OBJECT_PROPERTY and then run_report_object.
I dont know the destination until runtime of the report which is ok as I can pass this in via my procedure, but if that destination is many ie mail and file what is the best way to distribute the report?
I could call my procedure for each destination but that seems a bit unefficient since the report would be created many times, is there another way?

what about adding a drop-down-list near your report-button where you can choose the destination?
when you click the report-button you simply read the value selected in the drop-down-list and send it to your reports-server too.

REP 110 & REP 0110 .calling reports from Form 10g(10.1.2.0.2)

Hi All,
We are migrating form from Oracle form 6i to Oracle 10g(10.1.2.0.2). I am calling reports from forms
using Web.Show_Docment(). When we run reports in report builder 10g it works fine.
But when we try to run reports from Forms 10g it throws error which is given below.
We want to run reports from UNIX. After using this url to submit report we get error REP 110 and REP 0110
URL
http://GEM:7777/reports/rwservlet?server=rep_server&report=/u01/forms/QA_Forms10g/GEMREP.rdf+DESTYPE=CACHE+DESFORMAT=HTML+p_user_id=XYZ+p_client=2
ERROR
REP-110: File '/u01/forms/QA_Forms10g/GEMREP.rdf DESTYPE=CACHE DESFORMAT=HTML p_user_id=XYZ p_client=2' not found.
REP-0110: Unable to open file '/u01/forms/QA_Forms10g/GEMREP.rdf DESTYPE=CACHE DESFORMAT=HTML p_user_id=XYZ p_client=2'.
I will really appreciate your help.
Thanks
Sandy

Hello,
You are mixing 2 separators in the URL : & and +
Use only one separator in the URL :
Example :
http://GEM:7777/reports/rwservlet?server=rep_server+report=/u01/forms/QA_Forms10g/GEMREP.rdf+DESTYPE=CACHE+DESFORMAT=HTML+p_user_id=XYZ+p_client=2
Regards

Calling report from form in Web environment

Hi,
We are in the process of migrating our C/S appication (developed in Developer2k) to intranet using OAS. My question :
a) Is there any other way to call report from a form other than web.show_document?
b) When a report is called from the report server(using web.show_document), a log-in screen comes up unless the login and password is passed as parameter. Only problem with this is the password shows in the URL. Is there any other way to make the call so that the login & password does not show and the user won't have to login a second time to run the report?
Any reply would be appreciated..Thanks

1. Yes you can use run_product package procedure to call reports on web, Oracle documentation says that run_product command will run in web env.
2. Yes you can hide username & password from user, it depends on which method you are using to call reports, if you are using web cgi then add username & password in file "cgicmd.dat" and "oascmd.dat" for web catridge or in cartridge parameter setting you will find this files in directory "\orant\report60\server\".
Darshan Desai
[email protected]
null

Calling report from form. Need PDF output

I am calling a report from a form using RUN_PRODUCT. I need to display the form in PDF format. When the user clicks the button in the form to run the report, acrobat reader should open up and the report displayed there. Please help.
Thanks

Thanks for the response. The first part worked. I am able to get the output in PDF format. In the 2nd part where I want to open acrobat and display the output, I am having some trouble with the code. When I compile, it says
win_api_environment.read_registry must be declared. Is there some package I need to attach?
Also, in the After reports trigger, how do I pass vFile (I am assuming this is the PDF file name)?
Thanks
The first thing you'll want to do is pass parameters to the report IE DESTYPE, DESNAME and DESFORMAT where these could be FILE, 'c:\temp\report' and PDF.
Then, you can try this piece of code I wrote (with some help from other people at Metalink and here) sometime back. Now, I call it from forms, but in your case, you'd have to run it in the after report trigger. Since with RUN_PRODUCT you don't know when the report is finished, if you did it from the form, it wouldn't work correctly.
PROCEDURE OPEN_PDF(vFile IN VARCHAR2)
IS
vcServerApp varchar2(40);
vcServerTag varchar2(600);
vcCommand varchar2(2000);
iArgPos pls_integer;
dummy NUMBER;
BEGIN
-- 1 get the Server App for .PDF files
vcServerApp := win_api_environment.read_registry('HKEY_LOCAL_MACHINE\SOFTWARE\CLASSES\.PDF','',true);
-- 2 get the executable
vcServerTag := 'HKEY_LOCAL_MACHINE\SOFTWARE\CLASSES\'||
vcServerApp||'\SHELL\OPEN\COMMAND';
vcCommand:= win_api_environment.read_registry(vcServerTag,'',true);
-- 3 Sort out how to specify the Filename
iArgPos:= instr(vcCommand,'%1');
if iArgPos = 0 then --no substitution Var on the command line
vcCommand := vcCommand||' '||vFile;
else
vcCommand := substr(vcCommand,1,(iArgPos-1))||
vFile||substr(vcCommand,(iArgPos+2));
end if;
-- 4 Run using Winexec (or Host if preferred).
win_api_shell.winexec(vcCommand);
EXCEPTION
when no_data_found then
abortt('Acrobat Reader was not found! Please consult with your help desk to install it and try again.','N');
END;
Chad
I am calling a report from a form using RUN_PRODUCT. I need to display the form in PDF format. When the user clicks the button in the form to run the report, acrobat reader should open up and the report displayed there. Please help.
Thanks

Getting rep-3002 when calling report from form on web

i am getting rep-3002 when i call report from a form on web environment. Report is in character mode. It is coming proper if i change it to bitmap. but my requirement is of character mode. pl. give some solution.

Hello,
If you are running in WinNT/2000 environment, the NT/2000 user which runs the Report Server service must have a printer defined. In the control panel, look at the properties for the Report Server to see what user it runs as. Log in as that user and make sure a default printer is defined.
Regards,
The Oracle Reports Team --skw

Call report from form 10g (10.1.2.0.2)

hi
i using win 2003 and db 10g and dev10g ( 10.1.2.0.2)
and i want to call report from my form as following code :
DECLARE
dir varchar2(200);
repid REPORT_OBJECT;
v_rep VARCHAR2(100);
rep_status VARCHAR2(20);
BEGIN
dir:=co$win.get_current_directory ;
repid := find_report_object('CGNV$OFG_REPORT');
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_FILENAME,dir||'\rep.jsp');
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_EXECUTION_MODE,runtime);
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_COMM_MODE,SYNCHRONOUS);
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESTYPE,CACHE);
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESFORMAT,'HTML');
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_SERVER,'rws');
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_OTHER,'paramform=yes');
v_rep := RUN_REPORT_OBJECT(repid);
rep_status := REPORT_OBJECT_STATUS(v_rep);
WHILE rep_status in ('RUNNING','OPENING_REPORT','ENQUEUED')
LOOP
rep_status := report_object_status(v_rep);
END LOOP;
IF rep_status = 'FINISHED' --or rep_status is null
THEN
WEB.SHOW_DOCUMENT('http://hamid:8889/reports/rwservlet/getjobid'||
substr(v_rep, instr(v_rep,'_',-1)+1)||'?server=rws','_blank');
ELSE
message(ER_RP);
END IF;
END;
but i get error :
frm-41213: unable to connect to the report server rws
plz help me

hi
i using win 2003 and db 10g and dev10g ( 10.1.2.0.2)
and i want to call report from my form as following code :
DECLARE
dir varchar2(200);
repid REPORT_OBJECT;
v_rep VARCHAR2(100);
rep_status VARCHAR2(20);
BEGIN
dir:=co$win.get_current_directory ;
repid := find_report_object('CGNV$OFG_REPORT');
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_FILENAME,dir||'\rep.jsp');
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_EXECUTION_MODE,runtime);
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_COMM_MODE,SYNCHRONOUS);
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESTYPE,CACHE);
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESFORMAT,'HTML');
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_SERVER,'rws');
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_OTHER,'paramform=yes');
v_rep := RUN_REPORT_OBJECT(repid);
rep_status := REPORT_OBJECT_STATUS(v_rep);
WHILE rep_status in ('RUNNING','OPENING_REPORT','ENQUEUED')
LOOP
rep_status := report_object_status(v_rep);
END LOOP;
IF rep_status = 'FINISHED' --or rep_status is null
THEN
WEB.SHOW_DOCUMENT('http://hamid:8889/reports/rwservlet/getjobid'||
substr(v_rep, instr(v_rep,'_',-1)+1)||'?server=rws','_blank');
ELSE
message(ER_RP);
END IF;
END;
but i get error :
frm-41213: unable to connect to the report server rws
plz help me

FRM-41219 - Cannot able to call reports from form generated in Designer

Hi
I'm trying to call a report from form whit a button generated in Designer 10.1.2.0.2
But I'm getting error : FRM-41219 Invalid report id
I'm tying with a menu but I'm getting the same error.
Please help me

Note 1056653.6
FRM-41219 Cannot Find Report: Invalid ID
Problem Description:
You are getting error: FRM-41219 Cannot Find Report: Invalid ID
Problem Explanation:
The code is using find_report_object and passing a report name to the function.
The statements are as follows:
DECLARE
repid REPORT_OBJECT;
BEGIN
repid := FIND_REPORT_OBJECT('report1');
END;
Solution Explanation:
The error message frm-41219 is a new error code which corresponds to the
Oracle Developer forms/report integration.
This message essentially means that the report cannot be found. Specifying the
correct name of a report object found in the forms object navigator (not the
actual name of the rdf file) usually resolves the problem.

Calling report from forms :- need to disable file menu in report previewer

Hi all,
I am using report 6i and forms 6i
I am invoking report from forms
if report_status='N' then I want to disable the file menu in report previewer
Is it possible to disable and enable file menu in report previewer
Please help
Thanks
:8}

i got way

Parameter form display while calling reports from form

Dear All,
I am running reports from form using run_report_object. I do not want to see parameter form while running the report. How do I do that.
Thanks in Advance
Gaurav Shah

Hi, try to set paramform=NO in your parameter list
Daniel

Calling reports from forms...i have 10 days left to find a solution please!

here is the scenario
i connect to a oracle 9i server from home. i use winxp and 9i Developer to create database applications. when i need to run forms i have to start an OCJ4 Instance, i have a problem though....
i need to run a report from a form and have tried the following methods:
DECLARE
repid REPORT_OBJECT;
v_rep VARCHAR2(100);
BEGIN
repid := find_report_object('rptRequest');
SET_REPORT_OBJECT_PROPERTY(repid, REPORT_EXECUTION_MODE, RUNTIME);
SET_REPORT_OBJECT_PROPERTY(repid, REPORT_COMM_MODE, SYNCHRONOUS);
SET_REPORT_OBJECT_PROPERTY(repid, REPORT_DESTYPE, SCREEN);
v_rep := RUN_REPORT_OBJECT(repid);*/
END;
this results in REP-0503 "You did not specify the name of a report"
i have also tried:
WEB.SHOW_DOCUMENT('http://localhost:8888/reports/server=repSRV&report=rptRequest.rdf&desformat=pdf&userid=user/pass@ORASERV&paramform=no');
but this display page cannot be found.
Where is the report server i should be pointing to?
thanks for your help

Michael,
the default Reports Services is started by a request to the Reports Servlet "rwservlet". To run Reports from Forms I suggest to install the Reports Services as a separate process that can be controlled by a Windows Service
iDS Home\bin rwserver -install <Reports Services name you want to use>
This creates a Windows Service for you that starts/stope the Reports Server. In Forms you use set_report_object_property() built-in to set the Repors services name to teh one specifie when installing the Reports Services process. Alternatively you can set the name in teh Report node property palette.
SET_REPORT_OBJECT_PROPERTY(repid, REPORT_DESTYPE, SCREEN);
This is not a valid option when running a report on Reports Services. Try destype CACHE and set the desformat to either HTML, HTMLCSS or PDF.
Read http://otn.oracle.com/products/forms/pdf/frm9isrw9i.pdf and 10 days no longer should be a problem.
Frank

When calling report from forms, only html format report can show chinese characters

To all experts,
When I run report by calling run_report_object() in forms, only html format can show chinese characters. If I choose pdf format, garbage characters were shown instead of chinese characters. My settings on server are as follows:
NLS_LANG=TRADITIONAL CHINESE_HONG KONG.UTF8
FORMS60_REPFORMAT=PDF
Do you know why? I hope to print report in PDF format as PDF turned out to be more regular in format. Is there any additional settings required?
May experts here broaden my mind?
Richard

You have two different ways of generating Japanese PDF files from Reoprts. One is font aliasing and the other is font subsetting.
<font aliasing>
You will need to have the following entries in uiprint.txt (example).
[ PDF ]
.....JA16SJIS = "KozMinPro-Regular-Acro"
"MS UI Gothic".....JA16SJIS = "KozMinPro-Regular-Acro"
You may need to download and install Japanese Font Pack from Adobe's web site (if your Acrobat is non-Japanese version).
<font subsetting>
You will need to add C:\WINNT\Fonts (or wherever your TTF/TTC fonts are installed) to your REPORTS_PATH.
You will also need to have the following entries in uiprint.txt (example).
[ PDF:Subset ]
"Andale Duospace WT J" = "Aduoj.ttf"
"Albany WT J"="AlbanWTJ.ttf"
"MS UI Gothic" = "msgothic.ttc"

FRM - 41219 CANNOT FIND REPORT INVALID ID - CALLING REPORT FROM FORM

I am using Developer Suite 10g (forms 9i, reports 9i) . windows XP.
I am using the following code in WHEN-BUTTON-PRESSED-PRESSED trigger in form to call report.
DECLARE
repid REPORT_OBJECT;
v_rep VARCHAR2(100);
rep_status varchar2(20);
BEGIN
repid := find_report_object('C:\EMP.RDF');
v_rep := RUN_REPORT_OBJECT(repid);
END;
as as result It is displaying FRM - 41219 CANNOT FIND REPORT INVALID ID.
I have used the EMP.JSP also in find_report_object built-in. But there is no difference.
what could be the reason - plz give the solution.
with thanks
by GMS

Unless you made a mistake and overlooked it, what I suggested should work. Having said that, you did not mention the exact Forms version you are using. There may have been a problem in the version you are using which was corrected in a later release. I tested the example I offered using Forms 10.1.2.3 and it works correctly. Carefully review what you did. Verify that the file actually exists in the file system. Also, I would recommend renaming the file with all lower case letters and referencing it in the form with all lower case letters. Here is the complete code of the form I tested. I will also include the property values from the Report object.
Report1 settings:
Name - REPORT1
Subclass Information -
Comments -
Filename - dummy.rdf
Execution Mode - Batch
Communication Mode - Synchronous
Data Source Data Block - <Null>
Query Name -
Report Destination Type - File
Report Destination Name -
Report Destination Format -
Report Server -
Other Reports Parameters - On the form create the following items in BLOCK1:
Text fields:
<li>SERVERNAME
<li>REPNAME
<li>OTHERPARAMS
Button:
<li>CALL_REP
In the WHEN-BUTTON-PRESSED trigger add this code:
Declare
repid REPORT_OBJECT;
v_rep varchar2(256);
rep_status varchar2(256);
Begin
   repid := find_report_object('REPORT1');
-- Set Report Object properties
SET_REPORT_OBJECT_PROPERTY(repid, REPORT_DESTYPE, CACHE);
SET_REPORT_OBJECT_PROPERTY(repid, REPORT_DESFORMAT, 'HTML');
-- Comm mode 1 = SYNCHRONOUS
-- Comm mode 2 = ASYNCHRONOUS
SET_REPORT_OBJECT_PROPERTY(repid, REPORT_COMM_MODE, 1);
SET_REPORT_OBJECT_PROPERTY(repid, REPORT_SERVER, :block1.SERVERNAME);
SET_REPORT_OBJECT_PROPERTY(repid, REPORT_FILENAME, :block1.REPNAME);
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_OTHER,:block1.otherparams);
SYNCHRONIZE;
-- Run report and get status
v_rep := RUN_REPORT_OBJECT(repid);
rep_status := report_object_status(v_rep);
SYNCHRONIZE;
-- Wait for Reports to generate results
    WHILE rep_status in ('RUNNING','OPENING_REPORT','ENQUEUED')
    LOOP
      rep_status := report_object_status(v_rep);
    END LOOP;
    SYNCHRONIZE;
-- If DESTYPE is appropriate for displaying to user, execute WEB.SHOW ;
    IF rep_status = 'FINISHED' THEN
      WEB.SHOW_DOCUMENT('/reports/rwservlet/getjobid'||substr(v_rep,instr(v_rep,'_',-1)+1)||'?'||'server='||:block1.SERVERNAME,'_blank');
    ELSE
      message(rep_status);
    END IF;
END; When you run the form, enter the Report Server name and the Report filename (include the path if you have not configured REPORTS_PATH). Then click on the button. Note that the substr logic may need to be altered slightly if you are using an old version of Forms/Reports.
.

Calling report from FORM - error Invalid value of paramente 'P_YEAR'

Hi guys,
Could you please help me to figure out what is going wrong
with my form which run a report?
I am using Developer suite 10g.
when i run report from report application it run fine,
but when i call that report from a form it gives me error.
I have checked the datatype, checked the parameter value
that I assign from form is available in the report parameter value.
What else do i have to check in order to run this report
from the form.
Error Message from Report Queue Manager:
Invalid value for parameter 'P_YEAR'.
Your insight will be appreciated.

Thank you for reply Denis,
Here is the code which run_report from form.
DECLARE
-- variables for running individual reports
report_filename               VARCHAR2(40);
var_reportpath               VARCHAR2(100);
report_otherparms      VARCHAR2(200);
-- variables to keep track of successful reports in silent mode
rep_status                         VARCHAR2(40);
rep_req                                   NUMBER := 0;
rep_count                              NUMBER := 0;
dummy                                        NUMBER;
-- variables to load the report names and checkboxes into the parameter list
pl_id                                        PARAMLIST;
plname                                   VARCHAR2(20) := 'rpt_list';
-- variables to loop through the parameter list and run the reports
i                                                  NUMBER;
split_loc                              NUMBER;
     param_value                         VARCHAR2(40);
     checkbox_name                    VARCHAR2(40);
     report_basename               VARCHAR2(40);
     svc_name                              VARCHAR2(4);
     run_report                         BOOLEAN;
     disp_exist BOOLEAN := get_current_service_count( :global.filename_prefix, 'DISP',
                    :reports_control.year_list, :reports_control.quarter_list,
                    :reports_control.group_list );
hosp_exist BOOLEAN := get_current_service_count( :global.filename_prefix, 'HOSPICE',
                    :reports_control.year_list, :reports_control.quarter_list,
                    :reports_control.group_list );
orth_exist BOOLEAN := get_current_service_count( :global.filename_prefix, 'O/P',
                    :reports_control.year_list, :reports_control.quarter_list,
                    :reports_control.group_list );
BEGIN
-- Are any reports selected?
IF BOXES_ARE_CHECKED(:System.Cursor_Block,'PRINT_NULL_REPORT') THEN
if not CHECKBOX_CHECKED('print_null_report') then
disp_exist := TRUE;
orth_exist := TRUE;
hosp_exist := TRUE;
end if;
-- Create Report Parameter Listing
pl_id := GET_PARAMETER_LIST(plname);
if NOT ID_NULL(pl_id) then
     DESTROY_PARAMETER_LIST(pl_id);
end if;
pl_id := CREATE_PARAMETER_LIST(plname);
if ID_NULL(pl_id) then
     GENERIC_ALERT('Error creating report listing');
     RAISE Form_Trigger_Failure;
end if;
ADD_PARAMETER(pl_id,'id1', TEXT_PARAMETER,'cover_page_intro!INTRO');
ADD_PARAMETER(pl_id,'id2', TEXT_PARAMETER,'utilization_profile!ALLUTIL');
ADD_PARAMETER(pl_id,'id3', TEXT_PARAMETER,'utilization_summary!ALL_SUMMARY');
ADD_PARAMETER(pl_id,'id4', TEXT_PARAMETER,'hiv_profile!HIV_PROFILE');
ADD_PARAMETER(pl_id,'id5', TEXT_PARAMETER,'wound_care_profile!WOUND_CARE_PROF');
ADD_PARAMETER(pl_id,'id6', TEXT_PARAMETER,'top_10_diagnosis!TOP10DIAG');
ADD_PARAMETER(pl_id,'id7', TEXT_PARAMETER,'diagnosis_profile!DIAG_PROFILE');
ADD_PARAMETER(pl_id,'id8', TEXT_PARAMETER,'physician_profile!PHYS_PROFILE');
ADD_PARAMETER(pl_id,'id9', TEXT_PARAMETER,'physician_specialty!PHYS_SPECIALTY');
ADD_PARAMETER(pl_id,'id10',TEXT_PARAMETER,'discharge_profile!DISCHARGE_PROFILE');
ADD_PARAMETER(pl_id,'id11',TEXT_PARAMETER,'acute_care_discharge!ACUTE_DSCHRG');
ADD_PARAMETER(pl_id,'id12',TEXT_PARAMETER,'excessive_cost_patients!EXCESSIVE_COST');
ADD_PARAMETER(pl_id,'id13',TEXT_PARAMETER,'provider_profile!PROV_PROFILE');
ADD_PARAMETER(pl_id,'id14',TEXT_PARAMETER,'service_profile!SERVICE_PROFILE');
ADD_PARAMETER(pl_id,'id15',TEXT_PARAMETER,'age_gender_profile!AGE_GENDER_PROF');
ADD_PARAMETER(pl_id,'id16',TEXT_PARAMETER,'network_services!NETWORK_SERVICES');
ADD_PARAMETER(pl_id,'id17',TEXT_PARAMETER,'thh_section_header!THH_COVER');
ADD_PARAMETER(pl_id,'id18',TEXT_PARAMETER,'thh_utilization!THH_UTILIZATION');
ADD_PARAMETER(pl_id,'id19',TEXT_PARAMETER,'thh_service_profile!THH_SVC_PROF');
ADD_PARAMETER(pl_id,'id20',TEXT_PARAMETER,'hit_section_header!HIT_COVER');
ADD_PARAMETER(pl_id,'id21',TEXT_PARAMETER,'hit_utilization!HIT_UTILIZATION');
ADD_PARAMETER(pl_id,'id22',TEXT_PARAMETER,'hit_service_profile!HIT_SVC_PROF');
ADD_PARAMETER(pl_id,'id23',TEXT_PARAMETER,'hme_section_header!HME_COVER');
ADD_PARAMETER(pl_id,'id24',TEXT_PARAMETER,'hme_utilization!HME_UTILIZATION');
ADD_PARAMETER(pl_id,'id25',TEXT_PARAMETER,'hme_service_profile!HME_SVC_PROF');
ADD_PARAMETER(pl_id,'id26',TEXT_PARAMETER,'disp_section_header!DISP_COVER');
ADD_PARAMETER(pl_id,'id27',TEXT_PARAMETER,'disp_utilization!DISP_UTILIZATION');
ADD_PARAMETER(pl_id,'id28',TEXT_PARAMETER,'disp_service_profile!DISP_SVC_PROF');
ADD_PARAMETER(pl_id,'id29',TEXT_PARAMETER,'hosp_section_header!HOSP_COVER');
ADD_PARAMETER(pl_id,'id30',TEXT_PARAMETER,'hosp_utilization!HOSP_UTILIZATION');
ADD_PARAMETER(pl_id,'id31',TEXT_PARAMETER,'hosp_service_profile!HOSP_SVC_PROF');
ADD_PARAMETER(pl_id,'id32',TEXT_PARAMETER,'orth_section_header!ORTH_COVER');
ADD_PARAMETER(pl_id,'id33',TEXT_PARAMETER,'orth_utilization!ORTH_UTILIZATION');
ADD_PARAMETER(pl_id,'id34',TEXT_PARAMETER,'orth_service_profile!ORTH_SVC_PROF');
ADD_PARAMETER(pl_id,'id35',TEXT_PARAMETER,'encounter_detail!ENCOUNTER_DETAIL');
--- set up other parameters to send to generate_report
if :reports_control.output_choices = 'FILE' then
var_reportpath := :global.report_directory || :reports_control.year_list;
if :global.filename_suffix <> '_A10G' then
     var_reportpath := var_reportpath || 'q' || :reports_control.quarter_list;
end if;
var_reportpath := var_reportpath || '_G' || :reports_control.group_list || '_';
else
     var_reportpath := '';
end if;
report_otherparms := 'p_year='||:reports_control.year_list;
if :global.filename_suffix <> '_A10G' then
     report_otherparms := report_otherparms || '     p_quarter='||:reports_control.quarter_list;
end if;
report_otherparms := report_otherparms || ' P_REPORTGROUPID='||:reports_control.group_list;
--- Check if reports are checked and submit to Reports Server
     for i in 1..35 loop
          GET_PARAMETER_ATTR(pl_id,'id'||i,dummy,param_value);
          split_loc := instr(param_value,'!');
          checkbox_name := substr(param_value,1,split_loc-1);
          report_basename := substr(param_value,split_loc+1,length(param_value));
if CHECKBOX_CHECKED(checkbox_name) then
     run_report := TRUE;
     svc_name := substr(report_basename,1,4);
     if svc_name = 'DISP' then
          if not disp_exist then
               run_report := FALSE;
          end if;
     elsif svc_name = 'ORTH' then
          if not orth_exist then
               run_report := FALSE;
          end if;
     elsif svc_name = 'HOSP' then
          if not hosp_exist then
               run_report := FALSE;
          end if;
     end if;
     if run_report then
          report_filename := :global.filename_prefix || report_basename || '_10G';---- :global.filename_prefix || report_basename || :global.filename_suffix;
     GENERIC_ALERT(report_filename || ' ' || report_otherparms);
          rep_status := GENERATE_REPORT(report_filename,:reports_control.output_choices,var_reportpath,report_otherparms);
          rep_req := rep_req + 1;
          if rep_status = 'FINISHED' then
               rep_count := rep_count + 1;
          end if;
     end if;
     end if;
     end loop;
-- if we're in silent mode, display a completion message
     if :reports_control.output_choices = 'FILE' and CHECKBOX_CHECKED('chk_silent') then
          SET_ALERT_PROPERTY('REPORT_CREATED',alert_message_text,
     '' || rep_count || ' of ' || rep_req || ' reports created successfully');
          dummy := SHOW_ALERT('REPORT_CREATED');
end if;
ELSE
dummy := SHOW_ALERT('select_report');
END IF;
END;

Calling report from Form (shows nothing)

Similar Messages

Maybe you are looking for