[Home] [Help]
1: package body CSI_INV_ISO_PKG as
2: -- $Header: csiintsb.pls 120.9.12020000.3 2012/11/09 11:26:20 mvaradam ship $
3:
4: l_debug NUMBER := csi_t_gen_utility_pvt.g_debug_level;
5:
6: PROCEDURE iso_shipment(p_transaction_id IN NUMBER,
7: p_message_id IN NUMBER,
8: x_return_status OUT NOCOPY VARCHAR2,
139: x_return_status := l_fnd_success;
140: l_error_message := NULL;
141:
142: IF (l_debug > 0) THEN
143: csi_t_gen_utility_pvt.add('******Start of csi_inv_iso_pkg.iso_shipment Transaction procedure******');
144: csi_t_gen_utility_pvt.add('Start time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
145: csi_t_gen_utility_pvt.add('csiintsb.pls 115.27');
146: END IF;
147:
140: l_error_message := NULL;
141:
142: IF (l_debug > 0) THEN
143: csi_t_gen_utility_pvt.add('******Start of csi_inv_iso_pkg.iso_shipment Transaction procedure******');
144: csi_t_gen_utility_pvt.add('Start time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
145: csi_t_gen_utility_pvt.add('csiintsb.pls 115.27');
146: END IF;
147:
148: IF (l_debug > 0) THEN
141:
142: IF (l_debug > 0) THEN
143: csi_t_gen_utility_pvt.add('******Start of csi_inv_iso_pkg.iso_shipment Transaction procedure******');
144: csi_t_gen_utility_pvt.add('Start time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
145: csi_t_gen_utility_pvt.add('csiintsb.pls 115.27');
146: END IF;
147:
148: IF (l_debug > 0) THEN
149: csi_t_gen_utility_pvt.add('Transaction ID with is: '||p_transaction_id);
145: csi_t_gen_utility_pvt.add('csiintsb.pls 115.27');
146: END IF;
147:
148: IF (l_debug > 0) THEN
149: csi_t_gen_utility_pvt.add('Transaction ID with is: '||p_transaction_id);
150: csi_t_gen_utility_pvt.add('l_sysdate set to: '||to_char(l_sysdate,'DD-MON-YYYY HH24:MI:SS'));
151: END IF;
152:
153: -- This procedure queries all of the Inventory Transaction Records and
146: END IF;
147:
148: IF (l_debug > 0) THEN
149: csi_t_gen_utility_pvt.add('Transaction ID with is: '||p_transaction_id);
150: csi_t_gen_utility_pvt.add('l_sysdate set to: '||to_char(l_sysdate,'DD-MON-YYYY HH24:MI:SS'));
151: END IF;
152:
153: -- This procedure queries all of the Inventory Transaction Records and
154: -- returns them as a table.
160:
161: l_tbl_count := 0;
162: l_tbl_count := l_mtl_item_tbl.count;
163: IF (l_debug > 0) THEN
164: csi_t_gen_utility_pvt.add('Inventory Records Found: '||l_tbl_count);
165: END IF;
166:
167: IF NOT l_return_status = l_fnd_success THEN
168: IF (l_debug > 0) THEN
165: END IF;
166:
167: IF NOT l_return_status = l_fnd_success THEN
168: IF (l_debug > 0) THEN
169: csi_t_gen_utility_pvt.add('You have encountered an error in CSI_INV_TRXS_PKG.get_transaction_recs, Transaction ID: '||p_transaction_id);
170: END IF;
171: RAISE fnd_api.g_exc_error;
172: END IF;
173:
171: RAISE fnd_api.g_exc_error;
172: END IF;
173:
174: IF (l_debug > 0) THEN
175: csi_t_gen_utility_pvt.add('Transaction Action ID: '||l_mtl_item_tbl(i).transaction_action_id);
176: csi_t_gen_utility_pvt.add('Transaction Source Type ID: '||l_mtl_item_tbl(i).transaction_source_type_id);
177: csi_t_gen_utility_pvt.add('Transaction Quantity: '||l_mtl_item_tbl(i).transaction_quantity);
178: END IF;
179:
172: END IF;
173:
174: IF (l_debug > 0) THEN
175: csi_t_gen_utility_pvt.add('Transaction Action ID: '||l_mtl_item_tbl(i).transaction_action_id);
176: csi_t_gen_utility_pvt.add('Transaction Source Type ID: '||l_mtl_item_tbl(i).transaction_source_type_id);
177: csi_t_gen_utility_pvt.add('Transaction Quantity: '||l_mtl_item_tbl(i).transaction_quantity);
178: END IF;
179:
180: -- Get the Master Organization ID
173:
174: IF (l_debug > 0) THEN
175: csi_t_gen_utility_pvt.add('Transaction Action ID: '||l_mtl_item_tbl(i).transaction_action_id);
176: csi_t_gen_utility_pvt.add('Transaction Source Type ID: '||l_mtl_item_tbl(i).transaction_source_type_id);
177: csi_t_gen_utility_pvt.add('Transaction Quantity: '||l_mtl_item_tbl(i).transaction_quantity);
178: END IF;
179:
180: -- Get the Master Organization ID
181: CSI_INV_TRXS_PKG.get_master_organization(l_mtl_item_tbl(i).organization_id,
183: l_return_status,
184: l_error_message);
185:
186: IF (l_debug > 0) THEN
187: csi_t_gen_utility_pvt.add('Master Org ID: '||l_master_organization_id);
188: END IF;
189:
190: IF NOT l_return_status = l_fnd_success THEN
191: IF (l_debug > 0) THEN
188: END IF;
189:
190: IF NOT l_return_status = l_fnd_success THEN
191: IF (l_debug > 0) THEN
192: 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);
193: END IF;
194: RAISE fnd_api.g_exc_error;
195: END IF;
196:
198: l_employee_id := csi_inv_trxs_pkg.get_fnd_employee_id(l_mtl_item_tbl(i).last_updated_by);
199:
200: IF l_employee_id = -1 THEN
201: IF (l_debug > 0) THEN
202: 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');
203: END IF;
204: END IF;
205: IF (l_debug > 0) THEN
206: csi_t_gen_utility_pvt.add('The Employee that is processing this Transaction is: '||l_employee_id);
202: 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');
203: END IF;
204: END IF;
205: IF (l_debug > 0) THEN
206: csi_t_gen_utility_pvt.add('The Employee that is processing this Transaction is: '||l_employee_id);
207: END IF;
208:
209: -- See if this is a depreciable Item to set the status of the transaction record
210: csi_inv_trxs_pkg.check_depreciable(l_mtl_item_tbl(i).inventory_item_id,
211: l_depreciable,
212: l_mtl_item_tbl(i).organization_id); --Added for Bug 13988660
213:
214: IF (l_debug > 0) THEN
215: csi_t_gen_utility_pvt.add('Is this Item ID: '||l_mtl_item_tbl(i).inventory_item_id||', Depreciable :'||l_depreciable);
216: END IF;
217:
218: -- Get the Negative Receipt Code to see if this org allows Negative
219: -- Quantity Records 1 = Yes, 2 = No
227: l_instance_status := FND_API.G_TRUE;
228: END IF;
229:
230: IF (l_debug > 0) THEN
231: csi_t_gen_utility_pvt.add('Negative Code is - 1 = Yes, 2 = No: '||l_neg_code);
232: END IF;
233:
234: -- Determine Transaction Type for this
235:
236: l_trans_type_code := 'ISO_SHIPMENT';
237: l_trans_app_code := 'INV';
238:
239: IF (l_debug > 0) THEN
240: csi_t_gen_utility_pvt.add('Trans Type Code: '||l_trans_type_code);
241: csi_t_gen_utility_pvt.add('Trans App Code: '||l_trans_app_code);
242: END IF;
243:
244: -- Now loop through the PL/SQL Table.
237: l_trans_app_code := 'INV';
238:
239: IF (l_debug > 0) THEN
240: csi_t_gen_utility_pvt.add('Trans Type Code: '||l_trans_type_code);
241: csi_t_gen_utility_pvt.add('Trans App Code: '||l_trans_app_code);
242: END IF;
243:
244: -- Now loop through the PL/SQL Table.
245: j := 1;
251: FETCH c_so_info into r_so_info;
252: CLOSE c_so_info;
253:
254: IF (l_debug > 0) THEN
255: csi_t_gen_utility_pvt.add('Sales Order Header: '||r_so_info.header_id);
256: csi_t_gen_utility_pvt.add('Sales Order Line: '||r_so_info.line_id);
257: csi_t_gen_utility_pvt.add('Order Number: '||r_so_info.order_number);
258: csi_t_gen_utility_pvt.add('Line Number: '||r_so_info.line_number);
259: END IF;
252: CLOSE c_so_info;
253:
254: IF (l_debug > 0) THEN
255: csi_t_gen_utility_pvt.add('Sales Order Header: '||r_so_info.header_id);
256: csi_t_gen_utility_pvt.add('Sales Order Line: '||r_so_info.line_id);
257: csi_t_gen_utility_pvt.add('Order Number: '||r_so_info.order_number);
258: csi_t_gen_utility_pvt.add('Line Number: '||r_so_info.line_number);
259: END IF;
260:
253:
254: IF (l_debug > 0) THEN
255: csi_t_gen_utility_pvt.add('Sales Order Header: '||r_so_info.header_id);
256: csi_t_gen_utility_pvt.add('Sales Order Line: '||r_so_info.line_id);
257: csi_t_gen_utility_pvt.add('Order Number: '||r_so_info.order_number);
258: csi_t_gen_utility_pvt.add('Line Number: '||r_so_info.line_number);
259: END IF;
260:
261: IF (l_debug > 0) THEN
254: IF (l_debug > 0) THEN
255: csi_t_gen_utility_pvt.add('Sales Order Header: '||r_so_info.header_id);
256: csi_t_gen_utility_pvt.add('Sales Order Line: '||r_so_info.line_id);
257: csi_t_gen_utility_pvt.add('Order Number: '||r_so_info.order_number);
258: csi_t_gen_utility_pvt.add('Line Number: '||r_so_info.line_number);
259: END IF;
260:
261: IF (l_debug > 0) THEN
262: csi_t_gen_utility_pvt.add('Starting to loop through Material Transaction Records');
258: csi_t_gen_utility_pvt.add('Line Number: '||r_so_info.line_number);
259: END IF;
260:
261: IF (l_debug > 0) THEN
262: csi_t_gen_utility_pvt.add('Starting to loop through Material Transaction Records');
263: END IF;
264:
265: -- Get Default Profile Instance Status
266:
268: FETCH c_id into r_id;
269: CLOSE c_id;
270:
271: IF (l_debug > 0) THEN
272: csi_t_gen_utility_pvt.add('Default Profile Status: '||r_id.instance_status_id);
273: END IF;
274:
275: -- Initialize Transaction Record
276: l_txn_rec := csi_inv_trxs_pkg.init_txn_rec;
295: END IF;
296:
297: IF NOT l_return_status = l_fnd_success THEN
298: IF (l_debug > 0) THEN
299: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
300: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
301: END IF;
302: RAISE fnd_api.g_exc_error;
303: END IF;
296:
297: IF NOT l_return_status = l_fnd_success THEN
298: IF (l_debug > 0) THEN
299: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
300: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
301: END IF;
302: RAISE fnd_api.g_exc_error;
303: END IF;
304:
302: RAISE fnd_api.g_exc_error;
303: END IF;
304:
305: IF (l_debug > 0) THEN
306: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
307: csi_t_gen_utility_pvt.add('Trans Status Code: '||l_txn_rec.transaction_status_code);
308: END IF;
309:
310: -- Create CSI Transaction to be used
303: END IF;
304:
305: IF (l_debug > 0) THEN
306: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
307: csi_t_gen_utility_pvt.add('Trans Status Code: '||l_txn_rec.transaction_status_code);
308: END IF;
309:
310: -- Create CSI Transaction to be used
311: l_txn_rec.source_transaction_date := l_mtl_item_tbl(i).transaction_date;
329: l_error_message,
330: l_return_status);
331:
332: IF (l_debug > 0) THEN
333: csi_t_gen_utility_pvt.add('CSI Transaction Created: '||l_txn_rec.transaction_id);
334: END IF;
335:
336: IF NOT l_return_status = l_fnd_success THEN
337: IF (l_debug > 0) THEN
334: END IF;
335:
336: IF NOT l_return_status = l_fnd_success THEN
337: IF (l_debug > 0) THEN
338: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.create_csi_txn: '||p_transaction_id);
339: END IF;
340: RAISE fnd_api.g_exc_error;
341: END IF;
342:
349: FETCH c_item_control into r_item_control;
350: CLOSE c_item_control;
351:
352: IF (l_debug > 0) THEN
353: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
354: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
355: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
356: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
357: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
350: CLOSE c_item_control;
351:
352: IF (l_debug > 0) THEN
353: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
354: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
355: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
356: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
357: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
358: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
351:
352: IF (l_debug > 0) THEN
353: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
354: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
355: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
356: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
357: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
358: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
359: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
352: IF (l_debug > 0) THEN
353: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
354: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
355: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
356: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
357: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
358: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
359: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
360: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
353: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
354: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
355: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
356: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
357: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
358: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
359: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
360: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
361: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
354: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
355: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
356: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
357: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
358: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
359: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
360: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
361: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
362: csi_t_gen_utility_pvt.add('Receiving Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
355: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
356: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
357: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
358: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
359: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
360: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
361: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
362: csi_t_gen_utility_pvt.add('Receiving Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
363: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
356: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
357: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
358: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
359: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
360: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
361: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
362: csi_t_gen_utility_pvt.add('Receiving Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
363: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
364: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
357: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
358: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
359: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
360: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
361: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
362: csi_t_gen_utility_pvt.add('Receiving Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
363: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
364: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
365: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
358: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
359: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
360: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
361: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
362: csi_t_gen_utility_pvt.add('Receiving Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
363: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
364: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
365: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
366: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
359: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
360: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
361: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
362: csi_t_gen_utility_pvt.add('Receiving Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
363: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
364: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
365: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
366: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
367: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
360: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
361: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
362: csi_t_gen_utility_pvt.add('Receiving Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
363: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
364: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
365: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
366: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
367: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
368: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
361: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
362: csi_t_gen_utility_pvt.add('Receiving Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
363: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
364: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
365: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
366: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
367: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
368: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
369: END IF;
362: csi_t_gen_utility_pvt.add('Receiving Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
363: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
364: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
365: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
366: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
367: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
368: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
369: END IF;
370:
363: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
364: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
365: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
366: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
367: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
368: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
369: END IF;
370:
371: l_instance_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
364: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
365: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
366: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
367: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
368: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
369: END IF;
370:
371: l_instance_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
372: l_instance_usage_code := l_fnd_g_char;
386: l_trx_action_type := 'IN_TRANSIT_SHIPMENT';
387: l_instance_usage_code := l_instance_query_rec.instance_usage_code;
388:
389: IF (l_debug > 0) THEN
390: csi_t_gen_utility_pvt.add('Set Serial Number to NULL since the shipping org is 1 or 6 and we are looking for a NON serial In Inventory Instance');
391: END IF;
392:
393: ELSIF l_mtl_item_tbl(j).serial_number_control_code in (2,5) THEN
394: l_instance_query_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
398: l_trx_action_type := 'IN_TRANSIT_SHIPMENT';
399: l_instance_usage_code := l_instance_query_rec.instance_usage_code;
400:
401: IF (l_debug > 0) THEN
402: csi_t_gen_utility_pvt.add('Set Serial Number to what is passed in since the shipping org is 2,5 and we are looking for a serialized instance In Inventory Instance');
403: END IF;
404:
405: END IF;
406:
404:
405: END IF;
406:
407: IF (l_debug > 0) THEN
408: csi_t_gen_utility_pvt.add('Transaction Action Type:'|| l_trx_action_type);
409: csi_t_gen_utility_pvt.add('Before Get Item Instance-1 ');
410: END IF;
411:
412: csi_item_instance_pub.get_item_instances(l_api_version,
405: END IF;
406:
407: IF (l_debug > 0) THEN
408: csi_t_gen_utility_pvt.add('Transaction Action Type:'|| l_trx_action_type);
409: csi_t_gen_utility_pvt.add('Before Get Item Instance-1 ');
410: END IF;
411:
412: csi_item_instance_pub.get_item_instances(l_api_version,
413: l_commit,
424: l_msg_count,
425: l_msg_data);
426:
427: IF (l_debug > 0) THEN
428: csi_t_gen_utility_pvt.add('After Get Item Instance-2');
429: END IF;
430:
431: l_tbl_count := 0;
432: l_tbl_count := l_src_instance_header_tbl.count;
430:
431: l_tbl_count := 0;
432: l_tbl_count := l_src_instance_header_tbl.count;
433: IF (l_debug > 0) THEN
434: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
435: END IF;
436:
437: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
438: IF NOT l_return_status = l_fnd_success then
436:
437: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
438: IF NOT l_return_status = l_fnd_success then
439: IF (l_debug > 0) THEN
440: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
441: END IF;
442: l_msg_index := 1;
443: WHILE l_msg_count > 0 loop
444: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
448: RAISE fnd_api.g_exc_error;
449: END IF;
450:
451: IF (l_debug > 0) THEN
452: csi_t_gen_utility_pvt.add('Before checking to see if Source records Exist');
453: END IF;
454:
455: IF l_mtl_item_tbl(j).serial_number_control_code in (2,5) THEN
456: IF l_src_instance_header_tbl.count > 0 THEN
456: IF l_src_instance_header_tbl.count > 0 THEN
457: IF r_item_control.serial_number_control_code <> 1 THEN -- Do Regular Processing move to In Transit
458:
459: IF (l_debug > 0) THEN
460: csi_t_gen_utility_pvt.add('Updating Serial Number: '||l_mtl_item_tbl(j).serial_number);
461: END IF;
462:
463: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
464: l_update_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
473: l_update_instance_rec.last_oe_order_line_id := r_so_info.line_id;
474: l_update_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
475:
476: IF (l_debug > 0) THEN
477: csi_t_gen_utility_pvt.add('After you initialize the Transaction Record Values');
478: END IF;
479:
480: l_party_tbl.delete;
481: l_account_tbl.delete;
483: l_org_assignments_tbl.delete;
484: l_asset_assignment_tbl.delete;
485:
486: IF (l_debug > 0) THEN
487: csi_t_gen_utility_pvt.add('Before Update Item Instance-3');
488: END IF;
489:
490: csi_item_instance_pub.update_item_instance(l_api_version,
491: l_commit,
507: l_upd_error_instance_id := NULL;
508: l_upd_error_instance_id := l_update_instance_rec.instance_id;
509:
510: IF (l_debug > 0) THEN
511: csi_t_gen_utility_pvt.add('After Update Item Instance-4');
512: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
513: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
514: END IF;
515:
508: l_upd_error_instance_id := l_update_instance_rec.instance_id;
509:
510: IF (l_debug > 0) THEN
511: csi_t_gen_utility_pvt.add('After Update Item Instance-4');
512: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
513: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
514: END IF;
515:
516: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
509:
510: IF (l_debug > 0) THEN
511: csi_t_gen_utility_pvt.add('After Update Item Instance-4');
512: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
513: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
514: END IF;
515:
516: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
517: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
515:
516: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
517: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
518: IF (l_debug > 0) THEN
519: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
520: END IF;
521: l_msg_index := 1;
522: WHILE l_msg_count > 0 loop
523: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
529:
530: ELSE -- Serial Control is 1 ( No Control ) so set to Out Of Enterprise
531:
532: IF (l_debug > 0) THEN
533: csi_t_gen_utility_pvt.add('Updating Serial Number: '||l_mtl_item_tbl(j).serial_number);
534: csi_t_gen_utility_pvt.add('Setting to OUT OF ENTERPRISE');
535: END IF;
536:
537: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
530: ELSE -- Serial Control is 1 ( No Control ) so set to Out Of Enterprise
531:
532: IF (l_debug > 0) THEN
533: csi_t_gen_utility_pvt.add('Updating Serial Number: '||l_mtl_item_tbl(j).serial_number);
534: csi_t_gen_utility_pvt.add('Setting to OUT OF ENTERPRISE');
535: END IF;
536:
537: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
538: l_update_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
549: l_update_instance_rec.instance_usage_code := l_out_of_enterprise;
550: l_update_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
551:
552: IF (l_debug > 0) THEN
553: csi_t_gen_utility_pvt.add('After you initialize the Transaction Record Values');
554: csi_t_gen_utility_pvt.add(l_update_instance_rec.location_id);
555: csi_t_gen_utility_pvt.add(l_update_instance_rec.location_type_code);
556: END IF;
557:
550: l_update_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
551:
552: IF (l_debug > 0) THEN
553: csi_t_gen_utility_pvt.add('After you initialize the Transaction Record Values');
554: csi_t_gen_utility_pvt.add(l_update_instance_rec.location_id);
555: csi_t_gen_utility_pvt.add(l_update_instance_rec.location_type_code);
556: END IF;
557:
558: l_party_tbl.delete;
551:
552: IF (l_debug > 0) THEN
553: csi_t_gen_utility_pvt.add('After you initialize the Transaction Record Values');
554: csi_t_gen_utility_pvt.add(l_update_instance_rec.location_id);
555: csi_t_gen_utility_pvt.add(l_update_instance_rec.location_type_code);
556: END IF;
557:
558: l_party_tbl.delete;
559: l_account_tbl.delete;
561: l_org_assignments_tbl.delete;
562: l_asset_assignment_tbl.delete;
563:
564: IF (l_debug > 0) THEN
565: csi_t_gen_utility_pvt.add('Before Update Item Instance-3');
566: END IF;
567:
568: csi_item_instance_pub.update_item_instance(l_api_version,
569: l_commit,
585: l_upd_error_instance_id := NULL;
586: l_upd_error_instance_id := l_update_instance_rec.instance_id;
587:
588: IF (l_debug > 0) THEN
589: csi_t_gen_utility_pvt.add('After Update Item Instance-4');
590: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
591: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
592: END IF;
593:
586: l_upd_error_instance_id := l_update_instance_rec.instance_id;
587:
588: IF (l_debug > 0) THEN
589: csi_t_gen_utility_pvt.add('After Update Item Instance-4');
590: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
591: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
592: END IF;
593:
594: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
587:
588: IF (l_debug > 0) THEN
589: csi_t_gen_utility_pvt.add('After Update Item Instance-4');
590: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
591: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
592: END IF;
593:
594: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
595: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
593:
594: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
595: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
596: IF (l_debug > 0) THEN
597: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
598: END IF;
599: l_msg_index := 1;
600: WHILE l_msg_count > 0 loop
601: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
623: l_serial_number := NULL;
624: l_quantity := abs(l_mtl_item_tbl(j).transaction_quantity);
625:
626: IF (l_debug > 0) THEN
627: csi_t_gen_utility_pvt.add('Since the Shipping Code is 2 or 5 and the Receiving is 1 Look for Non Serial In Transit');
628: csi_t_gen_utility_pvt.dump_instance_query_rec(l_instance_query_rec);
629: END IF;
630:
631: IF (l_debug > 0) THEN
624: l_quantity := abs(l_mtl_item_tbl(j).transaction_quantity);
625:
626: IF (l_debug > 0) THEN
627: csi_t_gen_utility_pvt.add('Since the Shipping Code is 2 or 5 and the Receiving is 1 Look for Non Serial In Transit');
628: csi_t_gen_utility_pvt.dump_instance_query_rec(l_instance_query_rec);
629: END IF;
630:
631: IF (l_debug > 0) THEN
632: csi_t_gen_utility_pvt.add('Before Get Item Instance for Dest Non Serialized Instance-5');
628: csi_t_gen_utility_pvt.dump_instance_query_rec(l_instance_query_rec);
629: END IF;
630:
631: IF (l_debug > 0) THEN
632: csi_t_gen_utility_pvt.add('Before Get Item Instance for Dest Non Serialized Instance-5');
633: END IF;
634:
635: csi_item_instance_pub.get_item_instances(l_api_version,
636: l_commit,
647: l_msg_count,
648: l_msg_data);
649:
650: IF (l_debug > 0) THEN
651: csi_t_gen_utility_pvt.add('After Get Item Instance-6');
652: END IF;
653: l_tbl_count := 0;
654: l_tbl_count := l_dest_instance_header_tbl.count;
655: IF (l_debug > 0) THEN
652: END IF;
653: l_tbl_count := 0;
654: l_tbl_count := l_dest_instance_header_tbl.count;
655: IF (l_debug > 0) THEN
656: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
657: END IF;
658:
659: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
660: IF NOT l_return_status = l_fnd_success then
658:
659: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
660: IF NOT l_return_status = l_fnd_success then
661: IF (l_debug > 0) THEN
662: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
663: END IF;
664: l_msg_index := 1;
665: WHILE l_msg_count > 0 loop
666: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
672:
673: IF l_dest_instance_header_tbl.count < 1 THEN -- Installed Base Destination Records are not found so create a new record
674:
675: IF (l_debug > 0) THEN
676: csi_t_gen_utility_pvt.add('Creating New Dest dest Instance-7');
677: END IF;
678:
679: l_new_dest_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
680: l_new_dest_instance_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
707: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
708: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
709:
710: IF (l_debug > 0) THEN
711: csi_t_gen_utility_pvt.add('Before Create Item Instance-8');
712: END IF;
713:
714: csi_item_instance_pub.create_item_instance(l_api_version,
715: l_commit,
727: l_msg_count,
728: l_msg_data);
729:
730: IF (l_debug > 0) THEN
731: csi_t_gen_utility_pvt.add('After Create Item Instance-9');
732: END IF;
733: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
734:
735: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
733: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
734:
735: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
736: IF (l_debug > 0) THEN
737: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
738: END IF;
739: l_msg_index := 1;
740: WHILE l_msg_count > 0 loop
741: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
747:
748: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
749:
750: IF (l_debug > 0) THEN
751: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
752: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
753: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
754: END IF;
755:
748: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
749:
750: IF (l_debug > 0) THEN
751: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
752: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
753: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
754: END IF;
755:
756: l_update_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
749:
750: IF (l_debug > 0) THEN
751: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
752: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
753: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
754: END IF;
755:
756: l_update_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
757: l_update_dest_instance_rec.instance_id := l_dest_instance_header_tbl(i).instance_id;
777:
778: 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);
779:
780: IF (l_debug > 0) THEN
781: csi_t_gen_utility_pvt.add('Before Update Item Instance-10');
782: csi_t_gen_utility_pvt.add('Instance Status-11: '||l_update_dest_instance_rec.instance_status_id);
783:
784: END IF;
785:
778: 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);
779:
780: IF (l_debug > 0) THEN
781: csi_t_gen_utility_pvt.add('Before Update Item Instance-10');
782: csi_t_gen_utility_pvt.add('Instance Status-11: '||l_update_dest_instance_rec.instance_status_id);
783:
784: END IF;
785:
786: csi_item_instance_pub.update_item_instance(l_api_version,
803: l_upd_error_instance_id := NULL;
804: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
805:
806: IF (l_debug > 0) THEN
807: csi_t_gen_utility_pvt.add('After Update Item Instance-12');
808: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
809: END IF;
810:
811: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
804: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
805:
806: IF (l_debug > 0) THEN
807: csi_t_gen_utility_pvt.add('After Update Item Instance-12');
808: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
809: END IF;
810:
811: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
812: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
810:
811: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
812: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
813: IF (l_debug > 0) THEN
814: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
815: END IF;
816: l_msg_index := 1;
817: WHILE l_msg_count > 0 loop
818: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
823: END IF;
824:
825: ELSE -- Error No dest non serial recs round
826: IF (l_debug > 0) THEN
827: csi_t_gen_utility_pvt.add('No Records were found in Install Base but the usage is not correct-14, The Usage is: '||l_dest_instance_header_tbl(i).instance_usage_code);
828: END IF;
829: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
830: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
831: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
839: END IF; -- serial control <> 1
840:
841: ELSE -- No Serialized Instances found so Error.
842: IF (l_debug > 0) THEN
843: csi_t_gen_utility_pvt.add('No Records were found in Install Base-13');
844: END IF;
845:
846: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
847: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
866: IF l_src_instance_header_tbl.count = 0 THEN
867: IF l_neg_code = 1 THEN -- Negative Records Allowed so Create/Update
868:
869: IF (l_debug > 0) THEN
870: csi_t_gen_utility_pvt.add('No Source records were found and Neg Code is 1 so create a new Source Instance Record');
871: END IF;
872:
873: l_new_src_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
874: l_new_src_instance_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
900: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
901: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
902:
903: IF (l_debug > 0) THEN
904: csi_t_gen_utility_pvt.add('Before Create Source Item Instance-14');
905: END IF;
906:
907: csi_item_instance_pub.create_item_instance(l_api_version,
908: l_commit,
920: l_msg_count,
921: l_msg_data);
922:
923: IF (l_debug > 0) THEN
924: csi_t_gen_utility_pvt.add('After Create Source Item Instance-15');
925: END IF;
926:
927: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
928:
927: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
928:
929: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
930: IF (l_debug > 0) THEN
931: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
932: END IF;
933: l_msg_index := 1;
934: WHILE l_msg_count > 0 loop
935: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
940: END IF;
941:
942: ELSE -- Inv Does not allowe neg qty and source is not found
943: IF (l_debug > 0) THEN
944: csi_t_gen_utility_pvt.add('No Records were found in Install Base-16');
945: END IF;
946: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
947: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
948: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
953: END IF; -- End of Neg Qty IF
954: ELSIF l_src_instance_header_tbl.count = 1 THEN -- Source Records are found
955:
956: IF (l_debug > 0) THEN
957: csi_t_gen_utility_pvt.add('1 Source Record Found so we will update it.');
958: csi_t_gen_utility_pvt.add('You will update instance: '||l_src_instance_header_tbl(i).instance_id);
959: csi_t_gen_utility_pvt.add('End Date is: '||l_src_instance_header_tbl(i).active_end_date);
960: END IF;
961:
954: ELSIF l_src_instance_header_tbl.count = 1 THEN -- Source Records are found
955:
956: IF (l_debug > 0) THEN
957: csi_t_gen_utility_pvt.add('1 Source Record Found so we will update it.');
958: csi_t_gen_utility_pvt.add('You will update instance: '||l_src_instance_header_tbl(i).instance_id);
959: csi_t_gen_utility_pvt.add('End Date is: '||l_src_instance_header_tbl(i).active_end_date);
960: END IF;
961:
962: l_upd_src_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
955:
956: IF (l_debug > 0) THEN
957: csi_t_gen_utility_pvt.add('1 Source Record Found so we will update it.');
958: csi_t_gen_utility_pvt.add('You will update instance: '||l_src_instance_header_tbl(i).instance_id);
959: csi_t_gen_utility_pvt.add('End Date is: '||l_src_instance_header_tbl(i).active_end_date);
960: END IF;
961:
962: l_upd_src_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
963: l_upd_src_dest_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
972: l_org_assignments_tbl.delete;
973: l_asset_assignment_tbl.delete;
974:
975: IF (l_debug > 0) THEN
976: csi_t_gen_utility_pvt.add('Before Update Source Item Instance-17');
977: END IF;
978:
979: l_upd_src_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);
980:
978:
979: l_upd_src_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);
980:
981: IF (l_debug > 0) THEN
982: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_upd_src_dest_instance_rec.instance_status_id);
983: END IF;
984:
985: csi_item_instance_pub.update_item_instance(l_api_version,
986: l_commit,
1002: l_upd_error_instance_id := NULL;
1003: l_upd_error_instance_id := l_upd_src_dest_instance_rec.instance_id;
1004:
1005: IF (l_debug > 0) THEN
1006: csi_t_gen_utility_pvt.add('After Update Item Instance-18');
1007: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1008: END IF;
1009:
1010: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1003: l_upd_error_instance_id := l_upd_src_dest_instance_rec.instance_id;
1004:
1005: IF (l_debug > 0) THEN
1006: csi_t_gen_utility_pvt.add('After Update Item Instance-18');
1007: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1008: END IF;
1009:
1010: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1011: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1009:
1010: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1011: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1012: IF (l_debug > 0) THEN
1013: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
1014: END IF;
1015: l_msg_index := 1;
1016: WHILE l_msg_count > 0 loop
1017: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1023:
1024: ELSIF l_src_instance_header_tbl.count > 1 THEN
1025: -- Multiple Instances were found so throw error
1026: IF (l_debug > 0) THEN
1027: csi_t_gen_utility_pvt.add('Multiple Instances were Found in Install BaseBase-19');
1028: END IF;
1029: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
1030: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
1031: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
1060: l_serial_number := NULL;
1061: l_quantity := abs(l_mtl_item_tbl(j).transaction_quantity);
1062:
1063: IF (l_debug > 0) THEN
1064: csi_t_gen_utility_pvt.add('Ship Serial Code is 1 so we want to query for Non Serialized, Setting Serial Number to NULL for Dest Query for In Transit');
1065: csi_t_gen_utility_pvt.add('Serial Number: '||l_mtl_item_tbl(j).serial_number);
1066: END IF;
1067:
1068: ELSIF l_mtl_item_tbl(j).serial_number_control_code = 6 THEN
1061: l_quantity := abs(l_mtl_item_tbl(j).transaction_quantity);
1062:
1063: IF (l_debug > 0) THEN
1064: csi_t_gen_utility_pvt.add('Ship Serial Code is 1 so we want to query for Non Serialized, Setting Serial Number to NULL for Dest Query for In Transit');
1065: csi_t_gen_utility_pvt.add('Serial Number: '||l_mtl_item_tbl(j).serial_number);
1066: END IF;
1067:
1068: ELSIF l_mtl_item_tbl(j).serial_number_control_code = 6 THEN
1069:
1078: l_mfg_flag := 'Y';
1079: l_serial_number := l_mtl_item_tbl(j).serial_number;
1080: l_quantity := 1;
1081: IF (l_debug > 0) THEN
1082: csi_t_gen_utility_pvt.add('Ship Serial Code is 6 so we want to query for Serialized, Setting Serial Number to Trans Serial Number for Dest Query');
1083: csi_t_gen_utility_pvt.add('Setting l_mfg_flag to Y and l_serial_number to serial_number since we will create non serialized records');
1084: csi_t_gen_utility_pvt.add('Serial Number: '||l_mtl_item_tbl(j).serial_number);
1085: END IF;
1086:
1079: l_serial_number := l_mtl_item_tbl(j).serial_number;
1080: l_quantity := 1;
1081: IF (l_debug > 0) THEN
1082: csi_t_gen_utility_pvt.add('Ship Serial Code is 6 so we want to query for Serialized, Setting Serial Number to Trans Serial Number for Dest Query');
1083: csi_t_gen_utility_pvt.add('Setting l_mfg_flag to Y and l_serial_number to serial_number since we will create non serialized records');
1084: csi_t_gen_utility_pvt.add('Serial Number: '||l_mtl_item_tbl(j).serial_number);
1085: END IF;
1086:
1087: END IF;
1080: l_quantity := 1;
1081: IF (l_debug > 0) THEN
1082: csi_t_gen_utility_pvt.add('Ship Serial Code is 6 so we want to query for Serialized, Setting Serial Number to Trans Serial Number for Dest Query');
1083: csi_t_gen_utility_pvt.add('Setting l_mfg_flag to Y and l_serial_number to serial_number since we will create non serialized records');
1084: csi_t_gen_utility_pvt.add('Serial Number: '||l_mtl_item_tbl(j).serial_number);
1085: END IF;
1086:
1087: END IF;
1088:
1086:
1087: END IF;
1088:
1089: IF (l_debug > 0) THEN
1090: csi_t_gen_utility_pvt.add('Before Get Item Instance for Dest Serialized Instance-20');
1091: csi_t_gen_utility_pvt.add('Serial Number: '||l_mtl_item_tbl(j).serial_number);
1092: END IF;
1093:
1094: csi_item_instance_pub.get_item_instances(l_api_version,
1087: END IF;
1088:
1089: IF (l_debug > 0) THEN
1090: csi_t_gen_utility_pvt.add('Before Get Item Instance for Dest Serialized Instance-20');
1091: csi_t_gen_utility_pvt.add('Serial Number: '||l_mtl_item_tbl(j).serial_number);
1092: END IF;
1093:
1094: csi_item_instance_pub.get_item_instances(l_api_version,
1095: l_commit,
1106: l_msg_count,
1107: l_msg_data);
1108:
1109: IF (l_debug > 0) THEN
1110: csi_t_gen_utility_pvt.add('After Get Item Instance-21');
1111: END IF;
1112: l_tbl_count := 0;
1113: l_tbl_count := l_dest_instance_header_tbl.count;
1114: IF (l_debug > 0) THEN
1111: END IF;
1112: l_tbl_count := 0;
1113: l_tbl_count := l_dest_instance_header_tbl.count;
1114: IF (l_debug > 0) THEN
1115: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
1116: END IF;
1117:
1118: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1119: IF NOT l_return_status = l_fnd_success then
1117:
1118: -- Check for any errors and add them to the message stack to pass out to be put into the 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);
1133: IF l_dest_instance_header_tbl.count < 1 THEN -- Installed Base Destination Records are not found so create a new record
1134:
1135:
1136: IF (l_debug > 0) THEN
1137: csi_t_gen_utility_pvt.add('Creating New Dest dest Instance-22');
1138: END IF;
1139:
1140: l_new_dest_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
1141: l_new_dest_instance_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
1169: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
1170: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
1171:
1172: IF (l_debug > 0) THEN
1173: csi_t_gen_utility_pvt.add('Before Create Item Instance-23');
1174: END IF;
1175:
1176: csi_item_instance_pub.create_item_instance(l_api_version,
1177: l_commit,
1189: l_msg_count,
1190: l_msg_data);
1191:
1192: IF (l_debug > 0) THEN
1193: csi_t_gen_utility_pvt.add('After Create Item Instance-24');
1194: END IF;
1195: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1196:
1197: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1195: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1196:
1197: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1198: IF (l_debug > 0) THEN
1199: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
1200: END IF;
1201: l_msg_index := 1;
1202: WHILE l_msg_count > 0 loop
1203: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1209:
1210: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
1211:
1212: IF (l_debug > 0) THEN
1213: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
1214: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
1215: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
1216: END IF;
1217:
1210: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
1211:
1212: IF (l_debug > 0) THEN
1213: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
1214: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
1215: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
1216: END IF;
1217:
1218: IF l_dest_instance_header_tbl(i).instance_usage_code IN (l_in_transit,l_returned) THEN
1211:
1212: IF (l_debug > 0) THEN
1213: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
1214: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
1215: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
1216: END IF;
1217:
1218: IF l_dest_instance_header_tbl(i).instance_usage_code IN (l_in_transit,l_returned) THEN
1219: -- Update Non Serialized / Serialized Item
1225:
1226: l_trans_quantity := l_dest_instance_header_tbl(i).quantity + abs(l_mtl_item_tbl(j).primary_quantity);
1227:
1228: IF (l_debug > 0) THEN
1229: csi_t_gen_utility_pvt.add('Setting Trans Qty: '||l_trans_quantity);
1230: END IF;
1231: ELSIF l_mtl_item_tbl(j).serial_number_control_code = 6 THEN
1232: l_trans_quantity := 1;
1233: IF (l_debug > 0) THEN
1230: END IF;
1231: ELSIF l_mtl_item_tbl(j).serial_number_control_code = 6 THEN
1232: l_trans_quantity := 1;
1233: IF (l_debug > 0) THEN
1234: csi_t_gen_utility_pvt.add('Setting Trans Qty: '||l_trans_quantity);
1235: END IF;
1236: END IF;
1237:
1238: l_update_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
1259:
1260: 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);
1261:
1262: IF (l_debug > 0) THEN
1263: csi_t_gen_utility_pvt.add('Before Update Item Instance-25');
1264: csi_t_gen_utility_pvt.add('Instance Status-26: '||l_update_dest_instance_rec.instance_status_id);
1265:
1266: END IF;
1267:
1260: 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);
1261:
1262: IF (l_debug > 0) THEN
1263: csi_t_gen_utility_pvt.add('Before Update Item Instance-25');
1264: csi_t_gen_utility_pvt.add('Instance Status-26: '||l_update_dest_instance_rec.instance_status_id);
1265:
1266: END IF;
1267:
1268: csi_item_instance_pub.update_item_instance(l_api_version,
1285: l_upd_error_instance_id := NULL;
1286: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
1287:
1288: IF (l_debug > 0) THEN
1289: csi_t_gen_utility_pvt.add('After Update Item Instance-27');
1290: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1291: END IF;
1292:
1293: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1286: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
1287:
1288: IF (l_debug > 0) THEN
1289: csi_t_gen_utility_pvt.add('After Update Item Instance-27');
1290: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1291: END IF;
1292:
1293: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1294: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1292:
1293: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1294: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1295: IF (l_debug > 0) THEN
1296: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
1297: END IF;
1298: l_msg_index := 1;
1299: WHILE l_msg_count > 0 loop
1300: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1305: END IF;
1306:
1307: ELSE -- Error No Src Recs with usage of In Transit or Returned
1308: IF (l_debug > 0) THEN
1309: csi_t_gen_utility_pvt.add('No Records were found in Install Base but the usage is not correct-20, The Usage is: '||l_dest_instance_header_tbl(i).instance_usage_code);
1310: END IF;
1311: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
1312: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
1313: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
1324:
1325: IF l_dest_instance_header_tbl.count < 1 THEN -- Installed Base Destination Records Not Found
1326:
1327: IF (l_debug > 0) THEN
1328: csi_t_gen_utility_pvt.add('Creating New Dest dest Instance-28');
1329: END IF;
1330:
1331: l_new_dest_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
1332: l_new_dest_instance_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
1358: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
1359: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
1360:
1361: IF (l_debug > 0) THEN
1362: csi_t_gen_utility_pvt.add('Before Create Item Instance-29');
1363: END IF;
1364:
1365: csi_item_instance_pub.create_item_instance(l_api_version,
1366: l_commit,
1378: l_msg_count,
1379: l_msg_data);
1380:
1381: IF (l_debug > 0) THEN
1382: csi_t_gen_utility_pvt.add('After Create Item Instance-30');
1383: END IF;
1384: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1385:
1386: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1384: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1385:
1386: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1387: IF (l_debug > 0) THEN
1388: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
1389: END IF;
1390: l_msg_index := 1;
1391: WHILE l_msg_count > 0 loop
1392: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1398:
1399: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
1400:
1401: IF (l_debug > 0) THEN
1402: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
1403: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
1404: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
1405: END IF;
1406:
1399: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
1400:
1401: IF (l_debug > 0) THEN
1402: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
1403: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
1404: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
1405: END IF;
1406:
1407: l_update_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
1400:
1401: IF (l_debug > 0) THEN
1402: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
1403: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
1404: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
1405: END IF;
1406:
1407: l_update_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
1408: l_update_dest_instance_rec.instance_id := l_dest_instance_header_tbl(i).instance_id;
1428:
1429: 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);
1430:
1431: IF (l_debug > 0) THEN
1432: csi_t_gen_utility_pvt.add('Before Update Item Instance-31');
1433: csi_t_gen_utility_pvt.add('Instance Status-32: '||l_update_dest_instance_rec.instance_status_id);
1434:
1435: END IF;
1436:
1429: 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);
1430:
1431: IF (l_debug > 0) THEN
1432: csi_t_gen_utility_pvt.add('Before Update Item Instance-31');
1433: csi_t_gen_utility_pvt.add('Instance Status-32: '||l_update_dest_instance_rec.instance_status_id);
1434:
1435: END IF;
1436:
1437: csi_item_instance_pub.update_item_instance(l_api_version,
1454: l_upd_error_instance_id := NULL;
1455: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
1456:
1457: IF (l_debug > 0) THEN
1458: csi_t_gen_utility_pvt.add('After Update Item Instance-33');
1459: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1460: END IF;
1461:
1462: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1455: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
1456:
1457: IF (l_debug > 0) THEN
1458: csi_t_gen_utility_pvt.add('After Update Item Instance-33');
1459: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1460: END IF;
1461:
1462: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1463: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1461:
1462: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1463: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1464: IF (l_debug > 0) THEN
1465: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
1466: END IF;
1467: l_msg_index := 1;
1468: WHILE l_msg_count > 0 loop
1469: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1478:
1479: IF l_dest_instance_header_tbl.count < 1 THEN -- Installed Base Destination Records Not Found
1480:
1481: IF (l_debug > 0) THEN
1482: csi_t_gen_utility_pvt.add('Creating New Dest dest Instance-34');
1483: END IF;
1484:
1485: l_new_dest_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
1486: l_new_dest_instance_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
1512: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
1513: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
1514:
1515: IF (l_debug > 0) THEN
1516: csi_t_gen_utility_pvt.add('Before Create Item Instance-35');
1517: END IF;
1518:
1519: csi_item_instance_pub.create_item_instance(l_api_version,
1520: l_commit,
1532: l_msg_count,
1533: l_msg_data);
1534:
1535: IF (l_debug > 0) THEN
1536: csi_t_gen_utility_pvt.add('After Create Item Instance-36');
1537: END IF;
1538: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1539:
1540: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1538: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1539:
1540: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1541: IF (l_debug > 0) THEN
1542: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
1543: END IF;
1544: l_msg_index := 1;
1545: WHILE l_msg_count > 0 loop
1546: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1577:
1578: l_expire_instance_rec.object_version_number := l_curr_object_vers_61_id;
1579:
1580: IF (l_debug > 0) THEN
1581: csi_t_gen_utility_pvt.add('Before Expiring Item Instance-36.1: '||l_new_dest_instance_rec.instance_id);
1582: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1583: csi_t_gen_utility_pvt.add('l_curr_object_vers_61_id is: '||l_curr_object_vers_61_id);
1584: END IF;
1585:
1578: l_expire_instance_rec.object_version_number := l_curr_object_vers_61_id;
1579:
1580: IF (l_debug > 0) THEN
1581: csi_t_gen_utility_pvt.add('Before Expiring Item Instance-36.1: '||l_new_dest_instance_rec.instance_id);
1582: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1583: csi_t_gen_utility_pvt.add('l_curr_object_vers_61_id is: '||l_curr_object_vers_61_id);
1584: END IF;
1585:
1586: csi_item_instance_pub.expire_item_instance(l_api_version,
1579:
1580: IF (l_debug > 0) THEN
1581: csi_t_gen_utility_pvt.add('Before Expiring Item Instance-36.1: '||l_new_dest_instance_rec.instance_id);
1582: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1583: csi_t_gen_utility_pvt.add('l_curr_object_vers_61_id is: '||l_curr_object_vers_61_id);
1584: END IF;
1585:
1586: csi_item_instance_pub.expire_item_instance(l_api_version,
1587: l_commit,
1595: l_msg_count,
1596: l_msg_data);
1597:
1598: IF (l_debug > 0) THEN
1599: csi_t_gen_utility_pvt.add('After Expire Item Instance-36.2');
1600: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1601: END IF;
1602:
1603: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1596: l_msg_data);
1597:
1598: IF (l_debug > 0) THEN
1599: csi_t_gen_utility_pvt.add('After Expire Item Instance-36.2');
1600: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1601: END IF;
1602:
1603: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1604: IF NOT l_return_status = l_fnd_success then
1602:
1603: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1604: IF NOT l_return_status = l_fnd_success then
1605: IF (l_debug > 0) THEN
1606: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c 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 -- Installed Base Destination Records Found
1618:
1619: IF (l_debug > 0) THEN
1620: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
1621: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
1622: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
1623: END IF;
1624:
1617: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
1618:
1619: IF (l_debug > 0) THEN
1620: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
1621: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
1622: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
1623: END IF;
1624:
1625: l_update_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
1618:
1619: IF (l_debug > 0) THEN
1620: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
1621: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
1622: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
1623: END IF;
1624:
1625: l_update_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
1626: l_update_dest_instance_rec.instance_id := l_dest_instance_header_tbl(i).instance_id;
1647: 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);
1648:
1649:
1650: IF (l_debug > 0) THEN
1651: csi_t_gen_utility_pvt.add('Before Update Item Instance-37');
1652: csi_t_gen_utility_pvt.add('Instance Status-38: '||l_update_dest_instance_rec.instance_status_id);
1653:
1654: END IF;
1655:
1648:
1649:
1650: IF (l_debug > 0) THEN
1651: csi_t_gen_utility_pvt.add('Before Update Item Instance-37');
1652: csi_t_gen_utility_pvt.add('Instance Status-38: '||l_update_dest_instance_rec.instance_status_id);
1653:
1654: END IF;
1655:
1656: csi_item_instance_pub.update_item_instance(l_api_version,
1673: l_upd_error_instance_id := NULL;
1674: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
1675:
1676: IF (l_debug > 0) THEN
1677: csi_t_gen_utility_pvt.add('After Update Item Instance-39');
1678: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1679: END IF;
1680:
1681: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1674: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
1675:
1676: IF (l_debug > 0) THEN
1677: csi_t_gen_utility_pvt.add('After Update Item Instance-39');
1678: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1679: END IF;
1680:
1681: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1682: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1680:
1681: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1682: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1683: IF (l_debug > 0) THEN
1684: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
1685: END IF;
1686: l_msg_index := 1;
1687: WHILE l_msg_count > 0 loop
1688: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1712: l_serial_number := NULL;
1713: l_quantity := abs(l_mtl_item_tbl(j).transaction_quantity);
1714:
1715: IF (l_debug > 0) THEN
1716: csi_t_gen_utility_pvt.add('Since the Shipping Code is 6 and the Receiving is 1 Look for Non Serial In Transit');
1717: END IF;
1718:
1719: IF (l_debug > 0) THEN
1720: csi_t_gen_utility_pvt.add('Before Get Item Instance for Dest Serialized Instance-40');
1716: csi_t_gen_utility_pvt.add('Since the Shipping Code is 6 and the Receiving is 1 Look for Non Serial In Transit');
1717: END IF;
1718:
1719: IF (l_debug > 0) THEN
1720: csi_t_gen_utility_pvt.add('Before Get Item Instance for Dest Serialized Instance-40');
1721: END IF;
1722:
1723: csi_item_instance_pub.get_item_instances(l_api_version,
1724: l_commit,
1735: l_msg_count,
1736: l_msg_data);
1737:
1738: IF (l_debug > 0) THEN
1739: csi_t_gen_utility_pvt.add('After Get Item Instance-41');
1740: END IF;
1741: l_tbl_count := 0;
1742: l_tbl_count := l_dest_instance_header_tbl.count;
1743: IF (l_debug > 0) THEN
1740: END IF;
1741: l_tbl_count := 0;
1742: l_tbl_count := l_dest_instance_header_tbl.count;
1743: IF (l_debug > 0) THEN
1744: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
1745: END IF;
1746:
1747: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1748: IF NOT l_return_status = l_fnd_success then
1746:
1747: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1748: IF NOT l_return_status = l_fnd_success then
1749: IF (l_debug > 0) THEN
1750: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
1751: END IF;
1752: l_msg_index := 1;
1753: WHILE l_msg_count > 0 loop
1754: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1760:
1761: IF l_dest_instance_header_tbl.count < 1 THEN -- Installed Base Destination Records are not found so create a new record
1762:
1763: IF (l_debug > 0) THEN
1764: csi_t_gen_utility_pvt.add('Creating New Dest dest Instance-42');
1765: END IF;
1766:
1767: l_new_dest_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
1768: l_new_dest_instance_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
1794: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
1795: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
1796:
1797: IF (l_debug > 0) THEN
1798: csi_t_gen_utility_pvt.add('Before Create Item Instance-43');
1799: END IF;
1800:
1801: csi_item_instance_pub.create_item_instance(l_api_version,
1802: l_commit,
1814: l_msg_count,
1815: l_msg_data);
1816:
1817: IF (l_debug > 0) THEN
1818: csi_t_gen_utility_pvt.add('After Create Item Instance-44');
1819: END IF;
1820: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1821:
1822: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1820: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1821:
1822: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1823: IF (l_debug > 0) THEN
1824: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
1825: END IF;
1826: l_msg_index := 1;
1827: WHILE l_msg_count > 0 loop
1828: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1834:
1835: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
1836:
1837: IF (l_debug > 0) THEN
1838: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
1839: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
1840: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
1841: END IF;
1842:
1835: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
1836:
1837: IF (l_debug > 0) THEN
1838: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
1839: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
1840: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
1841: END IF;
1842:
1843: l_update_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
1836:
1837: IF (l_debug > 0) THEN
1838: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
1839: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
1840: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
1841: END IF;
1842:
1843: l_update_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
1844: l_update_dest_instance_rec.instance_id := l_dest_instance_header_tbl(i).instance_id;
1864:
1865: 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);
1866:
1867: IF (l_debug > 0) THEN
1868: csi_t_gen_utility_pvt.add('Before Update Item Instance-45');
1869: csi_t_gen_utility_pvt.add('Instance Status-46: '||l_update_dest_instance_rec.instance_status_id);
1870:
1871: END IF;
1872:
1865: 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);
1866:
1867: IF (l_debug > 0) THEN
1868: csi_t_gen_utility_pvt.add('Before Update Item Instance-45');
1869: csi_t_gen_utility_pvt.add('Instance Status-46: '||l_update_dest_instance_rec.instance_status_id);
1870:
1871: END IF;
1872:
1873: csi_item_instance_pub.update_item_instance(l_api_version,
1890: l_upd_error_instance_id := NULL;
1891: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
1892:
1893: IF (l_debug > 0) THEN
1894: csi_t_gen_utility_pvt.add('After Update Item Instance-47');
1895: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1896: END IF;
1897:
1898: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1891: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
1892:
1893: IF (l_debug > 0) THEN
1894: csi_t_gen_utility_pvt.add('After Update Item Instance-47');
1895: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1896: END IF;
1897:
1898: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1899: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1897:
1898: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1899: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1900: IF (l_debug > 0) THEN
1901: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
1902: END IF;
1903: l_msg_index := 1;
1904: WHILE l_msg_count > 0 loop
1905: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1910: END IF;
1911:
1912: ELSE -- Error No dest non serial recs round
1913: IF (l_debug > 0) THEN
1914: csi_t_gen_utility_pvt.add('No Records were found in Install Base but the usage is not correct-20, The Usage is: '||l_dest_instance_header_tbl(i).instance_usage_code);
1915: END IF;
1916: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
1917: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
1918: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
1929: END IF; -- Serial If Statement
1930: END LOOP; -- End of For Loop
1931:
1932: IF (l_debug > 0) THEN
1933: csi_t_gen_utility_pvt.add('End time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
1934: csi_t_gen_utility_pvt.add('******End of csi_inv_iso_pkg.iso_shipment Transaction******');
1935: END IF;
1936:
1937: EXCEPTION
1930: END LOOP; -- End of For Loop
1931:
1932: IF (l_debug > 0) THEN
1933: csi_t_gen_utility_pvt.add('End time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
1934: csi_t_gen_utility_pvt.add('******End of csi_inv_iso_pkg.iso_shipment Transaction******');
1935: END IF;
1936:
1937: EXCEPTION
1938: WHEN fnd_api.g_exc_error THEN
1936:
1937: EXCEPTION
1938: WHEN fnd_api.g_exc_error THEN
1939: IF (l_debug > 0) THEN
1940: csi_t_gen_utility_pvt.add('You have encountered a "fnd_api.g_exc_error" exception in the Internal Sales Order Transaction - In Transit Shipment');
1941: END IF;
1942: x_return_status := l_fnd_error;
1943:
1944: IF l_mtl_item_tbl.count > 0 THEN
1969:
1970: WHEN others THEN
1971: l_sql_error := SQLERRM;
1972: IF (l_debug > 0) THEN
1973: csi_t_gen_utility_pvt.add('You have encountered a "when others" exception in the Internal Sales Order Transaction - In Transit Shipment');
1974: csi_t_gen_utility_pvt.add('SQL Error: '||l_sql_error);
1975: END IF;
1976: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
1977: fnd_message.set_token('API_NAME',l_api_name);
1970: WHEN others THEN
1971: l_sql_error := SQLERRM;
1972: IF (l_debug > 0) THEN
1973: csi_t_gen_utility_pvt.add('You have encountered a "when others" exception in the Internal Sales Order Transaction - In Transit Shipment');
1974: csi_t_gen_utility_pvt.add('SQL Error: '||l_sql_error);
1975: END IF;
1976: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
1977: fnd_message.set_token('API_NAME',l_api_name);
1978: fnd_message.set_token('SQL_ERROR',SQLERRM);
2171: x_return_status := l_fnd_success;
2172: l_error_message := NULL;
2173:
2174: IF (l_debug > 0) THEN
2175: csi_t_gen_utility_pvt.add('******Start of csi_inv_iso_pkg.iso_receipt Transaction procedure******');
2176: csi_t_gen_utility_pvt.add('Start time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
2177: csi_t_gen_utility_pvt.add('csiintsb.pls 115.27');
2178: END IF;
2179:
2172: l_error_message := NULL;
2173:
2174: IF (l_debug > 0) THEN
2175: csi_t_gen_utility_pvt.add('******Start of csi_inv_iso_pkg.iso_receipt Transaction procedure******');
2176: csi_t_gen_utility_pvt.add('Start time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
2177: csi_t_gen_utility_pvt.add('csiintsb.pls 115.27');
2178: END IF;
2179:
2180: IF (l_debug > 0) THEN
2173:
2174: IF (l_debug > 0) THEN
2175: csi_t_gen_utility_pvt.add('******Start of csi_inv_iso_pkg.iso_receipt Transaction procedure******');
2176: csi_t_gen_utility_pvt.add('Start time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
2177: csi_t_gen_utility_pvt.add('csiintsb.pls 115.27');
2178: END IF;
2179:
2180: IF (l_debug > 0) THEN
2181: csi_t_gen_utility_pvt.add('Transaction ID with is: '||p_transaction_id);
2177: csi_t_gen_utility_pvt.add('csiintsb.pls 115.27');
2178: END IF;
2179:
2180: IF (l_debug > 0) THEN
2181: csi_t_gen_utility_pvt.add('Transaction ID with is: '||p_transaction_id);
2182: csi_t_gen_utility_pvt.add('l_sysdate set to: '||to_char(l_sysdate,'DD-MON-YYYY HH24:MI:SS'));
2183: END IF;
2184:
2185: -- This procedure queries all of the Inventory Transaction Records and
2178: END IF;
2179:
2180: IF (l_debug > 0) THEN
2181: csi_t_gen_utility_pvt.add('Transaction ID with is: '||p_transaction_id);
2182: csi_t_gen_utility_pvt.add('l_sysdate set to: '||to_char(l_sysdate,'DD-MON-YYYY HH24:MI:SS'));
2183: END IF;
2184:
2185: -- This procedure queries all of the Inventory Transaction Records and
2186: -- returns them as a table.
2192:
2193: l_tbl_count := 0;
2194: l_tbl_count := l_mtl_item_tbl.count;
2195: IF (l_debug > 0) THEN
2196: csi_t_gen_utility_pvt.add('Inventory Records Found: '||l_tbl_count);
2197: END IF;
2198:
2199: IF NOT l_return_status = l_fnd_success THEN
2200: IF (l_debug > 0) THEN
2197: END IF;
2198:
2199: IF NOT l_return_status = l_fnd_success THEN
2200: IF (l_debug > 0) THEN
2201: csi_t_gen_utility_pvt.add('You have encountered an error in CSI_INV_TRXS_PKG.get_transaction_recs, Transaction ID: '||p_transaction_id);
2202: END IF;
2203: RAISE fnd_api.g_exc_error;
2204: END IF;
2205:
2203: RAISE fnd_api.g_exc_error;
2204: END IF;
2205:
2206: IF (l_debug > 0) THEN
2207: csi_t_gen_utility_pvt.add('Transaction Action ID: '||l_mtl_item_tbl(i).transaction_action_id);
2208: csi_t_gen_utility_pvt.add('Transaction Source Type ID: '||l_mtl_item_tbl(i).transaction_source_type_id);
2209: csi_t_gen_utility_pvt.add('Transaction Quantity: '||l_mtl_item_tbl(i).transaction_quantity);
2210: END IF;
2211:
2204: END IF;
2205:
2206: IF (l_debug > 0) THEN
2207: csi_t_gen_utility_pvt.add('Transaction Action ID: '||l_mtl_item_tbl(i).transaction_action_id);
2208: csi_t_gen_utility_pvt.add('Transaction Source Type ID: '||l_mtl_item_tbl(i).transaction_source_type_id);
2209: csi_t_gen_utility_pvt.add('Transaction Quantity: '||l_mtl_item_tbl(i).transaction_quantity);
2210: END IF;
2211:
2212: -- Get the Master Organization ID
2205:
2206: IF (l_debug > 0) THEN
2207: csi_t_gen_utility_pvt.add('Transaction Action ID: '||l_mtl_item_tbl(i).transaction_action_id);
2208: csi_t_gen_utility_pvt.add('Transaction Source Type ID: '||l_mtl_item_tbl(i).transaction_source_type_id);
2209: csi_t_gen_utility_pvt.add('Transaction Quantity: '||l_mtl_item_tbl(i).transaction_quantity);
2210: END IF;
2211:
2212: -- Get the Master Organization ID
2213: csi_inv_trxs_pkg.get_master_organization(l_mtl_item_tbl(i).organization_id,
2216: l_error_message);
2217:
2218: IF NOT l_return_status = l_fnd_success THEN
2219: IF (l_debug > 0) THEN
2220: 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);
2221: END IF;
2222: RAISE fnd_api.g_exc_error;
2223: END IF;
2224:
2226: l_employee_id := csi_inv_trxs_pkg.get_fnd_employee_id(l_mtl_item_tbl(i).last_updated_by);
2227:
2228: IF l_employee_id = -1 THEN
2229: IF (l_debug > 0) THEN
2230: 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');
2231: END IF;
2232: END IF;
2233: IF (l_debug > 0) THEN
2234: csi_t_gen_utility_pvt.add('The Employee that is processing this Transaction is: '||l_employee_id);
2230: 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');
2231: END IF;
2232: END IF;
2233: IF (l_debug > 0) THEN
2234: csi_t_gen_utility_pvt.add('The Employee that is processing this Transaction is: '||l_employee_id);
2235: END IF;
2236:
2237: -- See if this is a depreciable Item to set the status of the transaction record
2238: csi_inv_trxs_pkg.check_depreciable(l_mtl_item_tbl(i).inventory_item_id,
2239: l_depreciable,
2240: l_mtl_item_tbl(i).organization_id); --Added for Bug 13988660
2241:
2242: IF (l_debug > 0) THEN
2243: csi_t_gen_utility_pvt.add('Is this Item ID: '||l_mtl_item_tbl(i).inventory_item_id||', Depreciable :'||l_depreciable);
2244: END IF;
2245:
2246: -- Set so we only Query Valid Records.
2247: l_instance_status := FND_API.G_TRUE;
2251: l_trans_type_code := 'ISO_REQUISITION_RECEIPT';
2252: l_trans_app_code := 'INV';
2253:
2254: IF (l_debug > 0) THEN
2255: csi_t_gen_utility_pvt.add('Trans Type Code: '||l_trans_type_code);
2256: csi_t_gen_utility_pvt.add('Trans App Code: '||l_trans_app_code);
2257: END IF;
2258:
2259: -- Get Default Profile Instance Status
2252: l_trans_app_code := 'INV';
2253:
2254: IF (l_debug > 0) THEN
2255: csi_t_gen_utility_pvt.add('Trans Type Code: '||l_trans_type_code);
2256: csi_t_gen_utility_pvt.add('Trans App Code: '||l_trans_app_code);
2257: END IF;
2258:
2259: -- Get Default Profile Instance Status
2260:
2262: FETCH c_id into r_id;
2263: CLOSE c_id;
2264:
2265: IF (l_debug > 0) THEN
2266: csi_t_gen_utility_pvt.add('Default Profile Status: '||r_id.instance_status_id);
2267: END IF;
2268:
2269: -- Added so that the SO_HEADER_ID and SO_LINE_ID can be added to
2270: -- the transaction record.
2269: -- Added so that the SO_HEADER_ID and SO_LINE_ID can be added to
2270: -- the transaction record.
2271:
2272: IF (l_debug > 0) THEN
2273: csi_t_gen_utility_pvt.add('Transfer Transaction ID: '||l_mtl_item_tbl(j).transfer_transaction_id);
2274: END IF;
2275:
2276: OPEN c_xfer_trans_id (l_mtl_item_tbl(j).transfer_transaction_id);
2277: FETCH c_xfer_trans_id into r_xfer_trans_id;
2277: FETCH c_xfer_trans_id into r_xfer_trans_id;
2278: CLOSE c_xfer_trans_id;
2279:
2280: IF (l_debug > 0) THEN
2281: csi_t_gen_utility_pvt.add('Trx Source Line ID: '||r_xfer_trans_id.trx_source_line_id);
2282: END IF;
2283:
2284: OPEN c_so_info (r_xfer_trans_id.trx_source_line_id);
2285: --OPEN c_so_info (l_mtl_item_tbl(j).transaction_source_id);
2286: FETCH c_so_info into r_so_info;
2287: CLOSE c_so_info;
2288:
2289: IF (l_debug > 0) THEN
2290: csi_t_gen_utility_pvt.add('Sales Order Header: '||r_so_info.header_id);
2291: csi_t_gen_utility_pvt.add('Sales Order Line: '||r_so_info.line_id);
2292: csi_t_gen_utility_pvt.add('Order Number: '||r_so_info.order_number);
2293: csi_t_gen_utility_pvt.add('Line Number: '||r_so_info.line_number);
2294: END IF;
2287: CLOSE c_so_info;
2288:
2289: IF (l_debug > 0) THEN
2290: csi_t_gen_utility_pvt.add('Sales Order Header: '||r_so_info.header_id);
2291: csi_t_gen_utility_pvt.add('Sales Order Line: '||r_so_info.line_id);
2292: csi_t_gen_utility_pvt.add('Order Number: '||r_so_info.order_number);
2293: csi_t_gen_utility_pvt.add('Line Number: '||r_so_info.line_number);
2294: END IF;
2295: -- Initialize Transaction Record
2288:
2289: IF (l_debug > 0) THEN
2290: csi_t_gen_utility_pvt.add('Sales Order Header: '||r_so_info.header_id);
2291: csi_t_gen_utility_pvt.add('Sales Order Line: '||r_so_info.line_id);
2292: csi_t_gen_utility_pvt.add('Order Number: '||r_so_info.order_number);
2293: csi_t_gen_utility_pvt.add('Line Number: '||r_so_info.line_number);
2294: END IF;
2295: -- Initialize Transaction Record
2296: l_txn_rec := csi_inv_trxs_pkg.init_txn_rec;
2289: IF (l_debug > 0) THEN
2290: csi_t_gen_utility_pvt.add('Sales Order Header: '||r_so_info.header_id);
2291: csi_t_gen_utility_pvt.add('Sales Order Line: '||r_so_info.line_id);
2292: csi_t_gen_utility_pvt.add('Order Number: '||r_so_info.order_number);
2293: csi_t_gen_utility_pvt.add('Line Number: '||r_so_info.line_number);
2294: END IF;
2295: -- Initialize Transaction Record
2296: l_txn_rec := csi_inv_trxs_pkg.init_txn_rec;
2297:
2315: END IF;
2316:
2317: IF NOT l_return_status = l_fnd_success THEN
2318: IF (l_debug > 0) THEN
2319: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
2320: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
2321: END IF;
2322: RAISE fnd_api.g_exc_error;
2323: END IF;
2316:
2317: IF NOT l_return_status = l_fnd_success THEN
2318: IF (l_debug > 0) THEN
2319: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
2320: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
2321: END IF;
2322: RAISE fnd_api.g_exc_error;
2323: END IF;
2324:
2322: RAISE fnd_api.g_exc_error;
2323: END IF;
2324:
2325: IF (l_debug > 0) THEN
2326: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
2327: csi_t_gen_utility_pvt.add('Trans Status Code: '||l_txn_rec.transaction_status_code);
2328: END IF;
2329:
2330: -- Create CSI Transaction to be used
2323: END IF;
2324:
2325: IF (l_debug > 0) THEN
2326: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
2327: csi_t_gen_utility_pvt.add('Trans Status Code: '||l_txn_rec.transaction_status_code);
2328: END IF;
2329:
2330: -- Create CSI Transaction to be used
2331: l_txn_rec.source_transaction_date := l_mtl_item_tbl(i).transaction_date;
2349: l_error_message,
2350: l_return_status);
2351:
2352: IF (l_debug > 0) THEN
2353: csi_t_gen_utility_pvt.add('CSI Transaction Created: '||l_txn_rec.transaction_id);
2354: END IF;
2355:
2356: IF NOT l_return_status = l_fnd_success THEN
2357: IF (l_debug > 0) THEN
2354: END IF;
2355:
2356: IF NOT l_return_status = l_fnd_success THEN
2357: IF (l_debug > 0) THEN
2358: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.create_csi_txn: '||p_transaction_id);
2359: END IF;
2360: RAISE fnd_api.g_exc_error;
2361: END IF;
2362:
2363: -- Now loop through the PL/SQL Table.
2364: j := 1;
2365:
2366: IF (l_debug > 0) THEN
2367: csi_t_gen_utility_pvt.add('Starting to loop through Material Transaction Records');
2368: END IF;
2369:
2370: FOR j in l_mtl_item_tbl.FIRST .. l_mtl_item_tbl.LAST LOOP
2371:
2375: FETCH c_intransit_line_id into r_intransit_line_id;
2376: CLOSE c_intransit_line_id;
2377:
2378: IF (l_debug > 0) THEN
2379: csi_t_gen_utility_pvt.add('Shipment Number: '||l_mtl_item_tbl(j).shipment_number);
2380: csi_t_gen_utility_pvt.add('Previous Line ID for Shipment: '||r_intransit_line_id.trx_source_line_id);
2381: END IF;
2382:
2383: IF (l_debug > 0) THEN
2376: CLOSE c_intransit_line_id;
2377:
2378: IF (l_debug > 0) THEN
2379: csi_t_gen_utility_pvt.add('Shipment Number: '||l_mtl_item_tbl(j).shipment_number);
2380: csi_t_gen_utility_pvt.add('Previous Line ID for Shipment: '||r_intransit_line_id.trx_source_line_id);
2381: END IF;
2382:
2383: IF (l_debug > 0) THEN
2384: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
2380: csi_t_gen_utility_pvt.add('Previous Line ID for Shipment: '||r_intransit_line_id.trx_source_line_id);
2381: END IF;
2382:
2383: IF (l_debug > 0) THEN
2384: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
2385: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
2386: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
2387: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
2388: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
2381: END IF;
2382:
2383: IF (l_debug > 0) THEN
2384: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
2385: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
2386: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
2387: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
2388: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
2389: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
2382:
2383: IF (l_debug > 0) THEN
2384: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
2385: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
2386: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
2387: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
2388: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
2389: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
2390: END IF;
2383: IF (l_debug > 0) THEN
2384: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
2385: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
2386: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
2387: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
2388: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
2389: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
2390: END IF;
2391:
2384: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
2385: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
2386: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
2387: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
2388: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
2389: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
2390: END IF;
2391:
2392: -- Get Shipping Organization Serial Control Code
2385: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
2386: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
2387: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
2388: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
2389: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
2390: END IF;
2391:
2392: -- Get Shipping Organization Serial Control Code
2393: OPEN c_item_control (l_mtl_item_tbl(j).inventory_item_id,
2398:
2399: l_sr_control := r_item_control.serial_number_control_code;
2400:
2401: IF (l_debug > 0) THEN
2402: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
2403: csi_t_gen_utility_pvt.add('l_sr_control is: '||l_sr_control);
2404: csi_t_gen_utility_pvt.add('Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2405: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2406: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
2399: l_sr_control := r_item_control.serial_number_control_code;
2400:
2401: IF (l_debug > 0) THEN
2402: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
2403: csi_t_gen_utility_pvt.add('l_sr_control is: '||l_sr_control);
2404: csi_t_gen_utility_pvt.add('Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2405: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2406: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
2407: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
2400:
2401: IF (l_debug > 0) THEN
2402: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
2403: csi_t_gen_utility_pvt.add('l_sr_control is: '||l_sr_control);
2404: csi_t_gen_utility_pvt.add('Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2405: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2406: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
2407: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
2408: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||r_item_control.lot_control_code);
2401: IF (l_debug > 0) THEN
2402: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
2403: csi_t_gen_utility_pvt.add('l_sr_control is: '||l_sr_control);
2404: csi_t_gen_utility_pvt.add('Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2405: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2406: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
2407: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
2408: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||r_item_control.lot_control_code);
2409: csi_t_gen_utility_pvt.add('Receiving Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
2402: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
2403: csi_t_gen_utility_pvt.add('l_sr_control is: '||l_sr_control);
2404: csi_t_gen_utility_pvt.add('Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2405: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2406: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
2407: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
2408: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||r_item_control.lot_control_code);
2409: csi_t_gen_utility_pvt.add('Receiving Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
2410: csi_t_gen_utility_pvt.add('Shipping Org Location Control Code: '||r_item_control.location_control_code);
2403: csi_t_gen_utility_pvt.add('l_sr_control is: '||l_sr_control);
2404: csi_t_gen_utility_pvt.add('Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2405: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2406: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
2407: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
2408: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||r_item_control.lot_control_code);
2409: csi_t_gen_utility_pvt.add('Receiving Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
2410: csi_t_gen_utility_pvt.add('Shipping Org Location Control Code: '||r_item_control.location_control_code);
2411: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
2404: csi_t_gen_utility_pvt.add('Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2405: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2406: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
2407: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
2408: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||r_item_control.lot_control_code);
2409: csi_t_gen_utility_pvt.add('Receiving Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
2410: csi_t_gen_utility_pvt.add('Shipping Org Location Control Code: '||r_item_control.location_control_code);
2411: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
2412: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||r_item_control.revision_qty_control_code);
2405: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2406: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
2407: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
2408: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||r_item_control.lot_control_code);
2409: csi_t_gen_utility_pvt.add('Receiving Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
2410: csi_t_gen_utility_pvt.add('Shipping Org Location Control Code: '||r_item_control.location_control_code);
2411: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
2412: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||r_item_control.revision_qty_control_code);
2413: csi_t_gen_utility_pvt.add('Shipping Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
2406: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
2407: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
2408: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||r_item_control.lot_control_code);
2409: csi_t_gen_utility_pvt.add('Receiving Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
2410: csi_t_gen_utility_pvt.add('Shipping Org Location Control Code: '||r_item_control.location_control_code);
2411: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
2412: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||r_item_control.revision_qty_control_code);
2413: csi_t_gen_utility_pvt.add('Shipping Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
2414: END IF;
2407: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
2408: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||r_item_control.lot_control_code);
2409: csi_t_gen_utility_pvt.add('Receiving Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
2410: csi_t_gen_utility_pvt.add('Shipping Org Location Control Code: '||r_item_control.location_control_code);
2411: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
2412: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||r_item_control.revision_qty_control_code);
2413: csi_t_gen_utility_pvt.add('Shipping Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
2414: END IF;
2415:
2408: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||r_item_control.lot_control_code);
2409: csi_t_gen_utility_pvt.add('Receiving Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
2410: csi_t_gen_utility_pvt.add('Shipping Org Location Control Code: '||r_item_control.location_control_code);
2411: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
2412: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||r_item_control.revision_qty_control_code);
2413: csi_t_gen_utility_pvt.add('Shipping Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
2414: END IF;
2415:
2416: l_instance_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
2409: csi_t_gen_utility_pvt.add('Receiving Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
2410: csi_t_gen_utility_pvt.add('Shipping Org Location Control Code: '||r_item_control.location_control_code);
2411: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
2412: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||r_item_control.revision_qty_control_code);
2413: csi_t_gen_utility_pvt.add('Shipping Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
2414: END IF;
2415:
2416: l_instance_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
2417: l_instance_usage_code := l_fnd_g_char;
2440:
2441: --l_instance_query_rec.inv_organization_id := l_mtl_item_tbl(j).organization_id;
2442: l_instance_query_rec.serial_number := l_mtl_item_tbl(j).serial_number;
2443: IF (l_debug > 0) THEN
2444: csi_t_gen_utility_pvt.add('Set Serial Number to Trans Record');
2445: END IF;
2446:
2447: -- Bug 7836468
2448: ELSIF (l_mtl_item_tbl(j).serial_number_control_code = 6 AND
2447: -- Bug 7836468
2448: ELSIF (l_mtl_item_tbl(j).serial_number_control_code = 6 AND
2449: l_sr_control = 6) THEN
2450:
2451: csi_t_gen_utility_pvt.add('Serial Control 6 at Shipping and Receiving Org');
2452: csi_t_gen_utility_pvt.add('Setting - l_instance_query_rec.in_transit_order_line_id - ' || r_intransit_line_id.trx_source_line_id);
2453: l_instance_query_rec.serial_number := l_fnd_g_char;
2454: l_instance_query_rec.in_transit_order_line_id := r_intransit_line_id.trx_source_line_id;
2455: -- End Bug 7836468
2448: ELSIF (l_mtl_item_tbl(j).serial_number_control_code = 6 AND
2449: l_sr_control = 6) THEN
2450:
2451: csi_t_gen_utility_pvt.add('Serial Control 6 at Shipping and Receiving Org');
2452: csi_t_gen_utility_pvt.add('Setting - l_instance_query_rec.in_transit_order_line_id - ' || r_intransit_line_id.trx_source_line_id);
2453: l_instance_query_rec.serial_number := l_fnd_g_char;
2454: l_instance_query_rec.in_transit_order_line_id := r_intransit_line_id.trx_source_line_id;
2455: -- End Bug 7836468
2456:
2461: l_instance_query_rec.serial_number := NULL;
2462: l_instance_query_rec.in_transit_order_line_id := r_intransit_line_id.trx_source_line_id;
2463: --l_instance_query_rec.inv_organization_id := l_mtl_item_tbl(j).transfer_organization_id;
2464: IF (l_debug > 0) THEN
2465: csi_t_gen_utility_pvt.add('Set Serial Number to NULL');
2466: END IF;
2467: ELSIF (l_mtl_item_tbl(j).serial_number_control_code = 1 AND
2468: l_sr_control = 6) OR
2469: (l_mtl_item_tbl(j).serial_number_control_code = 1 AND
2470: l_sr_control in (2,5)) THEN
2471: l_instance_query_rec.serial_number := NULL;
2472: l_instance_query_rec.in_transit_order_line_id := r_intransit_line_id.trx_source_line_id;
2473: IF (l_debug > 0) THEN
2474: csi_t_gen_utility_pvt.add('Set Serial Number to NULL');
2475: csi_t_gen_utility_pvt.add('Pass into get item instance the Previous In Transit id ('||l_instance_query_rec.in_transit_order_line_id||')');
2476: END IF;
2477: END IF;
2478:
2471: l_instance_query_rec.serial_number := NULL;
2472: l_instance_query_rec.in_transit_order_line_id := r_intransit_line_id.trx_source_line_id;
2473: IF (l_debug > 0) THEN
2474: csi_t_gen_utility_pvt.add('Set Serial Number to NULL');
2475: csi_t_gen_utility_pvt.add('Pass into get item instance the Previous In Transit id ('||l_instance_query_rec.in_transit_order_line_id||')');
2476: END IF;
2477: END IF;
2478:
2479: IF (l_debug > 0) THEN
2476: END IF;
2477: END IF;
2478:
2479: IF (l_debug > 0) THEN
2480: csi_t_gen_utility_pvt.add('l_12_loop is:'|| l_12_loop);
2481: csi_t_gen_utility_pvt.add('If Count is 1 then bypass Get Item Instance');
2482: END IF;
2483:
2484: IF l_12_loop = 0 THEN
2477: END IF;
2478:
2479: IF (l_debug > 0) THEN
2480: csi_t_gen_utility_pvt.add('l_12_loop is:'|| l_12_loop);
2481: csi_t_gen_utility_pvt.add('If Count is 1 then bypass Get Item Instance');
2482: END IF;
2483:
2484: IF l_12_loop = 0 THEN
2485:
2483:
2484: IF l_12_loop = 0 THEN
2485:
2486: IF (l_debug > 0) THEN
2487: csi_t_gen_utility_pvt.add('Transaction Action Type:'|| l_trx_action_type);
2488: csi_t_gen_utility_pvt.add('Before Get Item Instance-1');
2489: END IF;
2490:
2491: csi_item_instance_pub.get_item_instances(l_api_version,
2484: IF l_12_loop = 0 THEN
2485:
2486: IF (l_debug > 0) THEN
2487: csi_t_gen_utility_pvt.add('Transaction Action Type:'|| l_trx_action_type);
2488: csi_t_gen_utility_pvt.add('Before Get Item Instance-1');
2489: END IF;
2490:
2491: csi_item_instance_pub.get_item_instances(l_api_version,
2492: l_commit,
2504: l_msg_data);
2505: END IF;
2506:
2507: IF (l_debug > 0) THEN
2508: csi_t_gen_utility_pvt.add('After Get Item Instance-2');
2509: END IF;
2510: l_tbl_count := 0;
2511: l_tbl_count := l_src_instance_header_tbl.count;
2512: IF (l_debug > 0) THEN
2509: END IF;
2510: l_tbl_count := 0;
2511: l_tbl_count := l_src_instance_header_tbl.count;
2512: IF (l_debug > 0) THEN
2513: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
2514: END IF;
2515:
2516: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2517: IF NOT l_return_status = l_fnd_success then
2515:
2516: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2517: IF NOT l_return_status = l_fnd_success then
2518: IF (l_debug > 0) THEN
2519: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
2520: END IF;
2521: l_msg_index := 1;
2522: WHILE l_msg_count > 0 loop
2523: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2529:
2530: IF l_src_instance_header_tbl.count > 0 OR
2531: l_12_loop = 1 THEN -- Installed Base Records Found
2532: IF (l_debug > 0) THEN
2533: csi_t_gen_utility_pvt.add('Records exists so now check both Shipping and Rec Serial Control');
2534: END IF;
2535:
2536:
2537: IF (l_mtl_item_tbl(j).serial_number_control_code in (2,5) AND
2539: (l_mtl_item_tbl(j).serial_number_control_code in (2,5) AND
2540: l_sr_control = 6) THEN
2541:
2542: IF (l_debug > 0) THEN
2543: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 2,5 or 6 and Receiving are 2,5');
2544: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
2545: END IF;
2546:
2547: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
2540: l_sr_control = 6) THEN
2541:
2542: IF (l_debug > 0) THEN
2543: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 2,5 or 6 and Receiving are 2,5');
2544: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
2545: END IF;
2546:
2547: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
2548: l_update_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
2559: l_update_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
2560: --start of code for bug 6137231--
2561: IF r_item_control.lot_control_code = 2 AND l_mtl_item_tbl(j).lot_control_code = 1 THEN
2562: l_update_instance_rec.lot_number := NULL;
2563: csi_t_gen_utility_pvt.add('Lot control 2 and 1');
2564: ELSIF r_item_control.lot_control_code = 2 AND l_mtl_item_tbl(j).lot_control_code = 2 THEN
2565: l_update_instance_rec.lot_number := l_mtl_item_tbl(j).lot_number;
2566: csi_t_gen_utility_pvt.add('Lot control 2 and 2');
2567: ELSIF r_item_control.lot_control_code = 1 AND l_mtl_item_tbl(j).lot_control_code = 2 THEN
2562: l_update_instance_rec.lot_number := NULL;
2563: csi_t_gen_utility_pvt.add('Lot control 2 and 1');
2564: ELSIF r_item_control.lot_control_code = 2 AND l_mtl_item_tbl(j).lot_control_code = 2 THEN
2565: l_update_instance_rec.lot_number := l_mtl_item_tbl(j).lot_number;
2566: csi_t_gen_utility_pvt.add('Lot control 2 and 2');
2567: ELSIF r_item_control.lot_control_code = 1 AND l_mtl_item_tbl(j).lot_control_code = 2 THEN
2568: l_update_instance_rec.lot_number := l_mtl_item_tbl(j).lot_number;
2569: csi_t_gen_utility_pvt.add('Lot control 1 and 2');
2570: END IF;---lot check
2565: l_update_instance_rec.lot_number := l_mtl_item_tbl(j).lot_number;
2566: csi_t_gen_utility_pvt.add('Lot control 2 and 2');
2567: ELSIF r_item_control.lot_control_code = 1 AND l_mtl_item_tbl(j).lot_control_code = 2 THEN
2568: l_update_instance_rec.lot_number := l_mtl_item_tbl(j).lot_number;
2569: csi_t_gen_utility_pvt.add('Lot control 1 and 2');
2570: END IF;---lot check
2571: --End of code for bug 6137231--
2572:
2573: IF (l_debug > 0) THEN
2570: END IF;---lot check
2571: --End of code for bug 6137231--
2572:
2573: IF (l_debug > 0) THEN
2574: csi_t_gen_utility_pvt.add('After you initialize the Update Record Values');
2575: END IF;
2576:
2577: l_party_tbl.delete;
2578: l_account_tbl.delete;
2580: l_org_assignments_tbl.delete;
2581: l_asset_assignment_tbl.delete;
2582:
2583: IF (l_debug > 0) THEN
2584: csi_t_gen_utility_pvt.add('Before Update Item Instance-3');
2585: END IF;
2586:
2587: csi_item_instance_pub.update_item_instance(l_api_version,
2588: l_commit,
2604: l_upd_error_instance_id := NULL;
2605: l_upd_error_instance_id := l_update_instance_rec.instance_id;
2606:
2607: IF (l_debug > 0) THEN
2608: csi_t_gen_utility_pvt.add('After Update Item Instance-4');
2609: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
2610: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
2611: END IF;
2612:
2605: l_upd_error_instance_id := l_update_instance_rec.instance_id;
2606:
2607: IF (l_debug > 0) THEN
2608: csi_t_gen_utility_pvt.add('After Update Item Instance-4');
2609: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
2610: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
2611: END IF;
2612:
2613: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2606:
2607: IF (l_debug > 0) THEN
2608: csi_t_gen_utility_pvt.add('After Update Item Instance-4');
2609: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
2610: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
2611: END IF;
2612:
2613: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2614: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
2612:
2613: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2614: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
2615: IF (l_debug > 0) THEN
2616: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
2617: END IF;
2618: l_msg_index := 1;
2619: WHILE l_msg_count > 0 loop
2620: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2631: (l_mtl_item_tbl(j).serial_number_control_code = 1 AND
2632: l_sr_control in (2,5)) THEN
2633:
2634: IF (l_debug > 0) THEN
2635: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 6,5 or 2 and Receiving is 1');
2636: csi_t_gen_utility_pvt.add('Subtract Trans Qty from In Transit Non Serial Instance');
2637: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
2638: END IF;
2639:
2632: l_sr_control in (2,5)) THEN
2633:
2634: IF (l_debug > 0) THEN
2635: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 6,5 or 2 and Receiving is 1');
2636: csi_t_gen_utility_pvt.add('Subtract Trans Qty from In Transit Non Serial Instance');
2637: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
2638: END IF;
2639:
2640: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
2633:
2634: IF (l_debug > 0) THEN
2635: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 6,5 or 2 and Receiving is 1');
2636: csi_t_gen_utility_pvt.add('Subtract Trans Qty from In Transit Non Serial Instance');
2637: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
2638: END IF;
2639:
2640: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
2641: l_update_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
2642: l_update_instance_rec.quantity := l_src_instance_header_tbl(i).quantity - abs(l_mtl_item_tbl(j).primary_quantity);
2643: l_update_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
2644:
2645: IF (l_debug > 0) THEN
2646: csi_t_gen_utility_pvt.add('After you initialize the Update Record Values');
2647: csi_t_gen_utility_pvt.add('Instance Updated: '||l_update_instance_rec.instance_id);
2648: csi_t_gen_utility_pvt.add('Object Version: '||l_update_instance_rec.object_version_number);
2649: csi_t_gen_utility_pvt.add('New Quantity: '||l_update_instance_rec.quantity);
2650: END IF;
2643: l_update_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
2644:
2645: IF (l_debug > 0) THEN
2646: csi_t_gen_utility_pvt.add('After you initialize the Update Record Values');
2647: csi_t_gen_utility_pvt.add('Instance Updated: '||l_update_instance_rec.instance_id);
2648: csi_t_gen_utility_pvt.add('Object Version: '||l_update_instance_rec.object_version_number);
2649: csi_t_gen_utility_pvt.add('New Quantity: '||l_update_instance_rec.quantity);
2650: END IF;
2651:
2644:
2645: IF (l_debug > 0) THEN
2646: csi_t_gen_utility_pvt.add('After you initialize the Update Record Values');
2647: csi_t_gen_utility_pvt.add('Instance Updated: '||l_update_instance_rec.instance_id);
2648: csi_t_gen_utility_pvt.add('Object Version: '||l_update_instance_rec.object_version_number);
2649: csi_t_gen_utility_pvt.add('New Quantity: '||l_update_instance_rec.quantity);
2650: END IF;
2651:
2652: IF (l_debug > 0) THEN
2645: IF (l_debug > 0) THEN
2646: csi_t_gen_utility_pvt.add('After you initialize the Update Record Values');
2647: csi_t_gen_utility_pvt.add('Instance Updated: '||l_update_instance_rec.instance_id);
2648: csi_t_gen_utility_pvt.add('Object Version: '||l_update_instance_rec.object_version_number);
2649: csi_t_gen_utility_pvt.add('New Quantity: '||l_update_instance_rec.quantity);
2650: END IF;
2651:
2652: IF (l_debug > 0) THEN
2653: csi_t_gen_utility_pvt.add('After you initialize the Transaction Record Values');
2649: csi_t_gen_utility_pvt.add('New Quantity: '||l_update_instance_rec.quantity);
2650: END IF;
2651:
2652: IF (l_debug > 0) THEN
2653: csi_t_gen_utility_pvt.add('After you initialize the Transaction Record Values');
2654: END IF;
2655:
2656: l_party_tbl.delete;
2657: l_account_tbl.delete;
2659: l_org_assignments_tbl.delete;
2660: l_asset_assignment_tbl.delete;
2661:
2662: IF (l_debug > 0) THEN
2663: csi_t_gen_utility_pvt.add('Before Update Item Instance-5');
2664: END IF;
2665:
2666: csi_item_instance_pub.update_item_instance(l_api_version,
2667: l_commit,
2683: l_upd_error_instance_id := NULL;
2684: l_upd_error_instance_id := l_update_instance_rec.instance_id;
2685:
2686: IF (l_debug > 0) THEN
2687: csi_t_gen_utility_pvt.add('After Update Item Instance-10.9');
2688: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
2689: csi_t_gen_utility_pvt.add('You are updating Serial Number: '||l_update_instance_rec.serial_number);
2690: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
2691: END IF;
2684: l_upd_error_instance_id := l_update_instance_rec.instance_id;
2685:
2686: IF (l_debug > 0) THEN
2687: csi_t_gen_utility_pvt.add('After Update Item Instance-10.9');
2688: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
2689: csi_t_gen_utility_pvt.add('You are updating Serial Number: '||l_update_instance_rec.serial_number);
2690: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
2691: END IF;
2692:
2685:
2686: IF (l_debug > 0) THEN
2687: csi_t_gen_utility_pvt.add('After Update Item Instance-10.9');
2688: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
2689: csi_t_gen_utility_pvt.add('You are updating Serial Number: '||l_update_instance_rec.serial_number);
2690: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
2691: END IF;
2692:
2693: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2686: IF (l_debug > 0) THEN
2687: csi_t_gen_utility_pvt.add('After Update Item Instance-10.9');
2688: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
2689: csi_t_gen_utility_pvt.add('You are updating Serial Number: '||l_update_instance_rec.serial_number);
2690: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
2691: END IF;
2692:
2693: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2694: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
2692:
2693: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2694: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
2695: IF (l_debug > 0) THEN
2696: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
2697: END IF;
2698: l_msg_index := 1;
2699: WHILE l_msg_count > 0 loop
2700: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2720: l_organization_id := l_mtl_item_tbl(j).organization_id;
2721: l_locator_id := l_mtl_item_tbl(j).locator_id;
2722:
2723: IF (l_debug > 0) THEN
2724: csi_t_gen_utility_pvt.add('Before Get Dest Item Instance-7');
2725: END IF;
2726:
2727: csi_item_instance_pub.get_item_instances(l_api_version,
2728: l_commit,
2739: l_msg_count,
2740: l_msg_data);
2741:
2742: IF (l_debug > 0) THEN
2743: csi_t_gen_utility_pvt.add('After Get Item Instance-8');
2744: END IF;
2745: l_tbl_count := 0;
2746: l_tbl_count := l_dest_instance_header_tbl.count;
2747: IF (l_debug > 0) THEN
2744: END IF;
2745: l_tbl_count := 0;
2746: l_tbl_count := l_dest_instance_header_tbl.count;
2747: IF (l_debug > 0) THEN
2748: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
2749: END IF;
2750:
2751: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2752: IF NOT l_return_status = l_fnd_success then
2750:
2751: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2752: IF NOT l_return_status = l_fnd_success then
2753: IF (l_debug > 0) THEN
2754: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
2755: END IF;
2756: l_msg_index := 1;
2757: WHILE l_msg_count > 0 loop
2758: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2796:
2797: 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);
2798:
2799: IF (l_debug > 0) THEN
2800: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_new_dest_instance_rec.instance_status_id);
2801: END IF;
2802:
2803: IF (l_debug > 0) THEN
2804: csi_t_gen_utility_pvt.add('Before Create Item Instance-9');
2800: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_new_dest_instance_rec.instance_status_id);
2801: END IF;
2802:
2803: IF (l_debug > 0) THEN
2804: csi_t_gen_utility_pvt.add('Before Create Item Instance-9');
2805: csi_t_gen_utility_pvt.add('In Transit Order Line ID on Dest Rec: '||l_new_dest_instance_rec.last_oe_order_line_id);
2806: END IF;
2807:
2808: csi_item_instance_pub.create_item_instance(l_api_version,
2801: END IF;
2802:
2803: IF (l_debug > 0) THEN
2804: csi_t_gen_utility_pvt.add('Before Create Item Instance-9');
2805: csi_t_gen_utility_pvt.add('In Transit Order Line ID on Dest Rec: '||l_new_dest_instance_rec.last_oe_order_line_id);
2806: END IF;
2807:
2808: csi_item_instance_pub.create_item_instance(l_api_version,
2809: l_commit,
2821: l_msg_count,
2822: l_msg_data);
2823:
2824: IF (l_debug > 0) THEN
2825: csi_t_gen_utility_pvt.add('After Create Item Instance-10');
2826: END IF;
2827: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2828: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
2829: IF (l_debug > 0) THEN
2826: END IF;
2827: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2828: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
2829: IF (l_debug > 0) THEN
2830: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
2831: END IF;
2832: l_msg_index := 1;
2833: WHILE l_msg_count > 0 loop
2834: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2855:
2856: 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);
2857:
2858: IF (l_debug > 0) THEN
2859: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_dest_instance_rec.instance_status_id);
2860: END IF;
2861:
2862: IF (l_debug > 0) THEN
2863: csi_t_gen_utility_pvt.add('Before Update Item Instance-12');
2859: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_dest_instance_rec.instance_status_id);
2860: END IF;
2861:
2862: IF (l_debug > 0) THEN
2863: csi_t_gen_utility_pvt.add('Before Update Item Instance-12');
2864: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
2865: csi_t_gen_utility_pvt.add('Transaction Type ID: '||l_txn_rec.transaction_type_id);
2866: END IF;
2867:
2860: END IF;
2861:
2862: IF (l_debug > 0) THEN
2863: csi_t_gen_utility_pvt.add('Before Update Item Instance-12');
2864: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
2865: csi_t_gen_utility_pvt.add('Transaction Type ID: '||l_txn_rec.transaction_type_id);
2866: END IF;
2867:
2868: csi_item_instance_pub.update_item_instance(l_api_version,
2861:
2862: IF (l_debug > 0) THEN
2863: csi_t_gen_utility_pvt.add('Before Update Item Instance-12');
2864: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
2865: csi_t_gen_utility_pvt.add('Transaction Type ID: '||l_txn_rec.transaction_type_id);
2866: END IF;
2867:
2868: csi_item_instance_pub.update_item_instance(l_api_version,
2869: l_commit,
2885: l_upd_error_instance_id := NULL;
2886: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
2887:
2888: IF (l_debug > 0) THEN
2889: csi_t_gen_utility_pvt.add('After Update Item Instance-13');
2890: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
2891: END IF;
2892:
2893: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2886: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
2887:
2888: IF (l_debug > 0) THEN
2889: csi_t_gen_utility_pvt.add('After Update Item Instance-13');
2890: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
2891: END IF;
2892:
2893: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2894: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
2892:
2893: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2894: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
2895: IF (l_debug > 0) THEN
2896: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
2897: END IF;
2898: l_msg_index := 1;
2899: WHILE l_msg_count > 0 loop
2900: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2906:
2907: ELSIF l_dest_instance_header_tbl.count > 1 THEN
2908: -- Multiple Instances were found so throw error
2909: IF (l_debug > 0) THEN
2910: csi_t_gen_utility_pvt.add('Multiple Instances were Found in Install Base-14');
2911: END IF;
2912: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2913: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2914: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2927: (l_mtl_item_tbl(j).serial_number_control_code = 6 AND
2928: l_sr_control = 6) THEN
2929:
2930: IF (l_debug > 0) THEN
2931: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 2,5 or 6 and Receiving is 6');
2932: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
2933: END IF;
2934:
2935: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
2928: l_sr_control = 6) THEN
2929:
2930: IF (l_debug > 0) THEN
2931: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 2,5 or 6 and Receiving is 6');
2932: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
2933: END IF;
2934:
2935: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
2936: l_update_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
2938:
2939: l_update_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
2940:
2941: IF (l_debug > 0) THEN
2942: csi_t_gen_utility_pvt.add('After you initialize the Update Record Values');
2943: csi_t_gen_utility_pvt.add('Instance Updated: '||l_update_instance_rec.instance_id);
2944: csi_t_gen_utility_pvt.add('End Date Passed in: '||to_char(l_update_instance_rec.active_end_date,'DD-MON-YYYY HH24:MI:SS'));
2945: csi_t_gen_utility_pvt.add('Object Version: '||l_update_instance_rec.object_version_number);
2946: END IF;
2939: l_update_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
2940:
2941: IF (l_debug > 0) THEN
2942: csi_t_gen_utility_pvt.add('After you initialize the Update Record Values');
2943: csi_t_gen_utility_pvt.add('Instance Updated: '||l_update_instance_rec.instance_id);
2944: csi_t_gen_utility_pvt.add('End Date Passed in: '||to_char(l_update_instance_rec.active_end_date,'DD-MON-YYYY HH24:MI:SS'));
2945: csi_t_gen_utility_pvt.add('Object Version: '||l_update_instance_rec.object_version_number);
2946: END IF;
2947:
2940:
2941: IF (l_debug > 0) THEN
2942: csi_t_gen_utility_pvt.add('After you initialize the Update Record Values');
2943: csi_t_gen_utility_pvt.add('Instance Updated: '||l_update_instance_rec.instance_id);
2944: csi_t_gen_utility_pvt.add('End Date Passed in: '||to_char(l_update_instance_rec.active_end_date,'DD-MON-YYYY HH24:MI:SS'));
2945: csi_t_gen_utility_pvt.add('Object Version: '||l_update_instance_rec.object_version_number);
2946: END IF;
2947:
2948: ---- BEGIN New Added
2941: IF (l_debug > 0) THEN
2942: csi_t_gen_utility_pvt.add('After you initialize the Update Record Values');
2943: csi_t_gen_utility_pvt.add('Instance Updated: '||l_update_instance_rec.instance_id);
2944: csi_t_gen_utility_pvt.add('End Date Passed in: '||to_char(l_update_instance_rec.active_end_date,'DD-MON-YYYY HH24:MI:SS'));
2945: csi_t_gen_utility_pvt.add('Object Version: '||l_update_instance_rec.object_version_number);
2946: END IF;
2947:
2948: ---- BEGIN New Added
2949: --Added for Bug 5975739
2957: l_update_instance_rec.instance_usage_code := l_returned; */
2958: --bug#13815023
2959:
2960: IF (l_debug > 0) THEN
2961: csi_t_gen_utility_pvt.add('Setting In Transit Serialized Instance to be RETURNED usage');
2962: csi_t_gen_utility_pvt.add('Usage: '||l_update_instance_rec.instance_usage_code);
2963: csi_t_gen_utility_pvt.add('VLD Org: '||l_update_instance_rec.vld_organization_id);
2964: csi_t_gen_utility_pvt.add('INV Org: '||l_update_instance_rec.inv_organization_id);
2965: csi_t_gen_utility_pvt.add('Subinv Code: '||l_update_instance_rec.inv_subinventory_name);
2958: --bug#13815023
2959:
2960: IF (l_debug > 0) THEN
2961: csi_t_gen_utility_pvt.add('Setting In Transit Serialized Instance to be RETURNED usage');
2962: csi_t_gen_utility_pvt.add('Usage: '||l_update_instance_rec.instance_usage_code);
2963: csi_t_gen_utility_pvt.add('VLD Org: '||l_update_instance_rec.vld_organization_id);
2964: csi_t_gen_utility_pvt.add('INV Org: '||l_update_instance_rec.inv_organization_id);
2965: csi_t_gen_utility_pvt.add('Subinv Code: '||l_update_instance_rec.inv_subinventory_name);
2966: END IF;
2959:
2960: IF (l_debug > 0) THEN
2961: csi_t_gen_utility_pvt.add('Setting In Transit Serialized Instance to be RETURNED usage');
2962: csi_t_gen_utility_pvt.add('Usage: '||l_update_instance_rec.instance_usage_code);
2963: csi_t_gen_utility_pvt.add('VLD Org: '||l_update_instance_rec.vld_organization_id);
2964: csi_t_gen_utility_pvt.add('INV Org: '||l_update_instance_rec.inv_organization_id);
2965: csi_t_gen_utility_pvt.add('Subinv Code: '||l_update_instance_rec.inv_subinventory_name);
2966: END IF;
2967:
2960: IF (l_debug > 0) THEN
2961: csi_t_gen_utility_pvt.add('Setting In Transit Serialized Instance to be RETURNED usage');
2962: csi_t_gen_utility_pvt.add('Usage: '||l_update_instance_rec.instance_usage_code);
2963: csi_t_gen_utility_pvt.add('VLD Org: '||l_update_instance_rec.vld_organization_id);
2964: csi_t_gen_utility_pvt.add('INV Org: '||l_update_instance_rec.inv_organization_id);
2965: csi_t_gen_utility_pvt.add('Subinv Code: '||l_update_instance_rec.inv_subinventory_name);
2966: END IF;
2967:
2968: ---- END NEW ADDED
2961: csi_t_gen_utility_pvt.add('Setting In Transit Serialized Instance to be RETURNED usage');
2962: csi_t_gen_utility_pvt.add('Usage: '||l_update_instance_rec.instance_usage_code);
2963: csi_t_gen_utility_pvt.add('VLD Org: '||l_update_instance_rec.vld_organization_id);
2964: csi_t_gen_utility_pvt.add('INV Org: '||l_update_instance_rec.inv_organization_id);
2965: csi_t_gen_utility_pvt.add('Subinv Code: '||l_update_instance_rec.inv_subinventory_name);
2966: END IF;
2967:
2968: ---- END NEW ADDED
2969:
2973: l_org_assignments_tbl.delete;
2974: l_asset_assignment_tbl.delete;
2975:
2976: IF (l_debug > 0) THEN
2977: csi_t_gen_utility_pvt.add('Before Update Item Instance-18');
2978: END IF;
2979:
2980: csi_item_instance_pub.update_item_instance(l_api_version,
2981: l_commit,
2997: l_upd_error_instance_id := NULL;
2998: l_upd_error_instance_id := l_update_instance_rec.instance_id;
2999:
3000: IF (l_debug > 0) THEN
3001: csi_t_gen_utility_pvt.add('After Update Item Instance-19');
3002: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
3003: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
3004: END IF;
3005:
2998: l_upd_error_instance_id := l_update_instance_rec.instance_id;
2999:
3000: IF (l_debug > 0) THEN
3001: csi_t_gen_utility_pvt.add('After Update Item Instance-19');
3002: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
3003: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
3004: END IF;
3005:
3006: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2999:
3000: IF (l_debug > 0) THEN
3001: csi_t_gen_utility_pvt.add('After Update Item Instance-19');
3002: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
3003: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
3004: END IF;
3005:
3006: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3007: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3005:
3006: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3007: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3008: IF (l_debug > 0) THEN
3009: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
3010: END IF;
3011: l_msg_index := 1;
3012: WHILE l_msg_count > 0 loop
3013: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3019:
3020: IF j = 1 THEN -- Update Source Since its Non Serialized 1 Time
3021:
3022: IF (l_debug > 0) THEN
3023: csi_t_gen_utility_pvt.add('Update/Create Non Serial Dest 1 time with Transaction Quantity');
3024: END IF;
3025:
3026: -- Now Query for Dest Non Serialized Instances and Update (Unexpire)/ Create Instances
3027: l_instance_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
3038: l_organization_id := l_mtl_item_tbl(j).organization_id;
3039: l_locator_id := l_mtl_item_tbl(j).locator_id;
3040:
3041: IF (l_debug > 0) THEN
3042: csi_t_gen_utility_pvt.add('Before Get Dest Item Instance-20');
3043: END IF;
3044:
3045: csi_item_instance_pub.get_item_instances(l_api_version,
3046: l_commit,
3057: l_msg_count,
3058: l_msg_data);
3059:
3060: IF (l_debug > 0) THEN
3061: csi_t_gen_utility_pvt.add('After Get Item Instance-21');
3062: END IF;
3063: l_tbl_count := 0;
3064: l_tbl_count := l_dest_instance_header_tbl.count;
3065: IF (l_debug > 0) THEN
3062: END IF;
3063: l_tbl_count := 0;
3064: l_tbl_count := l_dest_instance_header_tbl.count;
3065: IF (l_debug > 0) THEN
3066: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
3067: END IF;
3068:
3069: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3070: IF NOT l_return_status = l_fnd_success then
3068:
3069: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3070: IF NOT l_return_status = l_fnd_success then
3071: IF (l_debug > 0) THEN
3072: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
3073: END IF;
3074: l_msg_index := 1;
3075: WHILE l_msg_count > 0 loop
3076: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3115:
3116: 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);
3117:
3118: IF (l_debug > 0) THEN
3119: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_new_dest_instance_rec.instance_status_id);
3120: END IF;
3121:
3122: IF (l_debug > 0) THEN
3123: csi_t_gen_utility_pvt.add('Before Create Item Instance-22');
3119: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_new_dest_instance_rec.instance_status_id);
3120: END IF;
3121:
3122: IF (l_debug > 0) THEN
3123: csi_t_gen_utility_pvt.add('Before Create Item Instance-22');
3124: csi_t_gen_utility_pvt.add('In Transit Order Line ID on Dest Rec: '||l_new_dest_instance_rec.last_oe_order_line_id);
3125: END IF;
3126:
3127: csi_item_instance_pub.create_item_instance(l_api_version,
3120: END IF;
3121:
3122: IF (l_debug > 0) THEN
3123: csi_t_gen_utility_pvt.add('Before Create Item Instance-22');
3124: csi_t_gen_utility_pvt.add('In Transit Order Line ID on Dest Rec: '||l_new_dest_instance_rec.last_oe_order_line_id);
3125: END IF;
3126:
3127: csi_item_instance_pub.create_item_instance(l_api_version,
3128: l_commit,
3140: l_msg_count,
3141: l_msg_data);
3142:
3143: IF (l_debug > 0) THEN
3144: csi_t_gen_utility_pvt.add('After Create Item Instance-23');
3145: END IF;
3146:
3147: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3148:
3147: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3148:
3149: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3150: IF (l_debug > 0) THEN
3151: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
3152: END IF;
3153: l_msg_index := 1;
3154: WHILE l_msg_count > 0 loop
3155: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3176:
3177: 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);
3178:
3179: IF (l_debug > 0) THEN
3180: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_dest_instance_rec.instance_status_id);
3181: END IF;
3182:
3183: IF (l_debug > 0) THEN
3184: csi_t_gen_utility_pvt.add('Before Update Item Instance-25');
3180: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_dest_instance_rec.instance_status_id);
3181: END IF;
3182:
3183: IF (l_debug > 0) THEN
3184: csi_t_gen_utility_pvt.add('Before Update Item Instance-25');
3185: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
3186: END IF;
3187:
3188: csi_item_instance_pub.update_item_instance(l_api_version,
3181: END IF;
3182:
3183: IF (l_debug > 0) THEN
3184: csi_t_gen_utility_pvt.add('Before Update Item Instance-25');
3185: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
3186: END IF;
3187:
3188: csi_item_instance_pub.update_item_instance(l_api_version,
3189: l_commit,
3205: l_upd_error_instance_id := NULL;
3206: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
3207:
3208: IF (l_debug > 0) THEN
3209: csi_t_gen_utility_pvt.add('After Update Item Instance-26');
3210: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
3211: END IF;
3212:
3213: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3206: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
3207:
3208: IF (l_debug > 0) THEN
3209: csi_t_gen_utility_pvt.add('After Update Item Instance-26');
3210: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
3211: END IF;
3212:
3213: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3214: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3212:
3213: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3214: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3215: IF (l_debug > 0) THEN
3216: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
3217: END IF;
3218: l_msg_index := 1;
3219: WHILE l_msg_count > 0 loop
3220: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3226:
3227: ELSIF l_dest_instance_header_tbl.count > 1 THEN
3228: -- Multiple Instances were found so throw error
3229: IF (l_debug > 0) THEN
3230: csi_t_gen_utility_pvt.add('Multiple Instances were Found in Install Base-28');
3231: END IF;
3232: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
3233: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
3234: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
3243: ELSIF (l_mtl_item_tbl(j).serial_number_control_code in (6,1) AND
3244: l_sr_control = 1) THEN
3245:
3246: IF (l_debug > 0) THEN
3247: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 1 and Receiving is 6 or 1');
3248: csi_t_gen_utility_pvt.add('Source Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
3249: END IF;
3250:
3251: l_upd_src_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
3244: l_sr_control = 1) THEN
3245:
3246: IF (l_debug > 0) THEN
3247: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 1 and Receiving is 6 or 1');
3248: csi_t_gen_utility_pvt.add('Source Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
3249: END IF;
3250:
3251: l_upd_src_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
3252: l_upd_src_dest_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
3259: l_org_assignments_tbl.delete;
3260: l_asset_assignment_tbl.delete;
3261:
3262: IF (l_debug > 0) THEN
3263: csi_t_gen_utility_pvt.add('Before Update Item Instance-31');
3264: END IF;
3265:
3266: csi_item_instance_pub.update_item_instance(l_api_version,
3267: l_commit,
3283: l_upd_error_instance_id := NULL;
3284: l_upd_error_instance_id := l_upd_src_dest_instance_rec.instance_id;
3285:
3286: IF (l_debug > 0) THEN
3287: csi_t_gen_utility_pvt.add('After Update Item Instance-32');
3288: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
3289: END IF;
3290:
3291: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3284: l_upd_error_instance_id := l_upd_src_dest_instance_rec.instance_id;
3285:
3286: IF (l_debug > 0) THEN
3287: csi_t_gen_utility_pvt.add('After Update Item Instance-32');
3288: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
3289: END IF;
3290:
3291: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3292: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3290:
3291: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3292: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3293: IF (l_debug > 0) THEN
3294: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
3295: END IF;
3296: l_msg_index := 1;
3297: WHILE l_msg_count > 0 loop
3298: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3317: l_organization_id := l_mtl_item_tbl(j).organization_id;
3318: l_locator_id := l_mtl_item_tbl(j).locator_id;
3319:
3320: IF (l_debug > 0) THEN
3321: csi_t_gen_utility_pvt.add('Before Get Dest Item Instance-33');
3322: END IF;
3323:
3324: csi_item_instance_pub.get_item_instances(l_api_version,
3325: l_commit,
3336: l_msg_count,
3337: l_msg_data);
3338:
3339: IF (l_debug > 0) THEN
3340: csi_t_gen_utility_pvt.add('After Get Item Instance-34');
3341: END IF;
3342: l_tbl_count := 0;
3343: l_tbl_count := l_dest_instance_header_tbl.count;
3344: IF (l_debug > 0) THEN
3341: END IF;
3342: l_tbl_count := 0;
3343: l_tbl_count := l_dest_instance_header_tbl.count;
3344: IF (l_debug > 0) THEN
3345: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
3346: END IF;
3347:
3348: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3349: IF NOT l_return_status = l_fnd_success then
3347:
3348: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3349: IF NOT l_return_status = l_fnd_success then
3350: IF (l_debug > 0) THEN
3351: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
3352: END IF;
3353: l_msg_index := 1;
3354: WHILE l_msg_count > 0 loop
3355: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3393:
3394: 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);
3395:
3396: IF (l_debug > 0) THEN
3397: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_new_dest_instance_rec.instance_status_id);
3398: END IF;
3399:
3400: IF (l_debug > 0) THEN
3401: csi_t_gen_utility_pvt.add('Before Create Item Instance-35');
3397: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_new_dest_instance_rec.instance_status_id);
3398: END IF;
3399:
3400: IF (l_debug > 0) THEN
3401: csi_t_gen_utility_pvt.add('Before Create Item Instance-35');
3402: csi_t_gen_utility_pvt.add('In Transit Order Line ID on Dest Rec: '||l_new_dest_instance_rec.last_oe_order_line_id);
3403: END IF;
3404:
3405: csi_item_instance_pub.create_item_instance(l_api_version,
3398: END IF;
3399:
3400: IF (l_debug > 0) THEN
3401: csi_t_gen_utility_pvt.add('Before Create Item Instance-35');
3402: csi_t_gen_utility_pvt.add('In Transit Order Line ID on Dest Rec: '||l_new_dest_instance_rec.last_oe_order_line_id);
3403: END IF;
3404:
3405: csi_item_instance_pub.create_item_instance(l_api_version,
3406: l_commit,
3418: l_msg_count,
3419: l_msg_data);
3420:
3421: IF (l_debug > 0) THEN
3422: csi_t_gen_utility_pvt.add('After Create Item Instance-36');
3423: END IF;
3424: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3425:
3426: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3424: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3425:
3426: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3427: IF (l_debug > 0) THEN
3428: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
3429: END IF;
3430: l_msg_index := 1;
3431: WHILE l_msg_count > 0 loop
3432: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3453:
3454: 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);
3455:
3456: IF (l_debug > 0) THEN
3457: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_dest_instance_rec.instance_status_id);
3458: END IF;
3459:
3460: IF (l_debug > 0) THEN
3461: csi_t_gen_utility_pvt.add('Before Update Item Instance-37');
3457: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_dest_instance_rec.instance_status_id);
3458: END IF;
3459:
3460: IF (l_debug > 0) THEN
3461: csi_t_gen_utility_pvt.add('Before Update Item Instance-37');
3462: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
3463: END IF;
3464:
3465: csi_item_instance_pub.update_item_instance(l_api_version,
3458: END IF;
3459:
3460: IF (l_debug > 0) THEN
3461: csi_t_gen_utility_pvt.add('Before Update Item Instance-37');
3462: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
3463: END IF;
3464:
3465: csi_item_instance_pub.update_item_instance(l_api_version,
3466: l_commit,
3482: l_upd_error_instance_id := NULL;
3483: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
3484:
3485: IF (l_debug > 0) THEN
3486: csi_t_gen_utility_pvt.add('After Update Item Instance-38');
3487: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
3488: END IF;
3489:
3490: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3483: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
3484:
3485: IF (l_debug > 0) THEN
3486: csi_t_gen_utility_pvt.add('After Update Item Instance-38');
3487: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
3488: END IF;
3489:
3490: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3491: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3489:
3490: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3491: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3492: IF (l_debug > 0) THEN
3493: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
3494: END IF;
3495: l_msg_index := 1;
3496: WHILE l_msg_count > 0 loop
3497: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3504: ELSIF l_dest_instance_header_tbl.count > 1 THEN
3505: -- Multiple Instances were found so throw error
3506:
3507: IF (l_debug > 0) THEN
3508: csi_t_gen_utility_pvt.add('Multiple Instances were Found in Install Base-43');
3509: END IF;
3510: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
3511: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
3512: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
3523:
3524: l_12_loop := 1;
3525:
3526: IF (l_debug > 0) THEN
3527: csi_t_gen_utility_pvt.add('Setting l_12_loop: '||l_12_loop);
3528: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 1 and Receiving is 2,5');
3529: END IF;
3530:
3531: IF j = 1 THEN -- Update Source Since its Non Serialized 1 Time
3524: l_12_loop := 1;
3525:
3526: IF (l_debug > 0) THEN
3527: csi_t_gen_utility_pvt.add('Setting l_12_loop: '||l_12_loop);
3528: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 1 and Receiving is 2,5');
3529: END IF;
3530:
3531: IF j = 1 THEN -- Update Source Since its Non Serialized 1 Time
3532:
3530:
3531: IF j = 1 THEN -- Update Source Since its Non Serialized 1 Time
3532:
3533: IF (l_debug > 0) THEN
3534: csi_t_gen_utility_pvt.add('Source Instance being updated 1 time: '||l_src_instance_header_tbl(i).instance_id);
3535:
3536: END IF;
3537:
3538: l_upd_src_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
3546: l_org_assignments_tbl.delete;
3547: l_asset_assignment_tbl.delete;
3548:
3549: IF (l_debug > 0) THEN
3550: csi_t_gen_utility_pvt.add('Before Update Item Instance-43');
3551: END IF;
3552:
3553: csi_item_instance_pub.update_item_instance(l_api_version,
3554: l_commit,
3570: l_upd_error_instance_id := NULL;
3571: l_upd_error_instance_id := l_upd_src_dest_instance_rec.instance_id;
3572:
3573: IF (l_debug > 0) THEN
3574: csi_t_gen_utility_pvt.add('After Update Item Instance-44');
3575: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
3576: END IF;
3577:
3578: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3571: l_upd_error_instance_id := l_upd_src_dest_instance_rec.instance_id;
3572:
3573: IF (l_debug > 0) THEN
3574: csi_t_gen_utility_pvt.add('After Update Item Instance-44');
3575: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
3576: END IF;
3577:
3578: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3579: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3577:
3578: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3579: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3580: IF (l_debug > 0) THEN
3581: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
3582: END IF;
3583: l_msg_index := 1;
3584: WHILE l_msg_count > 0 loop
3585: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3606: l_organization_id := l_mtl_item_tbl(j).organization_id;
3607: l_locator_id := l_mtl_item_tbl(j).locator_id;
3608:
3609: IF (l_debug > 0) THEN
3610: csi_t_gen_utility_pvt.add('Before Get Dest Item Instance-45');
3611: END IF;
3612:
3613: csi_item_instance_pub.get_item_instances(l_api_version,
3614: l_commit,
3625: l_msg_count,
3626: l_msg_data);
3627:
3628: IF (l_debug > 0) THEN
3629: csi_t_gen_utility_pvt.add('After Get Item Instance-46');
3630: END IF;
3631: l_tbl_count := 0;
3632: l_tbl_count := l_dest_instance_header_tbl.count;
3633: IF (l_debug > 0) THEN
3630: END IF;
3631: l_tbl_count := 0;
3632: l_tbl_count := l_dest_instance_header_tbl.count;
3633: IF (l_debug > 0) THEN
3634: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
3635: END IF;
3636:
3637: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3638: IF NOT l_return_status = l_fnd_success then
3636:
3637: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3638: IF NOT l_return_status = l_fnd_success then
3639: IF (l_debug > 0) THEN
3640: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
3641: END IF;
3642: l_msg_index := 1;
3643: WHILE l_msg_count > 0 loop
3644: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3683:
3684: 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);
3685:
3686: IF (l_debug > 0) THEN
3687: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_new_dest_instance_rec.instance_status_id);
3688: END IF;
3689:
3690: IF (l_debug > 0) THEN
3691: csi_t_gen_utility_pvt.add('Before Create Item Instance-47');
3687: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_new_dest_instance_rec.instance_status_id);
3688: END IF;
3689:
3690: IF (l_debug > 0) THEN
3691: csi_t_gen_utility_pvt.add('Before Create Item Instance-47');
3692: csi_t_gen_utility_pvt.add('In Transit Order Line ID on Dest Rec: '||l_new_dest_instance_rec.last_oe_order_line_id);
3693: END IF;
3694:
3695: csi_item_instance_pub.create_item_instance(l_api_version,
3688: END IF;
3689:
3690: IF (l_debug > 0) THEN
3691: csi_t_gen_utility_pvt.add('Before Create Item Instance-47');
3692: csi_t_gen_utility_pvt.add('In Transit Order Line ID on Dest Rec: '||l_new_dest_instance_rec.last_oe_order_line_id);
3693: END IF;
3694:
3695: csi_item_instance_pub.create_item_instance(l_api_version,
3696: l_commit,
3708: l_msg_count,
3709: l_msg_data);
3710:
3711: IF (l_debug > 0) THEN
3712: csi_t_gen_utility_pvt.add('After Create Item Instance-48');
3713: END IF;
3714: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3715:
3716: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3714: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3715:
3716: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3717: IF (l_debug > 0) THEN
3718: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
3719: END IF;
3720: l_msg_index := 1;
3721: WHILE l_msg_count > 0 loop
3722: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3728:
3729: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
3730:
3731: IF (l_debug > 0) THEN
3732: csi_t_gen_utility_pvt.add('Serialized Instance found-48.1');
3733: END IF;
3734:
3735: IF l_dest_instance_header_tbl(i).instance_usage_code IN (l_in_transit,l_in_inventory,l_in_relationship,l_out_of_enterprise) THEN
3736:
3734:
3735: IF l_dest_instance_header_tbl(i).instance_usage_code IN (l_in_transit,l_in_inventory,l_in_relationship,l_out_of_enterprise) THEN
3736:
3737: IF (l_debug > 0) THEN
3738: csi_t_gen_utility_pvt.add('Usage Code is: '||l_dest_instance_header_tbl(i).instance_usage_code);
3739: END IF;
3740:
3741: IF l_dest_instance_header_tbl(i).instance_usage_code = l_in_relationship THEN
3742: csi_t_gen_utility_pvt.add('Check and Break Relationship for Instance :'||l_dest_instance_header_tbl(i).instance_id);
3738: csi_t_gen_utility_pvt.add('Usage Code is: '||l_dest_instance_header_tbl(i).instance_usage_code);
3739: END IF;
3740:
3741: IF l_dest_instance_header_tbl(i).instance_usage_code = l_in_relationship THEN
3742: csi_t_gen_utility_pvt.add('Check and Break Relationship for Instance :'||l_dest_instance_header_tbl(i).instance_id);
3743:
3744: csi_process_txn_pvt.check_and_break_relation(l_dest_instance_header_tbl(i).instance_id,
3745: l_txn_rec,
3746: l_return_status);
3745: l_txn_rec,
3746: l_return_status);
3747:
3748: IF NOT l_return_status = l_fnd_success then
3749: csi_t_gen_utility_pvt.add('You encountered an error in the se_inv_trxs_pkg.check_and_break_relation');
3750: l_error_message := csi_t_gen_utility_pvt.dump_error_stack;
3751: RAISE fnd_api.g_exc_error;
3752: END IF;
3753:
3746: l_return_status);
3747:
3748: IF NOT l_return_status = l_fnd_success then
3749: csi_t_gen_utility_pvt.add('You encountered an error in the se_inv_trxs_pkg.check_and_break_relation');
3750: l_error_message := csi_t_gen_utility_pvt.dump_error_stack;
3751: RAISE fnd_api.g_exc_error;
3752: END IF;
3753:
3754: csi_t_gen_utility_pvt.add('Object Version originally from instance: '||l_dest_instance_header_tbl(i).object_version_number);
3750: l_error_message := csi_t_gen_utility_pvt.dump_error_stack;
3751: RAISE fnd_api.g_exc_error;
3752: END IF;
3753:
3754: csi_t_gen_utility_pvt.add('Object Version originally from instance: '||l_dest_instance_header_tbl(i).object_version_number);
3755:
3756: OPEN c_obj_version (l_dest_instance_header_tbl(i).instance_id);
3757: FETCH c_obj_version into l_dest_instance_header_tbl(i).object_version_number;
3758: CLOSE c_obj_version;
3756: OPEN c_obj_version (l_dest_instance_header_tbl(i).instance_id);
3757: FETCH c_obj_version into l_dest_instance_header_tbl(i).object_version_number;
3758: CLOSE c_obj_version;
3759:
3760: csi_t_gen_utility_pvt.add('Current Object Version after check and break :'||l_dest_instance_header_tbl(i).object_version_number);
3761:
3762: END IF; -- Check and Break
3763:
3764:
3786: -- We want to change the party of this back
3787: -- to the Internal Party
3788:
3789: IF (l_debug > 0) THEN
3790: csi_t_gen_utility_pvt.add('Usage is '||l_dest_instance_header_tbl(i).instance_usage_code||' So we need to bring this back into Inventory and change the Owner Party back to the Internal Party');
3791: END IF;
3792:
3793: -- Set Instance ID so it will query the child recs for this
3794: -- Instance.
3828:
3829: FOR p in l_party_header_tbl.FIRST .. l_party_header_tbl.LAST LOOP
3830: IF l_party_header_tbl(p).relationship_type_code = 'OWNER' THEN
3831: IF (l_debug > 0) THEN
3832: csi_t_gen_utility_pvt.add('Found the OWNER party so updating this back to the Internal Party ID');
3833: END IF;
3834:
3835: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
3836: l_party_tbl(i).instance_id := l_dest_instance_header_tbl(i).instance_id;
3836: l_party_tbl(i).instance_id := l_dest_instance_header_tbl(i).instance_id;
3837: l_party_tbl(i).instance_party_id := l_party_header_tbl(p).instance_party_id;
3838: l_party_tbl(i).object_version_number := l_party_header_tbl(p).object_version_number;
3839: IF (l_debug > 0) THEN
3840: csi_t_gen_utility_pvt.add('After finding the OWNER party and updating this back to the Internal Party ID');
3841: END IF;
3842: END IF;
3843: END LOOP;
3844:
3842: END IF;
3843: END LOOP;
3844:
3845: IF (l_debug > 0) THEN
3846: csi_t_gen_utility_pvt.add('Inst Party ID :'||l_party_tbl(i).instance_party_id);
3847: csi_t_gen_utility_pvt.add('Party Inst ID :'||l_party_tbl(i).instance_id);
3848: csi_t_gen_utility_pvt.add('Party Source Table :'||l_party_tbl(i).party_source_table);
3849: csi_t_gen_utility_pvt.add('Party ID :'||l_party_tbl(i).party_id);
3850: csi_t_gen_utility_pvt.add('Rel Type Code :'||l_party_tbl(i).relationship_type_code);
3843: END LOOP;
3844:
3845: IF (l_debug > 0) THEN
3846: csi_t_gen_utility_pvt.add('Inst Party ID :'||l_party_tbl(i).instance_party_id);
3847: csi_t_gen_utility_pvt.add('Party Inst ID :'||l_party_tbl(i).instance_id);
3848: csi_t_gen_utility_pvt.add('Party Source Table :'||l_party_tbl(i).party_source_table);
3849: csi_t_gen_utility_pvt.add('Party ID :'||l_party_tbl(i).party_id);
3850: csi_t_gen_utility_pvt.add('Rel Type Code :'||l_party_tbl(i).relationship_type_code);
3851: csi_t_gen_utility_pvt.add('Contact Flag :'||l_party_tbl(i).contact_flag);
3844:
3845: IF (l_debug > 0) THEN
3846: csi_t_gen_utility_pvt.add('Inst Party ID :'||l_party_tbl(i).instance_party_id);
3847: csi_t_gen_utility_pvt.add('Party Inst ID :'||l_party_tbl(i).instance_id);
3848: csi_t_gen_utility_pvt.add('Party Source Table :'||l_party_tbl(i).party_source_table);
3849: csi_t_gen_utility_pvt.add('Party ID :'||l_party_tbl(i).party_id);
3850: csi_t_gen_utility_pvt.add('Rel Type Code :'||l_party_tbl(i).relationship_type_code);
3851: csi_t_gen_utility_pvt.add('Contact Flag :'||l_party_tbl(i).contact_flag);
3852: csi_t_gen_utility_pvt.add('Object Version Number:' ||l_party_tbl(i).object_version_number);
3845: IF (l_debug > 0) THEN
3846: csi_t_gen_utility_pvt.add('Inst Party ID :'||l_party_tbl(i).instance_party_id);
3847: csi_t_gen_utility_pvt.add('Party Inst ID :'||l_party_tbl(i).instance_id);
3848: csi_t_gen_utility_pvt.add('Party Source Table :'||l_party_tbl(i).party_source_table);
3849: csi_t_gen_utility_pvt.add('Party ID :'||l_party_tbl(i).party_id);
3850: csi_t_gen_utility_pvt.add('Rel Type Code :'||l_party_tbl(i).relationship_type_code);
3851: csi_t_gen_utility_pvt.add('Contact Flag :'||l_party_tbl(i).contact_flag);
3852: csi_t_gen_utility_pvt.add('Object Version Number:' ||l_party_tbl(i).object_version_number);
3853: END IF;
3846: csi_t_gen_utility_pvt.add('Inst Party ID :'||l_party_tbl(i).instance_party_id);
3847: csi_t_gen_utility_pvt.add('Party Inst ID :'||l_party_tbl(i).instance_id);
3848: csi_t_gen_utility_pvt.add('Party Source Table :'||l_party_tbl(i).party_source_table);
3849: csi_t_gen_utility_pvt.add('Party ID :'||l_party_tbl(i).party_id);
3850: csi_t_gen_utility_pvt.add('Rel Type Code :'||l_party_tbl(i).relationship_type_code);
3851: csi_t_gen_utility_pvt.add('Contact Flag :'||l_party_tbl(i).contact_flag);
3852: csi_t_gen_utility_pvt.add('Object Version Number:' ||l_party_tbl(i).object_version_number);
3853: END IF;
3854:
3847: csi_t_gen_utility_pvt.add('Party Inst ID :'||l_party_tbl(i).instance_id);
3848: csi_t_gen_utility_pvt.add('Party Source Table :'||l_party_tbl(i).party_source_table);
3849: csi_t_gen_utility_pvt.add('Party ID :'||l_party_tbl(i).party_id);
3850: csi_t_gen_utility_pvt.add('Rel Type Code :'||l_party_tbl(i).relationship_type_code);
3851: csi_t_gen_utility_pvt.add('Contact Flag :'||l_party_tbl(i).contact_flag);
3852: csi_t_gen_utility_pvt.add('Object Version Number:' ||l_party_tbl(i).object_version_number);
3853: END IF;
3854:
3855: ELSE
3848: csi_t_gen_utility_pvt.add('Party Source Table :'||l_party_tbl(i).party_source_table);
3849: csi_t_gen_utility_pvt.add('Party ID :'||l_party_tbl(i).party_id);
3850: csi_t_gen_utility_pvt.add('Rel Type Code :'||l_party_tbl(i).relationship_type_code);
3851: csi_t_gen_utility_pvt.add('Contact Flag :'||l_party_tbl(i).contact_flag);
3852: csi_t_gen_utility_pvt.add('Object Version Number:' ||l_party_tbl(i).object_version_number);
3853: END IF;
3854:
3855: ELSE
3856:
3865:
3866: 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);
3867:
3868: IF (l_debug > 0) THEN
3869: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_dest_instance_rec.instance_status_id);
3870: END IF;
3871:
3872: IF (l_debug > 0) THEN
3873: csi_t_gen_utility_pvt.add('Before Update Item Instance-49');
3869: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_dest_instance_rec.instance_status_id);
3870: END IF;
3871:
3872: IF (l_debug > 0) THEN
3873: csi_t_gen_utility_pvt.add('Before Update Item Instance-49');
3874: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
3875: END IF;
3876:
3877: csi_item_instance_pub.update_item_instance(l_api_version,
3870: END IF;
3871:
3872: IF (l_debug > 0) THEN
3873: csi_t_gen_utility_pvt.add('Before Update Item Instance-49');
3874: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
3875: END IF;
3876:
3877: csi_item_instance_pub.update_item_instance(l_api_version,
3878: l_commit,
3894: l_upd_error_instance_id := NULL;
3895: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
3896:
3897: IF (l_debug > 0) THEN
3898: csi_t_gen_utility_pvt.add('After Update Item Instance-50');
3899: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
3900: END IF;
3901:
3902: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3895: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
3896:
3897: IF (l_debug > 0) THEN
3898: csi_t_gen_utility_pvt.add('After Update Item Instance-50');
3899: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
3900: END IF;
3901:
3902: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3903: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3901:
3902: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3903: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3904: IF (l_debug > 0) THEN
3905: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
3906: END IF;
3907: l_msg_index := 1;
3908: WHILE l_msg_count > 0 loop
3909: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3914: END IF;
3915:
3916: ELSE -- No Records Found So throw Error
3917: IF (l_debug > 0) THEN
3918: csi_t_gen_utility_pvt.add('No Records were found in Install Base-55');
3919: END IF;
3920:
3921: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3922: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3929: ELSIF l_dest_instance_header_tbl.count > 1 THEN
3930:
3931: -- Multiple Instances were found so throw error
3932: IF (l_debug > 0) THEN
3933: csi_t_gen_utility_pvt.add('Multiple Instances were Found in Install Base-54');
3934: END IF;
3935: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
3936: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
3937: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
3945: END IF; -- Serial Control IF
3946:
3947: ELSE -- No IB Records Found So throw Error
3948: IF (l_debug > 0) THEN
3949: csi_t_gen_utility_pvt.add('No Records were found in Install Base to receive-55');
3950: END IF;
3951: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3952: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3953: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3957: END IF; -- End of Main Source Header Tbl IF
3958: END LOOP; -- End of For Loop
3959:
3960: IF (l_debug > 0) THEN
3961: csi_t_gen_utility_pvt.add('End time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
3962: csi_t_gen_utility_pvt.add('******End of csi_inv_iso_pkg.iso_receipt Transaction******');
3963: END IF;
3964:
3965: EXCEPTION
3958: END LOOP; -- End of For Loop
3959:
3960: IF (l_debug > 0) THEN
3961: csi_t_gen_utility_pvt.add('End time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
3962: csi_t_gen_utility_pvt.add('******End of csi_inv_iso_pkg.iso_receipt Transaction******');
3963: END IF;
3964:
3965: EXCEPTION
3966: WHEN fnd_api.g_exc_error THEN
3964:
3965: EXCEPTION
3966: WHEN fnd_api.g_exc_error THEN
3967: IF (l_debug > 0) THEN
3968: csi_t_gen_utility_pvt.add('You have encountered a "fnd_api.g_exc_error" exception in the Internal Order In Transit Receipt');
3969: END IF;
3970: x_return_status := l_fnd_error;
3971:
3972: IF l_mtl_item_tbl.count > 0 THEN
3997:
3998: WHEN others THEN
3999: l_sql_error := SQLERRM;
4000: IF (l_debug > 0) THEN
4001: csi_t_gen_utility_pvt.add('You have encountered a "when others" exception in the Internal Order In Transit Receipt');
4002: csi_t_gen_utility_pvt.add('SQL Error: '||l_sql_error);
4003: END IF;
4004: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
4005: fnd_message.set_token('API_NAME',l_api_name);
3998: WHEN others THEN
3999: l_sql_error := SQLERRM;
4000: IF (l_debug > 0) THEN
4001: csi_t_gen_utility_pvt.add('You have encountered a "when others" exception in the Internal Order In Transit Receipt');
4002: csi_t_gen_utility_pvt.add('SQL Error: '||l_sql_error);
4003: END IF;
4004: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
4005: fnd_message.set_token('API_NAME',l_api_name);
4006: fnd_message.set_token('SQL_ERROR',SQLERRM);
4027: x_trx_error_rec.transaction_id := NULL;
4028: x_trx_error_rec.source_type := 'CSIINTSR';
4029: x_trx_error_rec.source_id := p_transaction_id;
4030: x_trx_error_rec.processed_flag := csi_inv_trxs_pkg.g_txn_error;
4031: csi_t_gen_utility_pvt.add('ID_ISO1: '||csi_inv_trxs_pkg.get_txn_type_id(l_trans_type_code,l_trans_app_code));
4032: x_trx_error_rec.transaction_type_id := csi_inv_trxs_pkg.get_txn_type_id(l_trans_type_code,l_trans_app_code);
4033: csi_t_gen_utility_pvt.add('ID_ISO2: '||csi_inv_trxs_pkg.get_txn_type_id(l_trans_type_code,l_trans_app_code));
4034: x_trx_error_rec.inv_material_transaction_id := p_transaction_id;
4035: x_trx_error_rec.error_stage := csi_inv_trxs_pkg.g_ib_update;
4029: x_trx_error_rec.source_id := p_transaction_id;
4030: x_trx_error_rec.processed_flag := csi_inv_trxs_pkg.g_txn_error;
4031: csi_t_gen_utility_pvt.add('ID_ISO1: '||csi_inv_trxs_pkg.get_txn_type_id(l_trans_type_code,l_trans_app_code));
4032: x_trx_error_rec.transaction_type_id := csi_inv_trxs_pkg.get_txn_type_id(l_trans_type_code,l_trans_app_code);
4033: csi_t_gen_utility_pvt.add('ID_ISO2: '||csi_inv_trxs_pkg.get_txn_type_id(l_trans_type_code,l_trans_app_code));
4034: x_trx_error_rec.inv_material_transaction_id := p_transaction_id;
4035: x_trx_error_rec.error_stage := csi_inv_trxs_pkg.g_ib_update;
4036:
4037: END iso_receipt;
4190: x_return_status := l_fnd_success;
4191: l_error_message := NULL;
4192:
4193: IF (l_debug > 0) THEN
4194: csi_t_gen_utility_pvt.add('******Start of csi_inv_iso_pkg.iso_direct Transaction procedure******');
4195: csi_t_gen_utility_pvt.add('Start time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
4196: csi_t_gen_utility_pvt.add('csiintsb.pls 115.27');
4197: END IF;
4198:
4191: l_error_message := NULL;
4192:
4193: IF (l_debug > 0) THEN
4194: csi_t_gen_utility_pvt.add('******Start of csi_inv_iso_pkg.iso_direct Transaction procedure******');
4195: csi_t_gen_utility_pvt.add('Start time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
4196: csi_t_gen_utility_pvt.add('csiintsb.pls 115.27');
4197: END IF;
4198:
4199: -- This will open the cursor and fetch the (-) transaction ID
4192:
4193: IF (l_debug > 0) THEN
4194: csi_t_gen_utility_pvt.add('******Start of csi_inv_iso_pkg.iso_direct Transaction procedure******');
4195: csi_t_gen_utility_pvt.add('Start time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
4196: csi_t_gen_utility_pvt.add('csiintsb.pls 115.27');
4197: END IF;
4198:
4199: -- This will open the cursor and fetch the (-) transaction ID
4200: OPEN c_mtl;
4201: FETCH c_mtl into r_mtl;
4202: CLOSE c_mtl;
4203:
4204: IF (l_debug > 0) THEN
4205: csi_t_gen_utility_pvt.add('Direct ISO using Trasfer Trans ID');
4206: csi_t_gen_utility_pvt.add('Transaction ID with (+) is: '||p_transaction_id);
4207: csi_t_gen_utility_pvt.add('Transaction ID with (-) is: '||r_mtl.transfer_transaction_id);
4208: csi_t_gen_utility_pvt.add('l_sysdate set to: '||to_char(l_sysdate,'DD-MON-YYYY HH24:MI:SS'));
4209: END IF;
4202: CLOSE c_mtl;
4203:
4204: IF (l_debug > 0) THEN
4205: csi_t_gen_utility_pvt.add('Direct ISO using Trasfer Trans ID');
4206: csi_t_gen_utility_pvt.add('Transaction ID with (+) is: '||p_transaction_id);
4207: csi_t_gen_utility_pvt.add('Transaction ID with (-) is: '||r_mtl.transfer_transaction_id);
4208: csi_t_gen_utility_pvt.add('l_sysdate set to: '||to_char(l_sysdate,'DD-MON-YYYY HH24:MI:SS'));
4209: END IF;
4210:
4203:
4204: IF (l_debug > 0) THEN
4205: csi_t_gen_utility_pvt.add('Direct ISO using Trasfer Trans ID');
4206: csi_t_gen_utility_pvt.add('Transaction ID with (+) is: '||p_transaction_id);
4207: csi_t_gen_utility_pvt.add('Transaction ID with (-) is: '||r_mtl.transfer_transaction_id);
4208: csi_t_gen_utility_pvt.add('l_sysdate set to: '||to_char(l_sysdate,'DD-MON-YYYY HH24:MI:SS'));
4209: END IF;
4210:
4211: -- This procedure queries all of the Inventory Transaction Records and
4204: IF (l_debug > 0) THEN
4205: csi_t_gen_utility_pvt.add('Direct ISO using Trasfer Trans ID');
4206: csi_t_gen_utility_pvt.add('Transaction ID with (+) is: '||p_transaction_id);
4207: csi_t_gen_utility_pvt.add('Transaction ID with (-) is: '||r_mtl.transfer_transaction_id);
4208: csi_t_gen_utility_pvt.add('l_sysdate set to: '||to_char(l_sysdate,'DD-MON-YYYY HH24:MI:SS'));
4209: END IF;
4210:
4211: -- This procedure queries all of the Inventory Transaction Records and
4212: -- returns them as a table.
4218:
4219: l_tbl_count := 0;
4220: l_tbl_count := l_mtl_item_tbl.count;
4221: IF (l_debug > 0) THEN
4222: csi_t_gen_utility_pvt.add('Inventory Records Found: '||l_tbl_count);
4223: END IF;
4224:
4225: IF NOT l_return_status = l_fnd_success THEN
4226: IF (l_debug > 0) THEN
4223: END IF;
4224:
4225: IF NOT l_return_status = l_fnd_success THEN
4226: IF (l_debug > 0) THEN
4227: csi_t_gen_utility_pvt.add('You have encountered an error in CSI_INV_TRXS_PKG.get_transaction_recs, Transaction ID: '||r_mtl.transfer_transaction_id);
4228: END IF;
4229: RAISE fnd_api.g_exc_error;
4230: END IF;
4231:
4236: l_error_message);
4237:
4238: IF NOT l_return_status = l_fnd_success THEN
4239: IF (l_debug > 0) THEN
4240: 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);
4241: END IF;
4242: RAISE fnd_api.g_exc_error;
4243: END IF;
4244:
4246: l_employee_id := csi_inv_trxs_pkg.get_fnd_employee_id(l_mtl_item_tbl(i).last_updated_by);
4247:
4248: IF l_employee_id = -1 THEN
4249: IF (l_debug > 0) THEN
4250: 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');
4251: END IF;
4252: END IF;
4253: IF (l_debug > 0) THEN
4254: csi_t_gen_utility_pvt.add('The Employee that is processing this Transaction is: '||l_employee_id);
4250: 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');
4251: END IF;
4252: END IF;
4253: IF (l_debug > 0) THEN
4254: csi_t_gen_utility_pvt.add('The Employee that is processing this Transaction is: '||l_employee_id);
4255: END IF;
4256:
4257: -- See if this is a depreciable Item to set the status of the transaction record
4258: csi_inv_trxs_pkg.check_depreciable(l_mtl_item_tbl(i).inventory_item_id,
4259: l_depreciable,
4260: l_mtl_item_tbl(i).organization_id); --Added for Bug 13988660
4261:
4262: IF (l_debug > 0) THEN
4263: csi_t_gen_utility_pvt.add('Is this Item ID: '||l_mtl_item_tbl(i).inventory_item_id||', Depreciable :'||l_depreciable);
4264: END IF;
4265:
4266: -- Get the Negative Receipt Code to see if this org allows Negative
4267: -- Quantity Records 1 = Yes, 2 = No
4270: l_mtl_item_tbl(i).organization_id);
4271:
4272:
4273: IF (l_debug > 0) THEN
4274: csi_t_gen_utility_pvt.add('Negative Code is - 1 = Yes, 2 = No: '||l_neg_code);
4275: END IF;
4276:
4277: -- Determine Transaction Type for this
4278:
4279: l_trans_type_code := 'ISO_DIRECT_SHIP';
4280: l_trans_app_code := 'INV';
4281:
4282: IF (l_debug > 0) THEN
4283: csi_t_gen_utility_pvt.add('Trans Type Code: '||l_trans_type_code);
4284: csi_t_gen_utility_pvt.add('Trans App Code: '||l_trans_app_code);
4285: END IF;
4286:
4287: -- Get Default Profile Instance Status
4280: l_trans_app_code := 'INV';
4281:
4282: IF (l_debug > 0) THEN
4283: csi_t_gen_utility_pvt.add('Trans Type Code: '||l_trans_type_code);
4284: csi_t_gen_utility_pvt.add('Trans App Code: '||l_trans_app_code);
4285: END IF;
4286:
4287: -- Get Default Profile Instance Status
4288:
4290: FETCH c_id into r_id;
4291: CLOSE c_id;
4292:
4293: IF (l_debug > 0) THEN
4294: csi_t_gen_utility_pvt.add('Default Profile Status: '||r_id.instance_status_id);
4295: END IF;
4296:
4297: -- Now loop through the PL/SQL Table.
4298: j := 1;
4304: FETCH c_so_info into r_so_info;
4305: CLOSE c_so_info;
4306:
4307: IF (l_debug > 0) THEN
4308: csi_t_gen_utility_pvt.add('Sales Order Header: '||r_so_info.header_id);
4309: csi_t_gen_utility_pvt.add('Sales Order Line: '||r_so_info.line_id);
4310: csi_t_gen_utility_pvt.add('Order Number: '||r_so_info.order_number);
4311: csi_t_gen_utility_pvt.add('Line Number: '||r_so_info.line_number);
4312: END IF;
4305: CLOSE c_so_info;
4306:
4307: IF (l_debug > 0) THEN
4308: csi_t_gen_utility_pvt.add('Sales Order Header: '||r_so_info.header_id);
4309: csi_t_gen_utility_pvt.add('Sales Order Line: '||r_so_info.line_id);
4310: csi_t_gen_utility_pvt.add('Order Number: '||r_so_info.order_number);
4311: csi_t_gen_utility_pvt.add('Line Number: '||r_so_info.line_number);
4312: END IF;
4313:
4306:
4307: IF (l_debug > 0) THEN
4308: csi_t_gen_utility_pvt.add('Sales Order Header: '||r_so_info.header_id);
4309: csi_t_gen_utility_pvt.add('Sales Order Line: '||r_so_info.line_id);
4310: csi_t_gen_utility_pvt.add('Order Number: '||r_so_info.order_number);
4311: csi_t_gen_utility_pvt.add('Line Number: '||r_so_info.line_number);
4312: END IF;
4313:
4314: IF (l_debug > 0) THEN
4307: IF (l_debug > 0) THEN
4308: csi_t_gen_utility_pvt.add('Sales Order Header: '||r_so_info.header_id);
4309: csi_t_gen_utility_pvt.add('Sales Order Line: '||r_so_info.line_id);
4310: csi_t_gen_utility_pvt.add('Order Number: '||r_so_info.order_number);
4311: csi_t_gen_utility_pvt.add('Line Number: '||r_so_info.line_number);
4312: END IF;
4313:
4314: IF (l_debug > 0) THEN
4315: csi_t_gen_utility_pvt.add('Starting to loop through Material Transaction Records');
4311: csi_t_gen_utility_pvt.add('Line Number: '||r_so_info.line_number);
4312: END IF;
4313:
4314: IF (l_debug > 0) THEN
4315: csi_t_gen_utility_pvt.add('Starting to loop through Material Transaction Records');
4316: END IF;
4317:
4318: -- Initialize Transaction Record
4319: l_txn_rec := csi_inv_trxs_pkg.init_txn_rec;
4338: END IF;
4339:
4340: IF NOT l_return_status = l_fnd_success THEN
4341: IF (l_debug > 0) THEN
4342: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
4343: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
4344: END IF;
4345: RAISE fnd_api.g_exc_error;
4346: END IF;
4339:
4340: IF NOT l_return_status = l_fnd_success THEN
4341: IF (l_debug > 0) THEN
4342: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
4343: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
4344: END IF;
4345: RAISE fnd_api.g_exc_error;
4346: END IF;
4347:
4345: RAISE fnd_api.g_exc_error;
4346: END IF;
4347:
4348: IF (l_debug > 0) THEN
4349: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
4350: csi_t_gen_utility_pvt.add('Trans Status Code: '||l_txn_rec.transaction_status_code);
4351: END IF;
4352:
4353: -- Create CSI Transaction to be used
4346: END IF;
4347:
4348: IF (l_debug > 0) THEN
4349: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
4350: csi_t_gen_utility_pvt.add('Trans Status Code: '||l_txn_rec.transaction_status_code);
4351: END IF;
4352:
4353: -- Create CSI Transaction to be used
4354: l_txn_rec.source_transaction_date := l_mtl_item_tbl(i).transaction_date;
4372: l_error_message,
4373: l_return_status);
4374:
4375: IF (l_debug > 0) THEN
4376: csi_t_gen_utility_pvt.add('CSI Transaction Created: '||l_txn_rec.transaction_id);
4377: END IF;
4378:
4379: IF NOT l_return_status = l_fnd_success THEN
4380: IF (l_debug > 0) THEN
4377: END IF;
4378:
4379: IF NOT l_return_status = l_fnd_success THEN
4380: IF (l_debug > 0) THEN
4381: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.create_csi_txn: '||p_transaction_id);
4382: END IF;
4383: RAISE fnd_api.g_exc_error;
4384: END IF;
4385:
4385:
4386: FOR j in l_mtl_item_tbl.FIRST .. l_mtl_item_tbl.LAST LOOP
4387:
4388: IF (l_debug > 0) THEN
4389: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
4390: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
4391: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
4392: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
4393: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
4386: FOR j in l_mtl_item_tbl.FIRST .. l_mtl_item_tbl.LAST LOOP
4387:
4388: IF (l_debug > 0) THEN
4389: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
4390: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
4391: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
4392: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
4393: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
4394: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
4387:
4388: IF (l_debug > 0) THEN
4389: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
4390: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
4391: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
4392: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
4393: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
4394: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
4395: csi_t_gen_utility_pvt.add('Transfer Subinv: '||l_mtl_item_tbl(j).transfer_subinventory);
4388: IF (l_debug > 0) THEN
4389: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
4390: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
4391: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
4392: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
4393: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
4394: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
4395: csi_t_gen_utility_pvt.add('Transfer Subinv: '||l_mtl_item_tbl(j).transfer_subinventory);
4396: END IF;
4389: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
4390: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
4391: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
4392: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
4393: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
4394: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
4395: csi_t_gen_utility_pvt.add('Transfer Subinv: '||l_mtl_item_tbl(j).transfer_subinventory);
4396: END IF;
4397:
4390: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
4391: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
4392: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
4393: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
4394: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
4395: csi_t_gen_utility_pvt.add('Transfer Subinv: '||l_mtl_item_tbl(j).transfer_subinventory);
4396: END IF;
4397:
4398: -- Get Receiving Organization Serial Control Code
4391: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
4392: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
4393: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
4394: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
4395: csi_t_gen_utility_pvt.add('Transfer Subinv: '||l_mtl_item_tbl(j).transfer_subinventory);
4396: END IF;
4397:
4398: -- Get Receiving Organization Serial Control Code
4399: OPEN c_item_control (l_mtl_item_tbl(j).inventory_item_id,
4404:
4405: l_sr_control := r_item_control.serial_number_control_code;
4406:
4407: IF (l_debug > 0) THEN
4408: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
4409: csi_t_gen_utility_pvt.add('l_sr_control is: '||l_sr_control);
4410: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
4411: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
4412: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
4405: l_sr_control := r_item_control.serial_number_control_code;
4406:
4407: IF (l_debug > 0) THEN
4408: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
4409: csi_t_gen_utility_pvt.add('l_sr_control is: '||l_sr_control);
4410: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
4411: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
4412: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
4413: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
4406:
4407: IF (l_debug > 0) THEN
4408: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
4409: csi_t_gen_utility_pvt.add('l_sr_control is: '||l_sr_control);
4410: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
4411: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
4412: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
4413: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
4414: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
4407: IF (l_debug > 0) THEN
4408: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
4409: csi_t_gen_utility_pvt.add('l_sr_control is: '||l_sr_control);
4410: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
4411: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
4412: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
4413: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
4414: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
4415: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
4408: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
4409: csi_t_gen_utility_pvt.add('l_sr_control is: '||l_sr_control);
4410: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
4411: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
4412: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
4413: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
4414: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
4415: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
4416: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
4409: csi_t_gen_utility_pvt.add('l_sr_control is: '||l_sr_control);
4410: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
4411: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
4412: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
4413: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
4414: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
4415: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
4416: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
4417: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
4410: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
4411: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
4412: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
4413: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
4414: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
4415: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
4416: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
4417: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
4418: csi_t_gen_utility_pvt.add('Receiving Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
4411: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
4412: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
4413: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
4414: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
4415: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
4416: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
4417: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
4418: csi_t_gen_utility_pvt.add('Receiving Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
4419: END IF;
4412: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
4413: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
4414: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
4415: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
4416: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
4417: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
4418: csi_t_gen_utility_pvt.add('Receiving Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
4419: END IF;
4420:
4413: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
4414: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
4415: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
4416: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
4417: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
4418: csi_t_gen_utility_pvt.add('Receiving Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
4419: END IF;
4420:
4421: -- Set Query Instance Status
4414: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
4415: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
4416: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
4417: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
4418: csi_t_gen_utility_pvt.add('Receiving Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
4419: END IF;
4420:
4421: -- Set Query Instance Status
4422: IF l_neg_code = 1 AND l_mtl_item_tbl(j).serial_number_control_code = 1 THEN
4425: l_instance_status := FND_API.G_TRUE;
4426: END IF;
4427:
4428: IF (l_debug > 0) THEN
4429: csi_t_gen_utility_pvt.add('Query Inst Status : '||l_instance_status);
4430: END IF;
4431:
4432: -- Get the Location Ids for Receiving Org
4433: OPEN c_loc_ids (l_mtl_item_tbl(j).transfer_organization_id,
4434: l_mtl_item_tbl(j).transfer_subinventory);
4435: FETCH c_loc_ids into r_loc_ids;
4436: CLOSE c_loc_ids;
4437:
4438: csi_t_gen_utility_pvt.add('Transfer Subinv Location: '||r_loc_ids.subinv_location_id);
4439: csi_t_gen_utility_pvt.add('Transfer HR Location : '||r_loc_ids.hr_location_id);
4440:
4441: l_instance_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
4442: l_instance_usage_code := l_fnd_g_char;
4435: FETCH c_loc_ids into r_loc_ids;
4436: CLOSE c_loc_ids;
4437:
4438: csi_t_gen_utility_pvt.add('Transfer Subinv Location: '||r_loc_ids.subinv_location_id);
4439: csi_t_gen_utility_pvt.add('Transfer HR Location : '||r_loc_ids.hr_location_id);
4440:
4441: l_instance_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
4442: l_instance_usage_code := l_fnd_g_char;
4443:
4457:
4458: IF l_mtl_item_tbl(j).serial_number_control_code in (1,6) THEN
4459: l_instance_query_rec.serial_number := NULL;
4460: IF (l_debug > 0) THEN
4461: csi_t_gen_utility_pvt.add('Shipping org is 1,6 so set to NULL');
4462: END IF;
4463: END IF;
4464:
4465: IF (l_debug > 0) THEN
4462: END IF;
4463: END IF;
4464:
4465: IF (l_debug > 0) THEN
4466: csi_t_gen_utility_pvt.add('Transaction Action Type:'|| l_trx_action_type);
4467: csi_t_gen_utility_pvt.add('Before Get Item Instance');
4468: END IF;
4469:
4470: IF (l_debug > 0) THEN
4463: END IF;
4464:
4465: IF (l_debug > 0) THEN
4466: csi_t_gen_utility_pvt.add('Transaction Action Type:'|| l_trx_action_type);
4467: csi_t_gen_utility_pvt.add('Before Get Item Instance');
4468: END IF;
4469:
4470: IF (l_debug > 0) THEN
4471: csi_t_gen_utility_pvt.add('l_12_loop is:'|| l_12_loop);
4467: csi_t_gen_utility_pvt.add('Before Get Item Instance');
4468: END IF;
4469:
4470: IF (l_debug > 0) THEN
4471: csi_t_gen_utility_pvt.add('l_12_loop is:'|| l_12_loop);
4472: csi_t_gen_utility_pvt.add('If Count is 1 then bypass Get Item Instance');
4473: END IF;
4474:
4475: IF l_12_loop = 0 THEN
4468: END IF;
4469:
4470: IF (l_debug > 0) THEN
4471: csi_t_gen_utility_pvt.add('l_12_loop is:'|| l_12_loop);
4472: csi_t_gen_utility_pvt.add('If Count is 1 then bypass Get Item Instance');
4473: END IF;
4474:
4475: IF l_12_loop = 0 THEN
4476:
4490: l_msg_data);
4491: END IF; -- End of l_12_loop
4492:
4493: IF (l_debug > 0) THEN
4494: csi_t_gen_utility_pvt.add('After Get Item Instance');
4495: END IF;
4496: l_tbl_count := 0;
4497: l_tbl_count := l_src_instance_header_tbl.count;
4498: IF (l_debug > 0) THEN
4495: END IF;
4496: l_tbl_count := 0;
4497: l_tbl_count := l_src_instance_header_tbl.count;
4498: IF (l_debug > 0) THEN
4499: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
4500:
4501: IF l_tbl_count > 0 THEN
4502: csi_t_gen_utility_pvt.add('In Transit Order Line ID: '||l_src_instance_header_tbl(i).in_transit_order_line_id);
4503: END IF;
4498: IF (l_debug > 0) THEN
4499: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
4500:
4501: IF l_tbl_count > 0 THEN
4502: csi_t_gen_utility_pvt.add('In Transit Order Line ID: '||l_src_instance_header_tbl(i).in_transit_order_line_id);
4503: END IF;
4504:
4505: END IF;
4506:
4506:
4507: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
4508: IF NOT l_return_status = l_fnd_success then
4509: IF (l_debug > 0) THEN
4510: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
4511: END IF;
4512: l_msg_index := 1;
4513: WHILE l_msg_count > 0 loop
4514: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4518: RAISE fnd_api.g_exc_error;
4519: END IF;
4520:
4521: IF (l_debug > 0) THEN
4522: csi_t_gen_utility_pvt.add('Before checking to see if Source records Exist'); END IF;
4523:
4524: IF (l_mtl_item_tbl(j).serial_number_control_code = 5 AND -- Ship
4525: l_sr_control = 5) OR -- Rec
4526: (l_mtl_item_tbl(j).serial_number_control_code = 5 AND -- Ship
4537: -- l_sr_control = 6) THEN -- Rec
4538: IF l_src_instance_header_tbl.count > 0 THEN
4539:
4540: IF (l_debug > 0) THEN
4541: csi_t_gen_utility_pvt.add('Shipping and Rec Serial Control are both 2,5');
4542: csi_t_gen_utility_pvt.add('Updating Serialized Instance: '||l_mtl_item_tbl(j).serial_number);
4543: csi_t_gen_utility_pvt.add('After you determine this is a Direct Shipment');
4544: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
4545: csi_t_gen_utility_pvt.add('In Transit Order line ID: '||l_src_instance_header_tbl(i).in_transit_order_line_id);
4538: IF l_src_instance_header_tbl.count > 0 THEN
4539:
4540: IF (l_debug > 0) THEN
4541: csi_t_gen_utility_pvt.add('Shipping and Rec Serial Control are both 2,5');
4542: csi_t_gen_utility_pvt.add('Updating Serialized Instance: '||l_mtl_item_tbl(j).serial_number);
4543: csi_t_gen_utility_pvt.add('After you determine this is a Direct Shipment');
4544: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
4545: csi_t_gen_utility_pvt.add('In Transit Order line ID: '||l_src_instance_header_tbl(i).in_transit_order_line_id);
4546: END IF;
4539:
4540: IF (l_debug > 0) THEN
4541: csi_t_gen_utility_pvt.add('Shipping and Rec Serial Control are both 2,5');
4542: csi_t_gen_utility_pvt.add('Updating Serialized Instance: '||l_mtl_item_tbl(j).serial_number);
4543: csi_t_gen_utility_pvt.add('After you determine this is a Direct Shipment');
4544: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
4545: csi_t_gen_utility_pvt.add('In Transit Order line ID: '||l_src_instance_header_tbl(i).in_transit_order_line_id);
4546: END IF;
4547:
4540: IF (l_debug > 0) THEN
4541: csi_t_gen_utility_pvt.add('Shipping and Rec Serial Control are both 2,5');
4542: csi_t_gen_utility_pvt.add('Updating Serialized Instance: '||l_mtl_item_tbl(j).serial_number);
4543: csi_t_gen_utility_pvt.add('After you determine this is a Direct Shipment');
4544: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
4545: csi_t_gen_utility_pvt.add('In Transit Order line ID: '||l_src_instance_header_tbl(i).in_transit_order_line_id);
4546: END IF;
4547:
4548: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
4541: csi_t_gen_utility_pvt.add('Shipping and Rec Serial Control are both 2,5');
4542: csi_t_gen_utility_pvt.add('Updating Serialized Instance: '||l_mtl_item_tbl(j).serial_number);
4543: csi_t_gen_utility_pvt.add('After you determine this is a Direct Shipment');
4544: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
4545: csi_t_gen_utility_pvt.add('In Transit Order line ID: '||l_src_instance_header_tbl(i).in_transit_order_line_id);
4546: END IF;
4547:
4548: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
4549: l_update_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
4557: l_update_instance_rec.instance_usage_code := l_in_inventory;
4558: l_update_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
4559:
4560: IF (l_debug > 0) THEN
4561: csi_t_gen_utility_pvt.add('After you initialize the Transaction Record Values');
4562: csi_t_gen_utility_pvt.add('After the update for Direct Shipment is set.');
4563: csi_t_gen_utility_pvt.add('Transfer Org: '||l_update_instance_rec.inv_organization_id);
4564: csi_t_gen_utility_pvt.add('Source Org: '||l_mtl_item_tbl(j).organization_id);
4565: END IF;
4558: l_update_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
4559:
4560: IF (l_debug > 0) THEN
4561: csi_t_gen_utility_pvt.add('After you initialize the Transaction Record Values');
4562: csi_t_gen_utility_pvt.add('After the update for Direct Shipment is set.');
4563: csi_t_gen_utility_pvt.add('Transfer Org: '||l_update_instance_rec.inv_organization_id);
4564: csi_t_gen_utility_pvt.add('Source Org: '||l_mtl_item_tbl(j).organization_id);
4565: END IF;
4566:
4559:
4560: IF (l_debug > 0) THEN
4561: csi_t_gen_utility_pvt.add('After you initialize the Transaction Record Values');
4562: csi_t_gen_utility_pvt.add('After the update for Direct Shipment is set.');
4563: csi_t_gen_utility_pvt.add('Transfer Org: '||l_update_instance_rec.inv_organization_id);
4564: csi_t_gen_utility_pvt.add('Source Org: '||l_mtl_item_tbl(j).organization_id);
4565: END IF;
4566:
4567: l_party_tbl.delete;
4560: IF (l_debug > 0) THEN
4561: csi_t_gen_utility_pvt.add('After you initialize the Transaction Record Values');
4562: csi_t_gen_utility_pvt.add('After the update for Direct Shipment is set.');
4563: csi_t_gen_utility_pvt.add('Transfer Org: '||l_update_instance_rec.inv_organization_id);
4564: csi_t_gen_utility_pvt.add('Source Org: '||l_mtl_item_tbl(j).organization_id);
4565: END IF;
4566:
4567: l_party_tbl.delete;
4568: l_account_tbl.delete;
4570: l_org_assignments_tbl.delete;
4571: l_asset_assignment_tbl.delete;
4572:
4573: IF (l_debug > 0) THEN
4574: csi_t_gen_utility_pvt.add('Before Update Item Instance');
4575: END IF;
4576:
4577: csi_item_instance_pub.update_item_instance(l_api_version,
4578: l_commit,
4594: l_upd_error_instance_id := NULL;
4595: l_upd_error_instance_id := l_update_instance_rec.instance_id;
4596:
4597: IF (l_debug > 0) THEN
4598: csi_t_gen_utility_pvt.add('After Update Item Instance');
4599: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
4600: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
4601: END IF;
4602:
4595: l_upd_error_instance_id := l_update_instance_rec.instance_id;
4596:
4597: IF (l_debug > 0) THEN
4598: csi_t_gen_utility_pvt.add('After Update Item Instance');
4599: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
4600: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
4601: END IF;
4602:
4603: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
4596:
4597: IF (l_debug > 0) THEN
4598: csi_t_gen_utility_pvt.add('After Update Item Instance');
4599: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
4600: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
4601: END IF;
4602:
4603: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
4604: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
4602:
4603: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
4604: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
4605: IF (l_debug > 0) THEN
4606: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
4607: END IF;
4608: l_msg_index := 1;
4609: WHILE l_msg_count > 0 loop
4610: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4615: END IF;
4616:
4617: ELSE -- No Src Records found so error
4618: IF (l_debug > 0) THEN
4619: csi_t_gen_utility_pvt.add('No Records were found in Install Base');
4620: END IF;
4621:
4622: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
4623: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
4637: (l_mtl_item_tbl(j).serial_number_control_code = 1 AND -- Ship
4638: l_sr_control = 6) THEN -- Rec
4639:
4640: IF (l_debug > 0) THEN
4641: csi_t_gen_utility_pvt.add('Shipping and Rec Serial Control are both 1,6');
4642: END IF;
4643:
4644: IF (l_mtl_item_tbl(j).serial_number_control_code = 6 AND -- Ship
4645: l_sr_control = 6) OR -- Rec
4646: (l_mtl_item_tbl(j).serial_number_control_code = 6 AND -- Ship
4647: l_sr_control = 1) THEN -- Rec
4648: l_66_flag := 1;
4649: IF (l_debug > 0) THEN
4650: csi_t_gen_utility_pvt.add('l_66_flag is :'||l_66_flag);
4651: END IF;
4652: END IF;
4653:
4654:
4656: IF l_neg_code = 1 THEN -- Allow Neg Qtys on NON Serial Items ONLY
4657:
4658:
4659: IF (l_debug > 0) THEN
4660: csi_t_gen_utility_pvt.add('No Source Recs found so create Serial Instance ');
4661: END IF;
4662:
4663:
4664: l_new_src_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
4690: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
4691: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
4692:
4693: IF (l_debug > 0) THEN
4694: csi_t_gen_utility_pvt.add('Before Create Source Item Instance');
4695: END IF;
4696:
4697: csi_item_instance_pub.create_item_instance(l_api_version,
4698: l_commit,
4710: l_msg_count,
4711: l_msg_data);
4712:
4713: IF (l_debug > 0) THEN
4714: csi_t_gen_utility_pvt.add('After Create Source Item Instance');
4715: END IF;
4716:
4717: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
4718:
4717: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
4718:
4719: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
4720: IF (l_debug > 0) THEN
4721: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
4722: END IF;
4723: l_msg_index := 1;
4724: WHILE l_msg_count > 0 loop
4725: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4730: END IF;
4731:
4732: ELSE -- Neg Code is <> 1 so Neg Qtys are not allowed so error
4733: IF (l_debug > 0) THEN
4734: csi_t_gen_utility_pvt.add('No Records were found in Install Base - 11');
4735: END IF;
4736:
4737: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
4738: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
4746:
4747: ELSIF l_src_instance_header_tbl.count = 1 THEN
4748:
4749: IF (l_debug > 0) THEN
4750: csi_t_gen_utility_pvt.add('You will update instance: '||l_src_instance_header_tbl(i).instance_id);
4751: csi_t_gen_utility_pvt.add('End Date is: '||l_src_instance_header_tbl(i).active_end_date);
4752: END IF;
4753:
4754:
4747: ELSIF l_src_instance_header_tbl.count = 1 THEN
4748:
4749: IF (l_debug > 0) THEN
4750: csi_t_gen_utility_pvt.add('You will update instance: '||l_src_instance_header_tbl(i).instance_id);
4751: csi_t_gen_utility_pvt.add('End Date is: '||l_src_instance_header_tbl(i).active_end_date);
4752: END IF;
4753:
4754:
4755: l_upd_src_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
4765: l_org_assignments_tbl.delete;
4766: l_asset_assignment_tbl.delete;
4767:
4768: IF (l_debug > 0) THEN
4769: csi_t_gen_utility_pvt.add('Before Update Source Item Instance - Neg Qty');
4770: END IF;
4771:
4772: l_upd_src_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);
4773:
4771:
4772: l_upd_src_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);
4773:
4774: IF (l_debug > 0) THEN
4775: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_upd_src_dest_instance_rec.instance_status_id);
4776: END IF;
4777:
4778: csi_item_instance_pub.update_item_instance(l_api_version,
4779: l_commit,
4795: l_upd_error_instance_id := NULL;
4796: l_upd_error_instance_id := l_upd_src_dest_instance_rec.instance_id;
4797:
4798: IF (l_debug > 0) THEN
4799: csi_t_gen_utility_pvt.add('After Update Item Instance');
4800: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
4801: END IF;
4802:
4803: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
4796: l_upd_error_instance_id := l_upd_src_dest_instance_rec.instance_id;
4797:
4798: IF (l_debug > 0) THEN
4799: csi_t_gen_utility_pvt.add('After Update Item Instance');
4800: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
4801: END IF;
4802:
4803: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
4804: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
4802:
4803: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
4804: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
4805: IF (l_debug > 0) THEN
4806: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
4807: END IF;
4808: l_msg_index := 1;
4809: WHILE l_msg_count > 0 loop
4810: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4816:
4817: ELSIF l_src_instance_header_tbl.count > 1 THEN
4818: -- Multiple Instances were found so throw error
4819: IF (l_debug > 0) THEN
4820: csi_t_gen_utility_pvt.add('Multiple Instances were Found in Install BaseBase-11');
4821: END IF;
4822: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
4823: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
4824: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
4845: l_organization_id := l_mtl_item_tbl(j).transfer_organization_id;
4846: l_locator_id := l_mtl_item_tbl(j).transfer_locator_id;
4847:
4848: IF (l_debug > 0) THEN
4849: csi_t_gen_utility_pvt.add('Before Get Item Instance');
4850: END IF;
4851:
4852: csi_item_instance_pub.get_item_instances(l_api_version,
4853: l_commit,
4864: l_msg_count,
4865: l_msg_data);
4866:
4867: IF (l_debug > 0) THEN
4868: csi_t_gen_utility_pvt.add('After Get Item Instance');
4869: END IF;
4870: l_tbl_count := 0;
4871: l_tbl_count := l_dest_instance_header_tbl.count;
4872: IF (l_debug > 0) THEN
4869: END IF;
4870: l_tbl_count := 0;
4871: l_tbl_count := l_dest_instance_header_tbl.count;
4872: IF (l_debug > 0) THEN
4873: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
4874: END IF;
4875:
4876: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
4877: IF NOT l_return_status = l_fnd_success then
4875:
4876: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
4877: IF NOT l_return_status = l_fnd_success then
4878: IF (l_debug > 0) THEN
4879: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
4880: END IF;
4881: l_msg_index := 1;
4882: WHILE l_msg_count > 0 loop
4883: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4889:
4890: IF l_dest_instance_header_tbl.count = 0 THEN -- Installed Base Destination Records are not found so create a new record
4891:
4892: IF (l_debug > 0) THEN
4893: csi_t_gen_utility_pvt.add('Creating New Dest dest Instance - Neg Qty');
4894: END IF;
4895:
4896: l_new_dest_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
4897: l_new_dest_instance_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
4923: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
4924: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
4925:
4926: IF (l_debug > 0) THEN
4927: csi_t_gen_utility_pvt.add('Before Create Item Instance - Neg Qty');
4928: csi_t_gen_utility_pvt.add('In Transit Order Line ID on Dest Rec: '||l_new_dest_instance_rec.last_oe_order_line_id);
4929: END IF;
4930:
4931: csi_item_instance_pub.create_item_instance(l_api_version,
4924: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
4925:
4926: IF (l_debug > 0) THEN
4927: csi_t_gen_utility_pvt.add('Before Create Item Instance - Neg Qty');
4928: csi_t_gen_utility_pvt.add('In Transit Order Line ID on Dest Rec: '||l_new_dest_instance_rec.last_oe_order_line_id);
4929: END IF;
4930:
4931: csi_item_instance_pub.create_item_instance(l_api_version,
4932: l_commit,
4944: l_msg_count,
4945: l_msg_data);
4946:
4947: IF (l_debug > 0) THEN
4948: csi_t_gen_utility_pvt.add('After Create Item Instance - Neg Qty');
4949: END IF;
4950: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
4951:
4952: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
4950: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
4951:
4952: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
4953: IF (l_debug > 0) THEN
4954: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
4955: END IF;
4956: l_msg_index := 1;
4957: WHILE l_msg_count > 0 loop
4958: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4979:
4980: 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);
4981:
4982: IF (l_debug > 0) THEN
4983: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_dest_instance_rec.instance_status_id);
4984: END IF;
4985:
4986: IF (l_debug > 0) THEN
4987: csi_t_gen_utility_pvt.add('Before Update Item Instance');
4983: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_dest_instance_rec.instance_status_id);
4984: END IF;
4985:
4986: IF (l_debug > 0) THEN
4987: csi_t_gen_utility_pvt.add('Before Update Item Instance');
4988: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
4989: END IF;
4990:
4991: csi_item_instance_pub.update_item_instance(l_api_version,
4984: END IF;
4985:
4986: IF (l_debug > 0) THEN
4987: csi_t_gen_utility_pvt.add('Before Update Item Instance');
4988: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
4989: END IF;
4990:
4991: csi_item_instance_pub.update_item_instance(l_api_version,
4992: l_commit,
5008: l_upd_error_instance_id := NULL;
5009: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
5010:
5011: IF (l_debug > 0) THEN
5012: csi_t_gen_utility_pvt.add('After Update Item Instance');
5013: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
5014: END IF;
5015:
5016: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5009: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
5010:
5011: IF (l_debug > 0) THEN
5012: csi_t_gen_utility_pvt.add('After Update Item Instance');
5013: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
5014: END IF;
5015:
5016: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5017: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
5015:
5016: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5017: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
5018: IF (l_debug > 0) THEN
5019: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
5020: END IF;
5021: l_msg_index := 1;
5022: WHILE l_msg_count > 0 loop
5023: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5029:
5030: ELSIF l_dest_instance_header_tbl.count > 1 THEN
5031: -- Multiple Instances were found so throw error
5032: IF (l_debug > 0) THEN
5033: csi_t_gen_utility_pvt.add('Multiple Instances were Found in Install Base-60');
5034: END IF;
5035: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
5036: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
5037: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
5051: (l_mtl_item_tbl(j).serial_number_control_code = 2 AND -- Ship
5052: l_sr_control = 6) THEN -- Rec
5053:
5054: IF (l_debug > 0) THEN
5055: csi_t_gen_utility_pvt.add('Shipping is 2,5,6 and Rec Serial Control is 1,6');
5056: END IF;
5057:
5058: -- Bug 3880731 - Take out the loop
5059:
5058: -- Bug 3880731 - Take out the loop
5059:
5060: --FOR k in l_src_instance_header_tbl.FIRST .. abs(l_mtl_item_tbl(j).primary_quantity) LOOP
5061: IF (l_debug > 0) THEN
5062: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 2,5,6 and Receiving is 1,6');
5063: csi_t_gen_utility_pvt.add('Expire The Serialized Instance First');
5064: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
5065: END IF;
5066:
5059:
5060: --FOR k in l_src_instance_header_tbl.FIRST .. abs(l_mtl_item_tbl(j).primary_quantity) LOOP
5061: IF (l_debug > 0) THEN
5062: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 2,5,6 and Receiving is 1,6');
5063: csi_t_gen_utility_pvt.add('Expire The Serialized Instance First');
5064: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
5065: END IF;
5066:
5067: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
5060: --FOR k in l_src_instance_header_tbl.FIRST .. abs(l_mtl_item_tbl(j).primary_quantity) LOOP
5061: IF (l_debug > 0) THEN
5062: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 2,5,6 and Receiving is 1,6');
5063: csi_t_gen_utility_pvt.add('Expire The Serialized Instance First');
5064: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
5065: END IF;
5066:
5067: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
5068: l_update_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
5070: l_update_instance_rec.last_oe_order_line_id := r_so_info.line_id;
5071: l_update_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
5072:
5073: IF (l_debug > 0) THEN
5074: csi_t_gen_utility_pvt.add('After you initialize the Update Record Values');
5075: csi_t_gen_utility_pvt.add('Instance Updated: '||l_update_instance_rec.instance_id);
5076: csi_t_gen_utility_pvt.add('End Date Passed in: '||to_char(l_update_instance_rec.active_end_date,'DD-MON-YYYY HH24:MI:SS'));
5077: csi_t_gen_utility_pvt.add('Object Version: '||l_update_instance_rec.object_version_number);
5078: END IF;
5071: l_update_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
5072:
5073: IF (l_debug > 0) THEN
5074: csi_t_gen_utility_pvt.add('After you initialize the Update Record Values');
5075: csi_t_gen_utility_pvt.add('Instance Updated: '||l_update_instance_rec.instance_id);
5076: csi_t_gen_utility_pvt.add('End Date Passed in: '||to_char(l_update_instance_rec.active_end_date,'DD-MON-YYYY HH24:MI:SS'));
5077: csi_t_gen_utility_pvt.add('Object Version: '||l_update_instance_rec.object_version_number);
5078: END IF;
5079:
5072:
5073: IF (l_debug > 0) THEN
5074: csi_t_gen_utility_pvt.add('After you initialize the Update Record Values');
5075: csi_t_gen_utility_pvt.add('Instance Updated: '||l_update_instance_rec.instance_id);
5076: csi_t_gen_utility_pvt.add('End Date Passed in: '||to_char(l_update_instance_rec.active_end_date,'DD-MON-YYYY HH24:MI:SS'));
5077: csi_t_gen_utility_pvt.add('Object Version: '||l_update_instance_rec.object_version_number);
5078: END IF;
5079:
5080: l_party_tbl.delete;
5073: IF (l_debug > 0) THEN
5074: csi_t_gen_utility_pvt.add('After you initialize the Update Record Values');
5075: csi_t_gen_utility_pvt.add('Instance Updated: '||l_update_instance_rec.instance_id);
5076: csi_t_gen_utility_pvt.add('End Date Passed in: '||to_char(l_update_instance_rec.active_end_date,'DD-MON-YYYY HH24:MI:SS'));
5077: csi_t_gen_utility_pvt.add('Object Version: '||l_update_instance_rec.object_version_number);
5078: END IF;
5079:
5080: l_party_tbl.delete;
5081: l_account_tbl.delete;
5083: l_org_assignments_tbl.delete;
5084: l_asset_assignment_tbl.delete;
5085:
5086: IF (l_debug > 0) THEN
5087: csi_t_gen_utility_pvt.add('Before Update Item Instance');
5088: END IF;
5089:
5090: csi_item_instance_pub.update_item_instance(l_api_version,
5091: l_commit,
5107: l_upd_error_instance_id := NULL;
5108: l_upd_error_instance_id := l_update_instance_rec.instance_id;
5109:
5110: IF (l_debug > 0) THEN
5111: csi_t_gen_utility_pvt.add('After Update Item Instance');
5112: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
5113: csi_t_gen_utility_pvt.add('You are updating Serial Number: '||l_update_instance_rec.serial_number);
5114: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
5115: END IF;
5108: l_upd_error_instance_id := l_update_instance_rec.instance_id;
5109:
5110: IF (l_debug > 0) THEN
5111: csi_t_gen_utility_pvt.add('After Update Item Instance');
5112: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
5113: csi_t_gen_utility_pvt.add('You are updating Serial Number: '||l_update_instance_rec.serial_number);
5114: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
5115: END IF;
5116:
5109:
5110: IF (l_debug > 0) THEN
5111: csi_t_gen_utility_pvt.add('After Update Item Instance');
5112: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
5113: csi_t_gen_utility_pvt.add('You are updating Serial Number: '||l_update_instance_rec.serial_number);
5114: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
5115: END IF;
5116:
5117: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5110: IF (l_debug > 0) THEN
5111: csi_t_gen_utility_pvt.add('After Update Item Instance');
5112: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
5113: csi_t_gen_utility_pvt.add('You are updating Serial Number: '||l_update_instance_rec.serial_number);
5114: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
5115: END IF;
5116:
5117: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5118: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
5116:
5117: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5118: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
5119: IF (l_debug > 0) THEN
5120: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
5121: END IF;
5122: l_msg_index := 1;
5123: WHILE l_msg_count > 0 loop
5124: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5148: l_organization_id := l_mtl_item_tbl(j).transfer_organization_id;
5149: l_locator_id := l_mtl_item_tbl(j).transfer_locator_id;
5150:
5151: IF (l_debug > 0) THEN
5152: csi_t_gen_utility_pvt.add('Before Get Item Instance');
5153: END IF;
5154:
5155: csi_item_instance_pub.get_item_instances(l_api_version,
5156: l_commit,
5167: l_msg_count,
5168: l_msg_data);
5169:
5170: IF (l_debug > 0) THEN
5171: csi_t_gen_utility_pvt.add('After Get Item Instance');
5172: END IF;
5173: l_tbl_count := 0;
5174: l_tbl_count := l_dest_instance_header_tbl.count;
5175: IF (l_debug > 0) THEN
5172: END IF;
5173: l_tbl_count := 0;
5174: l_tbl_count := l_dest_instance_header_tbl.count;
5175: IF (l_debug > 0) THEN
5176: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
5177: END IF;
5178:
5179: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5180: IF NOT l_return_status = l_fnd_success then
5178:
5179: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5180: IF NOT l_return_status = l_fnd_success then
5181: IF (l_debug > 0) THEN
5182: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
5183: END IF;
5184: l_msg_index := 1;
5185: WHILE l_msg_count > 0 loop
5186: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5192:
5193: IF l_dest_instance_header_tbl.count = 0 THEN -- Installed Base Destination Records are not found so create a new record
5194:
5195: IF (l_debug > 0) THEN
5196: csi_t_gen_utility_pvt.add('Creating New Dest dest Instance - Neg Qty');
5197: END IF;
5198:
5199: l_new_dest_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
5200: l_new_dest_instance_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
5226: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
5227: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
5228:
5229: IF (l_debug > 0) THEN
5230: csi_t_gen_utility_pvt.add('Before Create Item Instance - Neg Qty');
5231: csi_t_gen_utility_pvt.add('In Transit Order Line ID on Dest Rec: '||l_new_dest_instance_rec.last_oe_order_line_id);
5232: END IF;
5233:
5234: csi_item_instance_pub.create_item_instance(l_api_version,
5227: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
5228:
5229: IF (l_debug > 0) THEN
5230: csi_t_gen_utility_pvt.add('Before Create Item Instance - Neg Qty');
5231: csi_t_gen_utility_pvt.add('In Transit Order Line ID on Dest Rec: '||l_new_dest_instance_rec.last_oe_order_line_id);
5232: END IF;
5233:
5234: csi_item_instance_pub.create_item_instance(l_api_version,
5235: l_commit,
5247: l_msg_count,
5248: l_msg_data);
5249:
5250: IF (l_debug > 0) THEN
5251: csi_t_gen_utility_pvt.add('After Create Item Instance - Neg Qty');
5252: END IF;
5253: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5254:
5255: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
5253: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5254:
5255: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
5256: IF (l_debug > 0) THEN
5257: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
5258: END IF;
5259: l_msg_index := 1;
5260: WHILE l_msg_count > 0 loop
5261: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5282:
5283: 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);
5284:
5285: IF (l_debug > 0) THEN
5286: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_dest_instance_rec.instance_status_id);
5287: END IF;
5288:
5289: IF (l_debug > 0) THEN
5290: csi_t_gen_utility_pvt.add('Before Update Item Instance');
5286: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_dest_instance_rec.instance_status_id);
5287: END IF;
5288:
5289: IF (l_debug > 0) THEN
5290: csi_t_gen_utility_pvt.add('Before Update Item Instance');
5291: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
5292: END IF;
5293:
5294: csi_item_instance_pub.update_item_instance(l_api_version,
5287: END IF;
5288:
5289: IF (l_debug > 0) THEN
5290: csi_t_gen_utility_pvt.add('Before Update Item Instance');
5291: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
5292: END IF;
5293:
5294: csi_item_instance_pub.update_item_instance(l_api_version,
5295: l_commit,
5311: l_upd_error_instance_id := NULL;
5312: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
5313:
5314: IF (l_debug > 0) THEN
5315: csi_t_gen_utility_pvt.add('After Update Item Instance');
5316: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
5317: END IF;
5318:
5319: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5312: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
5313:
5314: IF (l_debug > 0) THEN
5315: csi_t_gen_utility_pvt.add('After Update Item Instance');
5316: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
5317: END IF;
5318:
5319: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5320: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
5318:
5319: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5320: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
5321: IF (l_debug > 0) THEN
5322: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
5323: END IF;
5324: l_msg_index := 1;
5325: WHILE l_msg_count > 0 loop
5326: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5332:
5333: ELSIF l_dest_instance_header_tbl.count > 1 THEN
5334: -- Multiple Instances were found so throw error
5335: IF (l_debug > 0) THEN
5336: csi_t_gen_utility_pvt.add('Multiple Instances were Found in Install Base-61');
5337: END IF;
5338: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
5339: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
5340: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
5351: (l_mtl_item_tbl(j).serial_number_control_code = 1 AND -- Ship
5352: l_sr_control = 2) THEN -- Rec
5353:
5354: IF (l_debug > 0) THEN
5355: csi_t_gen_utility_pvt.add('Shipping is 1 and and Rec Serial Control is 2,5,6');
5356: END IF;
5357:
5358: l_12_loop := 1;
5359:
5357:
5358: l_12_loop := 1;
5359:
5360: IF (l_debug > 0) THEN
5361: csi_t_gen_utility_pvt.add('Setting l_12_loop: '||l_12_loop);
5362: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 1,6 and Receiving is 2,5');
5363: END IF;
5364:
5365: IF j = 1 THEN -- Update Source Since its Non Serialized 1 Time
5358: l_12_loop := 1;
5359:
5360: IF (l_debug > 0) THEN
5361: csi_t_gen_utility_pvt.add('Setting l_12_loop: '||l_12_loop);
5362: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 1,6 and Receiving is 2,5');
5363: END IF;
5364:
5365: IF j = 1 THEN -- Update Source Since its Non Serialized 1 Time
5366: IF (l_debug > 0) THEN
5363: END IF;
5364:
5365: IF j = 1 THEN -- Update Source Since its Non Serialized 1 Time
5366: IF (l_debug > 0) THEN
5367: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 1,6 and Receiving is 2,5');
5368: csi_t_gen_utility_pvt.add('Update Source 1 time with Transaction Quantity');
5369: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
5370: END IF;
5371:
5364:
5365: IF j = 1 THEN -- Update Source Since its Non Serialized 1 Time
5366: IF (l_debug > 0) THEN
5367: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 1,6 and Receiving is 2,5');
5368: csi_t_gen_utility_pvt.add('Update Source 1 time with Transaction Quantity');
5369: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
5370: END IF;
5371:
5372: l_upd_src_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
5365: IF j = 1 THEN -- Update Source Since its Non Serialized 1 Time
5366: IF (l_debug > 0) THEN
5367: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 1,6 and Receiving is 2,5');
5368: csi_t_gen_utility_pvt.add('Update Source 1 time with Transaction Quantity');
5369: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
5370: END IF;
5371:
5372: l_upd_src_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
5373: l_upd_src_dest_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
5381: l_org_assignments_tbl.delete;
5382: l_asset_assignment_tbl.delete;
5383:
5384: IF (l_debug > 0) THEN
5385: csi_t_gen_utility_pvt.add('Before Update Item Instance - 6');
5386: END IF;
5387:
5388: csi_item_instance_pub.update_item_instance(l_api_version,
5389: l_commit,
5405: l_upd_error_instance_id := NULL;
5406: l_upd_error_instance_id := l_upd_src_dest_instance_rec.instance_id;
5407:
5408: IF (l_debug > 0) THEN
5409: csi_t_gen_utility_pvt.add('After Update Item Instance - 7');
5410: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
5411: END IF;
5412:
5413: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5406: l_upd_error_instance_id := l_upd_src_dest_instance_rec.instance_id;
5407:
5408: IF (l_debug > 0) THEN
5409: csi_t_gen_utility_pvt.add('After Update Item Instance - 7');
5410: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
5411: END IF;
5412:
5413: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5414: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
5412:
5413: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5414: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
5415: IF (l_debug > 0) THEN
5416: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
5417: END IF;
5418: l_msg_index := 1;
5419: WHILE l_msg_count > 0 loop
5420: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5440: l_organization_id := l_mtl_item_tbl(j).transfer_organization_id;
5441: l_locator_id := l_mtl_item_tbl(j).transfer_locator_id;
5442:
5443: IF (l_debug > 0) THEN
5444: csi_t_gen_utility_pvt.add('Before Get Dest Item Instance - 8');
5445: END IF;
5446:
5447: csi_item_instance_pub.get_item_instances(l_api_version,
5448: l_commit,
5459: l_msg_count,
5460: l_msg_data);
5461:
5462: IF (l_debug > 0) THEN
5463: csi_t_gen_utility_pvt.add('After Get Item Instance - 9');
5464: END IF;
5465:
5466: l_tbl_count := 0;
5467: l_tbl_count := l_dest_instance_header_tbl.count;
5465:
5466: l_tbl_count := 0;
5467: l_tbl_count := l_dest_instance_header_tbl.count;
5468: IF (l_debug > 0) THEN
5469: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
5470: END IF;
5471:
5472: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5473: IF NOT l_return_status = l_fnd_success then
5471:
5472: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5473: IF NOT l_return_status = l_fnd_success then
5474: IF (l_debug > 0) THEN
5475: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
5476: END IF;
5477: l_msg_index := 1;
5478: WHILE l_msg_count > 0 loop
5479: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5518:
5519: 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);
5520:
5521: IF (l_debug > 0) THEN
5522: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_new_dest_instance_rec.instance_status_id);
5523: END IF;
5524:
5525: IF (l_debug > 0) THEN
5526: csi_t_gen_utility_pvt.add('Before Create Item Instance - 10');
5522: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_new_dest_instance_rec.instance_status_id);
5523: END IF;
5524:
5525: IF (l_debug > 0) THEN
5526: csi_t_gen_utility_pvt.add('Before Create Item Instance - 10');
5527: csi_t_gen_utility_pvt.add('In Transit Order Line ID on Dest Rec: '||l_new_dest_instance_rec.last_oe_order_line_id);
5528: END IF;
5529:
5530: csi_item_instance_pub.create_item_instance(l_api_version,
5523: END IF;
5524:
5525: IF (l_debug > 0) THEN
5526: csi_t_gen_utility_pvt.add('Before Create Item Instance - 10');
5527: csi_t_gen_utility_pvt.add('In Transit Order Line ID on Dest Rec: '||l_new_dest_instance_rec.last_oe_order_line_id);
5528: END IF;
5529:
5530: csi_item_instance_pub.create_item_instance(l_api_version,
5531: l_commit,
5543: l_msg_count,
5544: l_msg_data);
5545:
5546: IF (l_debug > 0) THEN
5547: csi_t_gen_utility_pvt.add('After Create Item Instance - 11');
5548: END IF;
5549: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5550:
5551: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
5549: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5550:
5551: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
5552: IF (l_debug > 0) THEN
5553: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
5554: END IF;
5555: l_msg_index := 1;
5556: WHILE l_msg_count > 0 loop
5557: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5566:
5567: IF l_dest_instance_header_tbl(i).instance_usage_code in (l_in_inventory,l_in_relationship) THEN
5568:
5569: IF l_dest_instance_header_tbl(i).instance_usage_code = l_in_relationship THEN
5570: csi_t_gen_utility_pvt.add('Check and Break Relationship for Instance :'||l_dest_instance_header_tbl(i).instance_id);
5571:
5572: csi_process_txn_pvt.check_and_break_relation(l_dest_instance_header_tbl(i).instance_id,
5573: l_txn_rec,
5574: l_return_status);
5573: l_txn_rec,
5574: l_return_status);
5575:
5576: IF NOT l_return_status = l_fnd_success then
5577: csi_t_gen_utility_pvt.add('You encountered an error in the se_inv_trxs_pkg.check_and_break_relation');
5578: l_error_message := csi_t_gen_utility_pvt.dump_error_stack;
5579: RAISE fnd_api.g_exc_error;
5580: END IF;
5581:
5574: l_return_status);
5575:
5576: IF NOT l_return_status = l_fnd_success then
5577: csi_t_gen_utility_pvt.add('You encountered an error in the se_inv_trxs_pkg.check_and_break_relation');
5578: l_error_message := csi_t_gen_utility_pvt.dump_error_stack;
5579: RAISE fnd_api.g_exc_error;
5580: END IF;
5581:
5582: csi_t_gen_utility_pvt.add('Object Version originally from instance: '||l_dest_instance_header_tbl(i).object_version_number);
5578: l_error_message := csi_t_gen_utility_pvt.dump_error_stack;
5579: RAISE fnd_api.g_exc_error;
5580: END IF;
5581:
5582: csi_t_gen_utility_pvt.add('Object Version originally from instance: '||l_dest_instance_header_tbl(i).object_version_number);
5583:
5584: OPEN c_obj_version (l_dest_instance_header_tbl(i).instance_id);
5585: FETCH c_obj_version into l_dest_instance_header_tbl(i).object_version_number;
5586: CLOSE c_obj_version;
5584: OPEN c_obj_version (l_dest_instance_header_tbl(i).instance_id);
5585: FETCH c_obj_version into l_dest_instance_header_tbl(i).object_version_number;
5586: CLOSE c_obj_version;
5587:
5588: csi_t_gen_utility_pvt.add('Current Object Version after check and break :'||l_dest_instance_header_tbl(i).object_version_number);
5589:
5590: END IF; -- Check and Break
5591:
5592:
5605:
5606: 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);
5607:
5608: IF (l_debug > 0) THEN
5609: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_dest_instance_rec.instance_status_id);
5610: END IF;
5611:
5612: IF (l_debug > 0) THEN
5613: csi_t_gen_utility_pvt.add('Before Update Item Instance - 13');
5609: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_dest_instance_rec.instance_status_id);
5610: END IF;
5611:
5612: IF (l_debug > 0) THEN
5613: csi_t_gen_utility_pvt.add('Before Update Item Instance - 13');
5614: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
5615: END IF;
5616:
5617: csi_item_instance_pub.update_item_instance(l_api_version,
5610: END IF;
5611:
5612: IF (l_debug > 0) THEN
5613: csi_t_gen_utility_pvt.add('Before Update Item Instance - 13');
5614: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
5615: END IF;
5616:
5617: csi_item_instance_pub.update_item_instance(l_api_version,
5618: l_commit,
5633: l_upd_error_instance_id := NULL;
5634: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
5635:
5636: IF (l_debug > 0) THEN
5637: csi_t_gen_utility_pvt.add('After Update Item Instance - 14');
5638: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
5639: END IF;
5640:
5641: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5634: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
5635:
5636: IF (l_debug > 0) THEN
5637: csi_t_gen_utility_pvt.add('After Update Item Instance - 14');
5638: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
5639: END IF;
5640:
5641: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5642: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
5640:
5641: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5642: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
5643: IF (l_debug > 0) THEN
5644: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
5645: END IF;
5646: l_msg_index := 1;
5647: WHILE l_msg_count > 0 loop
5648: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5654:
5655: ELSE -- No Serialized Instances with In Inventory or In Relationship Exist
5656:
5657: IF (l_debug > 0) THEN
5658: csi_t_gen_utility_pvt.add('No Records were found in Install Base-5');
5659: END IF;
5660:
5661: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
5662: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
5669:
5670: ELSIF l_dest_instance_header_tbl.count > 1 THEN
5671: -- Multiple Instances were found so throw error
5672: IF (l_debug > 0) THEN
5673: csi_t_gen_utility_pvt.add('Multiple Instances were Found in Install Base-62');
5674: END IF;
5675: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
5676: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
5677: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
5685: END IF; -- End of Serial Control IF
5686:
5687: IF l_66_flag = 1 THEN
5688: IF (l_debug > 0) THEN
5689: csi_t_gen_utility_pvt.add('Exiting Loop :'||l_66_flag);
5690: csi_t_gen_utility_pvt.add('Ship Control :'||l_mtl_item_tbl(j).serial_number_control_code);
5691: csi_t_gen_utility_pvt.add('Rec Control :'||l_sr_control);
5692: END IF;
5693: EXIT;
5686:
5687: IF l_66_flag = 1 THEN
5688: IF (l_debug > 0) THEN
5689: csi_t_gen_utility_pvt.add('Exiting Loop :'||l_66_flag);
5690: csi_t_gen_utility_pvt.add('Ship Control :'||l_mtl_item_tbl(j).serial_number_control_code);
5691: csi_t_gen_utility_pvt.add('Rec Control :'||l_sr_control);
5692: END IF;
5693: EXIT;
5694: END IF;
5687: IF l_66_flag = 1 THEN
5688: IF (l_debug > 0) THEN
5689: csi_t_gen_utility_pvt.add('Exiting Loop :'||l_66_flag);
5690: csi_t_gen_utility_pvt.add('Ship Control :'||l_mtl_item_tbl(j).serial_number_control_code);
5691: csi_t_gen_utility_pvt.add('Rec Control :'||l_sr_control);
5692: END IF;
5693: EXIT;
5694: END IF;
5695:
5695:
5696: END LOOP; -- End of main For Inv Loop
5697:
5698: IF (l_debug > 0) THEN
5699: csi_t_gen_utility_pvt.add('End time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
5700: csi_t_gen_utility_pvt.add('******End of csi_inv_iso_pkg.iso_direct Transaction******');
5701: END IF;
5702:
5703: EXCEPTION
5696: END LOOP; -- End of main For Inv Loop
5697:
5698: IF (l_debug > 0) THEN
5699: csi_t_gen_utility_pvt.add('End time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
5700: csi_t_gen_utility_pvt.add('******End of csi_inv_iso_pkg.iso_direct Transaction******');
5701: END IF;
5702:
5703: EXCEPTION
5704: WHEN fnd_api.g_exc_error THEN
5702:
5703: EXCEPTION
5704: WHEN fnd_api.g_exc_error THEN
5705: IF (l_debug > 0) THEN
5706: csi_t_gen_utility_pvt.add('You have encountered a "fnd_api.g_exc_error" exception in the Direct ISO Transaction');
5707: END IF;
5708: x_return_status := l_fnd_error;
5709:
5710: IF l_mtl_item_tbl.count > 0 THEN
5735:
5736: WHEN others THEN
5737: l_sql_error := SQLERRM;
5738: IF (l_debug > 0) THEN
5739: csi_t_gen_utility_pvt.add('You have encountered a "when others" exception in the Direct ISO Transaction');
5740: csi_t_gen_utility_pvt.add('SQL Error: '||l_sql_error);
5741: END IF;
5742: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
5743: fnd_message.set_token('API_NAME',l_api_name);
5736: WHEN others THEN
5737: l_sql_error := SQLERRM;
5738: IF (l_debug > 0) THEN
5739: csi_t_gen_utility_pvt.add('You have encountered a "when others" exception in the Direct ISO Transaction');
5740: csi_t_gen_utility_pvt.add('SQL Error: '||l_sql_error);
5741: END IF;
5742: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
5743: fnd_message.set_token('API_NAME',l_api_name);
5744: fnd_message.set_token('SQL_ERROR',SQLERRM);