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