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;
106:
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 ;
113:
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;
130:
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:
165: END IF;
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:
184: END IF;
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:
204: END IF;
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:
250: END IF;
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:
269: END IF;
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:
289: END IF;
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:
320: END IF;
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:
338: END IF;
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:
375: END IF;
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:
393: END IF;
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:
439: END IF;
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:
457: END IF;
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;
530: /* Removed the below code for bug # 3455951 */
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;
542: */
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;
554:
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;
566:
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;
578:
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;
590:
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;
630:
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;
642:
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:
679: END IF;
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:
697: END IF;
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:
734: END IF;
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:
752: END IF;
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:
792: END IF;
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:
810: END IF;
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:
858: END IF;
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:
878: END IF;
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:
915: END IF;
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:
933: END IF;
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:
971: END IF;
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:
989: END IF;
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:
1032: END IF;
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:
1051: END IF;
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:
1071: END IF;
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:
1112: END IF;
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:
1130: END IF;
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;
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;
1178: END IF;
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:
1283: IF (l_srp_end_date > l_res_end_date) THEN
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:
1289: END validate_salesrep_dates;
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;
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;
1324: END IF;
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:
1366: END IF;
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 */
1377: -- CLOSE c_salesrep_number;
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:
1420: END IF;
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:
1431: 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:
1576: if object_dtls_cur%ISOPEN THEN
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:
1589: --FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1585: FND_MSG_PUB.add;
1586:
1587: END IF;
1588:
1589: --FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1590:
1591: EXCEPTION
1592:
1593: WHEN fnd_api.g_exc_unexpected_error
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;
1606:
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;
1623:
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:
1796: if object_dtls_cur%ISOPEN then
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:
1809: --FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1805: FND_MSG_PUB.add;
1806:
1807: END IF;
1808:
1809: --FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1810:
1811: EXCEPTION
1812:
1813: WHEN fnd_api.g_exc_unexpected_error
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:
1827: WHEN fnd_api.g_exc_error
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:
1827: WHEN fnd_api.g_exc_error
1828: THEN
1829: x_return_status := fnd_api.g_ret_sts_error;
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;
1846:
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;
1846:
1847:
1848:
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:
1874: IF p_resource_param_id IS NOT NULL THEN
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;
1886: END IF;
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;
1951:
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
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;
1975: end if;
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:
2021: OPEN c_lookup_code;
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;
2035: 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;
2042: CLOSE c_lookup_code;
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
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;
2084:
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;
2095: END IF;
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;
2119: