APPS.FND_OAM_DSCRAM_UNITS_PKG dependencies on FND_OAM_DSCRAM_UNITS

Line 1: PACKAGE BODY FND_OAM_DSCRAM_UNITS_PKG as

1: PACKAGE BODY FND_OAM_DSCRAM_UNITS_PKG as
2: /* $Header: AFOAMDSUNITB.pls 120.8 2006/06/07 17:43:32 ilawler noship $ */
3:
4: ----------------------------------------
5: -- Private Body Constants

Line 15: FROM fnd_oam_dscram_units

11: ----------------------------------------
12: CURSOR B_UNITS
13: IS
14: SELECT /*+ FIRST_ROWS(1) */ unit_id, unit_status, phase, actual_workers_allowed, workers_assigned
15: FROM fnd_oam_dscram_units
16: WHERE task_id = FND_OAM_DSCRAM_TASKS_PKG.GET_TASK_ID
17: AND unit_status in (FND_OAM_DSCRAM_UTILS_PKG.G_STATUS_UNPROCESSED,
18: FND_OAM_DSCRAM_UTILS_PKG.G_STATUS_PROCESSING,
19: FND_OAM_DSCRAM_UTILS_PKG.G_STATUS_RESTARTABLE,

Line 253: FROM fnd_oam_dscram_units

249:
250: CURSOR C1
251: IS
252: SELECT unit_status
253: FROM fnd_oam_dscram_units
254: WHERE unit_id = p_unit_id;
255: BEGIN
256: fnd_oam_debug.log(2, l_ctxt, 'ENTER');
257: x_return_status := FND_API.G_RET_STS_ERROR;

Line 322: FROM fnd_oam_dscram_units

318:
319: CURSOR C1
320: IS
321: SELECT unit_status
322: FROM fnd_oam_dscram_units
323: WHERE unit_id = b_unit_info.unit_id;
324: BEGIN
325: x_return_status := FND_API.G_RET_STS_ERROR;
326: x_return_msg := '';

Line 439: FROM fnd_oam_dscram_units

435: SELECT unit_status, suggest_workers_allowed, actual_workers_allowed, workers_assigned, unit_type, weight,
436: unit_object_owner, unit_object_name, error_fatality_level, suggest_disable_splitting, actual_disable_splitting, batch_size
437: INTO l_status, l_suggest_workers_allowed, l_actual_workers_allowed, l_workers_assigned, l_unit_type, l_weight,
438: l_unit_object_owner, l_unit_object_name, l_error_fatality_level, l_suggest_disable_splitting, l_actual_disable_splitting, l_batch_size
439: FROM fnd_oam_dscram_units
440: WHERE unit_id = p_unit_id
441: FOR UPDATE;
442:
443: fnd_oam_debug.log(1, l_ctxt, 'Unit Status: '||l_status);

Line 501: UPDATE fnd_oam_dscram_units

497: l_actual_workers_allowed := NVL(l_actual_workers_allowed, l_suggest_workers_allowed); --acceptable to push a NULL
498: l_actual_disable_splitting := NVL(l_actual_disable_splitting, NVL(l_suggest_disable_splitting, FND_API.G_FALSE));
499:
500: -- update the status and other fields
501: UPDATE fnd_oam_dscram_units
502: SET unit_status = FND_OAM_DSCRAM_UTILS_PKG.G_STATUS_PROCESSING,
503: stats_finished = FND_API.G_FALSE,
504: actual_workers_allowed = l_actual_workers_allowed,
505: actual_disable_splitting = l_actual_disable_splitting

Line 521: UPDATE fnd_oam_dscram_units

517: -- convert our splitting decision
518: l_use_splitting := NOT(FND_OAM_DSCRAM_UTILS_PKG.FLAG_TO_BOOLEAN(l_actual_disable_splitting));
519:
520: -- finally, always update the last updated fields and the # of workers assigned.
521: UPDATE fnd_oam_dscram_units
522: SET workers_assigned = workers_assigned + 1,
523: last_updated_by = fnd_global.user_id,
524: last_update_login = fnd_global.user_id,
525: last_update_date = SYSDATE

Line 601: FROM fnd_oam_dscram_units

597:
598: -- always lock the unit since we have to decrement the worker count
599: SELECT unit_status, workers_assigned
600: INTO l_status, l_workers_assigned
601: FROM fnd_oam_dscram_units
602: WHERE unit_id = p_unit_id
603: FOR UPDATE;
604:
605: --first take care of our child work items that need concurrent completion (DMLs, PLSQLs, ...)

Line 782: UPDATE fnd_oam_dscram_units

778: fnd_oam_debug.log(1, l_ctxt, 'Translated Execute Ret Sts "'||l_proposed_ret_sts||'" into "'||l_final_ret_sts||'"');
779:
780: --if we discovered that we're full, possibly temporarily, just decrement the worker count and leave if we're not the last worker
781: IF l_final_ret_sts = FND_OAM_DSCRAM_UTILS_PKG.G_RET_STS_FULL AND l_workers_assigned > 1 THEN
782: UPDATE fnd_oam_dscram_units
783: SET workers_assigned = workers_assigned - 1,
784: last_updated_by = fnd_global.user_id,
785: last_update_login = fnd_global.user_id,
786: last_update_date = SYSDATE

Line 790: UPDATE fnd_oam_dscram_units

786: last_update_date = SYSDATE
787: WHERE unit_id = p_unit_id;
788: ELSE
789: -- otherwise, update the status and workers_assigned
790: UPDATE fnd_oam_dscram_units
791: SET unit_status = l_final_status,
792: workers_assigned = workers_assigned - 1,
793: last_updated_by = fnd_global.user_id,
794: last_update_login = fnd_global.user_id,

Line 1448: FROM fnd_oam_dscram_units

1444:
1445: --first we need to fetch the component units of this meta-unit
1446: SELECT unit_id, unit_type, priority
1447: BULK COLLECT INTO l_unit_ids, l_types, l_priorities
1448: FROM fnd_oam_dscram_units
1449: WHERE task_id = FND_OAM_DSCRAM_TASKS_PKG.GET_TASK_ID
1450: AND concurrent_group_unit_id = b_unit_info.unit_id
1451: ORDER BY priority ASC, weight DESC;
1452:

Line 1748: END FND_OAM_DSCRAM_UNITS_PKG;

1744: x_return_msg,
1745: x_return_status);
1746: END;
1747:
1748: END FND_OAM_DSCRAM_UNITS_PKG;