[Home] [Help]
139: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
140: X_Error_Message := Null;
141:
142: IF (l_debug = 'Y') THEN
143: CSE_DEBUG_PUB.ADD('***** IN SERVICE TRANSACTION ******');
144: CSE_DEBUG_PUB.ADD('-----------------------------------------------');
145: END IF;
146:
147: -- If the option is set turn on the debug log.
140: X_Error_Message := Null;
141:
142: IF (l_debug = 'Y') THEN
143: CSE_DEBUG_PUB.ADD('***** IN SERVICE TRANSACTION ******');
144: CSE_DEBUG_PUB.ADD('-----------------------------------------------');
145: END IF;
146:
147: -- If the option is set turn on the debug log.
148:
146:
147: -- If the option is set turn on the debug log.
148:
149: IF (l_debug = 'Y') THEN
150: cse_debug_pub.g_dir := nvl(FND_PROFILE.VALUE('CSE_DEBUG_LOG_DIRECTORY'), '/tmp');
151: cse_debug_pub.g_file := NULL;
152: l_file := cse_debug_pub.set_debug_file('cse' || to_char(l_sysdate, 'DD-MON-YYYY') || '.log');
153: cse_debug_pub.debug_on;
154: END IF;
147: -- If the option is set turn on the debug log.
148:
149: IF (l_debug = 'Y') THEN
150: cse_debug_pub.g_dir := nvl(FND_PROFILE.VALUE('CSE_DEBUG_LOG_DIRECTORY'), '/tmp');
151: cse_debug_pub.g_file := NULL;
152: l_file := cse_debug_pub.set_debug_file('cse' || to_char(l_sysdate, 'DD-MON-YYYY') || '.log');
153: cse_debug_pub.debug_on;
154: END IF;
155:
148:
149: IF (l_debug = 'Y') THEN
150: cse_debug_pub.g_dir := nvl(FND_PROFILE.VALUE('CSE_DEBUG_LOG_DIRECTORY'), '/tmp');
151: cse_debug_pub.g_file := NULL;
152: l_file := cse_debug_pub.set_debug_file('cse' || to_char(l_sysdate, 'DD-MON-YYYY') || '.log');
153: cse_debug_pub.debug_on;
154: END IF;
155:
156: -- l_Network_Location_Code := P_In_Service_Attr_Rec.Network_Location_Code;
149: IF (l_debug = 'Y') THEN
150: cse_debug_pub.g_dir := nvl(FND_PROFILE.VALUE('CSE_DEBUG_LOG_DIRECTORY'), '/tmp');
151: cse_debug_pub.g_file := NULL;
152: l_file := cse_debug_pub.set_debug_file('cse' || to_char(l_sysdate, 'DD-MON-YYYY') || '.log');
153: cse_debug_pub.debug_on;
154: END IF;
155:
156: -- l_Network_Location_Code := P_In_Service_Attr_Rec.Network_Location_Code;
157: If P_In_Service_Attr_Rec.Network_Location_id is not null then
166: l_App_Short_Name);
167:
168: --Step 1, Get Hz Location id
169:
170: -- CSE_DEBUG_PUB.ADD('Calling get_hz_location');
171:
172: -- CSE_UTIL_PKG.Get_Hz_Location(
173: -- P_Network_Location_Code => l_Network_Location_Code,
174: -- X_Hz_Location_Id => l_Hz_Location_Id,
181:
182: --Step 2, Query for the existence of the source record
183:
184: IF (l_debug = 'Y') THEN
185: CSE_DEBUG_PUB.ADD('Initailizing Query Record for the source item instance - step2');
186: END IF;
187:
188: l_Instance_Query_Rec := CSE_UTIL_PKG.Init_Instance_Query_Rec;
189: l_Instance_Query_Rec.Inventory_Item_Id := P_In_Service_Attr_Rec.Item_Id;
195: l_Instance_Query_Rec.Instance_Usage_Code :=CSE_DATASTRUCTURES_PUB.G_OUT_OF_SERVICE;
196: l_Active_Instance_Only := FND_API.G_TRUE; --Added for bug 7423694, base bug 7233717
197:
198: IF (l_debug = 'Y') THEN
199: CSE_DEBUG_PUB.ADD(l_Api_Name||' Before CSI_Item_Instance_Pub.Get_Item_Instance');
200: END IF;
201:
202:
203: CSI_Item_Instance_Pub.Get_Item_Instances(
233: --raise exception if the source record is not found
234:
235: IF(l_Instance_Header_Tbl_Out.COUNT=0) THEN
236: IF (l_debug = 'Y') THEN
237: CSE_DEBUG_PUB.ADD('source instance not found');
238: END IF;
239: fnd_message.set_name('CSE','CSE_SRC_RECORD_NOTFOUND');
240: fnd_message.set_token('ITEM',P_In_Service_Attr_Rec.Item_Id);
241: l_error_message := fnd_message.get;
246: -- check if there exist multiple source instances
247:
248: IF(l_Instance_Header_Tbl_Out.COUNT>1) THEN
249: IF (l_debug = 'Y') THEN
250: CSE_DEBUG_PUB.ADD('multiple source instances found');
251: END IF;
252: fnd_message.set_name('CSE','CSE_SRC_MULTIPLE_ITM_INSTANCES');
253: fnd_message.set_token('ITEM',P_In_Service_Attr_Rec.Item_Id);
254: l_error_message := fnd_message.get;
276:
277: IF(P_In_Service_Attr_Rec.Quantity >
278: l_Instance_Header_Tbl_Out(i).Quantity) THEN
279: IF (l_debug = 'Y') THEN
280: CSE_DEBUG_PUB.ADD('not enough source quantity');
281: END IF;
282: fnd_message.set_name('CSE','CSE_SRC_ITEM_QUANTITY');
283: fnd_message.set_token('ITEM',P_In_Service_Attr_Rec.Item_Id);
284: l_error_message := fnd_message.get;
291:
292: IF(P_In_Service_Attr_Rec.Serial_Number IS NOT NULL) THEN
293:
294: IF (l_debug = 'Y') THEN
295: CSE_DEBUG_PUB.ADD('Initailizing instance Record for update of serialized item inst- step4');
296: END IF;
297:
298: l_Instance_Rec := CSE_UTIL_PKG.Init_Instance_Update_Rec;
299: l_Instance_Rec.Instance_Id :=l_Source_Instance_Id;
313: l_txn_rec.transaction_id := t_transaction_id;
314: END IF;
315:
316: IF (l_debug = 'Y') THEN
317: CSE_DEBUG_PUB.ADD('Before update of serialized item instanace');
318: END IF;
319:
320: CSI_Item_Instance_Pub.Update_Item_Instance(
321: p_api_version => l_api_version,
359:
360: --Step 5.1 ,Check for the existence of the destination record
361:
362: IF (l_debug = 'Y') THEN
363: CSE_DEBUG_PUB.ADD('NON Serialized Initailizing Query Record for the destination instance - step5.1');
364: END IF;
365:
366: l_Instance_Query_Rec := CSE_UTIL_PKG.Init_Instance_Query_Rec;
367: l_Instance_Query_Rec.Inventory_Item_Id := P_In_Service_Attr_Rec.Item_Id;
373: l_Instance_Query_Rec.Instance_Usage_Code:=CSE_DATASTRUCTURES_PUB.G_IN_SERVICE;
374: l_Active_Instance_Only := FND_API.G_FALSE;
375:
376: IF (l_debug = 'Y') THEN
377: CSE_DEBUG_PUB.ADD('Before querying for the existence of destination record');
378: END IF;
379:
380:
381: CSI_Item_Instance_Pub.Get_Item_Instances(
410: -- update source instance quantity
411:
412:
413: IF (l_debug = 'Y') THEN
414: CSE_DEBUG_PUB.ADD('Initailizing instance Record for update of source qty - step5.3');
415: END IF;
416:
417: l_Instance_Rec := CSE_UTIL_PKG.Init_Instance_Update_Rec;
418: l_Instance_Rec.Instance_Id := l_Source_instance_id;
435: IF NOT t_transaction_id = -1 THEN
436: l_txn_rec.transaction_id := t_transaction_id;
437: END IF;
438: IF (l_debug = 'Y') THEN
439: CSE_DEBUG_PUB.ADD('Before update of source instance qty - step 5.3');
440: END IF;
441:
442:
443: CSI_Item_Instance_Pub.Update_Item_Instance(
479: l_upd_txn_rec := l_txn_rec;
480:
481: IF(l_Instance_Header_Tbl_Out.COUNT>0) THEN
482: IF (l_debug = 'Y') THEN
483: CSE_DEBUG_PUB.ADD('Before util.get_destination_instance');
484: END IF;
485:
486: cse_util_pkg.Get_Destination_Instance(
487: P_Dest_Instance_tbl => l_Instance_Header_Tbl_Out,
498: IF l_Dest_Instance_Rec.instance_id IS NOT NULL THEN
499: l_D_object_version_number:=l_Dest_Instance_Rec.object_version_number;
500:
501: IF (l_debug = 'Y') THEN
502: CSE_DEBUG_PUB.ADD('Initailizing instance Record for update Of dest inst - step5.1');
503: END IF;
504:
505: l_Instance_Rec := CSE_UTIL_PKG.Init_Instance_Update_Rec;
506: l_Instance_Rec.Instance_Id := l_Dest_Instance_Rec.Instance_Id;
526: IF NOT t_transaction_id = -1 THEN
527: l_txn_rec.transaction_id := t_transaction_id;
528: END IF;
529: IF (l_debug = 'Y') THEN
530: CSE_DEBUG_PUB.ADD('source txn id-'||l_upd_txn_rec.transaction_id);
531: END IF;
532:
533: l_Txn_Rec.Transaction_Quantity := P_In_Service_Attr_Rec.Quantity;
534: l_Txn_Rec.Transacted_By := P_In_Service_Attr_Rec.Transacted_By;
537: l_Txn_Rec.Object_Version_Number :=l_D_Object_version_number;
538: l_txn_rec.transaction_action_code :=NULL;
539:
540: IF (l_debug = 'Y') THEN
541: CSE_DEBUG_PUB.ADD('Before update of destination instanace');
542: END IF;
543:
544:
545: CSI_Item_Instance_Pub.Update_Item_Instance(
591:
592: IF (l_Create_Dest_Inst_Flag = FND_API.G_TRUE ) THEN
593:
594: IF (l_debug = 'Y') THEN
595: CSE_DEBUG_PUB.ADD('Initailizing instance Record for the creation Of dest inst - step5.1');
596: END IF;
597:
598: l_Instance_Rec := CSE_UTIL_PKG.Init_Instance_Create_Rec;
599: l_Instance_Rec.Inventory_Item_id := P_In_Service_Attr_Rec.Item_id;
630: IF NOT t_transaction_id = -1 THEN
631: l_txn_rec.transaction_id := t_transaction_id;
632: END IF;
633: IF (l_debug = 'Y') THEN
634: CSE_DEBUG_PUB.ADD('source txn id-'||l_upd_txn_rec.transaction_id);
635: END IF;
636:
637: l_Txn_Rec.Transaction_Quantity := P_In_Service_Attr_Rec.Quantity;
638: l_Txn_Rec.Transacted_By := P_In_Service_Attr_Rec.Transacted_By;
639: l_Txn_Rec.Transaction_Status_Code := CSE_DATASTRUCTURES_PUB.G_PENDING;
640: l_Txn_Rec.Message_Id := P_In_Service_Attr_Rec.Message_Id;
641:
642: IF (l_debug = 'Y') THEN
643: CSE_DEBUG_PUB.ADD('Before creation of destination instanace');
644: END IF;
645:
646: CSI_Item_Instance_Pub.Create_Item_Instance(
647: p_api_version => l_api_version,