[Home] [Help]
PACKAGE BODY: APPS.GL_GLXBOR_XMLP_PKG
Source
1 PACKAGE BODY GL_GLXBOR_XMLP_PKG AS
2 /* $Header: GLXBORB.pls 120.2 2008/01/02 06:05:29 npannamp noship $ */
3
4 function flexfield_lowformula(FLEXDATA_LOW in varchar2) return varchar2 is
5 FLEXFIELD_LOW varchar2(1000);
6 begin
7
8 /*srw.reference(STRUCT_NUM);*/null;
9
10 /*srw.reference(FLEXDATA_LOW);*/null;
11
12 /*srw.user_exit('FND FLEXRIDVAL CODE="GL#"
13 NUM=":STRUCT_NUM"
14 APPL_SHORT_NAME="SQLGL"
15 DATA=":FLEXDATA_LOW"
16 VALUE=":FLEXFIELD_LOW"');*/null;
17 FLEXFIELD_LOW := replace(FLEXDATA_LOW,'\n',C_DELIMITER);
18
19 RETURN(FLEXFIELD_LOW);
20
21 end;
22
23 FUNCTION gl_get_all_org_id RETURN NUMBER IS
24 all_bud_ent_id NUMBER;
25 begin
26 select be.budget_entity_id
27 into all_bud_ent_id
28 from gl_lookups l, gl_budget_entities be
29 where l.lookup_type = 'LITERAL'
30 and l.lookup_code = 'ALL'
31 and upper(be.name) = upper(l.meaning)
32 and be.ledger_id = P_LEDGER_ID;
33
34 return(all_bud_ent_id);
35
36 RETURN NULL; EXCEPTION
37 when NO_DATA_FOUND then
38 return -1;
39 end;
40
41 function AfterReport return boolean is
42 begin
43
44 /*srw.user_exit('FND SRWEXIT');*/null;
45 return (TRUE);
46 end;
47
48 function flexfield_highformula(FLEXDATA_HIGH in varchar2) return varchar2 is
49 FLEXFIELD_HIGH varchar2(1000);
50 begin
51
52 /*srw.reference(STRUCT_NUM);*/null;
53
54 /*srw.reference(FLEXDATA_HIGH);*/null;
55
56 /*srw.user_exit('FND FLEXRIDVAL CODE="GL#"
57 NUM=":STRUCT_NUM"
58 APPL_SHORT_NAME="SQLGL"
59 DATA=":FLEXDATA_HIGH"
60 VALUE=":FLEXFIELD_HIGH"');*/null;
61 FLEXFIELD_HIGH := replace(FLEXDATA_HIGH,'\n',C_DELIMITER);
62 RETURN(FLEXFIELD_HIGH);
63 end;
64
65 function BeforeReport return boolean is
66 errbuf VARCHAR2(132);
67 errbuf2 VARCHAR2(132);
68 begin
69
70 /*srw.user_exit('FND SRWINIT');*/null;
71
72
73 declare
74 coaid NUMBER;
75 ledgername VARCHAR2(30);
76 functcurr VARCHAR2(15);
77 begin
78
79 gl_info.gl_get_ledger_info(P_LEDGER_ID,
80 coaid, ledgername, functcurr,
81 errbuf);
82
83 if (errbuf is not null) then
84
85 errbuf2 := gl_message.get_message(
86 'GL_PLL_ROUTINE_ERROR', 'N',
87 'ROUTINE','gl_get_ledger_info');
88 /*srw.message('00', errbuf2);*/null;
89
90 /*srw.message('00', errbuf);*/null;
91
92 raise_application_error(-20101,null);/*srw.program_abort;*/null;
93
94 end if;
95
96 STRUCT_NUM := coaid;
97 LEDGER_NAME := ledgername;
98 end;
99
100 P_BUDGET_ENTITY_ID1 := P_BUDGET_ENTITY_ID ;
101 if (gl_get_all_org_id = P_BUDGET_ENTITY_ID1) then
102 -- P_BUDGET_ENTITY_ID := -1;
103 P_BUDGET_ENTITY_ID1 := -1;
104 end if;
105
106 /*srw.reference(STRUCT_NUM);*/null;
107
108 /*srw.user_exit('FND FLEXRSQL CODE="GL#" NUM=":STRUCT_NUM"
109 APPL_SHORT_NAME="SQLGL"
110 OUTPUT=":SELECT_FLEX" TABLEALIAS="BAR"');*/null;
111 select FND_FLEX_APIS.gbl_get_segment_delimiter(101,'GL#',STRUCT_NUM) into C_DELIMITER from dual;
115 FROM gl_access_sets
112 begin
113 SELECT name
114 INTO DAS_NAME
116 WHERE access_set_id = P_DAS_ID;
117
118 exception
119 WHEN NO_DATA_FOUND THEN
120 errbuf := gl_message.get_message('GL_PLL_INVALID_DATA_ACCESS_SET', 'Y',
121 'DASID', to_char(P_DAS_ID));
122 /*srw.message('00', errbuf);*/null;
123
124 raise_application_error(-20101,null);/*srw.program_abort;*/null;
125
126
127 WHEN OTHERS THEN
128 errbuf := SQLERRM;
129 /*srw.message('00', errbuf);*/null;
130
131 raise_application_error(-20101,null);/*srw.program_abort;*/null;
132
133 end;
134
135 return (TRUE);
136 end;
137
138 --Functions to refer Oracle report placeholders--
139
140 Function STRUCT_NUM_p return varchar2 is
141 Begin
142 return STRUCT_NUM;
143 END;
144 Function LEDGER_NAME_p return varchar2 is
145 Begin
146 return LEDGER_NAME;
147 END;
148 Function SELECT_FLEX_LOW_p return varchar2 is
149 Begin
150 return SELECT_FLEX_LOW;
151 END;
152 Function SELECT_FLEX_HIGH_p return varchar2 is
153 Begin
154 return SELECT_FLEX_HIGH;
155 END;
156 Function DAS_NAME_p return varchar2 is
157 Begin
158 return DAS_NAME;
159 END;
160 END GL_GLXBOR_XMLP_PKG ;
161
162