[Home] [Help]
28: l_status := 'N';
29: if p_person_type = 'APL' then
30: SELECT 'N'
31: INTO l_status
32: FROM sys.dual
33: WHERE exists (SELECT 'Y'
34: FROM per_all_people_f pp
35: WHERE (p_person_id IS NULL
36: OR p_person_id <> pp.person_id)
45: -- the CWK numbering method if Use Employee Numbering.
46: --
47: SELECT 'N'
48: INTO l_status
49: FROM sys.dual
50: WHERE exists (select 'Y'
51: FROM per_all_people_f pp
52: WHERE (p_person_id IS NULL
53: OR p_person_id <> pp.person_id)
65: if p_person_type = 'CWK' then
66: --
67: SELECT 'N'
68: INTO l_status
69: FROM sys.dual
70: WHERE exists (select 'Y'
71: FROM per_all_people_f pp
72: WHERE (p_person_id IS NULL
73: OR p_person_id <> pp.person_id)
368: if p_applicant_number is NOT NULL then
369: begin
370: select null
371: into p_applicant_number
372: from sys.dual
373: where (p_person_id is not null
374: and not exists (select '1'
375: from per_assignments_f paf
376: where assignment_type = 'A'
504: if p_employee_number is NOT NULL then
505: begin
506: select null
507: into p_employee_number
508: from sys.dual
509: where (p_person_id is not null
510: and not exists (select '1'
511: from per_assignments_f paf
512: where assignment_type = 'E'
639: end if;
640: begin
641: select null
642: into p_npw_number
643: from sys.dual
644: where (p_person_id is not null
645: and not exists (select '1'
646: from per_assignments_f paf
647: where assignment_type = 'C'
948: DECODE(p_suffix,'','',' '||p_suffix)||
949: DECODE(p_known_as,'','',
950: ' ('||p_known_as||')'),1,240))
951: INTO l_full_name
952: FROM sys.dual ;
953: --
954: -- Performing rtrim to remove any blank spaces from the full name, see bug 2042825 for details
955: --
956: p_full_name := rtrim(l_full_name);
994: l_proc_call := l_proc_call||':p_per_information11,:p_per_information12,:p_per_information13,:p_per_information14,:p_per_information15,:p_per_information16,:p_per_information17,';
995:
996: l_proc_call := l_proc_call||':p_per_information18,:p_per_information19,:p_per_information20,:p_per_information21,:p_per_information22,:p_per_information23,:p_per_information24,';
997:
998: l_proc_call := l_proc_call||':p_per_information25,:p_per_information26,:p_per_information27,:p_per_information28,:p_per_information29,:p_per_information30),1,240)) FROM sys.dual ';
999:
1000: /* #1858645 replaced dbms_sql with native dynamic sql call
1001:
1002: -- Parse the statment
1131: hr_utility.set_location('hr_person.derive_full_name',3);
1132: end if;
1133: SELECT 'Y'
1134: INTO l_status
1135: FROM sys.dual
1136: WHERE EXISTS (SELECT 'Duplicate Person Exists'
1137: FROM per_all_people_f pp
1138: WHERE /* Perform case insensitive check on last name */
1139: /* trying to use the index on last name */
1386: --
1387: begin
1388: SELECT 'Y'
1389: INTO l_status
1390: FROM sys.dual
1391: WHERE exists(SELECT '1'
1392: FROM per_all_people_f pp
1393: WHERE (p_person_id IS NULL
1394: OR p_person_id <> pp.person_id)
1629: -- #2660279:
1630: -- --> delete this code
1631: -- SELECT 'Y'
1632: -- INTO l_status
1633: -- FROM sys.dual
1634: -- WHERE exists (SELECT 'Y'
1635: -- FROM per_all_people_f pp
1636: -- WHERE (p_person_id IS NULL
1637: -- OR p_person_id <> pp.person_id)
1682: --
1683:
1684: -- SELECT 'Y'
1685: -- INTO l_status
1686: -- FROM sys.dual
1687: -- WHERE exists (select 'Y'
1688: -- FROM per_all_people_f pp
1689: -- WHERE (p_person_id IS NULL
1690: -- OR p_person_id <> pp.person_id)
1719: -- #2660279:
1720: -- >> delete code
1721: -- SELECT 'Y'
1722: -- INTO l_status
1723: -- FROM sys.dual
1724: -- WHERE exists (select 'Y'
1725: -- FROM per_all_people_f pp
1726: -- WHERE (p_person_id IS NULL
1727: -- OR p_person_id <> pp.person_id)
2012: --
2013: --
2014: select 'Y'
2015: into p_test_func
2016: from sys.dual
2017: where exists(
2018: select 'Future Person Type exists'
2019: from per_people_f ppf
2020: ,per_person_types ppt
2086: end if;
2087:
2088: select 'Y'
2089: into p_test_func
2090: from sys.dual
2091: where exists
2092: (
2093: -- code change start for bug 3957689
2094: select 'Previous Person type exists'
2188: --
2189: --
2190: select 'Error : Primary address exists'
2191: into v_dummy
2192: from sys.dual
2193: where exists (select 'address exists'
2194: from per_addresses pa
2195: where pa.person_id = p_person_id
2196: and pa.business_group_id +0 = p_business_group_id