DBA Data[Home] [Help]

APPS.PER_PERSON_TYPES_PKG dependencies on PER_PERSON_TYPES

Line 1: PACKAGE BODY PER_PERSON_TYPES_PKG as

1: PACKAGE BODY PER_PERSON_TYPES_PKG as
2: /* $Header: pedpt01t.pkb 115.15 2004/06/21 06:21:04 njaladi ship $ */
3: --------------------------------------------------------------------------------
4: g_dummy number(1); -- Dummy for cursor returns which are not needed
5: g_business_group_id number(15); -- For validating translation;

Line 18: from per_person_types_tl pttl,

14: -- to avoid FTS
15: -- Bug #3646157
16: --
17: cursor csr_user_name is select null
18: from per_person_types_tl pttl,
19: per_person_types pt
20: where pt.business_group_id = p_business_group_id
21: and upper(pttl.user_person_type) = upper(p_user_person_type)
22: and (pt.rowid <> p_rowid

Line 19: per_person_types pt

15: -- Bug #3646157
16: --
17: cursor csr_user_name is select null
18: from per_person_types_tl pttl,
19: per_person_types pt
20: where pt.business_group_id = p_business_group_id
21: and upper(pttl.user_person_type) = upper(p_user_person_type)
22: and (pt.rowid <> p_rowid
23: or p_rowid is null)

Line 56: from hr_lookups lu, per_person_types pt

52: -- to avoid FTS
53: -- Bug #3646157
54: --
55: cursor csr_system_name is select null
56: from hr_lookups lu, per_person_types pt
57: where pt.business_group_id = p_business_group_id
58: and lu.meaning = p_system_name
59: and lu.lookup_type = 'PERSON_TYPE'
60: and lu.lookup_code = pt.system_person_type

Line 96: CURSOR C IS SELECT rowid FROM per_person_types

92: X_System_Person_Type VARCHAR2,
93: X_System_Name VARCHAR2,
94: X_User_Person_Type VARCHAR2
95: ) IS
96: CURSOR C IS SELECT rowid FROM per_person_types
97: WHERE person_type_id = X_Person_Type_Id;
98:
99: CURSOR C2 IS SELECT per_person_types_s.nextval FROM sys.dual;
100:

Line 99: CURSOR C2 IS SELECT per_person_types_s.nextval FROM sys.dual;

95: ) IS
96: CURSOR C IS SELECT rowid FROM per_person_types
97: WHERE person_type_id = X_Person_Type_Id;
98:
99: CURSOR C2 IS SELECT per_person_types_s.nextval FROM sys.dual;
100:
101: BEGIN
102:
103: if (X_Person_Type_Id is NULL) then

