eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.FND_SEQNUM dependencies on FND_SEQNUM

Line 1: package body FND_SEQNUM as

1: package body FND_SEQNUM as
2: /* $Header: AFSQNUMB.pls 120.2 2005/11/03 08:12:59 fskinner ship $ */
3:
4:
5: /* Private structure for storing a cache of the info retrieved by get_seq_info()

Line 476: IF v_SeqInfoCache.retStat = FND_SEQNUM.SEQSUCC THEN

472: is still in range for this assignment */
473: IF ( v_SeqInfoCache.app_id = app_id ) AND ( v_SeqInfoCache.cat_code = cat_code ) AND
474: ( v_SeqInfoCache.sob_id = sob_id ) AND ( v_SeqInfoCache.met_code = met_code ) AND
475: ( trx_date >= v_SeqInfoCache.startDate ) AND ( trx_date <= v_SeqInfoCache.endDate ) THEN
476: IF v_SeqInfoCache.retStat = FND_SEQNUM.SEQSUCC THEN
477: /* if we had a good status from the first select use the cache to populate this
478: request's output parameters */
479: docseq_id := v_SeqInfoCache.docseq_id;
480: docseq_type := v_SeqInfoCache.docseq_type;

Line 512: v_SeqInfoCache.retStat := FND_SEQNUM.NOTUSED;

508: /* This call will retrieve the value of the "Sequential Numbering" profile option
509: 'A' = Always Used, 'N' = Not Used, 'P' = Partially Used */
510: FND_PROFILE.GET( 'UNIQUE:SEQ_NUMBERS', v_profVal );
511: IF v_profVal = 'N' THEN
512: v_SeqInfoCache.retStat := FND_SEQNUM.NOTUSED;
513: return( v_SeqInfoCache.retStat );
514: ELSIF v_profVal <> 'P' AND v_profVal <> 'A' THEN
515: v_SeqInfoCache.retStat := FND_SEQNUM.BADPROF;
516: fnd_message.set_name( 'FND', 'PROFILES-VALUES' ); -- this should never happen, BUT...

Line 515: v_SeqInfoCache.retStat := FND_SEQNUM.BADPROF;

511: IF v_profVal = 'N' THEN
512: v_SeqInfoCache.retStat := FND_SEQNUM.NOTUSED;
513: return( v_SeqInfoCache.retStat );
514: ELSIF v_profVal <> 'P' AND v_profVal <> 'A' THEN
515: v_SeqInfoCache.retStat := FND_SEQNUM.BADPROF;
516: fnd_message.set_name( 'FND', 'PROFILES-VALUES' ); -- this should never happen, BUT...
517: app_exception.raise_exception;
518: return( v_SeqInfoCache.retStat );
519: END IF; /* v_profVal */

Line 551: v_SeqInfoCache.retStat := FND_SEQNUM.SEQSUCC;

547: seq_ass_id := v_SeqInfoCache.seq_ass_id;
548: prd_tab_name := v_SeqInfoCache.prd_tab_name;
549: aud_tab_name := v_SeqInfoCache.aud_tab_name;
550: msg_flag := v_SeqInfoCache.msg_flag;
551: v_SeqInfoCache.retStat := FND_SEQNUM.SEQSUCC;
552:
553: return( v_SeqInfoCache.retStat );
554:
555: exception

Line 559: v_SeqInfoCache.retStat := FND_SEQNUM.NOASSIGN;

555: exception
556: when no_data_found then
557: /* 'A' = Always Used, 'N' = Not Used, 'P' = Partially Used */
558: IF v_profVal = 'P' THEN
559: v_SeqInfoCache.retStat := FND_SEQNUM.NOASSIGN;
560: IF upper(suppress_warn) = 'N' THEN
561: fnd_message.set_name( 'FND', 'UNIQUE-NO ASSIGNMENT' );
562: app_exception.raise_exception;
563: END IF;

Line 565: v_SeqInfoCache.retStat := FND_SEQNUM.ALWAYS;

