%ROWTYPE Parameters - Program too large!

I have a large package which contains many %ROWTYPES such as shown below.

Because of this, I'm on the brink of getting the program too large error. In fact, one more addition of these %ROWTYPE's and I'm done. As you can see, I have defined each ROWTYPE twice. Once to use with each insert, and another to initialze the variable.

Is there a way I can genericly pass one of the structures below to a procedure that will initialize the ROWTYPE and return it to my main package?

I'd like to create a generice procedure such as

init_data(xtf_addl%ROWTYPE);

Procedure init_data (gen_row in out generic_rowtype%rowtype)
is
begin
gen_row := gen_row_init;
return;
end init_data;

Is something like this possible?

Thanks,

P




xtf_addl xtf_additional_insured%ROWTYPE;
xtf_addl_init xtf_additional_insured%ROWTYPE;
xtf_addr xtf_address%ROWTYPE;
xtf_addr_init xtf_address%ROWTYPE;
xtf_addx xtf_address_xref%ROWTYPE;
xtf_addx_init xtf_address_xref%ROWTYPE;
xtf_banr xtf_banner%ROWTYPE;
xtf_banr_init xtf_banner%ROWTYPE;
xtf_blrc xtf_bill_relchg%ROWTYPE;
xtf_blrc_init xtf_bill_relchg%ROWTYPE;
xtf_chot xtf_chg_on_trans%ROWTYPE;
xtf_chot_init xtf_chg_on_trans%ROWTYPE;
xtf_clam xtf_claim%ROWTYPE;
xtf_clam_init xtf_claim%ROWTYPE;
xtf_coih xtf_coi_holder%ROWTYPE;
xtf_coih_init xtf_coi_holder%ROWTYPE;
xtf_comp xtf_component%ROWTYPE;
xtf_comp_init xtf_component%ROWTYPE;
xtf_cust xtf_custom%ROWTYPE;
xtf_cust_init xtf_custom%ROWTYPE;
xtf_find xtf_finance_detail%ROWTYPE;
xtf_find_init xtf_finance_detail%ROWTYPE;
xtf_findm xtf_finance_master%ROWTYPE;
xtf_find_initm xtf_finance_master%ROWTYPE;
xtf_iasm xtf_invoice_acct_summary%ROWTYPE;
xtf_iasm_init xtf_invoice_acct_summary%ROWTYPE;
xtf_ipsm xtf_invoice_policy_summary%ROWTYPE;
xtf_ipsm_init xtf_invoice_policy_summary%ROWTYPE;
xtf_irsm xtf_invoice_risk_summary%ROWTYPE;
xtf_irsm_init xtf_invoice_risk_summary%ROWTYPE;
xtf_mane xtf_manuscript_endorsement%ROWTYPE;
xtf_mane_init xtf_manuscript_endorsement%ROWTYPE;
xtf_poly xtf_policy%ROWTYPE;
xtf_poly_init xtf_policy%ROWTYPE;
xtf_rcvg xtf_risk_coverage%ROWTYPE;
xtf_rcvg_init xtf_risk_coverage%ROWTYPE;
xtf_rskr xtf_risk_relation%ROWTYPE;
xtf_rskr_init xtf_risk_relation%ROWTYPE;
xtf_speh xtf_special_handling%ROWTYPE;
xtf_speh_init xtf_special_handling%ROWTYPE;
xtf_tqte xtf_tail_quote%ROWTYPE;
xtf_tqte_init xtf_tail_quote%ROWTYPE;
xtf_rctx xtf_risk_type_cvg_type_xref%ROWTYPE;
xtf_rctx_init xtf_risk_type_cvg_type_xref%ROWTYPE;