PACKAGE BODY: APPS.PA_TIME_CHART_PKG

Source

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