
    

       
 
        


        

FUNCTION Application_path RETURN  varchar2 IS

PathName_length number(2);
FormName_length number(2);
PathNam_var varchar2(6500);
PathNam_Form varchar2(6500);

BEGIN
PathNam_Form
:=get_application_property(current_form_name);
FormName_length:=length(PathNam_form);

PathNam_var :=get_application_property(current_form);
PathName_length :=length(PathNam_var);

pathName_length := pathName_length - (FormName_length
+ 5);

RETURN substr(PathNam_var,1,pathName_length);
  
END;

         
     

PROCEDURE call_form_open (form_name varchar2) is
My_error number;
BEGIN
call_form(:global.PathName ||'\' || form_name
||'.fmx');
exception
when others then
show_alearts('STOP_FAILE','Form Name'||form_name
||'Not Found in Path Name'||:global.PathName||'Please
Cheac Coreact Path Name');
END;

        

call_form_open('FormName');

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