58:
59: -- Initialize message list if p_init_msg_list is set to TRUE.
60: IF FND_API.to_Boolean( p_init_msg_list )
61: THEN
62: FND_MSG_PUB.initialize;
63: END IF;
64:
65: x_return_status := FND_API.G_RET_STS_SUCCESS;
66:
71: If (p_menu_id is NULL or
72: p_menu_id = FND_API.G_MISS_NUM ) Then
73: FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
74: FND_MESSAGE.Set_Token('COLUMN', 'Menu_Id');
75: FND_MSG_PUB.Add;
76: raise FND_API.G_EXC_ERROR;
77: End if;
78:
79: If (p_appl_id is NULL or
79: If (p_appl_id is NULL or
80: p_appl_id = FND_API.G_MISS_NUM ) Then
81: FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
82: FND_MESSAGE.Set_Token('COLUMN', 'Application_Id');
83: FND_MSG_PUB.Add;
84: raise FND_API.G_EXC_ERROR;
85: End if;
86:
87: If (p_resp_key is NULL or
87: If (p_resp_key is NULL or
88: p_resp_key = FND_API.G_MISS_CHAR ) Then
89: FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
90: FND_MESSAGE.Set_Token('COLUMN', 'Responsibility_Key');
91: FND_MSG_PUB.Add;
92: raise FND_API.G_EXC_ERROR;
93: End if;
94:
95: OPEN C_Dup_Key;
96: FETCH C_Dup_Key INTO l_found_dup;
97: CLOSE C_Dup_Key;
98: IF (l_found_dup = 'Y') THEN
99: FND_MESSAGE.Set_Name('JTS', 'JTS_DUPLICATE_RESP_KEY');
100: FND_MSG_PUB.Add;
101: raise FND_API.G_EXC_ERROR;
102: END IF;
103:
104: If (p_resp_name is NULL or
104: If (p_resp_name is NULL or
105: p_resp_name = FND_API.G_MISS_CHAR ) Then
106: FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
107: FND_MESSAGE.Set_Token('COLUMN', 'Responsibility_Name');
108: FND_MSG_PUB.Add;
109: raise FND_API.G_EXC_ERROR;
110: End if;
111:
112: If (p_start_date is NULL or
112: If (p_start_date is NULL or
113: p_start_date = FND_API.G_MISS_Date ) Then
114: FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
115: FND_MESSAGE.Set_Token('COLUMN', 'Start_Date');
116: FND_MSG_PUB.Add;
117: raise FND_API.G_EXC_ERROR;
118: End if;
119:
120:
155: THEN
156: COMMIT WORK;
157: END IF;
158:
159: FND_MSG_PUB.Count_And_Get
160: ( p_count => x_msg_count,
161: p_data => x_msg_data
162: );
163:
162: );
163:
164: EXCEPTION
165: WHEN FND_API.G_EXC_ERROR THEN
166: FND_MSG_PUB.Count_And_Get(
167: p_count => x_msg_count,
168: p_data => x_msg_data
169: );
170: x_return_status := FND_API.G_RET_STS_ERROR;
169: );
170: x_return_status := FND_API.G_RET_STS_ERROR;
171: WHEN OTHERS THEN
172: FND_MESSAGE.Set_Name('JTS', 'Error number ' || to_char(SQLCODE));
173: FND_MSG_PUB.Add;
174: FND_MSG_PUB.Count_And_Get(
175: p_count => x_msg_count,
176: p_data => x_msg_data
177: );
170: x_return_status := FND_API.G_RET_STS_ERROR;
171: WHEN OTHERS THEN
172: FND_MESSAGE.Set_Name('JTS', 'Error number ' || to_char(SQLCODE));
173: FND_MSG_PUB.Add;
174: FND_MSG_PUB.Count_And_Get(
175: p_count => x_msg_count,
176: p_data => x_msg_data
177: );
178: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
224:
225: -- Initialize message list if p_init_msg_list is set to TRUE.
226: IF FND_API.to_Boolean( p_init_msg_list )
227: THEN
228: FND_MSG_PUB.initialize;
229: END IF;
230:
231: x_return_status := FND_API.G_RET_STS_SUCCESS;
232:
238: FETCH c_resp INTO l_resp;
239: IF c_resp%NOTFOUND THEN
240: CLOSE c_resp;
241: FND_MESSAGE.Set_Name('JTS', 'JTS_NO_RESP_FOUND');
242: FND_MSG_PUB.Add;
243: raise FND_API.G_EXC_ERROR;
244: END IF;
245: CLOSE c_resp;
246:
248: If (p_last_update_date is NULL or
249: p_last_update_date = FND_API.G_MISS_Date ) Then
250: FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
251: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date');
252: FND_MSG_PUB.Add;
253: raise FND_API.G_EXC_ERROR;
254: End if;
255:
256: -- Check Whether record has been changed by someone else
255:
256: -- Check Whether record has been changed by someone else
257: If (p_last_update_date <> l_resp.last_update_date) Then
258: FND_MESSAGE.Set_Name('JTS', 'JTS_RECORD_CHANGED');
259: FND_MSG_PUB.ADD;
260: raise FND_API.G_EXC_ERROR;
261: End if;
262:
263:
264: If (p_menu_id is NULL or
265: p_menu_id = FND_API.G_MISS_NUM ) Then
266: FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
267: FND_MESSAGE.Set_Token('COLUMN', 'Menu_Id');
268: FND_MSG_PUB.Add;
269: raise FND_API.G_EXC_ERROR;
270: End if;
271:
272: If (p_resp_name is NULL or
272: If (p_resp_name is NULL or
273: p_resp_name = FND_API.G_MISS_CHAR ) Then
274: FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
275: FND_MESSAGE.Set_Token('COLUMN', 'Responsibility_Name');
276: FND_MSG_PUB.Add;
277: raise FND_API.G_EXC_ERROR;
278: End if;
279:
280: If (p_start_date is NULL or
280: If (p_start_date is NULL or
281: p_start_date = FND_API.G_MISS_Date ) Then
282: FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
283: FND_MESSAGE.Set_Token('COLUMN', 'Start_Date');
284: FND_MSG_PUB.Add;
285: raise FND_API.G_EXC_ERROR;
286: End if;
287:
288:
314: THEN
315: COMMIT WORK;
316: END IF;
317:
318: FND_MSG_PUB.Count_And_Get
319: ( p_count => x_msg_count,
320: p_data => x_msg_data
321: );
322:
322:
323:
324: EXCEPTION
325: WHEN FND_API.G_EXC_ERROR THEN
326: FND_MSG_PUB.Count_And_Get(
327: p_count => x_msg_count,
328: p_data => x_msg_data
329: );
330: x_return_status := FND_API.G_RET_STS_ERROR;
329: );
330: x_return_status := FND_API.G_RET_STS_ERROR;
331: WHEN OTHERS THEN
332: FND_MESSAGE.Set_Name('JTS', 'Error number ' || to_char(SQLCODE));
333: FND_MSG_PUB.Add;
334: FND_MSG_PUB.Count_And_Get(
335: p_count => x_msg_count,
336: p_data => x_msg_data
337: );
330: x_return_status := FND_API.G_RET_STS_ERROR;
331: WHEN OTHERS THEN
332: FND_MESSAGE.Set_Name('JTS', 'Error number ' || to_char(SQLCODE));
333: FND_MSG_PUB.Add;
334: FND_MSG_PUB.Count_And_Get(
335: p_count => x_msg_count,
336: p_data => x_msg_data
337: );
338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
380:
381: -- Initialize message list if p_init_msg_list is set to TRUE.
382: IF FND_API.to_Boolean( p_init_msg_list )
383: THEN
384: FND_MSG_PUB.initialize;
385: END IF;
386:
387: x_return_status := FND_API.G_RET_STS_SUCCESS;
388:
393: If (p_action_id is NULL or
394: p_action_id = FND_API.G_MISS_NUM ) Then
395: FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
396: FND_MESSAGE.Set_Token('COLUMN', 'Action_Id');
397: FND_MSG_PUB.Add;
398: raise FND_API.G_EXC_ERROR;
399: End if;
400:
401: If (p_app_id is NULL or
401: If (p_app_id is NULL or
402: p_app_id = FND_API.G_MISS_NUM ) Then
403: FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
404: FND_MESSAGE.Set_Token('COLUMN', 'Application_Id');
405: FND_MSG_PUB.Add;
406: raise FND_API.G_EXC_ERROR;
407: End if;
408:
409: If (p_resp_id is NULL or
409: If (p_resp_id is NULL or
410: p_resp_id = FND_API.G_MISS_NUM ) Then
411: FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
412: FND_MESSAGE.Set_Token('COLUMN', 'Responsibility_Id');
413: FND_MSG_PUB.Add;
414: raise FND_API.G_EXC_ERROR;
415: End if;
416:
417: If (p_rule_type is NULL or
417: If (p_rule_type is NULL or
418: p_rule_type = FND_API.G_MISS_CHAR ) Then
419: FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
420: FND_MESSAGE.Set_Token('COLUMN', 'Rule_Type');
421: FND_MSG_PUB.Add;
422: raise FND_API.G_EXC_ERROR;
423: End if;
424:
425: OPEN C_Dup_Key;
426: FETCH C_Dup_Key INTO l_found_dup;
427: CLOSE C_Dup_Key;
428: IF (l_found_dup = 'Y') THEN
429: FND_MESSAGE.Set_Name('JTS', 'JTS_DUPLICATE_APP_RESP_ACTUION_RULETYPE');
430: FND_MSG_PUB.Add;
431: raise FND_API.G_EXC_ERROR;
432: END IF;
433:
434: FND_RESP_FUNCTIONS_PKG.INSERT_ROW(
452: THEN
453: COMMIT WORK;
454: END IF;
455:
456: FND_MSG_PUB.Count_And_Get
457: ( p_count => x_msg_count,
458: p_data => x_msg_data
459: );
460:
459: );
460:
461: EXCEPTION
462: WHEN FND_API.G_EXC_ERROR THEN
463: FND_MSG_PUB.Count_And_Get(
464: p_count => x_msg_count,
465: p_data => x_msg_data
466: );
467: x_return_status := FND_API.G_RET_STS_ERROR;
466: );
467: x_return_status := FND_API.G_RET_STS_ERROR;
468: WHEN OTHERS THEN
469: FND_MESSAGE.Set_Name('JTS', 'Error number ' || to_char(SQLCODE));
470: FND_MSG_PUB.Add;
471: FND_MSG_PUB.Count_And_Get(
472: p_count => x_msg_count,
473: p_data => x_msg_data
474: );
467: x_return_status := FND_API.G_RET_STS_ERROR;
468: WHEN OTHERS THEN
469: FND_MESSAGE.Set_Name('JTS', 'Error number ' || to_char(SQLCODE));
470: FND_MSG_PUB.Add;
471: FND_MSG_PUB.Count_And_Get(
472: p_count => x_msg_count,
473: p_data => x_msg_data
474: );
475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
515:
516: -- Initialize message list if p_init_msg_list is set to TRUE.
517: IF FND_API.to_Boolean( p_init_msg_list )
518: THEN
519: FND_MSG_PUB.initialize;
520: END IF;
521:
522: x_return_status := FND_API.G_RET_STS_SUCCESS;
523:
528: If (p_action_id is NULL or
529: p_action_id = FND_API.G_MISS_NUM ) Then
530: FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
531: FND_MESSAGE.Set_Token('COLUMN', 'Action_Id');
532: FND_MSG_PUB.Add;
533: raise FND_API.G_EXC_ERROR;
534: End if;
535:
536: If (p_app_id is NULL or
536: If (p_app_id is NULL or
537: p_app_id = FND_API.G_MISS_NUM ) Then
538: FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
539: FND_MESSAGE.Set_Token('COLUMN', 'Application_Id');
540: FND_MSG_PUB.Add;
541: raise FND_API.G_EXC_ERROR;
542: End if;
543:
544: If (p_resp_id is NULL or
544: If (p_resp_id is NULL or
545: p_resp_id = FND_API.G_MISS_NUM ) Then
546: FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
547: FND_MESSAGE.Set_Token('COLUMN', 'Responsibility_Id');
548: FND_MSG_PUB.Add;
549: raise FND_API.G_EXC_ERROR;
550: End if;
551:
552: If (p_rule_type is NULL or
552: If (p_rule_type is NULL or
553: p_rule_type = FND_API.G_MISS_CHAR ) Then
554: FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
555: FND_MESSAGE.Set_Token('COLUMN', 'Rule_Type');
556: FND_MSG_PUB.Add;
557: raise FND_API.G_EXC_ERROR;
558: End if;
559:
560: OPEN C_Found;
561: FETCH C_Found INTO l_found;
562: CLOSE C_Found;
563: IF (l_found <> 'Y') THEN
564: FND_MESSAGE.Set_Name('JTS', 'JTS_NOTFOUND');
565: FND_MSG_PUB.Add;
566: raise FND_API.G_EXC_ERROR;
567: END IF;
568:
569: FND_RESP_FUNCTIONS_PKG.DELETE_ROW(
581: THEN
582: COMMIT WORK;
583: END IF;
584:
585: FND_MSG_PUB.Count_And_Get
586: ( p_count => x_msg_count,
587: p_data => x_msg_data
588: );
589:
588: );
589:
590: EXCEPTION
591: WHEN FND_API.G_EXC_ERROR THEN
592: FND_MSG_PUB.Count_And_Get(
593: p_count => x_msg_count,
594: p_data => x_msg_data
595: );
596: x_return_status := FND_API.G_RET_STS_ERROR;
595: );
596: x_return_status := FND_API.G_RET_STS_ERROR;
597: WHEN OTHERS THEN
598: FND_MESSAGE.Set_Name('JTS', 'Error number ' || to_char(SQLCODE));
599: FND_MSG_PUB.Add;
600: FND_MSG_PUB.Count_And_Get(
601: p_count => x_msg_count,
602: p_data => x_msg_data
603: );
596: x_return_status := FND_API.G_RET_STS_ERROR;
597: WHEN OTHERS THEN
598: FND_MESSAGE.Set_Name('JTS', 'Error number ' || to_char(SQLCODE));
599: FND_MSG_PUB.Add;
600: FND_MSG_PUB.Count_And_Get(
601: p_count => x_msg_count,
602: p_data => x_msg_data
603: );
604: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;