eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.HR_CAL_EVENT_MAPPING_PKG dependencies on HR_UTILITY

Line 126: hr_utility.set_location('Entering '||l_proc,10);

122: WHERE org_structure_version_id = cp_osv_id
123: AND organization_id_parent = cp_par_org_id;
124: BEGIN
125: l_proc := 'HR_CAL_EVENT_MAPPING_PKG.get_org_hier_elements';
126: hr_utility.set_location('Entering '||l_proc,10);
127:
128: -- Populate hierarchy Level 1 to stack
129: l_level := 1;
130: l_stack_index := 0;

Line 133: hr_utility.set_location(l_proc,15);

129: l_level := 1;
130: l_stack_index := 0;
131: l_main_index := 0;
132: FOR l_org_hier_rec IN c_org_tree_walk(p_osv_id,p_top_org_id) LOOP
133: hr_utility.set_location(l_proc,15);
134: l_stack_index := l_stack_index + 1;
135: l_stack_table(l_stack_index) := l_org_hier_rec;
136: END LOOP;
137:

Line 138: hr_utility.set_location(l_proc,20);

134: l_stack_index := l_stack_index + 1;
135: l_stack_table(l_stack_index) := l_org_hier_rec;
136: END LOOP;
137:
138: hr_utility.set_location(l_proc,20);
139:
140: -- Work from stack table
141: WHILE l_stack_index > 0 LOOP
142: hr_utility.set_location(l_proc,24);

Line 142: hr_utility.set_location(l_proc,24);

138: hr_utility.set_location(l_proc,20);
139:
140: -- Work from stack table
141: WHILE l_stack_index > 0 LOOP
142: hr_utility.set_location(l_proc,24);
143: -- Get node from stack
144: l_main_index := l_main_index + 1;
145: p_org_hier_table(l_main_index) := l_stack_table(l_stack_index);
146: l_child_id := l_stack_table(l_stack_index).organization_id_child;

Line 152: hr_utility.set_location(l_proc,28);

148: l_stack_index := l_stack_index - 1;
149: -- Fetch children from stack
150: l_level := l_level + 1;
151: FOR l_org_hier_rec IN c_org_tree_walk(p_osv_id,l_child_id) LOOP
152: hr_utility.set_location(l_proc,28);
153: l_stack_index := l_stack_index + 1;
154: l_stack_table(l_stack_index) := l_org_hier_rec;
155: END LOOP;
156: END LOOP;

Line 158: hr_utility.set_location('Count: '||p_org_hier_table.COUNT,30);

154: l_stack_table(l_stack_index) := l_org_hier_rec;
155: END LOOP;
156: END LOOP;
157: --
158: hr_utility.set_location('Count: '||p_org_hier_table.COUNT,30);
159: hr_utility.set_location('Leaving '||l_proc,40);
160: EXCEPTION
161: WHEN OTHERS THEN
162: hr_utility.set_location('Leaving '||l_proc,50);

Line 159: hr_utility.set_location('Leaving '||l_proc,40);

155: END LOOP;
156: END LOOP;
157: --
158: hr_utility.set_location('Count: '||p_org_hier_table.COUNT,30);
159: hr_utility.set_location('Leaving '||l_proc,40);
160: EXCEPTION
161: WHEN OTHERS THEN
162: hr_utility.set_location('Leaving '||l_proc,50);
163: END get_org_hier_elements;

Line 162: hr_utility.set_location('Leaving '||l_proc,50);

158: hr_utility.set_location('Count: '||p_org_hier_table.COUNT,30);
159: hr_utility.set_location('Leaving '||l_proc,40);
160: EXCEPTION
161: WHEN OTHERS THEN
162: hr_utility.set_location('Leaving '||l_proc,50);
163: END get_org_hier_elements;
164:
165: --
166: -------------------------------------------------------------------------

Line 192: hr_utility.set_location('Entering '||l_proc,10);

188: l_proc VARCHAR2(100);
189:
190: BEGIN
191: l_proc := 'HR_CAL_EVENT_MAPPING_PKG.write_org_cache';
192: hr_utility.set_location('Entering '||l_proc,10);
193:
194: IF p_coverage_list.COUNT > 0 THEN
195: hr_utility.set_location(l_proc,12);
196: FOR idx IN p_coverage_list.FIRST .. p_coverage_list.LAST LOOP

Line 195: hr_utility.set_location(l_proc,12);

191: l_proc := 'HR_CAL_EVENT_MAPPING_PKG.write_org_cache';
192: hr_utility.set_location('Entering '||l_proc,10);
193:
194: IF p_coverage_list.COUNT > 0 THEN
195: hr_utility.set_location(l_proc,12);
196: FOR idx IN p_coverage_list.FIRST .. p_coverage_list.LAST LOOP
197: hr_utility.set_location(l_proc,14);
198: l_ovr_id := NULL;
199:

Line 197: hr_utility.set_location(l_proc,14);

193:
194: IF p_coverage_list.COUNT > 0 THEN
195: hr_utility.set_location(l_proc,12);
196: FOR idx IN p_coverage_list.FIRST .. p_coverage_list.LAST LOOP
197: hr_utility.set_location(l_proc,14);
198: l_ovr_id := NULL;
199:
200: -- Get override (if any)
201: OPEN c_org_ovr (p_calendar_entry_id

Line 207: hr_utility.set_location(l_proc,18);

203: );
204: FETCH c_org_ovr INTO l_ovr_id;
205: CLOSE c_org_ovr;
206:
207: hr_utility.set_location(l_proc,18);
208:
209: INSERT INTO per_cal_entry_org_list
210: (calendar_entry_id
211: ,organization_id

Line 234: hr_utility.set_location('Leaving '||l_proc,20);

230: END IF;
231:
232: COMMIT;
233:
234: hr_utility.set_location('Leaving '||l_proc,20);
235: END write_org_cache;
236:
237: --
238: -------------------------------------------------------------------------

Line 251: hr_utility.set_location('Entering '||l_proc,10);

247: l_return BOOLEAN;
248: l_proc VARCHAR2(100);
249: BEGIN
250: l_proc := 'HR_CAL_EVENT_MAPPING_PKG.is_org_in_list';
251: hr_utility.set_location('Entering '||l_proc,10);
252: l_return := FALSE;
253:
254: IF p_org_list.COUNT > 0 THEN
255: hr_utility.set_location(l_proc,13);

Line 255: hr_utility.set_location(l_proc,13);

251: hr_utility.set_location('Entering '||l_proc,10);
252: l_return := FALSE;
253:
254: IF p_org_list.COUNT > 0 THEN
255: hr_utility.set_location(l_proc,13);
256: FOR idx IN p_org_list.FIRST .. p_org_list.LAST LOOP
257: hr_utility.set_location(l_proc,15);
258: IF p_org_list(idx) = p_org_id THEN
259: l_return := TRUE;

Line 257: hr_utility.set_location(l_proc,15);

253:
254: IF p_org_list.COUNT > 0 THEN
255: hr_utility.set_location(l_proc,13);
256: FOR idx IN p_org_list.FIRST .. p_org_list.LAST LOOP
257: hr_utility.set_location(l_proc,15);
258: IF p_org_list(idx) = p_org_id THEN
259: l_return := TRUE;
260: EXIT;
261: END IF;

Line 265: hr_utility.set_location('Leaving '||l_proc,20);

261: END IF;
262: END LOOP;
263: END IF;
264:
265: hr_utility.set_location('Leaving '||l_proc,20);
266:
267: RETURN l_return;
268: END is_org_in_list;
269:

Line 292: hr_utility.set_location('Entering '||l_proc,5);

288: l_proc VARCHAR2(100);
289:
290: BEGIN
291: l_proc := 'HR_CAL_EVENT_MAPPING_PKG.get_child_org_nodes';
292: hr_utility.set_location('Entering '||l_proc,5);
293: l_result_count := 0;
294: l_parent_found := FALSE;
295: l_exclude_flag := FALSE;
296: l_coverage_top_level := 1;

Line 301: hr_utility.set_location(l_proc,10);

297: l_exclusion_level := 0;
298: l_hier_top_case := FALSE;
299:
300: IF p_org_hier_table.COUNT > 0 THEN
301: hr_utility.set_location(l_proc,10);
302: -- Loop through the org hier tree elements
303: FOR idx IN p_org_hier_table.FIRST .. p_org_hier_table.LAST LOOP
304: hr_utility.set_location(l_proc,11);
305:

Line 304: hr_utility.set_location(l_proc,11);

300: IF p_org_hier_table.COUNT > 0 THEN
301: hr_utility.set_location(l_proc,10);
302: -- Loop through the org hier tree elements
303: FOR idx IN p_org_hier_table.FIRST .. p_org_hier_table.LAST LOOP
304: hr_utility.set_location(l_proc,11);
305:
306: -- Due to the nature of results returned by a tree walk, the first
307: -- record will always be a top node in the hierarchy. Check is the
308: -- ORG at the hierarchy top is in coverage.

Line 310: hr_utility.set_location(l_proc,12);

306: -- Due to the nature of results returned by a tree walk, the first
307: -- record will always be a top node in the hierarchy. Check is the
308: -- ORG at the hierarchy top is in coverage.
309: IF idx = 1 AND p_org_hier_table(idx).organization_id_parent = p_coverage_org_id THEN
310: hr_utility.set_location(l_proc,12);
311: -- This is the first OSE for the COV as a special case where parent
312: -- ORG is in coverage.
313: l_parent_found := TRUE;
314: l_result_count := l_result_count + 1;

Line 321: hr_utility.set_location(l_proc,13);

317: l_hier_top_case := TRUE;
318: END IF; -- top node
319:
320: IF p_org_hier_table(idx).organization_id_child = p_coverage_org_id THEN
321: hr_utility.set_location(l_proc,13);
322: -- This is the first OSE for the COV
323: l_parent_found := TRUE;
324: l_result_count := l_result_count + 1;
325: l_result_list(l_result_count) := p_org_hier_table(idx).organization_id_child;

Line 328: hr_utility.set_location(l_proc,14);

324: l_result_count := l_result_count + 1;
325: l_result_list(l_result_count) := p_org_hier_table(idx).organization_id_child;
326: l_coverage_top_level := p_org_hier_table(idx).level;
327: ELSE -- not first OSE
328: hr_utility.set_location(l_proc,14);
329: IF l_parent_found THEN
330:
331: -- Check if we have moved back up the tree beyond coverage level
332: IF p_org_hier_table(idx).level <= l_coverage_top_level AND NOT l_hier_top_case THEN

Line 334: hr_utility.set_location(l_proc,15);

330:
331: -- Check if we have moved back up the tree beyond coverage level
332: IF p_org_hier_table(idx).level <= l_coverage_top_level AND NOT l_hier_top_case THEN
333: -- Stop as we have moved up the tree again
334: hr_utility.set_location(l_proc,15);
335: EXIT; -- break the loop
336: END IF; -- level check
337:
338: -- Check if we need to stop exclusions due to moving up the tree

Line 341: hr_utility.set_location(l_proc,16);

337:
338: -- Check if we need to stop exclusions due to moving up the tree
339: -- beyond exclusion level
340: IF l_exclude_flag AND l_exclusion_level >= p_org_hier_table(idx).level THEN
341: hr_utility.set_location(l_proc,16);
342: l_exclude_flag := FALSE;
343: END IF;
344:
345: -- Check for ORG exclusion

Line 347: hr_utility.set_location(l_proc,17);

343: END IF;
344:
345: -- Check for ORG exclusion
346: IF NOT l_exclude_flag AND p_exclusion_list.COUNT > 0 THEN
347: hr_utility.set_location(l_proc,17);
348: l_exclude_flag := is_org_in_list(p_org_hier_table(idx).organization_id_child
349: ,p_exclusion_list
350: );
351: IF l_exclude_flag THEN

Line 352: hr_utility.set_location(l_proc,18);

348: l_exclude_flag := is_org_in_list(p_org_hier_table(idx).organization_id_child
349: ,p_exclusion_list
350: );
351: IF l_exclude_flag THEN
352: hr_utility.set_location(l_proc,18);
353: -- Note the exclusion level
354: l_exclusion_level := p_org_hier_table(idx).level;
355: END IF; -- exclusion
356: END IF; -- check ORG exclusion

Line 360: hr_utility.set_location(l_proc,19);

356: END IF; -- check ORG exclusion
357:
358: -- Check if ORG is in coverage and save
359: IF NOT l_exclude_flag THEN
360: hr_utility.set_location(l_proc,19);
361: l_result_count := l_result_count + 1;
362: l_result_list(l_result_count) := p_org_hier_table(idx).organization_id_child;
363: END IF; -- ORG is in coverage
364:

Line 371: hr_utility.set_location('Leaving '||l_proc,20);

367:
368: END LOOP; -- org hier elements
369: END IF; -- count
370:
371: hr_utility.set_location('Leaving '||l_proc,20);
372:
373: RETURN l_result_list;
374: END get_child_org_nodes;
375:

Line 394: hr_utility.set_location('Entering '||l_proc,10);

390: l_exclusion_list t_org_id_table;
391: l_proc VARCHAR2(100);
392: BEGIN
393: l_proc := 'HR_CAL_EVENT_MAPPING_PKG.process_org_coverage';
394: hr_utility.set_location('Entering '||l_proc,10);
395: l_exc_count := 0;
396: IF p_cal_event_table.COUNT > 0 THEN
397: hr_utility.set_location(l_proc,20);
398: -- Loop for each entry in the calendar entry table passed in

Line 397: hr_utility.set_location(l_proc,20);

393: l_proc := 'HR_CAL_EVENT_MAPPING_PKG.process_org_coverage';
394: hr_utility.set_location('Entering '||l_proc,10);
395: l_exc_count := 0;
396: IF p_cal_event_table.COUNT > 0 THEN
397: hr_utility.set_location(l_proc,20);
398: -- Loop for each entry in the calendar entry table passed in
399: FOR idx IN p_cal_event_table.FIRST .. p_cal_event_table.LAST LOOP
400: hr_utility.set_location(l_proc,21);
401: IF p_cal_event_table(idx).usage = 'COV' THEN

Line 400: hr_utility.set_location(l_proc,21);

396: IF p_cal_event_table.COUNT > 0 THEN
397: hr_utility.set_location(l_proc,20);
398: -- Loop for each entry in the calendar entry table passed in
399: FOR idx IN p_cal_event_table.FIRST .. p_cal_event_table.LAST LOOP
400: hr_utility.set_location(l_proc,21);
401: IF p_cal_event_table(idx).usage = 'COV' THEN
402: hr_utility.set_location(l_proc,22);
403: -- This is the start of a coverage
404: l_coverage_org_id := p_cal_event_table(idx).organization_id;

Line 402: hr_utility.set_location(l_proc,22);

398: -- Loop for each entry in the calendar entry table passed in
399: FOR idx IN p_cal_event_table.FIRST .. p_cal_event_table.LAST LOOP
400: hr_utility.set_location(l_proc,21);
401: IF p_cal_event_table(idx).usage = 'COV' THEN
402: hr_utility.set_location(l_proc,22);
403: -- This is the start of a coverage
404: l_coverage_org_id := p_cal_event_table(idx).organization_id;
405: ELSIF p_cal_event_table(idx).usage = 'EXC' THEN
406: hr_utility.set_location(l_proc,23);

Line 406: hr_utility.set_location(l_proc,23);

402: hr_utility.set_location(l_proc,22);
403: -- This is the start of a coverage
404: l_coverage_org_id := p_cal_event_table(idx).organization_id;
405: ELSIF p_cal_event_table(idx).usage = 'EXC' THEN
406: hr_utility.set_location(l_proc,23);
407: -- Note the exclusion org
408: l_exc_count := l_exc_count + 1;
409: l_exclusion_list(l_exc_count) := p_cal_event_table(idx).organization_id;
410: END IF;

Line 413: hr_utility.set_location(l_proc,24);

409: l_exclusion_list(l_exc_count) := p_cal_event_table(idx).organization_id;
410: END IF;
411: -- If end of coverage, process the coverage
412: IF p_cal_event_table(idx).entry_flag = 'E' THEN
413: hr_utility.set_location(l_proc,24);
414: l_coverage_list := get_child_org_nodes(l_coverage_org_id
415: ,l_exclusion_list
416: ,p_org_hier_table
417: );

Line 420: hr_utility.set_location(l_proc,25);

416: ,p_org_hier_table
417: );
418: -- If coverage rows returned, write to cache
419: IF l_coverage_list.COUNT > 0 THEN
420: hr_utility.set_location(l_proc,25);
421: write_org_cache(l_coverage_list
422: ,p_cal_event_table(idx).calendar_entry_id
423: );
424: END IF; -- coverage rows returned

Line 426: hr_utility.set_location(l_proc,26);

422: ,p_cal_event_table(idx).calendar_entry_id
423: );
424: END IF; -- coverage rows returned
425:
426: hr_utility.set_location(l_proc,26);
427:
428: -- Reset local variables for next calendar event
429: l_exc_count := 0;
430: l_coverage_org_id := NULL;

Line 437: hr_utility.set_location('Leaving '||l_proc,30);

433:
434: END IF; -- end of coverage
435: END LOOP; -- event loop
436: END IF; -- count of events to process
437: hr_utility.set_location('Leaving '||l_proc,30);
438: END process_org_coverage;
439:
440: BEGIN -- populate_org_list
441: l_proc := 'HR_CAL_EVENT_MAPPING_PKG.populate_org_list';

Line 442: hr_utility.set_location('Entering '||l_proc,10);

