[Home] [Help]
PACKAGE BODY: APPS.AP_APXBCOBN_XMLP_PKG
Source
1 PACKAGE BODY AP_APXBCOBN_XMLP_PKG AS
2 /* $Header: APXBCOBNB.pls 120.0 2007/12/27 07:28:06 vjaganat noship $ */
3 FUNCTION GET_BASE_CURR_DATA RETURN BOOLEAN IS
4 BASE_CURR AP_SYSTEM_PARAMETERS.BASE_CURRENCY_CODE%TYPE;
5 PREC FND_CURRENCIES_VL.PRECISION%TYPE;
6 MIN_AU FND_CURRENCIES_VL.MINIMUM_ACCOUNTABLE_UNIT%TYPE;
7 DESCR FND_CURRENCIES_VL.DESCRIPTION%TYPE;
8 BEGIN
9 BASE_CURR := '';
10 PREC := 0;
11 MIN_AU := 0;
12 DESCR := '';
13 SELECT
14 P.BASE_CURRENCY_CODE,
15 C.PRECISION,
16 C.MINIMUM_ACCOUNTABLE_UNIT,
17 C.DESCRIPTION
18 INTO
19 BASE_CURR
20 ,PREC
21 ,MIN_AU
22 ,DESCR
23 FROM
24 AP_SYSTEM_PARAMETERS P,
25 FND_CURRENCIES_VL C
26 WHERE P.BASE_CURRENCY_CODE = C.CURRENCY_CODE;
27 C_BASE_CURRENCY_CODE := BASE_CURR;
28 C_BASE_PRECISION := PREC;
29 C_BASE_MIN_ACCT_UNIT := MIN_AU;
30 C_BASE_DESCRIPTION := DESCR;
31 RETURN (TRUE);
32 RETURN NULL;
33 EXCEPTION
34 WHEN OTHERS THEN
35 RETURN (FALSE);
36 END GET_BASE_CURR_DATA;
37
38 FUNCTION CUSTOM_INIT RETURN BOOLEAN IS
39 BEGIN
40 RETURN (TRUE);
41 RETURN NULL;
42 EXCEPTION
43 WHEN OTHERS THEN
44 RETURN (FALSE);
45 END CUSTOM_INIT;
46
47 FUNCTION GET_COVER_PAGE_VALUES RETURN BOOLEAN IS
48 BEGIN
49 RETURN (TRUE);
50 RETURN NULL;
51 EXCEPTION
52 WHEN OTHERS THEN
53 RETURN (FALSE);
54 END GET_COVER_PAGE_VALUES;
55
56 FUNCTION GET_NLS_STRINGS RETURN BOOLEAN IS
57 NLS_ALL AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
58 NLS_YES FND_LOOKUPS.MEANING%TYPE;
59 NLS_NO FND_LOOKUPS.MEANING%TYPE;
60 BEGIN
61 NLS_ALL := '';
62 NLS_YES := '';
63 NLS_NO := '';
64 SELECT
65 LY.MEANING,
66 LN.MEANING,
67 LA.DISPLAYED_FIELD
68 INTO
69 NLS_YES
70 ,NLS_NO
71 ,NLS_ALL
72 FROM
73 FND_LOOKUPS LY,
74 FND_LOOKUPS LN,
75 AP_LOOKUP_CODES LA
76 WHERE LY.LOOKUP_TYPE = 'YES_NO'
77 AND LY.LOOKUP_CODE = 'Y'
78 AND LN.LOOKUP_TYPE = 'YES_NO'
79 AND LN.LOOKUP_CODE = 'N'
80 AND LA.LOOKUP_TYPE = 'NLS REPORT PARAMETER'
81 AND LA.LOOKUP_CODE = 'ALL';
82 C_NLS_YES := NLS_YES;
83 C_NLS_NO := NLS_NO;
84 C_NLS_ALL := NLS_ALL;
85 FND_MESSAGE.SET_NAME('SQLAP'
86 ,'AP_APPRVL_NO_DATA');
87 C_NLS_NO_DATA_EXISTS := '*** ' || C_NLS_NO_DATA_EXISTS || ' ***';
88 FND_MESSAGE.SET_NAME('SQLAP'
89 ,'AP_ALL_END_OF_REPORT');
90 C_NLS_END_OF_REPORT := '*** ' || C_NLS_END_OF_REPORT || ' ***';
91 RETURN (TRUE);
92 RETURN NULL;
93 EXCEPTION
94 WHEN OTHERS THEN
95 RETURN (FALSE);
96 END GET_NLS_STRINGS;
97
98 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
99 BEGIN
100 DECLARE
101 INIT_FAILURE EXCEPTION;
102 BEGIN
103 AA_P_START_DATE:=to_char(P_START_DATE,'DD-MON-YY');
104 AA_P_END_DATE:=to_char(P_END_DATE,'DD-MON-YY');
105 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
106 IF (P_DEBUG_SWITCH = 'Y') THEN
107 NULL;
108 END IF;
109 IF (GET_COMPANY_NAME <> TRUE) THEN
110 RAISE INIT_FAILURE;
111 END IF;
112 IF (P_DEBUG_SWITCH = 'Y') THEN
113 NULL;
114 END IF;
115 IF (GET_NLS_STRINGS <> TRUE) THEN
116 RAISE INIT_FAILURE;
117 END IF;
118 IF (P_DEBUG_SWITCH = 'Y') THEN
119 NULL;
120 END IF;
121 IF (GET_BASE_CURR_DATA <> TRUE) THEN
122 RAISE INIT_FAILURE;
123 END IF;
124 IF (P_DEBUG_SWITCH = 'Y') THEN
125 NULL;
126 END IF;
127 IF (P_DEBUG_SWITCH = 'Y') THEN
128 NULL;
129 END IF;
130 RETURN (TRUE);
131 EXCEPTION
132 WHEN OTHERS THEN
133 RAISE_APPLICATION_ERROR(-20101
134 ,NULL);
135 END;
136 RETURN (TRUE);
137 END BEFOREREPORT;
138
139 FUNCTION AFTERREPORT RETURN BOOLEAN IS
140 BEGIN
141 BEGIN
142 IF (P_DEBUG_SWITCH = 'Y') THEN
143 NULL;
144 END IF;
145 EXCEPTION
146 WHEN OTHERS THEN
147 RAISE_APPLICATION_ERROR(-20101
148 ,NULL);
149 END;
150 RETURN (TRUE);
151 END AFTERREPORT;
152
153 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
154 L_CHART_OF_ACCOUNTS_ID GL_SETS_OF_BOOKS.CHART_OF_ACCOUNTS_ID%TYPE;
155 L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
156 L_SOB_ID NUMBER;
157 L_REPORT_START_DATE DATE;
158 BEGIN
159 L_REPORT_START_DATE := SYSDATE;
160 L_SOB_ID := P_SET_OF_BOOKS_ID;
161 SELECT
162 NAME,
163 CHART_OF_ACCOUNTS_ID
164 INTO
165 L_NAME
166 ,L_CHART_OF_ACCOUNTS_ID
167 FROM
168 GL_SETS_OF_BOOKS
169 WHERE SET_OF_BOOKS_ID = L_SOB_ID;
170 C_COMPANY_NAME_HEADER := L_NAME;
171 C_CHART_OF_ACCOUNTS_ID := L_CHART_OF_ACCOUNTS_ID;
172 C_REPORT_START_DATE := L_REPORT_START_DATE;
173 RETURN (TRUE);
174 RETURN NULL;
175 EXCEPTION
176 WHEN OTHERS THEN
177 RETURN (FALSE);
178 END GET_COMPANY_NAME;
179
180 FUNCTION C_BASE_CURRENCY_CODE_P RETURN VARCHAR2 IS
181 BEGIN
182 RETURN C_BASE_CURRENCY_CODE;
183 END C_BASE_CURRENCY_CODE_P;
184
185 FUNCTION C_BASE_PRECISION_P RETURN NUMBER IS
186 BEGIN
187 RETURN C_BASE_PRECISION;
188 END C_BASE_PRECISION_P;
189
190 FUNCTION C_BASE_MIN_ACCT_UNIT_P RETURN NUMBER IS
191 BEGIN
192 RETURN C_BASE_MIN_ACCT_UNIT;
193 END C_BASE_MIN_ACCT_UNIT_P;
194
195 FUNCTION C_BASE_DESCRIPTION_P RETURN VARCHAR2 IS
196 BEGIN
197 RETURN C_BASE_DESCRIPTION;
198 END C_BASE_DESCRIPTION_P;
199
200 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
201 BEGIN
202 RETURN C_COMPANY_NAME_HEADER;
203 END C_COMPANY_NAME_HEADER_P;
204
205 FUNCTION C_REPORT_START_DATE_P RETURN DATE IS
206 BEGIN
207 RETURN C_REPORT_START_DATE;
208 END C_REPORT_START_DATE_P;
209
210 FUNCTION C_NLS_YES_P RETURN VARCHAR2 IS
211 BEGIN
212 RETURN C_NLS_YES;
213 END C_NLS_YES_P;
214
215 FUNCTION C_NLS_NO_P RETURN VARCHAR2 IS
216 BEGIN
217 RETURN C_NLS_NO;
218 END C_NLS_NO_P;
219
220 FUNCTION C_NLS_ALL_P RETURN VARCHAR2 IS
221 BEGIN
222 RETURN C_NLS_ALL;
223 END C_NLS_ALL_P;
224
225 FUNCTION C_NLS_NO_DATA_EXISTS_P RETURN VARCHAR2 IS
226 BEGIN
227 RETURN C_NLS_NO_DATA_EXISTS;
228 END C_NLS_NO_DATA_EXISTS_P;
229
230 FUNCTION C_CHART_OF_ACCOUNTS_ID_P RETURN NUMBER IS
231 BEGIN
232 RETURN C_CHART_OF_ACCOUNTS_ID;
233 END C_CHART_OF_ACCOUNTS_ID_P;
234
235 FUNCTION C_NLS_END_OF_REPORT_P RETURN VARCHAR2 IS
236 BEGIN
237 RETURN C_NLS_END_OF_REPORT;
238 END C_NLS_END_OF_REPORT_P;
239
240 END AP_APXBCOBN_XMLP_PKG;
241