[Home] [Help]
24: AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
25:
26: PROCEDURE Create_template_res(
27: p_api_version_number IN NUMBER,
28: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
29: p_commit IN VARCHAR2 := FND_API.G_FALSE,
30: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
31:
32: x_return_status OUT NOCOPY VARCHAR2,
25:
26: PROCEDURE Create_template_res(
27: p_api_version_number IN NUMBER,
28: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
29: p_commit IN VARCHAR2 := FND_API.G_FALSE,
30: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
31:
32: x_return_status OUT NOCOPY VARCHAR2,
33: x_msg_count OUT NOCOPY NUMBER,
26: PROCEDURE Create_template_res(
27: p_api_version_number IN NUMBER,
28: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
29: p_commit IN VARCHAR2 := FND_API.G_FALSE,
30: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
31:
32: x_return_status OUT NOCOPY VARCHAR2,
33: x_msg_count OUT NOCOPY NUMBER,
34: x_msg_data OUT NOCOPY VARCHAR2,
41: L_API_NAME CONSTANT VARCHAR2(30) := 'Create_template_res';
42: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
43: l_return_status_full VARCHAR2(1);
44: l_object_version_number NUMBER := 1;
45: l_org_id NUMBER := FND_API.G_MISS_NUM;
46: l_TEMPL_RESPONSIBILITY_ID NUMBER;
47: l_dummy NUMBER;
48:
49: CURSOR c_id IS
59: -- Standard Start of API savepoint
60: SAVEPOINT CREATE_template_res_PVT;
61:
62: -- Standard call to check for call compatibility.
63: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
64: p_api_version_number,
65: l_api_name,
66: G_PKG_NAME)
67: THEN
64: p_api_version_number,
65: l_api_name,
66: G_PKG_NAME)
67: THEN
68: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
69: END IF;
70:
71: -- Initialize message list if p_init_msg_list is set to TRUE.
72: IF FND_API.to_Boolean( p_init_msg_list )
68: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
69: END IF;
70:
71: -- Initialize message list if p_init_msg_list is set to TRUE.
72: IF FND_API.to_Boolean( p_init_msg_list )
73: THEN
74: FND_MSG_PUB.initialize;
75: END IF;
76:
81: END IF;
82:
83:
84: -- Initialize API return status to SUCCESS
85: x_return_status := FND_API.G_RET_STS_SUCCESS;
86:
87: -- Local variable initialization
88:
89: IF p_template_res_rec.TEMPL_RESPONSIBILITY_ID IS NULL OR p_template_res_rec.TEMPL_RESPONSIBILITY_ID = FND_API.g_miss_num THEN
85: x_return_status := FND_API.G_RET_STS_SUCCESS;
86:
87: -- Local variable initialization
88:
89: IF p_template_res_rec.TEMPL_RESPONSIBILITY_ID IS NULL OR p_template_res_rec.TEMPL_RESPONSIBILITY_ID = FND_API.g_miss_num THEN
90: LOOP
91: l_dummy := NULL;
92: OPEN c_id;
93: FETCH c_id INTO l_TEMPL_RESPONSIBILITY_ID;
106:
107: IF FND_GLOBAL.User_Id IS NULL
108: THEN
109: AMS_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
110: RAISE FND_API.G_EXC_ERROR;
111: END IF;
112:
113: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
114: THEN
109: AMS_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
110: RAISE FND_API.G_EXC_ERROR;
111: END IF;
112:
113: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
114: THEN
115: -- Debug message
116: IF (AMS_DEBUG_HIGH_ON) THEN
117:
120:
121: -- Invoke validation procedures
122: Validate_template_res(
123: p_api_version_number => 1.0,
124: p_init_msg_list => FND_API.G_FALSE,
125: p_validation_level => p_validation_level,
126: p_validation_mode => JTF_PLSQL_API.g_create,
127: p_template_res_rec => p_template_res_rec,
128: x_return_status => x_return_status,
129: x_msg_count => x_msg_count,
130: x_msg_data => x_msg_data);
131: END IF;
132:
133: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
134: RAISE FND_API.G_EXC_ERROR;
135: END IF;
136:
137: INSERT INTO AMS_TEMPL_RESPONSIBILITY(
130: x_msg_data => x_msg_data);
131: END IF;
132:
133: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
134: RAISE FND_API.G_EXC_ERROR;
135: END IF;
136:
137: INSERT INTO AMS_TEMPL_RESPONSIBILITY(
138: templ_responsibility_id,
145: object_version_number,
146: last_update_login
147: ) VALUES (
148: l_templ_responsibility_id,
149: DECODE( p_template_res_rec.template_id, FND_API.g_miss_num, NULL, p_template_res_rec.template_id),
150: DECODE( p_template_res_rec.responsibility_id, FND_API.g_miss_num, NULL, p_template_res_rec.responsibility_id),
151: sysdate,
152: fnd_global.user_id,
153: sysdate,
146: last_update_login
147: ) VALUES (
148: l_templ_responsibility_id,
149: DECODE( p_template_res_rec.template_id, FND_API.g_miss_num, NULL, p_template_res_rec.template_id),
150: DECODE( p_template_res_rec.responsibility_id, FND_API.g_miss_num, NULL, p_template_res_rec.responsibility_id),
151: sysdate,
152: fnd_global.user_id,
153: sysdate,
154: fnd_global.user_id,
156: FND_GLOBAL.CONC_LOGIN_ID
157: );
158:
159: x_templ_responsibility_id := l_templ_responsibility_id;
160: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
161: RAISE FND_API.G_EXC_ERROR;
162: END IF;
163: --
164: -- End of API body
157: );
158:
159: x_templ_responsibility_id := l_templ_responsibility_id;
160: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
161: RAISE FND_API.G_EXC_ERROR;
162: END IF;
163: --
164: -- End of API body
165: --
164: -- End of API body
165: --
166:
167: -- Standard check for p_commit
168: IF FND_API.to_Boolean( p_commit )
169: THEN
170: COMMIT WORK;
171: END IF;
172:
184: );
185: EXCEPTION
186:
187: WHEN AMS_Utility_PVT.resource_locked THEN
188: x_return_status := FND_API.g_ret_sts_error;
189: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
190:
191: WHEN FND_API.G_EXC_ERROR THEN
192: ROLLBACK TO CREATE_template_res_PVT;
187: WHEN AMS_Utility_PVT.resource_locked THEN
188: x_return_status := FND_API.g_ret_sts_error;
189: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
190:
191: WHEN FND_API.G_EXC_ERROR THEN
192: ROLLBACK TO CREATE_template_res_PVT;
193: x_return_status := FND_API.G_RET_STS_ERROR;
194: -- Standard call to get message count and if count=1, get the message
195: FND_MSG_PUB.Count_And_Get (
189: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
190:
191: WHEN FND_API.G_EXC_ERROR THEN
192: ROLLBACK TO CREATE_template_res_PVT;
193: x_return_status := FND_API.G_RET_STS_ERROR;
194: -- Standard call to get message count and if count=1, get the message
195: FND_MSG_PUB.Count_And_Get (
196: p_encoded => FND_API.G_FALSE,
197: p_count => x_msg_count,
192: ROLLBACK TO CREATE_template_res_PVT;
193: x_return_status := FND_API.G_RET_STS_ERROR;
194: -- Standard call to get message count and if count=1, get the message
195: FND_MSG_PUB.Count_And_Get (
196: p_encoded => FND_API.G_FALSE,
197: p_count => x_msg_count,
198: p_data => x_msg_data
199: );
200:
197: p_count => x_msg_count,
198: p_data => x_msg_data
199: );
200:
201: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
202: ROLLBACK TO CREATE_template_res_PVT;
203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
204: -- Standard call to get message count and if count=1, get the message
205: FND_MSG_PUB.Count_And_Get (
199: );
200:
201: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
202: ROLLBACK TO CREATE_template_res_PVT;
203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
204: -- Standard call to get message count and if count=1, get the message
205: FND_MSG_PUB.Count_And_Get (
206: p_encoded => FND_API.G_FALSE,
207: p_count => x_msg_count,
202: ROLLBACK TO CREATE_template_res_PVT;
203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
204: -- Standard call to get message count and if count=1, get the message
205: FND_MSG_PUB.Count_And_Get (
206: p_encoded => FND_API.G_FALSE,
207: p_count => x_msg_count,
208: p_data => x_msg_data
209: );
210:
209: );
210:
211: WHEN OTHERS THEN
212: ROLLBACK TO CREATE_template_res_PVT;
213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
214: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
215: THEN
216: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
217: END IF;
216: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
217: END IF;
218: -- Standard call to get message count and if count=1, get the message
219: FND_MSG_PUB.Count_And_Get (
220: p_encoded => FND_API.G_FALSE,
221: p_count => x_msg_count,
222: p_data => x_msg_data
223: );
224: End Create_template_res;
225:
226:
227: PROCEDURE Update_template_res(
228: p_api_version_number IN NUMBER,
229: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
230: p_commit IN VARCHAR2 := FND_API.G_FALSE,
231: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
232:
233: x_return_status OUT NOCOPY VARCHAR2,
226:
227: PROCEDURE Update_template_res(
228: p_api_version_number IN NUMBER,
229: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
230: p_commit IN VARCHAR2 := FND_API.G_FALSE,
231: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
232:
233: x_return_status OUT NOCOPY VARCHAR2,
234: x_msg_count OUT NOCOPY NUMBER,
227: PROCEDURE Update_template_res(
228: p_api_version_number IN NUMBER,
229: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
230: p_commit IN VARCHAR2 := FND_API.G_FALSE,
231: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
232:
233: x_return_status OUT NOCOPY VARCHAR2,
234: x_msg_count OUT NOCOPY NUMBER,
235: x_msg_data OUT NOCOPY VARCHAR2,
258: -- Standard Start of API savepoint
259: SAVEPOINT UPDATE_template_res_PVT;
260:
261: -- Standard call to check for call compatibility.
262: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
263: p_api_version_number,
264: l_api_name,
265: G_PKG_NAME)
266: THEN
263: p_api_version_number,
264: l_api_name,
265: G_PKG_NAME)
266: THEN
267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
268: END IF;
269:
270: -- Initialize message list if p_init_msg_list is set to TRUE.
271: IF FND_API.to_Boolean( p_init_msg_list )
267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
268: END IF;
269:
270: -- Initialize message list if p_init_msg_list is set to TRUE.
271: IF FND_API.to_Boolean( p_init_msg_list )
272: THEN
273: FND_MSG_PUB.initialize;
274: END IF;
275:
280: END IF;
281:
282:
283: -- Initialize API return status to SUCCESS
284: x_return_status := FND_API.G_RET_STS_SUCCESS;
285:
286: -- Debug Message
287: IF (AMS_DEBUG_HIGH_ON) THEN
288:
297: If ( c_get_template_res%NOTFOUND) THEN
298: AMS_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
299: p_token_name => 'INFO',
300: p_token_value => 'template_res') ;
301: RAISE FND_API.G_EXC_ERROR;
302: END IF;
303: -- Debug Message
304: IF (AMS_DEBUG_HIGH_ON) THEN
305:
309: */
310:
311:
312: If (l_tar_template_res_rec.object_version_number is NULL or
313: l_tar_template_res_rec.object_version_number = FND_API.G_MISS_NUM ) Then
314: AMS_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
315: p_token_name => 'COLUMN',
316: p_token_value => 'Last_Update_Date') ;
317: raise FND_API.G_EXC_ERROR;
313: l_tar_template_res_rec.object_version_number = FND_API.G_MISS_NUM ) Then
314: AMS_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
315: p_token_name => 'COLUMN',
316: p_token_value => 'Last_Update_Date') ;
317: raise FND_API.G_EXC_ERROR;
318: End if;
319: -- Check Whether record has been changed by someone else
320: If (l_tar_template_res_rec.object_version_number <> l_ref_template_res_rec.object_version_number) Then
321: AMS_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
320: If (l_tar_template_res_rec.object_version_number <> l_ref_template_res_rec.object_version_number) Then
321: AMS_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
322: p_token_name => 'INFO',
323: p_token_value => 'template_res') ;
324: raise FND_API.G_EXC_ERROR;
325: End if;
326: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
327: THEN
328: -- Debug message
322: p_token_name => 'INFO',
323: p_token_value => 'template_res') ;
324: raise FND_API.G_EXC_ERROR;
325: End if;
326: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
327: THEN
328: -- Debug message
329: IF (AMS_DEBUG_HIGH_ON) THEN
330:
333:
334: -- Invoke validation procedures
335: Validate_template_res(
336: p_api_version_number => 1.0,
337: p_init_msg_list => FND_API.G_FALSE,
338: p_validation_level => p_validation_level,
339: p_validation_mode => JTF_PLSQL_API.g_update,
340: p_template_res_rec => p_template_res_rec,
341: x_return_status => x_return_status,
342: x_msg_count => x_msg_count,
343: x_msg_data => x_msg_data);
344: END IF;
345:
346: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
347: RAISE FND_API.G_EXC_ERROR;
348: END IF;
349:
350: Update AMS_TEMPL_RESPONSIBILITY
343: x_msg_data => x_msg_data);
344: END IF;
345:
346: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
347: RAISE FND_API.G_EXC_ERROR;
348: END IF;
349:
350: Update AMS_TEMPL_RESPONSIBILITY
351: SET templ_responsibility_id = DECODE( p_template_res_rec.templ_responsibility_id, FND_API.g_miss_num, templ_responsibility_id, p_template_res_rec.templ_responsibility_id),
347: RAISE FND_API.G_EXC_ERROR;
348: END IF;
349:
350: Update AMS_TEMPL_RESPONSIBILITY
351: SET templ_responsibility_id = DECODE( p_template_res_rec.templ_responsibility_id, FND_API.g_miss_num, templ_responsibility_id, p_template_res_rec.templ_responsibility_id),
352: template_id = DECODE( p_template_res_rec.template_id, FND_API.g_miss_num, template_id, p_template_res_rec.template_id),
353: responsibility_id = DECODE( p_template_res_rec.responsibility_id, FND_API.g_miss_num, responsibility_id, p_template_res_rec.responsibility_id),
354: last_update_date = sysdate,
355: last_updated_by = fnd_global.user_id,
348: END IF;
349:
350: Update AMS_TEMPL_RESPONSIBILITY
351: SET templ_responsibility_id = DECODE( p_template_res_rec.templ_responsibility_id, FND_API.g_miss_num, templ_responsibility_id, p_template_res_rec.templ_responsibility_id),
352: template_id = DECODE( p_template_res_rec.template_id, FND_API.g_miss_num, template_id, p_template_res_rec.template_id),
353: responsibility_id = DECODE( p_template_res_rec.responsibility_id, FND_API.g_miss_num, responsibility_id, p_template_res_rec.responsibility_id),
354: last_update_date = sysdate,
355: last_updated_by = fnd_global.user_id,
356: object_version_number = p_template_res_rec.object_version_number + 1,
349:
350: Update AMS_TEMPL_RESPONSIBILITY
351: SET templ_responsibility_id = DECODE( p_template_res_rec.templ_responsibility_id, FND_API.g_miss_num, templ_responsibility_id, p_template_res_rec.templ_responsibility_id),
352: template_id = DECODE( p_template_res_rec.template_id, FND_API.g_miss_num, template_id, p_template_res_rec.template_id),
353: responsibility_id = DECODE( p_template_res_rec.responsibility_id, FND_API.g_miss_num, responsibility_id, p_template_res_rec.responsibility_id),
354: last_update_date = sysdate,
355: last_updated_by = fnd_global.user_id,
356: object_version_number = p_template_res_rec.object_version_number + 1,
357: last_update_login = FND_GLOBAL.CONC_LOGIN_ID
358: WHERE TEMPL_RESPONSIBILITY_ID = p_template_res_rec.templ_responsibility_id
359: AND object_version_number = p_template_res_rec.object_version_number;
360:
361: IF (SQL%NOTFOUND) THEN
362: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
363: END IF;
364:
365: --
366: -- End of API body.
366: -- End of API body.
367: --
368:
369: -- Standard check for p_commit
370: IF FND_API.to_Boolean( p_commit )
371: THEN
372: COMMIT WORK;
373: END IF;
374:
386: );
387: EXCEPTION
388:
389: WHEN AMS_Utility_PVT.resource_locked THEN
390: x_return_status := FND_API.g_ret_sts_error;
391: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
392:
393: WHEN FND_API.G_EXC_ERROR THEN
394: ROLLBACK TO UPDATE_template_res_PVT;
389: WHEN AMS_Utility_PVT.resource_locked THEN
390: x_return_status := FND_API.g_ret_sts_error;
391: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
392:
393: WHEN FND_API.G_EXC_ERROR THEN
394: ROLLBACK TO UPDATE_template_res_PVT;
395: x_return_status := FND_API.G_RET_STS_ERROR;
396: -- Standard call to get message count and if count=1, get the message
397: FND_MSG_PUB.Count_And_Get (
391: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
392:
393: WHEN FND_API.G_EXC_ERROR THEN
394: ROLLBACK TO UPDATE_template_res_PVT;
395: x_return_status := FND_API.G_RET_STS_ERROR;
396: -- Standard call to get message count and if count=1, get the message
397: FND_MSG_PUB.Count_And_Get (
398: p_encoded => FND_API.G_FALSE,
399: p_count => x_msg_count,
394: ROLLBACK TO UPDATE_template_res_PVT;
395: x_return_status := FND_API.G_RET_STS_ERROR;
396: -- Standard call to get message count and if count=1, get the message
397: FND_MSG_PUB.Count_And_Get (
398: p_encoded => FND_API.G_FALSE,
399: p_count => x_msg_count,
400: p_data => x_msg_data
401: );
402:
399: p_count => x_msg_count,
400: p_data => x_msg_data
401: );
402:
403: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
404: ROLLBACK TO UPDATE_template_res_PVT;
405: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
406: -- Standard call to get message count and if count=1, get the message
407: FND_MSG_PUB.Count_And_Get (
401: );
402:
403: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
404: ROLLBACK TO UPDATE_template_res_PVT;
405: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
406: -- Standard call to get message count and if count=1, get the message
407: FND_MSG_PUB.Count_And_Get (
408: p_encoded => FND_API.G_FALSE,
409: p_count => x_msg_count,
404: ROLLBACK TO UPDATE_template_res_PVT;
405: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
406: -- Standard call to get message count and if count=1, get the message
407: FND_MSG_PUB.Count_And_Get (
408: p_encoded => FND_API.G_FALSE,
409: p_count => x_msg_count,
410: p_data => x_msg_data
411: );
412:
411: );
412:
413: WHEN OTHERS THEN
414: ROLLBACK TO UPDATE_template_res_PVT;
415: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
416: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
417: THEN
418: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
419: END IF;
418: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
419: END IF;
420: -- Standard call to get message count and if count=1, get the message
421: FND_MSG_PUB.Count_And_Get (
422: p_encoded => FND_API.G_FALSE,
423: p_count => x_msg_count,
424: p_data => x_msg_data
425: );
426: End Update_template_res;
427:
428:
429: PROCEDURE Delete_template_res(
430: p_api_version_number IN NUMBER,
431: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
432: p_commit IN VARCHAR2 := FND_API.G_FALSE,
433: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
434: x_return_status OUT NOCOPY VARCHAR2,
435: x_msg_count OUT NOCOPY NUMBER,
428:
429: PROCEDURE Delete_template_res(
430: p_api_version_number IN NUMBER,
431: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
432: p_commit IN VARCHAR2 := FND_API.G_FALSE,
433: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
434: x_return_status OUT NOCOPY VARCHAR2,
435: x_msg_count OUT NOCOPY NUMBER,
436: x_msg_data OUT NOCOPY VARCHAR2,
429: PROCEDURE Delete_template_res(
430: p_api_version_number IN NUMBER,
431: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
432: p_commit IN VARCHAR2 := FND_API.G_FALSE,
433: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
434: x_return_status OUT NOCOPY VARCHAR2,
435: x_msg_count OUT NOCOPY NUMBER,
436: x_msg_data OUT NOCOPY VARCHAR2,
437: p_templ_responsibility_id IN NUMBER,
447: -- Standard Start of API savepoint
448: SAVEPOINT DELETE_template_res_PVT;
449:
450: -- Standard call to check for call compatibility.
451: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
452: p_api_version_number,
453: l_api_name,
454: G_PKG_NAME)
455: THEN
452: p_api_version_number,
453: l_api_name,
454: G_PKG_NAME)
455: THEN
456: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
457: END IF;
458:
459: -- Initialize message list if p_init_msg_list is set to TRUE.
460: IF FND_API.to_Boolean( p_init_msg_list )
456: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
457: END IF;
458:
459: -- Initialize message list if p_init_msg_list is set to TRUE.
460: IF FND_API.to_Boolean( p_init_msg_list )
461: THEN
462: FND_MSG_PUB.initialize;
463: END IF;
464:
469: END IF;
470:
471:
472: -- Initialize API return status to SUCCESS
473: x_return_status := FND_API.G_RET_STS_SUCCESS;
474:
475: DELETE FROM AMS_TEMPL_RESPONSIBILITY
476: WHERE TEMPL_RESPONSIBILITY_ID = p_TEMPL_RESPONSIBILITY_ID;
477:
475: DELETE FROM AMS_TEMPL_RESPONSIBILITY
476: WHERE TEMPL_RESPONSIBILITY_ID = p_TEMPL_RESPONSIBILITY_ID;
477:
478: If (SQL%NOTFOUND) then
479: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
480: End If;
481:
482: -- Standard check for p_commit
483: IF FND_API.to_Boolean( p_commit )
479: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
480: End If;
481:
482: -- Standard check for p_commit
483: IF FND_API.to_Boolean( p_commit )
484: THEN
485: COMMIT WORK;
486: END IF;
487:
499: );
500: EXCEPTION
501:
502: WHEN AMS_Utility_PVT.resource_locked THEN
503: x_return_status := FND_API.g_ret_sts_error;
504: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
505:
506: WHEN FND_API.G_EXC_ERROR THEN
507: ROLLBACK TO DELETE_template_res_PVT;
502: WHEN AMS_Utility_PVT.resource_locked THEN
503: x_return_status := FND_API.g_ret_sts_error;
504: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
505:
506: WHEN FND_API.G_EXC_ERROR THEN
507: ROLLBACK TO DELETE_template_res_PVT;
508: x_return_status := FND_API.G_RET_STS_ERROR;
509: -- Standard call to get message count and if count=1, get the message
510: FND_MSG_PUB.Count_And_Get (
504: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
505:
506: WHEN FND_API.G_EXC_ERROR THEN
507: ROLLBACK TO DELETE_template_res_PVT;
508: x_return_status := FND_API.G_RET_STS_ERROR;
509: -- Standard call to get message count and if count=1, get the message
510: FND_MSG_PUB.Count_And_Get (
511: p_encoded => FND_API.G_FALSE,
512: p_count => x_msg_count,
507: ROLLBACK TO DELETE_template_res_PVT;
508: x_return_status := FND_API.G_RET_STS_ERROR;
509: -- Standard call to get message count and if count=1, get the message
510: FND_MSG_PUB.Count_And_Get (
511: p_encoded => FND_API.G_FALSE,
512: p_count => x_msg_count,
513: p_data => x_msg_data
514: );
515:
512: p_count => x_msg_count,
513: p_data => x_msg_data
514: );
515:
516: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
517: ROLLBACK TO DELETE_template_res_PVT;
518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
519: -- Standard call to get message count and if count=1, get the message
520: FND_MSG_PUB.Count_And_Get (
514: );
515:
516: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
517: ROLLBACK TO DELETE_template_res_PVT;
518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
519: -- Standard call to get message count and if count=1, get the message
520: FND_MSG_PUB.Count_And_Get (
521: p_encoded => FND_API.G_FALSE,
522: p_count => x_msg_count,
517: ROLLBACK TO DELETE_template_res_PVT;
518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
519: -- Standard call to get message count and if count=1, get the message
520: FND_MSG_PUB.Count_And_Get (
521: p_encoded => FND_API.G_FALSE,
522: p_count => x_msg_count,
523: p_data => x_msg_data
524: );
525:
524: );
525:
526: WHEN OTHERS THEN
527: ROLLBACK TO DELETE_template_res_PVT;
528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
529: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
530: THEN
531: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
532: END IF;
531: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
532: END IF;
533: -- Standard call to get message count and if count=1, get the message
534: FND_MSG_PUB.Count_And_Get (
535: p_encoded => FND_API.G_FALSE,
536: p_count => x_msg_count,
537: p_data => x_msg_data
538: );
539: End Delete_template_res;
542:
543: -- Hint: Primary key needs to be returned.
544: PROCEDURE Lock_template_res(
545: p_api_version_number IN NUMBER,
546: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
547:
548: x_return_status OUT NOCOPY VARCHAR2,
549: x_msg_count OUT NOCOPY NUMBER,
550: x_msg_data OUT NOCOPY VARCHAR2,
574: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
575: END IF;
576:
577: -- Initialize message list if p_init_msg_list is set to TRUE.
578: IF FND_API.to_Boolean( p_init_msg_list )
579: THEN
580: FND_MSG_PUB.initialize;
581: END IF;
582:
580: FND_MSG_PUB.initialize;
581: END IF;
582:
583: -- Standard call to check for call compatibility.
584: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
585: p_api_version_number,
586: l_api_name,
587: G_PKG_NAME)
588: THEN
585: p_api_version_number,
586: l_api_name,
587: G_PKG_NAME)
588: THEN
589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
590: END IF;
591:
592:
593: -- Initialize API return status to SUCCESS
590: END IF;
591:
592:
593: -- Initialize API return status to SUCCESS
594: x_return_status := FND_API.G_RET_STS_SUCCESS;
595:
596:
597: ------------------------ lock -------------------------
598:
612: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
613: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
614: FND_MSG_PUB.add;
615: END IF;
616: RAISE FND_API.g_exc_error;
617: END IF;
618:
619: CLOSE c_template_res;
620:
619: CLOSE c_template_res;
620:
621: -------------------- finish --------------------------
622: FND_MSG_PUB.count_and_get(
623: p_encoded => FND_API.g_false,
624: p_count => x_msg_count,
625: p_data => x_msg_data);
626: IF (AMS_DEBUG_HIGH_ON) THEN
627:
629: END IF;
630: EXCEPTION
631:
632: WHEN AMS_Utility_PVT.resource_locked THEN
633: x_return_status := FND_API.g_ret_sts_error;
634: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
635:
636: WHEN FND_API.G_EXC_ERROR THEN
637: ROLLBACK TO LOCK_template_res_PVT;
632: WHEN AMS_Utility_PVT.resource_locked THEN
633: x_return_status := FND_API.g_ret_sts_error;
634: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
635:
636: WHEN FND_API.G_EXC_ERROR THEN
637: ROLLBACK TO LOCK_template_res_PVT;
638: x_return_status := FND_API.G_RET_STS_ERROR;
639: -- Standard call to get message count and if count=1, get the message
640: FND_MSG_PUB.Count_And_Get (
634: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
635:
636: WHEN FND_API.G_EXC_ERROR THEN
637: ROLLBACK TO LOCK_template_res_PVT;
638: x_return_status := FND_API.G_RET_STS_ERROR;
639: -- Standard call to get message count and if count=1, get the message
640: FND_MSG_PUB.Count_And_Get (
641: p_encoded => FND_API.G_FALSE,
642: p_count => x_msg_count,
637: ROLLBACK TO LOCK_template_res_PVT;
638: x_return_status := FND_API.G_RET_STS_ERROR;
639: -- Standard call to get message count and if count=1, get the message
640: FND_MSG_PUB.Count_And_Get (
641: p_encoded => FND_API.G_FALSE,
642: p_count => x_msg_count,
643: p_data => x_msg_data
644: );
645:
642: p_count => x_msg_count,
643: p_data => x_msg_data
644: );
645:
646: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
647: ROLLBACK TO LOCK_template_res_PVT;
648: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
649: -- Standard call to get message count and if count=1, get the message
650: FND_MSG_PUB.Count_And_Get (
644: );
645:
646: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
647: ROLLBACK TO LOCK_template_res_PVT;
648: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
649: -- Standard call to get message count and if count=1, get the message
650: FND_MSG_PUB.Count_And_Get (
651: p_encoded => FND_API.G_FALSE,
652: p_count => x_msg_count,
647: ROLLBACK TO LOCK_template_res_PVT;
648: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
649: -- Standard call to get message count and if count=1, get the message
650: FND_MSG_PUB.Count_And_Get (
651: p_encoded => FND_API.G_FALSE,
652: p_count => x_msg_count,
653: p_data => x_msg_data
654: );
655:
654: );
655:
656: WHEN OTHERS THEN
657: ROLLBACK TO LOCK_template_res_PVT;
658: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
659: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
660: THEN
661: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
662: END IF;
661: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
662: END IF;
663: -- Standard call to get message count and if count=1, get the message
664: FND_MSG_PUB.Count_And_Get (
665: p_encoded => FND_API.G_FALSE,
666: p_count => x_msg_count,
667: p_data => x_msg_data
668: );
669: End Lock_template_res;
676: IS
677: l_valid_flag VARCHAR2(1);
678:
679: BEGIN
680: x_return_status := FND_API.g_ret_sts_success;
681: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
682: l_valid_flag := AMS_Utility_PVT.check_uniqueness(
683: 'AMS_TEMPL_RESPONSIBILITY',
684: 'TEMPL_RESPONSIBILITY_ID = ''' || p_template_res_rec.TEMPL_RESPONSIBILITY_ID ||''''
690: ''' AND TEMPL_RESPONSIBILITY_ID <> ' || p_template_res_rec.TEMPL_RESPONSIBILITY_ID
691: );
692: END IF;
693:
694: IF l_valid_flag = FND_API.g_false THEN
695: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_TEMPL_RESPONSIBILITY_ID_DUPLICATE');
696: x_return_status := FND_API.g_ret_sts_error;
697: RETURN;
698: END IF;
692: END IF;
693:
694: IF l_valid_flag = FND_API.g_false THEN
695: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_TEMPL_RESPONSIBILITY_ID_DUPLICATE');
696: x_return_status := FND_API.g_ret_sts_error;
697: RETURN;
698: END IF;
699:
700: END check_template_res_uk_items;
705: x_return_status OUT NOCOPY VARCHAR2
706: )
707: IS
708: BEGIN
709: x_return_status := FND_API.g_ret_sts_success;
710:
711: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
712:
713: IF p_template_res_rec.template_id = FND_API.g_miss_num OR p_template_res_rec.template_id IS NULL THEN
709: x_return_status := FND_API.g_ret_sts_success;
710:
711: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
712:
713: IF p_template_res_rec.template_id = FND_API.g_miss_num OR p_template_res_rec.template_id IS NULL THEN
714: FND_MESSAGE.set_name('AMS', 'AMS_API_MISSING_FIELD');
715: FND_MESSAGE.set_token('MISS_FIELD','TEMPLATE_ID');
716: x_return_status := FND_API.g_ret_sts_error;
717: RETURN;
712:
713: IF p_template_res_rec.template_id = FND_API.g_miss_num OR p_template_res_rec.template_id IS NULL THEN
714: FND_MESSAGE.set_name('AMS', 'AMS_API_MISSING_FIELD');
715: FND_MESSAGE.set_token('MISS_FIELD','TEMPLATE_ID');
716: x_return_status := FND_API.g_ret_sts_error;
717: RETURN;
718: END IF;
719:
720:
717: RETURN;
718: END IF;
719:
720:
721: IF p_template_res_rec.responsibility_id = FND_API.g_miss_num OR p_template_res_rec.responsibility_id IS NULL THEN
722: FND_MESSAGE.set_name('AMS', 'AMS_API_MISSING_FIELD');
723: FND_MESSAGE.set_token('MISS_FIELD','RESPONSIBILITY_ID');
724: x_return_status := FND_API.g_ret_sts_error;
725: RETURN;
720:
721: IF p_template_res_rec.responsibility_id = FND_API.g_miss_num OR p_template_res_rec.responsibility_id IS NULL THEN
722: FND_MESSAGE.set_name('AMS', 'AMS_API_MISSING_FIELD');
723: FND_MESSAGE.set_token('MISS_FIELD','RESPONSIBILITY_ID');
724: x_return_status := FND_API.g_ret_sts_error;
725: RETURN;
726: END IF;
727:
728:
730:
731:
732: IF p_template_res_rec.templ_responsibility_id IS NULL THEN
733: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_template_res_NO_templ_responsibility_id');
734: x_return_status := FND_API.g_ret_sts_error;
735: RETURN;
736: END IF;
737:
738:
737:
738:
739: IF p_template_res_rec.template_id IS NULL THEN
740: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_template_res_NO_template_id');
741: x_return_status := FND_API.g_ret_sts_error;
742: RETURN;
743: END IF;
744:
745:
744:
745:
746: IF p_template_res_rec.responsibility_id IS NULL THEN
747: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_template_res_NO_responsibility_id');
748: x_return_status := FND_API.g_ret_sts_error;
749: RETURN;
750: END IF;
751:
752:
759: x_return_status OUT NOCOPY VARCHAR2
760: )
761: IS
762: BEGIN
763: x_return_status := FND_API.g_ret_sts_success;
764:
765: -- Enter custom code here
766:
767: END check_template_res_FK_items;
771: x_return_status OUT NOCOPY VARCHAR2
772: )
773: IS
774: BEGIN
775: x_return_status := FND_API.g_ret_sts_success;
776:
777: -- Enter custom code here
778:
779: END check_template_res_Lkup_items;
791: check_template_res_uk_items(
792: p_template_res_rec => p_template_res_rec,
793: p_validation_mode => p_validation_mode,
794: x_return_status => x_return_status);
795: IF x_return_status <> FND_API.g_ret_sts_success THEN
796: RETURN;
797: END IF;
798:
799: -- Check Items Required/NOT NULL API calls
801: check_template_res_req_items(
802: p_template_res_rec => p_template_res_rec,
803: p_validation_mode => p_validation_mode,
804: x_return_status => x_return_status);
805: IF x_return_status <> FND_API.g_ret_sts_success THEN
806: RETURN;
807: END IF;
808: -- Check Items Foreign Keys API calls
809:
809:
810: check_template_res_FK_items(
811: p_template_res_rec => p_template_res_rec,
812: x_return_status => x_return_status);
813: IF x_return_status <> FND_API.g_ret_sts_success THEN
814: RETURN;
815: END IF;
816: -- Check Items Lookups
817:
817:
818: check_template_res_Lkup_items(
819: p_template_res_rec => p_template_res_rec,
820: x_return_status => x_return_status);
821: IF x_return_status <> FND_API.g_ret_sts_success THEN
822: RETURN;
823: END IF;
824:
825: END Check_template_res_Items;
845: FETCH c_complete INTO l_template_res_rec;
846: CLOSE c_complete;
847:
848: -- templ_responsibility_id
849: IF p_template_res_rec.templ_responsibility_id = FND_API.g_miss_num THEN
850: x_complete_rec.templ_responsibility_id := l_template_res_rec.templ_responsibility_id;
851: END IF;
852:
853: -- template_id
850: x_complete_rec.templ_responsibility_id := l_template_res_rec.templ_responsibility_id;
851: END IF;
852:
853: -- template_id
854: IF p_template_res_rec.template_id = FND_API.g_miss_num THEN
855: x_complete_rec.template_id := l_template_res_rec.template_id;
856: END IF;
857:
858: -- responsibility_id
855: x_complete_rec.template_id := l_template_res_rec.template_id;
856: END IF;
857:
858: -- responsibility_id
859: IF p_template_res_rec.responsibility_id = FND_API.g_miss_num THEN
860: x_complete_rec.responsibility_id := l_template_res_rec.responsibility_id;
861: END IF;
862:
863: -- last_update_date
860: x_complete_rec.responsibility_id := l_template_res_rec.responsibility_id;
861: END IF;
862:
863: -- last_update_date
864: IF p_template_res_rec.last_update_date = FND_API.g_miss_date THEN
865: x_complete_rec.last_update_date := l_template_res_rec.last_update_date;
866: END IF;
867:
868: -- last_updated_by
865: x_complete_rec.last_update_date := l_template_res_rec.last_update_date;
866: END IF;
867:
868: -- last_updated_by
869: IF p_template_res_rec.last_updated_by = FND_API.g_miss_num THEN
870: x_complete_rec.last_updated_by := l_template_res_rec.last_updated_by;
871: END IF;
872:
873: -- creation_date
870: x_complete_rec.last_updated_by := l_template_res_rec.last_updated_by;
871: END IF;
872:
873: -- creation_date
874: IF p_template_res_rec.creation_date = FND_API.g_miss_date THEN
875: x_complete_rec.creation_date := l_template_res_rec.creation_date;
876: END IF;
877:
878: -- created_by
875: x_complete_rec.creation_date := l_template_res_rec.creation_date;
876: END IF;
877:
878: -- created_by
879: IF p_template_res_rec.created_by = FND_API.g_miss_num THEN
880: x_complete_rec.created_by := l_template_res_rec.created_by;
881: END IF;
882:
883: -- object_version_number
880: x_complete_rec.created_by := l_template_res_rec.created_by;
881: END IF;
882:
883: -- object_version_number
884: IF p_template_res_rec.object_version_number = FND_API.g_miss_num THEN
885: x_complete_rec.object_version_number := l_template_res_rec.object_version_number;
886: END IF;
887:
888: -- last_update_login
885: x_complete_rec.object_version_number := l_template_res_rec.object_version_number;
886: END IF;
887:
888: -- last_update_login
889: IF p_template_res_rec.last_update_login = FND_API.g_miss_num THEN
890: x_complete_rec.last_update_login := l_template_res_rec.last_update_login;
891: END IF;
892:
893: -- security_group_id
890: x_complete_rec.last_update_login := l_template_res_rec.last_update_login;
891: END IF;
892:
893: -- security_group_id
894: IF p_template_res_rec.security_group_id = FND_API.g_miss_num THEN
895: x_complete_rec.security_group_id := l_template_res_rec.security_group_id;
896: END IF;
897: -- Note: Developers need to modify the procedure
898: -- to handle any business specific requirements.
898: -- to handle any business specific requirements.
899: END Complete_template_res_Rec;
900: PROCEDURE Validate_template_res(
901: p_api_version_number IN NUMBER,
902: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
903: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
904: p_template_res_rec IN template_res_rec_type,
905: p_validation_mode IN VARCHAR2,
906: x_return_status OUT NOCOPY VARCHAR2,
899: END Complete_template_res_Rec;
900: PROCEDURE Validate_template_res(
901: p_api_version_number IN NUMBER,
902: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
903: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
904: p_template_res_rec IN template_res_rec_type,
905: p_validation_mode IN VARCHAR2,
906: x_return_status OUT NOCOPY VARCHAR2,
907: x_msg_count OUT NOCOPY NUMBER,
917: -- Standard Start of API savepoint
918: SAVEPOINT VALIDATE_template_res_;
919:
920: -- Standard call to check for call compatibility.
921: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
922: p_api_version_number,
923: l_api_name,
924: G_PKG_NAME)
925: THEN
922: p_api_version_number,
923: l_api_name,
924: G_PKG_NAME)
925: THEN
926: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
927: END IF;
928:
929: -- Initialize message list if p_init_msg_list is set to TRUE.
930: IF FND_API.to_Boolean( p_init_msg_list )
926: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
927: END IF;
928:
929: -- Initialize message list if p_init_msg_list is set to TRUE.
930: IF FND_API.to_Boolean( p_init_msg_list )
931: THEN
932: FND_MSG_PUB.initialize;
933: END IF;
934: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
937: p_validation_mode => p_validation_mode,
938: x_return_status => x_return_status
939: );
940:
941: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
942: RAISE FND_API.G_EXC_ERROR;
943: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
945: END IF;
938: x_return_status => x_return_status
939: );
940:
941: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
942: RAISE FND_API.G_EXC_ERROR;
943: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
945: END IF;
946: END IF;
939: );
940:
941: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
942: RAISE FND_API.G_EXC_ERROR;
943: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
945: END IF;
946: END IF;
947:
940:
941: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
942: RAISE FND_API.G_EXC_ERROR;
943: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
945: END IF;
946: END IF;
947:
948: Complete_template_res_Rec(
952:
953: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
954: Validate_template_res_Rec(
955: p_api_version_number => 1.0,
956: p_init_msg_list => FND_API.G_FALSE,
957: x_return_status => x_return_status,
958: x_msg_count => x_msg_count,
959: x_msg_data => x_msg_data,
960: p_template_res_rec => l_template_res_rec);
958: x_msg_count => x_msg_count,
959: x_msg_data => x_msg_data,
960: p_template_res_rec => l_template_res_rec);
961:
962: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
963: RAISE FND_API.G_EXC_ERROR;
964: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
965: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
966: END IF;
959: x_msg_data => x_msg_data,
960: p_template_res_rec => l_template_res_rec);
961:
962: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
963: RAISE FND_API.G_EXC_ERROR;
964: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
965: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
966: END IF;
967: END IF;
960: p_template_res_rec => l_template_res_rec);
961:
962: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
963: RAISE FND_API.G_EXC_ERROR;
964: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
965: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
966: END IF;
967: END IF;
968:
961:
962: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
963: RAISE FND_API.G_EXC_ERROR;
964: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
965: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
966: END IF;
967: END IF;
968:
969:
974: END IF;
975:
976:
977: -- Initialize API return status to SUCCESS
978: x_return_status := FND_API.G_RET_STS_SUCCESS;
979:
980:
981: -- Debug Message
982: IF (AMS_DEBUG_HIGH_ON) THEN
991: );
992: EXCEPTION
993:
994: WHEN AMS_Utility_PVT.resource_locked THEN
995: x_return_status := FND_API.g_ret_sts_error;
996: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
997:
998: WHEN FND_API.G_EXC_ERROR THEN
999: ROLLBACK TO VALIDATE_template_res_;
994: WHEN AMS_Utility_PVT.resource_locked THEN
995: x_return_status := FND_API.g_ret_sts_error;
996: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
997:
998: WHEN FND_API.G_EXC_ERROR THEN
999: ROLLBACK TO VALIDATE_template_res_;
1000: x_return_status := FND_API.G_RET_STS_ERROR;
1001: -- Standard call to get message count and if count=1, get the message
1002: FND_MSG_PUB.Count_And_Get (
996: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
997:
998: WHEN FND_API.G_EXC_ERROR THEN
999: ROLLBACK TO VALIDATE_template_res_;
1000: x_return_status := FND_API.G_RET_STS_ERROR;
1001: -- Standard call to get message count and if count=1, get the message
1002: FND_MSG_PUB.Count_And_Get (
1003: p_encoded => FND_API.G_FALSE,
1004: p_count => x_msg_count,
999: ROLLBACK TO VALIDATE_template_res_;
1000: x_return_status := FND_API.G_RET_STS_ERROR;
1001: -- Standard call to get message count and if count=1, get the message
1002: FND_MSG_PUB.Count_And_Get (
1003: p_encoded => FND_API.G_FALSE,
1004: p_count => x_msg_count,
1005: p_data => x_msg_data
1006: );
1007:
1004: p_count => x_msg_count,
1005: p_data => x_msg_data
1006: );
1007:
1008: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1009: ROLLBACK TO VALIDATE_template_res_;
1010: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1011: -- Standard call to get message count and if count=1, get the message
1012: FND_MSG_PUB.Count_And_Get (
1006: );
1007:
1008: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1009: ROLLBACK TO VALIDATE_template_res_;
1010: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1011: -- Standard call to get message count and if count=1, get the message
1012: FND_MSG_PUB.Count_And_Get (
1013: p_encoded => FND_API.G_FALSE,
1014: p_count => x_msg_count,
1009: ROLLBACK TO VALIDATE_template_res_;
1010: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1011: -- Standard call to get message count and if count=1, get the message
1012: FND_MSG_PUB.Count_And_Get (
1013: p_encoded => FND_API.G_FALSE,
1014: p_count => x_msg_count,
1015: p_data => x_msg_data
1016: );
1017:
1016: );
1017:
1018: WHEN OTHERS THEN
1019: ROLLBACK TO VALIDATE_template_res_;
1020: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1021: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1022: THEN
1023: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1024: END IF;
1023: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1024: END IF;
1025: -- Standard call to get message count and if count=1, get the message
1026: FND_MSG_PUB.Count_And_Get (
1027: p_encoded => FND_API.G_FALSE,
1028: p_count => x_msg_count,
1029: p_data => x_msg_data
1030: );
1031: End Validate_template_res;
1032:
1033:
1034: PROCEDURE Validate_template_res_rec(
1035: p_api_version_number IN NUMBER,
1036: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1037: x_return_status OUT NOCOPY VARCHAR2,
1038: x_msg_count OUT NOCOPY NUMBER,
1039: x_msg_data OUT NOCOPY VARCHAR2,
1040: p_template_res_rec IN template_res_rec_type
1041: )
1042: IS
1043: BEGIN
1044: -- Initialize message list if p_init_msg_list is set to TRUE.
1045: IF FND_API.to_Boolean( p_init_msg_list )
1046: THEN
1047: FND_MSG_PUB.initialize;
1048: END IF;
1049:
1047: FND_MSG_PUB.initialize;
1048: END IF;
1049:
1050: -- Initialize API return status to SUCCESS
1051: x_return_status := FND_API.G_RET_STS_SUCCESS;
1052:
1053: -- Hint: Validate data
1054: -- If data not valid
1055: -- THEN
1052:
1053: -- Hint: Validate data
1054: -- If data not valid
1055: -- THEN
1056: -- x_return_status := FND_API.G_RET_STS_ERROR;
1057:
1058: -- Debug Message
1059: IF (AMS_DEBUG_HIGH_ON) THEN
1060: