[Home] [Help]
107: TYPE tab_check_balance IS TABLE OF rec_balance INDEX BY BINARY_INTEGER;
108: t_chk_bal tab_check_balance;
109: t_chk_bal_lst tab_check_balance;
110:
111: l_business_group_name per_business_groups.name%type;
112: l_balance_dimension_id pay_balance_dimensions.balance_dimension_id%type;
113: counter number := 1;
114: counter_lst number :=1;
115: cnt number:= 1;
123: t_allowance_balance.delete;
124: t_chk_bal.delete;
125:
126: select name into l_business_group_name
127: from per_business_groups
128: where business_group_id = p_business_group_id;
129:
130: select decode(p_mode, 'V', 'Validate', 'Update') into l_mode from dual;
131:
373:
374: procedure upgrade_glr (
375: p_t_allowance_balance in tab_allowance_balance,
376: p_tl_allowance_balance in tab_allowance_balance,
377: p_business_group_name in per_business_groups.name%type,
378: p_mode in varchar2
379: ) is
380:
381: CURSOR get_dimension_le_ytd (c_balance_type_id pay_balance_types.balance_type_id%type) IS
692: ,pad.region_1
693: ,pad.postal_code
694: ,pad.country
695: from per_addresses pad
696: ,per_business_groups pbg
697: where pad.business_group_id = p_business_group_id
698: and pad.business_group_id = pbg.business_group_id
699: and pbg.legislation_code = 'AU'
700: and pad.style = 'AU_GLB'
709: where person_id = c_person_id
710: and c_date between effective_start_date and effective_end_date;
711:
712: e_bad_address exception;
713: l_business_group_name per_business_groups.name%type;
714: l_mode varchar2(10);
715: l_check_1 number;
716: l_check_2 number;
717: l_check_3 number;
725:
726: begin
727:
728: select name into l_business_group_name
729: from per_business_groups
730: where business_group_id = p_business_group_id;
731:
732: select decode(p_mode, 'V', 'Validate', 'Update') into l_mode from dual;
733: