390: --| |
391: --+==========================================================================+
392: -- Func end of comments
393: FUNCTION Validate_Doc_No
394: ( p_doc_type IN sy_docs_seq.doc_type%TYPE
395: , p_doc_no IN VARCHAR2
396: , p_orgn_code IN sy_orgn_mst.orgn_code%TYPE
397: )
398: RETURN BOOLEAN
396: , p_orgn_code IN sy_orgn_mst.orgn_code%TYPE
397: )
398: RETURN BOOLEAN
399: IS
400: l_assignment_type sy_docs_seq.assignment_type%TYPE;
401: CURSOR sy_docs_seq_c1 IS
402: SELECT
403: assignment_type
404: FROM
397: )
398: RETURN BOOLEAN
399: IS
400: l_assignment_type sy_docs_seq.assignment_type%TYPE;
401: CURSOR sy_docs_seq_c1 IS
402: SELECT
403: assignment_type
404: FROM
405: sy_docs_seq
401: CURSOR sy_docs_seq_c1 IS
402: SELECT
403: assignment_type
404: FROM
405: sy_docs_seq
406: WHERE
407: doc_type = p_doc_type
408: AND orgn_code = p_orgn_code
409: AND delete_mark = 0;
409: AND delete_mark = 0;
410:
411: BEGIN
412:
413: OPEN sy_docs_seq_c1;
414: FETCH sy_docs_seq_c1 INTO l_assignment_type;
415: IF (sy_docs_seq_c1%NOTFOUND)
416: THEN
417: CLOSE sy_docs_seq_c1;
410:
411: BEGIN
412:
413: OPEN sy_docs_seq_c1;
414: FETCH sy_docs_seq_c1 INTO l_assignment_type;
415: IF (sy_docs_seq_c1%NOTFOUND)
416: THEN
417: CLOSE sy_docs_seq_c1;
418: RETURN FALSE;
411: BEGIN
412:
413: OPEN sy_docs_seq_c1;
414: FETCH sy_docs_seq_c1 INTO l_assignment_type;
415: IF (sy_docs_seq_c1%NOTFOUND)
416: THEN
417: CLOSE sy_docs_seq_c1;
418: RETURN FALSE;
419: ELSE
413: OPEN sy_docs_seq_c1;
414: FETCH sy_docs_seq_c1 INTO l_assignment_type;
415: IF (sy_docs_seq_c1%NOTFOUND)
416: THEN
417: CLOSE sy_docs_seq_c1;
418: RETURN FALSE;
419: ELSE
420: CLOSE sy_docs_seq_c1;
421: IF (l_assignment_type = 1)
416: THEN
417: CLOSE sy_docs_seq_c1;
418: RETURN FALSE;
419: ELSE
420: CLOSE sy_docs_seq_c1;
421: IF (l_assignment_type = 1)
422: THEN
423: IF (p_doc_no = ' ' OR p_doc_no IS NULL)
424: THEN