[Home] [Help]
PACKAGE BODY: APPS.PSP_PSPLDSSA_XMLP_PKG
Source
1 PACKAGE BODY PSP_PSPLDSSA_XMLP_PKG AS
2 /* $Header: PSPLDSSAB.pls 120.5.12020000.5 2013/03/27 09:56:36 lkodaman ship $ */
3 FUNCTION BEFOREPFORM(ORIENTATION IN VARCHAR2) RETURN BOOLEAN IS
4 BEGIN
5 --ORIENTATION := 'LANDSCAPE';
6 RETURN (TRUE);
7 END BEFOREPFORM;
8
9 FUNCTION CF_INSTITUTION_NAMEFORMULA RETURN VARCHAR2 IS
10 V_INSTITUTION_NAME HR_ALL_ORGANIZATION_UNITS_TL.NAME%TYPE;
11 V_INSTITUTION_ID VARCHAR2(30);
12 BEGIN
13 V_INSTITUTION_ID := FND_Profile.VALUE('PSP_ORG_REPORT');
14 IF V_INSTITUTION_ID IS NULL THEN
15 RETURN NULL;
16 END IF;
17 SELECT
18 DISTINCT
19 NAME
20 INTO V_INSTITUTION_NAME
21 FROM
22 HR_ALL_ORGANIZATION_UNITS
23 WHERE ORGANIZATION_ID = TO_NUMBER(V_INSTITUTION_ID);
24 RETURN V_INSTITUTION_NAME;
25 RETURN NULL;
26 EXCEPTION
27 WHEN NO_DATA_FOUND THEN
28 RETURN ('NO_DATA_FOUND');
29 WHEN OTHERS THEN
30 RETURN NULL;
31 END CF_INSTITUTION_NAMEFORMULA;
32
33 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
34 BEGIN
35 --HR_STANDARD.EVENT('BEFORE REPORT');
36 RETURN (TRUE);
37 END BEFOREREPORT;
38
39 FUNCTION CF_SUM_CURRENCYFORMULA(CURRENCY_CODE IN VARCHAR2) RETURN CHAR IS
40 BEGIN
41 /*SRW.REFERENCE(CURRENCY_CODE)*/NULL;
42 RETURN ('(' || CURRENCY_CODE || ')');
43 END CF_SUM_CURRENCYFORMULA;
44
45 FUNCTION CF_CURR_DIST_AMT_TOTAL_DSPFORM(CF_CURRENCY_FORMAT IN VARCHAR2
46 ,CS_CURR_DIST_AMT_TOTAL IN NUMBER) RETURN CHAR IS
47 BEGIN
48 /*SRW.REFERENCE(CF_CURRENCY_FORMAT)*/NULL;
49 /*SRW.REFERENCE(CS_CURR_DIST_AMT_TOTAL)*/NULL;
50 RETURN (TO_CHAR(CS_CURR_DIST_AMT_TOTAL
51 ,CF_CURRENCY_FORMAT));
52 END CF_CURR_DIST_AMT_TOTAL_DSPFORM;
53
54 FUNCTION CF_CURRENCY_FORMATFORMULA(CURRENCY_CODE IN VARCHAR2) RETURN CHAR IS
55 BEGIN
56 /*SRW.REFERENCE(CURRENCY_CODE)*/NULL;
57 RETURN (FND_CURRENCY.GET_FORMAT_MASK(CURRENCY_CODE
58 ,30));
59 END CF_CURRENCY_FORMATFORMULA;
60
61 FUNCTION CF_DISTRIBUTION_AMOUNT_DSPFORM(CF_CURRENCY_FORMAT IN VARCHAR2
62 ,CS_TOTAL_AMOUNT_PERCI IN NUMBER) RETURN CHAR IS
63 BEGIN
64 /*SRW.REFERENCE(CF_CURRENCY_FORMAT)*/NULL;
65 /*SRW.REFERENCE(CS_TOTAL_AMOUNT_PERCI)*/NULL;
66 RETURN (TO_CHAR(CS_TOTAL_AMOUNT_PERCI
67 ,CF_CURRENCY_FORMAT));
68 END CF_DISTRIBUTION_AMOUNT_DSPFORM;
69
70 FUNCTION CF_ORGANIZATION_NAMEFORMULA(ORGANIZATION_ID1 IN NUMBER) RETURN VARCHAR2 IS
71 V_ORGANIZATION_NAME HR_ALL_ORGANIZATION_UNITS_TL.NAME%TYPE;
72 BEGIN
73 SELECT
74 DISTINCT
75 NAME
76 INTO V_ORGANIZATION_NAME
77 FROM
78 HR_ALL_ORGANIZATION_UNITS
79 WHERE ORGANIZATION_ID = ORGANIZATION_ID1;
80 RETURN V_ORGANIZATION_NAME;
81 RETURN NULL;
82 EXCEPTION
83 WHEN NO_DATA_FOUND THEN
84 RETURN 'NO_DATA_FOUND';
85 WHEN TOO_MANY_ROWS THEN
86 RETURN 'TOO_MANY_ROWS';
87 WHEN OTHERS THEN
88 RETURN 'ERROR';
89 END CF_ORGANIZATION_NAMEFORMULA;
90
91 FUNCTION CF_ACTUAL_GL_CCIDFORMULA(ACTUAL_GL_CCID IN NUMBER
92 ,ACTUAL_PROJECT_ID IN NUMBER
93 ,ACTUAL_TASK_ID IN NUMBER
94 ,ACTUAL_AWARD_ID IN NUMBER
95 ,ACTUAL_EXP_ORG_ID IN NUMBER
96 ,ACTUAL_EXPENDITURE_TYPE IN VARCHAR2) RETURN VARCHAR2 IS
97 V_RETCODE NUMBER;
98 L_CHART_OF_ACCTS VARCHAR2(20);
99 GL_FLEX_VALUES VARCHAR2(2000);
100 L_PROJECT_NAME VARCHAR2(30);
101 L_AWARD_NUMBER VARCHAR2(15);
102 L_TASK_NUMBER VARCHAR2(300); -- Bug 16391366 (27/03/2013)
103 L_ORG_NAME HR_ALL_ORGANIZATION_UNITS_TL.NAME%TYPE;
104 L_POETA VARCHAR2(2000);
105 BEGIN
106 IF ACTUAL_GL_CCID IS NOT NULL THEN
107 V_RETCODE := PSP_GENERAL.FIND_CHART_OF_ACCTS(TO_NUMBER(P_SET_OF_BOOKS_ID)
108 ,L_CHART_OF_ACCTS);
109 GL_FLEX_VALUES := FND_FLEX_EXT.GET_SEGS(APPLICATION_SHORT_NAME => 'SQLGL'
110 ,KEY_FLEX_CODE => 'GL#'
111 ,STRUCTURE_NUMBER => TO_NUMBER(L_CHART_OF_ACCTS)
112 ,COMBINATION_ID => ACTUAL_GL_CCID);
113 RETURN (GL_FLEX_VALUES);
114 ELSE
115 IF ACTUAL_PROJECT_ID IS NOT NULL THEN
116 SELECT
117 SEGMENT1
118 INTO L_PROJECT_NAME
119 FROM
120 PA_PROJECTS_ALL
121 WHERE PROJECT_ID = ACTUAL_PROJECT_ID;
122 SELECT
123 TASK_NUMBER
124 INTO L_TASK_NUMBER
125 FROM
126 PA_TASKS_EXPEND_V -- Bug : 16391366 (20/03/2013)
127 WHERE TASK_ID = ACTUAL_TASK_ID;
128 IF ACTUAL_AWARD_ID IS NOT NULL THEN
129 SELECT
130 AWARD_NUMBER
131 INTO L_AWARD_NUMBER
132 FROM
133 GMS_AWARDS_ALL
134 WHERE AWARD_ID = ACTUAL_AWARD_ID;
135 ELSE
136 L_AWARD_NUMBER := '';
137 END IF;
138 SELECT
139 NAME
140 INTO L_ORG_NAME
141 FROM
142 HR_ALL_ORGANIZATION_UNITS
143 WHERE ORGANIZATION_ID = ACTUAL_EXP_ORG_ID;
144 L_POETA := L_PROJECT_NAME || ' ' || L_TASK_NUMBER || ' ' || L_AWARD_NUMBER || ' ' || L_ORG_NAME || ' ' || ACTUAL_EXPENDITURE_TYPE;
145 ELSE
146 L_POETA := '';
147 END IF;
148 RETURN (L_POETA);
149 END IF;
150 EXCEPTION
151 WHEN NO_DATA_FOUND THEN
152 RETURN ('NO_DATA_FOUND');
153 WHEN OTHERS THEN
154 RETURN ('OTHER ERROR OCCURED');
155 END CF_ACTUAL_GL_CCIDFORMULA;
156
157 FUNCTION CF_PERSON_NAMEFORMULA(PERSON_ID_arg IN NUMBER) RETURN VARCHAR2 IS
158 V_PERSON_NAME VARCHAR2(80);
159 BEGIN
160 IF P_TIME_PERIOD_END IS NOT NULL THEN
161 SELECT
162 DISTINCT
163 FULL_NAME
164 INTO V_PERSON_NAME
165 FROM
166 PER_ALL_PEOPLE_F
167 WHERE PERSON_ID = PERSON_ID_arg
168 AND ( P_TIME_PERIOD_END Between EFFECTIVE_START_DATE
169 AND EFFECTIVE_END_DATE );
170 ELSE
171 SELECT
172 DISTINCT
173 FULL_NAME
174 INTO V_PERSON_NAME
175 FROM
176 PER_ALL_PEOPLE_F
177 WHERE PERSON_ID = PERSON_ID_arg;
178 END IF;
179 RETURN V_PERSON_NAME;
180 RETURN NULL;
181 EXCEPTION
182 WHEN OTHERS THEN
183 RETURN 'ERROR';
184 END CF_PERSON_NAMEFORMULA;
185
186 FUNCTION CF_ASSIGNMENT_NUMBERFORMULA(ASSIGNMENT_ID_arg IN NUMBER) RETURN VARCHAR2 IS
187 V_ASSIGNMENT_NUMBER VARCHAR2(30);
188 BEGIN
189 IF P_TIME_PERIOD_END IS NOT NULL THEN
190 SELECT
191 DISTINCT
192 ASSIGNMENT_NUMBER
193 INTO V_ASSIGNMENT_NUMBER
194 FROM
195 PER_ALL_ASSIGNMENTS_F
196 WHERE ASSIGNMENT_ID = ASSIGNMENT_ID_arg
197 AND ( P_TIME_PERIOD_END Between EFFECTIVE_START_DATE
198 AND EFFECTIVE_END_DATE );
199 ELSE
200 SELECT
201 DISTINCT
202 ASSIGNMENT_NUMBER
203 INTO V_ASSIGNMENT_NUMBER
204 FROM
205 PER_ALL_ASSIGNMENTS_F
206 WHERE ASSIGNMENT_ID = ASSIGNMENT_ID_arg;
207 END IF;
208 RETURN V_ASSIGNMENT_NUMBER;
209 RETURN NULL;
210 EXCEPTION
211 WHEN NO_DATA_FOUND THEN
212 RETURN 'NO DATA';
213 WHEN TOO_MANY_ROWS THEN
214 RETURN 'TOO_MANY_ROWS';
215 WHEN OTHERS THEN
216 RETURN 'ERROR';
217 END CF_ASSIGNMENT_NUMBERFORMULA;
218
219 FUNCTION CF_ELEMENT_NAMEFORMULA(ELEMENT_TYPE_ID_arg IN NUMBER) RETURN VARCHAR2 IS
220 V_ELEMENT_NAME VARCHAR2(80);
221 BEGIN
222 IF P_TIME_PERIOD_END IS NOT NULL THEN
223 SELECT
224 DISTINCT
225 ELEMENT_NAME
226 INTO V_ELEMENT_NAME
227 FROM
228 PAY_ELEMENT_TYPES_F
229 WHERE ELEMENT_TYPE_ID = ELEMENT_TYPE_ID_arg
230 AND ( P_TIME_PERIOD_END Between EFFECTIVE_START_DATE
231 AND EFFECTIVE_END_DATE );
232 ELSE
233 SELECT
234 DISTINCT
235 ELEMENT_NAME
236 INTO V_ELEMENT_NAME
237 FROM
238 PAY_ELEMENT_TYPES_F
239 WHERE ELEMENT_TYPE_ID = ELEMENT_TYPE_ID_arg;
240 END IF;
241 RETURN V_ELEMENT_NAME;
242 RETURN NULL;
243 EXCEPTION
244 WHEN NO_DATA_FOUND THEN
245 RETURN 'NO_DATA_FOUND';
246 WHEN TOO_MANY_ROWS THEN
247 RETURN 'TOO_MANY_ROWS';
248 WHEN OTHERS THEN
249 RETURN 'ERROR';
250 END CF_ELEMENT_NAMEFORMULA;
251
252 FUNCTION CF_PERIOD_NAMEFORMULA(TIME_PERIOD_ID_arg IN NUMBER
253 ,PAYROLL_ID_arg IN NUMBER) RETURN VARCHAR2 IS
254 V_PERIOD_NAME VARCHAR2(35);
255 BEGIN
256 SELECT
257 PERIOD_NAME
258 INTO V_PERIOD_NAME
259 FROM
260 PER_TIME_PERIODS
261 WHERE TIME_PERIOD_ID = TIME_PERIOD_ID_arg
262 AND PAYROLL_ID = PAYROLL_ID_arg;
263 RETURN V_PERIOD_NAME;
264 RETURN NULL;
265 EXCEPTION
266 WHEN NO_DATA_FOUND THEN
267 RETURN 'NO_DATA_FOUND';
268 WHEN TOO_MANY_ROWS THEN
269 RETURN 'TOO_MANY_ROWS';
270 WHEN OTHERS THEN
271 RETURN 'ERROR';
272 END CF_PERIOD_NAMEFORMULA;
273
274 FUNCTION CF_GL_CODE_COMBINATION_IDFORMU(GL_CODE_COMBINATION_ID IN NUMBER
275 ,PROJECT_ID_arg IN NUMBER
276 ,TASK_ID_arg IN NUMBER
277 ,AWARD_ID_arg IN NUMBER
278 ,EXPENDITURE_ORGANIZATION_ID IN NUMBER
279 ,EXPENDITURE_TYPE IN VARCHAR2) RETURN VARCHAR2 IS
280 V_RETCODE NUMBER;
281 L_CHART_OF_ACCTS VARCHAR2(20);
282 GL_FLEX_VALUES VARCHAR2(2000);
283 L_PROJECT_NAME VARCHAR2(30);
284 L_AWARD_NUMBER VARCHAR2(15);
285 L_TASK_NUMBER VARCHAR2(300); -- Bug 16391366 (27/03/2013)
286 L_ORG_NAME HR_ALL_ORGANIZATION_UNITS_TL.NAME%TYPE;
287 L_POETA VARCHAR2(2000);
288 BEGIN
289 IF GL_CODE_COMBINATION_ID IS NOT NULL THEN
290 V_RETCODE := PSP_GENERAL.FIND_CHART_OF_ACCTS(TO_NUMBER(P_SET_OF_BOOKS_ID)
291 ,L_CHART_OF_ACCTS);
292 GL_FLEX_VALUES := FND_FLEX_EXT.GET_SEGS(APPLICATION_SHORT_NAME => 'SQLGL'
293 ,KEY_FLEX_CODE => 'GL#'
294 ,STRUCTURE_NUMBER => TO_NUMBER(L_CHART_OF_ACCTS)
295 ,COMBINATION_ID => GL_CODE_COMBINATION_ID);
296 RETURN (GL_FLEX_VALUES);
297 ELSE
298 IF PROJECT_ID_arg IS NOT NULL THEN
299 SELECT
300 SEGMENT1
301 INTO L_PROJECT_NAME
302 FROM
303 PA_PROJECTS_ALL
304 WHERE PROJECT_ID = PROJECT_ID_arg;
305 SELECT
306 TASK_NUMBER
307 INTO L_TASK_NUMBER
308 FROM
309 PA_TASKS_EXPEND_V -- Bug : 16391366 (20/03/2013)
310 WHERE TASK_ID = TASK_ID_arg;
311 IF AWARD_ID_arg IS NOT NULL THEN
312 SELECT
313 AWARD_NUMBER
314 INTO L_AWARD_NUMBER
315 FROM
316 GMS_AWARDS_ALL
317 WHERE AWARD_ID = AWARD_ID_arg;
318 ELSE
319 L_AWARD_NUMBER := '';
320 END IF;
321 SELECT
322 NAME
323 INTO L_ORG_NAME
324 FROM
325 HR_ALL_ORGANIZATION_UNITS
326 WHERE ORGANIZATION_ID = EXPENDITURE_ORGANIZATION_ID;
327 L_POETA := L_PROJECT_NAME || ' ' || L_TASK_NUMBER || ' ' || L_AWARD_NUMBER || ' ' || L_ORG_NAME || ' ' || EXPENDITURE_TYPE;
328 ELSE
329 L_POETA := '';
330 END IF;
331 RETURN (L_POETA);
332 END IF;
333 EXCEPTION
334 WHEN NO_DATA_FOUND THEN
335 RETURN ('NO_DATA_FOUND');
336 WHEN OTHERS THEN
337 RETURN ('OTHER ERROR OCCURED');
338 END CF_GL_CODE_COMBINATION_IDFORMU;
339
340 FUNCTION AFTERREPORT RETURN BOOLEAN IS
341 BEGIN
342 --HR_STANDARD.EVENT('AFTER REPORT');
343 RETURN (TRUE);
344 END AFTERREPORT;
345
346 FUNCTION AFTERPFORM RETURN BOOLEAN IS
347 CURSOR C1(P_LOOKUP_CODE IN VARCHAR2,P_TEMPLATE_ID IN NUMBER) IS
348 SELECT
349 COUNT(1)
350 FROM
351 PSP_REPORT_TEMPLATE_DETAILS
352 WHERE TEMPLATE_ID = P_TEMPLATE_ID
353 AND CRITERIA_LOOKUP_TYPE = 'PSP_SELECTION_CRITERIA'
354 AND CRITERIA_LOOKUP_CODE = P_LOOKUP_CODE;
355 L_NUM NUMBER;
356 L_NUM2 NUMBER;
357 BEGIN
358 IF P_ORG_TEMPLATE_ID IS NULL THEN
359 P_ORGANIZATION_ID := ' and 1 = 1 ';
360 ELSE
361 OPEN C1('ORG',P_ORG_TEMPLATE_ID);
362 FETCH C1
363 INTO L_NUM;
364 CLOSE C1;
365 IF L_NUM <> 0 THEN
366 P_ORGANIZATION_ID := ' and a.organization_id IN (select criteria_value1 from psp_report_template_details
367 where template_id = ' || P_ORG_TEMPLATE_ID || '
368 and criteria_lookup_type = ''PSP_SELECTION_CRITERIA''
369 and criteria_lookup_code = ''ORG'' ' || ' ) ';
370 ELSE
371 P_ORGANIZATION_ID := ' and 1 = 1 ';
372 END IF;
373 END IF;
374 RETURN (TRUE);
375 END AFTERPFORM;
376
377 FUNCTION CF_DATE_FORMATFORMULA RETURN CHAR IS
378 BEGIN
379 RETURN (VALUE('ICX_DATE_FORMAT_MASK'));
380 END CF_DATE_FORMATFORMULA;
381
382 FUNCTION CF_BEGIN_DATE_DISPFORMULA(CF_DATE_FORMAT IN VARCHAR2) RETURN CHAR IS
383 BEGIN
384 /*SRW.REFERENCE(CF_DATE_FORMAT)*/NULL;
385 /*SRW.REFERENCE(P_TIME_PERIOD_START)*/NULL;
386 RETURN (TO_CHAR(P_TIME_PERIOD_START
387 ,CF_DATE_FORMAT));
388 END CF_BEGIN_DATE_DISPFORMULA;
389
390 FUNCTION CF_END_DATE_DISPFORMULA(CF_DATE_FORMAT IN VARCHAR2) RETURN CHAR IS
391 BEGIN
392 /*SRW.REFERENCE(P_TIME_PERIOD_END)*/NULL;
393 /*SRW.REFERENCE(CF_DATE_FORMAT)*/NULL;
394 RETURN (TO_CHAR(P_TIME_PERIOD_END
395 ,CF_DATE_FORMAT));
396 END CF_END_DATE_DISPFORMULA;
397
398 FUNCTION CF_RUN_DATE_DISPFORMULA(CF_DATE_FORMAT IN VARCHAR2) RETURN CHAR IS
399 BEGIN
400 /*SRW.REFERENCE(SYSDATE)*/NULL;
401 /*SRW.REFERENCE(CF_DATE_FORMAT)*/NULL;
402 RETURN (TO_CHAR(SYSDATE
403 ,CF_DATE_FORMAT));
404 END CF_RUN_DATE_DISPFORMULA;
405
406 PROCEDURE CRT(ERRBUF OUT NOCOPY VARCHAR2
407 ,RETCODE OUT NOCOPY NUMBER
408 ,A_TEMPLATE_ID IN NUMBER) IS
409 BEGIN
410 /*STPROC.INIT('begin PSP_EFFORTS_PKG.CRT(:ERRBUF, :RETCODE, :A_TEMPLATE_ID); end;');
411 STPROC.BIND_O(ERRBUF);
412 STPROC.BIND_O(RETCODE);
413 STPROC.BIND_I(A_TEMPLATE_ID);
414 STPROC.EXECUTE;
415 STPROC.RETRIEVE(1
416 ,ERRBUF);
417 STPROC.RETRIEVE(2
418 ,RETCODE);*/null;
419 END CRT;
420
421 PROCEDURE INIT_WORKFLOW(A_TEMPLATE_ID IN NUMBER) IS
422 BEGIN
423 /*STPROC.INIT('begin PSP_EFFORTS_PKG.INIT_WORKFLOW(:A_TEMPLATE_ID); end;');
424 STPROC.BIND_I(A_TEMPLATE_ID);
425 STPROC.EXECUTE;*/ null;
426 END INIT_WORKFLOW;
427
428 PROCEDURE UPD_INCLUDE_FLAG(A_TEMPLATE_ID IN NUMBER) IS
429 BEGIN
430 /*STPROC.INIT('begin PSP_EFFORTS_PKG.UPD_INCLUDE_FLAG(:A_TEMPLATE_ID); end;');
431 STPROC.BIND_I(A_TEMPLATE_ID);
432 STPROC.EXECUTE;*/ null;
433 END UPD_INCLUDE_FLAG;
434
435 FUNCTION GET_GL_DESCRIPTION(A_CODE_COMBINATION_ID IN NUMBER) RETURN VARCHAR2 IS
436 X0 VARCHAR2(2000);
437 BEGIN
438 /*STPROC.INIT('begin :X0 := PSP_EFFORTS_PKG.GET_GL_DESCRIPTION(:A_CODE_COMBINATION_ID); end;');
439 STPROC.BIND_O(X0);
440 STPROC.BIND_I(A_CODE_COMBINATION_ID);
441 STPROC.EXECUTE;
442 STPROC.RETRIEVE(1
443 ,X0);*/ null;
444 RETURN X0;
445 END GET_GL_DESCRIPTION;
446
447 PROCEDURE PUT(NAME IN VARCHAR2
448 ,VAL IN VARCHAR2) IS
449 BEGIN
450 /*STPROC.INIT('begin FND_PROFILE.PUT(:NAME, :VAL); end;');
451 STPROC.BIND_I(NAME);
452 STPROC.BIND_I(VAL);
453 STPROC.EXECUTE;*/ null;
454 END PUT;
455
456 FUNCTION DEFINED(NAME IN VARCHAR2) RETURN BOOLEAN IS
457 X0 BOOLEAN;
458 BEGIN
459 /*STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := FND_PROFILE.DEFINED(:NAME); :X0 := sys.diutil.bool_to_int(X0rv); end;');
460 STPROC.BIND_I(NAME);
461 STPROC.BIND_O(X0);
462 STPROC.EXECUTE;
463 STPROC.RETRIEVE(2
464 ,X0);*/ null;
465 RETURN X0;
466 END DEFINED;
467
468 PROCEDURE GET(NAME IN VARCHAR2
469 ,VAL OUT NOCOPY VARCHAR2) IS
470 BEGIN
471 /*STPROC.INIT('begin FND_PROFILE.GET(:NAME, :VAL); end;');
472 STPROC.BIND_I(NAME);
473 STPROC.BIND_O(VAL);
474 STPROC.EXECUTE;
475 STPROC.RETRIEVE(2
476 ,VAL);*/ null;
477 END GET;
478
479 FUNCTION VALUE(NAME IN VARCHAR2) RETURN VARCHAR2 IS
480 X0 VARCHAR2(2000);
481 BEGIN
482 /*STPROC.INIT('begin :X0 := FND_PROFILE.VALUE(:NAME); end;');
483 STPROC.BIND_O(X0);
484 STPROC.BIND_I(NAME);
485 STPROC.EXECUTE;
486 STPROC.RETRIEVE(1
487 ,X0);*/ null;
488 RETURN X0;
489 END VALUE;
490
491 FUNCTION SAVE_USER(X_NAME IN VARCHAR2
492 ,X_VALUE IN VARCHAR2) RETURN BOOLEAN IS
493 X0 BOOLEAN;
494 BEGIN
495 /*STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := FND_PROFILE.SAVE_USER(:X_NAME, :X_VALUE); :X0 := sys.diutil.bool_to_int(X0rv); end;');
496 STPROC.BIND_I(X_NAME);
497 STPROC.BIND_I(X_VALUE);
498 STPROC.BIND_O(X0);
499 STPROC.EXECUTE;
500 STPROC.RETRIEVE(3
501 ,X0);*/ null;
502 RETURN X0;
503 END SAVE_USER;
504
505 FUNCTION SAVE(X_NAME IN VARCHAR2
506 ,X_VALUE IN VARCHAR2
507 ,X_LEVEL_NAME IN VARCHAR2
508 ,X_LEVEL_VALUE IN VARCHAR2
509 ,X_LEVEL_VALUE_APP_ID IN VARCHAR2) RETURN BOOLEAN IS
510 X0 BOOLEAN;
511 BEGIN
512 /*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;');
513 STPROC.BIND_I(X_NAME);
514 STPROC.BIND_I(X_VALUE);
515 STPROC.BIND_I(X_LEVEL_NAME);
516 STPROC.BIND_I(X_LEVEL_VALUE);
517 STPROC.BIND_I(X_LEVEL_VALUE_APP_ID);
518 STPROC.BIND_O(X0);
519 STPROC.EXECUTE;
520 STPROC.RETRIEVE(6
521 ,X0);*/ null;
522 RETURN X0;
523 END SAVE;
524
525 PROCEDURE GET_SPECIFIC(NAME_Z IN VARCHAR2
526 ,USER_ID_Z IN NUMBER
527 ,RESPONSIBILITY_ID_Z IN NUMBER
528 ,APPLICATION_ID_Z IN NUMBER
529 ,VAL_Z OUT NOCOPY VARCHAR2
530 ,DEFINED_Z OUT NOCOPY BOOLEAN) IS
531 BEGIN
532 /*
533 STPROC.BIND_O(DEFINED_Z);
534 STPROC.BIND_I(NAME_Z);
535 STPROC.BIND_I(USER_ID_Z);
536 STPROC.BIND_I(RESPONSIBILITY_ID_Z);
537 STPROC.BIND_I(APPLICATION_ID_Z);
538 STPROC.BIND_O(VAL_Z);
539 STPROC.EXECUTE;
540 STPROC.RETRIEVE(1
541 ,DEFINED_Z);
542 STPROC.RETRIEVE(6
543 ,VAL_Z);*/ null;
544 END GET_SPECIFIC;
545
546 FUNCTION VALUE_SPECIFIC(NAME IN VARCHAR2
547 ,USER_ID IN NUMBER
548 ,RESPONSIBILITY_ID IN NUMBER
549 ,APPLICATION_ID IN NUMBER) RETURN VARCHAR2 IS
550 X0 VARCHAR2(2000);
551 BEGIN
552 /*STPROC.INIT('begin :X0 := FND_PROFILE.VALUE_SPECIFIC(:NAME, :USER_ID, :RESPONSIBILITY_ID, :APPLICATION_ID); end;');
553 STPROC.BIND_O(X0);
554 STPROC.BIND_I(NAME);
555 STPROC.BIND_I(USER_ID);
556 STPROC.BIND_I(RESPONSIBILITY_ID);
557 STPROC.BIND_I(APPLICATION_ID);
558 STPROC.EXECUTE;
559 STPROC.RETRIEVE(1
560 ,X0);*/ null;
561 RETURN X0;
562 END VALUE_SPECIFIC;
563
564 PROCEDURE INITIALIZE(USER_ID_Z IN NUMBER
565 ,RESPONSIBILITY_ID_Z IN NUMBER
566 ,APPLICATION_ID_Z IN NUMBER
567 ,SITE_ID_Z IN NUMBER) IS
568 BEGIN
569 /*STPROC.INIT('begin FND_PROFILE.INITIALIZE(:USER_ID_Z, :RESPONSIBILITY_ID_Z, :APPLICATION_ID_Z, :SITE_ID_Z); end;');
570 STPROC.BIND_I(USER_ID_Z);
571 STPROC.BIND_I(RESPONSIBILITY_ID_Z);
572 STPROC.BIND_I(APPLICATION_ID_Z);
573 STPROC.BIND_I(SITE_ID_Z);
574 STPROC.EXECUTE;*/ null;
575 END INITIALIZE;
576
577 PROCEDURE PUTMULTIPLE(NAMES IN VARCHAR2
578 ,VALS IN VARCHAR2
579 ,NUM IN NUMBER) IS
580 BEGIN
581 /*STPROC.INIT('begin FND_PROFILE.PUTMULTIPLE(:NAMES, :VALS, :NUM); end;');
582 STPROC.BIND_I(NAMES);
583 STPROC.BIND_I(VALS);
584 STPROC.BIND_I(NUM);
585 STPROC.EXECUTE;*/ null;
586 END PUTMULTIPLE;
587
588 END PSP_PSPLDSSA_XMLP_PKG;