PACKAGE BODY: APPS.PA_TIMELINE_TIME_SCALE_PKG

Source

1 PACKAGE BODY  PA_TIMELINE_TIME_SCALE_PKG as
2 /* $Header: PARLTSCB.pls 120.1 2005/08/19 16:56:02 mwasowic noship $ */
3 
4 
5 PROCEDURE insert_row ( p_timeline_time_scale_tab    IN   PA_TIMELINE_GLOB.TimeScaleTabTyp,
6                        x_return_status              OUT  NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
7                        x_msg_count                  OUT  NOCOPY NUMBER, --File.Sql.39 bug 4440895
8                        x_msg_data                   OUT  NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
9 IS
10         l_start_date                  PA_PLSQL_DATATYPES.DateTabTyp;
11         l_end_date                    PA_PLSQL_DATATYPES.DateTabTyp;
12         l_scale_type                  PA_PLSQL_DATATYPES.Char30TabTyp;
13         l_scale_row_type              PA_PLSQL_DATATYPES.Char30TabTyp;
14         l_scale_marker_code           PA_PLSQL_DATATYPES.Char30TabTyp;
15         l_scale_text                  PA_PLSQL_DATATYPES.Char30TabTyp;
16 
17 
18 BEGIN
19 
20 
21 IF (p_timeline_time_scale_tab.count = 0) then
22     return;
23 END IF;
24 
25 
26 FOR J IN p_timeline_time_scale_tab.first..p_timeline_time_scale_tab.last
27 LOOP
28 
29         l_start_date(J)      :=   p_timeline_time_scale_tab(J).start_date;
30         l_end_date(J)        :=   p_timeline_time_scale_tab(J).end_date;
31         l_scale_type(J)      :=   p_timeline_time_scale_tab(J).scale_type;
32         l_scale_row_type(J)  :=   p_timeline_time_scale_tab(J).scale_row_type;
33         l_scale_marker_code(J) :=   p_timeline_time_scale_tab(J).scale_marker_code;
34         l_scale_text(J)      :=   p_timeline_time_scale_tab(J).scale_text;
35 
36 END LOOP;
37 
38 
39 FORALL J IN  p_timeline_time_scale_tab.first ..p_timeline_time_scale_tab.last
40  INSERT INTO PA_TIMELINE_TIME_SCALE
41       (
42         start_date                 ,
43         end_date                   ,
44         scale_type                 ,
45         scale_row_type             ,
46         scale_marker_code          ,
47         scale_text                 ,
48         creation_date              ,
49         created_by                 ,
50         last_update_date           ,
51         last_updated_by            ,
52         last_update_login)
53  VALUES
54      (
55         l_start_date(J)            ,
56         l_end_date(J)              ,
57         l_scale_type(J)            ,
58         l_scale_row_type(J)        ,
59         l_scale_marker_code(J)     ,
60         l_scale_text(J)            ,
61         sysdate                    ,
62         fnd_global.user_id         ,
63         sysdate                    ,
64         fnd_global.user_id         ,
65         fnd_global.login_id);
66 
67 
68 
69 EXCEPTION
70  WHEN OTHERS THEN
71   Raise;
72 END insert_row;
73 
74 
75 PROCEDURE delete_row (
76                         x_return_status              OUT  NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
77                         x_msg_count                  OUT  NOCOPY NUMBER, --File.Sql.39 bug 4440895
78                         x_msg_data                   OUT  NOCOPY VARCHAR2  --File.Sql.39 bug 4440895
79                       )
80 IS
81 
82 BEGIN
83 
84 DELETE FROM pa_timeline_time_scale;
85 
86 
87 
88 EXCEPTION
89  WHEN OTHERS THEN
90   Raise;
91 END delete_row;
92 
93 END PA_TIMELINE_TIME_SCALE_PKG;