7: IF (g_routine is NULL) THEN
8: g_routine := routine;
9: g_location := location;
10:
11: FND_MESSAGE.set_name('BIS', 'EDW_ALL_SQL_ERROR');
12: FND_MESSAGE.set_token('ROUTINE', g_routine);
13: FND_MESSAGE.set_token('ERR_NUMBER', g_location);
14: FND_MESSAGE.set_token('SQL_ERR', SQLERRM(error_code));
15: END IF;
8: g_routine := routine;
9: g_location := location;
10:
11: FND_MESSAGE.set_name('BIS', 'EDW_ALL_SQL_ERROR');
12: FND_MESSAGE.set_token('ROUTINE', g_routine);
13: FND_MESSAGE.set_token('ERR_NUMBER', g_location);
14: FND_MESSAGE.set_token('SQL_ERR', SQLERRM(error_code));
15: END IF;
16:
9: g_location := location;
10:
11: FND_MESSAGE.set_name('BIS', 'EDW_ALL_SQL_ERROR');
12: FND_MESSAGE.set_token('ROUTINE', g_routine);
13: FND_MESSAGE.set_token('ERR_NUMBER', g_location);
14: FND_MESSAGE.set_token('SQL_ERR', SQLERRM(error_code));
15: END IF;
16:
17: EXCEPTION
10:
11: FND_MESSAGE.set_name('BIS', 'EDW_ALL_SQL_ERROR');
12: FND_MESSAGE.set_token('ROUTINE', g_routine);
13: FND_MESSAGE.set_token('ERR_NUMBER', g_location);
14: FND_MESSAGE.set_token('SQL_ERR', SQLERRM(error_code));
15: END IF;
16:
17: EXCEPTION
18: WHEN OTHERS THEN RAISE;
21: PROCEDURE APP_ERROR(error_name IN varchar2) IS
22: BEGIN
23: IF (g_routine is NULL) THEN
24: g_routine := 'ERROR';
25: FND_MESSAGE.set_name('BIS',error_name);
26: APP_EXCEPTION.RAISE_EXCEPTION;
27: END IF;
28:
29: EXCEPTION
36: BEGIN
37: IF (g_routine is NULL) THEN
38: g_routine := 'ERROR';
39:
40: FND_MESSAGE.set_name('BIS',error_name);
41:
42: IF (token1 is not NULL and value1 is not null) THEN
43: FND_MESSAGE.SET_TOKEN(token1,value1);
44: END IF;
39:
40: FND_MESSAGE.set_name('BIS',error_name);
41:
42: IF (token1 is not NULL and value1 is not null) THEN
43: FND_MESSAGE.SET_TOKEN(token1,value1);
44: END IF;
45:
46: APP_EXCEPTION.RAISE_EXCEPTION;
47: END IF;
58: BEGIN
59: IF (g_routine is NULL) THEN
60: g_routine := 'ERROR';
61:
62: FND_MESSAGE.set_name('BIS',error_name);
63:
64: IF (token1 is not NULL and value1 is not null) THEN
65: FND_MESSAGE.SET_TOKEN(token1,value1);
66: END IF;
61:
62: FND_MESSAGE.set_name('BIS',error_name);
63:
64: IF (token1 is not NULL and value1 is not null) THEN
65: FND_MESSAGE.SET_TOKEN(token1,value1);
66: END IF;
67:
68: IF (token2 is not NULL and value2 is not null) THEN
69: FND_MESSAGE.SET_TOKEN(token2,value2);
65: FND_MESSAGE.SET_TOKEN(token1,value1);
66: END IF;
67:
68: IF (token2 is not NULL and value2 is not null) THEN
69: FND_MESSAGE.SET_TOKEN(token2,value2);
70: END IF;
71:
72: APP_EXCEPTION.RAISE_EXCEPTION;
73: END IF;
86: BEGIN
87: IF (g_routine is NULL) THEN
88: g_routine := 'ERROR';
89:
90: FND_MESSAGE.set_name('BIS',error_name);
91:
92: IF (token1 is not NULL and value1 is not null) THEN
93: FND_MESSAGE.SET_TOKEN(token1,value1);
94: END IF;
89:
90: FND_MESSAGE.set_name('BIS',error_name);
91:
92: IF (token1 is not NULL and value1 is not null) THEN
93: FND_MESSAGE.SET_TOKEN(token1,value1);
94: END IF;
95:
96: IF (token2 is not NULL and value2 is not null) THEN
97: FND_MESSAGE.SET_TOKEN(token2,value2);
93: FND_MESSAGE.SET_TOKEN(token1,value1);
94: END IF;
95:
96: IF (token2 is not NULL and value2 is not null) THEN
97: FND_MESSAGE.SET_TOKEN(token2,value2);
98: END IF;
99:
100: IF (token3 is not NULL and value3 is not null) THEN
101: FND_MESSAGE.SET_TOKEN(token3,value3);
97: FND_MESSAGE.SET_TOKEN(token2,value2);
98: END IF;
99:
100: IF (token3 is not NULL and value3 is not null) THEN
101: FND_MESSAGE.SET_TOKEN(token3,value3);
102: END IF;
103:
104: APP_EXCEPTION.RAISE_EXCEPTION;
105: END IF;
120: BEGIN
121: IF (g_routine is NULL) THEN
122: g_routine := 'ERROR';
123:
124: FND_MESSAGE.set_name('BIS',error_name);
125:
126: IF (token1 is not NULL and value1 is not null) THEN
127: FND_MESSAGE.SET_TOKEN(token1,value1);
128: END IF;
123:
124: FND_MESSAGE.set_name('BIS',error_name);
125:
126: IF (token1 is not NULL and value1 is not null) THEN
127: FND_MESSAGE.SET_TOKEN(token1,value1);
128: END IF;
129:
130: IF (token2 is not NULL and value2 is not null) THEN
131: FND_MESSAGE.SET_TOKEN(token2,value2);
127: FND_MESSAGE.SET_TOKEN(token1,value1);
128: END IF;
129:
130: IF (token2 is not NULL and value2 is not null) THEN
131: FND_MESSAGE.SET_TOKEN(token2,value2);
132: END IF;
133:
134: IF (token3 is not NULL and value3 is not null) THEN
135: FND_MESSAGE.SET_TOKEN(token3,value3);
131: FND_MESSAGE.SET_TOKEN(token2,value2);
132: END IF;
133:
134: IF (token3 is not NULL and value3 is not null) THEN
135: FND_MESSAGE.SET_TOKEN(token3,value3);
136: END IF;
137:
138: IF (token4 is not NULL and value4 is not null) THEN
139: FND_MESSAGE.SET_TOKEN(token4,value4);
135: FND_MESSAGE.SET_TOKEN(token3,value3);
136: END IF;
137:
138: IF (token4 is not NULL and value4 is not null) THEN
139: FND_MESSAGE.SET_TOKEN(token4,value4);
140: END IF;
141:
142: APP_EXCEPTION.RAISE_EXCEPTION;
143: END IF;
149: PROCEDURE APP_SET_NAME(error_name IN varchar2) IS
150: BEGIN
151: IF (g_routine is null) THEN
152: g_routine := 'ERROR';
153: FND_MESSAGE.set_name('BIS',error_name);
154: END IF;
155:
156: EXCEPTION
157: WHEN OTHERS THEN RAISE;