[Home] [Help]
1: PACKAGE BODY hxc_load_pkg AS
2: /* $Header: hxcload.pkb 120.3 2005/11/14 22:48:24 jdupont noship $ */
3:
4: g_debug boolean := hr_utility.debug_enabled;
5:
6: FUNCTION get_pref_def_name ( p_pref_definition_id NUMBER ) RETURN VARCHAR2 IS
7:
8: l_name fnd_descr_flex_contexts_vl.descriptive_flex_context_name%TYPE;
1156: BEGIN
1157:
1158: IF ( g_debug ) THEN
1159: l_proc := g_package||'get_dyn_sql';
1160: hr_utility.trace('get dyn sql params are ....');
1161: hr_utility.trace('dyn sql is '||p_time_sql);
1162: END IF;
1163:
1164: -- we want the dynamic sql string
1157:
1158: IF ( g_debug ) THEN
1159: l_proc := g_package||'get_dyn_sql';
1160: hr_utility.trace('get dyn sql params are ....');
1161: hr_utility.trace('dyn sql is '||p_time_sql);
1162: END IF;
1163:
1164: -- we want the dynamic sql string
1165:
1203:
1204: ELSIF ( ( l_value_string = '
1205: THEN
1206: IF ( g_debug ) THEN
1207: hr_utility.trace('GAZ - INVALID COMBO');
1208: END IF;
1209:
1210: fnd_message.set_name('HXC', 'HXC_TC_INV_EQUAL_IS_NULL_COMBO');
1211: fnd_message.raise_error;
1285: -- EAch Time Category SQL to be evaluated seperately from
1286: -- now on so combining of TIME_SQL not necessary
1287:
1288: IF ( g_debug ) THEN
1289: hr_utility.trace('GAZ - another TC !!!!');
1290: END IF;
1291: END IF;
1292:
1293: ELSE
1292:
1293: ELSE
1294:
1295: IF ( g_debug ) THEN
1296: hr_utility.trace('not first time round');
1297: hr_utility.trace('sql is '||l_dyn_sql);
1298: END IF;
1299:
1300: -- set l_string_start for the case when generating SQL for alernate name
1293: ELSE
1294:
1295: IF ( g_debug ) THEN
1296: hr_utility.trace('not first time round');
1297: hr_utility.trace('sql is '||l_dyn_sql);
1298: END IF;
1299:
1300: -- set l_string_start for the case when generating SQL for alernate name
1301: IF ( p_comps_r.segment IS NOT NULL )
1315:
1316: ELSIF ( ( l_value_string = '
1317: THEN
1318: IF ( g_debug ) THEN
1319: hr_utility.trace('GAZ - INVALID COMBO');
1320: END IF;
1321:
1322: fnd_message.set_name('HXC', 'HXC_TC_INV_EQUAL_IS_NULL_COMBO');
1323: fnd_message.raise_error;
1377: -- EAch Time Category SQL to be evaluated seperately from
1378: -- now on so combining of TIME_SQL not necessary
1379:
1380: IF ( g_debug ) THEN
1381: hr_utility.trace('GAZ - another TC !!!!');
1382: END IF;
1383: END IF;
1384: END IF;
1385:
1383: END IF;
1384: END IF;
1385:
1386: IF ( g_debug ) THEN
1387: hr_utility.trace('dyn sql is '||l_dyn_sql);
1388: END IF;
1389:
1390: p_time_sql := l_dyn_sql;
1391:
1406:
1407:
1408: BEGIN -- mapping_component_string
1409:
1410: g_debug := hr_utility.debug_enabled;
1411:
1412: l_first_time_round := TRUE;
1413:
1414: -- ***************************************
1416: -- ***************************************
1417:
1418: IF ( g_debug ) THEN
1419: l_proc := g_package||'mapping_component_string';
1420: hr_utility.set_location('Processing '||l_proc, 10);
1421:
1422: hr_utility.trace('Time Category ID is '||to_char(p_time_category_id));
1423: END IF;
1424:
1418: IF ( g_debug ) THEN
1419: l_proc := g_package||'mapping_component_string';
1420: hr_utility.set_location('Processing '||l_proc, 10);
1421:
1422: hr_utility.trace('Time Category ID is '||to_char(p_time_category_id));
1423: END IF;
1424:
1425: -- get the time category operator
1426:
1435: OPEN csr_get_category_comps ( p_time_category_id );
1436: FETCH csr_get_category_comps INTO l_comps_r;
1437:
1438: IF ( g_debug ) THEN
1439: hr_utility.set_location('Processing '||l_proc, 20);
1440: END IF;
1441:
1442: WHILE csr_get_category_comps%FOUND
1443: LOOP
1442: WHILE csr_get_category_comps%FOUND
1443: LOOP
1444:
1445: IF ( g_debug ) THEN
1446: hr_utility.set_location('Processing '||l_proc, 30);
1447: END IF;
1448:
1449: get_dyn_sql ( p_time_sql => l_dynamic_sql
1450: , p_comps_r => l_comps_r
1450: , p_comps_r => l_comps_r
1451: , p_operator => l_operator );
1452:
1453: IF ( g_debug ) THEN
1454: hr_utility.set_location('Processing '||l_proc, 60);
1455: END IF;
1456:
1457: FETCH csr_get_category_comps INTO l_comps_r;
1458:
1460:
1461: END LOOP;
1462:
1463: IF ( g_debug ) THEN
1464: hr_utility.set_location('Processing '||l_proc, 70);
1465: END IF;
1466:
1467: CLOSE csr_get_category_comps;
1468:
1466:
1467: CLOSE csr_get_category_comps;
1468:
1469: IF ( g_debug ) THEN
1470: hr_utility.set_location('Processing '||l_proc, 80);
1471: END IF;
1472:
1473: IF ( l_dynamic_sql IS NOT NULL )
1474: THEN
1480:
1481: p_time_sql := l_dynamic_sql;
1482:
1483: IF ( g_debug ) THEN
1484: hr_utility.trace('Final dyn sql is '||NVL(p_time_sql,'Empty'));
1485: END IF;
1486:
1487:
1488: END mapping_component_string;
1493:
1494:
1495: BEGIN
1496:
1497: g_debug := hr_utility.debug_enabled;
1498:
1499: mapping_component_string (
1500: p_time_category_id => p_time_category_id
1501: , p_time_sql => l_time_sql );
1500: p_time_category_id => p_time_category_id
1501: , p_time_sql => l_time_sql );
1502:
1503: if g_debug then
1504: hr_utility.trace('set dyn sql string string is '||l_time_sql);
1505: end if;
1506:
1507: UPDATE hxc_time_categories
1508: SET time_sql = l_time_sql
1510:
1511: exception when others then
1512:
1513: if g_debug then
1514: hr_utility.trace('exception is '||SQLERRM);
1515: end if;
1516:
1517: raise;
1518: