[Home] [Help]
PACKAGE BODY: APPS.GL_RGXCOND_XMLP_PKG
Source
1 PACKAGE BODY GL_RGXCOND_XMLP_PKG AS
2 /* $Header: RGXCONDB.pls 120.1 2007/12/28 10:49:11 vijranga noship $ */
3 function BeforeReport return boolean is
4 begin
5 BEGIN
6 /*SRW.USER_EXIT('FND SRWINIT');*/null;
7 DECLARE
8 COA_ID NUMBER;
9 FUNC_CURR VARCHAR2(15);
10 BEGIN
11 SELECT chart_of_accounts_id INTO COA_ID
12 FROM gl_access_sets WHERE access_set_id = P_ACCESS_SET_ID;
13 C_STRUCT_NUM := COA_ID;
14 END;
15 C_ID_FLEX_CODE := 'GLLE' ;
16 C_INDUSTRY_TYPE := FND_PROFILE.VALUE('INDUSTRY');
17 /*SRW.USER_EXIT('FND GETPROFILE
18 INDUSTRY :C_INDUSTRY_TYPE');*/null;
19 IF ( C_INDUSTRY_TYPE = 'G' )
20 THEN
21 C_ATTRIBUTE_FLAG := FND_PROFILE.VALUE('ATTRIBUTE_REPORTING');
22 /*SRW.USER_EXIT('FND GETPROFILE
23 ATTRIBUTE_REPORTING :C_ATTRIBUTE_FLAG');*/null;
24 IF ( C_ATTRIBUTE_FLAG = 'Y' )
25 THEN
26 C_ID_FLEX_CODE := 'GLAT' ;
27 P_FLEXDATA_LOW := P_FLEXDATA_LOW||P_FLEXDATA_LOW2||
28 P_FLEXDATA_LOW3 ;
29 P_FLEXDATA_HIGH := P_FLEXDATA_HIGH||P_FLEXDATA_HIGH2||
30 P_FLEXDATA_HIGH3 ;
31 P_FLEXDATA_TYPE := P_FLEXDATA_TYPE||P_FLEXDATA_TYPE2||
32 P_FLEXDATA_TYPE3 ;
33 P_FLEX_LPROMPT := P_FLEX_LPROMPT||P_FLEX_LPROMPT2||
34 P_FLEX_LPROMPT3 ;
35 END IF;
36 END IF ;
37 P_FLEXDATA_LOW := replace(P_FLEXDATA_LOW,'LEDGER_SEGMENT_LOW','GLLED.short_name');
38 P_FLEXDATA_HIGH := replace(P_FLEXDATA_HIGH,'LEDGER_SEGMENT_HIGH','GLLED.short_name');
39 END;
40 select FND_FLEX_APIS.gbl_get_segment_delimiter(101,C_ID_FLEX_CODE,C_STRUCT_NUM) into C_DELIMITER from dual;
41 if (C_DELIMITER ='') THEN
42 C_DELIMITER := '-';
43 end if;
44 return (TRUE);
45 end;
46 function AfterReport return boolean is
47 begin
48 BEGIN
49 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
50 END; return (TRUE);
51 end;
52 function c_flex_lowformula(C_DATA_LOW in varchar2) return varchar2 is
53 C_FLEX_LOW varchar2(3000);
54 begin
55 /*SRW.REFERENCE(C_ID_FLEX_CODE);*/null;
56 /*SRW.REFERENCE(C_DATA_LOW);*/null;
57 /*SRW.REFERENCE(C_STRUCT_NUM);*/null;
58 /*SRW.USER_EXIT('FND FLEXRIDVAL
59 CODE=":C_ID_FLEX_CODE"
60 APPL_SHORT_NAME="SQLGL"
61 DATA=":C_DATA_LOW"
62 VALUE=":C_FLEX_LOW"
63 NUM=":C_STRUCT_NUM"');*/null;
64 C_FLEX_LOW := replace(C_DATA_LOW,'\n',C_DELIMITER);
65 RETURN(C_FLEX_LOW);
66 end;
67 function c_flex_highformula(C_DATA_HIGH in varchar2) return varchar2 is
68 C_FLEX_HIGH varchar2(3000);
69 begin
70 /*SRW.REFERENCE(C_ID_FLEX_CODE);*/null;
71 /*SRW.REFERENCE(C_DATA_HIGH);*/null;
72 /*SRW.REFERENCE(C_STRUCT_NUM);*/null;
73 /*SRW.USER_EXIT('FND FLEXRIDVAL
74 CODE=":C_ID_FLEX_CODE"
75 APPL_SHORT_NAME="SQLGL"
76 DATA=":C_DATA_HIGH"
77 VALUE=":C_FLEX_HIGH"
78 NUM=":C_STRUCT_NUM"');*/null;
79 C_FLEX_HIGH := replace(C_DATA_HIGH,'\n',C_DELIMITER);
80 RETURN(C_FLEX_HIGH);
81 end;
82 function c_flex_typeformula(C_DATA_TYPE in varchar2) return varchar2 is
83 C_FLEX_TYPE varchar2(3000);
84 begin
85 /*SRW.REFERENCE(C_ID_FLEX_CODE);*/null;
86 /*SRW.REFERENCE(C_DATA_TYPE);*/null;
87 /*SRW.REFERENCE(C_STRUCT_NUM);*/null;
88 /*SRW.USER_EXIT('FND FLEXRIDVAL
89 CODE=":C_ID_FLEX_CODE"
90 APPL_SHORT_NAME="SQLGL"
91 DATA=":C_DATA_TYPE"
92 VALUE=":C_FLEX_TYPE"
93 NUM=":C_STRUCT_NUM"');*/null;
94 C_FLEX_TYPE := replace(C_DATA_TYPE,'\n',C_DELIMITER);
95 RETURN(C_FLEX_TYPE);
96 end;
97 --Functions to refer Oracle report placeholders--
98 Function C_STRUCT_NUM_p return number is
99 Begin
100 return C_STRUCT_NUM;
101 END;
102 Function C_ID_FLEX_CODE_p return varchar2 is
103 Begin
104 return C_ID_FLEX_CODE;
105 END;
106 Function C_INDUSTRY_TYPE_p return varchar2 is
107 Begin
108 return C_INDUSTRY_TYPE;
109 END;
110 Function C_ATTRIBUTE_FLAG_p return varchar2 is
111 Begin
112 return C_ATTRIBUTE_FLAG;
113 END;
114 END GL_RGXCOND_XMLP_PKG ;
115
116