[Home] [Help]
PACKAGE BODY: APPS.OZF_OFFER_ADJUSTMENTS_PKG
Source
1 PACKAGE BODY OZF_OFFER_ADJUSTMENTS_PKG as
2 /* $Header: ozftobdb.pls 120.0 2005/06/01 01:50:27 appldev noship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- OZF_OFFER_ADJUSTMENTS_PKG
7 -- Purpose
8 --
9 -- History
10 -- 11-DEC-2002 julou change ams_offer_adjustments to ozf_offer_adjustments_b
11 -- NOTE
12 --
13 -- End of Comments
14 -- ===============================================================
15
16
17 G_PKG_NAME CONSTANT VARCHAR2(30):= 'OZF_OFFER_ADJUSTMENTS_PKG';
18 G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozftobdb.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_offer_adjustment_id IN OUT NOCOPY NUMBER,
39 p_effective_date DATE,
40 p_approved_date DATE,
41 p_settlement_code VARCHAR2,
42 p_status_code VARCHAR2,
43 p_list_header_id NUMBER,
44 p_version NUMBER,
45 p_budget_adjusted_flag VARCHAR2,
46 p_comments VARCHAR2,
47 p_last_update_date DATE,
48 p_last_updated_by NUMBER,
49 p_creation_date DATE,
50 p_created_by NUMBER,
51 p_last_update_login NUMBER,
52 px_object_version_number IN OUT NOCOPY NUMBER,
53 p_security_group_id NUMBER)
54
55 IS
56 x_rowid VARCHAR2(30);
57
58
59 BEGIN
60
61
62 px_object_version_number := 1;
63
64
65 INSERT INTO ozf_OFFER_ADJUSTMENTS_B(
66 offer_adjustment_id,
67 effective_date,
68 approved_date,
69 settlement_code,
70 status_code,
71 list_header_id,
72 version,
73 budget_adjusted_flag,
74 comments,
75 last_update_date,
76 last_updated_by,
77 creation_date,
78 created_by,
79 last_update_login,
80 object_version_number,
81 security_group_id
82 ) VALUES (
83 DECODE( px_offer_adjustment_id, FND_API.g_miss_num, NULL, px_offer_adjustment_id),
84 DECODE( p_effective_date, FND_API.g_miss_date, to_date(NULL), p_effective_date),
85 DECODE( p_approved_date, FND_API.g_miss_date, to_date(NULL), p_approved_date),
86 DECODE( p_settlement_code, FND_API.g_miss_char, NULL, p_settlement_code),
87 DECODE( p_status_code, FND_API.g_miss_char, NULL, p_status_code),
88 DECODE( p_list_header_id, FND_API.g_miss_num, NULL, p_list_header_id),
89 DECODE( p_version, FND_API.g_miss_num, NULL, p_version),
90 DECODE( p_budget_adjusted_flag, FND_API.g_miss_char, NULL, p_budget_adjusted_flag),
91 DECODE( p_comments, FND_API.g_miss_char, NULL, p_comments),
92 DECODE( p_last_update_date, FND_API.g_miss_date, to_date(NULL), p_last_update_date),
93 DECODE( p_last_updated_by, FND_API.g_miss_num, NULL, p_last_updated_by),
94 DECODE( p_creation_date, FND_API.g_miss_date, to_date(NULL), p_creation_date),
95 DECODE( p_created_by, FND_API.g_miss_num, NULL, p_created_by),
96 DECODE( p_last_update_login, FND_API.g_miss_num, NULL, p_last_update_login),
97 DECODE( px_object_version_number, FND_API.g_miss_num, NULL, px_object_version_number),
98 DECODE( p_security_group_id, FND_API.g_miss_num, NULL, p_security_group_id));
99 END Insert_Row;
100
101
102 ----------------------------------------------------------
103 ---- MEDIA ----
104 ----------------------------------------------------------
105
106 -- ========================================================
107 --
108 -- NAME
109 -- createUpdateBody
110 --
111 -- PURPOSE
112 --
113 -- NOTES
114 --
115 -- HISTORY
116 --
117 -- ========================================================
118 PROCEDURE Update_Row(
119 p_offer_adjustment_id NUMBER,
120 p_effective_date DATE,
121 p_approved_date DATE,
122 p_settlement_code VARCHAR2,
123 p_status_code VARCHAR2,
124 p_list_header_id NUMBER,
125 p_version NUMBER,
126 p_budget_adjusted_flag VARCHAR2,
127 p_comments VARCHAR2,
128 p_last_update_date DATE,
129 p_last_updated_by NUMBER,
130 p_last_update_login NUMBER,
131 p_object_version_number NUMBER,
132 p_security_group_id NUMBER)
133
134 IS
135 BEGIN
136 Update ozf_OFFER_ADJUSTMENTS_B
137 SET
138 offer_adjustment_id = DECODE( p_offer_adjustment_id, FND_API.g_miss_num, offer_adjustment_id, p_offer_adjustment_id),
139 effective_date = DECODE( p_effective_date, FND_API.g_miss_date, effective_date, p_effective_date),
140 approved_date = DECODE( p_approved_date, FND_API.g_miss_date, approved_date, p_approved_date),
141 settlement_code = DECODE( p_settlement_code, FND_API.g_miss_char, settlement_code, p_settlement_code),
142 status_code = DECODE( p_status_code, FND_API.g_miss_char, status_code, p_status_code),
143 list_header_id = DECODE( p_list_header_id, FND_API.g_miss_num, list_header_id, p_list_header_id),
144 version = DECODE( p_version, FND_API.g_miss_num, version, p_version),
145 budget_adjusted_flag = DECODE( p_budget_adjusted_flag, FND_API.g_miss_char, budget_adjusted_flag, p_budget_adjusted_flag),
146 comments = DECODE( p_comments, FND_API.g_miss_char, comments, p_comments),
147 last_update_date = DECODE( p_last_update_date, FND_API.g_miss_date, last_update_date, p_last_update_date),
148 last_updated_by = DECODE( p_last_updated_by, FND_API.g_miss_num, last_updated_by, p_last_updated_by),
149 last_update_login = DECODE( p_last_update_login, FND_API.g_miss_num, last_update_login, p_last_update_login),
150 object_version_number = DECODE( p_object_version_number, FND_API.g_miss_num, object_version_number, p_object_version_number),
151 security_group_id = DECODE( p_security_group_id, FND_API.g_miss_num, security_group_id, p_security_group_id)
152 WHERE OFFER_ADJUSTMENT_ID = p_OFFER_ADJUSTMENT_ID
153 AND object_version_number = p_object_version_number;
154
155 IF (SQL%NOTFOUND) THEN
156 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
157 END IF;
158 END Update_Row;
159
160
161 ----------------------------------------------------------
162 ---- MEDIA ----
163 ----------------------------------------------------------
164
165 -- ========================================================
166 --
167 -- NAME
168 -- createDeleteBody
169 --
170 -- PURPOSE
171 --
172 -- NOTES
173 --
174 -- HISTORY
175 --
176 -- ========================================================
177 PROCEDURE Delete_Row(
178 p_OFFER_ADJUSTMENT_ID NUMBER)
179 IS
180 BEGIN
181 DELETE FROM ozf_OFFER_ADJUSTMENTS_B
182 WHERE OFFER_ADJUSTMENT_ID = p_OFFER_ADJUSTMENT_ID;
183 If (SQL%NOTFOUND) then
184 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
185 End If;
186 END Delete_Row ;
187
188
189
190 ----------------------------------------------------------
191 ---- MEDIA ----
192 ----------------------------------------------------------
193
194 -- ========================================================
195 --
196 -- NAME
197 -- createLockBody
198 --
199 -- PURPOSE
200 --
201 -- NOTES
202 --
203 -- HISTORY
204 --
205 -- ========================================================
206 PROCEDURE Lock_Row(
207 p_offer_adjustment_id NUMBER,
208 p_effective_date DATE,
209 p_approved_date DATE,
210 p_settlement_code VARCHAR2,
211 p_status_code VARCHAR2,
212 p_list_header_id NUMBER,
213 p_version NUMBER,
214 p_budget_adjusted_flag VARCHAR2,
215 p_comments VARCHAR2,
216 p_last_update_date DATE,
217 p_last_updated_by NUMBER,
218 p_creation_date DATE,
219 p_created_by NUMBER,
220 p_last_update_login NUMBER,
221 p_object_version_number NUMBER,
222 p_security_group_id NUMBER)
223
224 IS
225 CURSOR C IS
226 SELECT *
227 FROM ozf_OFFER_ADJUSTMENTS_B
228 WHERE OFFER_ADJUSTMENT_ID = p_OFFER_ADJUSTMENT_ID
229 FOR UPDATE of OFFER_ADJUSTMENT_ID NOWAIT;
230 Recinfo C%ROWTYPE;
231 BEGIN
232 OPEN c;
233 FETCH c INTO Recinfo;
234 If (c%NOTFOUND) then
235 CLOSE c;
236 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
237 APP_EXCEPTION.RAISE_EXCEPTION;
238 END IF;
239 CLOSE C;
240 IF (
241 ( Recinfo.offer_adjustment_id = p_offer_adjustment_id)
242 AND ( ( Recinfo.effective_date = p_effective_date)
243 OR ( ( Recinfo.effective_date IS NULL )
244 AND ( p_effective_date IS NULL )))
245 AND ( ( Recinfo.approved_date = p_approved_date)
246 OR ( ( Recinfo.approved_date IS NULL )
247 AND ( p_approved_date IS NULL )))
248 AND ( ( Recinfo.settlement_code = p_settlement_code)
249 OR ( ( Recinfo.settlement_code IS NULL )
250 AND ( p_settlement_code IS NULL )))
251 AND ( ( Recinfo.status_code = p_status_code)
252 OR ( ( Recinfo.status_code IS NULL )
253 AND ( p_status_code IS NULL )))
254 AND ( ( Recinfo.list_header_id = p_list_header_id)
255 OR ( ( Recinfo.list_header_id IS NULL )
256 AND ( p_list_header_id IS NULL )))
257 AND ( ( Recinfo.version = p_version)
258 OR ( ( Recinfo.version IS NULL )
259 AND ( p_version IS NULL )))
260 AND ( ( Recinfo.budget_adjusted_flag = p_budget_adjusted_flag)
261 OR ( ( Recinfo.budget_adjusted_flag IS NULL )
262 AND ( p_budget_adjusted_flag IS NULL )))
263 AND ( ( Recinfo.comments = p_comments)
264 OR ( ( Recinfo.comments IS NULL )
265 AND ( p_comments IS NULL )))
266 AND ( ( Recinfo.last_update_date = p_last_update_date)
267 OR ( ( Recinfo.last_update_date IS NULL )
268 AND ( p_last_update_date IS NULL )))
269 AND ( ( Recinfo.last_updated_by = p_last_updated_by)
270 OR ( ( Recinfo.last_updated_by IS NULL )
271 AND ( p_last_updated_by IS NULL )))
272 AND ( ( Recinfo.creation_date = p_creation_date)
273 OR ( ( Recinfo.creation_date IS NULL )
274 AND ( p_creation_date IS NULL )))
275 AND ( ( Recinfo.created_by = p_created_by)
276 OR ( ( Recinfo.created_by IS NULL )
277 AND ( p_created_by IS NULL )))
278 AND ( ( Recinfo.last_update_login = p_last_update_login)
279 OR ( ( Recinfo.last_update_login IS NULL )
280 AND ( p_last_update_login IS NULL )))
281 AND ( ( Recinfo.object_version_number = p_object_version_number)
282 OR ( ( Recinfo.object_version_number IS NULL )
283 AND ( p_object_version_number IS NULL )))
284 AND ( ( Recinfo.security_group_id = p_security_group_id)
285 OR ( ( Recinfo.security_group_id IS NULL )
286 AND ( p_security_group_id IS NULL )))
287 ) THEN
288 RETURN;
289 ELSE
290 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
291 APP_EXCEPTION.RAISE_EXCEPTION;
292 END IF;
293 END Lock_Row;
294
295 END ozf_OFFER_ADJUSTMENTS_PKG;