96: dbms_sql.close_cursor(v_cursorid);
97:
98: IF NOT (x_return_status = fnd_api.g_ret_sts_success)
99: THEN
100: fnd_message.set_name ('JTF', 'JTF_RS_MISSING_RETURN_STATUS');
101: fnd_message.set_token('P_PROCEDURE',i.hook_PACKAGE || '.' ||i.hook_api);
102: fnd_msg_pub.add ;
103: --x_return_status :=fnd_api.g_ret_sts_error;
104: RAISE fnd_api.g_exc_error;
97:
98: IF NOT (x_return_status = fnd_api.g_ret_sts_success)
99: THEN
100: fnd_message.set_name ('JTF', 'JTF_RS_MISSING_RETURN_STATUS');
101: fnd_message.set_token('P_PROCEDURE',i.hook_PACKAGE || '.' ||i.hook_api);
102: fnd_msg_pub.add ;
103: --x_return_status :=fnd_api.g_ret_sts_error;
104: RAISE fnd_api.g_exc_error;
105: END IF;
104: RAISE fnd_api.g_exc_error;
105: END IF;
106:
107: IF X_RETURN_status IS null then
108: fnd_message.set_name ('JTF', 'JTF_RS_MISSING_RETURN_STATUS');
109: fnd_msg_pub.add ;
110: x_return_status := fnd_api.g_ret_sts_error;
111: RAISE fnd_api.g_exc_error;
112: END IF ;
118: THEN
119: x_return_status := fnd_api.g_ret_sts_unexp_error;
120: WHEN OTHERS
121: THEN
122: fnd_message.set_name ('JTF', 'JTF_RS_UNEXP_ERROR');
123: fnd_message.set_token('P_SQLCODE',SQLCODE);
124: fnd_message.set_token('P_SQLERRM',SQLERRM);
125: fnd_message.set_token('P_API_NAME','CALL_INTERNAL_HOOK');
126: FND_MSG_PUB.add;
119: x_return_status := fnd_api.g_ret_sts_unexp_error;
120: WHEN OTHERS
121: THEN
122: fnd_message.set_name ('JTF', 'JTF_RS_UNEXP_ERROR');
123: fnd_message.set_token('P_SQLCODE',SQLCODE);
124: fnd_message.set_token('P_SQLERRM',SQLERRM);
125: fnd_message.set_token('P_API_NAME','CALL_INTERNAL_HOOK');
126: FND_MSG_PUB.add;
127: x_return_status := fnd_api.g_ret_sts_unexp_error;
120: WHEN OTHERS
121: THEN
122: fnd_message.set_name ('JTF', 'JTF_RS_UNEXP_ERROR');
123: fnd_message.set_token('P_SQLCODE',SQLCODE);
124: fnd_message.set_token('P_SQLERRM',SQLERRM);
125: fnd_message.set_token('P_API_NAME','CALL_INTERNAL_HOOK');
126: FND_MSG_PUB.add;
127: x_return_status := fnd_api.g_ret_sts_unexp_error;
128:
121: THEN
122: fnd_message.set_name ('JTF', 'JTF_RS_UNEXP_ERROR');
123: fnd_message.set_token('P_SQLCODE',SQLCODE);
124: fnd_message.set_token('P_SQLERRM',SQLERRM);
125: fnd_message.set_token('P_API_NAME','CALL_INTERNAL_HOOK');
126: FND_MSG_PUB.add;
127: x_return_status := fnd_api.g_ret_sts_unexp_error;
128:
129: END call_internal_hook;
156: IF p_group_id IS NULL AND p_group_number is NULL THEN
157:
158: -- dbms_output.put_line('Group Id and Group Number are null');
159:
160: fnd_message.set_name('JTF', 'JTF_RS_GROUP_NULL');
161: fnd_msg_pub.add;
162:
163: x_return_status := fnd_api.g_ret_sts_error;
164:
174: IF c_group_id%NOTFOUND THEN
175:
176: -- dbms_output.put_line('Invalid Group Id');
177:
178: fnd_message.set_name('JTF', 'JTF_RS_INVALID_GROUP');
179: fnd_message.set_token('P_GROUP_ID', p_group_id);
180: fnd_msg_pub.add;
181:
182: x_return_status := fnd_api.g_ret_sts_error;
175:
176: -- dbms_output.put_line('Invalid Group Id');
177:
178: fnd_message.set_name('JTF', 'JTF_RS_INVALID_GROUP');
179: fnd_message.set_token('P_GROUP_ID', p_group_id);
180: fnd_msg_pub.add;
181:
182: x_return_status := fnd_api.g_ret_sts_error;
183:
194: IF c_group_number%NOTFOUND THEN
195:
196: -- dbms_output.put_line('Invalid Group Number');
197:
198: fnd_message.set_name('JTF', 'JTF_RS_INVALID_GROUP_NUMBER');
199: fnd_message.set_token('P_GROUP_NUMBER', p_group_number);
200: fnd_msg_pub.add;
201:
202: x_return_status := fnd_api.g_ret_sts_error;
195:
196: -- dbms_output.put_line('Invalid Group Number');
197:
198: fnd_message.set_name('JTF', 'JTF_RS_INVALID_GROUP_NUMBER');
199: fnd_message.set_token('P_GROUP_NUMBER', p_group_number);
200: fnd_msg_pub.add;
201:
202: x_return_status := fnd_api.g_ret_sts_error;
203:
241: IF p_resource_id IS NULL AND p_resource_number is NULL THEN
242:
243: -- dbms_output.put_line('Resource Id and Resource Number are null');
244:
245: fnd_message.set_name('JTF', 'JTF_RS_RESOURCE_NULL');
246: fnd_msg_pub.add;
247:
248: x_return_status := fnd_api.g_ret_sts_unexp_error;
249:
259: IF c_resource_id%NOTFOUND THEN
260:
261: -- dbms_output.put_line('Invalid or Inactive Resource');
262:
263: fnd_message.set_name('JTF', 'JTF_RS_INVALID_RESOURCE');
264: fnd_message.set_token('P_RESOURCE_ID', p_resource_id);
265: fnd_msg_pub.add;
266:
267: x_return_status := fnd_api.g_ret_sts_error;
260:
261: -- dbms_output.put_line('Invalid or Inactive Resource');
262:
263: fnd_message.set_name('JTF', 'JTF_RS_INVALID_RESOURCE');
264: fnd_message.set_token('P_RESOURCE_ID', p_resource_id);
265: fnd_msg_pub.add;
266:
267: x_return_status := fnd_api.g_ret_sts_error;
268:
279: IF c_resource_number%NOTFOUND THEN
280:
281: -- dbms_output.put_line('Invalid or Inactive Resource');
282:
283: fnd_message.set_name('JTF', 'JTF_RS_INVALID_RESOURCE_NUMBER');
284: fnd_message.set_token('P_RESOURCE_NUMBER', p_resource_number);
285: fnd_msg_pub.add;
286:
287: x_return_status := fnd_api.g_ret_sts_error;
280:
281: -- dbms_output.put_line('Invalid or Inactive Resource');
282:
283: fnd_message.set_name('JTF', 'JTF_RS_INVALID_RESOURCE_NUMBER');
284: fnd_message.set_token('P_RESOURCE_NUMBER', p_resource_number);
285: fnd_msg_pub.add;
286:
287: x_return_status := fnd_api.g_ret_sts_error;
288:
311: IF p_start_date_active IS NULL THEN
312:
313: -- dbms_output.put_line('Start Date Active cannot be null');
314:
315: fnd_message.set_name('JTF', 'JTF_RS_START_DATE_NULL');
316: fnd_msg_pub.add;
317:
318: x_return_status := fnd_api.g_ret_sts_error;
319:
329: -- dbms_output.put_line('Start Date cannot be greater than the end date');
330:
331: x_return_status := fnd_api.g_ret_sts_error;
332:
333: fnd_message.set_name('JTF', 'JTF_RS_ERR_STDT_GREATER_EDDT');
334: fnd_msg_pub.add;
335:
336: END IF;
337:
366: IF p_usage IS NULL THEN
367:
368: -- dbms_output.put_line('Usage is null');
369:
370: fnd_message.set_name('JTF', 'JTF_RS_USAGE_NULL');
371: fnd_msg_pub.add;
372:
373: x_return_status := fnd_api.g_ret_sts_error;
374:
383: IF c_usage%NOTFOUND THEN
384:
385: -- dbms_output.put_line('Invalid Usage');
386:
387: fnd_message.set_name('JTF', 'JTF_RS_INVALID_USAGE');
388: fnd_message.set_token('P_USAGE', p_usage);
389: fnd_msg_pub.add;
390:
391: x_return_status := fnd_api.g_ret_sts_error;
384:
385: -- dbms_output.put_line('Invalid Usage');
386:
387: fnd_message.set_name('JTF', 'JTF_RS_INVALID_USAGE');
388: fnd_message.set_token('P_USAGE', p_usage);
389: fnd_msg_pub.add;
390:
391: x_return_status := fnd_api.g_ret_sts_error;
392:
430: IF p_category IS NULL THEN
431:
432: -- dbms_output.put_line('Resource Category is null');
433:
434: fnd_message.set_name('JTF', 'JTF_RS_RESOURCE_CATEGORY_NULL');
435: fnd_msg_pub.add;
436:
437: x_return_status := fnd_api.g_ret_sts_error;
438:
447: IF c_resource_category%NOTFOUND THEN
448:
449: -- dbms_output.put_line('Invalid Resource Category');
450:
451: fnd_message.set_name('JTF', 'JTF_RS_INVALID_RES_CATEGORY');
452: fnd_message.set_token('P_RESOURCE_CATEGORY', p_category);
453: fnd_msg_pub.add;
454:
455: x_return_status := fnd_api.g_ret_sts_error;
448:
449: -- dbms_output.put_line('Invalid Resource Category');
450:
451: fnd_message.set_name('JTF', 'JTF_RS_INVALID_RES_CATEGORY');
452: fnd_message.set_token('P_RESOURCE_CATEGORY', p_category);
453: fnd_msg_pub.add;
454:
455: x_return_status := fnd_api.g_ret_sts_error;
456:
520: OPEN c_emp_dup_source_id;
521: FETCH c_emp_dup_source_id into check_num;
522: IF c_emp_dup_source_id%FOUND THEN
523: -- dbms_output.put_line('Source ID already exists ');
524: fnd_message.set_name('JTF', 'JTF_RS_DUP_SOURCE_ID');
525: fnd_message.set_token('P_SOURCE_ID', p_source_id);
526: fnd_msg_pub.add;
527: x_return_status := fnd_api.g_ret_sts_error;
528: END IF;
521: FETCH c_emp_dup_source_id into check_num;
522: IF c_emp_dup_source_id%FOUND THEN
523: -- dbms_output.put_line('Source ID already exists ');
524: fnd_message.set_name('JTF', 'JTF_RS_DUP_SOURCE_ID');
525: fnd_message.set_token('P_SOURCE_ID', p_source_id);
526: fnd_msg_pub.add;
527: x_return_status := fnd_api.g_ret_sts_error;
528: END IF;
529: CLOSE c_emp_dup_source_id;
532: ELSIF p_category = 'WORKER' THEN
533: OPEN c_cwk_dup_source_id;
534: FETCH c_cwk_dup_source_id into check_num;
535: IF c_cwk_dup_source_id%FOUND THEN
536: fnd_message.set_name('JTF', 'JTF_RS_DUP_SOURCE_ID');
537: fnd_message.set_token('P_SOURCE_ID', p_source_id);
538: fnd_msg_pub.add;
539: x_return_status := fnd_api.g_ret_sts_error;
540: END IF;
533: OPEN c_cwk_dup_source_id;
534: FETCH c_cwk_dup_source_id into check_num;
535: IF c_cwk_dup_source_id%FOUND THEN
536: fnd_message.set_name('JTF', 'JTF_RS_DUP_SOURCE_ID');
537: fnd_message.set_token('P_SOURCE_ID', p_source_id);
538: fnd_msg_pub.add;
539: x_return_status := fnd_api.g_ret_sts_error;
540: END IF;
541: CLOSE c_cwk_dup_source_id;
544: OPEN c_party_dup_source_id;
545: FETCH c_party_dup_source_id into check_num;
546: IF c_party_dup_source_id%FOUND THEN
547: -- dbms_output.put_line('Source ID already exists ');
548: fnd_message.set_name('JTF', 'JTF_RS_DUP_SOURCE_ID');
549: fnd_message.set_token('P_SOURCE_ID', p_source_id);
550: fnd_msg_pub.add;
551: x_return_status := fnd_api.g_ret_sts_error;
552: END IF;
545: FETCH c_party_dup_source_id into check_num;
546: IF c_party_dup_source_id%FOUND THEN
547: -- dbms_output.put_line('Source ID already exists ');
548: fnd_message.set_name('JTF', 'JTF_RS_DUP_SOURCE_ID');
549: fnd_message.set_token('P_SOURCE_ID', p_source_id);
550: fnd_msg_pub.add;
551: x_return_status := fnd_api.g_ret_sts_error;
552: END IF;
553: CLOSE c_party_dup_source_id;
556: OPEN c_vend_dup_source_id;
557: FETCH c_vend_dup_source_id into check_num;
558: IF c_vend_dup_source_id%FOUND THEN
559: -- dbms_output.put_line('Source ID already exists ');
560: fnd_message.set_name('JTF', 'JTF_RS_DUP_SOURCE_ID');
561: fnd_message.set_token('P_SOURCE_ID', p_source_id);
562: fnd_msg_pub.add;
563: x_return_status := fnd_api.g_ret_sts_error;
564: END IF;
557: FETCH c_vend_dup_source_id into check_num;
558: IF c_vend_dup_source_id%FOUND THEN
559: -- dbms_output.put_line('Source ID already exists ');
560: fnd_message.set_name('JTF', 'JTF_RS_DUP_SOURCE_ID');
561: fnd_message.set_token('P_SOURCE_ID', p_source_id);
562: fnd_msg_pub.add;
563: x_return_status := fnd_api.g_ret_sts_error;
564: END IF;
565: CLOSE c_vend_dup_source_id;
568: OPEN c_partner_dup_source_id;
569: FETCH c_partner_dup_source_id into check_num;
570: IF c_partner_dup_source_id%FOUND THEN
571: -- dbms_output.put_line('Source ID already exists ');
572: fnd_message.set_name('JTF', 'JTF_RS_DUP_SOURCE_ID');
573: fnd_message.set_token('P_SOURCE_ID', p_source_id);
574: fnd_msg_pub.add;
575: x_return_status := fnd_api.g_ret_sts_error;
576: END IF;
569: FETCH c_partner_dup_source_id into check_num;
570: IF c_partner_dup_source_id%FOUND THEN
571: -- dbms_output.put_line('Source ID already exists ');
572: fnd_message.set_name('JTF', 'JTF_RS_DUP_SOURCE_ID');
573: fnd_message.set_token('P_SOURCE_ID', p_source_id);
574: fnd_msg_pub.add;
575: x_return_status := fnd_api.g_ret_sts_error;
576: END IF;
577: CLOSE c_partner_dup_source_id;
580: OPEN c_ven_dup_source_id;
581: FETCH c_ven_dup_source_id into check_num;
582: IF c_ven_dup_source_id%FOUND THEN
583: -- dbms_output.put_line('Source ID already exists ');
584: fnd_message.set_name('JTF', 'JTF_RS_DUP_SOURCE_ID');
585: fnd_message.set_token('P_SOURCE_ID', p_source_id);
586: fnd_msg_pub.add;
587: x_return_status := fnd_api.g_ret_sts_error;
588: END IF;
581: FETCH c_ven_dup_source_id into check_num;
582: IF c_ven_dup_source_id%FOUND THEN
583: -- dbms_output.put_line('Source ID already exists ');
584: fnd_message.set_name('JTF', 'JTF_RS_DUP_SOURCE_ID');
585: fnd_message.set_token('P_SOURCE_ID', p_source_id);
586: fnd_msg_pub.add;
587: x_return_status := fnd_api.g_ret_sts_error;
588: END IF;
589: CLOSE c_ven_dup_source_id;
620: OPEN c_ppf_person_id;
621: FETCH c_ppf_person_id INTO x_emp_resource_id;
622: IF c_ppf_person_id%NOTFOUND THEN
623: -- dbms_output.put_line('Invalid or Inactive Employee Resource');
624: fnd_message.set_name('JTF', 'JTF_RS_INVALID_EMP_RESOURCE_ID');
625: fnd_message.set_token('P_EMP_RESOURCE_ID', p_emp_resource_id);
626: fnd_msg_pub.add;
627: x_return_status := fnd_api.g_ret_sts_error;
628: END IF;
621: FETCH c_ppf_person_id INTO x_emp_resource_id;
622: IF c_ppf_person_id%NOTFOUND THEN
623: -- dbms_output.put_line('Invalid or Inactive Employee Resource');
624: fnd_message.set_name('JTF', 'JTF_RS_INVALID_EMP_RESOURCE_ID');
625: fnd_message.set_token('P_EMP_RESOURCE_ID', p_emp_resource_id);
626: fnd_msg_pub.add;
627: x_return_status := fnd_api.g_ret_sts_error;
628: END IF;
629: CLOSE c_ppf_person_id;
632: -- OPEN c_ppf_emp_num;
633: -- FETCH c_ppf_emp_num INTO x_emp_resource_id;
634: -- IF c_ppf_emp_num%NOTFOUND THEN
635: -- dbms_output.put_line('Invalid or Inactive Employee Resource');
636: -- fnd_message.set_name('JTF', 'JTF_RS_INVALID_EMP_RES_NUMBER');
637: -- fnd_message.set_token('P_EMP_RESOURCE_NUMBER', p_emp_resource_number);
638: -- fnd_msg_pub.add;
639: -- x_return_status := fnd_api.g_ret_sts_unexp_error;
640: -- END IF;
633: -- FETCH c_ppf_emp_num INTO x_emp_resource_id;
634: -- IF c_ppf_emp_num%NOTFOUND THEN
635: -- dbms_output.put_line('Invalid or Inactive Employee Resource');
636: -- fnd_message.set_name('JTF', 'JTF_RS_INVALID_EMP_RES_NUMBER');
637: -- fnd_message.set_token('P_EMP_RESOURCE_NUMBER', p_emp_resource_number);
638: -- fnd_msg_pub.add;
639: -- x_return_status := fnd_api.g_ret_sts_unexp_error;
640: -- END IF;
641: -- CLOSE c_ppf_emp_num;
670: IF p_time_zone_id IS NULL THEN
671:
672: -- dbms_output.put_line('Time Zone Id is null');
673:
674: fnd_message.set_name('JTF', 'JTF_RS_TIME_ZONE_NULL');
675: fnd_msg_pub.add;
676:
677: x_return_status := fnd_api.g_ret_sts_error;
678:
687: IF c_time_zone_id%NOTFOUND THEN
688:
689: -- dbms_output.put_line('Invalid Time Zone');
690:
691: fnd_message.set_name('JTF', 'JTF_RS_INVALID_TIME_ZONE');
692: fnd_message.set_token('P_TIME_ZONE_ID', p_time_zone_id);
693: fnd_msg_pub.add;
694:
695: x_return_status := fnd_api.g_ret_sts_error;
688:
689: -- dbms_output.put_line('Invalid Time Zone');
690:
691: fnd_message.set_name('JTF', 'JTF_RS_INVALID_TIME_ZONE');
692: fnd_message.set_token('P_TIME_ZONE_ID', p_time_zone_id);
693: fnd_msg_pub.add;
694:
695: x_return_status := fnd_api.g_ret_sts_error;
696:
725: IF p_nls_language IS NULL THEN
726:
727: -- dbms_output.put_line('Language is null');
728:
729: fnd_message.set_name('JTF', 'JTF_RS_LANGUAGE_NULL');
730: fnd_msg_pub.add;
731:
732: x_return_status := fnd_api.g_ret_sts_error;
733:
742: IF c_nls_language%NOTFOUND THEN
743:
744: -- dbms_output.put_line('Invalid Language');
745:
746: fnd_message.set_name('JTF', 'JTF_RS_INVALID_LANGUAGE');
747: fnd_message.set_token('P_LANGUAGE', p_nls_language);
748: fnd_msg_pub.add;
749:
750: x_return_status := fnd_api.g_ret_sts_error;
743:
744: -- dbms_output.put_line('Invalid Language');
745:
746: fnd_message.set_name('JTF', 'JTF_RS_INVALID_LANGUAGE');
747: fnd_message.set_token('P_LANGUAGE', p_nls_language);
748: fnd_msg_pub.add;
749:
750: x_return_status := fnd_api.g_ret_sts_error;
751:
783: IF p_support_site_id IS NULL THEN
784:
785: -- dbms_output.put_line('Support Site is null');
786:
787: fnd_message.set_name('JTF', 'JTF_RS_SUPPORT_SITE_NULL');
788: fnd_msg_pub.add;
789:
790: x_return_status := fnd_api.g_ret_sts_error;
791:
800: IF c_support_site_id%NOTFOUND THEN
801:
802: -- dbms_output.put_line('Invalid Support Site');
803:
804: fnd_message.set_name('JTF', 'JTF_RS_INVALID_SUPPORT_SITE');
805: fnd_message.set_token('P_SUPPORT_SITE_ID', p_support_site_id);
806: fnd_msg_pub.add;
807:
808: x_return_status := fnd_api.g_ret_sts_error;
801:
802: -- dbms_output.put_line('Invalid Support Site');
803:
804: fnd_message.set_name('JTF', 'JTF_RS_INVALID_SUPPORT_SITE');
805: fnd_message.set_token('P_SUPPORT_SITE_ID', p_support_site_id);
806: fnd_msg_pub.add;
807:
808: x_return_status := fnd_api.g_ret_sts_error;
809:
848: IF c_server_group_id%NOTFOUND THEN
849:
850: -- dbms_output.put_line('Invalid Server Group Id');
851:
852: fnd_message.set_name('JTF', 'JTF_RS_INVALID_SRV_GROUP_ID');
853: fnd_message.set_token('P_SERVER_GROUP_ID', p_server_group_id);
854: fnd_msg_pub.add;
855:
856: x_return_status := fnd_api.g_ret_sts_error;
849:
850: -- dbms_output.put_line('Invalid Server Group Id');
851:
852: fnd_message.set_name('JTF', 'JTF_RS_INVALID_SRV_GROUP_ID');
853: fnd_message.set_token('P_SERVER_GROUP_ID', p_server_group_id);
854: fnd_msg_pub.add;
855:
856: x_return_status := fnd_api.g_ret_sts_error;
857:
868: IF c_server_group_name%NOTFOUND THEN
869:
870: -- dbms_output.put_line('Invalid Interaction Center Name');
871:
872: fnd_message.set_name('JTF', 'JTF_RS_INVALID_SVR_GROUP_NAME');
873: fnd_message.set_token('P_SERVER_GROUP_NAME', p_server_group_name);
874: fnd_msg_pub.add;
875:
876: x_return_status := fnd_api.g_ret_sts_error;
869:
870: -- dbms_output.put_line('Invalid Interaction Center Name');
871:
872: fnd_message.set_name('JTF', 'JTF_RS_INVALID_SVR_GROUP_NAME');
873: fnd_message.set_token('P_SERVER_GROUP_NAME', p_server_group_name);
874: fnd_msg_pub.add;
875:
876: x_return_status := fnd_api.g_ret_sts_error;
877:
906: IF p_currency_code IS NULL THEN
907:
908: -- dbms_output.put_line('Currency Code is null');
909:
910: fnd_message.set_name('JTF', 'JTF_RS_CURRENCY_NULL');
911: fnd_msg_pub.add;
912:
913: x_return_status := fnd_api.g_ret_sts_error;
914:
923: IF c_currency_code%NOTFOUND THEN
924:
925: -- dbms_output.put_line('Invalid Currency Code');
926:
927: fnd_message.set_name('JTF', 'JTF_RS_INVALID_CURRENCY');
928: fnd_message.set_token('P_CURRENCY', p_currency_code);
929: fnd_msg_pub.add;
930:
931: x_return_status := fnd_api.g_ret_sts_error;
924:
925: -- dbms_output.put_line('Invalid Currency Code');
926:
927: fnd_message.set_name('JTF', 'JTF_RS_INVALID_CURRENCY');
928: fnd_message.set_token('P_CURRENCY', p_currency_code);
929: fnd_msg_pub.add;
930:
931: x_return_status := fnd_api.g_ret_sts_error;
932:
962: IF p_hold_reason_code IS NULL THEN
963:
964: -- dbms_output.put_line('Hold Reason Code is null');
965:
966: fnd_message.set_name('JTF', 'JTF_RS_HOLD_REASON_CODE_NULL');
967: fnd_msg_pub.add;
968:
969: x_return_status := fnd_api.g_ret_sts_error;
970:
979: IF c_hold_reason_code%NOTFOUND THEN
980:
981: -- dbms_output.put_line('Invalid Hold Reason Code');
982:
983: fnd_message.set_name('JTF', 'JTF_RS_INVALID_HOLD_REASON_COD');
984: fnd_message.set_token('P_HOLD_REASON_CODE', p_hold_reason_code);
985: fnd_msg_pub.add;
986:
987: x_return_status := fnd_api.g_ret_sts_error;
980:
981: -- dbms_output.put_line('Invalid Hold Reason Code');
982:
983: fnd_message.set_name('JTF', 'JTF_RS_INVALID_HOLD_REASON_COD');
984: fnd_message.set_token('P_HOLD_REASON_CODE', p_hold_reason_code);
985: fnd_msg_pub.add;
986:
987: x_return_status := fnd_api.g_ret_sts_error;
988:
1023: IF p_team_id IS NULL AND p_team_number is NULL THEN
1024:
1025: -- dbms_output.put_line('Team Id and Team Number are null');
1026:
1027: fnd_message.set_name('JTF', 'JTF_RS_TEAM_NULL');
1028: fnd_msg_pub.add;
1029:
1030: x_return_status := fnd_api.g_ret_sts_error;
1031:
1041: IF c_team_id%NOTFOUND THEN
1042:
1043: -- dbms_output.put_line('Invalid Team Id');
1044:
1045: fnd_message.set_name('JTF', 'JTF_RS_INVALID_TEAM');
1046: fnd_message.set_token('P_TEAM_ID', p_team_id);
1047: fnd_msg_pub.add;
1048:
1049: x_return_status := fnd_api.g_ret_sts_error;
1042:
1043: -- dbms_output.put_line('Invalid Team Id');
1044:
1045: fnd_message.set_name('JTF', 'JTF_RS_INVALID_TEAM');
1046: fnd_message.set_token('P_TEAM_ID', p_team_id);
1047: fnd_msg_pub.add;
1048:
1049: x_return_status := fnd_api.g_ret_sts_error;
1050:
1061: IF c_team_number%NOTFOUND THEN
1062:
1063: -- dbms_output.put_line('Invalid Team Number');
1064:
1065: fnd_message.set_name('JTF', 'JTF_RS_INVALID_TEAM_NUMBER');
1066: fnd_message.set_token('P_TEAM_NUMBER', p_team_number);
1067: fnd_msg_pub.add;
1068:
1069: x_return_status := fnd_api.g_ret_sts_error;
1062:
1063: -- dbms_output.put_line('Invalid Team Number');
1064:
1065: fnd_message.set_name('JTF', 'JTF_RS_INVALID_TEAM_NUMBER');
1066: fnd_message.set_token('P_TEAM_NUMBER', p_team_number);
1067: fnd_msg_pub.add;
1068:
1069: x_return_status := fnd_api.g_ret_sts_error;
1070:
1103: IF p_user_id IS NULL THEN
1104:
1105: -- dbms_output.put_line('User Id is null');
1106:
1107: fnd_message.set_name('JTF', 'JTF_RS_USER_ID_NULL');
1108: fnd_msg_pub.add;
1109:
1110: x_return_status := fnd_api.g_ret_sts_error;
1111:
1120: IF c_user_id%NOTFOUND THEN
1121:
1122: -- dbms_output.put_line('Invalid User Id');
1123:
1124: fnd_message.set_name('JTF', 'JTF_RS_INVALID_USER_ID');
1125: fnd_message.set_token('P_USER_ID', p_user_id);
1126: fnd_msg_pub.add;
1127:
1128: x_return_status := fnd_api.g_ret_sts_error;
1121:
1122: -- dbms_output.put_line('Invalid User Id');
1123:
1124: fnd_message.set_name('JTF', 'JTF_RS_INVALID_USER_ID');
1125: fnd_message.set_token('P_USER_ID', p_user_id);
1126: fnd_msg_pub.add;
1127:
1128: x_return_status := fnd_api.g_ret_sts_error;
1129:
1159: BEGIN
1160: x_return_status := fnd_api.g_ret_sts_success;
1161: IF p_salesrep_id IS NULL THEN
1162: -- dbms_output.put_line('Salesrep Id is null');
1163: fnd_message.set_name('JTF', 'JTF_RS_SALESREP_ID_NULL');
1164: fnd_msg_pub.add;
1165: x_return_status := fnd_api.g_ret_sts_error;
1166: END IF;
1167: IF p_salesrep_id IS NOT NULL THEN
1168: OPEN c_salesrep_id;
1169: FETCH c_salesrep_id INTO l_salesrep_id;
1170: IF c_salesrep_id%NOTFOUND THEN
1171: -- dbms_output.put_line('Invalid Salesrep Id');
1172: fnd_message.set_name('JTF', 'JTF_RS_INVALID_SALESREP_ID');
1173: fnd_message.set_token('P_SALESREP_ID', p_salesrep_id);
1174: fnd_msg_pub.add;
1175: x_return_status := fnd_api.g_ret_sts_error;
1176: END IF;
1169: FETCH c_salesrep_id INTO l_salesrep_id;
1170: IF c_salesrep_id%NOTFOUND THEN
1171: -- dbms_output.put_line('Invalid Salesrep Id');
1172: fnd_message.set_name('JTF', 'JTF_RS_INVALID_SALESREP_ID');
1173: fnd_message.set_token('P_SALESREP_ID', p_salesrep_id);
1174: fnd_msg_pub.add;
1175: x_return_status := fnd_api.g_ret_sts_error;
1176: END IF;
1177: CLOSE c_salesrep_id;
1274:
1275: END IF;
1276:
1277: IF (l_srp_start_date < l_res_start_date) THEN
1278: fnd_message.set_name('JTF', 'JTF_RS_SRP_STDT_GRTR_RES_STDT');
1279: fnd_msg_pub.add;
1280: x_return_status := fnd_api.g_ret_sts_error;
1281: END IF;
1282:
1280: x_return_status := fnd_api.g_ret_sts_error;
1281: END IF;
1282:
1283: IF (l_srp_end_date > l_res_end_date) THEN
1284: fnd_message.set_name('JTF', 'JTF_RS_SRP_EDDT_GRTR_RES_EDDT');
1285: fnd_msg_pub.add;
1286: x_return_status := fnd_api.g_ret_sts_error;
1287: END IF;
1288:
1305: BEGIN
1306: x_return_status := fnd_api.g_ret_sts_success;
1307: IF p_territory_id IS NULL THEN
1308: -- dbms_output.put_line('Territory Id is null');
1309: fnd_message.set_name('JTF', 'JTF_RS_TERRITORY_ID_NULL');
1310: fnd_msg_pub.add;
1311: x_return_status := fnd_api.g_ret_sts_error;
1312: END IF;
1313: IF p_territory_id IS NOT NULL THEN
1314: OPEN c_territory_id;
1315: FETCH c_territory_id INTO l_territory_id;
1316: IF c_territory_id%NOTFOUND THEN
1317: -- dbms_output.put_line('Invalid Territory Id');
1318: fnd_message.set_name('JTF', 'JTF_RS_INVALID_TERRITORY_ID');
1319: fnd_message.set_token('P_TERRITORY_ID', p_territory_id);
1320: fnd_msg_pub.add;
1321: x_return_status := fnd_api.g_ret_sts_error;
1322: END IF;
1315: FETCH c_territory_id INTO l_territory_id;
1316: IF c_territory_id%NOTFOUND THEN
1317: -- dbms_output.put_line('Invalid Territory Id');
1318: fnd_message.set_name('JTF', 'JTF_RS_INVALID_TERRITORY_ID');
1319: fnd_message.set_token('P_TERRITORY_ID', p_territory_id);
1320: fnd_msg_pub.add;
1321: x_return_status := fnd_api.g_ret_sts_error;
1322: END IF;
1323: CLOSE c_territory_id;
1356:
1357: FETCH c_salesrep_number INTO l_val;
1358:
1359: IF (c_salesrep_number%FOUND) THEN
1360: fnd_message.set_name('JTF', 'JTF_RS_ERR_SALESREP_NUMBER');
1361: fnd_message.set_token('P_SALESREP_NUMBER', p_salesrep_number);
1362: fnd_msg_pub.add;
1363: -- dbms_output.put_line('Salesrep already exists');
1364: x_return_status := fnd_api.g_ret_sts_error;
1357: FETCH c_salesrep_number INTO l_val;
1358:
1359: IF (c_salesrep_number%FOUND) THEN
1360: fnd_message.set_name('JTF', 'JTF_RS_ERR_SALESREP_NUMBER');
1361: fnd_message.set_token('P_SALESREP_NUMBER', p_salesrep_number);
1362: fnd_msg_pub.add;
1363: -- dbms_output.put_line('Salesrep already exists');
1364: x_return_status := fnd_api.g_ret_sts_error;
1365:
1368: CLOSE c_salesrep_number;
1369:
1370: ELSE
1371:
1372: fnd_message.set_name('JTF', 'JTF_RS_SALESREP_NUMBER_NULL');
1373: fnd_msg_pub.add;
1374: -- dbms_output.put_line('Salesrep number is null');
1375: x_return_status := fnd_api.g_ret_sts_error;
1376: /* Commented the below line to fix the bug # 3436895 */
1410: FETCH c_credit_type INTO l_val;
1411:
1412: IF (c_credit_type%NOTFOUND) THEN
1413:
1414: fnd_message.set_name('JTF', 'JTF_RS_ERR_SALES_CREDIT_TYPE');
1415: fnd_message.set_token('P_SALES_CREDIT_TYPE_ID', p_sales_credit_type_id);
1416: fnd_msg_pub.add;
1417: -- dbms_output.put_line('Invalid Sales Credit Type');
1418: x_return_status := fnd_api.g_ret_sts_error;
1411:
1412: IF (c_credit_type%NOTFOUND) THEN
1413:
1414: fnd_message.set_name('JTF', 'JTF_RS_ERR_SALES_CREDIT_TYPE');
1415: fnd_message.set_token('P_SALES_CREDIT_TYPE_ID', p_sales_credit_type_id);
1416: fnd_msg_pub.add;
1417: -- dbms_output.put_line('Invalid Sales Credit Type');
1418: x_return_status := fnd_api.g_ret_sts_error;
1419:
1422: CLOSE c_credit_type;
1423:
1424: ELSE
1425:
1426: fnd_message.set_name('JTF', 'JTF_RS_SALES_CREDIT_TYPE_NULL');
1427: fnd_msg_pub.add;
1428: x_return_status := fnd_api.g_ret_sts_error;
1429: -- dbms_output.put_line('Sales Credit type id is NULL');
1430:
1567: end if;
1568: ELSE
1569: --if object not found
1570: x_return_status := fnd_api.g_ret_sts_error;
1571: fnd_message.set_name ('JTF', 'JTF_RS_INVALID_RL_RES_TYPE');
1572: FND_MSG_PUB.add;
1573:
1574: END IF;
1575:
1580: ELSE
1581:
1582: --IF object user code is not valid
1583: x_return_status := fnd_api.g_ret_sts_error;
1584: fnd_message.set_name ('JTF', 'JTF_RS_INVALID_OBJ_USER_CODE');
1585: FND_MSG_PUB.add;
1586:
1587: END IF;
1588:
1597: end if;
1598: if object_dtls_cur%ISOPEN THEN
1599: close object_dtls_cur;
1600: end if;
1601: fnd_message.set_name ('JTF', 'JTF_OBJECT_ERR');
1602: FND_MSG_PUB.add;
1603: WHEN fnd_api.g_exc_error
1604: THEN
1605: null;
1611: end if;
1612: if object_dtls_cur%ISOPEN THEN
1613: close object_dtls_cur;
1614: end if;
1615: fnd_message.set_name ('JTF', 'JTF_RS_UNEXP_ERROR');
1616: fnd_message.set_token('P_SQLCODE',SQLCODE);
1617: fnd_message.set_token('P_SQLERRM',SQLERRM);
1618: fnd_message.set_token('P_API_NAME','CHECK_OBJECT_EXISTENCE');
1619: FND_MSG_PUB.add;
1612: if object_dtls_cur%ISOPEN THEN
1613: close object_dtls_cur;
1614: end if;
1615: fnd_message.set_name ('JTF', 'JTF_RS_UNEXP_ERROR');
1616: fnd_message.set_token('P_SQLCODE',SQLCODE);
1617: fnd_message.set_token('P_SQLERRM',SQLERRM);
1618: fnd_message.set_token('P_API_NAME','CHECK_OBJECT_EXISTENCE');
1619: FND_MSG_PUB.add;
1620: x_return_status := fnd_api.g_ret_sts_unexp_error;
1613: close object_dtls_cur;
1614: end if;
1615: fnd_message.set_name ('JTF', 'JTF_RS_UNEXP_ERROR');
1616: fnd_message.set_token('P_SQLCODE',SQLCODE);
1617: fnd_message.set_token('P_SQLERRM',SQLERRM);
1618: fnd_message.set_token('P_API_NAME','CHECK_OBJECT_EXISTENCE');
1619: FND_MSG_PUB.add;
1620: x_return_status := fnd_api.g_ret_sts_unexp_error;
1621:
1614: end if;
1615: fnd_message.set_name ('JTF', 'JTF_RS_UNEXP_ERROR');
1616: fnd_message.set_token('P_SQLCODE',SQLCODE);
1617: fnd_message.set_token('P_SQLERRM',SQLERRM);
1618: fnd_message.set_token('P_API_NAME','CHECK_OBJECT_EXISTENCE');
1619: FND_MSG_PUB.add;
1620: x_return_status := fnd_api.g_ret_sts_unexp_error;
1621:
1622: END check_object_existence;
1787:
1788: ELSE
1789: --if object not found
1790: x_return_status := fnd_api.g_ret_sts_unexp_error;
1791: fnd_message.set_name ('JTF', 'JTF_RS_INVALID_RL_RES_TYPE');
1792: FND_MSG_PUB.add;
1793:
1794: END IF;
1795:
1800: ELSE
1801:
1802: --IF object user code is not valid
1803: x_return_status := fnd_api.g_ret_sts_unexp_error;
1804: fnd_message.set_name ('JTF', 'JTF_RS_INVALID_OBJ_USER_CODE');
1805: FND_MSG_PUB.add;
1806:
1807: END IF;
1808:
1818: if object_dtls_cur%ISOPEN then
1819: close object_dtls_cur;
1820: end if;
1821:
1822: fnd_message.set_name ('JTF', 'JTF_OBJECT_ERR');
1823: FND_MSG_PUB.add;
1824: x_return_status := fnd_api.g_ret_sts_unexp_error;
1825: --FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1826:
1834: end if;
1835: if object_dtls_cur%ISOPEN then
1836: close object_dtls_cur;
1837: end if;
1838: fnd_message.set_name ('JTF', 'JTF_RS_UNEXP_ERROR');
1839: fnd_message.set_token('P_SQLCODE',SQLCODE);
1840: fnd_message.set_token('P_SQLERRM',SQLERRM);
1841: fnd_message.set_token('P_API_NAME','CHECK_OBJECT_EXISTENCE_MIGR');
1842: FND_MSG_PUB.add;
1835: if object_dtls_cur%ISOPEN then
1836: close object_dtls_cur;
1837: end if;
1838: fnd_message.set_name ('JTF', 'JTF_RS_UNEXP_ERROR');
1839: fnd_message.set_token('P_SQLCODE',SQLCODE);
1840: fnd_message.set_token('P_SQLERRM',SQLERRM);
1841: fnd_message.set_token('P_API_NAME','CHECK_OBJECT_EXISTENCE_MIGR');
1842: FND_MSG_PUB.add;
1843: x_return_status := fnd_api.g_ret_sts_unexp_error;
1836: close object_dtls_cur;
1837: end if;
1838: fnd_message.set_name ('JTF', 'JTF_RS_UNEXP_ERROR');
1839: fnd_message.set_token('P_SQLCODE',SQLCODE);
1840: fnd_message.set_token('P_SQLERRM',SQLERRM);
1841: fnd_message.set_token('P_API_NAME','CHECK_OBJECT_EXISTENCE_MIGR');
1842: FND_MSG_PUB.add;
1843: x_return_status := fnd_api.g_ret_sts_unexp_error;
1844: --FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1837: end if;
1838: fnd_message.set_name ('JTF', 'JTF_RS_UNEXP_ERROR');
1839: fnd_message.set_token('P_SQLCODE',SQLCODE);
1840: fnd_message.set_token('P_SQLERRM',SQLERRM);
1841: fnd_message.set_token('P_API_NAME','CHECK_OBJECT_EXISTENCE_MIGR');
1842: FND_MSG_PUB.add;
1843: x_return_status := fnd_api.g_ret_sts_unexp_error;
1844: --FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1845: END check_object_existence_migr;
1865:
1866: x_return_status := fnd_api.g_ret_sts_success;
1867:
1868: IF p_resource_param_id IS NULL THEN
1869: fnd_message.set_name('JTF', 'JTF_RS_RESOURCE_PARAM_ID_NULL');
1870: fnd_msg_pub.add;
1871: x_return_status := fnd_api.g_ret_sts_error;
1872: END IF;
1873:
1876: OPEN c_resource_param_id;
1877: FETCH c_resource_param_id INTO l_resource_param_id;
1878:
1879: IF c_resource_param_id%NOTFOUND THEN
1880: fnd_message.set_name('JTF', 'JTF_RS_INVALID_RS_PRM_ID');
1881: fnd_message.set_token('P_RESOURCE_PARAM_ID', p_resource_param_id);
1882: fnd_msg_pub.add;
1883: x_return_status := fnd_api.g_ret_sts_error;
1884: END IF;
1877: FETCH c_resource_param_id INTO l_resource_param_id;
1878:
1879: IF c_resource_param_id%NOTFOUND THEN
1880: fnd_message.set_name('JTF', 'JTF_RS_INVALID_RS_PRM_ID');
1881: fnd_message.set_token('P_RESOURCE_PARAM_ID', p_resource_param_id);
1882: fnd_msg_pub.add;
1883: x_return_status := fnd_api.g_ret_sts_error;
1884: END IF;
1885: CLOSE c_resource_param_id;
1941: FETCH c_value_type_m INTO l_value_type;
1942:
1943: IF c_value_type_m%NOTFOUND THEN
1944:
1945: fnd_message.set_name('JTF', 'JTF_RS_INVALID_VALUE_TYPE');
1946: fnd_message.set_token('P_VALUE_TYPE', p_value_type);
1947: fnd_msg_pub.add;
1948:
1949: x_return_status := fnd_api.g_ret_sts_error;
1942:
1943: IF c_value_type_m%NOTFOUND THEN
1944:
1945: fnd_message.set_name('JTF', 'JTF_RS_INVALID_VALUE_TYPE');
1946: fnd_message.set_token('P_VALUE_TYPE', p_value_type);
1947: fnd_msg_pub.add;
1948:
1949: x_return_status := fnd_api.g_ret_sts_error;
1950: END IF;
1955: if server_group_check = 'N' then
1956: OPEN c_value_type_no_sg_check;
1957: FETCH c_value_type_no_sg_check INTO l_value_type;
1958: IF c_value_type_no_sg_check%NOTFOUND THEN
1959: fnd_message.set_name('JTF', 'JTF_RS_INVALID_VALUE_TYPE');
1960: fnd_message.set_token('P_VALUE_TYPE', p_value_type);
1961: fnd_msg_pub.add;
1962: x_return_status := fnd_api.g_ret_sts_error;
1963: END IF;
1956: OPEN c_value_type_no_sg_check;
1957: FETCH c_value_type_no_sg_check INTO l_value_type;
1958: IF c_value_type_no_sg_check%NOTFOUND THEN
1959: fnd_message.set_name('JTF', 'JTF_RS_INVALID_VALUE_TYPE');
1960: fnd_message.set_token('P_VALUE_TYPE', p_value_type);
1961: fnd_msg_pub.add;
1962: x_return_status := fnd_api.g_ret_sts_error;
1963: END IF;
1964: CLOSE c_value_type_no_sg_check;
1965: else
1966: OPEN c_value_type_e (c_application_id);
1967: FETCH c_value_type_e INTO l_value_type;
1968: IF c_value_type_e%NOTFOUND THEN
1969: fnd_message.set_name('JTF', 'JTF_RS_INVALID_VALUE_TYPE');
1970: fnd_message.set_token('P_VALUE_TYPE', p_value_type);
1971: fnd_msg_pub.add;
1972: x_return_status := fnd_api.g_ret_sts_error;
1973: END IF;
1966: OPEN c_value_type_e (c_application_id);
1967: FETCH c_value_type_e INTO l_value_type;
1968: IF c_value_type_e%NOTFOUND THEN
1969: fnd_message.set_name('JTF', 'JTF_RS_INVALID_VALUE_TYPE');
1970: fnd_message.set_token('P_VALUE_TYPE', p_value_type);
1971: fnd_msg_pub.add;
1972: x_return_status := fnd_api.g_ret_sts_error;
1973: END IF;
1974: CLOSE c_value_type_e;
2012:
2013: p_length:=LENGTH(p_value);
2014: x_return_status := fnd_api.g_ret_sts_success;
2015: IF p_value IS NULL THEN
2016: fnd_message.set_name('JTF', 'JTF_RS_VALUE_NULL');
2017: fnd_msg_pub.add;
2018: x_return_status := fnd_api.g_ret_sts_error;
2019: END IF;
2020:
2026: IF NOT ((SUBSTR(l_value,i,1)='0') or (SUBSTR(l_value,i,1)='1') or (SUBSTR(l_value,i,1)='2') or
2027: (SUBSTR(l_value,i,1)='3') or (SUBSTR(l_value,i,1)='4') or (SUBSTR(l_value,i,1)='5') or
2028: (SUBSTR(l_value,i,1)='6') or (SUBSTR(l_value,i,1)='7') or (SUBSTR(l_value,i,1)='8') or
2029: (SUBSTR(l_value,i,1)='9')) THEN
2030: fnd_message.set_name('JTF', 'JTF_RS_VALUE_ERR_DATA_TYPE');
2031: fnd_msg_pub.add;
2032: x_return_status := fnd_api.g_ret_sts_error;
2033: END IF;
2034: END LOOP;
2033: END IF;
2034: END LOOP;
2035: END IF;
2036: IF (p_length > to_number(v_length)) or (p_length = 0 ) THEN
2037: fnd_message.set_name('JTF', 'JTF_RS_VALUE_INCORRECT_LENGTH');
2038: fnd_msg_pub.add;
2039: x_return_status := fnd_api.g_ret_sts_error;
2040: END IF;
2041: END IF;
2065:
2066: BEGIN
2067: x_return_status := fnd_api.g_ret_sts_success;
2068: IF p_role_id IS NULL AND p_role_code is NULL THEN
2069: fnd_message.set_name('JTF', 'JTF_RS_ROLE_NULL');
2070: fnd_msg_pub.add;
2071: x_return_status := fnd_api.g_ret_sts_error;
2072: END IF;
2073:
2074: IF p_role_id IS NOT NULL THEN
2075: OPEN c_role_id;
2076: FETCH c_role_id INTO x_role_id;
2077: IF c_role_id%NOTFOUND THEN
2078: fnd_message.set_name('JTF', 'JTF_RS_INVALID_ROLE');
2079: fnd_message.set_token('P_ROLE_ID', p_role_id);
2080: fnd_msg_pub.add;
2081: x_return_status := fnd_api.g_ret_sts_error;
2082: END IF;
2075: OPEN c_role_id;
2076: FETCH c_role_id INTO x_role_id;
2077: IF c_role_id%NOTFOUND THEN
2078: fnd_message.set_name('JTF', 'JTF_RS_INVALID_ROLE');
2079: fnd_message.set_token('P_ROLE_ID', p_role_id);
2080: fnd_msg_pub.add;
2081: x_return_status := fnd_api.g_ret_sts_error;
2082: END IF;
2083: CLOSE c_role_id;
2085: ELSIF p_role_code IS NOT NULL THEN
2086: OPEN c_role_code;
2087: FETCH c_role_code INTO x_role_id;
2088: IF c_role_code%NOTFOUND THEN
2089: fnd_message.set_name('JTF', 'JTF_RS_INVALID_ROLE_CODE');
2090: fnd_message.set_token('P_ROLE_CODE', p_role_code);
2091: fnd_msg_pub.add;
2092: x_return_status := fnd_api.g_ret_sts_error;
2093: END IF;
2086: OPEN c_role_code;
2087: FETCH c_role_code INTO x_role_id;
2088: IF c_role_code%NOTFOUND THEN
2089: fnd_message.set_name('JTF', 'JTF_RS_INVALID_ROLE_CODE');
2090: fnd_message.set_token('P_ROLE_CODE', p_role_code);
2091: fnd_msg_pub.add;
2092: x_return_status := fnd_api.g_ret_sts_error;
2093: END IF;
2094: CLOSE c_role_code;
2109: BEGIN
2110: x_return_status := fnd_api.g_ret_sts_success;
2111: l_rs_role_flag := upper(p_rs_role_flag);
2112: IF ( l_rs_role_flag <> 'Y' and l_rs_role_flag <>'N') THEN
2113: fnd_message.set_name('JTF', 'JTF_RS_INVALID_FLAG');
2114: fnd_message.set_token('P_RS_ROLE_FLAG', p_rs_role_flag);
2115: fnd_msg_pub.add;
2116: x_return_status := fnd_api.g_ret_sts_error;
2117: END IF;
2110: x_return_status := fnd_api.g_ret_sts_success;
2111: l_rs_role_flag := upper(p_rs_role_flag);
2112: IF ( l_rs_role_flag <> 'Y' and l_rs_role_flag <>'N') THEN
2113: fnd_message.set_name('JTF', 'JTF_RS_INVALID_FLAG');
2114: fnd_message.set_token('P_RS_ROLE_FLAG', p_rs_role_flag);
2115: fnd_msg_pub.add;
2116: x_return_status := fnd_api.g_ret_sts_error;
2117: END IF;
2118: END validate_rs_role_flags;