[Home] [Help]
PACKAGE BODY: APPS.CS_SYSTEM_OPTIONS_PKG
Source
1 PACKAGE BODY CS_SYSTEM_OPTIONS_PKG AS
2 /* $Header: cstsyopb.pls 120.0 2005/08/12 15:28:12 aneemuch noship $ */
3
4 PROCEDURE INSERT_ROW (
5 P_SYSTEM_OPTION_ID IN NUMBER,
6 P_SR_AGENT_SECURITY IN VARCHAR2,
7 P_SS_SRTYPE_RESTRICT IN VARCHAR2,
8 P_CREATION_DATE IN DATE,
9 P_CREATED_BY IN NUMBER,
10 P_LAST_UPDATE_DATE IN DATE,
11 P_LAST_UPDATED_BY IN NUMBER,
12 P_LAST_UPDATE_LOGIN IN NUMBER,
13 P_ATTRIBUTE1 IN VARCHAR2,
14 P_ATTRIBUTE2 IN VARCHAR2,
15 P_ATTRIBUTE3 IN VARCHAR2,
16 P_ATTRIBUTE4 IN VARCHAR2,
17 P_ATTRIBUTE5 IN VARCHAR2,
18 P_ATTRIBUTE6 IN VARCHAR2,
19 P_ATTRIBUTE7 IN VARCHAR2,
20 P_ATTRIBUTE8 IN VARCHAR2,
21 P_ATTRIBUTE9 IN VARCHAR2,
22 P_ATTRIBUTE10 IN VARCHAR2,
23 P_ATTRIBUTE11 IN VARCHAR2,
24 P_ATTRIBUTE12 IN VARCHAR2,
25 P_ATTRIBUTE13 IN VARCHAR2,
26 P_ATTRIBUTE14 IN VARCHAR2,
27 P_ATTRIBUTE15 IN VARCHAR2,
28 P_ATTRIBUTE_CATEGORY IN VARCHAR2,
29 P_OBJECT_VERSION_NUMBER IN NUMBER )
30 IS
31
32 BEGIN
33
34 INSERT INTO CS_SYSTEM_OPTIONS (
35 SYSTEM_OPTION_ID, SR_AGENT_SECURITY, SS_SRTYPE_RESTRICT,
36 CREATION_DATE, CREATED_BY, LAST_UPDATE_DATE,
37 LAST_UPDATED_BY, LAST_UPDATE_LOGIN, ATTRIBUTE1,
38 ATTRIBUTE2, ATTRIBUTE3, ATTRIBUTE4,
39 ATTRIBUTE5, ATTRIBUTE6, ATTRIBUTE7,
40 ATTRIBUTE8, ATTRIBUTE9, ATTRIBUTE10,
41 ATTRIBUTE11, ATTRIBUTE12, ATTRIBUTE13,
42 ATTRIBUTE14, ATTRIBUTE15, ATTRIBUTE_CATEGORY,
43 OBJECT_VERSION_NUMBER )
44 VALUES (
45 P_SYSTEM_OPTION_ID, P_SR_AGENT_SECURITY, P_SS_SRTYPE_RESTRICT,
46 P_CREATION_DATE, P_CREATED_BY, P_LAST_UPDATE_DATE,
47 P_LAST_UPDATED_BY, P_LAST_UPDATE_LOGIN, P_ATTRIBUTE1,
48 P_ATTRIBUTE2, P_ATTRIBUTE3, P_ATTRIBUTE4,
49 P_ATTRIBUTE5, P_ATTRIBUTE6, P_ATTRIBUTE7,
50 P_ATTRIBUTE8, P_ATTRIBUTE9, P_ATTRIBUTE10,
51 P_ATTRIBUTE11, P_ATTRIBUTE12, P_ATTRIBUTE13,
52 P_ATTRIBUTE14, P_ATTRIBUTE15, P_ATTRIBUTE_CATEGORY,
53 P_OBJECT_VERSION_NUMBER );
54
55
56 END INSERT_ROW;
57
58
59 PROCEDURE UPDATE_ROW (
60 P_SYSTEM_OPTION_ID IN NUMBER,
61 P_SR_AGENT_SECURITY IN VARCHAR2,
62 P_SS_SRTYPE_RESTRICT IN VARCHAR2,
63 P_LAST_UPDATE_DATE IN DATE,
64 P_LAST_UPDATED_BY IN NUMBER,
65 P_LAST_UPDATE_LOGIN IN NUMBER,
66 P_ATTRIBUTE1 IN VARCHAR2,
67 P_ATTRIBUTE2 IN VARCHAR2,
68 P_ATTRIBUTE3 IN VARCHAR2,
69 P_ATTRIBUTE4 IN VARCHAR2,
70 P_ATTRIBUTE5 IN VARCHAR2,
71 P_ATTRIBUTE6 IN VARCHAR2,
72 P_ATTRIBUTE7 IN VARCHAR2,
73 P_ATTRIBUTE8 IN VARCHAR2,
74 P_ATTRIBUTE9 IN VARCHAR2,
75 P_ATTRIBUTE10 IN VARCHAR2,
76 P_ATTRIBUTE11 IN VARCHAR2,
77 P_ATTRIBUTE12 IN VARCHAR2,
78 P_ATTRIBUTE13 IN VARCHAR2,
79 P_ATTRIBUTE14 IN VARCHAR2,
80 P_ATTRIBUTE15 IN VARCHAR2,
81 P_ATTRIBUTE_CATEGORY IN VARCHAR2,
82 P_OBJECT_VERSION_NUMBER IN NUMBER )
83 IS
84 BEGIN
85 UPDATE CS_SYSTEM_OPTIONS set
86 SR_AGENT_SECURITY = P_SR_AGENT_SECURITY,
87 SS_SRTYPE_RESTRICT = P_SS_SRTYPE_RESTRICT,
88 LAST_UPDATE_DATE = P_LAST_UPDATE_DATE,
89 LAST_UPDATED_BY = P_LAST_UPDATED_BY,
90 LAST_UPDATE_LOGIN = P_LAST_UPDATE_LOGIN,
91 ATTRIBUTE1 = P_ATTRIBUTE1,
92 ATTRIBUTE2 = P_ATTRIBUTE2,
93 ATTRIBUTE3 = P_ATTRIBUTE3,
94 ATTRIBUTE4 = P_ATTRIBUTE4,
95 ATTRIBUTE5 = P_ATTRIBUTE5,
96 ATTRIBUTE6 = P_ATTRIBUTE6,
97 ATTRIBUTE7 = P_ATTRIBUTE7,
98 ATTRIBUTE8 = P_ATTRIBUTE8,
99 ATTRIBUTE9 = P_ATTRIBUTE9,
100 ATTRIBUTE10 = P_ATTRIBUTE10,
101 ATTRIBUTE11 = P_ATTRIBUTE11,
102 ATTRIBUTE12 = P_ATTRIBUTE12,
103 ATTRIBUTE13 = P_ATTRIBUTE13,
104 ATTRIBUTE14 = P_ATTRIBUTE14,
105 ATTRIBUTE15 = P_ATTRIBUTE15,
106 ATTRIBUTE_CATEGORY = P_ATTRIBUTE_CATEGORY,
107 OBJECT_VERSION_NUMBER = P_OBJECT_VERSION_NUMBER
108 WHERE SYSTEM_OPTION_ID = P_SYSTEM_OPTION_ID;
109
110 if (sql%notfound) then
111 raise no_data_found;
112 end if;
113
114 END UPDATE_ROW;
115
116
117 PROCEDURE DELETE_ROW (
118 P_SYSTEM_OPTION_ID IN NUMBER )
119 IS
120 BEGIN
121 delete from CS_SYSTEM_OPTIONS
122 where SYSTEM_OPTION_ID = P_SYSTEM_OPTION_ID;
123
124 if (sql%notfound) then
125 raise no_data_found;
126 end if;
127
128 END DELETE_ROW;
129
130
131 PROCEDURE LOCK_ROW (
132 P_SYSTEM_OPTION_ID IN NUMBER,
133 P_OBJECT_VERSION_NUMBER IN NUMBER)
134 IS
135 cursor c1 is
136 select 1
137 from cs_system_options
138 where SYSTEM_OPTION_ID = p_system_option_id
139 and object_version_number = p_object_version_number
140 for update of system_option_id nowait;
141
142 l_dummy NUMBER := 0;
143
144 BEGIN
145 open c1;
146 fetch c1 into l_dummy;
147
148 if ( c1%NOTFOUND ) then
149 close c1;
150 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
151 app_exception.raise_exception;
152 end if;
153
154 close c1;
155
156 END LOCK_ROW;
157
158
159 PROCEDURE LOAD_ROW (
160 P_SYSTEM_OPTION_ID IN NUMBER,
161 P_SR_AGENT_SECURITY IN VARCHAR2,
162 P_SS_SRTYPE_RESTRICT IN VARCHAR2,
163 P_CREATION_DATE IN VARCHAR2,
164 P_CREATED_BY IN NUMBER,
165 P_LAST_UPDATE_DATE IN VARCHAR2,
166 P_LAST_UPDATED_BY IN NUMBER,
167 P_LAST_UPDATE_LOGIN IN NUMBER,
168 P_OWNER IN VARCHAR2,
169 P_ATTRIBUTE1 IN VARCHAR2,
170 P_ATTRIBUTE2 IN VARCHAR2,
171 P_ATTRIBUTE3 IN VARCHAR2,
172 P_ATTRIBUTE4 IN VARCHAR2,
173 P_ATTRIBUTE5 IN VARCHAR2,
174 P_ATTRIBUTE6 IN VARCHAR2,
175 P_ATTRIBUTE7 IN VARCHAR2,
176 P_ATTRIBUTE8 IN VARCHAR2,
177 P_ATTRIBUTE9 IN VARCHAR2,
178 P_ATTRIBUTE10 IN VARCHAR2,
179 P_ATTRIBUTE11 IN VARCHAR2,
180 P_ATTRIBUTE12 IN VARCHAR2,
181 P_ATTRIBUTE13 IN VARCHAR2,
182 P_ATTRIBUTE14 IN VARCHAR2,
183 P_ATTRIBUTE15 IN VARCHAR2,
184 P_ATTRIBUTE_CATEGORY IN VARCHAR2,
185 P_OBJECT_VERSION_NUMBER IN NUMBER )
186 IS
187
188 l_user_id NUMBER := 0;
189
190 BEGIN
191 if ( p_owner = 'SEED' ) then
192 l_user_id := 1;
193 end if;
194
195 UPDATE_ROW (
196 P_SYSTEM_OPTION_ID => p_system_option_id,
197 P_SR_AGENT_SECURITY => p_sr_agent_security,
198 P_SS_SRTYPE_RESTRICT => p_ss_srtype_restrict,
199 P_LAST_UPDATE_DATE => nvl(to_date(p_last_update_date, 'DD-MM-YYYY'), sysdate),
200 P_LAST_UPDATED_BY => l_user_id,
201 P_LAST_UPDATE_LOGIN => 0,
202 P_ATTRIBUTE1 => p_attribute1,
203 P_ATTRIBUTE2 => p_attribute2,
204 P_ATTRIBUTE3 => p_attribute3,
205 P_ATTRIBUTE4 => p_attribute4,
206 P_ATTRIBUTE5 => p_attribute5,
207 P_ATTRIBUTE6 => p_attribute6,
208 P_ATTRIBUTE7 => p_attribute7,
209 P_ATTRIBUTE8 => p_attribute8,
210 P_ATTRIBUTE9 => p_attribute9,
211 P_ATTRIBUTE10 => p_attribute10,
212 P_ATTRIBUTE11 => p_attribute11,
213 P_ATTRIBUTE12 => p_attribute12,
214 P_ATTRIBUTE13 => p_attribute13,
215 P_ATTRIBUTE14 => p_attribute14,
216 P_ATTRIBUTE15 => p_attribute15,
217 P_ATTRIBUTE_CATEGORY => p_attribute_category,
218 P_OBJECT_VERSION_NUMBER => p_object_version_number );
219
220 EXCEPTION
221 WHEN NO_DATA_FOUND THEN
222 INSERT_ROW (
223 P_SYSTEM_OPTION_ID => p_system_option_id,
224 P_SR_AGENT_SECURITY => p_sr_agent_security,
225 P_SS_SRTYPE_RESTRICT => p_ss_srtype_restrict,
226 P_CREATION_DATE => nvl(to_date(p_creation_date, 'DD-MM-YYYY'), sysdate),
227 P_CREATED_BY => l_user_id,
228 P_LAST_UPDATE_DATE => nvl(to_date(p_last_update_date, 'DD-MM-YYYY'), sysdate),
229 P_LAST_UPDATED_BY => l_user_id,
230 P_LAST_UPDATE_LOGIN => 0,
231 P_ATTRIBUTE1 => p_attribute1,
232 P_ATTRIBUTE2 => p_attribute2,
233 P_ATTRIBUTE3 => p_attribute3,
234 P_ATTRIBUTE4 => p_attribute4,
235 P_ATTRIBUTE5 => p_attribute5,
236 P_ATTRIBUTE6 => p_attribute6,
237 P_ATTRIBUTE7 => p_attribute7,
238 P_ATTRIBUTE8 => p_attribute8,
239 P_ATTRIBUTE9 => p_attribute9,
240 P_ATTRIBUTE10 => p_attribute10,
241 P_ATTRIBUTE11 => p_attribute11,
242 P_ATTRIBUTE12 => p_attribute12,
243 P_ATTRIBUTE13 => p_attribute13,
244 P_ATTRIBUTE14 => p_attribute14,
245 P_ATTRIBUTE15 => p_attribute15,
246 P_ATTRIBUTE_CATEGORY => p_attribute_category,
247 P_OBJECT_VERSION_NUMBER => p_object_version_number );
248
249 END LOAD_ROW;
250
251
252 END CS_SYSTEM_OPTIONS_PKG;