561: fnd_message.set_name( 'FND', 'UNIQUE-NO ASSIGNMENT' );
562: app_exception.raise_exception;
563: END IF;
564: ELSIF v_profVal = 'A' THEN
565: v_SeqInfoCache.retStat := FND_SEQNUM.ALWAYS;
566: IF upper(suppress_error) = 'N' THEN
567: fnd_message.set_name( 'FND', 'UNIQUE-ALWAYS USED' );
568: app_exception.raise_exception;
569: END IF;

Line 574: v_SeqInfoCache.retStat := FND_SEQNUM.ORAFAIL;

570: END IF;
571: return( v_SeqInfoCache.retStat );
572:
573: when others then
574: v_SeqInfoCache.retStat := FND_SEQNUM.ORAFAIL;
575: fnd_message.set_name( 'FND', 'SQL-GENERIC ERROR' );
576: fnd_message.set_token( 'ERRNO', sqlcode, FALSE );
577: fnd_message.set_token( 'ROUTINE', 'get_seq_info', FALSE );
578: fnd_message.set_token( 'REASON', sqlerrm, FALSE );

Line 606: return( FND_SEQNUM.SEQSUCC );

602: v_proc_stmt := 'INSERT INTO ' || aud_tab_name || ' (DOC_SEQUENCE_ID, DOC_SEQUENCE_VALUE, ' ||
603: 'DOC_SEQUENCE_ASSIGNMENT_ID, CREATION_DATE, CREATED_BY) VALUES ( :seq_id, :val, ' ||
604: ':asgn_id, sysdate, :cr_by)';
605: EXECUTE IMMEDIATE v_proc_stmt USING docseq_id, seq_val, seq_ass_id, user_id;
606: return( FND_SEQNUM.SEQSUCC );
607:
608: exception
609: when dup_val_on_index then
610: fnd_message.set_name( 'FND', 'UNIQUE-DUPLICATE SEQUENCE' );

Line 612: return( FND_SEQNUM.NOTUNIQ );

608: exception
609: when dup_val_on_index then
610: fnd_message.set_name( 'FND', 'UNIQUE-DUPLICATE SEQUENCE' );
611: app_exception.raise_exception;
612: return( FND_SEQNUM.NOTUNIQ );
613: when others then
614: fnd_message.set_name( 'FND', 'SQL-GENERIC ERROR' );
615: fnd_message.set_token( 'ERRNO', sqlcode, FALSE );
616: fnd_message.set_token( 'ROUTINE', 'create_audit_rec', FALSE );

Line 621: return( FND_SEQNUM.ORAFAIL );

617: fnd_message.set_token( 'REASON', sqlerrm, FALSE );
618: fnd_message.set_token( 'ERRFILE', 'AFSQNUMB.pls', FALSE );
619: fnd_message.set_token( 'SQLSTMT', v_proc_stmt, FALSE );
620: app_exception.raise_exception;
621: return( FND_SEQNUM.ORAFAIL );
622:
623: end create_audit_rec;
624:
625: /*

Line 656: IF v_stat <> FND_SEQNUM.SEQSUCC THEN

652: /* Get all the needed Doc_Seq info */
653: v_stat := get_seq_info( app_id, cat_code, sob_id, met_code, trx_date, v_docSeqId, v_seqType,
654: v_seqName, v_dbSeqNm, v_seqAssID, v_prdTabNm, v_audTabNm, v_msgFlg, suppress_error, suppress_warn );
655: docseq_id := v_docSeqId;
656: IF v_stat <> FND_SEQNUM.SEQSUCC THEN
657: IF v_stat = FND_SEQNUM.NOTUSED THEN
658: /* the profile is set to not used so we just return peacefully */
659: return( FND_SEQNUM.SEQSUCC );
660: ELSIF v_stat = FND_SEQNUM.NOASSIGN THEN

Line 657: IF v_stat = FND_SEQNUM.NOTUSED THEN

