171: is
172: cursor get_upg_def (p_legislation in varchar2)
173: is
174: select pud.upgrade_definition_id
175: from pay_upgrade_definitions pud
176: where pud.upgrade_level = 'B' -- Business Group
177: and ( pud.legislation_code = p_legislation
178: or ( pud.legislation_code is null
179: and ( nvl(pud.legislatively_enabled, 'N') = 'N'
191: cursor get_upg_def_leg (p_legislation in varchar2,
192: p_business_group in number)
193: is
194: select pud.upgrade_definition_id
195: from pay_upgrade_definitions pud
196: where pud.upgrade_level = 'L' -- Business Group
197: and ( pud.legislation_code = p_legislation
198: or ( pud.legislation_code is null
199: and nvl(pud.legislatively_enabled, 'N') = 'Y'
212: );
213: cursor get_upg_def_glo (p_business_group in number)
214: is
215: select pud.upgrade_definition_id
216: from pay_upgrade_definitions pud
217: where pud.upgrade_level = 'G'
218: and nvl(pud.legislatively_enabled, 'N') = 'N'
219: and not exists (select 1
220: from per_business_groups_perf
275: Arguments :
276: Notes :
277: */
278: procedure range_cursor (pactid in number, sqlstr out nocopy varchar2) is
279: l_upg_def_nm pay_upgrade_definitions.short_name%type;
280: l_upg_def_id pay_upgrade_definitions.upgrade_definition_id%type;
281: l_upg_level pay_upgrade_definitions.upgrade_level%type;
282: l_bus_grp_id pay_payroll_actions.business_group_id%type;
283: l_leg_code per_business_groups.legislation_code%type;
276: Notes :
277: */
278: procedure range_cursor (pactid in number, sqlstr out nocopy varchar2) is
279: l_upg_def_nm pay_upgrade_definitions.short_name%type;
280: l_upg_def_id pay_upgrade_definitions.upgrade_definition_id%type;
281: l_upg_level pay_upgrade_definitions.upgrade_level%type;
282: l_bus_grp_id pay_payroll_actions.business_group_id%type;
283: l_leg_code per_business_groups.legislation_code%type;
284: l_thread_level pay_upgrade_definitions.threading_level%type;
277: */
278: procedure range_cursor (pactid in number, sqlstr out nocopy varchar2) is
279: l_upg_def_nm pay_upgrade_definitions.short_name%type;
280: l_upg_def_id pay_upgrade_definitions.upgrade_definition_id%type;
281: l_upg_level pay_upgrade_definitions.upgrade_level%type;
282: l_bus_grp_id pay_payroll_actions.business_group_id%type;
283: l_leg_code per_business_groups.legislation_code%type;
284: l_thread_level pay_upgrade_definitions.threading_level%type;
285: l_report_type pay_report_format_mappings_f.report_type%type;
280: l_upg_def_id pay_upgrade_definitions.upgrade_definition_id%type;
281: l_upg_level pay_upgrade_definitions.upgrade_level%type;
282: l_bus_grp_id pay_payroll_actions.business_group_id%type;
283: l_leg_code per_business_groups.legislation_code%type;
284: l_thread_level pay_upgrade_definitions.threading_level%type;
285: l_report_type pay_report_format_mappings_f.report_type%type;
286: l_rep_id pay_report_format_mappings_f.report_format_mapping_id%type;
287: --
288: begin
331: threading_level
332: into l_upg_level,
333: l_upg_def_id,
334: l_thread_level
335: from pay_upgrade_definitions
336: where short_name = l_upg_def_nm;
337: --
338: end if;
339: if (l_thread_level in ('PER', 'ASG')) then
653: select distinct pet.element_type_id
654: from pay_element_types_f pet
655: where pet.element_type_id between cp_stetid and cp_endetid;
656: --
657: l_upg_def_id pay_upgrade_definitions.upgrade_definition_id%type;
658: l_upg_def_nm pay_upgrade_definitions.short_name%type;
659: l_upg_level pay_upgrade_definitions.upgrade_level%type;
660: l_thread_level pay_upgrade_definitions.threading_level%type;
661: l_qual_proc pay_upgrade_definitions.qualifying_procedure%type;
654: from pay_element_types_f pet
655: where pet.element_type_id between cp_stetid and cp_endetid;
656: --
657: l_upg_def_id pay_upgrade_definitions.upgrade_definition_id%type;
658: l_upg_def_nm pay_upgrade_definitions.short_name%type;
659: l_upg_level pay_upgrade_definitions.upgrade_level%type;
660: l_thread_level pay_upgrade_definitions.threading_level%type;
661: l_qual_proc pay_upgrade_definitions.qualifying_procedure%type;
662: l_report_type pay_report_format_mappings_f.report_type%type;
655: where pet.element_type_id between cp_stetid and cp_endetid;
656: --
657: l_upg_def_id pay_upgrade_definitions.upgrade_definition_id%type;
658: l_upg_def_nm pay_upgrade_definitions.short_name%type;
659: l_upg_level pay_upgrade_definitions.upgrade_level%type;
660: l_thread_level pay_upgrade_definitions.threading_level%type;
661: l_qual_proc pay_upgrade_definitions.qualifying_procedure%type;
662: l_report_type pay_report_format_mappings_f.report_type%type;
663: l_rep_id pay_report_format_mappings_f.report_format_mapping_id%type;
656: --
657: l_upg_def_id pay_upgrade_definitions.upgrade_definition_id%type;
658: l_upg_def_nm pay_upgrade_definitions.short_name%type;
659: l_upg_level pay_upgrade_definitions.upgrade_level%type;
660: l_thread_level pay_upgrade_definitions.threading_level%type;
661: l_qual_proc pay_upgrade_definitions.qualifying_procedure%type;
662: l_report_type pay_report_format_mappings_f.report_type%type;
663: l_rep_id pay_report_format_mappings_f.report_format_mapping_id%type;
664: --
657: l_upg_def_id pay_upgrade_definitions.upgrade_definition_id%type;
658: l_upg_def_nm pay_upgrade_definitions.short_name%type;
659: l_upg_level pay_upgrade_definitions.upgrade_level%type;
660: l_thread_level pay_upgrade_definitions.threading_level%type;
661: l_qual_proc pay_upgrade_definitions.qualifying_procedure%type;
662: l_report_type pay_report_format_mappings_f.report_type%type;
663: l_rep_id pay_report_format_mappings_f.report_format_mapping_id%type;
664: --
665: begin
705: into l_upg_level,
706: l_thread_level,
707: l_upg_def_id,
708: l_qual_proc
709: from pay_upgrade_definitions
710: where short_name = l_upg_def_nm;
711: end if;
712: --
713: if (l_upg_level = 'B') then
856: procedure upgrade_data(p_assactid in number, p_effective_date in date) is
857: --
858: sql_cur number;
859: ignore number;
860: upgrade_proc pay_upgrade_definitions.upgrade_procedure%TYPE;
861: statem varchar2(256);
862: l_upg_def_id pay_upgrade_definitions.upgrade_definition_id%type;
863: l_upg_def_nm pay_upgrade_definitions.short_name%type;
864: object_id pay_temp_object_actions.object_id%type;
858: sql_cur number;
859: ignore number;
860: upgrade_proc pay_upgrade_definitions.upgrade_procedure%TYPE;
861: statem varchar2(256);
862: l_upg_def_id pay_upgrade_definitions.upgrade_definition_id%type;
863: l_upg_def_nm pay_upgrade_definitions.short_name%type;
864: object_id pay_temp_object_actions.object_id%type;
865: --
866: begin
859: ignore number;
860: upgrade_proc pay_upgrade_definitions.upgrade_procedure%TYPE;
861: statem varchar2(256);
862: l_upg_def_id pay_upgrade_definitions.upgrade_definition_id%type;
863: l_upg_def_nm pay_upgrade_definitions.short_name%type;
864: object_id pay_temp_object_actions.object_id%type;
865: --
866: begin
867: --
878: select upgrade_procedure,
879: upgrade_definition_id
880: into upgrade_proc,
881: l_upg_def_id
882: from pay_upgrade_definitions
883: where short_name = l_upg_def_nm;
884: --
885: statem := 'BEGIN '||upgrade_proc||'(:objectid); END;';
886: --
907: is
908: --
909: l_remove_act varchar2(10);
910: cnt_incomplete_actions number;
911: l_upg_def_id pay_upgrade_definitions.upgrade_definition_id%type;
912: l_upg_def_nm pay_upgrade_definitions.short_name%type;
913: l_upg_level pay_upgrade_definitions.upgrade_level%type;
914: l_bus_grp_id pay_payroll_actions.business_group_id%type;
915: l_leg_code per_business_groups.legislation_code%type;
908: --
909: l_remove_act varchar2(10);
910: cnt_incomplete_actions number;
911: l_upg_def_id pay_upgrade_definitions.upgrade_definition_id%type;
912: l_upg_def_nm pay_upgrade_definitions.short_name%type;
913: l_upg_level pay_upgrade_definitions.upgrade_level%type;
914: l_bus_grp_id pay_payroll_actions.business_group_id%type;
915: l_leg_code per_business_groups.legislation_code%type;
916: l_report_type pay_payroll_actions.report_type%type;
909: l_remove_act varchar2(10);
910: cnt_incomplete_actions number;
911: l_upg_def_id pay_upgrade_definitions.upgrade_definition_id%type;
912: l_upg_def_nm pay_upgrade_definitions.short_name%type;
913: l_upg_level pay_upgrade_definitions.upgrade_level%type;
914: l_bus_grp_id pay_payroll_actions.business_group_id%type;
915: l_leg_code per_business_groups.legislation_code%type;
916: l_report_type pay_payroll_actions.report_type%type;
917: --
950: select upgrade_level,
951: upgrade_definition_id
952: into l_upg_level,
953: l_upg_def_id
954: from pay_upgrade_definitions
955: where short_name = l_upg_def_nm;
956: --
957: select count(*)
958: into cnt_incomplete_actions