DBA Data[Home] [Help]

APPS.PER_CONTACT_RELATIONSHIPS_PKG dependencies on HR_UTILITY

Line 292: hr_utility.set_message(

288: -- == given date_start exists.
289: IF cel_earlier_child_exists%FOUND THEN
290: CLOSE cel_earlier_child_exists;
291: --
292: hr_utility.set_message(
293: applid => 800,
294: l_message_name => 'PER_6549_INVALD_REL_START_DATE');
295: --
296: hr_utility.raise_error;

Line 296: hr_utility.raise_error;

292: hr_utility.set_message(
293: applid => 800,
294: l_message_name => 'PER_6549_INVALD_REL_START_DATE');
295: --
296: hr_utility.raise_error;
297: END IF;
298: -- ==
299:
300: CLOSE cel_earlier_child_exists;

Line 314: hr_utility.set_message(

310: -- == given date_end exists.
311: IF cel_later_child_exists%FOUND THEN
312: CLOSE cel_later_child_exists;
313: --
314: hr_utility.set_message(
315: applid => 800,
316: l_message_name => 'PER_50044_INVALID_REL_END_DATE');
317: --
318: hr_utility.raise_error;

Line 318: hr_utility.raise_error;

314: hr_utility.set_message(
315: applid => 800,
316: l_message_name => 'PER_50044_INVALID_REL_END_DATE');
317: --
318: hr_utility.raise_error;
319: END IF;
320: -- ==
321:
322: CLOSE cel_later_child_exists;

Line 591: hr_utility.set_message(800,'PER_6996_REL_CURR_EXISTS');

587: ,p_contact_relationship_id => X_contact_relationship_id
588: ,p_date_start => X_date_start
589: ,p_date_end => X_date_end
590: ) THEN
591: hr_utility.set_message(800,'PER_6996_REL_CURR_EXISTS');
592: hr_utility.raise_error;
593: END IF;
594: --
595: INSERT INTO PER_CONTACT_RELATIONSHIPS(

Line 592: hr_utility.raise_error;

588: ,p_date_start => X_date_start
589: ,p_date_end => X_date_end
590: ) THEN
591: hr_utility.set_message(800,'PER_6996_REL_CURR_EXISTS');
592: hr_utility.raise_error;
593: END IF;
594: --
595: INSERT INTO PER_CONTACT_RELATIONSHIPS(
596: contact_relationship_id,

Line 766: hr_utility.set_location('Insert_contact',1);

762: p_effective_date => NVL(x_date_start,SYSDATE));
763: --
764: -- End of Fix for 1408379
765: --
766: hr_utility.set_location('Insert_contact',1);
767: OPEN C;
768: FETCH C INTO X_Rowid;
769: IF (C%NOTFOUND) THEN
770: CLOSE C;

Line 1147: hr_utility.set_location('pecon01t.insert_row',70);

1143: -- the security list maintenance must be done for all
1144: -- inserts (note CWK are done in their own API anyway, not here)
1145: --
1146:
1147: hr_utility.set_location('pecon01t.insert_row',70);
1148: --
1149: -- Bug 4295302
1150: --
1151: l_ppf_ler_new_rec.business_group_id := x_business_group_id;

Line 1220: hr_utility.set_location('pecon01t.insert_row',75);

1216: hr_security_internal.populate_new_person
1217: (p_business_group_id=>x_business_group_id
1218: ,p_person_id =>l_person_id);
1219: --
1220: hr_utility.set_location('pecon01t.insert_row',75);
1221: --
1222: --
1223: /* BEGIN OF PARTY_ID WORK */
1224: /* This is being commented out as part of TCA party unmerge. This part of the code

Line 1236: hr_utility.set_location('UPDATING party id',10);

1232: CLOSE c_person;
1233: --
1234: per_hrtca_merge.create_tca_person(p_rec => l_person);
1235: --
1236: hr_utility.set_location('UPDATING party id',10);
1237: --
1238: -- Now assign the resulting party id back to the record.
1239: --
1240: IF x_party_id IS NULL THEN

Line 1248: hr_utility.set_location('Insert_person',2);

1244: END IF;
1245: --
1246: */
1247: /* END OF PARTY ID WORK */
1248: hr_utility.set_location('Insert_person',2);
1249: OPEN C;
1250: FETCH C INTO l_Rowid;
1251: IF (C%NOTFOUND) THEN
1252: CLOSE C;

Line 1269: hr_utility.set_message(801, 'HR_7513_PER_TYPE_INVALID');

1265: AND active_flag = 'Y'
1266: AND system_person_type = 'OTHER';
1267: EXCEPTION
1268: WHEN NO_DATA_FOUND THEN
1269: hr_utility.set_message(801, 'HR_7513_PER_TYPE_INVALID');
1270: hr_utility.raise_error;
1271: END;
1272: l_person_type_id := X_Person_Type_Id;
1273: ELSE

Line 1270: hr_utility.raise_error;

1266: AND system_person_type = 'OTHER';
1267: EXCEPTION
1268: WHEN NO_DATA_FOUND THEN
1269: hr_utility.set_message(801, 'HR_7513_PER_TYPE_INVALID');
1270: hr_utility.raise_error;
1271: END;
1272: l_person_type_id := X_Person_Type_Id;
1273: ELSE
1274: l_person_type_id := hr_person_type_usage_info.get_default_person_type_id

Line 1302: hr_utility.set_message(801,'PER_7125_EMP_CON_PRIMARY');

1298: ,p_person_id => X_Person_Id
1299: ,p_date_start => X_date_start
1300: ,p_date_end => X_date_end
1301: ) THEN
1302: hr_utility.set_message(801,'PER_7125_EMP_CON_PRIMARY');
1303: hr_utility.raise_error;
1304: END IF;
1305: --
1306: -- 2073795: added validation for X_Contact_Person_Id. If the form has previously failed a multi

