[Home] [Help]
1: package body CSI_INV_PROJECT_PKG as
2: -- $Header: csiivtpb.pls 120.2.12000000.2 2007/07/06 12:19:05 syenaman ship $
3:
4: l_debug NUMBER := csi_t_gen_utility_pvt.g_debug_level;
5:
6: PROCEDURE issue_to_project(p_transaction_id IN NUMBER,
7: p_message_id IN NUMBER,
8: x_return_status OUT NOCOPY VARCHAR2,
86:
87: x_return_status := l_fnd_success;
88:
89: IF (l_debug > 0) THEN
90: csi_t_gen_utility_pvt.add('*****Start of csi_inv_trxs_pkg.issue_to_project Transaction procedure*****');
91: csi_t_gen_utility_pvt.add('Transaction You are Processing is: '||p_transaction_id);
92: END IF;
93:
94: -- This procedure queries all of the Inventory Transaction Records and returns them
87: x_return_status := l_fnd_success;
88:
89: IF (l_debug > 0) THEN
90: csi_t_gen_utility_pvt.add('*****Start of csi_inv_trxs_pkg.issue_to_project Transaction procedure*****');
91: csi_t_gen_utility_pvt.add('Transaction You are Processing is: '||p_transaction_id);
92: END IF;
93:
94: -- This procedure queries all of the Inventory Transaction Records and returns them
95: -- as a table.
100:
101: l_tbl_count := 0;
102: l_tbl_count := l_mtl_item_tbl.count;
103: IF (l_debug > 0) THEN
104: csi_t_gen_utility_pvt.add('Inventory Records Found: '||l_tbl_count);
105: END IF;
106:
107: IF NOT l_return_status = l_fnd_success THEN
108: IF (l_debug > 0) THEN
105: END IF;
106:
107: IF NOT l_return_status = l_fnd_success THEN
108: IF (l_debug > 0) THEN
109: csi_t_gen_utility_pvt.add('You have encountered an error in CSI_INV_TRXS_PKG.get_transaction_recs, Transaction ID: '||p_transaction_id);
110: END IF;
111: RAISE fnd_api.g_exc_error;
112: END IF;
113:
118: l_error_message);
119:
120: IF NOT l_return_status = l_fnd_success THEN
121: IF (l_debug > 0) THEN
122: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_master_organization, Organization ID: '||l_mtl_item_tbl(i).organization_id);
123: END IF;
124: RAISE fnd_api.g_exc_error;
125: END IF;
126:
128: l_employee_id := csi_inv_trxs_pkg.get_fnd_employee_id(l_mtl_item_tbl(i).last_updated_by);
129:
130: IF l_employee_id = -1 THEN
131: IF (l_debug > 0) THEN
132: csi_t_gen_utility_pvt.add('The person who last updated this record: '||l_mtl_item_tbl(i).last_updated_by||' does not exist as a valid employee');
133: END IF;
134: END IF;
135: IF (l_debug > 0) THEN
136: csi_t_gen_utility_pvt.add('The Employee that is processing this Transaction is: '||l_employee_id);
132: csi_t_gen_utility_pvt.add('The person who last updated this record: '||l_mtl_item_tbl(i).last_updated_by||' does not exist as a valid employee');
133: END IF;
134: END IF;
135: IF (l_debug > 0) THEN
136: csi_t_gen_utility_pvt.add('The Employee that is processing this Transaction is: '||l_employee_id);
137: END IF;
138:
139: -- See if this is a depreciable Item to set the status of the transaction record
140: csi_inv_trxs_pkg.check_depreciable(l_mtl_item_tbl(i).inventory_item_id,
140: csi_inv_trxs_pkg.check_depreciable(l_mtl_item_tbl(i).inventory_item_id,
141: l_depreciable);
142:
143: IF (l_debug > 0) THEN
144: csi_t_gen_utility_pvt.add('Is this Item ID: '||l_mtl_item_tbl(i).inventory_item_id||', Depreciable :'||l_depreciable);
145: END IF;
146:
147: -- Set the mfg_serial_number_flag and quantity
148: IF l_mtl_item_tbl(i).serial_number is NULL THEN
168: l_instance_status := FND_API.G_TRUE;
169: END IF;
170:
171: IF (l_debug > 0) THEN
172: csi_t_gen_utility_pvt.add('Negative Code is - 1 = Yes, 2 = No: '||l_neg_code);
173: END IF;
174:
175: IF (l_debug > 0) THEN
176: csi_t_gen_utility_pvt.add('Starting to loop through Material Transaction Records');
172: csi_t_gen_utility_pvt.add('Negative Code is - 1 = Yes, 2 = No: '||l_neg_code);
173: END IF;
174:
175: IF (l_debug > 0) THEN
176: csi_t_gen_utility_pvt.add('Starting to loop through Material Transaction Records');
177: END IF;
178:
179: -- Initialize Transaction Record
180: l_txn_rec := csi_inv_trxs_pkg.init_txn_rec;
199: END IF;
200:
201: IF NOT l_return_status = l_fnd_success THEN
202: IF (l_debug > 0) THEN
203: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
204: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
205: END IF;
206: RAISE fnd_api.g_exc_error;
207: END IF;
200:
201: IF NOT l_return_status = l_fnd_success THEN
202: IF (l_debug > 0) THEN
203: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
204: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
205: END IF;
206: RAISE fnd_api.g_exc_error;
207: END IF;
208:
206: RAISE fnd_api.g_exc_error;
207: END IF;
208:
209: IF (l_debug > 0) THEN
210: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
211: csi_t_gen_utility_pvt.add('Trans Status Code: '||l_txn_rec.transaction_status_code);
212: END IF;
213:
214: -- Get Default Status ID
207: END IF;
208:
209: IF (l_debug > 0) THEN
210: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
211: csi_t_gen_utility_pvt.add('Trans Status Code: '||l_txn_rec.transaction_status_code);
212: END IF;
213:
214: -- Get Default Status ID
215: OPEN c_id;
234: l_error_message,
235: l_return_status);
236:
237: IF (l_debug > 0) THEN
238: csi_t_gen_utility_pvt.add('CSI Transaction Created: '||l_txn_rec.transaction_id);
239: END IF;
240:
241: IF NOT l_return_status = l_fnd_success THEN
242: IF (l_debug > 0) THEN
239: END IF;
240:
241: IF NOT l_return_status = l_fnd_success THEN
242: IF (l_debug > 0) THEN
243: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.create_csi_txn: '||p_transaction_id);
244: END IF;
245: RAISE fnd_api.g_exc_error;
246: END IF;
247:
247:
248: FOR j in l_mtl_item_tbl.FIRST .. l_mtl_item_tbl.LAST LOOP
249:
250: IF (l_debug > 0) THEN
251: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
252: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
253: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
254: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
255: END IF;
248: FOR j in l_mtl_item_tbl.FIRST .. l_mtl_item_tbl.LAST LOOP
249:
250: IF (l_debug > 0) THEN
251: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
252: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
253: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
254: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
255: END IF;
256:
249:
250: IF (l_debug > 0) THEN
251: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
252: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
253: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
254: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
255: END IF;
256:
257: l_instance_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
250: IF (l_debug > 0) THEN
251: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
252: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
253: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
254: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
255: END IF;
256:
257: l_instance_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
258: l_instance_query_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
264: l_instance_query_rec.inv_locator_id := l_mtl_item_tbl(j).locator_id;
265: l_instance_query_rec.instance_usage_code := l_in_inventory;
266:
267: IF (l_debug > 0) THEN
268: csi_t_gen_utility_pvt.add('Before Get Item Instance');
269: END IF;
270:
271: csi_item_instance_pub.get_item_instances(l_api_version,
272: l_commit,
283: l_msg_count,
284: l_msg_data);
285:
286: IF (l_debug > 0) THEN
287: csi_t_gen_utility_pvt.add('After Get Item Instance');
288: END IF;
289: l_tbl_count := 0;
290: l_tbl_count := l_src_instance_header_tbl.count;
291: IF (l_debug > 0) THEN
288: END IF;
289: l_tbl_count := 0;
290: l_tbl_count := l_src_instance_header_tbl.count;
291: IF (l_debug > 0) THEN
292: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
293: END IF;
294: -- Check for any errors and add them to the message stack to pass out to be put into the
295: -- error log table.
296: IF NOT l_return_status = l_fnd_success then
294: -- Check for any errors and add them to the message stack to pass out to be put into the
295: -- error log table.
296: IF NOT l_return_status = l_fnd_success then
297: IF (l_debug > 0) THEN
298: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
299: END IF;
300: l_msg_index := 1;
301: WHILE l_msg_count > 0 loop
302: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
311: IF l_src_instance_header_tbl.count = 0 THEN
312: IF l_neg_code = 1 THEN -- Allow Neg Qtys on NON Serial Items ONLY
313:
314: IF (l_debug > 0) THEN
315: csi_t_gen_utility_pvt.add('No records were found so create a new Source Instance Record');
316: END IF;
317:
318: l_new_src_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
319: l_new_src_instance_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
344: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
345: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
346:
347: IF (l_debug > 0) THEN
348: csi_t_gen_utility_pvt.add('Before Create Source Item Instance');
349: END IF;
350:
351: csi_item_instance_pub.create_item_instance(l_api_version,
352: l_commit,
364: l_msg_count,
365: l_msg_data);
366:
367: IF (l_debug > 0) THEN
368: csi_t_gen_utility_pvt.add('After Create Source Item Instance');
369: csi_t_gen_utility_pvt.add('After Create of Source Item Instance');
370: csi_t_gen_utility_pvt.add('New instance created is: '||l_new_src_instance_rec.instance_id);
371: END IF;
372:
365: l_msg_data);
366:
367: IF (l_debug > 0) THEN
368: csi_t_gen_utility_pvt.add('After Create Source Item Instance');
369: csi_t_gen_utility_pvt.add('After Create of Source Item Instance');
370: csi_t_gen_utility_pvt.add('New instance created is: '||l_new_src_instance_rec.instance_id);
371: END IF;
372:
373: -- Check for any errors and add them to the message stack to pass out to be put into the
366:
367: IF (l_debug > 0) THEN
368: csi_t_gen_utility_pvt.add('After Create Source Item Instance');
369: csi_t_gen_utility_pvt.add('After Create of Source Item Instance');
370: csi_t_gen_utility_pvt.add('New instance created is: '||l_new_src_instance_rec.instance_id);
371: END IF;
372:
373: -- Check for any errors and add them to the message stack to pass out to be put into the
374: -- error log table.
373: -- Check for any errors and add them to the message stack to pass out to be put into the
374: -- error log table.
375: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
376: IF (l_debug > 0) THEN
377: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
378: END IF;
379: l_msg_index := 1;
380: WHILE l_msg_count > 0 loop
381: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
386: END IF;
387:
388: ELSE -- No Records were found and Neg Qtys Not Allowed
389: IF (l_debug > 0) THEN
390: csi_t_gen_utility_pvt.add('No Records were found in Install Base andNeg Qtys not allowed to error');
391: END IF;
392: fnd_message.set_name('CSI','CSI_NO_NEG_BAL_ALLOWED');
393: l_error_message := fnd_message.get;
394: RAISE fnd_api.g_exc_error;
399: -- Records found so make sure that is is updated to be unexp
400: -- and subtract the quantity from source record
401:
402: IF (l_debug > 0) THEN
403: csi_t_gen_utility_pvt.add('You will update instance: '||l_src_instance_header_tbl(i).instance_id);
404: csi_t_gen_utility_pvt.add('End Date is: '||l_src_instance_header_tbl(i).active_end_date);
405: END IF;
406: l_update_source_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
407: l_update_source_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
400: -- and subtract the quantity from source record
401:
402: IF (l_debug > 0) THEN
403: csi_t_gen_utility_pvt.add('You will update instance: '||l_src_instance_header_tbl(i).instance_id);
404: csi_t_gen_utility_pvt.add('End Date is: '||l_src_instance_header_tbl(i).active_end_date);
405: END IF;
406: l_update_source_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
407: l_update_source_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
408: l_update_source_instance_rec.quantity := l_src_instance_header_tbl(i).quantity - abs(l_mtl_item_tbl(j).primary_quantity);
417:
418: l_update_source_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
419:
420: IF (l_debug > 0) THEN
421: csi_t_gen_utility_pvt.add('Before Update Item Instance');
422: END IF;
423:
424: csi_item_instance_pub.update_item_instance(l_api_version,
425: l_commit,
441: l_upd_error_instance_id := NULL;
442: l_upd_error_instance_id := l_update_source_instance_rec.instance_id;
443:
444: IF (l_debug > 0) THEN
445: csi_t_gen_utility_pvt.add('After Update Item Instance');
446: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
447: END IF;
448:
449: IF (l_debug > 0) THEN
442: l_upd_error_instance_id := l_update_source_instance_rec.instance_id;
443:
444: IF (l_debug > 0) THEN
445: csi_t_gen_utility_pvt.add('After Update Item Instance');
446: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
447: END IF;
448:
449: IF (l_debug > 0) THEN
450: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_source_instance_rec.instance_status_id);
446: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
447: END IF;
448:
449: IF (l_debug > 0) THEN
450: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_source_instance_rec.instance_status_id);
451: END IF;
452:
453: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
454: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
452:
453: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
454: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
455: IF (l_debug > 0) THEN
456: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
457: END IF;
458: l_msg_index := 1;
459: WHILE l_msg_count > 0 loop
460: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
466:
467: ELSIF l_src_instance_header_tbl.count > 1 THEN
468: -- Multiple Instances were found so throw error
469: IF (l_debug > 0) THEN
470: csi_t_gen_utility_pvt.add('Multiple Instances were Found in Install Base-30');
471: END IF;
472: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
473: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
474: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
487: l_instance_query_rec.lot_number := l_mtl_item_tbl(j).lot_number;
488: l_instance_query_rec.instance_usage_code := l_in_process;
489:
490: IF (l_debug > 0) THEN
491: csi_t_gen_utility_pvt.add('Before Destination Get Item Instance - Neg Qty');
492: END IF;
493:
494: csi_item_instance_pub.get_item_instances(l_api_version,
495: l_commit,
506: l_msg_count,
507: l_msg_data);
508:
509: IF (l_debug > 0) THEN
510: csi_t_gen_utility_pvt.add('After Destination Get Item Instance');
511: END IF;
512: l_tbl_count := 0;
513: l_tbl_count := l_dest_instance_header_tbl.count;
514: IF (l_debug > 0) THEN
511: END IF;
512: l_tbl_count := 0;
513: l_tbl_count := l_dest_instance_header_tbl.count;
514: IF (l_debug > 0) THEN
515: csi_t_gen_utility_pvt.add('Destination Records Found: '||l_tbl_count);
516: END IF;
517:
518: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
519: IF NOT l_return_status = l_fnd_success then
517:
518: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
519: IF NOT l_return_status = l_fnd_success then
520: IF (l_debug > 0) THEN
521: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
522: END IF;
523: l_msg_index := 1;
524: WHILE l_msg_count > 0 loop
525: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
530: END IF;
531:
532: IF l_dest_instance_header_tbl.count = 0 THEN -- Installed Base Destination Records are not found
533: IF (l_debug > 0) THEN
534: csi_t_gen_utility_pvt.add('No Destination Records were found so we will create a new destination Record using the source data');
535: END IF;
536:
537: l_new_dest_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
538: l_new_dest_instance_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
564: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
565: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
566:
567: IF (l_debug > 0) THEN
568: csi_t_gen_utility_pvt.add('Before Create Item Instance - Neg Qty');
569: END IF;
570:
571: csi_item_instance_pub.create_item_instance(l_api_version,
572: l_commit,
584: l_msg_count,
585: l_msg_data);
586:
587: IF (l_debug > 0) THEN
588: csi_t_gen_utility_pvt.add('After Create Item Instance');
589: csi_t_gen_utility_pvt.add('Item Instance Created: '||l_new_dest_instance_rec.instance_id);
590: END IF;
591:
592: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
585: l_msg_data);
586:
587: IF (l_debug > 0) THEN
588: csi_t_gen_utility_pvt.add('After Create Item Instance');
589: csi_t_gen_utility_pvt.add('Item Instance Created: '||l_new_dest_instance_rec.instance_id);
590: END IF;
591:
592: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
593: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
591:
592: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
593: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
594: IF (l_debug > 0) THEN
595: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
596: END IF;
597: l_msg_index := 1;
598: WHILE l_msg_count > 0 loop
599: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
605:
606: ELSIF l_dest_instance_header_tbl.count = 1 THEN-- Installed Base Destination Records Found
607:
608: IF (l_debug > 0) THEN
609: csi_t_gen_utility_pvt.add('You will update instance: '||l_dest_instance_header_tbl(i).instance_id);
610: END IF;
611:
612: l_update_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
613: l_update_dest_instance_rec.instance_id := l_dest_instance_header_tbl(i).instance_id;
623:
624: l_update_dest_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
625:
626: IF (l_debug > 0) THEN
627: csi_t_gen_utility_pvt.add('Before Update Item Instance - Neg Qty');
628: END IF;
629:
630: csi_item_instance_pub.update_item_instance(l_api_version,
631: l_commit,
647: l_upd_error_instance_id := NULL;
648: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
649:
650: IF (l_debug > 0) THEN
651: csi_t_gen_utility_pvt.add('After Update Item Instance - Neg Qty');
652: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
653: END IF;
654:
655: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
648: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
649:
650: IF (l_debug > 0) THEN
651: csi_t_gen_utility_pvt.add('After Update Item Instance - Neg Qty');
652: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
653: END IF;
654:
655: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
656: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
654:
655: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
656: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
657: IF (l_debug > 0) THEN
658: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
659: END IF;
660: l_msg_index := 1;
661: WHILE l_msg_count > 0 loop
662: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
668:
669: ELSIF l_dest_instance_header_tbl.count > 1 THEN
670: -- Multiple Instances were found so throw error
671: IF (l_debug > 0) THEN
672: csi_t_gen_utility_pvt.add('Multiple Instances were Found in Install Base-30');
673: END IF;
674: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
675: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
676: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
682:
683: ELSIF l_mtl_item_tbl(j).serial_number is NOT NULL THEN
684: IF l_src_instance_header_tbl.count = 1 THEN -- Installed Base Records Found
685: IF (l_debug > 0) THEN
686: csi_t_gen_utility_pvt.add('You are updating an Item Instance Record');
687: csi_t_gen_utility_pvt.add('You are updating a Serialized Item: '||l_src_instance_header_tbl(i).instance_id);
688: csi_t_gen_utility_pvt.add('The Transaction Status Code will be - Complete (C) or Incomplete (I): '||l_trans_status_code);
689: END IF;
690:
683: ELSIF l_mtl_item_tbl(j).serial_number is NOT NULL THEN
684: IF l_src_instance_header_tbl.count = 1 THEN -- Installed Base Records Found
685: IF (l_debug > 0) THEN
686: csi_t_gen_utility_pvt.add('You are updating an Item Instance Record');
687: csi_t_gen_utility_pvt.add('You are updating a Serialized Item: '||l_src_instance_header_tbl(i).instance_id);
688: csi_t_gen_utility_pvt.add('The Transaction Status Code will be - Complete (C) or Incomplete (I): '||l_trans_status_code);
689: END IF;
690:
691: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
684: IF l_src_instance_header_tbl.count = 1 THEN -- Installed Base Records Found
685: IF (l_debug > 0) THEN
686: csi_t_gen_utility_pvt.add('You are updating an Item Instance Record');
687: csi_t_gen_utility_pvt.add('You are updating a Serialized Item: '||l_src_instance_header_tbl(i).instance_id);
688: csi_t_gen_utility_pvt.add('The Transaction Status Code will be - Complete (C) or Incomplete (I): '||l_trans_status_code);
689: END IF;
690:
691: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
692: l_update_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
710: l_org_assignments_tbl.delete;
711: l_asset_assignment_tbl.delete;
712:
713: IF (l_debug > 0) THEN
714: csi_t_gen_utility_pvt.add('Before Update Item Instance');
715: END IF;
716:
717: csi_item_instance_pub.update_item_instance(l_api_version,
718: l_commit,
734: l_upd_error_instance_id := NULL;
735: l_upd_error_instance_id := l_update_instance_rec.instance_id;
736:
737: IF (l_debug > 0) THEN
738: csi_t_gen_utility_pvt.add('After Update Item Instance');
739: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
740: END IF;
741:
742: -- Check for any errors and add them to the message stack to pass out to be put into the
735: l_upd_error_instance_id := l_update_instance_rec.instance_id;
736:
737: IF (l_debug > 0) THEN
738: csi_t_gen_utility_pvt.add('After Update Item Instance');
739: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
740: END IF;
741:
742: -- Check for any errors and add them to the message stack to pass out to be put into the
743: -- error log table.
742: -- Check for any errors and add them to the message stack to pass out to be put into the
743: -- error log table.
744: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
745: IF (l_debug > 0) THEN
746: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
747: END IF;
748: l_msg_index := 1;
749: WHILE l_msg_count > 0 loop
750: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
754: RAISE fnd_api.g_exc_error;
755: END IF;
756: ELSIF l_src_instance_header_tbl.count = 0 THEN
757: IF (l_debug > 0) THEN
758: csi_t_gen_utility_pvt.add('No Records were found in Install Base');
759: END IF;
760: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
761: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
762: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
766:
767: ELSIF l_src_instance_header_tbl.count > 1 THEN
768: -- Multiple Instances were found so throw error
769: IF (l_debug > 0) THEN
770: csi_t_gen_utility_pvt.add('Multiple Instances were Found in InstallBase-40');
771: END IF;
772: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
773: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
774: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
780: END IF; -- End of Serial Number If
781: END LOOP; -- End of For Loop
782:
783: IF (l_debug > 0) THEN
784: csi_t_gen_utility_pvt.add('*****End of csi_inv_trxs_pkg.issue_to_project Transaction procedure*****');
785: END IF;
786:
787: EXCEPTION
788: WHEN fnd_api.g_exc_error THEN
786:
787: EXCEPTION
788: WHEN fnd_api.g_exc_error THEN
789: IF (l_debug > 0) THEN
790: csi_t_gen_utility_pvt.add('You have encountered a "fnd_api.g_exc_error" exception');
791: END IF;
792: x_return_status := l_fnd_error;
793:
794: IF l_mtl_item_tbl.count > 0 THEN
814: x_trx_error_rec.error_stage := csi_inv_trxs_pkg.g_ib_update;
815:
816: WHEN others THEN
817: IF (l_debug > 0) THEN
818: csi_t_gen_utility_pvt.add('You have encountered a "others" exception');
819: END IF;
820: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
821: fnd_message.set_token('API_NAME',l_api_name);
822: fnd_message.set_token('SQL_ERROR',SQLERRM);
929:
930: x_return_status := l_fnd_success;
931:
932: IF (l_debug > 0) THEN
933: csi_t_gen_utility_pvt.add('*****Start of csi_inv_trxs_pkg.misc_receipt_projtask Transaction procedure*****');
934: csi_t_gen_utility_pvt.add('Transaction You are Processing is: '||p_transaction_id);
935: END IF;
936:
937: -- This procedure queries all of the Inventory Transaction Records and returns them
930: x_return_status := l_fnd_success;
931:
932: IF (l_debug > 0) THEN
933: csi_t_gen_utility_pvt.add('*****Start of csi_inv_trxs_pkg.misc_receipt_projtask Transaction procedure*****');
934: csi_t_gen_utility_pvt.add('Transaction You are Processing is: '||p_transaction_id);
935: END IF;
936:
937: -- This procedure queries all of the Inventory Transaction Records and returns them
938: -- as a table.
943:
944: l_tbl_count := 0;
945: l_tbl_count := l_mtl_item_tbl.count;
946: IF (l_debug > 0) THEN
947: csi_t_gen_utility_pvt.add('Inventory Records Found: '||l_tbl_count);
948: END IF;
949:
950: IF NOT l_return_status = l_fnd_success THEN
951: IF (l_debug > 0) THEN
948: END IF;
949:
950: IF NOT l_return_status = l_fnd_success THEN
951: IF (l_debug > 0) THEN
952: csi_t_gen_utility_pvt.add('You have encountered an error in CSI_INV_TRXS_PKG.get_transaction_recs, Transaction ID: '||p_transaction_id);
953: END IF;
954: RAISE fnd_api.g_exc_error;
955: END IF;
956:
961: l_error_message);
962:
963: IF NOT l_return_status = l_fnd_success THEN
964: IF (l_debug > 0) THEN
965: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_master_organization, Organization ID: '||l_mtl_item_tbl(i).organization_id);
966: END IF;
967: RAISE fnd_api.g_exc_error;
968: END IF;
969:
971: l_employee_id := csi_inv_trxs_pkg.get_fnd_employee_id(l_mtl_item_tbl(i).last_updated_by);
972:
973: IF l_employee_id = -1 THEN
974: IF (l_debug > 0) THEN
975: csi_t_gen_utility_pvt.add('The person who last updated this record: '||l_mtl_item_tbl(i).last_updated_by||' does not exist as a valid employee');
976: END IF;
977: END IF;
978: IF (l_debug > 0) THEN
979: csi_t_gen_utility_pvt.add('The Employee that is processing this Transaction is: '||l_employee_id);
975: csi_t_gen_utility_pvt.add('The person who last updated this record: '||l_mtl_item_tbl(i).last_updated_by||' does not exist as a valid employee');
976: END IF;
977: END IF;
978: IF (l_debug > 0) THEN
979: csi_t_gen_utility_pvt.add('The Employee that is processing this Transaction is: '||l_employee_id);
980: END IF;
981:
982: -- See if this is a depreciable Item to set the status of the transaction record
983: csi_inv_trxs_pkg.check_depreciable(l_mtl_item_tbl(i).inventory_item_id,
983: csi_inv_trxs_pkg.check_depreciable(l_mtl_item_tbl(i).inventory_item_id,
984: l_depreciable);
985:
986: IF (l_debug > 0) THEN
987: csi_t_gen_utility_pvt.add('Is this Item ID: '||l_mtl_item_tbl(i).inventory_item_id||', Depreciable :'||l_depreciable);
988: END IF;
989:
990: -- Set the quantity
991: IF l_mtl_item_tbl(i).serial_number IS NULL THEN
1017: END IF;
1018:
1019: IF NOT l_return_status = l_fnd_success THEN
1020: IF (l_debug > 0) THEN
1021: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
1022: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
1023: END IF;
1024: RAISE fnd_api.g_exc_error;
1025: END IF;
1018:
1019: IF NOT l_return_status = l_fnd_success THEN
1020: IF (l_debug > 0) THEN
1021: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
1022: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
1023: END IF;
1024: RAISE fnd_api.g_exc_error;
1025: END IF;
1026:
1024: RAISE fnd_api.g_exc_error;
1025: END IF;
1026:
1027: IF (l_debug > 0) THEN
1028: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
1029: csi_t_gen_utility_pvt.add('Trans Status Code: '||l_txn_rec.transaction_status_code);
1030: END IF;
1031:
1032: -- Get Default Status ID
1025: END IF;
1026:
1027: IF (l_debug > 0) THEN
1028: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
1029: csi_t_gen_utility_pvt.add('Trans Status Code: '||l_txn_rec.transaction_status_code);
1030: END IF;
1031:
1032: -- Get Default Status ID
1033: OPEN c_id;
1050: l_error_message,
1051: l_return_status);
1052:
1053: IF (l_debug > 0) THEN
1054: csi_t_gen_utility_pvt.add('CSI Transaction Created: '||l_txn_rec.transaction_id);
1055: END IF;
1056:
1057: IF NOT l_return_status = l_fnd_success THEN
1058: IF (l_debug > 0) THEN
1055: END IF;
1056:
1057: IF NOT l_return_status = l_fnd_success THEN
1058: IF (l_debug > 0) THEN
1059: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.create_csi_txn: '||p_transaction_id);
1060: END IF;
1061: RAISE fnd_api.g_exc_error;
1062: END IF;
1063:
1064: -- Now loop through the PL/SQL Table.
1065: j := 1;
1066:
1067: IF (l_debug > 0) THEN
1068: csi_t_gen_utility_pvt.add('Starting to loop through Material Transaction Records');
1069: END IF;
1070:
1071: FOR j in l_mtl_item_tbl.FIRST .. l_mtl_item_tbl.LAST LOOP
1072:
1070:
1071: FOR j in l_mtl_item_tbl.FIRST .. l_mtl_item_tbl.LAST LOOP
1072:
1073: IF (l_debug > 0) THEN
1074: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
1075: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
1076: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
1077: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
1078: END IF;
1071: FOR j in l_mtl_item_tbl.FIRST .. l_mtl_item_tbl.LAST LOOP
1072:
1073: IF (l_debug > 0) THEN
1074: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
1075: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
1076: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
1077: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
1078: END IF;
1079:
1072:
1073: IF (l_debug > 0) THEN
1074: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
1075: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
1076: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
1077: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
1078: END IF;
1079:
1080: IF l_mtl_item_tbl(j).serial_number IS NOT NULL THEN -- Serialized
1073: IF (l_debug > 0) THEN
1074: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
1075: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
1076: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
1077: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
1078: END IF;
1079:
1080: IF l_mtl_item_tbl(j).serial_number IS NOT NULL THEN -- Serialized
1081:
1086: l_instance_query_rec.serial_number := l_mtl_item_tbl(j).serial_number;
1087: --l_instance_query_rec.instance_usage_code := l_in_process;
1088:
1089: IF (l_debug > 0) THEN
1090: csi_t_gen_utility_pvt.add('Before Get Item Instance');
1091: END IF;
1092:
1093: csi_item_instance_pub.get_item_instances(l_api_version,
1094: l_commit,
1105: l_msg_count,
1106: l_msg_data);
1107:
1108: IF (l_debug > 0) THEN
1109: csi_t_gen_utility_pvt.add('After Update Item Instance');
1110: END IF;
1111: l_tbl_count := 0;
1112: l_tbl_count := l_src_instance_header_tbl.count;
1113: IF (l_debug > 0) THEN
1110: END IF;
1111: l_tbl_count := 0;
1112: l_tbl_count := l_src_instance_header_tbl.count;
1113: IF (l_debug > 0) THEN
1114: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
1115: END IF;
1116:
1117: -- Check for any errors and add them to the message stack to pass out to be put into the
1118: -- error log table.
1117: -- Check for any errors and add them to the message stack to pass out to be put into the
1118: -- error log table.
1119: IF NOT l_return_status = l_fnd_success then
1120: IF (l_debug > 0) THEN
1121: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
1122: END IF;
1123: l_msg_index := 1;
1124: WHILE l_msg_count > 0 loop
1125: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1137: l_in_service,
1138: l_in_process) THEN
1139:
1140: IF (l_debug > 0) THEN
1141: csi_t_gen_utility_pvt.add('Source records found so decide which one to update');
1142: END IF;
1143:
1144: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
1145: l_update_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
1167: l_org_assignments_tbl.delete;
1168: l_asset_assignment_tbl.delete;
1169:
1170: IF (l_debug > 0) THEN
1171: csi_t_gen_utility_pvt.add('Before Update Item Instance');
1172: END IF;
1173:
1174: csi_item_instance_pub.update_item_instance(l_api_version,
1175: l_commit,
1191: l_upd_error_instance_id := NULL;
1192: l_upd_error_instance_id := l_update_instance_rec.instance_id;
1193:
1194: IF (l_debug > 0) THEN
1195: csi_t_gen_utility_pvt.add('After Update Item Instance');
1196: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1197: END IF;
1198:
1199: -- Check for any errors and add them to the message stack to pass out to be put into the
1192: l_upd_error_instance_id := l_update_instance_rec.instance_id;
1193:
1194: IF (l_debug > 0) THEN
1195: csi_t_gen_utility_pvt.add('After Update Item Instance');
1196: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1197: END IF;
1198:
1199: -- Check for any errors and add them to the message stack to pass out to be put into the
1200: -- error log table.
1199: -- Check for any errors and add them to the message stack to pass out to be put into the
1200: -- error log table.
1201: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1202: IF (l_debug > 0) THEN
1203: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
1204: END IF;
1205: l_msg_index := 1;
1206: WHILE l_msg_count > 0 loop
1207: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1212: END IF;
1213: ELSE
1214: l_status := 'In Inventory, Out of Service, Installed, In Service or In Process';
1215: IF (l_debug > 0) THEN
1216: csi_t_gen_utility_pvt.add('Serialized Item with Status other then Out Of Service, In Inventory, Installed, or In Process already exists in Install Base');
1217: csi_t_gen_utility_pvt.add('Instance Usage Code is: '||l_src_instance_header_tbl(i).instance_usage_code);
1218: END IF;
1219: fnd_message.set_name('CSI','CSI_SERIALIZED_ITEM_EXISTS');
1220: fnd_message.set_token('STATUS',l_status);
1213: ELSE
1214: l_status := 'In Inventory, Out of Service, Installed, In Service or In Process';
1215: IF (l_debug > 0) THEN
1216: csi_t_gen_utility_pvt.add('Serialized Item with Status other then Out Of Service, In Inventory, Installed, or In Process already exists in Install Base');
1217: csi_t_gen_utility_pvt.add('Instance Usage Code is: '||l_src_instance_header_tbl(i).instance_usage_code);
1218: END IF;
1219: fnd_message.set_name('CSI','CSI_SERIALIZED_ITEM_EXISTS');
1220: fnd_message.set_token('STATUS',l_status);
1221: l_error_message := fnd_message.get;
1224: END IF;
1225:
1226: ELSIF l_src_instance_header_tbl.count = 0 THEN
1227:
1228: csi_t_gen_utility_pvt.add('No Serialized Instances are found so we need to create one that we would have received from the project and task');
1229:
1230: l_new_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
1231: l_new_instance_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
1232: l_new_instance_rec.inventory_revision := l_mtl_item_tbl(j).revision;
1257: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
1258:
1259: l_new_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
1260:
1261: csi_t_gen_utility_pvt.add('Instance_status_id Value: '||nvl(l_new_instance_rec.instance_status_id,-1));
1262: csi_t_gen_utility_pvt.add('You will now Create a new Item Instance Record');
1263: csi_t_gen_utility_pvt.add('Serial Number: '||l_new_instance_rec.serial_number);
1264:
1265: csi_item_instance_pub.create_item_instance(l_api_version,
1258:
1259: l_new_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
1260:
1261: csi_t_gen_utility_pvt.add('Instance_status_id Value: '||nvl(l_new_instance_rec.instance_status_id,-1));
1262: csi_t_gen_utility_pvt.add('You will now Create a new Item Instance Record');
1263: csi_t_gen_utility_pvt.add('Serial Number: '||l_new_instance_rec.serial_number);
1264:
1265: csi_item_instance_pub.create_item_instance(l_api_version,
1266: l_commit,
1259: l_new_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
1260:
1261: csi_t_gen_utility_pvt.add('Instance_status_id Value: '||nvl(l_new_instance_rec.instance_status_id,-1));
1262: csi_t_gen_utility_pvt.add('You will now Create a new Item Instance Record');
1263: csi_t_gen_utility_pvt.add('Serial Number: '||l_new_instance_rec.serial_number);
1264:
1265: csi_item_instance_pub.create_item_instance(l_api_version,
1266: l_commit,
1267: l_init_msg_list,
1280:
1281: -- Check for any errors and add them to the message stack to pass out to be put into the
1282: -- error log table.
1283: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1284: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
1285: l_msg_index := 1;
1286: WHILE l_msg_count > 0 loop
1287: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1288: l_msg_index := l_msg_index + 1;
1290: END LOOP;
1291: RAISE fnd_api.g_exc_error;
1292: END IF;
1293:
1294: csi_t_gen_utility_pvt.add('Item Instance Created: '||l_new_instance_rec.instance_id);
1295:
1296: -- Bug 4378656 - If the instance is not there then we still need to create one that is In Inventory.
1297: -- IF (l_debug > 0) THEN
1298: -- csi_t_gen_utility_pvt.add('No Records were found in Install Base');
1294: csi_t_gen_utility_pvt.add('Item Instance Created: '||l_new_instance_rec.instance_id);
1295:
1296: -- Bug 4378656 - If the instance is not there then we still need to create one that is In Inventory.
1297: -- IF (l_debug > 0) THEN
1298: -- csi_t_gen_utility_pvt.add('No Records were found in Install Base');
1299: -- END IF;
1300: -- fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
1301: -- fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
1302: -- fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
1306:
1307: ELSIF l_src_instance_header_tbl.count > 1 THEN
1308: -- Multiple Instances were found so throw error
1309: IF (l_debug > 0) THEN
1310: csi_t_gen_utility_pvt.add('Multiple Instances were Found in InstallBase-55');
1311: END IF;
1312: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
1313: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
1314: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
1328: l_instance_query_rec.inventory_revision := l_mtl_item_tbl(j).revision;
1329: l_instance_query_rec.instance_usage_code := l_in_process;
1330:
1331: IF (l_debug > 0) THEN
1332: csi_t_gen_utility_pvt.add('Before Get Item Instance');
1333: END IF;
1334:
1335: csi_item_instance_pub.get_item_instances(l_api_version,
1336: l_commit,
1347: l_msg_count,
1348: l_msg_data);
1349:
1350: IF (l_debug > 0) THEN
1351: csi_t_gen_utility_pvt.add('After Get Item Instance');
1352: END IF;
1353: l_tbl_count := 0;
1354: l_tbl_count := l_src_instance_header_tbl.count;
1355: IF (l_debug > 0) THEN
1352: END IF;
1353: l_tbl_count := 0;
1354: l_tbl_count := l_src_instance_header_tbl.count;
1355: IF (l_debug > 0) THEN
1356: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
1357: END IF;
1358:
1359: -- Check for any errors and add them to the message stack to pass out to be put into the
1360: -- error log table.
1359: -- Check for any errors and add them to the message stack to pass out to be put into the
1360: -- error log table.
1361: IF NOT l_return_status = l_fnd_success then
1362: IF (l_debug > 0) THEN
1363: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
1364: END IF;
1365: l_msg_index := 1;
1366: WHILE l_msg_count > 0 loop
1367: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1385: l_org_assignments_tbl.delete;
1386: l_asset_assignment_tbl.delete;
1387:
1388: IF (l_debug > 0) THEN
1389: csi_t_gen_utility_pvt.add('Before Update Item Instance');
1390: END IF;
1391:
1392: csi_item_instance_pub.update_item_instance(l_api_version,
1393: l_commit,
1409: l_upd_error_instance_id := NULL;
1410: l_upd_error_instance_id := l_upd_src_dest_instance_rec.instance_id;
1411:
1412: IF (l_debug > 0) THEN
1413: csi_t_gen_utility_pvt.add('After Update Item Instance');
1414: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1415: END IF;
1416:
1417: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1410: l_upd_error_instance_id := l_upd_src_dest_instance_rec.instance_id;
1411:
1412: IF (l_debug > 0) THEN
1413: csi_t_gen_utility_pvt.add('After Update Item Instance');
1414: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1415: END IF;
1416:
1417: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1418: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1416:
1417: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1418: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1419: IF (l_debug > 0) THEN
1420: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
1421: END IF;
1422: l_msg_index := 1;
1423: WHILE l_msg_count > 0 loop
1424: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1439: l_instance_dest_query_rec.serial_number := NULL;
1440: l_instance_dest_query_rec.instance_usage_code := l_in_inventory;
1441:
1442: IF (l_debug > 0) THEN
1443: csi_t_gen_utility_pvt.add('Before Get Item Instance');
1444: END IF;
1445:
1446: csi_item_instance_pub.get_item_instances(l_api_version,
1447: l_commit,
1458: l_msg_count,
1459: l_msg_data);
1460:
1461: IF (l_debug > 0) THEN
1462: csi_t_gen_utility_pvt.add('After Get Item Instance');
1463: END IF;
1464: l_tbl_count := 0;
1465: l_tbl_count := l_dest_instance_header_tbl.count;
1466: IF (l_debug > 0) THEN
1463: END IF;
1464: l_tbl_count := 0;
1465: l_tbl_count := l_dest_instance_header_tbl.count;
1466: IF (l_debug > 0) THEN
1467: csi_t_gen_utility_pvt.add('Destination Records Found: '||l_tbl_count);
1468: END IF;
1469:
1470: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1471: IF NOT l_return_status = l_fnd_success then
1469:
1470: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1471: IF NOT l_return_status = l_fnd_success then
1472: IF (l_debug > 0) THEN
1473: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
1474: END IF;
1475: l_msg_index := 1;
1476: WHILE l_msg_count > 0 loop
1477: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1515:
1516: l_new_dest_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
1517:
1518: IF (l_debug > 0) THEN
1519: csi_t_gen_utility_pvt.add('Before Create Item Instance');
1520: END IF;
1521:
1522: csi_item_instance_pub.create_item_instance(l_api_version,
1523: l_commit,
1535: l_msg_count,
1536: l_msg_data);
1537:
1538: IF (l_debug > 0) THEN
1539: csi_t_gen_utility_pvt.add('After Update Item Instance');
1540: csi_t_gen_utility_pvt.add('Item Instance Created: '||l_new_dest_instance_rec.instance_id);
1541: END IF;
1542:
1543: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1536: l_msg_data);
1537:
1538: IF (l_debug > 0) THEN
1539: csi_t_gen_utility_pvt.add('After Update Item Instance');
1540: csi_t_gen_utility_pvt.add('Item Instance Created: '||l_new_dest_instance_rec.instance_id);
1541: END IF;
1542:
1543: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1544: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1542:
1543: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1544: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1545: IF (l_debug > 0) THEN
1546: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
1547: END IF;
1548: l_msg_index := 1;
1549: WHILE l_msg_count > 0 loop
1550: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1570:
1571: l_update_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
1572:
1573: IF (l_debug > 0) THEN
1574: csi_t_gen_utility_pvt.add('Before Update Item Instance');
1575: END IF;
1576:
1577: csi_item_instance_pub.update_item_instance(l_api_version,
1578: l_commit,
1594: l_upd_error_instance_id := NULL;
1595: l_upd_error_instance_id := l_update_instance_rec.instance_id;
1596:
1597: IF (l_debug > 0) THEN
1598: csi_t_gen_utility_pvt.add('After Update Item Instance');
1599: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1600: END IF;
1601:
1602: -- Check for any errors and add them to the message stack to pass out to be put into the
1595: l_upd_error_instance_id := l_update_instance_rec.instance_id;
1596:
1597: IF (l_debug > 0) THEN
1598: csi_t_gen_utility_pvt.add('After Update Item Instance');
1599: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1600: END IF;
1601:
1602: -- Check for any errors and add them to the message stack to pass out to be put into the
1603: -- error log table.
1602: -- Check for any errors and add them to the message stack to pass out to be put into the
1603: -- error log table.
1604: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1605: IF (l_debug > 0) THEN
1606: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
1607: END IF;
1608: l_msg_index := 1;
1609: WHILE l_msg_count > 0 loop
1610: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1616:
1617: ELSIF l_dest_instance_header_tbl.count > 1 THEN
1618: -- Multiple Instances were found so throw error
1619: IF (l_debug > 0) THEN
1620: csi_t_gen_utility_pvt.add('Multiple Instances were Found in Install Base-50');
1621: END IF;
1622: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
1623: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
1624: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
1629: END IF; -- End of Destination Record If
1630:
1631: ELSIF l_src_instance_header_tbl.count = 0 THEN
1632:
1633: csi_t_gen_utility_pvt.add('No Source Records in a Project and Task Exist. Query for the inventory record in the Org to see if it exists. If it does then add to that instance otherwise create a new instance that is located in Inventory');
1634:
1635: -- No Project and Task Records exist so check if there are any in Inventory. If not we will create otherwise update
1636: l_instance_dest_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
1637: l_instance_dest_query_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
1643: l_instance_dest_query_rec.serial_number := NULL;
1644: l_instance_dest_query_rec.instance_usage_code := l_in_inventory;
1645:
1646: IF (l_debug > 0) THEN
1647: csi_t_gen_utility_pvt.add('Before Get Item Instance');
1648: END IF;
1649:
1650: csi_item_instance_pub.get_item_instances(l_api_version,
1651: l_commit,
1662: l_msg_count,
1663: l_msg_data);
1664:
1665: IF (l_debug > 0) THEN
1666: csi_t_gen_utility_pvt.add('After Get Item Instance');
1667: END IF;
1668: l_tbl_count := 0;
1669: l_tbl_count := l_dest_instance_header_tbl.count;
1670: IF (l_debug > 0) THEN
1667: END IF;
1668: l_tbl_count := 0;
1669: l_tbl_count := l_dest_instance_header_tbl.count;
1670: IF (l_debug > 0) THEN
1671: csi_t_gen_utility_pvt.add('Destination Records Found: '||l_tbl_count);
1672: END IF;
1673:
1674: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1675: IF NOT l_return_status = l_fnd_success then
1673:
1674: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1675: IF NOT l_return_status = l_fnd_success then
1676: IF (l_debug > 0) THEN
1677: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
1678: END IF;
1679: l_msg_index := 1;
1680: WHILE l_msg_count > 0 loop
1681: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1686: END IF;
1687:
1688: IF l_dest_instance_header_tbl.count = 0 THEN
1689:
1690: csi_t_gen_utility_pvt.add('No Records existed so we will create a new one in Inventory that is Non Serialized');
1691:
1692: l_new_dest_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
1693: l_new_dest_instance_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
1694: l_new_dest_instance_rec.inventory_revision := l_mtl_item_tbl(j).revision;
1721:
1722: l_new_dest_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
1723:
1724: IF (l_debug > 0) THEN
1725: csi_t_gen_utility_pvt.add('Before Create Item Instance');
1726: END IF;
1727:
1728: csi_item_instance_pub.create_item_instance(l_api_version,
1729: l_commit,
1741: l_msg_count,
1742: l_msg_data);
1743:
1744: IF (l_debug > 0) THEN
1745: csi_t_gen_utility_pvt.add('After Update Item Instance');
1746: csi_t_gen_utility_pvt.add('Item Instance Created: '||l_new_dest_instance_rec.instance_id);
1747: END IF;
1748:
1749: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1742: l_msg_data);
1743:
1744: IF (l_debug > 0) THEN
1745: csi_t_gen_utility_pvt.add('After Update Item Instance');
1746: csi_t_gen_utility_pvt.add('Item Instance Created: '||l_new_dest_instance_rec.instance_id);
1747: END IF;
1748:
1749: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1750: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1748:
1749: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1750: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1751: IF (l_debug > 0) THEN
1752: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
1753: END IF;
1754: l_msg_index := 1;
1755: WHILE l_msg_count > 0 loop
1756: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1761: END IF;
1762:
1763: ELSIF l_dest_instance_header_tbl.count = 1 THEN
1764:
1765: csi_t_gen_utility_pvt.add('Records existed so we will update the existing Instance: '||l_dest_instance_header_tbl(i).instance_id);
1766:
1767: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
1768: l_update_instance_rec.instance_id := l_dest_instance_header_tbl(i).instance_id;
1769: l_update_instance_rec.quantity := l_dest_instance_header_tbl(i).quantity + abs(l_mtl_item_tbl(j).primary_quantity);
1778:
1779: l_update_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
1780:
1781: IF (l_debug > 0) THEN
1782: csi_t_gen_utility_pvt.add('Before Update Item Instance');
1783: END IF;
1784:
1785: csi_item_instance_pub.update_item_instance(l_api_version,
1786: l_commit,
1802: l_upd_error_instance_id := NULL;
1803: l_upd_error_instance_id := l_update_instance_rec.instance_id;
1804:
1805: IF (l_debug > 0) THEN
1806: csi_t_gen_utility_pvt.add('After Update Item Instance');
1807: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1808: END IF;
1809:
1810: -- Check for any errors and add them to the message stack to pass out to be put into the
1803: l_upd_error_instance_id := l_update_instance_rec.instance_id;
1804:
1805: IF (l_debug > 0) THEN
1806: csi_t_gen_utility_pvt.add('After Update Item Instance');
1807: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1808: END IF;
1809:
1810: -- Check for any errors and add them to the message stack to pass out to be put into the
1811: -- error log table.
1810: -- Check for any errors and add them to the message stack to pass out to be put into the
1811: -- error log table.
1812: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1813: IF (l_debug > 0) THEN
1814: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
1815: END IF;
1816: l_msg_index := 1;
1817: WHILE l_msg_count > 0 loop
1818: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1824:
1825: ELSIF l_dest_instance_header_tbl.count > 1 THEN
1826: -- Multiple Instances were found so throw error
1827: IF (l_debug > 0) THEN
1828: csi_t_gen_utility_pvt.add('Multiple Instances were Found in Install Base so error-90');
1829: END IF;
1830: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
1831: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
1832: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
1837: END IF; -- End of Destination Record If for checking for In Inventory Records because the Project/Source Instance was not there.
1838:
1839: -- Bug 4378656 - If the instance is not there then we still need to create one that is In Inventory.
1840: -- IF (l_debug > 0) THEN
1841: -- csi_t_gen_utility_pvt.add('No Records were found in Install Base');
1842: -- END IF;
1843: -- fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
1844: -- fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
1845: -- fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
1849:
1850: ELSIF l_src_instance_header_tbl.count > 1 THEN
1851: -- Multiple Instances were found so throw error
1852: IF (l_debug > 0) THEN
1853: csi_t_gen_utility_pvt.add('Multiple Instances were Found in InstallBase-75');
1854: END IF;
1855: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
1856: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
1857: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
1863: END IF; -- End of Serial Number If
1864: END LOOP; -- End of For Loop
1865:
1866: IF (l_debug > 0) THEN
1867: csi_t_gen_utility_pvt.add('*****End of csi_inv_trxs_pkg.misc_receipt_projtask Transaction procedure*****');
1868: END IF;
1869:
1870: EXCEPTION
1871: WHEN fnd_api.g_exc_error THEN
1869:
1870: EXCEPTION
1871: WHEN fnd_api.g_exc_error THEN
1872: IF (l_debug > 0) THEN
1873: csi_t_gen_utility_pvt.add('You have encountered a "fnd_api.g_exc_error" exception');
1874: END IF;
1875: x_return_status := l_fnd_error;
1876:
1877: IF l_mtl_item_tbl.count > 0 THEN
1897: x_trx_error_rec.error_stage := csi_inv_trxs_pkg.g_ib_update;
1898:
1899: WHEN others THEN
1900: IF (l_debug > 0) THEN
1901: csi_t_gen_utility_pvt.add('You have encountered a "others" exception');
1902: END IF;
1903: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
1904: fnd_message.set_token('API_NAME',l_api_name);
1905: fnd_message.set_token('SQL_ERROR',SQLERRM);
2012:
2013: x_return_status := l_fnd_success;
2014:
2015: IF (l_debug > 0) THEN
2016: csi_t_gen_utility_pvt.add('*****Start of csi_inv_trxs_pkg.misc_issue_projtask Transaction procedure*****');
2017: csi_t_gen_utility_pvt.add('Transaction You are Processing is: '||p_transaction_id);
2018: END IF;
2019:
2020: -- This procedure queries all of the Inventory Transaction Records and returns them
2013: x_return_status := l_fnd_success;
2014:
2015: IF (l_debug > 0) THEN
2016: csi_t_gen_utility_pvt.add('*****Start of csi_inv_trxs_pkg.misc_issue_projtask Transaction procedure*****');
2017: csi_t_gen_utility_pvt.add('Transaction You are Processing is: '||p_transaction_id);
2018: END IF;
2019:
2020: -- This procedure queries all of the Inventory Transaction Records and returns them
2021: -- as a table.
2026:
2027: l_tbl_count := 0;
2028: l_tbl_count := l_mtl_item_tbl.count;
2029: IF (l_debug > 0) THEN
2030: csi_t_gen_utility_pvt.add('Inventory Records Found: '||l_tbl_count);
2031: END IF;
2032:
2033: IF NOT l_return_status = l_fnd_success THEN
2034: IF (l_debug > 0) THEN
2031: END IF;
2032:
2033: IF NOT l_return_status = l_fnd_success THEN
2034: IF (l_debug > 0) THEN
2035: csi_t_gen_utility_pvt.add('You have encountered an error in CSI_INV_TRXS_PKG.get_transaction_recs, Transaction ID: '||p_transaction_id);
2036: END IF;
2037: RAISE fnd_api.g_exc_error;
2038: END IF;
2039:
2044: l_error_message);
2045:
2046: IF NOT l_return_status = l_fnd_success THEN
2047: IF (l_debug > 0) THEN
2048: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_master_organization, Organization ID: '||l_mtl_item_tbl(i).organization_id);
2049: END IF;
2050: RAISE fnd_api.g_exc_error;
2051: END IF;
2052:
2054: l_employee_id := csi_inv_trxs_pkg.get_fnd_employee_id(l_mtl_item_tbl(i).last_updated_by);
2055:
2056: IF l_employee_id = -1 THEN
2057: IF (l_debug > 0) THEN
2058: csi_t_gen_utility_pvt.add('The person who last updated this record: '||l_mtl_item_tbl(i).last_updated_by||' does not exist as a valid employee');
2059: END IF;
2060: END IF;
2061: IF (l_debug > 0) THEN
2062: csi_t_gen_utility_pvt.add('The Employee that is processing this Transaction is: '||l_employee_id);
2058: csi_t_gen_utility_pvt.add('The person who last updated this record: '||l_mtl_item_tbl(i).last_updated_by||' does not exist as a valid employee');
2059: END IF;
2060: END IF;
2061: IF (l_debug > 0) THEN
2062: csi_t_gen_utility_pvt.add('The Employee that is processing this Transaction is: '||l_employee_id);
2063: END IF;
2064:
2065: -- See if this is a depreciable Item to set the status of the transaction record
2066: csi_inv_trxs_pkg.check_depreciable(l_mtl_item_tbl(i).inventory_item_id,
2066: csi_inv_trxs_pkg.check_depreciable(l_mtl_item_tbl(i).inventory_item_id,
2067: l_depreciable);
2068:
2069: IF (l_debug > 0) THEN
2070: csi_t_gen_utility_pvt.add('Is this Item ID: '||l_mtl_item_tbl(i).inventory_item_id||', Depreciable :'||l_depreciable);
2071: END IF;
2072:
2073:
2074: -- Set the mfg_serial_number_flag and quantity
2092: l_instance_status := FND_API.G_TRUE;
2093: END IF;
2094:
2095: IF (l_debug > 0) THEN
2096: csi_t_gen_utility_pvt.add('Negative Code is - 1 = Yes, 2 = No: '||l_neg_code);
2097: END IF;
2098:
2099: -- Initialize Transaction Record
2100: l_txn_rec := csi_inv_trxs_pkg.init_txn_rec;
2119: END IF;
2120:
2121: IF NOT l_return_status = l_fnd_success THEN
2122: IF (l_debug > 0) THEN
2123: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
2124: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
2125: END IF;
2126: RAISE fnd_api.g_exc_error;
2127: END IF;
2120:
2121: IF NOT l_return_status = l_fnd_success THEN
2122: IF (l_debug > 0) THEN
2123: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
2124: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
2125: END IF;
2126: RAISE fnd_api.g_exc_error;
2127: END IF;
2128:
2126: RAISE fnd_api.g_exc_error;
2127: END IF;
2128:
2129: IF (l_debug > 0) THEN
2130: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
2131: csi_t_gen_utility_pvt.add('Trans Status Code: '||l_txn_rec.transaction_status_code);
2132: END IF;
2133:
2134: -- Get Default Status ID
2127: END IF;
2128:
2129: IF (l_debug > 0) THEN
2130: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
2131: csi_t_gen_utility_pvt.add('Trans Status Code: '||l_txn_rec.transaction_status_code);
2132: END IF;
2133:
2134: -- Get Default Status ID
2135: OPEN c_id;
2152: l_error_message,
2153: l_return_status);
2154:
2155: IF (l_debug > 0) THEN
2156: csi_t_gen_utility_pvt.add('CSI Transaction Created: '||l_txn_rec.transaction_id);
2157: END IF;
2158:
2159: IF NOT l_return_status = l_fnd_success THEN
2160: IF (l_debug > 0) THEN
2157: END IF;
2158:
2159: IF NOT l_return_status = l_fnd_success THEN
2160: IF (l_debug > 0) THEN
2161: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.create_csi_txn: '||p_transaction_id);
2162: END IF;
2163: RAISE fnd_api.g_exc_error;
2164: END IF;
2165:
2166: -- Now loop through the PL/SQL Table.
2167: j := 1;
2168:
2169: IF (l_debug > 0) THEN
2170: csi_t_gen_utility_pvt.add('Starting to loop through Material Transaction Records');
2171: END IF;
2172:
2173: FOR j in l_mtl_item_tbl.FIRST .. l_mtl_item_tbl.LAST LOOP
2174:
2172:
2173: FOR j in l_mtl_item_tbl.FIRST .. l_mtl_item_tbl.LAST LOOP
2174:
2175: IF (l_debug > 0) THEN
2176: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
2177: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
2178: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
2179: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
2180: END IF;
2173: FOR j in l_mtl_item_tbl.FIRST .. l_mtl_item_tbl.LAST LOOP
2174:
2175: IF (l_debug > 0) THEN
2176: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
2177: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
2178: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
2179: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
2180: END IF;
2181:
2174:
2175: IF (l_debug > 0) THEN
2176: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
2177: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
2178: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
2179: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
2180: END IF;
2181:
2182: l_instance_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
2175: IF (l_debug > 0) THEN
2176: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
2177: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
2178: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
2179: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
2180: END IF;
2181:
2182: l_instance_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
2183: l_instance_query_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
2189: l_instance_query_rec.inventory_revision := l_mtl_item_tbl(j).revision;
2190: l_instance_query_rec.instance_usage_code := l_in_inventory;
2191:
2192: IF (l_debug > 0) THEN
2193: csi_t_gen_utility_pvt.add('Before Get Item Instance');
2194: END IF;
2195:
2196: csi_item_instance_pub.get_item_instances(l_api_version,
2197: l_commit,
2208: l_msg_count,
2209: l_msg_data);
2210:
2211: IF (l_debug > 0) THEN
2212: csi_t_gen_utility_pvt.add('After Get Item Instance');
2213: END IF;
2214: l_tbl_count := 0;
2215: l_tbl_count := l_src_instance_header_tbl.count;
2216: IF (l_debug > 0) THEN
2213: END IF;
2214: l_tbl_count := 0;
2215: l_tbl_count := l_src_instance_header_tbl.count;
2216: IF (l_debug > 0) THEN
2217: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
2218: END IF;
2219:
2220: -- Check for any errors and add them to the message stack to pass out to be put into the
2221: -- error log table.
2220: -- Check for any errors and add them to the message stack to pass out to be put into the
2221: -- error log table.
2222: IF NOT l_return_status = l_fnd_success then
2223: IF (l_debug > 0) THEN
2224: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
2225: END IF;
2226: l_msg_index := 1;
2227: WHILE l_msg_count > 0 loop
2228: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2237: IF l_src_instance_header_tbl.count = 0 THEN
2238: IF l_neg_code = 1 THEN -- Allow Neg Qtys on NON Serial Items ONLY
2239:
2240: IF (l_debug > 0) THEN
2241: csi_t_gen_utility_pvt.add('No records were found so create a new Source Instance Record');
2242: END IF;
2243:
2244: l_new_src_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
2245: l_new_src_instance_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
2270: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
2271: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
2272:
2273: IF (l_debug > 0) THEN
2274: csi_t_gen_utility_pvt.add('Before Create Transaction - Neg Qty');
2275: END IF;
2276:
2277: csi_item_instance_pub.create_item_instance(l_api_version,
2278: l_commit,
2290: l_msg_count,
2291: l_msg_data);
2292:
2293: IF (l_debug > 0) THEN
2294: csi_t_gen_utility_pvt.add('After Create Transaction');
2295: csi_t_gen_utility_pvt.add('New instance created is: '||l_new_src_instance_rec.instance_id);
2296: END IF;
2297:
2298: -- Check for any errors and add them to the message stack to pass out to be put into the
2291: l_msg_data);
2292:
2293: IF (l_debug > 0) THEN
2294: csi_t_gen_utility_pvt.add('After Create Transaction');
2295: csi_t_gen_utility_pvt.add('New instance created is: '||l_new_src_instance_rec.instance_id);
2296: END IF;
2297:
2298: -- Check for any errors and add them to the message stack to pass out to be put into the
2299: -- error log table.
2298: -- Check for any errors and add them to the message stack to pass out to be put into the
2299: -- error log table.
2300: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
2301: IF (l_debug > 0) THEN
2302: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
2303: END IF;
2304: l_msg_index := 1;
2305: WHILE l_msg_count > 0 loop
2306: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2311: END IF;
2312:
2313: ELSE -- No Records were found and Neg Qtys Not Allowed
2314: IF (l_debug > 0) THEN
2315: csi_t_gen_utility_pvt.add('No Records were found in Install Base andNeg Qtys not allowed to error');
2316: END IF;
2317: fnd_message.set_name('CSI','CSI_NO_NEG_BAL_ALLOWED');
2318: l_error_message := fnd_message.get;
2319: RAISE fnd_api.g_exc_error;
2324: -- Records found so make sure that is is updated to be unexp
2325: -- and subtract the quantity from source record
2326:
2327: IF (l_debug > 0) THEN
2328: csi_t_gen_utility_pvt.add('You will update instance: '||l_src_instance_header_tbl(i).instance_id);
2329: csi_t_gen_utility_pvt.add('End Date is: '||l_src_instance_header_tbl(i).active_end_date);
2330: END IF;
2331:
2332: l_update_source_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
2325: -- and subtract the quantity from source record
2326:
2327: IF (l_debug > 0) THEN
2328: csi_t_gen_utility_pvt.add('You will update instance: '||l_src_instance_header_tbl(i).instance_id);
2329: csi_t_gen_utility_pvt.add('End Date is: '||l_src_instance_header_tbl(i).active_end_date);
2330: END IF;
2331:
2332: l_update_source_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
2333: l_update_source_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
2340: l_org_assignments_tbl.delete;
2341: l_asset_assignment_tbl.delete;
2342:
2343: IF (l_debug > 0) THEN
2344: csi_t_gen_utility_pvt.add('Before Update Item Instance - Neg Qty');
2345: END IF;
2346:
2347: l_update_source_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
2348:
2346:
2347: l_update_source_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
2348:
2349: IF (l_debug > 0) THEN
2350: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_source_instance_rec.instance_status_id);
2351: END IF;
2352:
2353: csi_item_instance_pub.update_item_instance(l_api_version,
2354: l_commit,
2370: l_upd_error_instance_id := NULL;
2371: l_upd_error_instance_id := l_update_source_instance_rec.instance_id;
2372:
2373: IF (l_debug > 0) THEN
2374: csi_t_gen_utility_pvt.add('After Update Item Instance - Neg Qty');
2375: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
2376: END IF;
2377:
2378: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2371: l_upd_error_instance_id := l_update_source_instance_rec.instance_id;
2372:
2373: IF (l_debug > 0) THEN
2374: csi_t_gen_utility_pvt.add('After Update Item Instance - Neg Qty');
2375: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
2376: END IF;
2377:
2378: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2379: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
2377:
2378: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2379: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
2380: IF (l_debug > 0) THEN
2381: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
2382: END IF;
2383: l_msg_index := 1;
2384: WHILE l_msg_count > 0 loop
2385: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2391:
2392: ELSIF l_src_instance_header_tbl.count > 1 THEN
2393: -- Multiple Instances were found so throw error
2394: IF (l_debug > 0) THEN
2395: csi_t_gen_utility_pvt.add('Multiple Instances were Found in Install Base-30');
2396: END IF;
2397: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2398: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2399: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2413: l_instance_query_rec.serial_number := NULL;
2414: l_instance_query_rec.instance_usage_code := l_in_process;
2415:
2416: IF (l_debug > 0) THEN
2417: csi_t_gen_utility_pvt.add('Before Get Item Instance Dest - 100');
2418: END IF;
2419:
2420: csi_item_instance_pub.get_item_instances(l_api_version,
2421: l_commit,
2432: l_msg_count,
2433: l_msg_data);
2434:
2435: IF (l_debug > 0) THEN
2436: csi_t_gen_utility_pvt.add('After Get Item Instance Dest - Neg Qty');
2437: END IF;
2438: l_tbl_count := 0;
2439: l_tbl_count := l_dest_instance_header_tbl.count;
2440: IF (l_debug > 0) THEN
2437: END IF;
2438: l_tbl_count := 0;
2439: l_tbl_count := l_dest_instance_header_tbl.count;
2440: IF (l_debug > 0) THEN
2441: csi_t_gen_utility_pvt.add('Destination Records Found: '||l_tbl_count);
2442: END IF;
2443:
2444: -- Check for any errors and add them to the message stack to pass out to be put into the
2445: -- error log table.
2444: -- Check for any errors and add them to the message stack to pass out to be put into the
2445: -- error log table.
2446: IF NOT l_return_status = l_fnd_success then
2447: IF (l_debug > 0) THEN
2448: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
2449: END IF;
2450: l_msg_index := 1;
2451: WHILE l_msg_count > 0 loop
2452: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2457: END IF;
2458:
2459: IF l_dest_instance_header_tbl.count = 0 THEN -- Installed Base Destination Records are not found
2460: IF (l_debug > 0) THEN
2461: csi_t_gen_utility_pvt.add('No Destination Records were found so we will create a new destination Record using the source data');
2462: END IF;
2463:
2464: l_new_dest_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
2465: l_new_dest_instance_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
2491: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
2492: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
2493:
2494: IF (l_debug > 0) THEN
2495: csi_t_gen_utility_pvt.add('Before Create Item Instance - Neg Qty');
2496: END IF;
2497:
2498: csi_item_instance_pub.create_item_instance(l_api_version,
2499: l_commit,
2511: l_msg_count,
2512: l_msg_data);
2513:
2514: IF (l_debug > 0) THEN
2515: csi_t_gen_utility_pvt.add('After Create Item Instance - Neg Qty');
2516: csi_t_gen_utility_pvt.add('Item Instance Created: '||l_new_dest_instance_rec.instance_id);
2517: END IF;
2518:
2519: -- Check for any errors and add them to the message stack to pass out to be put into the
2512: l_msg_data);
2513:
2514: IF (l_debug > 0) THEN
2515: csi_t_gen_utility_pvt.add('After Create Item Instance - Neg Qty');
2516: csi_t_gen_utility_pvt.add('Item Instance Created: '||l_new_dest_instance_rec.instance_id);
2517: END IF;
2518:
2519: -- Check for any errors and add them to the message stack to pass out to be put into the
2520: -- error log table.
2519: -- Check for any errors and add them to the message stack to pass out to be put into the
2520: -- error log table.
2521: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
2522: IF (l_debug > 0) THEN
2523: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
2524: END IF;
2525: l_msg_index := 1;
2526: WHILE l_msg_count > 0 loop
2527: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2534: ELSIF l_dest_instance_header_tbl.count = 1 THEN
2535: -- Installed Base Destination Records Found
2536:
2537: IF (l_debug > 0) THEN
2538: csi_t_gen_utility_pvt.add('You will update instance: '||l_dest_instance_header_tbl(i).instance_id);
2539: END IF;
2540:
2541: l_update_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
2542: l_update_dest_instance_rec.instance_id := l_dest_instance_header_tbl(i).instance_id;
2552:
2553: l_update_dest_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
2554:
2555: IF (l_debug > 0) THEN
2556: csi_t_gen_utility_pvt.add('Before Update Transaction - 101');
2557: END IF;
2558:
2559: csi_item_instance_pub.update_item_instance(l_api_version,
2560: l_commit,
2576: l_upd_error_instance_id := NULL;
2577: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
2578:
2579: IF (l_debug > 0) THEN
2580: csi_t_gen_utility_pvt.add('After Update Transaction - 102');
2581: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
2582: END IF;
2583:
2584: -- Check for any errors and add them to the message stack to pass out to be put into the
2577: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
2578:
2579: IF (l_debug > 0) THEN
2580: csi_t_gen_utility_pvt.add('After Update Transaction - 102');
2581: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
2582: END IF;
2583:
2584: -- Check for any errors and add them to the message stack to pass out to be put into the
2585: -- error log table.
2584: -- Check for any errors and add them to the message stack to pass out to be put into the
2585: -- error log table.
2586: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
2587: IF (l_debug > 0) THEN
2588: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
2589: END IF;
2590: l_msg_index := 1;
2591: WHILE l_msg_count > 0 loop
2592: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2598:
2599: ELSIF l_dest_instance_header_tbl.count > 1 THEN
2600: -- Multiple Instances were found so throw error
2601: IF (l_debug > 0) THEN
2602: csi_t_gen_utility_pvt.add('Multiple Instances were Found in Install Base-60');
2603: END IF;
2604: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2605: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2606: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2634: l_org_assignments_tbl.delete;
2635: l_asset_assignment_tbl.delete;
2636:
2637: IF (l_debug > 0) THEN
2638: csi_t_gen_utility_pvt.add('Before Update Item Instance - 103');
2639: END IF;
2640:
2641: csi_item_instance_pub.update_item_instance(l_api_version,
2642: l_commit,
2658: l_upd_error_instance_id := NULL;
2659: l_upd_error_instance_id := l_update_instance_rec.instance_id;
2660:
2661: IF (l_debug > 0) THEN
2662: csi_t_gen_utility_pvt.add('After Update Item Instance - 104');
2663: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
2664: END IF;
2665:
2666: -- Check for any errors and add them to the message stack to pass out to be put into the
2659: l_upd_error_instance_id := l_update_instance_rec.instance_id;
2660:
2661: IF (l_debug > 0) THEN
2662: csi_t_gen_utility_pvt.add('After Update Item Instance - 104');
2663: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
2664: END IF;
2665:
2666: -- Check for any errors and add them to the message stack to pass out to be put into the
2667: -- error log table.
2666: -- Check for any errors and add them to the message stack to pass out to be put into the
2667: -- error log table.
2668: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
2669: IF (l_debug > 0) THEN
2670: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
2671: END IF;
2672: l_msg_index := 1;
2673: WHILE l_msg_count > 0 loop
2674: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2679: END IF;
2680:
2681: ELSIF l_src_instance_header_tbl.count = 0 THEN
2682: IF (l_debug > 0) THEN
2683: csi_t_gen_utility_pvt.add('No Records were found in Install Base');
2684: END IF;
2685: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
2686: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
2687: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
2691:
2692: ELSIF l_src_instance_header_tbl.count > 1 THEN
2693: -- Multiple Instances were found so throw error
2694: IF (l_debug > 0) THEN
2695: csi_t_gen_utility_pvt.add('Multiple Instances were Found in InstallBase-65');
2696: END IF;
2697: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2698: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2699: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2704: END IF; -- End of Serial Number If
2705: END LOOP; -- End of For Loop
2706:
2707: IF (l_debug > 0) THEN
2708: csi_t_gen_utility_pvt.add('*****End of csi_inv_trxs_pkg.misc_issue_projtask Transaction procedure*****');
2709: END IF;
2710:
2711: EXCEPTION
2712: WHEN fnd_api.g_exc_error THEN
2710:
2711: EXCEPTION
2712: WHEN fnd_api.g_exc_error THEN
2713: IF (l_debug > 0) THEN
2714: csi_t_gen_utility_pvt.add('You have encountered a "fnd_api.g_exc_error" exception');
2715: END IF;
2716: x_return_status := l_fnd_error;
2717:
2718: IF l_mtl_item_tbl.count > 0 THEN
2738: x_trx_error_rec.error_stage := csi_inv_trxs_pkg.g_ib_update;
2739:
2740: WHEN others THEN
2741: IF (l_debug > 0) THEN
2742: csi_t_gen_utility_pvt.add('You have encountered a "others" exception');
2743: END IF;
2744: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
2745: fnd_message.set_token('API_NAME',l_api_name);
2746: fnd_message.set_token('SQL_ERROR',SQLERRM);