653: v_stat := get_seq_info( app_id, cat_code, sob_id, met_code, trx_date, v_docSeqId, v_seqType,
654: v_seqName, v_dbSeqNm, v_seqAssID, v_prdTabNm, v_audTabNm, v_msgFlg, suppress_error, suppress_warn );
655: docseq_id := v_docSeqId;
656: IF v_stat <> FND_SEQNUM.SEQSUCC THEN
657: IF v_stat = FND_SEQNUM.NOTUSED THEN
658: /* the profile is set to not used so we just return peacefully */
659: return( FND_SEQNUM.SEQSUCC );
660: ELSIF v_stat = FND_SEQNUM.NOASSIGN THEN
661: /* we found nothing but the profile is only set to partial so that is OK BUT,

Line 659: return( FND_SEQNUM.SEQSUCC );

655: docseq_id := v_docSeqId;
656: IF v_stat <> FND_SEQNUM.SEQSUCC THEN
657: IF v_stat = FND_SEQNUM.NOTUSED THEN
658: /* the profile is set to not used so we just return peacefully */
659: return( FND_SEQNUM.SEQSUCC );
660: ELSIF v_stat = FND_SEQNUM.NOASSIGN THEN
661: /* we found nothing but the profile is only set to partial so that is OK BUT,
662: we would have given a warning in get_seq_info() based on the suppress_warn flag */
663: return( FND_SEQNUM.SEQSUCC );

Line 660: ELSIF v_stat = FND_SEQNUM.NOASSIGN THEN

656: IF v_stat <> FND_SEQNUM.SEQSUCC THEN
657: IF v_stat = FND_SEQNUM.NOTUSED THEN
658: /* the profile is set to not used so we just return peacefully */
659: return( FND_SEQNUM.SEQSUCC );
660: ELSIF v_stat = FND_SEQNUM.NOASSIGN THEN
661: /* we found nothing but the profile is only set to partial so that is OK BUT,
662: we would have given a warning in get_seq_info() based on the suppress_warn flag */
663: return( FND_SEQNUM.SEQSUCC );
664: ELSE

Line 663: return( FND_SEQNUM.SEQSUCC );

659: return( FND_SEQNUM.SEQSUCC );
660: ELSIF v_stat = FND_SEQNUM.NOASSIGN THEN
661: /* we found nothing but the profile is only set to partial so that is OK BUT,
662: we would have given a warning in get_seq_info() based on the suppress_warn flag */
663: return( FND_SEQNUM.SEQSUCC );
664: ELSE
665: return( v_stat );
666: END IF;
667: END IF;

Line 674: return( FND_SEQNUM.BADPROF );

670: FND_PROFILE.GET( 'USER_ID', v_profVal );
671: IF v_profVal IS NULL THEN
672: fnd_message.set_name( 'FND', 'USER' ); -- this should never happen, BUT...
673: app_exception.raise_exception;
674: return( FND_SEQNUM.BADPROF );
675: END IF;
676: /* we found a good Doc_Seq assignment so we proceed ...
677: first we check the Seq Type from the FND_DOCUMENT_SEQUENCES.TYPE - valid values are :
678: 'A' = Automatic, 'G' = Gapless and 'M' = Manual

Line 691: return( FND_SEQNUM.NOVALUE );

687: IF seq_val IS NULL THEN
688: fnd_message.set_name( 'FND', 'UNIQUE-NO VALUE' );
689: fnd_message.set_token( 'SEQUENCE', v_seqName, FALSE );
690: app_exception.raise_exception;
691: return( FND_SEQNUM.NOVALUE );
692: END IF;
693: /* i don't actually have a routine to check the uniqueness of the Manual DocSeq
694: like they did in the 'C' code since the very next call from #FND SEQVAL updates
695: the audit record - where we can trap the error and report it. If there is a

Line 699: return( FND_SEQNUM.BADTYPE );

695: the audit record - where we can trap the error and report it. If there is a
696: requirement for an equivalent to #FND SEQCHK we can write it seperately */
697: ELSE
698: -- this should never happen, unless someone uses sqlplus on our tables form validates value...
699: return( FND_SEQNUM.BADTYPE );
700: END IF;
701:
702: v_stat := create_audit_rec( v_audTabNm, v_docSeqId, seq_val, v_seqAssID, to_number(v_profVal) );
703: /* we could/should test this return stat but every thing we can handle is handled

Line 735: return ( FND_SEQNUM.BADAPPID );

731: begin /* APPLICATION_ID check block */
732: select count( APPLICATION_ID ) into v_numRows
733: from FND_APPLICATION where APPLICATION_ID = app_id;
734: IF v_numRows = 0 THEN
735: return ( FND_SEQNUM.BADAPPID );
736: END IF;
737: exception
738: when others then
739: fnd_message.set_name( 'FND', 'SQL-GENERIC ERROR' );

