601: '1' || lookup_code,
602: 'BEN_EXT_PROMPT',
603: '2' || lookup_code) lookup_code,
604: meaning
605: FROM hr_lookups
606: WHERE lookup_type in ('BEN_EXT_ERR_TYP', 'BEN_EXT_PROMPT');
607: --
608: Type lookup_rec_typ is Record
609: (lookup_code hr_lookups.lookup_code%type
605: FROM hr_lookups
606: WHERE lookup_type in ('BEN_EXT_ERR_TYP', 'BEN_EXT_PROMPT');
607: --
608: Type lookup_rec_typ is Record
609: (lookup_code hr_lookups.lookup_code%type
610: ,meaning hr_lookups.meaning%type
611: );
612: --
613: Type lookup_tab_typ is table
606: WHERE lookup_type in ('BEN_EXT_ERR_TYP', 'BEN_EXT_PROMPT');
607: --
608: Type lookup_rec_typ is Record
609: (lookup_code hr_lookups.lookup_code%type
610: ,meaning hr_lookups.meaning%type
611: );
612: --
613: Type lookup_tab_typ is table
614: of lookup_rec_typ
615: Index By Binary_Integer;
616: --
617: l_lookup_tab lookup_tab_typ;
618: --
619: l_lookup_code hr_lookups.lookup_code%type;
620: l_meaning hr_lookups.meaning%type;
621: l_counter integer := 0;
622: l_text varchar2(4000) := NULL;
623: l_rec_tab g_rec_nam_num_tab_typ;
616: --
617: l_lookup_tab lookup_tab_typ;
618: --
619: l_lookup_code hr_lookups.lookup_code%type;
620: l_meaning hr_lookups.meaning%type;
621: l_counter integer := 0;
622: l_text varchar2(4000) := NULL;
623: l_rec_tab g_rec_nam_num_tab_typ;
624: l_tot_rec number := 0;
634: -- Private function can be called from this procedure only
635: --
636: function get_index
637: (p_array in lookup_tab_typ
638: ,p_key in hr_lookups.lookup_code%type
639: ) return binary_integer is
640: begin
641: --
642: for i in 1..p_array.count