PACKAGE BODY: APPS.PA_PAXRWLCO_XMLP_PKG

Source

1 PACKAGE BODY PA_PAXRWLCO_XMLP_PKG AS
2 /* $Header: PAXRWLCOB.pls 120.0 2008/01/02 11:58:44 krreddy noship $ */
3 
4 FUNCTION  get_company_name    RETURN BOOLEAN IS
5   l_name                  gl_sets_of_books.name%TYPE;
6 BEGIN
7   SELECT  gl.name
8   INTO    l_name
9   FROM    gl_sets_of_books gl,pa_implementations pi
10   WHERE   gl.set_of_books_id = pi.set_of_books_id;
11 
12   c_company_name_header     := l_name;
13 
14   RETURN (TRUE);
15 
16 EXCEPTION
17 
18   WHEN   OTHERS  THEN
19     RETURN (FALSE);
20 
21 END;
22 
23 function BeforeReport return boolean is
24 begin
25 
26 
27 
28 declare
29 
30 init_error exception;
31 Org_Name hr_organization_units.name%TYPE;
32 Sort_By_Name pa_lookups.meaning%TYPE;
33 
34 begin
35 
36 /*srw.user_exit('FND SRWINIT');*/null;
37 
38 
39 
40 if START_ORG_ID is not NULL then
41     select substr(name,1,60) into Org_Name from
42            hr_organization_units
43     where organization_id = START_ORG_ID;
44 end if;
45 C_Org_Name := Org_Name;
46 if SORT_BY is not NULL then
47    select meaning into Sort_By_Name from pa_lookups
48    where lookup_code = SORT_BY
49       and lookup_type ='LABOR RATE SORT BY';
50 end if;
51 C_Sort_By_Name := Sort_By_Name;
52 if ( get_company_name <> TRUE ) then
53   raise init_error;
54 end if;
55 
56 if ( get_start_org <> TRUE) then
57     raise init_error;
58 end if;
59 
60 end;
61   return (TRUE);
62 end;
63 
64 FUNCTION get_start_org RETURN BOOLEAN IS
65   c_start_organization_id number;
66 
67 
68 BEGIN
69 select
70  decode(start_org_id,null,      start_organization_id,start_org_id)
71  into
72      c_start_organization_id
73  from
74   pa_implementations;
75 
76 insert into
77 pa_org_reporting_sessions
78 (start_organization_id,session_id)
79 values
80 (c_start_organization_id,userenv('SESSIONID'));
81 
82 RETURN (TRUE);
83 
84 EXCEPTION
85  WHEN OTHERS THEN
86   RETURN (FALSE);
87 
88 END;
89 
90 function AfterReport return boolean is
91 begin
92 
93 Begin
94  /*srw.user_exit('FND SRWEXIT');*/null;
95 
96  Rollback;
97 End;  return (TRUE);
98 end;
99 
100 function BeforePForm return boolean is
101 begin
102 
103   return (TRUE);
104 end;
105 
106 function AfterPForm return boolean is
107 begin
108 
109   return (TRUE);
110 end;
111 
112 function BetweenPage return boolean is
113 begin
114 
115   return (TRUE);
116 end;
117 
118 function CF_Currency_CodeFormula return Char is
119 begin
120   return(pa_multi_currency.get_acct_currency_code);
121 end;
122 
123 --Functions to refer Oracle report placeholders--
124 
125  Function C_Company_Name_Header_p return varchar2 is
126 	Begin
127 	 return C_Company_Name_Header;
128 	 END;
129  Function C_Org_Name_p return varchar2 is
130 	Begin
131 	 return C_Org_Name;
132 	 END;
133  Function C_Sort_By_Name_p return varchar2 is
134 	Begin
135 	 return C_Sort_By_Name;
136 	 END;
137 END PA_PAXRWLCO_XMLP_PKG ;
138