Line 746: return( FND_SEQNUM.ORAFAIL );

742: fnd_message.set_token( 'REASON', sqlerrm, FALSE );
743: fnd_message.set_token( 'ERRFILE', 'AFSQNUMB.pls', FALSE );
744: fnd_message.set_token( 'SQLSTMT', 'select count from FND_APPLICATION where APPLICATION_ID = ' || to_char(app_id), FALSE );
745: app_exception.raise_exception;
746: return( FND_SEQNUM.ORAFAIL );
747: end; /* APPLICATION_ID check block */
748:
749: begin /* FND_DOCUMENT_SEQUENCES.NAME uniqueness check block */
750: select count( NAME ) into v_numRows

Line 753: return ( FND_SEQNUM.DUPNAME );

749: begin /* FND_DOCUMENT_SEQUENCES.NAME uniqueness check block */
750: select count( NAME ) into v_numRows
751: from FND_DOCUMENT_SEQUENCES where NAME = docseq_name;
752: IF v_numRows > 0 THEN
753: return ( FND_SEQNUM.DUPNAME );
754: END IF;
755: exception
756: when others then
757: fnd_message.set_name( 'FND', 'SQL-GENERIC ERROR' );

Line 764: return( FND_SEQNUM.ORAFAIL );

760: fnd_message.set_token( 'REASON', sqlerrm, FALSE );
761: fnd_message.set_token( 'ERRFILE', 'AFSQNUMB.pls', FALSE );
762: fnd_message.set_token( 'SQLSTMT', 'select count from FND_DOCUMENT_SEQUENCES where NAME = ' || docseq_name, FALSE );
763: app_exception.raise_exception;
764: return( FND_SEQNUM.ORAFAIL );
765: end; /* NAME check block */
766: /* validate the type */
767: -- IF docseq_type NOT IN ( 'A', 'G', 'M', 'U' ) THEN /* we do not do User any more ?? */
768: IF docseq_type NOT IN ( 'A', 'G', 'M' ) THEN

Line 769: return( FND_SEQNUM.BADTYPE );

765: end; /* NAME check block */
766: /* validate the type */
767: -- IF docseq_type NOT IN ( 'A', 'G', 'M', 'U' ) THEN /* we do not do User any more ?? */
768: IF docseq_type NOT IN ( 'A', 'G', 'M' ) THEN
769: return( FND_SEQNUM.BADTYPE );
770: END IF;
771: /* validate the message_flag */
772: IF msg_flag NOT IN ( 'Y', 'N' ) THEN
773: return( FND_SEQNUM.BADFLAG );

Line 773: return( FND_SEQNUM.BADFLAG );

769: return( FND_SEQNUM.BADTYPE );
770: END IF;
771: /* validate the message_flag */
772: IF msg_flag NOT IN ( 'Y', 'N' ) THEN
773: return( FND_SEQNUM.BADFLAG );
774: END IF;
775: /* basic sanity on the dates only ???
776: first the forms format mask only allows whole dates no hours so ... */
777: v_startDate := trunc( p_startDate );

Line 781: return( FND_SEQNUM.BADDATE );

777: v_startDate := trunc( p_startDate );
778: v_endDate := trunc( p_endDate );
779: IF p_endDate <> NULL THEN
780: IF v_startDate >= v_endDate THEN
781: return( FND_SEQNUM.BADDATE );
782: END IF;
783: END IF;
784: /* this Audit Table name decode is also in the form FNDSNDSQ so change both if any */
785: begin /* make Audit Table name block */

Line 801: return( FND_SEQNUM.ORAFAIL );

797: fnd_message.set_token( 'REASON', sqlerrm, FALSE );
798: fnd_message.set_token( 'ERRFILE', 'AFSQNUMB.pls', FALSE );
799: fnd_message.set_token( 'SQLSTMT', 'select DECODE(' || to_char(app_id) || '...) from dual', FALSE );
800: app_exception.raise_exception;
801: return( FND_SEQNUM.ORAFAIL );
802: end; /* Audit Table name block */
803:
804: /* hopefully we have checked enough to do an insert so lets pop the id sequence */
805: begin /* get next DOC_SEQUENCE_ID block */

Line 816: return( FND_SEQNUM.ORAFAIL );

812: fnd_message.set_token( 'REASON', sqlerrm, FALSE );
813: fnd_message.set_token( 'ERRFILE', 'AFSQNUMB.pls', FALSE );
814: fnd_message.set_token( 'SQLSTMT', 'select FND_DOCUMENT_SEQUENCES_S.nextval from dual', FALSE );
815: app_exception.raise_exception;
816: return( FND_SEQNUM.ORAFAIL );
817: end; /* FND_DOCUMENT_SEQUENCES_S block */
818:
819: IF docseq_type = 'A' THEN
820: v_dbSeqNm := 'FND_DOC_SEQ_'|| to_char(v_docSeqId) || '_S';

Line 821: FND_SEQNUM.create_db_seq( v_dbSeqNm, init_value );

817: end; /* FND_DOCUMENT_SEQUENCES_S block */
818:
819: IF docseq_type = 'A' THEN
820: v_dbSeqNm := 'FND_DOC_SEQ_'|| to_char(v_docSeqId) || '_S';
821: FND_SEQNUM.create_db_seq( v_dbSeqNm, init_value );
822: ELSE
823: v_dbSeqNm := NULL;
824: END IF;
825:

Line 835: return( FND_SEQNUM.SEQSUCC );

831: docseq_type, init_value, v_startDate, v_endDate, SYSDATE, FND_GLOBAL.USER_ID,
832: SYSDATE, FND_GLOBAL.USER_ID, FND_GLOBAL.LOGIN_ID );
833:
834: -- ok i assume all is well let's return SEQSUCC
835: return( FND_SEQNUM.SEQSUCC );
836:
837: exception
838: when others then
839: fnd_message.set_name( 'FND', 'SQL-GENERIC ERROR' );

Line 846: return( FND_SEQNUM.ORAFAIL );

842: fnd_message.set_token( 'REASON', sqlerrm, FALSE );
843: fnd_message.set_token( 'ERRFILE', 'AFSQNUMB.pls', FALSE );
844: fnd_message.set_token( 'SQLSTMT', 'insert into FND_DOCUMENT_SEQUENCES ..' || docseq_name || '...', FALSE );
845: app_exception.raise_exception;
846: return( FND_SEQNUM.ORAFAIL );
847:
848: end define_doc_seq;
849:
850: /*

Line 878: return ( FND_SEQNUM.BADAPPID );

874: begin /* APPLICATION_ID check block */
875: select count( APPLICATION_ID ) into v_numRows
876: from FND_APPLICATION where APPLICATION_ID = app_id;
877: IF v_numRows = 0 THEN
878: return ( FND_SEQNUM.BADAPPID );
879: END IF;
880: exception
881: when others then
882: fnd_message.set_name( 'FND', 'SQL-GENERIC ERROR' );

Line 889: return( FND_SEQNUM.ORAFAIL );

885: fnd_message.set_token( 'REASON', sqlerrm, FALSE );
886: fnd_message.set_token( 'ERRFILE', 'AFSQNUMB.pls', FALSE );
887: fnd_message.set_token( 'SQLSTMT', 'select count from FND_APPLICATION where APPLICATION_ID = ' || to_char(app_id), FALSE );
888: app_exception.raise_exception;
889: return( FND_SEQNUM.ORAFAIL );
890: end; /* APPLICATION_ID check block */
891:
892: begin /* FND_DOCUMENT_SEQUENCES.NAME check block */
893: select DOC_SEQUENCE_ID, TYPE into v_docSeqId, v_type

Line 897: return( FND_SEQNUM.BADNAME );

893: select DOC_SEQUENCE_ID, TYPE into v_docSeqId, v_type
894: from FND_DOCUMENT_SEQUENCES where NAME = docseq_name;
895: exception
896: when NO_DATA_FOUND then
897: return( FND_SEQNUM.BADNAME );
898: when others then
899: fnd_message.set_name( 'FND', 'SQL-GENERIC ERROR' );
900: fnd_message.set_token( 'ERRNO', sqlcode, FALSE );
901: fnd_message.set_token( 'ROUTINE', 'assign_doc_seq', FALSE );

