2481: FUNCTION Validate_Location
2482: ( p_item_loct_ctl IN ic_item_mst.loct_ctl%TYPE
2483: , p_whse_loct_ctl IN ic_whse_mst.loct_ctl%TYPE
2484: , p_whse_code IN ic_whse_mst.whse_code%TYPE
2485: , p_location IN ic_loct_mst.location%TYPE
2486: )
2487: RETURN BOOLEAN
2488: IS
2489: l_loct_ctl NUMBER;
2486: )
2487: RETURN BOOLEAN
2488: IS
2489: l_loct_ctl NUMBER;
2490: l_location ic_loct_mst.location%TYPE;
2491: CURSOR ic_loct_mst_c1 IS
2492: SELECT
2493: location
2494: FROM
2487: RETURN BOOLEAN
2488: IS
2489: l_loct_ctl NUMBER;
2490: l_location ic_loct_mst.location%TYPE;
2491: CURSOR ic_loct_mst_c1 IS
2492: SELECT
2493: location
2494: FROM
2495: ic_loct_mst
2491: CURSOR ic_loct_mst_c1 IS
2492: SELECT
2493: location
2494: FROM
2495: ic_loct_mst
2496: WHERE
2497: whse_code = p_whse_code
2498: AND location = p_location
2499: AND delete_mark = 0;
2525: END IF;
2526: END IF;
2527:
2528: -- validated location required
2529: OPEN ic_loct_mst_c1;
2530: FETCH ic_loct_mst_c1 INTO l_location;
2531: IF (ic_loct_mst_c1%NOTFOUND)
2532: THEN
2533: CLOSE ic_loct_mst_c1;
2526: END IF;
2527:
2528: -- validated location required
2529: OPEN ic_loct_mst_c1;
2530: FETCH ic_loct_mst_c1 INTO l_location;
2531: IF (ic_loct_mst_c1%NOTFOUND)
2532: THEN
2533: CLOSE ic_loct_mst_c1;
2534: RETURN FALSE;
2527:
2528: -- validated location required
2529: OPEN ic_loct_mst_c1;
2530: FETCH ic_loct_mst_c1 INTO l_location;
2531: IF (ic_loct_mst_c1%NOTFOUND)
2532: THEN
2533: CLOSE ic_loct_mst_c1;
2534: RETURN FALSE;
2535: ELSE
2529: OPEN ic_loct_mst_c1;
2530: FETCH ic_loct_mst_c1 INTO l_location;
2531: IF (ic_loct_mst_c1%NOTFOUND)
2532: THEN
2533: CLOSE ic_loct_mst_c1;
2534: RETURN FALSE;
2535: ELSE
2536: CLOSE ic_loct_mst_c1;
2537: RETURN TRUE;
2532: THEN
2533: CLOSE ic_loct_mst_c1;
2534: RETURN FALSE;
2535: ELSE
2536: CLOSE ic_loct_mst_c1;
2537: RETURN TRUE;
2538: END IF;
2539:
2540: EXCEPTION