Line 1303: hr_utility.raise_error;

1299: ,p_date_start => X_date_start
1300: ,p_date_end => X_date_end
1301: ) THEN
1302: hr_utility.set_message(801,'PER_7125_EMP_CON_PRIMARY');
1303: hr_utility.raise_error;
1304: END IF;
1305: --
1306: -- 2073795: added validation for X_Contact_Person_Id. If the form has previously failed a multi
1307: -- record insert, it still passes id values and person is not created. This is a problem.

Line 1349: hr_utility.set_location('X_cont_type : '||X_Contact_Type,10);

1345: --
1346: l_contact_type := X_Contact_Type;
1347: l_person_id := X_Person_Id;
1348: l_contact_person_id := X_Contact_Person_Id;
1349: hr_utility.set_location('X_cont_type : '||X_Contact_Type,10);
1350: hr_utility.set_location('X_Mirr_type : '||X_Mirror_Type,20);
1351: hr_utility.set_location('X_Cont_per_id : '||TO_CHAR(X_Contact_Person_Id),30);
1352:
1353: --

Line 1350: hr_utility.set_location('X_Mirr_type : '||X_Mirror_Type,20);

1346: l_contact_type := X_Contact_Type;
1347: l_person_id := X_Person_Id;
1348: l_contact_person_id := X_Contact_Person_Id;
1349: hr_utility.set_location('X_cont_type : '||X_Contact_Type,10);
1350: hr_utility.set_location('X_Mirr_type : '||X_Mirror_Type,20);
1351: hr_utility.set_location('X_Cont_per_id : '||TO_CHAR(X_Contact_Person_Id),30);
1352:
1353: --
1354: -- Insert the Mirror Relationship

Line 1351: hr_utility.set_location('X_Cont_per_id : '||TO_CHAR(X_Contact_Person_Id),30);

1347: l_person_id := X_Person_Id;
1348: l_contact_person_id := X_Contact_Person_Id;
1349: hr_utility.set_location('X_cont_type : '||X_Contact_Type,10);
1350: hr_utility.set_location('X_Mirr_type : '||X_Mirror_Type,20);
1351: hr_utility.set_location('X_Cont_per_id : '||TO_CHAR(X_Contact_Person_Id),30);
1352:
1353: --
1354: -- Insert the Mirror Relationship
1355: --

Line 1920: hr_utility.set_message(801,'PER_7125_EMP_CON_PRIMARY');

1916: check_primary_contact(p_rowid => X_Rowid
1917: ,p_person_id => X_Person_Id
1918: ,p_date_start => X_date_start
1919: ,p_date_end => X_date_end) THEN
1920: hr_utility.set_message(801,'PER_7125_EMP_CON_PRIMARY');
1921: hr_utility.raise_error;
1922: END IF;
1923: --
1924: -- Call to sequence number validation

Line 1921: hr_utility.raise_error;

1917: ,p_person_id => X_Person_Id
1918: ,p_date_start => X_date_start
1919: ,p_date_end => X_date_end) THEN
1920: hr_utility.set_message(801,'PER_7125_EMP_CON_PRIMARY');
1921: hr_utility.raise_error;
1922: END IF;
1923: --
1924: -- Call to sequence number validation
1925: --

Line 1942: hr_utility.set_message(800,'PER_6996_REL_CURR_EXISTS');

