PACKAGE BODY: APPS.GL_GLXRLMAB_XMLP_PKG

Source

1 PACKAGE BODY GL_GLXRLMAB_XMLP_PKG AS
2 /* $Header: GLXRLMABB.pls 120.0 2007/12/27 15:15:02 vijranga noship $ */
3 
4 function BeforeReport return boolean is
5 begin
6   /*SRW.USER_EXIT('FND SRWINIT');*/null;
7 
8 
9   /*SRW.REFERENCE(P_STRUCT_NUM);*/null;
10 
11 
12  null;
13   SEL_FLEXDATA := replace(SEL_FLEXDATA, 'LEDGER_SEGMENT',
14                            'NVL(GLLR.TARGET_LEDGER_SHORT_NAME, GLLED.SHORT_NAME)');
15 
16 
17   select max(concatenated_segment_delimiter)
18   into   DELIMITER
19   from   FND_ID_FLEX_STRUCTURES
20   where  application_id = 101
21   and    id_flex_code = 'GLLE'
22   and    id_flex_num = P_STRUCT_NUM;
23 
24   IF (DELIMITER IS NULL) THEN
25     DELIMITER := ' ';
26   END IF;
27 
28   return(TRUE);
29 end;
30 
31 function AfterReport return boolean is
32 begin
33   /*SRW.USER_EXIT('FND SRWEXIT');*/null;
34 
35   return (TRUE);
36 end;
37 
38 function C_Standard_FormulaFormula return VARCHAR2 is
39 begin
40   RETURN('A * B/C');
41 end;
42 
43 function account_action_codeformula(AMOUNT in number, LEDGER_ACTION_CODE in varchar2, SEGMENT_TYPES_KEY in varchar2) return char is
44 begin
45   IF (AMOUNT IS NULL) THEN
46     RETURN (LEDGER_ACTION_CODE || DELIMITER || SEGMENT_TYPES_KEY);
47   END IF;
48 
49   RETURN (NULL);
50 end;
51 
52 --Functions to refer Oracle report placeholders--
53 
54  Function SEL_FLEXDATA_p return varchar2 is
55 	Begin
56 	 return SEL_FLEXDATA;
57 	 END;
58  Function DELIMITER_p return varchar2 is
59 	Begin
60 	 return DELIMITER;
61 	 END;
62 END GL_GLXRLMAB_XMLP_PKG ;
63