8: */
9: FUNCTION compare_rcsid(rcsname1 varchar2, rcsname2 varchar2)
10: RETURN INTEGER IS
11: x INTEGER := 0;
12: rcsid1 FND_IMP_RCSID;
13: rcsid2 FND_IMP_RCSID;
14: BEGIN
15: if(rcsname1 IS NULL) then
16: return 0;
9: FUNCTION compare_rcsid(rcsname1 varchar2, rcsname2 varchar2)
10: RETURN INTEGER IS
11: x INTEGER := 0;
12: rcsid1 FND_IMP_RCSID;
13: rcsid2 FND_IMP_RCSID;
14: BEGIN
15: if(rcsname1 IS NULL) then
16: return 0;
17: end if;
25:
26: FUNCTION get_rcsname(rcsname varchar2)
27: RETURN VARCHAR2 IS
28: ret varchar2(300);
29: rcsid FND_IMP_RCSID;
30: BEGIN
31: rcsid := get_rcsid(rcsname);
32: ret := rcsid(1) || '> ';
33: for i in 2..11 loop
36: return ret;
37: END get_rcsname;
38:
39: FUNCTION get_rcsid(rcsname varchar2)
40: RETURN FND_IMP_RCSID IS
41: x INTEGER := 0;
42: prev INTEGER;
43: ret FND_IMP_RCSID := FND_IMP_RCSID(0,0,0,0,0,0,0,0,0,0,0);
44: BEGIN
39: FUNCTION get_rcsid(rcsname varchar2)
40: RETURN FND_IMP_RCSID IS
41: x INTEGER := 0;
42: prev INTEGER;
43: ret FND_IMP_RCSID := FND_IMP_RCSID(0,0,0,0,0,0,0,0,0,0,0);
44: BEGIN
45: for i in 1..10 loop
46: prev := x+1;
47: x := instr(rcsname, '.', prev);
55: ret(1) := 10;
56: return ret;
57: END get_rcsid;
58:
59: FUNCTION compare_rcsid(rcsid1 fnd_imp_rcsid, rcsid2 fnd_imp_rcsid)
60: RETURN INTEGER IS
61: commonSz INTEGER;
62: maxSz INTEGER;
63: diff INTEGER;
84: */
85: FUNCTION check_branching(rcsname1 varchar2, rcsname2 varchar2)
86: RETURN INTEGER IS
87: x INTEGER;
88: rcsid1 FND_IMP_RCSID;
89: rcsid2 FND_IMP_RCSID;
90: BEGIN
91: if(rcsname1 IS NULL) then
92: return -1;
85: FUNCTION check_branching(rcsname1 varchar2, rcsname2 varchar2)
86: RETURN INTEGER IS
87: x INTEGER;
88: rcsid1 FND_IMP_RCSID;
89: rcsid2 FND_IMP_RCSID;
90: BEGIN
91: if(rcsname1 IS NULL) then
92: return -1;
93: end if;
96: x := check_branching(rcsid1, rcsid2);
97: return x;
98: END check_branching;
99:
100: FUNCTION check_branching(rcsid1 fnd_imp_rcsid, rcsid2 fnd_imp_rcsid)
101: RETURN INTEGER IS
102: commonSz INTEGER;
103: maxSz INTEGER;
104: BEGIN