[Home] [Help]
PACKAGE BODY: APPS.GL_GLXDDA_XMLP_PKG
Source
1 PACKAGE BODY GL_GLXDDA_XMLP_PKG AS
2 /* $Header: GLXDDAB.pls 120.0 2007/12/27 14:54:00 vijranga noship $ */
3
4 function AfterReport return boolean is
5 begin
6
7 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
8 return (TRUE);
9 end;
10
11 function BeforeReport return boolean is
12 begin
13
14 /*SRW.USER_EXIT('FND SRWINIT');*/null;
15
16
17 DECLARE
18 t_ledger_id NUMBER;
19 t_ledger_name VARCHAR2(30);
20 t_chart_of_accounts_id NUMBER;
21 t_base_currency VARCHAR2(15);
22 t_to_ledger_name VARCHAR2(30);
23 t_to_ledger_id NUMBER;
24 t_to_chart_of_accounts_id NUMBER;
25 t_to_base_currency VARCHAR2(15);
26 t_from_ledger_name VARCHAR2(30);
27 t_from_ledger_id NUMBER;
28 t_from_chart_of_accounts_id NUMBER;
29 t_from_base_currency VARCHAR2(15);
30 t_consolidation_id NUMBER;
31 t_consolidation_name VARCHAR2(33);
32 t_consolidation_method VARCHAR2(30);
33 t_consolidation_currency_code VARCHAR2(15);
34 t_consolidation_description VARCHAR2(240);
35 t_error_buffer VARCHAR2(400);
36
37 CURSOR t_cursorLedgerName IS
38 SELECT glr.target_ledger_name
39 FROM gl_ledger_relationships glr, gl_consolidation gcs
40 WHERE glr.target_currency_code = gcs.from_currency_code
41 AND glr.source_ledger_id = gcs.from_ledger_id
42 AND glr.target_ledger_id = gcs.from_ledger_id
43 AND gcs.consolidation_id = P_CONSOLIDATION_ID;
44
45 BEGIN
46
47 t_consolidation_id := to_number(P_CONSOLIDATION_ID);
48 gl_get_consolidation_info(t_consolidation_id,
49 t_consolidation_name,
50 t_consolidation_method,
51 t_consolidation_currency_code,
52 t_from_ledger_id,
53 t_to_ledger_id,
54 t_consolidation_description,
55 t_error_buffer);
56
57 if (t_error_buffer is not NULL) then
58 /*SRW.MESSAGE(0, t_error_buffer);*/null;
59
60 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
61
62 else
63 ConsolidationName := t_consolidation_name;
64 end if;
65
66 gl_info.gl_get_ledger_info(t_to_ledger_id,
67 t_to_chart_of_accounts_id,
68 t_to_ledger_name,
69 t_to_base_currency,
70 t_error_buffer);
71
72 if (t_error_buffer is not NULL) then
73 /*SRW.MESSAGE(0, t_error_buffer);*/null;
74
75 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
76
77 else
78 STRUCT_NUM := to_char(t_to_chart_of_accounts_id);
79 To_Ledger_Name := t_to_ledger_name;
80 end if;
81
82 open t_cursorLedgerName;
83 fetch t_cursorLedgerName into FROM_LEDGER_NAME;
84 if t_cursorLedgerName%NOTFOUND then
85 t_error_buffer := gl_message.get_message('GL_PLL_INVALID_CONSOLID_ID', 'Y',
86 'CID', to_char(t_consolidation_id));
87 /*SRW.MESSAGE(0, t_error_buffer);*/null;
88
89 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
90
91 end if;
92 close t_cursorLedgerName;
93
94
95 gl_info.gl_get_ledger_info(t_from_ledger_id,
96 t_from_chart_of_accounts_id,
97 t_from_ledger_name,
98 t_from_base_currency,
99 t_error_buffer);
100
101 if (t_error_buffer is not NULL) then
102 /*SRW.MESSAGE(0, t_error_buffer);*/null;
103
104 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
105
106 end if;
107
108
109 if (t_from_base_currency = t_consolidation_currency_code) then
110 WHERE_DR_CR_NOT_ZERO
111 := '( (nvl(glca.entered_dr,0) <> 0)
112 OR (nvl(glca.entered_cr,0) <> 0))';
113 else
114 WHERE_DR_CR_NOT_ZERO
115 := '( nvl(glca.entered_dr,0)
116 - nvl(glca.entered_cr,0) <> 0)';
117 end if;
118
119 LEDGER_NAME := t_to_ledger_name;
120
121 END;
122
123 /*SRW.REFERENCE(STRUCT_NUM);*/null;
124
125
126 null;
127 /*SRW.REFERENCE(STRUCT_NUM);*/null;
128
129
130 null; return (TRUE);
131 end;
132
133 procedure gl_get_consolidation_info(
134 cons_id number, cons_name out NOCOPY varchar2,
135 method out NOCOPY varchar2, curr_code out NOCOPY varchar2,
136 from_ledid out NOCOPY number, to_ledid out NOCOPY number,
137 description out NOCOPY varchar2, errbuf out NOCOPY varchar2) is
138 begin
139 select glc.name, glc.method, glc.from_currency_code,
140 glc.from_ledger_id, glc.to_ledger_id,
141 glc.description
142 into cons_name, method, curr_code, from_ledid, to_ledid,
143 description
144 from gl_consolidation glc
145 where glc.consolidation_id = cons_id;
146
147 EXCEPTION
148 WHEN NO_DATA_FOUND THEN
149 errbuf := gl_message.get_message('GL_PLL_INVALID_CONSOLID_ID', 'Y',
150 'CID', to_char(cons_id));
151 end;
152
153 --Functions to refer Oracle report placeholders--
154
155 Function STRUCT_NUM_p return varchar2 is
156 Begin
157 return STRUCT_NUM;
158 END;
159 Function Ledger_Name_p return varchar2 is
160 Begin
161 return Ledger_Name;
162 END;
163 Function To_Ledger_Name_p return varchar2 is
164 Begin
165 return To_Ledger_Name;
166 END;
167 Function From_Ledger_Name_p return varchar2 is
168 Begin
169 return From_Ledger_Name;
170 END;
171 Function ConsolidationName_p return varchar2 is
172 Begin
173 return ConsolidationName;
174 END;
175 Function WHERE_DR_CR_NOT_ZERO_p return varchar2 is
176 Begin
177 return WHERE_DR_CR_NOT_ZERO;
178 END;
179 END GL_GLXDDA_XMLP_PKG ;
180
181