[Home] [Help]
179: END IF;
180: END IF;
181:
182: IF (set_err_var='Y') THEN
183: raise fnd_api.g_exc_error;
184: END IF;
185:
186: -- End Code for Enh
187:
210:
211: commit;
212:
213: EXCEPTION
214: WHEN fnd_api.g_exc_error
215: THEN
216: fnd_file.put_line(fnd_file.log, sqlcode||':'||sqlerrm);
217: ROLLBACK TO CONC_EMPLOYEE_SP;
218: WHEN fnd_api.g_exc_unexpected_error
214: WHEN fnd_api.g_exc_error
215: THEN
216: fnd_file.put_line(fnd_file.log, sqlcode||':'||sqlerrm);
217: ROLLBACK TO CONC_EMPLOYEE_SP;
218: WHEN fnd_api.g_exc_unexpected_error
219: THEN
220: fnd_file.put_line(fnd_file.log, sqlcode||':'||sqlerrm);
221: ROLLBACK TO CONC_EMPLOYEE_SP;
222: --FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
531:
532: --Standard Start of API SAVEPOINT
533: SAVEPOINT CREATE_EMPLOYEE_SP;
534:
535: l_return_status := fnd_api.g_ret_sts_success;
536:
537: -- Fetch Sales Credit Type if you want to create Salesperson
538: IF (p_create_srp='Y') THEN
539: OPEN c_sales_credit_type_id (l_sales_credit_type);
583: open fetch_phone(fetch_emp_rec.person_id);
584: fetch fetch_phone into l_phone;
585: close fetch_phone;
586:
587: l_return_status := fnd_api.g_ret_sts_success;
588: r_return_status := fnd_api.g_ret_sts_success;
589: s_return_status := fnd_api.g_ret_sts_success;
590:
591: --fetch active emp dates
584: fetch fetch_phone into l_phone;
585: close fetch_phone;
586:
587: l_return_status := fnd_api.g_ret_sts_success;
588: r_return_status := fnd_api.g_ret_sts_success;
589: s_return_status := fnd_api.g_ret_sts_success;
590:
591: --fetch active emp dates
592: l_active_emp_start_date := NULL;
585: close fetch_phone;
586:
587: l_return_status := fnd_api.g_ret_sts_success;
588: r_return_status := fnd_api.g_ret_sts_success;
589: s_return_status := fnd_api.g_ret_sts_success;
590:
591: --fetch active emp dates
592: l_active_emp_start_date := NULL;
593: l_active_emp_end_date := NULL;
633: -- call the public api for create resource
634: /* Fix for bug # 3300436. commented P_END_DATE_ACTIVE */
635: jtf_rs_resource_pub.create_resource
636: ( P_API_VERSION => 1,
637: P_INIT_MSG_LIST => fnd_api.g_true,
638: P_COMMIT => fnd_api.g_false,
639: P_CATEGORY => 'EMPLOYEE',
640: P_SOURCE_ID => fetch_emp_rec.person_id,
641: P_ADDRESS_ID => fetch_emp_rec.address_id,
634: /* Fix for bug # 3300436. commented P_END_DATE_ACTIVE */
635: jtf_rs_resource_pub.create_resource
636: ( P_API_VERSION => 1,
637: P_INIT_MSG_LIST => fnd_api.g_true,
638: P_COMMIT => fnd_api.g_false,
639: P_CATEGORY => 'EMPLOYEE',
640: P_SOURCE_ID => fetch_emp_rec.person_id,
641: P_ADDRESS_ID => fetch_emp_rec.address_id,
642: P_CONTACT_ID => null,
699: P_USER_NAME => l_user_name
700: );
701:
702: -- dbms_output.put_line('name '||fetch_emp_rec.full_name);
703: IF ( l_return_status <> fnd_api.g_ret_sts_success) THEN
704: fnd_message.set_name('JTF', 'JTF_RS_CONC_CREATE_EMP_ERR');
705: fnd_message.set_token('P_EMPLOYEE_NAME', fetch_emp_rec.full_name);
706: fnd_file.put_line(fnd_file.log, fnd_message.get);
707: FOR i IN 1..l_msg_count
706: fnd_file.put_line(fnd_file.log, fnd_message.get);
707: FOR i IN 1..l_msg_count
708: LOOP
709: fnd_file.put_line(fnd_file.log, (fnd_msg_pub.get(i,
710: p_encoded => fnd_api.g_false)));
711: END LOOP;
712: fnd_msg_pub.delete_msg;
713: fnd_file.new_line(fnd_file.log,1);
714: raise fnd_api.g_exc_error;
710: p_encoded => fnd_api.g_false)));
711: END LOOP;
712: fnd_msg_pub.delete_msg;
713: fnd_file.new_line(fnd_file.log,1);
714: raise fnd_api.g_exc_error;
715: END IF;
716:
717: -- Code added by repuri (04/09/03) for Enh/Bug # 2828368
718:
761: IF (l_salesperson_number IS NOT NULL AND l_sales_credit_type_id IS NOT NULL) THEN
762: --Create a Salesperson for the Resource Created above
763: JTF_RS_SALESREPS_PUB.CREATE_SALESREP (
764: p_api_version => 1.0,
765: p_init_msg_list => fnd_api.g_true,
766: p_commit => fnd_api.g_false,
767: p_resource_id => l_resource_id,
768: p_sales_credit_type_id => l_sales_credit_type_id,
769: p_salesrep_number => l_salesperson_number,
762: --Create a Salesperson for the Resource Created above
763: JTF_RS_SALESREPS_PUB.CREATE_SALESREP (
764: p_api_version => 1.0,
765: p_init_msg_list => fnd_api.g_true,
766: p_commit => fnd_api.g_false,
767: p_resource_id => l_resource_id,
768: p_sales_credit_type_id => l_sales_credit_type_id,
769: p_salesrep_number => l_salesperson_number,
770: p_name => fetch_emp_rec.full_name,
790: fnd_message.set_token('P_EMPLOYEE_NAME', fetch_emp_rec.full_name);
791: fnd_file.put_line(fnd_file.log, fnd_message.get);
792: FOR i IN 1..s_msg_count LOOP
793: fnd_file.put_line(fnd_file.log, (fnd_msg_pub.get(i,
794: p_encoded => fnd_api.g_false)));
795: END LOOP;
796: fnd_msg_pub.delete_msg;
797: fnd_file.new_line(fnd_file.log,1);
798: raise fnd_api.g_exc_error;
794: p_encoded => fnd_api.g_false)));
795: END LOOP;
796: fnd_msg_pub.delete_msg;
797: fnd_file.new_line(fnd_file.log,1);
798: raise fnd_api.g_exc_error;
799: END IF;
800: l_salesrep_extsts := 'Y';
801: END IF;
802: END IF;
819: if not (l_salesrep_extsts = 'N' and l_role_type_code = 'SALES_COMP') then
820:
821: JTF_RS_ROLE_RELATE_PVT.CREATE_RESOURCE_ROLE_RELATE(
822: p_api_version => 1.0,
823: p_init_msg_list => fnd_api.g_true,
824: p_commit => fnd_api.g_false,
825: p_role_resource_type => 'RS_INDIVIDUAL',
826: p_role_resource_id => l_resource_id,
827: p_role_id => i.role_id,
820:
821: JTF_RS_ROLE_RELATE_PVT.CREATE_RESOURCE_ROLE_RELATE(
822: p_api_version => 1.0,
823: p_init_msg_list => fnd_api.g_true,
824: p_commit => fnd_api.g_false,
825: p_role_resource_type => 'RS_INDIVIDUAL',
826: p_role_resource_id => l_resource_id,
827: p_role_id => i.role_id,
828: p_start_date_active => l_asg_start_date,
830: x_msg_count => r_msg_count,
831: x_msg_data => r_msg_data,
832: x_role_relate_id => l_role_relate_id
833: );
834: IF ( r_return_status <> fnd_api.g_ret_sts_success) THEN
835: l_role_name := NULL;
836: OPEN c_role_name (i.role_id);
837: FETCH c_role_name INTO l_role_name;
838: CLOSE c_role_name;
841: fnd_message.set_token('P_ROLE_NAME',l_role_name);
842: fnd_file.put_line(fnd_file.log, fnd_message.get);
843: FOR i IN 1..r_msg_count LOOP
844: fnd_file.put_line(fnd_file.log, (fnd_msg_pub.get(i,
845: p_encoded => fnd_api.g_false)));
846: END LOOP;
847: fnd_msg_pub.delete_msg;
848: fnd_file.new_line(fnd_file.log,1);
849: raise fnd_api.g_exc_error;
845: p_encoded => fnd_api.g_false)));
846: END LOOP;
847: fnd_msg_pub.delete_msg;
848: fnd_file.new_line(fnd_file.log,1);
849: raise fnd_api.g_exc_error;
850: END IF;
851: end if; -- End of Check for Sales Comp Roles
852: END LOOP;
853:
861:
862: END IF;
863:
864: EXCEPTION
865: WHEN fnd_api.g_exc_error
866: THEN
867: fnd_file.put_line(fnd_file.log, SQLCODE||':'||SQLERRM);
868: ROLLBACK TO create_resource_sp;
869: WHEN fnd_api.g_exc_unexpected_error
865: WHEN fnd_api.g_exc_error
866: THEN
867: fnd_file.put_line(fnd_file.log, SQLCODE||':'||SQLERRM);
868: ROLLBACK TO create_resource_sp;
869: WHEN fnd_api.g_exc_unexpected_error
870: THEN
871: fnd_file.put_line(fnd_file.log, SQLCODE||':'||SQLERRM);
872: ROLLBACK TO create_resource_sp;
873: WHEN OTHERS
923: close fetch_future_phone;
924:
925:
926:
927: l_return_status := fnd_api.g_ret_sts_success;
928: r_return_status := fnd_api.g_ret_sts_success;
929: s_return_status := fnd_api.g_ret_sts_success;
930:
931: --fetch active emp dates
924:
925:
926:
927: l_return_status := fnd_api.g_ret_sts_success;
928: r_return_status := fnd_api.g_ret_sts_success;
929: s_return_status := fnd_api.g_ret_sts_success;
930:
931: --fetch active emp dates
932: l_active_emp_start_date := NULL;
925:
926:
927: l_return_status := fnd_api.g_ret_sts_success;
928: r_return_status := fnd_api.g_ret_sts_success;
929: s_return_status := fnd_api.g_ret_sts_success;
930:
931: --fetch active emp dates
932: l_active_emp_start_date := NULL;
933: l_active_emp_end_date := NULL;
965: -- call the public api for create resource
966: /* Fix for bug # 3300436. commented P_END_DATE_ACTIVE */
967: jtf_rs_resource_pub.create_resource
968: ( P_API_VERSION => 1,
969: P_INIT_MSG_LIST => fnd_api.g_true,
970: P_COMMIT => fnd_api.g_false,
971: P_CATEGORY => 'EMPLOYEE',
972: P_SOURCE_ID => fetch_emp_rec.person_id,
973: P_ADDRESS_ID => fetch_emp_rec.address_id,
966: /* Fix for bug # 3300436. commented P_END_DATE_ACTIVE */
967: jtf_rs_resource_pub.create_resource
968: ( P_API_VERSION => 1,
969: P_INIT_MSG_LIST => fnd_api.g_true,
970: P_COMMIT => fnd_api.g_false,
971: P_CATEGORY => 'EMPLOYEE',
972: P_SOURCE_ID => fetch_emp_rec.person_id,
973: P_ADDRESS_ID => fetch_emp_rec.address_id,
974: P_CONTACT_ID => null,
1031: P_USER_NAME => l_user_name
1032: );
1033:
1034: -- dbms_output.put_line('name '||fetch_emp_rec.full_name);
1035: IF ( l_return_status <> fnd_api.g_ret_sts_success) THEN
1036:
1037: fnd_message.set_name('JTF', 'JTF_RS_CONC_CREATE_EMP_ERR');
1038: fnd_message.set_token('P_EMPLOYEE_NAME', fetch_emp_rec.full_name);
1039: fnd_file.put_line(fnd_file.log, fnd_message.get);
1039: fnd_file.put_line(fnd_file.log, fnd_message.get);
1040: FOR i IN 1..l_msg_count
1041: LOOP
1042: fnd_file.put_line(fnd_file.log, (fnd_msg_pub.get(i,
1043: p_encoded => fnd_api.g_false)));
1044: END LOOP;
1045: fnd_msg_pub.delete_msg;
1046: fnd_file.new_line(fnd_file.log,1);
1047: raise fnd_api.g_exc_error;
1043: p_encoded => fnd_api.g_false)));
1044: END LOOP;
1045: fnd_msg_pub.delete_msg;
1046: fnd_file.new_line(fnd_file.log,1);
1047: raise fnd_api.g_exc_error;
1048: END IF;
1049:
1050: -- Code added by repuri (04/09/03) for Enh/Bug # 2828368
1051:
1078: IF (l_salesperson_number IS NOT NULL AND l_sales_credit_type_id IS NOT NULL) THEN
1079: --Create a Salesperson for the Resource Created above
1080: JTF_RS_SALESREPS_PUB.CREATE_SALESREP (
1081: p_api_version => 1.0,
1082: p_init_msg_list => fnd_api.g_true,
1083: p_commit => fnd_api.g_false,
1084: p_resource_id => l_resource_id,
1085: p_sales_credit_type_id => l_sales_credit_type_id,
1086: p_salesrep_number => l_salesperson_number,
1079: --Create a Salesperson for the Resource Created above
1080: JTF_RS_SALESREPS_PUB.CREATE_SALESREP (
1081: p_api_version => 1.0,
1082: p_init_msg_list => fnd_api.g_true,
1083: p_commit => fnd_api.g_false,
1084: p_resource_id => l_resource_id,
1085: p_sales_credit_type_id => l_sales_credit_type_id,
1086: p_salesrep_number => l_salesperson_number,
1087: p_name => fetch_emp_rec.full_name,
1108: fnd_message.set_token('P_EMPLOYEE_NAME', fetch_emp_rec.full_name);
1109: fnd_file.put_line(fnd_file.log, fnd_message.get);
1110: FOR i IN 1..s_msg_count LOOP
1111: fnd_file.put_line(fnd_file.log, (fnd_msg_pub.get(i,
1112: p_encoded => fnd_api.g_false)));
1113: END LOOP;
1114: fnd_msg_pub.delete_msg;
1115: fnd_file.new_line(fnd_file.log,1);
1116: raise fnd_api.g_exc_error;
1112: p_encoded => fnd_api.g_false)));
1113: END LOOP;
1114: fnd_msg_pub.delete_msg;
1115: fnd_file.new_line(fnd_file.log,1);
1116: raise fnd_api.g_exc_error;
1117: END IF;
1118: l_salesrep_extsts := 'Y';
1119: END IF;
1120: END IF;
1137: if not (l_salesrep_extsts = 'N' and l_role_type_code = 'SALES_COMP') then
1138:
1139: JTF_RS_ROLE_RELATE_PVT.CREATE_RESOURCE_ROLE_RELATE(
1140: p_api_version => 1.0,
1141: p_init_msg_list => fnd_api.g_true,
1142: p_commit => fnd_api.g_false,
1143: p_role_resource_type => 'RS_INDIVIDUAL',
1144: p_role_resource_id => l_resource_id,
1145: p_role_id => i.role_id,
1138:
1139: JTF_RS_ROLE_RELATE_PVT.CREATE_RESOURCE_ROLE_RELATE(
1140: p_api_version => 1.0,
1141: p_init_msg_list => fnd_api.g_true,
1142: p_commit => fnd_api.g_false,
1143: p_role_resource_type => 'RS_INDIVIDUAL',
1144: p_role_resource_id => l_resource_id,
1145: p_role_id => i.role_id,
1146: p_start_date_active => l_asg_start_date,
1148: x_msg_count => r_msg_count,
1149: x_msg_data => r_msg_data,
1150: x_role_relate_id => l_role_relate_id
1151: );
1152: IF ( r_return_status <> fnd_api.g_ret_sts_success) THEN
1153: l_role_name := NULL;
1154: OPEN c_role_name (i.role_id);
1155: FETCH c_role_name INTO l_role_name;
1156: CLOSE c_role_name;
1160: fnd_message.set_token('P_ROLE_NAME',l_role_name);
1161: fnd_file.put_line(fnd_file.log, fnd_message.get);
1162: FOR i IN 1..r_msg_count LOOP
1163: fnd_file.put_line(fnd_file.log, (fnd_msg_pub.get(i,
1164: p_encoded => fnd_api.g_false)));
1165: END LOOP;
1166:
1167: fnd_msg_pub.delete_msg;
1168: fnd_file.new_line(fnd_file.log,1);
1165: END LOOP;
1166:
1167: fnd_msg_pub.delete_msg;
1168: fnd_file.new_line(fnd_file.log,1);
1169: raise fnd_api.g_exc_error;
1170: END IF;
1171: end if; -- End of Check for Sales Comp Roles
1172: END LOOP;
1173:
1181:
1182: END IF;
1183:
1184: EXCEPTION
1185: WHEN fnd_api.g_exc_error
1186: THEN
1187: fnd_file.put_line(fnd_file.log, SQLCODE||':'||SQLERRM);
1188: ROLLBACK TO create_resource_sp;
1189: WHEN fnd_api.g_exc_unexpected_error
1185: WHEN fnd_api.g_exc_error
1186: THEN
1187: fnd_file.put_line(fnd_file.log, SQLCODE||':'||SQLERRM);
1188: ROLLBACK TO create_resource_sp;
1189: WHEN fnd_api.g_exc_unexpected_error
1190: THEN
1191: fnd_file.put_line(fnd_file.log, SQLCODE||':'||SQLERRM);
1192: ROLLBACK TO create_resource_sp;
1193: WHEN OTHERS
1205:
1206: FND_MSG_PUB.count_and_get (p_count => l_msg_count, p_data => l_msg_data);
1207:
1208: EXCEPTION
1209: WHEN fnd_api.g_exc_error
1210: THEN
1211: fnd_file.put_line(fnd_file.log, sqlcode||':'||sqlerrm);
1212: ROLLBACK TO CREATE_EMPLOYEE_SP;
1213: WHEN fnd_api.g_exc_unexpected_error
1209: WHEN fnd_api.g_exc_error
1210: THEN
1211: fnd_file.put_line(fnd_file.log, sqlcode||':'||sqlerrm);
1212: ROLLBACK TO CREATE_EMPLOYEE_SP;
1213: WHEN fnd_api.g_exc_unexpected_error
1214: THEN
1215: fnd_file.put_line(fnd_file.log, sqlcode||':'||sqlerrm);
1216: ROLLBACK TO CREATE_EMPLOYEE_SP;
1217: WHEN OTHERS
1320:
1321: --Standard Start of API SAVEPOINT
1322: SAVEPOINT TERMINATE_EMPLOYEE_SP;
1323:
1324: l_return_status := fnd_api.g_ret_sts_success;
1325: l_count := 0;
1326:
1327: FND_PROFILE.GET('JTF_RS_RESOURCE_ACTIVE_DAYS',l_active_days);
1328:
1336: BEGIN
1337:
1338: SAVEPOINT TERMINATE_EMPLOYEE_IN_SP;
1339:
1340: l_return_status := fnd_api.g_ret_sts_success;
1341:
1342: -- Additional Code for the Enh #2660474
1343: IF term_emp_rec.source_id IS NOT NULL THEN
1344:
1396: , x_return_status => l_return_status
1397: , x_msg_count => l_msg_count
1398: , x_msg_data => l_msg_data);
1399:
1400: IF ( l_return_status <> fnd_api.g_ret_sts_success) THEN
1401: fnd_message.set_name('JTF', 'JTF_RS_CP_SYN_EMP_TER_RES');
1402: fnd_message.set_token('P_RESOURCE_NAME', term_emp_rec.resource_name);
1403: fnd_file.put_line(fnd_file.log, fnd_message.get);
1404: FOR i IN 1..l_msg_count LOOP
1402: fnd_message.set_token('P_RESOURCE_NAME', term_emp_rec.resource_name);
1403: fnd_file.put_line(fnd_file.log, fnd_message.get);
1404: FOR i IN 1..l_msg_count LOOP
1405: fnd_file.put_line(fnd_file.log, (fnd_msg_pub.get(i,
1406: p_encoded => fnd_api.g_false)));
1407: END LOOP;
1408: fnd_msg_pub.delete_msg;
1409: fnd_file.new_line(fnd_file.log,1);
1410: raise fnd_api.g_exc_error;
1406: p_encoded => fnd_api.g_false)));
1407: END LOOP;
1408: fnd_msg_pub.delete_msg;
1409: fnd_file.new_line(fnd_file.log,1);
1410: raise fnd_api.g_exc_error;
1411: END IF;
1412:
1413: -------------------------------------------------------------------------------
1414:
1418: l_count := 1;
1419: end if;
1420:
1421: EXCEPTION
1422: WHEN fnd_api.g_exc_error THEN
1423: fnd_file.put_line(fnd_file.log, SQLCODE||':'||SQLERRM);
1424: ROLLBACK TO TERMINATE_EMPLOYEE_IN_SP;
1425: WHEN fnd_api.g_exc_unexpected_error THEN
1426: fnd_file.put_line(fnd_file.log, SQLCODE||':'||SQLERRM);
1421: EXCEPTION
1422: WHEN fnd_api.g_exc_error THEN
1423: fnd_file.put_line(fnd_file.log, SQLCODE||':'||SQLERRM);
1424: ROLLBACK TO TERMINATE_EMPLOYEE_IN_SP;
1425: WHEN fnd_api.g_exc_unexpected_error THEN
1426: fnd_file.put_line(fnd_file.log, SQLCODE||':'||SQLERRM);
1427: ROLLBACK TO TERMINATE_EMPLOYEE_IN_SP;
1428: WHEN OTHERS THEN
1429: fnd_file.put_line(fnd_file.log, SQLCODE||':'||SQLERRM);
1434:
1435: FND_MSG_PUB.count_and_get (p_count => l_msg_count, p_data => l_msg_data);
1436:
1437: EXCEPTION
1438: WHEN fnd_api.g_exc_error
1439: THEN
1440: fnd_file.put_line(fnd_file.log, sqlcode||':'||sqlerrm);
1441: ROLLBACK TO TERMINATE_EMPLOYEE_SP;
1442: WHEN OTHERS
1887: FETCH c_job_role_relations INTO l_job_role_relations_rec;
1888: IF c_job_role_relations%FOUND THEN
1889: JTF_RS_ROLE_RELATE_PVT.UPDATE_RESOURCE_ROLE_RELATE(
1890: p_api_version => 1.0,
1891: p_init_msg_list => fnd_api.g_true,
1892: p_commit => fnd_api.g_false,
1893: p_role_relate_id => l_job_role_relations_rec.role_relate_id,
1894: p_end_date_active => l_asg_end_date,
1895: p_object_version_num => l_job_role_relations_rec.object_version_number,
1888: IF c_job_role_relations%FOUND THEN
1889: JTF_RS_ROLE_RELATE_PVT.UPDATE_RESOURCE_ROLE_RELATE(
1890: p_api_version => 1.0,
1891: p_init_msg_list => fnd_api.g_true,
1892: p_commit => fnd_api.g_false,
1893: p_role_relate_id => l_job_role_relations_rec.role_relate_id,
1894: p_end_date_active => l_asg_end_date,
1895: p_object_version_num => l_job_role_relations_rec.object_version_number,
1896: x_return_status => r_return_status,
1896: x_return_status => r_return_status,
1897: x_msg_count => r_msg_count,
1898: x_msg_data => r_msg_data
1899: );
1900: IF ( r_return_status <> fnd_api.g_ret_sts_success) THEN
1901: l_role_name := NULL;
1902: OPEN c_role_name (l_job_roles_rec.role_id);
1903: FETCH c_role_name INTO l_role_name;
1904: CLOSE c_role_name;
1907: fnd_message.set_token('P_JOB_TITLE', p_new_job_title);
1908: fnd_message.set_token('P_ROLE_NAME', l_role_name);
1909: fnd_file.put_line(fnd_file.log, fnd_message.get);
1910: for i in 1..r_msg_count loop
1911: fnd_file.put_line(fnd_file.log, (fnd_msg_pub.get(i,p_encoded => fnd_api.g_false)));
1912: end loop;
1913: CLOSE c_job_roles;
1914: -- CLOSE c_job_id;
1915: fnd_msg_pub.delete_msg;
1913: CLOSE c_job_roles;
1914: -- CLOSE c_job_id;
1915: fnd_msg_pub.delete_msg;
1916: fnd_file.new_line(fnd_file.log,1);
1917: raise fnd_api.g_exc_error;
1918: END IF;
1919: END IF;
1920: CLOSE c_job_role_relations;
1921: FETCH c_job_roles INTO l_job_roles_rec;
1947: of the new role needs to be created */
1948: FOR i in c_res_roles_enddate(p_resource_id,l_asg_start_date) LOOP
1949: JTF_RS_ROLE_RELATE_PVT.UPDATE_RESOURCE_ROLE_RELATE(
1950: p_api_version => 1.0,
1951: p_init_msg_list => fnd_api.g_true,
1952: p_commit => fnd_api.g_false,
1953: p_role_relate_id => i.role_relate_id,
1954: p_end_date_active => l_asg_start_date-1,
1955: p_object_version_num => i.object_version_number,
1948: FOR i in c_res_roles_enddate(p_resource_id,l_asg_start_date) LOOP
1949: JTF_RS_ROLE_RELATE_PVT.UPDATE_RESOURCE_ROLE_RELATE(
1950: p_api_version => 1.0,
1951: p_init_msg_list => fnd_api.g_true,
1952: p_commit => fnd_api.g_false,
1953: p_role_relate_id => i.role_relate_id,
1954: p_end_date_active => l_asg_start_date-1,
1955: p_object_version_num => i.object_version_number,
1956: x_return_status => r_return_status,
1956: x_return_status => r_return_status,
1957: x_msg_count => r_msg_count,
1958: x_msg_data => r_msg_data
1959: );
1960: IF ( r_return_status <> fnd_api.g_ret_sts_success) THEN
1961: l_role_name := NULL;
1962: OPEN c_role_name (i.role_id);
1963: FETCH c_role_name INTO l_role_name;
1964: CLOSE c_role_name;
1967: fnd_message.set_token('P_JOB_TITLE', p_new_job_title);
1968: fnd_message.set_token('P_ROLE_NAME', l_role_name);
1969: fnd_file.put_line(fnd_file.log, fnd_message.get);
1970: for j in 1..r_msg_count loop
1971: fnd_file.put_line(fnd_file.log, (fnd_msg_pub.get(j,p_encoded => fnd_api.g_false)));
1972: end loop;
1973: fnd_msg_pub.delete_msg;
1974: fnd_file.new_line(fnd_file.log,1);
1975: raise fnd_api.g_exc_error;
1971: fnd_file.put_line(fnd_file.log, (fnd_msg_pub.get(j,p_encoded => fnd_api.g_false)));
1972: end loop;
1973: fnd_msg_pub.delete_msg;
1974: fnd_file.new_line(fnd_file.log,1);
1975: raise fnd_api.g_exc_error;
1976: END IF;
1977: END LOOP;
1978: l_res_roles_enddated := 'Y';
1979: END IF;
2001: end if;
2002:
2003: JTF_RS_ROLE_RELATE_PVT.CREATE_RESOURCE_ROLE_RELATE(
2004: p_api_version => 1.0,
2005: p_init_msg_list => fnd_api.g_true,
2006: p_commit => fnd_api.g_false,
2007: p_role_resource_type => 'RS_INDIVIDUAL',
2008: p_role_resource_id => p_resource_id,
2009: p_role_id => l_job_roles_rec.role_id,
2002:
2003: JTF_RS_ROLE_RELATE_PVT.CREATE_RESOURCE_ROLE_RELATE(
2004: p_api_version => 1.0,
2005: p_init_msg_list => fnd_api.g_true,
2006: p_commit => fnd_api.g_false,
2007: p_role_resource_type => 'RS_INDIVIDUAL',
2008: p_role_resource_id => p_resource_id,
2009: p_role_id => l_job_roles_rec.role_id,
2010: p_start_date_active => l_asg_start_date,
2013: x_msg_count => r_msg_count,
2014: x_msg_data => r_msg_data,
2015: x_role_relate_id => l_role_relate_id
2016: );
2017: IF ( r_return_status <> fnd_api.g_ret_sts_success) THEN
2018: l_role_name := NULL;
2019: OPEN c_role_name (l_job_roles_rec.role_id);
2020: FETCH c_role_name INTO l_role_name;
2021: CLOSE c_role_name;
2024: fnd_message.set_token('P_JOB_TITLE', p_new_job_title);
2025: fnd_message.set_token('P_ROLE_NAME', l_role_name);
2026: fnd_file.put_line(fnd_file.log, fnd_message.get);
2027: for i in 1..r_msg_count loop
2028: fnd_file.put_line(fnd_file.log, (fnd_msg_pub.get(i,p_encoded => fnd_api.g_false)));
2029: end loop;
2030: fnd_msg_pub.delete_msg;
2031: fnd_file.new_line(fnd_file.log,1);
2032: raise fnd_api.g_exc_error;
2028: fnd_file.put_line(fnd_file.log, (fnd_msg_pub.get(i,p_encoded => fnd_api.g_false)));
2029: end loop;
2030: fnd_msg_pub.delete_msg;
2031: fnd_file.new_line(fnd_file.log,1);
2032: raise fnd_api.g_exc_error;
2033: END IF;
2034: end if; -- Check for Sales Comp Roles and salesrep exists
2035: END IF;
2036: CLOSE c_job_role_relations;
2060: of the new role needs to be created */
2061: FOR i in c_res_roles_enddate(p_resource_id,l_asg_start_date) LOOP
2062: JTF_RS_ROLE_RELATE_PVT.UPDATE_RESOURCE_ROLE_RELATE(
2063: p_api_version => 1.0,
2064: p_init_msg_list => fnd_api.g_true,
2065: p_commit => fnd_api.g_false,
2066: p_role_relate_id => i.role_relate_id,
2067: p_end_date_active => l_asg_start_date-1,
2068: p_object_version_num => i.object_version_number,
2061: FOR i in c_res_roles_enddate(p_resource_id,l_asg_start_date) LOOP
2062: JTF_RS_ROLE_RELATE_PVT.UPDATE_RESOURCE_ROLE_RELATE(
2063: p_api_version => 1.0,
2064: p_init_msg_list => fnd_api.g_true,
2065: p_commit => fnd_api.g_false,
2066: p_role_relate_id => i.role_relate_id,
2067: p_end_date_active => l_asg_start_date-1,
2068: p_object_version_num => i.object_version_number,
2069: x_return_status => r_return_status,
2069: x_return_status => r_return_status,
2070: x_msg_count => r_msg_count,
2071: x_msg_data => r_msg_data
2072: );
2073: IF ( r_return_status <> fnd_api.g_ret_sts_success) THEN
2074: l_role_name := NULL;
2075: OPEN c_role_name (i.role_id);
2076: FETCH c_role_name INTO l_role_name;
2077: CLOSE c_role_name;
2080: fnd_message.set_token('P_JOB_TITLE', p_new_job_title);
2081: fnd_message.set_token('P_ROLE_NAME', l_role_name);
2082: fnd_file.put_line(fnd_file.log, fnd_message.get);
2083: for j in 1..r_msg_count loop
2084: fnd_file.put_line(fnd_file.log, (fnd_msg_pub.get(j,p_encoded => fnd_api.g_false)));
2085: end loop;
2086: fnd_msg_pub.delete_msg;
2087: fnd_file.new_line(fnd_file.log,1);
2088: raise fnd_api.g_exc_error;
2084: fnd_file.put_line(fnd_file.log, (fnd_msg_pub.get(j,p_encoded => fnd_api.g_false)));
2085: end loop;
2086: fnd_msg_pub.delete_msg;
2087: fnd_file.new_line(fnd_file.log,1);
2088: raise fnd_api.g_exc_error;
2089: END IF;
2090: END LOOP;
2091: l_res_roles_enddated := 'Y';
2092: END IF;
2114: end if;
2115:
2116: JTF_RS_ROLE_RELATE_PVT.CREATE_RESOURCE_ROLE_RELATE(
2117: p_api_version => 1.0,
2118: p_init_msg_list => fnd_api.g_true,
2119: p_commit => fnd_api.g_false,
2120: p_role_resource_type => 'RS_INDIVIDUAL',
2121: p_role_resource_id => p_resource_id,
2122: p_role_id => l_job_roles_rec.role_id,
2115:
2116: JTF_RS_ROLE_RELATE_PVT.CREATE_RESOURCE_ROLE_RELATE(
2117: p_api_version => 1.0,
2118: p_init_msg_list => fnd_api.g_true,
2119: p_commit => fnd_api.g_false,
2120: p_role_resource_type => 'RS_INDIVIDUAL',
2121: p_role_resource_id => p_resource_id,
2122: p_role_id => l_job_roles_rec.role_id,
2123: p_start_date_active => l_asg_start_date,
2126: x_msg_count => r_msg_count,
2127: x_msg_data => r_msg_data,
2128: x_role_relate_id => l_role_relate_id
2129: );
2130: IF ( r_return_status <> fnd_api.g_ret_sts_success) THEN
2131: l_role_name := NULL;
2132: OPEN c_role_name (l_job_roles_rec.role_id);
2133: FETCH c_role_name INTO l_role_name;
2134: CLOSE c_role_name;
2137: fnd_message.set_token('P_JOB_TITLE', p_new_job_title);
2138: fnd_message.set_token('P_ROLE_NAME', l_role_name);
2139: fnd_file.put_line(fnd_file.log, fnd_message.get);
2140: for i in 1..r_msg_count loop
2141: fnd_file.put_line(fnd_file.log, (fnd_msg_pub.get(i,p_encoded => fnd_api.g_false)));
2142: end loop;
2143: fnd_msg_pub.delete_msg;
2144: fnd_file.new_line(fnd_file.log,1);
2145: raise fnd_api.g_exc_error;
2141: fnd_file.put_line(fnd_file.log, (fnd_msg_pub.get(i,p_encoded => fnd_api.g_false)));
2142: end loop;
2143: fnd_msg_pub.delete_msg;
2144: fnd_file.new_line(fnd_file.log,1);
2145: raise fnd_api.g_exc_error;
2146: END IF;
2147: end if; -- Check for Sales Comp Roles and salesrep exists
2148: END IF; /* no active resource role */
2149: CLOSE c_job_role_relations;
2189: --Standard Start of API SAVEPOINT
2190:
2191: SAVEPOINT UPDATE_EMPLOYEE_SP;
2192:
2193: l_return_status := fnd_api.g_ret_sts_success;
2194:
2195: FND_PROFILE.GET('JTF_RS_RESOURCE_ACTIVE_DAYS',l_active_days);
2196:
2197: FOR l_c_resource IN c_resource LOOP
2395: l_source_pager_n := null;
2396: l_resource_name_n := null;
2397: l_end_date_active_n := null;
2398:
2399: if nvl(l_source_number, fnd_api.g_miss_char) <> nvl(rr_old_rec.source_number, fnd_api.g_miss_char)
2400: then
2401: l_source_number_o := rr_old_rec.source_number;
2402: l_source_number_n := l_source_number;
2403: l_is_to_be_updated := 'Y';
2403: l_is_to_be_updated := 'Y';
2404:
2405: end if;
2406:
2407: if nvl(l_ppf_rec.full_name, fnd_api.g_miss_char) <> nvl(rr_old_rec.source_name, fnd_api.g_miss_char)
2408: then
2409: l_source_name_o := rr_old_rec.source_name;
2410: l_source_name_n := l_ppf_rec.full_name;
2411: l_is_to_be_updated := 'Y';
2410: l_source_name_n := l_ppf_rec.full_name;
2411: l_is_to_be_updated := 'Y';
2412: end if;
2413:
2414: if nvl(l_ppf_rec.first_name, fnd_api.g_miss_char) <> nvl(rr_old_rec.source_first_name, fnd_api.g_miss_char)
2415: then
2416: l_source_first_name_o := rr_old_rec.source_first_name;
2417: l_source_first_name_n := l_ppf_rec.first_name;
2418: l_is_to_be_updated := 'Y';
2417: l_source_first_name_n := l_ppf_rec.first_name;
2418: l_is_to_be_updated := 'Y';
2419: end if;
2420:
2421: if nvl(l_ppf_rec.middle_names, fnd_api.g_miss_char) <> nvl(rr_old_rec.source_middle_name, fnd_api.g_miss_char)
2422: then
2423: l_source_middle_name_o := rr_old_rec.source_middle_name;
2424: l_source_middle_name_n := l_ppf_rec.middle_names;
2425: l_is_to_be_updated := 'Y';
2424: l_source_middle_name_n := l_ppf_rec.middle_names;
2425: l_is_to_be_updated := 'Y';
2426: end if;
2427:
2428: if nvl(l_ppf_rec.last_name, fnd_api.g_miss_char) <> nvl(rr_old_rec.source_last_name, fnd_api.g_miss_char)
2429: then
2430: l_source_last_name_o := rr_old_rec.source_last_name;
2431: l_source_last_name_n := l_ppf_rec.last_name;
2432: l_is_to_be_updated := 'Y';
2431: l_source_last_name_n := l_ppf_rec.last_name;
2432: l_is_to_be_updated := 'Y';
2433: end if;
2434:
2435: if nvl(l_phone, fnd_api.g_miss_char) <> nvl(rr_old_rec.source_phone, fnd_api.g_miss_char)
2436: then
2437: l_source_phone_o := rr_old_rec.source_phone;
2438: l_source_phone_n := l_phone;
2439: l_is_to_be_updated := 'Y';
2438: l_source_phone_n := l_phone;
2439: l_is_to_be_updated := 'Y';
2440: end if;
2441:
2442: if nvl(l_ppf_rec.email_address, fnd_api.g_miss_char) <> nvl(rr_old_rec.source_email, fnd_api.g_miss_char)
2443: then
2444: l_source_email_o := rr_old_rec.source_email;
2445: l_source_email_n := l_ppf_rec.email_address;
2446: l_is_to_be_updated := 'Y';
2453: l_address_id_n := l_asg_rec.location_id ;
2454: l_is_to_be_updated := 'Y';
2455: end if;
2456:
2457: if nvl(l_ppf_rec.party_id, fnd_api.g_miss_num) <> nvl(rr_old_rec.person_party_id, fnd_api.g_miss_num)
2458: then
2459: l_party_id_o := rr_old_rec.person_party_id;
2460: l_party_id_n := l_ppf_rec.party_id;
2461: l_is_to_be_updated := 'Y';
2460: l_party_id_n := l_ppf_rec.party_id;
2461: l_is_to_be_updated := 'Y';
2462: end if;
2463:
2464: if nvl(l_new_job_id, fnd_api.g_miss_num) <> nvl(rr_old_rec.source_job_id, fnd_api.g_miss_num)
2465: then
2466: l_source_job_id_o := rr_old_rec.source_job_id;
2467: l_source_job_id_n := l_new_job_id;
2468: l_is_to_be_updated := 'Y';
2467: l_source_job_id_n := l_new_job_id;
2468: l_is_to_be_updated := 'Y';
2469: end if;
2470:
2471: if nvl(l_job_name, fnd_api.g_miss_char) <> nvl(rr_old_rec.source_job_title, fnd_api.g_miss_char)
2472: then
2473: l_source_job_title_o := rr_old_rec.source_job_title;
2474: l_source_job_title_n := l_job_name;
2475: l_is_to_be_updated := 'Y';
2474: l_source_job_title_n := l_job_name;
2475: l_is_to_be_updated := 'Y';
2476: end if;
2477:
2478: if nvl(l_loc_rec.address_line_1, fnd_api.g_miss_char) <> nvl(rr_old_rec.source_address1, fnd_api.g_miss_char)
2479: then
2480: l_source_address1_o := rr_old_rec.source_address1;
2481: l_source_address1_n := l_loc_rec.address_line_1;
2482: l_is_to_be_updated := 'Y';
2481: l_source_address1_n := l_loc_rec.address_line_1;
2482: l_is_to_be_updated := 'Y';
2483: end if;
2484:
2485: if nvl(l_loc_rec.address_line_2, fnd_api.g_miss_char) <> nvl(rr_old_rec.source_address2, fnd_api.g_miss_char)
2486: then
2487: l_source_address2_o := rr_old_rec.source_address2;
2488: l_source_address2_n := l_loc_rec.address_line_1;
2489: l_is_to_be_updated := 'Y';
2488: l_source_address2_n := l_loc_rec.address_line_1;
2489: l_is_to_be_updated := 'Y';
2490: end if;
2491:
2492: if nvl(l_loc_rec.address_line_3, fnd_api.g_miss_char) <> nvl(rr_old_rec.source_address3, fnd_api.g_miss_char)
2493: then
2494: l_source_address3_o := rr_old_rec.source_address3;
2495: l_source_address3_n := l_loc_rec.address_line_3;
2496: l_is_to_be_updated := 'Y';
2495: l_source_address3_n := l_loc_rec.address_line_3;
2496: l_is_to_be_updated := 'Y';
2497: end if;
2498:
2499: if nvl(l_loc_rec.town_or_city, fnd_api.g_miss_char) <> nvl(rr_old_rec.source_city, fnd_api.g_miss_char)
2500: then
2501: l_source_city_o := rr_old_rec.source_city;
2502: l_source_city_n := l_loc_rec.town_or_city;
2503: l_is_to_be_updated := 'Y';
2502: l_source_city_n := l_loc_rec.town_or_city;
2503: l_is_to_be_updated := 'Y';
2504: end if;
2505:
2506: if nvl(l_loc_rec.postal_code, fnd_api.g_miss_char) <> nvl(rr_old_rec.source_postal_code, fnd_api.g_miss_char)
2507: then
2508: l_source_postal_code_o := rr_old_rec.source_postal_code;
2509: l_source_postal_code_n := l_loc_rec.postal_code;
2510: l_is_to_be_updated := 'Y';
2509: l_source_postal_code_n := l_loc_rec.postal_code;
2510: l_is_to_be_updated := 'Y';
2511: end if;
2512:
2513: if nvl(l_loc_rec.country, fnd_api.g_miss_char) <> nvl(rr_old_rec.source_country, fnd_api.g_miss_char)
2514: then
2515: l_source_country_o := rr_old_rec.source_country;
2516: l_source_country_n := l_loc_rec.country;
2517: l_is_to_be_updated := 'Y';
2516: l_source_country_n := l_loc_rec.country;
2517: l_is_to_be_updated := 'Y';
2518: end if;
2519:
2520: if nvl(l_asg_rec.supervisor_id, fnd_api.g_miss_num) <> nvl(rr_old_rec.source_mgr_id, fnd_api.g_miss_num)
2521: then
2522: l_source_mgr_id_o := rr_old_rec.source_mgr_id;
2523: l_source_mgr_id_n := l_asg_rec.supervisor_id;
2524: l_is_to_be_updated := 'Y';
2523: l_source_mgr_id_n := l_asg_rec.supervisor_id;
2524: l_is_to_be_updated := 'Y';
2525: end if;
2526:
2527: if nvl(l_mgr_name, fnd_api.g_miss_char) <> nvl(rr_old_rec.source_mgr_name, fnd_api.g_miss_char)
2528: then
2529: l_source_mgr_name_o := rr_old_rec.source_mgr_name;
2530: l_source_mgr_name_n := l_mgr_name;
2531: l_is_to_be_updated := 'Y';
2530: l_source_mgr_name_n := l_mgr_name;
2531: l_is_to_be_updated := 'Y';
2532: end if;
2533:
2534: if nvl(l_ppf_rec.business_group_id, fnd_api.g_miss_num) <> nvl(rr_old_rec.source_business_grp_id, fnd_api.g_miss_num)
2535: then
2536: l_source_business_grp_id_o := rr_old_rec.source_business_grp_id;
2537: l_source_business_grp_id_n := l_ppf_rec.business_group_id;
2538: l_is_to_be_updated := 'Y';
2537: l_source_business_grp_id_n := l_ppf_rec.business_group_id;
2538: l_is_to_be_updated := 'Y';
2539: end if;
2540:
2541: if nvl(l_org_name, fnd_api.g_miss_char) <> nvl(rr_old_rec.source_business_grp_name, fnd_api.g_miss_char)
2542: then
2543: l_source_business_grp_name_o := rr_old_rec.source_business_grp_name;
2544: l_source_business_grp_name_n := l_org_name;
2545: l_is_to_be_updated := 'Y';
2544: l_source_business_grp_name_n := l_org_name;
2545: l_is_to_be_updated := 'Y';
2546: end if;
2547:
2548: if nvl(l_ppf_rec.office_number, fnd_api.g_miss_char) <> nvl(rr_old_rec.source_office, fnd_api.g_miss_char)
2549: then
2550: l_source_office_o := rr_old_rec.source_office;
2551: l_source_office_n := l_ppf_rec.office_number;
2552: l_is_to_be_updated := 'Y';
2551: l_source_office_n := l_ppf_rec.office_number;
2552: l_is_to_be_updated := 'Y';
2553: end if;
2554:
2555: if nvl(l_ppf_rec.internal_location, fnd_api.g_miss_char) <> nvl(rr_old_rec.source_location, fnd_api.g_miss_char)
2556: then
2557: l_source_location_o := rr_old_rec.source_location;
2558: l_source_location_n := l_ppf_rec.internal_location;
2559: l_is_to_be_updated := 'Y';
2558: l_source_location_n := l_ppf_rec.internal_location;
2559: l_is_to_be_updated := 'Y';
2560: end if;
2561:
2562: if nvl(l_ppf_rec.mailstop, fnd_api.g_miss_char) <> nvl(rr_old_rec.source_mailstop, fnd_api.g_miss_char)
2563: then
2564: l_source_mailstop_o := rr_old_rec.source_mailstop;
2565: l_source_mailstop_n := l_ppf_rec.mailstop;
2566: l_is_to_be_updated := 'Y';
2565: l_source_mailstop_n := l_ppf_rec.mailstop;
2566: l_is_to_be_updated := 'Y';
2567: end if;
2568:
2569: if nvl(l_mobile_phone, fnd_api.g_miss_char) <> nvl(rr_old_rec.source_mobile_phone, fnd_api.g_miss_char)
2570: then
2571: l_source_mobile_phone_o := rr_old_rec.source_mobile_phone;
2572: l_source_mobile_phone_n := l_mobile_phone;
2573: l_is_to_be_updated := 'Y';
2572: l_source_mobile_phone_n := l_mobile_phone;
2573: l_is_to_be_updated := 'Y';
2574: end if;
2575:
2576: if nvl(l_pager, fnd_api.g_miss_char) <> nvl(rr_old_rec.source_pager, fnd_api.g_miss_char)
2577: then
2578: l_source_pager_o := rr_old_rec.source_pager;
2579: l_source_pager_n := l_pager;
2580: l_is_to_be_updated := 'Y';
2585: elsif (p_overwrite_name = 'FULL_NAME' AND l_ppf_rec.full_name IS NOT NULL) THEN
2586: l_resource_name_n := l_ppf_rec.full_name;
2587: end if;
2588:
2589: if nvl(l_end_date_active, fnd_api.g_miss_date) <> nvl(rr_old_rec.end_date_active, fnd_api.g_miss_date)
2590: then
2591: l_end_date_active_o := rr_old_rec.end_date_active;
2592: l_end_date_active_n := l_end_date_active;
2593: l_is_to_be_updated := 'Y';
2598: end if;
2599:
2600: if (l_resource_name_n is not null) then
2601: l_resource_name_o := rr_old_rec.resource_name;
2602: if ( nvl(l_resource_name_o, fnd_api.g_miss_char) <> l_resource_name_n) then
2603: if (l_update_extn = 'N') then
2604: l_is_to_be_updated := 'Y';
2605: end if;
2606: else
2853:
2854: END IF;
2855:
2856: EXCEPTION
2857: WHEN fnd_api.g_exc_error
2858: THEN
2859: -- fnd_file.put_line(fnd_file.log, sqlerrm);
2860: ROLLBACK TO update_resource_sp;
2861: WHEN fnd_api.g_exc_unexpected_error
2857: WHEN fnd_api.g_exc_error
2858: THEN
2859: -- fnd_file.put_line(fnd_file.log, sqlerrm);
2860: ROLLBACK TO update_resource_sp;
2861: WHEN fnd_api.g_exc_unexpected_error
2862: THEN
2863: -- fnd_file.put_line(fnd_file.log, sqlerrm);
2864: ROLLBACK TO update_resource_sp;
2865: WHEN OTHERS
2870:
2871: END LOOP;
2872:
2873: EXCEPTION
2874: WHEN fnd_api.g_exc_unexpected_error
2875: THEN
2876:
2877: IF c_resource%ISOPEN THEN
2878: CLOSE c_resource;
3115: close term_res_cur;
3116: commit;
3117:
3118: EXCEPTION
3119: WHEN fnd_api.g_exc_unexpected_error
3120: THEN
3121: fnd_file.put_line(fnd_file.log, sqlcode||':'||sqlerrm);
3122: WHEN OTHERS
3123: THEN
3145:
3146:
3147: commit;
3148: EXCEPTION
3149: WHEN fnd_api.g_exc_unexpected_error
3150: THEN
3151: fnd_file.put_line(fnd_file.log, sqlcode||':'||sqlerrm);
3152: WHEN OTHERS
3153: THEN
3173: (p_overwrite_name => P_OVERWRITE_NAME);
3174: COMMIT;
3175:
3176: EXCEPTION
3177: WHEN fnd_api.g_exc_unexpected_error
3178: THEN
3179: fnd_file.put_line(fnd_file.log, sqlcode||':'||sqlerrm);
3180: WHEN OTHERS
3181: THEN
3221:
3222: --Standard Start of API SAVEPOINT
3223: SAVEPOINT TERMINATE_PARTNER_REL_SP;
3224:
3225: l_return_status := fnd_api.g_ret_sts_success;
3226: l_count := 0;
3227:
3228: FND_PROFILE.GET('JTF_RS_RESOURCE_ACTIVE_DAYS',l_active_days);
3229:
3232: END IF;
3233:
3234: FOR term_part_rel_rec IN term_part_rel_cur (l_active_days) LOOP
3235:
3236: l_return_status := fnd_api.g_ret_sts_success;
3237:
3238: IF (trunc(nvl(term_part_rel_rec.end_date,sysdate)) < trunc(sysdate)) THEN
3239: jtf_rs_resource_utl_pub.end_date_employee
3240: (p_api_version => 1.0
3254: , x_msg_count => l_msg_count
3255: , x_msg_data => l_msg_data);
3256: END IF;
3257:
3258: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
3259: RAISE fnd_api.g_exc_error;
3260: END IF;
3261:
3262: l_count := l_count + 1;
3255: , x_msg_data => l_msg_data);
3256: END IF;
3257:
3258: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
3259: RAISE fnd_api.g_exc_error;
3260: END IF;
3261:
3262: l_count := l_count + 1;
3263: IF (l_count > 1000) THEN
3269:
3270: FND_MSG_PUB.count_and_get (p_count => l_msg_count, p_data => l_msg_data);
3271:
3272: EXCEPTION
3273: WHEN fnd_api.g_exc_error
3274: THEN
3275: fnd_file.put_line(fnd_file.log, sqlcode||':'||sqlerrm);
3276: ROLLBACK TO TERMINATE_PARTNER_REL_SP;
3277:
3561: (p_overwrite_name => P_OVERWRITE_NAME);
3562: COMMIT;
3563:
3564: EXCEPTION
3565: WHEN fnd_api.g_exc_unexpected_error
3566: THEN
3567: fnd_file.put_line(fnd_file.log, sqlcode||':'||sqlerrm);
3568: WHEN OTHERS
3569: THEN
3695: END LOOP;
3696: COMMIT;
3697:
3698: EXCEPTION
3699: WHEN fnd_api.g_exc_unexpected_error
3700: THEN
3701: fnd_file.put_line(fnd_file.log, sqlcode||':'||sqlerrm);
3702: WHEN OTHERS
3703: THEN
3731:
3732: --Standard Start of API SAVEPOINT
3733: SAVEPOINT TERMINATE_SUPPLIER_CONTACT_SP;
3734:
3735: l_return_status := fnd_api.g_ret_sts_success;
3736: l_count := 0;
3737:
3738: FND_PROFILE.GET('JTF_RS_RESOURCE_ACTIVE_DAYS',l_active_days);
3739:
3742: END IF;
3743:
3744: FOR term_supp_cont_rec IN term_supp_cont_cur (l_active_days) LOOP
3745:
3746: l_return_status := fnd_api.g_ret_sts_success;
3747:
3748: jtf_rs_resource_utl_pub.end_date_employee
3749: (p_api_version => 1.0
3750: , p_resource_id => term_supp_cont_rec.resource_id
3753: , x_return_status => l_return_status
3754: , x_msg_count => l_msg_count
3755: , x_msg_data => l_msg_data);
3756:
3757: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
3758: RAISE fnd_api.g_exc_error;
3759: END IF;
3760:
3761: l_count := l_count + 1;
3754: , x_msg_count => l_msg_count
3755: , x_msg_data => l_msg_data);
3756:
3757: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
3758: RAISE fnd_api.g_exc_error;
3759: END IF;
3760:
3761: l_count := l_count + 1;
3762: IF (l_count > 1000) THEN
3768:
3769: FND_MSG_PUB.count_and_get (p_count => l_msg_count, p_data => l_msg_data);
3770:
3771: EXCEPTION
3772: WHEN fnd_api.g_exc_error
3773: THEN
3774: fnd_file.put_line(fnd_file.log, sqlcode||':'||sqlerrm);
3775: ROLLBACK TO TERMINATE_SUPPLIER_CONTACT_SP;
3776:
3792: WHERE res.user_id = fu.user_id)
3793: WHERE user_id IS NOT NULL;
3794: COMMIT;
3795: EXCEPTION
3796: WHEN fnd_api.g_exc_unexpected_error
3797: THEN
3798: fnd_file.put_line(fnd_file.log, sqlcode||':'||sqlerrm);
3799: WHEN OTHERS
3800: THEN
3955: i number;
3956:
3957: BEGIN
3958: SAVEPOINT UPDATE_USERID_SP;
3959: l_return_status := fnd_api.g_ret_sts_success;
3960: l_count := 1;
3961:
3962: FOR l_c_invalid_userid IN c_invalid_userid
3963: LOOP
3977: FETCH c_party_partner INTO l_user_id, l_user_name;
3978: CLOSE c_party_partner;
3979: END IF;
3980:
3981: l_return_status := fnd_api.g_ret_sts_success;
3982:
3983: jtf_rs_resource_pub.update_resource
3984: (p_api_version => 1.0,
3985: p_init_msg_list => FND_API.G_TRUE,
3981: l_return_status := fnd_api.g_ret_sts_success;
3982:
3983: jtf_rs_resource_pub.update_resource
3984: (p_api_version => 1.0,
3985: p_init_msg_list => FND_API.G_TRUE,
3986: p_resource_id => l_c_invalid_userid.resource_id,
3987: p_resource_number => l_c_invalid_userid.resource_number,
3988: p_user_id => l_user_id,
3989: p_source_name => l_c_invalid_userid.source_name,
3993: x_msg_count => l_msg_count,
3994: x_msg_data => l_msg_data
3995: ) ;
3996:
3997: IF ( l_return_status <> fnd_api.g_ret_sts_success)
3998: THEN
3999: fnd_message.set_name('JTF', 'JTF_RS_CONC_UPDATE_USERID_ERR');
4000: fnd_message.set_token('P_SOURCE_ID', l_c_invalid_userid.source_id);
4001: fnd_file.put_line(fnd_file.log, fnd_message.get);
4001: fnd_file.put_line(fnd_file.log, fnd_message.get);
4002: FOR i IN 1..l_msg_count
4003: LOOP
4004: fnd_file.put_line(fnd_file.log, (fnd_msg_pub.get(i,
4005: p_encoded => fnd_api.g_false)));
4006: END LOOP;
4007: END IF;
4008:
4009: l_count := l_count + 1;
4032: FETCH c_party_partner INTO l_user_id, l_user_name;
4033: CLOSE c_party_partner;
4034: END IF;
4035:
4036: l_return_status := fnd_api.g_ret_sts_success;
4037:
4038: jtf_rs_resource_pub.update_resource
4039: (p_api_version => 1.0,
4040: p_init_msg_list => FND_API.G_TRUE,
4036: l_return_status := fnd_api.g_ret_sts_success;
4037:
4038: jtf_rs_resource_pub.update_resource
4039: (p_api_version => 1.0,
4040: p_init_msg_list => FND_API.G_TRUE,
4041: p_resource_id => l_c_invalid_active_userid.resource_id,
4042: p_resource_number => l_c_invalid_active_userid.resource_number,
4043: p_user_id => l_user_id,
4044: p_source_name => l_c_invalid_active_userid.source_name,
4048: x_msg_count => l_msg_count,
4049: x_msg_data => l_msg_data
4050: ) ;
4051:
4052: IF ( l_return_status <> fnd_api.g_ret_sts_success)
4053: THEN
4054: fnd_message.set_name('JTF', 'JTF_RS_CONC_UPDATE_USERID_ERR');
4055: fnd_message.set_token('P_SOURCE_ID', l_c_invalid_active_userid.source_id);
4056: fnd_file.put_line(fnd_file.log, fnd_message.get);
4056: fnd_file.put_line(fnd_file.log, fnd_message.get);
4057: FOR i IN 1..l_msg_count
4058: LOOP
4059: fnd_file.put_line(fnd_file.log, (fnd_msg_pub.get(i,
4060: p_encoded => fnd_api.g_false)));
4061: END LOOP;
4062: END IF;
4063:
4064: l_count := l_count + 1;
4087: FETCH c_party_partner INTO l_user_id, l_user_name;
4088: CLOSE c_party_partner;
4089: END IF;
4090:
4091: l_return_status := fnd_api.g_ret_sts_success;
4092:
4093: jtf_rs_resource_pub.update_resource
4094: (p_api_version => 1.0,
4095: p_init_msg_list => FND_API.G_TRUE,
4091: l_return_status := fnd_api.g_ret_sts_success;
4092:
4093: jtf_rs_resource_pub.update_resource
4094: (p_api_version => 1.0,
4095: p_init_msg_list => FND_API.G_TRUE,
4096: p_resource_id => l_c_null_userid.resource_id,
4097: p_resource_number => l_c_null_userid.resource_number,
4098: p_user_id => l_user_id,
4099: p_source_name => l_c_null_userid.source_name,
4102: x_return_status => l_return_status,
4103: x_msg_count => l_msg_count,
4104: x_msg_data => l_msg_data
4105: ) ;
4106: IF ( l_return_status <> fnd_api.g_ret_sts_success)
4107: THEN
4108: fnd_message.set_name('JTF', 'JTF_RS_CONC_UPDATE_USERID_ERR');
4109: fnd_message.set_token('P_SOURCE_ID', l_c_null_userid.source_id);
4110: fnd_file.put_line(fnd_file.log, fnd_message.get);
4110: fnd_file.put_line(fnd_file.log, fnd_message.get);
4111: FOR i IN 1..l_msg_count
4112: LOOP
4113: fnd_file.put_line(fnd_file.log, (fnd_msg_pub.get(i,
4114: p_encoded => fnd_api.g_false)));
4115: END LOOP;
4116: END IF;
4117:
4118: l_count := l_count + 1;
4126: FND_MSG_PUB.count_and_get (p_count => l_msg_count, p_data => l_msg_data);
4127: COMMIT;
4128:
4129: EXCEPTION
4130: WHEN fnd_api.g_exc_unexpected_error
4131: THEN
4132: fnd_file.put_line(fnd_file.log, sqlcode||':'||sqlerrm);
4133: ROLLBACK TO UPDATE_USERID_SP;
4134: WHEN OTHERS
4158: END IF;
4159:
4160: COMMIT;
4161: EXCEPTION
4162: WHEN fnd_api.g_exc_unexpected_error
4163: THEN
4164: fnd_file.put_line(fnd_file.log, sqlcode||':'||sqlerrm);
4165: WHEN OTHERS
4166: THEN