1 PACKAGE BODY CS_InstalledBase_PUB AS
2 /* $Header: cspibb.pls 120.1 2005/08/29 16:34:31 epajaril noship $ */
3
4 -- ---------------------------------------------------------
5 -- Define global variables
6 -- ---------------------------------------------------------
7 G_PKG_NAME CONSTANT VARCHAR2(30) := 'CS_InstalledBase_PUB';
8 --G_USER CONSTANT VARCHAR2(30) := FND_GLOBAL.USER_ID;
9 -- ---------------------------------------------------------
10
11 -- ---------------------------------------------------------
12 -- Define private procedures (not in package spec)
13 -- ---------------------------------------------------------
14
15 PROCEDURE Record_Split_In_Audit
16 (
17 p_api_version IN NUMBER,
18 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
19 p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
20 p_validation_level IN VARCHAR2 DEFAULT FND_API.G_VALID_LEVEL_FULL,
21 x_return_status OUT NOCOPY VARCHAR2,
22 x_msg_count OUT NOCOPY NUMBER,
23 x_msg_data OUT NOCOPY VARCHAR2,
24 p_split_cp_id IN NUMBER,
25 p_new_cp_id IN NUMBER,
26 p_old_cp_qty IN NUMBER,
27 p_current_cp_qty IN NUMBER,
28 p_reason_code IN VARCHAR2
29 ) IS
30
31 BEGIN
32 null;
33 END Record_Split_In_Audit;
34
35 -- ---------------------------------------------------------
36 -- Define public procedures (which are in package spec)
37 -- ---------------------------------------------------------
38 PROCEDURE Create_Base_Product
39 (
40 p_api_version IN NUMBER,
41 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
42 p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
43 x_return_status OUT NOCOPY VARCHAR2,
44 x_msg_count OUT NOCOPY NUMBER,
45 x_msg_data OUT NOCOPY VARCHAR2,
46 p_cp_rec IN CP_Prod_Rec_Type,
47 p_created_manually_flag IN VARCHAR2 DEFAULT 'N',
48 p_org_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
49 x_cp_id OUT NOCOPY NUMBER,
50 x_object_version_number OUT NOCOPY NUMBER
51 ) IS
52
53 BEGIN
54 null;
55 END Create_Base_Product;
56
57
58 PROCEDURE Record_Shipment_Info
59 (
60 p_api_version IN NUMBER,
61 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
62 p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
63 x_return_status OUT NOCOPY VARCHAR2,
64 x_msg_count OUT NOCOPY NUMBER,
65 x_msg_data OUT NOCOPY VARCHAR2,
66 p_ship_rec IN CP_Ship_Rec_Type,
67 p_org_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
68 x_new_cp_id OUT NOCOPY NUMBER
69 ) IS
70
71 BEGIN
72 null;
73 END Record_Shipment_Info;
74
75
76 PROCEDURE Upgrade_Product
77 (
78 p_api_version IN NUMBER,
79 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
80 p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
81 x_return_status OUT NOCOPY VARCHAR2,
82 x_msg_count OUT NOCOPY NUMBER,
83 x_msg_data OUT NOCOPY VARCHAR2,
84 p_cp_id IN NUMBER,
85 p_old_cp_status_id IN NUMBER,
86 p_cp_rec IN CP_Prod_Rec_Type,
87 p_inherit_contacts IN VARCHAR2 DEFAULT FND_API.G_FALSE,
88 x_new_cp_id OUT NOCOPY NUMBER,
89 p_org_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
90 p_qty_mismatch_ok IN VARCHAR2 DEFAULT FND_API.G_FALSE
91 ) IS
92
93 BEGIN
94 null;
95 END Upgrade_Product;
96
97
98 PROCEDURE Replace_Product
99 (
100 p_api_version IN NUMBER,
101 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
102 p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
103 x_return_status OUT NOCOPY VARCHAR2,
104 x_msg_count OUT NOCOPY NUMBER,
105 x_msg_data OUT NOCOPY VARCHAR2,
106 p_cp_id IN NUMBER,
107 p_old_cp_status_id IN NUMBER,
108 p_cp_rec IN CP_Prod_Rec_Type,
109 p_inherit_contacts IN VARCHAR2 DEFAULT FND_API.G_FALSE,
110 p_upgrade IN VARCHAR2 DEFAULT FND_API.G_FALSE,
111 p_org_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
112 x_new_cp_id OUT NOCOPY NUMBER,
113 p_qty_mismatch_ok IN VARCHAR2 DEFAULT FND_API.G_FALSE
114 ) IS
115
116 BEGIN
117 null;
118 END Replace_Product;
119
120
121 PROCEDURE Update_Product
122 (
123 p_api_version IN NUMBER,
124 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
125 p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
126 x_return_status OUT NOCOPY VARCHAR2,
127 x_msg_count OUT NOCOPY NUMBER,
128 x_msg_data OUT NOCOPY VARCHAR2,
129 p_cp_id IN NUMBER,
130 p_as_of_date IN DATE DEFAULT sysdate,
131 p_cp_rec IN CP_Prod_Rec_Type,
132 p_ship_rec IN CP_Ship_Rec_Type,
133 p_comments IN VARCHAR2 DEFAULT NULL,
134 p_update_by_customer_flag IN VARCHAR2 DEFAULT FND_API.G_FALSE,
135 p_abort_on_warn_flag IN Abort_Upd_On_Warn_Rec_Type,
136 p_cascade_updates_flag IN Cascade_Upd_Flag_Rec_Type,
137 p_cascade_inst_date_change_war IN VARCHAR2 DEFAULT FND_API.G_TRUE,
138 p_org_id IN NUMBER DEFAULT FND_API.G_MISS_NUM
139 ) IS
140
141 BEGIN
142 null;
143 END Update_Product;
144
145
146 PROCEDURE Create_Revision
147 (
148 p_api_version IN NUMBER,
149 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
150 p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
151 x_return_status OUT NOCOPY VARCHAR2,
152 x_msg_count OUT NOCOPY NUMBER,
153 x_msg_data OUT NOCOPY VARCHAR2,
154 p_cp_id IN NUMBER,
155 p_rev_inv_item_id IN NUMBER,
156 p_order_info IN OrderInfo_Rec_Type,
157 p_desc_flex IN DFF_Rec_Type,
158 p_start_date_active IN DATE DEFAULT FND_API.G_MISS_DATE,
159 p_end_date_active IN DATE DEFAULT FND_API.G_MISS_DATE,
160 p_delivered_flag IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
161 x_cp_rev_id OUT NOCOPY NUMBER,
162 x_curr_rev_of_cp_updtd OUT NOCOPY VARCHAR2,
163 x_object_version_number OUT NOCOPY NUMBER
164 )
165 IS
166
167 BEGIN
168 null;
169 END Create_Revision;
170
171
172 PROCEDURE Update_Revision
173 (
174 p_api_version IN NUMBER,
175 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
176 p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
177 x_return_status OUT NOCOPY VARCHAR2,
178 x_msg_count OUT NOCOPY NUMBER,
179 x_msg_data OUT NOCOPY VARCHAR2,
180 p_cp_rev_id IN NUMBER,
181 p_object_version_number IN NUMBER,
182 p_start_date_active IN DATE DEFAULT FND_API.G_MISS_DATE,
183 p_end_date_active IN DATE DEFAULT FND_API.G_MISS_DATE,
184 p_desc_flex IN CS_InstalledBase_PUB.DFF_Rec_Type,
185 x_object_version_number OUT NOCOPY NUMBER
186 ) IS
187
188 BEGIN
189 null;
190 END Update_Revision;
191
192 PROCEDURE Specify_Contact
193 (
194 p_api_version IN NUMBER,
195 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
196 p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
197 x_return_status OUT NOCOPY VARCHAR2,
198 x_msg_count OUT NOCOPY NUMBER,
199 x_msg_data OUT NOCOPY VARCHAR2,
200 p_contact_rec IN CP_Contact_Rec_Type,
201 x_cs_contact_id OUT NOCOPY NUMBER,
202 x_object_version_number OUT NOCOPY NUMBER
203 ) IS
204
205 BEGIN
206 null;
207 END Specify_Contact;
208
209
210 PROCEDURE Update_Contact
211 (
212 p_api_version IN NUMBER,
213 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
214 p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
215 x_return_status OUT NOCOPY VARCHAR2,
216 x_msg_count OUT NOCOPY NUMBER,
217 x_msg_data OUT NOCOPY VARCHAR2,
218 p_cs_contact_id IN NUMBER,
219 p_object_version_number IN NUMBER,
220 p_contact_rec IN CP_Contact_Rec_Type,
221 x_object_version_number OUT NOCOPY NUMBER
222 ) IS
223
224 BEGIN
225 null;
226 END Update_Contact;
227
228
229 PROCEDURE Delete_Contact
230 (
231 p_api_version IN NUMBER,
232 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
233 p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
234 x_return_status OUT NOCOPY VARCHAR2,
235 x_msg_count OUT NOCOPY NUMBER,
236 x_msg_data OUT NOCOPY VARCHAR2,
237 p_cs_contact_id IN NUMBER
238 ) IS
239
240 BEGIN
241 null;
242 END Delete_Contact;
243
244
245
246 PROCEDURE Get_CP_ID
247 (
248 p_api_version IN NUMBER,
249 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
250 x_return_status OUT NOCOPY VARCHAR2,
251 x_msg_count OUT NOCOPY NUMBER,
252 x_msg_data OUT NOCOPY VARCHAR2,
253 p_reference_number IN NUMBER,
254 x_cp_id OUT NOCOPY NUMBER
255 ) IS
256 l_api_name CONSTANT VARCHAR2(30) := 'Get_CP_ID';
257 l_api_version CONSTANT NUMBER := 1.0;
258 BEGIN
259 null;
260 END Get_CP_ID;
261
262
263 PROCEDURE Get_Reference_Number
264 (
265 p_api_version IN NUMBER,
266 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
267 x_return_status OUT NOCOPY VARCHAR2,
268 x_msg_count OUT NOCOPY NUMBER,
269 x_msg_data OUT NOCOPY VARCHAR2,
270 p_cp_id IN NUMBER,
271 x_reference_number OUT NOCOPY NUMBER
272 ) IS
273 BEGIN
274 null;
275 END Get_Reference_Number;
276
277
278 PROCEDURE Get_CP_ID
279 (
280 p_api_version IN NUMBER,
281 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
282 x_return_status OUT NOCOPY VARCHAR2,
283 x_msg_count OUT NOCOPY NUMBER,
284 x_msg_data OUT NOCOPY VARCHAR2,
285 p_serial_number IN VARCHAR2,
286 p_config_type IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
287 p_as_of_date IN DATE DEFAULT FND_API.G_MISS_DATE,
288 p_customer_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
289 p_inv_item_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
290 x_unique_flag OUT NOCOPY VARCHAR2,
291 x_reference_number OUT NOCOPY NUMBER,
292 x_cp_id OUT NOCOPY NUMBER
293 ) IS
294
295 BEGIN
296 null;
297 END Get_CP_ID;
298
299
300 PROCEDURE Get_Configuration
301 (
302 p_api_version IN NUMBER,
303 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
304 x_return_status OUT NOCOPY VARCHAR2,
305 x_msg_count OUT NOCOPY NUMBER,
306 x_msg_data OUT NOCOPY VARCHAR2,
307 p_cp_id IN NUMBER,
308 p_config_type IN VARCHAR2 DEFAULT NULL,
309 p_as_of_date IN DATE DEFAULT sysdate,
310 x_config_tbl OUT NOCOPY Config_Tbl_Type,
311 x_config_tbl_count OUT NOCOPY NUMBER
312 ) IS
313
314 BEGIN
315 null;
316 END Get_Configuration;
317
318
319 PROCEDURE Get_Immediate_Components
320 (
321 p_api_version IN NUMBER,
322 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
323 x_return_status OUT NOCOPY VARCHAR2,
324 x_msg_count OUT NOCOPY NUMBER,
325 x_msg_data OUT NOCOPY VARCHAR2,
326 p_cp_id IN NUMBER,
327 p_config_type IN VARCHAR2 DEFAULT NULL,
328 p_as_of_date IN DATE DEFAULT SYSDATE,
329 x_config_tbl OUT NOCOPY Config_Tbl_Type,
330 x_config_tbl_count OUT NOCOPY NUMBER
331 ) IS
332
333 BEGIN
334 null;
335 END Get_Immediate_Components;
336
337
338 PROCEDURE Get_ProductInfo
339 (
340 p_api_version IN NUMBER,
341 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
342 x_return_status OUT NOCOPY VARCHAR2,
343 x_msg_count OUT NOCOPY NUMBER,
344 x_msg_data OUT NOCOPY VARCHAR2,
345 p_cp_id IN NUMBER,
346 p_as_of_date IN DATE DEFAULT sysdate,
347 x_cp_rec OUT NOCOPY CP_Prod_Rec_Type,
348 x_ship_rec OUT NOCOPY CP_Ship_Rec_Type,
349 x_created_manually_flag OUT NOCOPY VARCHAR2
350 ) IS
351
352 BEGIN
353 null;
354 END Get_ProductInfo;
355
356
357 PROCEDURE Split_Product
358 (
359 p_api_version IN NUMBER,
360 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
361 p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
362 x_return_status OUT NOCOPY VARCHAR2,
363 x_msg_count OUT NOCOPY NUMBER,
364 x_msg_data OUT NOCOPY VARCHAR2,
365 p_cp_id IN NUMBER,
366 p_qty1 IN NUMBER,
367 p_qty2 IN NUMBER,
368 p_org_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
369 p_reason_code IN VARCHAR2,
370
371 x_new_parent_cp_id OUT NOCOPY NUMBER
372 ) IS
373
374 BEGIN
375 null;
376 END Split_Product;
377
378
379 PROCEDURE Split_Product
380 (
381 p_api_version IN NUMBER,
382 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
383 p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
384 x_return_status OUT NOCOPY VARCHAR2,
385 x_msg_count OUT NOCOPY NUMBER,
386 x_msg_data OUT NOCOPY VARCHAR2,
387 p_cp_id IN NUMBER,
388 p_reason_code IN VARCHAR2,
389 p_org_id IN NUMBER DEFAULT FND_API.G_MISS_NUM
390 ) IS
391
392 BEGIN
393 null;
394 END Split_Product;
395
396
397 PROCEDURE Create_Product_Parameters
398 (
399 p_api_version IN NUMBER,
400 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
401 p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
402 x_return_status OUT NOCOPY VARCHAR2,
403 x_msg_count OUT NOCOPY NUMBER,
404 x_msg_data OUT NOCOPY VARCHAR2,
405 p_cp_param_rec IN CP_Param_Rec_Type,
406 x_cp_parameter_id OUT NOCOPY NUMBER,
407 x_object_version_number OUT NOCOPY NUMBER
408 ) IS
409 BEGIN
410 null;
411 END Create_Product_Parameters;
412
413
414 PROCEDURE Update_Product_Parameters
415 (
416 p_api_version IN NUMBER,
417 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
418 p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
419 x_return_status OUT NOCOPY VARCHAR2,
420 x_msg_count OUT NOCOPY NUMBER,
421 x_msg_data OUT NOCOPY VARCHAR2,
422 p_cp_parameter_id IN NUMBER,
423 p_object_version_number IN NUMBER,
424 p_cp_param_rec IN CP_Param_Rec_Type,
425 x_object_version_number OUT NOCOPY NUMBER
426 ) IS
427
428 BEGIN
429 null;
430 END Update_Product_Parameters;
431
432
433 PROCEDURE Delete_Product_Parameters
434 (
435 p_api_version IN NUMBER,
436 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
437 p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
438 x_return_status OUT NOCOPY VARCHAR2,
439 x_msg_count OUT NOCOPY NUMBER,
440 x_msg_data OUT NOCOPY VARCHAR2,
441 p_cp_parameter_id IN NUMBER
442 ) IS
443
444 BEGIN
445 null;
446 END Delete_Product_Parameters;
447
448 END CS_InstalledBase_PUB;