[Home] [Help]
PACKAGE BODY: APPS.AMS_CTD_PARAM_VALUES_PKG
Source
1 PACKAGE BODY AMS_CTD_PARAM_VALUES_PKG as
2 /* $Header: amstcpvb.pls 120.0 2005/07/01 03:59:46 appldev noship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- AMS_CTD_PARAM_VALUES_PKG
7 -- Purpose
8 --
9 -- History
10 --
11 -- NOTE
12 --
13 -- End of Comments
14 -- ===============================================================
15
16
17 G_PKG_NAME CONSTANT VARCHAR2(30):= 'AMS_CTD_PARAM_VALUES_PKG';
18 G_FILE_NAME CONSTANT VARCHAR2(12) := 'amstcpvb.pls';
19
20
21 ----------------------------------------------------------
22 ---- MEDIA ----
23 ----------------------------------------------------------
24
25 -- ========================================================
26 --
27 -- NAME
28 -- createInsertBody
29 --
30 -- PURPOSE
31 --
32 -- NOTES
33 --
34 -- HISTORY
35 --
36 -- ========================================================
37 PROCEDURE Insert_Row(
38 px_action_param_value_id IN OUT NOCOPY NUMBER,
39 p_action_param_value VARCHAR2,
40 p_ctd_id NUMBER,
41 p_action_param_id NUMBER,
42 px_object_version_number IN OUT NOCOPY NUMBER,
43 p_last_update_date DATE,
44 p_last_updated_by NUMBER,
45 p_last_update_login NUMBER,
46 p_creation_date DATE,
47 p_created_by NUMBER,
48 p_security_group_id NUMBER)
49
50 IS
51 x_rowid VARCHAR2(30);
52
53
54 BEGIN
55
56
57 px_object_version_number := 1;
58
59
60 INSERT INTO AMS_CTD_PARAM_VALUES(
61 action_param_value_id,
62 action_param_value,
63 ctd_id,
64 action_param_id,
65 object_version_number,
66 last_update_date,
67 last_updated_by,
68 last_update_login,
69 creation_date,
70 created_by,
71 security_group_id
72 ) VALUES (
73 DECODE( px_action_param_value_id, FND_API.g_miss_num, NULL, px_action_param_value_id),
74 DECODE( p_action_param_value, FND_API.g_miss_char, NULL, p_action_param_value),
75 DECODE( p_ctd_id, FND_API.g_miss_num, NULL, p_ctd_id),
76 DECODE( p_action_param_id, FND_API.g_miss_num, NULL, p_action_param_id),
77 DECODE( px_object_version_number, FND_API.g_miss_num, NULL, px_object_version_number),
78 DECODE( p_last_update_date, FND_API.g_miss_date, NULL, p_last_update_date),
79 DECODE( p_last_updated_by, FND_API.g_miss_num, NULL, p_last_updated_by),
80 DECODE( p_last_update_login, FND_API.g_miss_num, NULL, p_last_update_login),
81 DECODE( p_creation_date, FND_API.g_miss_date, NULL, p_creation_date),
82 DECODE( p_created_by, FND_API.g_miss_num, NULL, p_created_by),
83 DECODE( p_security_group_id, FND_API.g_miss_num, NULL, p_security_group_id));
84 END Insert_Row;
85
86
87 ----------------------------------------------------------
88 ---- MEDIA ----
89 ----------------------------------------------------------
90
91 -- ========================================================
92 --
93 -- NAME
94 -- createUpdateBody
95 --
96 -- PURPOSE
97 --
98 -- NOTES
99 --
100 -- HISTORY
101 --
102 -- ========================================================
103 PROCEDURE Update_Row(
104 p_action_param_value_id NUMBER,
105 p_action_param_value VARCHAR2,
106 p_ctd_id NUMBER,
107 p_action_param_id NUMBER,
108 p_object_version_number NUMBER,
109 p_last_update_date DATE,
110 p_last_updated_by NUMBER,
111 p_last_update_login NUMBER,
112 p_creation_date DATE,
113 p_created_by NUMBER,
114 p_security_group_id NUMBER)
115
116 IS
117 BEGIN
118 Update AMS_CTD_PARAM_VALUES
119 SET
120 action_param_value_id = DECODE( p_action_param_value_id, FND_API.g_miss_num, action_param_value_id, p_action_param_value_id),
121 action_param_value = DECODE( p_action_param_value, FND_API.g_miss_char, action_param_value, p_action_param_value),
122 ctd_id = DECODE( p_ctd_id, FND_API.g_miss_num, ctd_id, p_ctd_id),
123 action_param_id = DECODE( p_action_param_id, FND_API.g_miss_num, action_param_id, p_action_param_id),
124 object_version_number = DECODE( p_object_version_number, FND_API.g_miss_num, object_version_number, p_object_version_number),
125 last_update_date = DECODE( p_last_update_date, FND_API.g_miss_date, last_update_date, p_last_update_date),
126 last_updated_by = DECODE( p_last_updated_by, FND_API.g_miss_num, last_updated_by, p_last_updated_by),
127 last_update_login = DECODE( p_last_update_login, FND_API.g_miss_num, last_update_login, p_last_update_login),
128 creation_date = DECODE( p_creation_date, FND_API.g_miss_date, creation_date, p_creation_date),
129 created_by = DECODE( p_created_by, FND_API.g_miss_num, created_by, p_created_by),
130 security_group_id = DECODE( p_security_group_id, FND_API.g_miss_num, security_group_id, p_security_group_id)
131 WHERE ACTION_PARAM_VALUE_ID = p_ACTION_PARAM_VALUE_ID
132 AND object_version_number = p_object_version_number;
133
134 IF (SQL%NOTFOUND) THEN
135 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
136 END IF;
137 END Update_Row;
138
139
140 ----------------------------------------------------------
141 ---- MEDIA ----
142 ----------------------------------------------------------
143
144 -- ========================================================
145 --
146 -- NAME
147 -- createDeleteBody
148 --
149 -- PURPOSE
150 --
151 -- NOTES
152 --
153 -- HISTORY
154 --
155 -- ========================================================
156 PROCEDURE Delete_Row(
157 p_ACTION_PARAM_VALUE_ID NUMBER)
158 IS
159 BEGIN
160 DELETE FROM AMS_CTD_PARAM_VALUES
161 WHERE ACTION_PARAM_VALUE_ID = p_ACTION_PARAM_VALUE_ID;
162 If (SQL%NOTFOUND) then
163 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
164 End If;
165 END Delete_Row ;
166
167
168
169 ----------------------------------------------------------
170 ---- MEDIA ----
171 ----------------------------------------------------------
172
173 -- ========================================================
174 --
175 -- NAME
176 -- createLockBody
177 --
178 -- PURPOSE
179 --
180 -- NOTES
181 --
182 -- HISTORY
183 --
184 -- ========================================================
185 PROCEDURE Lock_Row(
186 p_action_param_value_id NUMBER,
187 p_action_param_value VARCHAR2,
188 p_ctd_id NUMBER,
189 p_action_param_id NUMBER,
190 p_object_version_number NUMBER,
191 p_last_update_date DATE,
192 p_last_updated_by NUMBER,
193 p_last_update_login NUMBER,
194 p_creation_date DATE,
195 p_created_by NUMBER,
196 p_security_group_id NUMBER)
197
198 IS
199 CURSOR C IS
200 SELECT *
201 FROM AMS_CTD_PARAM_VALUES
202 WHERE ACTION_PARAM_VALUE_ID = p_ACTION_PARAM_VALUE_ID
203 FOR UPDATE of ACTION_PARAM_VALUE_ID NOWAIT;
204 Recinfo C%ROWTYPE;
205 BEGIN
206 OPEN c;
207 FETCH c INTO Recinfo;
208 If (c%NOTFOUND) then
209 CLOSE c;
210 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
211 APP_EXCEPTION.RAISE_EXCEPTION;
212 END IF;
213 CLOSE C;
214 IF (
215 ( Recinfo.action_param_value_id = p_action_param_value_id)
216 AND ( ( Recinfo.action_param_value = p_action_param_value)
217 OR ( ( Recinfo.action_param_value IS NULL )
218 AND ( p_action_param_value IS NULL )))
219 AND ( ( Recinfo.ctd_id = p_ctd_id)
220 OR ( ( Recinfo.ctd_id IS NULL )
221 AND ( p_ctd_id IS NULL )))
222 AND ( ( Recinfo.action_param_id = p_action_param_id)
223 OR ( ( Recinfo.action_param_id IS NULL )
224 AND ( p_action_param_id IS NULL )))
225 AND ( ( Recinfo.object_version_number = p_object_version_number)
226 OR ( ( Recinfo.object_version_number IS NULL )
227 AND ( p_object_version_number IS NULL )))
228 AND ( ( Recinfo.last_update_date = p_last_update_date)
229 OR ( ( Recinfo.last_update_date IS NULL )
230 AND ( p_last_update_date IS NULL )))
231 AND ( ( Recinfo.last_updated_by = p_last_updated_by)
232 OR ( ( Recinfo.last_updated_by IS NULL )
233 AND ( p_last_updated_by IS NULL )))
234 AND ( ( Recinfo.last_update_login = p_last_update_login)
235 OR ( ( Recinfo.last_update_login IS NULL )
236 AND ( p_last_update_login IS NULL )))
237 AND ( ( Recinfo.creation_date = p_creation_date)
238 OR ( ( Recinfo.creation_date IS NULL )
239 AND ( p_creation_date IS NULL )))
240 AND ( ( Recinfo.created_by = p_created_by)
241 OR ( ( Recinfo.created_by IS NULL )
242 AND ( p_created_by IS NULL )))
243 AND ( ( Recinfo.security_group_id = p_security_group_id)
244 OR ( ( Recinfo.security_group_id IS NULL )
245 AND ( p_security_group_id IS NULL )))
246 ) THEN
247 RETURN;
248 ELSE
249 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
250 APP_EXCEPTION.RAISE_EXCEPTION;
251 END IF;
252 END Lock_Row;
253
254 END AMS_CTD_PARAM_VALUES_PKG;