Line 906: return( FND_SEQNUM.ORAFAIL );

902: fnd_message.set_token( 'REASON', sqlerrm, FALSE );
903: fnd_message.set_token( 'ERRFILE', 'AFSQNUMB.pls', FALSE );
904: fnd_message.set_token( 'SQLSTMT', 'select DOC_SEQUENCE_ID from FND_DOCUMENT_SEQUENCES where NAME = ' || docseq_name, FALSE );
905: app_exception.raise_exception;
906: return( FND_SEQNUM.ORAFAIL );
907: end; /* NAME check block */
908:
909: begin /* get the table name for category_code */
910: select TABLE_NAME into v_prdTabNm from FND_DOC_SEQUENCE_CATEGORIES

Line 914: return( FND_SEQNUM.BADCODE );

910: select TABLE_NAME into v_prdTabNm from FND_DOC_SEQUENCE_CATEGORIES
911: where CODE = cat_code and APPLICATION_ID = app_id;
912: exception
913: when NO_DATA_FOUND then
914: return( FND_SEQNUM.BADCODE );
915: when others then
916: fnd_message.set_name( 'FND', 'SQL-GENERIC ERROR' );
917: fnd_message.set_token( 'ERRNO', sqlcode, FALSE );
918: fnd_message.set_token( 'ROUTINE', 'assign_doc_seq', FALSE );

Line 923: return( FND_SEQNUM.ORAFAIL );

919: fnd_message.set_token( 'REASON', sqlerrm, FALSE );
920: fnd_message.set_token( 'ERRFILE', 'AFSQNUMB.pls', FALSE );
921: fnd_message.set_token( 'SQLSTMT', 'select TABLE_NAME from FND_DOC_SEQUENCE_CATEGORIES where CODE = ' || cat_code, FALSE );
922: app_exception.raise_exception;
923: return( FND_SEQNUM.ORAFAIL );
924: end; /* table name for category_code block */
925:
926: begin /* check for Set of Books in Document Flexfield */
927: select ENABLED_FLAG into v_enabled from FND_DESCR_FLEX_COLUMN_USAGES

Line 936: return ( FND_SEQNUM.BADSOB );

932: begin /* verify the Set of Books ID */
933: select count( SET_OF_BOOKS_ID ) into v_numRows
934: from GL_SETS_OF_BOOKS where SET_OF_BOOKS_ID = sob_id;
935: IF v_numRows = 0 THEN
936: return ( FND_SEQNUM.BADSOB );
937: END IF;
938: exception
939: when others then
940: fnd_message.set_name( 'FND', 'SQL-GENERIC ERROR' );

Line 947: return( FND_SEQNUM.ORAFAIL );

943: fnd_message.set_token( 'REASON', sqlerrm, FALSE );
944: fnd_message.set_token( 'ERRFILE', 'AFSQNUMB.pls', FALSE );
945: fnd_message.set_token( 'SQLSTMT', 'select count from GL_SETS_OF_BOOKS where SET_OF_BOOKS_ID = ' || to_char( sob_id ), FALSE );
946: app_exception.raise_exception;
947: return( FND_SEQNUM.ORAFAIL );
948: end; /* SOB block */
949: END IF;
950: exception
951: when others then

Line 959: return( FND_SEQNUM.ORAFAIL );

955: fnd_message.set_token( 'REASON', sqlerrm, FALSE );
956: fnd_message.set_token( 'ERRFILE', 'AFSQNUMB.pls', FALSE );
957: fnd_message.set_token( 'SQLSTMT', 'select ENABLED_FLAG from ... SET_OF_BOOKS_ID', FALSE );
958: app_exception.raise_exception;
959: return( FND_SEQNUM.ORAFAIL );
960: end; /* Document Flexfield block */
961:
962: begin /* check for Method Code in Document Flexfield */
963: select ENABLED_FLAG into v_enabled from FND_DESCR_FLEX_COLUMN_USAGES

Line 969: return( FND_SEQNUM.BADMTHD );

