1 PACKAGE BODY PAY_RESTRICT_VAL_PKG AS
2 /* $Header: persv01t.pkb 120.0.12000000.2 2007/04/09 13:03:46 ande noship $ */
3 ------------------------------------------------------------------------------
4 PROCEDURE UNIQUENESS_CHECK(P_VALUE VARCHAR2,
5 P_CUSTOMIZED_RESTRICTION_ID NUMBER,
6 P_CUSTOMIZED_RESTRICTION_ID2 NUMBER,
7 P_ROWID VARCHAR2,
8 P_APPLICATION_ID NUMBER,
9 P_FORM_NAME VARCHAR2,
10 P_RESTRICTION_CODE VARCHAR2) IS
11 L_DUMMY1 number;
12 L_DUMMY2 number;
13 CURSOR C_UNIQUENESS IS
14 SELECT 1
15 FROM PAY_RESTRICTION_VALUES PRV
16 WHERE PRV.VALUE = P_VALUE
17 AND PRV.CUSTOMIZED_RESTRICTION_ID = P_CUSTOMIZED_RESTRICTION_ID
18 AND PRV.RESTRICTION_CODE = P_RESTRICTION_CODE
19 AND (PRV.ROWID <> P_ROWID
20 OR P_ROWID IS NULL);
21 CURSOR C_MULTIPLE_RES IS
22 SELECT 1
23 FROM PAY_RESTRICTION_PARAMETERS PRP
24 WHERE PRP.APPLICATION_ID = P_APPLICATION_ID
25 AND PRP.FORM_NAME = P_FORM_NAME
26 AND PRP.RESTRICTION_CODE = P_RESTRICTION_CODE
27 AND PRP.MULTIPLE_RESTRICTIONS_FLAG = 'N'
28 AND EXISTS
29 (SELECT 1
30 FROM PAY_RESTRICTION_VALUES PRV
31 WHERE PRV.CUSTOMIZED_RESTRICTION_ID = P_CUSTOMIZED_RESTRICTION_ID2
32 AND PRV.RESTRICTION_CODE = PRP.RESTRICTION_CODE
33 AND (PRV.ROWID <> P_ROWID
34 OR P_ROWID IS NULL));
35 BEGIN
36 /* check to ensure only one restriction of a particular type for the form */
37 OPEN C_UNIQUENESS;
38 FETCH C_UNIQUENESS INTO L_DUMMY1;
39 IF C_UNIQUENESS%FOUND THEN
40 CLOSE C_UNIQUENESS;
41 HR_UTILITY.SET_MESSAGE('801','HR_6028_CUST_UNIQUE_PARAMETER');
42 HR_UTILITY.RAISE_ERROR;
43 ELSE
44 /* check to ensure that only one value can bo allowed for same
45 restriction code if multiple restriction flag is 'N' */
46 CLOSE C_UNIQUENESS;
47 OPEN C_MULTIPLE_RES;
48 FETCH C_MULTIPLE_RES INTO L_DUMMY2;
49 IF C_MULTIPLE_RES%FOUND THEN
50 CLOSE C_MULTIPLE_RES;
51 HR_UTILITY.SET_MESSAGE('801','HR_6921_CUST_MULTI_RESTRICT');
52 HR_UTILITY.RAISE_ERROR;
53 ELSE
54 CLOSE C_MULTIPLE_RES;
55 NULL;
56 END IF;
57 END IF;
58 END UNIQUENESS_CHECK;
59 ------------------------------------------------------------------------------
60 PROCEDURE POST_QUERY(P_RESTRICTION_MEANING IN OUT NOCOPY VARCHAR2,
61 P_VALUE_MEANING IN OUT NOCOPY VARCHAR2,
62 P_RESTRICTION_CODE VARCHAR2,
63 P_VALUE VARCHAR2,
64 P_BUSINESS_GROUP_ID NUMBER) IS
65 --
66 CURSOR C_RESTRICTION_TYPE IS
67 SELECT HR.MEANING
68 FROM HR_LOOKUPS HR
69 WHERE HR.LOOKUP_CODE = P_RESTRICTION_CODE
70 AND HR.LOOKUP_TYPE = 'FORM_RESTRICTION_TYPE';
71
72 CURSOR C_ACTION_TYPE IS
73 SELECT HR.MEANING
74 FROM HR_LOOKUPS HR
75 WHERE HR.LOOKUP_CODE = P_VALUE
76 AND HR.LOOKUP_TYPE = 'ACTION_TYPE';
77
78 CURSOR C_ELE_SET IS
79 SELECT PES.ELEMENT_SET_NAME
80 FROM PAY_ELEMENT_SETS PES
81 WHERE PES.ELEMENT_SET_ID = P_VALUE;
82
83 CURSOR C_ELE_TYPE IS
84 SELECT HR.MEANING
85 FROM HR_LOOKUPS HR
86 WHERE HR.LOOKUP_CODE = P_VALUE
87 AND HR.LOOKUP_TYPE = 'PROCESSING_TYPE';
88
89 CURSOR C_EMP_APL IS
90 SELECT HR.MEANING
91 FROM HR_LOOKUPS HR
92 WHERE HR.LOOKUP_CODE = P_VALUE
93 AND HR.LOOKUP_TYPE = 'EMP_APL';
94
95 CURSOR C_ENTRY_TYPE IS
96 SELECT HR.MEANING
97 FROM HR_LOOKUPS HR
98 WHERE HR.LOOKUP_CODE = P_VALUE
99 AND HR.LOOKUP_TYPE = 'ENTRY_TYPE';
100
101 CURSOR C_ASG_SET IS
102 SELECT HR.MEANING
103 FROM HR_LOOKUPS HR
104 WHERE HR.LOOKUP_CODE = P_VALUE
105 AND HR.LOOKUP_TYPE = 'ASG_SET';
106
107 CURSOR C_INQUIRY_NAME IS
108 SELECT REPS.QP_REPORT_NAME
109 FROM FF_QP_REPORTS REPS,
110 FF_FORMULA_TYPES TYPES
111 WHERE REPS.FORMULA_TYPE_ID = TYPES.FORMULA_TYPE_ID
112 AND REPS.QP_REPORT_ID = P_VALUE;
113
114 CURSOR C_ORG_CLASS IS
115 SELECT HR.MEANING
116 FROM HR_LOOKUPS HR
117 WHERE HR.LOOKUP_CODE = P_VALUE
118 AND HR.LOOKUP_TYPE = 'ORG_CLASS';
119
120 CURSOR C_PERSON_FUNCTION IS
121 SELECT HR.MEANING
122 FROM HR_LOOKUPS HR
123 WHERE HR.LOOKUP_CODE = P_VALUE
124 AND HR.LOOKUP_TYPE ='PER_FUNCTION';
125
126 CURSOR C_SPECIAL_INFO IS
127 SELECT F.ID_FLEX_STRUCTURE_NAME
128 FROM FND_ID_FLEX_STRUCTURES_VL F,
129 PER_SPECIAL_INFO_TYPES S
130 WHERE S.SPECIAL_INFORMATION_TYPE_ID = P_VALUE
131 AND S.BUSINESS_GROUP_ID = P_BUSINESS_GROUP_ID
132 AND F.ID_FLEX_NUM = S.ID_FLEX_NUM
133 AND F.ID_FLEX_CODE = 'PEA';
134
135 CURSOR C_TABLE_NAME IS
136 SELECT PUT.USER_TABLE_NAME
137 FROM PAY_USER_TABLES PUT
138 WHERE PUT.USER_TABLE_ID = P_VALUE;
139
140 CURSOR C_PERSON_TYPE IS
141 SELECT PPTTL.USER_PERSON_TYPE
142 FROM PER_PERSON_TYPES_TL PPTTL,
143 PER_PERSON_TYPES PPT
144 WHERE PPT.PERSON_TYPE_ID = P_VALUE
145 AND PPT.PERSON_TYPE_ID = PPTTL.PERSON_TYPE_ID
146 AND PPTTL.LANGUAGE = userenv('LANG');
147
148 CURSOR C_PERSON_ACTION IS
149 SELECT HR.MEANING
150 FROM HR_LOOKUPS HR
151 WHERE HR.LOOKUP_CODE = P_VALUE
152 AND HR.LOOKUP_TYPE ='HR_PTU_ACTION_TYPES';
153
154 -- Changed the table name from PER_ASSIGNMENT_INFO_TYPES
155 -- to PER_ASSIGNMENT_INFO_TYPES_V for fix of #3255251
156 CURSOR C_AEI_TYPE IS
157 SELECT DESCRIPTION
158 FROM PER_ASSIGNMENT_INFO_TYPES_V
159 WHERE INFORMATION_TYPE = P_VALUE;
160
161 CURSOR C_CEI_TYPE IS
162 SELECT DESCRIPTION
163 FROM PER_CONTACT_INFO_TYPES_VL
164 WHERE INFORMATION_TYPE = P_VALUE;
165
166 CURSOR C_PEI_TYPE IS
167 SELECT nvl(DESCRIPTION,INFORMATION_TYPE)
168 FROM PER_PEOPLE_INFO_TYPES
169 WHERE INFORMATION_TYPE = P_VALUE;
170
171 CURSOR C_POEI_TYPE IS
172 SELECT DESCRIPTION
173 FROM PER_POSITION_INFO_TYPES
174 WHERE INFORMATION_TYPE = P_VALUE;
175
176 CURSOR C_JEI_TYPE IS
177 SELECT DESCRIPTION
178 FROM PER_JOB_INFO_TYPES
179 WHERE INFORMATION_TYPE = P_VALUE;
180
181 CURSOR C_LEI_TYPE IS
182 SELECT DESCRIPTION
183 FROM HR_LOCATION_INFO_TYPES
184 WHERE INFORMATION_TYPE = P_VALUE;
185
186 CURSOR C_ADV_FIND IS
187 SELECT HR.MEANING
188 FROM HR_LOOKUPS HR
189 WHERE HR.LOOKUP_CODE = P_VALUE
190 AND HR.LOOKUP_TYPE = 'PER_ADV_FIND_ITEMS';
191
192 CURSOR C_QH_WF_NOTIF IS
193 SELECT DISPLAY_NAME
194 FROM WF_MESSAGES_TL WMTL
195 WHERE TYPE IN ('PEQHNOT','PECWKNOT') --Bug# 3057859
196 AND LANGUAGE = userenv('LANG')
197 AND NAME = P_VALUE;
198
199 CURSOR C_QH_ACTION IS
200 SELECT HR.MEANING
201 FROM HR_LOOKUPS HR
202 WHERE HR.LOOKUP_CODE = P_VALUE
203 AND HR.LOOKUP_TYPE = 'PER_QH_ACTION';
204
205 CURSOR C_QH_NEW IS
206 SELECT HR.MEANING
207 FROM HR_LOOKUPS HR
208 WHERE HR.LOOKUP_CODE = P_VALUE
209 AND HR.LOOKUP_TYPE = 'PER_QH_NEW';
210
211 BEGIN
212 /* populate D_RESTRICTION_TYPE display field */
213 OPEN C_RESTRICTION_TYPE;
214 FETCH C_RESTRICTION_TYPE INTO P_RESTRICTION_MEANING;
215 CLOSE C_RESTRICTION_TYPE;
216 /* populate D_RESTRICTION_VALUE_MEANING display field */
217 IF P_RESTRICTION_CODE = 'ELEMENT_TYPE' THEN
218 OPEN C_ELE_TYPE;
219 FETCH C_ELE_TYPE INTO P_VALUE_MEANING;
220 CLOSE C_ELE_TYPE;
221 ELSIF
222 P_RESTRICTION_CODE = 'ACTION_TYPE' THEN
223 OPEN C_ACTION_TYPE;
224 FETCH C_ACTION_TYPE INTO P_VALUE_MEANING;
225 CLOSE C_ACTION_TYPE;
226 ELSIF
227 P_RESTRICTION_CODE = 'ELEMENT_SET' THEN
228 OPEN C_ELE_SET;
229 FETCH C_ELE_SET INTO P_VALUE_MEANING;
230 CLOSE C_ELE_SET;
231 ELSIF
232 P_RESTRICTION_CODE = 'TABLE_NAME' THEN
233 OPEN C_TABLE_NAME;
234 FETCH C_TABLE_NAME INTO P_VALUE_MEANING;
235 CLOSE C_TABLE_NAME;
236 ELSIF
237 P_RESTRICTION_CODE = 'QP_INQUIRY' THEN
238 OPEN C_INQUIRY_NAME;
239 FETCH C_INQUIRY_NAME INTO P_VALUE_MEANING;
240 CLOSE C_INQUIRY_NAME;
241 ELSIF
242 P_RESTRICTION_CODE = 'ORG_CLASS' THEN
243 OPEN C_ORG_CLASS;
244 FETCH C_ORG_CLASS INTO P_VALUE_MEANING;
245 CLOSE C_ORG_CLASS;
246 ELSIF
247 P_RESTRICTION_CODE = 'EMP_APL' THEN
248 OPEN C_EMP_APL;
249 FETCH C_EMP_APL INTO P_VALUE_MEANING;
250 CLOSE C_EMP_APL;
251 ELSIF
252 P_RESTRICTION_CODE = 'INFO_TYPE' THEN
253 OPEN C_SPECIAL_INFO;
254 FETCH C_SPECIAL_INFO INTO P_VALUE_MEANING;
255 CLOSE C_SPECIAL_INFO;
256 ELSIF
257 P_RESTRICTION_CODE = 'ASG_SET' THEN
258 OPEN C_ASG_SET;
259 FETCH C_ASG_SET INTO P_VALUE_MEANING;
260 CLOSE C_ASG_SET;
261 ELSIF
262 P_RESTRICTION_CODE = 'PER_FUNCTION' THEN
263 OPEN C_PERSON_FUNCTION;
264 FETCH C_PERSON_FUNCTION INTO P_VALUE_MEANING;
265 CLOSE C_PERSON_FUNCTION;
266 ELSIF
267 P_RESTRICTION_CODE = 'ENTRY_TYPE' THEN
268 OPEN C_ENTRY_TYPE;
269 FETCH C_ENTRY_TYPE INTO P_VALUE_MEANING;
270 CLOSE C_ENTRY_TYPE;
271 ELSIF
272 P_RESTRICTION_CODE = 'PERSON_TYPE' THEN
273 OPEN C_PERSON_TYPE;
274 FETCH C_PERSON_TYPE INTO P_VALUE_MEANING;
275 CLOSE C_PERSON_TYPE;
276 ELSIF
277 P_RESTRICTION_CODE = 'PERSON_ACTION' THEN
278 OPEN C_PERSON_ACTION;
279 FETCH C_PERSON_ACTION INTO P_VALUE_MEANING;
280 CLOSE C_PERSON_ACTION;
281 ELSIF
282 P_RESTRICTION_CODE = 'ASSIGNMENT_INFO_TYPE' THEN
283 OPEN C_AEI_TYPE;
284 FETCH C_AEI_TYPE INTO P_VALUE_MEANING;
285 CLOSE C_AEI_TYPE;
286 ELSIF
287 P_RESTRICTION_CODE = 'CONTACT_INFO_TYPE' THEN
288 OPEN C_CEI_TYPE;
289 FETCH C_CEI_TYPE INTO P_VALUE_MEANING;
290 CLOSE C_CEI_TYPE;
291 ELSIF
292 P_RESTRICTION_CODE = 'PEOPLE_INFO_TYPE' THEN
293 OPEN C_PEI_TYPE;
294 FETCH C_PEI_TYPE INTO P_VALUE_MEANING;
295 CLOSE C_PEI_TYPE;
296 ELSIF
297 P_RESTRICTION_CODE = 'JOB_INFO_TYPE' THEN
298 OPEN C_JEI_TYPE;
299 FETCH C_JEI_TYPE INTO P_VALUE_MEANING;
300 CLOSE C_JEI_TYPE;
301 ELSIF
302 P_RESTRICTION_CODE = 'LOCATION_INFO_TYPE' THEN
303 OPEN C_LEI_TYPE;
304 FETCH C_LEI_TYPE INTO P_VALUE_MEANING;
305 CLOSE C_LEI_TYPE;
306 ELSIF
307 P_RESTRICTION_CODE = 'POSITION_INFO_TYPE' THEN
308 OPEN C_POEI_TYPE;
309 FETCH C_POEI_TYPE INTO P_VALUE_MEANING;
310 CLOSE C_POEI_TYPE;
311 ELSIF
312 P_RESTRICTION_CODE = 'ADV_FIND_ITEM' THEN
313 OPEN C_ADV_FIND;
314 FETCH C_ADV_FIND INTO P_VALUE_MEANING;
315 CLOSE C_ADV_FIND;
316 ELSIF
317 P_RESTRICTION_CODE = 'QH_WF_NOTIFICATION' THEN
318 OPEN C_QH_WF_NOTIF;
319 FETCH C_QH_WF_NOTIF INTO P_VALUE_MEANING;
320 CLOSE C_QH_WF_NOTIF;
321 ELSIF
322 P_RESTRICTION_CODE = 'QH_ACTION' THEN
323 OPEN C_QH_ACTION;
324 FETCH C_QH_ACTION INTO P_VALUE_MEANING;
325 CLOSE C_QH_ACTION;
326 ELSIF
327 P_RESTRICTION_CODE = 'QH_NEW' THEN
328 OPEN C_QH_NEW;
329 FETCH C_QH_NEW INTO P_VALUE_MEANING;
330 CLOSE C_QH_NEW;
331 ELSE
332 hr_utility.raise_error;
333 END IF;
334 END POST_QUERY;
335 ------------------------------------------------------------------------------
336 FUNCTION DOWNLOAD_VALUE(P_RESTRICTION_CODE IN VARCHAR2,
337 P_VALUE IN VARCHAR2,
338 P_TOKEN IN VARCHAR2) RETURN VARCHAR2 IS
339 --
340 L_LEG_CODE VARCHAR2(30);
341 L_VALUE VARCHAR2(80);
342 --
343 CURSOR C_ELE_SET IS
344 SELECT PES.ELEMENT_SET_NAME
345 , PES.LEGISLATION_CODE
346 FROM PAY_ELEMENT_SETS PES
347 WHERE PES.ELEMENT_SET_ID = P_VALUE;
348 --
349 CURSOR C_TABLE_NAME IS
350 SELECT PUT.USER_TABLE_NAME
351 , PUT.LEGISLATION_CODE
352 FROM PAY_USER_TABLES PUT
353 WHERE PUT.USER_TABLE_ID = P_VALUE;
354 --
355 CURSOR C_INQUIRY_NAME IS
356 SELECT REPS.QP_REPORT_NAME
357 , REPS.LEGISLATION_CODE
358 FROM FF_QP_REPORTS REPS
359 , FF_FORMULA_TYPES TYPES
360 WHERE REPS.FORMULA_TYPE_ID = TYPES.FORMULA_TYPE_ID
361 AND REPS.QP_REPORT_ID = P_VALUE;
362 --
363 CURSOR C_SPECIAL_INFO IS
364 SELECT F.ID_FLEX_STRUCTURE_NAME
365 FROM FND_ID_FLEX_STRUCTURES_VL F
366 , PER_SPECIAL_INFO_TYPES S
367 WHERE S.SPECIAL_INFORMATION_TYPE_ID = P_VALUE
368 AND S.BUSINESS_GROUP_ID IS NULL
369 AND F.ID_FLEX_NUM = S.ID_FLEX_NUM
370 AND F.ID_FLEX_CODE = 'PEA';
371 --
372 CURSOR C_PERSON_TYPE IS
373 SELECT PPT.USER_PERSON_TYPE
374 FROM PER_PERSON_TYPES PPT
375 WHERE PPT.PERSON_TYPE_ID = P_VALUE;
376 --
377 BEGIN
378 --
379 IF P_RESTRICTION_CODE = 'ELEMENT_SET' THEN
380 OPEN C_ELE_SET;
381 FETCH C_ELE_SET INTO L_VALUE, L_LEG_CODE;
382 CLOSE C_ELE_SET;
383 ELSIF
384 P_RESTRICTION_CODE = 'TABLE_NAME' THEN
385 OPEN C_TABLE_NAME;
386 FETCH C_TABLE_NAME INTO L_VALUE, L_LEG_CODE;
387 CLOSE C_TABLE_NAME;
388 ELSIF
389 P_RESTRICTION_CODE = 'QP_INQUIRY' THEN
390 OPEN C_INQUIRY_NAME;
391 FETCH C_INQUIRY_NAME INTO L_VALUE, L_LEG_CODE;
392 CLOSE C_INQUIRY_NAME;
393 ELSIF
394 P_RESTRICTION_CODE = 'INFO_TYPE' THEN
395 OPEN C_SPECIAL_INFO;
396 FETCH C_SPECIAL_INFO INTO L_VALUE;
397 CLOSE C_SPECIAL_INFO;
398 ELSIF
399 P_RESTRICTION_CODE = 'PERSON_TYPE' THEN
400 OPEN C_PERSON_TYPE;
401 FETCH C_PERSON_TYPE INTO L_VALUE;
402 CLOSE C_PERSON_TYPE;
403 ELSE
404 L_VALUE := P_VALUE;
405 L_LEG_CODE := NULL;
406 END IF;
407 --
408 IF P_TOKEN = 'DV' THEN
409 RETURN(L_VALUE);
410 ELSE
411 RETURN(L_LEG_CODE);
412 END IF;
413 --
414 END DOWNLOAD_VALUE;
415 ------------------------------------------------------------------------------
416 FUNCTION UPLOAD_VALUE(P_RESTRICTION_CODE IN VARCHAR2,
417 P_VALUE IN VARCHAR2,
418 P_LEG_CODE IN VARCHAR2) RETURN VARCHAR2 IS
419 --
420 L_VALUE VARCHAR2(80);
421 --
422 CURSOR C_ELE_SET IS
423 SELECT PES.ELEMENT_SET_ID
424 FROM PAY_ELEMENT_SETS PES
425 WHERE PES.ELEMENT_SET_NAME = P_VALUE
426 AND (P_LEG_CODE IS NULL
427 OR (P_LEG_CODE IS NOT NULL
428 AND PES.LEGISLATION_CODE = P_LEG_CODE));
429 --
430 CURSOR C_TABLE_NAME IS
431 SELECT PUT.USER_TABLE_ID
432 FROM PAY_USER_TABLES PUT
433 WHERE PUT.USER_TABLE_NAME = P_VALUE
434 AND (P_LEG_CODE IS NULL
435 OR (P_LEG_CODE IS NOT NULL
436 AND PUT.LEGISLATION_CODE = P_LEG_CODE));
437 --
438 CURSOR C_INQUIRY_NAME IS
439 SELECT REPS.QP_REPORT_ID
440 FROM FF_QP_REPORTS REPS
441 , FF_FORMULA_TYPES TYPES
442 WHERE REPS.FORMULA_TYPE_ID = TYPES.FORMULA_TYPE_ID
443 AND REPS.QP_REPORT_NAME = P_VALUE
444 AND (P_LEG_CODE IS NULL
445 OR (P_LEG_CODE IS NOT NULL
446 AND REPS.LEGISLATION_CODE = P_LEG_CODE));
447 --
448 CURSOR C_SPECIAL_INFO IS
449 SELECT S.SPECIAL_INFORMATION_TYPE_ID
450 FROM FND_ID_FLEX_STRUCTURES_VL F
454 AND F.ID_FLEX_NUM = S.ID_FLEX_NUM
451 , PER_SPECIAL_INFO_TYPES S
452 WHERE F.ID_FLEX_STRUCTURE_NAME = P_VALUE
453 AND F.ID_FLEX_CODE = 'PEA'
455 AND S.BUSINESS_GROUP_ID IS NULL;
456 --
457 CURSOR C_PERSON_TYPE IS
458 SELECT PPT.PERSON_TYPE_ID
459 FROM PER_PERSON_TYPES PPT
460 WHERE PPT.USER_PERSON_TYPE = P_VALUE
461 AND PPT.BUSINESS_GROUP_ID IS NULL;
462 --
463 BEGIN
464 --
465 IF P_RESTRICTION_CODE = 'ELEMENT_SET' THEN
466 OPEN C_ELE_SET;
467 FETCH C_ELE_SET INTO L_VALUE;
468 CLOSE C_ELE_SET;
469 ELSIF
470 P_RESTRICTION_CODE = 'TABLE_NAME' THEN
471 OPEN C_TABLE_NAME;
472 FETCH C_TABLE_NAME INTO L_VALUE;
473 CLOSE C_TABLE_NAME;
474 ELSIF
475 P_RESTRICTION_CODE = 'QP_INQUIRY' THEN
476 OPEN C_INQUIRY_NAME;
477 FETCH C_INQUIRY_NAME INTO L_VALUE;
478 CLOSE C_INQUIRY_NAME;
479 ELSIF
480 P_RESTRICTION_CODE = 'INFO_TYPE' THEN
481 OPEN C_SPECIAL_INFO;
482 FETCH C_SPECIAL_INFO INTO L_VALUE;
483 CLOSE C_SPECIAL_INFO;
484 ELSIF
485 P_RESTRICTION_CODE = 'PERSON_TYPE' THEN
486 OPEN C_PERSON_TYPE;
487 FETCH C_PERSON_TYPE INTO L_VALUE;
488 CLOSE C_PERSON_TYPE;
489 ELSE
490 L_VALUE := P_VALUE;
491 END IF;
492 --
493 RETURN(L_VALUE);
494 --
495 END UPLOAD_VALUE;
496 ------------------------------------------------------------------------------
497 END PAY_RESTRICT_VAL_PKG;