[Home] [Help]
PACKAGE BODY: APPS.HR_TEMPLATE_STACK_CANVAS_INFO
Source
1 PACKAGE BODY hr_template_stack_canvas_info
2 /* $Header: hrtscinf.pkb 120.0 2005/05/31 03:31:21 appldev noship $ */
3 AS
4 -- -----------------------------------------------------------------------------
5 -- |------------------------< template_stack_canvases >------------------------|
6 -- -----------------------------------------------------------------------------
7 FUNCTION template_stack_canvases
8 (p_form_template_id IN hr_form_templates_b.form_template_id%TYPE
9 )
10 RETURN t_template_stack_canvases
11 IS
12 --
13 l_template_stack_canvases t_template_stack_canvases := t_template_stack_canvases();
14 l_form_stack_canvases hr_form_stack_canvas_info.t_form_stack_canvases := hr_form_stack_canvas_info.t_form_stack_canvases();
15 l_index_number NUMBER;
16 --
17 BEGIN
18 --
19 l_form_stack_canvases := hr_form_stack_canvas_info.form_stack_canvases
20 (p_application_id => hr_form_template_info.application_id(p_form_template_id)
21 ,p_form_id => hr_form_template_info.form_id(p_form_template_id)
22 );
23 --
24 l_index_number := l_form_stack_canvases.FIRST;
25 WHILE (l_index_number IS NOT NULL)
26 LOOP
27 l_template_stack_canvases.EXTEND;
28 l_template_stack_canvases(l_template_stack_canvases.LAST).template_stack_canvas_id := l_form_stack_canvases(l_index_number).form_stack_canvas_id;
29 l_template_stack_canvases(l_template_stack_canvases.LAST).canvas_name := l_form_stack_canvases(l_index_number).canvas_name;
30 l_template_stack_canvases(l_template_stack_canvases.LAST).tab_page_name := l_form_stack_canvases(l_index_number).tab_page_name;
31 l_template_stack_canvases(l_template_stack_canvases.LAST).stack_canvas_name := l_form_stack_canvases(l_index_number).stack_canvas_name;
32 l_index_number := l_form_stack_canvases.NEXT(l_index_number);
33 END LOOP;
34 --
35 RETURN(l_template_stack_canvases);
36 --
37 END template_stack_canvases;
38 --
39 -- -----------------------------------------------------------------------------
40 -- |----------------------< template_stack_canvases_pst >----------------------|
41 -- -----------------------------------------------------------------------------
42 FUNCTION template_stack_canvases_pst
43 (p_form_template_id IN hr_form_templates_b.form_template_id%TYPE
44 )
45 RETURN t_template_stack_canvases_pst
46 IS
47 --
48 l_template_stack_canvases_pst t_template_stack_canvases_pst;
49 l_template_stack_canvases t_template_stack_canvases := t_template_stack_canvases();
50 l_index_number NUMBER;
51 --
52 BEGIN
53 --
54 l_template_stack_canvases := template_stack_canvases
55 (p_form_template_id => p_form_template_id
56 );
57 --
58 l_index_number := l_template_stack_canvases.FIRST;
59 WHILE (l_index_number IS NOT NULL)
60 LOOP
61 l_template_stack_canvases_pst(l_index_number) := l_template_stack_canvases(l_index_number);
62 l_index_number := l_template_stack_canvases.NEXT(l_index_number);
63 END LOOP;
64 --
65 RETURN(l_template_stack_canvases_pst);
66 --
67 END template_stack_canvases_pst;
68 --
69 END hr_template_stack_canvas_info;