[Home] [Help]
PACKAGE BODY: APPS.CSF_GANTT_SETUP_PKG
Source
1 package body CSF_GANTT_SETUP_PKG as
2 /* $Header: CSFGTSTB.pls 120.0 2005/05/24 18:38:18 appldev noship $ */
3 procedure insert_row
4 ( p_seq_id IN OUT NOCOPY number
5 , p_created_by IN OUT NOCOPY number
6 , p_creation_date IN OUT NOCOPY date
7 , p_last_updated_by IN OUT NOCOPY number
8 , p_last_update_date IN OUT NOCOPY date
9 , p_last_update_login IN OUT NOCOPY number
10 , p_object_version_number IN OUT NOCOPY number
11 , p_icon_file_name IN varchar2
12 , p_description IN varchar2
13 , P_RANKING IN number
14 , P_ACTIVE IN VARCHAR2
15 )
16 is
17 begin
18 if p_created_by is null then
19 p_created_by := fnd_global.user_id;
20 end if;
21
22 if p_last_updated_by is null then
23 p_last_updated_by := fnd_global.user_id;
24 end if;
25
26 if p_last_update_login is null then
27 p_last_update_login := fnd_global.login_id;
28 end if;
29
30 if p_creation_date is null then
31 p_creation_date := sysdate;
32 end if;
33
34 if p_last_update_date is null then
35 p_last_update_date := sysdate;
36 end if;
37
38 insert into csf_gnticons_setup_b
39 ( seq_id
40 , created_by
41 , creation_date
42 , last_updated_by
43 , last_update_date
44 , last_update_login
45 , object_version_number
46 , icon_file_name
47 , description
48 , ranking
49 , active
50 )
51 values
52 ( p_seq_id
53 , p_created_by
54 , p_creation_date
55 , p_last_updated_by
56 , p_last_update_date
57 , p_last_update_login
58 , p_object_version_number
59 , p_icon_file_name
60 , p_description
61 , p_ranking
62 , p_active
63 );
64 end insert_row;
65
66 procedure update_row
67 ( p_seq_id IN OUT NOCOPY number
68 , p_created_by IN OUT NOCOPY number
69 , p_creation_date IN OUT NOCOPY date
70 , p_last_updated_by IN OUT NOCOPY number
71 , p_last_update_date IN OUT NOCOPY date
72 , p_last_update_login IN OUT NOCOPY number
73 , p_object_version_number IN OUT NOCOPY number
74 , p_icon_file_name IN varchar2
75 , p_description IN varchar2
76 , p_RANKING IN number
77 , p_ACTIVE IN VARCHAR2
78 )
79 is
80 begin
81
82 if p_last_updated_by is null then
83 p_last_updated_by := fnd_global.user_id;
84 end if;
85
86 if p_last_update_login is null then
87 p_last_update_login := fnd_global.login_id;
88 end if;
89
90 if p_last_update_date is null then
91 p_last_update_date := sysdate;
92 end if;
93
94 update csf_gnticons_setup_b
95 set
96 last_updated_by = p_last_updated_by
97 , last_update_date = p_last_update_date
98 , last_update_login = p_last_update_login
99 , object_version_number = p_object_version_number
100 , icon_file_name = p_icon_file_name
101 , description = p_description
102 , ranking = p_ranking
103 , active = p_active
104 where seq_id = p_seq_id;
105
106 if sql%notfound
107 then
108 raise NO_DATA_FOUND;
109 end if;
110 end update_row;
111
112
113 procedure load_row
114 ( p_seq_id IN varchar2
115 , p_owner IN varchar2
116 , p_object_version_number IN varchar2
117 , p_icon_file_name IN varchar2
118 , p_description IN varchar2
119 , p_RANKING IN varchar2
120 , p_ACTIVE IN VARCHAR2
121 )
122 is
123 l_seq_id number ;
124 l_object_version_number number ;
125 l_update_date date ;
126 l_user number := 0;
127 l_row_id varchar2(64);
128
129 begin
130 if (p_owner = 'SEED')
131 then
132 l_user := 1;
133 end if;
134 l_seq_id := to_number(p_seq_id);
135 l_object_version_number := to_number(p_object_version_number);
136 l_update_date := sysdate;
137
138
139
140 update_row
141 ( p_seq_id => l_seq_id
142 , p_created_by => l_user
143 , p_creation_date => l_update_date
144 , p_last_updated_by => l_user
145 , p_last_update_date => l_update_date
146 , p_last_update_login => l_user
147 , p_object_version_number => l_object_version_number
148 , p_icon_file_name => p_icon_file_name
149 , p_description => p_description
150 , p_ranking => to_number(p_ranking)
151 , p_active => p_active
152 );
153 exception
154 when NO_DATA_FOUND then
155 insert_row
156 ( p_seq_id => l_seq_id
157 , p_created_by => l_user
158 , p_creation_date => l_update_date
159 , p_last_updated_by => l_user
160 , p_last_update_date => l_update_date
161 , p_last_update_login => l_user
162 , p_object_version_number => l_object_version_number
163 , p_icon_file_name => p_icon_file_name
164 , p_description => p_description
165 , p_ranking => to_number(p_ranking)
166 , p_active => p_active
167 );
168 end load_row;
169
170 end CSF_GANTT_SETUP_PKG;