37:
38: -- Initialize message list if p_init_msg_list is set to TRUE.
39: IF FND_API.to_Boolean( p_init_msg_list )
40: THEN
41: FND_MSG_PUB.initialize;
42: END IF;
43:
44: -- Initialize API return status to SUCCESS
45: x_return_status := FND_API.G_RET_STS_SUCCESS;
73: COMMIT WORK;
74: END IF;
75:
76: -- Standard call to get message count and if count is 1, get message info.
77: FND_MSG_PUB.Count_And_Get
78: ( p_count => x_msg_count,
79: p_data => x_msg_data);
80:
81: EXCEPTION
81: EXCEPTION
82: WHEN FND_API.G_EXC_ERROR THEN
83: ROLLBACK TO CREATE_TABLESPACES_PUB;
84: x_return_status := FND_API.G_RET_STS_ERROR ;
85: FND_MSG_PUB.Count_And_Get
86: (p_count => x_msg_count,
87: p_data => x_msg_data);
88:
89: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
88:
89: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
90: ROLLBACK TO CREATE_TABLESPACES_PUB;
91: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
92: FND_MSG_PUB.Count_And_Get
93: (p_count => x_msg_count,
94: p_data => x_msg_data);
95:
96: WHEN OTHERS THEN
95:
96: WHEN OTHERS THEN
97: ROLLBACK TO CREATE_TABLESPACES_PUB;
98: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
99: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
100: THEN
101: FND_MSG_PUB.Add_Exc_Msg
102: ( G_PKG_NAME,
103: l_api_name);
97: ROLLBACK TO CREATE_TABLESPACES_PUB;
98: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
99: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
100: THEN
101: FND_MSG_PUB.Add_Exc_Msg
102: ( G_PKG_NAME,
103: l_api_name);
104: END IF;
105: FND_MSG_PUB.Count_And_Get
101: FND_MSG_PUB.Add_Exc_Msg
102: ( G_PKG_NAME,
103: l_api_name);
104: END IF;
105: FND_MSG_PUB.Count_And_Get
106: (p_count => x_msg_count,
107: p_data => x_msg_data);
108: END CREATE_TABLESPACES;
109:
138:
139: -- Initialize message list if p_init_msg_list is set to TRUE.
140: IF FND_API.to_Boolean( p_init_msg_list )
141: THEN
142: FND_MSG_PUB.initialize;
143: END IF;
144:
145: -- Initialize API return status to SUCCESS
146: x_return_status := FND_API.G_RET_STS_SUCCESS;
171: COMMIT WORK;
172: END IF;
173:
174: -- Standard call to get message count and if count is 1, get message info.
175: FND_MSG_PUB.Count_And_Get
176: ( p_count => x_msg_count,
177: p_data => x_msg_data);
178:
179: EXCEPTION
179: EXCEPTION
180: WHEN FND_API.G_EXC_ERROR THEN
181: ROLLBACK TO UPDATE_TABLESPACES_PUB;
182: x_return_status := FND_API.G_RET_STS_ERROR ;
183: FND_MSG_PUB.Count_And_Get
184: (p_count => x_msg_count,
185: p_data => x_msg_data);
186:
187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
186:
187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
188: ROLLBACK TO UPDATE_TABLESPACES_PUB;
189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
190: FND_MSG_PUB.Count_And_Get
191: (p_count => x_msg_count,
192: p_data => x_msg_data);
193:
194: WHEN OTHERS THEN
193:
194: WHEN OTHERS THEN
195: ROLLBACK TO UPDATE_TABLESPACES_PUB;
196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
197: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
198: THEN
199: FND_MSG_PUB.Add_Exc_Msg
200: ( G_PKG_NAME,
201: l_api_name);
195: ROLLBACK TO UPDATE_TABLESPACES_PUB;
196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
197: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
198: THEN
199: FND_MSG_PUB.Add_Exc_Msg
200: ( G_PKG_NAME,
201: l_api_name);
202: END IF;
203: FND_MSG_PUB.Count_And_Get
199: FND_MSG_PUB.Add_Exc_Msg
200: ( G_PKG_NAME,
201: l_api_name);
202: END IF;
203: FND_MSG_PUB.Count_And_Get
204: (p_count => x_msg_count,
205: p_data => x_msg_data);
206: END UPDATE_TABLESPACES;
207:
227: THEN
228: FND_MESSAGE.Set_Name('FND', 'OATM_REQUIRED_ENTRY');
229: FND_MESSAGE.Set_Token('ROUTINE', 'FND_TABLESPACES_PUB');
230: FND_MESSAGE.Set_Token('FIELD', 'Tablespace Type');
231: FND_MSG_PUB.Add;
232: x_return_status := FND_API.G_RET_STS_ERROR;
233: END IF;
234:
235: -- validate NOT NULL column
237: THEN
238: FND_MESSAGE.Set_Name('FND', 'OATM_REQUIRED_ENTRY');
239: FND_MESSAGE.Set_Token('ROUTINE', 'FND_TABLESPACES_PUB');
240: FND_MESSAGE.Set_Token('FIELD', 'Tablespace Name');
241: FND_MSG_PUB.Add;
242: x_return_status := FND_API.G_RET_STS_ERROR;
243: END IF;
244:
245: IF (p_validation_mode = AS_UTILITY_PVT.G_CREATE)
253: FND_MESSAGE.Set_Token('ROUTINE', 'FND_TABLESPACES_PUB');
254: FND_MESSAGE.Set_Token('FIELD_NAME', 'Tablespace Type');
255: FND_MESSAGE.Set_Token('FIELD_VALUE', p_TABLESPACE_TYPE);
256: FND_MESSAGE.Set_Token('TABLE_NAME', 'FND_TABLESPACES');
257: FND_MSG_PUB.Add;
258: x_return_status := FND_API.G_RET_STS_ERROR;
259: end if;
260: CLOSE c1;
261: END IF;
270: FND_MESSAGE.Set_Token('ROUTINE', 'FND_TABLESPACES_PUB');
271: FND_MESSAGE.Set_Token('FIELD_NAME', 'Tablespace Type');
272: FND_MESSAGE.Set_Token('FIELD_VALUE', p_TABLESPACE_TYPE);
273: FND_MESSAGE.Set_Token('TABLE_NAME', 'FND_TABLESPACES');
274: FND_MSG_PUB.Add;
275: x_return_status := FND_API.G_RET_STS_ERROR;
276: end if;
277: CLOSE c1;
278: END IF;
278: END IF;
279: END IF;
280:
281: -- Standard call to get message count and if count is 1, get message info.
282: FND_MSG_PUB.Count_And_Get
283: ( p_count => x_msg_count,
284: p_data => x_msg_data
285: );
286: END VALIDATE_TABLESPACES;