772: --| Validates gl_class |
773: --| |
774: --| DESCRIPTION |
775: --| This function validates that the GL Class code exists |
776: --| on ic_gled_cls |
777: --| |
778: --| PARAMETERS |
779: --| p_gl_class IN VARCHAR2(8) - GL Class |
780: --| |
792: )
793: RETURN BOOLEAN
794: IS
795: l_gl_class ic_item_mst.gl_class%TYPE;
796: CURSOR ic_gled_cls_c1 IS
797: SELECT
798: icgl_class
799: FROM
800: ic_gled_cls
796: CURSOR ic_gled_cls_c1 IS
797: SELECT
798: icgl_class
799: FROM
800: ic_gled_cls
801: WHERE
802: ic_gled_cls.icgl_class = p_gl_class
803: AND ic_gled_cls.delete_mark = 0;
804:
798: icgl_class
799: FROM
800: ic_gled_cls
801: WHERE
802: ic_gled_cls.icgl_class = p_gl_class
803: AND ic_gled_cls.delete_mark = 0;
804:
805: BEGIN
806:
799: FROM
800: ic_gled_cls
801: WHERE
802: ic_gled_cls.icgl_class = p_gl_class
803: AND ic_gled_cls.delete_mark = 0;
804:
805: BEGIN
806:
807: OPEN ic_gled_cls_c1;
803: AND ic_gled_cls.delete_mark = 0;
804:
805: BEGIN
806:
807: OPEN ic_gled_cls_c1;
808: FETCH ic_gled_cls_c1 INTO l_gl_class;
809: IF (ic_gled_cls_c1%NOTFOUND)
810: THEN
811: CLOSE ic_gled_cls_c1;
804:
805: BEGIN
806:
807: OPEN ic_gled_cls_c1;
808: FETCH ic_gled_cls_c1 INTO l_gl_class;
809: IF (ic_gled_cls_c1%NOTFOUND)
810: THEN
811: CLOSE ic_gled_cls_c1;
812: RETURN FALSE;
805: BEGIN
806:
807: OPEN ic_gled_cls_c1;
808: FETCH ic_gled_cls_c1 INTO l_gl_class;
809: IF (ic_gled_cls_c1%NOTFOUND)
810: THEN
811: CLOSE ic_gled_cls_c1;
812: RETURN FALSE;
813: ELSE
807: OPEN ic_gled_cls_c1;
808: FETCH ic_gled_cls_c1 INTO l_gl_class;
809: IF (ic_gled_cls_c1%NOTFOUND)
810: THEN
811: CLOSE ic_gled_cls_c1;
812: RETURN FALSE;
813: ELSE
814: CLOSE ic_gled_cls_c1;
815: RETURN TRUE;
810: THEN
811: CLOSE ic_gled_cls_c1;
812: RETURN FALSE;
813: ELSE
814: CLOSE ic_gled_cls_c1;
815: RETURN TRUE;
816: END IF;
817:
818: EXCEPTION