[Home] [Help]
PACKAGE BODY: APPS.AP_APXBCRPT_XMLP_PKG
Source
1 PACKAGE BODY AP_APXBCRPT_XMLP_PKG AS
2 /* $Header: APXBCRPTB.pls 120.0 2007/12/27 07:29:52 vjaganat noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 BEGIN
6 BEGIN
7 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
8 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
9 EXCEPTION
10 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
11 /*SRW.MESSAGE('10'
12 ,'Failed in SRWINIT')*/NULL;
13 RAISE;
14 END;
15 H_APPLICATION_ID := TO_NUMBER(VALUE('PROG_APPL_ID'));
16 IF H_APPLICATION_ID = 200 THEN
17 BEGIN
18 SELECT
19 SORT_BY_ALTERNATE_FIELD
20 INTO H_SORT_BY_PHONETIC
21 FROM
22 AP_SYSTEM_PARAMETERS;
23 H_SORT_BY_PHONETIC := VALUE('AP_SORT_BY_ALTERNATE');
24 EXCEPTION
25 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
26 /*SRW.MESSAGE('11'
27 ,'Failed in Profile Options Init.')*/NULL;
28 RAISE;
29 END;
30 ELSIF H_APPLICATION_ID = 222 THEN
31 BEGIN
32 H_SORT_BY_PHONETIC := VALUE('RA_CUSTOMERS_SORT_BY_PHONETICS');
33 EXCEPTION
34 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
35 /*SRW.MESSAGE('12'
36 ,'Failed in Profile Options Init.')*/NULL;
37 RAISE;
38 END;
39 END IF;
40 IF H_APPLICATION_ID = 200 THEN
41 BEGIN
42 SELECT
43 GSB.NAME,
44 GSB.CURRENCY_CODE
45 INTO H_COMPANY_NAME,H_CURRENCY_CODE
46 FROM
47 GL_SETS_OF_BOOKS GSB,
48 AP_SYSTEM_PARAMETERS ASP
49 WHERE GSB.SET_OF_BOOKS_ID = ASP.SET_OF_BOOKS_ID
50 AND ROWNUM < 2;
51 EXCEPTION
52 WHEN NO_DATA_FOUND THEN
53 /*SRW.MESSAGE('13'
54 ,'Failed in Set_of_books Initialization')*/NULL;
55 RAISE;
56 END;
57 ELSIF H_APPLICATION_ID = 222 THEN
58 BEGIN
59 SELECT
60 GSB.NAME,
61 GSB.CURRENCY_CODE
62 INTO H_COMPANY_NAME,H_CURRENCY_CODE
63 FROM
64 GL_SETS_OF_BOOKS GSB,
65 AR_SYSTEM_PARAMETERS ASP
66 WHERE GSB.SET_OF_BOOKS_ID = ASP.SET_OF_BOOKS_ID
67 AND ROWNUM < 2;
68 EXCEPTION
69 WHEN NO_DATA_FOUND THEN
70 /*SRW.MESSAGE('14'
71 ,'Failed in Set_of_books Initialization')*/NULL;
72 RAISE;
73 END;
74 END IF;
75 /*SRW.MESSAGE('15'
76 ,'Setting Where Clause based on Application')*/NULL;
77 IF (H_APPLICATION_ID = 200) THEN
78 LP_AP_AR_TAB := ', ap_lookup_codes alc ';
79 LP_AP_AR_WHERE := ' and alc.lookup_type = ''TRANSFER_PRIORITY''' || ' and abc.transfer_priority = alc.lookup_code ';
80 ELSIF (H_APPLICATION_ID = 222) THEN
81 LP_AP_AR_TAB := ' ';
82 LP_AP_AR_WHERE := ' ';
83 END IF;
84 /*SRW.MESSAGE('16'
85 ,'Table Clause: ' || LP_AP_AR_TAB)*/NULL;
86 /*SRW.MESSAGE('17'
87 ,'Where Caluse: ' || LP_AP_AR_WHERE)*/NULL;
88 END;
89 RETURN (TRUE);
90 END BEFOREREPORT;
91
92 FUNCTION AFTERREPORT RETURN BOOLEAN IS
93 BEGIN
94 BEGIN
95 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
96 EXCEPTION
97 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
98 /*SRW.MESSAGE(1
99 ,'Failed in SRWEXIT')*/NULL;
100 END;
101 RETURN (TRUE);
102 END AFTERREPORT;
103
104 FUNCTION C_LINE_TRANSFER_PRIORITYFORMUL(C_TRANSFER_PRIORITY IN VARCHAR2) RETURN VARCHAR2 IS
105 L_TRANSFER_PRIORITY VARCHAR2(80);
106 BEGIN
107 /*SRW.REFERENCE(C_TRANSFER_PRIORITY)*/NULL;
108 /*SRW.MESSAGE('20'
109 ,C_TRANSFER_PRIORITY)*/NULL;
110 IF (H_APPLICATION_ID = 200) THEN
111 SELECT
112 DISPLAYED_FIELD
113 INTO L_TRANSFER_PRIORITY
114 FROM
115 AP_LOOKUP_CODES
116 WHERE LOOKUP_TYPE = 'TRANSFER_PRIORITY'
117 AND LOOKUP_CODE = C_TRANSFER_PRIORITY;
118 END IF;
119 RETURN (L_TRANSFER_PRIORITY);
120 END C_LINE_TRANSFER_PRIORITYFORMUL;
121
122 FUNCTION H_APPLICATION_ID_P RETURN NUMBER IS
123 BEGIN
124 RETURN H_APPLICATION_ID;
125 END H_APPLICATION_ID_P;
126
127 FUNCTION H_COMPANY_NAME_P RETURN VARCHAR2 IS
128 BEGIN
129 RETURN H_COMPANY_NAME;
130 END H_COMPANY_NAME_P;
131
132 FUNCTION H_CURRENCY_CODE_P RETURN VARCHAR2 IS
133 BEGIN
134 RETURN H_CURRENCY_CODE;
135 END H_CURRENCY_CODE_P;
136
137 FUNCTION H_SORT_BY_PHONETIC_P RETURN VARCHAR2 IS
138 BEGIN
139 RETURN H_SORT_BY_PHONETIC;
140 END H_SORT_BY_PHONETIC_P;
141
142 PROCEDURE PUT(NAME IN VARCHAR2
143 ,VAL IN VARCHAR2) IS
144 BEGIN
145 begin FND_PROFILE.PUT(NAME, VAL); end;
146
147 END PUT;
148
149 FUNCTION DEFINED(NAME IN VARCHAR2) RETURN BOOLEAN IS
150 X0 BOOLEAN;
151 BEGIN
152 /* STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := FND_PROFILE.DEFINED(:NAME); :X0 := sys.diutil.bool_to_int(X0rv); end;');
153 STPROC.BIND_I(NAME);
154 STPROC.BIND_O(X0);
155 STPROC.EXECUTE;
156 STPROC.RETRIEVE(2
157 ,X0);*/ null;
158 RETURN X0;
159 END DEFINED;
160
161 PROCEDURE GET(NAME IN VARCHAR2
162 ,VAL OUT NOCOPY VARCHAR2) IS
163 BEGIN
164 begin FND_PROFILE.GET(NAME, VAL); end;
165
166 END GET;
167
168 FUNCTION VALUE(NAME IN VARCHAR2) RETURN VARCHAR2 IS
169 X0 VARCHAR2(2000);
170 BEGIN
171 begin X0 := FND_PROFILE.VALUE(NAME); end;
172 RETURN X0;
173 END VALUE;
174
175 FUNCTION VALUE_WNPS(NAME IN VARCHAR2) RETURN VARCHAR2 IS
176 X0 VARCHAR2(2000);
177 BEGIN
178 begin X0 := FND_PROFILE.VALUE_WNPS(NAME); end;
179 RETURN X0;
180 END VALUE_WNPS;
181
182 FUNCTION SAVE_USER(X_NAME IN VARCHAR2
183 ,X_VALUE IN VARCHAR2) RETURN BOOLEAN IS
184 X0 BOOLEAN;
185 BEGIN
186 /* STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := FND_PROFILE.SAVE_USER(:X_NAME, :X_VALUE); :X0 := sys.diutil.bool_to_int(X0rv); end;');
187 STPROC.BIND_I(X_NAME);
188 STPROC.BIND_I(X_VALUE);
189 STPROC.BIND_O(X0);
190 STPROC.EXECUTE;
191 STPROC.RETRIEVE(3
192 ,X0);*/ null;
193 RETURN X0;
194 END SAVE_USER;
195
196 FUNCTION SAVE(X_NAME IN VARCHAR2
197 ,X_VALUE IN VARCHAR2
198 ,X_LEVEL_NAME IN VARCHAR2
199 ,X_LEVEL_VALUE IN VARCHAR2
200 ,X_LEVEL_VALUE_APP_ID IN VARCHAR2) RETURN BOOLEAN IS
201 X0 BOOLEAN;
202 BEGIN
203 /* STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := FND_PROFILE.SAVE(:X_NAME, :X_VALUE, :X_LEVEL_NAME, :X_LEVEL_VALUE, :X_LEVEL_VALUE_APP_ID); :X0 := sys.diutil.bool_to_int(X0rv); end;');
204 STPROC.BIND_I(X_NAME);
205 STPROC.BIND_I(X_VALUE);
206 STPROC.BIND_I(X_LEVEL_NAME);
207 STPROC.BIND_I(X_LEVEL_VALUE);
208 STPROC.BIND_I(X_LEVEL_VALUE_APP_ID);
209 STPROC.BIND_O(X0);
210 STPROC.EXECUTE;
211 STPROC.RETRIEVE(6
212 ,X0);*/ null;
213 RETURN X0;
214 END SAVE;
215
216 PROCEDURE GET_SPECIFIC(NAME_Z IN VARCHAR2
217 ,USER_ID_Z IN NUMBER
218 ,RESPONSIBILITY_ID_Z IN NUMBER
219 ,APPLICATION_ID_Z IN NUMBER
220 ,VAL_Z OUT NOCOPY VARCHAR2
221 ,DEFINED_Z OUT NOCOPY BOOLEAN) IS
222 BEGIN
223 /*
224 STPROC.BIND_O(DEFINED_Z);
225 STPROC.BIND_I(NAME_Z);
226 STPROC.BIND_I(USER_ID_Z);
227 STPROC.BIND_I(RESPONSIBILITY_ID_Z);
228 STPROC.BIND_I(APPLICATION_ID_Z);
229 STPROC.BIND_O(VAL_Z);
230 STPROC.EXECUTE;
231 STPROC.RETRIEVE(1
232 ,DEFINED_Z);
233 STPROC.RETRIEVE(6
234 ,VAL_Z)*/ null;
235 END GET_SPECIFIC;
236
237 FUNCTION VALUE_SPECIFIC(NAME IN VARCHAR2
238 ,USER_ID IN NUMBER
239 ,RESPONSIBILITY_ID IN NUMBER
240 ,APPLICATION_ID IN NUMBER) RETURN VARCHAR2 IS
241 X0 VARCHAR2(2000);
242 BEGIN
243 /*STPROC.INIT('begin :X0 := FND_PROFILE.VALUE_SPECIFIC(:NAME, :USER_ID, :RESPONSIBILITY_ID, :APPLICATION_ID); end;');
244 STPROC.BIND_O(X0);
245 STPROC.BIND_I(NAME);
246 STPROC.BIND_I(USER_ID);
247 STPROC.BIND_I(RESPONSIBILITY_ID);
248 STPROC.BIND_I(APPLICATION_ID);
249 STPROC.EXECUTE;
250 STPROC.RETRIEVE(1
251 ,X0);*/ null;
252 RETURN X0;
253 END VALUE_SPECIFIC;
254
255 PROCEDURE INITIALIZE(USER_ID_Z IN NUMBER
256 ,RESPONSIBILITY_ID_Z IN NUMBER
257 ,APPLICATION_ID_Z IN NUMBER
258 ,SITE_ID_Z IN NUMBER) IS
259 BEGIN
260 /* STPROC.INIT('begin FND_PROFILE.INITIALIZE(:USER_ID_Z, :RESPONSIBILITY_ID_Z, :APPLICATION_ID_Z, :SITE_ID_Z); end;');
261 STPROC.BIND_I(USER_ID_Z);
262 STPROC.BIND_I(RESPONSIBILITY_ID_Z);
263 STPROC.BIND_I(APPLICATION_ID_Z);
264 STPROC.BIND_I(SITE_ID_Z);
265 STPROC.EXECUTE;*/ null;
266 END INITIALIZE;
267
268 PROCEDURE PUTMULTIPLE(NAMES IN VARCHAR2
269 ,VALS IN VARCHAR2
270 ,NUM IN NUMBER) IS
271 BEGIN
272 /* STPROC.INIT('begin FND_PROFILE.PUTMULTIPLE(:NAMES, :VALS, :NUM); end;');
273 STPROC.BIND_I(NAMES);
274 STPROC.BIND_I(VALS);
275 STPROC.BIND_I(NUM);
276 STPROC.EXECUTE;*/ null;
277 END PUTMULTIPLE;
278
279 END AP_APXBCRPT_XMLP_PKG;
280
281