PACKAGE BODY: APPS.PAY_PAYGBGTN_XMLP_PKG

Source

1 PACKAGE BODY PAY_PAYGBGTN_XMLP_PKG AS
2 /* $Header: PAYGBGTNB.pls 120.1 2007/12/24 12:43:05 amakrish noship $ */
3 
4 function Before_Report_Trigger return boolean is
5 begin
6 
7 begin
8 
9 null;
10 --hr_standard.event('BEFORE REPORT');
11 
12 	--Global_Variable.Initialise_Variables;
13 	Initialise_Variables;
14 
15 cp_business_group_name :=
16    rtrim(substr(hr_reports.get_business_group(p_business_group_id),1,240));
17 end;
18 begin
19 
20 
21   if P_CONSOLIDATION_SET_ID is null then
22      P_CONSOLIDATION_SET_LINE := ' ';
23   else
24     P_CONSOLIDATION_SET_LINE :=
25                 'and ppa.consolidation_set_id ='||(P_CONSOLIDATION_SET_ID);
26   end if;
27 
28   select LEGISLATION_CODE
29   into P_LEGISLATION_CODE
30   from per_business_groups
31   where BUSINESS_GROUP_ID = P_BUSINESS_GROUP_ID;
32   select distinct PAYROLL_NAME
33   into CP_PAYROLL_NAME
34   from PAY_PAYROLLS_F
35   where payroll_id = P_PAYROLL_ID;
36   select PERIOD_NAME
37   into CP_Time_Period_Time
38   from PER_TIME_PERIODS
39   where time_period_id = P_TIME_PERIOD_ID;
40   if P_CONSOLIDATION_SET_ID is not null then
41     select CONSOLIDATION_SET_NAME
42     into CP_CONSOLIDATION_SET_NAME
43     from PAY_CONSOLIDATION_SETS
44     where CONSOLIDATION_SET_ID = P_CONSOLIDATION_SET_ID;
45   else
46     CP_CONSOLIDATION_SET_NAME := null;
47   end if;
48 end;
49   return (TRUE);
50 end;
51 
52 function Before_Parameter_Form_Trigger return boolean is
53 begin
54 
55   return (TRUE);
56 end;
57 
58 function cf_calculate_totals_formula(Balance_Order in number, CS_Balance_Total in number) return number is
59 begin
60 	if Balance_Order = 1 then
61 			--Global_Variable.Gross_Payment:= CS_Balance_Total;
62 			Gross_Payment:= CS_Balance_Total;
63 			--Global_Variable.Net_Payment:= CS_Balance_Total;
64 			Net_Payment:= CS_Balance_Total;
65 			--Global_Variable.Total_Payment:= CS_Balance_Total;
66 			Total_Payment:= CS_Balance_Total;
67 			--Global_Variable.Total_Cost:= CS_Balance_Total;
68 			Total_Cost:= CS_Balance_Total;
69 	elsif  Balance_Order = 2 then
70 		--Global_Variable.Net_Payment:= Global_Variable.Net_Payment - CS_Balance_Total;
71 		Net_Payment:= Net_Payment - CS_Balance_Total;
72 	elsif  Balance_Order = 3 then
73 		--Global_Variable.Total_Payment:= Global_Variable.Net_Payment + CS_Balance_Total;
74 		Total_Payment:= Net_Payment + CS_Balance_Total;
75 		--Global_Variable.Total_Cost:= Global_Variable.Total_Cost + CS_Balance_Total;
76 		Total_Cost:= Total_Cost + CS_Balance_Total;
77 	elsif  Balance_Order = 4 then
78 		--Global_Variable.Total_Cost:= Global_Variable.Total_Cost + CS_Balance_Total;
79 		Total_Cost:= Total_Cost + CS_Balance_Total;
80 	end if;
81 	return(0);
82 end;
83 
84 function AfterReport return boolean is
85 begin
86   --hr_standard.event('AFTER REPORT');
87   return (TRUE);
88 end;
89 
90 --Functions to refer Oracle report placeholders--
91 
92  Function CP_BUSINESS_GROUP_NAME_p return varchar2 is
93 	Begin
94 	 return CP_BUSINESS_GROUP_NAME;
95 	 END;
96  Function CP_PAYROLL_NAME_p return varchar2 is
97 	Begin
98 	 return CP_PAYROLL_NAME;
99 	 END;
100  Function CP_Time_Period_Time_p return varchar2 is
101 	Begin
102 	 return CP_Time_Period_Time;
103 	 END;
104  Function CP_CONSOLIDATION_SET_NAME_p return varchar2 is
105 	Begin
106 	 return CP_CONSOLIDATION_SET_NAME;
107 	 END;
108 
109 	----------------------
110 	--Additional package--
111 	----------------------
112 	Procedure Initialise_Variables IS
113 	BEGIN
114 			Gross_Payment:=0;
115 			Net_Payment:=0;
116 			Total_Payment:=0;
117 			Total_Cost:=0;
118 	end;
119 	----------------------
120 END PAY_PAYGBGTN_XMLP_PKG ;