PACKAGE BODY: APPS.PAY_PAYHKCTL_XMLP_PKG

Source

1 PACKAGE BODY PAY_PAYHKCTL_XMLP_PKG AS
2 /* $Header: PAYHKCTLB.pls 120.0 2007/12/13 12:17:00 amakrish noship $ */
3 
4 function BeforeReport return boolean is
5 begin
6   /*srw.user_exit('FND SRWINIT');*/null;
7 
8 select
9 SUBSTR(argument1,INSTR(argument1,'=',1)+1,LENGTH(argument1)),
10 SUBSTR(argument2,INSTR(argument2,'=',1)+1,LENGTH(argument2)),
11 SUBSTR(argument3,INSTR(argument3,'=',1)+1,LENGTH(argument3))
12 into
13 LP_ARCHIVE_ACTION_ID,
14 LP_ARCHIVE_OR_MAGTAPE,
15 LP_BUSINESS_GROUP_ID
16 from FND_CONCURRENT_REQUESTS
17 where request_id = FND_GLOBAL.conc_request_id;
18 
19 LCF_business_group := CF_business_groupFormula;
20   return (TRUE);
21 end;
22 
23 function AfterReport return boolean is
24 begin
25   /*srw.user_exit('FND SRWEXIT');*/null;
26 
27   return (TRUE);
28 end;
29 
30 function CF_business_groupFormula return VARCHAR2 is
31   v_business_group  hr_all_organization_units.name%type;
32 
33 begin
34   v_business_group := hr_reports.get_business_group(lp_business_group_id);
35   return v_business_group;
36 end;
37 
38 function cf_balance_calculationformula(ctr in number, X_HK_IR56_A_ASG_LE_YTD in varchar2, X_HK_IR56_B_ASG_LE_YTD in varchar2, X_HK_IR56_C_ASG_LE_YTD in varchar2, X_HK_IR56_D_ASG_LE_YTD in varchar2,
39 X_HK_IR56_E_ASG_LE_YTD in varchar2, X_HK_IR56_F_ASG_LE_YTD in varchar2, X_HK_IR56_G_ASG_LE_YTD in varchar2, X_HK_IR56_H_ASG_LE_YTD in varchar2, X_HK_IR56_I_ASG_LE_YTD in varchar2, X_HK_IR56_J_ASG_LE_YTD in varchar2, X_HK_IR56_K1_ASG_LE_YTD in varchar2,
40 X_HK_IR56_K2_ASG_LE_YTD in varchar2, X_HK_IR56_K3_ASG_LE_YTD in varchar2, X_HK_IR56_L_ASG_LE_YTD in varchar2) return number is
41   l_sum number :=0;
42 begin
43   if (ctr = 1 ) then
44   l_sum :=
45    trunc(to_number(X_HK_IR56_A_ASG_LE_YTD ))
46   +trunc(to_number(X_HK_IR56_B_ASG_LE_YTD ))
47   +trunc(to_number(X_HK_IR56_C_ASG_LE_YTD ))
48   +trunc(to_number(X_HK_IR56_D_ASG_LE_YTD ))
49   +trunc(to_number(X_HK_IR56_E_ASG_LE_YTD ))
50   +trunc(to_number(X_HK_IR56_F_ASG_LE_YTD ))
51   +trunc(to_number(X_HK_IR56_G_ASG_LE_YTD ))
52   +trunc(to_number(X_HK_IR56_H_ASG_LE_YTD ))
53   +trunc(to_number(X_HK_IR56_I_ASG_LE_YTD ))
54   +trunc(to_number(X_HK_IR56_J_ASG_LE_YTD ))
55   +trunc(to_number(X_HK_IR56_K1_ASG_LE_YTD ))
56   +trunc(to_number(X_HK_IR56_K2_ASG_LE_YTD ))
57   +trunc(to_number(X_HK_IR56_K3_ASG_LE_YTD ))
58   +trunc(to_number(X_HK_IR56_L_ASG_LE_YTD ));
59   end if;
60 
61    RETURN l_sum;
62 
63 end;
64 
65 --Functions to refer Oracle report placeholders--
66 
67 END PAY_PAYHKCTL_XMLP_PKG ;