[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: ||===========================================================================
1697:
1698: --
1699: BEGIN
1700: --
1701: hr_utility.set_location('Entering hr_contact_rel_api.update_contact_relationship', 5);
1702: --
1703: IF upper(p_action) = g_change
1704: THEN
1705: l_attribute_update_mode := g_attribute_update;
1709: l_attribute_update_mode := g_attribute_correct;
1710: END IF;
1711: END IF;
1712:
1713: hr_utility.set_location('l_attribute_update_mode=' ||
1714: l_attribute_update_mode, 10);
1715:
1716: -- Bug no:2263008 fix begins
1717:
1766: END IF;
1767:
1768: SAVEPOINT before_entering_into_update ;
1769:
1770: hr_utility.set_location('Before calling is_rec_changed', 15);
1771: --
1772: l_sequence_number := p_sequence_number;
1773: --
1774: IF p_sequence_number <= 0
1858: -- Primary flag checkbox is availaible only in Emergency Contact.So checking for
1859: -- change in primary contact only when in Emerg Update.
1860:
1861: if p_contact_operation in ('EMRG_OVRW_UPD') then
1862: hr_utility.set_location('if p_contact_operation in EMRG_OVRW_UPD:'||l_proc,20);
1863: open get_emrg_primary_cont_flag(l_contact_relationship_id,
1864: p_cont_person_id,
1865: p_person_id);
1866: fetch get_emrg_primary_cont_flag into l_emrg_primary_cont_flag;
1882: THEN
1883:
1884: -- Call the actual API.
1885: --
1886: hr_utility.set_location('Calling hr_contact_rel_api.update_contact_relationship', 25);
1887: --
1888: if (nvl(p_rltd_per_rsds_w_dsgntr_flag , 'N') = 'Y') then
1889: --
1890: p_del_cont_primary_addr
1981: --
1982: --
1983: IF hr_errors_api.errorExists
1984: THEN
1985: hr_utility.set_location('api error exists hr_contact_rel_api.update_contact_relationship', 30);
1986: ROLLBACK to before_entering_into_update ;
1987: raise g_data_error;
1988: END IF;
1989: --
1989: --
1990: --
1991: ELSE
1992: --
1993: hr_utility.set_location('No changes found hr_contact_rel_api.update_contact_relationship', 35);
1994: --
1995: END IF;
1996:
1997: IF p_vendor_id = 0
2292: --
2293: --
2294: IF hr_errors_api.errorExists
2295: THEN
2296: hr_utility.set_location('api error exists hr_process_person_ss.update_person', 40);
2297: ROLLBACK to before_entering_into_update ;
2298: raise g_data_error;
2299: END IF;
2300: ELSE
2298: raise g_data_error;
2299: END IF;
2300: ELSE
2301: --
2302: hr_utility.set_location('No changes found in hr_process_person_ss.update_person', 45);
2303: --
2304: END IF;
2305:
2306: ROLLBACK to before_entering_into_update ;
2313: -- --------------------------------------------------------------------------
2314: --
2315: IF l_per_details_changed OR l_basic_details_changed
2316: THEN
2317: hr_utility.set_location('l_per_details_changed OR l_basic_details_changed', 50);
2318: -- First, check if transaction id exists or not
2319:
2320: l_transaction_id := hr_transaction_ss.get_transaction_id
2321: (p_item_type => p_item_type
2322: ,p_item_key => p_item_key);
2323: --
2324: --
2325: IF l_transaction_id is null THEN
2326: hr_utility.set_location('IF l_transaction_id is null THEN', 55);
2327: -- Start a Transaction
2328: hr_transaction_ss.start_transaction
2329: (itemtype => p_item_type
2330: ,itemkey => p_item_key
2352: ,p_transaction_step_id => l_transaction_step_id
2353: ,p_object_version_number => l_trs_object_version_number);
2354:
2355: --
2356: hr_utility.set_location('l_transaction_step_id = '
2357: || to_char(l_transaction_step_id), 30);
2358:
2359:
2360: l_count := l_count + 1;
2434: --
2435: --
2436: IF l_basic_details_changed THEN
2437: --
2438: hr_utility.set_location('IF l_basic_details_changed THEN', 60);
2439: l_count := l_count + 1;
2440: l_transaction_table(l_count).param_name :=upper('p_cont_rec_changed');
2441: l_transaction_table(l_count).param_value := 'CHANGED';
2442: l_transaction_table(l_count).param_data_type := upper('varchar2');
2674: l_transaction_table(l_count).param_data_type := upper('number');
2675: --
2676: if not l_per_details_changed then
2677: --
2678: hr_utility.set_location('if not l_per_details_changed then', 65);
2679: l_count := l_count + 1;
2680: l_transaction_table(l_count).param_name :=upper('p_per_rec_changed');
2681: l_transaction_table(l_count).param_value := null;
2682: l_transaction_table(l_count).param_data_type := upper('varchar2');
2688: --
2689: IF l_per_details_changed THEN
2690: --
2691: l_count := l_count + 1;
2692: hr_utility.set_location('if l_per_details_changed THEN', 70);
2693: l_transaction_table(l_count).param_name :=upper('p_per_rec_changed');
2694: l_transaction_table(l_count).param_value := 'CHANGED';
2695: l_transaction_table(l_count).param_data_type := upper('varchar2');
2696: --
3625: itemkey => p_item_key,
3626: aname => 'HR_CONTACT_SET');
3627:
3628: exception when others then
3629: hr_utility.set_location('Exception:'||l_proc,555);
3630: l_contact_set := 0;
3631:
3632: end;
3633:
3843: l_transaction_table(l_count).param_name :=upper('P_CONT_INFORMATION20');
3844: l_transaction_table(l_count).param_value := P_CONT_INFORMATION20;
3845: l_transaction_table(l_count).param_data_type := upper('varchar2');
3846:
3847: hr_utility.set_location('Before Calling :hr_transaction_ss.save_transaction_step', 75);
3848: hr_utility.set_location('Before Calling :hr_transaction_ss.save_transaction_step '
3849: || to_char(l_transaction_table.count), 75);
3850: --
3851:
3844: l_transaction_table(l_count).param_value := P_CONT_INFORMATION20;
3845: l_transaction_table(l_count).param_data_type := upper('varchar2');
3846:
3847: hr_utility.set_location('Before Calling :hr_transaction_ss.save_transaction_step', 75);
3848: hr_utility.set_location('Before Calling :hr_transaction_ss.save_transaction_step '
3849: || to_char(l_transaction_table.count), 75);
3850: --
3851:
3852: -- Bug 3152505 : Added the new transaction var
3864: ,p_transaction_step_id => l_transaction_step_id
3865: ,p_api_name => g_package || '.PROCESS_API'
3866: ,p_transaction_data => l_transaction_table);
3867: --
3868: hr_utility.set_location('Leaving hr_process_contact_ss.update_contact_relationship', 80);
3869:
3870: END IF;
3871: --
3872: -- 9999 set out variables here. Do we need to set anyway.
3873: --
3874: p_name_combination_warning := l_per_name_combination_warning;
3875: p_assign_payroll_warning := l_per_assign_payroll_warning;
3876: p_orig_hire_warning := l_per_orig_hire_warning;
3877: hr_utility.set_location('Exiting:'||l_proc, 85);
3878:
3879: EXCEPTION
3880: WHEN hr_utility.hr_error THEN
3881: -- -------------------------------------------
3876: p_orig_hire_warning := l_per_orig_hire_warning;
3877: hr_utility.set_location('Exiting:'||l_proc, 85);
3878:
3879: EXCEPTION
3880: WHEN hr_utility.hr_error THEN
3881: -- -------------------------------------------
3882: -- an application error has been raised so we must
3883: -- redisplay the web form to display the error
3884: -- --------------------------------------------
3881: -- -------------------------------------------
3882: -- an application error has been raised so we must
3883: -- redisplay the web form to display the error
3884: -- --------------------------------------------
3885: hr_utility.set_location('Exception:'||l_proc,560);
3886: hr_message.provide_error;
3887: l_message_number := hr_message.last_message_number;
3888: --
3889: -- 99999 What error messages I have to trap here.
3889: -- 99999 What error messages I have to trap here.
3890: --
3891: IF l_message_number = 'APP-7165' OR
3892: l_message_number = 'APP-7155' THEN
3893: hr_utility.set_message(800, 'HR_UPDATE_NOT_ALLOWED');
3894: hr_utility.raise_error;
3895: ELSE
3896: hr_utility.raise_error;
3897: END IF;
3890: --
3891: IF l_message_number = 'APP-7165' OR
3892: l_message_number = 'APP-7155' THEN
3893: hr_utility.set_message(800, 'HR_UPDATE_NOT_ALLOWED');
3894: hr_utility.raise_error;
3895: ELSE
3896: hr_utility.raise_error;
3897: END IF;
3898: WHEN OTHERS THEN
3892: l_message_number = 'APP-7155' THEN
3893: hr_utility.set_message(800, 'HR_UPDATE_NOT_ALLOWED');
3894: hr_utility.raise_error;
3895: ELSE
3896: hr_utility.raise_error;
3897: END IF;
3898: WHEN OTHERS THEN
3899: hr_utility.set_location('Exception:'||l_proc,565);
3900: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
3895: ELSE
3896: hr_utility.raise_error;
3897: END IF;
3898: WHEN OTHERS THEN
3899: hr_utility.set_location('Exception:'||l_proc,565);
3900: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
3901: hr_utility.raise_error;
3902: --RAISE; -- Raise error here relevant to the new tech stack.
3903: --
3897: END IF;
3898: WHEN OTHERS THEN
3899: hr_utility.set_location('Exception:'||l_proc,565);
3900: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
3901: hr_utility.raise_error;
3902: --RAISE; -- Raise error here relevant to the new tech stack.
3903: --
3904: end update_contact_relationship;
3905: --
3980: --
3981: --2480916 fix starts
3982: --decommenting the fetch of cursor data as we are checking this cursor value with the current value.
3983: --
3984: hr_utility.set_location('Entering:'||l_proc, 5);
3985: OPEN gc_get_cur_contact_data(p_contact_relationship_id => p_contact_relationship_id);
3986: FETCH gc_get_cur_contact_data into l_cur_contact_data;
3987: IF gc_get_cur_contact_data%NOTFOUND
3988: THEN
3985: OPEN gc_get_cur_contact_data(p_contact_relationship_id => p_contact_relationship_id);
3986: FETCH gc_get_cur_contact_data into l_cur_contact_data;
3987: IF gc_get_cur_contact_data%NOTFOUND
3988: THEN
3989: hr_utility.set_location('IF gc_get_cur_contact_data NOTFOUND:'||l_proc,10 );
3990: CLOSE gc_get_cur_contact_data;
3991: raise g_data_error;
3992: ELSE
3993: hr_utility.set_location('IF gc_get_cur_contact_data FOUND:'||l_proc,15 );
3989: hr_utility.set_location('IF gc_get_cur_contact_data NOTFOUND:'||l_proc,10 );
3990: CLOSE gc_get_cur_contact_data;
3991: raise g_data_error;
3992: ELSE
3993: hr_utility.set_location('IF gc_get_cur_contact_data FOUND:'||l_proc,15 );
3994: CLOSE gc_get_cur_contact_data;
3995: END IF;
3996: --2480916 fix ends
3997: --
4698: END IF;
4699: --
4700: <
4701: --
4702: hr_utility.set_location('Exiting:'||l_proc, 20);
4703: RETURN l_rec_changed;
4704:
4705:
4706: EXCEPTION
4704:
4705:
4706: EXCEPTION
4707: When g_data_error THEN
4708: hr_utility.set_location('Exception:When g_data_error THEN'||l_proc,555);
4709: raise;
4710:
4711: When others THEN
4712: hr_utility.set_location(' When others THEN'||l_proc,560);
4708: hr_utility.set_location('Exception:When g_data_error THEN'||l_proc,555);
4709: raise;
4710:
4711: When others THEN
4712: hr_utility.set_location(' When others THEN'||l_proc,560);
4713: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
4714: hr_utility.raise_error;
4715: --raise;
4716:
4710:
4711: When others THEN
4712: hr_utility.set_location(' When others THEN'||l_proc,560);
4713: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
4714: hr_utility.raise_error;
4715: --raise;
4716:
4717: END is_rec_changed;
4718:
4941: -- transaction. This is used for re-display the Update page when a user
4942: -- clicks the Back button on the Review page to go back to the Update page
4943: -- to make further changes or to correct errors.
4944: -----------------------------------------------------------------------------
4945: hr_utility.set_location('Entering:'||l_proc, 5);
4946: hr_transaction_api.get_transaction_step_info
4947: (p_item_type => p_item_type
4948: ,p_item_key => p_item_key
4949: ,p_activity_id => p_activity_id
4954: THEN
4955: l_transaction_rec_count := 1;
4956: ELSE
4957: l_transaction_rec_count := 0;
4958: hr_utility.set_location('Exiting thru Else part of l_transaction_step_id > 0 :'||l_proc, 10);
4959: return;
4960: END IF;
4961: --
4962: -- -------------------------------------------------------------------
5162: ,p_is_emrg_cont => p_is_emrg_cont
5163: ,p_is_dpdnt_bnf => p_is_dpdnt_bnf
5164: );
5165:
5166: hr_utility.set_location('Exiting:'||l_proc, 15);
5167:
5168: EXCEPTION
5169: WHEN g_data_error THEN
5170: hr_utility.set_location('WHEN g_data_error THEN'||l_proc,555);
5166: hr_utility.set_location('Exiting:'||l_proc, 15);
5167:
5168: EXCEPTION
5169: WHEN g_data_error THEN
5170: hr_utility.set_location('WHEN g_data_error THEN'||l_proc,555);
5171: RAISE;
5172: END get_contact_from_tt;
5173: -- ---------------------------------------------------------------------------
5174: -- ---------------------- < get_contact_from_tt> -------------------------
5379: l_proc varchar2(72) := g_package||'get_contact_from_tt';
5380:
5381: BEGIN
5382: --
5383: hr_utility.set_location('Entering:'||l_proc, 5);
5384:
5385: hr_utility.set_location('Setting the attributes:'||l_proc,10 );
5386: p_cont_object_version_number :=
5387: hr_transaction_api.get_number_value
5381: BEGIN
5382: --
5383: hr_utility.set_location('Entering:'||l_proc, 5);
5384:
5385: hr_utility.set_location('Setting the attributes:'||l_proc,10 );
5386: p_cont_object_version_number :=
5387: hr_transaction_api.get_number_value
5388: (p_transaction_step_id => p_transaction_step_id
5389: ,p_name =>upper( 'p_cont_object_version_number'));
6339: hr_transaction_api.get_VARCHAR2_value
6340: (p_transaction_step_id => p_transaction_step_id
6341: ,p_name => 'P_CONT_INFORMATION20');
6342: --
6343: hr_utility.set_location('End of setting the attributes:'||l_proc,15 );
6344: hr_utility.set_location('Exiting:'||l_proc, 20);
6345:
6346: EXCEPTION
6347: WHEN OTHERS THEN
6340: (p_transaction_step_id => p_transaction_step_id
6341: ,p_name => 'P_CONT_INFORMATION20');
6342: --
6343: hr_utility.set_location('End of setting the attributes:'||l_proc,15 );
6344: hr_utility.set_location('Exiting:'||l_proc, 20);
6345:
6346: EXCEPTION
6347: WHEN OTHERS THEN
6348: hr_utility.set_location('Exception:'||l_proc,555);
6344: hr_utility.set_location('Exiting:'||l_proc, 20);
6345:
6346: EXCEPTION
6347: WHEN OTHERS THEN
6348: hr_utility.set_location('Exception:'||l_proc,555);
6349: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
6350: hr_utility.raise_error;
6351: --RAISE;
6352:
6346: EXCEPTION
6347: WHEN OTHERS THEN
6348: hr_utility.set_location('Exception:'||l_proc,555);
6349: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
6350: hr_utility.raise_error;
6351: --RAISE;
6352:
6353: END get_contact_from_tt;
6354: --
6701:
6702: --
6703: BEGIN
6704: --
6705: hr_utility.set_location('Entering:'||l_proc, 5);
6706:
6707: -- Bug no:2263008 fix begins
6708:
6709: check_ni_unique(
6718: IF p_primary_contact_flag = 'Y' then
6719:
6720: -- Check if there are already any contacts as primary added.
6721: --
6722: hr_utility.set_location('IF p_primary_contact_flag =Y :'||l_proc,10 );
6723: BEGIN
6724: select count(hats.transaction_step_id)
6725: into l_primary_contact_added
6726: from hr_api_transaction_steps hats,
6731: and hats.transaction_step_id = hatv.transaction_step_id
6732: and hatv.varchar2_value = 'Y'
6733: and hatv.name = upper('p_primary_contact_flag');
6734:
6735: hr_utility.set_location(
6736: 'HR_PROCESS_CONTACT_SS.create_contact_tt : Check if primary contact already added in previous step : '||l_primary_contact_added, 2146328);
6737:
6738: EXCEPTION
6739: WHEN others THEN
6742: END;
6743:
6744: IF l_primary_contact_added >0 then
6745:
6746: hr_utility.set_location('l_primary_contact_added >0:'||l_proc,15 );
6747: hr_utility.set_message(800, 'PER_289574_EMP_CON_PRIMARY');
6748: hr_utility.raise_error;
6749:
6750:
6743:
6744: IF l_primary_contact_added >0 then
6745:
6746: hr_utility.set_location('l_primary_contact_added >0:'||l_proc,15 );
6747: hr_utility.set_message(800, 'PER_289574_EMP_CON_PRIMARY');
6748: hr_utility.raise_error;
6749:
6750:
6751: END IF;
6744: IF l_primary_contact_added >0 then
6745:
6746: hr_utility.set_location('l_primary_contact_added >0:'||l_proc,15 );
6747: hr_utility.set_message(800, 'PER_289574_EMP_CON_PRIMARY');
6748: hr_utility.raise_error;
6749:
6750:
6751: END IF;
6752:
6764: THEN
6765: l_attribute_update_mode := g_attribute_correct;
6766: END IF;
6767: END IF;
6768: hr_utility.set_location('Setting l_attribute_update_mode ', 20);
6769: --
6770: hr_utility.set_location('Calling hr_contact_rel_api.create_contact', 25);
6771: --
6772: -- Call the actual API.
6766: END IF;
6767: END IF;
6768: hr_utility.set_location('Setting l_attribute_update_mode ', 20);
6769: --
6770: hr_utility.set_location('Calling hr_contact_rel_api.create_contact', 25);
6771: --
6772: -- Call the actual API.
6773: --
6774: -- Check if the record has changed is not necessary as it's a create.
6881: -- fix for bug # 2221040
6882: if nvl(p_save_mode, 'NVL') <> 'SAVE_FOR_LATER'
6883: then
6884: if l_main_per_date_of_birth is not null and l_main_per_date_of_birth > p_date_start then
6885: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
6886: hr_utility.raise_error;
6887: elsif p_date_of_birth is not null and p_date_of_birth > p_date_start then
6888: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
6889: hr_utility.raise_error;
6882: if nvl(p_save_mode, 'NVL') <> 'SAVE_FOR_LATER'
6883: then
6884: if l_main_per_date_of_birth is not null and l_main_per_date_of_birth > p_date_start then
6885: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
6886: hr_utility.raise_error;
6887: elsif p_date_of_birth is not null and p_date_of_birth > p_date_start then
6888: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
6889: hr_utility.raise_error;
6890: end if;
6884: if l_main_per_date_of_birth is not null and l_main_per_date_of_birth > p_date_start then
6885: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
6886: hr_utility.raise_error;
6887: elsif p_date_of_birth is not null and p_date_of_birth > p_date_start then
6888: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
6889: hr_utility.raise_error;
6890: end if;
6891: end if;
6892: */
6885: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
6886: hr_utility.raise_error;
6887: elsif p_date_of_birth is not null and p_date_of_birth > p_date_start then
6888: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
6889: hr_utility.raise_error;
6890: end if;
6891: end if;
6892: */
6893: begin
6905:
6906: if p_contact_person_id is not null then
6907:
6908: begin
6909: hr_utility.set_location('if p_contact_person_id is not null then'||l_proc,30 );
6910: select min(date_start)
6911: into l_start_date
6912: from per_contact_relationships
6913: where contact_person_id = p_contact_person_id;
6930: --
6931: if (l_person_id is null or l_person_id = -1) and
6932: nvl(p_save_mode, 'NVL') <> 'SAVE_FOR_LATER'
6933: then
6934: hr_utility.set_location('l_person_id is null or l_person_id = -1 and not SFL'||l_proc,35 );
6935: --
6936: -- Either create a dummy person or temp solution use the p_login_person_id
6937: --
6938: -- l_person_id := p_login_person_id; This is for testing only.
6994: -- update_person api.
6995: --
6996: if nvl(p_save_mode, 'NVL') <> 'SAVE_FOR_LATER'
6997: then
6998: hr_utility.set_location('p_save_mode not SFL'||l_proc,40 );
6999:
7000: --
7001: -- Bug 3152505 : calling call_contact_api
7002: -- hr_contact_rel_api.create_contact(
7206: --
7207: -- Validating the update_person
7208: --
7209:
7210: hr_utility.set_location('After calling validate proceses ', 45);
7211: --
7212: IF hr_errors_api.errorExists
7213: THEN
7214: hr_utility.set_location('api error exists hr_contact_rel_api.create_contact', 50);
7210: hr_utility.set_location('After calling validate proceses ', 45);
7211: --
7212: IF hr_errors_api.errorExists
7213: THEN
7214: hr_utility.set_location('api error exists hr_contact_rel_api.create_contact', 50);
7215: rollback to create_contact_tt_start ;
7216: raise g_data_error;
7217: END IF;
7218:
7262: THEN
7263: --
7264: -- Get the Employee number from the Database;
7265: --
7266: hr_utility.set_location('Declaring the Cursor c_pap'||l_proc,50);
7267: DECLARE
7268: CURSOR c_pap IS SELECT employee_number FROM per_all_people_f
7269: WHERE person_id = p_per_person_id
7270: AND p_start_date BETWEEN
7279: --
7280: p_employee_number := l_pap.employee_number ;
7281: --
7282: EXCEPTION WHEN OTHERS THEN
7283: hr_utility.set_location('Exception in c_pap Cursor:'||l_proc,555);
7284: raise ;
7285: END;
7286: --
7287: hr_utility.set_location('Calling hr_person_api.update_person '||l_proc,55);
7283: hr_utility.set_location('Exception in c_pap Cursor:'||l_proc,555);
7284: raise ;
7285: END;
7286: --
7287: hr_utility.set_location('Calling hr_person_api.update_person '||l_proc,55);
7288: hr_person_api.update_person (
7289: p_validate => l_validate_mode
7290: ,p_effective_date => l_start_date
7291: --p_start_date --9999p_effective_date
7362: ,p_assign_payroll_warning => l_per_assign_payroll_warning
7363: ,p_orig_hire_warning => l_per_orig_hire_warning
7364: );
7365: --
7366: hr_utility.set_location('After calling validate proceses ', 65);
7367: --
7368: IF hr_errors_api.errorExists
7369: THEN
7370: hr_utility.set_location('api error exists hr_person_api.update_person ', 67);
7366: hr_utility.set_location('After calling validate proceses ', 65);
7367: --
7368: IF hr_errors_api.errorExists
7369: THEN
7370: hr_utility.set_location('api error exists hr_person_api.update_person ', 67);
7371: rollback to create_contact_tt_start ;
7372: raise g_data_error;
7373: END IF;
7374:
9069: itemkey => p_item_key,
9070: aname => 'HR_CONTACT_SET');
9071:
9072: exception when others then
9073: hr_utility.set_location('Exception:'||l_proc,560);
9074: l_contact_set := 0;
9075:
9076: end;
9077:
9079: l_transaction_table(l_count).param_name := 'P_CONTACT_SET';
9080: l_transaction_table(l_count).param_value := l_contact_set;
9081: l_transaction_table(l_count).param_data_type := 'VARCHAR2';
9082: --EndRegistration
9083: hr_utility.set_location('Before Calling :hr_transaction_ss.save_transaction_step', 90);
9084: --
9085: hr_transaction_ss.save_transaction_step
9086: (p_item_type => p_item_type
9087: ,p_item_key => p_item_key
9091: ,p_transaction_step_id => l_transaction_step_id
9092: ,p_api_name => g_package || '.PROCESS_CREATE_CONTACT_API'
9093: ,p_transaction_data => l_transaction_table);
9094: --
9095: -- hr_utility.set_location('Leaving hr_contact_rel_api.create_contact_tt', 100);
9096:
9097: hr_utility.set_location('Exiting:'||l_proc,100);
9098: --
9099: -- 9999 What full_name code is doing? Do we need to add?
9093: ,p_transaction_data => l_transaction_table);
9094: --
9095: -- hr_utility.set_location('Leaving hr_contact_rel_api.create_contact_tt', 100);
9096:
9097: hr_utility.set_location('Exiting:'||l_proc,100);
9098: --
9099: -- 9999 What full_name code is doing? Do we need to add?
9100: -- 9999 Any warnings do we need to pass back to java code?
9101: -- 9999 Reset the object version number.
9100: -- 9999 Any warnings do we need to pass back to java code?
9101: -- 9999 Reset the object version number.
9102: --
9103: EXCEPTION
9104: WHEN hr_utility.hr_error THEN
9105: -- -------------------------------------------
9106: -- an application error has been raised so we must
9107: -- redisplay the web form to display the error
9108: -- --------------------------------------------
9105: -- -------------------------------------------
9106: -- an application error has been raised so we must
9107: -- redisplay the web form to display the error
9108: -- --------------------------------------------
9109: hr_utility.set_location('Exception:'||l_proc,565);
9110: hr_message.provide_error;
9111: l_message_number := hr_message.last_message_number;
9112: --
9113: -- 99999 What error messages I have to trap here.
9113: -- 99999 What error messages I have to trap here.
9114: --
9115: IF l_message_number = 'APP-7165' OR
9116: l_message_number = 'APP-7155' THEN
9117: hr_utility.set_message(800, 'HR_UPDATE_NOT_ALLOWED');
9118: hr_utility.raise_error;
9119: ELSE
9120: hr_utility.raise_error;
9121: END IF;
9114: --
9115: IF l_message_number = 'APP-7165' OR
9116: l_message_number = 'APP-7155' THEN
9117: hr_utility.set_message(800, 'HR_UPDATE_NOT_ALLOWED');
9118: hr_utility.raise_error;
9119: ELSE
9120: hr_utility.raise_error;
9121: END IF;
9122: WHEN OTHERS THEN
9116: l_message_number = 'APP-7155' THEN
9117: hr_utility.set_message(800, 'HR_UPDATE_NOT_ALLOWED');
9118: hr_utility.raise_error;
9119: ELSE
9120: hr_utility.raise_error;
9121: END IF;
9122: WHEN OTHERS THEN
9123: hr_utility.set_location('Exception:'||l_proc,570);
9124: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
9119: ELSE
9120: hr_utility.raise_error;
9121: END IF;
9122: WHEN OTHERS THEN
9123: hr_utility.set_location('Exception:'||l_proc,570);
9124: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
9125: hr_utility.raise_error;
9126: --RAISE; -- Raise error here relevant to the new tech stack.
9127: --
9121: END IF;
9122: WHEN OTHERS THEN
9123: hr_utility.set_location('Exception:'||l_proc,570);
9124: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
9125: hr_utility.raise_error;
9126: --RAISE; -- Raise error here relevant to the new tech stack.
9127: --
9128: END create_contact_tt;
9129: --
9174: l_proc varchar2(72) := g_package||'is_con_rec_changed';
9175:
9176: BEGIN
9177: --
9178: hr_utility.set_location('Entering:'||l_proc, 5);
9179: IF p_adjusted_svc_date <> hr_api.g_date
9180: THEN
9181: l_rec_changed := TRUE;
9182: goto finish;
9447: l_rec_changed := TRUE;
9448: goto finish;
9449: END IF;
9450: --
9451: hr_utility.set_location('Exiting:'||l_proc, 10);
9452: <
9453: return l_rec_changed ;
9454: EXCEPTION
9455: When g_data_error THEN
9452: <
9453: return l_rec_changed ;
9454: EXCEPTION
9455: When g_data_error THEN
9456: hr_utility.set_location('Exception g_data_error:'||l_proc,555);
9457: raise;
9458:
9459: When others THEN
9460: hr_utility.set_location('Exception others:'||l_proc,555);
9456: hr_utility.set_location('Exception g_data_error:'||l_proc,555);
9457: raise;
9458:
9459: When others THEN
9460: hr_utility.set_location('Exception others:'||l_proc,555);
9461: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
9462: hr_utility.raise_error;
9463: --raise;
9464:
9458:
9459: When others THEN
9460: hr_utility.set_location('Exception others:'||l_proc,555);
9461: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
9462: hr_utility.raise_error;
9463: --raise;
9464:
9465: END is_con_rec_changed;
9466: --
9530: l_addl_primary_contact_flag varchar2(100);
9531: l_proc varchar2(72) := g_package||'process_create_contact_api';
9532: --
9533: BEGIN
9534: hr_utility.set_location('Entering:'||l_proc, 5);
9535: --
9536: --
9537: SAVEPOINT process_create_contact_api;
9538:
9546: --
9547: -- StartRegistration
9548: --
9549: if l_person_id is null or l_person_id < 0 then
9550: hr_utility.set_location('l_person_id is null or l_person_id < 0:'||l_proc,10 );
9551: --
9552: --
9553: -- l_person_id := hr_process_person_ss.g_person_id;
9554: -- Adding the session id check to avoid connection pooling problems.
9566: l_con_rec_changed := hr_transaction_api.get_VARCHAR2_value
9567: (p_transaction_step_id => p_transaction_step_id
9568: ,p_name => 'P_CONT_REC_CHANGED') ;
9569: exception when others then
9570: hr_utility.set_location('Exception Others:'||l_proc,555);
9571: l_con_rec_changed := 'NOTCHANGED';
9572: end;
9573: --
9574: l_effective_date := hr_transaction_api.get_DATE_value
9577: --
9578: -- SFL changes.
9579: --
9580: if (p_effective_date is not null) then
9581: hr_utility.set_location('p_effective_date is not null:'||l_proc,15 );
9582: l_effective_date:= to_date(p_effective_date,g_date_format);
9583: --
9584: else
9585: --
9592: -- For normal commit the effective date should come from txn tbales.
9593: --
9594: if not p_validate then
9595: --
9596: hr_utility.set_location('if not p_validate then:'||l_proc,20 );
9597: l_effective_date := hr_transaction_api.get_DATE_value
9598: (p_transaction_step_id => p_transaction_step_id
9599: ,p_name => 'P_START_DATE');
9600: --
9652: ,p_name => 'P_PRIMARY_CONTACT_FLAG');
9653: --
9654:
9655: if l_contact_operation = 'EMER_CR_NEW_CONT' then
9656: hr_utility.set_location('if l_contact_operation is EMER_CR_NEW_CONT:'||l_proc,25 );
9657: --
9658: -- Bug 3152505 : When in Emergency contact, we always will create two relationship.
9659: -- One as "Emergency" and other the selected Relationship.
9660: if /*l_dpdnt_bnf_flag = 'Y' and */l_contact_type <> 'EMRG' then
10654: THEN
10655: --
10656: -- Get the Employee number from the Database;
10657: --
10658: hr_utility.set_location('Before declaring the Cursor c_pap:'||l_proc, 30);
10659: DECLARE
10660: CURSOR c_pap IS SELECT employee_number FROM per_all_people_f
10661: WHERE person_id = L_PER_PERSON_ID
10662: AND l_effective_date BETWEEN
10664: l_pap c_pap%ROWTYPE;
10665:
10666: BEGIN
10667: --
10668: hr_utility.set_location('Working on the Cursor c_pap:'||l_proc, 35);
10669: OPEN c_pap ;
10670: FETCH c_pap INTO l_pap ;
10671: CLOSE c_pap ;
10672: --
10672: --
10673: l_employee_number := l_pap.employee_number ;
10674: --
10675: EXCEPTION WHEN OTHERS THEN
10676: hr_utility.set_location('Exception: Others'||l_proc,555);
10677: raise ;
10678: END;
10679:
10680: -- For processing the update_person_api
10901: if l_contact_operation = 'EMER_CR_NEW_CONT' OR
10902: l_contact_operation = 'DPDNT_CR_NEW_CONT' then
10903: --
10904:
10905: hr_utility.set_location('EMER_CR_NEW_CONT or DPDNT_CR_NEW_CONT:'||l_proc, 35);
10906: -- Bug 3152505 : When in Emergency contact, we always will create two relationship.
10907: -- One as "Emergency" and other the selected Relationship.
10908: if ( /*l_dpdnt_bnf_flag = 'Y' and*/ l_dpdnt_bnf_contact_type <> 'EMRG'
10909: and l_contact_operation = 'EMER_CR_NEW_CONT' ) OR
11499: END IF;
11500: --
11501:
11502: EXCEPTION
11503: WHEN hr_utility.hr_error THEN
11504: hr_utility.set_location('Exception:WHEN hr_utility.hr_error THEN'||l_proc,565);
11505: -- -----------------------------------------------------------------
11506: -- An application error has been raised by the API so we must set
11507: -- the error.
11500: --
11501:
11502: EXCEPTION
11503: WHEN hr_utility.hr_error THEN
11504: hr_utility.set_location('Exception:WHEN hr_utility.hr_error THEN'||l_proc,565);
11505: -- -----------------------------------------------------------------
11506: -- An application error has been raised by the API so we must set
11507: -- the error.
11508: -- -----------------------------------------------------------------
11607: --- bug 5894873
11608:
11609: BEGIN
11610: --
11611: -- hr_utility.set_location('Entering hr_process_contact_ss.process_api', 100);
11612: hr_utility.set_location('Entering:'||l_proc, 5);
11613: --
11614: SAVEPOINT update_cont_relationship;
11615:
11608:
11609: BEGIN
11610: --
11611: -- hr_utility.set_location('Entering hr_process_contact_ss.process_api', 100);
11612: hr_utility.set_location('Entering:'||l_proc, 5);
11613: --
11614: SAVEPOINT update_cont_relationship;
11615:
11616: -- Change for Approvals for contact.
11621: ,p_name =>upper( 'P_PROCESS_SECTION_NAME'));
11622: --
11623: if l_process_section = 'DELETE_CONTACTS' then
11624: --
11625: hr_utility.set_location('DELETE_CONTACTS:'||l_proc, 10);
11626: process_end_api
11627: (p_validate => p_validate
11628: ,p_transaction_step_id => p_transaction_step_id
11629: -- SFL changes
11629: -- SFL changes
11630: ,p_effective_date => p_effective_date
11631: );
11632: --
11633: hr_utility.set_location('Leaving hr_process_contact_ss.process_api', 100);
11634: return;
11635: --
11636: -- end if;
11637: else -- l_process_section is not 'DELETE_CONTACTS'
12370: );
12371: --
12372: END IF;
12373:
12374: hr_utility.set_location('p_effective_date = ' || p_effective_date, 999);
12375: if (p_effective_date is not null) then
12376:
12377: l_effective_date:= to_date(p_effective_date,g_date_format);
12378:
12391: (p_transaction_step_id => p_transaction_step_id
12392: ,p_name => 'P_CONT_EFFECTIVE_DATE');
12393: --
12394: end if;
12395: hr_utility.set_location('l_effective_date = ' || l_effective_date, 999);
12396: --
12397: --
12398: -- Get the contact_relationship_id first. If it is null, that means
12399: -- this is error and raise the error. -- add the error name 99999.
12513: into p_rowid
12514: from per_contact_relationships
12515: where CONTACT_RELATIONSHIP_ID = l_CONTACT_RELATIONSHIP_ID_1;
12516:
12517: hr_utility.set_location('before call PER_CONTACT_RELATIONSHIPS_PKG.Update_Row:X_Contact_Relationship_Id:' || l_CONTACT_RELATIONSHIP_ID_1 , 5);
12518:
12519: PER_CONTACT_RELATIONSHIPS_PKG.Update_Row(
12520: X_Rowid => p_rowid
12521: , X_Contact_Relationship_Id => l_CONTACT_RELATIONSHIP_ID_1
14696: END IF;
14697:
14698: --
14699: IF p_validate THEN
14700: hr_utility.set_location('Rollback hr_process_contact_ss.process_api', 100);
14701: ROLLBACK TO update_cont_relationship;
14702: END IF;
14703: --
14704: -- bug# 2080032
14703: --
14704: -- bug# 2080032
14705: end if; -- l_process_section = 'DELETE_CONTACTS'
14706:
14707: hr_utility.set_location('Leaving hr_process_contact_ss.process_api', 100);
14708: --
14709: EXCEPTION
14710: WHEN hr_utility.hr_error THEN
14711: hr_utility.set_location('Exception: WHEN hr_utility.hr_error THEN'||l_proc,555);
14706:
14707: hr_utility.set_location('Leaving hr_process_contact_ss.process_api', 100);
14708: --
14709: EXCEPTION
14710: WHEN hr_utility.hr_error THEN
14711: hr_utility.set_location('Exception: WHEN hr_utility.hr_error THEN'||l_proc,555);
14712: -- -----------------------------------------------------------------
14713: -- An application error has been raised by the API so we must set
14714: -- the error.
14707: hr_utility.set_location('Leaving hr_process_contact_ss.process_api', 100);
14708: --
14709: EXCEPTION
14710: WHEN hr_utility.hr_error THEN
14711: hr_utility.set_location('Exception: WHEN hr_utility.hr_error THEN'||l_proc,555);
14712: -- -----------------------------------------------------------------
14713: -- An application error has been raised by the API so we must set
14714: -- the error.
14715: -- -----------------------------------------------------------------
14749: (select transaction_id from hr_api_transaction_steps where transaction_step_id =
14750: c_transaction_step_id) and api_name='HR_PROCESS_ADDRESS_SS.PROCESS_API';
14751:
14752: begin
14753: hr_utility.set_location('Entering:'||l_proc, 5);
14754: open csr_contact_api(p_transaction_step_id);
14755: fetch csr_contact_api into l_dummy;
14756: if csr_contact_api%found then
14757: if p_contact_relationship_id is not null then
14778: end if;
14779: end if;
14780: end if;
14781: close csr_contact_api;
14782: hr_utility.set_location('Leaving:'||l_proc, 20);
14783:
14784: end is_address_updated;
14785:
14786: /*
14899: BEGIN
14900: --
14901:
14902:
14903: hr_utility.set_location('Entering:'||l_proc, 5);
14904: --
14905: l_old_ovn := p_object_version_number;
14906: l_old_contact_relationship_id := p_contact_relationship_id;
14907: if(p_contact_operation = 'EMRG_OVRW_DEL' and p_other_rel_id is not null and p_other_rel_id <> -1 ) then
14910:
14911: --
14912: -- Call the actual API.
14913: --
14914: hr_utility.set_location('Calling hr_contact_rel_api.update_contact_relationship', 10);
14915: --
14916: if nvl(p_save_mode, 'NVL') <> 'SAVE_FOR_LATER' then
14917: --
14918: hr_contact_rel_api.update_contact_relationship(
14958: ,p_object_version_number => p_object_version_number
14959: );
14960:
14961: if p_end_other_rel = 'Y' then
14962: hr_utility.set_location('Fecthing l_other_rel_object_ver_no:'||l_proc, 15);
14963: open get_other_rel_ovn(p_other_rel_id);
14964: fetch get_other_rel_ovn into l_other_rel_object_ver_no;
14965: if get_other_rel_ovn%notfound then
14966: l_other_rel_object_ver_no := 1;
15019: -- Determine if a transaction step exists for this activity
15020: -- if a transaction step does exist then the transaction_step_id and
15021: -- object_version_number are set (i.e. not null).
15022: -- --------------------------------------------------------------------------
15023: hr_utility.set_location('Call :get_transaction_step_info'||l_proc, 20);
15024: hr_transaction_api.get_transaction_step_info
15025: (p_item_type => p_item_type
15026: ,p_item_key => p_item_key
15027: ,p_activity_id => p_activity_id
15027: ,p_activity_id => p_activity_id
15028: ,p_transaction_step_id => l_transaction_step_id
15029: ,p_object_version_number => l_trs_object_version_number);
15030: --
15031: hr_utility.set_location('l_transaction_step_id = ' || to_char(l_transaction_step_id), 25);
15032: --
15033: l_count := l_count + 1;
15034: l_transaction_table(l_count).param_name := 'P_EFFECTIVE_DATE';
15035: l_transaction_table(l_count).param_value := to_char(P_EFFECTIVE_DATE,
15121: l_transaction_table(l_count).param_name := 'P_START_LIFE_REASON_ID';
15122: l_transaction_table(l_count).param_value := P_START_LIFE_REASON_ID;
15123: l_transaction_table(l_count).param_data_type := 'NUMBER';
15124: --
15125: hr_utility.set_location('P_DATE_END = ' || to_char(P_DATE_END), 30);
15126: l_count := l_count + 1;
15127: l_transaction_table(l_count).param_name := 'P_DATE_END';
15128: l_transaction_table(l_count).param_value := to_char(P_DATE_END,
15129: hr_transaction_ss.g_date_format);
15323: l_transaction_table(l_count).param_name := 'P_OTHER_REL_OBJ_VER_NO';
15324: l_transaction_table(l_count).param_value := l_other_rel_object_ver_no;
15325: l_transaction_table(l_count).param_data_type := 'NUMBER';
15326:
15327: hr_utility.set_location('Before Calling :hr_transaction_ss.save_transaction_step', 30);
15328: hr_utility.set_location('Before Calling :hr_transaction_ss.save_transaction_step ' || to_char(l_transaction_table.count), 35);
15329: --
15330: hr_transaction_ss.save_transaction_step
15331: (p_item_type => p_item_type
15324: l_transaction_table(l_count).param_value := l_other_rel_object_ver_no;
15325: l_transaction_table(l_count).param_data_type := 'NUMBER';
15326:
15327: hr_utility.set_location('Before Calling :hr_transaction_ss.save_transaction_step', 30);
15328: hr_utility.set_location('Before Calling :hr_transaction_ss.save_transaction_step ' || to_char(l_transaction_table.count), 35);
15329: --
15330: hr_transaction_ss.save_transaction_step
15331: (p_item_type => p_item_type
15332: ,p_item_key => p_item_key
15338: -- Change for contacts approvals.
15339: ,p_api_name => g_package || '.PROCESS_API'
15340: ,p_transaction_data => l_transaction_table);
15341: --
15342: hr_utility.set_location('Leaving hr_contact_rel_api.update_contact_relationship', 40);
15343: --
15344: EXCEPTION
15345: WHEN hr_utility.hr_error THEN
15346: hr_utility.set_location('Exception:hr_utility.hr_error THEN'||l_proc,555);
15341: --
15342: hr_utility.set_location('Leaving hr_contact_rel_api.update_contact_relationship', 40);
15343: --
15344: EXCEPTION
15345: WHEN hr_utility.hr_error THEN
15346: hr_utility.set_location('Exception:hr_utility.hr_error THEN'||l_proc,555);
15347: -- -------------------------------------------
15348: -- an application error has been raised so we must
15349: -- redisplay the web form to display the error
15342: hr_utility.set_location('Leaving hr_contact_rel_api.update_contact_relationship', 40);
15343: --
15344: EXCEPTION
15345: WHEN hr_utility.hr_error THEN
15346: hr_utility.set_location('Exception:hr_utility.hr_error THEN'||l_proc,555);
15347: -- -------------------------------------------
15348: -- an application error has been raised so we must
15349: -- redisplay the web form to display the error
15350: -- --------------------------------------------
15354: -- 99999 What error messages I have to trap here.
15355: --
15356: IF l_message_number = 'APP-7165' OR
15357: l_message_number = 'APP-7155' THEN
15358: hr_utility.set_message(800, 'HR_UPDATE_NOT_ALLOWED');
15359: hr_utility.raise_error;
15360: ELSE
15361: hr_utility.raise_error;
15362: END IF;
15355: --
15356: IF l_message_number = 'APP-7165' OR
15357: l_message_number = 'APP-7155' THEN
15358: hr_utility.set_message(800, 'HR_UPDATE_NOT_ALLOWED');
15359: hr_utility.raise_error;
15360: ELSE
15361: hr_utility.raise_error;
15362: END IF;
15363: WHEN OTHERS THEN
15357: l_message_number = 'APP-7155' THEN
15358: hr_utility.set_message(800, 'HR_UPDATE_NOT_ALLOWED');
15359: hr_utility.raise_error;
15360: ELSE
15361: hr_utility.raise_error;
15362: END IF;
15363: WHEN OTHERS THEN
15364: hr_utility.set_location('Exception:Others'||l_proc,555);
15365: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
15360: ELSE
15361: hr_utility.raise_error;
15362: END IF;
15363: WHEN OTHERS THEN
15364: hr_utility.set_location('Exception:Others'||l_proc,555);
15365: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
15366: hr_utility.raise_error;
15367: -- RAISE; -- Raise error here relevant to the new tech stack.
15368: --
15362: END IF;
15363: WHEN OTHERS THEN
15364: hr_utility.set_location('Exception:Others'||l_proc,555);
15365: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
15366: hr_utility.raise_error;
15367: -- RAISE; -- Raise error here relevant to the new tech stack.
15368: --
15369: end end_contact_relationship;
15370: --
15396: l_proc varchar2(72) := g_package||'process_end_api';
15397:
15398: BEGIN
15399: --
15400: hr_utility.set_location('Entering:'||l_proc, 5);
15401:
15402: SAVEPOINT end_cont_relationship;
15403: --
15404: -- SFL changes
15403: --
15404: -- SFL changes
15405: --
15406: if (p_effective_date is not null) then
15407: hr_utility.set_location('Eff date is not Null:'||l_proc, 10);
15408: l_effective_date := to_date(p_effective_date,g_date_format);
15409: else
15410: --
15411: hr_utility.set_location('Eff date is Null:'||l_proc, 15);
15407: hr_utility.set_location('Eff date is not Null:'||l_proc, 10);
15408: l_effective_date := to_date(p_effective_date,g_date_format);
15409: else
15410: --
15411: hr_utility.set_location('Eff date is Null:'||l_proc, 15);
15412: l_effective_date:= to_date(
15413: hr_transaction_ss.get_wf_effective_date
15414: (p_transaction_step_id => p_transaction_step_id),g_date_format);
15415: --
15417: -- For normal commit the effective date should come from txn tbales.
15418: --
15419: if not p_validate then
15420: --
15421: hr_utility.set_location(' not p_validate:'||l_proc, 20);
15422: l_effective_date := hr_transaction_api.get_DATE_value
15423: (p_transaction_step_id => p_transaction_step_id
15424: ,p_name => 'P_EFFECTIVE_DATE');
15425: --
15441: ,p_name => 'P_OTHER_REL_OBJ_VER_NO') ;
15442: --
15443: IF l_contact_relationship_id IS NOT NULL
15444: THEN
15445: hr_utility.set_location('l_contact_relationship_id is not NULL:'||l_proc, 25);
15446: --
15447: hr_contact_rel_api.update_contact_relationship(
15448: p_validate => p_validate
15449: --
15654: (p_transaction_step_id => p_transaction_step_id
15655: ,p_name => 'P_END_OTHER_REL');
15656:
15657: if l_del_other_rel = 'Y' then
15658: hr_utility.set_location('if l_del_other_rel Y:'||l_proc, 30);
15659: hr_contact_rel_api.update_contact_relationship(
15660: p_validate => p_validate
15661: ,P_EFFECTIVE_DATE =>l_effective_date
15662: ,p_object_version_number => l_other_rel_ovn
15679: null;
15680: END IF;
15681: --
15682: IF p_validate = true THEN
15683: hr_utility.set_location('p_validate = true'||l_proc, 35);
15684: ROLLBACK TO end_cont_relationship;
15685: END IF;
15686: hr_utility.set_location('Exiting:'||l_proc, 40);
15687: --
15682: IF p_validate = true THEN
15683: hr_utility.set_location('p_validate = true'||l_proc, 35);
15684: ROLLBACK TO end_cont_relationship;
15685: END IF;
15686: hr_utility.set_location('Exiting:'||l_proc, 40);
15687: --
15688: EXCEPTION
15689: WHEN hr_utility.hr_error THEN
15690: hr_utility.set_location('Exception:hr_utility.hr_error'||l_proc,555);
15685: END IF;
15686: hr_utility.set_location('Exiting:'||l_proc, 40);
15687: --
15688: EXCEPTION
15689: WHEN hr_utility.hr_error THEN
15690: hr_utility.set_location('Exception:hr_utility.hr_error'||l_proc,555);
15691: -- -----------------------------------------------------------------
15692: -- An application error has been raised by the API so we must set
15693: -- the error.
15686: hr_utility.set_location('Exiting:'||l_proc, 40);
15687: --
15688: EXCEPTION
15689: WHEN hr_utility.hr_error THEN
15690: hr_utility.set_location('Exception:hr_utility.hr_error'||l_proc,555);
15691: -- -----------------------------------------------------------------
15692: -- An application error has been raised by the API so we must set
15693: -- the error.
15694: -- -----------------------------------------------------------------
15717: l_contact_set wf_activity_attr_values.number_value%type;
15718: l_proc varchar2(72) := g_package||'is_contact_added';
15719: begin
15720: --
15721: hr_utility.set_location('Entering:'||l_proc, 5);
15722: l_contact_set := wf_engine.GetItemAttrNumber(itemtype => itemtype,
15723: itemkey => itemkey,
15724: aname => 'HR_CONTACT_SET');
15725:
15723: itemkey => itemkey,
15724: aname => 'HR_CONTACT_SET');
15725:
15726: if l_contact_set > 0 then
15727: hr_utility.set_location('l_contact_set > 0:'||l_proc, 10);
15728: -- Goto Contacts page
15729: resultout := 'COMPLETE:'|| 'Y';
15730: else
15731: -- Goto Decision page
15728: -- Goto Contacts page
15729: resultout := 'COMPLETE:'|| 'Y';
15730: else
15731: -- Goto Decision page
15732: hr_utility.set_location('l_contact_set <= 0:'||l_proc, 15);
15733: resultout := 'COMPLETE:'|| 'N';
15734: end if;
15735: hr_utility.set_location('Exiting:'||l_proc, 20);
15736: EXCEPTION
15731: -- Goto Decision page
15732: hr_utility.set_location('l_contact_set <= 0:'||l_proc, 15);
15733: resultout := 'COMPLETE:'|| 'N';
15734: end if;
15735: hr_utility.set_location('Exiting:'||l_proc, 20);
15736: EXCEPTION
15737: WHEN OTHERS THEN
15738: hr_utility.set_location('Exception:OTHERS'||l_proc,555);
15739: WF_CORE.CONTEXT(g_package
15734: end if;
15735: hr_utility.set_location('Exiting:'||l_proc, 20);
15736: EXCEPTION
15737: WHEN OTHERS THEN
15738: hr_utility.set_location('Exception:OTHERS'||l_proc,555);
15739: WF_CORE.CONTEXT(g_package
15740: ,'is_contact_added'
15741: ,itemtype
15742: ,itemkey
15764: l_proc varchar2(72) := g_package||'delete_transaction_steps';
15765:
15766: BEGIN
15767:
15768: hr_utility.set_location('Entering:'||l_proc, 5);
15769: hr_transaction_api.get_transaction_step_info (
15770: p_Item_Type => p_item_type,
15771: p_Item_Key => p_item_key,
15772: p_activity_id => to_number(p_actid),
15789: itemkey => p_item_key,
15790: aname => 'HR_CONTACT_SET');
15791:
15792: exception when others then
15793: hr_utility.set_location('Exception:others'||l_proc,555);
15794: l_wf_contact_set := 1000;
15795: -- can't let anyone have so many dependants anyway!
15796:
15797: END;
15795: -- can't let anyone have so many dependants anyway!
15796:
15797: END;
15798:
15799: hr_utility.set_location('before starting For Loop:'||l_proc, 10);
15800: FOR i IN 0..(l_trans_step_rows - 1) LOOP
15801:
15802: begin
15803: l_contact_set := hr_transaction_api.get_varchar2_value
15804: (p_transaction_step_id => l_trans_step_ids(i)
15805: ,p_name => 'P_CONTACT_SET');
15806: exception
15807: when others then
15808: hr_utility.set_location('Exception:Others'||l_proc,555);
15809: l_contact_set := 1;
15810: end;
15811:
15812: if l_contact_set is null then
15821: end if;
15822:
15823: END LOOP;
15824:
15825: --hr_utility.set_message(801, 'HR_51750_WEB_TRANSAC_STARTED');
15826: --hr_utility.raise_error;
15827: hr_utility.set_location('Exiting:'||l_proc, 15);
15828: EXCEPTION
15829: WHEN OTHERS THEN
15822:
15823: END LOOP;
15824:
15825: --hr_utility.set_message(801, 'HR_51750_WEB_TRANSAC_STARTED');
15826: --hr_utility.raise_error;
15827: hr_utility.set_location('Exiting:'||l_proc, 15);
15828: EXCEPTION
15829: WHEN OTHERS THEN
15830: hr_utility.set_location('Exception:Others'||l_proc,555);
15823: END LOOP;
15824:
15825: --hr_utility.set_message(801, 'HR_51750_WEB_TRANSAC_STARTED');
15826: --hr_utility.raise_error;
15827: hr_utility.set_location('Exiting:'||l_proc, 15);
15828: EXCEPTION
15829: WHEN OTHERS THEN
15830: hr_utility.set_location('Exception:Others'||l_proc,555);
15831: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
15826: --hr_utility.raise_error;
15827: hr_utility.set_location('Exiting:'||l_proc, 15);
15828: EXCEPTION
15829: WHEN OTHERS THEN
15830: hr_utility.set_location('Exception:Others'||l_proc,555);
15831: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
15832: hr_utility.raise_error;
15833: --raise;
15834: END delete_transaction_steps;
15828: EXCEPTION
15829: WHEN OTHERS THEN
15830: hr_utility.set_location('Exception:Others'||l_proc,555);
15831: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
15832: hr_utility.raise_error;
15833: --raise;
15834: END delete_transaction_steps;
15835: --
15836: -- my delete
15855: l_proc varchar2(72) := g_package||'delete_transaction_steps';
15856:
15857: BEGIN
15858:
15859: hr_utility.set_location('Entering:'||l_proc, 5);
15860: hr_transaction_api.get_transaction_step_info (
15861: p_Item_Type => p_item_type,
15862: p_Item_Key => p_item_key,
15863: p_activity_id => to_number(p_actid),
15880: itemkey => p_item_key,
15881: aname => 'HR_CONTACT_SET');
15882:
15883: exception when others then
15884: hr_utility.set_location('Exception:Others'||l_proc,555);
15885: l_wf_contact_set := 1000;
15886: -- can't let anyone have so many dependants anyway!
15887:
15888: END;
15886: -- can't let anyone have so many dependants anyway!
15887:
15888: END;
15889:
15890: hr_utility.set_location('Before Entering For Loop:'||l_proc,10 );
15891: FOR i IN 0..(l_trans_step_rows - 1) LOOP
15892:
15893: begin
15894: l_contact_set := hr_transaction_api.get_varchar2_value
15895: (p_transaction_step_id => l_trans_step_ids(i)
15896: ,p_name => 'P_CONTACT_SET');
15897: exception
15898: when others then
15899: hr_utility.set_location('Exception:Others'||l_proc,555);
15900: l_contact_set := 1;
15901: end;
15902:
15903: if l_contact_set is null then
15933: end if;
15934: end if;
15935:
15936: END LOOP;
15937: hr_utility.set_location('End of For Loop:'||l_proc,15 );
15938:
15939: --hr_utility.set_message(801, 'HR_51750_WEB_TRANSAC_STARTED');
15940: --hr_utility.raise_error;
15941: hr_utility.set_location('Exiting:'||l_proc, 20);
15935:
15936: END LOOP;
15937: hr_utility.set_location('End of For Loop:'||l_proc,15 );
15938:
15939: --hr_utility.set_message(801, 'HR_51750_WEB_TRANSAC_STARTED');
15940: --hr_utility.raise_error;
15941: hr_utility.set_location('Exiting:'||l_proc, 20);
15942:
15943: EXCEPTION
15936: END LOOP;
15937: hr_utility.set_location('End of For Loop:'||l_proc,15 );
15938:
15939: --hr_utility.set_message(801, 'HR_51750_WEB_TRANSAC_STARTED');
15940: --hr_utility.raise_error;
15941: hr_utility.set_location('Exiting:'||l_proc, 20);
15942:
15943: EXCEPTION
15944: WHEN OTHERS THEN
15937: hr_utility.set_location('End of For Loop:'||l_proc,15 );
15938:
15939: --hr_utility.set_message(801, 'HR_51750_WEB_TRANSAC_STARTED');
15940: --hr_utility.raise_error;
15941: hr_utility.set_location('Exiting:'||l_proc, 20);
15942:
15943: EXCEPTION
15944: WHEN OTHERS THEN
15945: hr_utility.set_location('Exception:Others'||l_proc,555);
15941: hr_utility.set_location('Exiting:'||l_proc, 20);
15942:
15943: EXCEPTION
15944: WHEN OTHERS THEN
15945: hr_utility.set_location('Exception:Others'||l_proc,555);
15946: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
15947: hr_utility.raise_error;
15948: --raise;
15949: END delete_transaction_steps;
15943: EXCEPTION
15944: WHEN OTHERS THEN
15945: hr_utility.set_location('Exception:Others'||l_proc,555);
15946: fnd_message.set_name('PER', SQLERRM ||' '||to_char(SQLCODE));
15947: hr_utility.raise_error;
15948: --raise;
15949: END delete_transaction_steps;
15950: --
15951:
15969: l_new_object_number number;
15970: l_proc varchar2(72) := g_package||'update_object_version';
15971:
15972: begin
15973: hr_utility.set_location('Entering:'||l_proc, 5);
15974: /*
15975: l_assignment_id :=
15976: hr_transaction_api.get_number_value
15977: (p_transaction_step_id => p_transaction_step_id
15993: ,p_name => 'P_OBJECT_VERSION_NUMBER'
15994: ,p_value => l_new_object_number);
15995: end if;
15996: */
15997: hr_utility.set_location('Exiting:'||l_proc, 15);
15998: null;
15999:
16000: end update_object_version;
16001: --
16212: This employee already has a primary contact. Cause: You are trying to enter more than one
16213: primary contact for an employee. Action: Uncheck the Primary Contact check box and save your contact
16214: information.*/
16215:
16216: hr_utility.set_location('Entering:'||l_proc, 5);
16217: hr_contact_rel_api.create_contact(
16218: p_validate => p_validate -- l_validate_mode
16219: ,p_start_date => p_start_date --p_start_date
16220: ,p_business_group_id => p_business_group_id
16414: ,p_orig_hire_warning => p_orig_hire_warning
16415: );
16416: --
16417: if (p_contact_operation in ('EMER_CR_NEW_CONT','EMER_CR_NEW_REL')) OR (p_emrg_cont_flag = 'Y') then
16418: hr_utility.set_location('EMER_CR_NEW_CONT or EMER_CR_NEW_REL:'||l_proc, 10);
16419: hr_contact_rel_api.create_contact(
16420: p_validate => p_validate -- l_validate_mode
16421: ,p_start_date => p_start_date --p_start_date
16422: ,p_business_group_id => p_business_group_id
16615: ,p_name_combination_warning => p_name_combination_warning
16616: ,p_orig_hire_warning => p_orig_hire_warning
16617: );
16618: end if;
16619: hr_utility.set_location('Exiting:'||l_proc, 20);
16620: end call_contact_api;
16621: --
16622:
16623: procedure get_emrg_rel_id (
16687: l_proc varchar2(72) := g_package||'get_emrg_rel_id';
16688:
16689: begin
16690:
16691: hr_utility.set_location('Entering:'||l_proc, 5);
16692: hr_utility.set_location('Before Fetching no_of_non_emrg_rel:'||l_proc, 10);
16693: open no_of_non_emrg_rel(p_contact_relationship_id,p_contact_person_id);
16694: fetch no_of_non_emrg_rel
16695: into l_no_of_non_emrg_rel;
16688:
16689: begin
16690:
16691: hr_utility.set_location('Entering:'||l_proc, 5);
16692: hr_utility.set_location('Before Fetching no_of_non_emrg_rel:'||l_proc, 10);
16693: open no_of_non_emrg_rel(p_contact_relationship_id,p_contact_person_id);
16694: fetch no_of_non_emrg_rel
16695: into l_no_of_non_emrg_rel;
16696: IF no_of_non_emrg_rel%NOTFOUND THEN
16720: p_emrg_rel_id := l_emrg_rel_id;
16721: p_no_of_non_emrg_rel := l_no_of_non_emrg_rel;
16722: p_other_rel_type := l_other_rel_type;
16723: p_emrg_rel_type := l_emrg_rel_type;
16724: hr_utility.set_location('Exiting:'||l_proc, 25);
16725: end get_emrg_rel_id;
16726:
16727: --
16728: procedure validate_rel_start_date (
16767: l_main_per_date_of_birth date;
16768: l_proc varchar2(72) := g_package||'validate_rel_start_date';
16769: begin
16770:
16771: hr_utility.set_location('Entering:'||l_proc, 5);
16772: if p_person_id is not null then
16773: hr_utility.set_location('if p_person_id is not null then:'||l_proc, 10);
16774: select min(p.date_of_birth) , min(p.effective_start_date)
16775: into l_main_per_date_of_birth , l_main_per_eff_start_date
16769: begin
16770:
16771: hr_utility.set_location('Entering:'||l_proc, 5);
16772: if p_person_id is not null then
16773: hr_utility.set_location('if p_person_id is not null then:'||l_proc, 10);
16774: select min(p.date_of_birth) , min(p.effective_start_date)
16775: into l_main_per_date_of_birth , l_main_per_eff_start_date
16776: from per_people_f p
16777: where p.person_id = p_person_id;
16776: from per_people_f p
16777: where p.person_id = p_person_id;
16778: else
16779: begin
16780: hr_utility.set_location('if p_person_id is not null then:'||l_proc, 15);
16781: select nvl(max(hats1.transaction_step_id),0)
16782: into l_validate_g_per_step_id
16783: from hr_api_transaction_steps hats1
16784: where hats1.item_type = 'HRSSA'
16794: ,p_name => 'P_EFFECTIVE_DATE');
16795:
16796: exception
16797: when others then
16798: hr_utility.set_location('Exception:Others'||l_proc,555);
16799: null;
16800: end;
16801:
16802: end if; --l_person_id is/not null
16805: -- fix for bug # 2221040
16806: if nvl(p_save_mode, 'NVL') <> 'SAVE_FOR_LATER'
16807: then
16808: if l_main_per_date_of_birth is not null and l_main_per_date_of_birth > p_date_start then
16809: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
16810: hr_utility.raise_error;
16811: elsif p_date_of_birth is not null and p_date_of_birth > p_date_start then
16812: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
16813: hr_utility.raise_error;
16806: if nvl(p_save_mode, 'NVL') <> 'SAVE_FOR_LATER'
16807: then
16808: if l_main_per_date_of_birth is not null and l_main_per_date_of_birth > p_date_start then
16809: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
16810: hr_utility.raise_error;
16811: elsif p_date_of_birth is not null and p_date_of_birth > p_date_start then
16812: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
16813: hr_utility.raise_error;
16814: end if;
16808: if l_main_per_date_of_birth is not null and l_main_per_date_of_birth > p_date_start then
16809: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
16810: hr_utility.raise_error;
16811: elsif p_date_of_birth is not null and p_date_of_birth > p_date_start then
16812: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
16813: hr_utility.raise_error;
16814: end if;
16815: end if;
16816: -- l_main_per_eff_start_date will be used in Create_Contact_tt , so we need to return it.
16809: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
16810: hr_utility.raise_error;
16811: elsif p_date_of_birth is not null and p_date_of_birth > p_date_start then
16812: hr_utility.set_message(800, 'PER_50386_CON_SDT_LES_EMP_BDT');
16813: hr_utility.raise_error;
16814: end if;
16815: end if;
16816: -- l_main_per_eff_start_date will be used in Create_Contact_tt , so we need to return it.
16817: p_date_start := l_main_per_eff_start_date;
16814: end if;
16815: end if;
16816: -- l_main_per_eff_start_date will be used in Create_Contact_tt , so we need to return it.
16817: p_date_start := l_main_per_eff_start_date;
16818: hr_utility.set_location('Exiting:'||l_proc, 15);
16819: end validate_rel_start_date;
16820:
16821: --
16822:
16858:
16859: begin
16860:
16861:
16862: hr_utility.set_location('Entering:'||l_proc, 5);
16863: get_emrg_rel_id ( P_contact_relationship_id => p_contact_relationship_id
16864: ,p_contact_person_id => p_contact_person_id
16865: ,p_emrg_rel_id => l_emrg_rel_id
16866: ,p_no_of_non_emrg_rel => l_no_of_non_emrg_rel
16867: ,p_other_rel_type => l_other_rel_type
16868: ,p_emrg_rel_type => l_emrg_rel_type);
16869: l_emerg_cont_rel_id := to_number(l_emrg_rel_id);
16870:
16871: hr_utility.set_location('Before fetching gc_get_emerg_contact_data:'||l_proc,10 );
16872: OPEN gc_get_emerg_contact_data(p_contact_relationship_id => l_emerg_cont_rel_id);
16873:
16874: FETCH gc_get_emerg_contact_data into l_emerg_contact_data;
16875: IF gc_get_emerg_contact_data%NOTFOUND THEN
16891: if p_contact_relationship_id = l_emerg_cont_rel_id then
16892: p_object_version_number := l_emerg_contact_data.ovn;
16893: end if;
16894:
16895: hr_utility.set_location('Exiting:'||l_proc, 15);
16896: end validate_primary_cont_flag;
16897:
16898: --
16899: