[Home] [Help]
463: -- ---------------------------------------------------------------------------
464: --
465: -- Desciption :
466: --
467: -- If PARENT_TABLE <> 'PER_ALL_PEOPLE_F', raise an error. This is just a
468: -- temporary
469: -- solution which will require re-thinking when new parent tables are added
470: -- because we probably dont want to hard code all these.
471: --
509: -- Check that the parent_table is in the per_people table.
510: -- This is a temporary solution.
511: --
512: hr_utility.set_location('IJH: Table name is: '||p_parent_table, 2);
513: If p_parent_table <> 'PER_ALL_PEOPLE_F' then
514: hr_utility.set_location('Failed parent Table check', 4);
515: hr_utility.set_message(801, 'HR_51532_PHN_FK_NOT_FOUND');
516: hr_utility.raise_error;
517: end if;
538: -- ---------------------------------------------------------------------------
539: --
540: -- Desciption :
541: --
542: -- If PARENT_TABLE = 'PER_ALL_PEOPLE_F', verify that the value in PARENT_ID
543: -- is in the per_all_people_f table. This is just a temporary solution
544: -- which will require re-thinking when new parent tables are added because
545: -- we probably dont want to hard code all these.
546: --
539: --
540: -- Desciption :
541: --
542: -- If PARENT_TABLE = 'PER_ALL_PEOPLE_F', verify that the value in PARENT_ID
543: -- is in the per_all_people_f table. This is just a temporary solution
544: -- which will require re-thinking when new parent tables are added because
545: -- we probably dont want to hard code all these.
546: --
547: -- Pre-conditions :
578: l_api_updating boolean;
579: --
580: cursor csr_valid_parent_id is
581: select per.person_id
582: from per_all_people_f per
583: where per.person_id = p_parent_id
584: and rownum <2; -- performance bug fix 3387297
585: --
586: begin
677: --
678: --
679: -- Description:
680: -- - Validates that the person_id and the party_id are matched in
681: -- per_all_people_f
682: -- and if person_id is not null and party_id is null, derive party_id
683: -- from per_all_people_f from person_id
684: --
685: -- Pre_conditions:
679: -- Description:
680: -- - Validates that the person_id and the party_id are matched in
681: -- per_all_people_f
682: -- and if person_id is not null and party_id is null, derive party_id
683: -- from per_all_people_f from person_id
684: --
685: -- Pre_conditions:
686: -- A valid business_group_id
687: --
712: -- cursor to check that the party_id maches person_id
713: --
714: cursor csr_get_party_id is
715: select party_id
716: from per_all_people_f per
717: where per.person_id = p_rec.parent_id
718: and p_effective_date
719: between per.effective_start_date
720: and nvl(per.effective_end_date,hr_api.g_eot)
753: );
754: end if;
755: else
756: --
757: -- derive party_id from per_all_people_f using parent_id
758: --
759: hr_utility.set_location(l_proc,50);
760: p_rec.party_id := l_party_id;
761: end if;
1210: Begin
1211: hr_utility.set_location('Entering:'||l_proc, 5);
1212: --
1213: --
1214: if p_rec.parent_table = 'PER_ALL_PEOPLE_F' then
1215: per_per_bus.set_security_group_id
1216: (
1217: p_person_id => p_rec.parent_id
1218: ,p_associated_column1 => per_phn_shd.g_tab_nam||'.PARENT_ID'
1315: --
1316: Begin
1317: hr_utility.set_location('Entering:'||l_proc, 5);
1318: --
1319: if p_rec.parent_table = 'PER_ALL_PEOPLE_F' then
1320: per_per_bus.set_security_group_id
1321: (
1322: p_person_id => p_rec.parent_id
1323: ,p_associated_column1 => per_phn_shd.g_tab_nam||'.PARENT_ID'
1440: cursor csr_leg_code is
1441: select pbg.legislation_code
1442: from per_business_groups pbg
1443: , per_phones phn
1444: , per_all_people_f per
1445: where phn.phone_id = p_phone_id
1446: and phn.parent_id = per.person_id
1447: and pbg.business_group_id = per.business_group_id;
1448: --
1504:
1505: is
1506:
1507: begin
1508: if p_parent_table = 'PER_ALL_PEOPLE_F'
1509: then
1510: return per_per_bus.return_legislation_code(p_person_id => p_parent_id);
1511: else
1512: hr_utility.set_message(801, 'HR_51532_PHN_FK_NOT_FOUND');