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