[Home] [Help]
PACKAGE BODY: APPS.ASG_CONFIG_PKG
Source
1 PACKAGE BODY ASG_CONFIG_PKG as
2 /* $Header: asgpconb.pls 120.1 2005/08/12 02:48:54 saradhak noship $ */
3
4 -- HISTORY
5 -- OCT 29, 2003 ytian Modified the update_row to handle the entries
6 -- without release_version.
7 -- SEP. 15, 2003 ytian Modified update_row to update the values only
8 -- if the LDT has a different RELEASE_VERSION than
9 -- the row in the database.
10 -- SEP. 09, 2002 ytian Updated update_row to not update the value for
11 -- parameter DISABLED_SYNCH_MESSAGE.
12 -- AUG. 30, 2002 ytian created.
13
14 procedure insert_row (
15 x_NAME in VARCHAR2,
16 x_VALUE in VARCHAR2,
17 x_DESCRIPTION in VARCHAR2,
18 x_CREATION_DATE in DATE,
19 x_CREATED_BY in NUMBER,
20 x_LAST_UPDATE_DATE in DATE,
21 x_LAST_UPDATED_BY in NUMBER,
22 x_RELEASE_VERSION in NUMBER) IS
23
24
25 begin
26
27
28 insert into ASG_CONFIG (
29 NAME,
30 VALUE,
31 DESCRIPTION,
32 CREATION_DATE,
33 CREATED_BY,
34 LAST_UPDATE_DATE,
35 LAST_UPDATED_BY,
36 RELEASE_VERSION
37 ) values (
38 decode(X_NAME,FND_API.G_MISS_CHAR, NULL, x_NAME),
39 decode(X_VALUE, FND_API.G_MISS_CHAR, NULL, x_VALUE),
40 decode(X_DESCRIPTION, FND_API.G_MISS_CHAR, NULL, x_DESCRIPTION),
41 decode(X_CREATION_DATE,FND_API.G_MISS_DATE, NULL, x_creation_date),
42 decode(X_CREATED_BY,FND_API.G_MISS_NUM, NULL,x_created_by),
43 decode(X_LAST_UPDATE_DATE,FND_API.G_MISS_DATE, NULL, x_last_update_date),
44 decode(X_LAST_UPDATED_BY,FND_API.G_MISS_NUM, NULL,x_last_updated_by),
45 decode(X_RELEASE_VERSION, FND_API.G_MISS_NUM, NULL, x_release_version)
46 );
47
48 /*
49 open c;
50 fetch c into X_ROWID;
51 if (c%notfound) then
52 close c;
53 raise no_data_found;
54 end if;
55 close c;
56 */
57
58 end insert_row;
59
60 procedure update_row (
61 x_NAME in VARCHAR2,
62 x_VALUE in VARCHAR2,
63 x_DESCRIPTION in VARCHAR2,
64 x_CREATION_DATE in DATE,
65 x_CREATED_BY in NUMBER,
66 x_LAST_UPDATE_DATE in DATE,
67 x_LAST_UPDATED_BY in NUMBER) IS
68
69 x_count number;
70
71 begin
72 update asg_config set
73 NAME = X_NAME,
74 VALUE = x_VALUE,
75 DESCRIPTION = X_DESCRIPTION,
76 CREATION_DATE = X_CREATION_DATE,
77 CREATED_BY = X_CREATED_BY,
78 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
79 LAST_UPDATED_BY = X_LAST_UPDATED_BY
80 where NAME = X_NAME;
81
82 if (sql%notfound) then
83 raise no_data_found;
84 end if;
85
86 END UPDATE_ROW;
87
88
89 procedure update_row (
90 x_NAME in VARCHAR2,
91 x_VALUE in VARCHAR2,
92 x_DESCRIPTION in VARCHAR2,
93 x_CREATION_DATE in DATE,
94 x_CREATED_BY in NUMBER,
95 x_LAST_UPDATE_DATE in DATE,
96 x_LAST_UPDATED_BY in NUMBER,
97 x_RELEASE_VERSION in NUMBER) IS
98 x_count number;
99 begin
100
101
102 IF (x_RELEASE_VERSION IS NOT NULL ) THEN
103 update asg_config set
104 NAME = X_NAME,
105 VALUE = x_VALUE,
106 DESCRIPTION = X_DESCRIPTION,
107 CREATION_DATE = X_CREATION_DATE,
108 CREATED_BY = X_CREATED_BY,
109 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
110 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
111 RELEASE_VERSION = X_RELEASE_VERSION
112 where NAME = X_NAME
113 and nvl(RELEASE_VERSION,-1) <> x_RELEASE_VERSION;
114
115
116
117 if (sql%notfound) then
118 begin
119 select count(*) into x_count from asg_config
120 where name = X_NAME;
121
122 if (x_count = 0) then
123 raise no_data_found;
124 end if;
125 end;
126
127 end if;
128 ELSE
129 /* if the release-version not set, and if the record is not
130 existing, we should raise and then insert_row will catch
131 and insert it then. */
132 begin
133 select count(*) into x_count from asg_config
134 where name = X_NAME;
135
136 if (x_count = 0) then
137 raise no_data_found;
138 end if;
139 end;
140 END IF;
141 END UPDATE_ROW;
142
143
144 procedure load_row (
145 x_NAME in VARCHAR2,
146 x_VALUE in VARCHAR2,
147 x_DESCRIPTION in VARCHAR2,
148 x_CREATION_DATE in DATE,
149 x_CREATED_BY in NUMBER,
150 x_LAST_UPDATE_DATE in DATE,
151 x_LAST_UPDATED_BY in NUMBER,
152 p_owner in VARCHAR2) IS
153
154 l_user_id number := 0;
155 BEGIN
156
157
158 if (p_owner = 'SEED') then
159 l_user_id := 1;
160 end if;
161
162 asg_config_pkg.UPDATE_ROW (
163 X_NAME => x_NAME,
164 X_VALUE => x_VALUE,
165 X_DESCRIPTION => x_DESCRIPTION,
166 X_CREATION_DATE => X_CREATION_DATE,
167 X_CREATED_BY => X_CREATED_BY,
168 X_LAST_UPDATE_DATE => sysdate,
169 X_LAST_UPDATED_BY => l_user_id);
170
171 EXCEPTION
172 WHEN NO_DATA_FOUND THEN
173 raise no_data_found;
174
175 END load_row;
176
177
178
179 procedure load_row (
180 x_NAME in VARCHAR2,
181 x_VALUE in VARCHAR2,
182 x_DESCRIPTION in VARCHAR2,
183 x_CREATION_DATE in DATE,
184 x_CREATED_BY in NUMBER,
185 x_LAST_UPDATE_DATE in DATE,
186 x_LAST_UPDATED_BY in NUMBER,
187 x_RELEASE_VERSION in NUMBER,
188 p_owner in VARCHAR2) IS
189
190 l_user_id number := 0;
191
192 BEGIN
193
194
195 if (p_owner = 'SEED') then
196 l_user_id := 1;
197 end if;
198
199 asg_config_pkg.UPDATE_ROW (
200 X_NAME => x_NAME,
201 X_VALUE => x_VALUE,
202 X_DESCRIPTION => x_DESCRIPTION,
203 X_CREATION_DATE => X_CREATION_DATE,
204 X_CREATED_BY => X_CREATED_BY,
205 X_LAST_UPDATE_DATE => sysdate,
206 X_LAST_UPDATED_BY => l_user_id,
207 x_RELEASE_VERSION => X_RELEASE_VERSION);
208
209 EXCEPTION
210 WHEN NO_DATA_FOUND THEN
211
212 asg_config_pkg.insert_row (
213 X_NAME => x_NAME,
214 X_VALUE => x_VALUE,
215 X_DESCRIPTION => x_DESCRIPTION,
216 X_CREATION_DATE => sysdate,
217 X_CREATED_BY => l_user_id,
218 X_LAST_UPDATE_DATE => sysdate,
219 X_LAST_UPDATED_BY => l_user_id,
220 X_RELEASE_VERSION => X_RELEASE_VERSION);
221
222 END load_row;
223
224 END ASG_CONFIG_PKG;