[Home] [Help]
127:
128: --
129: begin
130: --
131: hr_utility.set_Location('Entering'||l_proc,5);
132: OPEN c_cont_primary_addr;
133: FETCH c_cont_primary_addr into l_cont_primary_addr;
134: --
135: IF c_cont_primary_addr%FOUND
138: -- Delete the contacts primary address.
139: -- As there is no API to do the delete we have to physically call the
140: -- the delete statement.
141: --
142: hr_utility.set_Location('IF c_cont_primary_addr FOUND:'||l_proc,10);
143: delete from per_addresses
144: where address_id = l_cont_primary_addr.address_id;
145: --
146: END IF;
146: END IF;
147: --
148: CLOSE c_cont_primary_addr;
149: --
150: hr_utility.set_Location('Exiting :'||l_proc,15);
151: end p_del_cont_primary_addr;
152: /* 999 Delete before arcsin
153: -- ----------------------------------------------------------------------------
154: -- |------------------------------< get_varchar2_value >------------------------|
173: and hatv.name = l_name;
174: --
175: begin
176:
177: hr_utility.set_location('Entering:'|| l_proc, 5);
178: -- upper the parameter name
179: l_name := upper(p_name);
180: -- select the transaction value details
181: open csr_hatv;
184:
185: if csr_hatv%notfound then
186: -- parameter does not exist
187: close csr_hatv;
188: hr_utility.raise_error;
189: end if;
190: close csr_hatv;
191: --
192: return l_varchar2_value;
189: end if;
190: close csr_hatv;
191: --
192: return l_varchar2_value;
193: hr_utility.set_location(' Leaving:'||l_proc, 10);
194: end get_varchar2_value;
195: */
196: --
197: -- ----------------------------------------------------------------------------
217: and hatv.name = l_name;
218: --
219: begin
220:
221: hr_utility.set_location('Entering:'|| l_proc, 5);
222: -- upper the parameter name
223: l_name := upper(p_name);
224: -- select the transaction value details
225: open csr_hatv;
227: into l_number_value;
228:
229: if csr_hatv%notfound then
230: -- parameter does not exist
231: hr_utility.set_location('If Parameter does not exist'|| l_proc, 10);
232: close csr_hatv;
233: hr_utility.raise_error;
234: end if;
235: close csr_hatv;
229: if csr_hatv%notfound then
230: -- parameter does not exist
231: hr_utility.set_location('If Parameter does not exist'|| l_proc, 10);
232: close csr_hatv;
233: hr_utility.raise_error;
234: end if;
235: close csr_hatv;
236: --
237: hr_utility.set_location(' Leaving:'||l_proc, 15);
233: hr_utility.raise_error;
234: end if;
235: close csr_hatv;
236: --
237: hr_utility.set_location(' Leaving:'||l_proc, 15);
238: return l_number_value;
239:
240: end get_number_value;
241: --
315:
316: --
317: begin
318: --
319: hr_utility.set_location('Entering:'||l_proc, 5);
320: p_contact_changed := 'N';
321: p_phone_changed := 'N';
322: p_address_changed := 'N';
323: --shdas
347: -- ---------------------------------------------------------------------
348: --
349: ln_index := 0;
350: --
351: hr_utility.set_location('Entering For Loop:'||l_proc, 10);
352: FOR j in 1..l_trans_step_rows
353: LOOP
354: -- StartRegistration
355: -- Get the contact set from java and compare with the contact set id
362: ,p_name => 'P_CONTACT_SET');
363: exception
364: when others then
365: --
366: hr_utility.set_location('Exception:'||l_proc,555);
367: l_contact_set := 1;
368: --
369: end;
370: --
403: end if;
404: exception
405: when others then
406: --
407: hr_utility.set_location('Exception:'||l_proc,560);
408: l_contact_operation := null ;
409: --
410: end;
411: --
422: --
423: exception
424: when others then
425: --
426: hr_utility.set_location('Exception:'||l_proc,565);
427: l_save_mode := null ;
428: --
429: end;
430: --
452: --
453: exception
454: when others then
455: --
456: hr_utility.set_location('Exception:'||l_proc,570);
457: l_shared_Residence_Flag := l_local_shared_Residence_Flag ;
458: --
459: end;
460:
635: p_save_mode := l_save_mode;
636: p_shared_residence_flag := l_shared_residence_flag;
637: p_trans_rec_count := l_trans_rec_count;
638:
639: hr_utility.set_location('Exiting For Loop:'||l_proc, 20);
640: /* fix sansingh
641: before leaving check if p_contact_person_id is populated or not
642: if only phone or address region is updated , p_contact_person_id
643: would not be populated , it would be actually stored as p_person_id in that case for the transaction step
646: if (p_contact_person_id is null) then
647: p_contact_person_id := l_contact_person_id;
648: end if;
649:
650: hr_utility.set_location('Exiting:'||l_proc, 25);
651: --
652: EXCEPTION
653: WHEN OTHERS THEN
654: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
651: --
652: EXCEPTION
653: WHEN OTHERS THEN
654: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
655: hr_utility.set_location('Exception OTHERS:'||l_proc,555);
656: hr_utility.raise_error;
657: --
658:
659: end get_contact_regions_status_tt;
652: EXCEPTION
653: WHEN OTHERS THEN
654: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
655: hr_utility.set_location('Exception OTHERS:'||l_proc,555);
656: hr_utility.raise_error;
657: --
658:
659: end get_contact_regions_status_tt;
660:
746: l_transaction_rec_count integer default 0;
747: l_proc varchar2(72) := g_package||'get_contact_relationship_tt';
748:
749: begin
750: hr_utility.set_location('Entering:'||l_proc, 5);
751: -- ------------------------------------------------------------------
752: -- Check if there are any transaction rec already saved for the current
753: -- transaction. This is used for re-display the Update page when a user
754: -- clicks the Back button on the Review page to go back to the Update page
763:
764:
765: IF l_transaction_step_id > 0
766: THEN
767: hr_utility.set_location('l_transaction_step_id > 0:'||l_proc, 10);
768: l_transaction_rec_count := 1;
769: ELSE
770: hr_utility.set_location('l_transaction_step_id < 0:'||l_proc, 10);
771: l_transaction_rec_count := 0;
766: THEN
767: hr_utility.set_location('l_transaction_step_id > 0:'||l_proc, 10);
768: l_transaction_rec_count := 1;
769: ELSE
770: hr_utility.set_location('l_transaction_step_id < 0:'||l_proc, 10);
771: l_transaction_rec_count := 0;
772: return;
773: END IF;
774: --
844: ,p_review_proc_call => p_review_proc_call
845: );
846: --
847: p_trans_rec_count := l_transaction_rec_count;
848: hr_utility.set_location('Exiting:'||l_proc, 15);
849: --
850: EXCEPTION
851: WHEN g_data_error THEN
852: hr_utility.set_location('Exception:g_data_error'||l_proc,555);
848: hr_utility.set_location('Exiting:'||l_proc, 15);
849: --
850: EXCEPTION
851: WHEN g_data_error THEN
852: hr_utility.set_location('Exception:g_data_error'||l_proc,555);
853: RAISE;
854:
855:
856: END get_contact_relationship_tt;
938: hr_transaction_api.get_date_value
939: (p_transaction_step_id => p_transaction_step_id
940: ,p_name => 'P_EFFECTIVE_DATE');
941: --
942: hr_utility.set_location('P_EFFECTIVE_DATE', 2222);
943: P_ATTRIBUTE_UPDATE_MODE := 'update';
944: /*
945: -- 9999 delete it later if not required.
946: p_attribute_update_mode :=
946: p_attribute_update_mode :=
947: hr_transaction_api.get_varchar2_value
948: (p_transaction_step_id => p_transaction_step_id
949: ,p_name => 'P_ATTRIBUTE_UPDATE_MODE');
950: hr_utility.set_location('P_ATTRIBUTE_UPDATE_MODE', 2222);
951: */
952: --
953: P_CONTACT_RELATIONSHIP_ID :=
954: hr_transaction_api.get_NUMBER_value
953: P_CONTACT_RELATIONSHIP_ID :=
954: hr_transaction_api.get_NUMBER_value
955: (p_transaction_step_id => p_transaction_step_id
956: ,p_name => 'P_CONTACT_RELATIONSHIP_ID');
957: hr_utility.set_location('P_CONTACT_RELATIONSHIP_ID', 2222);
958: --
959: P_CONTACT_TYPE :=
960: hr_transaction_api.get_VARCHAR2_value
961: (p_transaction_step_id => p_transaction_step_id
959: P_CONTACT_TYPE :=
960: hr_transaction_api.get_VARCHAR2_value
961: (p_transaction_step_id => p_transaction_step_id
962: ,p_name => 'P_CONTACT_TYPE');
963: hr_utility.set_location('P_CONTACT_TYPE', 2222);
964: --
965: P_COMMENTS :=
966: hr_transaction_api.get_VARCHAR2_value
967: (p_transaction_step_id => p_transaction_step_id
965: P_COMMENTS :=
966: hr_transaction_api.get_VARCHAR2_value
967: (p_transaction_step_id => p_transaction_step_id
968: ,p_name => 'P_COMMENTS');
969: hr_utility.set_location('P_COMMENTS', 2222);
970: --
971: P_PRIMARY_CONTACT_FLAG :=
972: hr_transaction_api.get_VARCHAR2_value
973: (p_transaction_step_id => p_transaction_step_id
971: P_PRIMARY_CONTACT_FLAG :=
972: hr_transaction_api.get_VARCHAR2_value
973: (p_transaction_step_id => p_transaction_step_id
974: ,p_name => 'P_PRIMARY_CONTACT_FLAG');
975: hr_utility.set_location('P_PRIMARY_CONTACT_FLAG', 2222);
976: --
977: P_THIRD_PARTY_PAY_FLAG :=
978: hr_transaction_api.get_VARCHAR2_value
979: (p_transaction_step_id => p_transaction_step_id
977: P_THIRD_PARTY_PAY_FLAG :=
978: hr_transaction_api.get_VARCHAR2_value
979: (p_transaction_step_id => p_transaction_step_id
980: ,p_name => 'P_THIRD_PARTY_PAY_FLAG');
981: hr_utility.set_location('P_THIRD_PARTY_PAY_FLAG', 2222);
982: --
983: p_bondholder_flag :=
984: hr_transaction_api.get_varchar2_value
985: (p_transaction_step_id => p_transaction_step_id
983: p_bondholder_flag :=
984: hr_transaction_api.get_varchar2_value
985: (p_transaction_step_id => p_transaction_step_id
986: ,p_name => 'P_BONDHOLDER_FLAG');
987: hr_utility.set_location('P_BONDHOLDER_FLAG', 2222);
988: --
989: p_date_start :=
990: hr_transaction_api.get_date_value
991: (p_transaction_step_id => p_transaction_step_id
989: p_date_start :=
990: hr_transaction_api.get_date_value
991: (p_transaction_step_id => p_transaction_step_id
992: ,p_name => 'P_DATE_START');
993: hr_utility.set_location('P_DATE_START', 2222);
994: --
995: p_start_life_reason_id :=
996: hr_transaction_api.get_number_value
997: (p_transaction_step_id => p_transaction_step_id
995: p_start_life_reason_id :=
996: hr_transaction_api.get_number_value
997: (p_transaction_step_id => p_transaction_step_id
998: ,p_name => 'P_START_LIFE_REASON_ID');
999: hr_utility.set_location('P_START_LIFE_REASON_ID', 2222);
1000: --
1001: p_date_end :=
1002: hr_transaction_api.get_date_value
1003: (p_transaction_step_id => p_transaction_step_id
1001: p_date_end :=
1002: hr_transaction_api.get_date_value
1003: (p_transaction_step_id => p_transaction_step_id
1004: ,p_name => 'P_DATE_END');
1005: hr_utility.set_location('P_DATE_END', 2222);
1006: --
1007: p_end_life_reason_id :=
1008: hr_transaction_api.get_number_value
1009: (p_transaction_step_id => p_transaction_step_id
1007: p_end_life_reason_id :=
1008: hr_transaction_api.get_number_value
1009: (p_transaction_step_id => p_transaction_step_id
1010: ,p_name => 'P_END_LIFE_REASON_ID');
1011: hr_utility.set_location('P_END_LIFE_REASON_ID', 2222);
1012: --
1013: p_rltd_per_rsds_w_dsgntr_flag :=
1014: hr_transaction_api.get_varchar2_value
1015: (p_transaction_step_id => p_transaction_step_id
1013: p_rltd_per_rsds_w_dsgntr_flag :=
1014: hr_transaction_api.get_varchar2_value
1015: (p_transaction_step_id => p_transaction_step_id
1016: ,p_name => 'P_RLTD_PER_RSDS_W_DSGNTR_FLAG');
1017: hr_utility.set_location('P_RLTD_PER_RSDS_W_DSGNTR_FLAG', 2222);
1018: --
1019: p_personal_flag :=
1020: hr_transaction_api.get_varchar2_value
1021: (p_transaction_step_id => p_transaction_step_id
1019: p_personal_flag :=
1020: hr_transaction_api.get_varchar2_value
1021: (p_transaction_step_id => p_transaction_step_id
1022: ,p_name => 'P_PERSONAL_FLAG');
1023: hr_utility.set_location('P_PERSONAL_FLAG', 2222);
1024: --
1025: p_sequence_number :=
1026: hr_transaction_api.get_number_value
1027: (p_transaction_step_id => p_transaction_step_id
1025: p_sequence_number :=
1026: hr_transaction_api.get_number_value
1027: (p_transaction_step_id => p_transaction_step_id
1028: ,p_name => 'P_SEQUENCE_NUMBER');
1029: hr_utility.set_location('P_SEQUENCE_NUMBER', 2222);
1030: --
1031: p_dependent_flag :=
1032: hr_transaction_api.get_varchar2_value
1033: (p_transaction_step_id => p_transaction_step_id
1031: p_dependent_flag :=
1032: hr_transaction_api.get_varchar2_value
1033: (p_transaction_step_id => p_transaction_step_id
1034: ,p_name => 'P_DEPENDENT_FLAG');
1035: hr_utility.set_location('P_DEPENDENT_FLAG', 2222);
1036: --
1037: p_beneficiary_flag :=
1038: hr_transaction_api.get_varchar2_value
1039: (p_transaction_step_id => p_transaction_step_id
1037: p_beneficiary_flag :=
1038: hr_transaction_api.get_varchar2_value
1039: (p_transaction_step_id => p_transaction_step_id
1040: ,p_name => 'P_BENEFICIARY_FLAG');
1041: hr_utility.set_location('P_BENEFICIARY_FLAG', 2222);
1042: --
1043: p_cont_attribute_category :=
1044: hr_transaction_api.get_varchar2_value
1045: (p_transaction_step_id => p_transaction_step_id
1043: p_cont_attribute_category :=
1044: hr_transaction_api.get_varchar2_value
1045: (p_transaction_step_id => p_transaction_step_id
1046: ,p_name => 'P_CONT_ATTRIBUTE_CATEGORY');
1047: hr_utility.set_location('P_CONT_ATTRIBUTE_CATEGORY', 2222);
1048: --
1049: p_cont_attribute1 :=
1050: hr_transaction_api.get_varchar2_value
1051: (p_transaction_step_id => p_transaction_step_id
1049: p_cont_attribute1 :=
1050: hr_transaction_api.get_varchar2_value
1051: (p_transaction_step_id => p_transaction_step_id
1052: ,p_name => 'P_CONT_ATTRIBUTE1');
1053: hr_utility.set_location('P_CONT_ATTRIBUTE1', 2222);
1054: --
1055: p_cont_attribute2 :=
1056: hr_transaction_api.get_varchar2_value
1057: (p_transaction_step_id => p_transaction_step_id
1055: p_cont_attribute2 :=
1056: hr_transaction_api.get_varchar2_value
1057: (p_transaction_step_id => p_transaction_step_id
1058: ,p_name => 'P_CONT_ATTRIBUTE2');
1059: hr_utility.set_location('P_CONT_ATTRIBUTE2', 2222);
1060: --
1061: p_cont_attribute3 :=
1062: hr_transaction_api.get_varchar2_value
1063: (p_transaction_step_id => p_transaction_step_id
1061: p_cont_attribute3 :=
1062: hr_transaction_api.get_varchar2_value
1063: (p_transaction_step_id => p_transaction_step_id
1064: ,p_name => 'P_CONT_ATTRIBUTE3');
1065: hr_utility.set_location('P_CONT_ATTRIBUTE3', 2222);
1066: --
1067: p_cont_attribute4 :=
1068: hr_transaction_api.get_varchar2_value
1069: (p_transaction_step_id => p_transaction_step_id
1067: p_cont_attribute4 :=
1068: hr_transaction_api.get_varchar2_value
1069: (p_transaction_step_id => p_transaction_step_id
1070: ,p_name => 'P_CONT_ATTRIBUTE4');
1071: hr_utility.set_location('P_CONT_ATTRIBUTE4', 2222);
1072: --
1073: p_cont_attribute5 :=
1074: hr_transaction_api.get_varchar2_value
1075: (p_transaction_step_id => p_transaction_step_id
1073: p_cont_attribute5 :=
1074: hr_transaction_api.get_varchar2_value
1075: (p_transaction_step_id => p_transaction_step_id
1076: ,p_name => 'P_CONT_ATTRIBUTE5');
1077: hr_utility.set_location('P_CONT_ATTRIBUTE5', 2222);
1078: --
1079: p_cont_attribute6 :=
1080: hr_transaction_api.get_varchar2_value
1081: (p_transaction_step_id => p_transaction_step_id
1079: p_cont_attribute6 :=
1080: hr_transaction_api.get_varchar2_value
1081: (p_transaction_step_id => p_transaction_step_id
1082: ,p_name => 'P_CONT_ATTRIBUTE6');
1083: hr_utility.set_location('P_CONT_ATTRIBUTE6', 2222);
1084: --
1085: p_cont_attribute7 :=
1086: hr_transaction_api.get_varchar2_value
1087: (p_transaction_step_id => p_transaction_step_id
1085: p_cont_attribute7 :=
1086: hr_transaction_api.get_varchar2_value
1087: (p_transaction_step_id => p_transaction_step_id
1088: ,p_name => 'P_CONT_ATTRIBUTE7');
1089: hr_utility.set_location('P_CONT_ATTRIBUTE7', 2222);
1090: --
1091: p_cont_attribute8 :=
1092: hr_transaction_api.get_varchar2_value
1093: (p_transaction_step_id => p_transaction_step_id
1091: p_cont_attribute8 :=
1092: hr_transaction_api.get_varchar2_value
1093: (p_transaction_step_id => p_transaction_step_id
1094: ,p_name => 'P_CONT_ATTRIBUTE8');
1095: hr_utility.set_location('P_CONT_ATTRIBUTE8', 2222);
1096: --
1097: p_cont_attribute9 :=
1098: hr_transaction_api.get_varchar2_value
1099: (p_transaction_step_id => p_transaction_step_id
1097: p_cont_attribute9 :=
1098: hr_transaction_api.get_varchar2_value
1099: (p_transaction_step_id => p_transaction_step_id
1100: ,p_name => 'P_CONT_ATTRIBUTE9');
1101: hr_utility.set_location('P_CONT_ATTRIBUTE9', 2222);
1102: --
1103: p_cont_attribute10 :=
1104: hr_transaction_api.get_varchar2_value
1105: (p_transaction_step_id => p_transaction_step_id
1103: p_cont_attribute10 :=
1104: hr_transaction_api.get_varchar2_value
1105: (p_transaction_step_id => p_transaction_step_id
1106: ,p_name => 'P_CONT_ATTRIBUTE10');
1107: hr_utility.set_location('P_CONT_ATTRIBUTE10', 2222);
1108: --
1109: p_cont_attribute11 :=
1110: hr_transaction_api.get_varchar2_value
1111: (p_transaction_step_id => p_transaction_step_id
1109: p_cont_attribute11 :=
1110: hr_transaction_api.get_varchar2_value
1111: (p_transaction_step_id => p_transaction_step_id
1112: ,p_name => 'P_CONT_ATTRIBUTE11');
1113: hr_utility.set_location('P_CONT_ATTRIBUTE11', 2222);
1114: --
1115: p_cont_attribute12 :=
1116: hr_transaction_api.get_varchar2_value
1117: (p_transaction_step_id => p_transaction_step_id
1115: p_cont_attribute12 :=
1116: hr_transaction_api.get_varchar2_value
1117: (p_transaction_step_id => p_transaction_step_id
1118: ,p_name => 'P_CONT_ATTRIBUTE12');
1119: hr_utility.set_location('P_CONT_ATTRIBUTE12', 2222);
1120: --
1121: p_cont_attribute13 :=
1122: hr_transaction_api.get_varchar2_value
1123: (p_transaction_step_id => p_transaction_step_id
1121: p_cont_attribute13 :=
1122: hr_transaction_api.get_varchar2_value
1123: (p_transaction_step_id => p_transaction_step_id
1124: ,p_name => 'P_CONT_ATTRIBUTE13');
1125: hr_utility.set_location('P_CONT_ATTRIBUTE13', 2222);
1126: --
1127: p_cont_attribute14 :=
1128: hr_transaction_api.get_varchar2_value
1129: (p_transaction_step_id => p_transaction_step_id
1127: p_cont_attribute14 :=
1128: hr_transaction_api.get_varchar2_value
1129: (p_transaction_step_id => p_transaction_step_id
1130: ,p_name => 'P_CONT_ATTRIBUTE14');
1131: hr_utility.set_location('P_CONT_ATTRIBUTE14', 2222);
1132: --
1133: p_cont_attribute15 :=
1134: hr_transaction_api.get_varchar2_value
1135: (p_transaction_step_id => p_transaction_step_id
1133: p_cont_attribute15 :=
1134: hr_transaction_api.get_varchar2_value
1135: (p_transaction_step_id => p_transaction_step_id
1136: ,p_name => 'P_CONT_ATTRIBUTE15');
1137: hr_utility.set_location('P_CONT_ATTRIBUTE15', 2222);
1138: --
1139: p_cont_attribute16 :=
1140: hr_transaction_api.get_varchar2_value
1141: (p_transaction_step_id => p_transaction_step_id
1139: p_cont_attribute16 :=
1140: hr_transaction_api.get_varchar2_value
1141: (p_transaction_step_id => p_transaction_step_id
1142: ,p_name => 'P_CONT_ATTRIBUTE16');
1143: hr_utility.set_location('P_CONT_ATTRIBUTE16', 2222);
1144: --
1145: p_cont_attribute17 :=
1146: hr_transaction_api.get_varchar2_value
1147: (p_transaction_step_id => p_transaction_step_id
1145: p_cont_attribute17 :=
1146: hr_transaction_api.get_varchar2_value
1147: (p_transaction_step_id => p_transaction_step_id
1148: ,p_name => 'P_CONT_ATTRIBUTE17');
1149: hr_utility.set_location('P_CONT_ATTRIBUTE17', 2222);
1150: --
1151: p_cont_attribute18 :=
1152: hr_transaction_api.get_varchar2_value
1153: (p_transaction_step_id => p_transaction_step_id
1151: p_cont_attribute18 :=
1152: hr_transaction_api.get_varchar2_value
1153: (p_transaction_step_id => p_transaction_step_id
1154: ,p_name => 'P_CONT_ATTRIBUTE18');
1155: hr_utility.set_location('P_CONT_ATTRIBUTE18', 2222);
1156: --
1157: p_cont_attribute19 :=
1158: hr_transaction_api.get_varchar2_value
1159: (p_transaction_step_id => p_transaction_step_id
1157: p_cont_attribute19 :=
1158: hr_transaction_api.get_varchar2_value
1159: (p_transaction_step_id => p_transaction_step_id
1160: ,p_name => 'P_CONT_ATTRIBUTE19');
1161: hr_utility.set_location('P_CONT_ATTRIBUTE19', 2222);
1162: --
1163: p_cont_attribute20 :=
1164: hr_transaction_api.get_varchar2_value
1165: (p_transaction_step_id => p_transaction_step_id
1163: p_cont_attribute20 :=
1164: hr_transaction_api.get_varchar2_value
1165: (p_transaction_step_id => p_transaction_step_id
1166: ,p_name => 'P_CONT_ATTRIBUTE20');
1167: hr_utility.set_location('p_cont_attribute20', 2222);
1168: --
1169: p_object_version_number :=
1170: hr_transaction_api.get_number_value
1171: (p_transaction_step_id => p_transaction_step_id
1169: p_object_version_number :=
1170: hr_transaction_api.get_number_value
1171: (p_transaction_step_id => p_transaction_step_id
1172: ,p_name => 'P_OBJECT_VERSION_NUMBER');
1173: hr_utility.set_location('p_object_version_number', 2222);
1174: --
1175: p_review_proc_call :=
1176: hr_transaction_api.get_varchar2_value
1177: (p_transaction_step_id => p_transaction_step_id
1175: p_review_proc_call :=
1176: hr_transaction_api.get_varchar2_value
1177: (p_transaction_step_id => p_transaction_step_id
1178: ,p_name => 'P_REVIEW_PROC_CALL');
1179: hr_utility.set_location('P_REVIEW_PROC_CALL', 2222);
1180: --
1181: --
1182: P_CONT_INFORMATION_CATEGORY :=
1183: hr_transaction_api.get_VARCHAR2_value
1283: hr_transaction_api.get_VARCHAR2_value
1284: (p_transaction_step_id => p_transaction_step_id
1285: ,p_name => 'P_CONT_INFORMATION20');
1286: --
1287: hr_utility.set_location('Exiting:'||l_proc, 15);
1288: EXCEPTION
1289: WHEN OTHERS THEN
1290: hr_utility.set_location('Exception:'||l_proc,555);
1291: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
1286: --
1287: hr_utility.set_location('Exiting:'||l_proc, 15);
1288: EXCEPTION
1289: WHEN OTHERS THEN
1290: hr_utility.set_location('Exception:'||l_proc,555);
1291: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
1292: hr_utility.raise_error;
1293: --RAISE;
1294:
1288: EXCEPTION
1289: WHEN OTHERS THEN
1290: hr_utility.set_location('Exception:'||l_proc,555);
1291: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
1292: hr_utility.raise_error;
1293: --RAISE;
1294:
1295: END get_contact_relationship_tt;
1296:
1311: l_warning_or_error varchar2(20);
1312: l_proc varchar2(72) := g_package||'check_ni_unique';
1313:
1314: begin
1315: hr_utility.set_location('Entering:'||l_proc, 5);
1316: hr_utility.clear_message();
1317: hr_utility.clear_warning();
1318:
1319:
1312: l_proc varchar2(72) := g_package||'check_ni_unique';
1313:
1314: begin
1315: hr_utility.set_location('Entering:'||l_proc, 5);
1316: hr_utility.clear_message();
1317: hr_utility.clear_warning();
1318:
1319:
1320: l_warning_or_error := fnd_profile.value('PER_NI_UNIQUE_ERROR_WARNING');
1313:
1314: begin
1315: hr_utility.set_location('Entering:'||l_proc, 5);
1316: hr_utility.clear_message();
1317: hr_utility.clear_warning();
1318:
1319:
1320: l_warning_or_error := fnd_profile.value('PER_NI_UNIQUE_ERROR_WARNING');
1321: if l_warning_or_error is null then
1319:
1320: l_warning_or_error := fnd_profile.value('PER_NI_UNIQUE_ERROR_WARNING');
1321: if l_warning_or_error is null then
1322: l_warning_or_error:= 'ERROR';
1323: hr_utility.set_location('l_warning_or_error:'||l_proc,10 );
1324: end if;
1325:
1326: if p_national_identifier is not null then
1327:
1324: end if;
1325:
1326: if p_national_identifier is not null then
1327:
1328: hr_utility.set_location('p_national_identifier is not null:'||l_proc,15 );
1329: hr_ni_chk_pkg.check_ni_unique(p_national_identifier => p_national_identifier
1330: ,p_person_id => p_person_id
1331: ,p_business_group_id => p_business_group_id
1332: ,p_raise_error_or_warning => l_warning_or_error);
1331: ,p_business_group_id => p_business_group_id
1332: ,p_raise_error_or_warning => l_warning_or_error);
1333:
1334:
1335: l_warning := hr_utility.check_warning();
1336: if l_warning then
1337: hr_utility.set_location('if l_warning:'||l_proc,20);
1338: p_ni_duplicate_warn_or_err := 'WARNING';
1339: else
1333:
1334:
1335: l_warning := hr_utility.check_warning();
1336: if l_warning then
1337: hr_utility.set_location('if l_warning:'||l_proc,20);
1338: p_ni_duplicate_warn_or_err := 'WARNING';
1339: else
1340: hr_utility.set_location('else part of if l_warning:'||l_proc,25);
1341: p_ni_duplicate_warn_or_err := 'NONE';
1336: if l_warning then
1337: hr_utility.set_location('if l_warning:'||l_proc,20);
1338: p_ni_duplicate_warn_or_err := 'WARNING';
1339: else
1340: hr_utility.set_location('else part of if l_warning:'||l_proc,25);
1341: p_ni_duplicate_warn_or_err := 'NONE';
1342: end if;
1343: end if;
1344:
1341: p_ni_duplicate_warn_or_err := 'NONE';
1342: end if;
1343: end if;
1344:
1345: hr_utility.set_location('Exiting:'||l_proc, 30);
1346: exception
1347: when others then
1348: hr_utility.set_location('Exception:'||l_proc,555);
1349: if not l_warning then
1344:
1345: hr_utility.set_location('Exiting:'||l_proc, 30);
1346: exception
1347: when others then
1348: hr_utility.set_location('Exception:'||l_proc,555);
1349: if not l_warning then
1350: p_ni_duplicate_warn_or_err := 'ERROR';
1351: raise;
1352: end if;
1379: --
1380: --9999
1381: -- Put the errors like :
1382: -- WHEN g_data_error THEN
1383: -- hr_utility.raise_error;
1384: --
1385: -- WHEN g_no_changes THEN
1386: -- hr_utility.set_message(800, 'HR_PERINFO_NO_CHANGES');
1387: -- hr_utility.raise_error;
1382: -- WHEN g_data_error THEN
1383: -- hr_utility.raise_error;
1384: --
1385: -- WHEN g_no_changes THEN
1386: -- hr_utility.set_message(800, 'HR_PERINFO_NO_CHANGES');
1387: -- hr_utility.raise_error;
1388: --
1389: -- WHEN others THEN
1390: -- hr_utility.raise_error;
1383: -- hr_utility.raise_error;
1384: --
1385: -- WHEN g_no_changes THEN
1386: -- hr_utility.set_message(800, 'HR_PERINFO_NO_CHANGES');
1387: -- hr_utility.raise_error;
1388: --
1389: -- WHEN others THEN
1390: -- hr_utility.raise_error;
1391: -- 9999
1386: -- hr_utility.set_message(800, 'HR_PERINFO_NO_CHANGES');
1387: -- hr_utility.raise_error;
1388: --
1389: -- WHEN others THEN
1390: -- hr_utility.raise_error;
1391: -- 9999
1392: --
1393: /*
1394: ||===========================================================================
1736: --Added for the bug 14207426/14325833 ends
1737: --
1738: BEGIN
1739: --
1740: hr_utility.set_location('Entering hr_contact_rel_api.update_contact_relationship', 5);
1741: --
1742: IF upper(p_action) = g_change
1743: THEN
1744: l_attribute_update_mode := g_attribute_update;
1748: l_attribute_update_mode := g_attribute_correct;
1749: END IF;
1750: END IF;
1751:
1752: hr_utility.set_location('l_attribute_update_mode=' ||
1753: l_attribute_update_mode, 10);
1754:
1755: -- Bug no:2263008 fix begins
1756:
1805: END IF;
1806:
1807: SAVEPOINT before_entering_into_update ;
1808:
1809: hr_utility.set_location('Before calling is_rec_changed', 15);
1810: --
1811: l_sequence_number := p_sequence_number;
1812: --
1813: IF p_sequence_number <= 0
1824: open csr_chk_primary_cnt;
1825: fetch csr_chk_primary_cnt into l_exist_primary_contact;
1826: if csr_chk_primary_cnt%FOUND then
1827: close csr_chk_primary_cnt;
1828: hr_utility.set_message(800,'PER_7125_EMP_CON_PRIMARY');
1829: hr_utility.raise_error;
1830: end if;
1831: end if;
1832:
1825: fetch csr_chk_primary_cnt into l_exist_primary_contact;
1826: if csr_chk_primary_cnt%FOUND then
1827: close csr_chk_primary_cnt;
1828: hr_utility.set_message(800,'PER_7125_EMP_CON_PRIMARY');
1829: hr_utility.raise_error;
1830: end if;
1831: end if;
1832:
1833: if (p_contact_operation = 'EMRG_OVRW_UPD' and p_primary_contact_flag = 'Y' ) then
1838: if l_emrg_primary_chk_flag = 'N' then
1839: open csr_chk_primary_cnt;
1840: if csr_chk_primary_cnt%FOUND then
1841: close csr_chk_primary_cnt;
1842: hr_utility.set_message(800,'PER_7125_EMP_CON_PRIMARY');
1843: hr_utility.raise_error;
1844: end if;
1845: end if;
1846: end if;
1839: open csr_chk_primary_cnt;
1840: if csr_chk_primary_cnt%FOUND then
1841: close csr_chk_primary_cnt;
1842: hr_utility.set_message(800,'PER_7125_EMP_CON_PRIMARY');
1843: hr_utility.raise_error;
1844: end if;
1845: end if;
1846: end if;
1847:
1927: -- Primary flag checkbox is availaible only in Emergency Contact.So checking for
1928: -- change in primary contact only when in Emerg Update.
1929:
1930: if p_contact_operation in ('EMRG_OVRW_UPD') then
1931: hr_utility.set_location('if p_contact_operation in EMRG_OVRW_UPD:'||l_proc,20);
1932: open get_emrg_primary_cont_flag(l_contact_relationship_id,
1933: p_cont_person_id,
1934: p_person_id);
1935: fetch get_emrg_primary_cont_flag into l_emrg_primary_cont_flag;
1951: THEN
1952:
1953: -- Call the actual API.
1954: --
1955: hr_utility.set_location('Calling hr_contact_rel_api.update_contact_relationship', 25);
1956: --
1957: if (nvl(p_rltd_per_rsds_w_dsgntr_flag , 'N') = 'Y') then
1958: --
1959: p_del_cont_primary_addr
2050: --
2051: --
2052: IF hr_errors_api.errorExists
2053: THEN
2054: hr_utility.set_location('api error exists hr_contact_rel_api.update_contact_relationship', 30);
2055: ROLLBACK to before_entering_into_update ;
2056: raise g_data_error;
2057: END IF;
2058: --
2058: --
2059: --
2060: ELSE
2061: --
2062: hr_utility.set_location('No changes found hr_contact_rel_api.update_contact_relationship', 35);
2063: --
2064: END IF;
2065:
2066: IF p_vendor_id = 0
2361: --
2362: --
2363: IF hr_errors_api.errorExists
2364: THEN
2365: hr_utility.set_location('api error exists hr_process_person_ss.update_person', 40);
2366: ROLLBACK to before_entering_into_update ;
2367: raise g_data_error;
2368: END IF;
2369: ELSE
2367: raise g_data_error;
2368: END IF;
2369: ELSE
2370: --
2371: hr_utility.set_location('No changes found in hr_process_person_ss.update_person', 45);
2372: --
2373: END IF;
2374:
2375: ROLLBACK to before_entering_into_update ;
2382: -- --------------------------------------------------------------------------
2383: --
2384: IF l_per_details_changed OR l_basic_details_changed
2385: THEN
2386: hr_utility.set_location('l_per_details_changed OR l_basic_details_changed', 50);
2387: -- First, check if transaction id exists or not
2388:
2389: l_transaction_id := hr_transaction_ss.get_transaction_id
2390: (p_item_type => p_item_type
2391: ,p_item_key => p_item_key);
2392: --
2393: --
2394: IF l_transaction_id is null THEN
2395: hr_utility.set_location('IF l_transaction_id is null THEN', 55);
2396: -- Start a Transaction
2397: hr_transaction_ss.start_transaction
2398: (itemtype => p_item_type
2399: ,itemkey => p_item_key
2421: ,p_transaction_step_id => l_transaction_step_id
2422: ,p_object_version_number => l_trs_object_version_number);
2423:
2424: --
2425: hr_utility.set_location('l_transaction_step_id = '
2426: || to_char(l_transaction_step_id), 30);
2427:
2428:
2429: l_count := l_count + 1;
2503: --
2504: --
2505: IF l_basic_details_changed THEN
2506: --
2507: hr_utility.set_location('IF l_basic_details_changed THEN', 60);
2508: l_count := l_count + 1;
2509: l_transaction_table(l_count).param_name :=upper('p_cont_rec_changed');
2510: l_transaction_table(l_count).param_value := 'CHANGED';
2511: l_transaction_table(l_count).param_data_type := upper('varchar2');
2743: l_transaction_table(l_count).param_data_type := upper('number');
2744: --
2745: if not l_per_details_changed then
2746: --
2747: hr_utility.set_location('if not l_per_details_changed then', 65);
2748: l_count := l_count + 1;
2749: l_transaction_table(l_count).param_name :=upper('p_per_rec_changed');
2750: l_transaction_table(l_count).param_value := null;
2751: l_transaction_table(l_count).param_data_type := upper('varchar2');
2757: --
2758: IF l_per_details_changed THEN
2759: --
2760: l_count := l_count + 1;
2761: hr_utility.set_location('if l_per_details_changed THEN', 70);
2762: l_transaction_table(l_count).param_name :=upper('p_per_rec_changed');
2763: l_transaction_table(l_count).param_value := 'CHANGED';
2764: l_transaction_table(l_count).param_data_type := upper('varchar2');
2765: --
3694: itemkey => p_item_key,
3695: aname => 'HR_CONTACT_SET');
3696:
3697: exception when others then
3698: hr_utility.set_location('Exception:'||l_proc,555);
3699: l_contact_set := 0;
3700:
3701: end;
3702:
3912: l_transaction_table(l_count).param_name :=upper('P_CONT_INFORMATION20');
3913: l_transaction_table(l_count).param_value := P_CONT_INFORMATION20;
3914: l_transaction_table(l_count).param_data_type := upper('varchar2');
3915:
3916: hr_utility.set_location('Before Calling :hr_transaction_ss.save_transaction_step', 75);
3917: hr_utility.set_location('Before Calling :hr_transaction_ss.save_transaction_step '
3918: || to_char(l_transaction_table.count), 75);
3919: --
3920:
3913: l_transaction_table(l_count).param_value := P_CONT_INFORMATION20;
3914: l_transaction_table(l_count).param_data_type := upper('varchar2');
3915:
3916: hr_utility.set_location('Before Calling :hr_transaction_ss.save_transaction_step', 75);
3917: hr_utility.set_location('Before Calling :hr_transaction_ss.save_transaction_step '
3918: || to_char(l_transaction_table.count), 75);
3919: --
3920:
3921: -- Bug 3152505 : Added the new transaction var
3933: ,p_transaction_step_id => l_transaction_step_id
3934: ,p_api_name => g_package || '.PROCESS_API'
3935: ,p_transaction_data => l_transaction_table);
3936: --
3937: hr_utility.set_location('Leaving hr_process_contact_ss.update_contact_relationship', 80);
3938:
3939: END IF;
3940: --
3941: -- 9999 set out variables here. Do we need to set anyway.
3942: --
3943: p_name_combination_warning := l_per_name_combination_warning;
3944: p_assign_payroll_warning := l_per_assign_payroll_warning;
3945: p_orig_hire_warning := l_per_orig_hire_warning;
3946: hr_utility.set_location('Exiting:'||l_proc, 85);
3947:
3948: EXCEPTION
3949: WHEN hr_utility.hr_error THEN
3950: -- -------------------------------------------
3945: p_orig_hire_warning := l_per_orig_hire_warning;
3946: hr_utility.set_location('Exiting:'||l_proc, 85);
3947:
3948: EXCEPTION
3949: WHEN hr_utility.hr_error THEN
3950: -- -------------------------------------------
3951: -- an application error has been raised so we must
3952: -- redisplay the web form to display the error
3953: -- --------------------------------------------
3950: -- -------------------------------------------
3951: -- an application error has been raised so we must
3952: -- redisplay the web form to display the error
3953: -- --------------------------------------------
3954: hr_utility.set_location('Exception:'||l_proc,560);
3955: hr_message.provide_error;
3956: l_message_number := hr_message.last_message_number;
3957: --
3958: -- 99999 What error messages I have to trap here.
3958: -- 99999 What error messages I have to trap here.
3959: --
3960: IF l_message_number = 'APP-7165' OR
3961: l_message_number = 'APP-7155' THEN
3962: hr_utility.set_message(800, 'HR_UPDATE_NOT_ALLOWED');
3963: hr_utility.raise_error;
3964: ELSE
3965: hr_utility.raise_error;
3966: END IF;
3959: --
3960: IF l_message_number = 'APP-7165' OR
3961: l_message_number = 'APP-7155' THEN
3962: hr_utility.set_message(800, 'HR_UPDATE_NOT_ALLOWED');
3963: hr_utility.raise_error;
3964: ELSE
3965: hr_utility.raise_error;
3966: END IF;
3967: WHEN OTHERS THEN
3961: l_message_number = 'APP-7155' THEN
3962: hr_utility.set_message(800, 'HR_UPDATE_NOT_ALLOWED');
3963: hr_utility.raise_error;
3964: ELSE
3965: hr_utility.raise_error;
3966: END IF;
3967: WHEN OTHERS THEN
3968: hr_utility.set_location('Exception:'||l_proc,565);
3969: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
3964: ELSE
3965: hr_utility.raise_error;
3966: END IF;
3967: WHEN OTHERS THEN
3968: hr_utility.set_location('Exception:'||l_proc,565);
3969: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
3970: hr_utility.raise_error;
3971: --RAISE; -- Raise error here relevant to the new tech stack.
3972: --
3966: END IF;
3967: WHEN OTHERS THEN
3968: hr_utility.set_location('Exception:'||l_proc,565);
3969: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
3970: hr_utility.raise_error;
3971: --RAISE; -- Raise error here relevant to the new tech stack.
3972: --
3973: end update_contact_relationship;
3974: --
4049: --
4050: --2480916 fix starts
4051: --decommenting the fetch of cursor data as we are checking this cursor value with the current value.
4052: --
4053: hr_utility.set_location('Entering:'||l_proc, 5);
4054: OPEN gc_get_cur_contact_data(p_contact_relationship_id => p_contact_relationship_id);
4055: FETCH gc_get_cur_contact_data into l_cur_contact_data;
4056: IF gc_get_cur_contact_data%NOTFOUND
4057: THEN
4054: OPEN gc_get_cur_contact_data(p_contact_relationship_id => p_contact_relationship_id);
4055: FETCH gc_get_cur_contact_data into l_cur_contact_data;
4056: IF gc_get_cur_contact_data%NOTFOUND
4057: THEN
4058: hr_utility.set_location('IF gc_get_cur_contact_data NOTFOUND:'||l_proc,10 );
4059: CLOSE gc_get_cur_contact_data;
4060: raise g_data_error;
4061: ELSE
4062: hr_utility.set_location('IF gc_get_cur_contact_data FOUND:'||l_proc,15 );
4058: hr_utility.set_location('IF gc_get_cur_contact_data NOTFOUND:'||l_proc,10 );
4059: CLOSE gc_get_cur_contact_data;
4060: raise g_data_error;
4061: ELSE
4062: hr_utility.set_location('IF gc_get_cur_contact_data FOUND:'||l_proc,15 );
4063: CLOSE gc_get_cur_contact_data;
4064: END IF;
4065: --2480916 fix ends
4066: --
4767: END IF;
4768: --
4769: <
4770: --
4771: hr_utility.set_location('Exiting:'||l_proc, 20);
4772: RETURN l_rec_changed;
4773:
4774:
4775: EXCEPTION
4773:
4774:
4775: EXCEPTION
4776: When g_data_error THEN
4777: hr_utility.set_location('Exception:When g_data_error THEN'||l_proc,555);
4778: raise;
4779:
4780: When others THEN
4781: hr_utility.set_location(' When others THEN'||l_proc,560);
4777: hr_utility.set_location('Exception:When g_data_error THEN'||l_proc,555);
4778: raise;
4779:
4780: When others THEN
4781: hr_utility.set_location(' When others THEN'||l_proc,560);
4782: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
4783: hr_utility.raise_error;
4784: --raise;
4785:
4779:
4780: When others THEN
4781: hr_utility.set_location(' When others THEN'||l_proc,560);
4782: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
4783: hr_utility.raise_error;
4784: --raise;
4785:
4786: END is_rec_changed;
4787:
5010: -- transaction. This is used for re-display the Update page when a user
5011: -- clicks the Back button on the Review page to go back to the Update page
5012: -- to make further changes or to correct errors.
5013: -----------------------------------------------------------------------------
5014: hr_utility.set_location('Entering:'||l_proc, 5);
5015: hr_transaction_api.get_transaction_step_info
5016: (p_item_type => p_item_type
5017: ,p_item_key => p_item_key
5018: ,p_activity_id => p_activity_id
5023: THEN
5024: l_transaction_rec_count := 1;
5025: ELSE
5026: l_transaction_rec_count := 0;
5027: hr_utility.set_location('Exiting thru Else part of l_transaction_step_id > 0 :'||l_proc, 10);
5028: return;
5029: END IF;
5030: --
5031: -- -------------------------------------------------------------------
5231: ,p_is_emrg_cont => p_is_emrg_cont
5232: ,p_is_dpdnt_bnf => p_is_dpdnt_bnf
5233: );
5234:
5235: hr_utility.set_location('Exiting:'||l_proc, 15);
5236:
5237: EXCEPTION
5238: WHEN g_data_error THEN
5239: hr_utility.set_location('WHEN g_data_error THEN'||l_proc,555);
5235: hr_utility.set_location('Exiting:'||l_proc, 15);
5236:
5237: EXCEPTION
5238: WHEN g_data_error THEN
5239: hr_utility.set_location('WHEN g_data_error THEN'||l_proc,555);
5240: RAISE;
5241: END get_contact_from_tt;
5242: -- ---------------------------------------------------------------------------
5243: -- ---------------------- < get_contact_from_tt> -------------------------
5448: l_proc varchar2(72) := g_package||'get_contact_from_tt';
5449:
5450: BEGIN
5451: --
5452: hr_utility.set_location('Entering:'||l_proc, 5);
5453:
5454: hr_utility.set_location('Setting the attributes:'||l_proc,10 );
5455: p_cont_object_version_number :=
5456: hr_transaction_api.get_number_value
5450: BEGIN
5451: --
5452: hr_utility.set_location('Entering:'||l_proc, 5);
5453:
5454: hr_utility.set_location('Setting the attributes:'||l_proc,10 );
5455: p_cont_object_version_number :=
5456: hr_transaction_api.get_number_value
5457: (p_transaction_step_id => p_transaction_step_id
5458: ,p_name =>upper( 'p_cont_object_version_number'));
6408: hr_transaction_api.get_VARCHAR2_value
6409: (p_transaction_step_id => p_transaction_step_id
6410: ,p_name => 'P_CONT_INFORMATION20');
6411: --
6412: hr_utility.set_location('End of setting the attributes:'||l_proc,15 );
6413: hr_utility.set_location('Exiting:'||l_proc, 20);
6414:
6415: EXCEPTION
6416: WHEN OTHERS THEN
6409: (p_transaction_step_id => p_transaction_step_id
6410: ,p_name => 'P_CONT_INFORMATION20');
6411: --
6412: hr_utility.set_location('End of setting the attributes:'||l_proc,15 );
6413: hr_utility.set_location('Exiting:'||l_proc, 20);
6414:
6415: EXCEPTION
6416: WHEN OTHERS THEN
6417: hr_utility.set_location('Exception:'||l_proc,555);
6413: hr_utility.set_location('Exiting:'||l_proc, 20);
6414:
6415: EXCEPTION
6416: WHEN OTHERS THEN
6417: hr_utility.set_location('Exception:'||l_proc,555);
6418: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
6419: hr_utility.raise_error;
6420: --RAISE;
6421:
6415: EXCEPTION
6416: WHEN OTHERS THEN
6417: hr_utility.set_location('Exception:'||l_proc,555);
6418: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
6419: hr_utility.raise_error;
6420: --RAISE;
6421:
6422: END get_contact_from_tt;
6423: --
6770:
6771: --
6772: BEGIN
6773: --
6774: hr_utility.set_location('Entering:'||l_proc, 5);
6775:
6776: -- Bug no:2263008 fix begins
6777:
6778: check_ni_unique(
6787: IF p_primary_contact_flag = 'Y' then
6788:
6789: -- Check if there are already any contacts as primary added.
6790: --
6791: hr_utility.set_location('IF p_primary_contact_flag =Y :'||l_proc,10 );
6792: BEGIN
6793: select count(hats.transaction_step_id)
6794: into l_primary_contact_added
6795: from hr_api_transaction_steps hats,
6800: and hats.transaction_step_id = hatv.transaction_step_id
6801: and hatv.varchar2_value = 'Y'
6802: and hatv.name = upper('p_primary_contact_flag');
6803:
6804: hr_utility.set_location(
6805: 'HR_PROCESS_CONTACT_SS.create_contact_tt : Check if primary contact already added in previous step : '||l_primary_contact_added, 2146328);
6806:
6807: EXCEPTION
6808: WHEN others THEN
6811: END;
6812:
6813: IF l_primary_contact_added >0 then
6814:
6815: hr_utility.set_location('l_primary_contact_added >0:'||l_proc,15 );
6816: hr_utility.set_message(800, 'PER_289574_EMP_CON_PRIMARY');
6817: hr_utility.raise_error;
6818:
6819:
6812:
6813: IF l_primary_contact_added >0 then
6814:
6815: hr_utility.set_location('l_primary_contact_added >0:'||l_proc,15 );
6816: hr_utility.set_message(800, 'PER_289574_EMP_CON_PRIMARY');
6817: hr_utility.raise_error;
6818:
6819:
6820: END IF;
6813: IF l_primary_contact_added >0 then
6814:
6815: hr_utility.set_location('l_primary_contact_added >0:'||l_proc,15 );
6816: hr_utility.set_message(800, 'PER_289574_EMP_CON_PRIMARY');
6817: hr_utility.raise_error;
6818:
6819:
6820: END IF;
6821:
6833: THEN
6834: l_attribute_update_mode := g_attribute_correct;
6835: END IF;
6836: END IF;
6837: hr_utility.set_location('Setting l_attribute_update_mode ', 20);
6838: --
6839: hr_utility.set_location('Calling hr_contact_rel_api.create_contact', 25);
6840: --
6841: -- Call the actual API.
6835: END IF;
6836: END IF;
6837: hr_utility.set_location('Setting l_attribute_update_mode ', 20);
6838: --
6839: hr_utility.set_location('Calling hr_contact_rel_api.create_contact', 25);
6840: --
6841: -- Call the actual API.
6842: --
6843: -- Check if the record has changed is not necessary as it's a create.
6950: -- fix for bug # 2221040
6951: if nvl(p_save_mode, 'NVL') <> 'SAVE_FOR_LATER'
6952: then
6953: if l_main_per_date_of_birth is not null and l_main_per_date_of_birth > p_date_start then
6954: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
6955: hr_utility.raise_error;
6956: elsif p_date_of_birth is not null and p_date_of_birth > p_date_start then
6957: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
6958: hr_utility.raise_error;
6951: if nvl(p_save_mode, 'NVL') <> 'SAVE_FOR_LATER'
6952: then
6953: if l_main_per_date_of_birth is not null and l_main_per_date_of_birth > p_date_start then
6954: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
6955: hr_utility.raise_error;
6956: elsif p_date_of_birth is not null and p_date_of_birth > p_date_start then
6957: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
6958: hr_utility.raise_error;
6959: end if;
6953: if l_main_per_date_of_birth is not null and l_main_per_date_of_birth > p_date_start then
6954: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
6955: hr_utility.raise_error;
6956: elsif p_date_of_birth is not null and p_date_of_birth > p_date_start then
6957: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
6958: hr_utility.raise_error;
6959: end if;
6960: end if;
6961: */
6954: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
6955: hr_utility.raise_error;
6956: elsif p_date_of_birth is not null and p_date_of_birth > p_date_start then
6957: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
6958: hr_utility.raise_error;
6959: end if;
6960: end if;
6961: */
6962: begin
6974:
6975: if p_contact_person_id is not null then
6976:
6977: begin
6978: hr_utility.set_location('if p_contact_person_id is not null then'||l_proc,30 );
6979: select min(date_start)
6980: into l_start_date
6981: from per_contact_relationships
6982: where contact_person_id = p_contact_person_id;
6999: --
7000: if (l_person_id is null or l_person_id = -1) and
7001: nvl(p_save_mode, 'NVL') <> 'SAVE_FOR_LATER'
7002: then
7003: hr_utility.set_location('l_person_id is null or l_person_id = -1 and not SFL'||l_proc,35 );
7004: --
7005: -- Either create a dummy person or temp solution use the p_login_person_id
7006: --
7007: -- l_person_id := p_login_person_id; This is for testing only.
7063: -- update_person api.
7064: --
7065: if nvl(p_save_mode, 'NVL') <> 'SAVE_FOR_LATER'
7066: then
7067: hr_utility.set_location('p_save_mode not SFL'||l_proc,40 );
7068:
7069: --
7070: -- Bug 3152505 : calling call_contact_api
7071: -- hr_contact_rel_api.create_contact(
7275: --
7276: -- Validating the update_person
7277: --
7278:
7279: hr_utility.set_location('After calling validate proceses ', 45);
7280: --
7281: IF hr_errors_api.errorExists
7282: THEN
7283: hr_utility.set_location('api error exists hr_contact_rel_api.create_contact', 50);
7279: hr_utility.set_location('After calling validate proceses ', 45);
7280: --
7281: IF hr_errors_api.errorExists
7282: THEN
7283: hr_utility.set_location('api error exists hr_contact_rel_api.create_contact', 50);
7284: rollback to create_contact_tt_start ;
7285: raise g_data_error;
7286: END IF;
7287:
7331: THEN
7332: --
7333: -- Get the Employee number from the Database;
7334: --
7335: hr_utility.set_location('Declaring the Cursor c_pap'||l_proc,50);
7336: DECLARE
7337: CURSOR c_pap IS SELECT employee_number FROM per_all_people_f
7338: WHERE person_id = p_per_person_id
7339: AND p_start_date BETWEEN
7348: --
7349: p_employee_number := l_pap.employee_number ;
7350: --
7351: EXCEPTION WHEN OTHERS THEN
7352: hr_utility.set_location('Exception in c_pap Cursor:'||l_proc,555);
7353: raise ;
7354: END;
7355: --
7356: hr_utility.set_location('Calling hr_person_api.update_person '||l_proc,55);
7352: hr_utility.set_location('Exception in c_pap Cursor:'||l_proc,555);
7353: raise ;
7354: END;
7355: --
7356: hr_utility.set_location('Calling hr_person_api.update_person '||l_proc,55);
7357: hr_person_api.update_person (
7358: p_validate => l_validate_mode
7359: ,p_effective_date => l_start_date
7360: --p_start_date --9999p_effective_date
7431: ,p_assign_payroll_warning => l_per_assign_payroll_warning
7432: ,p_orig_hire_warning => l_per_orig_hire_warning
7433: );
7434: --
7435: hr_utility.set_location('After calling validate proceses ', 65);
7436: --
7437: IF hr_errors_api.errorExists
7438: THEN
7439: hr_utility.set_location('api error exists hr_person_api.update_person ', 67);
7435: hr_utility.set_location('After calling validate proceses ', 65);
7436: --
7437: IF hr_errors_api.errorExists
7438: THEN
7439: hr_utility.set_location('api error exists hr_person_api.update_person ', 67);
7440: rollback to create_contact_tt_start ;
7441: raise g_data_error;
7442: END IF;
7443:
9138: itemkey => p_item_key,
9139: aname => 'HR_CONTACT_SET');
9140:
9141: exception when others then
9142: hr_utility.set_location('Exception:'||l_proc,560);
9143: l_contact_set := 0;
9144:
9145: end;
9146:
9148: l_transaction_table(l_count).param_name := 'P_CONTACT_SET';
9149: l_transaction_table(l_count).param_value := l_contact_set;
9150: l_transaction_table(l_count).param_data_type := 'VARCHAR2';
9151: --EndRegistration
9152: hr_utility.set_location('Before Calling :hr_transaction_ss.save_transaction_step', 90);
9153: --
9154: hr_transaction_ss.save_transaction_step
9155: (p_item_type => p_item_type
9156: ,p_item_key => p_item_key
9160: ,p_transaction_step_id => l_transaction_step_id
9161: ,p_api_name => g_package || '.PROCESS_CREATE_CONTACT_API'
9162: ,p_transaction_data => l_transaction_table);
9163: --
9164: -- hr_utility.set_location('Leaving hr_contact_rel_api.create_contact_tt', 100);
9165:
9166: hr_utility.set_location('Exiting:'||l_proc,100);
9167: --
9168: -- 9999 What full_name code is doing? Do we need to add?
9162: ,p_transaction_data => l_transaction_table);
9163: --
9164: -- hr_utility.set_location('Leaving hr_contact_rel_api.create_contact_tt', 100);
9165:
9166: hr_utility.set_location('Exiting:'||l_proc,100);
9167: --
9168: -- 9999 What full_name code is doing? Do we need to add?
9169: -- 9999 Any warnings do we need to pass back to java code?
9170: -- 9999 Reset the object version number.
9169: -- 9999 Any warnings do we need to pass back to java code?
9170: -- 9999 Reset the object version number.
9171: --
9172: EXCEPTION
9173: WHEN hr_utility.hr_error THEN
9174: -- -------------------------------------------
9175: -- an application error has been raised so we must
9176: -- redisplay the web form to display the error
9177: -- --------------------------------------------
9174: -- -------------------------------------------
9175: -- an application error has been raised so we must
9176: -- redisplay the web form to display the error
9177: -- --------------------------------------------
9178: hr_utility.set_location('Exception:'||l_proc,565);
9179: hr_message.provide_error;
9180: l_message_number := hr_message.last_message_number;
9181: --
9182: -- 99999 What error messages I have to trap here.
9182: -- 99999 What error messages I have to trap here.
9183: --
9184: IF l_message_number = 'APP-7165' OR
9185: l_message_number = 'APP-7155' THEN
9186: hr_utility.set_message(800, 'HR_UPDATE_NOT_ALLOWED');
9187: hr_utility.raise_error;
9188: ELSE
9189: hr_utility.raise_error;
9190: END IF;
9183: --
9184: IF l_message_number = 'APP-7165' OR
9185: l_message_number = 'APP-7155' THEN
9186: hr_utility.set_message(800, 'HR_UPDATE_NOT_ALLOWED');
9187: hr_utility.raise_error;
9188: ELSE
9189: hr_utility.raise_error;
9190: END IF;
9191: WHEN OTHERS THEN
9185: l_message_number = 'APP-7155' THEN
9186: hr_utility.set_message(800, 'HR_UPDATE_NOT_ALLOWED');
9187: hr_utility.raise_error;
9188: ELSE
9189: hr_utility.raise_error;
9190: END IF;
9191: WHEN OTHERS THEN
9192: hr_utility.set_location('Exception:'||l_proc,570);
9193: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
9188: ELSE
9189: hr_utility.raise_error;
9190: END IF;
9191: WHEN OTHERS THEN
9192: hr_utility.set_location('Exception:'||l_proc,570);
9193: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
9194: hr_utility.raise_error;
9195: --RAISE; -- Raise error here relevant to the new tech stack.
9196: --
9190: END IF;
9191: WHEN OTHERS THEN
9192: hr_utility.set_location('Exception:'||l_proc,570);
9193: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
9194: hr_utility.raise_error;
9195: --RAISE; -- Raise error here relevant to the new tech stack.
9196: --
9197: END create_contact_tt;
9198: --
9243: l_proc varchar2(72) := g_package||'is_con_rec_changed';
9244:
9245: BEGIN
9246: --
9247: hr_utility.set_location('Entering:'||l_proc, 5);
9248: IF p_adjusted_svc_date <> hr_api.g_date
9249: THEN
9250: l_rec_changed := TRUE;
9251: goto finish;
9516: l_rec_changed := TRUE;
9517: goto finish;
9518: END IF;
9519: --
9520: hr_utility.set_location('Exiting:'||l_proc, 10);
9521: <
9522: return l_rec_changed ;
9523: EXCEPTION
9524: When g_data_error THEN
9521: <
9522: return l_rec_changed ;
9523: EXCEPTION
9524: When g_data_error THEN
9525: hr_utility.set_location('Exception g_data_error:'||l_proc,555);
9526: raise;
9527:
9528: When others THEN
9529: hr_utility.set_location('Exception others:'||l_proc,555);
9525: hr_utility.set_location('Exception g_data_error:'||l_proc,555);
9526: raise;
9527:
9528: When others THEN
9529: hr_utility.set_location('Exception others:'||l_proc,555);
9530: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
9531: hr_utility.raise_error;
9532: --raise;
9533:
9527:
9528: When others THEN
9529: hr_utility.set_location('Exception others:'||l_proc,555);
9530: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
9531: hr_utility.raise_error;
9532: --raise;
9533:
9534: END is_con_rec_changed;
9535: --
9615: l_addl_primary_contact_flag varchar2(100);
9616: l_proc varchar2(72) := g_package||'process_create_contact_api';
9617: --
9618: BEGIN
9619: hr_utility.set_location('Entering:'||l_proc, 5);
9620: --
9621: --
9622: SAVEPOINT process_create_contact_api;
9623:
9631: --
9632: -- StartRegistration
9633: --
9634: if l_person_id is null or l_person_id < 0 then
9635: hr_utility.set_location('l_person_id is null or l_person_id < 0:'||l_proc,10 );
9636: --
9637: --
9638: -- l_person_id := hr_process_person_ss.g_person_id;
9639: -- Adding the session id check to avoid connection pooling problems.
9651: l_con_rec_changed := hr_transaction_api.get_VARCHAR2_value
9652: (p_transaction_step_id => p_transaction_step_id
9653: ,p_name => 'P_CONT_REC_CHANGED') ;
9654: exception when others then
9655: hr_utility.set_location('Exception Others:'||l_proc,555);
9656: l_con_rec_changed := 'NOTCHANGED';
9657: end;
9658: --
9659: l_effective_date := hr_transaction_api.get_DATE_value
9662: --
9663: -- SFL changes.
9664: --
9665: if (p_effective_date is not null) then
9666: hr_utility.set_location('p_effective_date is not null:'||l_proc,15 );
9667: l_effective_date:= to_date(p_effective_date,g_date_format);
9668: --
9669: else
9670: --
9677: -- For normal commit the effective date should come from txn tbales.
9678: --
9679: if not p_validate then
9680: --
9681: hr_utility.set_location('if not p_validate then:'||l_proc,20 );
9682: l_effective_date := hr_transaction_api.get_DATE_value
9683: (p_transaction_step_id => p_transaction_step_id
9684: ,p_name => 'P_START_DATE');
9685: --
9743: ,p_name => 'P_DATE_START');
9744:
9745:
9746: if l_contact_operation = 'EMER_CR_NEW_CONT' then
9747: hr_utility.set_location('if l_contact_operation is EMER_CR_NEW_CONT:'||l_proc,25 );
9748: --
9749: -- Bug 3152505 : When in Emergency contact, we always will create two relationship.
9750: -- One as "Emergency" and other the selected Relationship.
9751: if /*l_dpdnt_bnf_flag = 'Y' and */l_contact_type <> 'EMRG' then
10756: THEN
10757: --
10758: -- Get the Employee number from the Database;
10759: --
10760: hr_utility.set_location('Before declaring the Cursor c_pap:'||l_proc, 30);
10761: DECLARE
10762: CURSOR c_pap IS SELECT employee_number FROM per_all_people_f
10763: WHERE person_id = L_PER_PERSON_ID
10764: AND l_effective_date BETWEEN
10766: l_pap c_pap%ROWTYPE;
10767:
10768: BEGIN
10769: --
10770: hr_utility.set_location('Working on the Cursor c_pap:'||l_proc, 35);
10771: OPEN c_pap ;
10772: FETCH c_pap INTO l_pap ;
10773: CLOSE c_pap ;
10774: --
10774: --
10775: l_employee_number := l_pap.employee_number ;
10776: --
10777: EXCEPTION WHEN OTHERS THEN
10778: hr_utility.set_location('Exception: Others'||l_proc,555);
10779: raise ;
10780: END;
10781:
10782: -- For processing the update_person_api
11003: if l_contact_operation = 'EMER_CR_NEW_CONT' OR
11004: l_contact_operation = 'DPDNT_CR_NEW_CONT' then
11005: --
11006:
11007: hr_utility.set_location('EMER_CR_NEW_CONT or DPDNT_CR_NEW_CONT:'||l_proc, 35);
11008: -- Bug 3152505 : When in Emergency contact, we always will create two relationship.
11009: -- One as "Emergency" and other the selected Relationship.
11010: if ( /*l_dpdnt_bnf_flag = 'Y' and*/ l_dpdnt_bnf_contact_type <> 'EMRG'
11011: and l_contact_operation = 'EMER_CR_NEW_CONT' ) OR
11606: END IF;
11607: --
11608:
11609: EXCEPTION
11610: WHEN hr_utility.hr_error THEN
11611: hr_utility.set_location('Exception:WHEN hr_utility.hr_error THEN'||l_proc,565);
11612: -- -----------------------------------------------------------------
11613: -- An application error has been raised by the API so we must set
11614: -- the error.
11607: --
11608:
11609: EXCEPTION
11610: WHEN hr_utility.hr_error THEN
11611: hr_utility.set_location('Exception:WHEN hr_utility.hr_error THEN'||l_proc,565);
11612: -- -----------------------------------------------------------------
11613: -- An application error has been raised by the API so we must set
11614: -- the error.
11615: -- -----------------------------------------------------------------
11733: --- bug 5894873
11734:
11735: BEGIN
11736: --
11737: -- hr_utility.set_location('Entering hr_process_contact_ss.process_api', 100);
11738: hr_utility.set_location('Entering:'||l_proc, 5);
11739: --
11740: SAVEPOINT update_cont_relationship;
11741:
11734:
11735: BEGIN
11736: --
11737: -- hr_utility.set_location('Entering hr_process_contact_ss.process_api', 100);
11738: hr_utility.set_location('Entering:'||l_proc, 5);
11739: --
11740: SAVEPOINT update_cont_relationship;
11741:
11742: -- Change for Approvals for contact.
11747: ,p_name =>upper( 'P_PROCESS_SECTION_NAME'));
11748: --
11749: if l_process_section = 'DELETE_CONTACTS' then
11750: --
11751: hr_utility.set_location('DELETE_CONTACTS:'||l_proc, 10);
11752: process_end_api
11753: (p_validate => p_validate
11754: ,p_transaction_step_id => p_transaction_step_id
11755: -- SFL changes
11755: -- SFL changes
11756: ,p_effective_date => p_effective_date
11757: );
11758: --
11759: hr_utility.set_location('Leaving hr_process_contact_ss.process_api', 100);
11760: return;
11761: --
11762: -- end if;
11763: else -- l_process_section is not 'DELETE_CONTACTS'
12496: );
12497: --
12498: END IF;
12499:
12500: hr_utility.set_location('p_effective_date = ' || p_effective_date, 999);
12501: if (p_effective_date is not null) then
12502:
12503: l_effective_date:= to_date(p_effective_date,g_date_format);
12504:
12517: (p_transaction_step_id => p_transaction_step_id
12518: ,p_name => 'P_CONT_EFFECTIVE_DATE');
12519: --
12520: end if;
12521: hr_utility.set_location('l_effective_date = ' || l_effective_date, 999);
12522: --
12523: --
12524: -- Get the contact_relationship_id first. If it is null, that means
12525: -- this is error and raise the error. -- add the error name 99999.
12639: into p_rowid
12640: from per_contact_relationships
12641: where CONTACT_RELATIONSHIP_ID = l_CONTACT_RELATIONSHIP_ID_1;
12642:
12643: hr_utility.set_location('before call PER_CONTACT_RELATIONSHIPS_PKG.Update_Row:X_Contact_Relationship_Id:' || l_CONTACT_RELATIONSHIP_ID_1 , 5);
12644:
12645: PER_CONTACT_RELATIONSHIPS_PKG.Update_Row(
12646: X_Rowid => p_rowid
12647: , X_Contact_Relationship_Id => l_CONTACT_RELATIONSHIP_ID_1
14864: END IF;
14865:
14866: --
14867: IF p_validate THEN
14868: hr_utility.set_location('Rollback hr_process_contact_ss.process_api', 100);
14869: ROLLBACK TO update_cont_relationship;
14870: END IF;
14871: --
14872: -- bug# 2080032
14871: --
14872: -- bug# 2080032
14873: end if; -- l_process_section = 'DELETE_CONTACTS'
14874:
14875: hr_utility.set_location('Leaving hr_process_contact_ss.process_api', 100);
14876: --
14877: EXCEPTION
14878: WHEN hr_utility.hr_error THEN
14879: hr_utility.set_location('Exception: WHEN hr_utility.hr_error THEN'||l_proc,555);
14874:
14875: hr_utility.set_location('Leaving hr_process_contact_ss.process_api', 100);
14876: --
14877: EXCEPTION
14878: WHEN hr_utility.hr_error THEN
14879: hr_utility.set_location('Exception: WHEN hr_utility.hr_error THEN'||l_proc,555);
14880: -- -----------------------------------------------------------------
14881: -- An application error has been raised by the API so we must set
14882: -- the error.
14875: hr_utility.set_location('Leaving hr_process_contact_ss.process_api', 100);
14876: --
14877: EXCEPTION
14878: WHEN hr_utility.hr_error THEN
14879: hr_utility.set_location('Exception: WHEN hr_utility.hr_error THEN'||l_proc,555);
14880: -- -----------------------------------------------------------------
14881: -- An application error has been raised by the API so we must set
14882: -- the error.
14883: -- -----------------------------------------------------------------
14917: (select transaction_id from hr_api_transaction_steps where transaction_step_id =
14918: c_transaction_step_id) and api_name='HR_PROCESS_ADDRESS_SS.PROCESS_API';
14919:
14920: begin
14921: hr_utility.set_location('Entering:'||l_proc, 5);
14922: open csr_contact_api(p_transaction_step_id);
14923: fetch csr_contact_api into l_dummy;
14924: if csr_contact_api%found then
14925: if p_contact_relationship_id is not null then
14946: end if;
14947: end if;
14948: end if;
14949: close csr_contact_api;
14950: hr_utility.set_location('Leaving:'||l_proc, 20);
14951:
14952: end is_address_updated;
14953:
14954: /*
15067: BEGIN
15068: --
15069:
15070:
15071: hr_utility.set_location('Entering:'||l_proc, 5);
15072: --
15073: l_old_ovn := p_object_version_number;
15074: l_old_contact_relationship_id := p_contact_relationship_id;
15075: if(p_contact_operation = 'EMRG_OVRW_DEL' and p_other_rel_id is not null and p_other_rel_id <> -1 ) then
15078:
15079: --
15080: -- Call the actual API.
15081: --
15082: hr_utility.set_location('Calling hr_contact_rel_api.update_contact_relationship', 10);
15083: --
15084: if nvl(p_save_mode, 'NVL') <> 'SAVE_FOR_LATER' then
15085: --
15086: hr_contact_rel_api.update_contact_relationship(
15126: ,p_object_version_number => p_object_version_number
15127: );
15128:
15129: if p_end_other_rel = 'Y' then
15130: hr_utility.set_location('Fecthing l_other_rel_object_ver_no:'||l_proc, 15);
15131: open get_other_rel_ovn(p_other_rel_id);
15132: fetch get_other_rel_ovn into l_other_rel_object_ver_no;
15133: if get_other_rel_ovn%notfound then
15134: l_other_rel_object_ver_no := 1;
15187: -- Determine if a transaction step exists for this activity
15188: -- if a transaction step does exist then the transaction_step_id and
15189: -- object_version_number are set (i.e. not null).
15190: -- --------------------------------------------------------------------------
15191: hr_utility.set_location('Call :get_transaction_step_info'||l_proc, 20);
15192: hr_transaction_api.get_transaction_step_info
15193: (p_item_type => p_item_type
15194: ,p_item_key => p_item_key
15195: ,p_activity_id => p_activity_id
15195: ,p_activity_id => p_activity_id
15196: ,p_transaction_step_id => l_transaction_step_id
15197: ,p_object_version_number => l_trs_object_version_number);
15198: --
15199: hr_utility.set_location('l_transaction_step_id = ' || to_char(l_transaction_step_id), 25);
15200: --
15201: l_count := l_count + 1;
15202: l_transaction_table(l_count).param_name := 'P_EFFECTIVE_DATE';
15203: l_transaction_table(l_count).param_value := to_char(P_EFFECTIVE_DATE,
15289: l_transaction_table(l_count).param_name := 'P_START_LIFE_REASON_ID';
15290: l_transaction_table(l_count).param_value := P_START_LIFE_REASON_ID;
15291: l_transaction_table(l_count).param_data_type := 'NUMBER';
15292: --
15293: hr_utility.set_location('P_DATE_END = ' || to_char(P_DATE_END), 30);
15294: l_count := l_count + 1;
15295: l_transaction_table(l_count).param_name := 'P_DATE_END';
15296: l_transaction_table(l_count).param_value := to_char(P_DATE_END,
15297: hr_transaction_ss.g_date_format);
15491: l_transaction_table(l_count).param_name := 'P_OTHER_REL_OBJ_VER_NO';
15492: l_transaction_table(l_count).param_value := l_other_rel_object_ver_no;
15493: l_transaction_table(l_count).param_data_type := 'NUMBER';
15494:
15495: hr_utility.set_location('Before Calling :hr_transaction_ss.save_transaction_step', 30);
15496: hr_utility.set_location('Before Calling :hr_transaction_ss.save_transaction_step ' || to_char(l_transaction_table.count), 35);
15497: --
15498: hr_transaction_ss.save_transaction_step
15499: (p_item_type => p_item_type
15492: l_transaction_table(l_count).param_value := l_other_rel_object_ver_no;
15493: l_transaction_table(l_count).param_data_type := 'NUMBER';
15494:
15495: hr_utility.set_location('Before Calling :hr_transaction_ss.save_transaction_step', 30);
15496: hr_utility.set_location('Before Calling :hr_transaction_ss.save_transaction_step ' || to_char(l_transaction_table.count), 35);
15497: --
15498: hr_transaction_ss.save_transaction_step
15499: (p_item_type => p_item_type
15500: ,p_item_key => p_item_key
15506: -- Change for contacts approvals.
15507: ,p_api_name => g_package || '.PROCESS_API'
15508: ,p_transaction_data => l_transaction_table);
15509: --
15510: hr_utility.set_location('Leaving hr_contact_rel_api.update_contact_relationship', 40);
15511: --
15512: EXCEPTION
15513: WHEN hr_utility.hr_error THEN
15514: hr_utility.set_location('Exception:hr_utility.hr_error THEN'||l_proc,555);
15509: --
15510: hr_utility.set_location('Leaving hr_contact_rel_api.update_contact_relationship', 40);
15511: --
15512: EXCEPTION
15513: WHEN hr_utility.hr_error THEN
15514: hr_utility.set_location('Exception:hr_utility.hr_error THEN'||l_proc,555);
15515: -- -------------------------------------------
15516: -- an application error has been raised so we must
15517: -- redisplay the web form to display the error
15510: hr_utility.set_location('Leaving hr_contact_rel_api.update_contact_relationship', 40);
15511: --
15512: EXCEPTION
15513: WHEN hr_utility.hr_error THEN
15514: hr_utility.set_location('Exception:hr_utility.hr_error THEN'||l_proc,555);
15515: -- -------------------------------------------
15516: -- an application error has been raised so we must
15517: -- redisplay the web form to display the error
15518: -- --------------------------------------------
15522: -- 99999 What error messages I have to trap here.
15523: --
15524: IF l_message_number = 'APP-7165' OR
15525: l_message_number = 'APP-7155' THEN
15526: hr_utility.set_message(800, 'HR_UPDATE_NOT_ALLOWED');
15527: hr_utility.raise_error;
15528: ELSE
15529: hr_utility.raise_error;
15530: END IF;
15523: --
15524: IF l_message_number = 'APP-7165' OR
15525: l_message_number = 'APP-7155' THEN
15526: hr_utility.set_message(800, 'HR_UPDATE_NOT_ALLOWED');
15527: hr_utility.raise_error;
15528: ELSE
15529: hr_utility.raise_error;
15530: END IF;
15531: WHEN OTHERS THEN
15525: l_message_number = 'APP-7155' THEN
15526: hr_utility.set_message(800, 'HR_UPDATE_NOT_ALLOWED');
15527: hr_utility.raise_error;
15528: ELSE
15529: hr_utility.raise_error;
15530: END IF;
15531: WHEN OTHERS THEN
15532: hr_utility.set_location('Exception:Others'||l_proc,555);
15533: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
15528: ELSE
15529: hr_utility.raise_error;
15530: END IF;
15531: WHEN OTHERS THEN
15532: hr_utility.set_location('Exception:Others'||l_proc,555);
15533: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
15534: hr_utility.raise_error;
15535: -- RAISE; -- Raise error here relevant to the new tech stack.
15536: --
15530: END IF;
15531: WHEN OTHERS THEN
15532: hr_utility.set_location('Exception:Others'||l_proc,555);
15533: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
15534: hr_utility.raise_error;
15535: -- RAISE; -- Raise error here relevant to the new tech stack.
15536: --
15537: end end_contact_relationship;
15538: --
15564: l_proc varchar2(72) := g_package||'process_end_api';
15565:
15566: BEGIN
15567: --
15568: hr_utility.set_location('Entering:'||l_proc, 5);
15569:
15570: SAVEPOINT end_cont_relationship;
15571: --
15572: -- SFL changes
15571: --
15572: -- SFL changes
15573: --
15574: if (p_effective_date is not null) then
15575: hr_utility.set_location('Eff date is not Null:'||l_proc, 10);
15576: l_effective_date := to_date(p_effective_date,g_date_format);
15577: else
15578: --
15579: hr_utility.set_location('Eff date is Null:'||l_proc, 15);
15575: hr_utility.set_location('Eff date is not Null:'||l_proc, 10);
15576: l_effective_date := to_date(p_effective_date,g_date_format);
15577: else
15578: --
15579: hr_utility.set_location('Eff date is Null:'||l_proc, 15);
15580: l_effective_date:= to_date(
15581: hr_transaction_ss.get_wf_effective_date
15582: (p_transaction_step_id => p_transaction_step_id),g_date_format);
15583: --
15585: -- For normal commit the effective date should come from txn tbales.
15586: --
15587: if not p_validate then
15588: --
15589: hr_utility.set_location(' not p_validate:'||l_proc, 20);
15590: l_effective_date := hr_transaction_api.get_DATE_value
15591: (p_transaction_step_id => p_transaction_step_id
15592: ,p_name => 'P_EFFECTIVE_DATE');
15593: --
15609: ,p_name => 'P_OTHER_REL_OBJ_VER_NO') ;
15610: --
15611: IF l_contact_relationship_id IS NOT NULL
15612: THEN
15613: hr_utility.set_location('l_contact_relationship_id is not NULL:'||l_proc, 25);
15614: --
15615: hr_contact_rel_api.update_contact_relationship(
15616: p_validate => p_validate
15617: --
15822: (p_transaction_step_id => p_transaction_step_id
15823: ,p_name => 'P_END_OTHER_REL');
15824:
15825: if l_del_other_rel = 'Y' then
15826: hr_utility.set_location('if l_del_other_rel Y:'||l_proc, 30);
15827: hr_contact_rel_api.update_contact_relationship(
15828: p_validate => p_validate
15829: ,P_EFFECTIVE_DATE =>l_effective_date
15830: ,p_object_version_number => l_other_rel_ovn
15847: null;
15848: END IF;
15849: --
15850: IF p_validate = true THEN
15851: hr_utility.set_location('p_validate = true'||l_proc, 35);
15852: ROLLBACK TO end_cont_relationship;
15853: END IF;
15854: hr_utility.set_location('Exiting:'||l_proc, 40);
15855: --
15850: IF p_validate = true THEN
15851: hr_utility.set_location('p_validate = true'||l_proc, 35);
15852: ROLLBACK TO end_cont_relationship;
15853: END IF;
15854: hr_utility.set_location('Exiting:'||l_proc, 40);
15855: --
15856: EXCEPTION
15857: WHEN hr_utility.hr_error THEN
15858: hr_utility.set_location('Exception:hr_utility.hr_error'||l_proc,555);
15853: END IF;
15854: hr_utility.set_location('Exiting:'||l_proc, 40);
15855: --
15856: EXCEPTION
15857: WHEN hr_utility.hr_error THEN
15858: hr_utility.set_location('Exception:hr_utility.hr_error'||l_proc,555);
15859: -- -----------------------------------------------------------------
15860: -- An application error has been raised by the API so we must set
15861: -- the error.
15854: hr_utility.set_location('Exiting:'||l_proc, 40);
15855: --
15856: EXCEPTION
15857: WHEN hr_utility.hr_error THEN
15858: hr_utility.set_location('Exception:hr_utility.hr_error'||l_proc,555);
15859: -- -----------------------------------------------------------------
15860: -- An application error has been raised by the API so we must set
15861: -- the error.
15862: -- -----------------------------------------------------------------
15885: l_contact_set wf_activity_attr_values.number_value%type;
15886: l_proc varchar2(72) := g_package||'is_contact_added';
15887: begin
15888: --
15889: hr_utility.set_location('Entering:'||l_proc, 5);
15890: l_contact_set := wf_engine.GetItemAttrNumber(itemtype => itemtype,
15891: itemkey => itemkey,
15892: aname => 'HR_CONTACT_SET');
15893:
15891: itemkey => itemkey,
15892: aname => 'HR_CONTACT_SET');
15893:
15894: if l_contact_set > 0 then
15895: hr_utility.set_location('l_contact_set > 0:'||l_proc, 10);
15896: -- Goto Contacts page
15897: resultout := 'COMPLETE:'|| 'Y';
15898: else
15899: -- Goto Decision page
15896: -- Goto Contacts page
15897: resultout := 'COMPLETE:'|| 'Y';
15898: else
15899: -- Goto Decision page
15900: hr_utility.set_location('l_contact_set <= 0:'||l_proc, 15);
15901: resultout := 'COMPLETE:'|| 'N';
15902: end if;
15903: hr_utility.set_location('Exiting:'||l_proc, 20);
15904: EXCEPTION
15899: -- Goto Decision page
15900: hr_utility.set_location('l_contact_set <= 0:'||l_proc, 15);
15901: resultout := 'COMPLETE:'|| 'N';
15902: end if;
15903: hr_utility.set_location('Exiting:'||l_proc, 20);
15904: EXCEPTION
15905: WHEN OTHERS THEN
15906: hr_utility.set_location('Exception:OTHERS'||l_proc,555);
15907: WF_CORE.CONTEXT(g_package
15902: end if;
15903: hr_utility.set_location('Exiting:'||l_proc, 20);
15904: EXCEPTION
15905: WHEN OTHERS THEN
15906: hr_utility.set_location('Exception:OTHERS'||l_proc,555);
15907: WF_CORE.CONTEXT(g_package
15908: ,'is_contact_added'
15909: ,itemtype
15910: ,itemkey
15932: l_proc varchar2(72) := g_package||'delete_transaction_steps';
15933:
15934: BEGIN
15935:
15936: hr_utility.set_location('Entering:'||l_proc, 5);
15937: hr_transaction_api.get_transaction_step_info (
15938: p_Item_Type => p_item_type,
15939: p_Item_Key => p_item_key,
15940: p_activity_id => to_number(p_actid),
15957: itemkey => p_item_key,
15958: aname => 'HR_CONTACT_SET');
15959:
15960: exception when others then
15961: hr_utility.set_location('Exception:others'||l_proc,555);
15962: l_wf_contact_set := 1000;
15963: -- can't let anyone have so many dependants anyway!
15964:
15965: END;
15963: -- can't let anyone have so many dependants anyway!
15964:
15965: END;
15966:
15967: hr_utility.set_location('before starting For Loop:'||l_proc, 10);
15968: FOR i IN 0..(l_trans_step_rows - 1) LOOP
15969:
15970: begin
15971: l_contact_set := hr_transaction_api.get_varchar2_value
15972: (p_transaction_step_id => l_trans_step_ids(i)
15973: ,p_name => 'P_CONTACT_SET');
15974: exception
15975: when others then
15976: hr_utility.set_location('Exception:Others'||l_proc,555);
15977: l_contact_set := 1;
15978: end;
15979:
15980: if l_contact_set is null then
15989: end if;
15990:
15991: END LOOP;
15992:
15993: --hr_utility.set_message(801, 'HR_51750_WEB_TRANSAC_STARTED');
15994: --hr_utility.raise_error;
15995: hr_utility.set_location('Exiting:'||l_proc, 15);
15996: EXCEPTION
15997: WHEN OTHERS THEN
15990:
15991: END LOOP;
15992:
15993: --hr_utility.set_message(801, 'HR_51750_WEB_TRANSAC_STARTED');
15994: --hr_utility.raise_error;
15995: hr_utility.set_location('Exiting:'||l_proc, 15);
15996: EXCEPTION
15997: WHEN OTHERS THEN
15998: hr_utility.set_location('Exception:Others'||l_proc,555);
15991: END LOOP;
15992:
15993: --hr_utility.set_message(801, 'HR_51750_WEB_TRANSAC_STARTED');
15994: --hr_utility.raise_error;
15995: hr_utility.set_location('Exiting:'||l_proc, 15);
15996: EXCEPTION
15997: WHEN OTHERS THEN
15998: hr_utility.set_location('Exception:Others'||l_proc,555);
15999: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
15994: --hr_utility.raise_error;
15995: hr_utility.set_location('Exiting:'||l_proc, 15);
15996: EXCEPTION
15997: WHEN OTHERS THEN
15998: hr_utility.set_location('Exception:Others'||l_proc,555);
15999: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
16000: hr_utility.raise_error;
16001: --raise;
16002: END delete_transaction_steps;
15996: EXCEPTION
15997: WHEN OTHERS THEN
15998: hr_utility.set_location('Exception:Others'||l_proc,555);
15999: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
16000: hr_utility.raise_error;
16001: --raise;
16002: END delete_transaction_steps;
16003: --
16004: -- my delete
16023: l_proc varchar2(72) := g_package||'delete_transaction_steps';
16024:
16025: BEGIN
16026:
16027: hr_utility.set_location('Entering:'||l_proc, 5);
16028: hr_transaction_api.get_transaction_step_info (
16029: p_Item_Type => p_item_type,
16030: p_Item_Key => p_item_key,
16031: p_activity_id => to_number(p_actid),
16048: itemkey => p_item_key,
16049: aname => 'HR_CONTACT_SET');
16050:
16051: exception when others then
16052: hr_utility.set_location('Exception:Others'||l_proc,555);
16053: l_wf_contact_set := 1000;
16054: -- can't let anyone have so many dependants anyway!
16055:
16056: END;
16054: -- can't let anyone have so many dependants anyway!
16055:
16056: END;
16057:
16058: hr_utility.set_location('Before Entering For Loop:'||l_proc,10 );
16059: FOR i IN 0..(l_trans_step_rows - 1) LOOP
16060:
16061: begin
16062: l_contact_set := hr_transaction_api.get_varchar2_value
16063: (p_transaction_step_id => l_trans_step_ids(i)
16064: ,p_name => 'P_CONTACT_SET');
16065: exception
16066: when others then
16067: hr_utility.set_location('Exception:Others'||l_proc,555);
16068: l_contact_set := 1;
16069: end;
16070:
16071: if l_contact_set is null then
16101: end if;
16102: end if;
16103:
16104: END LOOP;
16105: hr_utility.set_location('End of For Loop:'||l_proc,15 );
16106:
16107: --hr_utility.set_message(801, 'HR_51750_WEB_TRANSAC_STARTED');
16108: --hr_utility.raise_error;
16109: hr_utility.set_location('Exiting:'||l_proc, 20);
16103:
16104: END LOOP;
16105: hr_utility.set_location('End of For Loop:'||l_proc,15 );
16106:
16107: --hr_utility.set_message(801, 'HR_51750_WEB_TRANSAC_STARTED');
16108: --hr_utility.raise_error;
16109: hr_utility.set_location('Exiting:'||l_proc, 20);
16110:
16111: EXCEPTION
16104: END LOOP;
16105: hr_utility.set_location('End of For Loop:'||l_proc,15 );
16106:
16107: --hr_utility.set_message(801, 'HR_51750_WEB_TRANSAC_STARTED');
16108: --hr_utility.raise_error;
16109: hr_utility.set_location('Exiting:'||l_proc, 20);
16110:
16111: EXCEPTION
16112: WHEN OTHERS THEN
16105: hr_utility.set_location('End of For Loop:'||l_proc,15 );
16106:
16107: --hr_utility.set_message(801, 'HR_51750_WEB_TRANSAC_STARTED');
16108: --hr_utility.raise_error;
16109: hr_utility.set_location('Exiting:'||l_proc, 20);
16110:
16111: EXCEPTION
16112: WHEN OTHERS THEN
16113: hr_utility.set_location('Exception:Others'||l_proc,555);
16109: hr_utility.set_location('Exiting:'||l_proc, 20);
16110:
16111: EXCEPTION
16112: WHEN OTHERS THEN
16113: hr_utility.set_location('Exception:Others'||l_proc,555);
16114: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
16115: hr_utility.raise_error;
16116: --raise;
16117: END delete_transaction_steps;
16111: EXCEPTION
16112: WHEN OTHERS THEN
16113: hr_utility.set_location('Exception:Others'||l_proc,555);
16114: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
16115: hr_utility.raise_error;
16116: --raise;
16117: END delete_transaction_steps;
16118: --
16119:
16137: l_new_object_number number;
16138: l_proc varchar2(72) := g_package||'update_object_version';
16139:
16140: begin
16141: hr_utility.set_location('Entering:'||l_proc, 5);
16142: /*
16143: l_assignment_id :=
16144: hr_transaction_api.get_number_value
16145: (p_transaction_step_id => p_transaction_step_id
16161: ,p_name => 'P_OBJECT_VERSION_NUMBER'
16162: ,p_value => l_new_object_number);
16163: end if;
16164: */
16165: hr_utility.set_location('Exiting:'||l_proc, 15);
16166: null;
16167:
16168: end update_object_version;
16169: --
16395: This employee already has a primary contact. Cause: You are trying to enter more than one
16396: primary contact for an employee. Action: Uncheck the Primary Contact check box and save your contact
16397: information.*/
16398:
16399: hr_utility.set_location('Entering:'||l_proc, 5);
16400: hr_contact_rel_api.create_contact(
16401: p_validate => p_validate -- l_validate_mode
16402: ,p_start_date => p_start_date --p_start_date
16403: ,p_business_group_id => p_business_group_id
16597: ,p_orig_hire_warning => p_orig_hire_warning
16598: );
16599: --
16600: if (p_contact_operation in ('EMER_CR_NEW_CONT','EMER_CR_NEW_REL')) OR (p_emrg_cont_flag = 'Y') then
16601: hr_utility.set_location('EMER_CR_NEW_CONT or EMER_CR_NEW_REL:'||l_proc, 10);
16602:
16603: z_date_start := p_date_start;
16604: if p_primary_contact_flag = 'Y' then --9564383
16605: open csr_chk_primary_cnt;
16809: ,p_name_combination_warning => p_name_combination_warning
16810: ,p_orig_hire_warning => p_orig_hire_warning
16811: );
16812: end if;
16813: hr_utility.set_location('Exiting:'||l_proc, 20);
16814: end call_contact_api;
16815: --
16816:
16817: procedure get_emrg_rel_id (
16881: l_proc varchar2(72) := g_package||'get_emrg_rel_id';
16882:
16883: begin
16884:
16885: hr_utility.set_location('Entering:'||l_proc, 5);
16886: hr_utility.set_location('Before Fetching no_of_non_emrg_rel:'||l_proc, 10);
16887: open no_of_non_emrg_rel(p_contact_relationship_id,p_contact_person_id);
16888: fetch no_of_non_emrg_rel
16889: into l_no_of_non_emrg_rel;
16882:
16883: begin
16884:
16885: hr_utility.set_location('Entering:'||l_proc, 5);
16886: hr_utility.set_location('Before Fetching no_of_non_emrg_rel:'||l_proc, 10);
16887: open no_of_non_emrg_rel(p_contact_relationship_id,p_contact_person_id);
16888: fetch no_of_non_emrg_rel
16889: into l_no_of_non_emrg_rel;
16890: IF no_of_non_emrg_rel%NOTFOUND THEN
16914: p_emrg_rel_id := l_emrg_rel_id;
16915: p_no_of_non_emrg_rel := l_no_of_non_emrg_rel;
16916: p_other_rel_type := l_other_rel_type;
16917: p_emrg_rel_type := l_emrg_rel_type;
16918: hr_utility.set_location('Exiting:'||l_proc, 25);
16919: end get_emrg_rel_id;
16920:
16921: --
16922: procedure validate_rel_start_date (
16961: l_main_per_date_of_birth date;
16962: l_proc varchar2(72) := g_package||'validate_rel_start_date';
16963: begin
16964:
16965: hr_utility.set_location('Entering:'||l_proc, 5);
16966: if p_person_id is not null then
16967: hr_utility.set_location('if p_person_id is not null then:'||l_proc, 10);
16968: select min(p.date_of_birth) , min(p.effective_start_date)
16969: into l_main_per_date_of_birth , l_main_per_eff_start_date
16963: begin
16964:
16965: hr_utility.set_location('Entering:'||l_proc, 5);
16966: if p_person_id is not null then
16967: hr_utility.set_location('if p_person_id is not null then:'||l_proc, 10);
16968: select min(p.date_of_birth) , min(p.effective_start_date)
16969: into l_main_per_date_of_birth , l_main_per_eff_start_date
16970: from per_people_f p
16971: where p.person_id = p_person_id;
16970: from per_people_f p
16971: where p.person_id = p_person_id;
16972: else
16973: begin
16974: hr_utility.set_location('if p_person_id is not null then:'||l_proc, 15);
16975: select nvl(max(hats1.transaction_step_id),0)
16976: into l_validate_g_per_step_id
16977: from hr_api_transaction_steps hats1
16978: where hats1.item_type = 'HRSSA'
16988: ,p_name => 'P_EFFECTIVE_DATE');
16989:
16990: exception
16991: when others then
16992: hr_utility.set_location('Exception:Others'||l_proc,555);
16993: null;
16994: end;
16995:
16996: end if; --l_person_id is/not null
16999: -- fix for bug # 2221040
17000: if nvl(p_save_mode, 'NVL') <> 'SAVE_FOR_LATER'
17001: then
17002: if l_main_per_date_of_birth is not null and l_main_per_date_of_birth > p_date_start then
17003: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
17004: hr_utility.raise_error;
17005: elsif p_date_of_birth is not null and p_date_of_birth > p_date_start then
17006: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
17007: hr_utility.raise_error;
17000: if nvl(p_save_mode, 'NVL') <> 'SAVE_FOR_LATER'
17001: then
17002: if l_main_per_date_of_birth is not null and l_main_per_date_of_birth > p_date_start then
17003: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
17004: hr_utility.raise_error;
17005: elsif p_date_of_birth is not null and p_date_of_birth > p_date_start then
17006: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
17007: hr_utility.raise_error;
17008: end if;
17002: if l_main_per_date_of_birth is not null and l_main_per_date_of_birth > p_date_start then
17003: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
17004: hr_utility.raise_error;
17005: elsif p_date_of_birth is not null and p_date_of_birth > p_date_start then
17006: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
17007: hr_utility.raise_error;
17008: end if;
17009: end if;
17010: -- l_main_per_eff_start_date will be used in Create_Contact_tt , so we need to return it.
17003: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
17004: hr_utility.raise_error;
17005: elsif p_date_of_birth is not null and p_date_of_birth > p_date_start then
17006: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
17007: hr_utility.raise_error;
17008: end if;
17009: end if;
17010: -- l_main_per_eff_start_date will be used in Create_Contact_tt , so we need to return it.
17011: p_date_start := l_main_per_eff_start_date;
17008: end if;
17009: end if;
17010: -- l_main_per_eff_start_date will be used in Create_Contact_tt , so we need to return it.
17011: p_date_start := l_main_per_eff_start_date;
17012: hr_utility.set_location('Exiting:'||l_proc, 15);
17013: end validate_rel_start_date;
17014:
17015: --
17016:
17052:
17053: begin
17054:
17055:
17056: hr_utility.set_location('Entering:'||l_proc, 5);
17057: get_emrg_rel_id ( P_contact_relationship_id => p_contact_relationship_id
17058: ,p_contact_person_id => p_contact_person_id
17059: ,p_emrg_rel_id => l_emrg_rel_id
17060: ,p_no_of_non_emrg_rel => l_no_of_non_emrg_rel
17061: ,p_other_rel_type => l_other_rel_type
17062: ,p_emrg_rel_type => l_emrg_rel_type);
17063: l_emerg_cont_rel_id := to_number(l_emrg_rel_id);
17064:
17065: hr_utility.set_location('Before fetching gc_get_emerg_contact_data:'||l_proc,10 );
17066: OPEN gc_get_emerg_contact_data(p_contact_relationship_id => l_emerg_cont_rel_id);
17067:
17068: FETCH gc_get_emerg_contact_data into l_emerg_contact_data;
17069: IF gc_get_emerg_contact_data%NOTFOUND THEN
17085: if p_contact_relationship_id = l_emerg_cont_rel_id then
17086: p_object_version_number := l_emerg_contact_data.ovn;
17087: end if;
17088:
17089: hr_utility.set_location('Exiting:'||l_proc, 15);
17090: end validate_primary_cont_flag;
17091:
17092: --
17093: