1120: --| Validates storage_class |
1121: --| |
1122: --| DESCRIPTION |
1123: --| This function validates that the Storage Class exists |
1124: --| on ic_stor_cls |
1125: --| |
1126: --| PARAMETERS |
1127: --| p_storage_class IN VARCHAR2(8) - Storage Class |
1128: --| |
1140: )
1141: RETURN BOOLEAN
1142: IS
1143: l_storage_class ic_item_mst.storage_class%TYPE;
1144: CURSOR ic_stor_cls_c1 IS
1145: SELECT
1146: icstorage_class
1147: FROM
1148: ic_stor_cls
1144: CURSOR ic_stor_cls_c1 IS
1145: SELECT
1146: icstorage_class
1147: FROM
1148: ic_stor_cls
1149: WHERE
1150: ic_stor_cls.icstorage_class = p_storage_class
1151: AND ic_stor_cls.delete_mark = 0;
1152:
1146: icstorage_class
1147: FROM
1148: ic_stor_cls
1149: WHERE
1150: ic_stor_cls.icstorage_class = p_storage_class
1151: AND ic_stor_cls.delete_mark = 0;
1152:
1153: BEGIN
1154:
1147: FROM
1148: ic_stor_cls
1149: WHERE
1150: ic_stor_cls.icstorage_class = p_storage_class
1151: AND ic_stor_cls.delete_mark = 0;
1152:
1153: BEGIN
1154:
1155: OPEN ic_stor_cls_c1;
1151: AND ic_stor_cls.delete_mark = 0;
1152:
1153: BEGIN
1154:
1155: OPEN ic_stor_cls_c1;
1156: FETCH ic_stor_cls_c1 INTO l_storage_class;
1157: IF (ic_stor_cls_c1%NOTFOUND)
1158: THEN
1159: CLOSE ic_stor_cls_c1;
1152:
1153: BEGIN
1154:
1155: OPEN ic_stor_cls_c1;
1156: FETCH ic_stor_cls_c1 INTO l_storage_class;
1157: IF (ic_stor_cls_c1%NOTFOUND)
1158: THEN
1159: CLOSE ic_stor_cls_c1;
1160: RETURN FALSE;
1153: BEGIN
1154:
1155: OPEN ic_stor_cls_c1;
1156: FETCH ic_stor_cls_c1 INTO l_storage_class;
1157: IF (ic_stor_cls_c1%NOTFOUND)
1158: THEN
1159: CLOSE ic_stor_cls_c1;
1160: RETURN FALSE;
1161: ELSE
1155: OPEN ic_stor_cls_c1;
1156: FETCH ic_stor_cls_c1 INTO l_storage_class;
1157: IF (ic_stor_cls_c1%NOTFOUND)
1158: THEN
1159: CLOSE ic_stor_cls_c1;
1160: RETURN FALSE;
1161: ELSE
1162: CLOSE ic_stor_cls_c1;
1163: RETURN TRUE;
1158: THEN
1159: CLOSE ic_stor_cls_c1;
1160: RETURN FALSE;
1161: ELSE
1162: CLOSE ic_stor_cls_c1;
1163: RETURN TRUE;
1164: END IF;
1165:
1166: EXCEPTION