1938: ,p_contact_relationship_id => X_contact_relationship_id
1939: ,p_date_start => X_date_start
1940: ,p_date_end => X_date_end
1941: ) THEN
1942: hr_utility.set_message(800,'PER_6996_REL_CURR_EXISTS');
1943: hr_utility.raise_error;
1944: END IF;
1945: --
1946: /*

Line 1943: hr_utility.raise_error;

1939: ,p_date_start => X_date_start
1940: ,p_date_end => X_date_end
1941: ) THEN
1942: hr_utility.set_message(800,'PER_6996_REL_CURR_EXISTS');
1943: hr_utility.raise_error;
1944: END IF;
1945: --
1946: /*
1947: -- Bug.3207660

Line 2366: hr_utility.set_message(801,'HR_7993_CONTACT_BENEFIT_EXISTS');

2362: FETCH Benificiary INTO l_beneficiary_exists;
2363: CLOSE Benificiary;
2364: --
2365: IF l_beneficiary_exists = 'Y' THEN
2366: hr_utility.set_message(801,'HR_7993_CONTACT_BENEFIT_EXISTS');
2367: hr_utility.raise_error;
2368: END IF;
2369: --Changes for Bug no 5415267 ends here
2370:

Line 2367: hr_utility.raise_error;

2363: CLOSE Benificiary;
2364: --
2365: IF l_beneficiary_exists = 'Y' THEN
2366: hr_utility.set_message(801,'HR_7993_CONTACT_BENEFIT_EXISTS');
2367: hr_utility.raise_error;
2368: END IF;
2369: --Changes for Bug no 5415267 ends here
2370:
2371: -- if the person is a Contact Only then

Line 2385: hr_utility.set_message(801,'HR_51600_EMP_SIT_EXIST');

2381: FETCH Personal_Analyses INTO l_pa_exists;
2382: CLOSE Personal_Analyses;
2383: --
2384: IF l_pa_exists = 'Y' THEN
2385: hr_utility.set_message(801,'HR_51600_EMP_SIT_EXIST');
2386: hr_utility.raise_error;
2387: END IF;
2388: --
2389: OPEN Address;

Line 2386: hr_utility.raise_error;

2382: CLOSE Personal_Analyses;
2383: --
2384: IF l_pa_exists = 'Y' THEN
2385: hr_utility.set_message(801,'HR_51600_EMP_SIT_EXIST');
2386: hr_utility.raise_error;
2387: END IF;
2388: --
2389: OPEN Address;
2390: FETCH Address INTO l_address_exists;

Line 2394: hr_utility.set_message(801,'PER_7101_EMP_ENTER_DEL_ADDR');

2390: FETCH Address INTO l_address_exists;
2391: CLOSE Address;
2392: --
2393: IF l_address_exists = 'Y' THEN
2394: hr_utility.set_message(801,'PER_7101_EMP_ENTER_DEL_ADDR');
2395: hr_utility.raise_error;
2396: END IF;
2397: --
2398:

Line 2395: hr_utility.raise_error;

2391: CLOSE Address;
2392: --
2393: IF l_address_exists = 'Y' THEN
2394: hr_utility.set_message(801,'PER_7101_EMP_ENTER_DEL_ADDR');
2395: hr_utility.raise_error;
2396: END IF;
2397: --
2398:
2399: OPEN COBRA;

Line 2404: hr_utility.set_message(801,'HR_6975_CONTACT_COBRA_EXISTS');

2400: FETCH COBRA INTO l_cobra_exists;
2401: CLOSE COBRA;
2402: --
2403: IF l_cobra_exists = 'Y' THEN
2404: hr_utility.set_message(801,'HR_6975_CONTACT_COBRA_EXISTS');
2405: hr_utility.raise_error;
2406: END IF;
2407: --
2408: -- Check to see if Personal Payment Method exists

Line 2405: hr_utility.raise_error;

2401: CLOSE COBRA;
2402: --
2403: IF l_cobra_exists = 'Y' THEN
2404: hr_utility.set_message(801,'HR_6975_CONTACT_COBRA_EXISTS');
2405: hr_utility.raise_error;
2406: END IF;
2407: --
2408: -- Check to see if Personal Payment Method exists
2409: -- where contact is the Payee.

Line 2462: hr_utility.set_message('800','PER_52509_USE_SEQ_NO');

2458: OPEN csr_seq;
2459: FETCH csr_seq INTO l_sequence_number;
2460: IF csr_seq%FOUND THEN
2461: CLOSE csr_seq;
2462: hr_utility.set_message('800','PER_52509_USE_SEQ_NO');
2463: hr_utility.raise_error;
2464: ELSE
2465: OPEN csr_seq_others;
2466: FETCH csr_seq_others INTO l_sequence_other;

Line 2463: hr_utility.raise_error;

2459: FETCH csr_seq INTO l_sequence_number;
2460: IF csr_seq%FOUND THEN
2461: CLOSE csr_seq;
2462: hr_utility.set_message('800','PER_52509_USE_SEQ_NO');
2463: hr_utility.raise_error;
2464: ELSE
2465: OPEN csr_seq_others;
2466: FETCH csr_seq_others INTO l_sequence_other;
2467: IF csr_seq_others%FOUND THEN

Line 2469: hr_utility.set_message('800','PER_52510_DIFF_SEQ_NO');

2465: OPEN csr_seq_others;
2466: FETCH csr_seq_others INTO l_sequence_other;
2467: IF csr_seq_others%FOUND THEN
2468: CLOSE csr_seq_others;
2469: hr_utility.set_message('800','PER_52510_DIFF_SEQ_NO');
2470: hr_utility.raise_error;
2471: END IF;
2472: END IF;
2473: ELSIF p_sequence_number <> l_old_seq_number THEN

Line 2470: hr_utility.raise_error;

2466: FETCH csr_seq_others INTO l_sequence_other;
2467: IF csr_seq_others%FOUND THEN
2468: CLOSE csr_seq_others;
2469: hr_utility.set_message('800','PER_52510_DIFF_SEQ_NO');
2470: hr_utility.raise_error;
2471: END IF;
2472: END IF;
2473: ELSIF p_sequence_number <> l_old_seq_number THEN
2474: hr_utility.set_message('800','PER_52511_SEQ_NO_UPD');

Line 2474: hr_utility.set_message('800','PER_52511_SEQ_NO_UPD');

2470: hr_utility.raise_error;
2471: END IF;
2472: END IF;
2473: ELSIF p_sequence_number <> l_old_seq_number THEN
2474: hr_utility.set_message('800','PER_52511_SEQ_NO_UPD');
2475: hr_utility.raise_error;
2476: END IF;
2477: ELSIF l_old_seq_number IS NOT NULL THEN
2478: hr_utility.set_message('800','PER_52511_SEQ_NO_UPD');

Line 2475: hr_utility.raise_error;

2471: END IF;
2472: END IF;
2473: ELSIF p_sequence_number <> l_old_seq_number THEN
2474: hr_utility.set_message('800','PER_52511_SEQ_NO_UPD');
2475: hr_utility.raise_error;
2476: END IF;
2477: ELSIF l_old_seq_number IS NOT NULL THEN
2478: hr_utility.set_message('800','PER_52511_SEQ_NO_UPD');
2479: hr_utility.raise_error;

Line 2478: hr_utility.set_message('800','PER_52511_SEQ_NO_UPD');

2474: hr_utility.set_message('800','PER_52511_SEQ_NO_UPD');
2475: hr_utility.raise_error;
2476: END IF;
2477: ELSIF l_old_seq_number IS NOT NULL THEN
2478: hr_utility.set_message('800','PER_52511_SEQ_NO_UPD');
2479: hr_utility.raise_error;
2480: END IF;
2481: END chk_sequence_number;
2482: --

Line 2479: hr_utility.raise_error;

2475: hr_utility.raise_error;
2476: END IF;
2477: ELSIF l_old_seq_number IS NOT NULL THEN
2478: hr_utility.set_message('800','PER_52511_SEQ_NO_UPD');
2479: hr_utility.raise_error;
2480: END IF;
2481: END chk_sequence_number;
2482: --
2483: -- Update Contact Person details

Line 2903: hr_utility.set_location('update_contact.update_person',10);

2899: , l_previous_last_name, l_email_address, l_employee_number
2900: , l_applicant_number, l_npw_number;
2901: EXIT WHEN Lock_Person_Row%NOTFOUND;
2902:
2903: hr_utility.set_location('update_contact.update_person',10);
2904:
2905: hr_person_name.derive_person_names -- #3889584
2906: (p_format_name => NULL, -- generate all names
2907: p_business_group_id => x_business_group_id,

Line 3072: hr_utility.set_location('update_contact.update_person',20);

3068: local_name = l_local_name,
3069: order_name = l_order_name
3070:
3071: WHERE ROWID = CHARTOROWID(l_rowid);
3072: hr_utility.set_location('update_contact.update_person',20);
3073:
3074:
3075: IF (SQL%NOTFOUND) THEN
3076: RAISE NO_DATA_FOUND;

Line 3080: hr_utility.set_location('update_contact.update_person',30);

3076: RAISE NO_DATA_FOUND;
3077: END IF;
3078: --
3079: -- PTU changes
3080: hr_utility.set_location('update_contact.update_person',30);
3081:
3082: --
3083: hr_per_type_usage_internal.maintain_person_type_usage
3084: (p_effective_date => X_Session_Date

Line 3090: hr_utility.set_location('update_contact.update_person',40);

3086: ,p_person_type_id => X_Person_Type_Id
3087: ,p_datetrack_update_mode => 'CORRECTION' --since the person record is only corrected too
3088: );
3089: --
3090: hr_utility.set_location('update_contact.update_person',40);
3091:
3092: -- end of PTU changes
3093: --
3094:

Line 3116: hr_utility.set_location('update_person - before TCA update',100);

3112: --
3113: fetch c_person into l_person;
3114: --
3115: close c_person;
3116: hr_utility.set_location('update_person - before TCA update',100);
3117: hr_utility.set_location('update_person - party_id='||l_person.party_id,200);
3118: hr_utility.set_location('update_person - first_name='||l_person.first_name,200);
3119: --
3120: per_hrtca_merge.update_tca_person(p_Rec => l_person);

Line 3117: hr_utility.set_location('update_person - party_id='||l_person.party_id,200);

3113: fetch c_person into l_person;
3114: --
3115: close c_person;
3116: hr_utility.set_location('update_person - before TCA update',100);
3117: hr_utility.set_location('update_person - party_id='||l_person.party_id,200);
3118: hr_utility.set_location('update_person - first_name='||l_person.first_name,200);
3119: --
3120: per_hrtca_merge.update_tca_person(p_Rec => l_person);
3121: --

Line 3118: hr_utility.set_location('update_person - first_name='||l_person.first_name,200);

3114: --
3115: close c_person;
3116: hr_utility.set_location('update_person - before TCA update',100);
3117: hr_utility.set_location('update_person - party_id='||l_person.party_id,200);
3118: hr_utility.set_location('update_person - first_name='||l_person.first_name,200);
3119: --
3120: per_hrtca_merge.update_tca_person(p_Rec => l_person);
3121: --
3122: hr_utility.set_location('update_person - after TCA update',300);

Line 3122: hr_utility.set_location('update_person - after TCA update',300);

3118: hr_utility.set_location('update_person - first_name='||l_person.first_name,200);
3119: --
3120: per_hrtca_merge.update_tca_person(p_Rec => l_person);
3121: --
3122: hr_utility.set_location('update_person - after TCA update',300);
3123: end if;
3124: CLOSE Lock_Person_Row;
3125: END Update_Person;
3126: ---------------------------------------------

Line 3136: hr_utility.set_location('per_contact_relationships_pkg.update_contact',1);

3132: -- i.e. check whether the Contact Only flag = 'Y' and if it is then
3133: -- check that the actual values have changed on the person record
3134: -- for the current person record
3135: --
3136: hr_utility.set_location('per_contact_relationships_pkg.update_contact',1);
3137: IF X_Contact_Only = 'Y' THEN
3138: -- bug fix 4281500 starts here --
3139: -- check if there exist a reslationship record with end date
3140: -- earlier than new DOB.

Line 3147: hr_utility.set_message(

3143: open csr_chk_rel;
3144: fetch csr_chk_rel into l_con_rel_id;
3145: if csr_chk_rel%found then
3146: close csr_chk_rel;
3147: hr_utility.set_message(
3148: applid => 800,
3149: l_message_name => 'PER_449600_INVALD_DOB');
3150: --
3151: hr_utility.raise_error;

Line 3151: hr_utility.raise_error;

3147: hr_utility.set_message(
3148: applid => 800,
3149: l_message_name => 'PER_449600_INVALD_DOB');
3150: --
3151: hr_utility.raise_error;
3152: end if;
3153: close csr_chk_rel;
3154: end if;
3155:

Line 3169: hr_utility.trace('Calling Check_For_Person_Rows');

3165: -- called REENTRY_FLAG = 1 and the check is performed. If we need to
3166: -- ask the question set REENTRY_FLAG = 2 and exit.
3167: -- The second time in will happen if the update is to proceed.
3168: --
3169: hr_utility.trace('Calling Check_For_Person_Rows');
3170: IF X_Reentry_Flag = 1 THEN
3171: OPEN Check_For_Person_Rows;
3172: FETCH Check_For_Person_Rows INTO l_others_exist;
3173: CLOSE Check_For_Person_Rows;

Line 3180: hr_utility.set_location('update_contact',2);

3176: X_Reentry_Flag := 2;
3177: RETURN;
3178: END IF;
3179: END IF;
3180: hr_utility.set_location('update_contact',2);
3181: Update_Person;
3182: -- bug fix 4281500 starts here --
3183: -- call to update the relationship records
3184: -- having start date earlier than date of birth

Line 3262: hr_utility.set_location('update_contact',3);

3258: END IF;
3259: END IF;
3260: --
3261: --
3262: hr_utility.set_location('update_contact',3);
3263:
3264: /*IF (SQL%NOTFOUND) THEN
3265: RAISE NO_DATA_FOUND;
3266: END IF;*/-- fix for bug 4763755.