1430: )
1431: RETURN BOOLEAN
1432: IS
1433: l_planning_class ic_item_mst.planning_class%TYPE;
1434: CURSOR ps_plng_cls_c1 IS
1435: SELECT
1436: planning_class
1437: FROM
1438: ps_plng_cls
1434: CURSOR ps_plng_cls_c1 IS
1435: SELECT
1436: planning_class
1437: FROM
1438: ps_plng_cls
1439: WHERE
1440: ps_plng_cls.planning_class = p_planning_class
1441: AND ps_plng_cls.delete_mark = 0;
1442:
1436: planning_class
1437: FROM
1438: ps_plng_cls
1439: WHERE
1440: ps_plng_cls.planning_class = p_planning_class
1441: AND ps_plng_cls.delete_mark = 0;
1442:
1443: BEGIN
1444:
1437: FROM
1438: ps_plng_cls
1439: WHERE
1440: ps_plng_cls.planning_class = p_planning_class
1441: AND ps_plng_cls.delete_mark = 0;
1442:
1443: BEGIN
1444:
1445: OPEN ps_plng_cls_c1;
1441: AND ps_plng_cls.delete_mark = 0;
1442:
1443: BEGIN
1444:
1445: OPEN ps_plng_cls_c1;
1446: FETCH ps_plng_cls_c1 INTO l_planning_class;
1447: IF (ps_plng_cls_c1%NOTFOUND)
1448: THEN
1449: CLOSE ps_plng_cls_c1;
1442:
1443: BEGIN
1444:
1445: OPEN ps_plng_cls_c1;
1446: FETCH ps_plng_cls_c1 INTO l_planning_class;
1447: IF (ps_plng_cls_c1%NOTFOUND)
1448: THEN
1449: CLOSE ps_plng_cls_c1;
1450: RETURN FALSE;
1443: BEGIN
1444:
1445: OPEN ps_plng_cls_c1;
1446: FETCH ps_plng_cls_c1 INTO l_planning_class;
1447: IF (ps_plng_cls_c1%NOTFOUND)
1448: THEN
1449: CLOSE ps_plng_cls_c1;
1450: RETURN FALSE;
1451: ELSE
1445: OPEN ps_plng_cls_c1;
1446: FETCH ps_plng_cls_c1 INTO l_planning_class;
1447: IF (ps_plng_cls_c1%NOTFOUND)
1448: THEN
1449: CLOSE ps_plng_cls_c1;
1450: RETURN FALSE;
1451: ELSE
1452: CLOSE ps_plng_cls_c1;
1453: RETURN TRUE;
1448: THEN
1449: CLOSE ps_plng_cls_c1;
1450: RETURN FALSE;
1451: ELSE
1452: CLOSE ps_plng_cls_c1;
1453: RETURN TRUE;
1454: END IF;
1455:
1456: EXCEPTION