report call from Forms

PROCEDURE Fpr_Print_Advice(s_fbflag varchar2,s_advnum varchar2) IS
s_parlst paramlist;
s_repnam varchar2(100);
Begin

If s_fbflag = 'FO' Then
:global.program_name := 'strfoadv.rdf';
ElsIf s_fbflag = 'BO' Then
:global.program_name := 'strboadv.rdf';
Else
Base_Message_Box('Not a valid Front Office / Back Office Flag');
Raise Form_Trigger_Failure;
End If;

s_parlst := Get_Parameter_List('s_pardat');

IF Id_Null(s_parlst) THEN
s_parlst := Create_Parameter_List('s_pardat');
Else
Destroy_Parameter_List('s_pardat');
s_parlst := Create_Parameter_List('s_pardat');
End if;

Add_Parameter(s_parlst,'P0',TEXT_PARAMETER,:crq1.brancd);
Add_Parameter(s_parlst,'P1',TEXT_PARAMETER,s_advnum);

--s_repnam := 'c:\syed\':global.program_name;
s_repnam := :global.sypthdir:global.program_name;

Add_parameter(s_parlst,'PARAMFORM',TEXT_PARAMETER,'NO');
Add_Parameter(s_parlst,'DESTYPE',TEXT_PARAMETER,'SCREEN');
Run_Product(Reports,s_repnam,Synchronous,Runtime,Filesystem,s_parlst,NULL);
End;