1593: x_return_status := fnd_api.g_ret_sts_unexp_error;
1594: END calc_mtl_req_date;
1595:
1596: FUNCTION is_qty_below_capacity (
1597: p_batch_step_resources_rec IN gme_batch_step_resources%ROWTYPE)
1598: RETURN BOOLEAN
1599: IS
1600: CURSOR cur_get_um_type (v_uom_code VARCHAR2)
1601: IS
1773: IS
1774: CURSOR cur_get_resources_old
1775: IS
1776: SELECT batchstep_resource_id
1777: FROM gme_batch_step_resources
1778: WHERE batch_id = p_batch_id;
1779:
1780: -- Bug 13946067 - Introduce new table and joins to make use of existing index.
1781: CURSOR cur_get_resources
1780: -- Bug 13946067 - Introduce new table and joins to make use of existing index.
1781: CURSOR cur_get_resources
1782: IS
1783: SELECT batchstep_resource_id
1784: FROM gme_batch_step_resources r, gme_batch_steps s
1785: WHERE r.batch_id = p_batch_id
1786: AND s.batch_id = p_batch_id
1787: AND s.batchstep_id = r.batchstep_id;
1788:
1786: AND s.batch_id = p_batch_id
1787: AND s.batchstep_id = r.batchstep_id;
1788:
1789: l_resource_ids gme_common_pvt.number_tab;
1790: l_batch_step_resources gme_batch_step_resources%ROWTYPE;
1791: l_found NUMBER (5) DEFAULT 0;
1792: l_resources VARCHAR2 (2000);
1793: l_api_name CONSTANT VARCHAR2 (30) := 'resource_qty_below_capacity';
1794: BEGIN
1806:
1807: FOR i IN 1 .. l_resource_ids.COUNT LOOP
1808: l_batch_step_resources.batchstep_resource_id := l_resource_ids (i);
1809:
1810: IF gme_batch_step_resources_dbl.fetch_row
1811: (p_batch_step_resources => l_batch_step_resources
1812: ,x_batch_step_resources => l_batch_step_resources) THEN
1813: IF is_qty_below_capacity
1814: (p_batch_step_resources_rec => l_batch_step_resources) THEN
1822: END IF; /* IF l_resources IS NULL */
1823: END IF;
1824: /* IF is_qty_below_capacity (p_batch_step_resources => l_batch_step_resources) */
1825: END IF;
1826: /* IF GME_BATCH_STEP_RESOURCES_DBL.fetch_row (p_batch_step_resources => l_batch_step_resources */
1827: END LOOP;
1828: /* FOR i IN 1..l_resource_ids.COUNT */
1829: /* If we have found atleast one resource falling below capacity then return true */
1830:
3762: RETURN FALSE;
3763: END close_period_check_flexible;
3764:
3765: FUNCTION get_batchstep_rsrc (
3766: p_batchstep_rsrc_rec IN gme_batch_step_resources%ROWTYPE
3767: ,p_org_code IN VARCHAR2
3768: ,p_batch_no IN VARCHAR2
3769: ,p_batchstep_no IN NUMBER
3770: ,p_activity IN VARCHAR2
3768: ,p_batch_no IN VARCHAR2
3769: ,p_batchstep_no IN NUMBER
3770: ,p_activity IN VARCHAR2
3771: ,p_resource IN VARCHAR2
3772: ,x_batchstep_rsrc_rec OUT NOCOPY gme_batch_step_resources%ROWTYPE)
3773: RETURN BOOLEAN
3774: IS
3775: CURSOR get_organization (l_org_code IN VARCHAR2)
3776: IS
3789: SELECT batchstep_id
3790: FROM gme_batch_steps
3791: WHERE batch_id = l_batch_id AND batchstep_no = l_batchstep_no;
3792:
3793: /* Join of gme_batch_step_resources and
3794: gme_batch_step_activities to get unique BATCHSTEP_RESOURCE_ID */
3795: CURSOR gme_batchstep_resource_id (
3796: l_organization_id IN NUMBER
3797: ,l_batch_id IN NUMBER
3799: ,l_activity IN VARCHAR2
3800: ,l_resource IN VARCHAR2)
3801: IS
3802: SELECT gbsr.batchstep_resource_id
3803: FROM gme_batch_step_resources gbsr
3804: ,gme_batch_step_activities gbsa
3805: WHERE gbsr.organization_id = l_organization_id
3806: AND gbsr.batch_id = l_batch_id
3807: AND gbsr.batchstep_id = l_batchstep_id
3813:
3814: CURSOR c_gbsr (l_batchstep_resource_id IN NUMBER)
3815: IS
3816: SELECT *
3817: FROM gme_batch_step_resources
3818: WHERE batchstep_resource_id = l_batchstep_resource_id;
3819:
3820: l_api_name CONSTANT VARCHAR2 (30) := 'GET_BATCHSTEP_RSRC';
3821: l_organization_id NUMBER;