1 PACKAGE BODY CS_InstalledBase_PVT AS
2 /* $Header: csvibb.pls 115.117 2003/01/28 19:55:48 rmamidip ship $ */
3
4 -- ---------------------------------------------------------
5 -- Define global variables
6 -- ---------------------------------------------------------
7 G_PKG_NAME CONSTANT VARCHAR2(30) := 'CS_InstalledBase_PVT';
8 --G_USER CONSTANT VARCHAR2(30) := FND_GLOBAL.USER_ID;
9 --------------------------------------------------------------------------
10
11 -- ---------------------------------------------------------
12 -- Define private procedures accessible only within this package
13 -- ---------------------------------------------------------
14
15 PROCEDURE Cascade_To_Child_Entities
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 VARCHAR2,
22 x_msg_count OUT NUMBER,
23 x_msg_data OUT VARCHAR2,
24 p_cp_id IN NUMBER,
25 p_new_cp_id IN NUMBER
26 ) IS
27
28 BEGIN
29
30 null;
31
32 END Cascade_To_Child_Entities;
33
34
35 PROCEDURE Record_Split_In_Audit
36 (
37 p_api_version IN NUMBER,
38 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
39 p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
40 p_validation_level IN VARCHAR2 DEFAULT FND_API.G_VALID_LEVEL_FULL,
41 x_return_status OUT VARCHAR2,
42 x_msg_count OUT NUMBER,
43 x_msg_data OUT VARCHAR2,
44 p_split_cp_id IN NUMBER,
45 p_new_cp_id IN NUMBER,
46 p_old_cp_qty IN NUMBER,
47 p_current_cp_qty IN NUMBER,
48 p_reason_code IN VARCHAR2
49 ) IS
50
51 BEGIN
52 null;
53 END Record_Split_In_Audit;
54
55
56 PROCEDURE Initialize_Order_Info
57 (
58 p_order_info IN CS_InstalledBase_PUB.OrderInfo_Rec_Type,
59 l_order_info OUT CS_InstalledBase_PUB.OrderInfo_Rec_Type
60 ) IS
61
62 BEGIN
63
64 null;
65 END Initialize_Order_Info;
66
67
68 PROCEDURE Initialize_CP_Rec_Param
69 (
70 p_cp_rec IN CS_InstalledBase_PUB.CP_Prod_Rec_Type,
71 l_cp_rec OUT CS_InstalledBase_PUB.CP_Prod_Rec_Type
72 ) IS
73
74 BEGIN
75 null;
76 END Initialize_CP_Rec_Param;
77
78
79 PROCEDURE Initialize_Ship_Rec_Param
80 (
81 p_ship_rec IN CS_InstalledBase_PUB.CP_Ship_Rec_Type,
82 l_ship_rec OUT CS_InstalledBase_PUB.CP_Ship_Rec_Type
83 ) IS
84
85 BEGIN
86
87 null;
88 END Initialize_Ship_Rec_Param;
89
90 --------------------------------------------------------------------------
91
92 -- Start of comments
93 -- API name : Ship_Revision
94 -- Type : Private
95 -- Function : Marks a revision as having shipped and records shipment
96 -- related information.
97 -- Pre-reqs : None.
98 --
99 -- IN Parameters:
100 -- p_cp_revision_id IN NUMBER Required
101 -- p_shipped_date IN DATE Required
102 -- p_revision IN VARCHAR2 Required
103 -- p_serial_number IN VARCHAR2 Required
104 -- p_lot_number IN VARCHAR2 Required
105
106 -- OUT parameters:
107 -- None
108 --
109 -- Version : Current version 1.0
110 -- Initial version 1.0
111 --
112 -- End of comments
113 --------------------------------------------------------------------------
114
115 PROCEDURE Ship_Revision
116 (
117 p_cp_revision_id IN NUMBER,
118 p_shipped_date IN DATE,
119 p_revision IN VARCHAR2,
120 p_serial_number IN VARCHAR2,
121 p_lot_number IN VARCHAR2
122 ) IS
123
124 BEGIN
125 null;
126 END Ship_Revision;
127
128
129 --------------------------------------------------------------------------
130
131 -- Start of comments
132 -- API name : Ship_CP_Or_Revision
133 -- Type : Private
134 -- Function : Determines whether a revision or an entire product was
135 -- shipped and takes appropriate action. If an entire
136 -- product was shipped,it also activates the contracts if
137 -- any, on that product.
138 -- Pre-reqs : None.
139 --
140 -- IN Parameters:
141 -- p_cp_id IN NUMBER Required
142 -- p_cp_revision_id IN NUMBER Required
143 -- p_shipped_date IN DATE Required
144 -- p_revision IN VARCHAR2 Required
145 -- p_serial_number IN VARCHAR2 Required
146 -- p_lot_number IN VARCHAR2 Required
147 -- p_actual_ship_to_site_use_id IN NUMBER Optional
148 -- Default = FND_API.G_MISS_NUM
149 -- p_current_cp_rev_id_of_cp IN NUMBER Optional
150 -- Default = FND_API.G_MISS_NUM
151 -- p_shipped_order_line_id IN NUMBER Optional
152 -- Default = FND_API.G_MISS_NUM
153 -- p_unshipped_order_line_id IN NUMBER Optional
154 -- Default = FND_API.G_MISS_NUM
155
156 -- OUT parameters:
157 -- None
158 --
159 -- Version : Current version 1.0
160 -- Initial version 1.0
161 --
162 -- End of comments
163 --------------------------------------------------------------------------
164
165 PROCEDURE Ship_CP_Or_Revision
166 (
167 p_cp_id IN NUMBER,
168 p_cp_revision_id IN NUMBER,
169 p_shipped_date IN DATE,
170 p_revision IN VARCHAR2,
171 p_serial_number IN VARCHAR2,
172 p_lot_number IN VARCHAR2,
173 p_actual_ship_to_site_use_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
174 p_current_cp_rev_id_of_cp IN NUMBER DEFAULT FND_API.G_MISS_NUM,
175 p_shipped_order_line_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
176 p_unshipped_order_line_id IN NUMBER DEFAULT FND_API.G_MISS_NUM
177 ) IS
178
179
180 BEGIN
181 null;
182 END Ship_CP_Or_Revision;
183
184 PROCEDURE Initialize_Price_Attribs
185 (
186 p_price_attribs IN CS_InstalledBase_PUB.PRICE_ATT_Rec_Type,
187 l_price_attribs OUT CS_InstalledBase_PUB.PRICE_ATT_Rec_Type
188 ) IS
189 BEGIN
190
191 null;
192 END Initialize_Price_Attribs;
193
194 -- ---------------------------------------------------------
195 -- Define procedures also specified in the spec of this package.
196 -- ---------------------------------------------------------
197
198 PROCEDURE Initialize_Desc_Flex
199 (
200 p_desc_flex IN CS_InstalledBase_PUB.DFF_Rec_Type,
201 l_desc_flex OUT CS_InstalledBase_PUB.DFF_Rec_Type
202 ) IS
203
204 BEGIN
205 null;
206 END Initialize_Desc_Flex;
207
208
209 PROCEDURE Create_Base_Product
210 (
211 p_api_version IN NUMBER,
212 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
213 p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
214 p_validation_level IN VARCHAR2 DEFAULT FND_API.G_VALID_LEVEL_FULL,
215 x_return_status OUT VARCHAR2,
216 x_msg_count OUT NUMBER,
217 x_msg_data OUT VARCHAR2,
218 p_cp_rec IN CS_InstalledBase_PUB.CP_Prod_Rec_Type,
219 p_created_manually_flag IN VARCHAR2 DEFAULT 'N',
220 p_create_revision IN VARCHAR2 DEFAULT FND_API.G_TRUE,
221 p_create_contacts IN VARCHAR2 DEFAULT FND_API.G_TRUE, -- 1787841 srramakr
222 p_notify_contracts IN VARCHAR2 DEFAULT FND_API.G_TRUE,
223 p_allow_cp_with_ctr_qty_gt_one IN VARCHAR2 DEFAULT FND_API.G_FALSE,
224 p_org_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
225 x_cp_id OUT NUMBER,
226 x_object_version_number OUT NUMBER
227 ) IS
228 BEGIN
229 null;
230 END Create_Base_Product;
231
232
233 PROCEDURE Create_Revision
234 (
235 p_api_version IN NUMBER,
236 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
237 p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
238 p_validation_level IN VARCHAR2 DEFAULT FND_API.G_VALID_LEVEL_FULL,
239 x_return_status OUT VARCHAR2,
240 x_msg_count OUT NUMBER,
241 x_msg_data OUT VARCHAR2,
242 p_cp_id IN NUMBER,
243 p_rev_inv_item_id IN NUMBER,
244 p_order_info IN CS_InstalledBase_PUB.OrderInfo_Rec_Type,
245 p_desc_flex IN CS_InstalledBase_PUB.DFF_Rec_Type,
246 p_start_date_active IN DATE DEFAULT FND_API.G_MISS_DATE,
247 p_end_date_active IN DATE DEFAULT FND_API.G_MISS_DATE,
248 p_delivered_flag IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
249 x_cp_rev_id OUT NUMBER,
250 x_curr_rev_of_cp_updtd OUT VARCHAR2,
251 x_object_version_number OUT NUMBER
252 ) IS
253
254 BEGIN
255
256 null;
257 END Create_Revision;
258
259
260 PROCEDURE Update_Revision
261 (
262 p_api_version IN NUMBER,
263 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
264 p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
265 p_validation_level IN VARCHAR2 DEFAULT FND_API.G_VALID_LEVEL_FULL,
266 x_return_status OUT VARCHAR2,
267 x_msg_count OUT NUMBER,
268 x_msg_data OUT VARCHAR2,
269 p_cp_rev_id IN NUMBER,
270 p_object_version_number IN NUMBER,
271 p_start_date_active IN DATE DEFAULT FND_API.G_MISS_DATE,
272 p_end_date_active IN DATE DEFAULT FND_API.G_MISS_DATE,
273 p_desc_flex IN CS_InstalledBase_PUB.DFF_Rec_Type,
274 x_object_version_number OUT NUMBER
275 ) IS
276
277 BEGIN
278 null;
279 END Update_Revision;
280
281 PROCEDURE Record_Shipment_Info
282 (
283 p_api_version IN NUMBER,
284 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
285 p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
286 p_validation_level IN VARCHAR2 DEFAULT FND_API.G_VALID_LEVEL_FULL,
287 x_return_status OUT VARCHAR2,
288 x_msg_count OUT NUMBER,
289 x_msg_data OUT VARCHAR2,
290 p_ship_rec IN CS_InstalledBase_PUB.CP_Ship_Rec_Type,
291 p_org_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
292 x_new_cp_id OUT NUMBER,
293 p_savepoint_rec_lvl IN NUMBER DEFAULT 1
294 ) IS
295 BEGIN
296
297 null;
298 END Record_Shipment_Info;
299
300
301 PROCEDURE Upgrade_Product
302 (
303 p_api_version IN NUMBER,
304 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
305 p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
306 p_validation_level IN VARCHAR2 DEFAULT FND_API.G_VALID_LEVEL_FULL,
307 x_return_status OUT VARCHAR2,
308 x_msg_count OUT NUMBER,
309 x_msg_data OUT VARCHAR2,
310 p_cp_id IN NUMBER,
311 p_old_cp_status_id IN NUMBER,
312 p_cp_rec IN CS_InstalledBase_PUB.CP_Prod_Rec_Type,
313 p_inherit_contacts IN VARCHAR2 DEFAULT FND_API.G_FALSE,
314 p_upgrade IN VARCHAR2 DEFAULT FND_API.G_FALSE,
315 x_new_cp_id OUT NUMBER,
316 p_move_upg_in_tree IN VARCHAR2 DEFAULT FND_API.G_FALSE,
317 p_savepoint_rec_lvl IN NUMBER DEFAULT 1,
318 p_org_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
319 p_qty_mismatch_ok IN VARCHAR2 DEFAULT FND_API.G_FALSE
320 ) IS
321 BEGIN
322
323 null;
324 END Upgrade_Product;
325
326
327 PROCEDURE Update_Product
328 (
329 p_api_version IN NUMBER,
330 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
331 p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
332 p_validation_level IN VARCHAR2 DEFAULT FND_API.G_VALID_LEVEL_FULL,
333 x_return_status OUT VARCHAR2,
334 x_msg_count OUT NUMBER,
335 x_msg_data OUT VARCHAR2,
336 p_cp_id IN NUMBER,
337 p_as_of_date IN DATE DEFAULT sysdate,
338 p_cp_rec IN CS_InstalledBase_PUB.CP_Prod_Rec_Type,
339 p_ship_rec IN CS_InstalledBase_PUB.CP_Ship_Rec_Type,
340 p_comments IN VARCHAR2 DEFAULT NULL,
341 p_split_cp_id IN NUMBER DEFAULT NULL,
342 p_split_reason_code IN VARCHAR2 DEFAULT NULL,
343 p_update_by_customer_flag IN VARCHAR2 DEFAULT FND_API.G_FALSE,
344 p_abort_on_warn_flag IN CS_InstalledBase_PUB.Abort_Upd_On_Warn_Rec_Type,
345 p_cascade_updates_flag IN CS_InstalledBase_PUB.Cascade_Upd_Flag_Rec_Type,
346 p_cascade_inst_date_change_war IN VARCHAR2 DEFAULT FND_API.G_TRUE,
347 p_org_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
348 p_savepoint_rec_lvl IN NUMBER DEFAULT 1
349 ) IS
350 BEGIN
351
352 null;
353
354 END Update_Product;
355
356
357 PROCEDURE Specify_Contact
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 p_validation_level IN VARCHAR2 DEFAULT FND_API.G_VALID_LEVEL_FULL,
363 x_return_status OUT VARCHAR2,
364 x_msg_count OUT NUMBER,
365 x_msg_data OUT VARCHAR2,
366 p_contact_rec IN CS_InstalledBase_PUB.CP_Contact_Rec_Type,
367 x_cs_contact_id OUT NUMBER,
368 x_object_version_number OUT NUMBER
369 ) IS
370 BEGIN
371
372 null;
373 END Specify_Contact;
374
375 PROCEDURE Update_CP_Status(ERRBUF OUT VARCHAR2, RETCODE OUT NUMBER) IS
376
377 BEGIN
378 null;
379 END Update_CP_Status;
380
381 END CS_InstalledBase_PVT;