[Home] [Help]
PACKAGE BODY: APPS.GL_GLXBTB_XMLP_PKG
Source
1 PACKAGE BODY GL_GLXBTB_XMLP_PKG AS
2 /* $Header: GLXBTBB.pls 120.0 2007/12/27 14:47:46 vijranga noship $ */
3 function period_act_balformula(END_BAL in number, BEGIN_BAL in number) return number is
4 begin
5 return (END_BAL - BEGIN_BAL);
6 end;
7 function BUDGET_NAMEFormula return VARCHAR2 is
8 begin
9 declare
10 name VARCHAR2(15);
11 errbuf VARCHAR2(132);
12 errbuf2 VARCHAR2(132);
13 begin
14 gl_info.gl_get_bud_or_enc_name('B',
15 P_BUDGET_VERSION_ID,
16 name, errbuf);
17 if (errbuf is not null) then
18 errbuf2 := gl_message.get_message(
19 'GL_PLL_ROUTINE_ERROR', 'N',
20 'ROUTINE','gl_get_bud_or_enc_name'
21 );
22 /*srw.message('00', errbuf2);*/null;
23 /*srw.message('00', errbuf);*/null;
24 raise_application_error(-20101,null);/*srw.program_abort;*/null;
25 end if;
26 return(name);
27 end;
28 RETURN NULL;
29 end;
30 function disp_bal_lprompt_w_colonformul(DISP_BAL_LPROMPT in varchar2) return varchar2 is
31 begin
32 return (DISP_BAL_LPROMPT || ':');
33 end;
34 function AfterReport return boolean is
35 begin
36 /*srw.user_exit('FND SRWEXIT');*/null;
37 return (TRUE);
38 end;
39 function BeforeReport return boolean is
40 begin
41 /*srw.user_exit('FND SRWINIT');*/null;
42 declare
43 errbuf VARCHAR2(132);
44 begin
45 SELECT name, chart_of_accounts_id
46 INTO ACCESS_SET_NAME, STRUCT_NUM
47 FROM gl_access_sets
48 WHERE access_set_id = P_ACCESS_SET_ID;
49 exception
50 WHEN NO_DATA_FOUND THEN
51 errbuf := gl_message.get_message('GL_PLL_INVALID_DATA_ACCESS_SET', 'Y',
52 'DASID', to_char(P_ACCESS_SET_ID));
53 /*srw.message('00', errbuf);*/null;
54 raise_application_error(-20101,null);/*srw.program_abort;*/null;
55 WHEN OTHERS THEN
56 errbuf := SQLERRM;
57 /*srw.message('00', errbuf);*/null;
58 end;
59 /*srw.reference(STRUCT_NUM);*/null;
60 null;
61 /*srw.reference(STRUCT_NUM);*/null;
62 null;
63 /*srw.reference(STRUCT_NUM);*/null;
64 null;
65 /*srw.reference(STRUCT_NUM);*/null;
66 null;
67 /*srw.reference(STRUCT_NUM);*/null;
68 null;
69 /*srw.reference(STRUCT_NUM);*/null;
70 null;
71 WHERE_DAS := GL_ACCESS_SET_SECURITY_PKG.GET_SECURITY_CLAUSE(
72 P_ACCESS_SET_ID,
73 'R',
74 'LEDGER_COLUMN',
75 'LEDGER_ID',
76 'BE',
77 'SEG_COLUMN',
78 null,
79 'CC',
80 null);
81 if (WHERE_DAS is not null) then
82 WHERE_DAS := ' and ' || WHERE_DAS ;
83 end if;
84 if (P_CURRENCY_TYPE = 'T') then
85 TRANS_CHECK_BB := ' (bb.translated_flag in (''Y'', ''N'') or' ||
86 ' bb.translated_flag is null) ';
87 TRANS_CHECK_BE := ' (be.translated_flag in (''Y'', ''N'') or' ||
88 ' be.translated_flag is null) ';
89 RESULTING_CURRENCY := P_LEDGER_CURRENCY;
90 elsif (P_CURRENCY_TYPE = 'E') then
91 TRANS_CHECK_BB := ' (nvl(bb.translated_flag (+), ''R'') = ''R'') ';
92 TRANS_CHECK_BE := ' (be.translated_flag is null OR be.translated_flag = ''R'') ';
93 RESULTING_CURRENCY := P_ENTERED_CURRENCY;
94 else
95 TRANS_CHECK_BB := ' bb.translated_flag (+) is null ';
96 TRANS_CHECK_BE := ' be.translated_flag is null ';
97 RESULTING_CURRENCY := P_ENTERED_CURRENCY;
98 end if;
99 return (TRUE);
100 end;
101 function g_balancesgroupfilter(FLEX_SECURE in varchar2, BEGIN_BAL in number, END_BAL in number) return boolean is
102 begin
103 /*srw.reference(STRUCT_NUM);*/null;
104 /*srw.reference(FLEXDATA);*/null;
105 if (FLEX_SECURE ='S') then
106 return (FALSE);
107 end if;
108 IF (NVL(BEGIN_BAL, 0) <> 0) THEN
109 RETURN(TRUE);
110 ELSIF (NVL(END_BAL, 0) <> 0) THEN
111 RETURN(TRUE);
112 ELSE
113 RETURN(FALSE);
114 END IF; return (TRUE);
115 end;
116 function g_page_breakgroupfilter(BAL_SECURE in varchar2) return boolean is
117 begin
118 /*srw.reference(BAL_DATA);*/null;
119 if(BAL_SECURE = 'S') then
120 return (FALSE);
121 else
122 return (TRUE);
123 end if;
124 RETURN NULL; end;
125 function g_acct_datagroupfilter(ACCT_SECURE in varchar2) return boolean is
126 begin
127 /*srw.reference(ACCTDATA);*/null;
128 if (ACCT_SECURE = 'S') then
129 return(FALSE);
130 else
131 return (TRUE);
132 end if;
133 RETURN NULL; end;
134 function LEDGER_NAMEFormula return VARCHAR2 is
135 ledgername VARCHAR2(30);
136 errbuf VARCHAR2(132);
137 begin
138 SELECT target_ledger_name
139 INTO ledgername
140 FROM gl_ledger_relationships
141 WHERE source_ledger_id = P_LEDGER_ID
142 AND target_ledger_id = P_LEDGER_ID
143 AND target_currency_code = P_LEDGER_CURRENCY;
144 return (ledgername);
145 exception
146 WHEN OTHERS THEN
147 errbuf := SQLERRM;
148 /*srw.message('00', errbuf);*/null;
149 raise_application_error(-20101,null);/*srw.program_abort;*/null;
150 end;
151 --Functions to refer Oracle report placeholders--
152 Function STRUCT_NUM_p return varchar2 is
153 Begin
154 return STRUCT_NUM;
155 END;
156 Function ACCESS_SET_NAME_p return varchar2 is
157 Begin
158 return ACCESS_SET_NAME;
159 END;
160 Function SELECT_BAL_p return varchar2 is
161 Begin
162 return SELECT_BAL;
163 END;
164 Function SELECT_ALL_p return varchar2 is
165 Begin
166 return SELECT_ALL;
167 END;
168 Function ORDERBY_BAL_p return varchar2 is
169 Begin
170 return ORDERBY_BAL;
171 END;
172 Function ORDERBY_ACCT_p return varchar2 is
173 Begin
174 return ORDERBY_ACCT;
175 END;
176 Function ORDERBY_ALL_p return varchar2 is
177 Begin
178 return ORDERBY_ALL;
179 END;
180 Function SELECT_ACCT_p return varchar2 is
181 Begin
182 return SELECT_ACCT;
183 END;
184 Function TRANS_CHECK_BB_p return varchar2 is
185 Begin
186 return TRANS_CHECK_BB;
187 END;
188 Function TRANS_CHECK_BE_p return varchar2 is
189 Begin
190 return TRANS_CHECK_BE;
191 END;
192 Function WHERE_DAS_p return varchar2 is
193 Begin
194 return WHERE_DAS;
195 END;
196 Function RESULTING_CURRENCY_p return varchar2 is
197 Begin
198 return RESULTING_CURRENCY;
199 END;
200 END GL_GLXBTB_XMLP_PKG ;
201