438: END process_org_coverage;
439:
440: BEGIN -- populate_org_list
441: l_proc := 'HR_CAL_EVENT_MAPPING_PKG.populate_org_list';
442: hr_utility.set_location('Entering '||l_proc,10);
443:
444: -- Get identifiers for all the hierarchies that need to be processed
445: FOR l_osv_rec IN c_osv_ids LOOP
446: hr_utility.set_location('OSVId:'||l_osv_rec.osv_id,20);

Line 446: hr_utility.set_location('OSVId:'||l_osv_rec.osv_id,20);

442: hr_utility.set_location('Entering '||l_proc,10);
443:
444: -- Get identifiers for all the hierarchies that need to be processed
445: FOR l_osv_rec IN c_osv_ids LOOP
446: hr_utility.set_location('OSVId:'||l_osv_rec.osv_id,20);
447:
448: -- Get the top of the associated ORG hierarchy
449: OPEN c_org_hier_top(l_osv_rec.osv_id);
450: FETCH c_org_hier_top INTO l_top_org_id;

Line 453: hr_utility.set_location('TopOrgId:'||l_top_org_id,30);

449: OPEN c_org_hier_top(l_osv_rec.osv_id);
450: FETCH c_org_hier_top INTO l_top_org_id;
451: CLOSE c_org_hier_top;
452:
453: hr_utility.set_location('TopOrgId:'||l_top_org_id,30);
454:
455: -- Clear down PLSQL tables
456: IF l_org_hier_table.COUNT > 0 THEN
457: l_org_hier_table.DELETE;

Line 463: hr_utility.set_location(l_proc,35);

459: IF l_cal_event_table.COUNT > 0 THEN
460: l_cal_event_table.DELETE;
461: END IF;
462:
463: hr_utility.set_location(l_proc,35);
464:
465: -- Get the elements of the associated ORG hierarchy
466: -- FOR l_org_hier_element_rec IN c_org_hier_elements(l_osv_rec.osv_id
467: -- ,l_top_org_id

Line 479: hr_utility.set_location(l_proc,40);

475: ,l_top_org_id
476: ,l_org_hier_table
477: );
478:
479: hr_utility.set_location(l_proc,40);
480:
481: -- Get the calendar events for the ORG Hierarchy
482: FOR l_org_event_rec IN c_org_events(l_osv_rec.osv_id) LOOP
483: hr_utility.set_location(l_proc,50);

Line 483: hr_utility.set_location(l_proc,50);

479: hr_utility.set_location(l_proc,40);
480:
481: -- Get the calendar events for the ORG Hierarchy
482: FOR l_org_event_rec IN c_org_events(l_osv_rec.osv_id) LOOP
483: hr_utility.set_location(l_proc,50);
484:
485: -- Store the event
486: l_cal_event_table(c_org_events%ROWCOUNT) := l_org_event_rec;
487:

Line 489: hr_utility.set_location(l_proc,60);

485: -- Store the event
486: l_cal_event_table(c_org_events%ROWCOUNT) := l_org_event_rec;
487:
488: IF c_org_events%ROWCOUNT > 1 THEN
489: hr_utility.set_location(l_proc,60);
490:
491: -- This is not the first record. Check if different from the
492: -- previous event or if same event and end of coverage
493: IF (l_org_event_rec.calendar_entry_id <> l_cal_event_table(c_org_events%ROWCOUNT-1).calendar_entry_id)

Line 498: hr_utility.set_location(l_proc,70);

494: OR
495: (l_org_event_rec.calendar_entry_id = l_cal_event_table(c_org_events%ROWCOUNT-1).calendar_entry_id
496: AND l_org_event_rec.usage_flag = 'N')
497: THEN
498: hr_utility.set_location(l_proc,70);
499:
500: -- Mark end of old event coverage and start of new event coverage
501: l_cal_event_table(c_org_events%ROWCOUNT-1).entry_flag := 'E';
502: l_cal_event_table(c_org_events%ROWCOUNT).entry_flag := 'S';

Line 506: hr_utility.set_location(l_proc,80);

502: l_cal_event_table(c_org_events%ROWCOUNT).entry_flag := 'S';
503: END IF;
504:
505: ELSE
506: hr_utility.set_location(l_proc,80);
507:
508: -- This is the first record. Mark it as coverage start.
509: l_cal_event_table(c_org_events%ROWCOUNT).entry_flag := 'S';
510: END IF;

Line 516: hr_utility.set_location(l_proc,90);

512: END LOOP; -- c_org_events
513:
514: -- Mark end of coverage for the last row
515: IF l_cal_event_table.COUNT > 0 THEN
516: hr_utility.set_location(l_proc,90);
517: l_cal_event_table(l_cal_event_table.LAST).entry_flag := 'E';
518: END IF;
519:
520: hr_utility.set_location(l_proc,100);

Line 520: hr_utility.set_location(l_proc,100);

516: hr_utility.set_location(l_proc,90);
517: l_cal_event_table(l_cal_event_table.LAST).entry_flag := 'E';
518: END IF;
519:
520: hr_utility.set_location(l_proc,100);
521:
522: -- Process coverage data
523: process_org_coverage(l_org_hier_table
524: ,l_cal_event_table

Line 528: hr_utility.set_location('Leaving '||l_proc,110);

524: ,l_cal_event_table
525: );
526: END LOOP; -- c_osv_ids
527:
528: hr_utility.set_location('Leaving '||l_proc,110);
529: END populate_org_list;
530:
531: --
532: -----------------------------------------------------------------------------

Line 647: hr_utility.set_location('Entering '||l_proc,10);

643: l_proc VARCHAR2(100);
644:
645: BEGIN
646: l_proc := 'HR_CAL_EVENT_MAPPING_PKG.write_geo_cache';
647: hr_utility.set_location('Entering '||l_proc,10);
648:
649: IF p_coverage_list.COUNT > 0 THEN
650: hr_utility.set_location(l_proc,12);
651: FOR idx IN p_coverage_list.FIRST .. p_coverage_list.LAST LOOP

Line 650: hr_utility.set_location(l_proc,12);

646: l_proc := 'HR_CAL_EVENT_MAPPING_PKG.write_geo_cache';
647: hr_utility.set_location('Entering '||l_proc,10);
648:
649: IF p_coverage_list.COUNT > 0 THEN
650: hr_utility.set_location(l_proc,12);
651: FOR idx IN p_coverage_list.FIRST .. p_coverage_list.LAST LOOP
652: hr_utility.set_location(l_proc,14);
653: hr_utility.set_location('p_calendar_entry_id:'||p_calendar_entry_id,15);
654: hr_utility.set_location('p_coverage_list:'||p_coverage_list(idx),16);

Line 652: hr_utility.set_location(l_proc,14);

648:
649: IF p_coverage_list.COUNT > 0 THEN
650: hr_utility.set_location(l_proc,12);
651: FOR idx IN p_coverage_list.FIRST .. p_coverage_list.LAST LOOP
652: hr_utility.set_location(l_proc,14);
653: hr_utility.set_location('p_calendar_entry_id:'||p_calendar_entry_id,15);
654: hr_utility.set_location('p_coverage_list:'||p_coverage_list(idx),16);
655: l_ovr_id := NULL;
656:

Line 653: hr_utility.set_location('p_calendar_entry_id:'||p_calendar_entry_id,15);

649: IF p_coverage_list.COUNT > 0 THEN
650: hr_utility.set_location(l_proc,12);
651: FOR idx IN p_coverage_list.FIRST .. p_coverage_list.LAST LOOP
652: hr_utility.set_location(l_proc,14);
653: hr_utility.set_location('p_calendar_entry_id:'||p_calendar_entry_id,15);
654: hr_utility.set_location('p_coverage_list:'||p_coverage_list(idx),16);
655: l_ovr_id := NULL;
656:
657: -- Get override (if any)

Line 654: hr_utility.set_location('p_coverage_list:'||p_coverage_list(idx),16);

