[Home] [Help]
172: Fetch c_pqp_formula_id into v_formula_id;
173: if c_pqp_formula_id%NOTFOUND then
174: hr_utility.set_location('Formula -'||Formula_Tab(I).Formula_name||'- Not Present/effective in Table',11);
175: l_warning_msg := 'Formula -'||Formula_Tab(I).Formula_name||'- Not Present or effective for Assignment '||p_assignment_number||' On '||p_effective_date;
176: fnd_file.put_line (fnd_file.LOG, l_warning_msg);
177: fnd_file.put_line(FND_FILE.OUTPUT, l_warning_msg);
178: raise_application_error(-20001,' Invalid Formula ');
179: end if;
180: Close c_pqp_formula_id;
173: if c_pqp_formula_id%NOTFOUND then
174: hr_utility.set_location('Formula -'||Formula_Tab(I).Formula_name||'- Not Present/effective in Table',11);
175: l_warning_msg := 'Formula -'||Formula_Tab(I).Formula_name||'- Not Present or effective for Assignment '||p_assignment_number||' On '||p_effective_date;
176: fnd_file.put_line (fnd_file.LOG, l_warning_msg);
177: fnd_file.put_line(FND_FILE.OUTPUT, l_warning_msg);
178: raise_application_error(-20001,' Invalid Formula ');
179: end if;
180: Close c_pqp_formula_id;
181: if v_formula_id is not null then
203: END LOOP;
204: --executing the formula
205: ff_exec.run_formula(l_inputs,l_outputs);
206: hr_utility.trace(' calculated value from User formula '||l_outputs(1).value);
207: fnd_file.put_line(FND_FILE.OUTPUT,' ------ Formula '||Formula_Tab(I).Formula_name||' value '||l_outputs(1).value);
208: n_sum_formula_val := n_sum_formula_val+ nvl(l_outputs(1).value,0);
209: End if; --formula id not null check 6666135
210: END LOOP;
211: hr_utility.trace(' Total value from all User formulas '||n_sum_formula_val);
221: FETCH c_seeded_element_det into c_seeded_element_det_row;
222: if c_seeded_element_det%NOTFOUND then
223: hr_utility.set_location(' Seeded Element is not linked ',11);
224: l_warning_msg := 'Seeded Element is not linked to the Payroll of Assignment '||p_assignment_number||' On '||p_effective_date;
225: fnd_file.put_line (fnd_file.LOG, l_warning_msg);
226: Raise Skip_formula;
227: end if;
228: CLOSE c_seeded_element_det;
229: v_eff_start_date := p_effective_date;
523: AND to_date('31/03/'||to_char(v_eff_start_date,'YYYY'),'dd/mm/yyyy')))
524: THEN
525: hr_utility.set_location('Start date and End date are in the same pension year ',6);
526: ELSE
527: fnd_file.put_line (fnd_file.LOG, 'Start date and End date should fall in the same pension year.');
528: hr_utility.set_location('Start date and End date should fall in the same tax year',8);
529: v_eff_start_date := Null; -- to exit the program
530: END IF;
531: END IF;
536: ,p_formula_id => l_formula_id
537: ,p_tab_asg_set_amnds => l_tab_asg_set_amnds
538: );
539: If l_formula_id is null and l_tab_asg_set_amnds.count = 0 then
540: fnd_file.put_line (fnd_file.LOG, ' Assignment set id entered '||p_assignment_set_id||' is not valid');
541: v_eff_start_date := Null; -- to exit the program
542: end if;
543: End if;
544: --6813970 end
718: THEN
719: b_scot_rate := TRUE;
720: IF b_eng_rate = TRUE
721: THEN
722: fnd_file.put_line (fnd_file.LOG,'Assignment can not have both Types of RATE TYPE attached. Assignment Number : '||c_all_assignments.assignment_number);
723: CLOSE c1_all_element;
724: CLOSE c2_PQP_UK_RATE_TYPE;
725: RAISE skip_assignment;
726: END IF; */
733: b_rate_type := TRUE;
734: b_eng_rate := TRUE;
735: IF b_scot_rate = TRUE
736: THEN
737: fnd_file.put_line (fnd_file.LOG,'Assignment can not have both Types of RATE TYPE attached. Assignment Number : '||c_all_assignments.assignment_number);
738: CLOSE c1_all_element;
739: CLOSE c2_PQP_UK_RATE_TYPE;
740: RAISE skip_assignment;
741: END IF;
746: THEN
747: hr_utility.set_location('Pay Value Not Present',27);
748: IF l_ELEMENT_NAME IS NULL THEN
749: l_warning_msg := 'PQP_PCSPS_MISSING_HISTORIC_RATE_INFO: Historic Rate - Element Attribution information missing for Element '||c1_all_element_data.Element_name||' in Assignment '||c_all_assignments.assignment_number;
750: fnd_file.put_line (fnd_file.LOG, l_warning_msg);
751: END IF;
752: ELSE
753: b_input_value_present := TRUE;
754: hr_utility.set_location('Pay Value Present',28);
785: IF ((not b_element_present) or (not b_rate_type)) and k_aasgn_form_count = 0
786: THEN
787: l_warning_msg := 'PQP_PCSPS_MISSING_RATE_INFO: Neither Historic Rate - Rate Type "PCSPS Pensionable Pay" nor User defined formula set for elements against Assignment '||c_all_assignments.assignment_number;
788: --6813970 end
789: fnd_file.put_line (fnd_file.LOG, l_warning_msg);
790: l_lgps_process_flag := 'I';
791: hr_utility.set_location('Calling API to update LGPS Process Flag I',35);
792: pqp_aat_api.update_assignment_attribute
793: (p_validate => false
824: ----------
825: ELSE
826: IF l_mode is null then
827: l_warning_msg := 'Cannot process Assignment : '||c_all_assignments.assignment_number||' Future changes present in table pqp_assignment_attributes_f ';
828: fnd_file.put_line (fnd_file.LOG, l_warning_msg);
829: END IF;
830: raise skip_assignment;
831: END IF; --b_pqp_assignment_found
832:
840: IF ((not b_element_present) or (not b_rate_type)) and k_aasgn_form_count = 0
841: THEN
842: l_warning_msg := 'PQP_PCSPS_MISSING_RATE_INFO: Neither Historic Rate - Rate Type "PCSPS Pensionable Pay" nor User defined formula set for elements against Assignment '||c_all_assignments.assignment_number;
843: --6813970 end
844: fnd_file.put_line (fnd_file.LOG, l_warning_msg);
845: l_lgps_process_flag := 'I';
846: hr_utility.set_location('Calling API to insert LGPS Process Flag I',355);
847: pqp_aat_api.create_assignment_attribute
848: (p_effective_date => v_assignment_eff_date
873: ,p_rate_type_or_element => 'R');
874: Exception
875: when others then
876: l_warning_msg := 'Cannot process Assignment : '||c_all_assignments.assignment_number||' Historic Rate calculations failed. Please check the error message ';
877: fnd_file.put_line (fnd_file.LOG, l_warning_msg);
878: fnd_file.put_line (fnd_file.LOG,'*** -ERROR- '||SQLCODE||' - '||SQLERRM);
879: b_rate_type := FALSE; --to skip processing of user defined formulae
880: k_aasgn_form_count := 0; --to skip processing of user defined formulae --6813970
881: b_input_value_present := FALSE; --to make the LGPS process flag as Incomplete.
874: Exception
875: when others then
876: l_warning_msg := 'Cannot process Assignment : '||c_all_assignments.assignment_number||' Historic Rate calculations failed. Please check the error message ';
877: fnd_file.put_line (fnd_file.LOG, l_warning_msg);
878: fnd_file.put_line (fnd_file.LOG,'*** -ERROR- '||SQLCODE||' - '||SQLERRM);
879: b_rate_type := FALSE; --to skip processing of user defined formulae
880: k_aasgn_form_count := 0; --to skip processing of user defined formulae --6813970
881: b_input_value_present := FALSE; --to make the LGPS process flag as Incomplete.
882: End;
890: IF b_rate_type or k_aasgn_form_count > 0
891: THEN -- Rate type defined for atleast one element
892: --6813970 end
893: IF b_input_value_present or k_aasgn_form_count > 0 then -- if b_input_value_present is true then Historic rates funciton will return value; if k_aasgn_form_count > 0 means user defined formula is attached
894: fnd_file.put_line(FND_FILE.OUTPUT, ' Assignment '||c_all_assignments.assignment_number ||' Historic rate value '||nvl(l_lgps_pensionable_pay,0));
895: END IF;
896: IF k_aasgn_form_count > 0 then
897:
898:
919:
920: IF c_formula_pension_value is not null or l_lgps_pensionable_pay is not null
921: THEN
922: l_lgps_pensionable_pay := round(l_lgps_pensionable_pay,2);
923: fnd_file.put_line(FND_FILE.OUTPUT, '-----------------------------Total value '||nvl(l_lgps_pensionable_pay,0));
924: l_lgps_process_flag := 'P';
925: IF b_pqp_found
926: THEN
927: hr_utility.trace(' updating the Contractual pay for effective date '||v_max_date|| ' mode '||v_mode||' OVN '||n_object_version_no);