830: --| Validates inv_class |
831: --| |
832: --| DESCRIPTION |
833: --| This function validates that the Inventory Class exists |
834: --| on ic_invn_cls |
835: --| |
836: --| PARAMETERS |
837: --| p_inv_class IN VARCHAR2(8) - Inventory Class |
838: --| |
850: )
851: RETURN BOOLEAN
852: IS
853: l_inv_class ic_item_mst.inv_class%TYPE;
854: CURSOR ic_invn_cls_c1 IS
855: SELECT
856: icinv_class
857: FROM
858: ic_invn_cls
854: CURSOR ic_invn_cls_c1 IS
855: SELECT
856: icinv_class
857: FROM
858: ic_invn_cls
859: WHERE
860: ic_invn_cls.icinv_class = p_inv_class
861: AND ic_invn_cls.delete_mark = 0;
862:
856: icinv_class
857: FROM
858: ic_invn_cls
859: WHERE
860: ic_invn_cls.icinv_class = p_inv_class
861: AND ic_invn_cls.delete_mark = 0;
862:
863: BEGIN
864:
857: FROM
858: ic_invn_cls
859: WHERE
860: ic_invn_cls.icinv_class = p_inv_class
861: AND ic_invn_cls.delete_mark = 0;
862:
863: BEGIN
864:
865: OPEN ic_invn_cls_c1;
861: AND ic_invn_cls.delete_mark = 0;
862:
863: BEGIN
864:
865: OPEN ic_invn_cls_c1;
866: FETCH ic_invn_cls_c1 INTO l_inv_class;
867: IF (ic_invn_cls_c1%NOTFOUND)
868: THEN
869: CLOSE ic_invn_cls_c1;
862:
863: BEGIN
864:
865: OPEN ic_invn_cls_c1;
866: FETCH ic_invn_cls_c1 INTO l_inv_class;
867: IF (ic_invn_cls_c1%NOTFOUND)
868: THEN
869: CLOSE ic_invn_cls_c1;
870: RETURN FALSE;
863: BEGIN
864:
865: OPEN ic_invn_cls_c1;
866: FETCH ic_invn_cls_c1 INTO l_inv_class;
867: IF (ic_invn_cls_c1%NOTFOUND)
868: THEN
869: CLOSE ic_invn_cls_c1;
870: RETURN FALSE;
871: ELSE
865: OPEN ic_invn_cls_c1;
866: FETCH ic_invn_cls_c1 INTO l_inv_class;
867: IF (ic_invn_cls_c1%NOTFOUND)
868: THEN
869: CLOSE ic_invn_cls_c1;
870: RETURN FALSE;
871: ELSE
872: CLOSE ic_invn_cls_c1;
873: RETURN TRUE;
868: THEN
869: CLOSE ic_invn_cls_c1;
870: RETURN FALSE;
871: ELSE
872: CLOSE ic_invn_cls_c1;
873: RETURN TRUE;
874: END IF;
875:
876: EXCEPTION