946: --| Validates ship_class |
947: --| |
948: --| DESCRIPTION |
949: --| This function validates that the Ship Class exists |
950: --| on ic_ship_cls |
951: --| |
952: --| PARAMETERS |
953: --| p_ship_class IN VARCHAR2(8) - Ship Class |
954: --| |
966: )
967: RETURN BOOLEAN
968: IS
969: l_ship_class ic_item_mst.ship_class%TYPE;
970: CURSOR ic_ship_cls_c1 IS
971: SELECT
972: icship_class
973: FROM
974: ic_ship_cls
970: CURSOR ic_ship_cls_c1 IS
971: SELECT
972: icship_class
973: FROM
974: ic_ship_cls
975: WHERE
976: ic_ship_cls.icship_class = p_ship_class
977: AND ic_ship_cls.delete_mark = 0;
978:
972: icship_class
973: FROM
974: ic_ship_cls
975: WHERE
976: ic_ship_cls.icship_class = p_ship_class
977: AND ic_ship_cls.delete_mark = 0;
978:
979: BEGIN
980:
973: FROM
974: ic_ship_cls
975: WHERE
976: ic_ship_cls.icship_class = p_ship_class
977: AND ic_ship_cls.delete_mark = 0;
978:
979: BEGIN
980:
981: OPEN ic_ship_cls_c1;
977: AND ic_ship_cls.delete_mark = 0;
978:
979: BEGIN
980:
981: OPEN ic_ship_cls_c1;
982: FETCH ic_ship_cls_c1 INTO l_ship_class;
983: IF (ic_ship_cls_c1%NOTFOUND)
984: THEN
985: CLOSE ic_ship_cls_c1;
978:
979: BEGIN
980:
981: OPEN ic_ship_cls_c1;
982: FETCH ic_ship_cls_c1 INTO l_ship_class;
983: IF (ic_ship_cls_c1%NOTFOUND)
984: THEN
985: CLOSE ic_ship_cls_c1;
986: RETURN FALSE;
979: BEGIN
980:
981: OPEN ic_ship_cls_c1;
982: FETCH ic_ship_cls_c1 INTO l_ship_class;
983: IF (ic_ship_cls_c1%NOTFOUND)
984: THEN
985: CLOSE ic_ship_cls_c1;
986: RETURN FALSE;
987: ELSE
981: OPEN ic_ship_cls_c1;
982: FETCH ic_ship_cls_c1 INTO l_ship_class;
983: IF (ic_ship_cls_c1%NOTFOUND)
984: THEN
985: CLOSE ic_ship_cls_c1;
986: RETURN FALSE;
987: ELSE
988: CLOSE ic_ship_cls_c1;
989: RETURN TRUE;
984: THEN
985: CLOSE ic_ship_cls_c1;
986: RETURN FALSE;
987: ELSE
988: CLOSE ic_ship_cls_c1;
989: RETURN TRUE;
990: END IF;
991:
992: EXCEPTION