[Home] [Help]
1: package body CSI_INV_ISO_PKG as
2: -- $Header: csiintsb.pls 120.6.12000000.4 2007/07/06 15:33:23 ngoutam 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,
137: x_return_status := l_fnd_success;
138: l_error_message := NULL;
139:
140: IF (l_debug > 0) THEN
141: csi_t_gen_utility_pvt.add('******Start of csi_inv_iso_pkg.iso_shipment Transaction procedure******');
142: csi_t_gen_utility_pvt.add('Start time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
143: csi_t_gen_utility_pvt.add('csiintsb.pls 115.27');
144: END IF;
145:
138: l_error_message := NULL;
139:
140: IF (l_debug > 0) THEN
141: csi_t_gen_utility_pvt.add('******Start of csi_inv_iso_pkg.iso_shipment Transaction procedure******');
142: csi_t_gen_utility_pvt.add('Start time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
143: csi_t_gen_utility_pvt.add('csiintsb.pls 115.27');
144: END IF;
145:
146: IF (l_debug > 0) THEN
139:
140: IF (l_debug > 0) THEN
141: csi_t_gen_utility_pvt.add('******Start of csi_inv_iso_pkg.iso_shipment Transaction procedure******');
142: csi_t_gen_utility_pvt.add('Start time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
143: csi_t_gen_utility_pvt.add('csiintsb.pls 115.27');
144: END IF;
145:
146: IF (l_debug > 0) THEN
147: csi_t_gen_utility_pvt.add('Transaction ID with is: '||p_transaction_id);
143: csi_t_gen_utility_pvt.add('csiintsb.pls 115.27');
144: END IF;
145:
146: IF (l_debug > 0) THEN
147: csi_t_gen_utility_pvt.add('Transaction ID with is: '||p_transaction_id);
148: csi_t_gen_utility_pvt.add('l_sysdate set to: '||to_char(l_sysdate,'DD-MON-YYYY HH24:MI:SS'));
149: END IF;
150:
151: -- This procedure queries all of the Inventory Transaction Records and
144: END IF;
145:
146: IF (l_debug > 0) THEN
147: csi_t_gen_utility_pvt.add('Transaction ID with is: '||p_transaction_id);
148: csi_t_gen_utility_pvt.add('l_sysdate set to: '||to_char(l_sysdate,'DD-MON-YYYY HH24:MI:SS'));
149: END IF;
150:
151: -- This procedure queries all of the Inventory Transaction Records and
152: -- returns them as a table.
158:
159: l_tbl_count := 0;
160: l_tbl_count := l_mtl_item_tbl.count;
161: IF (l_debug > 0) THEN
162: csi_t_gen_utility_pvt.add('Inventory Records Found: '||l_tbl_count);
163: END IF;
164:
165: IF NOT l_return_status = l_fnd_success THEN
166: IF (l_debug > 0) THEN
163: END IF;
164:
165: IF NOT l_return_status = l_fnd_success THEN
166: IF (l_debug > 0) THEN
167: csi_t_gen_utility_pvt.add('You have encountered an error in CSI_INV_TRXS_PKG.get_transaction_recs, Transaction ID: '||p_transaction_id);
168: END IF;
169: RAISE fnd_api.g_exc_error;
170: END IF;
171:
169: RAISE fnd_api.g_exc_error;
170: END IF;
171:
172: IF (l_debug > 0) THEN
173: csi_t_gen_utility_pvt.add('Transaction Action ID: '||l_mtl_item_tbl(i).transaction_action_id);
174: csi_t_gen_utility_pvt.add('Transaction Source Type ID: '||l_mtl_item_tbl(i).transaction_source_type_id);
175: csi_t_gen_utility_pvt.add('Transaction Quantity: '||l_mtl_item_tbl(i).transaction_quantity);
176: END IF;
177:
170: END IF;
171:
172: IF (l_debug > 0) THEN
173: csi_t_gen_utility_pvt.add('Transaction Action ID: '||l_mtl_item_tbl(i).transaction_action_id);
174: csi_t_gen_utility_pvt.add('Transaction Source Type ID: '||l_mtl_item_tbl(i).transaction_source_type_id);
175: csi_t_gen_utility_pvt.add('Transaction Quantity: '||l_mtl_item_tbl(i).transaction_quantity);
176: END IF;
177:
178: -- Get the Master Organization ID
171:
172: IF (l_debug > 0) THEN
173: csi_t_gen_utility_pvt.add('Transaction Action ID: '||l_mtl_item_tbl(i).transaction_action_id);
174: csi_t_gen_utility_pvt.add('Transaction Source Type ID: '||l_mtl_item_tbl(i).transaction_source_type_id);
175: csi_t_gen_utility_pvt.add('Transaction Quantity: '||l_mtl_item_tbl(i).transaction_quantity);
176: END IF;
177:
178: -- Get the Master Organization ID
179: CSI_INV_TRXS_PKG.get_master_organization(l_mtl_item_tbl(i).organization_id,
181: l_return_status,
182: l_error_message);
183:
184: IF (l_debug > 0) THEN
185: csi_t_gen_utility_pvt.add('Master Org ID: '||l_master_organization_id);
186: END IF;
187:
188: IF NOT l_return_status = l_fnd_success THEN
189: IF (l_debug > 0) THEN
186: END IF;
187:
188: IF NOT l_return_status = l_fnd_success THEN
189: IF (l_debug > 0) THEN
190: 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);
191: END IF;
192: RAISE fnd_api.g_exc_error;
193: END IF;
194:
196: l_employee_id := csi_inv_trxs_pkg.get_fnd_employee_id(l_mtl_item_tbl(i).last_updated_by);
197:
198: IF l_employee_id = -1 THEN
199: IF (l_debug > 0) THEN
200: 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');
201: END IF;
202: END IF;
203: IF (l_debug > 0) THEN
204: csi_t_gen_utility_pvt.add('The Employee that is processing this Transaction is: '||l_employee_id);
200: 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');
201: END IF;
202: END IF;
203: IF (l_debug > 0) THEN
204: csi_t_gen_utility_pvt.add('The Employee that is processing this Transaction is: '||l_employee_id);
205: END IF;
206:
207: -- See if this is a depreciable Item to set the status of the transaction record
208: csi_inv_trxs_pkg.check_depreciable(l_mtl_item_tbl(i).inventory_item_id,
208: csi_inv_trxs_pkg.check_depreciable(l_mtl_item_tbl(i).inventory_item_id,
209: l_depreciable);
210:
211: IF (l_debug > 0) THEN
212: csi_t_gen_utility_pvt.add('Is this Item ID: '||l_mtl_item_tbl(i).inventory_item_id||', Depreciable :'||l_depreciable);
213: END IF;
214:
215: -- Get the Negative Receipt Code to see if this org allows Negative
216: -- Quantity Records 1 = Yes, 2 = No
224: l_instance_status := FND_API.G_TRUE;
225: END IF;
226:
227: IF (l_debug > 0) THEN
228: csi_t_gen_utility_pvt.add('Negative Code is - 1 = Yes, 2 = No: '||l_neg_code);
229: END IF;
230:
231: -- Determine Transaction Type for this
232:
233: l_trans_type_code := 'ISO_SHIPMENT';
234: l_trans_app_code := 'INV';
235:
236: IF (l_debug > 0) THEN
237: csi_t_gen_utility_pvt.add('Trans Type Code: '||l_trans_type_code);
238: csi_t_gen_utility_pvt.add('Trans App Code: '||l_trans_app_code);
239: END IF;
240:
241: -- Now loop through the PL/SQL Table.
234: l_trans_app_code := 'INV';
235:
236: IF (l_debug > 0) THEN
237: csi_t_gen_utility_pvt.add('Trans Type Code: '||l_trans_type_code);
238: csi_t_gen_utility_pvt.add('Trans App Code: '||l_trans_app_code);
239: END IF;
240:
241: -- Now loop through the PL/SQL Table.
242: j := 1;
248: FETCH c_so_info into r_so_info;
249: CLOSE c_so_info;
250:
251: IF (l_debug > 0) THEN
252: csi_t_gen_utility_pvt.add('Sales Order Header: '||r_so_info.header_id);
253: csi_t_gen_utility_pvt.add('Sales Order Line: '||r_so_info.line_id);
254: csi_t_gen_utility_pvt.add('Order Number: '||r_so_info.order_number);
255: csi_t_gen_utility_pvt.add('Line Number: '||r_so_info.line_number);
256: END IF;
249: CLOSE c_so_info;
250:
251: IF (l_debug > 0) THEN
252: csi_t_gen_utility_pvt.add('Sales Order Header: '||r_so_info.header_id);
253: csi_t_gen_utility_pvt.add('Sales Order Line: '||r_so_info.line_id);
254: csi_t_gen_utility_pvt.add('Order Number: '||r_so_info.order_number);
255: csi_t_gen_utility_pvt.add('Line Number: '||r_so_info.line_number);
256: END IF;
257:
250:
251: IF (l_debug > 0) THEN
252: csi_t_gen_utility_pvt.add('Sales Order Header: '||r_so_info.header_id);
253: csi_t_gen_utility_pvt.add('Sales Order Line: '||r_so_info.line_id);
254: csi_t_gen_utility_pvt.add('Order Number: '||r_so_info.order_number);
255: csi_t_gen_utility_pvt.add('Line Number: '||r_so_info.line_number);
256: END IF;
257:
258: IF (l_debug > 0) THEN
251: IF (l_debug > 0) THEN
252: csi_t_gen_utility_pvt.add('Sales Order Header: '||r_so_info.header_id);
253: csi_t_gen_utility_pvt.add('Sales Order Line: '||r_so_info.line_id);
254: csi_t_gen_utility_pvt.add('Order Number: '||r_so_info.order_number);
255: csi_t_gen_utility_pvt.add('Line Number: '||r_so_info.line_number);
256: END IF;
257:
258: IF (l_debug > 0) THEN
259: csi_t_gen_utility_pvt.add('Starting to loop through Material Transaction Records');
255: csi_t_gen_utility_pvt.add('Line Number: '||r_so_info.line_number);
256: END IF;
257:
258: IF (l_debug > 0) THEN
259: csi_t_gen_utility_pvt.add('Starting to loop through Material Transaction Records');
260: END IF;
261:
262: -- Get Default Profile Instance Status
263:
265: FETCH c_id into r_id;
266: CLOSE c_id;
267:
268: IF (l_debug > 0) THEN
269: csi_t_gen_utility_pvt.add('Default Profile Status: '||r_id.instance_status_id);
270: END IF;
271:
272: -- Initialize Transaction Record
273: l_txn_rec := csi_inv_trxs_pkg.init_txn_rec;
292: END IF;
293:
294: IF NOT l_return_status = l_fnd_success THEN
295: IF (l_debug > 0) THEN
296: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
297: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
298: END IF;
299: RAISE fnd_api.g_exc_error;
300: END IF;
293:
294: IF NOT l_return_status = l_fnd_success THEN
295: IF (l_debug > 0) THEN
296: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
297: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
298: END IF;
299: RAISE fnd_api.g_exc_error;
300: END IF;
301:
299: RAISE fnd_api.g_exc_error;
300: END IF;
301:
302: IF (l_debug > 0) THEN
303: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
304: csi_t_gen_utility_pvt.add('Trans Status Code: '||l_txn_rec.transaction_status_code);
305: END IF;
306:
307: -- Create CSI Transaction to be used
300: END IF;
301:
302: IF (l_debug > 0) THEN
303: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
304: csi_t_gen_utility_pvt.add('Trans Status Code: '||l_txn_rec.transaction_status_code);
305: END IF;
306:
307: -- Create CSI Transaction to be used
308: l_txn_rec.source_transaction_date := l_mtl_item_tbl(i).transaction_date;
326: l_error_message,
327: l_return_status);
328:
329: IF (l_debug > 0) THEN
330: csi_t_gen_utility_pvt.add('CSI Transaction Created: '||l_txn_rec.transaction_id);
331: END IF;
332:
333: IF NOT l_return_status = l_fnd_success THEN
334: IF (l_debug > 0) THEN
331: END IF;
332:
333: IF NOT l_return_status = l_fnd_success THEN
334: IF (l_debug > 0) THEN
335: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.create_csi_txn: '||p_transaction_id);
336: END IF;
337: RAISE fnd_api.g_exc_error;
338: END IF;
339:
345: FETCH c_item_control into r_item_control;
346: CLOSE c_item_control;
347:
348: IF (l_debug > 0) THEN
349: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
350: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
351: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
352: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
353: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
346: CLOSE c_item_control;
347:
348: IF (l_debug > 0) THEN
349: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
350: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
351: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
352: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
353: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
354: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
347:
348: IF (l_debug > 0) THEN
349: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
350: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
351: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
352: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
353: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
354: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
355: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
348: IF (l_debug > 0) THEN
349: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
350: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
351: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
352: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
353: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
354: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
355: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
356: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
349: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
350: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
351: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
352: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
353: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
354: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
355: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
356: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
357: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
350: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
351: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
352: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
353: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
354: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
355: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
356: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
357: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
358: csi_t_gen_utility_pvt.add('Receiving Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
351: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
352: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
353: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
354: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
355: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
356: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
357: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
358: csi_t_gen_utility_pvt.add('Receiving Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
359: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
352: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
353: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
354: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
355: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
356: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
357: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
358: csi_t_gen_utility_pvt.add('Receiving Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
359: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
360: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
353: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
354: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
355: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
356: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
357: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
358: csi_t_gen_utility_pvt.add('Receiving Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
359: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
360: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
361: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
354: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
355: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
356: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
357: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
358: csi_t_gen_utility_pvt.add('Receiving Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
359: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
360: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
361: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
362: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
355: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
356: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
357: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
358: csi_t_gen_utility_pvt.add('Receiving Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
359: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
360: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
361: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
362: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
363: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
356: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
357: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
358: csi_t_gen_utility_pvt.add('Receiving Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
359: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
360: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
361: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
362: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
363: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
364: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
357: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
358: csi_t_gen_utility_pvt.add('Receiving Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
359: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
360: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
361: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
362: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
363: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
364: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
365: END IF;
358: csi_t_gen_utility_pvt.add('Receiving Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
359: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
360: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
361: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
362: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
363: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
364: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
365: END IF;
366:
359: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
360: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
361: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
362: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
363: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
364: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
365: END IF;
366:
367: l_instance_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
360: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
361: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
362: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
363: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
364: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
365: END IF;
366:
367: l_instance_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
368: l_instance_usage_code := l_fnd_g_char;
382: l_trx_action_type := 'IN_TRANSIT_SHIPMENT';
383: l_instance_usage_code := l_instance_query_rec.instance_usage_code;
384:
385: IF (l_debug > 0) THEN
386: 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');
387: END IF;
388:
389: ELSIF l_mtl_item_tbl(j).serial_number_control_code in (2,5) THEN
390: l_instance_query_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
394: l_trx_action_type := 'IN_TRANSIT_SHIPMENT';
395: l_instance_usage_code := l_instance_query_rec.instance_usage_code;
396:
397: IF (l_debug > 0) THEN
398: 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');
399: END IF;
400:
401: END IF;
402:
400:
401: END IF;
402:
403: IF (l_debug > 0) THEN
404: csi_t_gen_utility_pvt.add('Transaction Action Type:'|| l_trx_action_type);
405: csi_t_gen_utility_pvt.add('Before Get Item Instance-1 ');
406: END IF;
407:
408: csi_item_instance_pub.get_item_instances(l_api_version,
401: END IF;
402:
403: IF (l_debug > 0) THEN
404: csi_t_gen_utility_pvt.add('Transaction Action Type:'|| l_trx_action_type);
405: csi_t_gen_utility_pvt.add('Before Get Item Instance-1 ');
406: END IF;
407:
408: csi_item_instance_pub.get_item_instances(l_api_version,
409: l_commit,
420: l_msg_count,
421: l_msg_data);
422:
423: IF (l_debug > 0) THEN
424: csi_t_gen_utility_pvt.add('After Get Item Instance-2');
425: END IF;
426:
427: l_tbl_count := 0;
428: l_tbl_count := l_src_instance_header_tbl.count;
426:
427: l_tbl_count := 0;
428: l_tbl_count := l_src_instance_header_tbl.count;
429: IF (l_debug > 0) THEN
430: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
431: END IF;
432:
433: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
434: IF NOT l_return_status = l_fnd_success then
432:
433: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
434: IF NOT l_return_status = l_fnd_success then
435: IF (l_debug > 0) THEN
436: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
437: END IF;
438: l_msg_index := 1;
439: WHILE l_msg_count > 0 loop
440: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
444: RAISE fnd_api.g_exc_error;
445: END IF;
446:
447: IF (l_debug > 0) THEN
448: csi_t_gen_utility_pvt.add('Before checking to see if Source records Exist');
449: END IF;
450:
451: IF l_mtl_item_tbl(j).serial_number_control_code in (2,5) THEN
452: IF l_src_instance_header_tbl.count > 0 THEN
452: IF l_src_instance_header_tbl.count > 0 THEN
453: IF r_item_control.serial_number_control_code <> 1 THEN -- Do Regular Processing move to In Transit
454:
455: IF (l_debug > 0) THEN
456: csi_t_gen_utility_pvt.add('Updating Serial Number: '||l_mtl_item_tbl(j).serial_number);
457: END IF;
458:
459: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
460: l_update_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
469: l_update_instance_rec.last_oe_order_line_id := r_so_info.line_id;
470: l_update_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
471:
472: IF (l_debug > 0) THEN
473: csi_t_gen_utility_pvt.add('After you initialize the Transaction Record Values');
474: END IF;
475:
476: l_party_tbl.delete;
477: l_account_tbl.delete;
479: l_org_assignments_tbl.delete;
480: l_asset_assignment_tbl.delete;
481:
482: IF (l_debug > 0) THEN
483: csi_t_gen_utility_pvt.add('Before Update Item Instance-3');
484: END IF;
485:
486: csi_item_instance_pub.update_item_instance(l_api_version,
487: l_commit,
503: l_upd_error_instance_id := NULL;
504: l_upd_error_instance_id := l_update_instance_rec.instance_id;
505:
506: IF (l_debug > 0) THEN
507: csi_t_gen_utility_pvt.add('After Update Item Instance-4');
508: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
509: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
510: END IF;
511:
504: l_upd_error_instance_id := l_update_instance_rec.instance_id;
505:
506: IF (l_debug > 0) THEN
507: csi_t_gen_utility_pvt.add('After Update Item Instance-4');
508: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
509: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
510: END IF;
511:
512: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
505:
506: IF (l_debug > 0) THEN
507: csi_t_gen_utility_pvt.add('After Update Item Instance-4');
508: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
509: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
510: END IF;
511:
512: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
513: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
511:
512: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
513: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
514: IF (l_debug > 0) THEN
515: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
516: END IF;
517: l_msg_index := 1;
518: WHILE l_msg_count > 0 loop
519: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
525:
526: ELSE -- Serial Control is 1 ( No Control ) so set to Out Of Enterprise
527:
528: IF (l_debug > 0) THEN
529: csi_t_gen_utility_pvt.add('Updating Serial Number: '||l_mtl_item_tbl(j).serial_number);
530: csi_t_gen_utility_pvt.add('Setting to OUT OF ENTERPRISE');
531: END IF;
532:
533: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
526: ELSE -- Serial Control is 1 ( No Control ) so set to Out Of Enterprise
527:
528: IF (l_debug > 0) THEN
529: csi_t_gen_utility_pvt.add('Updating Serial Number: '||l_mtl_item_tbl(j).serial_number);
530: csi_t_gen_utility_pvt.add('Setting to OUT OF ENTERPRISE');
531: END IF;
532:
533: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
534: l_update_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
545: l_update_instance_rec.instance_usage_code := l_out_of_enterprise;
546: l_update_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
547:
548: IF (l_debug > 0) THEN
549: csi_t_gen_utility_pvt.add('After you initialize the Transaction Record Values');
550: csi_t_gen_utility_pvt.add(l_update_instance_rec.location_id);
551: csi_t_gen_utility_pvt.add(l_update_instance_rec.location_type_code);
552: END IF;
553:
546: l_update_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
547:
548: IF (l_debug > 0) THEN
549: csi_t_gen_utility_pvt.add('After you initialize the Transaction Record Values');
550: csi_t_gen_utility_pvt.add(l_update_instance_rec.location_id);
551: csi_t_gen_utility_pvt.add(l_update_instance_rec.location_type_code);
552: END IF;
553:
554: l_party_tbl.delete;
547:
548: IF (l_debug > 0) THEN
549: csi_t_gen_utility_pvt.add('After you initialize the Transaction Record Values');
550: csi_t_gen_utility_pvt.add(l_update_instance_rec.location_id);
551: csi_t_gen_utility_pvt.add(l_update_instance_rec.location_type_code);
552: END IF;
553:
554: l_party_tbl.delete;
555: l_account_tbl.delete;
557: l_org_assignments_tbl.delete;
558: l_asset_assignment_tbl.delete;
559:
560: IF (l_debug > 0) THEN
561: csi_t_gen_utility_pvt.add('Before Update Item Instance-3');
562: END IF;
563:
564: csi_item_instance_pub.update_item_instance(l_api_version,
565: l_commit,
581: l_upd_error_instance_id := NULL;
582: l_upd_error_instance_id := l_update_instance_rec.instance_id;
583:
584: IF (l_debug > 0) THEN
585: csi_t_gen_utility_pvt.add('After Update Item Instance-4');
586: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
587: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
588: END IF;
589:
582: l_upd_error_instance_id := l_update_instance_rec.instance_id;
583:
584: IF (l_debug > 0) THEN
585: csi_t_gen_utility_pvt.add('After Update Item Instance-4');
586: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
587: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
588: END IF;
589:
590: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
583:
584: IF (l_debug > 0) THEN
585: csi_t_gen_utility_pvt.add('After Update Item Instance-4');
586: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
587: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
588: END IF;
589:
590: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
591: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
589:
590: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
591: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
592: IF (l_debug > 0) THEN
593: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
594: END IF;
595: l_msg_index := 1;
596: WHILE l_msg_count > 0 loop
597: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
619: l_serial_number := NULL;
620: l_quantity := abs(l_mtl_item_tbl(j).transaction_quantity);
621:
622: IF (l_debug > 0) THEN
623: 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');
624: csi_t_gen_utility_pvt.dump_instance_query_rec(l_instance_query_rec);
625: END IF;
626:
627: IF (l_debug > 0) THEN
620: l_quantity := abs(l_mtl_item_tbl(j).transaction_quantity);
621:
622: IF (l_debug > 0) THEN
623: 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');
624: csi_t_gen_utility_pvt.dump_instance_query_rec(l_instance_query_rec);
625: END IF;
626:
627: IF (l_debug > 0) THEN
628: csi_t_gen_utility_pvt.add('Before Get Item Instance for Dest Non Serialized Instance-5');
624: csi_t_gen_utility_pvt.dump_instance_query_rec(l_instance_query_rec);
625: END IF;
626:
627: IF (l_debug > 0) THEN
628: csi_t_gen_utility_pvt.add('Before Get Item Instance for Dest Non Serialized Instance-5');
629: END IF;
630:
631: csi_item_instance_pub.get_item_instances(l_api_version,
632: l_commit,
643: l_msg_count,
644: l_msg_data);
645:
646: IF (l_debug > 0) THEN
647: csi_t_gen_utility_pvt.add('After Get Item Instance-6');
648: END IF;
649: l_tbl_count := 0;
650: l_tbl_count := l_dest_instance_header_tbl.count;
651: IF (l_debug > 0) THEN
648: END IF;
649: l_tbl_count := 0;
650: l_tbl_count := l_dest_instance_header_tbl.count;
651: IF (l_debug > 0) THEN
652: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
653: END IF;
654:
655: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
656: IF NOT l_return_status = l_fnd_success then
654:
655: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
656: IF NOT l_return_status = l_fnd_success then
657: IF (l_debug > 0) THEN
658: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
659: END IF;
660: l_msg_index := 1;
661: WHILE l_msg_count > 0 loop
662: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
668:
669: IF l_dest_instance_header_tbl.count < 1 THEN -- Installed Base Destination Records are not found so create a new record
670:
671: IF (l_debug > 0) THEN
672: csi_t_gen_utility_pvt.add('Creating New Dest dest Instance-7');
673: END IF;
674:
675: l_new_dest_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
676: l_new_dest_instance_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
703: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
704: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
705:
706: IF (l_debug > 0) THEN
707: csi_t_gen_utility_pvt.add('Before Create Item Instance-8');
708: END IF;
709:
710: csi_item_instance_pub.create_item_instance(l_api_version,
711: l_commit,
723: l_msg_count,
724: l_msg_data);
725:
726: IF (l_debug > 0) THEN
727: csi_t_gen_utility_pvt.add('After Create Item Instance-9');
728: END IF;
729: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
730:
731: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
729: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
730:
731: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
732: IF (l_debug > 0) THEN
733: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
734: END IF;
735: l_msg_index := 1;
736: WHILE l_msg_count > 0 loop
737: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
743:
744: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
745:
746: IF (l_debug > 0) THEN
747: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
748: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
749: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
750: END IF;
751:
744: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
745:
746: IF (l_debug > 0) THEN
747: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
748: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
749: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
750: END IF;
751:
752: l_update_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
745:
746: IF (l_debug > 0) THEN
747: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
748: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
749: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
750: END IF;
751:
752: l_update_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
753: l_update_dest_instance_rec.instance_id := l_dest_instance_header_tbl(i).instance_id;
773:
774: 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);
775:
776: IF (l_debug > 0) THEN
777: csi_t_gen_utility_pvt.add('Before Update Item Instance-10');
778: csi_t_gen_utility_pvt.add('Instance Status-11: '||l_update_dest_instance_rec.instance_status_id);
779:
780: END IF;
781:
774: 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);
775:
776: IF (l_debug > 0) THEN
777: csi_t_gen_utility_pvt.add('Before Update Item Instance-10');
778: csi_t_gen_utility_pvt.add('Instance Status-11: '||l_update_dest_instance_rec.instance_status_id);
779:
780: END IF;
781:
782: csi_item_instance_pub.update_item_instance(l_api_version,
799: l_upd_error_instance_id := NULL;
800: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
801:
802: IF (l_debug > 0) THEN
803: csi_t_gen_utility_pvt.add('After Update Item Instance-12');
804: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
805: END IF;
806:
807: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
800: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
801:
802: IF (l_debug > 0) THEN
803: csi_t_gen_utility_pvt.add('After Update Item Instance-12');
804: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
805: END IF;
806:
807: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
808: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
806:
807: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
808: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
809: IF (l_debug > 0) THEN
810: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
811: END IF;
812: l_msg_index := 1;
813: WHILE l_msg_count > 0 loop
814: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
819: END IF;
820:
821: ELSE -- Error No dest non serial recs round
822: IF (l_debug > 0) THEN
823: 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);
824: END IF;
825: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
826: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
827: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
835: END IF; -- serial control <> 1
836:
837: ELSE -- No Serialized Instances found so Error.
838: IF (l_debug > 0) THEN
839: csi_t_gen_utility_pvt.add('No Records were found in Install Base-13');
840: END IF;
841:
842: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
843: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
862: IF l_src_instance_header_tbl.count = 0 THEN
863: IF l_neg_code = 1 THEN -- Negative Records Allowed so Create/Update
864:
865: IF (l_debug > 0) THEN
866: csi_t_gen_utility_pvt.add('No Source records were found and Neg Code is 1 so create a new Source Instance Record');
867: END IF;
868:
869: l_new_src_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
870: l_new_src_instance_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
896: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
897: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
898:
899: IF (l_debug > 0) THEN
900: csi_t_gen_utility_pvt.add('Before Create Source Item Instance-14');
901: END IF;
902:
903: csi_item_instance_pub.create_item_instance(l_api_version,
904: l_commit,
916: l_msg_count,
917: l_msg_data);
918:
919: IF (l_debug > 0) THEN
920: csi_t_gen_utility_pvt.add('After Create Source Item Instance-15');
921: END IF;
922:
923: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
924:
923: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
924:
925: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
926: IF (l_debug > 0) THEN
927: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
928: END IF;
929: l_msg_index := 1;
930: WHILE l_msg_count > 0 loop
931: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
936: END IF;
937:
938: ELSE -- Inv Does not allowe neg qty and source is not found
939: IF (l_debug > 0) THEN
940: csi_t_gen_utility_pvt.add('No Records were found in Install Base-16');
941: END IF;
942: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
943: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
944: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
949: END IF; -- End of Neg Qty IF
950: ELSIF l_src_instance_header_tbl.count = 1 THEN -- Source Records are found
951:
952: IF (l_debug > 0) THEN
953: csi_t_gen_utility_pvt.add('1 Source Record Found so we will update it.');
954: csi_t_gen_utility_pvt.add('You will update instance: '||l_src_instance_header_tbl(i).instance_id);
955: csi_t_gen_utility_pvt.add('End Date is: '||l_src_instance_header_tbl(i).active_end_date);
956: END IF;
957:
950: ELSIF l_src_instance_header_tbl.count = 1 THEN -- Source Records are found
951:
952: IF (l_debug > 0) THEN
953: csi_t_gen_utility_pvt.add('1 Source Record Found so we will update it.');
954: csi_t_gen_utility_pvt.add('You will update instance: '||l_src_instance_header_tbl(i).instance_id);
955: csi_t_gen_utility_pvt.add('End Date is: '||l_src_instance_header_tbl(i).active_end_date);
956: END IF;
957:
958: l_upd_src_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
951:
952: IF (l_debug > 0) THEN
953: csi_t_gen_utility_pvt.add('1 Source Record Found so we will update it.');
954: csi_t_gen_utility_pvt.add('You will update instance: '||l_src_instance_header_tbl(i).instance_id);
955: csi_t_gen_utility_pvt.add('End Date is: '||l_src_instance_header_tbl(i).active_end_date);
956: END IF;
957:
958: l_upd_src_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
959: l_upd_src_dest_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
968: l_org_assignments_tbl.delete;
969: l_asset_assignment_tbl.delete;
970:
971: IF (l_debug > 0) THEN
972: csi_t_gen_utility_pvt.add('Before Update Source Item Instance-17');
973: END IF;
974:
975: 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);
976:
974:
975: 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);
976:
977: IF (l_debug > 0) THEN
978: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_upd_src_dest_instance_rec.instance_status_id);
979: END IF;
980:
981: csi_item_instance_pub.update_item_instance(l_api_version,
982: l_commit,
998: l_upd_error_instance_id := NULL;
999: l_upd_error_instance_id := l_upd_src_dest_instance_rec.instance_id;
1000:
1001: IF (l_debug > 0) THEN
1002: csi_t_gen_utility_pvt.add('After Update Item Instance-18');
1003: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1004: END IF;
1005:
1006: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
999: l_upd_error_instance_id := l_upd_src_dest_instance_rec.instance_id;
1000:
1001: IF (l_debug > 0) THEN
1002: csi_t_gen_utility_pvt.add('After Update Item Instance-18');
1003: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1004: END IF;
1005:
1006: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1007: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1005:
1006: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1007: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1008: IF (l_debug > 0) THEN
1009: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
1010: END IF;
1011: l_msg_index := 1;
1012: WHILE l_msg_count > 0 loop
1013: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1019:
1020: ELSIF l_src_instance_header_tbl.count > 1 THEN
1021: -- Multiple Instances were found so throw error
1022: IF (l_debug > 0) THEN
1023: csi_t_gen_utility_pvt.add('Multiple Instances were Found in Install BaseBase-19');
1024: END IF;
1025: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
1026: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
1027: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
1056: l_serial_number := NULL;
1057: l_quantity := abs(l_mtl_item_tbl(j).transaction_quantity);
1058:
1059: IF (l_debug > 0) THEN
1060: 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');
1061: csi_t_gen_utility_pvt.add('Serial Number: '||l_mtl_item_tbl(j).serial_number);
1062: END IF;
1063:
1064: ELSIF l_mtl_item_tbl(j).serial_number_control_code = 6 THEN
1057: l_quantity := abs(l_mtl_item_tbl(j).transaction_quantity);
1058:
1059: IF (l_debug > 0) THEN
1060: 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');
1061: csi_t_gen_utility_pvt.add('Serial Number: '||l_mtl_item_tbl(j).serial_number);
1062: END IF;
1063:
1064: ELSIF l_mtl_item_tbl(j).serial_number_control_code = 6 THEN
1065:
1074: l_mfg_flag := 'Y';
1075: l_serial_number := l_mtl_item_tbl(j).serial_number;
1076: l_quantity := 1;
1077: IF (l_debug > 0) THEN
1078: 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');
1079: 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');
1080: csi_t_gen_utility_pvt.add('Serial Number: '||l_mtl_item_tbl(j).serial_number);
1081: END IF;
1082:
1075: l_serial_number := l_mtl_item_tbl(j).serial_number;
1076: l_quantity := 1;
1077: IF (l_debug > 0) THEN
1078: 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');
1079: 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');
1080: csi_t_gen_utility_pvt.add('Serial Number: '||l_mtl_item_tbl(j).serial_number);
1081: END IF;
1082:
1083: END IF;
1076: l_quantity := 1;
1077: IF (l_debug > 0) THEN
1078: 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');
1079: 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');
1080: csi_t_gen_utility_pvt.add('Serial Number: '||l_mtl_item_tbl(j).serial_number);
1081: END IF;
1082:
1083: END IF;
1084:
1082:
1083: END IF;
1084:
1085: IF (l_debug > 0) THEN
1086: csi_t_gen_utility_pvt.add('Before Get Item Instance for Dest Serialized Instance-20');
1087: csi_t_gen_utility_pvt.add('Serial Number: '||l_mtl_item_tbl(j).serial_number);
1088: END IF;
1089:
1090: csi_item_instance_pub.get_item_instances(l_api_version,
1083: END IF;
1084:
1085: IF (l_debug > 0) THEN
1086: csi_t_gen_utility_pvt.add('Before Get Item Instance for Dest Serialized Instance-20');
1087: csi_t_gen_utility_pvt.add('Serial Number: '||l_mtl_item_tbl(j).serial_number);
1088: END IF;
1089:
1090: csi_item_instance_pub.get_item_instances(l_api_version,
1091: l_commit,
1102: l_msg_count,
1103: l_msg_data);
1104:
1105: IF (l_debug > 0) THEN
1106: csi_t_gen_utility_pvt.add('After Get Item Instance-21');
1107: END IF;
1108: l_tbl_count := 0;
1109: l_tbl_count := l_dest_instance_header_tbl.count;
1110: IF (l_debug > 0) THEN
1107: END IF;
1108: l_tbl_count := 0;
1109: l_tbl_count := l_dest_instance_header_tbl.count;
1110: IF (l_debug > 0) THEN
1111: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
1112: END IF;
1113:
1114: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1115: IF NOT l_return_status = l_fnd_success then
1113:
1114: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1115: IF NOT l_return_status = l_fnd_success then
1116: IF (l_debug > 0) THEN
1117: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
1118: END IF;
1119: l_msg_index := 1;
1120: WHILE l_msg_count > 0 loop
1121: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1129: IF l_dest_instance_header_tbl.count < 1 THEN -- Installed Base Destination Records are not found so create a new record
1130:
1131:
1132: IF (l_debug > 0) THEN
1133: csi_t_gen_utility_pvt.add('Creating New Dest dest Instance-22');
1134: END IF;
1135:
1136: l_new_dest_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
1137: l_new_dest_instance_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
1165: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
1166: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
1167:
1168: IF (l_debug > 0) THEN
1169: csi_t_gen_utility_pvt.add('Before Create Item Instance-23');
1170: END IF;
1171:
1172: csi_item_instance_pub.create_item_instance(l_api_version,
1173: l_commit,
1185: l_msg_count,
1186: l_msg_data);
1187:
1188: IF (l_debug > 0) THEN
1189: csi_t_gen_utility_pvt.add('After Create Item Instance-24');
1190: END IF;
1191: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1192:
1193: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1191: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1192:
1193: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1194: IF (l_debug > 0) THEN
1195: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
1196: END IF;
1197: l_msg_index := 1;
1198: WHILE l_msg_count > 0 loop
1199: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1205:
1206: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
1207:
1208: IF (l_debug > 0) THEN
1209: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
1210: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
1211: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
1212: END IF;
1213:
1206: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
1207:
1208: IF (l_debug > 0) THEN
1209: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
1210: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
1211: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
1212: END IF;
1213:
1214: IF l_dest_instance_header_tbl(i).instance_usage_code IN (l_in_transit,l_returned) THEN
1207:
1208: IF (l_debug > 0) THEN
1209: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
1210: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
1211: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
1212: END IF;
1213:
1214: IF l_dest_instance_header_tbl(i).instance_usage_code IN (l_in_transit,l_returned) THEN
1215: -- Update Non Serialized / Serialized Item
1221:
1222: l_trans_quantity := l_dest_instance_header_tbl(i).quantity + abs(l_mtl_item_tbl(j).primary_quantity);
1223:
1224: IF (l_debug > 0) THEN
1225: csi_t_gen_utility_pvt.add('Setting Trans Qty: '||l_trans_quantity);
1226: END IF;
1227: ELSIF l_mtl_item_tbl(j).serial_number_control_code = 6 THEN
1228: l_trans_quantity := 1;
1229: IF (l_debug > 0) THEN
1226: END IF;
1227: ELSIF l_mtl_item_tbl(j).serial_number_control_code = 6 THEN
1228: l_trans_quantity := 1;
1229: IF (l_debug > 0) THEN
1230: csi_t_gen_utility_pvt.add('Setting Trans Qty: '||l_trans_quantity);
1231: END IF;
1232: END IF;
1233:
1234: l_update_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
1255:
1256: 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);
1257:
1258: IF (l_debug > 0) THEN
1259: csi_t_gen_utility_pvt.add('Before Update Item Instance-25');
1260: csi_t_gen_utility_pvt.add('Instance Status-26: '||l_update_dest_instance_rec.instance_status_id);
1261:
1262: END IF;
1263:
1256: 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);
1257:
1258: IF (l_debug > 0) THEN
1259: csi_t_gen_utility_pvt.add('Before Update Item Instance-25');
1260: csi_t_gen_utility_pvt.add('Instance Status-26: '||l_update_dest_instance_rec.instance_status_id);
1261:
1262: END IF;
1263:
1264: csi_item_instance_pub.update_item_instance(l_api_version,
1281: l_upd_error_instance_id := NULL;
1282: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
1283:
1284: IF (l_debug > 0) THEN
1285: csi_t_gen_utility_pvt.add('After Update Item Instance-27');
1286: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1287: END IF;
1288:
1289: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1282: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
1283:
1284: IF (l_debug > 0) THEN
1285: csi_t_gen_utility_pvt.add('After Update Item Instance-27');
1286: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1287: END IF;
1288:
1289: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1290: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1288:
1289: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1290: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1291: IF (l_debug > 0) THEN
1292: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
1293: END IF;
1294: l_msg_index := 1;
1295: WHILE l_msg_count > 0 loop
1296: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1301: END IF;
1302:
1303: ELSE -- Error No Src Recs with usage of In Transit or Returned
1304: IF (l_debug > 0) THEN
1305: 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);
1306: END IF;
1307: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
1308: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
1309: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
1320:
1321: IF l_dest_instance_header_tbl.count < 1 THEN -- Installed Base Destination Records Not Found
1322:
1323: IF (l_debug > 0) THEN
1324: csi_t_gen_utility_pvt.add('Creating New Dest dest Instance-28');
1325: END IF;
1326:
1327: l_new_dest_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
1328: l_new_dest_instance_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
1354: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
1355: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
1356:
1357: IF (l_debug > 0) THEN
1358: csi_t_gen_utility_pvt.add('Before Create Item Instance-29');
1359: END IF;
1360:
1361: csi_item_instance_pub.create_item_instance(l_api_version,
1362: l_commit,
1374: l_msg_count,
1375: l_msg_data);
1376:
1377: IF (l_debug > 0) THEN
1378: csi_t_gen_utility_pvt.add('After Create Item Instance-30');
1379: END IF;
1380: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1381:
1382: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1380: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1381:
1382: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1383: IF (l_debug > 0) THEN
1384: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
1385: END IF;
1386: l_msg_index := 1;
1387: WHILE l_msg_count > 0 loop
1388: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1394:
1395: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
1396:
1397: IF (l_debug > 0) THEN
1398: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
1399: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
1400: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
1401: END IF;
1402:
1395: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
1396:
1397: IF (l_debug > 0) THEN
1398: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
1399: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
1400: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
1401: END IF;
1402:
1403: l_update_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
1396:
1397: IF (l_debug > 0) THEN
1398: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
1399: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
1400: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
1401: END IF;
1402:
1403: l_update_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
1404: l_update_dest_instance_rec.instance_id := l_dest_instance_header_tbl(i).instance_id;
1424:
1425: 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);
1426:
1427: IF (l_debug > 0) THEN
1428: csi_t_gen_utility_pvt.add('Before Update Item Instance-31');
1429: csi_t_gen_utility_pvt.add('Instance Status-32: '||l_update_dest_instance_rec.instance_status_id);
1430:
1431: END IF;
1432:
1425: 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);
1426:
1427: IF (l_debug > 0) THEN
1428: csi_t_gen_utility_pvt.add('Before Update Item Instance-31');
1429: csi_t_gen_utility_pvt.add('Instance Status-32: '||l_update_dest_instance_rec.instance_status_id);
1430:
1431: END IF;
1432:
1433: csi_item_instance_pub.update_item_instance(l_api_version,
1450: l_upd_error_instance_id := NULL;
1451: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
1452:
1453: IF (l_debug > 0) THEN
1454: csi_t_gen_utility_pvt.add('After Update Item Instance-33');
1455: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1456: END IF;
1457:
1458: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1451: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
1452:
1453: IF (l_debug > 0) THEN
1454: csi_t_gen_utility_pvt.add('After Update Item Instance-33');
1455: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1456: END IF;
1457:
1458: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1459: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1457:
1458: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1459: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1460: IF (l_debug > 0) THEN
1461: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
1462: END IF;
1463: l_msg_index := 1;
1464: WHILE l_msg_count > 0 loop
1465: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1474:
1475: IF l_dest_instance_header_tbl.count < 1 THEN -- Installed Base Destination Records Not Found
1476:
1477: IF (l_debug > 0) THEN
1478: csi_t_gen_utility_pvt.add('Creating New Dest dest Instance-34');
1479: END IF;
1480:
1481: l_new_dest_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
1482: l_new_dest_instance_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
1508: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
1509: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
1510:
1511: IF (l_debug > 0) THEN
1512: csi_t_gen_utility_pvt.add('Before Create Item Instance-35');
1513: END IF;
1514:
1515: csi_item_instance_pub.create_item_instance(l_api_version,
1516: l_commit,
1528: l_msg_count,
1529: l_msg_data);
1530:
1531: IF (l_debug > 0) THEN
1532: csi_t_gen_utility_pvt.add('After Create Item Instance-36');
1533: END IF;
1534: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1535:
1536: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1534: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1535:
1536: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1537: IF (l_debug > 0) THEN
1538: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
1539: END IF;
1540: l_msg_index := 1;
1541: WHILE l_msg_count > 0 loop
1542: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1573:
1574: l_expire_instance_rec.object_version_number := l_curr_object_vers_61_id;
1575:
1576: IF (l_debug > 0) THEN
1577: csi_t_gen_utility_pvt.add('Before Expiring Item Instance-36.1: '||l_new_dest_instance_rec.instance_id);
1578: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1579: csi_t_gen_utility_pvt.add('l_curr_object_vers_61_id is: '||l_curr_object_vers_61_id);
1580: END IF;
1581:
1574: l_expire_instance_rec.object_version_number := l_curr_object_vers_61_id;
1575:
1576: IF (l_debug > 0) THEN
1577: csi_t_gen_utility_pvt.add('Before Expiring Item Instance-36.1: '||l_new_dest_instance_rec.instance_id);
1578: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1579: csi_t_gen_utility_pvt.add('l_curr_object_vers_61_id is: '||l_curr_object_vers_61_id);
1580: END IF;
1581:
1582: csi_item_instance_pub.expire_item_instance(l_api_version,
1575:
1576: IF (l_debug > 0) THEN
1577: csi_t_gen_utility_pvt.add('Before Expiring Item Instance-36.1: '||l_new_dest_instance_rec.instance_id);
1578: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1579: csi_t_gen_utility_pvt.add('l_curr_object_vers_61_id is: '||l_curr_object_vers_61_id);
1580: END IF;
1581:
1582: csi_item_instance_pub.expire_item_instance(l_api_version,
1583: l_commit,
1591: l_msg_count,
1592: l_msg_data);
1593:
1594: IF (l_debug > 0) THEN
1595: csi_t_gen_utility_pvt.add('After Expire Item Instance-36.2');
1596: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1597: END IF;
1598:
1599: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1592: l_msg_data);
1593:
1594: IF (l_debug > 0) THEN
1595: csi_t_gen_utility_pvt.add('After Expire Item Instance-36.2');
1596: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1597: END IF;
1598:
1599: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1600: IF NOT l_return_status = l_fnd_success then
1598:
1599: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1600: IF NOT l_return_status = l_fnd_success then
1601: IF (l_debug > 0) THEN
1602: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
1603: END IF;
1604: l_msg_index := 1;
1605: WHILE l_msg_count > 0 loop
1606: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1612:
1613: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
1614:
1615: IF (l_debug > 0) THEN
1616: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
1617: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
1618: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
1619: END IF;
1620:
1613: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
1614:
1615: IF (l_debug > 0) THEN
1616: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
1617: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
1618: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
1619: END IF;
1620:
1621: l_update_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
1614:
1615: IF (l_debug > 0) THEN
1616: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
1617: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
1618: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
1619: END IF;
1620:
1621: l_update_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
1622: l_update_dest_instance_rec.instance_id := l_dest_instance_header_tbl(i).instance_id;
1643: 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);
1644:
1645:
1646: IF (l_debug > 0) THEN
1647: csi_t_gen_utility_pvt.add('Before Update Item Instance-37');
1648: csi_t_gen_utility_pvt.add('Instance Status-38: '||l_update_dest_instance_rec.instance_status_id);
1649:
1650: END IF;
1651:
1644:
1645:
1646: IF (l_debug > 0) THEN
1647: csi_t_gen_utility_pvt.add('Before Update Item Instance-37');
1648: csi_t_gen_utility_pvt.add('Instance Status-38: '||l_update_dest_instance_rec.instance_status_id);
1649:
1650: END IF;
1651:
1652: csi_item_instance_pub.update_item_instance(l_api_version,
1669: l_upd_error_instance_id := NULL;
1670: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
1671:
1672: IF (l_debug > 0) THEN
1673: csi_t_gen_utility_pvt.add('After Update Item Instance-39');
1674: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1675: END IF;
1676:
1677: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1670: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
1671:
1672: IF (l_debug > 0) THEN
1673: csi_t_gen_utility_pvt.add('After Update Item Instance-39');
1674: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1675: END IF;
1676:
1677: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1678: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1676:
1677: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1678: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1679: IF (l_debug > 0) THEN
1680: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
1681: END IF;
1682: l_msg_index := 1;
1683: WHILE l_msg_count > 0 loop
1684: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1708: l_serial_number := NULL;
1709: l_quantity := abs(l_mtl_item_tbl(j).transaction_quantity);
1710:
1711: IF (l_debug > 0) THEN
1712: csi_t_gen_utility_pvt.add('Since the Shipping Code is 6 and the Receiving is 1 Look for Non Serial In Transit');
1713: END IF;
1714:
1715: IF (l_debug > 0) THEN
1716: csi_t_gen_utility_pvt.add('Before Get Item Instance for Dest Serialized Instance-40');
1712: csi_t_gen_utility_pvt.add('Since the Shipping Code is 6 and the Receiving is 1 Look for Non Serial In Transit');
1713: END IF;
1714:
1715: IF (l_debug > 0) THEN
1716: csi_t_gen_utility_pvt.add('Before Get Item Instance for Dest Serialized Instance-40');
1717: END IF;
1718:
1719: csi_item_instance_pub.get_item_instances(l_api_version,
1720: l_commit,
1731: l_msg_count,
1732: l_msg_data);
1733:
1734: IF (l_debug > 0) THEN
1735: csi_t_gen_utility_pvt.add('After Get Item Instance-41');
1736: END IF;
1737: l_tbl_count := 0;
1738: l_tbl_count := l_dest_instance_header_tbl.count;
1739: IF (l_debug > 0) THEN
1736: END IF;
1737: l_tbl_count := 0;
1738: l_tbl_count := l_dest_instance_header_tbl.count;
1739: IF (l_debug > 0) THEN
1740: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
1741: END IF;
1742:
1743: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1744: IF NOT l_return_status = l_fnd_success then
1742:
1743: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1744: IF NOT l_return_status = l_fnd_success then
1745: IF (l_debug > 0) THEN
1746: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
1747: END IF;
1748: l_msg_index := 1;
1749: WHILE l_msg_count > 0 loop
1750: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1756:
1757: IF l_dest_instance_header_tbl.count < 1 THEN -- Installed Base Destination Records are not found so create a new record
1758:
1759: IF (l_debug > 0) THEN
1760: csi_t_gen_utility_pvt.add('Creating New Dest dest Instance-42');
1761: END IF;
1762:
1763: l_new_dest_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
1764: l_new_dest_instance_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
1790: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
1791: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
1792:
1793: IF (l_debug > 0) THEN
1794: csi_t_gen_utility_pvt.add('Before Create Item Instance-43');
1795: END IF;
1796:
1797: csi_item_instance_pub.create_item_instance(l_api_version,
1798: l_commit,
1810: l_msg_count,
1811: l_msg_data);
1812:
1813: IF (l_debug > 0) THEN
1814: csi_t_gen_utility_pvt.add('After Create Item Instance-44');
1815: END IF;
1816: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1817:
1818: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1816: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1817:
1818: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1819: IF (l_debug > 0) THEN
1820: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
1821: END IF;
1822: l_msg_index := 1;
1823: WHILE l_msg_count > 0 loop
1824: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1830:
1831: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
1832:
1833: IF (l_debug > 0) THEN
1834: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
1835: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
1836: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
1837: END IF;
1838:
1831: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
1832:
1833: IF (l_debug > 0) THEN
1834: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
1835: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
1836: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
1837: END IF;
1838:
1839: l_update_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
1832:
1833: IF (l_debug > 0) THEN
1834: csi_t_gen_utility_pvt.add('Instance Usage Code: '||l_dest_instance_header_tbl(i).instance_usage_code);
1835: csi_t_gen_utility_pvt.add('Item ID: '||l_dest_instance_header_tbl(i).inventory_item_id);
1836: csi_t_gen_utility_pvt.add('Instance ID: '||l_dest_instance_header_tbl(i).instance_id);
1837: END IF;
1838:
1839: l_update_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
1840: l_update_dest_instance_rec.instance_id := l_dest_instance_header_tbl(i).instance_id;
1860:
1861: 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);
1862:
1863: IF (l_debug > 0) THEN
1864: csi_t_gen_utility_pvt.add('Before Update Item Instance-45');
1865: csi_t_gen_utility_pvt.add('Instance Status-46: '||l_update_dest_instance_rec.instance_status_id);
1866:
1867: END IF;
1868:
1861: 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);
1862:
1863: IF (l_debug > 0) THEN
1864: csi_t_gen_utility_pvt.add('Before Update Item Instance-45');
1865: csi_t_gen_utility_pvt.add('Instance Status-46: '||l_update_dest_instance_rec.instance_status_id);
1866:
1867: END IF;
1868:
1869: csi_item_instance_pub.update_item_instance(l_api_version,
1886: l_upd_error_instance_id := NULL;
1887: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
1888:
1889: IF (l_debug > 0) THEN
1890: csi_t_gen_utility_pvt.add('After Update Item Instance-47');
1891: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1892: END IF;
1893:
1894: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1887: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
1888:
1889: IF (l_debug > 0) THEN
1890: csi_t_gen_utility_pvt.add('After Update Item Instance-47');
1891: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
1892: END IF;
1893:
1894: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1895: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1893:
1894: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
1895: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
1896: IF (l_debug > 0) THEN
1897: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
1898: END IF;
1899: l_msg_index := 1;
1900: WHILE l_msg_count > 0 loop
1901: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
1906: END IF;
1907:
1908: ELSE -- Error No dest non serial recs round
1909: IF (l_debug > 0) THEN
1910: 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);
1911: END IF;
1912: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
1913: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
1914: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
1925: END IF; -- Serial If Statement
1926: END LOOP; -- End of For Loop
1927:
1928: IF (l_debug > 0) THEN
1929: csi_t_gen_utility_pvt.add('End time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
1930: csi_t_gen_utility_pvt.add('******End of csi_inv_iso_pkg.iso_shipment Transaction******');
1931: END IF;
1932:
1933: EXCEPTION
1926: END LOOP; -- End of For Loop
1927:
1928: IF (l_debug > 0) THEN
1929: csi_t_gen_utility_pvt.add('End time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
1930: csi_t_gen_utility_pvt.add('******End of csi_inv_iso_pkg.iso_shipment Transaction******');
1931: END IF;
1932:
1933: EXCEPTION
1934: WHEN fnd_api.g_exc_error THEN
1932:
1933: EXCEPTION
1934: WHEN fnd_api.g_exc_error THEN
1935: IF (l_debug > 0) THEN
1936: 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');
1937: END IF;
1938: x_return_status := l_fnd_error;
1939:
1940: IF l_mtl_item_tbl.count > 0 THEN
1965:
1966: WHEN others THEN
1967: l_sql_error := SQLERRM;
1968: IF (l_debug > 0) THEN
1969: csi_t_gen_utility_pvt.add('You have encountered a "when others" exception in the Internal Sales Order Transaction - In Transit Shipment');
1970: csi_t_gen_utility_pvt.add('SQL Error: '||l_sql_error);
1971: END IF;
1972: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
1973: fnd_message.set_token('API_NAME',l_api_name);
1966: WHEN others THEN
1967: l_sql_error := SQLERRM;
1968: IF (l_debug > 0) THEN
1969: csi_t_gen_utility_pvt.add('You have encountered a "when others" exception in the Internal Sales Order Transaction - In Transit Shipment');
1970: csi_t_gen_utility_pvt.add('SQL Error: '||l_sql_error);
1971: END IF;
1972: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
1973: fnd_message.set_token('API_NAME',l_api_name);
1974: fnd_message.set_token('SQL_ERROR',SQLERRM);
2165: x_return_status := l_fnd_success;
2166: l_error_message := NULL;
2167:
2168: IF (l_debug > 0) THEN
2169: csi_t_gen_utility_pvt.add('******Start of csi_inv_iso_pkg.iso_receipt Transaction procedure******');
2170: csi_t_gen_utility_pvt.add('Start time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
2171: csi_t_gen_utility_pvt.add('csiintsb.pls 115.27');
2172: END IF;
2173:
2166: l_error_message := NULL;
2167:
2168: IF (l_debug > 0) THEN
2169: csi_t_gen_utility_pvt.add('******Start of csi_inv_iso_pkg.iso_receipt Transaction procedure******');
2170: csi_t_gen_utility_pvt.add('Start time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
2171: csi_t_gen_utility_pvt.add('csiintsb.pls 115.27');
2172: END IF;
2173:
2174: IF (l_debug > 0) THEN
2167:
2168: IF (l_debug > 0) THEN
2169: csi_t_gen_utility_pvt.add('******Start of csi_inv_iso_pkg.iso_receipt Transaction procedure******');
2170: csi_t_gen_utility_pvt.add('Start time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
2171: csi_t_gen_utility_pvt.add('csiintsb.pls 115.27');
2172: END IF;
2173:
2174: IF (l_debug > 0) THEN
2175: csi_t_gen_utility_pvt.add('Transaction ID with is: '||p_transaction_id);
2171: csi_t_gen_utility_pvt.add('csiintsb.pls 115.27');
2172: END IF;
2173:
2174: IF (l_debug > 0) THEN
2175: csi_t_gen_utility_pvt.add('Transaction ID with is: '||p_transaction_id);
2176: csi_t_gen_utility_pvt.add('l_sysdate set to: '||to_char(l_sysdate,'DD-MON-YYYY HH24:MI:SS'));
2177: END IF;
2178:
2179: -- This procedure queries all of the Inventory Transaction Records and
2172: END IF;
2173:
2174: IF (l_debug > 0) THEN
2175: csi_t_gen_utility_pvt.add('Transaction ID with is: '||p_transaction_id);
2176: csi_t_gen_utility_pvt.add('l_sysdate set to: '||to_char(l_sysdate,'DD-MON-YYYY HH24:MI:SS'));
2177: END IF;
2178:
2179: -- This procedure queries all of the Inventory Transaction Records and
2180: -- returns them as a table.
2186:
2187: l_tbl_count := 0;
2188: l_tbl_count := l_mtl_item_tbl.count;
2189: IF (l_debug > 0) THEN
2190: csi_t_gen_utility_pvt.add('Inventory Records Found: '||l_tbl_count);
2191: END IF;
2192:
2193: IF NOT l_return_status = l_fnd_success THEN
2194: IF (l_debug > 0) THEN
2191: END IF;
2192:
2193: IF NOT l_return_status = l_fnd_success THEN
2194: IF (l_debug > 0) THEN
2195: csi_t_gen_utility_pvt.add('You have encountered an error in CSI_INV_TRXS_PKG.get_transaction_recs, Transaction ID: '||p_transaction_id);
2196: END IF;
2197: RAISE fnd_api.g_exc_error;
2198: END IF;
2199:
2197: RAISE fnd_api.g_exc_error;
2198: END IF;
2199:
2200: IF (l_debug > 0) THEN
2201: csi_t_gen_utility_pvt.add('Transaction Action ID: '||l_mtl_item_tbl(i).transaction_action_id);
2202: csi_t_gen_utility_pvt.add('Transaction Source Type ID: '||l_mtl_item_tbl(i).transaction_source_type_id);
2203: csi_t_gen_utility_pvt.add('Transaction Quantity: '||l_mtl_item_tbl(i).transaction_quantity);
2204: END IF;
2205:
2198: END IF;
2199:
2200: IF (l_debug > 0) THEN
2201: csi_t_gen_utility_pvt.add('Transaction Action ID: '||l_mtl_item_tbl(i).transaction_action_id);
2202: csi_t_gen_utility_pvt.add('Transaction Source Type ID: '||l_mtl_item_tbl(i).transaction_source_type_id);
2203: csi_t_gen_utility_pvt.add('Transaction Quantity: '||l_mtl_item_tbl(i).transaction_quantity);
2204: END IF;
2205:
2206: -- Get the Master Organization ID
2199:
2200: IF (l_debug > 0) THEN
2201: csi_t_gen_utility_pvt.add('Transaction Action ID: '||l_mtl_item_tbl(i).transaction_action_id);
2202: csi_t_gen_utility_pvt.add('Transaction Source Type ID: '||l_mtl_item_tbl(i).transaction_source_type_id);
2203: csi_t_gen_utility_pvt.add('Transaction Quantity: '||l_mtl_item_tbl(i).transaction_quantity);
2204: END IF;
2205:
2206: -- Get the Master Organization ID
2207: csi_inv_trxs_pkg.get_master_organization(l_mtl_item_tbl(i).organization_id,
2210: l_error_message);
2211:
2212: IF NOT l_return_status = l_fnd_success THEN
2213: IF (l_debug > 0) THEN
2214: 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);
2215: END IF;
2216: RAISE fnd_api.g_exc_error;
2217: END IF;
2218:
2220: l_employee_id := csi_inv_trxs_pkg.get_fnd_employee_id(l_mtl_item_tbl(i).last_updated_by);
2221:
2222: IF l_employee_id = -1 THEN
2223: IF (l_debug > 0) THEN
2224: 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');
2225: END IF;
2226: END IF;
2227: IF (l_debug > 0) THEN
2228: csi_t_gen_utility_pvt.add('The Employee that is processing this Transaction is: '||l_employee_id);
2224: 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');
2225: END IF;
2226: END IF;
2227: IF (l_debug > 0) THEN
2228: csi_t_gen_utility_pvt.add('The Employee that is processing this Transaction is: '||l_employee_id);
2229: END IF;
2230:
2231: -- See if this is a depreciable Item to set the status of the transaction record
2232: csi_inv_trxs_pkg.check_depreciable(l_mtl_item_tbl(i).inventory_item_id,
2232: csi_inv_trxs_pkg.check_depreciable(l_mtl_item_tbl(i).inventory_item_id,
2233: l_depreciable);
2234:
2235: IF (l_debug > 0) THEN
2236: csi_t_gen_utility_pvt.add('Is this Item ID: '||l_mtl_item_tbl(i).inventory_item_id||', Depreciable :'||l_depreciable);
2237: END IF;
2238:
2239: -- Set so we only Query Valid Records.
2240: l_instance_status := FND_API.G_TRUE;
2244: l_trans_type_code := 'ISO_REQUISITION_RECEIPT';
2245: l_trans_app_code := 'INV';
2246:
2247: IF (l_debug > 0) THEN
2248: csi_t_gen_utility_pvt.add('Trans Type Code: '||l_trans_type_code);
2249: csi_t_gen_utility_pvt.add('Trans App Code: '||l_trans_app_code);
2250: END IF;
2251:
2252: -- Get Default Profile Instance Status
2245: l_trans_app_code := 'INV';
2246:
2247: IF (l_debug > 0) THEN
2248: csi_t_gen_utility_pvt.add('Trans Type Code: '||l_trans_type_code);
2249: csi_t_gen_utility_pvt.add('Trans App Code: '||l_trans_app_code);
2250: END IF;
2251:
2252: -- Get Default Profile Instance Status
2253:
2255: FETCH c_id into r_id;
2256: CLOSE c_id;
2257:
2258: IF (l_debug > 0) THEN
2259: csi_t_gen_utility_pvt.add('Default Profile Status: '||r_id.instance_status_id);
2260: END IF;
2261:
2262: -- Added so that the SO_HEADER_ID and SO_LINE_ID can be added to
2263: -- the transaction record.
2262: -- Added so that the SO_HEADER_ID and SO_LINE_ID can be added to
2263: -- the transaction record.
2264:
2265: IF (l_debug > 0) THEN
2266: csi_t_gen_utility_pvt.add('Transfer Transaction ID: '||l_mtl_item_tbl(j).transfer_transaction_id);
2267: END IF;
2268:
2269: OPEN c_xfer_trans_id (l_mtl_item_tbl(j).transfer_transaction_id);
2270: FETCH c_xfer_trans_id into r_xfer_trans_id;
2270: FETCH c_xfer_trans_id into r_xfer_trans_id;
2271: CLOSE c_xfer_trans_id;
2272:
2273: IF (l_debug > 0) THEN
2274: csi_t_gen_utility_pvt.add('Trx Source Line ID: '||r_xfer_trans_id.trx_source_line_id);
2275: END IF;
2276:
2277: OPEN c_so_info (r_xfer_trans_id.trx_source_line_id);
2278: --OPEN c_so_info (l_mtl_item_tbl(j).transaction_source_id);
2279: FETCH c_so_info into r_so_info;
2280: CLOSE c_so_info;
2281:
2282: IF (l_debug > 0) THEN
2283: csi_t_gen_utility_pvt.add('Sales Order Header: '||r_so_info.header_id);
2284: csi_t_gen_utility_pvt.add('Sales Order Line: '||r_so_info.line_id);
2285: csi_t_gen_utility_pvt.add('Order Number: '||r_so_info.order_number);
2286: csi_t_gen_utility_pvt.add('Line Number: '||r_so_info.line_number);
2287: END IF;
2280: CLOSE c_so_info;
2281:
2282: IF (l_debug > 0) THEN
2283: csi_t_gen_utility_pvt.add('Sales Order Header: '||r_so_info.header_id);
2284: csi_t_gen_utility_pvt.add('Sales Order Line: '||r_so_info.line_id);
2285: csi_t_gen_utility_pvt.add('Order Number: '||r_so_info.order_number);
2286: csi_t_gen_utility_pvt.add('Line Number: '||r_so_info.line_number);
2287: END IF;
2288: -- Initialize Transaction Record
2281:
2282: IF (l_debug > 0) THEN
2283: csi_t_gen_utility_pvt.add('Sales Order Header: '||r_so_info.header_id);
2284: csi_t_gen_utility_pvt.add('Sales Order Line: '||r_so_info.line_id);
2285: csi_t_gen_utility_pvt.add('Order Number: '||r_so_info.order_number);
2286: csi_t_gen_utility_pvt.add('Line Number: '||r_so_info.line_number);
2287: END IF;
2288: -- Initialize Transaction Record
2289: l_txn_rec := csi_inv_trxs_pkg.init_txn_rec;
2282: IF (l_debug > 0) THEN
2283: csi_t_gen_utility_pvt.add('Sales Order Header: '||r_so_info.header_id);
2284: csi_t_gen_utility_pvt.add('Sales Order Line: '||r_so_info.line_id);
2285: csi_t_gen_utility_pvt.add('Order Number: '||r_so_info.order_number);
2286: csi_t_gen_utility_pvt.add('Line Number: '||r_so_info.line_number);
2287: END IF;
2288: -- Initialize Transaction Record
2289: l_txn_rec := csi_inv_trxs_pkg.init_txn_rec;
2290:
2308: END IF;
2309:
2310: IF NOT l_return_status = l_fnd_success THEN
2311: IF (l_debug > 0) THEN
2312: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
2313: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
2314: END IF;
2315: RAISE fnd_api.g_exc_error;
2316: END IF;
2309:
2310: IF NOT l_return_status = l_fnd_success THEN
2311: IF (l_debug > 0) THEN
2312: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
2313: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
2314: END IF;
2315: RAISE fnd_api.g_exc_error;
2316: END IF;
2317:
2315: RAISE fnd_api.g_exc_error;
2316: END IF;
2317:
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('Trans Status Code: '||l_txn_rec.transaction_status_code);
2321: END IF;
2322:
2323: -- Create CSI Transaction to be used
2316: END IF;
2317:
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('Trans Status Code: '||l_txn_rec.transaction_status_code);
2321: END IF;
2322:
2323: -- Create CSI Transaction to be used
2324: l_txn_rec.source_transaction_date := l_mtl_item_tbl(i).transaction_date;
2342: l_error_message,
2343: l_return_status);
2344:
2345: IF (l_debug > 0) THEN
2346: csi_t_gen_utility_pvt.add('CSI Transaction Created: '||l_txn_rec.transaction_id);
2347: END IF;
2348:
2349: IF NOT l_return_status = l_fnd_success THEN
2350: IF (l_debug > 0) THEN
2347: END IF;
2348:
2349: IF NOT l_return_status = l_fnd_success THEN
2350: IF (l_debug > 0) THEN
2351: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.create_csi_txn: '||p_transaction_id);
2352: END IF;
2353: RAISE fnd_api.g_exc_error;
2354: END IF;
2355:
2356: -- Now loop through the PL/SQL Table.
2357: j := 1;
2358:
2359: IF (l_debug > 0) THEN
2360: csi_t_gen_utility_pvt.add('Starting to loop through Material Transaction Records');
2361: END IF;
2362:
2363: FOR j in l_mtl_item_tbl.FIRST .. l_mtl_item_tbl.LAST LOOP
2364:
2368: FETCH c_intransit_line_id into r_intransit_line_id;
2369: CLOSE c_intransit_line_id;
2370:
2371: IF (l_debug > 0) THEN
2372: csi_t_gen_utility_pvt.add('Shipment Number: '||l_mtl_item_tbl(j).shipment_number);
2373: csi_t_gen_utility_pvt.add('Previous Line ID for Shipment: '||r_intransit_line_id.trx_source_line_id);
2374: END IF;
2375:
2376: IF (l_debug > 0) THEN
2369: CLOSE c_intransit_line_id;
2370:
2371: IF (l_debug > 0) THEN
2372: csi_t_gen_utility_pvt.add('Shipment Number: '||l_mtl_item_tbl(j).shipment_number);
2373: csi_t_gen_utility_pvt.add('Previous Line ID for Shipment: '||r_intransit_line_id.trx_source_line_id);
2374: END IF;
2375:
2376: IF (l_debug > 0) THEN
2377: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
2373: csi_t_gen_utility_pvt.add('Previous Line ID for Shipment: '||r_intransit_line_id.trx_source_line_id);
2374: END IF;
2375:
2376: IF (l_debug > 0) THEN
2377: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
2378: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
2379: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
2380: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
2381: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
2374: END IF;
2375:
2376: IF (l_debug > 0) THEN
2377: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
2378: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
2379: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
2380: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
2381: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
2382: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
2375:
2376: IF (l_debug > 0) THEN
2377: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
2378: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
2379: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
2380: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
2381: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
2382: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
2383: END IF;
2376: IF (l_debug > 0) THEN
2377: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
2378: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
2379: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
2380: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
2381: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
2382: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
2383: END IF;
2384:
2377: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
2378: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
2379: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
2380: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
2381: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
2382: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
2383: END IF;
2384:
2385: -- Get Shipping Organization Serial Control Code
2378: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
2379: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
2380: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
2381: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
2382: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
2383: END IF;
2384:
2385: -- Get Shipping Organization Serial Control Code
2386: OPEN c_item_control (l_mtl_item_tbl(j).inventory_item_id,
2390:
2391: l_sr_control := r_item_control.serial_number_control_code;
2392:
2393: IF (l_debug > 0) THEN
2394: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
2395: csi_t_gen_utility_pvt.add('l_sr_control is: '||l_sr_control);
2396: csi_t_gen_utility_pvt.add('Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2397: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2398: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
2391: l_sr_control := r_item_control.serial_number_control_code;
2392:
2393: IF (l_debug > 0) THEN
2394: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
2395: csi_t_gen_utility_pvt.add('l_sr_control is: '||l_sr_control);
2396: csi_t_gen_utility_pvt.add('Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2397: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2398: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
2399: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
2392:
2393: IF (l_debug > 0) THEN
2394: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
2395: csi_t_gen_utility_pvt.add('l_sr_control is: '||l_sr_control);
2396: csi_t_gen_utility_pvt.add('Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2397: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2398: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
2399: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
2400: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||r_item_control.lot_control_code);
2393: IF (l_debug > 0) THEN
2394: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
2395: csi_t_gen_utility_pvt.add('l_sr_control is: '||l_sr_control);
2396: csi_t_gen_utility_pvt.add('Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2397: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2398: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
2399: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
2400: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||r_item_control.lot_control_code);
2401: csi_t_gen_utility_pvt.add('Receiving Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
2394: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
2395: csi_t_gen_utility_pvt.add('l_sr_control is: '||l_sr_control);
2396: csi_t_gen_utility_pvt.add('Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2397: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2398: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
2399: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
2400: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||r_item_control.lot_control_code);
2401: 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('Shipping Org Location Control Code: '||r_item_control.location_control_code);
2395: csi_t_gen_utility_pvt.add('l_sr_control is: '||l_sr_control);
2396: csi_t_gen_utility_pvt.add('Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2397: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2398: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
2399: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
2400: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||r_item_control.lot_control_code);
2401: 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('Shipping Org Location Control Code: '||r_item_control.location_control_code);
2403: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
2396: csi_t_gen_utility_pvt.add('Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2397: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2398: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
2399: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
2400: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||r_item_control.lot_control_code);
2401: 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('Shipping Org Location Control Code: '||r_item_control.location_control_code);
2403: 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('Shipping Org Revision Control Code: '||r_item_control.revision_qty_control_code);
2397: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
2398: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
2399: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
2400: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||r_item_control.lot_control_code);
2401: 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('Shipping Org Location Control Code: '||r_item_control.location_control_code);
2403: 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('Shipping Org Revision Control Code: '||r_item_control.revision_qty_control_code);
2405: csi_t_gen_utility_pvt.add('Shipping Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
2398: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
2399: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
2400: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||r_item_control.lot_control_code);
2401: 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('Shipping Org Location Control Code: '||r_item_control.location_control_code);
2403: 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('Shipping Org Revision Control Code: '||r_item_control.revision_qty_control_code);
2405: csi_t_gen_utility_pvt.add('Shipping Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
2406: END IF;
2399: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
2400: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||r_item_control.lot_control_code);
2401: 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('Shipping Org Location Control Code: '||r_item_control.location_control_code);
2403: 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('Shipping Org Revision Control Code: '||r_item_control.revision_qty_control_code);
2405: csi_t_gen_utility_pvt.add('Shipping Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
2406: END IF;
2407:
2400: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||r_item_control.lot_control_code);
2401: 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('Shipping Org Location Control Code: '||r_item_control.location_control_code);
2403: 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('Shipping Org Revision Control Code: '||r_item_control.revision_qty_control_code);
2405: csi_t_gen_utility_pvt.add('Shipping Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
2406: END IF;
2407:
2408: l_instance_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
2401: 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('Shipping Org Location Control Code: '||r_item_control.location_control_code);
2403: 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('Shipping Org Revision Control Code: '||r_item_control.revision_qty_control_code);
2405: csi_t_gen_utility_pvt.add('Shipping Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
2406: END IF;
2407:
2408: l_instance_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
2409: l_instance_usage_code := l_fnd_g_char;
2432:
2433: --l_instance_query_rec.inv_organization_id := l_mtl_item_tbl(j).organization_id;
2434: l_instance_query_rec.serial_number := l_mtl_item_tbl(j).serial_number;
2435: IF (l_debug > 0) THEN
2436: csi_t_gen_utility_pvt.add('Set Serial Number to Trans Record');
2437: END IF;
2438: ELSIF (l_mtl_item_tbl(j).serial_number_control_code in (6,1) AND
2439: l_sr_control = 1) OR
2440: (l_mtl_item_tbl(j).serial_number_control_code in (2,5) AND
2442: l_instance_query_rec.serial_number := NULL;
2443: l_instance_query_rec.in_transit_order_line_id := r_intransit_line_id.trx_source_line_id;
2444: --l_instance_query_rec.inv_organization_id := l_mtl_item_tbl(j).transfer_organization_id;
2445: IF (l_debug > 0) THEN
2446: csi_t_gen_utility_pvt.add('Set Serial Number to NULL');
2447: END IF;
2448: ELSIF (l_mtl_item_tbl(j).serial_number_control_code = 1 AND
2449: l_sr_control = 6) OR
2450: (l_mtl_item_tbl(j).serial_number_control_code = 1 AND
2451: l_sr_control in (2,5)) THEN
2452: l_instance_query_rec.serial_number := NULL;
2453: l_instance_query_rec.in_transit_order_line_id := r_intransit_line_id.trx_source_line_id;
2454: IF (l_debug > 0) THEN
2455: csi_t_gen_utility_pvt.add('Set Serial Number to NULL');
2456: 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||')');
2457: END IF;
2458: END IF;
2459:
2452: l_instance_query_rec.serial_number := NULL;
2453: l_instance_query_rec.in_transit_order_line_id := r_intransit_line_id.trx_source_line_id;
2454: IF (l_debug > 0) THEN
2455: csi_t_gen_utility_pvt.add('Set Serial Number to NULL');
2456: 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||')');
2457: END IF;
2458: END IF;
2459:
2460: IF (l_debug > 0) THEN
2457: END IF;
2458: END IF;
2459:
2460: IF (l_debug > 0) THEN
2461: csi_t_gen_utility_pvt.add('l_12_loop is:'|| l_12_loop);
2462: csi_t_gen_utility_pvt.add('If Count is 1 then bypass Get Item Instance');
2463: END IF;
2464:
2465: IF l_12_loop = 0 THEN
2458: END IF;
2459:
2460: IF (l_debug > 0) THEN
2461: csi_t_gen_utility_pvt.add('l_12_loop is:'|| l_12_loop);
2462: csi_t_gen_utility_pvt.add('If Count is 1 then bypass Get Item Instance');
2463: END IF;
2464:
2465: IF l_12_loop = 0 THEN
2466:
2464:
2465: IF l_12_loop = 0 THEN
2466:
2467: IF (l_debug > 0) THEN
2468: csi_t_gen_utility_pvt.add('Transaction Action Type:'|| l_trx_action_type);
2469: csi_t_gen_utility_pvt.add('Before Get Item Instance-1');
2470: END IF;
2471:
2472: csi_item_instance_pub.get_item_instances(l_api_version,
2465: IF l_12_loop = 0 THEN
2466:
2467: IF (l_debug > 0) THEN
2468: csi_t_gen_utility_pvt.add('Transaction Action Type:'|| l_trx_action_type);
2469: csi_t_gen_utility_pvt.add('Before Get Item Instance-1');
2470: END IF;
2471:
2472: csi_item_instance_pub.get_item_instances(l_api_version,
2473: l_commit,
2485: l_msg_data);
2486: END IF;
2487:
2488: IF (l_debug > 0) THEN
2489: csi_t_gen_utility_pvt.add('After Get Item Instance-2');
2490: END IF;
2491: l_tbl_count := 0;
2492: l_tbl_count := l_src_instance_header_tbl.count;
2493: IF (l_debug > 0) THEN
2490: END IF;
2491: l_tbl_count := 0;
2492: l_tbl_count := l_src_instance_header_tbl.count;
2493: IF (l_debug > 0) THEN
2494: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
2495: END IF;
2496:
2497: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2498: IF NOT l_return_status = l_fnd_success then
2496:
2497: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2498: IF NOT l_return_status = l_fnd_success then
2499: IF (l_debug > 0) THEN
2500: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
2501: END IF;
2502: l_msg_index := 1;
2503: WHILE l_msg_count > 0 loop
2504: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2510:
2511: IF l_src_instance_header_tbl.count > 0 OR
2512: l_12_loop = 1 THEN -- Installed Base Records Found
2513: IF (l_debug > 0) THEN
2514: csi_t_gen_utility_pvt.add('Records exists so now check both Shipping and Rec Serial Control');
2515: END IF;
2516:
2517:
2518: IF (l_mtl_item_tbl(j).serial_number_control_code in (2,5) AND
2520: (l_mtl_item_tbl(j).serial_number_control_code in (2,5) AND
2521: l_sr_control = 6) THEN
2522:
2523: IF (l_debug > 0) THEN
2524: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 2,5 or 6 and Receiving are 2,5');
2525: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
2526: END IF;
2527:
2528: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
2521: l_sr_control = 6) THEN
2522:
2523: IF (l_debug > 0) THEN
2524: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 2,5 or 6 and Receiving are 2,5');
2525: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
2526: END IF;
2527:
2528: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
2529: l_update_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
2540: l_update_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
2541: --start of code for bug 6137231--
2542: IF r_item_control.lot_control_code = 2 AND l_mtl_item_tbl(j).lot_control_code = 1 THEN
2543: l_update_instance_rec.lot_number := NULL;
2544: csi_t_gen_utility_pvt.add('Lot control 2 and 1');
2545: ELSIF r_item_control.lot_control_code = 2 AND l_mtl_item_tbl(j).lot_control_code = 2 THEN
2546: l_update_instance_rec.lot_number := l_mtl_item_tbl(j).lot_number;
2547: csi_t_gen_utility_pvt.add('Lot control 2 and 2');
2548: ELSIF r_item_control.lot_control_code = 1 AND l_mtl_item_tbl(j).lot_control_code = 2 THEN
2543: l_update_instance_rec.lot_number := NULL;
2544: csi_t_gen_utility_pvt.add('Lot control 2 and 1');
2545: ELSIF r_item_control.lot_control_code = 2 AND l_mtl_item_tbl(j).lot_control_code = 2 THEN
2546: l_update_instance_rec.lot_number := l_mtl_item_tbl(j).lot_number;
2547: csi_t_gen_utility_pvt.add('Lot control 2 and 2');
2548: ELSIF r_item_control.lot_control_code = 1 AND l_mtl_item_tbl(j).lot_control_code = 2 THEN
2549: l_update_instance_rec.lot_number := l_mtl_item_tbl(j).lot_number;
2550: csi_t_gen_utility_pvt.add('Lot control 1 and 2');
2551: END IF;---lot check
2546: l_update_instance_rec.lot_number := l_mtl_item_tbl(j).lot_number;
2547: csi_t_gen_utility_pvt.add('Lot control 2 and 2');
2548: ELSIF r_item_control.lot_control_code = 1 AND l_mtl_item_tbl(j).lot_control_code = 2 THEN
2549: l_update_instance_rec.lot_number := l_mtl_item_tbl(j).lot_number;
2550: csi_t_gen_utility_pvt.add('Lot control 1 and 2');
2551: END IF;---lot check
2552: --End of code for bug 6137231--
2553:
2554: IF (l_debug > 0) THEN
2551: END IF;---lot check
2552: --End of code for bug 6137231--
2553:
2554: IF (l_debug > 0) THEN
2555: csi_t_gen_utility_pvt.add('After you initialize the Update Record Values');
2556: END IF;
2557:
2558: l_party_tbl.delete;
2559: l_account_tbl.delete;
2561: l_org_assignments_tbl.delete;
2562: l_asset_assignment_tbl.delete;
2563:
2564: IF (l_debug > 0) THEN
2565: csi_t_gen_utility_pvt.add('Before Update Item Instance-3');
2566: END IF;
2567:
2568: csi_item_instance_pub.update_item_instance(l_api_version,
2569: l_commit,
2585: l_upd_error_instance_id := NULL;
2586: l_upd_error_instance_id := l_update_instance_rec.instance_id;
2587:
2588: IF (l_debug > 0) THEN
2589: csi_t_gen_utility_pvt.add('After Update Item Instance-4');
2590: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
2591: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
2592: END IF;
2593:
2586: l_upd_error_instance_id := l_update_instance_rec.instance_id;
2587:
2588: IF (l_debug > 0) THEN
2589: csi_t_gen_utility_pvt.add('After Update Item Instance-4');
2590: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
2591: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
2592: END IF;
2593:
2594: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2587:
2588: IF (l_debug > 0) THEN
2589: csi_t_gen_utility_pvt.add('After Update Item Instance-4');
2590: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
2591: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
2592: END IF;
2593:
2594: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2595: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
2593:
2594: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2595: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
2596: IF (l_debug > 0) THEN
2597: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
2598: END IF;
2599: l_msg_index := 1;
2600: WHILE l_msg_count > 0 loop
2601: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2612: (l_mtl_item_tbl(j).serial_number_control_code = 1 AND
2613: l_sr_control in (2,5)) THEN
2614:
2615: IF (l_debug > 0) THEN
2616: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 6,5 or 2 and Receiving is 1');
2617: csi_t_gen_utility_pvt.add('Subtract Trans Qty from In Transit Non Serial Instance');
2618: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
2619: END IF;
2620:
2613: l_sr_control in (2,5)) THEN
2614:
2615: IF (l_debug > 0) THEN
2616: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 6,5 or 2 and Receiving is 1');
2617: csi_t_gen_utility_pvt.add('Subtract Trans Qty from In Transit Non Serial Instance');
2618: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
2619: END IF;
2620:
2621: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
2614:
2615: IF (l_debug > 0) THEN
2616: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 6,5 or 2 and Receiving is 1');
2617: csi_t_gen_utility_pvt.add('Subtract Trans Qty from In Transit Non Serial Instance');
2618: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
2619: END IF;
2620:
2621: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
2622: l_update_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
2623: l_update_instance_rec.quantity := l_src_instance_header_tbl(i).quantity - abs(l_mtl_item_tbl(j).primary_quantity);
2624: l_update_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
2625:
2626: IF (l_debug > 0) THEN
2627: csi_t_gen_utility_pvt.add('After you initialize the Update Record Values');
2628: csi_t_gen_utility_pvt.add('Instance Updated: '||l_update_instance_rec.instance_id);
2629: csi_t_gen_utility_pvt.add('Object Version: '||l_update_instance_rec.object_version_number);
2630: csi_t_gen_utility_pvt.add('New Quantity: '||l_update_instance_rec.quantity);
2631: END IF;
2624: l_update_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
2625:
2626: IF (l_debug > 0) THEN
2627: csi_t_gen_utility_pvt.add('After you initialize the Update Record Values');
2628: csi_t_gen_utility_pvt.add('Instance Updated: '||l_update_instance_rec.instance_id);
2629: csi_t_gen_utility_pvt.add('Object Version: '||l_update_instance_rec.object_version_number);
2630: csi_t_gen_utility_pvt.add('New Quantity: '||l_update_instance_rec.quantity);
2631: END IF;
2632:
2625:
2626: IF (l_debug > 0) THEN
2627: csi_t_gen_utility_pvt.add('After you initialize the Update Record Values');
2628: csi_t_gen_utility_pvt.add('Instance Updated: '||l_update_instance_rec.instance_id);
2629: csi_t_gen_utility_pvt.add('Object Version: '||l_update_instance_rec.object_version_number);
2630: csi_t_gen_utility_pvt.add('New Quantity: '||l_update_instance_rec.quantity);
2631: END IF;
2632:
2633: IF (l_debug > 0) THEN
2626: IF (l_debug > 0) THEN
2627: csi_t_gen_utility_pvt.add('After you initialize the Update Record Values');
2628: csi_t_gen_utility_pvt.add('Instance Updated: '||l_update_instance_rec.instance_id);
2629: csi_t_gen_utility_pvt.add('Object Version: '||l_update_instance_rec.object_version_number);
2630: csi_t_gen_utility_pvt.add('New Quantity: '||l_update_instance_rec.quantity);
2631: END IF;
2632:
2633: IF (l_debug > 0) THEN
2634: csi_t_gen_utility_pvt.add('After you initialize the Transaction Record Values');
2630: csi_t_gen_utility_pvt.add('New Quantity: '||l_update_instance_rec.quantity);
2631: END IF;
2632:
2633: IF (l_debug > 0) THEN
2634: csi_t_gen_utility_pvt.add('After you initialize the Transaction Record Values');
2635: END IF;
2636:
2637: l_party_tbl.delete;
2638: l_account_tbl.delete;
2640: l_org_assignments_tbl.delete;
2641: l_asset_assignment_tbl.delete;
2642:
2643: IF (l_debug > 0) THEN
2644: csi_t_gen_utility_pvt.add('Before Update Item Instance-5');
2645: END IF;
2646:
2647: csi_item_instance_pub.update_item_instance(l_api_version,
2648: l_commit,
2664: l_upd_error_instance_id := NULL;
2665: l_upd_error_instance_id := l_update_instance_rec.instance_id;
2666:
2667: IF (l_debug > 0) THEN
2668: csi_t_gen_utility_pvt.add('After Update Item Instance-10.9');
2669: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
2670: csi_t_gen_utility_pvt.add('You are updating Serial Number: '||l_update_instance_rec.serial_number);
2671: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
2672: END IF;
2665: l_upd_error_instance_id := l_update_instance_rec.instance_id;
2666:
2667: IF (l_debug > 0) THEN
2668: csi_t_gen_utility_pvt.add('After Update Item Instance-10.9');
2669: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
2670: csi_t_gen_utility_pvt.add('You are updating Serial Number: '||l_update_instance_rec.serial_number);
2671: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
2672: END IF;
2673:
2666:
2667: IF (l_debug > 0) THEN
2668: csi_t_gen_utility_pvt.add('After Update Item Instance-10.9');
2669: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
2670: csi_t_gen_utility_pvt.add('You are updating Serial Number: '||l_update_instance_rec.serial_number);
2671: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
2672: END IF;
2673:
2674: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2667: IF (l_debug > 0) THEN
2668: csi_t_gen_utility_pvt.add('After Update Item Instance-10.9');
2669: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
2670: csi_t_gen_utility_pvt.add('You are updating Serial Number: '||l_update_instance_rec.serial_number);
2671: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
2672: END IF;
2673:
2674: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2675: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
2673:
2674: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2675: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
2676: IF (l_debug > 0) THEN
2677: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
2678: END IF;
2679: l_msg_index := 1;
2680: WHILE l_msg_count > 0 loop
2681: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2701: l_organization_id := l_mtl_item_tbl(j).organization_id;
2702: l_locator_id := l_mtl_item_tbl(j).locator_id;
2703:
2704: IF (l_debug > 0) THEN
2705: csi_t_gen_utility_pvt.add('Before Get Dest Item Instance-7');
2706: END IF;
2707:
2708: csi_item_instance_pub.get_item_instances(l_api_version,
2709: l_commit,
2720: l_msg_count,
2721: l_msg_data);
2722:
2723: IF (l_debug > 0) THEN
2724: csi_t_gen_utility_pvt.add('After Get Item Instance-8');
2725: END IF;
2726: l_tbl_count := 0;
2727: l_tbl_count := l_dest_instance_header_tbl.count;
2728: IF (l_debug > 0) THEN
2725: END IF;
2726: l_tbl_count := 0;
2727: l_tbl_count := l_dest_instance_header_tbl.count;
2728: IF (l_debug > 0) THEN
2729: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
2730: END IF;
2731:
2732: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2733: IF NOT l_return_status = l_fnd_success then
2731:
2732: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2733: IF NOT l_return_status = l_fnd_success then
2734: IF (l_debug > 0) THEN
2735: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
2736: END IF;
2737: l_msg_index := 1;
2738: WHILE l_msg_count > 0 loop
2739: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2777:
2778: 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);
2779:
2780: IF (l_debug > 0) THEN
2781: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_new_dest_instance_rec.instance_status_id);
2782: END IF;
2783:
2784: IF (l_debug > 0) THEN
2785: csi_t_gen_utility_pvt.add('Before Create Item Instance-9');
2781: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_new_dest_instance_rec.instance_status_id);
2782: END IF;
2783:
2784: IF (l_debug > 0) THEN
2785: csi_t_gen_utility_pvt.add('Before Create Item Instance-9');
2786: csi_t_gen_utility_pvt.add('In Transit Order Line ID on Dest Rec: '||l_new_dest_instance_rec.last_oe_order_line_id);
2787: END IF;
2788:
2789: csi_item_instance_pub.create_item_instance(l_api_version,
2782: END IF;
2783:
2784: IF (l_debug > 0) THEN
2785: csi_t_gen_utility_pvt.add('Before Create Item Instance-9');
2786: csi_t_gen_utility_pvt.add('In Transit Order Line ID on Dest Rec: '||l_new_dest_instance_rec.last_oe_order_line_id);
2787: END IF;
2788:
2789: csi_item_instance_pub.create_item_instance(l_api_version,
2790: l_commit,
2802: l_msg_count,
2803: l_msg_data);
2804:
2805: IF (l_debug > 0) THEN
2806: csi_t_gen_utility_pvt.add('After Create Item Instance-10');
2807: END IF;
2808: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2809: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
2810: IF (l_debug > 0) THEN
2807: END IF;
2808: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2809: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
2810: IF (l_debug > 0) THEN
2811: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
2812: END IF;
2813: l_msg_index := 1;
2814: WHILE l_msg_count > 0 loop
2815: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2836:
2837: 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);
2838:
2839: IF (l_debug > 0) THEN
2840: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_dest_instance_rec.instance_status_id);
2841: END IF;
2842:
2843: IF (l_debug > 0) THEN
2844: csi_t_gen_utility_pvt.add('Before Update Item Instance-12');
2840: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_dest_instance_rec.instance_status_id);
2841: END IF;
2842:
2843: IF (l_debug > 0) THEN
2844: csi_t_gen_utility_pvt.add('Before Update Item Instance-12');
2845: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
2846: csi_t_gen_utility_pvt.add('Transaction Type ID: '||l_txn_rec.transaction_type_id);
2847: END IF;
2848:
2841: END IF;
2842:
2843: IF (l_debug > 0) THEN
2844: csi_t_gen_utility_pvt.add('Before Update Item Instance-12');
2845: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
2846: csi_t_gen_utility_pvt.add('Transaction Type ID: '||l_txn_rec.transaction_type_id);
2847: END IF;
2848:
2849: csi_item_instance_pub.update_item_instance(l_api_version,
2842:
2843: IF (l_debug > 0) THEN
2844: csi_t_gen_utility_pvt.add('Before Update Item Instance-12');
2845: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
2846: csi_t_gen_utility_pvt.add('Transaction Type ID: '||l_txn_rec.transaction_type_id);
2847: END IF;
2848:
2849: csi_item_instance_pub.update_item_instance(l_api_version,
2850: l_commit,
2866: l_upd_error_instance_id := NULL;
2867: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
2868:
2869: IF (l_debug > 0) THEN
2870: csi_t_gen_utility_pvt.add('After Update Item Instance-13');
2871: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
2872: END IF;
2873:
2874: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2867: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
2868:
2869: IF (l_debug > 0) THEN
2870: csi_t_gen_utility_pvt.add('After Update Item Instance-13');
2871: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
2872: END IF;
2873:
2874: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2875: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
2873:
2874: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2875: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
2876: IF (l_debug > 0) THEN
2877: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
2878: END IF;
2879: l_msg_index := 1;
2880: WHILE l_msg_count > 0 loop
2881: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2887:
2888: ELSIF l_dest_instance_header_tbl.count > 1 THEN
2889: -- Multiple Instances were found so throw error
2890: IF (l_debug > 0) THEN
2891: csi_t_gen_utility_pvt.add('Multiple Instances were Found in Install Base-14');
2892: END IF;
2893: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
2894: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
2895: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
2908: (l_mtl_item_tbl(j).serial_number_control_code = 6 AND
2909: l_sr_control = 6) THEN
2910:
2911: IF (l_debug > 0) THEN
2912: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 2,5 or 6 and Receiving is 6');
2913: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
2914: END IF;
2915:
2916: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
2909: l_sr_control = 6) THEN
2910:
2911: IF (l_debug > 0) THEN
2912: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 2,5 or 6 and Receiving is 6');
2913: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
2914: END IF;
2915:
2916: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
2917: l_update_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
2919:
2920: l_update_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
2921:
2922: IF (l_debug > 0) THEN
2923: csi_t_gen_utility_pvt.add('After you initialize the Update Record Values');
2924: csi_t_gen_utility_pvt.add('Instance Updated: '||l_update_instance_rec.instance_id);
2925: 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'));
2926: csi_t_gen_utility_pvt.add('Object Version: '||l_update_instance_rec.object_version_number);
2927: END IF;
2920: l_update_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
2921:
2922: IF (l_debug > 0) THEN
2923: csi_t_gen_utility_pvt.add('After you initialize the Update Record Values');
2924: csi_t_gen_utility_pvt.add('Instance Updated: '||l_update_instance_rec.instance_id);
2925: 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'));
2926: csi_t_gen_utility_pvt.add('Object Version: '||l_update_instance_rec.object_version_number);
2927: END IF;
2928:
2921:
2922: IF (l_debug > 0) THEN
2923: csi_t_gen_utility_pvt.add('After you initialize the Update Record Values');
2924: csi_t_gen_utility_pvt.add('Instance Updated: '||l_update_instance_rec.instance_id);
2925: 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'));
2926: csi_t_gen_utility_pvt.add('Object Version: '||l_update_instance_rec.object_version_number);
2927: END IF;
2928:
2929: ---- BEGIN New Added
2922: IF (l_debug > 0) THEN
2923: csi_t_gen_utility_pvt.add('After you initialize the Update Record Values');
2924: csi_t_gen_utility_pvt.add('Instance Updated: '||l_update_instance_rec.instance_id);
2925: 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'));
2926: csi_t_gen_utility_pvt.add('Object Version: '||l_update_instance_rec.object_version_number);
2927: END IF;
2928:
2929: ---- BEGIN New Added
2930: --Added for Bug 5975739
2937: l_update_instance_rec.location_type_code := csi_inv_trxs_pkg.get_location_type_code('Inventory');
2938: l_update_instance_rec.instance_usage_code := l_returned;
2939:
2940: IF (l_debug > 0) THEN
2941: csi_t_gen_utility_pvt.add('Setting In Transit Serialized Instance to be RETURNED usage');
2942: csi_t_gen_utility_pvt.add('Usage: '||l_update_instance_rec.instance_usage_code);
2943: csi_t_gen_utility_pvt.add('VLD Org: '||l_update_instance_rec.vld_organization_id);
2944: csi_t_gen_utility_pvt.add('INV Org: '||l_update_instance_rec.inv_organization_id);
2945: csi_t_gen_utility_pvt.add('Subinv Code: '||l_update_instance_rec.inv_subinventory_name);
2938: l_update_instance_rec.instance_usage_code := l_returned;
2939:
2940: IF (l_debug > 0) THEN
2941: csi_t_gen_utility_pvt.add('Setting In Transit Serialized Instance to be RETURNED usage');
2942: csi_t_gen_utility_pvt.add('Usage: '||l_update_instance_rec.instance_usage_code);
2943: csi_t_gen_utility_pvt.add('VLD Org: '||l_update_instance_rec.vld_organization_id);
2944: csi_t_gen_utility_pvt.add('INV Org: '||l_update_instance_rec.inv_organization_id);
2945: csi_t_gen_utility_pvt.add('Subinv Code: '||l_update_instance_rec.inv_subinventory_name);
2946: END IF;
2939:
2940: IF (l_debug > 0) THEN
2941: csi_t_gen_utility_pvt.add('Setting In Transit Serialized Instance to be RETURNED usage');
2942: csi_t_gen_utility_pvt.add('Usage: '||l_update_instance_rec.instance_usage_code);
2943: csi_t_gen_utility_pvt.add('VLD Org: '||l_update_instance_rec.vld_organization_id);
2944: csi_t_gen_utility_pvt.add('INV Org: '||l_update_instance_rec.inv_organization_id);
2945: csi_t_gen_utility_pvt.add('Subinv Code: '||l_update_instance_rec.inv_subinventory_name);
2946: END IF;
2947:
2940: IF (l_debug > 0) THEN
2941: csi_t_gen_utility_pvt.add('Setting In Transit Serialized Instance to be RETURNED usage');
2942: csi_t_gen_utility_pvt.add('Usage: '||l_update_instance_rec.instance_usage_code);
2943: csi_t_gen_utility_pvt.add('VLD Org: '||l_update_instance_rec.vld_organization_id);
2944: csi_t_gen_utility_pvt.add('INV Org: '||l_update_instance_rec.inv_organization_id);
2945: csi_t_gen_utility_pvt.add('Subinv Code: '||l_update_instance_rec.inv_subinventory_name);
2946: END IF;
2947:
2948: ---- END NEW ADDED
2941: csi_t_gen_utility_pvt.add('Setting In Transit Serialized Instance to be RETURNED usage');
2942: csi_t_gen_utility_pvt.add('Usage: '||l_update_instance_rec.instance_usage_code);
2943: csi_t_gen_utility_pvt.add('VLD Org: '||l_update_instance_rec.vld_organization_id);
2944: csi_t_gen_utility_pvt.add('INV Org: '||l_update_instance_rec.inv_organization_id);
2945: csi_t_gen_utility_pvt.add('Subinv Code: '||l_update_instance_rec.inv_subinventory_name);
2946: END IF;
2947:
2948: ---- END NEW ADDED
2949:
2953: l_org_assignments_tbl.delete;
2954: l_asset_assignment_tbl.delete;
2955:
2956: IF (l_debug > 0) THEN
2957: csi_t_gen_utility_pvt.add('Before Update Item Instance-18');
2958: END IF;
2959:
2960: csi_item_instance_pub.update_item_instance(l_api_version,
2961: l_commit,
2977: l_upd_error_instance_id := NULL;
2978: l_upd_error_instance_id := l_update_instance_rec.instance_id;
2979:
2980: IF (l_debug > 0) THEN
2981: csi_t_gen_utility_pvt.add('After Update Item Instance-19');
2982: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
2983: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
2984: END IF;
2985:
2978: l_upd_error_instance_id := l_update_instance_rec.instance_id;
2979:
2980: IF (l_debug > 0) THEN
2981: csi_t_gen_utility_pvt.add('After Update Item Instance-19');
2982: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
2983: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
2984: END IF;
2985:
2986: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2979:
2980: IF (l_debug > 0) THEN
2981: csi_t_gen_utility_pvt.add('After Update Item Instance-19');
2982: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
2983: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
2984: END IF;
2985:
2986: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2987: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
2985:
2986: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
2987: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
2988: IF (l_debug > 0) THEN
2989: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
2990: END IF;
2991: l_msg_index := 1;
2992: WHILE l_msg_count > 0 loop
2993: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
2999:
3000: IF j = 1 THEN -- Update Source Since its Non Serialized 1 Time
3001:
3002: IF (l_debug > 0) THEN
3003: csi_t_gen_utility_pvt.add('Update/Create Non Serial Dest 1 time with Transaction Quantity');
3004: END IF;
3005:
3006: -- Now Query for Dest Non Serialized Instances and Update (Unexpire)/ Create Instances
3007: l_instance_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
3018: l_organization_id := l_mtl_item_tbl(j).organization_id;
3019: l_locator_id := l_mtl_item_tbl(j).locator_id;
3020:
3021: IF (l_debug > 0) THEN
3022: csi_t_gen_utility_pvt.add('Before Get Dest Item Instance-20');
3023: END IF;
3024:
3025: csi_item_instance_pub.get_item_instances(l_api_version,
3026: l_commit,
3037: l_msg_count,
3038: l_msg_data);
3039:
3040: IF (l_debug > 0) THEN
3041: csi_t_gen_utility_pvt.add('After Get Item Instance-21');
3042: END IF;
3043: l_tbl_count := 0;
3044: l_tbl_count := l_dest_instance_header_tbl.count;
3045: IF (l_debug > 0) THEN
3042: END IF;
3043: l_tbl_count := 0;
3044: l_tbl_count := l_dest_instance_header_tbl.count;
3045: IF (l_debug > 0) THEN
3046: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
3047: END IF;
3048:
3049: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3050: IF NOT l_return_status = l_fnd_success then
3048:
3049: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3050: IF NOT l_return_status = l_fnd_success then
3051: IF (l_debug > 0) THEN
3052: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
3053: END IF;
3054: l_msg_index := 1;
3055: WHILE l_msg_count > 0 loop
3056: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3095:
3096: 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);
3097:
3098: IF (l_debug > 0) THEN
3099: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_new_dest_instance_rec.instance_status_id);
3100: END IF;
3101:
3102: IF (l_debug > 0) THEN
3103: csi_t_gen_utility_pvt.add('Before Create Item Instance-22');
3099: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_new_dest_instance_rec.instance_status_id);
3100: END IF;
3101:
3102: IF (l_debug > 0) THEN
3103: csi_t_gen_utility_pvt.add('Before Create Item Instance-22');
3104: csi_t_gen_utility_pvt.add('In Transit Order Line ID on Dest Rec: '||l_new_dest_instance_rec.last_oe_order_line_id);
3105: END IF;
3106:
3107: csi_item_instance_pub.create_item_instance(l_api_version,
3100: END IF;
3101:
3102: IF (l_debug > 0) THEN
3103: csi_t_gen_utility_pvt.add('Before Create Item Instance-22');
3104: csi_t_gen_utility_pvt.add('In Transit Order Line ID on Dest Rec: '||l_new_dest_instance_rec.last_oe_order_line_id);
3105: END IF;
3106:
3107: csi_item_instance_pub.create_item_instance(l_api_version,
3108: l_commit,
3120: l_msg_count,
3121: l_msg_data);
3122:
3123: IF (l_debug > 0) THEN
3124: csi_t_gen_utility_pvt.add('After Create Item Instance-23');
3125: END IF;
3126:
3127: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3128:
3127: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3128:
3129: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3130: IF (l_debug > 0) THEN
3131: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
3132: END IF;
3133: l_msg_index := 1;
3134: WHILE l_msg_count > 0 loop
3135: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3156:
3157: 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);
3158:
3159: IF (l_debug > 0) THEN
3160: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_dest_instance_rec.instance_status_id);
3161: END IF;
3162:
3163: IF (l_debug > 0) THEN
3164: csi_t_gen_utility_pvt.add('Before Update Item Instance-25');
3160: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_dest_instance_rec.instance_status_id);
3161: END IF;
3162:
3163: IF (l_debug > 0) THEN
3164: csi_t_gen_utility_pvt.add('Before Update Item Instance-25');
3165: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
3166: END IF;
3167:
3168: csi_item_instance_pub.update_item_instance(l_api_version,
3161: END IF;
3162:
3163: IF (l_debug > 0) THEN
3164: csi_t_gen_utility_pvt.add('Before Update Item Instance-25');
3165: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
3166: END IF;
3167:
3168: csi_item_instance_pub.update_item_instance(l_api_version,
3169: l_commit,
3185: l_upd_error_instance_id := NULL;
3186: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
3187:
3188: IF (l_debug > 0) THEN
3189: csi_t_gen_utility_pvt.add('After Update Item Instance-26');
3190: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
3191: END IF;
3192:
3193: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3186: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
3187:
3188: IF (l_debug > 0) THEN
3189: csi_t_gen_utility_pvt.add('After Update Item Instance-26');
3190: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
3191: END IF;
3192:
3193: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3194: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3192:
3193: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3194: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3195: IF (l_debug > 0) THEN
3196: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
3197: END IF;
3198: l_msg_index := 1;
3199: WHILE l_msg_count > 0 loop
3200: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3206:
3207: ELSIF l_dest_instance_header_tbl.count > 1 THEN
3208: -- Multiple Instances were found so throw error
3209: IF (l_debug > 0) THEN
3210: csi_t_gen_utility_pvt.add('Multiple Instances were Found in Install Base-28');
3211: END IF;
3212: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
3213: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
3214: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
3223: ELSIF (l_mtl_item_tbl(j).serial_number_control_code in (6,1) AND
3224: l_sr_control = 1) THEN
3225:
3226: IF (l_debug > 0) THEN
3227: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 1 and Receiving is 6 or 1');
3228: csi_t_gen_utility_pvt.add('Source Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
3229: END IF;
3230:
3231: l_upd_src_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
3224: l_sr_control = 1) THEN
3225:
3226: IF (l_debug > 0) THEN
3227: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 1 and Receiving is 6 or 1');
3228: csi_t_gen_utility_pvt.add('Source Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
3229: END IF;
3230:
3231: l_upd_src_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
3232: l_upd_src_dest_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
3239: l_org_assignments_tbl.delete;
3240: l_asset_assignment_tbl.delete;
3241:
3242: IF (l_debug > 0) THEN
3243: csi_t_gen_utility_pvt.add('Before Update Item Instance-31');
3244: END IF;
3245:
3246: csi_item_instance_pub.update_item_instance(l_api_version,
3247: l_commit,
3263: l_upd_error_instance_id := NULL;
3264: l_upd_error_instance_id := l_upd_src_dest_instance_rec.instance_id;
3265:
3266: IF (l_debug > 0) THEN
3267: csi_t_gen_utility_pvt.add('After Update Item Instance-32');
3268: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
3269: END IF;
3270:
3271: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3264: l_upd_error_instance_id := l_upd_src_dest_instance_rec.instance_id;
3265:
3266: IF (l_debug > 0) THEN
3267: csi_t_gen_utility_pvt.add('After Update Item Instance-32');
3268: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
3269: END IF;
3270:
3271: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3272: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3270:
3271: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3272: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3273: IF (l_debug > 0) THEN
3274: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
3275: END IF;
3276: l_msg_index := 1;
3277: WHILE l_msg_count > 0 loop
3278: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3297: l_organization_id := l_mtl_item_tbl(j).organization_id;
3298: l_locator_id := l_mtl_item_tbl(j).locator_id;
3299:
3300: IF (l_debug > 0) THEN
3301: csi_t_gen_utility_pvt.add('Before Get Dest Item Instance-33');
3302: END IF;
3303:
3304: csi_item_instance_pub.get_item_instances(l_api_version,
3305: l_commit,
3316: l_msg_count,
3317: l_msg_data);
3318:
3319: IF (l_debug > 0) THEN
3320: csi_t_gen_utility_pvt.add('After Get Item Instance-34');
3321: END IF;
3322: l_tbl_count := 0;
3323: l_tbl_count := l_dest_instance_header_tbl.count;
3324: IF (l_debug > 0) THEN
3321: END IF;
3322: l_tbl_count := 0;
3323: l_tbl_count := l_dest_instance_header_tbl.count;
3324: IF (l_debug > 0) THEN
3325: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
3326: END IF;
3327:
3328: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3329: IF NOT l_return_status = l_fnd_success then
3327:
3328: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3329: IF NOT l_return_status = l_fnd_success then
3330: IF (l_debug > 0) THEN
3331: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
3332: END IF;
3333: l_msg_index := 1;
3334: WHILE l_msg_count > 0 loop
3335: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3373:
3374: 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);
3375:
3376: IF (l_debug > 0) THEN
3377: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_new_dest_instance_rec.instance_status_id);
3378: END IF;
3379:
3380: IF (l_debug > 0) THEN
3381: csi_t_gen_utility_pvt.add('Before Create Item Instance-35');
3377: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_new_dest_instance_rec.instance_status_id);
3378: END IF;
3379:
3380: IF (l_debug > 0) THEN
3381: csi_t_gen_utility_pvt.add('Before Create Item Instance-35');
3382: csi_t_gen_utility_pvt.add('In Transit Order Line ID on Dest Rec: '||l_new_dest_instance_rec.last_oe_order_line_id);
3383: END IF;
3384:
3385: csi_item_instance_pub.create_item_instance(l_api_version,
3378: END IF;
3379:
3380: IF (l_debug > 0) THEN
3381: csi_t_gen_utility_pvt.add('Before Create Item Instance-35');
3382: csi_t_gen_utility_pvt.add('In Transit Order Line ID on Dest Rec: '||l_new_dest_instance_rec.last_oe_order_line_id);
3383: END IF;
3384:
3385: csi_item_instance_pub.create_item_instance(l_api_version,
3386: l_commit,
3398: l_msg_count,
3399: l_msg_data);
3400:
3401: IF (l_debug > 0) THEN
3402: csi_t_gen_utility_pvt.add('After Create Item Instance-36');
3403: END IF;
3404: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3405:
3406: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3404: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3405:
3406: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3407: IF (l_debug > 0) THEN
3408: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
3409: END IF;
3410: l_msg_index := 1;
3411: WHILE l_msg_count > 0 loop
3412: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3433:
3434: 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);
3435:
3436: IF (l_debug > 0) THEN
3437: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_dest_instance_rec.instance_status_id);
3438: END IF;
3439:
3440: IF (l_debug > 0) THEN
3441: csi_t_gen_utility_pvt.add('Before Update Item Instance-37');
3437: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_dest_instance_rec.instance_status_id);
3438: END IF;
3439:
3440: IF (l_debug > 0) THEN
3441: csi_t_gen_utility_pvt.add('Before Update Item Instance-37');
3442: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
3443: END IF;
3444:
3445: csi_item_instance_pub.update_item_instance(l_api_version,
3438: END IF;
3439:
3440: IF (l_debug > 0) THEN
3441: csi_t_gen_utility_pvt.add('Before Update Item Instance-37');
3442: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
3443: END IF;
3444:
3445: csi_item_instance_pub.update_item_instance(l_api_version,
3446: l_commit,
3462: l_upd_error_instance_id := NULL;
3463: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
3464:
3465: IF (l_debug > 0) THEN
3466: csi_t_gen_utility_pvt.add('After Update Item Instance-38');
3467: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
3468: END IF;
3469:
3470: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3463: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
3464:
3465: IF (l_debug > 0) THEN
3466: csi_t_gen_utility_pvt.add('After Update Item Instance-38');
3467: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
3468: END IF;
3469:
3470: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3471: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3469:
3470: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3471: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3472: IF (l_debug > 0) THEN
3473: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
3474: END IF;
3475: l_msg_index := 1;
3476: WHILE l_msg_count > 0 loop
3477: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3484: ELSIF l_dest_instance_header_tbl.count > 1 THEN
3485: -- Multiple Instances were found so throw error
3486:
3487: IF (l_debug > 0) THEN
3488: csi_t_gen_utility_pvt.add('Multiple Instances were Found in Install Base-43');
3489: END IF;
3490: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
3491: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
3492: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
3503:
3504: l_12_loop := 1;
3505:
3506: IF (l_debug > 0) THEN
3507: csi_t_gen_utility_pvt.add('Setting l_12_loop: '||l_12_loop);
3508: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 1 and Receiving is 2,5');
3509: END IF;
3510:
3511: IF j = 1 THEN -- Update Source Since its Non Serialized 1 Time
3504: l_12_loop := 1;
3505:
3506: IF (l_debug > 0) THEN
3507: csi_t_gen_utility_pvt.add('Setting l_12_loop: '||l_12_loop);
3508: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 1 and Receiving is 2,5');
3509: END IF;
3510:
3511: IF j = 1 THEN -- Update Source Since its Non Serialized 1 Time
3512:
3510:
3511: IF j = 1 THEN -- Update Source Since its Non Serialized 1 Time
3512:
3513: IF (l_debug > 0) THEN
3514: csi_t_gen_utility_pvt.add('Source Instance being updated 1 time: '||l_src_instance_header_tbl(i).instance_id);
3515:
3516: END IF;
3517:
3518: l_upd_src_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
3526: l_org_assignments_tbl.delete;
3527: l_asset_assignment_tbl.delete;
3528:
3529: IF (l_debug > 0) THEN
3530: csi_t_gen_utility_pvt.add('Before Update Item Instance-43');
3531: END IF;
3532:
3533: csi_item_instance_pub.update_item_instance(l_api_version,
3534: l_commit,
3550: l_upd_error_instance_id := NULL;
3551: l_upd_error_instance_id := l_upd_src_dest_instance_rec.instance_id;
3552:
3553: IF (l_debug > 0) THEN
3554: csi_t_gen_utility_pvt.add('After Update Item Instance-44');
3555: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
3556: END IF;
3557:
3558: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3551: l_upd_error_instance_id := l_upd_src_dest_instance_rec.instance_id;
3552:
3553: IF (l_debug > 0) THEN
3554: csi_t_gen_utility_pvt.add('After Update Item Instance-44');
3555: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
3556: END IF;
3557:
3558: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3559: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3557:
3558: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3559: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3560: IF (l_debug > 0) THEN
3561: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
3562: END IF;
3563: l_msg_index := 1;
3564: WHILE l_msg_count > 0 loop
3565: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3586: l_organization_id := l_mtl_item_tbl(j).organization_id;
3587: l_locator_id := l_mtl_item_tbl(j).locator_id;
3588:
3589: IF (l_debug > 0) THEN
3590: csi_t_gen_utility_pvt.add('Before Get Dest Item Instance-45');
3591: END IF;
3592:
3593: csi_item_instance_pub.get_item_instances(l_api_version,
3594: l_commit,
3605: l_msg_count,
3606: l_msg_data);
3607:
3608: IF (l_debug > 0) THEN
3609: csi_t_gen_utility_pvt.add('After Get Item Instance-46');
3610: END IF;
3611: l_tbl_count := 0;
3612: l_tbl_count := l_dest_instance_header_tbl.count;
3613: IF (l_debug > 0) THEN
3610: END IF;
3611: l_tbl_count := 0;
3612: l_tbl_count := l_dest_instance_header_tbl.count;
3613: IF (l_debug > 0) THEN
3614: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
3615: END IF;
3616:
3617: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3618: IF NOT l_return_status = l_fnd_success then
3616:
3617: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3618: IF NOT l_return_status = l_fnd_success then
3619: IF (l_debug > 0) THEN
3620: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
3621: END IF;
3622: l_msg_index := 1;
3623: WHILE l_msg_count > 0 loop
3624: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3663:
3664: 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);
3665:
3666: IF (l_debug > 0) THEN
3667: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_new_dest_instance_rec.instance_status_id);
3668: END IF;
3669:
3670: IF (l_debug > 0) THEN
3671: csi_t_gen_utility_pvt.add('Before Create Item Instance-47');
3667: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_new_dest_instance_rec.instance_status_id);
3668: END IF;
3669:
3670: IF (l_debug > 0) THEN
3671: csi_t_gen_utility_pvt.add('Before Create Item Instance-47');
3672: csi_t_gen_utility_pvt.add('In Transit Order Line ID on Dest Rec: '||l_new_dest_instance_rec.last_oe_order_line_id);
3673: END IF;
3674:
3675: csi_item_instance_pub.create_item_instance(l_api_version,
3668: END IF;
3669:
3670: IF (l_debug > 0) THEN
3671: csi_t_gen_utility_pvt.add('Before Create Item Instance-47');
3672: csi_t_gen_utility_pvt.add('In Transit Order Line ID on Dest Rec: '||l_new_dest_instance_rec.last_oe_order_line_id);
3673: END IF;
3674:
3675: csi_item_instance_pub.create_item_instance(l_api_version,
3676: l_commit,
3688: l_msg_count,
3689: l_msg_data);
3690:
3691: IF (l_debug > 0) THEN
3692: csi_t_gen_utility_pvt.add('After Create Item Instance-48');
3693: END IF;
3694: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3695:
3696: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3694: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3695:
3696: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3697: IF (l_debug > 0) THEN
3698: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
3699: END IF;
3700: l_msg_index := 1;
3701: WHILE l_msg_count > 0 loop
3702: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3708:
3709: ELSIF l_dest_instance_header_tbl.count = 1 THEN -- Installed Base Destination Records Found
3710:
3711: IF (l_debug > 0) THEN
3712: csi_t_gen_utility_pvt.add('Serialized Instance found-48.1');
3713: END IF;
3714:
3715: 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
3716:
3714:
3715: 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
3716:
3717: IF (l_debug > 0) THEN
3718: csi_t_gen_utility_pvt.add('Usage Code is: '||l_dest_instance_header_tbl(i).instance_usage_code);
3719: END IF;
3720:
3721: IF l_dest_instance_header_tbl(i).instance_usage_code = l_in_relationship THEN
3722: csi_t_gen_utility_pvt.add('Check and Break Relationship for Instance :'||l_dest_instance_header_tbl(i).instance_id);
3718: csi_t_gen_utility_pvt.add('Usage Code is: '||l_dest_instance_header_tbl(i).instance_usage_code);
3719: END IF;
3720:
3721: IF l_dest_instance_header_tbl(i).instance_usage_code = l_in_relationship THEN
3722: csi_t_gen_utility_pvt.add('Check and Break Relationship for Instance :'||l_dest_instance_header_tbl(i).instance_id);
3723:
3724: csi_process_txn_pvt.check_and_break_relation(l_dest_instance_header_tbl(i).instance_id,
3725: l_txn_rec,
3726: l_return_status);
3725: l_txn_rec,
3726: l_return_status);
3727:
3728: IF NOT l_return_status = l_fnd_success then
3729: csi_t_gen_utility_pvt.add('You encountered an error in the se_inv_trxs_pkg.check_and_break_relation');
3730: l_error_message := csi_t_gen_utility_pvt.dump_error_stack;
3731: RAISE fnd_api.g_exc_error;
3732: END IF;
3733:
3726: l_return_status);
3727:
3728: IF NOT l_return_status = l_fnd_success then
3729: csi_t_gen_utility_pvt.add('You encountered an error in the se_inv_trxs_pkg.check_and_break_relation');
3730: l_error_message := csi_t_gen_utility_pvt.dump_error_stack;
3731: RAISE fnd_api.g_exc_error;
3732: END IF;
3733:
3734: csi_t_gen_utility_pvt.add('Object Version originally from instance: '||l_dest_instance_header_tbl(i).object_version_number);
3730: l_error_message := csi_t_gen_utility_pvt.dump_error_stack;
3731: RAISE fnd_api.g_exc_error;
3732: END IF;
3733:
3734: csi_t_gen_utility_pvt.add('Object Version originally from instance: '||l_dest_instance_header_tbl(i).object_version_number);
3735:
3736: OPEN c_obj_version (l_dest_instance_header_tbl(i).instance_id);
3737: FETCH c_obj_version into l_dest_instance_header_tbl(i).object_version_number;
3738: CLOSE c_obj_version;
3736: OPEN c_obj_version (l_dest_instance_header_tbl(i).instance_id);
3737: FETCH c_obj_version into l_dest_instance_header_tbl(i).object_version_number;
3738: CLOSE c_obj_version;
3739:
3740: csi_t_gen_utility_pvt.add('Current Object Version after check and break :'||l_dest_instance_header_tbl(i).object_version_number);
3741:
3742: END IF; -- Check and Break
3743:
3744:
3766: -- We want to change the party of this back
3767: -- to the Internal Party
3768:
3769: IF (l_debug > 0) THEN
3770: 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');
3771: END IF;
3772:
3773: -- Set Instance ID so it will query the child recs for this
3774: -- Instance.
3808:
3809: FOR p in l_party_header_tbl.FIRST .. l_party_header_tbl.LAST LOOP
3810: IF l_party_header_tbl(p).relationship_type_code = 'OWNER' THEN
3811: IF (l_debug > 0) THEN
3812: csi_t_gen_utility_pvt.add('Found the OWNER party so updating this back to the Internal Party ID');
3813: END IF;
3814:
3815: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
3816: l_party_tbl(i).instance_id := l_dest_instance_header_tbl(i).instance_id;
3816: l_party_tbl(i).instance_id := l_dest_instance_header_tbl(i).instance_id;
3817: l_party_tbl(i).instance_party_id := l_party_header_tbl(p).instance_party_id;
3818: l_party_tbl(i).object_version_number := l_party_header_tbl(p).object_version_number;
3819: IF (l_debug > 0) THEN
3820: csi_t_gen_utility_pvt.add('After finding the OWNER party and updating this back to the Internal Party ID');
3821: END IF;
3822: END IF;
3823: END LOOP;
3824:
3822: END IF;
3823: END LOOP;
3824:
3825: IF (l_debug > 0) THEN
3826: csi_t_gen_utility_pvt.add('Inst Party ID :'||l_party_tbl(i).instance_party_id);
3827: csi_t_gen_utility_pvt.add('Party Inst ID :'||l_party_tbl(i).instance_id);
3828: csi_t_gen_utility_pvt.add('Party Source Table :'||l_party_tbl(i).party_source_table);
3829: csi_t_gen_utility_pvt.add('Party ID :'||l_party_tbl(i).party_id);
3830: csi_t_gen_utility_pvt.add('Rel Type Code :'||l_party_tbl(i).relationship_type_code);
3823: END LOOP;
3824:
3825: IF (l_debug > 0) THEN
3826: csi_t_gen_utility_pvt.add('Inst Party ID :'||l_party_tbl(i).instance_party_id);
3827: csi_t_gen_utility_pvt.add('Party Inst ID :'||l_party_tbl(i).instance_id);
3828: csi_t_gen_utility_pvt.add('Party Source Table :'||l_party_tbl(i).party_source_table);
3829: csi_t_gen_utility_pvt.add('Party ID :'||l_party_tbl(i).party_id);
3830: csi_t_gen_utility_pvt.add('Rel Type Code :'||l_party_tbl(i).relationship_type_code);
3831: csi_t_gen_utility_pvt.add('Contact Flag :'||l_party_tbl(i).contact_flag);
3824:
3825: IF (l_debug > 0) THEN
3826: csi_t_gen_utility_pvt.add('Inst Party ID :'||l_party_tbl(i).instance_party_id);
3827: csi_t_gen_utility_pvt.add('Party Inst ID :'||l_party_tbl(i).instance_id);
3828: csi_t_gen_utility_pvt.add('Party Source Table :'||l_party_tbl(i).party_source_table);
3829: csi_t_gen_utility_pvt.add('Party ID :'||l_party_tbl(i).party_id);
3830: csi_t_gen_utility_pvt.add('Rel Type Code :'||l_party_tbl(i).relationship_type_code);
3831: csi_t_gen_utility_pvt.add('Contact Flag :'||l_party_tbl(i).contact_flag);
3832: csi_t_gen_utility_pvt.add('Object Version Number:' ||l_party_tbl(i).object_version_number);
3825: IF (l_debug > 0) THEN
3826: csi_t_gen_utility_pvt.add('Inst Party ID :'||l_party_tbl(i).instance_party_id);
3827: csi_t_gen_utility_pvt.add('Party Inst ID :'||l_party_tbl(i).instance_id);
3828: csi_t_gen_utility_pvt.add('Party Source Table :'||l_party_tbl(i).party_source_table);
3829: csi_t_gen_utility_pvt.add('Party ID :'||l_party_tbl(i).party_id);
3830: csi_t_gen_utility_pvt.add('Rel Type Code :'||l_party_tbl(i).relationship_type_code);
3831: csi_t_gen_utility_pvt.add('Contact Flag :'||l_party_tbl(i).contact_flag);
3832: csi_t_gen_utility_pvt.add('Object Version Number:' ||l_party_tbl(i).object_version_number);
3833: END IF;
3826: csi_t_gen_utility_pvt.add('Inst Party ID :'||l_party_tbl(i).instance_party_id);
3827: csi_t_gen_utility_pvt.add('Party Inst ID :'||l_party_tbl(i).instance_id);
3828: csi_t_gen_utility_pvt.add('Party Source Table :'||l_party_tbl(i).party_source_table);
3829: csi_t_gen_utility_pvt.add('Party ID :'||l_party_tbl(i).party_id);
3830: csi_t_gen_utility_pvt.add('Rel Type Code :'||l_party_tbl(i).relationship_type_code);
3831: csi_t_gen_utility_pvt.add('Contact Flag :'||l_party_tbl(i).contact_flag);
3832: csi_t_gen_utility_pvt.add('Object Version Number:' ||l_party_tbl(i).object_version_number);
3833: END IF;
3834:
3827: csi_t_gen_utility_pvt.add('Party Inst ID :'||l_party_tbl(i).instance_id);
3828: csi_t_gen_utility_pvt.add('Party Source Table :'||l_party_tbl(i).party_source_table);
3829: csi_t_gen_utility_pvt.add('Party ID :'||l_party_tbl(i).party_id);
3830: csi_t_gen_utility_pvt.add('Rel Type Code :'||l_party_tbl(i).relationship_type_code);
3831: csi_t_gen_utility_pvt.add('Contact Flag :'||l_party_tbl(i).contact_flag);
3832: csi_t_gen_utility_pvt.add('Object Version Number:' ||l_party_tbl(i).object_version_number);
3833: END IF;
3834:
3835: ELSE
3828: csi_t_gen_utility_pvt.add('Party Source Table :'||l_party_tbl(i).party_source_table);
3829: csi_t_gen_utility_pvt.add('Party ID :'||l_party_tbl(i).party_id);
3830: csi_t_gen_utility_pvt.add('Rel Type Code :'||l_party_tbl(i).relationship_type_code);
3831: csi_t_gen_utility_pvt.add('Contact Flag :'||l_party_tbl(i).contact_flag);
3832: csi_t_gen_utility_pvt.add('Object Version Number:' ||l_party_tbl(i).object_version_number);
3833: END IF;
3834:
3835: ELSE
3836:
3845:
3846: 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);
3847:
3848: IF (l_debug > 0) THEN
3849: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_dest_instance_rec.instance_status_id);
3850: END IF;
3851:
3852: IF (l_debug > 0) THEN
3853: csi_t_gen_utility_pvt.add('Before Update Item Instance-49');
3849: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_dest_instance_rec.instance_status_id);
3850: END IF;
3851:
3852: IF (l_debug > 0) THEN
3853: csi_t_gen_utility_pvt.add('Before Update Item Instance-49');
3854: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
3855: END IF;
3856:
3857: csi_item_instance_pub.update_item_instance(l_api_version,
3850: END IF;
3851:
3852: IF (l_debug > 0) THEN
3853: csi_t_gen_utility_pvt.add('Before Update Item Instance-49');
3854: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
3855: END IF;
3856:
3857: csi_item_instance_pub.update_item_instance(l_api_version,
3858: l_commit,
3874: l_upd_error_instance_id := NULL;
3875: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
3876:
3877: IF (l_debug > 0) THEN
3878: csi_t_gen_utility_pvt.add('After Update Item Instance-50');
3879: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
3880: END IF;
3881:
3882: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3875: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
3876:
3877: IF (l_debug > 0) THEN
3878: csi_t_gen_utility_pvt.add('After Update Item Instance-50');
3879: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
3880: END IF;
3881:
3882: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3883: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3881:
3882: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
3883: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
3884: IF (l_debug > 0) THEN
3885: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
3886: END IF;
3887: l_msg_index := 1;
3888: WHILE l_msg_count > 0 loop
3889: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
3894: END IF;
3895:
3896: ELSE -- No Records Found So throw Error
3897: IF (l_debug > 0) THEN
3898: csi_t_gen_utility_pvt.add('No Records were found in Install Base-55');
3899: END IF;
3900:
3901: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3902: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3909: ELSIF l_dest_instance_header_tbl.count > 1 THEN
3910:
3911: -- Multiple Instances were found so throw error
3912: IF (l_debug > 0) THEN
3913: csi_t_gen_utility_pvt.add('Multiple Instances were Found in Install Base-54');
3914: END IF;
3915: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
3916: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
3917: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
3925: END IF; -- Serial Control IF
3926:
3927: ELSE -- No IB Records Found So throw Error
3928: IF (l_debug > 0) THEN
3929: csi_t_gen_utility_pvt.add('No Records were found in Install Base to receive-55');
3930: END IF;
3931: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
3932: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
3933: fnd_message.set_token('SUBINVENTORY',l_mtl_item_tbl(j).subinventory_code);
3937: END IF; -- End of Main Source Header Tbl IF
3938: END LOOP; -- End of For Loop
3939:
3940: IF (l_debug > 0) THEN
3941: csi_t_gen_utility_pvt.add('End time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
3942: csi_t_gen_utility_pvt.add('******End of csi_inv_iso_pkg.iso_receipt Transaction******');
3943: END IF;
3944:
3945: EXCEPTION
3938: END LOOP; -- End of For Loop
3939:
3940: IF (l_debug > 0) THEN
3941: csi_t_gen_utility_pvt.add('End time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
3942: csi_t_gen_utility_pvt.add('******End of csi_inv_iso_pkg.iso_receipt Transaction******');
3943: END IF;
3944:
3945: EXCEPTION
3946: WHEN fnd_api.g_exc_error THEN
3944:
3945: EXCEPTION
3946: WHEN fnd_api.g_exc_error THEN
3947: IF (l_debug > 0) THEN
3948: csi_t_gen_utility_pvt.add('You have encountered a "fnd_api.g_exc_error" exception in the Internal Order In Transit Receipt');
3949: END IF;
3950: x_return_status := l_fnd_error;
3951:
3952: IF l_mtl_item_tbl.count > 0 THEN
3977:
3978: WHEN others THEN
3979: l_sql_error := SQLERRM;
3980: IF (l_debug > 0) THEN
3981: csi_t_gen_utility_pvt.add('You have encountered a "when others" exception in the Internal Order In Transit Receipt');
3982: csi_t_gen_utility_pvt.add('SQL Error: '||l_sql_error);
3983: END IF;
3984: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
3985: fnd_message.set_token('API_NAME',l_api_name);
3978: WHEN others THEN
3979: l_sql_error := SQLERRM;
3980: IF (l_debug > 0) THEN
3981: csi_t_gen_utility_pvt.add('You have encountered a "when others" exception in the Internal Order In Transit Receipt');
3982: csi_t_gen_utility_pvt.add('SQL Error: '||l_sql_error);
3983: END IF;
3984: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
3985: fnd_message.set_token('API_NAME',l_api_name);
3986: fnd_message.set_token('SQL_ERROR',SQLERRM);
4007: x_trx_error_rec.transaction_id := NULL;
4008: x_trx_error_rec.source_type := 'CSIINTSR';
4009: x_trx_error_rec.source_id := p_transaction_id;
4010: x_trx_error_rec.processed_flag := csi_inv_trxs_pkg.g_txn_error;
4011: csi_t_gen_utility_pvt.add('ID_ISO1: '||csi_inv_trxs_pkg.get_txn_type_id(l_trans_type_code,l_trans_app_code));
4012: x_trx_error_rec.transaction_type_id := csi_inv_trxs_pkg.get_txn_type_id(l_trans_type_code,l_trans_app_code);
4013: csi_t_gen_utility_pvt.add('ID_ISO2: '||csi_inv_trxs_pkg.get_txn_type_id(l_trans_type_code,l_trans_app_code));
4014: x_trx_error_rec.inv_material_transaction_id := p_transaction_id;
4015: x_trx_error_rec.error_stage := csi_inv_trxs_pkg.g_ib_update;
4009: x_trx_error_rec.source_id := p_transaction_id;
4010: x_trx_error_rec.processed_flag := csi_inv_trxs_pkg.g_txn_error;
4011: csi_t_gen_utility_pvt.add('ID_ISO1: '||csi_inv_trxs_pkg.get_txn_type_id(l_trans_type_code,l_trans_app_code));
4012: x_trx_error_rec.transaction_type_id := csi_inv_trxs_pkg.get_txn_type_id(l_trans_type_code,l_trans_app_code);
4013: csi_t_gen_utility_pvt.add('ID_ISO2: '||csi_inv_trxs_pkg.get_txn_type_id(l_trans_type_code,l_trans_app_code));
4014: x_trx_error_rec.inv_material_transaction_id := p_transaction_id;
4015: x_trx_error_rec.error_stage := csi_inv_trxs_pkg.g_ib_update;
4016:
4017: END iso_receipt;
4168: x_return_status := l_fnd_success;
4169: l_error_message := NULL;
4170:
4171: IF (l_debug > 0) THEN
4172: csi_t_gen_utility_pvt.add('******Start of csi_inv_iso_pkg.iso_direct Transaction procedure******');
4173: csi_t_gen_utility_pvt.add('Start time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
4174: csi_t_gen_utility_pvt.add('csiintsb.pls 115.27');
4175: END IF;
4176:
4169: l_error_message := NULL;
4170:
4171: IF (l_debug > 0) THEN
4172: csi_t_gen_utility_pvt.add('******Start of csi_inv_iso_pkg.iso_direct Transaction procedure******');
4173: csi_t_gen_utility_pvt.add('Start time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
4174: csi_t_gen_utility_pvt.add('csiintsb.pls 115.27');
4175: END IF;
4176:
4177: -- This will open the cursor and fetch the (-) transaction ID
4170:
4171: IF (l_debug > 0) THEN
4172: csi_t_gen_utility_pvt.add('******Start of csi_inv_iso_pkg.iso_direct Transaction procedure******');
4173: csi_t_gen_utility_pvt.add('Start time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
4174: csi_t_gen_utility_pvt.add('csiintsb.pls 115.27');
4175: END IF;
4176:
4177: -- This will open the cursor and fetch the (-) transaction ID
4178: OPEN c_mtl;
4179: FETCH c_mtl into r_mtl;
4180: CLOSE c_mtl;
4181:
4182: IF (l_debug > 0) THEN
4183: csi_t_gen_utility_pvt.add('Direct ISO using Trasfer Trans ID');
4184: csi_t_gen_utility_pvt.add('Transaction ID with (+) is: '||p_transaction_id);
4185: csi_t_gen_utility_pvt.add('Transaction ID with (-) is: '||r_mtl.transfer_transaction_id);
4186: csi_t_gen_utility_pvt.add('l_sysdate set to: '||to_char(l_sysdate,'DD-MON-YYYY HH24:MI:SS'));
4187: END IF;
4180: CLOSE c_mtl;
4181:
4182: IF (l_debug > 0) THEN
4183: csi_t_gen_utility_pvt.add('Direct ISO using Trasfer Trans ID');
4184: csi_t_gen_utility_pvt.add('Transaction ID with (+) is: '||p_transaction_id);
4185: csi_t_gen_utility_pvt.add('Transaction ID with (-) is: '||r_mtl.transfer_transaction_id);
4186: csi_t_gen_utility_pvt.add('l_sysdate set to: '||to_char(l_sysdate,'DD-MON-YYYY HH24:MI:SS'));
4187: END IF;
4188:
4181:
4182: IF (l_debug > 0) THEN
4183: csi_t_gen_utility_pvt.add('Direct ISO using Trasfer Trans ID');
4184: csi_t_gen_utility_pvt.add('Transaction ID with (+) is: '||p_transaction_id);
4185: csi_t_gen_utility_pvt.add('Transaction ID with (-) is: '||r_mtl.transfer_transaction_id);
4186: csi_t_gen_utility_pvt.add('l_sysdate set to: '||to_char(l_sysdate,'DD-MON-YYYY HH24:MI:SS'));
4187: END IF;
4188:
4189: -- This procedure queries all of the Inventory Transaction Records and
4182: IF (l_debug > 0) THEN
4183: csi_t_gen_utility_pvt.add('Direct ISO using Trasfer Trans ID');
4184: csi_t_gen_utility_pvt.add('Transaction ID with (+) is: '||p_transaction_id);
4185: csi_t_gen_utility_pvt.add('Transaction ID with (-) is: '||r_mtl.transfer_transaction_id);
4186: csi_t_gen_utility_pvt.add('l_sysdate set to: '||to_char(l_sysdate,'DD-MON-YYYY HH24:MI:SS'));
4187: END IF;
4188:
4189: -- This procedure queries all of the Inventory Transaction Records and
4190: -- returns them as a table.
4196:
4197: l_tbl_count := 0;
4198: l_tbl_count := l_mtl_item_tbl.count;
4199: IF (l_debug > 0) THEN
4200: csi_t_gen_utility_pvt.add('Inventory Records Found: '||l_tbl_count);
4201: END IF;
4202:
4203: IF NOT l_return_status = l_fnd_success THEN
4204: IF (l_debug > 0) THEN
4201: END IF;
4202:
4203: IF NOT l_return_status = l_fnd_success THEN
4204: IF (l_debug > 0) THEN
4205: 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);
4206: END IF;
4207: RAISE fnd_api.g_exc_error;
4208: END IF;
4209:
4214: l_error_message);
4215:
4216: IF NOT l_return_status = l_fnd_success THEN
4217: IF (l_debug > 0) THEN
4218: 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);
4219: END IF;
4220: RAISE fnd_api.g_exc_error;
4221: END IF;
4222:
4224: l_employee_id := csi_inv_trxs_pkg.get_fnd_employee_id(l_mtl_item_tbl(i).last_updated_by);
4225:
4226: IF l_employee_id = -1 THEN
4227: IF (l_debug > 0) THEN
4228: 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');
4229: END IF;
4230: END IF;
4231: IF (l_debug > 0) THEN
4232: csi_t_gen_utility_pvt.add('The Employee that is processing this Transaction is: '||l_employee_id);
4228: 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');
4229: END IF;
4230: END IF;
4231: IF (l_debug > 0) THEN
4232: csi_t_gen_utility_pvt.add('The Employee that is processing this Transaction is: '||l_employee_id);
4233: END IF;
4234:
4235: -- See if this is a depreciable Item to set the status of the transaction record
4236: csi_inv_trxs_pkg.check_depreciable(l_mtl_item_tbl(i).inventory_item_id,
4236: csi_inv_trxs_pkg.check_depreciable(l_mtl_item_tbl(i).inventory_item_id,
4237: l_depreciable);
4238:
4239: IF (l_debug > 0) THEN
4240: csi_t_gen_utility_pvt.add('Is this Item ID: '||l_mtl_item_tbl(i).inventory_item_id||', Depreciable :'||l_depreciable);
4241: END IF;
4242:
4243: -- Get the Negative Receipt Code to see if this org allows Negative
4244: -- Quantity Records 1 = Yes, 2 = No
4247: l_mtl_item_tbl(i).organization_id);
4248:
4249:
4250: IF (l_debug > 0) THEN
4251: csi_t_gen_utility_pvt.add('Negative Code is - 1 = Yes, 2 = No: '||l_neg_code);
4252: END IF;
4253:
4254: -- Determine Transaction Type for this
4255:
4256: l_trans_type_code := 'ISO_DIRECT_SHIP';
4257: l_trans_app_code := 'INV';
4258:
4259: IF (l_debug > 0) THEN
4260: csi_t_gen_utility_pvt.add('Trans Type Code: '||l_trans_type_code);
4261: csi_t_gen_utility_pvt.add('Trans App Code: '||l_trans_app_code);
4262: END IF;
4263:
4264: -- Get Default Profile Instance Status
4257: l_trans_app_code := 'INV';
4258:
4259: IF (l_debug > 0) THEN
4260: csi_t_gen_utility_pvt.add('Trans Type Code: '||l_trans_type_code);
4261: csi_t_gen_utility_pvt.add('Trans App Code: '||l_trans_app_code);
4262: END IF;
4263:
4264: -- Get Default Profile Instance Status
4265:
4267: FETCH c_id into r_id;
4268: CLOSE c_id;
4269:
4270: IF (l_debug > 0) THEN
4271: csi_t_gen_utility_pvt.add('Default Profile Status: '||r_id.instance_status_id);
4272: END IF;
4273:
4274: -- Now loop through the PL/SQL Table.
4275: j := 1;
4281: FETCH c_so_info into r_so_info;
4282: CLOSE c_so_info;
4283:
4284: IF (l_debug > 0) THEN
4285: csi_t_gen_utility_pvt.add('Sales Order Header: '||r_so_info.header_id);
4286: csi_t_gen_utility_pvt.add('Sales Order Line: '||r_so_info.line_id);
4287: csi_t_gen_utility_pvt.add('Order Number: '||r_so_info.order_number);
4288: csi_t_gen_utility_pvt.add('Line Number: '||r_so_info.line_number);
4289: END IF;
4282: CLOSE c_so_info;
4283:
4284: IF (l_debug > 0) THEN
4285: csi_t_gen_utility_pvt.add('Sales Order Header: '||r_so_info.header_id);
4286: csi_t_gen_utility_pvt.add('Sales Order Line: '||r_so_info.line_id);
4287: csi_t_gen_utility_pvt.add('Order Number: '||r_so_info.order_number);
4288: csi_t_gen_utility_pvt.add('Line Number: '||r_so_info.line_number);
4289: END IF;
4290:
4283:
4284: IF (l_debug > 0) THEN
4285: csi_t_gen_utility_pvt.add('Sales Order Header: '||r_so_info.header_id);
4286: csi_t_gen_utility_pvt.add('Sales Order Line: '||r_so_info.line_id);
4287: csi_t_gen_utility_pvt.add('Order Number: '||r_so_info.order_number);
4288: csi_t_gen_utility_pvt.add('Line Number: '||r_so_info.line_number);
4289: END IF;
4290:
4291: IF (l_debug > 0) THEN
4284: IF (l_debug > 0) THEN
4285: csi_t_gen_utility_pvt.add('Sales Order Header: '||r_so_info.header_id);
4286: csi_t_gen_utility_pvt.add('Sales Order Line: '||r_so_info.line_id);
4287: csi_t_gen_utility_pvt.add('Order Number: '||r_so_info.order_number);
4288: csi_t_gen_utility_pvt.add('Line Number: '||r_so_info.line_number);
4289: END IF;
4290:
4291: IF (l_debug > 0) THEN
4292: csi_t_gen_utility_pvt.add('Starting to loop through Material Transaction Records');
4288: csi_t_gen_utility_pvt.add('Line Number: '||r_so_info.line_number);
4289: END IF;
4290:
4291: IF (l_debug > 0) THEN
4292: csi_t_gen_utility_pvt.add('Starting to loop through Material Transaction Records');
4293: END IF;
4294:
4295: -- Initialize Transaction Record
4296: l_txn_rec := csi_inv_trxs_pkg.init_txn_rec;
4315: END IF;
4316:
4317: IF NOT l_return_status = l_fnd_success THEN
4318: IF (l_debug > 0) THEN
4319: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
4320: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
4321: END IF;
4322: RAISE fnd_api.g_exc_error;
4323: END IF;
4316:
4317: IF NOT l_return_status = l_fnd_success THEN
4318: IF (l_debug > 0) THEN
4319: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
4320: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
4321: END IF;
4322: RAISE fnd_api.g_exc_error;
4323: END IF;
4324:
4322: RAISE fnd_api.g_exc_error;
4323: END IF;
4324:
4325: IF (l_debug > 0) THEN
4326: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
4327: csi_t_gen_utility_pvt.add('Trans Status Code: '||l_txn_rec.transaction_status_code);
4328: END IF;
4329:
4330: -- Create CSI Transaction to be used
4323: END IF;
4324:
4325: IF (l_debug > 0) THEN
4326: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
4327: csi_t_gen_utility_pvt.add('Trans Status Code: '||l_txn_rec.transaction_status_code);
4328: END IF;
4329:
4330: -- Create CSI Transaction to be used
4331: l_txn_rec.source_transaction_date := l_mtl_item_tbl(i).transaction_date;
4349: l_error_message,
4350: l_return_status);
4351:
4352: IF (l_debug > 0) THEN
4353: csi_t_gen_utility_pvt.add('CSI Transaction Created: '||l_txn_rec.transaction_id);
4354: END IF;
4355:
4356: IF NOT l_return_status = l_fnd_success THEN
4357: IF (l_debug > 0) THEN
4354: END IF;
4355:
4356: IF NOT l_return_status = l_fnd_success THEN
4357: IF (l_debug > 0) THEN
4358: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.create_csi_txn: '||p_transaction_id);
4359: END IF;
4360: RAISE fnd_api.g_exc_error;
4361: END IF;
4362:
4362:
4363: FOR j in l_mtl_item_tbl.FIRST .. l_mtl_item_tbl.LAST LOOP
4364:
4365: IF (l_debug > 0) THEN
4366: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
4367: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
4368: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
4369: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
4370: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
4363: FOR j in l_mtl_item_tbl.FIRST .. l_mtl_item_tbl.LAST LOOP
4364:
4365: IF (l_debug > 0) THEN
4366: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
4367: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
4368: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
4369: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
4370: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
4371: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
4364:
4365: IF (l_debug > 0) THEN
4366: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
4367: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
4368: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
4369: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
4370: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
4371: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
4372: csi_t_gen_utility_pvt.add('Transfer Subinv: '||l_mtl_item_tbl(j).transfer_subinventory);
4365: IF (l_debug > 0) THEN
4366: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
4367: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
4368: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
4369: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
4370: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
4371: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
4372: csi_t_gen_utility_pvt.add('Transfer Subinv: '||l_mtl_item_tbl(j).transfer_subinventory);
4373: END IF;
4366: csi_t_gen_utility_pvt.add('Primary UOM: '||l_mtl_item_tbl(j).primary_uom_code);
4367: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
4368: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
4369: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
4370: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
4371: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
4372: csi_t_gen_utility_pvt.add('Transfer Subinv: '||l_mtl_item_tbl(j).transfer_subinventory);
4373: END IF;
4374:
4367: csi_t_gen_utility_pvt.add('Primary Qty: '||l_mtl_item_tbl(j).primary_quantity);
4368: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
4369: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
4370: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
4371: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
4372: csi_t_gen_utility_pvt.add('Transfer Subinv: '||l_mtl_item_tbl(j).transfer_subinventory);
4373: END IF;
4374:
4375: -- Get Receiving Organization Serial Control Code
4368: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
4369: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
4370: csi_t_gen_utility_pvt.add('Organization ID: '||l_mtl_item_tbl(j).organization_id);
4371: csi_t_gen_utility_pvt.add('Transfer Org ID: '||l_mtl_item_tbl(j).transfer_organization_id);
4372: csi_t_gen_utility_pvt.add('Transfer Subinv: '||l_mtl_item_tbl(j).transfer_subinventory);
4373: END IF;
4374:
4375: -- Get Receiving Organization Serial Control Code
4376: OPEN c_item_control (l_mtl_item_tbl(j).inventory_item_id,
4380:
4381: l_sr_control := r_item_control.serial_number_control_code;
4382:
4383: IF (l_debug > 0) THEN
4384: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
4385: csi_t_gen_utility_pvt.add('l_sr_control is: '||l_sr_control);
4386: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
4387: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
4388: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
4381: l_sr_control := r_item_control.serial_number_control_code;
4382:
4383: IF (l_debug > 0) THEN
4384: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
4385: csi_t_gen_utility_pvt.add('l_sr_control is: '||l_sr_control);
4386: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
4387: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
4388: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
4389: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
4382:
4383: IF (l_debug > 0) THEN
4384: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
4385: csi_t_gen_utility_pvt.add('l_sr_control is: '||l_sr_control);
4386: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
4387: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
4388: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
4389: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
4390: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
4383: IF (l_debug > 0) THEN
4384: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
4385: csi_t_gen_utility_pvt.add('l_sr_control is: '||l_sr_control);
4386: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
4387: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
4388: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
4389: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
4390: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
4391: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
4384: csi_t_gen_utility_pvt.add('Serial Number : '||l_mtl_item_tbl(j).serial_number);
4385: csi_t_gen_utility_pvt.add('l_sr_control is: '||l_sr_control);
4386: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
4387: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
4388: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
4389: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
4390: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
4391: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
4392: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
4385: csi_t_gen_utility_pvt.add('l_sr_control is: '||l_sr_control);
4386: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
4387: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
4388: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
4389: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
4390: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
4391: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
4392: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
4393: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
4386: csi_t_gen_utility_pvt.add('Shipping Org Serial Number Control Code: '||l_mtl_item_tbl(j).serial_number_control_code);
4387: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
4388: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
4389: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
4390: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
4391: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
4392: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
4393: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
4394: csi_t_gen_utility_pvt.add('Receiving Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
4387: csi_t_gen_utility_pvt.add('Receiving Org Serial Number Control Code: '||r_item_control.serial_number_control_code);
4388: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
4389: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
4390: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
4391: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
4392: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
4393: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
4394: csi_t_gen_utility_pvt.add('Receiving Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
4395: END IF;
4388: csi_t_gen_utility_pvt.add('Shipping Org Lot Control Code: '||l_mtl_item_tbl(j).lot_control_code);
4389: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
4390: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
4391: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
4392: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
4393: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
4394: csi_t_gen_utility_pvt.add('Receiving Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
4395: END IF;
4396:
4389: csi_t_gen_utility_pvt.add('Receiving Org Lot Control Code: '||r_item_control.lot_control_code);
4390: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
4391: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
4392: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
4393: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
4394: csi_t_gen_utility_pvt.add('Receiving Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
4395: END IF;
4396:
4397: -- Set Query Instance Status
4390: csi_t_gen_utility_pvt.add('Shipping Org Loction Control Code: '||l_mtl_item_tbl(j).location_control_code);
4391: csi_t_gen_utility_pvt.add('Receiving Org Location Control Code: '||r_item_control.location_control_code);
4392: csi_t_gen_utility_pvt.add('Shipping Org Revision Control Code: '||l_mtl_item_tbl(j).revision_qty_control_code);
4393: csi_t_gen_utility_pvt.add('Receiving Org Revision Control Code: '||r_item_control.revision_qty_control_code);
4394: csi_t_gen_utility_pvt.add('Receiving Org Trackable Flag: '||r_item_control.comms_nl_trackable_flag);
4395: END IF;
4396:
4397: -- Set Query Instance Status
4398: IF l_neg_code = 1 AND l_mtl_item_tbl(j).serial_number_control_code = 1 THEN
4401: l_instance_status := FND_API.G_TRUE;
4402: END IF;
4403:
4404: IF (l_debug > 0) THEN
4405: csi_t_gen_utility_pvt.add('Query Inst Status : '||l_instance_status);
4406: END IF;
4407:
4408: -- Get the Location Ids for Receiving Org
4409: OPEN c_loc_ids (l_mtl_item_tbl(j).transfer_organization_id,
4410: l_mtl_item_tbl(j).transfer_subinventory);
4411: FETCH c_loc_ids into r_loc_ids;
4412: CLOSE c_loc_ids;
4413:
4414: csi_t_gen_utility_pvt.add('Transfer Subinv Location: '||r_loc_ids.subinv_location_id);
4415: csi_t_gen_utility_pvt.add('Transfer HR Location : '||r_loc_ids.hr_location_id);
4416:
4417: l_instance_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
4418: l_instance_usage_code := l_fnd_g_char;
4411: FETCH c_loc_ids into r_loc_ids;
4412: CLOSE c_loc_ids;
4413:
4414: csi_t_gen_utility_pvt.add('Transfer Subinv Location: '||r_loc_ids.subinv_location_id);
4415: csi_t_gen_utility_pvt.add('Transfer HR Location : '||r_loc_ids.hr_location_id);
4416:
4417: l_instance_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
4418: l_instance_usage_code := l_fnd_g_char;
4419:
4433:
4434: IF l_mtl_item_tbl(j).serial_number_control_code in (1,6) THEN
4435: l_instance_query_rec.serial_number := NULL;
4436: IF (l_debug > 0) THEN
4437: csi_t_gen_utility_pvt.add('Shipping org is 1,6 so set to NULL');
4438: END IF;
4439: END IF;
4440:
4441: IF (l_debug > 0) THEN
4438: END IF;
4439: END IF;
4440:
4441: IF (l_debug > 0) THEN
4442: csi_t_gen_utility_pvt.add('Transaction Action Type:'|| l_trx_action_type);
4443: csi_t_gen_utility_pvt.add('Before Get Item Instance');
4444: END IF;
4445:
4446: IF (l_debug > 0) THEN
4439: END IF;
4440:
4441: IF (l_debug > 0) THEN
4442: csi_t_gen_utility_pvt.add('Transaction Action Type:'|| l_trx_action_type);
4443: csi_t_gen_utility_pvt.add('Before Get Item Instance');
4444: END IF;
4445:
4446: IF (l_debug > 0) THEN
4447: csi_t_gen_utility_pvt.add('l_12_loop is:'|| l_12_loop);
4443: csi_t_gen_utility_pvt.add('Before Get Item Instance');
4444: END IF;
4445:
4446: IF (l_debug > 0) THEN
4447: csi_t_gen_utility_pvt.add('l_12_loop is:'|| l_12_loop);
4448: csi_t_gen_utility_pvt.add('If Count is 1 then bypass Get Item Instance');
4449: END IF;
4450:
4451: IF l_12_loop = 0 THEN
4444: END IF;
4445:
4446: IF (l_debug > 0) THEN
4447: csi_t_gen_utility_pvt.add('l_12_loop is:'|| l_12_loop);
4448: csi_t_gen_utility_pvt.add('If Count is 1 then bypass Get Item Instance');
4449: END IF;
4450:
4451: IF l_12_loop = 0 THEN
4452:
4466: l_msg_data);
4467: END IF; -- End of l_12_loop
4468:
4469: IF (l_debug > 0) THEN
4470: csi_t_gen_utility_pvt.add('After Get Item Instance');
4471: END IF;
4472: l_tbl_count := 0;
4473: l_tbl_count := l_src_instance_header_tbl.count;
4474: IF (l_debug > 0) THEN
4471: END IF;
4472: l_tbl_count := 0;
4473: l_tbl_count := l_src_instance_header_tbl.count;
4474: IF (l_debug > 0) THEN
4475: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
4476:
4477: IF l_tbl_count > 0 THEN
4478: csi_t_gen_utility_pvt.add('In Transit Order Line ID: '||l_src_instance_header_tbl(i).in_transit_order_line_id);
4479: END IF;
4474: IF (l_debug > 0) THEN
4475: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
4476:
4477: IF l_tbl_count > 0 THEN
4478: csi_t_gen_utility_pvt.add('In Transit Order Line ID: '||l_src_instance_header_tbl(i).in_transit_order_line_id);
4479: END IF;
4480:
4481: END IF;
4482:
4482:
4483: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
4484: IF NOT l_return_status = l_fnd_success then
4485: IF (l_debug > 0) THEN
4486: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
4487: END IF;
4488: l_msg_index := 1;
4489: WHILE l_msg_count > 0 loop
4490: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4494: RAISE fnd_api.g_exc_error;
4495: END IF;
4496:
4497: IF (l_debug > 0) THEN
4498: csi_t_gen_utility_pvt.add('Before checking to see if Source records Exist'); END IF;
4499:
4500: IF (l_mtl_item_tbl(j).serial_number_control_code = 5 AND -- Ship
4501: l_sr_control = 5) OR -- Rec
4502: (l_mtl_item_tbl(j).serial_number_control_code = 5 AND -- Ship
4513: -- l_sr_control = 6) THEN -- Rec
4514: IF l_src_instance_header_tbl.count > 0 THEN
4515:
4516: IF (l_debug > 0) THEN
4517: csi_t_gen_utility_pvt.add('Shipping and Rec Serial Control are both 2,5');
4518: csi_t_gen_utility_pvt.add('Updating Serialized Instance: '||l_mtl_item_tbl(j).serial_number);
4519: csi_t_gen_utility_pvt.add('After you determine this is a Direct Shipment');
4520: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
4521: csi_t_gen_utility_pvt.add('In Transit Order line ID: '||l_src_instance_header_tbl(i).in_transit_order_line_id);
4514: IF l_src_instance_header_tbl.count > 0 THEN
4515:
4516: IF (l_debug > 0) THEN
4517: csi_t_gen_utility_pvt.add('Shipping and Rec Serial Control are both 2,5');
4518: csi_t_gen_utility_pvt.add('Updating Serialized Instance: '||l_mtl_item_tbl(j).serial_number);
4519: csi_t_gen_utility_pvt.add('After you determine this is a Direct Shipment');
4520: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
4521: csi_t_gen_utility_pvt.add('In Transit Order line ID: '||l_src_instance_header_tbl(i).in_transit_order_line_id);
4522: END IF;
4515:
4516: IF (l_debug > 0) THEN
4517: csi_t_gen_utility_pvt.add('Shipping and Rec Serial Control are both 2,5');
4518: csi_t_gen_utility_pvt.add('Updating Serialized Instance: '||l_mtl_item_tbl(j).serial_number);
4519: csi_t_gen_utility_pvt.add('After you determine this is a Direct Shipment');
4520: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
4521: csi_t_gen_utility_pvt.add('In Transit Order line ID: '||l_src_instance_header_tbl(i).in_transit_order_line_id);
4522: END IF;
4523:
4516: IF (l_debug > 0) THEN
4517: csi_t_gen_utility_pvt.add('Shipping and Rec Serial Control are both 2,5');
4518: csi_t_gen_utility_pvt.add('Updating Serialized Instance: '||l_mtl_item_tbl(j).serial_number);
4519: csi_t_gen_utility_pvt.add('After you determine this is a Direct Shipment');
4520: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
4521: csi_t_gen_utility_pvt.add('In Transit Order line ID: '||l_src_instance_header_tbl(i).in_transit_order_line_id);
4522: END IF;
4523:
4524: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
4517: csi_t_gen_utility_pvt.add('Shipping and Rec Serial Control are both 2,5');
4518: csi_t_gen_utility_pvt.add('Updating Serialized Instance: '||l_mtl_item_tbl(j).serial_number);
4519: csi_t_gen_utility_pvt.add('After you determine this is a Direct Shipment');
4520: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
4521: csi_t_gen_utility_pvt.add('In Transit Order line ID: '||l_src_instance_header_tbl(i).in_transit_order_line_id);
4522: END IF;
4523:
4524: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
4525: l_update_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
4533: l_update_instance_rec.instance_usage_code := l_in_inventory;
4534: l_update_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
4535:
4536: IF (l_debug > 0) THEN
4537: csi_t_gen_utility_pvt.add('After you initialize the Transaction Record Values');
4538: csi_t_gen_utility_pvt.add('After the update for Direct Shipment is set.');
4539: csi_t_gen_utility_pvt.add('Transfer Org: '||l_update_instance_rec.inv_organization_id);
4540: csi_t_gen_utility_pvt.add('Source Org: '||l_mtl_item_tbl(j).organization_id);
4541: END IF;
4534: l_update_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
4535:
4536: IF (l_debug > 0) THEN
4537: csi_t_gen_utility_pvt.add('After you initialize the Transaction Record Values');
4538: csi_t_gen_utility_pvt.add('After the update for Direct Shipment is set.');
4539: csi_t_gen_utility_pvt.add('Transfer Org: '||l_update_instance_rec.inv_organization_id);
4540: csi_t_gen_utility_pvt.add('Source Org: '||l_mtl_item_tbl(j).organization_id);
4541: END IF;
4542:
4535:
4536: IF (l_debug > 0) THEN
4537: csi_t_gen_utility_pvt.add('After you initialize the Transaction Record Values');
4538: csi_t_gen_utility_pvt.add('After the update for Direct Shipment is set.');
4539: csi_t_gen_utility_pvt.add('Transfer Org: '||l_update_instance_rec.inv_organization_id);
4540: csi_t_gen_utility_pvt.add('Source Org: '||l_mtl_item_tbl(j).organization_id);
4541: END IF;
4542:
4543: l_party_tbl.delete;
4536: IF (l_debug > 0) THEN
4537: csi_t_gen_utility_pvt.add('After you initialize the Transaction Record Values');
4538: csi_t_gen_utility_pvt.add('After the update for Direct Shipment is set.');
4539: csi_t_gen_utility_pvt.add('Transfer Org: '||l_update_instance_rec.inv_organization_id);
4540: csi_t_gen_utility_pvt.add('Source Org: '||l_mtl_item_tbl(j).organization_id);
4541: END IF;
4542:
4543: l_party_tbl.delete;
4544: l_account_tbl.delete;
4546: l_org_assignments_tbl.delete;
4547: l_asset_assignment_tbl.delete;
4548:
4549: IF (l_debug > 0) THEN
4550: csi_t_gen_utility_pvt.add('Before Update Item Instance');
4551: END IF;
4552:
4553: csi_item_instance_pub.update_item_instance(l_api_version,
4554: l_commit,
4570: l_upd_error_instance_id := NULL;
4571: l_upd_error_instance_id := l_update_instance_rec.instance_id;
4572:
4573: IF (l_debug > 0) THEN
4574: csi_t_gen_utility_pvt.add('After Update Item Instance');
4575: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
4576: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
4577: END IF;
4578:
4571: l_upd_error_instance_id := l_update_instance_rec.instance_id;
4572:
4573: IF (l_debug > 0) THEN
4574: csi_t_gen_utility_pvt.add('After Update Item Instance');
4575: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
4576: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
4577: END IF;
4578:
4579: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
4572:
4573: IF (l_debug > 0) THEN
4574: csi_t_gen_utility_pvt.add('After Update Item Instance');
4575: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
4576: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
4577: END IF;
4578:
4579: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
4580: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
4578:
4579: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
4580: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
4581: IF (l_debug > 0) THEN
4582: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
4583: END IF;
4584: l_msg_index := 1;
4585: WHILE l_msg_count > 0 loop
4586: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4591: END IF;
4592:
4593: ELSE -- No Src Records found so error
4594: IF (l_debug > 0) THEN
4595: csi_t_gen_utility_pvt.add('No Records were found in Install Base');
4596: END IF;
4597:
4598: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
4599: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
4613: (l_mtl_item_tbl(j).serial_number_control_code = 1 AND -- Ship
4614: l_sr_control = 6) THEN -- Rec
4615:
4616: IF (l_debug > 0) THEN
4617: csi_t_gen_utility_pvt.add('Shipping and Rec Serial Control are both 1,6');
4618: END IF;
4619:
4620: IF (l_mtl_item_tbl(j).serial_number_control_code = 6 AND -- Ship
4621: l_sr_control = 6) OR -- Rec
4622: (l_mtl_item_tbl(j).serial_number_control_code = 6 AND -- Ship
4623: l_sr_control = 1) THEN -- Rec
4624: l_66_flag := 1;
4625: IF (l_debug > 0) THEN
4626: csi_t_gen_utility_pvt.add('l_66_flag is :'||l_66_flag);
4627: END IF;
4628: END IF;
4629:
4630:
4632: IF l_neg_code = 1 THEN -- Allow Neg Qtys on NON Serial Items ONLY
4633:
4634:
4635: IF (l_debug > 0) THEN
4636: csi_t_gen_utility_pvt.add('No Source Recs found so create Serial Instance ');
4637: END IF;
4638:
4639:
4640: l_new_src_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
4666: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
4667: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
4668:
4669: IF (l_debug > 0) THEN
4670: csi_t_gen_utility_pvt.add('Before Create Source Item Instance');
4671: END IF;
4672:
4673: csi_item_instance_pub.create_item_instance(l_api_version,
4674: l_commit,
4686: l_msg_count,
4687: l_msg_data);
4688:
4689: IF (l_debug > 0) THEN
4690: csi_t_gen_utility_pvt.add('After Create Source Item Instance');
4691: END IF;
4692:
4693: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
4694:
4693: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
4694:
4695: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
4696: IF (l_debug > 0) THEN
4697: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
4698: END IF;
4699: l_msg_index := 1;
4700: WHILE l_msg_count > 0 loop
4701: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4706: END IF;
4707:
4708: ELSE -- Neg Code is <> 1 so Neg Qtys are not allowed so error
4709: IF (l_debug > 0) THEN
4710: csi_t_gen_utility_pvt.add('No Records were found in Install Base - 11');
4711: END IF;
4712:
4713: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
4714: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
4722:
4723: ELSIF l_src_instance_header_tbl.count = 1 THEN
4724:
4725: IF (l_debug > 0) THEN
4726: csi_t_gen_utility_pvt.add('You will update instance: '||l_src_instance_header_tbl(i).instance_id);
4727: csi_t_gen_utility_pvt.add('End Date is: '||l_src_instance_header_tbl(i).active_end_date);
4728: END IF;
4729:
4730:
4723: ELSIF l_src_instance_header_tbl.count = 1 THEN
4724:
4725: IF (l_debug > 0) THEN
4726: csi_t_gen_utility_pvt.add('You will update instance: '||l_src_instance_header_tbl(i).instance_id);
4727: csi_t_gen_utility_pvt.add('End Date is: '||l_src_instance_header_tbl(i).active_end_date);
4728: END IF;
4729:
4730:
4731: l_upd_src_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
4741: l_org_assignments_tbl.delete;
4742: l_asset_assignment_tbl.delete;
4743:
4744: IF (l_debug > 0) THEN
4745: csi_t_gen_utility_pvt.add('Before Update Source Item Instance - Neg Qty');
4746: END IF;
4747:
4748: 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);
4749:
4747:
4748: 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);
4749:
4750: IF (l_debug > 0) THEN
4751: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_upd_src_dest_instance_rec.instance_status_id);
4752: END IF;
4753:
4754: csi_item_instance_pub.update_item_instance(l_api_version,
4755: l_commit,
4771: l_upd_error_instance_id := NULL;
4772: l_upd_error_instance_id := l_upd_src_dest_instance_rec.instance_id;
4773:
4774: IF (l_debug > 0) THEN
4775: csi_t_gen_utility_pvt.add('After Update Item Instance');
4776: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
4777: END IF;
4778:
4779: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
4772: l_upd_error_instance_id := l_upd_src_dest_instance_rec.instance_id;
4773:
4774: IF (l_debug > 0) THEN
4775: csi_t_gen_utility_pvt.add('After Update Item Instance');
4776: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
4777: END IF;
4778:
4779: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
4780: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
4778:
4779: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
4780: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
4781: IF (l_debug > 0) THEN
4782: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
4783: END IF;
4784: l_msg_index := 1;
4785: WHILE l_msg_count > 0 loop
4786: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4792:
4793: ELSIF l_src_instance_header_tbl.count > 1 THEN
4794: -- Multiple Instances were found so throw error
4795: IF (l_debug > 0) THEN
4796: csi_t_gen_utility_pvt.add('Multiple Instances were Found in Install BaseBase-11');
4797: END IF;
4798: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
4799: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
4800: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
4821: l_organization_id := l_mtl_item_tbl(j).transfer_organization_id;
4822: l_locator_id := l_mtl_item_tbl(j).transfer_locator_id;
4823:
4824: IF (l_debug > 0) THEN
4825: csi_t_gen_utility_pvt.add('Before Get Item Instance');
4826: END IF;
4827:
4828: csi_item_instance_pub.get_item_instances(l_api_version,
4829: l_commit,
4840: l_msg_count,
4841: l_msg_data);
4842:
4843: IF (l_debug > 0) THEN
4844: csi_t_gen_utility_pvt.add('After Get Item Instance');
4845: END IF;
4846: l_tbl_count := 0;
4847: l_tbl_count := l_dest_instance_header_tbl.count;
4848: IF (l_debug > 0) THEN
4845: END IF;
4846: l_tbl_count := 0;
4847: l_tbl_count := l_dest_instance_header_tbl.count;
4848: IF (l_debug > 0) THEN
4849: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
4850: END IF;
4851:
4852: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
4853: IF NOT l_return_status = l_fnd_success then
4851:
4852: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
4853: IF NOT l_return_status = l_fnd_success then
4854: IF (l_debug > 0) THEN
4855: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
4856: END IF;
4857: l_msg_index := 1;
4858: WHILE l_msg_count > 0 loop
4859: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4865:
4866: IF l_dest_instance_header_tbl.count = 0 THEN -- Installed Base Destination Records are not found so create a new record
4867:
4868: IF (l_debug > 0) THEN
4869: csi_t_gen_utility_pvt.add('Creating New Dest dest Instance - Neg Qty');
4870: END IF;
4871:
4872: l_new_dest_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
4873: l_new_dest_instance_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
4899: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
4900: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
4901:
4902: IF (l_debug > 0) THEN
4903: csi_t_gen_utility_pvt.add('Before Create Item Instance - Neg Qty');
4904: csi_t_gen_utility_pvt.add('In Transit Order Line ID on Dest Rec: '||l_new_dest_instance_rec.last_oe_order_line_id);
4905: END IF;
4906:
4907: csi_item_instance_pub.create_item_instance(l_api_version,
4900: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
4901:
4902: IF (l_debug > 0) THEN
4903: csi_t_gen_utility_pvt.add('Before Create Item Instance - Neg Qty');
4904: csi_t_gen_utility_pvt.add('In Transit Order Line ID on Dest Rec: '||l_new_dest_instance_rec.last_oe_order_line_id);
4905: END IF;
4906:
4907: csi_item_instance_pub.create_item_instance(l_api_version,
4908: l_commit,
4920: l_msg_count,
4921: l_msg_data);
4922:
4923: IF (l_debug > 0) THEN
4924: csi_t_gen_utility_pvt.add('After Create Item Instance - Neg Qty');
4925: END IF;
4926: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
4927:
4928: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
4926: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
4927:
4928: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
4929: IF (l_debug > 0) THEN
4930: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
4931: END IF;
4932: l_msg_index := 1;
4933: WHILE l_msg_count > 0 loop
4934: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
4955:
4956: 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);
4957:
4958: IF (l_debug > 0) THEN
4959: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_dest_instance_rec.instance_status_id);
4960: END IF;
4961:
4962: IF (l_debug > 0) THEN
4963: csi_t_gen_utility_pvt.add('Before Update Item Instance');
4959: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_dest_instance_rec.instance_status_id);
4960: END IF;
4961:
4962: IF (l_debug > 0) THEN
4963: csi_t_gen_utility_pvt.add('Before Update Item Instance');
4964: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
4965: END IF;
4966:
4967: csi_item_instance_pub.update_item_instance(l_api_version,
4960: END IF;
4961:
4962: IF (l_debug > 0) THEN
4963: csi_t_gen_utility_pvt.add('Before Update Item Instance');
4964: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
4965: END IF;
4966:
4967: csi_item_instance_pub.update_item_instance(l_api_version,
4968: l_commit,
4984: l_upd_error_instance_id := NULL;
4985: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
4986:
4987: IF (l_debug > 0) THEN
4988: csi_t_gen_utility_pvt.add('After Update Item Instance');
4989: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
4990: END IF;
4991:
4992: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
4985: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
4986:
4987: IF (l_debug > 0) THEN
4988: csi_t_gen_utility_pvt.add('After Update Item Instance');
4989: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
4990: END IF;
4991:
4992: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
4993: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
4991:
4992: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
4993: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
4994: IF (l_debug > 0) THEN
4995: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
4996: END IF;
4997: l_msg_index := 1;
4998: WHILE l_msg_count > 0 loop
4999: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5005:
5006: ELSIF l_dest_instance_header_tbl.count > 1 THEN
5007: -- Multiple Instances were found so throw error
5008: IF (l_debug > 0) THEN
5009: csi_t_gen_utility_pvt.add('Multiple Instances were Found in Install Base-60');
5010: END IF;
5011: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
5012: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
5013: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
5027: (l_mtl_item_tbl(j).serial_number_control_code = 2 AND -- Ship
5028: l_sr_control = 6) THEN -- Rec
5029:
5030: IF (l_debug > 0) THEN
5031: csi_t_gen_utility_pvt.add('Shipping is 2,5,6 and Rec Serial Control is 1,6');
5032: END IF;
5033:
5034: -- Bug 3880731 - Take out the loop
5035:
5034: -- Bug 3880731 - Take out the loop
5035:
5036: --FOR k in l_src_instance_header_tbl.FIRST .. abs(l_mtl_item_tbl(j).primary_quantity) LOOP
5037: IF (l_debug > 0) THEN
5038: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 2,5,6 and Receiving is 1,6');
5039: csi_t_gen_utility_pvt.add('Expire The Serialized Instance First');
5040: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
5041: END IF;
5042:
5035:
5036: --FOR k in l_src_instance_header_tbl.FIRST .. abs(l_mtl_item_tbl(j).primary_quantity) LOOP
5037: IF (l_debug > 0) THEN
5038: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 2,5,6 and Receiving is 1,6');
5039: csi_t_gen_utility_pvt.add('Expire The Serialized Instance First');
5040: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
5041: END IF;
5042:
5043: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
5036: --FOR k in l_src_instance_header_tbl.FIRST .. abs(l_mtl_item_tbl(j).primary_quantity) LOOP
5037: IF (l_debug > 0) THEN
5038: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 2,5,6 and Receiving is 1,6');
5039: csi_t_gen_utility_pvt.add('Expire The Serialized Instance First');
5040: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
5041: END IF;
5042:
5043: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
5044: l_update_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
5046: l_update_instance_rec.last_oe_order_line_id := r_so_info.line_id;
5047: l_update_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
5048:
5049: IF (l_debug > 0) THEN
5050: csi_t_gen_utility_pvt.add('After you initialize the Update Record Values');
5051: csi_t_gen_utility_pvt.add('Instance Updated: '||l_update_instance_rec.instance_id);
5052: 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'));
5053: csi_t_gen_utility_pvt.add('Object Version: '||l_update_instance_rec.object_version_number);
5054: END IF;
5047: l_update_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
5048:
5049: IF (l_debug > 0) THEN
5050: csi_t_gen_utility_pvt.add('After you initialize the Update Record Values');
5051: csi_t_gen_utility_pvt.add('Instance Updated: '||l_update_instance_rec.instance_id);
5052: 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'));
5053: csi_t_gen_utility_pvt.add('Object Version: '||l_update_instance_rec.object_version_number);
5054: END IF;
5055:
5048:
5049: IF (l_debug > 0) THEN
5050: csi_t_gen_utility_pvt.add('After you initialize the Update Record Values');
5051: csi_t_gen_utility_pvt.add('Instance Updated: '||l_update_instance_rec.instance_id);
5052: 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'));
5053: csi_t_gen_utility_pvt.add('Object Version: '||l_update_instance_rec.object_version_number);
5054: END IF;
5055:
5056: l_party_tbl.delete;
5049: IF (l_debug > 0) THEN
5050: csi_t_gen_utility_pvt.add('After you initialize the Update Record Values');
5051: csi_t_gen_utility_pvt.add('Instance Updated: '||l_update_instance_rec.instance_id);
5052: 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'));
5053: csi_t_gen_utility_pvt.add('Object Version: '||l_update_instance_rec.object_version_number);
5054: END IF;
5055:
5056: l_party_tbl.delete;
5057: l_account_tbl.delete;
5059: l_org_assignments_tbl.delete;
5060: l_asset_assignment_tbl.delete;
5061:
5062: IF (l_debug > 0) THEN
5063: csi_t_gen_utility_pvt.add('Before Update Item Instance');
5064: END IF;
5065:
5066: csi_item_instance_pub.update_item_instance(l_api_version,
5067: l_commit,
5083: l_upd_error_instance_id := NULL;
5084: l_upd_error_instance_id := l_update_instance_rec.instance_id;
5085:
5086: IF (l_debug > 0) THEN
5087: csi_t_gen_utility_pvt.add('After Update Item Instance');
5088: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
5089: csi_t_gen_utility_pvt.add('You are updating Serial Number: '||l_update_instance_rec.serial_number);
5090: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
5091: END IF;
5084: l_upd_error_instance_id := l_update_instance_rec.instance_id;
5085:
5086: IF (l_debug > 0) THEN
5087: csi_t_gen_utility_pvt.add('After Update Item Instance');
5088: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
5089: csi_t_gen_utility_pvt.add('You are updating Serial Number: '||l_update_instance_rec.serial_number);
5090: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
5091: END IF;
5092:
5085:
5086: IF (l_debug > 0) THEN
5087: csi_t_gen_utility_pvt.add('After Update Item Instance');
5088: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
5089: csi_t_gen_utility_pvt.add('You are updating Serial Number: '||l_update_instance_rec.serial_number);
5090: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
5091: END IF;
5092:
5093: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5086: IF (l_debug > 0) THEN
5087: csi_t_gen_utility_pvt.add('After Update Item Instance');
5088: csi_t_gen_utility_pvt.add('You are updating Instance: '||l_update_instance_rec.instance_id);
5089: csi_t_gen_utility_pvt.add('You are updating Serial Number: '||l_update_instance_rec.serial_number);
5090: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
5091: END IF;
5092:
5093: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5094: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
5092:
5093: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5094: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
5095: IF (l_debug > 0) THEN
5096: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
5097: END IF;
5098: l_msg_index := 1;
5099: WHILE l_msg_count > 0 loop
5100: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5124: l_organization_id := l_mtl_item_tbl(j).transfer_organization_id;
5125: l_locator_id := l_mtl_item_tbl(j).transfer_locator_id;
5126:
5127: IF (l_debug > 0) THEN
5128: csi_t_gen_utility_pvt.add('Before Get Item Instance');
5129: END IF;
5130:
5131: csi_item_instance_pub.get_item_instances(l_api_version,
5132: l_commit,
5143: l_msg_count,
5144: l_msg_data);
5145:
5146: IF (l_debug > 0) THEN
5147: csi_t_gen_utility_pvt.add('After Get Item Instance');
5148: END IF;
5149: l_tbl_count := 0;
5150: l_tbl_count := l_dest_instance_header_tbl.count;
5151: IF (l_debug > 0) THEN
5148: END IF;
5149: l_tbl_count := 0;
5150: l_tbl_count := l_dest_instance_header_tbl.count;
5151: IF (l_debug > 0) THEN
5152: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
5153: END IF;
5154:
5155: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5156: IF NOT l_return_status = l_fnd_success then
5154:
5155: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5156: IF NOT l_return_status = l_fnd_success then
5157: IF (l_debug > 0) THEN
5158: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
5159: END IF;
5160: l_msg_index := 1;
5161: WHILE l_msg_count > 0 loop
5162: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5168:
5169: IF l_dest_instance_header_tbl.count = 0 THEN -- Installed Base Destination Records are not found so create a new record
5170:
5171: IF (l_debug > 0) THEN
5172: csi_t_gen_utility_pvt.add('Creating New Dest dest Instance - Neg Qty');
5173: END IF;
5174:
5175: l_new_dest_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
5176: l_new_dest_instance_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
5202: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
5203: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
5204:
5205: IF (l_debug > 0) THEN
5206: csi_t_gen_utility_pvt.add('Before Create Item Instance - Neg Qty');
5207: csi_t_gen_utility_pvt.add('In Transit Order Line ID on Dest Rec: '||l_new_dest_instance_rec.last_oe_order_line_id);
5208: END IF;
5209:
5210: csi_item_instance_pub.create_item_instance(l_api_version,
5203: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
5204:
5205: IF (l_debug > 0) THEN
5206: csi_t_gen_utility_pvt.add('Before Create Item Instance - Neg Qty');
5207: csi_t_gen_utility_pvt.add('In Transit Order Line ID on Dest Rec: '||l_new_dest_instance_rec.last_oe_order_line_id);
5208: END IF;
5209:
5210: csi_item_instance_pub.create_item_instance(l_api_version,
5211: l_commit,
5223: l_msg_count,
5224: l_msg_data);
5225:
5226: IF (l_debug > 0) THEN
5227: csi_t_gen_utility_pvt.add('After Create Item Instance - Neg Qty');
5228: END IF;
5229: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5230:
5231: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
5229: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5230:
5231: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
5232: IF (l_debug > 0) THEN
5233: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
5234: END IF;
5235: l_msg_index := 1;
5236: WHILE l_msg_count > 0 loop
5237: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5258:
5259: 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);
5260:
5261: IF (l_debug > 0) THEN
5262: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_dest_instance_rec.instance_status_id);
5263: END IF;
5264:
5265: IF (l_debug > 0) THEN
5266: csi_t_gen_utility_pvt.add('Before Update Item Instance');
5262: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_dest_instance_rec.instance_status_id);
5263: END IF;
5264:
5265: IF (l_debug > 0) THEN
5266: csi_t_gen_utility_pvt.add('Before Update Item Instance');
5267: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
5268: END IF;
5269:
5270: csi_item_instance_pub.update_item_instance(l_api_version,
5263: END IF;
5264:
5265: IF (l_debug > 0) THEN
5266: csi_t_gen_utility_pvt.add('Before Update Item Instance');
5267: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
5268: END IF;
5269:
5270: csi_item_instance_pub.update_item_instance(l_api_version,
5271: l_commit,
5287: l_upd_error_instance_id := NULL;
5288: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
5289:
5290: IF (l_debug > 0) THEN
5291: csi_t_gen_utility_pvt.add('After Update Item Instance');
5292: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
5293: END IF;
5294:
5295: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5288: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
5289:
5290: IF (l_debug > 0) THEN
5291: csi_t_gen_utility_pvt.add('After Update Item Instance');
5292: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
5293: END IF;
5294:
5295: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5296: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
5294:
5295: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5296: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
5297: IF (l_debug > 0) THEN
5298: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
5299: END IF;
5300: l_msg_index := 1;
5301: WHILE l_msg_count > 0 loop
5302: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5308:
5309: ELSIF l_dest_instance_header_tbl.count > 1 THEN
5310: -- Multiple Instances were found so throw error
5311: IF (l_debug > 0) THEN
5312: csi_t_gen_utility_pvt.add('Multiple Instances were Found in Install Base-61');
5313: END IF;
5314: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
5315: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
5316: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
5327: (l_mtl_item_tbl(j).serial_number_control_code = 1 AND -- Ship
5328: l_sr_control = 2) THEN -- Rec
5329:
5330: IF (l_debug > 0) THEN
5331: csi_t_gen_utility_pvt.add('Shipping is 1 and and Rec Serial Control is 2,5,6');
5332: END IF;
5333:
5334: l_12_loop := 1;
5335:
5333:
5334: l_12_loop := 1;
5335:
5336: IF (l_debug > 0) THEN
5337: csi_t_gen_utility_pvt.add('Setting l_12_loop: '||l_12_loop);
5338: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 1,6 and Receiving is 2,5');
5339: END IF;
5340:
5341: IF j = 1 THEN -- Update Source Since its Non Serialized 1 Time
5334: l_12_loop := 1;
5335:
5336: IF (l_debug > 0) THEN
5337: csi_t_gen_utility_pvt.add('Setting l_12_loop: '||l_12_loop);
5338: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 1,6 and Receiving is 2,5');
5339: END IF;
5340:
5341: IF j = 1 THEN -- Update Source Since its Non Serialized 1 Time
5342: IF (l_debug > 0) THEN
5339: END IF;
5340:
5341: IF j = 1 THEN -- Update Source Since its Non Serialized 1 Time
5342: IF (l_debug > 0) THEN
5343: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 1,6 and Receiving is 2,5');
5344: csi_t_gen_utility_pvt.add('Update Source 1 time with Transaction Quantity');
5345: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
5346: END IF;
5347:
5340:
5341: IF j = 1 THEN -- Update Source Since its Non Serialized 1 Time
5342: IF (l_debug > 0) THEN
5343: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 1,6 and Receiving is 2,5');
5344: csi_t_gen_utility_pvt.add('Update Source 1 time with Transaction Quantity');
5345: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
5346: END IF;
5347:
5348: l_upd_src_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
5341: IF j = 1 THEN -- Update Source Since its Non Serialized 1 Time
5342: IF (l_debug > 0) THEN
5343: csi_t_gen_utility_pvt.add('Serial Control at Shipping is 1,6 and Receiving is 2,5');
5344: csi_t_gen_utility_pvt.add('Update Source 1 time with Transaction Quantity');
5345: csi_t_gen_utility_pvt.add('Instance being updated: '||l_src_instance_header_tbl(i).instance_id);
5346: END IF;
5347:
5348: l_upd_src_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
5349: l_upd_src_dest_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
5357: l_org_assignments_tbl.delete;
5358: l_asset_assignment_tbl.delete;
5359:
5360: IF (l_debug > 0) THEN
5361: csi_t_gen_utility_pvt.add('Before Update Item Instance - 6');
5362: END IF;
5363:
5364: csi_item_instance_pub.update_item_instance(l_api_version,
5365: l_commit,
5381: l_upd_error_instance_id := NULL;
5382: l_upd_error_instance_id := l_upd_src_dest_instance_rec.instance_id;
5383:
5384: IF (l_debug > 0) THEN
5385: csi_t_gen_utility_pvt.add('After Update Item Instance - 7');
5386: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
5387: END IF;
5388:
5389: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5382: l_upd_error_instance_id := l_upd_src_dest_instance_rec.instance_id;
5383:
5384: IF (l_debug > 0) THEN
5385: csi_t_gen_utility_pvt.add('After Update Item Instance - 7');
5386: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
5387: END IF;
5388:
5389: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5390: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
5388:
5389: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5390: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
5391: IF (l_debug > 0) THEN
5392: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.update_item_instance API '||l_msg_data);
5393: END IF;
5394: l_msg_index := 1;
5395: WHILE l_msg_count > 0 loop
5396: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5416: l_organization_id := l_mtl_item_tbl(j).transfer_organization_id;
5417: l_locator_id := l_mtl_item_tbl(j).transfer_locator_id;
5418:
5419: IF (l_debug > 0) THEN
5420: csi_t_gen_utility_pvt.add('Before Get Dest Item Instance - 8');
5421: END IF;
5422:
5423: csi_item_instance_pub.get_item_instances(l_api_version,
5424: l_commit,
5435: l_msg_count,
5436: l_msg_data);
5437:
5438: IF (l_debug > 0) THEN
5439: csi_t_gen_utility_pvt.add('After Get Item Instance - 9');
5440: END IF;
5441:
5442: l_tbl_count := 0;
5443: l_tbl_count := l_dest_instance_header_tbl.count;
5441:
5442: l_tbl_count := 0;
5443: l_tbl_count := l_dest_instance_header_tbl.count;
5444: IF (l_debug > 0) THEN
5445: csi_t_gen_utility_pvt.add('Source Records Found: '||l_tbl_count);
5446: END IF;
5447:
5448: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5449: IF NOT l_return_status = l_fnd_success then
5447:
5448: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5449: IF NOT l_return_status = l_fnd_success then
5450: IF (l_debug > 0) THEN
5451: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.get_item_instance API '||l_msg_data);
5452: END IF;
5453: l_msg_index := 1;
5454: WHILE l_msg_count > 0 loop
5455: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5494:
5495: 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);
5496:
5497: IF (l_debug > 0) THEN
5498: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_new_dest_instance_rec.instance_status_id);
5499: END IF;
5500:
5501: IF (l_debug > 0) THEN
5502: csi_t_gen_utility_pvt.add('Before Create Item Instance - 10');
5498: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_new_dest_instance_rec.instance_status_id);
5499: END IF;
5500:
5501: IF (l_debug > 0) THEN
5502: csi_t_gen_utility_pvt.add('Before Create Item Instance - 10');
5503: csi_t_gen_utility_pvt.add('In Transit Order Line ID on Dest Rec: '||l_new_dest_instance_rec.last_oe_order_line_id);
5504: END IF;
5505:
5506: csi_item_instance_pub.create_item_instance(l_api_version,
5499: END IF;
5500:
5501: IF (l_debug > 0) THEN
5502: csi_t_gen_utility_pvt.add('Before Create Item Instance - 10');
5503: csi_t_gen_utility_pvt.add('In Transit Order Line ID on Dest Rec: '||l_new_dest_instance_rec.last_oe_order_line_id);
5504: END IF;
5505:
5506: csi_item_instance_pub.create_item_instance(l_api_version,
5507: l_commit,
5519: l_msg_count,
5520: l_msg_data);
5521:
5522: IF (l_debug > 0) THEN
5523: csi_t_gen_utility_pvt.add('After Create Item Instance - 11');
5524: END IF;
5525: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5526:
5527: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
5525: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5526:
5527: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
5528: IF (l_debug > 0) THEN
5529: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.create_item_instance API '||l_msg_data);
5530: END IF;
5531: l_msg_index := 1;
5532: WHILE l_msg_count > 0 loop
5533: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5542:
5543: IF l_dest_instance_header_tbl(i).instance_usage_code in (l_in_inventory,l_in_relationship) THEN
5544:
5545: IF l_dest_instance_header_tbl(i).instance_usage_code = l_in_relationship THEN
5546: csi_t_gen_utility_pvt.add('Check and Break Relationship for Instance :'||l_dest_instance_header_tbl(i).instance_id);
5547:
5548: csi_process_txn_pvt.check_and_break_relation(l_dest_instance_header_tbl(i).instance_id,
5549: l_txn_rec,
5550: l_return_status);
5549: l_txn_rec,
5550: l_return_status);
5551:
5552: IF NOT l_return_status = l_fnd_success then
5553: csi_t_gen_utility_pvt.add('You encountered an error in the se_inv_trxs_pkg.check_and_break_relation');
5554: l_error_message := csi_t_gen_utility_pvt.dump_error_stack;
5555: RAISE fnd_api.g_exc_error;
5556: END IF;
5557:
5550: l_return_status);
5551:
5552: IF NOT l_return_status = l_fnd_success then
5553: csi_t_gen_utility_pvt.add('You encountered an error in the se_inv_trxs_pkg.check_and_break_relation');
5554: l_error_message := csi_t_gen_utility_pvt.dump_error_stack;
5555: RAISE fnd_api.g_exc_error;
5556: END IF;
5557:
5558: csi_t_gen_utility_pvt.add('Object Version originally from instance: '||l_dest_instance_header_tbl(i).object_version_number);
5554: l_error_message := csi_t_gen_utility_pvt.dump_error_stack;
5555: RAISE fnd_api.g_exc_error;
5556: END IF;
5557:
5558: csi_t_gen_utility_pvt.add('Object Version originally from instance: '||l_dest_instance_header_tbl(i).object_version_number);
5559:
5560: OPEN c_obj_version (l_dest_instance_header_tbl(i).instance_id);
5561: FETCH c_obj_version into l_dest_instance_header_tbl(i).object_version_number;
5562: CLOSE c_obj_version;
5560: OPEN c_obj_version (l_dest_instance_header_tbl(i).instance_id);
5561: FETCH c_obj_version into l_dest_instance_header_tbl(i).object_version_number;
5562: CLOSE c_obj_version;
5563:
5564: csi_t_gen_utility_pvt.add('Current Object Version after check and break :'||l_dest_instance_header_tbl(i).object_version_number);
5565:
5566: END IF; -- Check and Break
5567:
5568:
5581:
5582: 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);
5583:
5584: IF (l_debug > 0) THEN
5585: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_dest_instance_rec.instance_status_id);
5586: END IF;
5587:
5588: IF (l_debug > 0) THEN
5589: csi_t_gen_utility_pvt.add('Before Update Item Instance - 13');
5585: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_dest_instance_rec.instance_status_id);
5586: END IF;
5587:
5588: IF (l_debug > 0) THEN
5589: csi_t_gen_utility_pvt.add('Before Update Item Instance - 13');
5590: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
5591: END IF;
5592:
5593: csi_item_instance_pub.update_item_instance(l_api_version,
5586: END IF;
5587:
5588: IF (l_debug > 0) THEN
5589: csi_t_gen_utility_pvt.add('Before Update Item Instance - 13');
5590: csi_t_gen_utility_pvt.add('In Transit Order Line ID in Updated Instance: '||l_update_dest_instance_rec.last_oe_order_line_id);
5591: END IF;
5592:
5593: csi_item_instance_pub.update_item_instance(l_api_version,
5594: l_commit,
5609: l_upd_error_instance_id := NULL;
5610: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
5611:
5612: IF (l_debug > 0) THEN
5613: csi_t_gen_utility_pvt.add('After Update Item Instance - 14');
5614: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
5615: END IF;
5616:
5617: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5610: l_upd_error_instance_id := l_update_dest_instance_rec.instance_id;
5611:
5612: IF (l_debug > 0) THEN
5613: csi_t_gen_utility_pvt.add('After Update Item Instance - 14');
5614: csi_t_gen_utility_pvt.add('l_upd_error_instance_id is: '||l_upd_error_instance_id);
5615: END IF;
5616:
5617: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5618: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
5616:
5617: -- Check for any errors and add them to the message stack to pass out to be put into the error log table.
5618: IF NOT l_return_status in (l_fnd_success,l_fnd_warning) then
5619: IF (l_debug > 0) THEN
5620: csi_t_gen_utility_pvt.add('You encountered an error in the csi_item_instance_pub.c API '||l_msg_data);
5621: END IF;
5622: l_msg_index := 1;
5623: WHILE l_msg_count > 0 loop
5624: l_error_message := l_error_message || fnd_msg_pub.get(l_msg_index,FND_API.G_FALSE);
5630:
5631: ELSE -- No Serialized Instances with In Inventory or In Relationship Exist
5632:
5633: IF (l_debug > 0) THEN
5634: csi_t_gen_utility_pvt.add('No Records were found in Install Base-5');
5635: END IF;
5636:
5637: fnd_message.set_name('CSI','CSI_IB_RECORD_NOTFOUND');
5638: fnd_message.set_token('ITEM',l_mtl_item_tbl(j).inventory_item_id);
5645:
5646: ELSIF l_dest_instance_header_tbl.count > 1 THEN
5647: -- Multiple Instances were found so throw error
5648: IF (l_debug > 0) THEN
5649: csi_t_gen_utility_pvt.add('Multiple Instances were Found in Install Base-62');
5650: END IF;
5651: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
5652: fnd_message.set_token('INV_ITEM_ID',l_mtl_item_tbl(j).inventory_item_id);
5653: fnd_message.set_token('SUBINV',l_mtl_item_tbl(j).subinventory_code);
5661: END IF; -- End of Serial Control IF
5662:
5663: IF l_66_flag = 1 THEN
5664: IF (l_debug > 0) THEN
5665: csi_t_gen_utility_pvt.add('Exiting Loop :'||l_66_flag);
5666: csi_t_gen_utility_pvt.add('Ship Control :'||l_mtl_item_tbl(j).serial_number_control_code);
5667: csi_t_gen_utility_pvt.add('Rec Control :'||l_sr_control);
5668: END IF;
5669: EXIT;
5662:
5663: IF l_66_flag = 1 THEN
5664: IF (l_debug > 0) THEN
5665: csi_t_gen_utility_pvt.add('Exiting Loop :'||l_66_flag);
5666: csi_t_gen_utility_pvt.add('Ship Control :'||l_mtl_item_tbl(j).serial_number_control_code);
5667: csi_t_gen_utility_pvt.add('Rec Control :'||l_sr_control);
5668: END IF;
5669: EXIT;
5670: END IF;
5663: IF l_66_flag = 1 THEN
5664: IF (l_debug > 0) THEN
5665: csi_t_gen_utility_pvt.add('Exiting Loop :'||l_66_flag);
5666: csi_t_gen_utility_pvt.add('Ship Control :'||l_mtl_item_tbl(j).serial_number_control_code);
5667: csi_t_gen_utility_pvt.add('Rec Control :'||l_sr_control);
5668: END IF;
5669: EXIT;
5670: END IF;
5671:
5671:
5672: END LOOP; -- End of main For Inv Loop
5673:
5674: IF (l_debug > 0) THEN
5675: csi_t_gen_utility_pvt.add('End time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
5676: csi_t_gen_utility_pvt.add('******End of csi_inv_iso_pkg.iso_direct Transaction******');
5677: END IF;
5678:
5679: EXCEPTION
5672: END LOOP; -- End of main For Inv Loop
5673:
5674: IF (l_debug > 0) THEN
5675: csi_t_gen_utility_pvt.add('End time: '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
5676: csi_t_gen_utility_pvt.add('******End of csi_inv_iso_pkg.iso_direct Transaction******');
5677: END IF;
5678:
5679: EXCEPTION
5680: WHEN fnd_api.g_exc_error THEN
5678:
5679: EXCEPTION
5680: WHEN fnd_api.g_exc_error THEN
5681: IF (l_debug > 0) THEN
5682: csi_t_gen_utility_pvt.add('You have encountered a "fnd_api.g_exc_error" exception in the Direct ISO Transaction');
5683: END IF;
5684: x_return_status := l_fnd_error;
5685:
5686: IF l_mtl_item_tbl.count > 0 THEN
5711:
5712: WHEN others THEN
5713: l_sql_error := SQLERRM;
5714: IF (l_debug > 0) THEN
5715: csi_t_gen_utility_pvt.add('You have encountered a "when others" exception in the Direct ISO Transaction');
5716: csi_t_gen_utility_pvt.add('SQL Error: '||l_sql_error);
5717: END IF;
5718: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
5719: fnd_message.set_token('API_NAME',l_api_name);
5712: WHEN others THEN
5713: l_sql_error := SQLERRM;
5714: IF (l_debug > 0) THEN
5715: csi_t_gen_utility_pvt.add('You have encountered a "when others" exception in the Direct ISO Transaction');
5716: csi_t_gen_utility_pvt.add('SQL Error: '||l_sql_error);
5717: END IF;
5718: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
5719: fnd_message.set_token('API_NAME',l_api_name);
5720: fnd_message.set_token('SQL_ERROR',SQLERRM);