19: -- Version Initial version number = 1.0
20: -- History Current version number = 1.0
21: --=======================================================
22: procedure CREATE_FOREIGN_KEY (
23: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
24: p_api_version_number IN NUMBER,
25: p_init_msg_tbl IN BOOLEAN := FALSE,
26: p_msg_count OUT NOCOPY NUMBER,
27: p_msg_data OUT NOCOPY VARCHAR2,
29: p_foreign_key_name IN VARCHAR2,
30: p_database_object_name IN VARCHAR2,
31: p_unique_key_name IN VARCHAR2,
32: p_application_id IN NUMBER,
33: p_from_to_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
34: p_from_to_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
35: p_to_from_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
36: p_to_from_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
37: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
30: p_database_object_name IN VARCHAR2,
31: p_unique_key_name IN VARCHAR2,
32: p_application_id IN NUMBER,
33: p_from_to_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
34: p_from_to_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
35: p_to_from_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
36: p_to_from_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
37: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
38: p_creation_date IN DATE := FND_API.G_MISS_DATE,
31: p_unique_key_name IN VARCHAR2,
32: p_application_id IN NUMBER,
33: p_from_to_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
34: p_from_to_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
35: p_to_from_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
36: p_to_from_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
37: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
38: p_creation_date IN DATE := FND_API.G_MISS_DATE,
39: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
32: p_application_id IN NUMBER,
33: p_from_to_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
34: p_from_to_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
35: p_to_from_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
36: p_to_from_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
37: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
38: p_creation_date IN DATE := FND_API.G_MISS_DATE,
39: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
40: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
33: p_from_to_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
34: p_from_to_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
35: p_to_from_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
36: p_to_from_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
37: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
38: p_creation_date IN DATE := FND_API.G_MISS_DATE,
39: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
40: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
41: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
34: p_from_to_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
35: p_to_from_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
36: p_to_from_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
37: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
38: p_creation_date IN DATE := FND_API.G_MISS_DATE,
39: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
40: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
41: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
42: ) is
35: p_to_from_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
36: p_to_from_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
37: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
38: p_creation_date IN DATE := FND_API.G_MISS_DATE,
39: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
40: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
41: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
42: ) is
43: l_api_version_number CONSTANT number := 1.0;
36: p_to_from_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
37: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
38: p_creation_date IN DATE := FND_API.G_MISS_DATE,
39: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
40: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
41: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
42: ) is
43: l_api_version_number CONSTANT number := 1.0;
44: l_api_name CONSTANT varchar2(30) := 'Create_Foreign_Key';
37: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
38: p_creation_date IN DATE := FND_API.G_MISS_DATE,
39: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
40: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
41: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
42: ) is
43: l_api_version_number CONSTANT number := 1.0;
44: l_api_name CONSTANT varchar2(30) := 'Create_Foreign_Key';
45: l_return_status VARCHAR2(1);
46: l_pass NUMBER := 2;
47: l_copy_redo_flag BOOLEAN := FALSE;
48: begin
49: -- Check API version number
50: IF NOT FND_API.Compatible_API_Call (
51: l_api_version_number, p_api_version_number, l_api_name,
52: G_PKG_NAME) then
53: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
54: return;
49: -- Check API version number
50: IF NOT FND_API.Compatible_API_Call (
51: l_api_version_number, p_api_version_number, l_api_name,
52: G_PKG_NAME) then
53: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
54: return;
55: END IF;
56:
57: -- Initialize the message table if requested.
86: p_copy_redo_flag => l_copy_redo_flag
87: );
88:
89: -- If API call returns with an error status...
90: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
91: (l_return_status = FND_API.G_RET_STS_ERROR) then
92: --dbms_output.put_line(l_api_name || ' Create_Foreign_Key failed');
93: RAISE FND_API.G_EXC_ERROR;
94: end if;
87: );
88:
89: -- If API call returns with an error status...
90: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
91: (l_return_status = FND_API.G_RET_STS_ERROR) then
92: --dbms_output.put_line(l_api_name || ' Create_Foreign_Key failed');
93: RAISE FND_API.G_EXC_ERROR;
94: end if;
95:
89: -- If API call returns with an error status...
90: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
91: (l_return_status = FND_API.G_RET_STS_ERROR) then
92: --dbms_output.put_line(l_api_name || ' Create_Foreign_Key failed');
93: RAISE FND_API.G_EXC_ERROR;
94: end if;
95:
96: p_return_status := FND_API.G_RET_STS_SUCCESS;
97:
92: --dbms_output.put_line(l_api_name || ' Create_Foreign_Key failed');
93: RAISE FND_API.G_EXC_ERROR;
94: end if;
95:
96: p_return_status := FND_API.G_RET_STS_SUCCESS;
97:
98: EXCEPTION
99: WHEN FND_API.G_EXC_ERROR THEN
100: p_return_status := FND_API.G_RET_STS_ERROR;
95:
96: p_return_status := FND_API.G_RET_STS_SUCCESS;
97:
98: EXCEPTION
99: WHEN FND_API.G_EXC_ERROR THEN
100: p_return_status := FND_API.G_RET_STS_ERROR;
101: rollback to start_create_foreign_key;
102: WHEN OTHERS THEN
103: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
96: p_return_status := FND_API.G_RET_STS_SUCCESS;
97:
98: EXCEPTION
99: WHEN FND_API.G_EXC_ERROR THEN
100: p_return_status := FND_API.G_RET_STS_ERROR;
101: rollback to start_create_foreign_key;
102: WHEN OTHERS THEN
103: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
104: rollback to start_create_foreign_key;
99: WHEN FND_API.G_EXC_ERROR THEN
100: p_return_status := FND_API.G_RET_STS_ERROR;
101: rollback to start_create_foreign_key;
102: WHEN OTHERS THEN
103: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
104: rollback to start_create_foreign_key;
105: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
106: SUBSTR (SQLERRM, 1, 240) );
107: FND_MSG_PUB.Add;
125: -- Version Initial version number = 1.0
126: -- History Current version number = 1.0
127: --=======================================================
128: procedure CREATE_FOREIGN_KEY_COLUMN (
129: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
130: p_api_version_number IN NUMBER,
131: p_init_msg_tbl IN BOOLEAN := FALSE,
132: p_msg_count OUT NOCOPY NUMBER,
133: p_msg_data OUT NOCOPY VARCHAR2,
135: p_foreign_key_name IN VARCHAR2,
136: p_attribute_application_id IN NUMBER,
137: p_attribute_code IN VARCHAR2,
138: p_foreign_key_sequence IN NUMBER,
139: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
140: p_creation_date IN DATE := FND_API.G_MISS_DATE,
141: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
142: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
143: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
136: p_attribute_application_id IN NUMBER,
137: p_attribute_code IN VARCHAR2,
138: p_foreign_key_sequence IN NUMBER,
139: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
140: p_creation_date IN DATE := FND_API.G_MISS_DATE,
141: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
142: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
143: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
144: ) is
137: p_attribute_code IN VARCHAR2,
138: p_foreign_key_sequence IN NUMBER,
139: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
140: p_creation_date IN DATE := FND_API.G_MISS_DATE,
141: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
142: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
143: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
144: ) is
145: l_api_version_number CONSTANT number := 1.0;
138: p_foreign_key_sequence IN NUMBER,
139: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
140: p_creation_date IN DATE := FND_API.G_MISS_DATE,
141: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
142: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
143: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
144: ) is
145: l_api_version_number CONSTANT number := 1.0;
146: l_api_name CONSTANT varchar2(30) := 'Create_Foreign_Key_Column';
139: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
140: p_creation_date IN DATE := FND_API.G_MISS_DATE,
141: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
142: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
143: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
144: ) is
145: l_api_version_number CONSTANT number := 1.0;
146: l_api_name CONSTANT varchar2(30) := 'Create_Foreign_Key_Column';
147: l_return_status VARCHAR2(1);
148: l_pass NUMBER := 2;
149: l_copy_redo_flag BOOLEAN := FALSE;
150: begin
151: -- Check API version number
152: IF NOT FND_API.Compatible_API_Call (
153: l_api_version_number, p_api_version_number, l_api_name,
154: G_PKG_NAME) then
155: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
156: return;
151: -- Check API version number
152: IF NOT FND_API.Compatible_API_Call (
153: l_api_version_number, p_api_version_number, l_api_name,
154: G_PKG_NAME) then
155: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
156: return;
157: END IF;
158:
159: -- Initialize the message table if requested.
184: p_copy_redo_flag => l_copy_redo_flag
185: );
186:
187: -- If API call returns with an error status...
188: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
189: (l_return_status = FND_API.G_RET_STS_ERROR) then
190: --dbms_output.put_line(l_api_name || ' Create_Foreign_Key_Column failed');
191: RAISE FND_API.G_EXC_ERROR;
192: end if;
185: );
186:
187: -- If API call returns with an error status...
188: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
189: (l_return_status = FND_API.G_RET_STS_ERROR) then
190: --dbms_output.put_line(l_api_name || ' Create_Foreign_Key_Column failed');
191: RAISE FND_API.G_EXC_ERROR;
192: end if;
193:
187: -- If API call returns with an error status...
188: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
189: (l_return_status = FND_API.G_RET_STS_ERROR) then
190: --dbms_output.put_line(l_api_name || ' Create_Foreign_Key_Column failed');
191: RAISE FND_API.G_EXC_ERROR;
192: end if;
193:
194: p_return_status := FND_API.G_RET_STS_SUCCESS;
195:
190: --dbms_output.put_line(l_api_name || ' Create_Foreign_Key_Column failed');
191: RAISE FND_API.G_EXC_ERROR;
192: end if;
193:
194: p_return_status := FND_API.G_RET_STS_SUCCESS;
195:
196: EXCEPTION
197: WHEN FND_API.G_EXC_ERROR THEN
198: p_return_status := FND_API.G_RET_STS_ERROR;
193:
194: p_return_status := FND_API.G_RET_STS_SUCCESS;
195:
196: EXCEPTION
197: WHEN FND_API.G_EXC_ERROR THEN
198: p_return_status := FND_API.G_RET_STS_ERROR;
199: rollback to start_create_key_column;
200: WHEN OTHERS THEN
201: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
194: p_return_status := FND_API.G_RET_STS_SUCCESS;
195:
196: EXCEPTION
197: WHEN FND_API.G_EXC_ERROR THEN
198: p_return_status := FND_API.G_RET_STS_ERROR;
199: rollback to start_create_key_column;
200: WHEN OTHERS THEN
201: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
202: rollback to start_create_key_column;
197: WHEN FND_API.G_EXC_ERROR THEN
198: p_return_status := FND_API.G_RET_STS_ERROR;
199: rollback to start_create_key_column;
200: WHEN OTHERS THEN
201: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
202: rollback to start_create_key_column;
203: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
204: SUBSTR (SQLERRM, 1, 240) );
205: FND_MSG_PUB.Add;
223: -- Version Initial version number = 1.0
224: -- History Current version number = 1.0
225: --=======================================================
226: procedure CREATE_UNIQUE_KEY (
227: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
228: p_api_version_number IN NUMBER,
229: p_init_msg_tbl IN BOOLEAN := FALSE,
230: p_msg_count OUT NOCOPY NUMBER,
231: p_msg_data OUT NOCOPY VARCHAR2,
232: p_return_status OUT NOCOPY VARCHAR2,
233: p_unique_key_name IN VARCHAR2,
234: p_database_object_name IN VARCHAR2,
235: p_application_id IN NUMBER,
236: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
237: p_creation_date IN DATE := FND_API.G_MISS_DATE,
238: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
239: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
240: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
233: p_unique_key_name IN VARCHAR2,
234: p_database_object_name IN VARCHAR2,
235: p_application_id IN NUMBER,
236: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
237: p_creation_date IN DATE := FND_API.G_MISS_DATE,
238: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
239: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
240: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
241: ) is
234: p_database_object_name IN VARCHAR2,
235: p_application_id IN NUMBER,
236: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
237: p_creation_date IN DATE := FND_API.G_MISS_DATE,
238: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
239: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
240: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
241: ) is
242: l_api_version_number CONSTANT number := 1.0;
235: p_application_id IN NUMBER,
236: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
237: p_creation_date IN DATE := FND_API.G_MISS_DATE,
238: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
239: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
240: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
241: ) is
242: l_api_version_number CONSTANT number := 1.0;
243: l_api_name CONSTANT varchar2(30) := 'Create_Unique_Key';
236: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
237: p_creation_date IN DATE := FND_API.G_MISS_DATE,
238: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
239: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
240: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
241: ) is
242: l_api_version_number CONSTANT number := 1.0;
243: l_api_name CONSTANT varchar2(30) := 'Create_Unique_Key';
244: l_return_status VARCHAR2(1);
245: l_pass NUMBER := 2;
246: l_copy_redo_flag BOOLEAN := FALSE;
247: begin
248: -- Check API version number
249: IF NOT FND_API.Compatible_API_Call (
250: l_api_version_number, p_api_version_number, l_api_name,
251: G_PKG_NAME) then
252: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
253: return;
248: -- Check API version number
249: IF NOT FND_API.Compatible_API_Call (
250: l_api_version_number, p_api_version_number, l_api_name,
251: G_PKG_NAME) then
252: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
253: return;
254: END IF;
255:
256: -- Initialize the message table if requested.
280: p_copy_redo_flag => l_copy_redo_flag
281: );
282:
283: -- If API call returns with an error status...
284: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
285: (l_return_status = FND_API.G_RET_STS_ERROR) then
286: --dbms_output.put_line(l_api_name || ' Create_Unique_Key failed');
287: RAISE FND_API.G_EXC_ERROR;
288: end if;
281: );
282:
283: -- If API call returns with an error status...
284: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
285: (l_return_status = FND_API.G_RET_STS_ERROR) then
286: --dbms_output.put_line(l_api_name || ' Create_Unique_Key failed');
287: RAISE FND_API.G_EXC_ERROR;
288: end if;
289:
283: -- If API call returns with an error status...
284: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
285: (l_return_status = FND_API.G_RET_STS_ERROR) then
286: --dbms_output.put_line(l_api_name || ' Create_Unique_Key failed');
287: RAISE FND_API.G_EXC_ERROR;
288: end if;
289:
290: p_return_status := FND_API.G_RET_STS_SUCCESS;
291:
286: --dbms_output.put_line(l_api_name || ' Create_Unique_Key failed');
287: RAISE FND_API.G_EXC_ERROR;
288: end if;
289:
290: p_return_status := FND_API.G_RET_STS_SUCCESS;
291:
292: EXCEPTION
293: WHEN FND_API.G_EXC_ERROR THEN
294: p_return_status := FND_API.G_RET_STS_ERROR;
289:
290: p_return_status := FND_API.G_RET_STS_SUCCESS;
291:
292: EXCEPTION
293: WHEN FND_API.G_EXC_ERROR THEN
294: p_return_status := FND_API.G_RET_STS_ERROR;
295: rollback to start_create_unique_key;
296: WHEN OTHERS THEN
297: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
290: p_return_status := FND_API.G_RET_STS_SUCCESS;
291:
292: EXCEPTION
293: WHEN FND_API.G_EXC_ERROR THEN
294: p_return_status := FND_API.G_RET_STS_ERROR;
295: rollback to start_create_unique_key;
296: WHEN OTHERS THEN
297: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
298: rollback to start_create_unique_key;
293: WHEN FND_API.G_EXC_ERROR THEN
294: p_return_status := FND_API.G_RET_STS_ERROR;
295: rollback to start_create_unique_key;
296: WHEN OTHERS THEN
297: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
298: rollback to start_create_unique_key;
299: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
300: SUBSTR (SQLERRM, 1, 240) );
301: FND_MSG_PUB.Add;
319: -- Version Initial version number = 1.0
320: -- History Current version number = 1.0
321: --=======================================================
322: procedure CREATE_UNIQUE_KEY_COLUMN (
323: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
324: p_api_version_number IN NUMBER,
325: p_init_msg_tbl IN BOOLEAN := FALSE,
326: p_msg_count OUT NOCOPY NUMBER,
327: p_msg_data OUT NOCOPY VARCHAR2,
329: p_unique_key_name IN VARCHAR2,
330: p_attribute_application_id IN NUMBER,
331: p_attribute_code IN VARCHAR2,
332: p_unique_key_sequence IN NUMBER,
333: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
334: p_creation_date IN DATE := FND_API.G_MISS_DATE,
335: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
336: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
337: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
330: p_attribute_application_id IN NUMBER,
331: p_attribute_code IN VARCHAR2,
332: p_unique_key_sequence IN NUMBER,
333: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
334: p_creation_date IN DATE := FND_API.G_MISS_DATE,
335: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
336: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
337: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
338: ) is
331: p_attribute_code IN VARCHAR2,
332: p_unique_key_sequence IN NUMBER,
333: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
334: p_creation_date IN DATE := FND_API.G_MISS_DATE,
335: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
336: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
337: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
338: ) is
339: l_api_version_number CONSTANT number := 1.0;
332: p_unique_key_sequence IN NUMBER,
333: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
334: p_creation_date IN DATE := FND_API.G_MISS_DATE,
335: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
336: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
337: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
338: ) is
339: l_api_version_number CONSTANT number := 1.0;
340: l_api_name CONSTANT varchar2(30) := 'Create_Unique_Key_Column';
333: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
334: p_creation_date IN DATE := FND_API.G_MISS_DATE,
335: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
336: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
337: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
338: ) is
339: l_api_version_number CONSTANT number := 1.0;
340: l_api_name CONSTANT varchar2(30) := 'Create_Unique_Key_Column';
341: l_return_status VARCHAR2(1);
342: l_pass NUMBER := 2;
343: l_copy_redo_flag BOOLEAN := FALSE;
344: begin
345: -- Check API version number
346: IF NOT FND_API.Compatible_API_Call (
347: l_api_version_number, p_api_version_number, l_api_name,
348: G_PKG_NAME) then
349: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
350: return;
345: -- Check API version number
346: IF NOT FND_API.Compatible_API_Call (
347: l_api_version_number, p_api_version_number, l_api_name,
348: G_PKG_NAME) then
349: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
350: return;
351: END IF;
352:
353: -- Initialize the message table if requested.
378: p_copy_redo_flag => l_copy_redo_flag
379: );
380:
381: -- If API call returns with an error status...
382: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
383: (l_return_status = FND_API.G_RET_STS_ERROR) then
384: --dbms_output.put_line(l_api_name || ' Create_Unique_Key_Column failed');
385: RAISE FND_API.G_EXC_ERROR;
386: end if;
379: );
380:
381: -- If API call returns with an error status...
382: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
383: (l_return_status = FND_API.G_RET_STS_ERROR) then
384: --dbms_output.put_line(l_api_name || ' Create_Unique_Key_Column failed');
385: RAISE FND_API.G_EXC_ERROR;
386: end if;
387:
381: -- If API call returns with an error status...
382: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
383: (l_return_status = FND_API.G_RET_STS_ERROR) then
384: --dbms_output.put_line(l_api_name || ' Create_Unique_Key_Column failed');
385: RAISE FND_API.G_EXC_ERROR;
386: end if;
387:
388: p_return_status := FND_API.G_RET_STS_SUCCESS;
389:
384: --dbms_output.put_line(l_api_name || ' Create_Unique_Key_Column failed');
385: RAISE FND_API.G_EXC_ERROR;
386: end if;
387:
388: p_return_status := FND_API.G_RET_STS_SUCCESS;
389:
390: EXCEPTION
391: WHEN FND_API.G_EXC_ERROR THEN
392: p_return_status := FND_API.G_RET_STS_ERROR;
387:
388: p_return_status := FND_API.G_RET_STS_SUCCESS;
389:
390: EXCEPTION
391: WHEN FND_API.G_EXC_ERROR THEN
392: p_return_status := FND_API.G_RET_STS_ERROR;
393: rollback to start_create_key_column;
394: WHEN OTHERS THEN
395: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
388: p_return_status := FND_API.G_RET_STS_SUCCESS;
389:
390: EXCEPTION
391: WHEN FND_API.G_EXC_ERROR THEN
392: p_return_status := FND_API.G_RET_STS_ERROR;
393: rollback to start_create_key_column;
394: WHEN OTHERS THEN
395: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
396: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
391: WHEN FND_API.G_EXC_ERROR THEN
392: p_return_status := FND_API.G_RET_STS_ERROR;
393: rollback to start_create_key_column;
394: WHEN OTHERS THEN
395: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
396: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
397: SUBSTR (SQLERRM, 1, 240) );
398: FND_MSG_PUB.Add;
399: rollback to start_create_key_column;
423: -- Version Initial version number = 1.0
424: -- History Current version number = 1.0
425: --=======================================================
426: procedure DELETE_FOREIGN_KEY (
427: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
428: p_api_version_number IN NUMBER,
429: p_init_msg_tbl IN BOOLEAN := FALSE,
430: p_msg_count OUT NOCOPY NUMBER,
431: p_msg_data OUT NOCOPY VARCHAR2,
437: l_api_name CONSTANT varchar2(30) := 'Delete_Foreign_Key';
438: l_return_status VARCHAR2(1);
439: begin
440: -- Check API version number
441: IF NOT FND_API.Compatible_API_Call (
442: l_api_version_number, p_api_version_number, l_api_name,
443: G_PKG_NAME) then
444: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
445: return;
440: -- Check API version number
441: IF NOT FND_API.Compatible_API_Call (
442: l_api_version_number, p_api_version_number, l_api_name,
443: G_PKG_NAME) then
444: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
445: return;
446: END IF;
447:
448: -- Initialize the message table if requested.
464: p_delete_cascade => p_delete_cascade
465: );
466:
467: -- If API call returns with an error status...
468: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
469: (l_return_status = FND_API.G_RET_STS_ERROR) then
470: RAISE FND_API.G_EXC_ERROR;
471: end if;
472:
465: );
466:
467: -- If API call returns with an error status...
468: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
469: (l_return_status = FND_API.G_RET_STS_ERROR) then
470: RAISE FND_API.G_EXC_ERROR;
471: end if;
472:
473: p_return_status := FND_API.G_RET_STS_SUCCESS;
466:
467: -- If API call returns with an error status...
468: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
469: (l_return_status = FND_API.G_RET_STS_ERROR) then
470: RAISE FND_API.G_EXC_ERROR;
471: end if;
472:
473: p_return_status := FND_API.G_RET_STS_SUCCESS;
474:
469: (l_return_status = FND_API.G_RET_STS_ERROR) then
470: RAISE FND_API.G_EXC_ERROR;
471: end if;
472:
473: p_return_status := FND_API.G_RET_STS_SUCCESS;
474:
475: EXCEPTION
476: WHEN FND_API.G_EXC_ERROR THEN
477: p_return_status := FND_API.G_RET_STS_ERROR;
472:
473: p_return_status := FND_API.G_RET_STS_SUCCESS;
474:
475: EXCEPTION
476: WHEN FND_API.G_EXC_ERROR THEN
477: p_return_status := FND_API.G_RET_STS_ERROR;
478: rollback to start_delete_foreign_key;
479: WHEN OTHERS THEN
480: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
473: p_return_status := FND_API.G_RET_STS_SUCCESS;
474:
475: EXCEPTION
476: WHEN FND_API.G_EXC_ERROR THEN
477: p_return_status := FND_API.G_RET_STS_ERROR;
478: rollback to start_delete_foreign_key;
479: WHEN OTHERS THEN
480: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
481: rollback to start_delete_foreign_key;
476: WHEN FND_API.G_EXC_ERROR THEN
477: p_return_status := FND_API.G_RET_STS_ERROR;
478: rollback to start_delete_foreign_key;
479: WHEN OTHERS THEN
480: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
481: rollback to start_delete_foreign_key;
482: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
483: SUBSTR (SQLERRM, 1, 240) );
484: FND_MSG_PUB.Add;
510: -- Version Initial version number = 1.0
511: -- History Current version number = 1.0
512: --=======================================================
513: procedure DELETE_FOREIGN_KEY_COLUMN (
514: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
515: p_api_version_number IN NUMBER,
516: p_init_msg_tbl IN BOOLEAN := FALSE,
517: p_msg_count OUT NOCOPY NUMBER,
518: p_msg_data OUT NOCOPY VARCHAR2,
526: l_api_name CONSTANT varchar2(30) := 'Delete_Foreign_Key_Column';
527: l_return_status VARCHAR2(1);
528: begin
529: -- Check API version number
530: IF NOT FND_API.Compatible_API_Call (
531: l_api_version_number, p_api_version_number, l_api_name,
532: G_PKG_NAME) then
533: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
534: return;
529: -- Check API version number
530: IF NOT FND_API.Compatible_API_Call (
531: l_api_version_number, p_api_version_number, l_api_name,
532: G_PKG_NAME) then
533: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
534: return;
535: END IF;
536:
537: -- Initialize the message table if requested.
555: p_delete_cascade => p_delete_cascade
556: );
557:
558: -- If API call returns with an error status...
559: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
560: (l_return_status = FND_API.G_RET_STS_ERROR) then
561: RAISE FND_API.G_EXC_ERROR;
562: end if;
563:
556: );
557:
558: -- If API call returns with an error status...
559: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
560: (l_return_status = FND_API.G_RET_STS_ERROR) then
561: RAISE FND_API.G_EXC_ERROR;
562: end if;
563:
564: p_return_status := FND_API.G_RET_STS_SUCCESS;
557:
558: -- If API call returns with an error status...
559: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
560: (l_return_status = FND_API.G_RET_STS_ERROR) then
561: RAISE FND_API.G_EXC_ERROR;
562: end if;
563:
564: p_return_status := FND_API.G_RET_STS_SUCCESS;
565:
560: (l_return_status = FND_API.G_RET_STS_ERROR) then
561: RAISE FND_API.G_EXC_ERROR;
562: end if;
563:
564: p_return_status := FND_API.G_RET_STS_SUCCESS;
565:
566: EXCEPTION
567: WHEN FND_API.G_EXC_ERROR THEN
568: p_return_status := FND_API.G_RET_STS_ERROR;
563:
564: p_return_status := FND_API.G_RET_STS_SUCCESS;
565:
566: EXCEPTION
567: WHEN FND_API.G_EXC_ERROR THEN
568: p_return_status := FND_API.G_RET_STS_ERROR;
569: rollback to start_delete_key_column;
570: WHEN OTHERS THEN
571: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
564: p_return_status := FND_API.G_RET_STS_SUCCESS;
565:
566: EXCEPTION
567: WHEN FND_API.G_EXC_ERROR THEN
568: p_return_status := FND_API.G_RET_STS_ERROR;
569: rollback to start_delete_key_column;
570: WHEN OTHERS THEN
571: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
572: rollback to start_delete_key_column;
567: WHEN FND_API.G_EXC_ERROR THEN
568: p_return_status := FND_API.G_RET_STS_ERROR;
569: rollback to start_delete_key_column;
570: WHEN OTHERS THEN
571: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
572: rollback to start_delete_key_column;
573: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
574: SUBSTR (SQLERRM, 1, 240) );
575: FND_MSG_PUB.Add;
599: -- Version Initial version number = 1.0
600: -- History Current version number = 1.0
601: --=======================================================
602: procedure DELETE_UNIQUE_KEY (
603: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
604: p_api_version_number IN NUMBER,
605: p_init_msg_tbl IN BOOLEAN := FALSE,
606: p_msg_count OUT NOCOPY NUMBER,
607: p_msg_data OUT NOCOPY VARCHAR2,
613: l_api_name CONSTANT varchar2(30) := 'Delete_Unique_Key';
614: l_return_status VARCHAR2(1);
615: begin
616: -- Check API version number
617: IF NOT FND_API.Compatible_API_Call (
618: l_api_version_number, p_api_version_number, l_api_name,
619: G_PKG_NAME) then
620: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
621: return;
616: -- Check API version number
617: IF NOT FND_API.Compatible_API_Call (
618: l_api_version_number, p_api_version_number, l_api_name,
619: G_PKG_NAME) then
620: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
621: return;
622: END IF;
623:
624: -- Initialize the message table if requested.
640: p_delete_cascade => p_delete_cascade
641: );
642:
643: -- If API call returns with an error status...
644: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
645: (l_return_status = FND_API.G_RET_STS_ERROR) then
646: RAISE FND_API.G_EXC_ERROR;
647: end if;
648:
641: );
642:
643: -- If API call returns with an error status...
644: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
645: (l_return_status = FND_API.G_RET_STS_ERROR) then
646: RAISE FND_API.G_EXC_ERROR;
647: end if;
648:
649: p_return_status := FND_API.G_RET_STS_SUCCESS;
642:
643: -- If API call returns with an error status...
644: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
645: (l_return_status = FND_API.G_RET_STS_ERROR) then
646: RAISE FND_API.G_EXC_ERROR;
647: end if;
648:
649: p_return_status := FND_API.G_RET_STS_SUCCESS;
650:
645: (l_return_status = FND_API.G_RET_STS_ERROR) then
646: RAISE FND_API.G_EXC_ERROR;
647: end if;
648:
649: p_return_status := FND_API.G_RET_STS_SUCCESS;
650:
651: EXCEPTION
652: WHEN FND_API.G_EXC_ERROR THEN
653: p_return_status := FND_API.G_RET_STS_ERROR;
648:
649: p_return_status := FND_API.G_RET_STS_SUCCESS;
650:
651: EXCEPTION
652: WHEN FND_API.G_EXC_ERROR THEN
653: p_return_status := FND_API.G_RET_STS_ERROR;
654: rollback to start_delete_unique_key;
655: WHEN OTHERS THEN
656: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
649: p_return_status := FND_API.G_RET_STS_SUCCESS;
650:
651: EXCEPTION
652: WHEN FND_API.G_EXC_ERROR THEN
653: p_return_status := FND_API.G_RET_STS_ERROR;
654: rollback to start_delete_unique_key;
655: WHEN OTHERS THEN
656: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
657: rollback to start_delete_unique_key;
652: WHEN FND_API.G_EXC_ERROR THEN
653: p_return_status := FND_API.G_RET_STS_ERROR;
654: rollback to start_delete_unique_key;
655: WHEN OTHERS THEN
656: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
657: rollback to start_delete_unique_key;
658: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
659: SUBSTR (SQLERRM, 1, 240) );
660: FND_MSG_PUB.Add;
686: -- Version Initial version number = 1.0
687: -- History Current version number = 1.0
688: --=======================================================
689: procedure DELETE_UNIQUE_KEY_COLUMN (
690: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
691: p_api_version_number IN NUMBER,
692: p_init_msg_tbl IN BOOLEAN := FALSE,
693: p_msg_count OUT NOCOPY NUMBER,
694: p_msg_data OUT NOCOPY VARCHAR2,
702: l_api_name CONSTANT varchar2(30) := 'Delete_Unique_Key_Column';
703: l_return_status VARCHAR2(1);
704: begin
705: -- Check API version number
706: IF NOT FND_API.Compatible_API_Call (
707: l_api_version_number, p_api_version_number, l_api_name,
708: G_PKG_NAME) then
709: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
710: return;
705: -- Check API version number
706: IF NOT FND_API.Compatible_API_Call (
707: l_api_version_number, p_api_version_number, l_api_name,
708: G_PKG_NAME) then
709: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
710: return;
711: END IF;
712:
713: -- Initialize the message table if requested.
731: p_delete_cascade => p_delete_cascade
732: );
733:
734: -- If API call returns with an error status...
735: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
736: (l_return_status = FND_API.G_RET_STS_ERROR) then
737: RAISE FND_API.G_EXC_ERROR;
738: end if;
739:
732: );
733:
734: -- If API call returns with an error status...
735: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
736: (l_return_status = FND_API.G_RET_STS_ERROR) then
737: RAISE FND_API.G_EXC_ERROR;
738: end if;
739:
740: p_return_status := FND_API.G_RET_STS_SUCCESS;
733:
734: -- If API call returns with an error status...
735: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
736: (l_return_status = FND_API.G_RET_STS_ERROR) then
737: RAISE FND_API.G_EXC_ERROR;
738: end if;
739:
740: p_return_status := FND_API.G_RET_STS_SUCCESS;
741:
736: (l_return_status = FND_API.G_RET_STS_ERROR) then
737: RAISE FND_API.G_EXC_ERROR;
738: end if;
739:
740: p_return_status := FND_API.G_RET_STS_SUCCESS;
741:
742: EXCEPTION
743: WHEN FND_API.G_EXC_ERROR THEN
744: p_return_status := FND_API.G_RET_STS_ERROR;
739:
740: p_return_status := FND_API.G_RET_STS_SUCCESS;
741:
742: EXCEPTION
743: WHEN FND_API.G_EXC_ERROR THEN
744: p_return_status := FND_API.G_RET_STS_ERROR;
745: rollback to start_delete_key_column;
746: WHEN OTHERS THEN
747: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
740: p_return_status := FND_API.G_RET_STS_SUCCESS;
741:
742: EXCEPTION
743: WHEN FND_API.G_EXC_ERROR THEN
744: p_return_status := FND_API.G_RET_STS_ERROR;
745: rollback to start_delete_key_column;
746: WHEN OTHERS THEN
747: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
748: rollback to start_delete_key_column;
743: WHEN FND_API.G_EXC_ERROR THEN
744: p_return_status := FND_API.G_RET_STS_ERROR;
745: rollback to start_delete_key_column;
746: WHEN OTHERS THEN
747: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
748: rollback to start_delete_key_column;
749: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
750: SUBSTR (SQLERRM, 1, 240) );
751: FND_MSG_PUB.Add;
769: -- Version Initial version number = 1.0
770: -- History Current version number = 1.0
771: --=======================================================
772: procedure UPDATE_FOREIGN_KEY (
773: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
774: p_api_version_number IN NUMBER,
775: p_init_msg_tbl IN BOOLEAN := FALSE,
776: p_msg_count OUT NOCOPY NUMBER,
777: p_msg_data OUT NOCOPY VARCHAR2,
776: p_msg_count OUT NOCOPY NUMBER,
777: p_msg_data OUT NOCOPY VARCHAR2,
778: p_return_status OUT NOCOPY VARCHAR2,
779: p_foreign_key_name IN VARCHAR2,
780: p_database_object_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
781: p_unique_key_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
782: p_application_id IN NUMBER := FND_API.G_MISS_NUM,
783: p_from_to_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
784: p_from_to_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
777: p_msg_data OUT NOCOPY VARCHAR2,
778: p_return_status OUT NOCOPY VARCHAR2,
779: p_foreign_key_name IN VARCHAR2,
780: p_database_object_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
781: p_unique_key_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
782: p_application_id IN NUMBER := FND_API.G_MISS_NUM,
783: p_from_to_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
784: p_from_to_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
785: p_to_from_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
778: p_return_status OUT NOCOPY VARCHAR2,
779: p_foreign_key_name IN VARCHAR2,
780: p_database_object_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
781: p_unique_key_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
782: p_application_id IN NUMBER := FND_API.G_MISS_NUM,
783: p_from_to_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
784: p_from_to_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
785: p_to_from_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
786: p_to_from_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
779: p_foreign_key_name IN VARCHAR2,
780: p_database_object_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
781: p_unique_key_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
782: p_application_id IN NUMBER := FND_API.G_MISS_NUM,
783: p_from_to_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
784: p_from_to_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
785: p_to_from_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
786: p_to_from_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
787: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
780: p_database_object_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
781: p_unique_key_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
782: p_application_id IN NUMBER := FND_API.G_MISS_NUM,
783: p_from_to_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
784: p_from_to_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
785: p_to_from_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
786: p_to_from_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
787: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
788: p_creation_date IN DATE := FND_API.G_MISS_DATE,
781: p_unique_key_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
782: p_application_id IN NUMBER := FND_API.G_MISS_NUM,
783: p_from_to_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
784: p_from_to_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
785: p_to_from_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
786: p_to_from_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
787: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
788: p_creation_date IN DATE := FND_API.G_MISS_DATE,
789: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
782: p_application_id IN NUMBER := FND_API.G_MISS_NUM,
783: p_from_to_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
784: p_from_to_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
785: p_to_from_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
786: p_to_from_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
787: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
788: p_creation_date IN DATE := FND_API.G_MISS_DATE,
789: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
790: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
783: p_from_to_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
784: p_from_to_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
785: p_to_from_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
786: p_to_from_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
787: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
788: p_creation_date IN DATE := FND_API.G_MISS_DATE,
789: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
790: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
791: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
784: p_from_to_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
785: p_to_from_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
786: p_to_from_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
787: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
788: p_creation_date IN DATE := FND_API.G_MISS_DATE,
789: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
790: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
791: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
792: ) is
785: p_to_from_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
786: p_to_from_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
787: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
788: p_creation_date IN DATE := FND_API.G_MISS_DATE,
789: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
790: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
791: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
792: ) is
793: l_api_version_number CONSTANT number := 1.0;
786: p_to_from_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
787: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
788: p_creation_date IN DATE := FND_API.G_MISS_DATE,
789: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
790: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
791: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
792: ) is
793: l_api_version_number CONSTANT number := 1.0;
794: l_api_name CONSTANT varchar2(30) := 'Update_Foreign_Key';
787: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
788: p_creation_date IN DATE := FND_API.G_MISS_DATE,
789: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
790: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
791: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
792: ) is
793: l_api_version_number CONSTANT number := 1.0;
794: l_api_name CONSTANT varchar2(30) := 'Update_Foreign_Key';
795: l_return_status VARCHAR2(1);
796: l_pass NUMBER := 2;
797: l_copy_redo_flag BOOLEAN := FALSE;
798: begin
799: -- Check API version number
800: IF NOT FND_API.Compatible_API_Call (
801: l_api_version_number, p_api_version_number, l_api_name,
802: G_PKG_NAME) then
803: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
804: return;
799: -- Check API version number
800: IF NOT FND_API.Compatible_API_Call (
801: l_api_version_number, p_api_version_number, l_api_name,
802: G_PKG_NAME) then
803: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
804: return;
805: END IF;
806:
807: -- Initialize the message table if requested.
836: p_copy_redo_flag => l_copy_redo_flag
837: );
838:
839: -- If API call returns with an error status...
840: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
841: (l_return_status = FND_API.G_RET_STS_ERROR) then
842: --dbms_output.put_line(l_api_name || ' Update_Foreign_Key failed');
843: RAISE FND_API.G_EXC_ERROR;
844: end if;
837: );
838:
839: -- If API call returns with an error status...
840: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
841: (l_return_status = FND_API.G_RET_STS_ERROR) then
842: --dbms_output.put_line(l_api_name || ' Update_Foreign_Key failed');
843: RAISE FND_API.G_EXC_ERROR;
844: end if;
845:
839: -- If API call returns with an error status...
840: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
841: (l_return_status = FND_API.G_RET_STS_ERROR) then
842: --dbms_output.put_line(l_api_name || ' Update_Foreign_Key failed');
843: RAISE FND_API.G_EXC_ERROR;
844: end if;
845:
846: p_return_status := FND_API.G_RET_STS_SUCCESS;
847:
842: --dbms_output.put_line(l_api_name || ' Update_Foreign_Key failed');
843: RAISE FND_API.G_EXC_ERROR;
844: end if;
845:
846: p_return_status := FND_API.G_RET_STS_SUCCESS;
847:
848: EXCEPTION
849: WHEN FND_API.G_EXC_ERROR THEN
850: p_return_status := FND_API.G_RET_STS_ERROR;
845:
846: p_return_status := FND_API.G_RET_STS_SUCCESS;
847:
848: EXCEPTION
849: WHEN FND_API.G_EXC_ERROR THEN
850: p_return_status := FND_API.G_RET_STS_ERROR;
851: rollback to start_update_foreign_key;
852: WHEN OTHERS THEN
853: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
846: p_return_status := FND_API.G_RET_STS_SUCCESS;
847:
848: EXCEPTION
849: WHEN FND_API.G_EXC_ERROR THEN
850: p_return_status := FND_API.G_RET_STS_ERROR;
851: rollback to start_update_foreign_key;
852: WHEN OTHERS THEN
853: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
854: rollback to start_update_foreign_key;
849: WHEN FND_API.G_EXC_ERROR THEN
850: p_return_status := FND_API.G_RET_STS_ERROR;
851: rollback to start_update_foreign_key;
852: WHEN OTHERS THEN
853: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
854: rollback to start_update_foreign_key;
855: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
856: SUBSTR (SQLERRM, 1, 240) );
857: FND_MSG_PUB.Add;
875: -- Version Initial version number = 1.0
876: -- History Current version number = 1.0
877: --=======================================================
878: procedure UPDATE_FOREIGN_KEY_COLUMN (
879: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
880: p_api_version_number IN NUMBER,
881: p_init_msg_tbl IN BOOLEAN := FALSE,
882: p_msg_count OUT NOCOPY NUMBER,
883: p_msg_data OUT NOCOPY VARCHAR2,
884: p_return_status OUT NOCOPY VARCHAR2,
885: p_foreign_key_name IN VARCHAR2,
886: p_attribute_application_id IN NUMBER,
887: p_attribute_code IN VARCHAR2,
888: p_foreign_key_sequence IN NUMBER := FND_API.G_MISS_NUM,
889: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
890: p_creation_date IN DATE := FND_API.G_MISS_DATE,
891: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
892: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
885: p_foreign_key_name IN VARCHAR2,
886: p_attribute_application_id IN NUMBER,
887: p_attribute_code IN VARCHAR2,
888: p_foreign_key_sequence IN NUMBER := FND_API.G_MISS_NUM,
889: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
890: p_creation_date IN DATE := FND_API.G_MISS_DATE,
891: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
892: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
893: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
886: p_attribute_application_id IN NUMBER,
887: p_attribute_code IN VARCHAR2,
888: p_foreign_key_sequence IN NUMBER := FND_API.G_MISS_NUM,
889: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
890: p_creation_date IN DATE := FND_API.G_MISS_DATE,
891: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
892: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
893: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
894: ) is
887: p_attribute_code IN VARCHAR2,
888: p_foreign_key_sequence IN NUMBER := FND_API.G_MISS_NUM,
889: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
890: p_creation_date IN DATE := FND_API.G_MISS_DATE,
891: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
892: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
893: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
894: ) is
895: l_api_version_number CONSTANT number := 1.0;
888: p_foreign_key_sequence IN NUMBER := FND_API.G_MISS_NUM,
889: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
890: p_creation_date IN DATE := FND_API.G_MISS_DATE,
891: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
892: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
893: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
894: ) is
895: l_api_version_number CONSTANT number := 1.0;
896: l_api_name CONSTANT varchar2(30) := 'Update_Foreign_Key_Column';
889: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
890: p_creation_date IN DATE := FND_API.G_MISS_DATE,
891: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
892: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
893: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
894: ) is
895: l_api_version_number CONSTANT number := 1.0;
896: l_api_name CONSTANT varchar2(30) := 'Update_Foreign_Key_Column';
897: l_return_status VARCHAR2(1);
898: l_pass NUMBER := 2;
899: l_copy_redo_flag BOOLEAN := FALSE;
900: begin
901: -- Check API version number
902: IF NOT FND_API.Compatible_API_Call (
903: l_api_version_number, p_api_version_number, l_api_name,
904: G_PKG_NAME) then
905: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
906: return;
901: -- Check API version number
902: IF NOT FND_API.Compatible_API_Call (
903: l_api_version_number, p_api_version_number, l_api_name,
904: G_PKG_NAME) then
905: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
906: return;
907: END IF;
908:
909: -- Initialize the message table if requested.
934: p_copy_redo_flag => l_copy_redo_flag
935: );
936:
937: -- If API call returns with an error status...
938: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
939: (l_return_status = FND_API.G_RET_STS_ERROR) then
940: --dbms_output.put_line(l_api_name || ' Update_Foreign_Key_Column failed');
941: RAISE FND_API.G_EXC_ERROR;
942: end if;
935: );
936:
937: -- If API call returns with an error status...
938: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
939: (l_return_status = FND_API.G_RET_STS_ERROR) then
940: --dbms_output.put_line(l_api_name || ' Update_Foreign_Key_Column failed');
941: RAISE FND_API.G_EXC_ERROR;
942: end if;
943:
937: -- If API call returns with an error status...
938: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
939: (l_return_status = FND_API.G_RET_STS_ERROR) then
940: --dbms_output.put_line(l_api_name || ' Update_Foreign_Key_Column failed');
941: RAISE FND_API.G_EXC_ERROR;
942: end if;
943:
944: p_return_status := FND_API.G_RET_STS_SUCCESS;
945:
940: --dbms_output.put_line(l_api_name || ' Update_Foreign_Key_Column failed');
941: RAISE FND_API.G_EXC_ERROR;
942: end if;
943:
944: p_return_status := FND_API.G_RET_STS_SUCCESS;
945:
946: EXCEPTION
947: WHEN FND_API.G_EXC_ERROR THEN
948: p_return_status := FND_API.G_RET_STS_ERROR;
943:
944: p_return_status := FND_API.G_RET_STS_SUCCESS;
945:
946: EXCEPTION
947: WHEN FND_API.G_EXC_ERROR THEN
948: p_return_status := FND_API.G_RET_STS_ERROR;
949: rollback to start_update_key_column;
950: WHEN OTHERS THEN
951: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
944: p_return_status := FND_API.G_RET_STS_SUCCESS;
945:
946: EXCEPTION
947: WHEN FND_API.G_EXC_ERROR THEN
948: p_return_status := FND_API.G_RET_STS_ERROR;
949: rollback to start_update_key_column;
950: WHEN OTHERS THEN
951: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
952: rollback to start_update_key_column;
947: WHEN FND_API.G_EXC_ERROR THEN
948: p_return_status := FND_API.G_RET_STS_ERROR;
949: rollback to start_update_key_column;
950: WHEN OTHERS THEN
951: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
952: rollback to start_update_key_column;
953: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
954: SUBSTR (SQLERRM, 1, 240) );
955: FND_MSG_PUB.Add;
973: -- Version Initial version number = 1.0
974: -- History Current version number = 1.0
975: --=======================================================
976: procedure UPDATE_UNIQUE_KEY (
977: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
978: p_api_version_number IN NUMBER,
979: p_init_msg_tbl IN BOOLEAN := FALSE,
980: p_msg_count OUT NOCOPY NUMBER,
981: p_msg_data OUT NOCOPY VARCHAR2,
980: p_msg_count OUT NOCOPY NUMBER,
981: p_msg_data OUT NOCOPY VARCHAR2,
982: p_return_status OUT NOCOPY VARCHAR2,
983: p_unique_key_name IN VARCHAR2,
984: p_database_object_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
985: p_application_id IN NUMBER := FND_API.G_MISS_NUM,
986: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
987: p_creation_date IN DATE := FND_API.G_MISS_DATE,
988: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
981: p_msg_data OUT NOCOPY VARCHAR2,
982: p_return_status OUT NOCOPY VARCHAR2,
983: p_unique_key_name IN VARCHAR2,
984: p_database_object_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
985: p_application_id IN NUMBER := FND_API.G_MISS_NUM,
986: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
987: p_creation_date IN DATE := FND_API.G_MISS_DATE,
988: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
989: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
982: p_return_status OUT NOCOPY VARCHAR2,
983: p_unique_key_name IN VARCHAR2,
984: p_database_object_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
985: p_application_id IN NUMBER := FND_API.G_MISS_NUM,
986: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
987: p_creation_date IN DATE := FND_API.G_MISS_DATE,
988: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
989: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
990: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
983: p_unique_key_name IN VARCHAR2,
984: p_database_object_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
985: p_application_id IN NUMBER := FND_API.G_MISS_NUM,
986: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
987: p_creation_date IN DATE := FND_API.G_MISS_DATE,
988: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
989: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
990: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
991: ) is
984: p_database_object_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
985: p_application_id IN NUMBER := FND_API.G_MISS_NUM,
986: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
987: p_creation_date IN DATE := FND_API.G_MISS_DATE,
988: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
989: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
990: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
991: ) is
992: l_api_version_number CONSTANT number := 1.0;
985: p_application_id IN NUMBER := FND_API.G_MISS_NUM,
986: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
987: p_creation_date IN DATE := FND_API.G_MISS_DATE,
988: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
989: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
990: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
991: ) is
992: l_api_version_number CONSTANT number := 1.0;
993: l_api_name CONSTANT varchar2(30) := 'Update_Unique_Key';
986: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
987: p_creation_date IN DATE := FND_API.G_MISS_DATE,
988: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
989: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
990: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
991: ) is
992: l_api_version_number CONSTANT number := 1.0;
993: l_api_name CONSTANT varchar2(30) := 'Update_Unique_Key';
994: l_return_status VARCHAR2(1);
995: l_pass NUMBER := 2;
996: l_copy_redo_flag BOOLEAN := FALSE;
997: begin
998: -- Check API version number
999: IF NOT FND_API.Compatible_API_Call (
1000: l_api_version_number, p_api_version_number, l_api_name,
1001: G_PKG_NAME) then
1002: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1003: return;
998: -- Check API version number
999: IF NOT FND_API.Compatible_API_Call (
1000: l_api_version_number, p_api_version_number, l_api_name,
1001: G_PKG_NAME) then
1002: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1003: return;
1004: END IF;
1005:
1006: -- Initialize the message table if requested.
1030: p_copy_redo_flag => l_copy_redo_flag
1031: );
1032:
1033: -- If API call returns with an error status...
1034: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1035: (l_return_status = FND_API.G_RET_STS_ERROR) then
1036: --dbms_output.put_line(l_api_name || ' Update_Unique_Key failed');
1037: RAISE FND_API.G_EXC_ERROR;
1038: end if;
1031: );
1032:
1033: -- If API call returns with an error status...
1034: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1035: (l_return_status = FND_API.G_RET_STS_ERROR) then
1036: --dbms_output.put_line(l_api_name || ' Update_Unique_Key failed');
1037: RAISE FND_API.G_EXC_ERROR;
1038: end if;
1039:
1033: -- If API call returns with an error status...
1034: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1035: (l_return_status = FND_API.G_RET_STS_ERROR) then
1036: --dbms_output.put_line(l_api_name || ' Update_Unique_Key failed');
1037: RAISE FND_API.G_EXC_ERROR;
1038: end if;
1039:
1040: p_return_status := FND_API.G_RET_STS_SUCCESS;
1041:
1036: --dbms_output.put_line(l_api_name || ' Update_Unique_Key failed');
1037: RAISE FND_API.G_EXC_ERROR;
1038: end if;
1039:
1040: p_return_status := FND_API.G_RET_STS_SUCCESS;
1041:
1042: EXCEPTION
1043: WHEN FND_API.G_EXC_ERROR THEN
1044: p_return_status := FND_API.G_RET_STS_ERROR;
1039:
1040: p_return_status := FND_API.G_RET_STS_SUCCESS;
1041:
1042: EXCEPTION
1043: WHEN FND_API.G_EXC_ERROR THEN
1044: p_return_status := FND_API.G_RET_STS_ERROR;
1045: rollback to start_update_unique_key;
1046: WHEN OTHERS THEN
1047: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1040: p_return_status := FND_API.G_RET_STS_SUCCESS;
1041:
1042: EXCEPTION
1043: WHEN FND_API.G_EXC_ERROR THEN
1044: p_return_status := FND_API.G_RET_STS_ERROR;
1045: rollback to start_update_unique_key;
1046: WHEN OTHERS THEN
1047: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1048: rollback to start_update_unique_key;
1043: WHEN FND_API.G_EXC_ERROR THEN
1044: p_return_status := FND_API.G_RET_STS_ERROR;
1045: rollback to start_update_unique_key;
1046: WHEN OTHERS THEN
1047: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1048: rollback to start_update_unique_key;
1049: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
1050: SUBSTR (SQLERRM, 1, 240) );
1051: FND_MSG_PUB.Add;
1069: -- Version Initial version number = 1.0
1070: -- History Current version number = 1.0
1071: --=======================================================
1072: procedure UPDATE_UNIQUE_KEY_COLUMN (
1073: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1074: p_api_version_number IN NUMBER,
1075: p_init_msg_tbl IN BOOLEAN := FALSE,
1076: p_msg_count OUT NOCOPY NUMBER,
1077: p_msg_data OUT NOCOPY VARCHAR2,
1078: p_return_status OUT NOCOPY VARCHAR2,
1079: p_unique_key_name IN VARCHAR2,
1080: p_attribute_application_id IN NUMBER,
1081: p_attribute_code IN VARCHAR2,
1082: p_unique_key_sequence IN NUMBER := FND_API.G_MISS_NUM,
1083: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
1084: p_creation_date IN DATE := FND_API.G_MISS_DATE,
1085: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
1086: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
1079: p_unique_key_name IN VARCHAR2,
1080: p_attribute_application_id IN NUMBER,
1081: p_attribute_code IN VARCHAR2,
1082: p_unique_key_sequence IN NUMBER := FND_API.G_MISS_NUM,
1083: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
1084: p_creation_date IN DATE := FND_API.G_MISS_DATE,
1085: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
1086: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
1087: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
1080: p_attribute_application_id IN NUMBER,
1081: p_attribute_code IN VARCHAR2,
1082: p_unique_key_sequence IN NUMBER := FND_API.G_MISS_NUM,
1083: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
1084: p_creation_date IN DATE := FND_API.G_MISS_DATE,
1085: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
1086: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
1087: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
1088: ) is
1081: p_attribute_code IN VARCHAR2,
1082: p_unique_key_sequence IN NUMBER := FND_API.G_MISS_NUM,
1083: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
1084: p_creation_date IN DATE := FND_API.G_MISS_DATE,
1085: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
1086: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
1087: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
1088: ) is
1089: l_api_version_number CONSTANT number := 1.0;
1082: p_unique_key_sequence IN NUMBER := FND_API.G_MISS_NUM,
1083: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
1084: p_creation_date IN DATE := FND_API.G_MISS_DATE,
1085: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
1086: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
1087: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
1088: ) is
1089: l_api_version_number CONSTANT number := 1.0;
1090: l_api_name CONSTANT varchar2(30) := 'Update_Unique_Key_Column';
1083: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
1084: p_creation_date IN DATE := FND_API.G_MISS_DATE,
1085: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
1086: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
1087: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
1088: ) is
1089: l_api_version_number CONSTANT number := 1.0;
1090: l_api_name CONSTANT varchar2(30) := 'Update_Unique_Key_Column';
1091: l_return_status VARCHAR2(1);
1092: l_pass NUMBER := 2;
1093: l_copy_redo_flag BOOLEAN := FALSE;
1094: begin
1095: -- Check API version number
1096: IF NOT FND_API.Compatible_API_Call (
1097: l_api_version_number, p_api_version_number, l_api_name,
1098: G_PKG_NAME) then
1099: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1100: return;
1095: -- Check API version number
1096: IF NOT FND_API.Compatible_API_Call (
1097: l_api_version_number, p_api_version_number, l_api_name,
1098: G_PKG_NAME) then
1099: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1100: return;
1101: END IF;
1102:
1103: -- Initialize the message table if requested.
1128: p_copy_redo_flag => l_copy_redo_flag
1129: );
1130:
1131: -- If API call returns with an error status...
1132: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1133: (l_return_status = FND_API.G_RET_STS_ERROR) then
1134: --dbms_output.put_line(l_api_name || ' Update_Unique_Key_Column failed');
1135: RAISE FND_API.G_EXC_ERROR;
1136: end if;
1129: );
1130:
1131: -- If API call returns with an error status...
1132: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1133: (l_return_status = FND_API.G_RET_STS_ERROR) then
1134: --dbms_output.put_line(l_api_name || ' Update_Unique_Key_Column failed');
1135: RAISE FND_API.G_EXC_ERROR;
1136: end if;
1137:
1131: -- If API call returns with an error status...
1132: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1133: (l_return_status = FND_API.G_RET_STS_ERROR) then
1134: --dbms_output.put_line(l_api_name || ' Update_Unique_Key_Column failed');
1135: RAISE FND_API.G_EXC_ERROR;
1136: end if;
1137:
1138: p_return_status := FND_API.G_RET_STS_SUCCESS;
1139:
1134: --dbms_output.put_line(l_api_name || ' Update_Unique_Key_Column failed');
1135: RAISE FND_API.G_EXC_ERROR;
1136: end if;
1137:
1138: p_return_status := FND_API.G_RET_STS_SUCCESS;
1139:
1140: EXCEPTION
1141: WHEN FND_API.G_EXC_ERROR THEN
1142: p_return_status := FND_API.G_RET_STS_ERROR;
1137:
1138: p_return_status := FND_API.G_RET_STS_SUCCESS;
1139:
1140: EXCEPTION
1141: WHEN FND_API.G_EXC_ERROR THEN
1142: p_return_status := FND_API.G_RET_STS_ERROR;
1143: rollback to start_update_key_column;
1144: WHEN OTHERS THEN
1145: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1138: p_return_status := FND_API.G_RET_STS_SUCCESS;
1139:
1140: EXCEPTION
1141: WHEN FND_API.G_EXC_ERROR THEN
1142: p_return_status := FND_API.G_RET_STS_ERROR;
1143: rollback to start_update_key_column;
1144: WHEN OTHERS THEN
1145: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1146: rollback to start_update_key_column;
1141: WHEN FND_API.G_EXC_ERROR THEN
1142: p_return_status := FND_API.G_RET_STS_ERROR;
1143: rollback to start_update_key_column;
1144: WHEN OTHERS THEN
1145: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1146: rollback to start_update_key_column;
1147: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
1148: SUBSTR (SQLERRM, 1, 240) );
1149: FND_MSG_PUB.Add;