1 PACKAGE BODY JE_JENOGEIA_XMLP_PKG AS
2 /* $Header: JENOGEIAB.pls 120.2 2008/01/11 08:00:26 abraghun noship $ */
3 FUNCTION AFTERREPORT RETURN BOOLEAN IS
4 BEGIN
5 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
6 RETURN (TRUE);
7 END AFTERREPORT;
8
9 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
10 BEGIN
11 BEGIN
12 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
13 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
14 EXCEPTION
15 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
16 BEGIN
17 /*SRW.MESSAGE(100
18 ,'Foundation is not initialised')*/NULL;
19 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
20 END;
21 END;
22 DECLARE
23 COAID NUMBER;
24 SOBNAME VARCHAR2(30);
25 FUNCTCURR VARCHAR2(15);
26 ERRBUF VARCHAR2(132);
27 BEGIN
28 JG_INFO.JG_GET_SET_OF_BOOKS_INFO(P_LEDGER_ID
29 ,COAID
30 ,SOBNAME
31 ,FUNCTCURR
32 ,ERRBUF);
33 IF (ERRBUF IS NOT NULL) THEN
34 /*SRW.MESSAGE('00'
35 ,ERRBUF)*/NULL;
36 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
37 END IF;
38 SELECT
39 PRECISION
40 INTO PRECISION
41 FROM
42 FND_CURRENCIES
43 WHERE CURRENCY_CODE = FUNCTCURR;
44 STRUCT_NUM := COAID;
45 SET_OF_BOOKS_NAME := SOBNAME;
46 FUNC_CURRENCY := FUNCTCURR;
47 END;
48 RETURN (TRUE);
49 END BEFOREREPORT;
50
51 FUNCTION B_EORFORMATTRIGGER(CS_COUNT_AUT IN NUMBER) RETURN BOOLEAN IS
52 BEGIN
53 IF CS_COUNT_AUT = 0 THEN
54 RETURN (FALSE);
55 ELSE
56 RETURN (TRUE);
57 END IF;
58 END B_EORFORMATTRIGGER;
59
60 FUNCTION CF_REPORT_TITLEFORMULA RETURN CHAR IS
61 BEGIN
62 DECLARE
63 L_REPORT_NAME VARCHAR2(80);
64 BEGIN
65 SELECT
66 CP.USER_CONCURRENT_PROGRAM_NAME
67 INTO L_REPORT_NAME
68 FROM
69 FND_CONCURRENT_PROGRAMS_VL CP,
70 FND_APPLICATION_VL AP
71 WHERE AP.APPLICATION_ID = CP.APPLICATION_ID
72 AND CP.CONCURRENT_PROGRAM_NAME = 'JENOGEIA'
73 AND AP.APPLICATION_SHORT_NAME = 'JE';
74 RETURN (L_REPORT_NAME);
75 EXCEPTION
76 WHEN NO_DATA_FOUND THEN
77 L_REPORT_NAME := 'A-Report';
78 RETURN ('A-Report');
79 END;
80 END CF_REPORT_TITLEFORMULA;
81
82 FUNCTION CF_DATEFORMULA RETURN CHAR IS
83 BEGIN
84 DECLARE
85 V_DATE DATE;
86 BEGIN
87 SELECT
88 FND_DATE.DATE_TO_CHARDATE(SYSDATE)
89 INTO V_DATE
90 FROM
91 DUAL;
92 RETURN (V_DATE);
93 END;
94 END CF_DATEFORMULA;
95
96 FUNCTION STRUCT_NUM_P RETURN VARCHAR2 IS
97 BEGIN
98 RETURN STRUCT_NUM;
99 END STRUCT_NUM_P;
100
101 FUNCTION SET_OF_BOOKS_NAME_P RETURN VARCHAR2 IS
102 BEGIN
103 RETURN SET_OF_BOOKS_NAME;
104 END SET_OF_BOOKS_NAME_P;
105
106 FUNCTION SELECT_ALL_P RETURN VARCHAR2 IS
107 BEGIN
108 RETURN SELECT_ALL;
109 END SELECT_ALL_P;
110
111 FUNCTION WHERE_FLEX_P RETURN VARCHAR2 IS
112 BEGIN
113 RETURN WHERE_FLEX;
114 END WHERE_FLEX_P;
115
116 FUNCTION ORDERBY_ACCT_P RETURN VARCHAR2 IS
117 BEGIN
118 RETURN ORDERBY_ACCT;
119 END ORDERBY_ACCT_P;
120
121 FUNCTION PRECISION_P RETURN NUMBER IS
122 BEGIN
123 RETURN PRECISION;
124 END PRECISION_P;
125
126 FUNCTION FUNC_CURRENCY_P RETURN VARCHAR2 IS
127 BEGIN
128 RETURN FUNC_CURRENCY;
129 END FUNC_CURRENCY_P;
130
131 END JE_JENOGEIA_XMLP_PKG;
132
133
134