Internal Error 1401.

Question

Hi,
I have a function in the backend in a package, which has the spec like this and it is perfectly compiled.
PACKAGE SPEC
TYPE t_db_bus_unit_tab IS TABLE OF rms_vendor_transfer_control_id.business_unit_id%TYPE INDEX BY BINARY_INTEGER;
TYPE t_db_trans_set_tab IS TABLE OF rms_vendor_transfer_control_id.transaction_set%TYPE INDEX BY BINARY_INTEGER;
TYPE t_db_vend_id_tab IS TABLE OF rms_vendor_transfer_control_id.rms_vendor%TYPE INDEX BY BINARY_INTEGER;
TYPE t_db_trans_id_tab IS TABLE OF rms_vendor_transfer_control_id.transfer_ctl_id%TYPE INDEX BY BINARY_INTEGER;
TYPE t_db_edi_vend_tab IS TABLE OF rms_vendor_transfer_control_id.edi_vendor_id%TYPE INDEX BY BINARY_INTEGER;
TYPE t_db_trans_set_act_tab IS TABLE OF rms_vendor_transfer_control_id.transaction_set_active%TYPE INDEX BY BINARY_INTEGER;
TYPE t_db_trans_ind_tab IS TABLE OF VARCHAR2(1) INDEX BY BINARY_INTEGER;
FUNCTION auto_setup (t_db_bus_unit IN t_db_bus_unit_tab
,t_db_trans_set IN t_db_trans_set_tab
,t_db_vend_id IN t_db_vend_id_tab
,t_db_trans_id IN t_db_trans_id_tab
,t_db_edi_vend IN t_db_edi_vend_tab
,t_db_trans_set_act IN t_db_trans_set_act_tab
,t_db_trans_ind IN t_db_trans_ind_tab
,O_error_message OUT VARCHAR2
RETURN VARCHAR2;
I am calling this function From Forms
DECLARE
TYPE t_bus_unit_tab IS TABLE OF rms_vendor_transfer_control_id.business_unit_id%TYPE INDEX BY BINARY_INTEGER;
     t_bus_unit t_bus_unit_tab;
TYPE t_trans_set_tab IS TABLE OF rms_vendor_transfer_control_id.transaction_set%TYPE INDEX BY BINARY_INTEGER;
     t_trans_set t_trans_set_tab;
     TYPE t_vend_id_tab IS TABLE OF rms_vendor_transfer_control_id.rms_vendor%TYPE INDEX BY BINARY_INTEGER;
     t_vend_id t_vend_id_tab;
     TYPE t_trans_id_tab IS TABLE OF rms_vendor_transfer_control_id.transfer_ctl_id%TYPE INDEX BY BINARY_INTEGER;
     t_trans_id t_trans_id_tab;
     TYPE t_edi_vend_tab IS TABLE OF rms_vendor_transfer_control_id.edi_vendor_id%TYPE INDEX BY BINARY_INTEGER;
     t_edi_vend t_edi_vend_tab;
     TYPE t_trans_set_act_tab IS TABLE OF rms_vendor_transfer_control_id.transaction_set_active%TYPE INDEX BY BINARY_INTEGER;
     t_trans_set_act t_trans_set_act_tab;
     TYPE t_trans_ind_tab IS TABLE OF VARCHAR2(1) INDEX BY BINARY_INTEGER;
     t_trans_ind t_trans_ind_tab;
BEGIN
some processing
     IF FLIN0050.auto_setup(t_bus_unit,t_trans_set,t_vend_id,t_trans_id,t_edi_vend,t_trans_set_act,t_trans_ind,Lv_error)='FALSE'
     THEN
          message(Lv_error);
          RAISE Form_Trigger_Failure;
     END IF;     
If I comment the function call , Form is compiling properly otherwise gives me Internal Error 1401. Can anybody help me on this regard?
Message was edited by:
Forms

Answer 1

First of all, why don't you get a new handle. "Forms" is almost worse than leaving it a number. It may be just me, but I tend to ignore posts from people with numeric handles or nonsense names. That brings "Sysdate" to mind.
Now... You cannot access package procedures and functions with types defined in the package that way. Your problem is caused by your attempt to use duplicate TYPE declarations in the form -- that just does not work. It is too bad the Forms compiler gives you the internal error code, when it should just say what I have above.
Instead, remove all your type declarations from the form. Then in the variable declarations, reference the types declared in the package. For example:
  t_bus_unit     Pkg_xyz.t_db_bus_unit_tab;
  t_trans_set    Pkg_xyz.t_db_trans_set_tab;That ought to get you going again.