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 120.1 2011/04/28 10:13:45 sidsaxen 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 116: p_entity_name => 'PER_PERSON_TYPES',

112: --
113:
114: BEGIN
115: PER_RIC_PKG.chk_integrity (
116: p_entity_name => 'PER_PERSON_TYPES',
117: p_ref_entity => 'HR_ALL_ORGANIZATION_UNITS',
118: p_ref_column_name => 'BUSINESS_GROUP_ID',
119: p_ref_col_value_number => X_BUSINESS_GROUP_ID,
120: p_ref_col_value_varchar => NULL,

Line 129: INSERT INTO per_person_types(

125: --
126: -- Code Ends Here.
127: --
128:
129: INSERT INTO per_person_types(
130: person_type_id,
131: business_group_id,
132: active_flag,
133: default_flag,

Line 154: p_entity_name => 'PER_PERSON_TYPES_TL',

150: --
151:
152: BEGIN
153: PER_RIC_PKG.chk_integrity (
154: p_entity_name => 'PER_PERSON_TYPES_TL',
155: p_ref_entity => 'PER_PERSON_TYPES',
156: p_ref_column_name => 'PERSON_TYPE_ID',
157: p_ref_col_value_number => X_PERSON_TYPE_ID,
158: p_ref_col_value_varchar => NULL,

Line 155: p_ref_entity => 'PER_PERSON_TYPES',

151:
152: BEGIN
153: PER_RIC_PKG.chk_integrity (
154: p_entity_name => 'PER_PERSON_TYPES_TL',
155: p_ref_entity => 'PER_PERSON_TYPES',
156: p_ref_column_name => 'PERSON_TYPE_ID',
157: p_ref_col_value_number => X_PERSON_TYPE_ID,
158: p_ref_col_value_varchar => NULL,
159: p_ref_col_value_date => NULL,

Line 167: insert into PER_PERSON_TYPES_TL (

163: --
164: -- Code Ends Here.
165: --
166:
167: insert into PER_PERSON_TYPES_TL (
168: PERSON_TYPE_ID,
169: USER_PERSON_TYPE,
170: -- LAST_UPDATE_DATE,
171: -- LAST_UPDATED_BY,

Line 191: from PER_PERSON_TYPES_TL T

187: from FND_LANGUAGES L
188: where L.INSTALLED_FLAG in ('I', 'B')
189: and not exists
190: (select NULL
191: from PER_PERSON_TYPES_TL T
192: where T.PERSON_TYPE_ID = X_Person_Type_Id
193: and T.LANGUAGE = L.LANGUAGE_CODE);
194: --
195: OPEN C;

Line 221: FROM per_person_types ppt,

217: ppt.active_flag,
218: ppt.default_flag,
219: ppt.system_person_type,
220: ppt_tl.user_person_type
221: FROM per_person_types ppt,
222: per_person_types_tl ppt_tl
223: WHERE ppt.rowid = X_Rowid
224: AND ppt.person_type_id = ppt_tl.person_type_id
225: AND ppt_tl.language = userenv('LANG')

Line 222: per_person_types_tl ppt_tl

218: ppt.default_flag,
219: ppt.system_person_type,
220: ppt_tl.user_person_type
221: FROM per_person_types ppt,
222: per_person_types_tl ppt_tl
223: WHERE ppt.rowid = X_Rowid
224: AND ppt.person_type_id = ppt_tl.person_type_id
225: AND ppt_tl.language = userenv('LANG')
226: FOR UPDATE of ppt.person_type_id NOWAIT;

Line 232: from PER_PERSON_TYPES_TL

228: --MLS
229: cursor c1 is select
230: USER_PERSON_TYPE,
231: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
232: from PER_PERSON_TYPES_TL
233: where PERSON_TYPE_ID = X_Person_Type_Id
234: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
235: for update of PERSON_TYPE_ID nowait;
236: --

Line 308: UPDATE per_person_types

304: ) IS
305:
306: BEGIN
307:
308: UPDATE per_person_types
309: SET
310:
311: person_type_id = X_Person_Type_Id,
312: business_group_id = X_Business_Group_Id,

Line 327: update PER_PERSON_TYPES_TL set

323: hr_utility.raise_error;
324: end if;
325:
326: -- MLS
327: update PER_PERSON_TYPES_TL set
328: USER_PERSON_TYPE = X_User_Person_Type,
329: -- LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
330: -- LAST_UPDATED_BY = X_LAST_UPDATED_BY,
331: -- LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,

Line 359: delete from PER_PERSON_TYPES_TL

355: Check_System_Delete(X_Person_type_Id);
356: --
357:
358: -- MLS
359: delete from PER_PERSON_TYPES_TL
360: where PERSON_TYPE_ID = X_Person_Type_Id;
361:
362: if (sql%notfound) then
363: raise no_data_found;

Line 374: p_entity_name => 'PER_PERSON_TYPES',

370: --
371:
372: BEGIN
373: PER_RIC_PKG.chk_integrity (
374: p_entity_name => 'PER_PERSON_TYPES',
375: p_ref_entity => 'PER_PERSON_TYPES_TL',
376: p_ref_column_name => 'PERSON_TYPE_ID',
377: p_ref_col_value_number => X_PERSON_TYPE_ID,
378: p_ref_col_value_varchar => NULL,

Line 375: p_ref_entity => 'PER_PERSON_TYPES_TL',

371:
372: BEGIN
373: PER_RIC_PKG.chk_integrity (
374: p_entity_name => 'PER_PERSON_TYPES',
375: p_ref_entity => 'PER_PERSON_TYPES_TL',
376: p_ref_column_name => 'PERSON_TYPE_ID',
377: p_ref_col_value_number => X_PERSON_TYPE_ID,
378: p_ref_col_value_varchar => NULL,
379: p_ref_col_value_date => NULL,

Line 387: DELETE FROM per_person_types

383: --
384: -- Code Ends Here.
385: --
386:
387: DELETE FROM per_person_types
388: WHERE rowid = X_Rowid;
389:
390: if (SQL%NOTFOUND) then
391: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');

Line 408: from per_person_types ppt

404: from hr_lookups hr
405: WHERE hr.lookup_type = 'PERSON_TYPE'
406: and not exists
407: (select null
408: from per_person_types ppt
409: where hr.lookup_code = ppt.system_person_type
410: AND PPT.business_group_id = X_Business_Group_Id
411: AND PPT.active_flag = 'Y'
412: AND PPT.default_flag = 'Y'

Line 449: FROM per_person_types ppt

445: FROM hr_lookups hr
446: WHERE hr.lookup_type = 'PERSON_TYPE'
447: AND EXISTS
448: (SELECT null
449: FROM per_person_types ppt
450: WHERE hr.lookup_code = ppt.system_person_type
451: AND ppt.business_group_id = X_Business_Group_Id
452: AND ppt.active_flag = 'Y'
453: AND ppt.default_flag = 'Y'

Line 469: FROM per_person_types ppt

465: FROM hr_lookups hr
466: WHERE hr.lookup_type = 'PERSON_TYPE'
467: AND EXISTS
468: (SELECT null
469: FROM per_person_types ppt
470: WHERE hr.lookup_code = ppt.system_person_type
471: AND ppt.business_group_id = X_Business_Group_Id
472: AND ppt.active_flag = 'Y'
473: AND ppt.default_flag = 'Y'

Line 569: (x_user_person_type in per_person_types.user_person_type%TYPE

565: from per_business_groups org
566: where org.name = x_name;
567: l_business_group csr_business_group%ROWTYPE;
568: cursor csr_person_type
569: (x_user_person_type in per_person_types.user_person_type%TYPE
570: ,x_business_group_id in per_person_types.business_group_id%TYPE
571: )
572: is
573: select ptp.person_type_id

Line 570: ,x_business_group_id in per_person_types.business_group_id%TYPE

566: where org.name = x_name;
567: l_business_group csr_business_group%ROWTYPE;
568: cursor csr_person_type
569: (x_user_person_type in per_person_types.user_person_type%TYPE
570: ,x_business_group_id in per_person_types.business_group_id%TYPE
571: )
572: is
573: select ptp.person_type_id
574: ,ptp.rowid

Line 575: from per_person_types ptp

571: )
572: is
573: select ptp.person_type_id
574: ,ptp.rowid
575: from per_person_types ptp
576: where ptp.user_person_type = x_user_person_type
577: and ptp.business_group_id = x_business_group_id;
578: l_person_type csr_person_type%ROWTYPE;
579: begin

Line 627: (x_user_person_type in per_person_types.user_person_type%TYPE

623: ,X_OWNER in VARCHAR2
624: )
625: is
626: cursor csr_person_type
627: (x_user_person_type in per_person_types.user_person_type%TYPE
628: ,x_name in hr_all_organization_units.name%TYPE
629: )
630: is
631: select ptp.person_type_id

Line 632: from per_person_types ptp

628: ,x_name in hr_all_organization_units.name%TYPE
629: )
630: is
631: select ptp.person_type_id
632: from per_person_types ptp
633: ,per_business_groups org
634: where ptp.business_group_id = org.organization_id
635: and ptp.user_person_type = x_user_person_type
636: and org.name = x_name;

Line 644: UPDATE per_person_types_tl

640: open csr_person_type(x_person_type,x_business_group_name);
641: fetch csr_person_type into l_person_type;
642: close csr_person_type;
643: -- Update table
644: UPDATE per_person_types_tl
645: SET user_person_type = X_USER_PERSON_TYPE
646: ,last_update_date = SYSDATE
647: ,last_updated_by = DECODE(X_OWNER,'SEED',1,0)
648: ,last_update_login = 1

Line 657: -- process PER_PERSON_TYPES_TL table

653: --
654: procedure ADD_LANGUAGE
655: is
656: begin
657: -- process PER_PERSON_TYPES_TL table
658: delete from PER_PERSON_TYPES_TL T
659: where not exists
660: (select NULL
661: from PER_PERSON_TYPES B

Line 658: delete from PER_PERSON_TYPES_TL T

654: procedure ADD_LANGUAGE
655: is
656: begin
657: -- process PER_PERSON_TYPES_TL table
658: delete from PER_PERSON_TYPES_TL T
659: where not exists
660: (select NULL
661: from PER_PERSON_TYPES B
662: where B.PERSON_TYPE_ID = T.PERSON_TYPE_ID

Line 661: from PER_PERSON_TYPES B

657: -- process PER_PERSON_TYPES_TL table
658: delete from PER_PERSON_TYPES_TL T
659: where not exists
660: (select NULL
661: from PER_PERSON_TYPES B
662: where B.PERSON_TYPE_ID = T.PERSON_TYPE_ID
663: );
664:
665: update PER_PERSON_TYPES_TL T set (

Line 665: update PER_PERSON_TYPES_TL T set (

661: from PER_PERSON_TYPES B
662: where B.PERSON_TYPE_ID = T.PERSON_TYPE_ID
663: );
664:
665: update PER_PERSON_TYPES_TL T set (
666: USER_PERSON_TYPE
667: ) = (select
668: B.USER_PERSON_TYPE
669: from PER_PERSON_TYPES_TL B

Line 669: from PER_PERSON_TYPES_TL B

665: update PER_PERSON_TYPES_TL T set (
666: USER_PERSON_TYPE
667: ) = (select
668: B.USER_PERSON_TYPE
669: from PER_PERSON_TYPES_TL B
670: where B.PERSON_TYPE_ID = T.PERSON_TYPE_ID
671: and B.LANGUAGE = T.SOURCE_LANG)
672: where (
673: T.PERSON_TYPE_ID,

Line 678: from PER_PERSON_TYPES_TL SUBB, PER_PERSON_TYPES_TL SUBT

674: T.LANGUAGE
675: ) in (select
676: SUBT.PERSON_TYPE_ID,
677: SUBT.LANGUAGE
678: from PER_PERSON_TYPES_TL SUBB, PER_PERSON_TYPES_TL SUBT
679: where SUBB.PERSON_TYPE_ID = SUBT.PERSON_TYPE_ID
680: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
681: and (SUBB.USER_PERSON_TYPE <> SUBT.USER_PERSON_TYPE
682: ));

Line 684: insert into PER_PERSON_TYPES_TL (

680: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
681: and (SUBB.USER_PERSON_TYPE <> SUBT.USER_PERSON_TYPE
682: ));
683:
684: insert into PER_PERSON_TYPES_TL (
685: PERSON_TYPE_ID,
686: USER_PERSON_TYPE,
687: LAST_UPDATE_DATE,
688: LAST_UPDATED_BY,

Line 704: from PER_PERSON_TYPES_TL B, FND_LANGUAGES L

700: B.CREATED_BY,
701: B.CREATION_DATE,
702: L.LANGUAGE_CODE,
703: B.SOURCE_LANG
704: from PER_PERSON_TYPES_TL B, FND_LANGUAGES L
705: where L.INSTALLED_FLAG in ('I', 'B')
706: and B.LANGUAGE = userenv('LANG')
707: and not exists
708: (select NULL

Line 709: from PER_PERSON_TYPES_TL T

705: where L.INSTALLED_FLAG in ('I', 'B')
706: and B.LANGUAGE = userenv('LANG')
707: and not exists
708: (select NULL
709: from PER_PERSON_TYPES_TL T
710: where T.PERSON_TYPE_ID = B.PERSON_TYPE_ID
711: and T.LANGUAGE = L.LANGUAGE_CODE);
712:
713: -- process PER_STARTUP_PERSON_TYPES_TL table

Line 752: FROM per_person_types_tl pptt,

748: p_person_type_id IN NUMBER,
749: p_bus_grp_id IN NUMBER)
750: IS
751: SELECT 1
752: FROM per_person_types_tl pptt,
753: per_person_types ppt
754: WHERE upper(pptt.user_person_type)=upper(p_user_person_type)
755: AND pptt.person_type_id = ppt.person_type_id
756: AND pptt.language = p_language

Line 753: per_person_types ppt

749: p_bus_grp_id IN NUMBER)
750: IS
751: SELECT 1
752: FROM per_person_types_tl pptt,
753: per_person_types ppt
754: WHERE upper(pptt.user_person_type)=upper(p_user_person_type)
755: AND pptt.person_type_id = ppt.person_type_id
756: AND pptt.language = p_language
757: AND (ppt.person_type_id <> p_person_type_id OR p_person_type_id IS NULL)

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

757: AND (ppt.person_type_id <> p_person_type_id OR p_person_type_id IS NULL)
758: AND (ppt.business_group_id = p_bus_grp_id OR p_bus_grp_id IS NULL)
759: ;
760:
761: l_package_name VARCHAR2(80) := 'PER_PERSON_TYPES_PKG.VALIDATE_TRANSLATION';
762: l_business_group_id NUMBER := nvl(p_business_group_id, g_business_group_id);
763:
764: BEGIN
765: hr_utility.set_location (l_package_name,10);

Line 784: END PER_PERSON_TYPES_PKG;

780: hr_utility.set_location ('Leaving:'||l_package_name,80);
781: END validate_translation;
782: --------------------------------------------------------------------------------
783:
784: END PER_PERSON_TYPES_PKG;