1 PACKAGE BODY PAY_PYNZ345_XMLP_PKG AS
2 /* $Header: PYNZ345B.pls 120.0 2007/12/13 12:22:04 amakrish noship $ */
3
4 function BeforeReport return boolean is
5 l_currency_code fnd_currencies.currency_code%TYPE;
6 cursor c_currency_code is
7 select currency_code
8 from fnd_currencies
9 where issuing_territory_code in
10 (select i.org_information9
11 from hr_organization_information i
12 where i.organization_id = p_registered_employer_id
13 and i.org_information_context = 'Business Group Information'
14 );
15 begin
16 /*srw.user_exit('FND SRWINIT');*/null;
17
18 open c_currency_code;
19 fetch c_currency_code
20 into l_currency_code;
21 if c_currency_code%found then
22 cp_currency_code := '('||l_currency_code||')';
23 cp_currency_format := fnd_currency.get_format_mask(l_currency_code, 15);
24 end if;
25 close c_currency_code;
26 CP_PERIOD_END_DATE := pay_nz_tax.half_month_end(P_PERIOD_END_DATE);
27 CP_PERIOD_START_DATE := pay_nz_tax.half_month_start(P_PERIOD_END_DATE);
28 return (TRUE);
29 end;
30
31 function AfterReport return boolean is
32 begin
33 /*srw.user_exit('FND SRWEXIT');*/null;
34
35 return (TRUE);
36 end;
37
38 function cf_total_deductionsformula(PAYE_DEDUCTIONS in number, CHILD_SUPPORT_DEDUCTIONS in number, STUDENT_LOAN_DEDUCTIONS in number, SSCWT_DEDUCTIONS in number) return number is
39 begin
40 return
41 nvl(PAYE_DEDUCTIONS,0)
42 +nvl(CHILD_SUPPORT_DEDUCTIONS, 0)
43 +nvl(STUDENT_LOAN_DEDUCTIONS, 0)
44 +nvl(SSCWT_DEDUCTIONS, 0);
45 end;
46
47 function CF_business_groupFormula return Char is
48 begin
49 return hr_reports.get_business_group(p_business_group_id);
50 end;
51
52 function CF_registered_employerFormula return VARCHAR2 is
53 l_registered_employer hr_nz_tax_unit_v.name%type;
54 cursor c_registered_employer is
55 select name
56 from hr_nz_tax_unit_v
57 where business_group_id = p_business_group_id
58 and tax_unit_id = p_registered_employer_id;
59 begin
60 open c_registered_employer;
61 fetch c_registered_employer
62 into l_registered_employer;
63 close c_registered_employer;
64 return l_registered_employer;
65 end;
66
67 --Functions to refer Oracle report placeholders--
68
69 Function CP_CURRENCY_FORMAT_p return varchar2 is
70 Begin
71 return CP_CURRENCY_FORMAT;
72 END;
73 Function CP_CURRENCY_CODE_p return varchar2 is
74 Begin
75 return CP_CURRENCY_CODE;
76 END;
77 Function CP_PERIOD_START_DATE_p return date is
78 Begin
79 return CP_PERIOD_START_DATE;
80 END;
81 Function CP_PERIOD_END_DATE_p return date is
82 Begin
83 return CP_PERIOD_END_DATE;
84 END;
85 END PAY_PYNZ345_XMLP_PKG ;