[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
374: p_concat_segments_out := fnd_flex_keyval.concatenated_values;
375: --
376:
377: if g_debug then
378: hr_utility.set_location(l_proc, 30);
379: end if;
380: else
381: if g_debug then
382: hr_utility.set_location(l_proc, 40);
378: hr_utility.set_location(l_proc, 30);
379: end if;
380: else
381: if g_debug then
382: hr_utility.set_location(l_proc, 40);
383: end if;
384: --
385: -- Raise or trap the AOL error
386: --
384: --
385: -- Raise or trap the AOL error
386: --
387: if g_debug then
388: hr_utility.set_location(l_proc, 41);
389: end if;
390: --
391: -- The FND FLEX KEYVAL package makes a call to FND MESSAGE
392: -- get encoded
392: -- get encoded
393: hr_message.parse_encoded(p_encoded_error =>
394: FND_FLEX_KEYVAL.encoded_error_message);
395: if g_debug then
396: hr_utility.set_location(l_proc, 42);
397: end if;
398: --
399: if ((hr_message.last_message_app = 'FND') and
400: (hr_message.last_message_name = 'FLEX-VALUE NOT FOUND')) then
399: if ((hr_message.last_message_app = 'FND') and
400: (hr_message.last_message_name = 'FLEX-VALUE NOT FOUND')) then
401: --
402: if g_debug then
403: hr_utility.set_location(l_proc, 44);
404: end if;
405: --
406: -- In this case, there was an invalid segment, or context.
407: -- We must allow for the possibility that the context value
421: p_form_left_prompt => l_flex_seg_error_prompt,
422: p_table_name => l_table_name
423: );
424: if g_debug then
425: hr_utility.set_location(l_proc, 46);
426: end if;
427: value := hr_message.get_token_value(p_token_name => 'VALUE');
428: --
429: -- Now have the additional error information, raise a different error
437: (p_associated_column1 => l_table_name || '.' || app_col_name);
438: elsif hr_message.last_message_app = 'FND' and
439: hr_message.last_message_name = 'FLEX-NULL SEGMENT' then
440: if g_debug then
441: hr_utility.set_location(l_proc, 50);
442: end if;
443: --
444: -- Work out which segment is in error. Replace the error message
445: -- by a more useful one.
457: --
458: -- Raise the alternative error.
459: --
460: if g_debug then
461: hr_utility.set_location(l_proc, 55);
462: end if;
463: fnd_message.set_name('PER','HR_FLEX_VALUE_MISSING');
464: fnd_message.set_token('COLUMN',app_col_name);
465: fnd_message.set_token('PROMPT',l_flex_seg_error_prompt);
470: -- Some other non-expected error, simply raise the error in the
471: -- previous fashion.
472: --
473: if g_debug then
474: hr_utility.set_location(l_proc, 60);
475: end if;
476: --
477: -- Raise the AOL error
478: --
482: end if;
483: end if;
484: --
485: if g_debug then
486: hr_utility.set_location(' Leaving '||l_proc, 100);
487: end if;
488: --
489: end check_segment_combination;
490: --
578: -- Bug 3897294 Ends
579: begin
580: if g_debug then
581: l_proc := 'check_segment_combination';
582: hr_utility.set_location('Entering:'|| l_proc, 10);
583: end if;
584: --
585: -- Calls function to return delimeter for relevant flexfield
586: -- structure
601: );
602: -- Bug 3897294 Ends
603: --
604: if g_debug then
605: hr_utility.set_location(l_proc, 20);
606: end if;
607: --
608: -- Convert segment array structure into concatenated string
609: --
610: -- Check if any segment values are populated
611: --
612: if p_parameter.count > 0 then
613: if g_debug then
614: hr_utility.set_location(l_proc, 30);
615: end if;
616:
617: -- Initialize the concatenated sring
618: --
627: --
628: l_segment_value := p_parameter(l_seg_plsql_row_num);
629: --
630: if g_debug then
631: hr_utility.set_location('This is the seg val'||length(l_segment_value),100);
632: end if;
633: if l_segment_value <> hr_api.g_varchar2
634: or l_segment_value is null
635: then
679: --
680: end if;
681: --
682: if g_debug then
683: hr_utility.set_location(l_proc, 45);
684: end if;
685: --
686: -- Check for too many segments in segment structure.
687: -- If too many exist, force AOL to produce appropriate
691:
692: l_concat_string := l_concat_string||l_delimiter;
693: end if;
694: --
695: -- Stop overflow of hr_utility by restricting using substr.
696: -- WWBUG 1812106.
697: --
698: if g_debug then
699: hr_utility.set_location('=>'||substr(l_concat_string,1,80),48);
695: -- Stop overflow of hr_utility by restricting using substr.
696: -- WWBUG 1812106.
697: --
698: if g_debug then
699: hr_utility.set_location('=>'||substr(l_concat_string,1,80),48);
700: end if;
701:
702: if g_debug then
703: hr_utility.set_location(l_proc,50);
699: hr_utility.set_location('=>'||substr(l_concat_string,1,80),48);
700: end if;
701:
702: if g_debug then
703: hr_utility.set_location(l_proc,50);
704: end if;
705: --
706: --3171225 start
707: l_effective_date:=to_date(null);
708: open date_set;
709: fetch date_set into l_effective_date;
710: if date_set%found then
711: if g_debug then
712: hr_utility.set_location(l_proc,53);
713: end if;
714: close date_set;
715: else
716: if g_debug then
713: end if;
714: close date_set;
715: else
716: if g_debug then
717: hr_utility.set_location(l_proc,55);
718: end if;
719: close date_set;
720: l_effective_date := trunc(sysdate);
721: end if;
733: ,validation_date => nvl(l_effective_date,trunc(sysdate)) --3171225
734: )
735: then
736: if g_debug then
737: hr_utility.set_location(l_proc, 60);
738: end if;
739: --
740: -- Flex routine succeeds - fetch relevant ccid
741: -- and concatenated segment string
743: p_ccid := fnd_flex_keyval.combination_id;
744: p_concat_segments_out := fnd_flex_keyval.concatenated_values;
745: --
746: if g_debug then
747: hr_utility.set_location(l_proc, 70);
748: end if;
749: --
750: else
751: if g_debug then
748: end if;
749: --
750: else
751: if g_debug then
752: hr_utility.set_location(l_proc, 80);
753: end if;
754: --
755: -- Raise or trap the AOL error
756: --
754: --
755: -- Raise or trap the AOL error
756: --
757: if g_debug then
758: hr_utility.set_location(l_proc, 81);
759: end if;
760: --
761: -- The FND FLEX KEYVAL package makes a call to FND MESSAGE
762: -- get encoded
762: -- get encoded
763: hr_message.parse_encoded(p_encoded_error =>
764: FND_FLEX_KEYVAL.encoded_error_message);
765: if g_debug then
766: hr_utility.set_location(l_proc, 82);
767: end if;
768: --
769: if ((hr_message.last_message_app = 'FND') and
770: (hr_message.last_message_name = 'FLEX-VALUE NOT FOUND')) then
769: if ((hr_message.last_message_app = 'FND') and
770: (hr_message.last_message_name = 'FLEX-VALUE NOT FOUND')) then
771: --
772: if g_debug then
773: hr_utility.set_location(l_proc, 84);
774: end if;
775: --
776: -- In this case, there was an invalid segment, or context.
777: -- We must allow for the possibility that the context value
791: p_form_left_prompt => l_flex_seg_error_prompt,
792: p_table_name => l_table_name
793: );
794: if g_debug then
795: hr_utility.set_location(l_proc, 86);
796: end if;
797: --
798: value := hr_message.get_token_value(p_token_name => 'VALUE');
799: --
808: (p_associated_column1 => l_table_name || '.' || app_col_name);
809: elsif hr_message.last_message_app = 'FND' and
810: hr_message.last_message_name = 'FLEX-NULL SEGMENT' then
811: if g_debug then
812: hr_utility.set_location(l_proc, 90);
813: end if;
814: --
815: -- Work out which segment is in error. Replace the error message
816: -- by a more useful one.
828: --
829: -- Raise the alternative error.
830: --
831: if g_debug then
832: hr_utility.set_location(l_proc, 95);
833: end if;
834: fnd_message.set_name('PER','HR_FLEX_VALUE_MISSING');
835: fnd_message.set_token('COLUMN',app_col_name);
836: fnd_message.set_token('PROMPT',l_flex_seg_error_prompt);
844:
845: -- Raise the AOL error
846: --
847: if g_debug then
848: hr_utility.set_location(l_proc, 100);
849: end if;
850: -- fnd_message.set_name('FND',hr_message.last_message_name); Fix for the bug 15845677
851: fnd_message.set_encoded(fnd_flex_keyval.encoded_error_message);
852: fnd_message.raise_error;
854: end if;
855: end if;
856: --
857: if g_debug then
858: hr_utility.set_location(' Leaving:'||l_proc, 200);
859: end if;
860: --
861: end check_segment_combination;
862: --
975: begin
976:
977: if g_debug then
978: l_proc := 'sort_segment_order';
979: hr_utility.set_location('Entering:'|| l_proc, 10);
980: end if;
981: --
982: -- Assign all segments values to a temporary PLSQL
983: -- table or Segment Array
1013: l_parameter_temp(29) := p_segment29;
1014: l_parameter_temp(30) := p_segment30;
1015: --
1016: if g_debug then
1017: hr_utility.set_location(l_proc, 20);
1018: end if;
1019: --
1020: -- Check if any segments exist
1021: --
1030: loop
1031: l_parameter_sorted(i) := hr_api.g_varchar2;
1032: end loop;
1033: if g_debug then
1034: hr_utility.set_location(l_proc, 30);
1035: end if;
1036: --
1037: -- Populate SORTED segment array
1038: -- Bug fix 2148839
1058: end loop;
1059: close get_seg_order;
1060: close get_pop_segs;
1061: if g_debug then
1062: hr_utility.set_location(l_proc, 40);
1063: end if;
1064: --
1065: -- Verify whether sorted array has been created
1066: --
1067: if l_seg_count = 0 then
1068: --
1069: -- Error in creation
1070: --
1071: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1072: hr_utility.set_message_token('PROCEDURE', l_proc);
1073: hr_utility.set_message_token('STEP','40');
1074: hr_utility.raise_error;
1075: --
1068: --
1069: -- Error in creation
1070: --
1071: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1072: hr_utility.set_message_token('PROCEDURE', l_proc);
1073: hr_utility.set_message_token('STEP','40');
1074: hr_utility.raise_error;
1075: --
1076: end if;
1069: -- Error in creation
1070: --
1071: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1072: hr_utility.set_message_token('PROCEDURE', l_proc);
1073: hr_utility.set_message_token('STEP','40');
1074: hr_utility.raise_error;
1075: --
1076: end if;
1077: if g_debug then
1070: --
1071: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1072: hr_utility.set_message_token('PROCEDURE', l_proc);
1073: hr_utility.set_message_token('STEP','40');
1074: hr_utility.raise_error;
1075: --
1076: end if;
1077: if g_debug then
1078: hr_utility.set_location(l_proc, 50);
1074: hr_utility.raise_error;
1075: --
1076: end if;
1077: if g_debug then
1078: hr_utility.set_location(l_proc, 50);
1079: end if;
1080: --
1081: -- Pass back sorted segment array to calling procedure
1082: --
1084: --
1085: end if;
1086: --
1087: if g_debug then
1088: hr_utility.set_location('Leaving:'|| l_proc, 60);
1089: end if;
1090: end sort_segment_order;
1091: --
1092: -- ----------------------------------------------------------------------------
1146: --
1147: begin
1148: if g_debug then
1149: l_proc := 'check_pop_segments';
1150: hr_utility.set_location('Entering:'|| l_proc, 10);
1151: end if;
1152: --
1153: -- Fetch number of enabled segments in flex structure
1154: --
1157: ,p_flex_code
1158: ,p_application_id
1159: );
1160: if g_debug then
1161: hr_utility.set_location(l_proc, 20);
1162: end if;
1163: --
1164: -- Put segment values into a PL*SQL table
1165: --
1178: end if;
1179: end loop;
1180: --
1181: if g_debug then
1182: hr_utility.set_location(l_proc, 30);
1183: end if;
1184: --
1185: if l_no_pop_segments > l_no_segments then
1186: --
1195: return FALSE;
1196: end if;
1197: --
1198: if g_debug then
1199: hr_utility.set_location('Leaving:'|| l_proc, 40);
1200: end if;
1201: end check_pop_segments;
1202: -----------------------------------------------------------------------------
1203: -- ignore validation procedures using varry of flexcodes to ignore.
1207: --
1208: procedure create_ignore_kf_validation(p_rec in l_ignore_kfcode_varray) is
1209: l_proc varchar2(72);
1210: begin
1211: g_debug := hr_utility.debug_enabled;
1212: if g_debug then
1213: l_proc := 'create_ignore_kf_validation';
1214: hr_utility.set_location('Entering:'|| l_proc, 10);
1215: end if;
1210: begin
1211: g_debug := hr_utility.debug_enabled;
1212: if g_debug then
1213: l_proc := 'create_ignore_kf_validation';
1214: hr_utility.set_location('Entering:'|| l_proc, 10);
1215: end if;
1216: if p_rec.count <> 0
1217: then
1218: g_kfcode_structure := p_rec;
1217: then
1218: g_kfcode_structure := p_rec;
1219: end if;
1220: if g_debug then
1221: hr_utility.set_location('Leaving:'|| l_proc, 20);
1222: end if;
1223: End create_ignore_kf_validation;
1224: --
1225: -- user calls a population script to populate this array
1228: ----------------------------------------------------------------------------
1229: function check_ignore_varray(p_structure in varchar2) return boolean is
1230: l_proc varchar2(72);
1231: begin
1232: g_debug := hr_utility.debug_enabled;
1233: if g_debug then
1234: l_proc := 'check_ignore_varray';
1235: hr_utility.set_location('Entering:'|| l_proc, 10);
1236: end if;
1231: begin
1232: g_debug := hr_utility.debug_enabled;
1233: if g_debug then
1234: l_proc := 'check_ignore_varray';
1235: hr_utility.set_location('Entering:'|| l_proc, 10);
1236: end if;
1237: if g_kfcode_structure.count <> 0
1238: then
1239: for l_count in g_kfcode_structure.first..g_kfcode_structure.last
1245: end loop;
1246: end if;
1247: return false;
1248: if g_debug then
1249: hr_utility.set_location('Leaving:'|| l_proc, 20);
1250: end if;
1251: end;
1252: --
1253: ----------------------------------------------------------------------------
1255: ----------------------------------------------------------------------------
1256: procedure remove_ignore_kf_validation is
1257: l_proc varchar2(72);
1258: begin
1259: g_debug := hr_utility.debug_enabled;
1260: if g_debug then
1261: l_proc := 'remove_ignore_kf_validation';
1262: hr_utility.set_location('Entering:'|| l_proc, 10);
1263: end if;
1258: begin
1259: g_debug := hr_utility.debug_enabled;
1260: if g_debug then
1261: l_proc := 'remove_ignore_kf_validation';
1262: hr_utility.set_location('Entering:'|| l_proc, 10);
1263: end if;
1264: g_kfcode_structure.delete;
1265: if g_debug then
1266: hr_utility.set_location('Leaving:'|| l_proc, 20);
1262: hr_utility.set_location('Entering:'|| l_proc, 10);
1263: end if;
1264: g_kfcode_structure.delete;
1265: if g_debug then
1266: hr_utility.set_location('Leaving:'|| l_proc, 20);
1267: end if;
1268: end;
1269: --
1270: -- ----------------------------------------------------------------------------
1323: -- Bug fix 2148839.
1324: l_application_id number;
1325: --
1326: begin
1327: g_debug := hr_utility.debug_enabled;
1328: if g_debug then
1329: hr_utility.set_location('Entering:'|| l_proc, 10);
1330: end if;
1331: --
1325: --
1326: begin
1327: g_debug := hr_utility.debug_enabled;
1328: if g_debug then
1329: hr_utility.set_location('Entering:'|| l_proc, 10);
1330: end if;
1331: --
1332: -- Set up KF session mode
1333: --
1352: ,p_argument => 'flex_num'
1353: ,p_argument_value => p_flex_num
1354: );
1355: if g_debug then
1356: hr_utility.set_location(l_proc, 20);
1357: end if;
1358: --
1359: -- 2252580 ignore key flex validation if flexcode exists in varray:
1360: --
1362: --
1363: if check_ignore_varray(l_flex_code)
1364: then
1365: if g_debug then
1366: hr_utility.set_location(l_proc, 25);
1367: end if;
1368: -- 2252580 no validation required, exit procedure
1369: return;
1370: else
1374: -- have been passed in or a concatenated string of segments
1375: --
1376: if p_concat_segments_in is null then
1377: if g_debug then
1378: hr_utility.set_location(l_proc, 30);
1379: end if;
1380: -- Bug fix 2148839.
1381: -- function call to get application id.
1382: l_application_id := get_application_id( p_appl_short_name => p_appl_short_name );
1422: ,p_application_id => l_application_id
1423: ,p_parameter => l_parameter_sorted
1424: );
1425: if g_debug then
1426: hr_utility.set_location(l_proc, 40);
1427: end if;
1428: --
1429: -- Verify that number of populated segments
1430: -- passed in does exceed number of segments in
1461: l_parameter_temp(29) := p_segment29;
1462: l_parameter_temp(30) := p_segment30;
1463: --
1464: if g_debug then
1465: hr_utility.set_location(l_proc, 50);
1466: end if;
1467: --
1468: l_too_many_segs := check_pop_segments
1469: (p_parameter => l_parameter_temp
1473: ,p_application_id => l_application_id
1474: );
1475: --
1476: if g_debug then
1477: hr_utility.set_location(l_proc, 60);
1478: end if;
1479: --
1480: -- Call Wrapper flex handler to bring back CCID value
1481: --
1489: ,p_concat_segments_out => p_concat_segments_out
1490: );
1491: --
1492: if g_debug then
1493: hr_utility.set_location(l_proc, 70);
1494: end if;
1495: --
1496: else
1497: --
1495: --
1496: else
1497: --
1498: if g_debug then
1499: hr_utility.set_location(l_proc, 80);
1500: end if;
1501: --
1502: check_segment_combination
1503: (p_flex_num => p_flex_num
1508: ,p_concat_segments_out => p_concat_segments_out
1509: );
1510: --
1511: if g_debug then
1512: hr_utility.set_location(l_proc, 90);
1513: end if;
1514: --
1515: end if;
1516: --
1515: end if;
1516: --
1517: end if; -- end if keyflex code exists in ignore varray
1518: if g_debug then
1519: hr_utility.set_location('Leaving '|| l_proc, 100);
1520: end if;
1521: exception
1522: when app_exception.application_exception then
1523: if hr_multi_message.exception_add then
1521: exception
1522: when app_exception.application_exception then
1523: if hr_multi_message.exception_add then
1524: if g_debug then
1525: hr_utility.set_location(l_proc, 100);
1526: end if;
1527: raise;
1528: end if;
1529: if g_debug then
1526: end if;
1527: raise;
1528: end if;
1529: if g_debug then
1530: hr_utility.set_location(l_proc, 110);
1531: end if;
1532: end ins_or_sel_keyflex_comb;
1533: --
1534: -- ----------------------------------------------------------------------------
1661: and application_id = l_application_id --3456567 to avoid FTS
1662: order by to_number(substr(application_column_name,8,2));
1663: --
1664: begin
1665: g_debug := hr_utility.debug_enabled;
1666: if g_debug then
1667: hr_utility.set_location('Entering:'|| l_proc, 10);
1668: end if;
1669: --
1663: --
1664: begin
1665: g_debug := hr_utility.debug_enabled;
1666: if g_debug then
1667: hr_utility.set_location('Entering:'|| l_proc, 10);
1668: end if;
1669: --
1670: -- Set up KF session mode
1671: --
1691: ,p_argument_value => p_flex_num
1692: );
1693: --
1694: if g_debug then
1695: hr_utility.set_location(l_proc, 20);
1696: end if;
1697: --
1698: --
1699: -- 2252580 ignore key flex validation if flexcode exists in varray:
1702: --
1703: if check_ignore_varray(l_flex_code)
1704: then
1705: if g_debug then
1706: hr_utility.set_location(l_proc, 25);
1707: end if;
1708: -- no validation required, exit procedure
1709: return;
1710: else
1753: l_parameter_temp(29) := p_segment29;
1754: l_parameter_temp(30) := p_segment30;
1755: --
1756: if g_debug then
1757: hr_utility.set_location(l_proc, 30);
1758: end if;
1759: -- Bug fix 2148839.
1760: -- function call to get application id.
1761: l_application_id := get_application_id( p_appl_short_name => p_appl_short_name );
1801: ,p_parameter => l_parameter_new
1802: );
1803: --
1804: if g_debug then
1805: hr_utility.set_location(l_proc, 40);
1806: end if;
1807: --
1808: -- Initialize l_parameter_updated so that each cell in
1809: -- the segment array contains the hr_api.g_varchar2 default
1813: l_parameter_updated(i) := hr_api.g_varchar2;
1814: end loop;
1815: --
1816: if g_debug then
1817: hr_utility.set_location(l_proc, 50);
1818: end if;
1819: --
1820: -- Fetch the existing segment array for the CCID passed in
1821: --
1826: ,combination_id => p_ccid
1827: )
1828: then
1829: if g_debug then
1830: hr_utility.set_location(l_proc, 60);
1831: end if;
1832:
1833: -- Retrieve concatenated id segment string
1834: --
1855: -- correct segment count and also initialise the array to null.
1856: --
1857: l_no_segments:=fnd_flex_keyval.segment_count;
1858: if g_debug then
1859: hr_utility.set_location(l_proc, 70);
1860: end if;
1861: --
1862: if l_no_segments > 0 and l_parameter_original.count = 0 then
1863: for i in 1..l_no_segments loop
1900: fnd_message.raise_error;
1901: end if;
1902: --
1903: if g_debug then
1904: hr_utility.set_location(l_proc, 80);
1905: end if;
1906: --
1907: -- Verify that number of populated segments passed in does exceed
1908: -- number of segments in flexfield structure.
1919: ,p_application_id => l_application_id
1920: );
1921: --
1922: if g_debug then
1923: hr_utility.set_location(l_proc, 90);
1924: end if;
1925: --
1926: -- Call Wrapper flex handler to bring back new CCID value
1927:
1934: ,p_ccid => p_ccid
1935: ,p_concat_segments_out => p_concat_segments_out
1936: );
1937: if g_debug then
1938: hr_utility.set_location(l_proc, 100);
1939: end if;
1940: --
1941: else
1942: if g_debug then
1939: end if;
1940: --
1941: else
1942: if g_debug then
1943: hr_utility.set_location(l_proc, 110);
1944: end if;
1945: --
1946: check_segment_combination
1947: (p_appl_short_name => p_appl_short_name
1951: ,p_ccid => p_ccid
1952: ,p_concat_segments_out => p_concat_segments_out
1953: );
1954: if g_debug then
1955: hr_utility.set_location(l_proc, 120);
1956: end if;
1957: --
1958: end if;
1959: else
1962: -- so although an update to the assignment we are inserting the keyflex
1963: -- so just call ins_or_sel_keyflex_comb.
1964: --
1965: if g_debug then
1966: hr_utility.set_location(' Seg3 '||p_segment3,101);
1967: end if;
1968: --
1969: if p_segment1 = hr_api.g_varchar2 then
1970: l_segment1 := null;
2193: );
2194: end if;
2195: --
2196: if g_debug then
2197: hr_utility.set_location('Leaving '|| l_proc, 130);
2198: end if;
2199: end if; -- if flex code in varray
2200: exception
2201: when app_exception.application_exception then
2200: exception
2201: when app_exception.application_exception then
2202: if hr_multi_message.exception_add then
2203: if g_debug then
2204: hr_utility.set_location('Leaving '|| l_proc, 140);
2205: end if;
2206: raise;
2207: end if;
2208: if g_debug then
2205: end if;
2206: raise;
2207: end if;
2208: if g_debug then
2209: hr_utility.set_location('Leaving '|| l_proc, 150);
2210: end if;
2211: when others then
2212: if hr_multi_message.exception_add then
2213: if g_debug then
2210: end if;
2211: when others then
2212: if hr_multi_message.exception_add then
2213: if g_debug then
2214: hr_utility.set_location('Leaving '|| l_proc, 160);
2215: end if;
2216: fnd_message.raise_error;
2217: end if;
2218: if g_debug then
2215: end if;
2216: fnd_message.raise_error;
2217: end if;
2218: if g_debug then
2219: hr_utility.set_location('Leaving '|| l_proc, 170);
2220: end if;
2221: --reset out vaiables
2222: -- added for NOCOPY compliance
2223: p_ccid:=null;
2239: --
2240: l_proc varchar2(72):=' hr_kflex_utility.set_profiles ';
2241: --
2242: begin
2243: g_debug := hr_utility.debug_enabled;
2244: --
2245: if g_debug then
2246: l_proc := g_package||' set_profiles';
2247: hr_utility.set_location('Entering '||l_proc,5);
2243: g_debug := hr_utility.debug_enabled;
2244: --
2245: if g_debug then
2246: l_proc := g_package||' set_profiles';
2247: hr_utility.set_location('Entering '||l_proc,5);
2248: end if;
2249: --
2250: fnd_profile.put('PER_ASSIGNMENT_ID',p_assignment_id);
2251: if g_debug then
2248: end if;
2249: --
2250: fnd_profile.put('PER_ASSIGNMENT_ID',p_assignment_id);
2251: if g_debug then
2252: hr_utility.set_location(l_proc,10);
2253: end if;
2254: --
2255: if nvl(p_business_group_id,-1) <> hr_api.g_number then
2256: fnd_profile.put('PER_BUSINESS_GROUP_ID',p_business_group_id);
2254: --
2255: if nvl(p_business_group_id,-1) <> hr_api.g_number then
2256: fnd_profile.put('PER_BUSINESS_GROUP_ID',p_business_group_id);
2257: if g_debug then
2258: hr_utility.set_location(l_proc,20);
2259: end if;
2260: end if;
2261: --
2262: fnd_profile.put('PER_ORGANIZATION_ID',p_organization_id);
2260: end if;
2261: --
2262: fnd_profile.put('PER_ORGANIZATION_ID',p_organization_id);
2263: if g_debug then
2264: hr_utility.set_location(l_proc,30);
2265: end if;
2266: --
2267: fnd_profile.put('PER_LOCATION_ID',p_location_id);
2268: if g_debug then
2265: end if;
2266: --
2267: fnd_profile.put('PER_LOCATION_ID',p_location_id);
2268: if g_debug then
2269: hr_utility.set_location(l_proc,40);
2270: end if;
2271: --
2272: fnd_profile.put('PER_PERSON_ID',P_PERSON_ID);
2273: if g_debug then
2270: end if;
2271: --
2272: fnd_profile.put('PER_PERSON_ID',P_PERSON_ID);
2273: if g_debug then
2274: hr_utility.set_location(l_proc,50);
2275: end if;
2276:
2277: if g_debug then
2278: hr_utility.set_location('Leaving '||l_proc,100);
2274: hr_utility.set_location(l_proc,50);
2275: end if;
2276:
2277: if g_debug then
2278: hr_utility.set_location('Leaving '||l_proc,100);
2279: end if;
2280: --
2281: end set_profiles;
2282: --
2296: where session_id=userenv('sessionid');
2297: --
2298: l_dummy number;
2299: begin
2300: g_debug := hr_utility.debug_enabled;
2301: --
2302: if g_debug then
2303: l_proc := g_package||' set_session_date';
2304: hr_utility.set_location('Entering '||l_proc,5);
2300: g_debug := hr_utility.debug_enabled;
2301: --
2302: if g_debug then
2303: l_proc := g_package||' set_session_date';
2304: hr_utility.set_location('Entering '||l_proc,5);
2305: end if;
2306: --
2307: open date_set;
2308: fetch date_set into l_dummy;
2307: open date_set;
2308: fetch date_set into l_dummy;
2309: if date_set%found then
2310: if g_debug then
2311: hr_utility.set_location(l_proc,20);
2312: end if;
2313: p_session_id:=-1;
2314: else
2315: if g_debug then
2312: end if;
2313: p_session_id:=-1;
2314: else
2315: if g_debug then
2316: hr_utility.set_location(l_proc,30);
2317: end if;
2318: dt_fndate.set_effective_date(trunc(p_effective_Date));
2319: -- insert into fnd_sessions
2320: -- values
2323: p_session_id:=userenv('sessionid');
2324: end if;
2325: --
2326: if g_debug then
2327: hr_utility.set_location('Leaving '||l_proc,100);
2328: end if;
2329: --
2330: end set_session_date;
2331: --
2337: (p_session_id in number
2338: ) is
2339: l_proc varchar2(72);
2340: begin
2341: g_debug := hr_utility.debug_enabled;
2342: if g_debug then
2343: l_proc := g_package||' unset_session_date';
2344: hr_utility.set_location('Entering '||l_proc,5);
2345: end if;
2340: begin
2341: g_debug := hr_utility.debug_enabled;
2342: if g_debug then
2343: l_proc := g_package||' unset_session_date';
2344: hr_utility.set_location('Entering '||l_proc,5);
2345: end if;
2346: --
2347: if nvl(p_session_id,-1)<>-1 then
2348: if g_debug then
2345: end if;
2346: --
2347: if nvl(p_session_id,-1)<>-1 then
2348: if g_debug then
2349: hr_utility.set_location(l_proc,10);
2350: end if;
2351: delete from fnd_sessions
2352: where session_id=p_session_id;
2353: end if;
2352: where session_id=p_session_id;
2353: end if;
2354: --
2355: if g_debug then
2356: hr_utility.set_location('Leaving '||l_proc,100);
2357: end if;
2358: --
2359: end unset_session_date;
2360: --
2433: dbms_session.set_nls('NLS_LANGUAGE', ''''||p_nls_language||''''); -- Bug #2958520
2434: fnd_flex_ext.clear_ccid_cache;
2435: exception
2436: when others then
2437: hr_utility.set_location('Error in '||l_proc, 99);
2438: raise;
2439: end;
2440: --
2441: --