557: --| FUNCTION NAME |
558: --| Validate_inv_type |
559: --| |
560: --| USAGE |
561: --| Validates inv_type which must exist on ic_invn_typ if non blank |
562: --| |
563: --| DESCRIPTION |
564: --| This function validates that the inventory type exists on |
565: --| ic_invn_typ |
561: --| Validates inv_type which must exist on ic_invn_typ if non blank |
562: --| |
563: --| DESCRIPTION |
564: --| This function validates that the inventory type exists on |
565: --| ic_invn_typ |
566: --| |
567: --| PARAMETERS |
568: --| p_inv_type IN NUMBER - Inventory Type |
569: --| |
581: )
582: RETURN BOOLEAN
583: IS
584: l_inv_type ic_item_mst.inv_type%TYPE;
585: CURSOR ic_invn_typ_c1 IS
586: SELECT
587: inv_type
588: FROM
589: ic_invn_typ
585: CURSOR ic_invn_typ_c1 IS
586: SELECT
587: inv_type
588: FROM
589: ic_invn_typ
590: WHERE
591: ic_invn_typ.inv_type = p_inv_type
592: AND ic_invn_typ.delete_mark = 0;
593:
587: inv_type
588: FROM
589: ic_invn_typ
590: WHERE
591: ic_invn_typ.inv_type = p_inv_type
592: AND ic_invn_typ.delete_mark = 0;
593:
594: BEGIN
595:
588: FROM
589: ic_invn_typ
590: WHERE
591: ic_invn_typ.inv_type = p_inv_type
592: AND ic_invn_typ.delete_mark = 0;
593:
594: BEGIN
595:
596: OPEN ic_invn_typ_c1;
592: AND ic_invn_typ.delete_mark = 0;
593:
594: BEGIN
595:
596: OPEN ic_invn_typ_c1;
597: FETCH ic_invn_typ_c1 INTO l_inv_type;
598: IF (ic_invn_typ_c1%NOTFOUND)
599: THEN
600: CLOSE ic_invn_typ_c1;
593:
594: BEGIN
595:
596: OPEN ic_invn_typ_c1;
597: FETCH ic_invn_typ_c1 INTO l_inv_type;
598: IF (ic_invn_typ_c1%NOTFOUND)
599: THEN
600: CLOSE ic_invn_typ_c1;
601: RETURN FALSE;
594: BEGIN
595:
596: OPEN ic_invn_typ_c1;
597: FETCH ic_invn_typ_c1 INTO l_inv_type;
598: IF (ic_invn_typ_c1%NOTFOUND)
599: THEN
600: CLOSE ic_invn_typ_c1;
601: RETURN FALSE;
602: ELSE
596: OPEN ic_invn_typ_c1;
597: FETCH ic_invn_typ_c1 INTO l_inv_type;
598: IF (ic_invn_typ_c1%NOTFOUND)
599: THEN
600: CLOSE ic_invn_typ_c1;
601: RETURN FALSE;
602: ELSE
603: CLOSE ic_invn_typ_c1;
604: RETURN TRUE;
599: THEN
600: CLOSE ic_invn_typ_c1;
601: RETURN FALSE;
602: ELSE
603: CLOSE ic_invn_typ_c1;
604: RETURN TRUE;
605: END IF;
606:
607: EXCEPTION