965: and DESCRIPTIVE_FLEXFIELD_NAME = 'Document Flexfield'
966: and DESCRIPTIVE_FLEX_CONTEXT_CODE = 'Global Data Elements';
967: IF v_enabled = 'Y' THEN
968: IF met_code NOT IN ( 'A', 'M', NULL ) THEN
969: return( FND_SEQNUM.BADMTHD );
970: END IF;
971: END IF;
972: exception
973: when others then

Line 981: return( FND_SEQNUM.ORAFAIL );

977: fnd_message.set_token( 'REASON', sqlerrm, FALSE );
978: fnd_message.set_token( 'ERRFILE', 'AFSQNUMB.pls', FALSE );
979: fnd_message.set_token( 'SQLSTMT', 'select ENABLED_FLAG from ... METHOD_CODE', FALSE );
980: app_exception.raise_exception;
981: return( FND_SEQNUM.ORAFAIL );
982: end; /* Document Flexfield block */
983:
984: begin /* DATE check - again most of this code in forms so dual maintain */
985: -- first the forms format mask only allows whole dates no hours so ...

Line 1000: return( FND_SEQNUM.BADDATE ); /* comment out this line and uncomment the next for debugging */

996: and END_DATE IS NULL;
997: IF v_numRows > 0 THEN
998: -- ERROR! there is another row with a null end_date!
999: FND_MESSAGE.SET_NAME('FND','UNIQUE-NULL END DATE');
1000: return( FND_SEQNUM.BADDATE ); /* comment out this line and uncomment the next for debugging */
1001: -- app_exception.raise_exception;
1002: ELSE
1003: -- See if there is another row for this document with dates that overlap
1004: select count( DOC_SEQUENCE_ASSIGNMENT_ID ) into v_numRows

Line 1014: return( FND_SEQNUM.BADDATE ); /* comment out this line and uncomment the next for debugging */

1010: and v_startDate <= END_DATE;
1011: IF v_numRows > 0 THEN
1012: -- ERROR! there is a date overlap problem.
1013: FND_MESSAGE.SET_NAME('FND','UNIQUE-DATE OVERLAP');
1014: return( FND_SEQNUM.BADDATE ); /* comment out this line and uncomment the next for debugging */
1015: -- app_exception.raise_exception;
1016: END IF;
1017: END IF;
1018: ELSE

Line 1040: return( FND_SEQNUM.BADDATE ); /* comment out this line and uncomment the next for debugging */

1036: or ( v_endDate <= START_DATE and v_endDate >= NVL(END_DATE, v_endDate + 1) ) );
1037: IF v_numRows > 0 THEN
1038: -- ERROR! there is a date overlap problem.
1039: FND_MESSAGE.SET_NAME('FND','UNIQUE-DATE OVERLAP');
1040: return( FND_SEQNUM.BADDATE ); /* comment out this line and uncomment the next for debugging */
1041: -- app_exception.raise_exception;
1042: END IF;
1043: END IF;
1044: END IF;

Line 1054: return( FND_SEQNUM.ORAFAIL );

1050: fnd_message.set_token( 'REASON', sqlerrm, FALSE );
1051: fnd_message.set_token( 'ERRFILE', 'AFSQNUMB.pls', FALSE );
1052: fnd_message.set_token( 'SQLSTMT', 'select count( DOC_SEQUENCE_ASSIGNMENT_ID ) .. DATE checks', FALSE );
1053: app_exception.raise_exception;
1054: return( FND_SEQNUM.ORAFAIL );
1055: end; /* DATE check block */
1056:
1057: /* hopefully we have checked enough to do an insert so lets pop the id sequence */
1058: begin /* get next DOC_SEQUENCE_ASSIGNMENT_ID block */

Line 1069: return( FND_SEQNUM.ORAFAIL );

