[Home] [Help]
PACKAGE BODY: APPS.OZF_RELATED_DEAL_LINES_PKG
Source
1 PACKAGE BODY OZF_RELATED_DEAL_LINES_PKG as
2 /* $Header: ozftordb.pls 120.0 2005/06/01 02:58:49 appldev noship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- OZF_RELATED_DEAL_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_RELATED_DEAL_LINES_PKG';
18 G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozftordb.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_related_deal_lines_id IN OUT NOCOPY NUMBER,
39 p_modifier_id NUMBER,
40 p_related_modifier_id NUMBER,
41 p_last_update_date DATE,
42 p_last_updated_by NUMBER,
43 p_creation_date DATE,
44 p_created_by NUMBER,
45 p_last_update_login NUMBER,
46 px_object_version_number IN OUT NOCOPY NUMBER,
47 --p_security_group_id NUMBER,
48 p_estimated_qty_is_max VARCHAR2,
49 p_estimated_amount_is_max VARCHAR2,
50 p_estimated_qty NUMBER,
51 p_estimated_amount NUMBER,
52 p_qp_list_header_id NUMBER,
53 p_estimate_qty_uom VARCHAR2)
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_RELATED_DEAL_LINES(
66 related_deal_lines_id,
67 modifier_id,
68 related_modifier_id,
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 estimated_qty_is_max,
77 estimated_amount_is_max,
78 estimated_qty,
79 estimated_amount,
80 qp_list_header_id,
81 estimate_qty_uom
82 ) VALUES (
83 DECODE( px_related_deal_lines_id, FND_API.g_miss_num, NULL, px_related_deal_lines_id),
84 DECODE( p_modifier_id, FND_API.g_miss_num, NULL, p_modifier_id),
85 DECODE( p_related_modifier_id, FND_API.g_miss_num, NULL, p_related_modifier_id),
86 DECODE( p_last_update_date, FND_API.g_miss_date, to_date(NULL), p_last_update_date),
87 DECODE( p_last_updated_by, FND_API.g_miss_num, NULL, p_last_updated_by),
88 DECODE( p_creation_date, FND_API.g_miss_date, to_date(NULL), p_creation_date),
89 DECODE( p_created_by, FND_API.g_miss_num, NULL, p_created_by),
90 DECODE( p_last_update_login, FND_API.g_miss_num, NULL, p_last_update_login),
91 DECODE( px_object_version_number, FND_API.g_miss_num, NULL, px_object_version_number),
92 --DECODE( p_security_group_id, FND_API.g_miss_num, NULL, p_security_group_id),
93 DECODE( p_estimated_qty_is_max, FND_API.g_miss_char, NULL, p_estimated_qty_is_max),
94 DECODE( p_estimated_amount_is_max, FND_API.g_miss_char, NULL, p_estimated_amount_is_max),
95 DECODE( p_estimated_qty, FND_API.g_miss_num, NULL, p_estimated_qty),
96 DECODE( p_estimated_amount, FND_API.g_miss_num, NULL, p_estimated_amount),
97 DECODE( p_qp_list_header_id, FND_API.g_miss_num, NULL, p_qp_list_header_id),
98 DECODE( p_estimate_qty_uom, FND_API.g_miss_char, NULL, p_estimate_qty_uom));
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_related_deal_lines_id NUMBER,
120 p_modifier_id NUMBER,
121 p_related_modifier_id NUMBER,
122 p_last_update_date DATE,
123 p_last_updated_by NUMBER,
124 p_last_update_login NUMBER,
125 p_object_version_number NUMBER,
126 --p_security_group_id NUMBER,
127 p_estimated_qty_is_max VARCHAR2,
128 p_estimated_amount_is_max VARCHAR2,
129 p_estimated_qty NUMBER,
130 p_estimated_amount NUMBER,
131 p_qp_list_header_id NUMBER,
132 p_estimate_qty_uom VARCHAR2)
133
134 IS
135 BEGIN
136 Update OZF_RELATED_DEAL_LINES
137 SET
138 related_deal_lines_id = DECODE( p_related_deal_lines_id, FND_API.g_miss_num, related_deal_lines_id, p_related_deal_lines_id),
139 modifier_id = DECODE( p_modifier_id, FND_API.g_miss_num, modifier_id, p_modifier_id),
140 related_modifier_id = DECODE( p_related_modifier_id, FND_API.g_miss_num, related_modifier_id, p_related_modifier_id),
141 last_update_date = DECODE( p_last_update_date, FND_API.g_miss_date, last_update_date, p_last_update_date),
142 last_updated_by = DECODE( p_last_updated_by, FND_API.g_miss_num, last_updated_by, p_last_updated_by),
143 last_update_login = DECODE( p_last_update_login, FND_API.g_miss_num, last_update_login, p_last_update_login),
144 object_version_number = DECODE( p_object_version_number, FND_API.g_miss_num, object_version_number, p_object_version_number),
145 --security_group_id = DECODE( p_security_group_id, FND_API.g_miss_num, security_group_id, p_security_group_id),
146 estimated_qty_is_max = DECODE( p_estimated_qty_is_max, FND_API.g_miss_char, estimated_qty_is_max, p_estimated_qty_is_max),
147 estimated_amount_is_max = DECODE( p_estimated_amount_is_max, FND_API.g_miss_char, estimated_amount_is_max, p_estimated_amount_is_max),
148 estimated_qty = DECODE( p_estimated_qty, FND_API.g_miss_num, estimated_qty, p_estimated_qty),
149 estimated_amount = DECODE( p_estimated_amount, FND_API.g_miss_num, estimated_amount, p_estimated_amount),
150 qp_list_header_id = DECODE( p_qp_list_header_id, FND_API.g_miss_num, qp_list_header_id, p_qp_list_header_id),
151 estimate_qty_uom = DECODE( p_estimate_qty_uom, FND_API.g_miss_char, estimate_qty_uom, p_estimate_qty_uom)
152 WHERE RELATED_DEAL_LINES_ID = p_RELATED_DEAL_LINES_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_RELATED_DEAL_LINES_ID NUMBER)
179 IS
180 BEGIN
181 DELETE FROM OZF_RELATED_DEAL_LINES
182 WHERE RELATED_DEAL_LINES_ID = p_RELATED_DEAL_LINES_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_related_deal_lines_id NUMBER,
208 p_modifier_id NUMBER,
209 p_related_modifier_id NUMBER,
210 p_last_update_date DATE,
211 p_last_updated_by NUMBER,
212 p_creation_date DATE,
213 p_created_by NUMBER,
214 p_last_update_login NUMBER,
215 p_object_version_number NUMBER,
216 --p_security_group_id NUMBER,
217 p_estimated_qty_is_max VARCHAR2,
218 p_estimated_amount_is_max VARCHAR2,
219 p_estimated_qty NUMBER,
220 p_estimated_amount NUMBER,
221 p_qp_list_header_id NUMBER,
222 p_estimate_qty_uom VARCHAR2)
223
224 IS
225 CURSOR C IS
226 SELECT *
227 FROM OZF_RELATED_DEAL_LINES
228 WHERE RELATED_DEAL_LINES_ID = p_RELATED_DEAL_LINES_ID
229 FOR UPDATE of RELATED_DEAL_LINES_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.related_deal_lines_id = p_related_deal_lines_id)
242 AND ( ( Recinfo.modifier_id = p_modifier_id)
243 OR ( ( Recinfo.modifier_id IS NULL )
244 AND ( p_modifier_id IS NULL )))
245 AND ( ( Recinfo.related_modifier_id = p_related_modifier_id)
246 OR ( ( Recinfo.related_modifier_id IS NULL )
247 AND ( p_related_modifier_id IS NULL )))
248 AND ( ( Recinfo.last_update_date = p_last_update_date)
249 OR ( ( Recinfo.last_update_date IS NULL )
250 AND ( p_last_update_date IS NULL )))
251 AND ( ( Recinfo.last_updated_by = p_last_updated_by)
252 OR ( ( Recinfo.last_updated_by IS NULL )
253 AND ( p_last_updated_by IS NULL )))
254 AND ( ( Recinfo.creation_date = p_creation_date)
255 OR ( ( Recinfo.creation_date IS NULL )
256 AND ( p_creation_date IS NULL )))
257 AND ( ( Recinfo.created_by = p_created_by)
258 OR ( ( Recinfo.created_by IS NULL )
259 AND ( p_created_by IS NULL )))
260 AND ( ( Recinfo.last_update_login = p_last_update_login)
261 OR ( ( Recinfo.last_update_login IS NULL )
262 AND ( p_last_update_login IS NULL )))
263 AND ( ( Recinfo.object_version_number = p_object_version_number)
264 OR ( ( Recinfo.object_version_number IS NULL )
265 AND ( p_object_version_number IS NULL )))
266 /*AND (
267 ( Recinfo.security_group_id = p_security_group_id
268 )
269 OR (
270 ( Recinfo.security_group_id IS NULL
271 )
272 AND ( p_security_group_id IS NULL
273 )
274 )
275 )
276 */
277 AND ( ( Recinfo.estimated_qty_is_max = p_estimated_qty_is_max)
278 OR ( ( Recinfo.estimated_qty_is_max IS NULL )
279 AND ( p_estimated_qty_is_max IS NULL )))
280 AND ( ( Recinfo.estimated_amount_is_max = p_estimated_amount_is_max)
281 OR ( ( Recinfo.estimated_amount_is_max IS NULL )
282 AND ( p_estimated_amount_is_max IS NULL )))
283 AND ( ( Recinfo.estimated_qty = p_estimated_qty)
284 OR ( ( Recinfo.estimated_qty IS NULL )
285 AND ( p_estimated_qty IS NULL )))
286 AND ( ( Recinfo.estimated_amount = p_estimated_amount)
287 OR ( ( Recinfo.estimated_amount IS NULL )
288 AND ( p_estimated_amount IS NULL )))
289 AND ( ( Recinfo.qp_list_header_id = p_qp_list_header_id)
290 OR ( ( Recinfo.qp_list_header_id IS NULL )
291 AND ( p_qp_list_header_id IS NULL )))
292 AND ( ( Recinfo.estimate_qty_uom = p_estimate_qty_uom)
293 OR ( ( Recinfo.estimate_qty_uom IS NULL )
294 AND ( p_estimate_qty_uom IS NULL )))
295 ) THEN
296 RETURN;
297 ELSE
298 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
299 APP_EXCEPTION.RAISE_EXCEPTION;
300 END IF;
301 END Lock_Row;
302
303 END OZF_RELATED_DEAL_LINES_PKG;