[Home] [Help]
PACKAGE BODY: APPS.GL_GLXRLBOL_XMLP_PKG
Source
1 PACKAGE BODY GL_GLXRLBOL_XMLP_PKG AS
2 /* $Header: GLXRLBOLB.pls 120.0 2007/12/27 15:11:29 vijranga noship $ */
3
4 function BeforeReport return boolean is
5 errbuf VARCHAR2(132);
6 errbuf2 VARCHAR2(132);
7 name VARCHAR2(25);
8 description VARCHAR2(240);
9 pass_reqd VARCHAR2(30);
10 start_date date;
11 end_date date;
12 control_flag VARCHAR2(1);
13 begin
14
15 /*srw.user_exit('FND SRWINIT');*/null;
16
17
18 P_BUDGET_ENTITY_ID_NEW := P_BUDGET_ENTITY_ID;
19 declare
20 ledname VARCHAR2(30);
21 coaid NUMBER;
22 func_curr VARCHAR2(15);
23 begin
24 gl_info.gl_get_ledger_info(P_LEDGER_ID,
25 coaid, ledname,func_curr, errbuf);
26
27 if (errbuf is not null) then
28
29
30
31 errbuf2 := gl_message.get_message(
32 'GL_PLL_ROUTINE_ERROR', 'N',
33 'ROUTINE','gl_get_ledger_info'
34 );
35 /*srw.message('00', errbuf2);*/null;
36
37 /*srw.message('00', errbuf);*/null;
38
39 raise_application_error(-20101,null);/*srw.program_abort;*/null;
40
41 end if;
42
43 STRUCT_NUM:= coaid;
44 LEDGER_NAME := ledname;
45 end;
46
47 begin
48 SELECT name
49 INTO DAS_NAME
50 FROM gl_access_sets
51 WHERE access_set_id = P_DAS_ID;
52
53 exception
54 WHEN NO_DATA_FOUND THEN
55 errbuf := gl_message.get_message('GL_PLL_INVALID_DATA_ACCESS_SET', 'Y',
56 'DASID', to_char(P_DAS_ID));
57 /*srw.message('00', errbuf);*/null;
58
59 raise_application_error(-20101,null);/*srw.program_abort;*/null;
60
61
62 WHEN OTHERS THEN
63 errbuf := SQLERRM;
64 /*srw.message('00', errbuf);*/null;
65
66 raise_application_error(-20101,null);/*srw.program_abort;*/null;
67
68 end;
69
70 select enable_budgetary_control_flag
71 into control_flag
72 from gl_ledgers led
73 where led.ledger_id = P_LEDGER_ID;
74
75 budgetary_control_flag := control_flag;
76
77
78 /* if (gl_get_all_org_id = P_BUDGET_ENTITY_ID) then
79 P_BUDGET_ENTITY_ID := -1;*/
80 if (gl_get_all_org_id = P_BUDGET_ENTITY_ID_NEW) then
81 P_BUDGET_ENTITY_ID_NEW := -1;
82
83 else
84 SELECT be.name, be.description, lk.meaning, be.start_date, be.end_date
85 INTO ORGNAME, ORGDESC, ORGPASS, STARTDATE, ENDDATE
86 FROM GL_BUDGET_ENTITIES be, GL_LOOKUPS lk
87 --WHERE be.budget_entity_id = P_BUDGET_ENTITY_ID
88 WHERE be.budget_entity_id = P_BUDGET_ENTITY_ID_NEW
89 AND lk.lookup_code = be.budget_password_required_flag
90 AND lk.lookup_type = 'YES/NO';
91 end if;
92
93 /*SRW.REFERENCE(STRUCT_NUM);*/null;
94
95
96 null;
97
98 /*srw.reference(STRUCT_NUM);*/null;
99
100
101 null;
102
103 return (TRUE);
104
105 EXCEPTION
106 WHEN NO_DATA_FOUND THEN
107 errbuf := SQLERRM;
108 /*SRW.MESSAGE('000',errbuf);*/null;
109
110 raise_application_error(-20101,null);/*srw.program_abort;*/null;
111
112 end;
113
114 function AfterReport return boolean is
115 begin
116
117 /*srw.user_exit('FND SRWEXIT');*/null;
118 return (TRUE);
119 end;
120
121 FUNCTION gl_get_all_org_id RETURN NUMBER IS
122 all_bud_ent_id NUMBER;
123 begin
124 select be.budget_entity_id
125 into all_bud_ent_id
126 from gl_lookups l, gl_budget_entities be
127 where l.lookup_type = 'LITERAL'
128 and l.lookup_code = 'ALL'
129 and upper(be.name) = upper(l.meaning)
130 and be.ledger_id = p_ledger_id;
131
132 return(all_bud_ent_id);
133
134 RETURN NULL; EXCEPTION
135 when NO_DATA_FOUND then
136 return -1;
137 end;
138
139 --Functions to refer Oracle report placeholders--
140
141 Function LEDGER_NAME_p return varchar2 is
142 Begin
143 return LEDGER_NAME;
144 END;
145 Function ORGNAME_p return varchar2 is
146 Begin
147 return ORGNAME;
148 END;
149 Function ORGDESC_p return varchar2 is
150 Begin
151 return ORGDESC;
152 END;
153 Function ORGPASS_p return varchar2 is
154 Begin
155 return ORGPASS;
156 END;
157 Function STARTDATE_p return date is
158 Begin
159 return STARTDATE;
160 END;
161 Function ENDDATE_p return date is
162 Begin
163 return ENDDATE;
164 END;
165 Function STRUCT_NUM_p return number is
166 Begin
167 return STRUCT_NUM;
168 END;
169 Function budgetary_control_flag_p return varchar2 is
170 Begin
171 return budgetary_control_flag;
172 END;
173 Function DAS_NAME_p return varchar2 is
174 Begin
175 return DAS_NAME;
176 END;
177 END GL_GLXRLBOL_XMLP_PKG ;
178