1 PACKAGE BODY PSP_PSPRCSLD_XMLP_PKG AS
5 BEGIN
2 /* $Header: PSPRCSLDB.pls 120.4.12020000.4 2013/03/27 00:49:49 lkodaman ship $ */
3 FUNCTION CF_ASSIGNMENT_NUMBERFORMULA(ASSIGNMENT_ID IN NUMBER) RETURN VARCHAR2 IS
4 X_ASSIGNMENT_NUMBER VARCHAR2(30);
6 SELECT
7 ASSIGNMENT_NUMBER
8 INTO X_ASSIGNMENT_NUMBER
9 FROM
10 PER_ASSIGNMENTS_F
11 WHERE ASSIGNMENT_ID = CF_ASSIGNMENT_NUMBERFORMULA.ASSIGNMENT_ID
12 AND ASSIGNMENT_TYPE = 'E'
13 AND ROWNUM < 2;
14 RETURN (X_ASSIGNMENT_NUMBER);
15 RETURN NULL;
16 EXCEPTION
17 WHEN NO_DATA_FOUND THEN
18 RETURN ('no_data_found');
19 WHEN TOO_MANY_ROWS THEN
20 RETURN ('too many rows');
21 WHEN OTHERS THEN
22 RETURN ('error');
23 END CF_ASSIGNMENT_NUMBERFORMULA;
24
25 FUNCTION CF_ELEMENT_NAMEFORMULA(ELEMENT_TYPE_ID IN NUMBER) RETURN VARCHAR2 IS
26 X_ELEMENT_NAME PAY_ELEMENT_TYPES_F.ELEMENT_NAME%TYPE;
27 BEGIN
28 RETURN (PSP_GENERAL.GET_ELEMENT_NAME(ELEMENT_TYPE_ID
29 ,TRUNC(SYSDATE)));
30 END CF_ELEMENT_NAMEFORMULA;
31
32 FUNCTION CF_PERSON_NAMEFORMULA(PERSON_ID IN NUMBER) RETURN VARCHAR2 IS
33 X_PERSON_NAME VARCHAR2(240);
34 X_END_DATE DATE;
35 BEGIN
36 SELECT
37 END_DATE
38 INTO X_END_DATE
39 FROM
40 PER_TIME_PERIODS
41 WHERE TIME_PERIOD_ID = P_TIME_PERIOD_ID;
42 SELECT
43 FULL_NAME
44 INTO X_PERSON_NAME
45 FROM
46 PER_PEOPLE_F
47 WHERE PERSON_ID = CF_PERSON_NAMEFORMULA.PERSON_ID
48 AND X_END_DATE BETWEEN EFFECTIVE_START_DATE
49 AND EFFECTIVE_END_DATE;
50 RETURN (X_PERSON_NAME);
51 RETURN NULL;
52 EXCEPTION
53 WHEN NO_DATA_FOUND THEN
54 RETURN ('no data found');
55 WHEN TOO_MANY_ROWS THEN
56 RETURN ('too many rows');
57 END CF_PERSON_NAMEFORMULA;
58
59 FUNCTION AFTERPFORM RETURN BOOLEAN IS
60 BEGIN
61
62 SELECT
63 START_DATE
64 INTO P_START_DATE
65 FROM
66 PER_TIME_PERIODS
67 WHERE TIME_PERIOD_ID = P_TIME_PERIOD_ID;
68 RETURN (TRUE);
69 RETURN NULL;
70 EXCEPTION
71 WHEN NO_DATA_FOUND THEN
72 /*SRW.MESSAGE(1
73 ,'Start Date not found for the selected time period id')*/NULL;
74 RETURN (FALSE);
75 WHEN TOO_MANY_ROWS THEN
76 /*SRW.MESSAGE(2
77 ,'Too many rows found for the selected time period id')*/NULL;
78 RETURN (FALSE);
79 WHEN OTHERS THEN
80 /*SRW.MESSAGE(3
81 ,'Others exception raised')*/NULL;
82 RETURN (FALSE);
83 END AFTERPFORM;
84
85 FUNCTION CF_MISMATCH_ELTFORMULA RETURN VARCHAR2 IS
86 BEGIN
87 RETURN NULL;
88 END CF_MISMATCH_ELTFORMULA;
89
90 FUNCTION CF_MISMATCH_ASSGFORMULA(SUM_DL_D_ASSG IN NUMBER
91 ,SUM_SL_D_ASSG IN NUMBER
92 ,SUM_DL_C_ASSG IN NUMBER
93 ,SUM_SL_C_ASSG IN NUMBER) RETURN VARCHAR2 IS
94 BEGIN
95 IF SUM_DL_D_ASSG <> SUM_SL_D_ASSG OR SUM_DL_C_ASSG <> SUM_SL_C_ASSG THEN
96 RETURN ('Mismatch');
97 END IF;
98 RETURN NULL;
99 END CF_MISMATCH_ASSGFORMULA;
100
101 FUNCTION CF_MISMATCH_PERSONFORMULA(SUM_DL_D_PERSON IN NUMBER
102 ,SUM_SL_D_PERSON IN NUMBER
103 ,SUM_DL_C_PERSON IN NUMBER
104 ,SUM_SL_C_PERSON IN NUMBER) RETURN VARCHAR2 IS
105 BEGIN
106 IF SUM_DL_D_PERSON <> SUM_SL_D_PERSON OR SUM_DL_C_PERSON <> SUM_SL_C_PERSON THEN
107 RETURN ('Mismatch');
108 END IF;
109 RETURN NULL;
110 END CF_MISMATCH_PERSONFORMULA;
111
112 FUNCTION CF_MISMATCH_REPORTFORMULA(SUM_DL_D_TOTAL IN NUMBER
113 ,SUM_SL_D_TOTAL IN NUMBER
114 ,SUM_DL_C_TOTAL IN NUMBER
115 ,SUM_SL_C_TOTAL IN NUMBER) RETURN VARCHAR2 IS
116 BEGIN
117 IF SUM_DL_D_TOTAL <> SUM_SL_D_TOTAL OR SUM_DL_C_TOTAL <> SUM_SL_C_TOTAL THEN
118 RETURN ('Mismatch');
119 END IF;
120 RETURN NULL;
121 END CF_MISMATCH_REPORTFORMULA;
122
123 FUNCTION CF_ORGFORMULA RETURN VARCHAR2 IS
124 X_ORG_NAME HR_ALL_ORGANIZATION_UNITS_TL.NAME%TYPE;
125 X_ORG_ID VARCHAR2(15);
126 BEGIN
127 GET('PSP_ORG_REPORT'
128 ,X_ORG_ID);
129 IF X_ORG_ID IS NOT NULL THEN
130 SELECT
131 NAME
132 INTO X_ORG_NAME
133 FROM
134 HR_ORGANIZATION_UNITS
135 WHERE ORGANIZATION_ID = TO_NUMBER(X_ORG_ID);
136 RETURN (X_ORG_NAME);
137 END IF;
138 RETURN NULL;
139 EXCEPTION
140 WHEN NO_DATA_FOUND THEN
141 RETURN ('Organization Defined in Profile Not Found');
142 END CF_ORGFORMULA;
143
144 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
145 BEGIN
146 -- HR_STANDARD.EVENT('BEFORE REPORT');
147 RETURN (TRUE);
148 END BEFOREREPORT;
149
150 FUNCTION CF_SOURCE_TYPEFORMULA RETURN VARCHAR2 IS
151 X_SOURCE_TYPE VARCHAR2(80);
152 BEGIN
153 SELECT
154 MEANING
155 INTO X_SOURCE_TYPE
156 FROM
157 PSP_LOOKUPS
158 WHERE LOOKUP_TYPE = 'PSP_SOURCE_TYPE'
162
159 AND LOOKUP_CODE = P_SOURCE_TYPE;
160 RETURN (X_SOURCE_TYPE);
161 END CF_SOURCE_TYPEFORMULA;
163 FUNCTION CF_TIME_PERIODFORMULA RETURN VARCHAR2 IS
164 X_TIME_PERIOD VARCHAR2(35);
165 BEGIN
166 IF P_TIME_PERIOD_ID IS NOT NULL THEN
167 SELECT
168 PERIOD_NAME
169 INTO X_TIME_PERIOD
170 FROM
171 PER_TIME_PERIODS
172 WHERE TIME_PERIOD_ID = P_TIME_PERIOD_ID;
173 RETURN (X_TIME_PERIOD);
174 END IF;
175 RETURN NULL;
176 END CF_TIME_PERIODFORMULA;
177
178 FUNCTION CF_CHARGING_INSTRUCTIONSFORMUL(GLCCID IN NUMBER
179 ,PROJECT_ID IN NUMBER
180 ,TASK_ID IN NUMBER
181 ,AWARD_ID IN NUMBER
182 ,EXP_ORG_ID IN NUMBER
183 ,EXPENDITURE_TYPE IN VARCHAR2) RETURN CHAR IS
184 V_RETCODE NUMBER;
185 L_CHART_OF_ACCTS VARCHAR2(20);
186 GL_FLEX_VALUES VARCHAR2(2000);
187 L_PROJECT_NAME VARCHAR2(30);
188 L_AWARD_NUMBER VARCHAR2(15);
189 L_TASK_NUMBER VARCHAR2(300); -- Bug : 16391366 (27/03/2013)
190 L_ORG_NAME HR_ALL_ORGANIZATION_UNITS_TL.NAME%TYPE;
191 L_POETA VARCHAR2(360);
192 BEGIN
193 IF GLCCID IS NOT NULL THEN
194 V_RETCODE := PSP_GENERAL.FIND_CHART_OF_ACCTS(TO_NUMBER(P_SET_OF_BOOKS_ID)
195 ,L_CHART_OF_ACCTS);
196 GL_FLEX_VALUES := FND_FLEX_EXT.GET_SEGS(APPLICATION_SHORT_NAME => 'SQLGL'
197 ,KEY_FLEX_CODE => 'GL#'
198 ,STRUCTURE_NUMBER => TO_NUMBER(L_CHART_OF_ACCTS)
199 ,COMBINATION_ID => GLCCID);
200 RETURN (GL_FLEX_VALUES);
201 ELSE
202 IF PROJECT_ID IS NOT NULL THEN
203 SELECT
204 NAME
205 INTO L_PROJECT_NAME
206 FROM
207 PA_PROJECTS_ALL
208 WHERE PROJECT_ID = CF_CHARGING_INSTRUCTIONSFORMUL.PROJECT_ID;
209 SELECT
210 TASK_NUMBER
211 INTO L_TASK_NUMBER
212 FROM
213 PA_TASKS_EXPEND_V -- Bug : 16391366 (20/03/2013)
214 WHERE TASK_ID = CF_CHARGING_INSTRUCTIONSFORMUL.TASK_ID;
215 IF AWARD_ID IS NOT NULL THEN
216 BEGIN
217 SELECT
218 AWARD_NUMBER
219 INTO L_AWARD_NUMBER
220 FROM
221 GMS_AWARDS_ALL
222 WHERE AWARD_ID = CF_CHARGING_INSTRUCTIONSFORMUL.AWARD_ID;
223 EXCEPTION
224 WHEN NO_DATA_FOUND THEN
225 SELECT
226 DEFAULT_DIST_AWARD_NUMBER
227 INTO L_AWARD_NUMBER
228 FROM
229 GMS_IMPLEMENTATIONS
230 WHERE DEFAULT_DIST_AWARD_ID = CF_CHARGING_INSTRUCTIONSFORMUL.AWARD_ID
231 AND AWARD_DISTRIBUTION_OPTION = 'Y';
232 END;
233 ELSE
234 L_AWARD_NUMBER := '';
235 END IF;
236 SELECT
237 NAME
238 INTO L_ORG_NAME
239 FROM
240 HR_ALL_ORGANIZATION_UNITS
241 WHERE ORGANIZATION_ID = EXP_ORG_ID;
242 L_POETA := L_PROJECT_NAME || ' ' || L_TASK_NUMBER || ' ' || L_AWARD_NUMBER || ' ' || L_ORG_NAME || ' ' || EXPENDITURE_TYPE;
243 ELSE
244 L_POETA := '';
245 END IF;
246 RETURN (L_POETA);
247 END IF;
248 END CF_CHARGING_INSTRUCTIONSFORMUL;
249
250 FUNCTION CF_CURRENCY_FORMATFORMULA(CURRENCY_CODE IN VARCHAR2) RETURN CHAR IS
251 BEGIN
252 /*SRW.REFERENCE(CURRENCY_CODE)*/NULL;
253 RETURN (FND_CURRENCY.GET_FORMAT_MASK(CURRENCY_CODE
254 ,30));
255 END CF_CURRENCY_FORMATFORMULA;
256
257 FUNCTION CF_CURRENCY_CODEFORMULA(CURRENCY_CODE IN VARCHAR2) RETURN CHAR IS
258 BEGIN
259 /*SRW.REFERENCE(CURRENCY_CODE)*/NULL;
260 RETURN ('(' || CURRENCY_CODE || ')');
261 END CF_CURRENCY_CODEFORMULA;
262
263 FUNCTION CF_SUM_SL_D_TOTAL_DSPFORMULA(CS_SUM_SL_D_TOTAL IN NUMBER
264 ,CF_CURRENCY_FORMAT IN VARCHAR2) RETURN CHAR IS
265 BEGIN
266 /*SRW.REFERENCE(CS_SUM_SL_D_TOTAL)*/NULL;
267 /*SRW.REFERENCE(CF_CURRENCY_FORMAT)*/NULL;
268 RETURN (TO_CHAR(CS_SUM_SL_D_TOTAL
269 ,CF_CURRENCY_FORMAT));
270 END CF_SUM_SL_D_TOTAL_DSPFORMULA;
271
272 FUNCTION CF_SUM_SL_C_TOTAL_DSPFORMULA(CS_SUM_SL_C_TOTAL IN NUMBER
273 ,CF_CURRENCY_FORMAT IN VARCHAR2) RETURN CHAR IS
274 BEGIN
275 /*SRW.REFERENCE(CS_SUM_SL_C_TOTAL)*/NULL;
276 /*SRW.REFERENCE(CF_CURRENCY_FORMAT)*/NULL;
277 RETURN (TO_CHAR(CS_SUM_SL_C_TOTAL
278 ,CF_CURRENCY_FORMAT));
279 END CF_SUM_SL_C_TOTAL_DSPFORMULA;
280
281 FUNCTION CF_SUM_DL_D_TOTAL_DSPFORMULA(CS_SUM_DL_D_TOTAL IN NUMBER
282 ,CF_CURRENCY_FORMAT IN VARCHAR2) RETURN CHAR IS
283 BEGIN
284 /*SRW.REFERENCE(CS_SUM_DL_D_TOTAL)*/NULL;
285 /*SRW.REFERENCE(CF_CURRENCY_FORMAT)*/NULL;
286 RETURN (TO_CHAR(CS_SUM_DL_D_TOTAL
287 ,CF_CURRENCY_FORMAT));
288 END CF_SUM_DL_D_TOTAL_DSPFORMULA;
289
290 FUNCTION CF_SUM_DL_C_TOTAL_DSPFORMULA(CS_SUM_DL_C_TOTAL IN NUMBER
291 ,CF_CURRENCY_FORMAT IN VARCHAR2) RETURN CHAR IS
292 BEGIN
293 /*SRW.REFERENCE(CS_SUM_DL_C_TOTAL)*/NULL;
294 /*SRW.REFERENCE(CF_CURRENCY_FORMAT)*/NULL;
295 RETURN (TO_CHAR(CS_SUM_DL_C_TOTAL
299 FUNCTION CF_MISMATCH_REPORT_DSPFORMULA(CS_SUM_DL_D_TOTAL IN NUMBER
296 ,CF_CURRENCY_FORMAT));
297 END CF_SUM_DL_C_TOTAL_DSPFORMULA;
298
300 ,CS_SUM_SL_D_TOTAL IN NUMBER
301 ,CS_SUM_DL_C_TOTAL IN NUMBER
302 ,CS_SUM_SL_C_TOTAL IN NUMBER) RETURN CHAR IS
303 BEGIN
304 IF CS_SUM_DL_D_TOTAL <> CS_SUM_SL_D_TOTAL OR CS_SUM_DL_C_TOTAL <> CS_SUM_SL_C_TOTAL THEN
305 RETURN ('Mismatch');
306 END IF;
307 RETURN NULL;
308 END CF_MISMATCH_REPORT_DSPFORMULA;
309
310 FUNCTION CF_SUM_DL_D_PERSON_DSPFORMULA(SUM_DL_D_PERSON IN NUMBER
311 ,CF_CURRENCY_FORMAT IN VARCHAR2) RETURN CHAR IS
312 BEGIN
313 /*SRW.REFERENCE(SUM_DL_D_PERSON)*/NULL;
314 /*SRW.REFERENCE(CF_CURRENCY_FORMAT)*/NULL;
315 RETURN (TO_CHAR(SUM_DL_D_PERSON
316 ,CF_CURRENCY_FORMAT));
317 END CF_SUM_DL_D_PERSON_DSPFORMULA;
318
319 FUNCTION CF_SUM_DL_C_PERSON_DSPFORMULA(SUM_DL_C_PERSON IN NUMBER
320 ,CF_CURRENCY_FORMAT IN VARCHAR2) RETURN CHAR IS
321 BEGIN
322 /*SRW.REFERENCE(SUM_DL_C_PERSON)*/NULL;
323 /*SRW.REFERENCE(CF_CURRENCY_FORMAT)*/NULL;
324 RETURN (TO_CHAR(SUM_DL_C_PERSON
325 ,CF_CURRENCY_FORMAT));
326 END CF_SUM_DL_C_PERSON_DSPFORMULA;
327
328 FUNCTION CF_SL_DEBIT_AMOUNT_DSPFORMULA(SL_DEBIT_AMOUNT IN NUMBER
329 ,CF_CURRENCY_FORMAT IN VARCHAR2) RETURN CHAR IS
330 BEGIN
331 /*SRW.REFERENCE(SL_DEBIT_AMOUNT)*/NULL;
332 /*SRW.REFERENCE(CF_CURRENCY_FORMAT)*/NULL;
333 RETURN (TO_CHAR(SL_DEBIT_AMOUNT
334 ,CF_CURRENCY_FORMAT));
335 END CF_SL_DEBIT_AMOUNT_DSPFORMULA;
336
337 FUNCTION CF_SL_CREDIT_AMOUNT_DSPFORMULA(SL_CREDIT_AMOUNT IN NUMBER
338 ,CF_CURRENCY_FORMAT IN VARCHAR2) RETURN CHAR IS
339 BEGIN
340 /*SRW.REFERENCE(SL_CREDIT_AMOUNT)*/NULL;
341 /*SRW.REFERENCE(CF_CURRENCY_FORMAT)*/NULL;
342 RETURN (TO_CHAR(SL_CREDIT_AMOUNT
343 ,CF_CURRENCY_FORMAT));
344 END CF_SL_CREDIT_AMOUNT_DSPFORMULA;
345
346 FUNCTION CF_SUM_DL_D_ASSG_DSPFORMULA(SUM_DL_D_ASSG IN NUMBER
347 ,CF_CURRENCY_FORMAT IN VARCHAR2) RETURN CHAR IS
348 BEGIN
349 /*SRW.REFERENCE(SUM_DL_D_ASSG)*/NULL;
350 /*SRW.REFERENCE(CF_CURRENCY_FORMAT)*/NULL;
351 RETURN (TO_CHAR(SUM_DL_D_ASSG
352 ,CF_CURRENCY_FORMAT));
353 END CF_SUM_DL_D_ASSG_DSPFORMULA;
354
355 FUNCTION CF_SUM_DL_C_ASSG_DSPFORMULA(SUM_DL_C_ASSG IN NUMBER
356 ,CF_CURRENCY_FORMAT IN VARCHAR2) RETURN CHAR IS
357 BEGIN
358 /*SRW.REFERENCE(SUM_DL_C_ASSG)*/NULL;
359 /*SRW.REFERENCE(CF_CURRENCY_FORMAT)*/NULL;
360 RETURN (TO_CHAR(SUM_DL_C_ASSG
361 ,CF_CURRENCY_FORMAT));
362 END CF_SUM_DL_C_ASSG_DSPFORMULA;
363
364 FUNCTION CF_DL_CREDIT_AMOUNT_DSPFORMULA(DL_CREDIT_AMOUNT IN NUMBER
365 ,CF_CURRENCY_FORMAT IN VARCHAR2) RETURN CHAR IS
366 BEGIN
367 /*SRW.REFERENCE(DL_CREDIT_AMOUNT)*/NULL;
368 /*SRW.REFERENCE(CF_CURRENCY_FORMAT)*/NULL;
369 RETURN (TO_CHAR(DL_CREDIT_AMOUNT
370 ,CF_CURRENCY_FORMAT));
371 END CF_DL_CREDIT_AMOUNT_DSPFORMULA;
372
373 FUNCTION CF_DL_DEBIT_AMOUNT_DSPFORMULA(DL_DEBIT_AMOUNT IN NUMBER
374 ,CF_CURRENCY_FORMAT IN VARCHAR2) RETURN CHAR IS
375 BEGIN
376 /*SRW.REFERENCE(DL_DEBIT_AMOUNT)*/NULL;
377 /*SRW.REFERENCE(CF_CURRENCY_FORMAT)*/NULL;
378 RETURN (TO_CHAR(DL_DEBIT_AMOUNT
379 ,CF_CURRENCY_FORMAT));
380 END CF_DL_DEBIT_AMOUNT_DSPFORMULA;
381
382 FUNCTION AFTERREPORT RETURN BOOLEAN IS
383 BEGIN
384 --HR_STANDARD.EVENT('AFTER REPORT');
385 RETURN (TRUE);
386 END AFTERREPORT;
387
388 PROCEDURE PUT(NAME IN VARCHAR2
389 ,VAL IN VARCHAR2) IS
390 BEGIN
391 /* STPROC.INIT('begin FND_PROFILE.PUT(:NAME, :VAL); end;');
392 STPROC.BIND_I(NAME);
393 STPROC.BIND_I(VAL);
394 STPROC.EXECUTE;*/null;
395
396 END PUT;
397
398 FUNCTION DEFINED(NAME IN VARCHAR2) RETURN BOOLEAN IS
399 X0 BOOLEAN;
400 BEGIN
401 /* STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := FND_PROFILE.DEFINED(:NAME); :X0 := sys.diutil.bool_to_int(X0rv); end;');
402 STPROC.BIND_I(NAME);
403 STPROC.BIND_O(X0);
404 STPROC.EXECUTE;
405 STPROC.RETRIEVE(2
406 ,X0);
407 RETURN X0;*/ null;
408 END DEFINED;
409
410 PROCEDURE GET(NAME IN VARCHAR2
411 ,VAL OUT NOCOPY VARCHAR2) IS
412 BEGIN
413 /* STPROC.INIT('begin FND_PROFILE.GET(:NAME, :VAL); end;');
414 STPROC.BIND_I(NAME);
415 STPROC.BIND_O(VAL);
416 STPROC.EXECUTE;
417 STPROC.RETRIEVE(2
418 ,VAL);*/
419 FND_PROFILE.GET(NAME,VAL);
420 END GET;
421
422 FUNCTION VALUE(NAME IN VARCHAR2) RETURN VARCHAR2 IS
423 X0 VARCHAR2(2000);
424 BEGIN
425 /* STPROC.INIT('begin :X0 := FND_PROFILE.VALUE(:NAME); end;');
426 STPROC.BIND_O(X0);
427 STPROC.BIND_I(NAME);
428 STPROC.EXECUTE;
429 STPROC.RETRIEVE(1
430 ,X0);
431 RETURN X0;*/ null;
432 END VALUE;
433
434 FUNCTION SAVE_USER(X_NAME IN VARCHAR2
435 ,X_VALUE IN VARCHAR2) RETURN BOOLEAN IS
436 X0 BOOLEAN;
437 BEGIN
438 /* STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := FND_PROFILE.SAVE_USER(:X_NAME, :X_VALUE); :X0 := sys.diutil.bool_to_int(X0rv); end;');
439 STPROC.BIND_I(X_NAME);
440 STPROC.BIND_I(X_VALUE);
441 STPROC.BIND_O(X0);
442 STPROC.EXECUTE;
443 STPROC.RETRIEVE(3
444 ,X0);
445 RETURN X0;*/ null;
446 END SAVE_USER;
447
448 FUNCTION SAVE(X_NAME IN VARCHAR2
449 ,X_VALUE IN VARCHAR2
450 ,X_LEVEL_NAME IN VARCHAR2
451 ,X_LEVEL_VALUE IN VARCHAR2
452 ,X_LEVEL_VALUE_APP_ID IN VARCHAR2) RETURN BOOLEAN IS
453 X0 BOOLEAN;
454 BEGIN
455 /* 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;');
456 STPROC.BIND_I(X_NAME);
457 STPROC.BIND_I(X_VALUE);
458 STPROC.BIND_I(X_LEVEL_NAME);
459 STPROC.BIND_I(X_LEVEL_VALUE);
460 STPROC.BIND_I(X_LEVEL_VALUE_APP_ID);
461 STPROC.BIND_O(X0);
462 STPROC.EXECUTE;
463 STPROC.RETRIEVE(6
464 ,X0);
465 RETURN X0;*/ null;
466 END SAVE;
467
468 PROCEDURE GET_SPECIFIC(NAME_Z IN VARCHAR2
469 ,USER_ID_Z IN NUMBER
470 ,RESPONSIBILITY_ID_Z IN NUMBER
471 ,APPLICATION_ID_Z IN NUMBER
472 ,VAL_Z OUT NOCOPY VARCHAR2
473 ,DEFINED_Z OUT NOCOPY BOOLEAN) IS
474 BEGIN
475 /* STPROC.INIT('declare DEFINED_Z BOOLEAN; begin DEFINED_Z := sys.diutil.int_to_bool(:DEFINED_Z);
476 FND_PROFILE.GET_SPECIFIC(:NAME_Z, :USER_ID_Z, :RESPONSIBILITY_ID_Z, :APPLICATION_ID_Z, :VAL_Z, DEFINED_Z);
477 :DEFINED_Z := sys.diutil.bool_to_int(DEFINED_Z); end;');
478 STPROC.BIND_O(DEFINED_Z);
479 STPROC.BIND_I(NAME_Z);
480 STPROC.BIND_I(USER_ID_Z);
481 STPROC.BIND_I(RESPONSIBILITY_ID_Z);
482 STPROC.BIND_I(APPLICATION_ID_Z);
483 STPROC.BIND_O(VAL_Z);
484 STPROC.EXECUTE;
485 STPROC.RETRIEVE(1
486 ,DEFINED_Z);
487 STPROC.RETRIEVE(6
488 ,VAL_Z);*/ null;
489 END GET_SPECIFIC;
490
491 FUNCTION VALUE_SPECIFIC(NAME IN VARCHAR2
492 ,USER_ID IN NUMBER
493 ,RESPONSIBILITY_ID IN NUMBER
494 ,APPLICATION_ID IN NUMBER) RETURN VARCHAR2 IS
495 X0 VARCHAR2(2000);
496 BEGIN
497 /* STPROC.INIT('begin :X0 := FND_PROFILE.VALUE_SPECIFIC(:NAME, :USER_ID, :RESPONSIBILITY_ID, :APPLICATION_ID); end;');
498 STPROC.BIND_O(X0);
499 STPROC.BIND_I(NAME);
500 STPROC.BIND_I(USER_ID);
501 STPROC.BIND_I(RESPONSIBILITY_ID);
502 STPROC.BIND_I(APPLICATION_ID);
503 STPROC.EXECUTE;
504 STPROC.RETRIEVE(1
505 ,X0);
506 RETURN X0;*/ null;
507 END VALUE_SPECIFIC;
508
509 PROCEDURE INITIALIZE(USER_ID_Z IN NUMBER
510 ,RESPONSIBILITY_ID_Z IN NUMBER
511 ,APPLICATION_ID_Z IN NUMBER
512 ,SITE_ID_Z IN NUMBER) IS
513 BEGIN
514 /* STPROC.INIT('begin FND_PROFILE.INITIALIZE(:USER_ID_Z, :RESPONSIBILITY_ID_Z, :APPLICATION_ID_Z, :SITE_ID_Z); end;');
515 STPROC.BIND_I(USER_ID_Z);
516 STPROC.BIND_I(RESPONSIBILITY_ID_Z);
517 STPROC.BIND_I(APPLICATION_ID_Z);
518 STPROC.BIND_I(SITE_ID_Z);
519 STPROC.EXECUTE;*/ null;
520 END INITIALIZE;
521
522 PROCEDURE PUTMULTIPLE(NAMES IN VARCHAR2
523 ,VALS IN VARCHAR2
524 ,NUM IN NUMBER) IS
525 BEGIN
526 /* STPROC.INIT('begin FND_PROFILE.PUTMULTIPLE(:NAMES, :VALS, :NUM); end;');
527 STPROC.BIND_I(NAMES);
528 STPROC.BIND_I(VALS);
529 STPROC.BIND_I(NUM);
530 STPROC.EXECUTE;*/ null;
531 END PUTMULTIPLE;
532
533 END PSP_PSPRCSLD_XMLP_PKG;
[Home] [Help]