[Home] [Help]
202: where job_id = l_job_id;
203:
204: l_job_name varchar2(240) := null;
205:
206: hr_api_error exception;
207: PRAGMA EXCEPTION_INIT(hr_api_error, -20001);
208:
209: BEGIN
210: x_return_status := fnd_api.g_ret_sts_success;
203:
204: l_job_name varchar2(240) := null;
205:
206: hr_api_error exception;
207: PRAGMA EXCEPTION_INIT(hr_api_error, -20001);
208:
209: BEGIN
210: x_return_status := fnd_api.g_ret_sts_success;
211:
223:
224: fnd_profile.get('PER_BUSINESS_GROUP_ID',l_business_group_id);
225:
226:
227: /* Calling the hr api's to create an Employee in HR database. */
228:
229: hr_employee_api.create_employee
230: (p_hire_date => p_source_start_date
231: ,p_business_group_id => l_business_group_id
532: commit work;
533: end if;
534:
535: exception
536: WHEN hr_api_error
537: THEN
538: ROLLBACK TO cr_emp_save;
539: x_return_status := fnd_api.g_ret_sts_error;
540: fnd_message.set_name('JTF','JTF_RS_HR_API_ERROR');
536: WHEN hr_api_error
537: THEN
538: ROLLBACK TO cr_emp_save;
539: x_return_status := fnd_api.g_ret_sts_error;
540: fnd_message.set_name('JTF','JTF_RS_HR_API_ERROR');
541: fnd_message.set_token('P_SQLERRM',substr(SQLERRM,11));
542: FND_MSG_PUB.add;
543: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
544: when fnd_api.g_exc_unexpected_error
898: mgr_res_rec mgr_res_cur%rowtype;
899:
900: l_fnd_date date := to_date(to_char(fnd_api.g_miss_date, 'DD-MM-RRRR'), 'DD-MM-RRRR');
901:
902: hr_api_error exception;
903: PRAGMA EXCEPTION_INIT(hr_api_error, -20001);
904: BEGIN
905: x_return_status := fnd_api.g_ret_sts_success;
906: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
899:
900: l_fnd_date date := to_date(to_char(fnd_api.g_miss_date, 'DD-MM-RRRR'), 'DD-MM-RRRR');
901:
902: hr_api_error exception;
903: PRAGMA EXCEPTION_INIT(hr_api_error, -20001);
904: BEGIN
905: x_return_status := fnd_api.g_ret_sts_success;
906: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
907: IF FND_API.To_boolean(P_INIT_MSG_LIST)
1048: elsif(l_attr_rec(i).attribute_access_level = 'UWA')
1049: then
1050: l_uwa := 1;
1051: aprvl_source_office := ok_source_office;
1052: -- not setting ok_source_office as G_MISS as HR API
1053: -- does not understand G_MISS and inserts G_MISS into
1054: -- the database which causes form crash/junk value
1055: -- bug # 3114608
1056: ok_source_office := old_rec.source_office;
1083: elsif(l_attr_rec(i).attribute_access_level = 'UWA')
1084: then
1085: l_uwa := 1;
1086: aprvl_source_mailstop := ok_source_mailstop;
1087: -- not setting ok_source_mailstop as G_MISS as HR API
1088: -- does not understand G_MISS and inserts G_MISS into
1089: -- the database which causes form crash/junk value
1090: -- bug # 3114608
1091: ok_source_mailstop := old_rec.source_mailstop;
1117: elsif(l_attr_rec(i).attribute_access_level = 'UWA')
1118: then
1119: l_uwa := 1;
1120: aprvl_source_location := ok_source_location;
1121: -- not setting ok_source_location as G_MISS as HR API
1122: -- does not understand G_MISS and inserts G_MISS into
1123: -- the database which causes form crash/junk value
1124: -- bug # 3114608
1125: ok_source_location := old_rec.source_location;
1151: elsif(l_attr_rec(i).attribute_access_level = 'UWA')
1152: then
1153: l_uwa := 1;
1154: aprvl_source_phone := ok_source_phone;
1155: -- not setting ok_source_phone as G_MISS as HR API
1156: -- does not understand G_MISS and inserts G_MISS into
1157: -- the database which causes form crash/junk value
1158: -- bug # 3114608
1159: ok_source_phone := old_rec.source_phone;
1184: elsif(l_attr_rec(i).attribute_access_level = 'UWA')
1185: then
1186: l_uwa := 1;
1187: aprvl_source_mobile_phone := ok_source_mobile_phone;
1188: -- not setting ok_source_mobile_phone as G_MISS as HR API
1189: -- does not understand G_MISS and inserts G_MISS into
1190: -- the database which causes form crash/junk value
1191: -- bug # 3114608
1192: ok_source_mobile_phone := old_rec.source_mobile_phone;
1217: elsif(l_attr_rec(i).attribute_access_level = 'UWA')
1218: then
1219: l_uwa := 1;
1220: aprvl_source_pager := ok_source_pager;
1221: -- not setting ok_source_pager as G_MISS as HR API
1222: -- does not understand G_MISS and inserts G_MISS into
1223: -- the database which causes form crash/junk value
1224: -- bug # 3114608
1225: ok_source_pager := old_rec.source_pager;
1250: elsif(l_attr_rec(i).attribute_access_level = 'UWA')
1251: then
1252: l_uwa := 1;
1253: aprvl_source_email := ok_source_email;
1254: -- not setting ok_source_email as G_MISS as HR API
1255: -- does not understand G_MISS and inserts G_MISS into
1256: -- the database which causes form crash/junk value
1257: -- bug # 3114608
1258: ok_source_email := old_rec.source_email;
1526:
1527: elsif((l_u = 1) OR (p_approved IN ('A', 'T', 'AE', 'TE') ))
1528: then
1529:
1530: --call the hr api's
1531: If (l_supervisor_id <> fnd_api.g_miss_num)
1532: then
1533: -- call the api for per_assigments_f update
1534: open assg_cur(old_rec.source_id);
1775: close pager_cur;
1776: end if; -- end of source_pager change check
1777:
1778:
1779: --end of hr api calls
1780:
1781: --call update resource api
1782:
1783: if((ok_address_id <> fnd_api.g_miss_num) OR (ok_address_id is NULL))
1998: ROLLBACK TO sp_save;
1999: end if;
2000:
2001: EXCEPTION
2002: WHEN hr_api_error
2003: THEN
2004: ROLLBACK TO sp_save;
2005: x_return_status := fnd_api.g_ret_sts_error;
2006: fnd_message.set_name('JTF','JTF_RS_HR_API_ERROR');
2002: WHEN hr_api_error
2003: THEN
2004: ROLLBACK TO sp_save;
2005: x_return_status := fnd_api.g_ret_sts_error;
2006: fnd_message.set_name('JTF','JTF_RS_HR_API_ERROR');
2007: fnd_message.set_token('P_SQLERRM',substr(SQLERRM,11));
2008: FND_MSG_PUB.add;
2009: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2010: WHEN fnd_api.g_exc_unexpected_error