[Home] [Help]
PACKAGE BODY: APPS.GL_RGXROWD_XMLP_PKG
Source
1 PACKAGE BODY GL_RGXROWD_XMLP_PKG AS
2 /* $Header: RGXROWDB.pls 120.0 2007/12/27 15:36:39 vijranga noship $ */
3
4 function BeforeReport return boolean is
5 begin
6
7 /*SRW.USER_EXIT('FND SRWINIT');*/null;
8
9
10
11 DECLARE
12 COA_ID NUMBER;
13 FUNC_CURR VARCHAR2(15);
14 BEGIN
15 SELECT chart_of_accounts_id INTO COA_ID
16 FROM gl_access_sets WHERE access_set_id = P_ACCESS_SET_ID;
17
18 C_STRUCT_NUM := COA_ID;
19 END;
20
21 C_ID_FLEX_CODE := 'GLLE';
22
23
24 /*SRW.USER_EXIT('FND GETPROFILE
25 INDUSTRY :C_INDUSTRY_TYPE');*/null;
26 C_INDUSTRY_TYPE := FND_PROFILE.VALUE('INDUSTRY');
27 IF ( C_INDUSTRY_TYPE = 'G' ) THEN
28
29
30 /*SRW.USER_EXIT('FND GETPROFILE
31 ATTRIBUTE_REPORTING :C_ATTRIBUTE_FLAG');*/null;
32
33 C_ATTRIBUTE_FLAG := FND_PROFILE.VALUE('ATTRIBUTE_REPORTING');
34
35
36 IF ( C_ATTRIBUTE_FLAG = 'Y' ) THEN
37 C_ID_FLEX_CODE := 'GLAT' ;
38 P_FLEXDATA_LOW := P_FLEXDATA_LOW||P_FLEXDATA_LOW2||
39 P_FLEXDATA_LOW3 ;
40
41 P_FLEXDATA_HIGH := P_FLEXDATA_HIGH||P_FLEXDATA_HIGH2||
42 P_FLEXDATA_HIGH3 ;
43
44 P_FLEXDATA_TYPE := P_FLEXDATA_TYPE||P_FLEXDATA_TYPE2||
45 P_FLEXDATA_TYPE3 ;
46
47 P_FLEX_LPROMPT := P_FLEX_LPROMPT||P_FLEX_LPROMPT2||
48 P_FLEX_LPROMPT3 ;
49
50
51
52 END IF;
53
54 END IF;
55
56 /*SRW.REFERENCE(C_ID_FLEX_CODE);*/null;
57
58 /*SRW.REFERENCE(C_STRUCT_NUM);*/null;
59
60 /*SRW.USER_EXIT('FND FLEXRSQL CODE=":C_ID_FLEX_CODE"
61 OUTPUT=":P_FLEXDATA"
62 APPL_SHORT_NAME="SQLGL"
63 TYPE=":P_FLEXDATA_TYPE\n_TYPE"
64 NUM=":C_STRUCT_NUM"');*/null;
65
66
67 /*SRW.REFERENCE(C_ID_FLEX_CODE);*/null;
68
69 /*SRW.REFERENCE(C_STRUCT_NUM);*/null;
70
71
72 null;
73
74 P_FLEXDATA_LOW := replace(P_FLEXDATA_LOW,'LEDGER_SEGMENT_LOW','GLLED.SHORT_NAME');
75 P_FLEXDATA_HIGH := replace(P_FLEXDATA_HIGH,'LEDGER_SEGMENT_HIGH','GLLED.SHORT_NAME');
76
77
78 select FND_FLEX_APIS.gbl_get_segment_delimiter(101,C_ID_FLEX_CODE,C_STRUCT_NUM) into C_DELIMITER from dual;
79 if (C_DELIMITER ='') THEN
80 C_DELIMITER := '-';
81 end if;
82 return (TRUE);
83 end;
84
85 function AfterReport return boolean is
86 begin
87
88 BEGIN
89 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
90
91 RETURN TRUE;
92 END; return (TRUE);
93 end;
94
95 function c_flex_lowformula(C_DATA_LOW in varchar2) return varchar2 is
96 C_FLEX_LOW varchar2(3000);
97 begin
98
99 /*SRW.REFERENCE(C_ID_FLEX_CODE);*/null;
100
101 /*SRW.REFERENCE(C_DATA_LOW);*/null;
102
103 /*SRW.REFERENCE(C_STRUCT_NUM);*/null;
104
105 /*SRW.USER_EXIT('FND FLEXRIDVAL
106 CODE=":C_ID_FLEX_CODE"
107 APPL_SHORT_NAME="SQLGL"
108 DATA=":C_DATA_LOW"
109 VALUE=":C_FLEX_LOW"
110 NUM=":C_STRUCT_NUM"');*/null;
111
112 C_FLEX_LOW := replace(C_DATA_LOW,'\n',C_DELIMITER);
113
114 RETURN(C_FLEX_LOW);
115 end;
116
117 function c_flex_highformula(C_DATA_HIGH in varchar2) return varchar2 is
118 C_FLEX_HIGH varchar2(3000);
119 begin
120
121 /*SRW.REFERENCE(C_ID_FLEX_CODE);*/null;
122
123 /*SRW.REFERENCE(C_DATA_HIGH);*/null;
124
125 /*SRW.REFERENCE(C_STRUCT_NUM);*/null;
126
127 /*SRW.USER_EXIT('FND FLEXRIDVAL
128 CODE=":C_ID_FLEX_CODE"
129 APPL_SHORT_NAME="SQLGL"
130 DATA=":C_DATA_HIGH"
131 VALUE=":C_FLEX_HIGH"
132 NUM=":C_STRUCT_NUM"');*/null;
133 C_FLEX_HIGH := replace(C_DATA_HIGH,'\n',C_DELIMITER);
134
135 RETURN(C_FLEX_HIGH);
136 end;
137
138 function c_flex_typeformula(C_DATA_TYPE in varchar2) return varchar2 is
139 C_FLEX_TYPE varchar2(3000);
140 begin
141
142 /*SRW.REFERENCE(C_ID_FLEX_CODE);*/null;
143
144 /*SRW.REFERENCE(C_DATA_TYPE);*/null;
145
146 /*SRW.REFERENCE(C_STRUCT_NUM);*/null;
147
148 /*SRW.USER_EXIT('FND FLEXRIDVAL
149 CODE=":C_ID_FLEX_CODE"
150 APPL_SHORT_NAME="SQLGL"
151 DATA=":C_DATA_TYPE"
152 VALUE=":C_FLEX_TYPE"
153 NUM=":C_STRUCT_NUM"');*/null;
154 C_FLEX_TYPE := replace(C_DATA_TYPE,'\n',C_DELIMITER);
155 RETURN(C_FLEX_TYPE);
156 end;
157
158 --Functions to refer Oracle report placeholders--
159
160 Function C_STRUCT_NUM_p return number is
161 Begin
162 return C_STRUCT_NUM;
163 END;
164 Function C_ID_FLEX_CODE_p return varchar2 is
165 Begin
166 return C_ID_FLEX_CODE;
167 END;
168 Function C_INDUSTRY_TYPE_p return varchar2 is
169 Begin
170 return C_INDUSTRY_TYPE;
171 END;
172 Function C_ATTRIBUTE_FLAG_p return varchar2 is
173 Begin
174 return C_ATTRIBUTE_FLAG;
175 END;
176 END GL_RGXROWD_XMLP_PKG ;
177