[Home] [Help]
17: --
18: Begin
19: hr_utility.set_location('Entering:'||l_proc, 5);
20: --
21: If (p_constraint_name = 'PQH_PTX_INFO_TYPES_PK') Then
22: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
23: hr_utility.set_message_token('PROCEDURE', l_proc);
24: hr_utility.set_message_token('STEP','5');
25: hr_utility.raise_error;
52: description,
53: multiple_occurences_flag,
54: legislation_code,
55: object_version_number
56: from pqh_ptx_info_types
57: where information_type = p_information_type;
58: --
59: l_proc varchar2(72) := g_package||'api_updating';
60: l_fct_ret boolean;
127: description,
128: multiple_occurences_flag,
129: legislation_code,
130: object_version_number
131: from pqh_ptx_info_types
132: where information_type = p_information_type
133: for update nowait;
134: --
135: l_proc varchar2(72) := g_package||'lck';
170: -- The object is locked therefore we need to supply a meaningful
171: -- error message.
172: --
173: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
174: hr_utility.set_message_token('TABLE_NAME', 'pqh_ptx_info_types');
175: hr_utility.raise_error;
176: End lck;
177: --
178: -- ----------------------------------------------------------------------------
232: l_last_update_date date;
233: l_last_update_login number;
234: l_updated number := 0;
235: cursor c0 is
236: select pti.* from pqh_ptx_info_types pti
237: where information_type = p_information_type
238: for update;
239: --
240: l_data_migrator_mode varchar2(1);
267:
268: --
269: for r0 in c0 loop
270: if NVL(r0.last_updated_by,-1) in (l_last_updated_by,1,-1) then
271: update pqh_ptx_info_types
272: set
273: active_inactive_flag = p_active_inactive_flag,
274: description = p_description,
275: multiple_occurences_flag = p_multiple_occurences_flag,
281: end if;
282: l_updated := 1;
283: end loop;
284: if l_updated = 0 then
285: insert into pqh_ptx_info_types(
286: information_type,
287: active_inactive_flag,
288: description,
289: multiple_occurences_flag,