[Home] [Help]
PACKAGE BODY: APPS.JL_JLBRPCCR_XMLP_PKG
Source
1 PACKAGE BODY JL_JLBRPCCR_XMLP_PKG AS
2 /* $Header: JLBRPCCRB.pls 120.1 2007/12/25 16:38:13 dwkrishn noship $ */
3 FUNCTION AFTERREPORT RETURN BOOLEAN IS
4 BEGIN
5 BEGIN
6 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
7 EXCEPTION
8 WHEN OTHERS THEN
9 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
10 END;
11 RETURN (TRUE);
12 END AFTERREPORT;
13 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
14 L_CHART_OF_ACCOUNTS_ID NUMBER;
15 L_NAME VARCHAR2(30);
16 L_SOB_ID NUMBER;
17 L_ORG_ID NUMBER;
18 BEGIN
19 SELECT
20 SET_OF_BOOKS_ID,
21 ORG_ID
22 INTO L_SOB_ID,L_ORG_ID
23 FROM
24 AP_SYSTEM_PARAMETERS;
25 P_SOB_ID := L_SOB_ID;
26 P_SET_OF_BOOKS_ID := L_SOB_ID;
27 SELECT
28 SUBSTR(NAME
29 ,1
30 ,30),
31 CHART_OF_ACCOUNTS_ID
32 INTO L_NAME,L_CHART_OF_ACCOUNTS_ID
33 FROM
34 GL_SETS_OF_BOOKS
35 WHERE SET_OF_BOOKS_ID = L_SOB_ID;
36 C_COMPANY_NAME_HEADER := L_NAME;
37 C_CHART_OF_ACCOUNTS_ID := L_CHART_OF_ACCOUNTS_ID;
38 RETURN (TRUE);
39 RETURN NULL;
40 EXCEPTION
41 WHEN OTHERS THEN
42 RETURN (FALSE);
43 END GET_COMPANY_NAME;
44 FUNCTION SET_P_WHERE RETURN BOOLEAN IS
45 L_NLS_YES VARCHAR2(4);
46 L_TYPE_OF_REPORT VARCHAR2(40);
47 BEGIN
48 IF (C_USER_ID IS NOT NULL) THEN
49 C_CREATED_BY_PREDICATE := 'and cons.created_by = ' || C_USER_ID;
50 else
51 C_created_by_predicate :='and 1=1';
52 END IF;
53 RETURN (TRUE);
54 END SET_P_WHERE;
55 FUNCTION GET_NLS_STRINGS RETURN BOOLEAN IS
56 NLS_ALL AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
57 NLS_NO_DATA VARCHAR2(2008);
58 NLS_END VARCHAR2(2008);
59 NLS_YES FND_LOOKUPS.MEANING%TYPE;
60 NLS_NO FND_LOOKUPS.MEANING%TYPE;
61 BEGIN
62 NLS_ALL := '';
63 NLS_NO_DATA := '';
64 NLS_YES := '';
65 NLS_NO := '';
66 SELECT
67 LY.MEANING,
68 LN.MEANING,
69 LA.DISPLAYED_FIELD
70 INTO NLS_YES,NLS_NO,NLS_ALL
71 FROM
72 FND_LOOKUPS LY,
73 FND_LOOKUPS LN,
74 AP_LOOKUP_CODES LA
75 WHERE LY.LOOKUP_TYPE = 'YES_NO'
76 AND LY.LOOKUP_CODE = 'Y'
77 AND LN.LOOKUP_TYPE = 'YES_NO'
78 AND LN.LOOKUP_CODE = 'N'
79 AND LA.LOOKUP_TYPE = 'NLS REPORT PARAMETER'
80 AND LA.LOOKUP_CODE = 'ALL';
81 C_NLS_YES := NLS_YES;
82 C_NLS_NO := NLS_NO;
83 C_NLS_ALL := NLS_ALL;
84 FND_MESSAGE.SET_NAME('SQLAP'
85 ,'AP_APPRVL_NO_DATA');
86 NLS_NO_DATA := FND_MESSAGE.GET ;
87 FND_MESSAGE.SET_NAME('SQLAP'
88 ,'AP_ALL_END_OF_REPORT');
89 NLS_END := FND_MESSAGE.GET ;
90 C_NLS_NO_DATA_EXISTS := NLS_NO_DATA;
91 C_NLS_END_OF_REPORT := NLS_END;
92 RETURN (TRUE);
93 RETURN NULL;
94 EXCEPTION
95 WHEN OTHERS THEN
96 RETURN (FALSE);
97 END GET_NLS_STRINGS;
98 FUNCTION AFTERPFORM RETURN BOOLEAN IS
99 BEGIN
100 IF (P_START_DATE IS NOT NULL) THEN
101 LP_START_DATE_PREDICATE := ' and cons.invoice_date >= :P_start_date ';
102 END IF;
103 IF (P_END_DATE IS NOT NULL) THEN
104 LP_END_DATE_PREDICATE := ' and cons.invoice_date <= :P_end_date ';
105 END IF;
106 P_START_DATE1 := to_char(P_START_DATE,'DD-MON-YY');
107 P_END_DATE1 := to_char(P_END_DATE,'DD-MON-YY');
108 RETURN (TRUE);
109 END AFTERPFORM;
110 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
111 INIT_FAILURE EXCEPTION;
112 BEGIN
113 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
114 IF (GET_COMPANY_NAME <> TRUE) THEN
115 RAISE INIT_FAILURE;
116 END IF;
117 IF (GET_NLS_STRINGS <> TRUE) THEN
118 RAISE INIT_FAILURE;
119 END IF;
120 IF (SET_P_WHERE <> TRUE) THEN
121 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
122 END IF;
123 RETURN (TRUE);
124 RETURN NULL;
125 EXCEPTION
126 WHEN OTHERS THEN
127 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
128 RETURN (FALSE);
129 END BEFOREREPORT;
130 FUNCTION C_CHART_OF_ACCOUNTS_ID_P RETURN VARCHAR2 IS
131 BEGIN
132 RETURN C_CHART_OF_ACCOUNTS_ID;
133 END C_CHART_OF_ACCOUNTS_ID_P;
134 FUNCTION C_START_DATE_PREDICATE_P RETURN VARCHAR2 IS
135 BEGIN
136 RETURN C_START_DATE_PREDICATE;
137 END C_START_DATE_PREDICATE_P;
138 FUNCTION C_END_DATE_PREDICATE_P RETURN VARCHAR2 IS
139 BEGIN
140 RETURN C_END_DATE_PREDICATE;
141 END C_END_DATE_PREDICATE_P;
142 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
143 BEGIN
144 RETURN C_COMPANY_NAME_HEADER;
145 END C_COMPANY_NAME_HEADER_P;
146 FUNCTION C_USER_ID_P RETURN VARCHAR2 IS
147 BEGIN
148 RETURN C_USER_ID;
149 END C_USER_ID_P;
150 FUNCTION C_CREATED_BY_PREDICATE_P RETURN VARCHAR2 IS
151 BEGIN
152 RETURN C_CREATED_BY_PREDICATE;
153 END C_CREATED_BY_PREDICATE_P;
154 FUNCTION C_NLS_END_OF_REPORT_P RETURN VARCHAR2 IS
155 BEGIN
156 RETURN C_NLS_END_OF_REPORT;
157 END C_NLS_END_OF_REPORT_P;
158 FUNCTION C_NLS_NO_DATA_EXISTS_P RETURN VARCHAR2 IS
159 BEGIN
160 RETURN C_NLS_NO_DATA_EXISTS;
161 END C_NLS_NO_DATA_EXISTS_P;
162 FUNCTION C_NLS_YES_P RETURN VARCHAR2 IS
163 BEGIN
164 RETURN C_NLS_YES;
165 END C_NLS_YES_P;
166 FUNCTION C_NLS_NO_P RETURN VARCHAR2 IS
167 BEGIN
168 RETURN C_NLS_NO;
169 END C_NLS_NO_P;
170 FUNCTION C_NLS_ALL_P RETURN VARCHAR2 IS
171 BEGIN
172 RETURN C_NLS_ALL;
173 END C_NLS_ALL_P;
174 FUNCTION C_NLA_NA_P RETURN VARCHAR2 IS
175 BEGIN
176 RETURN C_NLA_NA;
177 END C_NLA_NA_P;
178 FUNCTION P_FLEX_DATA_P RETURN VARCHAR2 IS
179 BEGIN
180 RETURN P_FLEX_DATA;
181 END P_FLEX_DATA_P;
182 END JL_JLBRPCCR_XMLP_PKG;
183
184
185