1004: --| Validates frt_class |
1005: --| |
1006: --| DESCRIPTION |
1007: --| This function validates that the Freight Class exists |
1008: --| on ic_frgt_cls |
1009: --| |
1010: --| PARAMETERS |
1011: --| p_frgt_class IN VARCHAR2(8) - Freight Class |
1012: --| |
1024: )
1025: RETURN BOOLEAN
1026: IS
1027: l_frt_class ic_item_mst.frt_class%TYPE;
1028: CURSOR ic_frgt_cls_c1 IS
1029: SELECT
1030: icfrt_class
1031: FROM
1032: ic_frgt_cls
1028: CURSOR ic_frgt_cls_c1 IS
1029: SELECT
1030: icfrt_class
1031: FROM
1032: ic_frgt_cls
1033: WHERE
1034: ic_frgt_cls.icfrt_class = p_frt_class
1035: AND ic_frgt_cls.delete_mark = 0;
1036:
1030: icfrt_class
1031: FROM
1032: ic_frgt_cls
1033: WHERE
1034: ic_frgt_cls.icfrt_class = p_frt_class
1035: AND ic_frgt_cls.delete_mark = 0;
1036:
1037: BEGIN
1038:
1031: FROM
1032: ic_frgt_cls
1033: WHERE
1034: ic_frgt_cls.icfrt_class = p_frt_class
1035: AND ic_frgt_cls.delete_mark = 0;
1036:
1037: BEGIN
1038:
1039: OPEN ic_frgt_cls_c1;
1035: AND ic_frgt_cls.delete_mark = 0;
1036:
1037: BEGIN
1038:
1039: OPEN ic_frgt_cls_c1;
1040: FETCH ic_frgt_cls_c1 INTO l_frt_class;
1041: IF (ic_frgt_cls_c1%NOTFOUND)
1042: THEN
1043: CLOSE ic_frgt_cls_c1;
1036:
1037: BEGIN
1038:
1039: OPEN ic_frgt_cls_c1;
1040: FETCH ic_frgt_cls_c1 INTO l_frt_class;
1041: IF (ic_frgt_cls_c1%NOTFOUND)
1042: THEN
1043: CLOSE ic_frgt_cls_c1;
1044: RETURN FALSE;
1037: BEGIN
1038:
1039: OPEN ic_frgt_cls_c1;
1040: FETCH ic_frgt_cls_c1 INTO l_frt_class;
1041: IF (ic_frgt_cls_c1%NOTFOUND)
1042: THEN
1043: CLOSE ic_frgt_cls_c1;
1044: RETURN FALSE;
1045: ELSE
1039: OPEN ic_frgt_cls_c1;
1040: FETCH ic_frgt_cls_c1 INTO l_frt_class;
1041: IF (ic_frgt_cls_c1%NOTFOUND)
1042: THEN
1043: CLOSE ic_frgt_cls_c1;
1044: RETURN FALSE;
1045: ELSE
1046: CLOSE ic_frgt_cls_c1;
1047: RETURN TRUE;
1042: THEN
1043: CLOSE ic_frgt_cls_c1;
1044: RETURN FALSE;
1045: ELSE
1046: CLOSE ic_frgt_cls_c1;
1047: RETURN TRUE;
1048: END IF;
1049:
1050: EXCEPTION