1065: fnd_message.set_token( 'REASON', sqlerrm, FALSE );
1066: fnd_message.set_token( 'ERRFILE', 'AFSQNUMB.pls', FALSE );
1067: fnd_message.set_token( 'SQLSTMT', 'select FND_DOC_SEQUENCE_ASSIGNMENTS_S.nextval from dual', FALSE );
1068: app_exception.raise_exception;
1069: return( FND_SEQNUM.ORAFAIL );
1070: end; /* FND_DOC_SEQUENCE_ASSIGNMENTS_S block */
1071:
1072: insert into FND_DOC_SEQUENCE_ASSIGNMENTS ( DOC_SEQUENCE_ASSIGNMENT_ID, DOC_SEQUENCE_ID,
1073: APPLICATION_ID, CATEGORY_CODE, SET_OF_BOOKS_ID, METHOD_CODE, START_DATE, END_DATE,

Line 1091: return( FND_SEQNUM.ORAFAIL );

1087: fnd_message.set_token( 'REASON', sqlerrm, FALSE );
1088: fnd_message.set_token( 'ERRFILE', 'AFSQNUMB.pls', FALSE );
1089: fnd_message.set_token( 'SQLSTMT', 'update FND_DOCUMENT_SEQUENCES set TABLE_NAME (..' || docseq_name || '..)', FALSE );
1090: app_exception.raise_exception;
1091: return( FND_SEQNUM.ORAFAIL );
1092: end; /* Doc_Seq update block */
1093:
1094: IF v_type = 'G' THEN
1095: begin /* Create Gapless check block */

Line 1099: v_numRows := FND_SEQNUM.create_gapless_sequence( v_docSeqId );

1095: begin /* Create Gapless check block */
1096: select count( DOC_SEQUENCE_ID ) into v_numRows
1097: from FND_DOC_SEQUENCE_USERS where DOC_SEQUENCE_ID = v_docSeqId;
1098: IF v_numRows = 0 THEN
1099: v_numRows := FND_SEQNUM.create_gapless_sequence( v_docSeqId );
1100: IF v_numRows <> 1 THEN
1101: return( FND_SEQNUM.ORAFAIL );
1102: END IF;
1103: END IF;

Line 1101: return( FND_SEQNUM.ORAFAIL );

1097: from FND_DOC_SEQUENCE_USERS where DOC_SEQUENCE_ID = v_docSeqId;
1098: IF v_numRows = 0 THEN
1099: v_numRows := FND_SEQNUM.create_gapless_sequence( v_docSeqId );
1100: IF v_numRows <> 1 THEN
1101: return( FND_SEQNUM.ORAFAIL );
1102: END IF;
1103: END IF;
1104: exception
1105: when others then

Line 1113: return( FND_SEQNUM.ORAFAIL );

1109: fnd_message.set_token( 'REASON', sqlerrm, FALSE );
1110: fnd_message.set_token( 'ERRFILE', 'AFSQNUMB.pls', FALSE );
1111: fnd_message.set_token( 'SQLSTMT', 'select count(DOC_SEQUENCE_ID) from FND_DOC_SEQUENCE_USERS', FALSE );
1112: app_exception.raise_exception;
1113: return( FND_SEQNUM.ORAFAIL );
1114: end; /* Gapless check block */
1115: END IF;
1116:
1117: -- ok i assume all is well let's return SEQSUCC

Line 1118: return( FND_SEQNUM.SEQSUCC );

1114: end; /* Gapless check block */
1115: END IF;
1116:
1117: -- ok i assume all is well let's return SEQSUCC
1118: return( FND_SEQNUM.SEQSUCC );
1119:
1120: exception
1121: when others then
1122: fnd_message.set_name( 'FND', 'SQL-GENERIC ERROR' );

Line 1129: return( FND_SEQNUM.ORAFAIL );

1125: fnd_message.set_token( 'REASON', sqlerrm, FALSE );
1126: fnd_message.set_token( 'ERRFILE', 'AFSQNUMB.pls', FALSE );
1127: fnd_message.set_token( 'SQLSTMT', 'insert into FND_DOC_SEQUENCE_ASSIGNMENTS (..' || docseq_name || '..)', FALSE );
1128: app_exception.raise_exception;
1129: return( FND_SEQNUM.ORAFAIL );
1130:
1131: end assign_doc_seq;
1132:
1133: end FND_SEQNUM;

Line 1133: end FND_SEQNUM;

1129: return( FND_SEQNUM.ORAFAIL );
1130:
1131: end assign_doc_seq;
1132:
1133: end FND_SEQNUM;
1134: