[Home] [Help]
PACKAGE BODY: APPS.HR_TCP_PKG
Source
1 package body HR_TCP_PKG as
2 /* $Header: hrtcplct.pkb 120.1 2011/04/28 11:13:40 sidsaxen ship $ */
3 procedure OWNER_TO_WHO (
4 X_OWNER in VARCHAR2,
5 X_CREATION_DATE out nocopy DATE,
6 X_CREATED_BY out nocopy NUMBER,
7 X_LAST_UPDATE_DATE out nocopy DATE,
8 X_LAST_UPDATED_BY out nocopy NUMBER,
9 X_LAST_UPDATE_LOGIN out nocopy NUMBER
10 ) is
11 begin
12 if X_OWNER = 'SEED' then
13 X_CREATED_BY := 1;
14 X_LAST_UPDATED_BY := 1;
15 else
16 X_CREATED_BY := 0;
17 X_LAST_UPDATED_BY := 0;
18 end if;
19 X_CREATION_DATE := sysdate;
20 X_LAST_UPDATE_DATE := sysdate;
21 X_LAST_UPDATE_LOGIN := 0;
22 end OWNER_TO_WHO;
23 procedure INSERT_ROW (
24 X_ROWID in out nocopy VARCHAR2,
25 X_TEMPLATE_ITEM_CONTEXT_ID in NUMBER,
26 X_TEMPLATE_ITEM_CONTEXT_PAGE_I in NUMBER,
27 X_OBJECT_VERSION_NUMBER in NUMBER,
28 X_TEMPLATE_TAB_PAGE_ID in NUMBER,
29 X_CREATION_DATE in DATE,
30 X_CREATED_BY in NUMBER,
31 X_LAST_UPDATE_DATE in DATE,
32 X_LAST_UPDATED_BY in NUMBER,
33 X_LAST_UPDATE_LOGIN in NUMBER
34 ) is
35 cursor C is select ROWID from HR_TEMPLATE_ITEM_CONTEXT_PAGES
36 where TEMPLATE_ITEM_CONTEXT_ID = X_TEMPLATE_ITEM_CONTEXT_ID
37 ;
38 begin
39
40 --
41 -- Added the following code as a part of Zero Downtime Patching Project.
42 -- Code Starts Here.
43 --
44
45 BEGIN
46 PER_RIC_PKG.chk_integrity (
47 p_entity_name => 'HR_TEMPLATE_ITEM_CONTEXT_PAGES',
48 p_ref_entity_info => PER_RIC_PKG.ref_entity_tbl(
49 PER_RIC_PKG.ref_info_rec('HR_TEMPLATE_ITEM_CONTEXTS_B', PER_RIC_PKG.column_info_tbl(
50 PER_RIC_PKG.col_info_rec('TEMPLATE_ITEM_CONTEXT_ID',NULL,X_TEMPLATE_ITEM_CONTEXT_ID,NULL))),
51 PER_RIC_PKG.ref_info_rec('HR_TEMPLATE_TAB_PAGES_B', PER_RIC_PKG.column_info_tbl(
52 PER_RIC_PKG.col_info_rec('TEMPLATE_TAB_PAGE_ID',NULL,X_TEMPLATE_TAB_PAGE_ID,NULL)))
53 ),
54 p_ref_type => 'INS');
55
56 END;
57 --
58 -- Code Ends Here.
59 --
60
61 insert into HR_TEMPLATE_ITEM_CONTEXT_PAGES (
62 CREATION_DATE,
63 TEMPLATE_ITEM_CONTEXT_PAGE_ID,
64 OBJECT_VERSION_NUMBER,
65 TEMPLATE_ITEM_CONTEXT_ID,
66 TEMPLATE_TAB_PAGE_ID,
67 LAST_UPDATE_DATE,
68 LAST_UPDATED_BY,
69 LAST_UPDATE_LOGIN,
70 CREATED_BY
71 ) values(
72 X_CREATION_DATE,
73 X_TEMPLATE_ITEM_CONTEXT_PAGE_I,
74 X_OBJECT_VERSION_NUMBER,
75 X_TEMPLATE_ITEM_CONTEXT_ID,
76 X_TEMPLATE_TAB_PAGE_ID,
77 X_LAST_UPDATE_DATE,
78 X_LAST_UPDATED_BY,
79 X_LAST_UPDATE_LOGIN,
80 X_CREATED_BY);
81
82 open c;
83 fetch c into X_ROWID;
84 if (c%notfound) then
85 close c;
86 raise no_data_found;
87 end if;
88 close c;
89
90 end INSERT_ROW;
91
92 procedure LOCK_ROW (
93 X_TEMPLATE_ITEM_CONTEXT_ID in NUMBER,
94 X_TEMPLATE_ITEM_CONTEXT_PAGE_I in NUMBER,
95 X_OBJECT_VERSION_NUMBER in NUMBER,
96 X_TEMPLATE_TAB_PAGE_ID in NUMBER
97 ) is
98 cursor c1 is select
99 TEMPLATE_ITEM_CONTEXT_PAGE_ID,
100 OBJECT_VERSION_NUMBER,
101 TEMPLATE_TAB_PAGE_ID
102 from HR_TEMPLATE_ITEM_CONTEXT_PAGES
103 where TEMPLATE_ITEM_CONTEXT_ID = X_TEMPLATE_ITEM_CONTEXT_ID
104 for update of TEMPLATE_ITEM_CONTEXT_ID nowait;
105 begin
106 for tlinfo in c1 loop
107 if (tlinfo.TEMPLATE_ITEM_CONTEXT_PAGE_ID = X_TEMPLATE_ITEM_CONTEXT_PAGE_I)
108 AND (tlinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
109 AND (tlinfo.TEMPLATE_TAB_PAGE_ID = X_TEMPLATE_TAB_PAGE_ID)
110 then
111 null;
112 else
113 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
114 app_exception.raise_exception;
115 end if;
116 end loop;
117 return;
118 end LOCK_ROW;
119
120 procedure UPDATE_ROW (
121 X_TEMPLATE_ITEM_CONTEXT_ID in NUMBER,
122 X_TEMPLATE_ITEM_CONTEXT_PAGE_I in NUMBER,
123 X_OBJECT_VERSION_NUMBER in NUMBER,
124 X_TEMPLATE_TAB_PAGE_ID in NUMBER,
125 X_LAST_UPDATE_DATE in DATE,
126 X_LAST_UPDATED_BY in NUMBER,
127 X_LAST_UPDATE_LOGIN in NUMBER
128 ) is
129 begin
130 update HR_TEMPLATE_ITEM_CONTEXT_PAGES set
131 TEMPLATE_ITEM_CONTEXT_PAGE_ID = X_TEMPLATE_ITEM_CONTEXT_PAGE_I,
132 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
133 TEMPLATE_TAB_PAGE_ID = X_TEMPLATE_TAB_PAGE_ID,
134 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
135 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
136 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
137 where TEMPLATE_ITEM_CONTEXT_ID = X_TEMPLATE_ITEM_CONTEXT_ID;
138
139 if (sql%notfound) then
140 raise no_data_found;
141 end if;
142 end UPDATE_ROW;
143
144 procedure DELETE_ROW (
145 X_TEMPLATE_ITEM_CONTEXT_ID in NUMBER
146 ) is
147 begin
148 delete from HR_TEMPLATE_ITEM_CONTEXT_PAGES
149 where TEMPLATE_ITEM_CONTEXT_ID = X_TEMPLATE_ITEM_CONTEXT_ID;
150
151 if (sql%notfound) then
152 raise no_data_found;
153 end if;
154
155 end DELETE_ROW;
156 procedure LOAD_ROW (
157 X_APPLICATION_SHORT_NAME in VARCHAR2,
158 X_FORM_NAME in VARCHAR2,
159 X_TEMPLATE_NAME in VARCHAR2,
160 X_TERRITORY_SHORT_NAME in VARCHAR2,
161 X_FULL_ITEM_NAME in VARCHAR2,
162 X_RADIO_BUTTON_NAME in VARCHAR2,
163 X_SEGMENT1 in VARCHAR2,
164 X_SEGMENT2 in VARCHAR2,
165 X_SEGMENT3 in VARCHAR2,
166 X_SEGMENT4 in VARCHAR2,
167 X_SEGMENT5 in VARCHAR2,
168 X_SEGMENT6 in VARCHAR2,
169 X_SEGMENT7 in VARCHAR2,
170 X_SEGMENT8 in VARCHAR2,
171 X_SEGMENT9 in VARCHAR2,
172 X_SEGMENT10 in VARCHAR2,
173 X_SEGMENT11 in VARCHAR2,
174 X_SEGMENT12 in VARCHAR2,
175 X_SEGMENT13 in VARCHAR2,
176 X_SEGMENT14 in VARCHAR2,
177 X_SEGMENT15 in VARCHAR2,
178 X_SEGMENT16 in VARCHAR2,
179 X_SEGMENT17 in VARCHAR2,
180 X_SEGMENT18 in VARCHAR2,
181 X_SEGMENT19 in VARCHAR2,
182 X_SEGMENT20 in VARCHAR2,
183 X_SEGMENT21 in VARCHAR2,
184 X_SEGMENT22 in VARCHAR2,
185 X_SEGMENT23 in VARCHAR2,
186 X_SEGMENT24 in VARCHAR2,
187 X_SEGMENT25 in VARCHAR2,
188 X_SEGMENT26 in VARCHAR2,
189 X_SEGMENT27 in VARCHAR2,
190 X_SEGMENT28 in VARCHAR2,
191 X_SEGMENT29 in VARCHAR2,
192 X_SEGMENT30 in VARCHAR2,
193 X_ID_FLEX_STRUCTURE_CODE in VARCHAR2,
194 X_CONTEXT_TYPE in VARCHAR2,
195 X_ID_FLEX_CODE in VARCHAR2,
196 X_CANVAS_NAME in VARCHAR2,
197 X_WINDOW_NAME in VARCHAR2,
198 X_FORM_TAB_PAGE_NAME in VARCHAR2,
199 X_OWNER in VARCHAR2,
200 X_OBJECT_VERSION_NUMBER in VARCHAR2) is
201 X_ROWID ROWID;
202 X_CREATION_DATE DATE;
203 X_CREATED_BY NUMBER;
204 X_LAST_UPDATE_DATE DATE;
205 X_LAST_UPDATED_BY NUMBER;
206 X_LAST_UPDATE_LOGIN NUMBER;
207 X_FORM_ID NUMBER;
208 X_APPLICATION_ID NUMBER;
209 X_FORM_ITEM_ID NUMBER;
210 X_TEMPLATE_ITEM_ID NUMBER;
211 X_TEMPLATE_ITEM_CONTEXT_ID NUMBER;
212 X_ITEM_PROPERTY_ID NUMBER;
213 X_ITEM_CONTEXT_ID NUMBER;
214 X_FORM_WINDOW_ID NUMBER;
215 X_FORM_TEMPLATE_ID NUMBER;
216 X_TEMPLATE_WINDOW_ID NUMBER;
217 X_TCP_ID NUMBER;
218 X_FORM_CANVAS_ID NUMBER;
219 X_TEMPLATE_CANVAS_ID NUMBER;
220 X_FORM_TAB_PAGE_ID NUMBER;
221 X_TEMPLATE_TAB_PAGE_ID NUMBER;
222 begin
223 OWNER_TO_WHO (
224 X_OWNER,
225 X_CREATION_DATE,
226 X_CREATED_BY,
227 X_LAST_UPDATE_DATE,
228 X_LAST_UPDATED_BY,
229 X_LAST_UPDATE_LOGIN
230 );
231
232 /* adhunter jun-2002, bug 2183600
233 merged the following 3 SELECT into one, after this commented section
234
235 select application_id
236 into x_application_id
237 from fnd_application
238 where application_short_name = x_application_short_name;
239
240 select form_id
241 into x_form_id
242 from fnd_form
243 where form_name = x_form_name
244 and application_id = x_application_id;
245
246 select form_item_id
247 into x_form_item_id
248 from hr_form_items_b
249 where full_item_name = x_full_item_name
250 and application_id = x_application_id
251 and form_id = x_form_id
252 and ( radio_button_name = x_radio_button_name
253 or (radio_button_name is null and x_radio_button_name is null) );
254 */
255
256 select a.application_id,
257 f.form_id,
258 fi.form_item_id
259 into x_application_id,
260 x_form_id,
261 x_form_item_id
262 from fnd_application a,
263 fnd_form f,
264 hr_form_items_b fi
265 where a.application_short_name = x_application_short_name
266 and f.form_name = x_form_name
267 and f.application_id = a.application_id
268 and fi.full_item_name = x_full_item_name
269 and fi.application_id = f.application_id
270 and fi.form_id = f.form_id
271 and (fi.radio_button_name = x_radio_button_name
272 or (fi.radio_button_name is null and x_radio_button_name is null));
273
274
275 select hti.template_item_id
276 into x_template_item_id
277 from hr_form_templates_b hft
278 ,hr_template_items_b hti
279 where hti.form_item_id = x_form_item_id
280 and hti.form_template_id = hft.form_template_id
281 and hft.form_id = x_form_id
282 and hft.application_id = x_application_id
283 and ( (hft.legislation_code is null and x_territory_short_name is null)
284 or (hft.legislation_code = x_territory_short_name) )
285 and hft.template_name = x_template_name;
286
287 select item_context_id
288 into x_item_context_id
289 from hr_item_contexts hic
290 ,fnd_id_flex_structures fifs
291 where nvl(hic.segment1,hr_api.g_varchar2) = nvl(x_segment1,hr_api.g_varchar2)
292 and nvl(hic.segment2,hr_api.g_varchar2) = nvl(x_segment2,hr_api.g_varchar2)
293 and nvl(hic.segment3,hr_api.g_varchar2) = nvl(x_segment3,hr_api.g_varchar2)
294 and nvl(hic.segment4,hr_api.g_varchar2) = nvl(x_segment4,hr_api.g_varchar2)
295 and nvl(hic.segment5,hr_api.g_varchar2) = nvl(x_segment5,hr_api.g_varchar2)
296 and nvl(hic.segment6,hr_api.g_varchar2) = nvl(x_segment6,hr_api.g_varchar2)
297 and nvl(hic.segment7,hr_api.g_varchar2) = nvl(x_segment7,hr_api.g_varchar2)
298 and nvl(hic.segment8,hr_api.g_varchar2) = nvl(x_segment8,hr_api.g_varchar2)
299 and nvl(hic.segment9,hr_api.g_varchar2) = nvl(x_segment9,hr_api.g_varchar2)
300 and nvl(hic.segment10,hr_api.g_varchar2) = nvl(x_segment10,hr_api.g_varchar2)
301 and nvl(hic.segment11,hr_api.g_varchar2) = nvl(x_segment11,hr_api.g_varchar2)
302 and nvl(hic.segment12,hr_api.g_varchar2) = nvl(x_segment12,hr_api.g_varchar2)
303 and nvl(hic.segment13,hr_api.g_varchar2) = nvl(x_segment13,hr_api.g_varchar2)
304 and nvl(hic.segment14,hr_api.g_varchar2) = nvl(x_segment14,hr_api.g_varchar2)
305 and nvl(hic.segment15,hr_api.g_varchar2) = nvl(x_segment15,hr_api.g_varchar2)
306 and nvl(hic.segment16,hr_api.g_varchar2) = nvl(x_segment16,hr_api.g_varchar2)
307 and nvl(hic.segment17,hr_api.g_varchar2) = nvl(x_segment17,hr_api.g_varchar2)
308 and nvl(hic.segment18,hr_api.g_varchar2) = nvl(x_segment18,hr_api.g_varchar2)
309 and nvl(hic.segment19,hr_api.g_varchar2) = nvl(x_segment19,hr_api.g_varchar2)
310 and nvl(hic.segment20,hr_api.g_varchar2) = nvl(x_segment20,hr_api.g_varchar2)
311 and nvl(hic.segment21,hr_api.g_varchar2) = nvl(x_segment21,hr_api.g_varchar2)
312 and nvl(hic.segment22,hr_api.g_varchar2) = nvl(x_segment22,hr_api.g_varchar2)
313 and nvl(hic.segment23,hr_api.g_varchar2) = nvl(x_segment23,hr_api.g_varchar2)
314 and nvl(hic.segment24,hr_api.g_varchar2) = nvl(x_segment24,hr_api.g_varchar2)
315 and nvl(hic.segment25,hr_api.g_varchar2) = nvl(x_segment25,hr_api.g_varchar2)
316 and nvl(hic.segment26,hr_api.g_varchar2) = nvl(x_segment26,hr_api.g_varchar2)
317 and nvl(hic.segment27,hr_api.g_varchar2) = nvl(x_segment27,hr_api.g_varchar2)
318 and nvl(hic.segment28,hr_api.g_varchar2) = nvl(x_segment28,hr_api.g_varchar2)
319 and nvl(hic.segment29,hr_api.g_varchar2) = nvl(x_segment29,hr_api.g_varchar2)
320 and nvl(hic.segment30,hr_api.g_varchar2) = nvl(x_segment30,hr_api.g_varchar2)
321 and hic.id_flex_num = fifs.id_flex_num
322 and fifs.application_id = x_application_id
323 and fifs.id_flex_structure_code = x_id_flex_structure_code
324 and fifs.id_flex_code = x_id_flex_code;
325
326 select template_item_context_id
327 into x_template_item_context_id
328 from hr_template_item_contexts_b ticb
329 where ticb.template_item_id = x_template_item_id
330 and ticb.context_type = x_context_type
331 and ticb.item_context_id = x_item_context_id;
332
333 /* adhunter jun-2002, bug 2183600
334 merged the following 7 SELECT into one, after this commented section
335
336 select form_window_id
337 into x_form_window_id
338 from hr_form_windows_b
339 where window_name = x_window_name
340 and application_id = x_application_id
341 and form_id = x_form_id;
342
343 select form_template_id
344 into x_form_template_id
345 from hr_form_templates_b
346 where ( (legislation_code is null and x_territory_short_name is null)
347 or (legislation_code = x_territory_short_name) )
348 and template_name = x_template_name
349 and application_id = x_application_id
350 and form_id = x_form_id;
351
352 select template_window_id
353 into x_template_window_id
354 from hr_template_windows_b
355 where form_template_id = x_form_template_id
356 and form_window_id = x_form_window_id;
357
358 select form_canvas_id
359 into x_form_canvas_id
360 from hr_form_canvases_b
361 where canvas_name = x_canvas_name
362 and form_window_id = x_form_window_id;
363
364 select template_canvas_id
365 into x_template_canvas_id
366 from hr_template_canvases_b
367 where form_canvas_id = x_form_canvas_id
368 and template_window_id = x_template_window_id;
369
370 select form_tab_page_id
371 into x_form_tab_page_id
372 from hr_form_tab_pages_b
373 where tab_page_name = x_form_tab_page_name
374 and form_canvas_id = x_form_canvas_id;
375
376 select template_tab_page_id
377 into x_template_tab_page_id
378 from hr_template_tab_pages_b
379 where template_canvas_id = x_template_canvas_id
380 and form_tab_page_id = x_form_tab_page_id;
381 */
382
383 select hfw.form_window_id,
384 hft.form_template_id,
385 htw.template_window_id,
386 hfc.form_canvas_id,
387 htc.template_canvas_id,
388 hftp.form_tab_page_id,
389 htpb.template_tab_page_id
390 into x_form_window_id,
391 x_form_template_id,
392 x_template_window_id,
393 x_form_canvas_id,
394 x_template_canvas_id,
395 x_form_tab_page_id,
396 x_template_tab_page_id
397 from hr_form_windows_b hfw,
398 hr_form_templates_b hft,
399 hr_template_windows_b htw,
400 hr_form_canvases_b hfc,
401 hr_template_canvases_b htc,
402 hr_form_tab_pages_b hftp,
403 hr_template_tab_pages_b htpb
404 where hfw.window_name = x_window_name
405 and hfw.application_id = x_application_id
406 and hfw.form_id = x_form_id
407 and hft.application_id = hfw.application_id
408 and hft.form_id = hfw.form_id
409 and hft.template_name = x_template_name
410 and ((hft.legislation_code = x_territory_short_name)
411 or (hft.legislation_code is null and x_territory_short_name is null))
412 and htw.form_template_id = hft.form_template_id
413 and htw.form_window_id = hfw.form_window_id
414 and hfc.canvas_name = x_canvas_name
415 and hfc.form_window_id = hfw.form_window_id
416 and htc.form_canvas_id = hfc.form_canvas_id
417 and htc.template_window_id = htw.template_window_id
418 and hftp.tab_page_name = x_form_tab_page_name
419 and hftp.form_canvas_id = htc.form_canvas_id
420 and htpb.template_canvas_id = htc.template_canvas_id
421 and htpb.form_tab_page_id = hftp.form_tab_page_id;
422
423 begin
424
425 select template_item_context_page_id
426 into x_tcp_id
427 from hr_template_item_context_pages
428 where template_tab_page_id = x_template_tab_page_id
429 and template_item_context_id = x_template_item_context_id;
430 -- row has been found so perform update
431 update HR_TEMPLATE_ITEM_CONTEXT_PAGES
432 set TEMPLATE_ITEM_CONTEXT_PAGE_ID = x_tcp_id,
433 OBJECT_VERSION_NUMBER = TO_NUMBER (x_object_version_number),
434 TEMPLATE_TAB_PAGE_ID = X_TEMPLATE_TAB_PAGE_ID,
435 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
436 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
437 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
438 where TEMPLATE_ITEM_CONTEXT_ID = X_TEMPLATE_ITEM_CONTEXT_ID;
439 exception
440 when no_data_found then
441 -- insert row
442 --
443 -- Added the following code as a part of Zero Downtime Patching Project.
444 -- Code Starts Here.
445 --
446
447 BEGIN
448 PER_RIC_PKG.chk_integrity (
449 p_entity_name => 'HR_TEMPLATE_ITEM_CONTEXT_PAGES',
450 p_ref_entity_info => PER_RIC_PKG.ref_entity_tbl(
451 PER_RIC_PKG.ref_info_rec('HR_TEMPLATE_ITEM_CONTEXTS_B', PER_RIC_PKG.column_info_tbl(
452 PER_RIC_PKG.col_info_rec('TEMPLATE_ITEM_CONTEXT_ID',NULL,X_TEMPLATE_ITEM_CONTEXT_ID,NULL))),
453 PER_RIC_PKG.ref_info_rec('HR_TEMPLATE_TAB_PAGES_B', PER_RIC_PKG.column_info_tbl(
454 PER_RIC_PKG.col_info_rec('TEMPLATE_TAB_PAGE_ID',NULL,X_TEMPLATE_TAB_PAGE_ID,NULL)))
455 ),
456 p_ref_type => 'INS');
457
458 END;
459 --
460 -- Code Ends Here.
461 --
462 insert into HR_TEMPLATE_ITEM_CONTEXT_PAGES (
463 CREATION_DATE,
464 TEMPLATE_ITEM_CONTEXT_PAGE_ID,
465 OBJECT_VERSION_NUMBER,
466 TEMPLATE_ITEM_CONTEXT_ID,
467 TEMPLATE_TAB_PAGE_ID,
468 LAST_UPDATE_DATE,
469 LAST_UPDATED_BY,
470 LAST_UPDATE_LOGIN,
471 CREATED_BY)
472 values(
473 X_CREATION_DATE,
474 hr_tcp_s.nextval,
475 TO_NUMBER(x_object_version_number),
476 X_TEMPLATE_ITEM_CONTEXT_ID,
477 X_TEMPLATE_TAB_PAGE_ID,
478 X_LAST_UPDATE_DATE,
479 X_LAST_UPDATED_BY,
480 X_LAST_UPDATE_LOGIN,
481 X_CREATED_BY);
482 end;
483
484 /* adhunter jun-2002, bug 2183600
485 this has been absorbed into preceding statement.
486
487 begin
488 UPDATE_ROW (
489 X_TEMPLATE_ITEM_CONTEXT_ID,
490 X_TCP_ID,
491 to_number(X_OBJECT_VERSION_NUMBER),
492 X_TEMPLATE_TAB_PAGE_ID,
493 X_LAST_UPDATE_DATE,
494 X_LAST_UPDATED_BY,
495 X_LAST_UPDATE_LOGIN
496 );
497 exception
498 when no_data_found then
499 INSERT_ROW (
500 X_ROWID,
501 X_TEMPLATE_ITEM_CONTEXT_ID,
502 X_TCP_ID,
503 to_number(X_OBJECT_VERSION_NUMBER),
504 X_TEMPLATE_TAB_PAGE_ID,
505 X_CREATION_DATE,
506 X_CREATED_BY,
507 X_LAST_UPDATE_DATE,
508 X_LAST_UPDATED_BY,
509 X_LAST_UPDATE_LOGIN );
510 end;
511 */
512 end LOAD_ROW;
513 end HR_TCP_PKG;