1525: --| Validates cost_mthd_code |
1526: --| |
1527: --| DESCRIPTION |
1528: --| This function validates that the cost Method Code exists |
1529: --| on cm_mthd_mst |
1530: --| |
1531: --| PARAMETERS |
1532: --| p_cost_mthd_code IN VARCHAR2(4) - Cost Method Code |
1533: --| |
1545: )
1546: RETURN BOOLEAN
1547: IS
1548: l_cost_mthd_code ic_item_mst.cost_mthd_code%TYPE;
1549: CURSOR cm_mthd_mst_c1 IS
1550: SELECT
1551: cost_mthd_code
1552: FROM
1553: cm_mthd_mst
1549: CURSOR cm_mthd_mst_c1 IS
1550: SELECT
1551: cost_mthd_code
1552: FROM
1553: cm_mthd_mst
1554: WHERE
1555: cm_mthd_mst.cost_mthd_code = p_cost_mthd_code
1556: AND cm_mthd_mst.delete_mark = 0;
1557:
1551: cost_mthd_code
1552: FROM
1553: cm_mthd_mst
1554: WHERE
1555: cm_mthd_mst.cost_mthd_code = p_cost_mthd_code
1556: AND cm_mthd_mst.delete_mark = 0;
1557:
1558: BEGIN
1559:
1552: FROM
1553: cm_mthd_mst
1554: WHERE
1555: cm_mthd_mst.cost_mthd_code = p_cost_mthd_code
1556: AND cm_mthd_mst.delete_mark = 0;
1557:
1558: BEGIN
1559:
1560: OPEN cm_mthd_mst_c1;
1556: AND cm_mthd_mst.delete_mark = 0;
1557:
1558: BEGIN
1559:
1560: OPEN cm_mthd_mst_c1;
1561: FETCH cm_mthd_mst_c1 INTO l_cost_mthd_code;
1562: IF (cm_mthd_mst_c1%NOTFOUND)
1563: THEN
1564: CLOSE cm_mthd_mst_c1;
1557:
1558: BEGIN
1559:
1560: OPEN cm_mthd_mst_c1;
1561: FETCH cm_mthd_mst_c1 INTO l_cost_mthd_code;
1562: IF (cm_mthd_mst_c1%NOTFOUND)
1563: THEN
1564: CLOSE cm_mthd_mst_c1;
1565: RETURN FALSE;
1558: BEGIN
1559:
1560: OPEN cm_mthd_mst_c1;
1561: FETCH cm_mthd_mst_c1 INTO l_cost_mthd_code;
1562: IF (cm_mthd_mst_c1%NOTFOUND)
1563: THEN
1564: CLOSE cm_mthd_mst_c1;
1565: RETURN FALSE;
1566: ELSE
1560: OPEN cm_mthd_mst_c1;
1561: FETCH cm_mthd_mst_c1 INTO l_cost_mthd_code;
1562: IF (cm_mthd_mst_c1%NOTFOUND)
1563: THEN
1564: CLOSE cm_mthd_mst_c1;
1565: RETURN FALSE;
1566: ELSE
1567: CLOSE cm_mthd_mst_c1;
1568: RETURN TRUE;
1563: THEN
1564: CLOSE cm_mthd_mst_c1;
1565: RETURN FALSE;
1566: ELSE
1567: CLOSE cm_mthd_mst_c1;
1568: RETURN TRUE;
1569: END IF;
1570:
1571: EXCEPTION