1: PACKAGE BODY PER_TIME_PERIOD_TYPES_PKG as
2: /* $Header: pydpt01t.pkb 120.0.12010000.1 2008/07/27 22:27:58 appldev ship $ */
3:
4: g_debug boolean := hr_utility.debug_enabled;
5:
6: procedure PERIOD_TYPE_NOT_UNIQUE (
7: --
8: -- Returns TRUE if the period type name is not unique, then the check is for a
26: and chartorowid(p_row_id) <> ptpt.rowid));
27: begin
28:
29: if g_debug then
30: hr_utility.set_location( 'Entering : ' || l_proc , 1);
31: end if;
32:
33: --
34: open csr_duplicate;
36: v_not_unique := csr_duplicate%found;
37: close csr_duplicate;
38: --
39: if v_not_unique then
40: hr_utility.set_message (801,'HR_7663_DEF_TIME_PERIOD_EXISTS');
41: hr_utility.raise_error;
42: end if;
43: --
44:
37: close csr_duplicate;
38: --
39: if v_not_unique then
40: hr_utility.set_message (801,'HR_7663_DEF_TIME_PERIOD_EXISTS');
41: hr_utility.raise_error;
42: end if;
43: --
44:
45: if g_debug then
42: end if;
43: --
44:
45: if g_debug then
46: hr_utility.set_location( 'Leaving : ' || l_proc , 2);
47: end if;
48:
49: end period_type_not_unique;
50:
99: --
100: begin
101:
102: if g_debug then
103: hr_utility.set_location( 'Entering : ' || l_proc , 1);
104: end if;
105:
106: open csr_calendar;
107: fetch csr_calendar into g_dummy_number;
108: v_no_delete := csr_calendar%found;
109: close csr_calendar;
110: --
111: if v_no_delete then
112: hr_utility.set_message (801,'HR_7660_DEF_DELETE_PERIODS');
113: hr_utility.raise_error;
114: end if;
115: --
116: open csr_periods;
109: close csr_calendar;
110: --
111: if v_no_delete then
112: hr_utility.set_message (801,'HR_7660_DEF_DELETE_PERIODS');
113: hr_utility.raise_error;
114: end if;
115: --
116: open csr_periods;
117: fetch csr_periods into g_dummy_number;
118: v_no_delete := csr_periods%found;
119: close csr_periods;
120: --
121: if v_no_delete then
122: hr_utility.set_message (801,'HR_6058_TIME_DELETE_PERIOD');
123: hr_utility.raise_error;
124: end if;
125: --
126: open csr_cobra;
119: close csr_periods;
120: --
121: if v_no_delete then
122: hr_utility.set_message (801,'HR_6058_TIME_DELETE_PERIOD');
123: hr_utility.raise_error;
124: end if;
125: --
126: open csr_cobra;
127: fetch csr_cobra into g_dummy_number;
128: v_no_delete := csr_cobra%found;
129: close csr_cobra;
130: --
131: if v_no_delete then
132: hr_utility.set_message (801,'HR_6974_TIME_DELETE_COBRA');
133: hr_utility.raise_error;
134: end if;
135: --
136: open csr_year;
129: close csr_cobra;
130: --
131: if v_no_delete then
132: hr_utility.set_message (801,'HR_6974_TIME_DELETE_COBRA');
133: hr_utility.raise_error;
134: end if;
135: --
136: open csr_year;
137: fetch csr_year into g_dummy_number;
138: v_no_delete := csr_year%found;
139: close csr_year;
140: --
141: if v_no_delete then
142: hr_utility.set_message (801,'HR_7662_DEF_DELETE_YEAR_OR_QTR');
143: fnd_message.set_token('PERIOD_TYPE','Year');
144: hr_utility.raise_error;
145: end if;
146: --
140: --
141: if v_no_delete then
142: hr_utility.set_message (801,'HR_7662_DEF_DELETE_YEAR_OR_QTR');
143: fnd_message.set_token('PERIOD_TYPE','Year');
144: hr_utility.raise_error;
145: end if;
146: --
147: open csr_quarter;
148: fetch csr_quarter into g_dummy_number;
149: v_no_delete := csr_quarter%found;
150: close csr_quarter;
151: --
152: if v_no_delete then
153: hr_utility.set_message (801,'HR_7662_DEF_DELETE_YEAR_OR_QTR');
154: fnd_message.set_token('PERIOD_TYPE','Quarter');
155: hr_utility.raise_error;
156: end if;
157: --
151: --
152: if v_no_delete then
153: hr_utility.set_message (801,'HR_7662_DEF_DELETE_YEAR_OR_QTR');
154: fnd_message.set_token('PERIOD_TYPE','Quarter');
155: hr_utility.raise_error;
156: end if;
157: --
158:
159: if g_debug then
156: end if;
157: --
158:
159: if g_debug then
160: hr_utility.set_location( 'Leaving : ' || l_proc , 2);
161: end if;
162:
163: end check_delete_period_type;
164: --
184: and ptptl.period_type <> x_period_type ) );
185: begin
186:
187: if g_debug then
188: hr_utility.set_location( 'Entering : ' || l_proc , 1);
189: end if;
190:
191: --
192: open csr_duplicate;
194: v_not_unique := csr_duplicate%found;
195: close csr_duplicate;
196: --
197: if v_not_unique then
198: hr_utility.set_message (801,'HR_7663_DEF_TIME_PERIOD_EXISTS');
199: hr_utility.raise_error;
200: end if;
201: --
202:
195: close csr_duplicate;
196: --
197: if v_not_unique then
198: hr_utility.set_message (801,'HR_7663_DEF_TIME_PERIOD_EXISTS');
199: hr_utility.raise_error;
200: end if;
201: --
202:
203: if g_debug then
200: end if;
201: --
202:
203: if g_debug then
204: hr_utility.set_location( 'Leaving : ' || l_proc , 2);
205: end if;
206:
207: end display_period_type_not_unique;
208:
252:
253: begin
254:
255: if g_debug then
256: hr_utility.set_location( 'Entering : ' || l_proc , 1);
257: end if;
258:
259:
260: display_period_type_not_unique( X_PERIOD_TYPE,
375: end if;
376: close c;
377:
378: if g_debug then
379: hr_utility.set_location( 'Leaving : ' || l_proc , 2);
380: end if;
381:
382: End INSERT_ROW;
383:
455:
456: begin
457:
458: if g_debug then
459: hr_utility.set_location( 'Entering : ' || l_proc , 1);
460: end if;
461:
462: open c;
463: fetch c into recinfo;
537: end loop;
538: return;
539:
540: if g_debug then
541: hr_utility.set_location( 'Leaving : ' || l_proc , 2);
542: end if;
543:
544: end LOCK_ROW;
545:
592:
593: begin
594:
595: if g_debug then
596: hr_utility.set_location( 'Entering : ' || l_proc , 1);
597: end if;
598:
599:
600: display_period_type_not_unique( X_PERIOD_TYPE,
692: and T.LANGUAGE = L.LANGUAGE_CODE);
693: end if;
694:
695: if g_debug then
696: hr_utility.set_location( 'Leaving : ' || l_proc , 2);
697: end if;
698:
699:
700: end UPDATE_ROW;
707:
708: begin
709:
710: if g_debug then
711: hr_utility.set_location( 'Entering : ' || l_proc , 1);
712: end if;
713:
714: delete from PER_TIME_PERIOD_TYPES_TL
715: where PERIOD_TYPE = X_PERIOD_TYPE;
725: raise no_data_found;
726: end if;
727:
728: if g_debug then
729: hr_utility.set_location( 'Leaving : ' || l_proc , 2);
730: end if;
731:
732: end DELETE_ROW;
733:
736: l_proc CONSTANT varchar2(100) := 'per_time_period_types_pkg.add_language';
737: begin
738:
739: if g_debug then
740: hr_utility.set_location( 'Entering : ' || l_proc , 1);
741: end if;
742:
743: delete from PER_TIME_PERIOD_TYPES_TL T
744: where not exists
802: where T.PERIOD_TYPE = B.PERIOD_TYPE
803: and T.LANGUAGE = L.LANGUAGE_CODE);
804:
805: if g_debug then
806: hr_utility.set_location( 'Leaving : ' || l_proc , 2);
807: end if;
808:
809: end ADD_LANGUAGE;
810:
821:
822: begin
823:
824: if g_debug then
825: hr_utility.set_location( 'Entering : ' || l_proc , 1);
826: end if;
827:
828: if X_OWNER = 'SEED' then
829: hr_general2.init_fndload
841: X_LAST_UPDATED_BY := fnd_global.user_id;
842: X_LAST_UPDATE_LOGIN := fnd_global.login_id;
843:
844: if g_debug then
845: hr_utility.set_location( 'Leaving : ' || l_proc , 2);
846: end if;
847:
848: end OWNER_TO_WHO;
849:
891:
892: begin
893:
894: if g_debug then
895: hr_utility.set_location( 'Entering : ' || l_proc , 1);
896: end if;
897:
898: OWNER_TO_WHO ( X_OWNER => X_OWNER,
899: X_CREATION_DATE => l_CREATION_DATE,
982: );
983: end;
984:
985: if g_debug then
986: hr_utility.set_location( 'Leaving : ' || l_proc , 2);
987: end if;
988:
989: end LOAD_ROW;
990:
1012: and source_lang <> userenv('LANG');
1013: begin
1014:
1015: if g_debug then
1016: hr_utility.set_location( 'Entering : ' || l_proc , 1);
1017: end if;
1018:
1019: display_period_type_not_unique( X_PERIOD_TYPE,
1020: X_DISPLAY_PERIOD_TYPE,
1051: LAST_UPDATE_LOGIN = l_LAST_UPDATE_LOGIN
1052: where PERIOD_TYPE = X_PERIOD_TYPE;
1053: end if;
1054: if g_debug then
1055: hr_utility.set_location( 'Leaving : ' || l_proc , 2);
1056: end if;
1057:
1058: end TRANSLATE_ROW;
1059:
1079:
1080: begin
1081:
1082: if g_debug then
1083: hr_utility.set_location( 'Entering : ' || l_proc , 1);
1084: end if;
1085:
1086:
1087: display_period_type_not_unique( X_PERIOD_TYPE,
1104: where PERIOD_TYPE = X_PERIOD_TYPE;
1105: end if;
1106:
1107: if g_debug then
1108: hr_utility.set_location( 'Leaving : ' || l_proc , 2);
1109: end if;
1110:
1111: end validate_translation;
1112: