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