24:
25:
26: PROCEDURE Create_Preferred_Language
27: ( p_api_version IN NUMBER,
28: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
29: p_commit IN VARCHAR2 := FND_API.G_FALSE,
30: x_return_status OUT NOCOPY VARCHAR2,
31: x_msg_count OUT NOCOPY NUMBER,
32: x_msg_data OUT NOCOPY VARCHAR2,
25:
26: PROCEDURE Create_Preferred_Language
27: ( p_api_version IN NUMBER,
28: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
29: p_commit IN VARCHAR2 := FND_API.G_FALSE,
30: x_return_status OUT NOCOPY VARCHAR2,
31: x_msg_count OUT NOCOPY NUMBER,
32: x_msg_data OUT NOCOPY VARCHAR2,
33: p_resp_appl_id IN NUMBER := NULL,
57: BEGIN
58: SAVEPOINT Create_Preferred_Language_PUB;
59:
60: -- Standard call to check for call compatibility
61: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
62: G_PKG_NAME) THEN
63: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
64: END IF;
65:
59:
60: -- Standard call to check for call compatibility
61: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
62: G_PKG_NAME) THEN
63: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
64: END IF;
65:
66: -- Initialize message list if p_init_msg_list is set to TRUE
67: IF FND_API.To_Boolean(p_init_msg_list) THEN
63: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
64: END IF;
65:
66: -- Initialize message list if p_init_msg_list is set to TRUE
67: IF FND_API.To_Boolean(p_init_msg_list) THEN
68: FND_MSG_PUB.Initialize;
69: END IF;
70:
71: -- Initialize API return status to success
68: FND_MSG_PUB.Initialize;
69: END IF;
70:
71: -- Initialize API return status to success
72: x_return_status := FND_API.G_RET_STS_SUCCESS;
73:
74:
75: -- ----------------------------------------------------------------------
76: -- Perform business rule validation and the database operation by calling
78: -- ----------------------------------------------------------------------
79:
80: CS_SR_Preferred_Lang_PVT.Create_Preferred_Language
81: ( p_api_version => 1.0,
82: p_init_msg_list => FND_API.G_FALSE,
83: p_commit => FND_API.G_FALSE,
84: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
85: x_return_status => l_return_status,
86: x_msg_count => x_msg_count,
79:
80: CS_SR_Preferred_Lang_PVT.Create_Preferred_Language
81: ( p_api_version => 1.0,
82: p_init_msg_list => FND_API.G_FALSE,
83: p_commit => FND_API.G_FALSE,
84: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
85: x_return_status => l_return_status,
86: x_msg_count => x_msg_count,
87: x_msg_data => x_msg_data,
80: CS_SR_Preferred_Lang_PVT.Create_Preferred_Language
81: ( p_api_version => 1.0,
82: p_init_msg_list => FND_API.G_FALSE,
83: p_commit => FND_API.G_FALSE,
84: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
85: x_return_status => l_return_status,
86: x_msg_count => x_msg_count,
87: x_msg_data => x_msg_data,
88: p_resp_appl_id => l_resp_appl_id,
92: p_preferred_language_rec => l_preferred_language_rec
93: );
94:
95:
96: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
97: RAISE FND_API.G_EXC_ERROR;
98: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
99: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
100: END IF;
93: );
94:
95:
96: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
97: RAISE FND_API.G_EXC_ERROR;
98: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
99: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
100: END IF;
101:
94:
95:
96: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
97: RAISE FND_API.G_EXC_ERROR;
98: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
99: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
100: END IF;
101:
102: -- Standard check of p_commit
95:
96: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
97: RAISE FND_API.G_EXC_ERROR;
98: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
99: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
100: END IF;
101:
102: -- Standard check of p_commit
103: IF FND_API.To_Boolean(p_commit) THEN
99: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
100: END IF;
101:
102: -- Standard check of p_commit
103: IF FND_API.To_Boolean(p_commit) THEN
104: COMMIT WORK;
105: END IF;
106:
107: -- Standard call to get message count and if count is 1, get message info
110: p_data => x_msg_data
111: );
112:
113: EXCEPTION
114: WHEN FND_API.G_EXC_ERROR THEN
115: ROLLBACK TO Create_Preferred_Language_PUB;
116: x_return_status := FND_API.G_RET_STS_ERROR;
117: FND_MSG_PUB.Count_And_Get
118: ( p_count => x_msg_count,
112:
113: EXCEPTION
114: WHEN FND_API.G_EXC_ERROR THEN
115: ROLLBACK TO Create_Preferred_Language_PUB;
116: x_return_status := FND_API.G_RET_STS_ERROR;
117: FND_MSG_PUB.Count_And_Get
118: ( p_count => x_msg_count,
119: p_data => x_msg_data
120: );
117: FND_MSG_PUB.Count_And_Get
118: ( p_count => x_msg_count,
119: p_data => x_msg_data
120: );
121: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
122: ROLLBACK TO Create_Preferred_Language_PUB;
123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
124: FND_MSG_PUB.Count_And_Get
125: ( p_count => x_msg_count,
119: p_data => x_msg_data
120: );
121: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
122: ROLLBACK TO Create_Preferred_Language_PUB;
123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
124: FND_MSG_PUB.Count_And_Get
125: ( p_count => x_msg_count,
126: p_data => x_msg_data
127: );
126: p_data => x_msg_data
127: );
128: WHEN OTHERS THEN
129: ROLLBACK TO Create_Preferred_Language_PUB;
130: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
131: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
132: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
133: END IF;
134: FND_MSG_PUB.Count_And_Get
145:
146: PROCEDURE Update_Preferred_Language
147: (
148: p_api_version IN NUMBER,
149: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
150: p_commit IN VARCHAR2 := FND_API.G_FALSE,
151: x_return_status OUT NOCOPY VARCHAR2,
152: x_msg_count OUT NOCOPY NUMBER,
153: x_msg_data OUT NOCOPY VARCHAR2,
146: PROCEDURE Update_Preferred_Language
147: (
148: p_api_version IN NUMBER,
149: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
150: p_commit IN VARCHAR2 := FND_API.G_FALSE,
151: x_return_status OUT NOCOPY VARCHAR2,
152: x_msg_count OUT NOCOPY NUMBER,
153: x_msg_data OUT NOCOPY VARCHAR2,
154: p_pref_lang_id IN NUMBER,
182: -- Standard start of API savepoint
183: SAVEPOINT Update_Preferred_Language_PUB;
184:
185: -- Standard call to check for call compatibility
186: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
188: END IF;
189:
190: -- Initialize message list if p_init_msg_list is set to TRUE
183: SAVEPOINT Update_Preferred_Language_PUB;
184:
185: -- Standard call to check for call compatibility
186: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
188: END IF;
189:
190: -- Initialize message list if p_init_msg_list is set to TRUE
191: IF FND_API.To_Boolean(p_init_msg_list) THEN
187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
188: END IF;
189:
190: -- Initialize message list if p_init_msg_list is set to TRUE
191: IF FND_API.To_Boolean(p_init_msg_list) THEN
192: FND_MSG_PUB.Initialize;
193: END IF;
194:
195: -- Initialize API return status to success
192: FND_MSG_PUB.Initialize;
193: END IF;
194:
195: -- Initialize API return status to success
196: x_return_status := FND_API.G_RET_STS_SUCCESS;
197:
198:
199: CS_SR_Preferred_Lang_PVT.Update_Preferred_Language
200: ( p_api_version => 1.0,
197:
198:
199: CS_SR_Preferred_Lang_PVT.Update_Preferred_Language
200: ( p_api_version => 1.0,
201: p_init_msg_list => FND_API.G_FALSE,
202: p_commit => FND_API.G_FALSE,
203: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
204: x_return_status => x_return_status,
205: x_msg_count => x_msg_count,
198:
199: CS_SR_Preferred_Lang_PVT.Update_Preferred_Language
200: ( p_api_version => 1.0,
201: p_init_msg_list => FND_API.G_FALSE,
202: p_commit => FND_API.G_FALSE,
203: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
204: x_return_status => x_return_status,
205: x_msg_count => x_msg_count,
206: x_msg_data => x_msg_data,
199: CS_SR_Preferred_Lang_PVT.Update_Preferred_Language
200: ( p_api_version => 1.0,
201: p_init_msg_list => FND_API.G_FALSE,
202: p_commit => FND_API.G_FALSE,
203: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
204: x_return_status => x_return_status,
205: x_msg_count => x_msg_count,
206: x_msg_data => x_msg_data,
207: p_pref_lang_id => p_pref_lang_id,
216: p_preferred_language_rec => l_preferred_language_rec
217: );
218:
219:
220: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
221: raise FND_API.G_EXC_ERROR;
222: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
223: raise FND_API.G_EXC_UNEXPECTED_ERROR;
224: END IF;
217: );
218:
219:
220: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
221: raise FND_API.G_EXC_ERROR;
222: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
223: raise FND_API.G_EXC_UNEXPECTED_ERROR;
224: END IF;
225:
218:
219:
220: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
221: raise FND_API.G_EXC_ERROR;
222: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
223: raise FND_API.G_EXC_UNEXPECTED_ERROR;
224: END IF;
225:
226: -- Standard check of p_commit
219:
220: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
221: raise FND_API.G_EXC_ERROR;
222: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
223: raise FND_API.G_EXC_UNEXPECTED_ERROR;
224: END IF;
225:
226: -- Standard check of p_commit
227: IF FND_API.To_Boolean(p_commit) THEN
223: raise FND_API.G_EXC_UNEXPECTED_ERROR;
224: END IF;
225:
226: -- Standard check of p_commit
227: IF FND_API.To_Boolean(p_commit) THEN
228: COMMIT WORK;
229: END IF;
230:
231: -- Standard call to get message count and if count is 1, get message info
234: p_data => x_msg_data
235: );
236:
237: EXCEPTION
238: WHEN FND_API.G_EXC_ERROR THEN
239: ROLLBACK TO Update_Preferred_Language_PUB;
240: x_return_status := FND_API.G_RET_STS_ERROR;
241: FND_MSG_PUB.Count_And_Get
242: ( p_count => x_msg_count,
236:
237: EXCEPTION
238: WHEN FND_API.G_EXC_ERROR THEN
239: ROLLBACK TO Update_Preferred_Language_PUB;
240: x_return_status := FND_API.G_RET_STS_ERROR;
241: FND_MSG_PUB.Count_And_Get
242: ( p_count => x_msg_count,
243: p_data => x_msg_data
244: );
241: FND_MSG_PUB.Count_And_Get
242: ( p_count => x_msg_count,
243: p_data => x_msg_data
244: );
245: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
246: ROLLBACK TO Update_Preferred_Language_PUB;
247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
248: FND_MSG_PUB.Count_And_Get
249: ( p_count => x_msg_count,
243: p_data => x_msg_data
244: );
245: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
246: ROLLBACK TO Update_Preferred_Language_PUB;
247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
248: FND_MSG_PUB.Count_And_Get
249: ( p_count => x_msg_count,
250: p_data => x_msg_data
251: );
250: p_data => x_msg_data
251: );
252: WHEN OTHERS THEN
253: ROLLBACK TO Update_Preferred_Language_PUB;
254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
255: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
256: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
257: END IF;
258: FND_MSG_PUB.Count_And_Get