Line 109: INSERT INTO per_person_types(

105: FETCH C2 INTO X_Person_Type_Id;
106: CLOSE C2;
107: end if;
108:
109: INSERT INTO per_person_types(
110: person_type_id,
111: business_group_id,
112: active_flag,
113: default_flag,

Line 126: insert into PER_PERSON_TYPES_TL (

122: X_User_Person_Type
123:
124: );
125: -- MLS
126: insert into PER_PERSON_TYPES_TL (
127: PERSON_TYPE_ID,
128: USER_PERSON_TYPE,
129: -- LAST_UPDATE_DATE,
130: -- LAST_UPDATED_BY,

Line 150: from PER_PERSON_TYPES_TL T

146: from FND_LANGUAGES L
147: where L.INSTALLED_FLAG in ('I', 'B')
148: and not exists
149: (select NULL
150: from PER_PERSON_TYPES_TL T
151: where T.PERSON_TYPE_ID = X_Person_Type_Id
152: and T.LANGUAGE = L.LANGUAGE_CODE);
153: --
154: OPEN C;

Line 180: FROM per_person_types ppt,

176: ppt.active_flag,
177: ppt.default_flag,
178: ppt.system_person_type,
179: ppt_tl.user_person_type
180: FROM per_person_types ppt,
181: per_person_types_tl ppt_tl
182: WHERE ppt.rowid = X_Rowid
183: AND ppt.person_type_id = ppt_tl.person_type_id
184: AND ppt_tl.language = userenv('LANG')

Line 181: per_person_types_tl ppt_tl

177: ppt.default_flag,
178: ppt.system_person_type,
179: ppt_tl.user_person_type
180: FROM per_person_types ppt,
181: per_person_types_tl ppt_tl
182: WHERE ppt.rowid = X_Rowid
183: AND ppt.person_type_id = ppt_tl.person_type_id
184: AND ppt_tl.language = userenv('LANG')
185: FOR UPDATE of ppt.person_type_id NOWAIT;

Line 191: from PER_PERSON_TYPES_TL

187: --MLS
188: cursor c1 is select
189: USER_PERSON_TYPE,
190: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
191: from PER_PERSON_TYPES_TL
192: where PERSON_TYPE_ID = X_Person_Type_Id
193: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
194: for update of PERSON_TYPE_ID nowait;
195: --

Line 267: UPDATE per_person_types

263: ) IS
264:
265: BEGIN
266:
267: UPDATE per_person_types
268: SET
269:
270: person_type_id = X_Person_Type_Id,
271: business_group_id = X_Business_Group_Id,

Line 286: update PER_PERSON_TYPES_TL set

282: hr_utility.raise_error;
283: end if;
284:
285: -- MLS
286: update PER_PERSON_TYPES_TL set
287: USER_PERSON_TYPE = X_User_Person_Type,
288: -- LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
289: -- LAST_UPDATED_BY = X_LAST_UPDATED_BY,
290: -- LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,

Line 318: delete from PER_PERSON_TYPES_TL

314: Check_System_Delete(X_Person_type_Id);
315: --
316:
317: -- MLS
318: delete from PER_PERSON_TYPES_TL
319: where PERSON_TYPE_ID = X_Person_Type_Id;
320:
321: if (sql%notfound) then
322: raise no_data_found;

Line 325: DELETE FROM per_person_types

321: if (sql%notfound) then
322: raise no_data_found;
323: end if;
324: --
325: DELETE FROM per_person_types
326: WHERE rowid = X_Rowid;
327:
328: if (SQL%NOTFOUND) then
329: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');

Line 346: from per_person_types ppt

342: from hr_lookups hr
343: WHERE hr.lookup_type = 'PERSON_TYPE'
344: and not exists
345: (select null
346: from per_person_types ppt
347: where hr.lookup_code = ppt.system_person_type
348: AND PPT.business_group_id = X_Business_Group_Id
349: AND PPT.active_flag = 'Y'
350: AND PPT.default_flag = 'Y'

Line 387: FROM per_person_types ppt

383: FROM hr_lookups hr
384: WHERE hr.lookup_type = 'PERSON_TYPE'
385: AND EXISTS
386: (SELECT null
387: FROM per_person_types ppt
388: WHERE hr.lookup_code = ppt.system_person_type
389: AND ppt.business_group_id = X_Business_Group_Id
390: AND ppt.active_flag = 'Y'
391: AND ppt.default_flag = 'Y'

Line 407: FROM per_person_types ppt

403: FROM hr_lookups hr
404: WHERE hr.lookup_type = 'PERSON_TYPE'
405: AND EXISTS
406: (SELECT null
407: FROM per_person_types ppt
408: WHERE hr.lookup_code = ppt.system_person_type
409: AND ppt.business_group_id = X_Business_Group_Id
410: AND ppt.active_flag = 'Y'
411: AND ppt.default_flag = 'Y'

Line 507: (x_user_person_type in per_person_types.user_person_type%TYPE

503: from per_business_groups org
504: where org.name = x_name;
505: l_business_group csr_business_group%ROWTYPE;
506: cursor csr_person_type
507: (x_user_person_type in per_person_types.user_person_type%TYPE
508: ,x_business_group_id in per_person_types.business_group_id%TYPE
509: )
510: is
511: select ptp.person_type_id

Line 508: ,x_business_group_id in per_person_types.business_group_id%TYPE

504: where org.name = x_name;
505: l_business_group csr_business_group%ROWTYPE;
506: cursor csr_person_type
507: (x_user_person_type in per_person_types.user_person_type%TYPE
508: ,x_business_group_id in per_person_types.business_group_id%TYPE
509: )
510: is
511: select ptp.person_type_id
512: ,ptp.rowid

Line 513: from per_person_types ptp

509: )
510: is
511: select ptp.person_type_id
512: ,ptp.rowid
513: from per_person_types ptp
514: where ptp.user_person_type = x_user_person_type
515: and ptp.business_group_id = x_business_group_id;
516: l_person_type csr_person_type%ROWTYPE;
517: begin

Line 565: (x_user_person_type in per_person_types.user_person_type%TYPE

561: ,X_OWNER in VARCHAR2
562: )
563: is
564: cursor csr_person_type
565: (x_user_person_type in per_person_types.user_person_type%TYPE
566: ,x_name in hr_all_organization_units.name%TYPE
567: )
568: is
569: select ptp.person_type_id

Line 570: from per_person_types ptp

566: ,x_name in hr_all_organization_units.name%TYPE
567: )
568: is
569: select ptp.person_type_id
570: from per_person_types ptp
571: ,per_business_groups org
572: where ptp.business_group_id = org.organization_id
573: and ptp.user_person_type = x_user_person_type
574: and org.name = x_name;

Line 582: UPDATE per_person_types_tl

578: open csr_person_type(x_person_type,x_business_group_name);
579: fetch csr_person_type into l_person_type;
580: close csr_person_type;
581: -- Update table
582: UPDATE per_person_types_tl
583: SET user_person_type = X_USER_PERSON_TYPE
584: ,last_update_date = SYSDATE
585: ,last_updated_by = DECODE(X_OWNER,'SEED',1,0)
586: ,last_update_login = 1

Line 595: -- process PER_PERSON_TYPES_TL table

591: --
592: procedure ADD_LANGUAGE
593: is
594: begin
595: -- process PER_PERSON_TYPES_TL table
596: delete from PER_PERSON_TYPES_TL T
597: where not exists
598: (select NULL
599: from PER_PERSON_TYPES B

Line 596: delete from PER_PERSON_TYPES_TL T

592: procedure ADD_LANGUAGE
593: is
594: begin
595: -- process PER_PERSON_TYPES_TL table
596: delete from PER_PERSON_TYPES_TL T
597: where not exists
598: (select NULL
599: from PER_PERSON_TYPES B
600: where B.PERSON_TYPE_ID = T.PERSON_TYPE_ID

Line 599: from PER_PERSON_TYPES B

595: -- process PER_PERSON_TYPES_TL table
596: delete from PER_PERSON_TYPES_TL T
597: where not exists
598: (select NULL
599: from PER_PERSON_TYPES B
600: where B.PERSON_TYPE_ID = T.PERSON_TYPE_ID
601: );
602:
603: update PER_PERSON_TYPES_TL T set (

Line 603: update PER_PERSON_TYPES_TL T set (

599: from PER_PERSON_TYPES B
600: where B.PERSON_TYPE_ID = T.PERSON_TYPE_ID
601: );
602:
603: update PER_PERSON_TYPES_TL T set (
604: USER_PERSON_TYPE
605: ) = (select
606: B.USER_PERSON_TYPE
607: from PER_PERSON_TYPES_TL B

Line 607: from PER_PERSON_TYPES_TL B

603: update PER_PERSON_TYPES_TL T set (
604: USER_PERSON_TYPE
605: ) = (select
606: B.USER_PERSON_TYPE
607: from PER_PERSON_TYPES_TL B
608: where B.PERSON_TYPE_ID = T.PERSON_TYPE_ID
609: and B.LANGUAGE = T.SOURCE_LANG)
610: where (
611: T.PERSON_TYPE_ID,

Line 616: from PER_PERSON_TYPES_TL SUBB, PER_PERSON_TYPES_TL SUBT

612: T.LANGUAGE
613: ) in (select
614: SUBT.PERSON_TYPE_ID,
615: SUBT.LANGUAGE
616: from PER_PERSON_TYPES_TL SUBB, PER_PERSON_TYPES_TL SUBT
617: where SUBB.PERSON_TYPE_ID = SUBT.PERSON_TYPE_ID
618: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
619: and (SUBB.USER_PERSON_TYPE <> SUBT.USER_PERSON_TYPE
620: ));

Line 622: insert into PER_PERSON_TYPES_TL (

618: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
619: and (SUBB.USER_PERSON_TYPE <> SUBT.USER_PERSON_TYPE
620: ));
621:
622: insert into PER_PERSON_TYPES_TL (
623: PERSON_TYPE_ID,
624: USER_PERSON_TYPE,
625: LAST_UPDATE_DATE,
626: LAST_UPDATED_BY,

Line 642: from PER_PERSON_TYPES_TL B, FND_LANGUAGES L

638: B.CREATED_BY,
639: B.CREATION_DATE,
640: L.LANGUAGE_CODE,
641: B.SOURCE_LANG
642: from PER_PERSON_TYPES_TL B, FND_LANGUAGES L
643: where L.INSTALLED_FLAG in ('I', 'B')
644: and B.LANGUAGE = userenv('LANG')
645: and not exists
646: (select NULL

Line 647: from PER_PERSON_TYPES_TL T

643: where L.INSTALLED_FLAG in ('I', 'B')
644: and B.LANGUAGE = userenv('LANG')
645: and not exists
646: (select NULL
647: from PER_PERSON_TYPES_TL T
648: where T.PERSON_TYPE_ID = B.PERSON_TYPE_ID
649: and T.LANGUAGE = L.LANGUAGE_CODE);
650:
651: -- process PER_STARTUP_PERSON_TYPES_TL table

Line 690: FROM per_person_types_tl pptt,

686: p_person_type_id IN NUMBER,
687: p_bus_grp_id IN NUMBER)
688: IS
689: SELECT 1
690: FROM per_person_types_tl pptt,
691: per_person_types ppt
692: WHERE upper(pptt.user_person_type)=upper(p_user_person_type)
693: AND pptt.person_type_id = ppt.person_type_id
694: AND pptt.language = p_language

Line 691: per_person_types ppt

687: p_bus_grp_id IN NUMBER)
688: IS
689: SELECT 1
690: FROM per_person_types_tl pptt,
691: per_person_types ppt
692: WHERE upper(pptt.user_person_type)=upper(p_user_person_type)
693: AND pptt.person_type_id = ppt.person_type_id
694: AND pptt.language = p_language
695: AND (ppt.person_type_id <> p_person_type_id OR p_person_type_id IS NULL)

Line 699: l_package_name VARCHAR2(80) := 'PER_PERSON_TYPES_PKG.VALIDATE_TRANSLATION';

695: AND (ppt.person_type_id <> p_person_type_id OR p_person_type_id IS NULL)
696: AND (ppt.business_group_id = p_bus_grp_id OR p_bus_grp_id IS NULL)
697: ;
698:
699: l_package_name VARCHAR2(80) := 'PER_PERSON_TYPES_PKG.VALIDATE_TRANSLATION';
700: l_business_group_id NUMBER := nvl(p_business_group_id, g_business_group_id);
701:
702: BEGIN
703: hr_utility.set_location (l_package_name,10);

Line 722: END PER_PERSON_TYPES_PKG;

718: hr_utility.set_location ('Leaving:'||l_package_name,80);
719: END validate_translation;
720: --------------------------------------------------------------------------------
721:
722: END PER_PERSON_TYPES_PKG;