[Home] [Help]
5: --
6: g_package varchar2(33) := 'hr_kflex_utility';
7: g_kfcode_structure l_ignore_kfcode_varray := l_ignore_kfcode_varray();
8: g_delimiter_escape varchar2(1) := '\';
9: g_debug boolean := hr_utility.debug_enabled;
10: --
11: -- ----------------------------------------------------------------------------
12: -- |---------------------------- get_application_id ---------------------------|
13: -- ----------------------------------------------------------------------------
114: --
115: begin
116: if g_debug then
117: l_proc := 'get_no_segments';
118: hr_utility.set_location('Entering:'|| l_proc, 10);
119: end if;
120: --
121: -- Fetch number of segments in KF structure
122: --
127: -- count will always return a row.
128: /* if number_of_segments%NOTFOUND then
129: close number_of_segments;
130: --
131: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
132: hr_utility.set_message_token('PROCEDURE', l_proc);
133: hr_utility.set_message_token('STEP','20');
134: hr_utility.raise_error;
135: --
128: /* if number_of_segments%NOTFOUND then
129: close number_of_segments;
130: --
131: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
132: hr_utility.set_message_token('PROCEDURE', l_proc);
133: hr_utility.set_message_token('STEP','20');
134: hr_utility.raise_error;
135: --
136: end if;*/
129: close number_of_segments;
130: --
131: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
132: hr_utility.set_message_token('PROCEDURE', l_proc);
133: hr_utility.set_message_token('STEP','20');
134: hr_utility.raise_error;
135: --
136: end if;*/
137: close number_of_segments;
130: --
131: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
132: hr_utility.set_message_token('PROCEDURE', l_proc);
133: hr_utility.set_message_token('STEP','20');
134: hr_utility.raise_error;
135: --
136: end if;*/
137: close number_of_segments;
138: RETURN l_no_segments;
137: close number_of_segments;
138: RETURN l_no_segments;
139: --
140: if g_debug then
141: hr_utility.set_location('Leaving:'|| l_proc, 30);
142: end if;
143: --
144: end get_no_segments;
145: --
173: -- First get the flexfield information
174: --
175: if g_debug then
176: l_proc := 'hr_kflex_utility.find_error_segment';
177: hr_utility.set_location('Entering:'|| l_proc, 10);
178: end if;
179: l_flexfield := fnd_flex_key_api.find_flexfield(
180: appl_short_name => p_appl_short_name,
181: flex_code => p_flex_code);
185: -- Next check that the context is valid, otherwise return the context
186: -- column name and prompt
187: --
188: if g_debug then
189: hr_utility.set_location(l_proc, 20);
190: end if;
191: --
192: if (p_error_seg_num = 0) then
193: --
194: -- The context is in error. We should return the context column
195: -- and prompt.
196: --
197: if g_debug then
198: hr_utility.set_location(l_proc, 30);
199: end if;
200: --
201: p_application_col_name := l_flexfield.structure_column;
202: p_form_left_prompt := p_flex_code||' - '||to_char(p_flex_num);
206: --
207: -- We have a valid context, so get the context information
208: --
209: if g_debug then
210: hr_utility.set_location(l_proc, 40);
211: end if;
212: --
213: l_structure := fnd_flex_key_api.find_structure(
214: flexfield => l_flexfield,
216: --
217: -- Finally retrieve the segment information for this context
218: --
219: if g_debug then
220: hr_utility.set_location(l_proc, 50);
221: end if;
222: --
223: -- Get the list of segments for this structure
224: --
229: nsegments => l_nsegments,
230: segments => l_segment_list);
231: --
232: if g_debug then
233: hr_utility.set_location(l_proc, 55);
234: end if;
235: --
236: -- Use the error segment number passed in, to work out
237: -- which segment is in error.
256: --
257: end if;
258: --
259: if g_debug then
260: hr_utility.set_location('Leaving: '||l_proc, 60);
261: end if;
262: end find_error_segment;
263: --
264: -- ----------------------------------------------------------------------------
332: --
333: begin
334: if g_debug then
335: l_proc := 'check_segment_combination';
336: hr_utility.set_location('Entering:'|| l_proc, 11);
337: end if;
338: --
339: --3171225 start
340: l_effective_date:=to_date(null);
341: open date_set;
342: fetch date_set into l_effective_date;
343: if date_set%notfound then
344: if g_debug then
345: hr_utility.set_location(l_proc,13);
346: end if;
347: l_effective_date := trunc(sysdate);
348: close date_set;
349: else
347: l_effective_date := trunc(sysdate);
348: close date_set;
349: else
350: if g_debug then
351: hr_utility.set_location(l_proc,15);
352: end if;
353: close date_set;
354: end if;
355: --3171225 end
363: ,validation_date => nvl(l_effective_date,trunc(sysdate)) --3171225
364: )
365: then
366: if g_debug then
367: hr_utility.set_location(l_proc, 20);
368: end if;
369: --
370: -- Flex routine succeeds - fetch relevant ccid
371: -- and concatenated segment string
373: p_ccid := fnd_flex_keyval.combination_id;
374: p_concat_segments_out := fnd_flex_keyval.concatenated_values;
375: --
376: if g_debug then
377: hr_utility.set_location(l_proc, 30);
378: end if;
379: else
380: if g_debug then
381: hr_utility.set_location(l_proc, 40);
377: hr_utility.set_location(l_proc, 30);
378: end if;
379: else
380: if g_debug then
381: hr_utility.set_location(l_proc, 40);
382: end if;
383: --
384: -- Raise or trap the AOL error
385: --
383: --
384: -- Raise or trap the AOL error
385: --
386: if g_debug then
387: hr_utility.set_location(l_proc, 41);
388: end if;
389: --
390: -- The FND FLEX KEYVAL package makes a call to FND MESSAGE
391: -- get encoded
391: -- get encoded
392: hr_message.parse_encoded(p_encoded_error =>
393: FND_FLEX_KEYVAL.encoded_error_message);
394: if g_debug then
395: hr_utility.set_location(l_proc, 42);
396: end if;
397: --
398: if ((hr_message.last_message_app = 'FND') and
399: (hr_message.last_message_name = 'FLEX-VALUE NOT FOUND')) then
398: if ((hr_message.last_message_app = 'FND') and
399: (hr_message.last_message_name = 'FLEX-VALUE NOT FOUND')) then
400: --
401: if g_debug then
402: hr_utility.set_location(l_proc, 44);
403: end if;
404: --
405: -- In this case, there was an invalid segment, or context.
406: -- We must allow for the possibility that the context value
420: p_form_left_prompt => l_flex_seg_error_prompt,
421: p_table_name => l_table_name
422: );
423: if g_debug then
424: hr_utility.set_location(l_proc, 46);
425: end if;
426: value := hr_message.get_token_value(p_token_name => 'VALUE');
427: --
428: -- Now have the additional error information, raise a different error
436: (p_associated_column1 => l_table_name || '.' || app_col_name);
437: elsif hr_message.last_message_app = 'FND' and
438: hr_message.last_message_name = 'FLEX-NULL SEGMENT' then
439: if g_debug then
440: hr_utility.set_location(l_proc, 50);
441: end if;
442: --
443: -- Work out which segment is in error. Replace the error message
444: -- by a more useful one.
456: --
457: -- Raise the alternative error.
458: --
459: if g_debug then
460: hr_utility.set_location(l_proc, 55);
461: end if;
462: fnd_message.set_name('PER','HR_FLEX_VALUE_MISSING');
463: fnd_message.set_token('COLUMN',app_col_name);
464: fnd_message.set_token('PROMPT',l_flex_seg_error_prompt);
469: -- Some other non-expected error, simply raise the error in the
470: -- previous fashion.
471: --
472: if g_debug then
473: hr_utility.set_location(l_proc, 60);
474: end if;
475: --
476: -- Raise the AOL error
477: --
481: end if;
482: end if;
483: --
484: if g_debug then
485: hr_utility.set_location(' Leaving '||l_proc, 100);
486: end if;
487: --
488: end check_segment_combination;
489: --
577: -- Bug 3897294 Ends
578: begin
579: if g_debug then
580: l_proc := 'check_segment_combination';
581: hr_utility.set_location('Entering:'|| l_proc, 10);
582: end if;
583: --
584: -- Calls function to return delimeter for relevant flexfield
585: -- structure
600: );
601: -- Bug 3897294 Ends
602: --
603: if g_debug then
604: hr_utility.set_location(l_proc, 20);
605: end if;
606: --
607: -- Convert segment array structure into concatenated string
608: --
609: -- Check if any segment values are populated
610: --
611: if p_parameter.count > 0 then
612: if g_debug then
613: hr_utility.set_location(l_proc, 30);
614: end if;
615:
616: -- Initialize the concatenated sring
617: --
626: --
627: l_segment_value := p_parameter(l_seg_plsql_row_num);
628: --
629: if g_debug then
630: hr_utility.set_location('This is the seg val'||length(l_segment_value),100);
631: end if;
632: if l_segment_value <> hr_api.g_varchar2
633: or l_segment_value is null
634: then
671: --
672: end if;
673: --
674: if g_debug then
675: hr_utility.set_location(l_proc, 45);
676: end if;
677: --
678: -- Check for too many segments in segment structure.
679: -- If too many exist, force AOL to produce appropriate
683:
684: l_concat_string := l_concat_string||l_delimiter;
685: end if;
686: --
687: -- Stop overflow of hr_utility by restricting using substr.
688: -- WWBUG 1812106.
689: --
690: if g_debug then
691: hr_utility.set_location('=>'||substr(l_concat_string,1,80),48);
687: -- Stop overflow of hr_utility by restricting using substr.
688: -- WWBUG 1812106.
689: --
690: if g_debug then
691: hr_utility.set_location('=>'||substr(l_concat_string,1,80),48);
692: end if;
693:
694: if g_debug then
695: hr_utility.set_location(l_proc,50);
691: hr_utility.set_location('=>'||substr(l_concat_string,1,80),48);
692: end if;
693:
694: if g_debug then
695: hr_utility.set_location(l_proc,50);
696: end if;
697: --
698: --3171225 start
699: l_effective_date:=to_date(null);
700: open date_set;
701: fetch date_set into l_effective_date;
702: if date_set%found then
703: if g_debug then
704: hr_utility.set_location(l_proc,53);
705: end if;
706: close date_set;
707: else
708: if g_debug then
705: end if;
706: close date_set;
707: else
708: if g_debug then
709: hr_utility.set_location(l_proc,55);
710: end if;
711: close date_set;
712: l_effective_date := trunc(sysdate);
713: end if;
725: ,validation_date => nvl(l_effective_date,trunc(sysdate)) --3171225
726: )
727: then
728: if g_debug then
729: hr_utility.set_location(l_proc, 60);
730: end if;
731: --
732: -- Flex routine succeeds - fetch relevant ccid
733: -- and concatenated segment string
735: p_ccid := fnd_flex_keyval.combination_id;
736: p_concat_segments_out := fnd_flex_keyval.concatenated_values;
737: --
738: if g_debug then
739: hr_utility.set_location(l_proc, 70);
740: end if;
741: --
742: else
743: if g_debug then
740: end if;
741: --
742: else
743: if g_debug then
744: hr_utility.set_location(l_proc, 80);
745: end if;
746: --
747: -- Raise or trap the AOL error
748: --
746: --
747: -- Raise or trap the AOL error
748: --
749: if g_debug then
750: hr_utility.set_location(l_proc, 81);
751: end if;
752: --
753: -- The FND FLEX KEYVAL package makes a call to FND MESSAGE
754: -- get encoded
754: -- get encoded
755: hr_message.parse_encoded(p_encoded_error =>
756: FND_FLEX_KEYVAL.encoded_error_message);
757: if g_debug then
758: hr_utility.set_location(l_proc, 82);
759: end if;
760: --
761: if ((hr_message.last_message_app = 'FND') and
762: (hr_message.last_message_name = 'FLEX-VALUE NOT FOUND')) then
761: if ((hr_message.last_message_app = 'FND') and
762: (hr_message.last_message_name = 'FLEX-VALUE NOT FOUND')) then
763: --
764: if g_debug then
765: hr_utility.set_location(l_proc, 84);
766: end if;
767: --
768: -- In this case, there was an invalid segment, or context.
769: -- We must allow for the possibility that the context value
783: p_form_left_prompt => l_flex_seg_error_prompt,
784: p_table_name => l_table_name
785: );
786: if g_debug then
787: hr_utility.set_location(l_proc, 86);
788: end if;
789: --
790: value := hr_message.get_token_value(p_token_name => 'VALUE');
791: --
800: (p_associated_column1 => l_table_name || '.' || app_col_name);
801: elsif hr_message.last_message_app = 'FND' and
802: hr_message.last_message_name = 'FLEX-NULL SEGMENT' then
803: if g_debug then
804: hr_utility.set_location(l_proc, 90);
805: end if;
806: --
807: -- Work out which segment is in error. Replace the error message
808: -- by a more useful one.
820: --
821: -- Raise the alternative error.
822: --
823: if g_debug then
824: hr_utility.set_location(l_proc, 95);
825: end if;
826: fnd_message.set_name('PER','HR_FLEX_VALUE_MISSING');
827: fnd_message.set_token('COLUMN',app_col_name);
828: fnd_message.set_token('PROMPT',l_flex_seg_error_prompt);
836:
837: -- Raise the AOL error
838: --
839: if g_debug then
840: hr_utility.set_location(l_proc, 100);
841: end if;
842: fnd_message.set_name('FND',hr_message.last_message_name);
843: fnd_message.raise_error;
844: --
845: end if;
846: end if;
847: --
848: if g_debug then
849: hr_utility.set_location(' Leaving:'||l_proc, 200);
850: end if;
851: --
852: end check_segment_combination;
853: --
966: begin
967:
968: if g_debug then
969: l_proc := 'sort_segment_order';
970: hr_utility.set_location('Entering:'|| l_proc, 10);
971: end if;
972: --
973: -- Assign all segments values to a temporary PLSQL
974: -- table or Segment Array
1004: l_parameter_temp(29) := p_segment29;
1005: l_parameter_temp(30) := p_segment30;
1006: --
1007: if g_debug then
1008: hr_utility.set_location(l_proc, 20);
1009: end if;
1010: --
1011: -- Check if any segments exist
1012: --
1021: loop
1022: l_parameter_sorted(i) := hr_api.g_varchar2;
1023: end loop;
1024: if g_debug then
1025: hr_utility.set_location(l_proc, 30);
1026: end if;
1027: --
1028: -- Populate SORTED segment array
1029: -- Bug fix 2148839
1049: end loop;
1050: close get_seg_order;
1051: close get_pop_segs;
1052: if g_debug then
1053: hr_utility.set_location(l_proc, 40);
1054: end if;
1055: --
1056: -- Verify whether sorted array has been created
1057: --
1058: if l_seg_count = 0 then
1059: --
1060: -- Error in creation
1061: --
1062: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1063: hr_utility.set_message_token('PROCEDURE', l_proc);
1064: hr_utility.set_message_token('STEP','40');
1065: hr_utility.raise_error;
1066: --
1059: --
1060: -- Error in creation
1061: --
1062: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1063: hr_utility.set_message_token('PROCEDURE', l_proc);
1064: hr_utility.set_message_token('STEP','40');
1065: hr_utility.raise_error;
1066: --
1067: end if;
1060: -- Error in creation
1061: --
1062: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1063: hr_utility.set_message_token('PROCEDURE', l_proc);
1064: hr_utility.set_message_token('STEP','40');
1065: hr_utility.raise_error;
1066: --
1067: end if;
1068: if g_debug then
1061: --
1062: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1063: hr_utility.set_message_token('PROCEDURE', l_proc);
1064: hr_utility.set_message_token('STEP','40');
1065: hr_utility.raise_error;
1066: --
1067: end if;
1068: if g_debug then
1069: hr_utility.set_location(l_proc, 50);
1065: hr_utility.raise_error;
1066: --
1067: end if;
1068: if g_debug then
1069: hr_utility.set_location(l_proc, 50);
1070: end if;
1071: --
1072: -- Pass back sorted segment array to calling procedure
1073: --
1075: --
1076: end if;
1077: --
1078: if g_debug then
1079: hr_utility.set_location('Leaving:'|| l_proc, 60);
1080: end if;
1081: end sort_segment_order;
1082: --
1083: -- ----------------------------------------------------------------------------
1137: --
1138: begin
1139: if g_debug then
1140: l_proc := 'check_pop_segments';
1141: hr_utility.set_location('Entering:'|| l_proc, 10);
1142: end if;
1143: --
1144: -- Fetch number of enabled segments in flex structure
1145: --
1148: ,p_flex_code
1149: ,p_application_id
1150: );
1151: if g_debug then
1152: hr_utility.set_location(l_proc, 20);
1153: end if;
1154: --
1155: -- Put segment values into a PL*SQL table
1156: --
1169: end if;
1170: end loop;
1171: --
1172: if g_debug then
1173: hr_utility.set_location(l_proc, 30);
1174: end if;
1175: --
1176: if l_no_pop_segments > l_no_segments then
1177: --
1186: return FALSE;
1187: end if;
1188: --
1189: if g_debug then
1190: hr_utility.set_location('Leaving:'|| l_proc, 40);
1191: end if;
1192: end check_pop_segments;
1193: -----------------------------------------------------------------------------
1194: -- ignore validation procedures using varry of flexcodes to ignore.
1198: --
1199: procedure create_ignore_kf_validation(p_rec in l_ignore_kfcode_varray) is
1200: l_proc varchar2(72);
1201: begin
1202: g_debug := hr_utility.debug_enabled;
1203: if g_debug then
1204: l_proc := 'create_ignore_kf_validation';
1205: hr_utility.set_location('Entering:'|| l_proc, 10);
1206: end if;
1201: begin
1202: g_debug := hr_utility.debug_enabled;
1203: if g_debug then
1204: l_proc := 'create_ignore_kf_validation';
1205: hr_utility.set_location('Entering:'|| l_proc, 10);
1206: end if;
1207: if p_rec.count <> 0
1208: then
1209: g_kfcode_structure := p_rec;
1208: then
1209: g_kfcode_structure := p_rec;
1210: end if;
1211: if g_debug then
1212: hr_utility.set_location('Leaving:'|| l_proc, 20);
1213: end if;
1214: End create_ignore_kf_validation;
1215: --
1216: -- user calls a population script to populate this array
1219: ----------------------------------------------------------------------------
1220: function check_ignore_varray(p_structure in varchar2) return boolean is
1221: l_proc varchar2(72);
1222: begin
1223: g_debug := hr_utility.debug_enabled;
1224: if g_debug then
1225: l_proc := 'check_ignore_varray';
1226: hr_utility.set_location('Entering:'|| l_proc, 10);
1227: end if;
1222: begin
1223: g_debug := hr_utility.debug_enabled;
1224: if g_debug then
1225: l_proc := 'check_ignore_varray';
1226: hr_utility.set_location('Entering:'|| l_proc, 10);
1227: end if;
1228: if g_kfcode_structure.count <> 0
1229: then
1230: for l_count in g_kfcode_structure.first..g_kfcode_structure.last
1236: end loop;
1237: end if;
1238: return false;
1239: if g_debug then
1240: hr_utility.set_location('Leaving:'|| l_proc, 20);
1241: end if;
1242: end;
1243: --
1244: ----------------------------------------------------------------------------
1246: ----------------------------------------------------------------------------
1247: procedure remove_ignore_kf_validation is
1248: l_proc varchar2(72);
1249: begin
1250: g_debug := hr_utility.debug_enabled;
1251: if g_debug then
1252: l_proc := 'remove_ignore_kf_validation';
1253: hr_utility.set_location('Entering:'|| l_proc, 10);
1254: end if;
1249: begin
1250: g_debug := hr_utility.debug_enabled;
1251: if g_debug then
1252: l_proc := 'remove_ignore_kf_validation';
1253: hr_utility.set_location('Entering:'|| l_proc, 10);
1254: end if;
1255: g_kfcode_structure.delete;
1256: if g_debug then
1257: hr_utility.set_location('Leaving:'|| l_proc, 20);
1253: hr_utility.set_location('Entering:'|| l_proc, 10);
1254: end if;
1255: g_kfcode_structure.delete;
1256: if g_debug then
1257: hr_utility.set_location('Leaving:'|| l_proc, 20);
1258: end if;
1259: end;
1260: --
1261: -- ----------------------------------------------------------------------------
1314: -- Bug fix 2148839.
1315: l_application_id number;
1316: --
1317: begin
1318: g_debug := hr_utility.debug_enabled;
1319: if g_debug then
1320: hr_utility.set_location('Entering:'|| l_proc, 10);
1321: end if;
1322: --
1316: --
1317: begin
1318: g_debug := hr_utility.debug_enabled;
1319: if g_debug then
1320: hr_utility.set_location('Entering:'|| l_proc, 10);
1321: end if;
1322: --
1323: -- Set up KF session mode
1324: --
1343: ,p_argument => 'flex_num'
1344: ,p_argument_value => p_flex_num
1345: );
1346: if g_debug then
1347: hr_utility.set_location(l_proc, 20);
1348: end if;
1349: --
1350: -- 2252580 ignore key flex validation if flexcode exists in varray:
1351: --
1353: --
1354: if check_ignore_varray(l_flex_code)
1355: then
1356: if g_debug then
1357: hr_utility.set_location(l_proc, 25);
1358: end if;
1359: -- 2252580 no validation required, exit procedure
1360: return;
1361: else
1365: -- have been passed in or a concatenated string of segments
1366: --
1367: if p_concat_segments_in is null then
1368: if g_debug then
1369: hr_utility.set_location(l_proc, 30);
1370: end if;
1371: -- Bug fix 2148839.
1372: -- function call to get application id.
1373: l_application_id := get_application_id( p_appl_short_name => p_appl_short_name );
1413: ,p_application_id => l_application_id
1414: ,p_parameter => l_parameter_sorted
1415: );
1416: if g_debug then
1417: hr_utility.set_location(l_proc, 40);
1418: end if;
1419: --
1420: -- Verify that number of populated segments
1421: -- passed in does exceed number of segments in
1452: l_parameter_temp(29) := p_segment29;
1453: l_parameter_temp(30) := p_segment30;
1454: --
1455: if g_debug then
1456: hr_utility.set_location(l_proc, 50);
1457: end if;
1458: --
1459: l_too_many_segs := check_pop_segments
1460: (p_parameter => l_parameter_temp
1464: ,p_application_id => l_application_id
1465: );
1466: --
1467: if g_debug then
1468: hr_utility.set_location(l_proc, 60);
1469: end if;
1470: --
1471: -- Call Wrapper flex handler to bring back CCID value
1472: --
1480: ,p_concat_segments_out => p_concat_segments_out
1481: );
1482: --
1483: if g_debug then
1484: hr_utility.set_location(l_proc, 70);
1485: end if;
1486: --
1487: else
1488: --
1486: --
1487: else
1488: --
1489: if g_debug then
1490: hr_utility.set_location(l_proc, 80);
1491: end if;
1492: --
1493: check_segment_combination
1494: (p_flex_num => p_flex_num
1499: ,p_concat_segments_out => p_concat_segments_out
1500: );
1501: --
1502: if g_debug then
1503: hr_utility.set_location(l_proc, 90);
1504: end if;
1505: --
1506: end if;
1507: --
1506: end if;
1507: --
1508: end if; -- end if keyflex code exists in ignore varray
1509: if g_debug then
1510: hr_utility.set_location('Leaving '|| l_proc, 100);
1511: end if;
1512: exception
1513: when app_exception.application_exception then
1514: if hr_multi_message.exception_add then
1512: exception
1513: when app_exception.application_exception then
1514: if hr_multi_message.exception_add then
1515: if g_debug then
1516: hr_utility.set_location(l_proc, 100);
1517: end if;
1518: raise;
1519: end if;
1520: if g_debug then
1517: end if;
1518: raise;
1519: end if;
1520: if g_debug then
1521: hr_utility.set_location(l_proc, 110);
1522: end if;
1523: end ins_or_sel_keyflex_comb;
1524: --
1525: -- ----------------------------------------------------------------------------
1652: and application_id = l_application_id --3456567 to avoid FTS
1653: order by to_number(substr(application_column_name,8,2));
1654: --
1655: begin
1656: g_debug := hr_utility.debug_enabled;
1657: if g_debug then
1658: hr_utility.set_location('Entering:'|| l_proc, 10);
1659: end if;
1660: --
1654: --
1655: begin
1656: g_debug := hr_utility.debug_enabled;
1657: if g_debug then
1658: hr_utility.set_location('Entering:'|| l_proc, 10);
1659: end if;
1660: --
1661: -- Set up KF session mode
1662: --
1682: ,p_argument_value => p_flex_num
1683: );
1684: --
1685: if g_debug then
1686: hr_utility.set_location(l_proc, 20);
1687: end if;
1688: --
1689: --
1690: -- 2252580 ignore key flex validation if flexcode exists in varray:
1693: --
1694: if check_ignore_varray(l_flex_code)
1695: then
1696: if g_debug then
1697: hr_utility.set_location(l_proc, 25);
1698: end if;
1699: -- no validation required, exit procedure
1700: return;
1701: else
1744: l_parameter_temp(29) := p_segment29;
1745: l_parameter_temp(30) := p_segment30;
1746: --
1747: if g_debug then
1748: hr_utility.set_location(l_proc, 30);
1749: end if;
1750: -- Bug fix 2148839.
1751: -- function call to get application id.
1752: l_application_id := get_application_id( p_appl_short_name => p_appl_short_name );
1792: ,p_parameter => l_parameter_new
1793: );
1794: --
1795: if g_debug then
1796: hr_utility.set_location(l_proc, 40);
1797: end if;
1798: --
1799: -- Initialize l_parameter_updated so that each cell in
1800: -- the segment array contains the hr_api.g_varchar2 default
1804: l_parameter_updated(i) := hr_api.g_varchar2;
1805: end loop;
1806: --
1807: if g_debug then
1808: hr_utility.set_location(l_proc, 50);
1809: end if;
1810: --
1811: -- Fetch the existing segment array for the CCID passed in
1812: --
1817: ,combination_id => p_ccid
1818: )
1819: then
1820: if g_debug then
1821: hr_utility.set_location(l_proc, 60);
1822: end if;
1823:
1824: -- Retrieve concatenated id segment string
1825: --
1846: -- correct segment count and also initialise the array to null.
1847: --
1848: l_no_segments:=fnd_flex_keyval.segment_count;
1849: if g_debug then
1850: hr_utility.set_location(l_proc, 70);
1851: end if;
1852: --
1853: if l_no_segments > 0 and l_parameter_original.count = 0 then
1854: for i in 1..l_no_segments loop
1891: fnd_message.raise_error;
1892: end if;
1893: --
1894: if g_debug then
1895: hr_utility.set_location(l_proc, 80);
1896: end if;
1897: --
1898: -- Verify that number of populated segments passed in does exceed
1899: -- number of segments in flexfield structure.
1910: ,p_application_id => l_application_id
1911: );
1912: --
1913: if g_debug then
1914: hr_utility.set_location(l_proc, 90);
1915: end if;
1916: --
1917: -- Call Wrapper flex handler to bring back new CCID value
1918:
1925: ,p_ccid => p_ccid
1926: ,p_concat_segments_out => p_concat_segments_out
1927: );
1928: if g_debug then
1929: hr_utility.set_location(l_proc, 100);
1930: end if;
1931: --
1932: else
1933: if g_debug then
1930: end if;
1931: --
1932: else
1933: if g_debug then
1934: hr_utility.set_location(l_proc, 110);
1935: end if;
1936: --
1937: check_segment_combination
1938: (p_appl_short_name => p_appl_short_name
1942: ,p_ccid => p_ccid
1943: ,p_concat_segments_out => p_concat_segments_out
1944: );
1945: if g_debug then
1946: hr_utility.set_location(l_proc, 120);
1947: end if;
1948: --
1949: end if;
1950: else
1953: -- so although an update to the assignment we are inserting the keyflex
1954: -- so just call ins_or_sel_keyflex_comb.
1955: --
1956: if g_debug then
1957: hr_utility.set_location(' Seg3 '||p_segment3,101);
1958: end if;
1959: --
1960: if p_segment1 = hr_api.g_varchar2 then
1961: l_segment1 := null;
2184: );
2185: end if;
2186: --
2187: if g_debug then
2188: hr_utility.set_location('Leaving '|| l_proc, 130);
2189: end if;
2190: end if; -- if flex code in varray
2191: exception
2192: when app_exception.application_exception then
2191: exception
2192: when app_exception.application_exception then
2193: if hr_multi_message.exception_add then
2194: if g_debug then
2195: hr_utility.set_location('Leaving '|| l_proc, 140);
2196: end if;
2197: raise;
2198: end if;
2199: if g_debug then
2196: end if;
2197: raise;
2198: end if;
2199: if g_debug then
2200: hr_utility.set_location('Leaving '|| l_proc, 150);
2201: end if;
2202: when others then
2203: if hr_multi_message.exception_add then
2204: if g_debug then
2201: end if;
2202: when others then
2203: if hr_multi_message.exception_add then
2204: if g_debug then
2205: hr_utility.set_location('Leaving '|| l_proc, 160);
2206: end if;
2207: fnd_message.raise_error;
2208: end if;
2209: if g_debug then
2206: end if;
2207: fnd_message.raise_error;
2208: end if;
2209: if g_debug then
2210: hr_utility.set_location('Leaving '|| l_proc, 170);
2211: end if;
2212: --reset out vaiables
2213: -- added for NOCOPY compliance
2214: p_ccid:=null;
2229: --
2230: l_proc varchar2(72);
2231: --
2232: begin
2233: g_debug := hr_utility.debug_enabled;
2234: --
2235: if g_debug then
2236: l_proc := g_package||' set_profiles';
2237: hr_utility.set_location('Entering '||l_proc,5);
2233: g_debug := hr_utility.debug_enabled;
2234: --
2235: if g_debug then
2236: l_proc := g_package||' set_profiles';
2237: hr_utility.set_location('Entering '||l_proc,5);
2238: end if;
2239: --
2240: fnd_profile.put('PER_ASSIGNMENT_ID',p_assignment_id);
2241: if g_debug then
2238: end if;
2239: --
2240: fnd_profile.put('PER_ASSIGNMENT_ID',p_assignment_id);
2241: if g_debug then
2242: hr_utility.set_location(l_proc,10);
2243: end if;
2244: --
2245: if nvl(p_business_group_id,-1) <> hr_api.g_number then
2246: fnd_profile.put('PER_BUSINESS_GROUP_ID',p_business_group_id);
2244: --
2245: if nvl(p_business_group_id,-1) <> hr_api.g_number then
2246: fnd_profile.put('PER_BUSINESS_GROUP_ID',p_business_group_id);
2247: if g_debug then
2248: hr_utility.set_location(l_proc,20);
2249: end if;
2250: end if;
2251: --
2252: fnd_profile.put('PER_ORGANIZATION_ID',p_organization_id);
2250: end if;
2251: --
2252: fnd_profile.put('PER_ORGANIZATION_ID',p_organization_id);
2253: if g_debug then
2254: hr_utility.set_location(l_proc,30);
2255: end if;
2256: --
2257: fnd_profile.put('PER_LOCATION_ID',p_location_id);
2258: if g_debug then
2255: end if;
2256: --
2257: fnd_profile.put('PER_LOCATION_ID',p_location_id);
2258: if g_debug then
2259: hr_utility.set_location(l_proc,40);
2260: end if;
2261: --
2262: if g_debug then
2263: hr_utility.set_location('Leaving '||l_proc,100);
2259: hr_utility.set_location(l_proc,40);
2260: end if;
2261: --
2262: if g_debug then
2263: hr_utility.set_location('Leaving '||l_proc,100);
2264: end if;
2265: --
2266: end set_profiles;
2267: --
2281: where session_id=userenv('sessionid');
2282: --
2283: l_dummy number;
2284: begin
2285: g_debug := hr_utility.debug_enabled;
2286: --
2287: if g_debug then
2288: l_proc := g_package||' set_session_date';
2289: hr_utility.set_location('Entering '||l_proc,5);
2285: g_debug := hr_utility.debug_enabled;
2286: --
2287: if g_debug then
2288: l_proc := g_package||' set_session_date';
2289: hr_utility.set_location('Entering '||l_proc,5);
2290: end if;
2291: --
2292: open date_set;
2293: fetch date_set into l_dummy;
2292: open date_set;
2293: fetch date_set into l_dummy;
2294: if date_set%found then
2295: if g_debug then
2296: hr_utility.set_location(l_proc,20);
2297: end if;
2298: p_session_id:=-1;
2299: else
2300: if g_debug then
2297: end if;
2298: p_session_id:=-1;
2299: else
2300: if g_debug then
2301: hr_utility.set_location(l_proc,30);
2302: end if;
2303: dt_fndate.set_effective_date(trunc(p_effective_Date));
2304: -- insert into fnd_sessions
2305: -- values
2308: p_session_id:=userenv('sessionid');
2309: end if;
2310: --
2311: if g_debug then
2312: hr_utility.set_location('Leaving '||l_proc,100);
2313: end if;
2314: --
2315: end set_session_date;
2316: --
2322: (p_session_id in number
2323: ) is
2324: l_proc varchar2(72);
2325: begin
2326: g_debug := hr_utility.debug_enabled;
2327: if g_debug then
2328: l_proc := g_package||' unset_session_date';
2329: hr_utility.set_location('Entering '||l_proc,5);
2330: end if;
2325: begin
2326: g_debug := hr_utility.debug_enabled;
2327: if g_debug then
2328: l_proc := g_package||' unset_session_date';
2329: hr_utility.set_location('Entering '||l_proc,5);
2330: end if;
2331: --
2332: if nvl(p_session_id,-1)<>-1 then
2333: if g_debug then
2330: end if;
2331: --
2332: if nvl(p_session_id,-1)<>-1 then
2333: if g_debug then
2334: hr_utility.set_location(l_proc,10);
2335: end if;
2336: delete from fnd_sessions
2337: where session_id=p_session_id;
2338: end if;
2337: where session_id=p_session_id;
2338: end if;
2339: --
2340: if g_debug then
2341: hr_utility.set_location('Leaving '||l_proc,100);
2342: end if;
2343: --
2344: end unset_session_date;
2345: --
2418: dbms_session.set_nls('NLS_LANGUAGE', ''''||p_nls_language||''''); -- Bug #2958520
2419: fnd_flex_ext.clear_ccid_cache;
2420: exception
2421: when others then
2422: hr_utility.set_location('Error in '||l_proc, 99);
2423: raise;
2424: end;
2425: --
2426: --