56: -- OBJECT_TYPE = 'PROCESS' with PK1 = PROCESS_REV_ID
57: -- OBJECT_TYPE = 'PROCESS_ORG' with PK1 = PROCESS_ORGANIZATION_ID
58: -- ===============================================================
59: PROCEDURE PROCESS_ELEMENTS (
60: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
61: p_commit IN VARCHAR2 := FND_API.G_FALSE,
62: p_validate_only IN VARCHAR2 := FND_API.G_FALSE,
63: p_select_flag IN VARCHAR2,
64: p_object_id IN NUMBER,
57: -- OBJECT_TYPE = 'PROCESS_ORG' with PK1 = PROCESS_ORGANIZATION_ID
58: -- ===============================================================
59: PROCEDURE PROCESS_ELEMENTS (
60: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
61: p_commit IN VARCHAR2 := FND_API.G_FALSE,
62: p_validate_only IN VARCHAR2 := FND_API.G_FALSE,
63: p_select_flag IN VARCHAR2,
64: p_object_id IN NUMBER,
65: p_object_type IN VARCHAR2,
58: -- ===============================================================
59: PROCEDURE PROCESS_ELEMENTS (
60: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
61: p_commit IN VARCHAR2 := FND_API.G_FALSE,
62: p_validate_only IN VARCHAR2 := FND_API.G_FALSE,
63: p_select_flag IN VARCHAR2,
64: p_object_id IN NUMBER,
65: p_object_type IN VARCHAR2,
66: p_element_code IN VARCHAR2,
80:
81: BEGIN
82:
83: -- create savepoint if p_commit is true
84: IF p_commit = FND_API.G_TRUE THEN
85: SAVEPOINT PROCESS_ELEMENTS_SAVE;
86: END IF;
87:
88: -- initialize message list if p_init_msg_list is set to true
85: SAVEPOINT PROCESS_ELEMENTS_SAVE;
86: END IF;
87:
88: -- initialize message list if p_init_msg_list is set to true
89: if FND_API.to_boolean(nvl(p_init_msg_list, FND_API.G_FALSE)) then
90: fnd_msg_pub.initialize;
91: end if;
92:
93: -- initialize return status to success
90: fnd_msg_pub.initialize;
91: end if;
92:
93: -- initialize return status to success
94: x_return_status := fnd_api.g_ret_sts_success;
95:
96: delete from AMW_SIGNIFICANT_ELEMENTS
97: where pk1 = p_object_id
98: and object_type = p_object_type
134:
135: end if;
136:
137: -- Standard check for p_commit
138: IF FND_API.to_Boolean( p_commit ) THEN
139: COMMIT WORK;
140: END IF;
141:
142: EXCEPTION
139: COMMIT WORK;
140: END IF;
141:
142: EXCEPTION
143: WHEN FND_API.G_EXC_ERROR THEN
144: IF FND_API.to_Boolean( p_commit ) THEN
145: ROLLBACK TO PROCESS_ELEMENTS_SAVE;
146: END IF;
147: x_return_status := FND_API.G_RET_STS_ERROR;
140: END IF;
141:
142: EXCEPTION
143: WHEN FND_API.G_EXC_ERROR THEN
144: IF FND_API.to_Boolean( p_commit ) THEN
145: ROLLBACK TO PROCESS_ELEMENTS_SAVE;
146: END IF;
147: x_return_status := FND_API.G_RET_STS_ERROR;
148: fnd_msg_pub.count_and_get(p_count => x_msg_count,
143: WHEN FND_API.G_EXC_ERROR THEN
144: IF FND_API.to_Boolean( p_commit ) THEN
145: ROLLBACK TO PROCESS_ELEMENTS_SAVE;
146: END IF;
147: x_return_status := FND_API.G_RET_STS_ERROR;
148: fnd_msg_pub.count_and_get(p_count => x_msg_count,
149: p_data => x_msg_data);
150: WHEN OTHERS THEN
151: IF FND_API.to_Boolean( p_commit ) THEN
147: x_return_status := FND_API.G_RET_STS_ERROR;
148: fnd_msg_pub.count_and_get(p_count => x_msg_count,
149: p_data => x_msg_data);
150: WHEN OTHERS THEN
151: IF FND_API.to_Boolean( p_commit ) THEN
152: ROLLBACK TO PROCESS_ELEMENTS_SAVE;
153: END IF;
154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
155: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AMW_SIGNIFICANT_ELEMENTS_PKG',
150: WHEN OTHERS THEN
151: IF FND_API.to_Boolean( p_commit ) THEN
152: ROLLBACK TO PROCESS_ELEMENTS_SAVE;
153: END IF;
154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
155: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AMW_SIGNIFICANT_ELEMENTS_PKG',
156: p_procedure_name => 'PROCESS_ELEMENTS',
157: p_error_text => SUBSTRB(SQLERRM,1,240));
158: