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