PACKAGE BODY: APPS.FND_DATADICT_SEQ_PKG

Source

1 PACKAGE BODY fnd_datadict_seq_pkg AS
2 /* $Header: AFSDICTB.pls 115.2 99/07/16 23:30:29 porting ship  $ */
3 
4 PROCEDURE rename_seq(p_appl_id       IN number,
5                      p_old_seqname IN varchar2,
6                      p_new_seqname IN varchar2) IS
7   l_numrows   varchar2(50);
8 BEGIN
9 
10     --
11     -- Update AOL dictionary tables for renamed sequences
12     --     FND_SEQUENCES
13     --
14     IF (length(p_new_seqname) > 30 OR
15         length(p_old_seqname) > 30) THEN
16         raise_application_error(-20001,
17                              'Invalid sequence names : '||p_old_seqname||
18                              '->'||p_new_seqname);
19     END IF;
20 
21     update fnd_sequences
22     set   sequence_name = p_new_seqname
23     where sequence_name = p_old_seqname
24     and   application_id = p_appl_id;
25 
26     l_numrows := SQL%ROWCOUNT;
27 
28 END;
29 
30 END;