1880: --| Validates expaction_code |
1881: --| |
1882: --| DESCRIPTION |
1883: --| This function validates that Expiration Code exists on |
1884: --| qc_actn_mst |
1885: --| |
1886: --| PARAMETERS |
1887: --| p_expaction_code IN VARCHAR2(4) - Expiration Code |
1888: --| p_grade_ctl IN NUMBER - Lot Status Indicator |
1901: )
1902: RETURN BOOLEAN
1903: IS
1904: l_expaction_code ic_item_mst.expaction_code%TYPE;
1905: CURSOR qc_actn_mst_c1 IS
1906: SELECT
1907: action_code
1908: FROM
1909: qc_actn_mst
1905: CURSOR qc_actn_mst_c1 IS
1906: SELECT
1907: action_code
1908: FROM
1909: qc_actn_mst
1910: WHERE
1911: qc_actn_mst.action_code = p_expaction_code
1912: AND qc_actn_mst.delete_mark = 0;
1913:
1907: action_code
1908: FROM
1909: qc_actn_mst
1910: WHERE
1911: qc_actn_mst.action_code = p_expaction_code
1912: AND qc_actn_mst.delete_mark = 0;
1913:
1914: BEGIN
1915:
1908: FROM
1909: qc_actn_mst
1910: WHERE
1911: qc_actn_mst.action_code = p_expaction_code
1912: AND qc_actn_mst.delete_mark = 0;
1913:
1914: BEGIN
1915:
1916: IF (p_expaction_code = ' ' OR p_expaction_code IS NULL)
1920: THEN
1921: RETURN FALSE;
1922: END IF;
1923:
1924: OPEN qc_actn_mst_c1;
1925:
1926: FETCH qc_actn_mst_c1 INTO l_expaction_code;
1927:
1928: IF (qc_actn_mst_c1%NOTFOUND)
1922: END IF;
1923:
1924: OPEN qc_actn_mst_c1;
1925:
1926: FETCH qc_actn_mst_c1 INTO l_expaction_code;
1927:
1928: IF (qc_actn_mst_c1%NOTFOUND)
1929: THEN
1930: CLOSE qc_actn_mst_c1;
1924: OPEN qc_actn_mst_c1;
1925:
1926: FETCH qc_actn_mst_c1 INTO l_expaction_code;
1927:
1928: IF (qc_actn_mst_c1%NOTFOUND)
1929: THEN
1930: CLOSE qc_actn_mst_c1;
1931: RETURN FALSE;
1932: ELSE
1926: FETCH qc_actn_mst_c1 INTO l_expaction_code;
1927:
1928: IF (qc_actn_mst_c1%NOTFOUND)
1929: THEN
1930: CLOSE qc_actn_mst_c1;
1931: RETURN FALSE;
1932: ELSE
1933: CLOSE qc_actn_mst_c1;
1934: RETURN TRUE;
1929: THEN
1930: CLOSE qc_actn_mst_c1;
1931: RETURN FALSE;
1932: ELSE
1933: CLOSE qc_actn_mst_c1;
1934: RETURN TRUE;
1935: END IF;
1936:
1937: EXCEPTION