1 PACKAGE BODY JE_JENOGEIM_XMLP_PKG AS
2 /* $Header: JENOGEIMB.pls 120.2 2008/01/11 07:59:25 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 XXNO_REQUEST_ID1 NUMBER;
24 COAID NUMBER;
25 SOBNAME VARCHAR2(30);
26 FUNCTCURR VARCHAR2(15);
27 ERRBUF VARCHAR2(132);
28 BEGIN
29 JG_INFO.JG_GET_SET_OF_BOOKS_INFO(P_LEDGER_ID
30 ,COAID
31 ,SOBNAME
32 ,FUNCTCURR
33 ,ERRBUF);
34 IF (ERRBUF IS NOT NULL) THEN
35 /*SRW.MESSAGE('00'
36 ,ERRBUF)*/NULL;
37 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
38 END IF;
39 SELECT
40 PRECISION
41 INTO PRECISION
42 FROM
43 FND_CURRENCIES
44 WHERE CURRENCY_CODE = FUNCTCURR;
45 STRUCT_NUM := COAID;
46 SET_OF_BOOKS_NAME := SOBNAME;
47 FUNC_CURRENCY := FUNCTCURR;
48 END;
49 RETURN (TRUE);
50 END BEFOREREPORT;
51
52 FUNCTION B_PERIOD_ENDFORMATTRIGGER(PERIOD_END IN VARCHAR2) RETURN BOOLEAN IS
53 BEGIN
54 IF PERIOD_END IS NULL THEN
55 RETURN (FALSE);
56 ELSE
57 RETURN (TRUE);
58 END IF;
59 RETURN NULL;
60 END B_PERIOD_ENDFORMATTRIGGER;
61
62 FUNCTION CF_REPORT_TITLEFORMULA RETURN CHAR IS
63 BEGIN
64 DECLARE
65 L_REPORT_NAME VARCHAR2(80);
66 BEGIN
67 SELECT
68 CP.USER_CONCURRENT_PROGRAM_NAME
69 INTO L_REPORT_NAME
70 FROM
71 FND_CONCURRENT_PROGRAMS_VL CP,
72 FND_APPLICATION_VL AP
73 WHERE AP.APPLICATION_ID = CP.APPLICATION_ID
74 AND CP.CONCURRENT_PROGRAM_NAME = 'JENOGEIM'
75 AND AP.APPLICATION_SHORT_NAME = 'JE';
76 RETURN (L_REPORT_NAME);
77 EXCEPTION
78 WHEN NO_DATA_FOUND THEN
79 L_REPORT_NAME := 'GEI Print Messages';
80 RETURN ('GEI Print Messages');
81 END;
82 END CF_REPORT_TITLEFORMULA;
83
84 FUNCTION CF_DATEFORMULA RETURN CHAR IS
85 BEGIN
86 DECLARE
87 V_DATE DATE;
88 BEGIN
89 SELECT
90 FND_DATE.DATE_TO_CHARDATE(SYSDATE)
91 INTO V_DATE
92 FROM
93 DUAL;
94 RETURN (V_DATE);
95 END;
96 END CF_DATEFORMULA;
97
98 FUNCTION STRUCT_NUM_P RETURN VARCHAR2 IS
99 BEGIN
100 RETURN STRUCT_NUM;
101 END STRUCT_NUM_P;
102
103 FUNCTION SET_OF_BOOKS_NAME_P RETURN VARCHAR2 IS
104 BEGIN
105 RETURN SET_OF_BOOKS_NAME;
106 END SET_OF_BOOKS_NAME_P;
107
108 FUNCTION SELECT_ALL_P RETURN VARCHAR2 IS
109 BEGIN
110 RETURN SELECT_ALL;
111 END SELECT_ALL_P;
112
113 FUNCTION WHERE_FLEX_P RETURN VARCHAR2 IS
114 BEGIN
115 RETURN WHERE_FLEX;
116 END WHERE_FLEX_P;
117
118 FUNCTION ORDERBY_ACCT_P RETURN VARCHAR2 IS
119 BEGIN
120 RETURN ORDERBY_ACCT;
121 END ORDERBY_ACCT_P;
122
123 FUNCTION PRECISION_P RETURN NUMBER IS
124 BEGIN
125 RETURN PRECISION;
126 END PRECISION_P;
127
128 FUNCTION FUNC_CURRENCY_P RETURN VARCHAR2 IS
129 BEGIN
130 RETURN FUNC_CURRENCY;
131 END FUNC_CURRENCY_P;
132
133 END JE_JENOGEIM_XMLP_PKG;
134
135
136