1294: --| Validates custom_class |
1295: --| |
1296: --| DESCRIPTION |
1297: --| This function validates that the Custom Class exists |
1298: --| on ic_ctms_cls |
1299: --| |
1300: --| PARAMETERS |
1301: --| p_customs_class IN VARCHAR2(8) - Customs Class |
1302: --| |
1314: )
1315: RETURN BOOLEAN
1316: IS
1317: l_customs_class ic_item_mst.customs_class%TYPE;
1318: CURSOR ic_ctms_cls_c1 IS
1319: SELECT
1320: iccustoms_class
1321: FROM
1322: ic_ctms_cls
1318: CURSOR ic_ctms_cls_c1 IS
1319: SELECT
1320: iccustoms_class
1321: FROM
1322: ic_ctms_cls
1323: WHERE
1324: ic_ctms_cls.iccustoms_class = p_customs_class
1325: AND ic_ctms_cls.delete_mark = 0;
1326:
1320: iccustoms_class
1321: FROM
1322: ic_ctms_cls
1323: WHERE
1324: ic_ctms_cls.iccustoms_class = p_customs_class
1325: AND ic_ctms_cls.delete_mark = 0;
1326:
1327: BEGIN
1328:
1321: FROM
1322: ic_ctms_cls
1323: WHERE
1324: ic_ctms_cls.iccustoms_class = p_customs_class
1325: AND ic_ctms_cls.delete_mark = 0;
1326:
1327: BEGIN
1328:
1329: OPEN ic_ctms_cls_c1;
1325: AND ic_ctms_cls.delete_mark = 0;
1326:
1327: BEGIN
1328:
1329: OPEN ic_ctms_cls_c1;
1330: FETCH ic_ctms_cls_c1 INTO l_customs_class;
1331: IF (ic_ctms_cls_c1%NOTFOUND)
1332: THEN
1333: CLOSE ic_ctms_cls_c1;
1326:
1327: BEGIN
1328:
1329: OPEN ic_ctms_cls_c1;
1330: FETCH ic_ctms_cls_c1 INTO l_customs_class;
1331: IF (ic_ctms_cls_c1%NOTFOUND)
1332: THEN
1333: CLOSE ic_ctms_cls_c1;
1334: RETURN FALSE;
1327: BEGIN
1328:
1329: OPEN ic_ctms_cls_c1;
1330: FETCH ic_ctms_cls_c1 INTO l_customs_class;
1331: IF (ic_ctms_cls_c1%NOTFOUND)
1332: THEN
1333: CLOSE ic_ctms_cls_c1;
1334: RETURN FALSE;
1335: ELSE
1329: OPEN ic_ctms_cls_c1;
1330: FETCH ic_ctms_cls_c1 INTO l_customs_class;
1331: IF (ic_ctms_cls_c1%NOTFOUND)
1332: THEN
1333: CLOSE ic_ctms_cls_c1;
1334: RETURN FALSE;
1335: ELSE
1336: CLOSE ic_ctms_cls_c1;
1337: RETURN TRUE;
1332: THEN
1333: CLOSE ic_ctms_cls_c1;
1334: RETURN FALSE;
1335: ELSE
1336: CLOSE ic_ctms_cls_c1;
1337: RETURN TRUE;
1338: END IF;
1339:
1340: EXCEPTION