[Home] [Help]
8: x_return_status OUT NOCOPY VARCHAR2,
9: x_trx_error_rec OUT NOCOPY CSI_DATASTRUCTURES_PUB.TRANSACTION_ERROR_REC)
10: IS
11:
12: l_mtl_item_tbl CSI_INV_TRXS_PKG.MTL_ITEM_TBL_TYPE;
13: l_api_name VARCHAR2(100) := 'CSI_INV_PROJECT_PKG.ISSUE_TO_PROJECT';
14: l_api_version NUMBER := 1.0;
15: l_commit VARCHAR2(1) := FND_API.G_FALSE;
16: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
48: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
49: l_fnd_warning VARCHAR2(1) := 'W';
50: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
51: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
52: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
53: l_in_process VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_PROCESS;
54: l_out_of_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_OUT_OF_SERVICE;
55: l_in_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_SERVICE;
56: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
49: l_fnd_warning VARCHAR2(1) := 'W';
50: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
51: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
52: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
53: l_in_process VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_PROCESS;
54: l_out_of_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_OUT_OF_SERVICE;
55: l_in_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_SERVICE;
56: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
57: l_installed VARCHAR2(25) := CSI_INV_TRXS_PKG.G_INSTALLED;
50: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
51: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
52: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
53: l_in_process VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_PROCESS;
54: l_out_of_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_OUT_OF_SERVICE;
55: l_in_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_SERVICE;
56: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
57: l_installed VARCHAR2(25) := CSI_INV_TRXS_PKG.G_INSTALLED;
58: l_transaction_error_id NUMBER;
51: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
52: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
53: l_in_process VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_PROCESS;
54: l_out_of_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_OUT_OF_SERVICE;
55: l_in_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_SERVICE;
56: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
57: l_installed VARCHAR2(25) := CSI_INV_TRXS_PKG.G_INSTALLED;
58: l_transaction_error_id NUMBER;
59: l_quantity NUMBER;
52: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
53: l_in_process VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_PROCESS;
54: l_out_of_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_OUT_OF_SERVICE;
55: l_in_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_SERVICE;
56: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
57: l_installed VARCHAR2(25) := CSI_INV_TRXS_PKG.G_INSTALLED;
58: l_transaction_error_id NUMBER;
59: l_quantity NUMBER;
60: l_mfg_serial_flag VARCHAR2(1);
53: l_in_process VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_PROCESS;
54: l_out_of_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_OUT_OF_SERVICE;
55: l_in_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_SERVICE;
56: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
57: l_installed VARCHAR2(25) := CSI_INV_TRXS_PKG.G_INSTALLED;
58: l_transaction_error_id NUMBER;
59: l_quantity NUMBER;
60: l_mfg_serial_flag VARCHAR2(1);
61: l_trans_status_code VARCHAR2(15);
86:
87: x_return_status := l_fnd_success;
88:
89: IF (l_debug > 0) THEN
90: csi_t_gen_utility_pvt.add('*****Start of csi_inv_trxs_pkg.issue_to_project Transaction procedure*****');
91: csi_t_gen_utility_pvt.add('Transaction You are Processing is: '||p_transaction_id);
92: END IF;
93:
94: -- This procedure queries all of the Inventory Transaction Records and returns them
92: END IF;
93:
94: -- This procedure queries all of the Inventory Transaction Records and returns them
95: -- as a table.
96: csi_inv_trxs_pkg.get_transaction_recs(p_transaction_id,
97: l_mtl_item_tbl,
98: l_return_status,
99: l_error_message);
100:
105: END IF;
106:
107: IF NOT l_return_status = l_fnd_success THEN
108: IF (l_debug > 0) THEN
109: csi_t_gen_utility_pvt.add('You have encountered an error in CSI_INV_TRXS_PKG.get_transaction_recs, Transaction ID: '||p_transaction_id);
110: END IF;
111: RAISE fnd_api.g_exc_error;
112: END IF;
113:
111: RAISE fnd_api.g_exc_error;
112: END IF;
113:
114: -- Get the Master Organization ID
115: csi_inv_trxs_pkg.get_master_organization(l_mtl_item_tbl(i).organization_id,
116: l_master_organization_id,
117: l_return_status,
118: l_error_message);
119:
118: l_error_message);
119:
120: IF NOT l_return_status = l_fnd_success THEN
121: IF (l_debug > 0) THEN
122: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_master_organization, Organization ID: '||l_mtl_item_tbl(i).organization_id);
123: END IF;
124: RAISE fnd_api.g_exc_error;
125: END IF;
126:
124: RAISE fnd_api.g_exc_error;
125: END IF;
126:
127: -- Call get_fnd_employee_id and get the employee id
128: l_employee_id := csi_inv_trxs_pkg.get_fnd_employee_id(l_mtl_item_tbl(i).last_updated_by);
129:
130: IF l_employee_id = -1 THEN
131: IF (l_debug > 0) THEN
132: csi_t_gen_utility_pvt.add('The person who last updated this record: '||l_mtl_item_tbl(i).last_updated_by||' does not exist as a valid employee');
136: csi_t_gen_utility_pvt.add('The Employee that is processing this Transaction is: '||l_employee_id);
137: END IF;
138:
139: -- See if this is a depreciable Item to set the status of the transaction record
140: csi_inv_trxs_pkg.check_depreciable(l_mtl_item_tbl(i).inventory_item_id,
141: l_depreciable);
142:
143: IF (l_debug > 0) THEN
144: csi_t_gen_utility_pvt.add('Is this Item ID: '||l_mtl_item_tbl(i).inventory_item_id||', Depreciable :'||l_depreciable);
158:
159: -- Get the Negative Receipt Code to see if this org allows Negative
160: -- Quantity Records 1 = Yes, 2 = No
161:
162: l_neg_code := csi_inv_trxs_pkg.get_neg_inv_code(
163: l_mtl_item_tbl(i).organization_id);
164:
165: IF l_neg_code = 1 AND l_mtl_item_tbl(i).serial_number is NULL THEN
166: l_instance_status := FND_API.G_FALSE;
176: csi_t_gen_utility_pvt.add('Starting to loop through Material Transaction Records');
177: END IF;
178:
179: -- Initialize Transaction Record
180: l_txn_rec := csi_inv_trxs_pkg.init_txn_rec;
181:
182: -- Set Status based on redeployment
183: IF l_depreciable = 'N' THEN
184: IF l_mtl_item_tbl(i).serial_number is NOT NULL THEN
181:
182: -- Set Status based on redeployment
183: IF l_depreciable = 'N' THEN
184: IF l_mtl_item_tbl(i).serial_number is NOT NULL THEN
185: csi_inv_trxs_pkg.get_redeploy_flag(l_mtl_item_tbl(i).inventory_item_id,
186: l_mtl_item_tbl(i).serial_number,
187: l_sysdate,
188: l_redeploy_flag,
189: l_return_status,
189: l_return_status,
190: l_error_message);
191: END IF;
192: IF l_redeploy_flag = 'Y' THEN
193: l_txn_rec.transaction_status_code := csi_inv_trxs_pkg.g_pending;
194: ELSE
195: l_txn_rec.transaction_status_code := csi_inv_trxs_pkg.g_complete;
196: END IF;
197: ELSE
191: END IF;
192: IF l_redeploy_flag = 'Y' THEN
193: l_txn_rec.transaction_status_code := csi_inv_trxs_pkg.g_pending;
194: ELSE
195: l_txn_rec.transaction_status_code := csi_inv_trxs_pkg.g_complete;
196: END IF;
197: ELSE
198: l_txn_rec.transaction_status_code := csi_inv_trxs_pkg.g_pending;
199: END IF;
194: ELSE
195: l_txn_rec.transaction_status_code := csi_inv_trxs_pkg.g_complete;
196: END IF;
197: ELSE
198: l_txn_rec.transaction_status_code := csi_inv_trxs_pkg.g_pending;
199: END IF;
200:
201: IF NOT l_return_status = l_fnd_success THEN
202: IF (l_debug > 0) THEN
200:
201: IF NOT l_return_status = l_fnd_success THEN
202: IF (l_debug > 0) THEN
203: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
204: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
205: END IF;
206: RAISE fnd_api.g_exc_error;
207: END IF;
208:
218:
219: -- Create CSI Transaction to be used
220: l_txn_rec.source_transaction_date := l_mtl_item_tbl(i).transaction_date;
221: l_txn_rec.transaction_date := l_sysdate;
222: l_txn_rec.transaction_type_id := csi_inv_trxs_pkg.get_txn_type_id('MOVE_ORDER_ISSUE_TO_PROJECT','INV');
223: l_txn_rec.transaction_quantity := l_mtl_item_tbl(i).transaction_quantity;
224: l_txn_rec.transaction_uom_code := l_mtl_item_tbl(i).transaction_uom;
225: l_txn_rec.transacted_by := l_employee_id;
226: l_txn_rec.transaction_action_code := NULL;
229: l_txn_rec.object_version_number := l_object_version_number;
230: l_txn_rec.source_header_ref_id := l_mtl_item_tbl(i).transaction_source_id;
231: l_txn_rec.source_line_ref_id := l_mtl_item_tbl(i).move_order_line_id;
232:
233: csi_inv_trxs_pkg.create_csi_txn(l_txn_rec,
234: l_error_message,
235: l_return_status);
236:
237: IF (l_debug > 0) THEN
239: END IF;
240:
241: IF NOT l_return_status = l_fnd_success THEN
242: IF (l_debug > 0) THEN
243: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.create_csi_txn: '||p_transaction_id);
244: END IF;
245: RAISE fnd_api.g_exc_error;
246: END IF;
247:
253: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
254: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
255: END IF;
256:
257: l_instance_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
258: l_instance_query_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
259: l_instance_query_rec.lot_number := l_mtl_item_tbl(j).lot_number;
260: l_instance_query_rec.serial_number := l_mtl_item_tbl(j).serial_number;
261: l_instance_query_rec.inventory_revision := l_mtl_item_tbl(j).revision;
314: IF (l_debug > 0) THEN
315: csi_t_gen_utility_pvt.add('No records were found so create a new Source Instance Record');
316: END IF;
317:
318: l_new_src_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
319: l_new_src_instance_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
320: l_new_src_instance_rec.inventory_revision := l_mtl_item_tbl(j).revision;
321: l_new_src_instance_rec.inv_master_organization_id := l_master_organization_id;
322: l_new_src_instance_rec.mfg_serial_number_flag := 'N';
327: l_new_src_instance_rec.unit_of_measure := l_mtl_item_tbl(j).transaction_uom;
328: l_new_src_instance_rec.instance_usage_code := l_in_inventory;
329: l_new_src_instance_rec.inv_locator_id := l_mtl_item_tbl(j).locator_id;
330: l_new_src_instance_rec.inv_subinventory_name := l_mtl_item_tbl(j).subinventory_code;
331: l_new_src_instance_rec.location_type_code := csi_inv_trxs_pkg.get_location_type_code('Inventory');
332: l_new_src_instance_rec.location_id := nvl(l_mtl_item_tbl(j).subinv_location_id,l_mtl_item_tbl(j).hr_location_id);
333: l_new_src_instance_rec.inv_organization_id := l_mtl_item_tbl(j).organization_id;
334: l_new_src_instance_rec.vld_organization_id := l_mtl_item_tbl(j).organization_id;
335: l_new_src_instance_rec.customer_view_flag := 'N';
336: l_new_src_instance_rec.merchant_view_flag := 'Y';
337: l_new_src_instance_rec.operational_status_code := 'NOT_USED';
338: l_new_src_instance_rec.object_version_number := l_object_version_number;
339:
340: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
341: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
342: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
343: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
344: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
337: l_new_src_instance_rec.operational_status_code := 'NOT_USED';
338: l_new_src_instance_rec.object_version_number := l_object_version_number;
339:
340: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
341: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
342: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
343: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
344: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
345: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
338: l_new_src_instance_rec.object_version_number := l_object_version_number;
339:
340: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
341: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
342: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
343: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
344: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
345: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
346:
339:
340: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
341: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
342: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
343: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
344: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
345: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
346:
347: IF (l_debug > 0) THEN
340: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
341: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
342: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
343: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
344: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
345: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
346:
347: IF (l_debug > 0) THEN
348: csi_t_gen_utility_pvt.add('Before Create Source Item Instance');
341: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
342: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
343: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
344: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
345: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
346:
347: IF (l_debug > 0) THEN
348: csi_t_gen_utility_pvt.add('Before Create Source Item Instance');
349: END IF;
402: IF (l_debug > 0) THEN
403: csi_t_gen_utility_pvt.add('You will update instance: '||l_src_instance_header_tbl(i).instance_id);
404: csi_t_gen_utility_pvt.add('End Date is: '||l_src_instance_header_tbl(i).active_end_date);
405: END IF;
406: l_update_source_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
407: l_update_source_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
408: l_update_source_instance_rec.quantity := l_src_instance_header_tbl(i).quantity - abs(l_mtl_item_tbl(j).primary_quantity);
409: l_update_source_instance_rec.active_end_date := NULL;
410: l_update_source_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
414: l_pricing_attrib_tbl.delete;
415: l_org_assignments_tbl.delete;
416: l_asset_assignment_tbl.delete;
417:
418: l_update_source_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
419:
420: IF (l_debug > 0) THEN
421: csi_t_gen_utility_pvt.add('Before Update Item Instance');
422: END IF;
478:
479: END IF; -- End of Source Record IF
480:
481: -- Now query and get the destination record.
482: l_instance_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
483: l_instance_query_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
484: l_instance_query_rec.pa_project_id := l_mtl_item_tbl(j).source_project_id;
485: l_instance_query_rec.pa_project_task_id := l_mtl_item_tbl(j).source_task_id;
486: l_instance_query_rec.inventory_revision := l_mtl_item_tbl(j).revision;
533: IF (l_debug > 0) THEN
534: csi_t_gen_utility_pvt.add('No Destination Records were found so we will create a new destination Record using the source data');
535: END IF;
536:
537: l_new_dest_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
538: l_new_dest_instance_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
539: l_new_dest_instance_rec.inventory_revision := l_mtl_item_tbl(j).revision;
540: l_new_dest_instance_rec.inv_master_organization_id := l_master_organization_id;
541: l_new_dest_instance_rec.mfg_serial_number_flag := 'N';
545: l_new_dest_instance_rec.active_end_date := NULL;
546: l_new_dest_instance_rec.unit_of_measure := l_mtl_item_tbl(j).transaction_uom;
547: l_new_dest_instance_rec.instance_usage_code := l_in_process;
548: l_new_dest_instance_rec.inv_locator_id := NULL;
549: l_new_dest_instance_rec.location_type_code := csi_inv_trxs_pkg.get_location_type_code('Project');
550: l_new_dest_instance_rec.location_id := csi_inv_trxs_pkg.get_dflt_project_location_id;
551: l_new_dest_instance_rec.inv_organization_id := NULL;
552: l_new_dest_instance_rec.vld_organization_id := l_mtl_item_tbl(j).organization_id;
553: l_new_dest_instance_rec.pa_project_id := l_mtl_item_tbl(j).source_project_id;
546: l_new_dest_instance_rec.unit_of_measure := l_mtl_item_tbl(j).transaction_uom;
547: l_new_dest_instance_rec.instance_usage_code := l_in_process;
548: l_new_dest_instance_rec.inv_locator_id := NULL;
549: l_new_dest_instance_rec.location_type_code := csi_inv_trxs_pkg.get_location_type_code('Project');
550: l_new_dest_instance_rec.location_id := csi_inv_trxs_pkg.get_dflt_project_location_id;
551: l_new_dest_instance_rec.inv_organization_id := NULL;
552: l_new_dest_instance_rec.vld_organization_id := l_mtl_item_tbl(j).organization_id;
553: l_new_dest_instance_rec.pa_project_id := l_mtl_item_tbl(j).source_project_id;
554: l_new_dest_instance_rec.pa_project_task_id := l_mtl_item_tbl(j).source_task_id;
556: l_new_dest_instance_rec.merchant_view_flag := 'Y';
557: l_new_dest_instance_rec.operational_status_code := 'NOT_USED';
558: l_new_dest_instance_rec.object_version_number := l_object_version_number;
559:
560: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
561: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
562: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
563: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
564: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
557: l_new_dest_instance_rec.operational_status_code := 'NOT_USED';
558: l_new_dest_instance_rec.object_version_number := l_object_version_number;
559:
560: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
561: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
562: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
563: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
564: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
565: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
558: l_new_dest_instance_rec.object_version_number := l_object_version_number;
559:
560: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
561: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
562: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
563: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
564: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
565: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
566:
559:
560: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
561: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
562: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
563: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
564: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
565: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
566:
567: IF (l_debug > 0) THEN
560: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
561: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
562: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
563: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
564: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
565: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
566:
567: IF (l_debug > 0) THEN
568: csi_t_gen_utility_pvt.add('Before Create Item Instance - Neg Qty');
561: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
562: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
563: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
564: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
565: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
566:
567: IF (l_debug > 0) THEN
568: csi_t_gen_utility_pvt.add('Before Create Item Instance - Neg Qty');
569: END IF;
608: IF (l_debug > 0) THEN
609: csi_t_gen_utility_pvt.add('You will update instance: '||l_dest_instance_header_tbl(i).instance_id);
610: END IF;
611:
612: l_update_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
613: l_update_dest_instance_rec.instance_id := l_dest_instance_header_tbl(i).instance_id;
614: l_update_dest_instance_rec.quantity := l_dest_instance_header_tbl(i).quantity + abs(l_mtl_item_tbl(j).primary_quantity);
615: l_update_dest_instance_rec.active_end_date := NULL;
616: l_update_dest_instance_rec.object_version_number := l_dest_instance_header_tbl(i).object_version_number;
620: l_pricing_attrib_tbl.delete;
621: l_org_assignments_tbl.delete;
622: l_asset_assignment_tbl.delete;
623:
624: l_update_dest_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
625:
626: IF (l_debug > 0) THEN
627: csi_t_gen_utility_pvt.add('Before Update Item Instance - Neg Qty');
628: END IF;
687: csi_t_gen_utility_pvt.add('You are updating a Serialized Item: '||l_src_instance_header_tbl(i).instance_id);
688: csi_t_gen_utility_pvt.add('The Transaction Status Code will be - Complete (C) or Incomplete (I): '||l_trans_status_code);
689: END IF;
690:
691: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
692: l_update_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
693: l_update_instance_rec.lot_number := l_mtl_item_tbl(j).lot_number;
694: l_update_instance_rec.inv_subinventory_name := NULL;
695: -- Added for Bug 5975739
696: l_update_instance_rec.inv_master_organization_id := l_master_organization_id;
697: l_update_instance_rec.inv_organization_id := NULL;
698: l_update_instance_rec.vld_organization_id := l_mtl_item_tbl(j).organization_id;
699: l_update_instance_rec.inv_locator_id := NULL;
700: l_update_instance_rec.location_id := csi_inv_trxs_pkg.get_dflt_project_location_id;
701: l_update_instance_rec.location_type_code := csi_inv_trxs_pkg.get_location_type_code('Project');
702: l_update_instance_rec.pa_project_id := l_mtl_item_tbl(j).source_project_id;
703: l_update_instance_rec.pa_project_task_id := l_mtl_item_tbl(j).source_task_id;
704: l_update_instance_rec.instance_usage_code := l_in_process;
697: l_update_instance_rec.inv_organization_id := NULL;
698: l_update_instance_rec.vld_organization_id := l_mtl_item_tbl(j).organization_id;
699: l_update_instance_rec.inv_locator_id := NULL;
700: l_update_instance_rec.location_id := csi_inv_trxs_pkg.get_dflt_project_location_id;
701: l_update_instance_rec.location_type_code := csi_inv_trxs_pkg.get_location_type_code('Project');
702: l_update_instance_rec.pa_project_id := l_mtl_item_tbl(j).source_project_id;
703: l_update_instance_rec.pa_project_task_id := l_mtl_item_tbl(j).source_task_id;
704: l_update_instance_rec.instance_usage_code := l_in_process;
705: l_update_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
780: END IF; -- End of Serial Number If
781: END LOOP; -- End of For Loop
782:
783: IF (l_debug > 0) THEN
784: csi_t_gen_utility_pvt.add('*****End of csi_inv_trxs_pkg.issue_to_project Transaction procedure*****');
785: END IF;
786:
787: EXCEPTION
788: WHEN fnd_api.g_exc_error THEN
807: x_trx_error_rec.error_text := l_error_message;
808: x_trx_error_rec.transaction_id := NULL;
809: x_trx_error_rec.source_type := 'CSIISUPT';
810: x_trx_error_rec.source_id := p_transaction_id;
811: x_trx_error_rec.processed_flag := csi_inv_trxs_pkg.g_txn_error;
812: x_trx_error_rec.transaction_type_id := csi_inv_trxs_pkg.get_txn_type_id('MOVE_ORDER_ISSUE_TO_PROJECT','INV');
813: x_trx_error_rec.inv_material_transaction_id := p_transaction_id;
814: x_trx_error_rec.error_stage := csi_inv_trxs_pkg.g_ib_update;
815:
808: x_trx_error_rec.transaction_id := NULL;
809: x_trx_error_rec.source_type := 'CSIISUPT';
810: x_trx_error_rec.source_id := p_transaction_id;
811: x_trx_error_rec.processed_flag := csi_inv_trxs_pkg.g_txn_error;
812: x_trx_error_rec.transaction_type_id := csi_inv_trxs_pkg.get_txn_type_id('MOVE_ORDER_ISSUE_TO_PROJECT','INV');
813: x_trx_error_rec.inv_material_transaction_id := p_transaction_id;
814: x_trx_error_rec.error_stage := csi_inv_trxs_pkg.g_ib_update;
815:
816: WHEN others THEN
810: x_trx_error_rec.source_id := p_transaction_id;
811: x_trx_error_rec.processed_flag := csi_inv_trxs_pkg.g_txn_error;
812: x_trx_error_rec.transaction_type_id := csi_inv_trxs_pkg.get_txn_type_id('MOVE_ORDER_ISSUE_TO_PROJECT','INV');
813: x_trx_error_rec.inv_material_transaction_id := p_transaction_id;
814: x_trx_error_rec.error_stage := csi_inv_trxs_pkg.g_ib_update;
815:
816: WHEN others THEN
817: IF (l_debug > 0) THEN
818: csi_t_gen_utility_pvt.add('You have encountered a "others" exception');
838: x_trx_error_rec.error_text := fnd_message.get;
839: x_trx_error_rec.transaction_id := NULL;
840: x_trx_error_rec.source_type := 'CSIISUPT';
841: x_trx_error_rec.source_id := p_transaction_id;
842: x_trx_error_rec.processed_flag := csi_inv_trxs_pkg.g_txn_error;
843: x_trx_error_rec.transaction_type_id := csi_inv_trxs_pkg.get_txn_type_id('MOVE_ORDER_ISSUE_TO_PROJECT','INV');
844: x_trx_error_rec.inv_material_transaction_id := p_transaction_id;
845: x_trx_error_rec.error_stage := csi_inv_trxs_pkg.g_ib_update;
846: END issue_to_project;
839: x_trx_error_rec.transaction_id := NULL;
840: x_trx_error_rec.source_type := 'CSIISUPT';
841: x_trx_error_rec.source_id := p_transaction_id;
842: x_trx_error_rec.processed_flag := csi_inv_trxs_pkg.g_txn_error;
843: x_trx_error_rec.transaction_type_id := csi_inv_trxs_pkg.get_txn_type_id('MOVE_ORDER_ISSUE_TO_PROJECT','INV');
844: x_trx_error_rec.inv_material_transaction_id := p_transaction_id;
845: x_trx_error_rec.error_stage := csi_inv_trxs_pkg.g_ib_update;
846: END issue_to_project;
847:
841: x_trx_error_rec.source_id := p_transaction_id;
842: x_trx_error_rec.processed_flag := csi_inv_trxs_pkg.g_txn_error;
843: x_trx_error_rec.transaction_type_id := csi_inv_trxs_pkg.get_txn_type_id('MOVE_ORDER_ISSUE_TO_PROJECT','INV');
844: x_trx_error_rec.inv_material_transaction_id := p_transaction_id;
845: x_trx_error_rec.error_stage := csi_inv_trxs_pkg.g_ib_update;
846: END issue_to_project;
847:
848: PROCEDURE misc_receipt_projtask(p_transaction_id IN NUMBER,
849: p_message_id IN NUMBER,
850: x_return_status OUT NOCOPY VARCHAR2,
851: x_trx_error_rec OUT NOCOPY CSI_DATASTRUCTURES_PUB.TRANSACTION_ERROR_REC)
852: IS
853:
854: l_mtl_item_tbl CSI_INV_TRXS_PKG.MTL_ITEM_TBL_TYPE;
855: l_api_name VARCHAR2(100) := 'CSI_INV_PROJECT_PKG.MISC_RECEIPT_PROJTASK';
856: l_api_version NUMBER := 1.0;
857: l_commit VARCHAR2(1) := FND_API.G_FALSE;
858: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
892: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
893: l_fnd_warning VARCHAR2(1) := 'W';
894: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
895: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
896: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
897: l_in_process VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_PROCESS;
898: l_out_of_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_OUT_OF_SERVICE;
899: l_in_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_SERVICE;
900: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
893: l_fnd_warning VARCHAR2(1) := 'W';
894: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
895: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
896: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
897: l_in_process VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_PROCESS;
898: l_out_of_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_OUT_OF_SERVICE;
899: l_in_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_SERVICE;
900: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
901: l_installed VARCHAR2(25) := CSI_INV_TRXS_PKG.G_INSTALLED;
894: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
895: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
896: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
897: l_in_process VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_PROCESS;
898: l_out_of_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_OUT_OF_SERVICE;
899: l_in_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_SERVICE;
900: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
901: l_installed VARCHAR2(25) := CSI_INV_TRXS_PKG.G_INSTALLED;
902: l_in_wip VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_WIP;
895: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
896: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
897: l_in_process VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_PROCESS;
898: l_out_of_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_OUT_OF_SERVICE;
899: l_in_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_SERVICE;
900: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
901: l_installed VARCHAR2(25) := CSI_INV_TRXS_PKG.G_INSTALLED;
902: l_in_wip VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_WIP;
903: l_transaction_error_id NUMBER;
896: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
897: l_in_process VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_PROCESS;
898: l_out_of_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_OUT_OF_SERVICE;
899: l_in_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_SERVICE;
900: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
901: l_installed VARCHAR2(25) := CSI_INV_TRXS_PKG.G_INSTALLED;
902: l_in_wip VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_WIP;
903: l_transaction_error_id NUMBER;
904: l_quantity NUMBER;
897: l_in_process VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_PROCESS;
898: l_out_of_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_OUT_OF_SERVICE;
899: l_in_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_SERVICE;
900: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
901: l_installed VARCHAR2(25) := CSI_INV_TRXS_PKG.G_INSTALLED;
902: l_in_wip VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_WIP;
903: l_transaction_error_id NUMBER;
904: l_quantity NUMBER;
905: l_mfg_serial_flag VARCHAR2(1);
898: l_out_of_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_OUT_OF_SERVICE;
899: l_in_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_SERVICE;
900: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
901: l_installed VARCHAR2(25) := CSI_INV_TRXS_PKG.G_INSTALLED;
902: l_in_wip VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_WIP;
903: l_transaction_error_id NUMBER;
904: l_quantity NUMBER;
905: l_mfg_serial_flag VARCHAR2(1);
906: l_trans_status_code VARCHAR2(15);
929:
930: x_return_status := l_fnd_success;
931:
932: IF (l_debug > 0) THEN
933: csi_t_gen_utility_pvt.add('*****Start of csi_inv_trxs_pkg.misc_receipt_projtask Transaction procedure*****');
934: csi_t_gen_utility_pvt.add('Transaction You are Processing is: '||p_transaction_id);
935: END IF;
936:
937: -- This procedure queries all of the Inventory Transaction Records and returns them
935: END IF;
936:
937: -- This procedure queries all of the Inventory Transaction Records and returns them
938: -- as a table.
939: csi_inv_trxs_pkg.get_transaction_recs(p_transaction_id,
940: l_mtl_item_tbl,
941: l_return_status,
942: l_error_message);
943:
948: END IF;
949:
950: IF NOT l_return_status = l_fnd_success THEN
951: IF (l_debug > 0) THEN
952: csi_t_gen_utility_pvt.add('You have encountered an error in CSI_INV_TRXS_PKG.get_transaction_recs, Transaction ID: '||p_transaction_id);
953: END IF;
954: RAISE fnd_api.g_exc_error;
955: END IF;
956:
954: RAISE fnd_api.g_exc_error;
955: END IF;
956:
957: -- Get the Master Organization ID
958: csi_inv_trxs_pkg.get_master_organization(l_mtl_item_tbl(i).organization_id,
959: l_master_organization_id,
960: l_return_status,
961: l_error_message);
962:
961: l_error_message);
962:
963: IF NOT l_return_status = l_fnd_success THEN
964: IF (l_debug > 0) THEN
965: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_master_organization, Organization ID: '||l_mtl_item_tbl(i).organization_id);
966: END IF;
967: RAISE fnd_api.g_exc_error;
968: END IF;
969:
967: RAISE fnd_api.g_exc_error;
968: END IF;
969:
970: -- Call get_fnd_employee_id and get the employee id
971: l_employee_id := csi_inv_trxs_pkg.get_fnd_employee_id(l_mtl_item_tbl(i).last_updated_by);
972:
973: IF l_employee_id = -1 THEN
974: IF (l_debug > 0) THEN
975: csi_t_gen_utility_pvt.add('The person who last updated this record: '||l_mtl_item_tbl(i).last_updated_by||' does not exist as a valid employee');
979: csi_t_gen_utility_pvt.add('The Employee that is processing this Transaction is: '||l_employee_id);
980: END IF;
981:
982: -- See if this is a depreciable Item to set the status of the transaction record
983: csi_inv_trxs_pkg.check_depreciable(l_mtl_item_tbl(i).inventory_item_id,
984: l_depreciable);
985:
986: IF (l_debug > 0) THEN
987: csi_t_gen_utility_pvt.add('Is this Item ID: '||l_mtl_item_tbl(i).inventory_item_id||', Depreciable :'||l_depreciable);
994: l_quantity := 1;
995: END IF;
996:
997: -- Initialize Transaction Record
998: l_txn_rec := csi_inv_trxs_pkg.init_txn_rec;
999:
1000: -- Set Status based on redeployment
1001: IF l_depreciable = 'N' THEN
1002: IF l_mtl_item_tbl(i).serial_number is NOT NULL THEN
999:
1000: -- Set Status based on redeployment
1001: IF l_depreciable = 'N' THEN
1002: IF l_mtl_item_tbl(i).serial_number is NOT NULL THEN
1003: csi_inv_trxs_pkg.get_redeploy_flag(l_mtl_item_tbl(i).inventory_item_id,
1004: l_mtl_item_tbl(i).serial_number,
1005: l_sysdate,
1006: l_redeploy_flag,
1007: l_return_status,
1007: l_return_status,
1008: l_error_message);
1009: END IF;
1010: IF l_redeploy_flag = 'Y' THEN
1011: l_txn_rec.transaction_status_code := csi_inv_trxs_pkg.g_pending;
1012: ELSE
1013: l_txn_rec.transaction_status_code := csi_inv_trxs_pkg.g_complete;
1014: END IF;
1015: ELSE
1009: END IF;
1010: IF l_redeploy_flag = 'Y' THEN
1011: l_txn_rec.transaction_status_code := csi_inv_trxs_pkg.g_pending;
1012: ELSE
1013: l_txn_rec.transaction_status_code := csi_inv_trxs_pkg.g_complete;
1014: END IF;
1015: ELSE
1016: l_txn_rec.transaction_status_code := csi_inv_trxs_pkg.g_pending;
1017: END IF;
1012: ELSE
1013: l_txn_rec.transaction_status_code := csi_inv_trxs_pkg.g_complete;
1014: END IF;
1015: ELSE
1016: l_txn_rec.transaction_status_code := csi_inv_trxs_pkg.g_pending;
1017: END IF;
1018:
1019: IF NOT l_return_status = l_fnd_success THEN
1020: IF (l_debug > 0) THEN
1018:
1019: IF NOT l_return_status = l_fnd_success THEN
1020: IF (l_debug > 0) THEN
1021: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
1022: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
1023: END IF;
1024: RAISE fnd_api.g_exc_error;
1025: END IF;
1026:
1036:
1037: -- Create CSI Transaction to be used
1038: l_txn_rec.source_transaction_date := l_mtl_item_tbl(i).transaction_date;
1039: l_txn_rec.transaction_date := l_sysdate;
1040: l_txn_rec.transaction_type_id := csi_inv_trxs_pkg.get_txn_type_id('MISC_RECEIPT_FROM_PROJECT','INV');
1041: l_txn_rec.transaction_quantity := l_mtl_item_tbl(i).transaction_quantity;
1042: l_txn_rec.transaction_uom_code := l_mtl_item_tbl(i).transaction_uom;
1043: l_txn_rec.transacted_by := l_employee_id;
1044: l_txn_rec.transaction_action_code := NULL;
1045: l_txn_rec.message_id := p_message_id;
1046: l_txn_rec.inv_material_transaction_id := p_transaction_id;
1047: l_txn_rec.object_version_number := l_object_version_number;
1048:
1049: csi_inv_trxs_pkg.create_csi_txn(l_txn_rec,
1050: l_error_message,
1051: l_return_status);
1052:
1053: IF (l_debug > 0) THEN
1055: END IF;
1056:
1057: IF NOT l_return_status = l_fnd_success THEN
1058: IF (l_debug > 0) THEN
1059: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.create_csi_txn: '||p_transaction_id);
1060: END IF;
1061: RAISE fnd_api.g_exc_error;
1062: END IF;
1063:
1078: END IF;
1079:
1080: IF l_mtl_item_tbl(j).serial_number IS NOT NULL THEN -- Serialized
1081:
1082: l_instance_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
1083: l_instance_query_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
1084: --l_instance_query_rec.pa_project_id := l_mtl_item_tbl(j).source_project_id;
1085: --l_instance_query_rec.pa_project_task_id := l_mtl_item_tbl(j).source_task_id;
1086: l_instance_query_rec.serial_number := l_mtl_item_tbl(j).serial_number;
1140: IF (l_debug > 0) THEN
1141: csi_t_gen_utility_pvt.add('Source records found so decide which one to update');
1142: END IF;
1143:
1144: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
1145: l_update_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
1146: l_update_instance_rec.inv_subinventory_name := l_mtl_item_tbl(j).subinventory_code;
1147: l_update_instance_rec.inventory_revision := l_mtl_item_tbl(j).revision;
1148: l_update_instance_rec.quantity := 1;
1156: l_update_instance_rec.pa_project_task_id := NULL;
1157: l_update_instance_rec.install_location_type_code := NULL;
1158: l_update_instance_rec.install_location_id := NULL;
1159: l_update_instance_rec.instance_usage_code := l_in_inventory;
1160: l_update_instance_rec.location_type_code := csi_inv_trxs_pkg.get_location_type_code('Inventory');
1161: l_update_instance_rec.location_id := nvl(l_mtl_item_tbl(j).subinv_location_id,l_mtl_item_tbl(j).hr_location_id);
1162: l_update_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
1163:
1164: l_party_tbl.delete;
1226: ELSIF l_src_instance_header_tbl.count = 0 THEN
1227:
1228: csi_t_gen_utility_pvt.add('No Serialized Instances are found so we need to create one that we would have received from the project and task');
1229:
1230: l_new_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
1231: l_new_instance_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
1232: l_new_instance_rec.inventory_revision := l_mtl_item_tbl(j).revision;
1233: l_new_instance_rec.inv_master_organization_id := l_master_organization_id;
1234: l_new_instance_rec.inv_subinventory_name := l_mtl_item_tbl(j).subinventory_code;
1238: l_new_instance_rec.quantity := 1;
1239: l_new_instance_rec.active_start_date := l_sysdate;
1240: l_new_instance_rec.active_end_date := NULL;
1241: l_new_instance_rec.unit_of_measure := l_mtl_item_tbl(j).primary_uom_code;
1242: l_new_instance_rec.location_type_code := csi_inv_trxs_pkg.get_location_type_code('Inventory');
1243: l_new_instance_rec.location_id := nvl(l_mtl_item_tbl(j).subinv_location_id,l_mtl_item_tbl(j).hr_location_id);
1244: l_new_instance_rec.instance_usage_code := l_in_inventory;
1245: l_new_instance_rec.inv_organization_id := l_mtl_item_tbl(j).organization_id;
1246: l_new_instance_rec.vld_organization_id := l_mtl_item_tbl(j).organization_id;
1248: l_new_instance_rec.customer_view_flag := 'N';
1249: l_new_instance_rec.merchant_view_flag := 'Y';
1250: l_new_instance_rec.operational_status_code := 'NOT_USED';
1251: l_new_instance_rec.object_version_number := l_object_version_number;
1252: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
1253: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
1254: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
1255: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
1256: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
1249: l_new_instance_rec.merchant_view_flag := 'Y';
1250: l_new_instance_rec.operational_status_code := 'NOT_USED';
1251: l_new_instance_rec.object_version_number := l_object_version_number;
1252: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
1253: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
1254: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
1255: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
1256: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
1257: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
1250: l_new_instance_rec.operational_status_code := 'NOT_USED';
1251: l_new_instance_rec.object_version_number := l_object_version_number;
1252: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
1253: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
1254: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
1255: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
1256: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
1257: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
1258:
1251: l_new_instance_rec.object_version_number := l_object_version_number;
1252: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
1253: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
1254: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
1255: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
1256: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
1257: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
1258:
1259: l_new_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
1252: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
1253: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
1254: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
1255: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
1256: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
1257: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
1258:
1259: l_new_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
1260:
1253: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
1254: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
1255: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
1256: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
1257: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
1258:
1259: l_new_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
1260:
1261: csi_t_gen_utility_pvt.add('Instance_status_id Value: '||nvl(l_new_instance_rec.instance_status_id,-1));
1255: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
1256: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
1257: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
1258:
1259: l_new_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
1260:
1261: csi_t_gen_utility_pvt.add('Instance_status_id Value: '||nvl(l_new_instance_rec.instance_status_id,-1));
1262: csi_t_gen_utility_pvt.add('You will now Create a new Item Instance Record');
1263: csi_t_gen_utility_pvt.add('Serial Number: '||l_new_instance_rec.serial_number);
1318: END IF; -- No Records Found
1319:
1320: ELSIF l_mtl_item_tbl(j).serial_number IS NULL THEN -- Non Serialized
1321:
1322: l_instance_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
1323: l_instance_query_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
1324: l_instance_query_rec.pa_project_id := l_mtl_item_tbl(j).source_project_id;
1325: l_instance_query_rec.pa_project_task_id := l_mtl_item_tbl(j).source_task_id;
1326: l_instance_query_rec.lot_number := l_mtl_item_tbl(j).lot_number;
1372: END IF;
1373:
1374: IF l_src_instance_header_tbl.count = 1 THEN -- Records found so update either Serialized or Non Serialized
1375:
1376: l_upd_src_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
1377: l_upd_src_dest_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
1378: l_upd_src_dest_instance_rec.quantity := l_src_instance_header_tbl(i).quantity - abs(l_mtl_item_tbl(j).primary_quantity);
1379: l_upd_src_dest_instance_rec.active_end_date := NULL;
1380: l_upd_src_dest_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
1428: RAISE fnd_api.g_exc_error;
1429: END IF;
1430:
1431: -- Now query and get the destination record.
1432: l_instance_dest_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
1433: l_instance_dest_query_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
1434: l_instance_dest_query_rec.inv_subinventory_name := l_mtl_item_tbl(j).subinventory_code;
1435: l_instance_dest_query_rec.inv_organization_id := l_mtl_item_tbl(j).organization_id;
1436: l_instance_dest_query_rec.inventory_revision := l_mtl_item_tbl(j).revision;
1482: END IF;
1483:
1484: IF l_dest_instance_header_tbl.count = 0 THEN
1485:
1486: l_new_dest_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
1487: l_new_dest_instance_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
1488: l_new_dest_instance_rec.inventory_revision := l_mtl_item_tbl(j).revision;
1489: l_new_dest_instance_rec.inv_master_organization_id := l_master_organization_id;
1490: l_new_dest_instance_rec.mfg_serial_number_flag := 'N';
1491: l_new_dest_instance_rec.serial_number := NULL;
1492: l_new_dest_instance_rec.lot_number := l_mtl_item_tbl(j).lot_number;
1493: l_new_dest_instance_rec.quantity := abs(l_mtl_item_tbl(j).transaction_quantity);
1494: l_new_dest_instance_rec.unit_of_measure := l_mtl_item_tbl(j).transaction_uom;
1495: l_new_dest_instance_rec.location_type_code := csi_inv_trxs_pkg.get_location_type_code('Inventory');
1496: l_new_dest_instance_rec.location_id := nvl(l_mtl_item_tbl(j).subinv_location_id,l_mtl_item_tbl(j).hr_location_id);
1497: l_new_dest_instance_rec.instance_usage_code := l_in_inventory;
1498: l_new_dest_instance_rec.inv_organization_id := l_mtl_item_tbl(j).organization_id;
1499: l_new_dest_instance_rec.vld_organization_id := l_mtl_item_tbl(j).organization_id;
1505: l_new_dest_instance_rec.active_end_date := NULL;
1506: l_new_dest_instance_rec.operational_status_code := 'NOT_USED';
1507: l_new_dest_instance_rec.object_version_number := l_object_version_number;
1508:
1509: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
1510: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
1511: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
1512: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
1513: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
1506: l_new_dest_instance_rec.operational_status_code := 'NOT_USED';
1507: l_new_dest_instance_rec.object_version_number := l_object_version_number;
1508:
1509: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
1510: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
1511: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
1512: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
1513: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
1514: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
1507: l_new_dest_instance_rec.object_version_number := l_object_version_number;
1508:
1509: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
1510: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
1511: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
1512: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
1513: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
1514: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
1515:
1508:
1509: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
1510: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
1511: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
1512: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
1513: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
1514: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
1515:
1516: l_new_dest_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
1509: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
1510: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
1511: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
1512: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
1513: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
1514: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
1515:
1516: l_new_dest_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
1517:
1510: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
1511: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
1512: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
1513: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
1514: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
1515:
1516: l_new_dest_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
1517:
1518: IF (l_debug > 0) THEN
1512: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
1513: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
1514: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
1515:
1516: l_new_dest_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
1517:
1518: IF (l_debug > 0) THEN
1519: csi_t_gen_utility_pvt.add('Before Create Item Instance');
1520: END IF;
1555: END IF;
1556:
1557: ELSIF l_dest_instance_header_tbl.count = 1 THEN
1558:
1559: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
1560: l_update_instance_rec.instance_id := l_dest_instance_header_tbl(i).instance_id;
1561: l_update_instance_rec.quantity := l_dest_instance_header_tbl(i).quantity + abs(l_mtl_item_tbl(j).primary_quantity);
1562: l_update_instance_rec.active_end_date := NULL;
1563: l_update_instance_rec.object_version_number := l_dest_instance_header_tbl(i).object_version_number;
1567: l_pricing_attrib_tbl.delete;
1568: l_org_assignments_tbl.delete;
1569: l_asset_assignment_tbl.delete;
1570:
1571: l_update_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
1572:
1573: IF (l_debug > 0) THEN
1574: csi_t_gen_utility_pvt.add('Before Update Item Instance');
1575: END IF;
1632:
1633: csi_t_gen_utility_pvt.add('No Source Records in a Project and Task Exist. Query for the inventory record in the Org to see if it exists. If it does then add to that instance otherwise create a new instance that is located in Inventory');
1634:
1635: -- No Project and Task Records exist so check if there are any in Inventory. If not we will create otherwise update
1636: l_instance_dest_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
1637: l_instance_dest_query_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
1638: l_instance_dest_query_rec.inv_subinventory_name := l_mtl_item_tbl(j).subinventory_code;
1639: l_instance_dest_query_rec.inv_organization_id := l_mtl_item_tbl(j).organization_id;
1640: l_instance_dest_query_rec.inventory_revision := l_mtl_item_tbl(j).revision;
1688: IF l_dest_instance_header_tbl.count = 0 THEN
1689:
1690: csi_t_gen_utility_pvt.add('No Records existed so we will create a new one in Inventory that is Non Serialized');
1691:
1692: l_new_dest_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
1693: l_new_dest_instance_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
1694: l_new_dest_instance_rec.inventory_revision := l_mtl_item_tbl(j).revision;
1695: l_new_dest_instance_rec.inv_master_organization_id := l_master_organization_id;
1696: l_new_dest_instance_rec.mfg_serial_number_flag := 'N';
1697: l_new_dest_instance_rec.serial_number := NULL;
1698: l_new_dest_instance_rec.lot_number := l_mtl_item_tbl(j).lot_number;
1699: l_new_dest_instance_rec.quantity := abs(l_mtl_item_tbl(j).transaction_quantity);
1700: l_new_dest_instance_rec.unit_of_measure := l_mtl_item_tbl(j).transaction_uom;
1701: l_new_dest_instance_rec.location_type_code := csi_inv_trxs_pkg.get_location_type_code('Inventory');
1702: l_new_dest_instance_rec.location_id := nvl(l_mtl_item_tbl(j).subinv_location_id,l_mtl_item_tbl(j).hr_location_id);
1703: l_new_dest_instance_rec.instance_usage_code := l_in_inventory;
1704: l_new_dest_instance_rec.inv_organization_id := l_mtl_item_tbl(j).organization_id;
1705: l_new_dest_instance_rec.vld_organization_id := l_mtl_item_tbl(j).organization_id;
1711: l_new_dest_instance_rec.active_end_date := NULL;
1712: l_new_dest_instance_rec.operational_status_code := 'NOT_USED';
1713: l_new_dest_instance_rec.object_version_number := l_object_version_number;
1714:
1715: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
1716: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
1717: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
1718: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
1719: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
1712: l_new_dest_instance_rec.operational_status_code := 'NOT_USED';
1713: l_new_dest_instance_rec.object_version_number := l_object_version_number;
1714:
1715: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
1716: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
1717: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
1718: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
1719: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
1720: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
1713: l_new_dest_instance_rec.object_version_number := l_object_version_number;
1714:
1715: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
1716: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
1717: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
1718: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
1719: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
1720: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
1721:
1714:
1715: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
1716: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
1717: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
1718: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
1719: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
1720: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
1721:
1722: l_new_dest_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
1715: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
1716: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
1717: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
1718: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
1719: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
1720: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
1721:
1722: l_new_dest_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
1723:
1716: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
1717: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
1718: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
1719: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
1720: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
1721:
1722: l_new_dest_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
1723:
1724: IF (l_debug > 0) THEN
1718: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
1719: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
1720: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
1721:
1722: l_new_dest_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
1723:
1724: IF (l_debug > 0) THEN
1725: csi_t_gen_utility_pvt.add('Before Create Item Instance');
1726: END IF;
1763: ELSIF l_dest_instance_header_tbl.count = 1 THEN
1764:
1765: csi_t_gen_utility_pvt.add('Records existed so we will update the existing Instance: '||l_dest_instance_header_tbl(i).instance_id);
1766:
1767: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
1768: l_update_instance_rec.instance_id := l_dest_instance_header_tbl(i).instance_id;
1769: l_update_instance_rec.quantity := l_dest_instance_header_tbl(i).quantity + abs(l_mtl_item_tbl(j).primary_quantity);
1770: l_update_instance_rec.active_end_date := NULL;
1771: l_update_instance_rec.object_version_number := l_dest_instance_header_tbl(i).object_version_number;
1775: l_pricing_attrib_tbl.delete;
1776: l_org_assignments_tbl.delete;
1777: l_asset_assignment_tbl.delete;
1778:
1779: l_update_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
1780:
1781: IF (l_debug > 0) THEN
1782: csi_t_gen_utility_pvt.add('Before Update Item Instance');
1783: END IF;
1863: END IF; -- End of Serial Number If
1864: END LOOP; -- End of For Loop
1865:
1866: IF (l_debug > 0) THEN
1867: csi_t_gen_utility_pvt.add('*****End of csi_inv_trxs_pkg.misc_receipt_projtask Transaction procedure*****');
1868: END IF;
1869:
1870: EXCEPTION
1871: WHEN fnd_api.g_exc_error THEN
1890: x_trx_error_rec.error_text := l_error_message;
1891: x_trx_error_rec.transaction_id := NULL;
1892: x_trx_error_rec.source_type := 'CSIMSRPT';
1893: x_trx_error_rec.source_id := p_transaction_id;
1894: x_trx_error_rec.processed_flag := csi_inv_trxs_pkg.g_txn_error;
1895: x_trx_error_rec.transaction_type_id := csi_inv_trxs_pkg.get_txn_type_id('MISC_RECEIPT_FROM_PROJECT','INV');
1896: x_trx_error_rec.inv_material_transaction_id := p_transaction_id;
1897: x_trx_error_rec.error_stage := csi_inv_trxs_pkg.g_ib_update;
1898:
1891: x_trx_error_rec.transaction_id := NULL;
1892: x_trx_error_rec.source_type := 'CSIMSRPT';
1893: x_trx_error_rec.source_id := p_transaction_id;
1894: x_trx_error_rec.processed_flag := csi_inv_trxs_pkg.g_txn_error;
1895: x_trx_error_rec.transaction_type_id := csi_inv_trxs_pkg.get_txn_type_id('MISC_RECEIPT_FROM_PROJECT','INV');
1896: x_trx_error_rec.inv_material_transaction_id := p_transaction_id;
1897: x_trx_error_rec.error_stage := csi_inv_trxs_pkg.g_ib_update;
1898:
1899: WHEN others THEN
1893: x_trx_error_rec.source_id := p_transaction_id;
1894: x_trx_error_rec.processed_flag := csi_inv_trxs_pkg.g_txn_error;
1895: x_trx_error_rec.transaction_type_id := csi_inv_trxs_pkg.get_txn_type_id('MISC_RECEIPT_FROM_PROJECT','INV');
1896: x_trx_error_rec.inv_material_transaction_id := p_transaction_id;
1897: x_trx_error_rec.error_stage := csi_inv_trxs_pkg.g_ib_update;
1898:
1899: WHEN others THEN
1900: IF (l_debug > 0) THEN
1901: csi_t_gen_utility_pvt.add('You have encountered a "others" exception');
1921: x_trx_error_rec.error_text := fnd_message.get;
1922: x_trx_error_rec.transaction_id := NULL;
1923: x_trx_error_rec.source_type := 'CSIMSRPT';
1924: x_trx_error_rec.source_id := p_transaction_id;
1925: x_trx_error_rec.processed_flag := csi_inv_trxs_pkg.g_txn_error;
1926: x_trx_error_rec.transaction_type_id := csi_inv_trxs_pkg.get_txn_type_id('MISC_RECEIPT_FROM_PROJECT','INV');
1927: x_trx_error_rec.inv_material_transaction_id := p_transaction_id;
1928: x_trx_error_rec.error_stage := csi_inv_trxs_pkg.g_ib_update;
1929:
1922: x_trx_error_rec.transaction_id := NULL;
1923: x_trx_error_rec.source_type := 'CSIMSRPT';
1924: x_trx_error_rec.source_id := p_transaction_id;
1925: x_trx_error_rec.processed_flag := csi_inv_trxs_pkg.g_txn_error;
1926: x_trx_error_rec.transaction_type_id := csi_inv_trxs_pkg.get_txn_type_id('MISC_RECEIPT_FROM_PROJECT','INV');
1927: x_trx_error_rec.inv_material_transaction_id := p_transaction_id;
1928: x_trx_error_rec.error_stage := csi_inv_trxs_pkg.g_ib_update;
1929:
1930: END misc_receipt_projtask;
1924: x_trx_error_rec.source_id := p_transaction_id;
1925: x_trx_error_rec.processed_flag := csi_inv_trxs_pkg.g_txn_error;
1926: x_trx_error_rec.transaction_type_id := csi_inv_trxs_pkg.get_txn_type_id('MISC_RECEIPT_FROM_PROJECT','INV');
1927: x_trx_error_rec.inv_material_transaction_id := p_transaction_id;
1928: x_trx_error_rec.error_stage := csi_inv_trxs_pkg.g_ib_update;
1929:
1930: END misc_receipt_projtask;
1931:
1932: PROCEDURE misc_issue_projtask(p_transaction_id IN NUMBER,
1934: x_return_status OUT NOCOPY VARCHAR2,
1935: x_trx_error_rec OUT NOCOPY CSI_DATASTRUCTURES_PUB.TRANSACTION_ERROR_REC)
1936: IS
1937:
1938: l_mtl_item_tbl CSI_INV_TRXS_PKG.MTL_ITEM_TBL_TYPE;
1939: l_api_name VARCHAR2(100) := 'CSI_INV_PROJECT_PKG.MISC_ISSUE_PROJTASK';
1940: l_api_version NUMBER := 1.0;
1941: l_commit VARCHAR2(1) := FND_API.G_FALSE;
1942: l_init_msg_list VARCHAR2(1) := FND_API.G_TRUE;
1974: l_fnd_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1975: l_fnd_warning VARCHAR2(1) := 'W';
1976: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
1977: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
1978: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
1979: l_in_process VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_PROCESS;
1980: l_out_of_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_OUT_OF_SERVICE;
1981: l_in_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_SERVICE;
1982: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
1975: l_fnd_warning VARCHAR2(1) := 'W';
1976: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
1977: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
1978: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
1979: l_in_process VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_PROCESS;
1980: l_out_of_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_OUT_OF_SERVICE;
1981: l_in_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_SERVICE;
1982: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
1983: l_installed VARCHAR2(25) := CSI_INV_TRXS_PKG.G_INSTALLED;
1976: l_fnd_error VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
1977: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
1978: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
1979: l_in_process VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_PROCESS;
1980: l_out_of_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_OUT_OF_SERVICE;
1981: l_in_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_SERVICE;
1982: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
1983: l_installed VARCHAR2(25) := CSI_INV_TRXS_PKG.G_INSTALLED;
1984: l_transaction_error_id NUMBER;
1977: l_fnd_unexpected VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
1978: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
1979: l_in_process VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_PROCESS;
1980: l_out_of_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_OUT_OF_SERVICE;
1981: l_in_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_SERVICE;
1982: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
1983: l_installed VARCHAR2(25) := CSI_INV_TRXS_PKG.G_INSTALLED;
1984: l_transaction_error_id NUMBER;
1985: l_quantity NUMBER;
1978: l_in_inventory VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_INVENTORY;
1979: l_in_process VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_PROCESS;
1980: l_out_of_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_OUT_OF_SERVICE;
1981: l_in_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_SERVICE;
1982: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
1983: l_installed VARCHAR2(25) := CSI_INV_TRXS_PKG.G_INSTALLED;
1984: l_transaction_error_id NUMBER;
1985: l_quantity NUMBER;
1986: l_mfg_serial_flag VARCHAR2(1);
1979: l_in_process VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_PROCESS;
1980: l_out_of_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_OUT_OF_SERVICE;
1981: l_in_service VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_SERVICE;
1982: l_in_transit VARCHAR2(25) := CSI_INV_TRXS_PKG.G_IN_TRANSIT;
1983: l_installed VARCHAR2(25) := CSI_INV_TRXS_PKG.G_INSTALLED;
1984: l_transaction_error_id NUMBER;
1985: l_quantity NUMBER;
1986: l_mfg_serial_flag VARCHAR2(1);
1987: l_trans_status_code VARCHAR2(15);
2012:
2013: x_return_status := l_fnd_success;
2014:
2015: IF (l_debug > 0) THEN
2016: csi_t_gen_utility_pvt.add('*****Start of csi_inv_trxs_pkg.misc_issue_projtask Transaction procedure*****');
2017: csi_t_gen_utility_pvt.add('Transaction You are Processing is: '||p_transaction_id);
2018: END IF;
2019:
2020: -- This procedure queries all of the Inventory Transaction Records and returns them
2018: END IF;
2019:
2020: -- This procedure queries all of the Inventory Transaction Records and returns them
2021: -- as a table.
2022: csi_inv_trxs_pkg.get_transaction_recs(p_transaction_id,
2023: l_mtl_item_tbl,
2024: l_return_status,
2025: l_error_message);
2026:
2031: END IF;
2032:
2033: IF NOT l_return_status = l_fnd_success THEN
2034: IF (l_debug > 0) THEN
2035: csi_t_gen_utility_pvt.add('You have encountered an error in CSI_INV_TRXS_PKG.get_transaction_recs, Transaction ID: '||p_transaction_id);
2036: END IF;
2037: RAISE fnd_api.g_exc_error;
2038: END IF;
2039:
2037: RAISE fnd_api.g_exc_error;
2038: END IF;
2039:
2040: -- Get the Master Organization ID
2041: csi_inv_trxs_pkg.get_master_organization(l_mtl_item_tbl(i).organization_id,
2042: l_master_organization_id,
2043: l_return_status,
2044: l_error_message);
2045:
2044: l_error_message);
2045:
2046: IF NOT l_return_status = l_fnd_success THEN
2047: IF (l_debug > 0) THEN
2048: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_master_organization, Organization ID: '||l_mtl_item_tbl(i).organization_id);
2049: END IF;
2050: RAISE fnd_api.g_exc_error;
2051: END IF;
2052:
2050: RAISE fnd_api.g_exc_error;
2051: END IF;
2052:
2053: -- Call get_fnd_employee_id and get the employee id
2054: l_employee_id := csi_inv_trxs_pkg.get_fnd_employee_id(l_mtl_item_tbl(i).last_updated_by);
2055:
2056: IF l_employee_id = -1 THEN
2057: IF (l_debug > 0) THEN
2058: csi_t_gen_utility_pvt.add('The person who last updated this record: '||l_mtl_item_tbl(i).last_updated_by||' does not exist as a valid employee');
2062: csi_t_gen_utility_pvt.add('The Employee that is processing this Transaction is: '||l_employee_id);
2063: END IF;
2064:
2065: -- See if this is a depreciable Item to set the status of the transaction record
2066: csi_inv_trxs_pkg.check_depreciable(l_mtl_item_tbl(i).inventory_item_id,
2067: l_depreciable);
2068:
2069: IF (l_debug > 0) THEN
2070: csi_t_gen_utility_pvt.add('Is this Item ID: '||l_mtl_item_tbl(i).inventory_item_id||', Depreciable :'||l_depreciable);
2082:
2083: -- Get the Negative Receipt Code to see if this org allows Negative
2084: -- Quantity Records 1 = Yes, 2 = No
2085:
2086: l_neg_code := csi_inv_trxs_pkg.get_neg_inv_code(
2087: l_mtl_item_tbl(i).organization_id);
2088:
2089: IF l_neg_code = 1 AND l_mtl_item_tbl(i).serial_number is NULL THEN
2090: l_instance_status := FND_API.G_FALSE;
2096: csi_t_gen_utility_pvt.add('Negative Code is - 1 = Yes, 2 = No: '||l_neg_code);
2097: END IF;
2098:
2099: -- Initialize Transaction Record
2100: l_txn_rec := csi_inv_trxs_pkg.init_txn_rec;
2101:
2102: -- Set Status based on redeployment
2103: IF l_depreciable = 'N' THEN
2104: IF l_mtl_item_tbl(i).serial_number is NOT NULL THEN
2101:
2102: -- Set Status based on redeployment
2103: IF l_depreciable = 'N' THEN
2104: IF l_mtl_item_tbl(i).serial_number is NOT NULL THEN
2105: csi_inv_trxs_pkg.get_redeploy_flag(l_mtl_item_tbl(i).inventory_item_id,
2106: l_mtl_item_tbl(i).serial_number,
2107: l_sysdate,
2108: l_redeploy_flag,
2109: l_return_status,
2109: l_return_status,
2110: l_error_message);
2111: END IF;
2112: IF l_redeploy_flag = 'Y' THEN
2113: l_txn_rec.transaction_status_code := csi_inv_trxs_pkg.g_pending;
2114: ELSE
2115: l_txn_rec.transaction_status_code := csi_inv_trxs_pkg.g_complete;
2116: END IF;
2117: ELSE
2111: END IF;
2112: IF l_redeploy_flag = 'Y' THEN
2113: l_txn_rec.transaction_status_code := csi_inv_trxs_pkg.g_pending;
2114: ELSE
2115: l_txn_rec.transaction_status_code := csi_inv_trxs_pkg.g_complete;
2116: END IF;
2117: ELSE
2118: l_txn_rec.transaction_status_code := csi_inv_trxs_pkg.g_pending;
2119: END IF;
2114: ELSE
2115: l_txn_rec.transaction_status_code := csi_inv_trxs_pkg.g_complete;
2116: END IF;
2117: ELSE
2118: l_txn_rec.transaction_status_code := csi_inv_trxs_pkg.g_pending;
2119: END IF;
2120:
2121: IF NOT l_return_status = l_fnd_success THEN
2122: IF (l_debug > 0) THEN
2120:
2121: IF NOT l_return_status = l_fnd_success THEN
2122: IF (l_debug > 0) THEN
2123: csi_t_gen_utility_pvt.add('Redeploy Flag: '||l_redeploy_flag);
2124: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.get_redeploy_flag: '||l_error_message);
2125: END IF;
2126: RAISE fnd_api.g_exc_error;
2127: END IF;
2128:
2138:
2139: -- Create CSI Transaction to be used
2140: l_txn_rec.source_transaction_date := l_mtl_item_tbl(i).transaction_date;
2141: l_txn_rec.transaction_date := l_sysdate;
2142: l_txn_rec.transaction_type_id := csi_inv_trxs_pkg.get_txn_type_id('MISC_ISSUE_TO_PROJECT','INV');
2143: l_txn_rec.transaction_quantity := l_mtl_item_tbl(i).transaction_quantity;
2144: l_txn_rec.transaction_uom_code := l_mtl_item_tbl(i).transaction_uom;
2145: l_txn_rec.transacted_by := l_employee_id;
2146: l_txn_rec.transaction_action_code := NULL;
2147: l_txn_rec.message_id := p_message_id;
2148: l_txn_rec.inv_material_transaction_id := p_transaction_id;
2149: l_txn_rec.object_version_number := l_object_version_number;
2150:
2151: csi_inv_trxs_pkg.create_csi_txn(l_txn_rec,
2152: l_error_message,
2153: l_return_status);
2154:
2155: IF (l_debug > 0) THEN
2157: END IF;
2158:
2159: IF NOT l_return_status = l_fnd_success THEN
2160: IF (l_debug > 0) THEN
2161: csi_t_gen_utility_pvt.add('You have encountered an error in csi_inv_trxs_pkg.create_csi_txn: '||p_transaction_id);
2162: END IF;
2163: RAISE fnd_api.g_exc_error;
2164: END IF;
2165:
2178: csi_t_gen_utility_pvt.add('Transaction UOM: '||l_mtl_item_tbl(j).transaction_uom);
2179: csi_t_gen_utility_pvt.add('Transaction Qty: '||l_mtl_item_tbl(j).transaction_quantity);
2180: END IF;
2181:
2182: l_instance_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
2183: l_instance_query_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
2184: l_instance_query_rec.inv_organization_id := l_mtl_item_tbl(j).organization_id;
2185: l_instance_query_rec.inv_subinventory_name := l_mtl_item_tbl(j).subinventory_code;
2186: l_instance_query_rec.inv_locator_id := l_mtl_item_tbl(j).locator_id;
2240: IF (l_debug > 0) THEN
2241: csi_t_gen_utility_pvt.add('No records were found so create a new Source Instance Record');
2242: END IF;
2243:
2244: l_new_src_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
2245: l_new_src_instance_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
2246: l_new_src_instance_rec.inventory_revision := l_mtl_item_tbl(j).revision;
2247: l_new_src_instance_rec.inv_master_organization_id := l_master_organization_id;
2248: l_new_src_instance_rec.mfg_serial_number_flag := 'N';
2249: l_new_src_instance_rec.lot_number := l_mtl_item_tbl(j).lot_number;
2250: l_new_src_instance_rec.quantity := l_mtl_item_tbl(j).transaction_quantity;
2251: l_new_src_instance_rec.unit_of_measure := l_mtl_item_tbl(j).transaction_uom;
2252: l_new_src_instance_rec.instance_usage_code := l_in_inventory;
2253: l_new_src_instance_rec.location_type_code := csi_inv_trxs_pkg.get_location_type_code('Inventory');
2254: l_new_src_instance_rec.location_id := nvl(l_mtl_item_tbl(j).subinv_location_id,l_mtl_item_tbl(j).hr_location_id);
2255: l_new_src_instance_rec.inv_locator_id := l_mtl_item_tbl(j).locator_id;
2256: l_new_src_instance_rec.inv_organization_id := l_mtl_item_tbl(j).organization_id;
2257: l_new_src_instance_rec.vld_organization_id := l_mtl_item_tbl(j).organization_id;
2262: l_new_src_instance_rec.object_version_number := l_object_version_number;
2263: l_new_src_instance_rec.active_start_date := l_sysdate;
2264: l_new_src_instance_rec.active_end_date := NULL;
2265:
2266: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
2267: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
2268: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
2269: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
2270: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
2263: l_new_src_instance_rec.active_start_date := l_sysdate;
2264: l_new_src_instance_rec.active_end_date := NULL;
2265:
2266: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
2267: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
2268: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
2269: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
2270: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
2271: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
2264: l_new_src_instance_rec.active_end_date := NULL;
2265:
2266: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
2267: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
2268: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
2269: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
2270: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
2271: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
2272:
2265:
2266: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
2267: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
2268: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
2269: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
2270: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
2271: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
2272:
2273: IF (l_debug > 0) THEN
2266: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
2267: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
2268: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
2269: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
2270: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
2271: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
2272:
2273: IF (l_debug > 0) THEN
2274: csi_t_gen_utility_pvt.add('Before Create Transaction - Neg Qty');
2267: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
2268: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
2269: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
2270: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
2271: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
2272:
2273: IF (l_debug > 0) THEN
2274: csi_t_gen_utility_pvt.add('Before Create Transaction - Neg Qty');
2275: END IF;
2328: csi_t_gen_utility_pvt.add('You will update instance: '||l_src_instance_header_tbl(i).instance_id);
2329: csi_t_gen_utility_pvt.add('End Date is: '||l_src_instance_header_tbl(i).active_end_date);
2330: END IF;
2331:
2332: l_update_source_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
2333: l_update_source_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
2334: l_update_source_instance_rec.quantity := l_src_instance_header_tbl(i).quantity - abs(l_mtl_item_tbl(j).primary_quantity);
2335: l_update_source_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
2336:
2343: IF (l_debug > 0) THEN
2344: csi_t_gen_utility_pvt.add('Before Update Item Instance - Neg Qty');
2345: END IF;
2346:
2347: l_update_source_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
2348:
2349: IF (l_debug > 0) THEN
2350: csi_t_gen_utility_pvt.add('Instance Status Id: '||l_update_source_instance_rec.instance_status_id);
2351: END IF;
2403:
2404: END IF; -- End of Source Record If
2405:
2406: -- Now query and get the destination record.
2407: l_instance_query_rec := csi_inv_trxs_pkg.init_instance_query_rec;
2408: l_instance_query_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
2409: l_instance_query_rec.pa_project_id := l_mtl_item_tbl(j).source_project_id;
2410: l_instance_query_rec.pa_project_task_id := l_mtl_item_tbl(j).source_task_id;
2411: l_instance_query_rec.inventory_revision := l_mtl_item_tbl(j).revision;
2460: IF (l_debug > 0) THEN
2461: csi_t_gen_utility_pvt.add('No Destination Records were found so we will create a new destination Record using the source data');
2462: END IF;
2463:
2464: l_new_dest_instance_rec := csi_inv_trxs_pkg.init_instance_create_rec;
2465: l_new_dest_instance_rec.inventory_item_id := l_mtl_item_tbl(j).inventory_item_id;
2466: l_new_dest_instance_rec.inventory_revision := l_mtl_item_tbl(j).revision;
2467: l_new_dest_instance_rec.inv_master_organization_id := l_master_organization_id;
2468: l_new_dest_instance_rec.mfg_serial_number_flag := 'N';
2472: l_new_dest_instance_rec.active_end_date := NULL;
2473: l_new_dest_instance_rec.unit_of_measure := l_mtl_item_tbl(j).transaction_uom;
2474: l_new_dest_instance_rec.instance_usage_code := l_in_process;
2475: l_new_dest_instance_rec.inv_locator_id := NULL;
2476: l_new_dest_instance_rec.location_id := csi_inv_trxs_pkg.get_dflt_project_location_id;
2477: l_new_dest_instance_rec.location_type_code := csi_inv_trxs_pkg.get_location_type_code('Project');
2478: l_new_dest_instance_rec.inv_organization_id := NULL;
2479: l_new_dest_instance_rec.vld_organization_id := l_mtl_item_tbl(j).organization_id;
2480: l_new_dest_instance_rec.pa_project_id := l_mtl_item_tbl(j).source_project_id;
2473: l_new_dest_instance_rec.unit_of_measure := l_mtl_item_tbl(j).transaction_uom;
2474: l_new_dest_instance_rec.instance_usage_code := l_in_process;
2475: l_new_dest_instance_rec.inv_locator_id := NULL;
2476: l_new_dest_instance_rec.location_id := csi_inv_trxs_pkg.get_dflt_project_location_id;
2477: l_new_dest_instance_rec.location_type_code := csi_inv_trxs_pkg.get_location_type_code('Project');
2478: l_new_dest_instance_rec.inv_organization_id := NULL;
2479: l_new_dest_instance_rec.vld_organization_id := l_mtl_item_tbl(j).organization_id;
2480: l_new_dest_instance_rec.pa_project_id := l_mtl_item_tbl(j).source_project_id;
2481: l_new_dest_instance_rec.pa_project_task_id := l_mtl_item_tbl(j).source_task_id;
2483: l_new_dest_instance_rec.merchant_view_flag := 'Y';
2484: l_new_dest_instance_rec.operational_status_code := 'NOT_USED';
2485: l_new_dest_instance_rec.object_version_number := l_object_version_number;
2486:
2487: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
2488: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
2489: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
2490: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
2491: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
2484: l_new_dest_instance_rec.operational_status_code := 'NOT_USED';
2485: l_new_dest_instance_rec.object_version_number := l_object_version_number;
2486:
2487: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
2488: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
2489: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
2490: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
2491: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
2492: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
2485: l_new_dest_instance_rec.object_version_number := l_object_version_number;
2486:
2487: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
2488: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
2489: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
2490: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
2491: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
2492: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
2493:
2486:
2487: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
2488: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
2489: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
2490: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
2491: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
2492: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
2493:
2494: IF (l_debug > 0) THEN
2487: l_ext_attrib_values_tbl := csi_inv_trxs_pkg.init_ext_attrib_values_tbl;
2488: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
2489: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
2490: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
2491: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
2492: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
2493:
2494: IF (l_debug > 0) THEN
2495: csi_t_gen_utility_pvt.add('Before Create Item Instance - Neg Qty');
2488: l_party_tbl := csi_inv_trxs_pkg.init_party_tbl;
2489: l_account_tbl := csi_inv_trxs_pkg.init_account_tbl;
2490: l_pricing_attrib_tbl := csi_inv_trxs_pkg.init_pricing_attribs_tbl;
2491: l_org_assignments_tbl := csi_inv_trxs_pkg.init_org_assignments_tbl;
2492: l_asset_assignment_tbl := csi_inv_trxs_pkg.init_asset_assignment_tbl;
2493:
2494: IF (l_debug > 0) THEN
2495: csi_t_gen_utility_pvt.add('Before Create Item Instance - Neg Qty');
2496: END IF;
2537: IF (l_debug > 0) THEN
2538: csi_t_gen_utility_pvt.add('You will update instance: '||l_dest_instance_header_tbl(i).instance_id);
2539: END IF;
2540:
2541: l_update_dest_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
2542: l_update_dest_instance_rec.instance_id := l_dest_instance_header_tbl(i).instance_id;
2543: l_update_dest_instance_rec.quantity := l_dest_instance_header_tbl(i).quantity + abs(l_mtl_item_tbl(j).primary_quantity);
2544: l_update_dest_instance_rec.active_end_date := NULL;
2545: l_update_dest_instance_rec.object_version_number := l_dest_instance_header_tbl(i).object_version_number;
2549: l_pricing_attrib_tbl.delete;
2550: l_org_assignments_tbl.delete;
2551: l_asset_assignment_tbl.delete;
2552:
2553: l_update_dest_instance_rec.instance_status_id := nvl(csi_inv_trxs_pkg.get_default_status_id(l_txn_rec.transaction_type_id),r_id.instance_status_id);
2554:
2555: IF (l_debug > 0) THEN
2556: csi_t_gen_utility_pvt.add('Before Update Transaction - 101');
2557: END IF;
2611: END IF; -- End of Destination Record If
2612:
2613: ELSIF l_mtl_item_tbl(j).serial_number is NOT NULL THEN
2614: IF l_src_instance_header_tbl.count = 1 THEN -- Installed Base Records Found
2615: l_update_instance_rec := csi_inv_trxs_pkg.init_instance_update_rec;
2616: l_update_instance_rec.instance_id := l_src_instance_header_tbl(i).instance_id;
2617: l_update_instance_rec.lot_number := l_src_instance_header_tbl(i).lot_number;
2618: l_update_instance_rec.inv_subinventory_name := NULL;
2619: -- Added fro bug 5975739
2620: l_update_instance_rec.inv_master_organization_id := l_master_organization_id;
2621: l_update_instance_rec.inv_organization_id := NULL;
2622: l_update_instance_rec.vld_organization_id := l_mtl_item_tbl(j).organization_id;
2623: l_update_instance_rec.inv_locator_id := NULL;
2624: l_update_instance_rec.location_id := csi_inv_trxs_pkg.get_dflt_project_location_id;
2625: l_update_instance_rec.location_type_code := csi_inv_trxs_pkg.get_location_type_code('Project');
2626: l_update_instance_rec.pa_project_id := l_mtl_item_tbl(j).source_project_id;
2627: l_update_instance_rec.pa_project_task_id := l_mtl_item_tbl(j).source_task_id;
2628: l_update_instance_rec.instance_usage_code := l_in_process;
2621: l_update_instance_rec.inv_organization_id := NULL;
2622: l_update_instance_rec.vld_organization_id := l_mtl_item_tbl(j).organization_id;
2623: l_update_instance_rec.inv_locator_id := NULL;
2624: l_update_instance_rec.location_id := csi_inv_trxs_pkg.get_dflt_project_location_id;
2625: l_update_instance_rec.location_type_code := csi_inv_trxs_pkg.get_location_type_code('Project');
2626: l_update_instance_rec.pa_project_id := l_mtl_item_tbl(j).source_project_id;
2627: l_update_instance_rec.pa_project_task_id := l_mtl_item_tbl(j).source_task_id;
2628: l_update_instance_rec.instance_usage_code := l_in_process;
2629: l_update_instance_rec.object_version_number := l_src_instance_header_tbl(i).object_version_number;
2704: END IF; -- End of Serial Number If
2705: END LOOP; -- End of For Loop
2706:
2707: IF (l_debug > 0) THEN
2708: csi_t_gen_utility_pvt.add('*****End of csi_inv_trxs_pkg.misc_issue_projtask Transaction procedure*****');
2709: END IF;
2710:
2711: EXCEPTION
2712: WHEN fnd_api.g_exc_error THEN
2731: x_trx_error_rec.error_text := l_error_message;
2732: x_trx_error_rec.transaction_id := NULL;
2733: x_trx_error_rec.source_type := 'CSIMSIPT';
2734: x_trx_error_rec.source_id := p_transaction_id;
2735: x_trx_error_rec.processed_flag := csi_inv_trxs_pkg.g_txn_error;
2736: x_trx_error_rec.transaction_type_id := csi_inv_trxs_pkg.get_txn_type_id('MISC_ISSUE_TO_PROJECT','INV');
2737: x_trx_error_rec.inv_material_transaction_id := p_transaction_id;
2738: x_trx_error_rec.error_stage := csi_inv_trxs_pkg.g_ib_update;
2739:
2732: x_trx_error_rec.transaction_id := NULL;
2733: x_trx_error_rec.source_type := 'CSIMSIPT';
2734: x_trx_error_rec.source_id := p_transaction_id;
2735: x_trx_error_rec.processed_flag := csi_inv_trxs_pkg.g_txn_error;
2736: x_trx_error_rec.transaction_type_id := csi_inv_trxs_pkg.get_txn_type_id('MISC_ISSUE_TO_PROJECT','INV');
2737: x_trx_error_rec.inv_material_transaction_id := p_transaction_id;
2738: x_trx_error_rec.error_stage := csi_inv_trxs_pkg.g_ib_update;
2739:
2740: WHEN others THEN
2734: x_trx_error_rec.source_id := p_transaction_id;
2735: x_trx_error_rec.processed_flag := csi_inv_trxs_pkg.g_txn_error;
2736: x_trx_error_rec.transaction_type_id := csi_inv_trxs_pkg.get_txn_type_id('MISC_ISSUE_TO_PROJECT','INV');
2737: x_trx_error_rec.inv_material_transaction_id := p_transaction_id;
2738: x_trx_error_rec.error_stage := csi_inv_trxs_pkg.g_ib_update;
2739:
2740: WHEN others THEN
2741: IF (l_debug > 0) THEN
2742: csi_t_gen_utility_pvt.add('You have encountered a "others" exception');
2762: x_trx_error_rec.error_text := fnd_message.get;
2763: x_trx_error_rec.transaction_id := NULL;
2764: x_trx_error_rec.source_type := 'CSIMSIPT';
2765: x_trx_error_rec.source_id := p_transaction_id;
2766: x_trx_error_rec.processed_flag := csi_inv_trxs_pkg.g_txn_error;
2767: x_trx_error_rec.transaction_type_id := csi_inv_trxs_pkg.get_txn_type_id('MISC_ISSUE_TO_PROJECT','INV');
2768: x_trx_error_rec.inv_material_transaction_id := p_transaction_id;
2769: x_trx_error_rec.error_stage := csi_inv_trxs_pkg.g_ib_update;
2770:
2763: x_trx_error_rec.transaction_id := NULL;
2764: x_trx_error_rec.source_type := 'CSIMSIPT';
2765: x_trx_error_rec.source_id := p_transaction_id;
2766: x_trx_error_rec.processed_flag := csi_inv_trxs_pkg.g_txn_error;
2767: x_trx_error_rec.transaction_type_id := csi_inv_trxs_pkg.get_txn_type_id('MISC_ISSUE_TO_PROJECT','INV');
2768: x_trx_error_rec.inv_material_transaction_id := p_transaction_id;
2769: x_trx_error_rec.error_stage := csi_inv_trxs_pkg.g_ib_update;
2770:
2771: END misc_issue_projtask;
2765: x_trx_error_rec.source_id := p_transaction_id;
2766: x_trx_error_rec.processed_flag := csi_inv_trxs_pkg.g_txn_error;
2767: x_trx_error_rec.transaction_type_id := csi_inv_trxs_pkg.get_txn_type_id('MISC_ISSUE_TO_PROJECT','INV');
2768: x_trx_error_rec.inv_material_transaction_id := p_transaction_id;
2769: x_trx_error_rec.error_stage := csi_inv_trxs_pkg.g_ib_update;
2770:
2771: END misc_issue_projtask;
2772: END csi_inv_project_pkg;