650: hr_utility.set_location(l_proc,12);
651: FOR idx IN p_coverage_list.FIRST .. p_coverage_list.LAST LOOP
652: hr_utility.set_location(l_proc,14);
653: hr_utility.set_location('p_calendar_entry_id:'||p_calendar_entry_id,15);
654: hr_utility.set_location('p_coverage_list:'||p_coverage_list(idx),16);
655: l_ovr_id := NULL;
656:
657: -- Get override (if any)
658: OPEN c_geo_ovr (p_calendar_entry_id

Line 664: hr_utility.set_location(l_proc,18);

660: );
661: FETCH c_geo_ovr INTO l_ovr_id;
662: CLOSE c_geo_ovr;
663:
664: hr_utility.set_location(l_proc,18);
665:
666: INSERT INTO per_cal_entry_geo_list
667: (calendar_entry_id
668: ,hierarchy_node_id

Line 691: hr_utility.set_location('Leaving '||l_proc,20);

687: END IF;
688:
689: COMMIT;
690:
691: hr_utility.set_location('Leaving '||l_proc,20);
692: END write_geo_cache;
693:
694: --
695: -------------------------------------------------------------------------

Line 708: hr_utility.set_location('Entering '||l_proc,10);

704: l_return BOOLEAN;
705: l_proc VARCHAR2(100);
706: BEGIN
707: l_proc := 'HR_CAL_EVENT_MAPPING_PKG.is_node_in_list';
708: hr_utility.set_location('Entering '||l_proc,10);
709: hr_utility.set_location('p_node_id:'||p_node_id,11);
710: l_return := FALSE;
711:
712: IF p_node_list.COUNT > 0 THEN

Line 709: hr_utility.set_location('p_node_id:'||p_node_id,11);

705: l_proc VARCHAR2(100);
706: BEGIN
707: l_proc := 'HR_CAL_EVENT_MAPPING_PKG.is_node_in_list';
708: hr_utility.set_location('Entering '||l_proc,10);
709: hr_utility.set_location('p_node_id:'||p_node_id,11);
710: l_return := FALSE;
711:
712: IF p_node_list.COUNT > 0 THEN
713: hr_utility.set_location(l_proc,13);

Line 713: hr_utility.set_location(l_proc,13);

709: hr_utility.set_location('p_node_id:'||p_node_id,11);
710: l_return := FALSE;
711:
712: IF p_node_list.COUNT > 0 THEN
713: hr_utility.set_location(l_proc,13);
714: FOR idx IN p_node_list.FIRST .. p_node_list.LAST LOOP
715: hr_utility.set_location(l_proc,15);
716: IF p_node_list(idx) = p_node_id THEN
717: l_return := TRUE;

Line 715: hr_utility.set_location(l_proc,15);

711:
712: IF p_node_list.COUNT > 0 THEN
713: hr_utility.set_location(l_proc,13);
714: FOR idx IN p_node_list.FIRST .. p_node_list.LAST LOOP
715: hr_utility.set_location(l_proc,15);
716: IF p_node_list(idx) = p_node_id THEN
717: l_return := TRUE;
718: EXIT;
719: END IF;

Line 723: hr_utility.set_location('Leaving '||l_proc,20);

719: END IF;
720: END LOOP;
721: END IF;
722:
723: hr_utility.set_location('Leaving '||l_proc,20);
724:
725: RETURN l_return;
726: END is_node_in_list;
727:

Line 750: hr_utility.set_location('Entering '||l_proc,10);

746: l_proc VARCHAR2(100);
747:
748: BEGIN
749: l_proc := 'HR_CAL_EVENT_MAPPING_PKG.get_child_nodes';
750: hr_utility.set_location('Entering '||l_proc,10);
751:
752: l_result_count := 0;
753: l_parent_found := FALSE;
754: l_exclude_flag := FALSE;

Line 759: hr_utility.set_location(l_proc,15);

755: l_coverage_top_level := 1;
756: l_exclusion_level := 0;
757:
758: IF p_geo_hier_table.COUNT > 0 THEN
759: hr_utility.set_location(l_proc,15);
760:
761: -- Loop through the geo hier tree nodes
762: FOR idx IN p_geo_hier_table.FIRST .. p_geo_hier_table.LAST LOOP
763: hr_utility.set_location(l_proc,20);

Line 763: hr_utility.set_location(l_proc,20);

759: hr_utility.set_location(l_proc,15);
760:
761: -- Loop through the geo hier tree nodes
762: FOR idx IN p_geo_hier_table.FIRST .. p_geo_hier_table.LAST LOOP
763: hr_utility.set_location(l_proc,20);
764:
765: IF p_geo_hier_table(idx).hierarchy_node_id = p_coverage_node_id THEN
766: hr_utility.set_location(l_proc,30);
767: -- This is the first HN for the COV

Line 766: hr_utility.set_location(l_proc,30);

762: FOR idx IN p_geo_hier_table.FIRST .. p_geo_hier_table.LAST LOOP
763: hr_utility.set_location(l_proc,20);
764:
765: IF p_geo_hier_table(idx).hierarchy_node_id = p_coverage_node_id THEN
766: hr_utility.set_location(l_proc,30);
767: -- This is the first HN for the COV
768: l_parent_found := TRUE;
769: l_result_count := l_result_count + 1;
770: l_result_list(l_result_count) := p_geo_hier_table(idx).hierarchy_node_id;

Line 773: hr_utility.set_location(l_proc,40);

769: l_result_count := l_result_count + 1;
770: l_result_list(l_result_count) := p_geo_hier_table(idx).hierarchy_node_id;
771: l_coverage_top_level := p_geo_hier_table(idx).level;
772: ELSE -- not first HN
773: hr_utility.set_location(l_proc,40);
774:
775: IF p_coverage.COUNT > 0 THEN -- if node is in coverage then save it
776: hr_utility.set_location(l_proc,100);
777: hr_utility.set_location('p_geo_hier_table.hierarchy_node_id:'||p_geo_hier_table(idx).hierarchy_node_id,100);

Line 776: hr_utility.set_location(l_proc,100);

772: ELSE -- not first HN
773: hr_utility.set_location(l_proc,40);
774:
775: IF p_coverage.COUNT > 0 THEN -- if node is in coverage then save it
776: hr_utility.set_location(l_proc,100);
777: hr_utility.set_location('p_geo_hier_table.hierarchy_node_id:'||p_geo_hier_table(idx).hierarchy_node_id,100);
778: FOR l_count IN p_coverage.FIRST .. p_coverage.LAST LOOP
779: hr_utility.set_location('p_coverage:'||p_coverage(l_count),110);
780: IF(p_coverage(l_count) = p_geo_hier_table(idx).hierarchy_node_id) THEN

Line 777: hr_utility.set_location('p_geo_hier_table.hierarchy_node_id:'||p_geo_hier_table(idx).hierarchy_node_id,100);

773: hr_utility.set_location(l_proc,40);
774:
775: IF p_coverage.COUNT > 0 THEN -- if node is in coverage then save it
776: hr_utility.set_location(l_proc,100);
777: hr_utility.set_location('p_geo_hier_table.hierarchy_node_id:'||p_geo_hier_table(idx).hierarchy_node_id,100);
778: FOR l_count IN p_coverage.FIRST .. p_coverage.LAST LOOP
779: hr_utility.set_location('p_coverage:'||p_coverage(l_count),110);
780: IF(p_coverage(l_count) = p_geo_hier_table(idx).hierarchy_node_id) THEN
781: hr_utility.set_location('p_coverage:'||p_coverage(l_count),120);

Line 779: hr_utility.set_location('p_coverage:'||p_coverage(l_count),110);

775: IF p_coverage.COUNT > 0 THEN -- if node is in coverage then save it
776: hr_utility.set_location(l_proc,100);
777: hr_utility.set_location('p_geo_hier_table.hierarchy_node_id:'||p_geo_hier_table(idx).hierarchy_node_id,100);
778: FOR l_count IN p_coverage.FIRST .. p_coverage.LAST LOOP
779: hr_utility.set_location('p_coverage:'||p_coverage(l_count),110);
780: IF(p_coverage(l_count) = p_geo_hier_table(idx).hierarchy_node_id) THEN
781: hr_utility.set_location('p_coverage:'||p_coverage(l_count),120);
782: l_result_count := l_result_count + 1;
783: l_result_list(l_result_count) := p_coverage(l_count);

Line 781: hr_utility.set_location('p_coverage:'||p_coverage(l_count),120);

777: hr_utility.set_location('p_geo_hier_table.hierarchy_node_id:'||p_geo_hier_table(idx).hierarchy_node_id,100);
778: FOR l_count IN p_coverage.FIRST .. p_coverage.LAST LOOP
779: hr_utility.set_location('p_coverage:'||p_coverage(l_count),110);
780: IF(p_coverage(l_count) = p_geo_hier_table(idx).hierarchy_node_id) THEN
781: hr_utility.set_location('p_coverage:'||p_coverage(l_count),120);
782: l_result_count := l_result_count + 1;
783: l_result_list(l_result_count) := p_coverage(l_count);
784: END IF;
785: END LOOP;

Line 791: hr_utility.set_location(l_proc,50);

787:
788:
789:
790: IF l_parent_found THEN
791: hr_utility.set_location(l_proc,50);
792:
793: -- Check if we have moved back up the tree beyond coverage level
794: IF p_geo_hier_table(idx).level <= l_coverage_top_level THEN
795: hr_utility.set_location(l_proc,60);

Line 795: hr_utility.set_location(l_proc,60);

791: hr_utility.set_location(l_proc,50);
792:
793: -- Check if we have moved back up the tree beyond coverage level
794: IF p_geo_hier_table(idx).level <= l_coverage_top_level THEN
795: hr_utility.set_location(l_proc,60);
796: -- Stop as we have moved up the tree again
797: EXIT; -- break the loop
798: END IF; -- level check
799:

Line 803: hr_utility.set_location(l_proc,70);

799:
800: -- Check if we need to stop exclusions due to moving up the tree
801: -- beyond exclusion level
802: IF l_exclude_flag AND l_exclusion_level >= p_geo_hier_table(idx).level THEN
803: hr_utility.set_location(l_proc,70);
804: l_exclude_flag := FALSE;
805: END IF;
806:
807: -- Check for node exclusion

Line 809: hr_utility.set_location(l_proc,80);

805: END IF;
806:
807: -- Check for node exclusion
808: IF NOT l_exclude_flag AND p_exclusion_list.COUNT > 0 THEN
809: hr_utility.set_location(l_proc,80);
810: l_exclude_flag := is_node_in_list(p_geo_hier_table(idx).hierarchy_node_id
811: ,p_exclusion_list
812: );
813: IF l_exclude_flag THEN

Line 814: hr_utility.set_location(l_proc,90);

810: l_exclude_flag := is_node_in_list(p_geo_hier_table(idx).hierarchy_node_id
811: ,p_exclusion_list
812: );
813: IF l_exclude_flag THEN
814: hr_utility.set_location(l_proc,90);
815: -- Note the exclusion level
816: l_exclusion_level := p_geo_hier_table(idx).level;
817: END IF; -- exclusion
818: END IF; -- check node exclusion

Line 822: hr_utility.set_location(l_proc,100);

818: END IF; -- check node exclusion
819:
820: -- Check if node is in coverage and save
821: IF NOT l_exclude_flag THEN
822: hr_utility.set_location(l_proc,100);
823: l_result_count := l_result_count + 1;
824: l_result_list(l_result_count) := p_geo_hier_table(idx).hierarchy_node_id;
825: END IF; -- Node is in coverage
826:

Line 833: hr_utility.set_location('Leaving '||l_proc,110);

829:
830: END LOOP; -- geo hier elements
831: END IF; -- count
832:
833: hr_utility.set_location('Leaving '||l_proc,110);
834:
835: RETURN l_result_list;
836: END get_child_nodes;
837:

Line 859: hr_utility.set_location('Entering '||l_proc,10);

855: l_cov_count NUMBER;
856:
857: BEGIN
858: l_proc := 'HR_CAL_EVENT_MAPPING_PKG.process_geo_coverage';
859: hr_utility.set_location('Entering '||l_proc,10);
860: l_exc_count := 0;
861: l_cov_count := 0;
862: IF p_cal_event_table.COUNT > 0 THEN
863: hr_utility.set_location(l_proc,20);

Line 863: hr_utility.set_location(l_proc,20);

859: hr_utility.set_location('Entering '||l_proc,10);
860: l_exc_count := 0;
861: l_cov_count := 0;
862: IF p_cal_event_table.COUNT > 0 THEN
863: hr_utility.set_location(l_proc,20);
864: -- Loop for each entry in the calendar entry table passed in
865: FOR idx IN p_cal_event_table.FIRST .. p_cal_event_table.LAST LOOP
866: hr_utility.set_location(l_proc,30);
867: IF p_cal_event_table(idx).usage = 'COV' THEN

Line 866: hr_utility.set_location(l_proc,30);

862: IF p_cal_event_table.COUNT > 0 THEN
863: hr_utility.set_location(l_proc,20);
864: -- Loop for each entry in the calendar entry table passed in
865: FOR idx IN p_cal_event_table.FIRST .. p_cal_event_table.LAST LOOP
866: hr_utility.set_location(l_proc,30);
867: IF p_cal_event_table(idx).usage = 'COV' THEN
868: hr_utility.set_location(l_proc,40);
869: -- This is the start of a coverage
870: l_coverage_node_id := p_cal_event_table(idx).hierarchy_node_id;

Line 868: hr_utility.set_location(l_proc,40);

864: -- Loop for each entry in the calendar entry table passed in
865: FOR idx IN p_cal_event_table.FIRST .. p_cal_event_table.LAST LOOP
866: hr_utility.set_location(l_proc,30);
867: IF p_cal_event_table(idx).usage = 'COV' THEN
868: hr_utility.set_location(l_proc,40);
869: -- This is the start of a coverage
870: l_coverage_node_id := p_cal_event_table(idx).hierarchy_node_id;
871: ELSIF p_cal_event_table(idx).usage = 'EXC' THEN
872: hr_utility.set_location(l_proc,50);

Line 872: hr_utility.set_location(l_proc,50);

868: hr_utility.set_location(l_proc,40);
869: -- This is the start of a coverage
870: l_coverage_node_id := p_cal_event_table(idx).hierarchy_node_id;
871: ELSIF p_cal_event_table(idx).usage = 'EXC' THEN
872: hr_utility.set_location(l_proc,50);
873: -- Note the exclusion node
874: l_exc_count := l_exc_count + 1;
875: l_exclusion_list(l_exc_count) := p_cal_event_table(idx).hierarchy_node_id;
876: END IF;

Line 879: hr_utility.set_location(l_proc,60);

875: l_exclusion_list(l_exc_count) := p_cal_event_table(idx).hierarchy_node_id;
876: END IF;
877: -- If end of coverage, process the coverage
878: IF p_cal_event_table(idx).entry_flag = 'E' THEN
879: hr_utility.set_location(l_proc,60);
880: l_coverage_list := get_child_nodes(l_coverage_node_id
881: ,l_exclusion_list
882: ,p_geo_hier_table
883: ,l_coverage

Line 887: hr_utility.set_location(l_proc,70);

883: ,l_coverage
884: );
885: -- If coverage rows returned, write to cache
886: IF l_coverage_list.COUNT > 0 THEN
887: hr_utility.set_location(l_proc,70);
888: write_geo_cache(l_coverage_list
889: ,p_cal_event_table(idx).calendar_entry_id
890: );
891: END IF; -- coverage rows returned

Line 900: hr_utility.set_location(l_proc,80);

896: l_coverage_node_id := NULL;
897: l_coverage_list.DELETE;
898: l_coverage.DELETE;
899: l_exclusion_list.DELETE;
900: hr_utility.set_location(l_proc,80);
901:
902: ELSE
903: IF l_coverage_node_id = p_cal_event_table(idx).hierarchy_node_id THEN
904: l_cov_count := l_cov_count + 1;

Line 911: hr_utility.set_location('Leaving '||l_proc,90);

907:
908: END IF; -- end of coverage
909: END LOOP; -- event loop
910: END IF; -- count of events to process
911: hr_utility.set_location('Leaving '||l_proc,90);
912: END process_geo_coverage;
913:
914: BEGIN -- populate_geo_list
915: l_proc := 'HR_CAL_EVENT_MAPPING_PKG.populate_geo_list';

Line 916: hr_utility.set_location('Entering '||l_proc,10);

912: END process_geo_coverage;
913:
914: BEGIN -- populate_geo_list
915: l_proc := 'HR_CAL_EVENT_MAPPING_PKG.populate_geo_list';
916: hr_utility.set_location('Entering '||l_proc,10);
917:
918: -- Get the identifiers for all the hierarchies that need to be processed.
919: FOR l_ghv_rec IN c_ghv_ids LOOP
920: hr_utility.set_location('GHVId:'||l_ghv_rec.ghv_id,20);

Line 920: hr_utility.set_location('GHVId:'||l_ghv_rec.ghv_id,20);

916: hr_utility.set_location('Entering '||l_proc,10);
917:
918: -- Get the identifiers for all the hierarchies that need to be processed.
919: FOR l_ghv_rec IN c_ghv_ids LOOP
920: hr_utility.set_location('GHVId:'||l_ghv_rec.ghv_id,20);
921:
922: -- Get the version of the associated GEO hierarchy
923: OPEN c_ghv_ver_id(l_ghv_rec.ghv_id);
924: FETCH c_ghv_ver_id INTO l_ghv_ver_id;

Line 927: hr_utility.set_location('GHVVerId:'||l_ghv_ver_id,25);

923: OPEN c_ghv_ver_id(l_ghv_rec.ghv_id);
924: FETCH c_ghv_ver_id INTO l_ghv_ver_id;
925: CLOSE c_ghv_ver_id;
926:
927: hr_utility.set_location('GHVVerId:'||l_ghv_ver_id,25);
928:
929: hr_utility.set_location(l_proc,50);
930:
931: -- Get the calendar events for the GEO Hierarchy

Line 929: hr_utility.set_location(l_proc,50);

925: CLOSE c_ghv_ver_id;
926:
927: hr_utility.set_location('GHVVerId:'||l_ghv_ver_id,25);
928:
929: hr_utility.set_location(l_proc,50);
930:
931: -- Get the calendar events for the GEO Hierarchy
932: FOR l_geo_event_rec IN c_geo_events(l_ghv_rec.ghv_id) LOOP
933: hr_utility.set_location(l_proc,60);

Line 933: hr_utility.set_location(l_proc,60);

929: hr_utility.set_location(l_proc,50);
930:
931: -- Get the calendar events for the GEO Hierarchy
932: FOR l_geo_event_rec IN c_geo_events(l_ghv_rec.ghv_id) LOOP
933: hr_utility.set_location(l_proc,60);
934: -- Store the event
935: l_cal_event_table(c_geo_events%ROWCOUNT) := l_geo_event_rec;
936:
937: IF c_geo_events%ROWCOUNT > 1 THEN

Line 938: hr_utility.set_location(l_proc,70);

934: -- Store the event
935: l_cal_event_table(c_geo_events%ROWCOUNT) := l_geo_event_rec;
936:
937: IF c_geo_events%ROWCOUNT > 1 THEN
938: hr_utility.set_location(l_proc,70);
939:
940: -- This is not the first record. Check if different from the
941: -- previous event.
942: IF l_geo_event_rec.calendar_entry_id <>

Line 944: hr_utility.set_location(l_proc,80);

940: -- This is not the first record. Check if different from the
941: -- previous event.
942: IF l_geo_event_rec.calendar_entry_id <>
943: l_cal_event_table(c_geo_events%ROWCOUNT-1).calendar_entry_id THEN
944: hr_utility.set_location(l_proc,80);
945:
946: -- Mark end of old event coverage and start of new event coverage
947: l_cal_event_table(c_geo_events%ROWCOUNT-1).entry_flag := 'E';
948: l_cal_event_table(c_geo_events%ROWCOUNT).entry_flag := 'S';

Line 952: hr_utility.set_location(l_proc,90);

948: l_cal_event_table(c_geo_events%ROWCOUNT).entry_flag := 'S';
949: END IF;
950:
951: ELSE
952: hr_utility.set_location(l_proc,90);
953: -- This is the first record. Mark it as coverage start.
954: l_cal_event_table(c_geo_events%ROWCOUNT).entry_flag := 'S';
955: END IF;
956:

Line 961: hr_utility.set_location(l_proc,100);

957: END LOOP; -- c_geo_events
958:
959: -- Mark end of coverage for the last row
960: IF l_cal_event_table.COUNT > 0 THEN
961: hr_utility.set_location(l_proc,100);
962: l_cal_event_table(l_cal_event_table.LAST).entry_flag := 'E';
963: END IF;
964:
965: END LOOP; -- c_ghv_ids

Line 967: hr_utility.set_location(l_proc,110);

963: END IF;
964:
965: END LOOP; -- c_ghv_ids
966:
967: hr_utility.set_location(l_proc,110);
968:
969: -- Get the top of the associated GEO hierarchy
970: /*OPEN c_geo_hier_top(l_ghv_ver_id);
971: FETCH c_geo_hier_top INTO l_top_node_id;

Line 977: hr_utility.set_location('TopNodeId:'||l_top_node_id,30);

973:
974: FOR l_geo_hier_top_rec IN c_geo_hier_top(l_ghv_ver_id) LOOP
975:
976: l_top_node_id := l_geo_hier_top_rec.hierarchy_node_id;
977: hr_utility.set_location('TopNodeId:'||l_top_node_id,30);
978:
979: -- Get the nodes of the associated GEO hierarchy
980: FOR l_geo_hier_node_rec IN c_geo_hier_nodes(l_ghv_ver_id
981: ,l_top_node_id

Line 983: hr_utility.set_location(l_proc,40);

979: -- Get the nodes of the associated GEO hierarchy
980: FOR l_geo_hier_node_rec IN c_geo_hier_nodes(l_ghv_ver_id
981: ,l_top_node_id
982: ) LOOP
983: hr_utility.set_location(l_proc,40);
984: -- Store the GEO hierarchy node
985: l_geo_hier_table(c_geo_hier_nodes%ROWCOUNT) := l_geo_hier_node_rec;
986: END LOOP; -- c_geo_hier_nodes
987:

Line 995: hr_utility.set_location('Leaving '||l_proc,120);

991: );
992:
993: END LOOP ; -- hier_top
994:
995: hr_utility.set_location('Leaving '||l_proc,120);
996: END populate_geo_list;
997:
998: --
999: -----------------------------------------------------------------------------

Line 1019: hr_utility.set_location('Entering '||l_proc,10);

1015: l_proc VARCHAR2(100);
1016:
1017: BEGIN
1018: l_proc := 'HR_CAL_EVENT_MAPPING_PKG.build_event_cache';
1019: hr_utility.set_location('Entering '||l_proc,10);
1020:
1021: -- Delete previous event org list records as this execution will
1022: -- refresh the list
1023: DELETE FROM per_cal_entry_org_list;

Line 1026: hr_utility.set_location(l_proc,20);

1022: -- refresh the list
1023: DELETE FROM per_cal_entry_org_list;
1024: DELETE FROM per_cal_entry_geo_list;
1025:
1026: hr_utility.set_location(l_proc,20);
1027:
1028: -- Generate event list for organization hierarchy coverage.
1029: populate_org_list;
1030:

Line 1031: hr_utility.set_location(l_proc,30);

1027:
1028: -- Generate event list for organization hierarchy coverage.
1029: populate_org_list;
1030:
1031: hr_utility.set_location(l_proc,30);
1032:
1033: -- Generate event list for geographic hierarchy coverage.
1034: populate_geo_list;
1035:

Line 1036: hr_utility.set_location(l_proc,40);

1032:
1033: -- Generate event list for geographic hierarchy coverage.
1034: populate_geo_list;
1035:
1036: hr_utility.set_location(l_proc,40);
1037:
1038: -- Gather stats on the cache tables for current schema (clone)
1039: l_dummy := fnd_installation.get_app_info
1040: (application_short_name => 'PER'

Line 1046: hr_utility.set_location(l_proc,50);

1042: ,industry => l_industry
1043: ,oracle_schema => l_table_owner
1044: );
1045:
1046: hr_utility.set_location(l_proc,50);
1047:
1048: fnd_stats.gather_table_stats(ownname => l_table_owner
1049: ,tabname => 'PER_CAL_ENTRY_ORG_LIST'
1050: ,percent => 50

Line 1053: hr_utility.set_location(l_proc,60);

1049: ,tabname => 'PER_CAL_ENTRY_ORG_LIST'
1050: ,percent => 50
1051: );
1052:
1053: hr_utility.set_location(l_proc,60);
1054:
1055: fnd_stats.gather_table_stats(ownname => l_table_owner
1056: ,tabname => 'PER_CAL_ENTRY_GEO_LIST'
1057: ,percent => 50

Line 1060: hr_utility.set_location('Leaving '||l_proc,70);

1056: ,tabname => 'PER_CAL_ENTRY_GEO_LIST'
1057: ,percent => 50
1058: );
1059:
1060: hr_utility.set_location('Leaving '||l_proc,70);
1061: END build_event_cache;
1062:
1063: --
1064: -----------------------------------------------------------------------------

Line 1221: hr_utility.set_location('Entering: '|| l_proc, 10);

1217: e_bg_leg_not_found EXCEPTION;
1218:
1219: BEGIN
1220: l_proc := 'hr_cal_event_mapping_pkg.get_per_asg_cal_events';
1221: hr_utility.set_location('Entering: '|| l_proc, 10);
1222:
1223: l_cal_event_obj := per_cal_event_obj(NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL);
1224: x_cal_event_varray := per_cal_event_varray(); -- initialize empty
1225: l_event_type_flag := NVL(p_event_type_flag, 'B');

Line 1231: hr_utility.set_location(l_proc, 20);

1227:
1228: -- Range validate supplied start and end dates
1229: IF p_start_date IS NOT NULL AND p_end_date IS NOT NULL THEN
1230: IF p_end_date < p_start_date THEN
1231: hr_utility.set_location(l_proc, 20);
1232: RAISE e_param_valdn_fail;
1233: END IF;
1234: l_start_date := TRUNC(p_start_date);
1235: l_end_date := TRUNC(p_end_date);

Line 1243: hr_utility.set_location(l_proc, 30);

1239: IF l_event_type_flag NOT IN ('B', -- Both ORG and GEO events
1240: 'O', -- Only ORG events
1241: 'G' -- Only GEO events
1242: ) THEN
1243: hr_utility.set_location(l_proc, 30);
1244: RAISE e_param_valdn_fail;
1245: END IF;
1246:
1247: -- Get the person assignment identifier

Line 1259: hr_utility.set_location('PerId: '||p_person_id||' AsgId: '||l_assignment_id, 30);

1255: , l_location_id
1256: , l_business_group_id;
1257: CLOSE c_per_asg;
1258:
1259: hr_utility.set_location('PerId: '||p_person_id||' AsgId: '||l_assignment_id, 30);
1260:
1261: -- Get GEO node from assignment EIT if present
1262: IF l_event_type_flag IN ('B','G') THEN
1263: BEGIN

Line 1267: hr_utility.set_location('GEONode: '||l_geo_node, 40);

1263: BEGIN
1264: OPEN c_asg_geo_node (l_assignment_id);
1265: FETCH c_asg_geo_node INTO l_geo_node;
1266: CLOSE c_asg_geo_node;
1267: hr_utility.set_location('GEONode: '||l_geo_node, 40);
1268: EXCEPTION
1269: WHEN OTHERS THEN
1270: -- GEO node not found at assignment EIT level
1271: hr_utility.set_location(l_proc, 45);

Line 1271: hr_utility.set_location(l_proc, 45);

1267: hr_utility.set_location('GEONode: '||l_geo_node, 40);
1268: EXCEPTION
1269: WHEN OTHERS THEN
1270: -- GEO node not found at assignment EIT level
1271: hr_utility.set_location(l_proc, 45);
1272: END;
1273: END IF; -- event flag is 'B' or 'G'
1274:
1275: -- Get GEO node from location EIT if present

Line 1281: hr_utility.set_location('GEONode: '||l_geo_node, 50);

1277: BEGIN
1278: OPEN c_loc_geo_node (l_location_id);
1279: FETCH c_loc_geo_node INTO l_geo_node;
1280: CLOSE c_loc_geo_node;
1281: hr_utility.set_location('GEONode: '||l_geo_node, 50);
1282: EXCEPTION
1283: WHEN OTHERS THEN
1284: -- GEO node not found at location EIT level
1285: hr_utility.set_location(l_proc, 55);

Line 1285: hr_utility.set_location(l_proc, 55);

1281: hr_utility.set_location('GEONode: '||l_geo_node, 50);
1282: EXCEPTION
1283: WHEN OTHERS THEN
1284: -- GEO node not found at location EIT level
1285: hr_utility.set_location(l_proc, 55);
1286: END;
1287: END IF; -- event flag is ('B' or 'G') and GEO Node not yet found
1288:
1289: -- Get GEO node from business group legislation

Line 1295: hr_utility.set_location('GEONode: '||l_geo_node, 60);

1291: BEGIN
1292: OPEN c_bg_geo_node (l_business_group_id);
1293: FETCH c_bg_geo_node INTO l_geo_node;
1294: CLOSE c_bg_geo_node;
1295: hr_utility.set_location('GEONode: '||l_geo_node, 60);
1296: EXCEPTION
1297: WHEN OTHERS THEN
1298: -- GEO node not found at business group legislation level
1299: hr_utility.set_location(l_proc, 65);

Line 1299: hr_utility.set_location(l_proc, 65);

1295: hr_utility.set_location('GEONode: '||l_geo_node, 60);
1296: EXCEPTION
1297: WHEN OTHERS THEN
1298: -- GEO node not found at business group legislation level
1299: hr_utility.set_location(l_proc, 65);
1300: RAISE e_bg_leg_not_found;
1301: END;
1302: END IF; -- event flag is ('B' or 'G') and GEO Node not yet found
1303:

Line 1309: hr_utility.set_location('GEONodeId: '||l_geo_node_id, 70);

1305: IF l_event_type_flag IN ('B','G') AND l_geo_node IS NOT NULL THEN
1306: OPEN c_geo_node_id (l_geo_node);
1307: FETCH c_geo_node_id INTO l_geo_node_id;
1308: CLOSE c_geo_node_id;
1309: hr_utility.set_location('GEONodeId: '||l_geo_node_id, 70);
1310: END IF; -- event flag is ('B' or 'G') and GEO Node found
1311:
1312: -- Get ORG Events if required
1313: IF l_event_type_flag IN ('B','O') AND l_organization_id IS NOT NULL THEN

Line 1421: hr_utility.set_location(l_proc, 80);

1417: x_cal_event_varray.EXTEND(1);
1418: x_cal_event_varray(x_cal_event_varray.COUNT) := l_cal_event_obj;
1419: END LOOP; -- ORG Events
1420: CLOSE c_org_events;
1421: hr_utility.set_location(l_proc, 80);
1422: END IF; -- event flag is ('B' or ')') and ORG Node Id found
1423:
1424: -- Get GEO Events if required
1425: IF l_event_type_flag IN ('B','G') AND l_geo_node_id IS NOT NULL THEN

Line 1533: hr_utility.set_location(l_proc, 90);

1529: x_cal_event_varray.EXTEND(1);
1530: x_cal_event_varray(x_cal_event_varray.COUNT) := l_cal_event_obj;
1531: END LOOP; -- GEO Events
1532: CLOSE c_geo_events;
1533: hr_utility.set_location(l_proc, 90);
1534: END IF; -- event flag is ('B' or 'G') and GEO Node Id found
1535:
1536: hr_utility.set_location('Leaving: '|| l_proc, 100);
1537:

Line 1536: hr_utility.set_location('Leaving: '|| l_proc, 100);

1532: CLOSE c_geo_events;
1533: hr_utility.set_location(l_proc, 90);
1534: END IF; -- event flag is ('B' or 'G') and GEO Node Id found
1535:
1536: hr_utility.set_location('Leaving: '|| l_proc, 100);
1537:
1538: EXCEPTION
1539:
1540: WHEN e_param_valdn_fail THEN

Line 1541: hr_utility.set_location('Leaving: '|| l_proc, 110);

1537:
1538: EXCEPTION
1539:
1540: WHEN e_param_valdn_fail THEN
1541: hr_utility.set_location('Leaving: '|| l_proc, 110);
1542:
1543: WHEN e_bg_leg_not_found THEN
1544: hr_utility.set_location('Leaving: '|| l_proc, 120);
1545:

Line 1544: hr_utility.set_location('Leaving: '|| l_proc, 120);

1540: WHEN e_param_valdn_fail THEN
1541: hr_utility.set_location('Leaving: '|| l_proc, 110);
1542:
1543: WHEN e_bg_leg_not_found THEN
1544: hr_utility.set_location('Leaving: '|| l_proc, 120);
1545:
1546: WHEN OTHERS THEN
1547: hr_utility.set_location('Leaving: '|| l_proc, 130);
1548: hr_utility.set_location(SQLERRM, 135);

Line 1547: hr_utility.set_location('Leaving: '|| l_proc, 130);

1543: WHEN e_bg_leg_not_found THEN
1544: hr_utility.set_location('Leaving: '|| l_proc, 120);
1545:
1546: WHEN OTHERS THEN
1547: hr_utility.set_location('Leaving: '|| l_proc, 130);
1548: hr_utility.set_location(SQLERRM, 135);
1549:
1550: END get_per_asg_cal_events;
1551:

Line 1548: hr_utility.set_location(SQLERRM, 135);

1544: hr_utility.set_location('Leaving: '|| l_proc, 120);
1545:
1546: WHEN OTHERS THEN
1547: hr_utility.set_location('Leaving: '|| l_proc, 130);
1548: hr_utility.set_location(SQLERRM, 135);
1549:
1550: END get_per_asg_cal_events;
1551:
1552: --

Line 1572: hr_utility.set_location('Entering: '|| l_proc, 10);

1568:
1569: BEGIN
1570:
1571: l_proc := 'hr_cal_event_mapping_pkg.get_cal_events (PerVer)';
1572: hr_utility.set_location('Entering: '|| l_proc, 10);
1573:
1574: -- Invoke private procedure to get calendar events
1575: get_per_asg_cal_events (p_person_id => p_person_id
1576: ,p_assignment_id => ''

Line 1584: hr_utility.set_location('Leaving: '|| l_proc, 20);

1580: ,p_event_type_flag => p_event_type_flag
1581: ,x_cal_event_varray => l_cal_event_varray
1582: );
1583:
1584: hr_utility.set_location('Leaving: '|| l_proc, 20);
1585: RETURN l_cal_event_varray;
1586:
1587: EXCEPTION
1588:

Line 1590: hr_utility.set_location('Leaving: '|| l_proc, 30);

1586:
1587: EXCEPTION
1588:
1589: WHEN OTHERS THEN
1590: hr_utility.set_location('Leaving: '|| l_proc, 30);
1591: hr_utility.set_location(SQLERRM, 35);
1592: RETURN l_cal_event_varray;
1593:
1594: END get_cal_events; -- Person Version

Line 1591: hr_utility.set_location(SQLERRM, 35);

1587: EXCEPTION
1588:
1589: WHEN OTHERS THEN
1590: hr_utility.set_location('Leaving: '|| l_proc, 30);
1591: hr_utility.set_location(SQLERRM, 35);
1592: RETURN l_cal_event_varray;
1593:
1594: END get_cal_events; -- Person Version
1595:

Line 1624: hr_utility.set_location('Entering: '|| l_proc, 10);

1620:
1621: BEGIN
1622:
1623: l_proc := 'hr_cal_event_mapping_pkg.get_cal_events (AsgVer)';
1624: hr_utility.set_location('Entering: '|| l_proc, 10);
1625:
1626: -- Get the person id for an assignment id. Though multiple records could
1627: -- exist, the person id will be the same. So sufficient to fetch first.
1628: OPEN c_per_id (p_assignment_id);

Line 1632: hr_utility.set_location(l_proc, 20);

1628: OPEN c_per_id (p_assignment_id);
1629: FETCH c_per_id INTO l_person_id;
1630: CLOSE c_per_id;
1631:
1632: hr_utility.set_location(l_proc, 20);
1633:
1634: -- Invoke private procedure to get calendar events
1635: get_per_asg_cal_events (p_person_id => l_person_id
1636: ,p_assignment_id => p_assignment_id

Line 1644: hr_utility.set_location('Leaving: '|| l_proc, 30);

1640: ,p_event_type_flag => p_event_type_flag
1641: ,x_cal_event_varray => l_cal_event_varray
1642: );
1643:
1644: hr_utility.set_location('Leaving: '|| l_proc, 30);
1645: RETURN l_cal_event_varray;
1646:
1647: EXCEPTION
1648:

Line 1650: hr_utility.set_location('Leaving: '|| l_proc, 40);

1646:
1647: EXCEPTION
1648:
1649: WHEN OTHERS THEN
1650: hr_utility.set_location('Leaving: '|| l_proc, 40);
1651: hr_utility.set_location(SQLERRM, 45);
1652: RETURN l_cal_event_varray;
1653:
1654: END get_cal_events; -- Assignment Version

Line 1651: hr_utility.set_location(SQLERRM, 45);

1647: EXCEPTION
1648:
1649: WHEN OTHERS THEN
1650: hr_utility.set_location('Leaving: '|| l_proc, 40);
1651: hr_utility.set_location(SQLERRM, 45);
1652: RETURN l_cal_event_varray;
1653:
1654: END get_cal_events; -- Assignment Version
1655:

Line 1686: hr_utility.set_location('Entering: '|| l_proc, 10);

1682:
1683: BEGIN
1684:
1685: l_proc := 'hr_cal_event_mapping_pkg.get_cal_events (HZVer)';
1686: hr_utility.set_location('Entering: '|| l_proc, 10);
1687:
1688: -- Get the person id for a party id. Though multiple records could
1689: -- exist, the person id will be the same. So sufficient to fetch first.
1690: OPEN c_per_id (p_hz_party_id);

Line 1694: hr_utility.set_location(l_proc, 20);

1690: OPEN c_per_id (p_hz_party_id);
1691: FETCH c_per_id INTO l_person_id;
1692: CLOSE c_per_id;
1693:
1694: hr_utility.set_location(l_proc, 20);
1695:
1696: -- Invoke private procedure to get calendar events
1697: get_per_asg_cal_events (p_person_id => l_person_id
1698: ,p_assignment_id => ''

Line 1706: hr_utility.set_location('Leaving: '|| l_proc, 30);

1702: ,p_event_type_flag => p_event_type_flag
1703: ,x_cal_event_varray => l_cal_event_varray
1704: );
1705:
1706: hr_utility.set_location('Leaving: '|| l_proc, 30);
1707: RETURN l_cal_event_varray;
1708:
1709: EXCEPTION
1710:

Line 1712: hr_utility.set_location('Leaving: '|| l_proc, 40);

1708:
1709: EXCEPTION
1710:
1711: WHEN OTHERS THEN
1712: hr_utility.set_location('Leaving: '|| l_proc, 40);
1713: hr_utility.set_location(SQLERRM, 45);
1714: RETURN l_cal_event_varray;
1715:
1716: END get_cal_events; -- HZ Party Version

Line 1713: hr_utility.set_location(SQLERRM, 45);

1709: EXCEPTION
1710:
1711: WHEN OTHERS THEN
1712: hr_utility.set_location('Leaving: '|| l_proc, 40);
1713: hr_utility.set_location(SQLERRM, 45);
1714: RETURN l_cal_event_varray;
1715:
1716: END get_cal_events; -- HZ Party Version
1717:

Line 1770: hr_utility.set_location('Entering: '|| l_proc, 10);

1766:
1767: BEGIN
1768:
1769: l_proc := 'hr_cal_event_mapping_pkg.get_all_cal_events';
1770: hr_utility.set_location('Entering: '|| l_proc, 10);
1771: l_cal_event_obj := per_cal_event_obj(NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL);
1772: l_cal_event_varray := per_cal_event_varray(); -- initialize empty
1773: l_bg_id := FND_PROFILE.Value('PER_BUSINESS_GROUP_ID');
1774: l_start_date := TRUNC(p_start_date);

Line 1870: hr_utility.set_location('Leaving: '|| l_proc, 20);

1866: l_cal_event_varray(l_cal_event_varray.COUNT) := l_cal_event_obj;
1867: END LOOP; -- ORG Events
1868: CLOSE c_cal_events;
1869:
1870: hr_utility.set_location('Leaving: '|| l_proc, 20);
1871: RETURN l_cal_event_varray;
1872:
1873: EXCEPTION
1874:

Line 1876: hr_utility.set_location('Leaving: '|| l_proc, 30);

1872:
1873: EXCEPTION
1874:
1875: WHEN OTHERS THEN
1876: hr_utility.set_location('Leaving: '|| l_proc, 30);
1877: hr_utility.set_location(SQLERRM, 35);
1878: RETURN l_cal_event_varray;
1879:
1880: END get_all_cal_events;

Line 1877: hr_utility.set_location(SQLERRM, 35);

1873: EXCEPTION
1874:
1875: WHEN OTHERS THEN
1876: hr_utility.set_location('Leaving: '|| l_proc, 30);
1877: hr_utility.set_location(SQLERRM, 35);
1878: RETURN l_cal_event_varray;
1879:
1880: END get_all_cal_events;
1881:

Line 1904: hr_utility.set_location('Entering: '|| l_proc, 10);

1900:
1901: BEGIN
1902:
1903: l_proc := 'hr_cal_event_mapping_pkg.build_cal_map_cache';
1904: hr_utility.set_location('Entering: '|| l_proc, 10);
1905: l_cal_event_obj := per_cal_event_obj(NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL);
1906: l_cal_event_varray := per_cal_event_varray(); -- initialize empty
1907:
1908: l_cal_event_varray := get_cal_events ( p_assignment_id => p_assignment_id

Line 1914: hr_utility.set_location(l_proc, 20);

1910: , p_start_date => p_start_date
1911: , p_end_date => p_end_date
1912: );
1913:
1914: hr_utility.set_location(l_proc, 20);
1915:
1916: DELETE FROM per_cal_map_cache;
1917:
1918: hr_utility.set_location(l_proc, 30);

Line 1918: hr_utility.set_location(l_proc, 30);

1914: hr_utility.set_location(l_proc, 20);
1915:
1916: DELETE FROM per_cal_map_cache;
1917:
1918: hr_utility.set_location(l_proc, 30);
1919:
1920: IF l_cal_event_varray.COUNT > 0 THEN
1921: hr_utility.set_location(l_proc, 35);
1922:

Line 1921: hr_utility.set_location(l_proc, 35);

1917:
1918: hr_utility.set_location(l_proc, 30);
1919:
1920: IF l_cal_event_varray.COUNT > 0 THEN
1921: hr_utility.set_location(l_proc, 35);
1922:
1923: FOR idx IN l_cal_event_varray.FIRST..l_cal_event_varray.LAST LOOP
1924: l_cal_event_obj := l_cal_event_varray(idx);
1925: INSERT INTO per_cal_map_cache

Line 1952: hr_utility.set_location(l_proc, 40);

1948: );
1949: END LOOP;
1950: END IF;
1951:
1952: hr_utility.set_location(l_proc, 40);
1953:
1954: COMMIT;
1955:
1956: hr_utility.set_location('Leaving: '|| l_proc, 50);

Line 1956: hr_utility.set_location('Leaving: '|| l_proc, 50);

1952: hr_utility.set_location(l_proc, 40);
1953:
1954: COMMIT;
1955:
1956: hr_utility.set_location('Leaving: '|| l_proc, 50);
1957:
1958: EXCEPTION
1959:
1960: WHEN OTHERS THEN

Line 1961: hr_utility.set_location('Leaving: '|| l_proc, 60);

1957:
1958: EXCEPTION
1959:
1960: WHEN OTHERS THEN
1961: hr_utility.set_location('Leaving: '|| l_proc, 60);
1962: hr_utility.set_location(SQLERRM, 65);
1963:
1964: END build_cal_map_cache;
1965:

Line 1962: hr_utility.set_location(SQLERRM, 65);

1958: EXCEPTION
1959:
1960: WHEN OTHERS THEN
1961: hr_utility.set_location('Leaving: '|| l_proc, 60);
1962: hr_utility.set_location(SQLERRM, 65);
1963:
1964: END build_cal_map_cache;
1965:
1966: END hr_cal_event_mapping_pkg;