[Home] [Help]
PACKAGE BODY: APPS.PSP_PSPLSODL_XMLP_PKG
Source
1 PACKAGE BODY PSP_PSPLSODL_XMLP_PKG AS
2 /* $Header: PSPLSODLB.pls 120.3.12020000.2 2013/04/05 07:23:50 lkodaman ship $ */
3 FUNCTION CF_ORGANIZATION_NAMEFORMULA(ORGANIZATION_ID_v IN NUMBER) RETURN VARCHAR2 IS
4 V_ORGANIZATION_NAME HR_ALL_ORGANIZATION_UNITS_TL.NAME%TYPE;
5 BEGIN
6 SELECT
7 DISTINCT
8 NAME
9 INTO V_ORGANIZATION_NAME
10 FROM
11 HR_ORGANIZATION_UNITS
12 WHERE ORGANIZATION_ID = ORGANIZATION_ID_v;
13 RETURN V_ORGANIZATION_NAME;
14 RETURN NULL;
15 EXCEPTION
16 WHEN OTHERS THEN
17 RETURN 'OTHERS';
18 END CF_ORGANIZATION_NAMEFORMULA;
19
20 FUNCTION CF_GL_ACCOUNTFORMULA(GL_CODE_COMBINATION_ID IN NUMBER) RETURN VARCHAR2 IS
21 RET_VAL VARCHAR2(1000);
22 X_SOB NUMBER := TO_NUMBER(PSP_GENERAL.GET_SPECIFIC_PROFILE('GL_SET_OF_BKS_ID'));
23 BEGIN
24 IF GL_CODE_COMBINATION_ID IS NULL THEN
25 RETURN NULL;
26 END IF;
27 RET_VAL := PSP_GENERAL.GET_GL_DESCRIPTION(X_SOB
28 ,GL_CODE_COMBINATION_ID);
29 RETURN RET_VAL;
30 END CF_GL_ACCOUNTFORMULA;
31
32 FUNCTION CF_PROJECT_NAMEFORMULA(PROJECT_ID_V IN NUMBER) RETURN VARCHAR2 IS
33 V_PROJECT_NAME VARCHAR2(30);
34 BEGIN
35 IF PROJECT_ID_V IS NULL THEN
36 RETURN NULL;
37 END IF;
38 SELECT
39 DISTINCT
40 PROJECT_NUMBER
41 INTO V_PROJECT_NAME
42 FROM
43 GMS_PROJECTS_EXPEND_V
44 WHERE PROJECT_ID = PROJECT_ID_V;
45 RETURN V_PROJECT_NAME;
46 RETURN NULL;
47 EXCEPTION
48 WHEN OTHERS THEN
49 RETURN 'ERROR';
50 END CF_PROJECT_NAMEFORMULA;
51
52 FUNCTION CF_EXP_ORG_NAMEFORMULA(EXPENDITURE_ORGANIZATION_ID IN NUMBER) RETURN VARCHAR2 IS
53 V_ORGANIZATION_NAME HR_ALL_ORGANIZATION_UNITS_TL.NAME%TYPE;
54 BEGIN
55 IF EXPENDITURE_ORGANIZATION_ID IS NULL THEN
56 RETURN NULL;
57 END IF;
58 SELECT
59 DISTINCT
60 NAME
61 INTO V_ORGANIZATION_NAME
62 FROM
63 PA_ORGANIZATIONS_EXPEND_V
64 WHERE ORGANIZATION_ID = EXPENDITURE_ORGANIZATION_ID
65 AND ACTIVE_FLAG = 'Y';
66 RETURN V_ORGANIZATION_NAME;
67 RETURN NULL;
68 EXCEPTION
69 WHEN OTHERS THEN
70 RETURN 'ERROR';
71 END CF_EXP_ORG_NAMEFORMULA;
72
73 FUNCTION CF_TASK_NAMEFORMULA(TASK_ID_V IN NUMBER
74 ,PROJECT_ID_V IN NUMBER) RETURN VARCHAR2 IS
75 V_TASK_NAME VARCHAR2(300); -- Bug 16591849
76 BEGIN
77 IF TASK_ID_V IS NULL THEN
78 RETURN NULL;
79 END IF;
80 SELECT
81 DISTINCT
82 TASK_NUMBER
83 INTO V_TASK_NAME
84 FROM
85 PA_TASKS_EXPEND_V
86 WHERE PROJECT_ID = PROJECT_ID_V
87 AND TASK_ID = TASK_ID_V;
88 RETURN V_TASK_NAME;
89 RETURN NULL;
90 EXCEPTION
91 WHEN OTHERS THEN
92 RETURN 'ERROR';
93 END CF_TASK_NAMEFORMULA;
94
95 FUNCTION CF_AWARD_NAMEFORMULA(AWARD_ID_V IN NUMBER) RETURN VARCHAR2 IS
96 V_AWARD_NAME VARCHAR2(30);
97 BEGIN
98 IF AWARD_ID_V IS NULL THEN
99 RETURN NULL;
100 END IF;
101 BEGIN
102 SELECT
103 DISTINCT
104 AWARD_NUMBER
105 INTO V_AWARD_NAME
106 FROM
107 GMS_AWARDS_ALL
108 WHERE AWARD_ID = AWARD_ID_V;
109 EXCEPTION
110 WHEN NO_DATA_FOUND THEN
111 SELECT
112 DEFAULT_DIST_AWARD_NUMBER
113 INTO V_AWARD_NAME
114 FROM
115 GMS_IMPLEMENTATIONS
116 WHERE DEFAULT_DIST_AWARD_ID = AWARD_ID_V
117 AND AWARD_DISTRIBUTION_OPTION = 'Y';
118 END;
119 RETURN V_AWARD_NAME;
120 EXCEPTION
121 WHEN OTHERS THEN
122 RETURN 'ERROR';
123 END CF_AWARD_NAMEFORMULA;
124
125 FUNCTION CF_ASSIGNMENT_NUMBERFORMULA(ASSIGNMENT_ID_V IN NUMBER
126 ,PERSON_ID_V IN NUMBER) RETURN VARCHAR2 IS
127 V_ASSIGNMENT_NUMBER VARCHAR2(30);
128 BEGIN
129 SELECT
130 DISTINCT
131 ASSIGNMENT_NUMBER
132 INTO V_ASSIGNMENT_NUMBER
133 FROM
134 PER_ASSIGNMENTS_F
135 WHERE ASSIGNMENT_ID = ASSIGNMENT_ID_V
136 AND ASSIGNMENT_TYPE = 'E'
137 AND PERSON_ID = PERSON_ID_V;
138 RETURN V_ASSIGNMENT_NUMBER;
139 RETURN NULL;
140 EXCEPTION
141 WHEN OTHERS THEN
142 V_ASSIGNMENT_NUMBER := 0;
143 RETURN V_ASSIGNMENT_NUMBER;
144 END CF_ASSIGNMENT_NUMBERFORMULA;
145
146 FUNCTION CF_PERSON_NAMEFORMULA(PERSON_ID_V IN NUMBER) RETURN VARCHAR2 IS
147 V_EMPLOYEE_NAME VARCHAR2(240);
148 V_TIME_PERIOD_END DATE;
149 BEGIN
150 IF P_END_DATE IS NOT NULL THEN
151 V_TIME_PERIOD_END := P_END_DATE;
152 SELECT
153 DISTINCT
154 FULL_NAME
155 INTO V_EMPLOYEE_NAME
156 FROM
157 PER_PEOPLE_F
158 WHERE PERSON_ID = PERSON_ID_V
159 AND ( V_TIME_PERIOD_END Between EFFECTIVE_START_DATE
160 AND EFFECTIVE_END_DATE );
161 ELSE
162 SELECT
163 DISTINCT
164 FULL_NAME
165 INTO V_EMPLOYEE_NAME
166 FROM
167 PER_PEOPLE_F
168 WHERE PERSON_ID = PERSON_ID_V;
169 END IF;
170 RETURN V_EMPLOYEE_NAME;
171 RETURN NULL;
172 EXCEPTION
173 WHEN OTHERS THEN
174 V_EMPLOYEE_NAME := '';
175 RETURN V_EMPLOYEE_NAME;
176 END CF_PERSON_NAMEFORMULA;
177
178 FUNCTION CF_EARNINGS_ELEMENTFORMULA(ELEMENT_TYPE_ID_V IN NUMBER) RETURN VARCHAR2 IS
179 V_EARNINGS_ELEMENT PAY_ELEMENT_TYPES_F.ELEMENT_NAME%TYPE;
180 BEGIN
181 IF ELEMENT_TYPE_ID_V IS NULL THEN
182 RETURN (NULL);
183 END IF;
184 SELECT
185 DISTINCT
186 ELEMENT_NAME
187 INTO V_EARNINGS_ELEMENT
188 FROM
189 PAY_ELEMENT_TYPES_F
190 WHERE ELEMENT_TYPE_ID = ELEMENT_TYPE_ID_V;
191 RETURN V_EARNINGS_ELEMENT;
192 RETURN NULL;
193 EXCEPTION
194 WHEN NO_DATA_FOUND THEN
195 V_EARNINGS_ELEMENT := '';
196 RETURN V_EARNINGS_ELEMENT;
197 WHEN OTHERS THEN
198 V_EARNINGS_ELEMENT := '';
199 RETURN V_EARNINGS_ELEMENT;
200 END CF_EARNINGS_ELEMENTFORMULA;
201
202 FUNCTION AFTERREPORT RETURN BOOLEAN IS
203 BEGIN
204 --hr_standard.EVENT('AFTER REPORT');
205 RETURN (TRUE);
206 RETURN NULL;
207 EXCEPTION
208 WHEN OTHERS THEN
209 RETURN (FALSE);
210 END AFTERREPORT;
211
212 FUNCTION CF_EMPLOYEE_IDFORMULA(PERSON_ID_V IN NUMBER) RETURN VARCHAR2 IS
213 V_EMPLOYEE_NUMBER VARCHAR2(30);
214 V_TIME_PERIOD_END DATE;
215 BEGIN
216 IF P_END_DATE IS NOT NULL THEN
217 V_TIME_PERIOD_END := P_END_DATE;
218 SELECT
219 DISTINCT
220 EMPLOYEE_NUMBER
221 INTO V_EMPLOYEE_NUMBER
222 FROM
223 PER_PEOPLE_F
224 WHERE PERSON_ID = PERSON_ID_V
225 AND ( V_TIME_PERIOD_END Between EFFECTIVE_START_DATE
226 AND EFFECTIVE_END_DATE );
227 ELSE
228 SELECT
229 DISTINCT
230 EMPLOYEE_NUMBER
231 INTO V_EMPLOYEE_NUMBER
232 FROM
233 PER_PEOPLE_F
234 WHERE PERSON_ID = PERSON_ID_V;
235 END IF;
236 RETURN V_EMPLOYEE_NUMBER;
237 RETURN NULL;
238 EXCEPTION
239 WHEN OTHERS THEN
240 V_EMPLOYEE_NUMBER := '';
241 RETURN V_EMPLOYEE_NUMBER;
242 END CF_EMPLOYEE_IDFORMULA;
243
244 FUNCTION CF_NUMBER_WORKING_DAYSFORMULA(SCHEDULE_BEGIN_DATE IN DATE
245 ,SCHEDULE_END_DATE IN DATE) RETURN NUMBER IS
246 V_NUMBER_WORKING_DAYS NUMBER;
247 BEGIN
248 V_NUMBER_WORKING_DAYS := PSP_GENERAL.BUSINESS_DAYS(SCHEDULE_BEGIN_DATE
249 ,SCHEDULE_END_DATE);
250 RETURN V_NUMBER_WORKING_DAYS;
251 END CF_NUMBER_WORKING_DAYSFORMULA;
252
253 FUNCTION AFTERPFORM RETURN BOOLEAN IS
254 temp boolean;
255 BEGIN
256 temp:=BEFOREPFORM();
257 --ORIENTATION := 'LANDSCAPE';
258 null;
259 RETURN (TRUE);
260 END AFTERPFORM;
261
262 FUNCTION CF_TIME_PERIOD_STARTFORMULA(CF_DATE_FORMAT IN VARCHAR2) RETURN CHAR IS
263 V_TIME_PERIOD_START DATE;
264 BEGIN
265 /*SRW.REFERENCE(P_BEGIN_DATE)*/NULL;
266 /*SRW.REFERENCE(CF_DATE_FORMAT)*/NULL;
267 RETURN (TO_CHAR(P_BEGIN_DATE
268 ,CF_DATE_FORMAT));
269 RETURN NULL;
270 EXCEPTION
271 WHEN OTHERS THEN
272 RETURN NULL;
273 END CF_TIME_PERIOD_STARTFORMULA;
274
275 FUNCTION CF_TIME_PERIOD_ENDFORMULA(CF_DATE_FORMAT IN VARCHAR2) RETURN CHAR IS
276 V_TIME_PERIOD_END DATE;
277 BEGIN
278 /*SRW.REFERENCE(P_END_DATE)*/NULL;
279 /*SRW.REFERENCE(CF_DATE_FORMAT)*/NULL;
280 RETURN (TO_CHAR(P_END_DATE
281 ,CF_DATE_FORMAT));
282 RETURN NULL;
283 EXCEPTION
284 WHEN OTHERS THEN
285 RETURN NULL;
286 END CF_TIME_PERIOD_ENDFORMULA;
287
288 FUNCTION CF_INSTITUTION_NAMEFORMULA RETURN VARCHAR2 IS
289 V_INSTITUTION_NAME HR_ALL_ORGANIZATION_UNITS_TL.NAME%TYPE;
290 V_INSTITUTION_ID VARCHAR2(30);
291 BEGIN
292 V_INSTITUTION_ID := VALUE('PSP_ORG_REPORT');
293 IF V_INSTITUTION_ID IS NULL THEN
294 RETURN NULL;
295 END IF;
296 SELECT
297 DISTINCT
298 NAME
299 INTO V_INSTITUTION_NAME
300 FROM
301 HR_ORGANIZATION_UNITS
302 WHERE ORGANIZATION_ID = TO_NUMBER(V_INSTITUTION_ID);
303 RETURN V_INSTITUTION_NAME;
304 RETURN NULL;
305 EXCEPTION
306 WHEN OTHERS THEN
307 RETURN NULL;
308 END CF_INSTITUTION_NAMEFORMULA;
309
310 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
311 BEGIN
312 --hr_standard.EVENT('BEFORE REPORT');
313 RETURN (TRUE);
314 END BEFOREREPORT;
315
316 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
317 RET_VAL NUMBER;
318 BEGIN
319 RET_VAL := PSP_ORG_DLS_PKG.INSERT_RECORDS_TO_TABLE(P_ORG_TEMPLATE_ID
320 ,P_BEGIN_DATE
321 ,P_END_DATE
322 ,P_SET_OF_BOOKS_ID
323 ,P_BUSINESS_GROUP_ID);
324 P_BATCH_ID1 := RET_VAL;
325 RETURN (TRUE);
326 END BEFOREPFORM;
327
328 FUNCTION CF_DATE_FORMATFORMULA RETURN CHAR IS
329 BEGIN
330 RETURN (FND_PROFILE.VALUE('ICX_DATE_FORMAT_MASK'));
331 END CF_DATE_FORMATFORMULA;
332
333 FUNCTION CF_DEFAULT_BEGIN_DATEFORMULA(DEFAULT_BEGIN_DATE IN DATE
334 ,CF_DATE_FORMAT IN VARCHAR2) RETURN CHAR IS
335 BEGIN
336 /*SRW.REFERENCE(DEFAULT_BEGIN_DATE)*/NULL;
337 /*SRW.REFERENCE(CF_DATE_FORMAT)*/NULL;
338 RETURN (TO_CHAR(DEFAULT_BEGIN_DATE
339 ,CF_DATE_FORMAT));
340 END CF_DEFAULT_BEGIN_DATEFORMULA;
341
342 FUNCTION CF_DEFAULT_END_DATEFORMULA(DEFAULT_END_DATE IN DATE
343 ,CF_DATE_FORMAT IN VARCHAR2) RETURN CHAR IS
344 BEGIN
345 /*SRW.REFERENCE(DEFAULT_END_DATE)*/NULL;
346 /*SRW.REFERENCE(CF_DATE_FORMAT)*/NULL;
347 RETURN (TO_CHAR(DEFAULT_END_DATE
348 ,CF_DATE_FORMAT));
349 END CF_DEFAULT_END_DATEFORMULA;
350
351 FUNCTION CF_DATE_RUNFORMULA(CF_DATE_FORMAT IN VARCHAR2) RETURN CHAR IS
352 BEGIN
353 /*SRW.REFERENCE(SYSDATE)*/NULL;
354 /*SRW.REFERENCE(CF_DATE_FORMAT)*/NULL;
355 RETURN (TO_CHAR(SYSDATE
356 ,CF_DATE_FORMAT));
357 END CF_DATE_RUNFORMULA;
358
359 FUNCTION CF_SCHEDULE_BEGIN_DATEFORMULA(SCHEDULE_BEGIN_DATE IN DATE
360 ,CF_DATE_FORMAT IN VARCHAR2
361 ,SCHEDULE_END_DATE IN DATE) RETURN CHAR IS
362 BEGIN
363 /*SRW.REFERENCE(SCHEDULE_BEGIN_DATE)*/NULL;
364 /*SRW.REFERENCE(CF_DATE_FORMAT)*/NULL;
365 RETURN (TO_CHAR(SCHEDULE_END_DATE
366 ,CF_DATE_FORMAT));
367 END CF_SCHEDULE_BEGIN_DATEFORMULA;
368
369 FUNCTION CF_SCHEDULE_END_DATEFORMULA(SCHEDULE_END_DATE IN DATE
370 ,CF_DATE_FORMAT IN VARCHAR2) RETURN CHAR IS
371 BEGIN
372 /*SRW.REFERENCE(SCHEDULE_END_DATE)*/NULL;
373 /*SRW.REFERENCE(CF_DATE_FORMAT)*/NULL;
374 RETURN (TO_CHAR(SCHEDULE_END_DATE
375 ,CF_DATE_FORMAT));
376 END CF_SCHEDULE_END_DATEFORMULA;
377
378 PROCEDURE CRT(ERRBUF OUT NOCOPY VARCHAR2
379 ,RETCODE OUT NOCOPY NUMBER
380 ,A_TEMPLATE_ID IN NUMBER) IS
381 BEGIN
382 /* STPROC.INIT('begin PSP_EFFORTS_PKG.CRT(:ERRBUF, :RETCODE, :A_TEMPLATE_ID); end;');
383 STPROC.BIND_O(ERRBUF);
384 STPROC.BIND_O(RETCODE);
385 STPROC.BIND_I(A_TEMPLATE_ID);
386 STPROC.EXECUTE;
387 STPROC.RETRIEVE(1
388 ,ERRBUF);
389 STPROC.RETRIEVE(2
390 ,RETCODE);*/ null;
391 END CRT;
392
393 PROCEDURE INIT_WORKFLOW(A_TEMPLATE_ID IN NUMBER) IS
394 BEGIN
395 /* STPROC.INIT('begin PSP_EFFORTS_PKG.INIT_WORKFLOW(:A_TEMPLATE_ID); end;');
396 STPROC.BIND_I(A_TEMPLATE_ID);
397 STPROC.EXECUTE;*/
398 null;
399 END INIT_WORKFLOW;
400
401 PROCEDURE UPD_INCLUDE_FLAG(A_TEMPLATE_ID IN NUMBER) IS
402 BEGIN
403 /*STPROC.INIT('begin PSP_EFFORTS_PKG.UPD_INCLUDE_FLAG(:A_TEMPLATE_ID); end;');
404 STPROC.BIND_I(A_TEMPLATE_ID);
405 STPROC.EXECUTE;*/
406 NULL;
407 END UPD_INCLUDE_FLAG;
408
409 /* FUNCTION GET_GL_DESCRIPTION(A_CODE_COMBINATION_ID IN NUMBER) RETURN VARCHAR2 IS
410 X0 VARCHAR2(2000);
411 BEGIN
412 STPROC.INIT('begin :X0 := PSP_EFFORTS_PKG.GET_GL_DESCRIPTION(:A_CODE_COMBINATION_ID); end;');
413 STPROC.BIND_O(X0);
414 STPROC.BIND_I(A_CODE_COMBINATION_ID);
415 STPROC.EXECUTE;
416 STPROC.RETRIEVE(1
417 ,X0);NULL;
418 RETURN X0;
419 END GET_GL_DESCRIPTION;*/
420
421 PROCEDURE GET_ANNUAL_SALARY(P_ASSIGNMENT_ID IN NUMBER
422 ,P_SESSION_DATE IN DATE
423 ,P_ANNUAL_SALARY OUT NOCOPY NUMBER) IS
424 BEGIN
425 /* STPROC.INIT('begin PSP_GENERAL.GET_ANNUAL_SALARY(:P_ASSIGNMENT_ID, :P_SESSION_DATE, :P_ANNUAL_SALARY); end;');
426 STPROC.BIND_I(P_ASSIGNMENT_ID);
427 STPROC.BIND_I(P_SESSION_DATE);
428 STPROC.BIND_O(P_ANNUAL_SALARY);
429 STPROC.EXECUTE;
430 STPROC.RETRIEVE(3
431 ,P_ANNUAL_SALARY);*/NULL;
432 END GET_ANNUAL_SALARY;
433
434 PROCEDURE GET_GL_CCID(P_PAYROLL_ID IN NUMBER
435 ,P_SET_OF_BOOKS_ID IN NUMBER
436 ,P_COST_KEYFLEX_ID IN NUMBER
437 ,X_GL_CCID OUT NOCOPY NUMBER) IS
438 BEGIN
439 /* STPROC.INIT('begin PSP_GENERAL.GET_GL_CCID(:P_PAYROLL_ID, :P_SET_OF_BOOKS_ID, :P_COST_KEYFLEX_ID, :X_GL_CCID); end;');
440 STPROC.BIND_I(P_PAYROLL_ID);
441 STPROC.BIND_I(P_SET_OF_BOOKS_ID);
442 STPROC.BIND_I(P_COST_KEYFLEX_ID);
443 STPROC.BIND_O(X_GL_CCID);
444 STPROC.EXECUTE;
445 STPROC.RETRIEVE(4
446 ,X_GL_CCID);*/NULL;
447 END GET_GL_CCID;
448
449 FUNCTION BUSINESS_DAYS(LOW_DATE IN DATE
450 ,HIGH_DATE IN DATE) RETURN NUMBER IS
451 X0 NUMBER;
452 BEGIN
453 /*STPROC.INIT('begin :X0 := PSP_GENERAL.BUSINESS_DAYS(:LOW_DATE, :HIGH_DATE); end;');
454 STPROC.BIND_O(X0);
455 STPROC.BIND_I(LOW_DATE);
456 STPROC.BIND_I(HIGH_DATE);
457 STPROC.EXECUTE;
458 STPROC.RETRIEVE(1
459 ,X0);*/NULL;
460 RETURN X0;
461 END BUSINESS_DAYS;
462
463 FUNCTION GET_GL_DESCRIPTION(A_CODE_COMBINATION_ID IN NUMBER) RETURN VARCHAR2 IS
464 X0 VARCHAR2(2000);
465 BEGIN
466 /* STPROC.INIT('begin :X0 := PSP_GENERAL.GET_GL_DESCRIPTION(:A_CODE_COMBINATION_ID); end;');
467 STPROC.BIND_O(X0);
468 STPROC.BIND_I(A_CODE_COMBINATION_ID);
469 STPROC.EXECUTE;
470 STPROC.RETRIEVE(1
471 ,X0);*/NULL;
472 RETURN X0;
473 END GET_GL_DESCRIPTION;
474
475 PROCEDURE PUT(NAME IN VARCHAR2
476 ,VAL IN VARCHAR2) IS
477 BEGIN
478 /* STPROC.INIT('begin FND_PROFILE.PUT(:NAME, :VAL); end;');
479 STPROC.BIND_I(NAME);
480 STPROC.BIND_I(VAL);
481 STPROC.EXECUTE;*/NULL;
482 END PUT;
483
484 FUNCTION DEFINED(NAME IN VARCHAR2) RETURN BOOLEAN IS
485 X0 BOOLEAN;
486 BEGIN
487 /* STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := FND_PROFILE.DEFINED(:NAME); :X0 := sys.diutil.bool_to_int(X0rv); end;');
488 STPROC.BIND_I(NAME);
489 STPROC.BIND_O(X0);
490 STPROC.EXECUTE;
491 STPROC.RETRIEVE(2
492 ,X0);*/NULL;
493 RETURN X0;
494 END DEFINED;
495
496 PROCEDURE GET(NAME IN VARCHAR2
497 ,VAL OUT NOCOPY VARCHAR2) IS
498 BEGIN
499 /*STPROC.INIT('begin FND_PROFILE.GET(:NAME, :VAL); end;');
500 STPROC.BIND_I(NAME);
501 STPROC.BIND_O(VAL);
502 STPROC.EXECUTE;
503 STPROC.RETRIEVE(2
504 ,VAL);*/NULL;
505 END GET;
506
507 FUNCTION VALUE(NAME IN VARCHAR2) RETURN VARCHAR2 IS
508 X0 VARCHAR2(2000);
509 BEGIN
510 /*STPROC.INIT('begin :X0 := FND_PROFILE.VALUE(:NAME); end;');
511 STPROC.BIND_O(X0);
512 STPROC.BIND_I(NAME);
513 STPROC.EXECUTE;
514 STPROC.RETRIEVE(1
515 ,X0);*/NULL;
516 RETURN X0;
517 END VALUE;
518
519 FUNCTION SAVE_USER(X_NAME IN VARCHAR2
520 ,X_VALUE IN VARCHAR2) RETURN BOOLEAN IS
521 X0 BOOLEAN;
522 BEGIN
523 /*STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := FND_PROFILE.SAVE_USER(:X_NAME, :X_VALUE); :X0 := sys.diutil.bool_to_int(X0rv); end;');
524 STPROC.BIND_I(X_NAME);
525 STPROC.BIND_I(X_VALUE);
526 STPROC.BIND_O(X0);
527 STPROC.EXECUTE;
528 STPROC.RETRIEVE(3
529 ,X0);*/NULL;
530 RETURN X0;
531 END SAVE_USER;
532
533 FUNCTION SAVE(X_NAME IN VARCHAR2
534 ,X_VALUE IN VARCHAR2
535 ,X_LEVEL_NAME IN VARCHAR2
536 ,X_LEVEL_VALUE IN VARCHAR2
537 ,X_LEVEL_VALUE_APP_ID IN VARCHAR2) RETURN BOOLEAN IS
538 X0 BOOLEAN;
539 BEGIN
540 /*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;');
541 STPROC.BIND_I(X_NAME);
542 STPROC.BIND_I(X_VALUE);
543 STPROC.BIND_I(X_LEVEL_NAME);
544 STPROC.BIND_I(X_LEVEL_VALUE);
545 STPROC.BIND_I(X_LEVEL_VALUE_APP_ID);
546 STPROC.BIND_O(X0);
547 STPROC.EXECUTE;
548 STPROC.RETRIEVE(6
549 ,X0);*/NULL;
550 RETURN X0;
551 END SAVE;
552
553 PROCEDURE GET_SPECIFIC(NAME_Z IN VARCHAR2
554 ,USER_ID_Z IN NUMBER
555 ,RESPONSIBILITY_ID_Z IN NUMBER
556 ,APPLICATION_ID_Z IN NUMBER
557 ,VAL_Z OUT NOCOPY VARCHAR2
558 ,DEFINED_Z OUT NOCOPY BOOLEAN) IS
559 BEGIN
560 /*STPROC.INIT('declare DEFINED_Z BOOLEAN; begin DEFINED_Z := sys.diutil.int_to_bool(:DEFINED_Z);
561 FND_PROFILE.GET_SPECIFIC(:NAME_Z, :USER_ID_Z, :RESPONSIBILITY_ID_Z, :APPLICATION_ID_Z, :VAL_Z, DEFINED_Z);
562 :DEFINED_Z := sys.diutil.bool_to_int(DEFINED_Z); end;');
563 STPROC.BIND_O(DEFINED_Z);
564 STPROC.BIND_I(NAME_Z);
565 STPROC.BIND_I(USER_ID_Z);
566 STPROC.BIND_I(RESPONSIBILITY_ID_Z);
567 STPROC.BIND_I(APPLICATION_ID_Z);
568 STPROC.BIND_O(VAL_Z);
569 STPROC.EXECUTE;
570 STPROC.RETRIEVE(1
571 ,DEFINED_Z);
572 STPROC.RETRIEVE(6
573 ,VAL_Z);*/NULL;
574 END GET_SPECIFIC;
575
576 FUNCTION VALUE_SPECIFIC(NAME IN VARCHAR2
577 ,USER_ID IN NUMBER
578 ,RESPONSIBILITY_ID IN NUMBER
579 ,APPLICATION_ID IN NUMBER) RETURN VARCHAR2 IS
580 X0 VARCHAR2(2000);
581 BEGIN
582 /*STPROC.INIT('begin :X0 := FND_PROFILE.VALUE_SPECIFIC(:NAME, :USER_ID, :RESPONSIBILITY_ID, :APPLICATION_ID); end;');
583 STPROC.BIND_O(X0);
584 STPROC.BIND_I(NAME);
585 STPROC.BIND_I(USER_ID);
586 STPROC.BIND_I(RESPONSIBILITY_ID);
587 STPROC.BIND_I(APPLICATION_ID);
588 STPROC.EXECUTE;
589 STPROC.RETRIEVE(1
590 ,X0);*/NULL;
591 RETURN X0;
592 END VALUE_SPECIFIC;
593
594 PROCEDURE INITIALIZE(USER_ID_Z IN NUMBER
595 ,RESPONSIBILITY_ID_Z IN NUMBER
596 ,APPLICATION_ID_Z IN NUMBER
597 ,SITE_ID_Z IN NUMBER) IS
598 BEGIN
599 /*STPROC.INIT('begin FND_PROFILE.INITIALIZE(:USER_ID_Z, :RESPONSIBILITY_ID_Z, :APPLICATION_ID_Z, :SITE_ID_Z); end;');
600 STPROC.BIND_I(USER_ID_Z);
601 STPROC.BIND_I(RESPONSIBILITY_ID_Z);
602 STPROC.BIND_I(APPLICATION_ID_Z);
603 STPROC.BIND_I(SITE_ID_Z);
604 STPROC.EXECUTE;*/NULL;
605 END INITIALIZE;
606
607 PROCEDURE PUTMULTIPLE(NAMES IN VARCHAR2
608 ,VALS IN VARCHAR2
609 ,NUM IN NUMBER) IS
610 BEGIN
611 /*STPROC.INIT('begin FND_PROFILE.PUTMULTIPLE(:NAMES, :VALS, :NUM); end;');
612 STPROC.BIND_I(NAMES);
613 STPROC.BIND_I(VALS);
614 STPROC.BIND_I(NUM);
615 STPROC.EXECUTE;*/NULL;
616 END PUTMULTIPLE;
617
618 END PSP_PSPLSODL_XMLP_PKG;