[Home] [Help]
254: IF FND_API.to_boolean( p_init_msg_list ) THEN
255: FND_MSG_PUB.initialize;
256: END IF;
257:
258: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
259: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
260: G_LOG_PREFIX||l_api_name||': Begin API',
261: 'At the start of the procedure and p_workorder_id ='||p_workorder_id);
262: END IF;
255: FND_MSG_PUB.initialize;
256: END IF;
257:
258: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
259: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
260: G_LOG_PREFIX||l_api_name||': Begin API',
261: 'At the start of the procedure and p_workorder_id ='||p_workorder_id);
262: END IF;
263:
274: CLOSE get_job_attrs;
275: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
276: */
277: CLOSE get_job_attrs;
278: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
279: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
280: G_LOG_PREFIX||l_api_name||': After normal execution',
281: 'Returned but nothing done because the job is not in the view and it might be a master workorder!');
282: END IF;
275: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
276: */
277: CLOSE get_job_attrs;
278: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
279: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
280: G_LOG_PREFIX||l_api_name||': After normal execution',
281: 'Returned but nothing done because the job is not in the view and it might be a master workorder!');
282: END IF;
283: RETURN;
297: CLOSE get_job_attrs;
298: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
299: ELSIF l_job_attrs.route_id IS NULL THEN
300: CLOSE get_job_attrs;
301: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
302: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
303: G_LOG_PREFIX||l_api_name||': After normal execution',
304: 'Returned but nothing done because there is no route associated to the job');
305: END IF;
298: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
299: ELSIF l_job_attrs.route_id IS NULL THEN
300: CLOSE get_job_attrs;
301: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
302: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
303: G_LOG_PREFIX||l_api_name||': After normal execution',
304: 'Returned but nothing done because there is no route associated to the job');
305: END IF;
306: RETURN;
309: END IF;
310:
311: --Call ahl_ltp_mtl_req_pvt.get_route_mtl_req to get the default dispositions for the job
312:
313: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
314: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
315: G_LOG_PREFIX||l_api_name||': In normal execution',
316: 'Just before calling ahl_ltp_mtl_req_pvt.get_route_mtl_req and p_route_id='||
317: l_job_attrs.route_id||' p_item_instance_id='||l_job_attrs.item_instance_id||
310:
311: --Call ahl_ltp_mtl_req_pvt.get_route_mtl_req to get the default dispositions for the job
312:
313: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
314: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
315: G_LOG_PREFIX||l_api_name||': In normal execution',
316: 'Just before calling ahl_ltp_mtl_req_pvt.get_route_mtl_req and p_route_id='||
317: l_job_attrs.route_id||' p_item_instance_id='||l_job_attrs.item_instance_id||
318: ' p_requirement_date='||l_job_attrs.scheduled_start_date);
337: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
339: END IF;
340: ----dbms_output.put_line('After calling ltp API, the count='||l_route_mtl_req_tbl.COUNT);
341: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
342: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
343: G_LOG_PREFIX||l_api_name||': In normal execution',
344: 'After calling LTP API and x_return_status='||l_return_status||
345: ' The count of the returned records = '||l_route_mtl_req_tbl.COUNT);
338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
339: END IF;
340: ----dbms_output.put_line('After calling ltp API, the count='||l_route_mtl_req_tbl.COUNT);
341: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
342: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
343: G_LOG_PREFIX||l_api_name||': In normal execution',
344: 'After calling LTP API and x_return_status='||l_return_status||
345: ' The count of the returned records = '||l_route_mtl_req_tbl.COUNT);
346: END IF;
346: END IF;
347:
348: IF l_route_mtl_req_tbl.COUNT > 0 THEN
349: FOR i IN l_route_mtl_req_tbl.FIRST..l_route_mtl_req_tbl.LAST LOOP
350: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
351: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
352: G_LOG_PREFIX||l_api_name||': In normal execution',
353: 'In mtl_req_tbl loop and i='||i||' and count = '||l_route_mtl_req_tbl.COUNT);
354: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
347:
348: IF l_route_mtl_req_tbl.COUNT > 0 THEN
349: FOR i IN l_route_mtl_req_tbl.FIRST..l_route_mtl_req_tbl.LAST LOOP
350: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
351: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
352: G_LOG_PREFIX||l_api_name||': In normal execution',
353: 'In mtl_req_tbl loop and i='||i||' and count = '||l_route_mtl_req_tbl.COUNT);
354: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
355: G_LOG_PREFIX||l_api_name,
350: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
351: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
352: G_LOG_PREFIX||l_api_name||': In normal execution',
353: 'In mtl_req_tbl loop and i='||i||' and count = '||l_route_mtl_req_tbl.COUNT);
354: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
355: G_LOG_PREFIX||l_api_name,
356: 'For index ' || i || ', rt_oper_material_id = '||
357: l_route_mtl_req_tbl(i).rt_oper_material_id||', position_path_id = '||
358: l_route_mtl_req_tbl(i).position_path_id||', item_group_id = '||
373: --dbms_output.put_line('Before check flag');
374: --Filter out the record which should not be included
375: IF (l_mtl_req_flags.exclude_flag = 'Y') THEN
376: l_route_mtl_req_tbl.DELETE(i);
377: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
378: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
379: G_LOG_PREFIX||l_api_name||': In normal execution',
380: 'The disposition record is deleted and i='||i||' because the exclude_flag=Y');
381: END IF;
374: --Filter out the record which should not be included
375: IF (l_mtl_req_flags.exclude_flag = 'Y') THEN
376: l_route_mtl_req_tbl.DELETE(i);
377: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
378: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
379: G_LOG_PREFIX||l_api_name||': In normal execution',
380: 'The disposition record is deleted and i='||i||' because the exclude_flag=Y');
381: END IF;
382: ----dbms_output.put_line('Yes it is deleted '||i);
398: OPEN check_item_org(l_route_mtl_req_tbl(i).inventory_item_id,
399: l_job_attrs.organization_id);
400: FETCH check_item_org INTO l_dummy_char;
401: IF check_item_org%NOTFOUND THEN
402: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
403: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
404: G_LOG_PREFIX||l_api_name||': In normal execution',
405: 'inventory_item_id = '||l_route_mtl_req_tbl(i).inventory_item_id||
406: 'job_organization_id = '||l_job_attrs.organization_id||
399: l_job_attrs.organization_id);
400: FETCH check_item_org INTO l_dummy_char;
401: IF check_item_org%NOTFOUND THEN
402: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
403: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
404: G_LOG_PREFIX||l_api_name||': In normal execution',
405: 'inventory_item_id = '||l_route_mtl_req_tbl(i).inventory_item_id||
406: 'job_organization_id = '||l_job_attrs.organization_id||
407: 'The item does not exist in the organization of the job and this disposition record will be ignored.');
419: --the position is not empty
420: ----dbms_output.put_line('position_path_id='||l_route_mtl_req_tbl(i).position_path_id);
421: IF (l_route_mtl_req_tbl.EXISTS(i) AND
422: l_route_mtl_req_tbl(i).position_path_id IS NOT NULL) THEN
423: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
424: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
425: G_LOG_PREFIX||l_api_name||': In normal execution',
426: 'Exists and position_path_id is not null');
427: END IF;
420: ----dbms_output.put_line('position_path_id='||l_route_mtl_req_tbl(i).position_path_id);
421: IF (l_route_mtl_req_tbl.EXISTS(i) AND
422: l_route_mtl_req_tbl(i).position_path_id IS NOT NULL) THEN
423: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
424: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
425: G_LOG_PREFIX||l_api_name||': In normal execution',
426: 'Exists and position_path_id is not null');
427: END IF;
428: ----dbms_output.put_line('Yes exists');
451: END IF;
452: --Call Path Position API to get the installed instance if the given unit has a
453: --matching path_position_id
454: ----dbms_output.put_line('Before calling path API');
455: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
456: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
457: G_LOG_PREFIX||l_api_name||': in normal execution',
458: 'Before calling mc path position API and p_position_id ='||
459: l_route_mtl_req_tbl(i).position_path_id||' p_csi_item_instance_id='||
452: --Call Path Position API to get the installed instance if the given unit has a
453: --matching path_position_id
454: ----dbms_output.put_line('Before calling path API');
455: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
456: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
457: G_LOG_PREFIX||l_api_name||': in normal execution',
458: 'Before calling mc path position API and p_position_id ='||
459: l_route_mtl_req_tbl(i).position_path_id||' p_csi_item_instance_id='||
460: l_unit_instance_id);
472: x_item_instance_id => l_installed_inst_id,
473: x_lowest_uc_csi_id => l_lowest_unit_inst_id,
474: x_mapping_status => l_mapping_status);
475:
476: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
477: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
478: G_LOG_PREFIX||l_api_name||': Within the procedure ',
479: 'Returned from call to AHL_MC_PATH_POSITION_PVT.get_pos_instance:' ||
480: ' x_return_status = ' || l_return_status ||
473: x_lowest_uc_csi_id => l_lowest_unit_inst_id,
474: x_mapping_status => l_mapping_status);
475:
476: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
477: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
478: G_LOG_PREFIX||l_api_name||': Within the procedure ',
479: 'Returned from call to AHL_MC_PATH_POSITION_PVT.get_pos_instance:' ||
480: ' x_return_status = ' || l_return_status ||
481: ', x_mapping_status = ' || l_mapping_status ||
517: --if not, then ignore this record
518: OPEN check_item_org(l_inv_item_id, l_job_attrs.organization_id);
519: FETCH check_item_org INTO l_dummy_char;
520: IF check_item_org%NOTFOUND THEN
521: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
522: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
523: G_LOG_PREFIX||l_api_name||': In normal execution',
524: 'inventory_item_id = '||l_route_mtl_req_tbl(i).inventory_item_id||
525: 'instance_id = '||l_installed_inst_id||
518: OPEN check_item_org(l_inv_item_id, l_job_attrs.organization_id);
519: FETCH check_item_org INTO l_dummy_char;
520: IF check_item_org%NOTFOUND THEN
521: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
522: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
523: G_LOG_PREFIX||l_api_name||': In normal execution',
524: 'inventory_item_id = '||l_route_mtl_req_tbl(i).inventory_item_id||
525: 'instance_id = '||l_installed_inst_id||
526: 'job_organization_id = '||l_job_attrs.organization_id||
541: BEGIN
542: SELECT ahl_prd_dispositions_b_s.NEXTVAL
543: INTO l_disposition_id
544: FROM dual;
545: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
546: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
547: G_LOG_PREFIX||l_api_name||': Before calling table handler',
548: 'disposition_id = '||l_disposition_id);
549: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
542: SELECT ahl_prd_dispositions_b_s.NEXTVAL
543: INTO l_disposition_id
544: FROM dual;
545: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
546: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
547: G_LOG_PREFIX||l_api_name||': Before calling table handler',
548: 'disposition_id = '||l_disposition_id);
549: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
550: G_LOG_PREFIX||l_api_name||': Before calling table handler',
545: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
546: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
547: G_LOG_PREFIX||l_api_name||': Before calling table handler',
548: 'disposition_id = '||l_disposition_id);
549: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
550: G_LOG_PREFIX||l_api_name||': Before calling table handler',
551: 'workorder_id = '||p_workorder_id);
552: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
553: G_LOG_PREFIX||l_api_name||': Before calling table handler',
548: 'disposition_id = '||l_disposition_id);
549: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
550: G_LOG_PREFIX||l_api_name||': Before calling table handler',
551: 'workorder_id = '||p_workorder_id);
552: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
553: G_LOG_PREFIX||l_api_name||': Before calling table handler',
554: 'path_position_id = '||l_route_mtl_req_tbl(i).position_path_id);
555: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
556: G_LOG_PREFIX||l_api_name||': Before calling table handler',
551: 'workorder_id = '||p_workorder_id);
552: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
553: G_LOG_PREFIX||l_api_name||': Before calling table handler',
554: 'path_position_id = '||l_route_mtl_req_tbl(i).position_path_id);
555: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
556: G_LOG_PREFIX||l_api_name||': Before calling table handler',
557: 'inventory_item_id = '||l_route_mtl_req_tbl(i).inventory_item_id);
558: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
559: G_LOG_PREFIX||l_api_name||': Before calling table handler',
554: 'path_position_id = '||l_route_mtl_req_tbl(i).position_path_id);
555: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
556: G_LOG_PREFIX||l_api_name||': Before calling table handler',
557: 'inventory_item_id = '||l_route_mtl_req_tbl(i).inventory_item_id);
558: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
559: G_LOG_PREFIX||l_api_name||': Before calling table handler',
560: 'inv_master_org_id = '||l_route_mtl_req_tbl(i).inv_master_org_id);
561: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
562: G_LOG_PREFIX||l_api_name||': Before calling table handler',
557: 'inventory_item_id = '||l_route_mtl_req_tbl(i).inventory_item_id);
558: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
559: G_LOG_PREFIX||l_api_name||': Before calling table handler',
560: 'inv_master_org_id = '||l_route_mtl_req_tbl(i).inv_master_org_id);
561: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
562: G_LOG_PREFIX||l_api_name||': Before calling table handler',
563: 'item_group_id= '||l_route_mtl_req_tbl(i).item_group_id);
564: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
565: G_LOG_PREFIX||l_api_name||': Before calling table handler',
560: 'inv_master_org_id = '||l_route_mtl_req_tbl(i).inv_master_org_id);
561: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
562: G_LOG_PREFIX||l_api_name||': Before calling table handler',
563: 'item_group_id= '||l_route_mtl_req_tbl(i).item_group_id);
564: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
565: G_LOG_PREFIX||l_api_name||': Before calling table handler',
566: 'l_installed_inst_id='||l_installed_inst_id);
567: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
568: G_LOG_PREFIX||l_api_name||': Before calling table handler',
563: 'item_group_id= '||l_route_mtl_req_tbl(i).item_group_id);
564: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
565: G_LOG_PREFIX||l_api_name||': Before calling table handler',
566: 'l_installed_inst_id='||l_installed_inst_id);
567: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
568: G_LOG_PREFIX||l_api_name||': Before calling table handler',
569: 'l_serial_number='||l_serial_number);
570: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
571: G_LOG_PREFIX||l_api_name||': Before calling table handler',
566: 'l_installed_inst_id='||l_installed_inst_id);
567: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
568: G_LOG_PREFIX||l_api_name||': Before calling table handler',
569: 'l_serial_number='||l_serial_number);
570: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
571: G_LOG_PREFIX||l_api_name||': Before calling table handler',
572: 'l_lot_number='||l_lot_number);
573: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
574: G_LOG_PREFIX||l_api_name||': Before calling table handler',
569: 'l_serial_number='||l_serial_number);
570: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
571: G_LOG_PREFIX||l_api_name||': Before calling table handler',
572: 'l_lot_number='||l_lot_number);
573: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
574: G_LOG_PREFIX||l_api_name||': Before calling table handler',
575: 'quantity='||l_route_mtl_req_tbl(i).quantity);
576: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
577: G_LOG_PREFIX||l_api_name||': Before calling table handler',
572: 'l_lot_number='||l_lot_number);
573: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
574: G_LOG_PREFIX||l_api_name||': Before calling table handler',
575: 'quantity='||l_route_mtl_req_tbl(i).quantity);
576: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
577: G_LOG_PREFIX||l_api_name||': Before calling table handler',
578: 'uom_code='||l_route_mtl_req_tbl(i).uom_code);
579: END IF;
580:
702: l_inv_item_id := NULL;
703: END LOOP;
704: END IF;
705:
706: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
707: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
708: G_LOG_PREFIX||l_api_name||': After normal execution',
709: 'At the end of the procedure');
710: END IF;
703: END LOOP;
704: END IF;
705:
706: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
707: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
708: G_LOG_PREFIX||l_api_name||': After normal execution',
709: 'At the end of the procedure');
710: END IF;
711:
824: BEGIN
825:
826: -- Standard start of API savepoint
827: SAVEPOINT process_disposition_pvt;
828: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
829: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
830: END IF;
831:
832: --dbms_output.put_line(SubStr('Begin Process_Disposition', 1, 255));
825:
826: -- Standard start of API savepoint
827: SAVEPOINT process_disposition_pvt;
828: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
829: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
830: END IF;
831:
832: --dbms_output.put_line(SubStr('Begin Process_Disposition', 1, 255));
833: -- Standard call to check for call compatibility
875: x_return_status ,
876: x_msg_count,
877: x_msg_data);
878:
879: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
880: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After calling update_dispositon- x_msg_data: ' || x_msg_data
881: || ' x_msg_count: ' || x_msg_count);
882: END IF;
883: END IF;
876: x_msg_count,
877: x_msg_data);
878:
879: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
880: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After calling update_dispositon- x_msg_data: ' || x_msg_data
881: || ' x_msg_count: ' || x_msg_count);
882: END IF;
883: END IF;
884:
901: p_data => x_msg_data,
902: p_encoded => fnd_api.g_false
903: );
904:
905: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
906: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
907: END IF;
908: --dbms_output.put_line(SubStr('End Process_Disposition', 1, 255));
909:
902: p_encoded => fnd_api.g_false
903: );
904:
905: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
906: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
907: END IF;
908: --dbms_output.put_line(SubStr('End Process_Disposition', 1, 255));
909:
910: EXCEPTION
913: x_return_status := FND_API.G_RET_STS_ERROR;
914: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
915: p_data => x_msg_data,
916: p_encoded => fnd_api.g_false);
917: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
918: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, L_DEBUG_KEY, 'Execution Exception: ' || x_msg_data);
919: END IF;
920: --dbms_output.put_line(SubStr('Execution Exception', 1, 255));
921:
914: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
915: p_data => x_msg_data,
916: p_encoded => fnd_api.g_false);
917: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
918: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, L_DEBUG_KEY, 'Execution Exception: ' || x_msg_data);
919: END IF;
920: --dbms_output.put_line(SubStr('Execution Exception', 1, 255));
921:
922:
926: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
927: p_data => x_msg_data,
928: p_encoded => fnd_api.g_false);
929:
930: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
931: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, 'Unexpected Exception: ' || x_msg_data);
932: END IF;
933: --dbms_output.put_line(SubStr('Unexpected Exception', 1, 255));
934:
927: p_data => x_msg_data,
928: p_encoded => fnd_api.g_false);
929:
930: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
931: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, 'Unexpected Exception: ' || x_msg_data);
932: END IF;
933: --dbms_output.put_line(SubStr('Unexpected Exception', 1, 255));
934:
935: WHEN OTHERS THEN
943: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
944: p_data => x_msg_data,
945: p_encoded => fnd_api.g_false);
946:
947: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
948: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, 'Other Exception: ' || x_msg_data);
949: END IF;
950:
951:
944: p_data => x_msg_data,
945: p_encoded => fnd_api.g_false);
946:
947: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
948: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, 'Other Exception: ' || x_msg_data);
949: END IF;
950:
951:
952: --dbms_output.put_line(SubStr('Other Exception', 1, 255));
1052: BEGIN
1053:
1054:
1055:
1056: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1057: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1058: END IF;
1059: --dbms_output.put_line(SubStr('Begin Create_Disposition', 1, 255));
1060:
1053:
1054:
1055:
1056: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1057: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1058: END IF;
1059: --dbms_output.put_line(SubStr('Begin Create_Disposition', 1, 255));
1060:
1061: IF (p_module_type = 'JSP') THEN
1135:
1136: validate_for_create(p_x_disposition_rec);
1137:
1138: --Validate Disposition Types
1139: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1140: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before validate disposition_type');
1141: END IF;
1142: --dbms_output.put_line(SubStr('Before validate disposition type ', 1, 255));
1143: Validate_Disposition_Types (
1136: validate_for_create(p_x_disposition_rec);
1137:
1138: --Validate Disposition Types
1139: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1140: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before validate disposition_type');
1141: END IF;
1142: --dbms_output.put_line(SubStr('Before validate disposition type ', 1, 255));
1143: Validate_Disposition_Types (
1144: -- p_api_version => p_api_version,
1150: x_msg_data => x_msg_data ,
1151: p_disposition_rec => p_x_disposition_rec);
1152:
1153: --Calculate Status
1154: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1155: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calculate_status');
1156: END IF;
1157: --dbms_output.put_line(SubStr('Before calculate status', 1, 255));
1158: Calculate_Status (
1151: p_disposition_rec => p_x_disposition_rec);
1152:
1153: --Calculate Status
1154: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1155: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calculate_status');
1156: END IF;
1157: --dbms_output.put_line(SubStr('Before calculate status', 1, 255));
1158: Calculate_Status (
1159: p_disposition_Rec => p_x_disposition_Rec,
1171: p_x_disposition_rec.last_updated_by := fnd_global.user_id;
1172: p_x_disposition_rec.last_update_date := SYSDATE;
1173: p_x_disposition_rec.last_update_login := fnd_global.login_id ;
1174:
1175: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1176: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before Insert_Row');
1177: END IF;
1178: --dbms_output.put_line(SubStr('Create_Disposition - Before Insert_Row', 1, 255));
1179: AHL_PRD_DISPOSITIONS_PKG.INSERT_ROW(
1172: p_x_disposition_rec.last_update_date := SYSDATE;
1173: p_x_disposition_rec.last_update_login := fnd_global.login_id ;
1174:
1175: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1176: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before Insert_Row');
1177: END IF;
1178: --dbms_output.put_line(SubStr('Create_Disposition - Before Insert_Row', 1, 255));
1179: AHL_PRD_DISPOSITIONS_PKG.INSERT_ROW(
1180: x_rowid => l_dummy_char,
1222: x_last_update_date => p_x_disposition_rec.last_update_date,
1223: x_last_updated_by => p_x_disposition_rec.last_updated_by,
1224: x_last_update_login => p_x_disposition_rec.last_update_login
1225: );
1226: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1227: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'AfterInsert_Row');
1228: END IF;
1229:
1230: -- create service request and non-routine job
1223: x_last_updated_by => p_x_disposition_rec.last_updated_by,
1224: x_last_update_login => p_x_disposition_rec.last_update_login
1225: );
1226: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1227: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'AfterInsert_Row');
1228: END IF;
1229:
1230: -- create service request and non-routine job
1231: -- SATHAPLI::FP OGMA Issue# 105 - Non-Serialized Item Maintenance, 12-Dec-2007
1349:
1350: -- Change by jaramana on 06-DEC-2011 to capture instance condition in IB
1351: -- Functionality required as part of Various Execution Enhancements (VEE)
1352: -- Part Removal has happened: Update Instance condition
1353: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1354: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call AHL_PRD_PARTS_CHANGE_PVT.Update_Part_Condition with ' ||
1355: ' p_instance_id = ' || l_removed_instance_id ||
1356: ', and p_instance_condition_id = ' || p_x_disposition_rec.condition_id);
1357: END IF;
1350: -- Change by jaramana on 06-DEC-2011 to capture instance condition in IB
1351: -- Functionality required as part of Various Execution Enhancements (VEE)
1352: -- Part Removal has happened: Update Instance condition
1353: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1354: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call AHL_PRD_PARTS_CHANGE_PVT.Update_Part_Condition with ' ||
1355: ' p_instance_id = ' || l_removed_instance_id ||
1356: ', and p_instance_condition_id = ' || p_x_disposition_rec.condition_id);
1357: END IF;
1358: AHL_PRD_PARTS_CHANGE_PVT.Update_Part_Condition(p_init_msg_list => FND_API.G_FALSE,
1362: p_instance_condition_id => p_x_disposition_rec.condition_id,
1363: x_return_status => x_return_status,
1364: x_msg_data => x_msg_data,
1365: x_msg_count => x_msg_count);
1366: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1367: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from AHL_PRD_PARTS_CHANGE_PVT.Update_Part_Condition: ' ||
1368: ' x_return_status = ' || x_return_status);
1369: END IF;
1370: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1363: x_return_status => x_return_status,
1364: x_msg_data => x_msg_data,
1365: x_msg_count => x_msg_count);
1366: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1367: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from AHL_PRD_PARTS_CHANGE_PVT.Update_Part_Condition: ' ||
1368: ' x_return_status = ' || x_return_status);
1369: END IF;
1370: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1371: RAISE FND_API.G_EXC_ERROR;
1376: IF (p_x_disposition_rec.condition_id <> NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE'), -1) AND
1377: p_x_disposition_rec.condition_id <> NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'), -1) AND
1378: p_x_disposition_rec.condition_id <> NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_INSPECTION'), -1)) THEN
1379: -- Serviceable Removal: Move part to WO locator
1380: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1381: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator with ' ||
1382: ' part change id = ' || p_x_disposition_rec.part_change_id ||
1383: ' and disposition_id = ' || p_x_disposition_rec.disposition_id);
1384: END IF;
1377: p_x_disposition_rec.condition_id <> NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'), -1) AND
1378: p_x_disposition_rec.condition_id <> NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_INSPECTION'), -1)) THEN
1379: -- Serviceable Removal: Move part to WO locator
1380: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1381: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator with ' ||
1382: ' part change id = ' || p_x_disposition_rec.part_change_id ||
1383: ' and disposition_id = ' || p_x_disposition_rec.disposition_id);
1384: END IF;
1385: AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator(p_part_change_id => p_x_disposition_rec.part_change_id,
1388: x_msg_data => x_msg_data,
1389: x_msg_count => x_msg_count,
1390: x_ahl_mtltxn_rec => l_ahl_mtltxn_rec);
1391:
1392: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1393: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator: ' ||
1394: ' x_return_status = ' || x_return_status);
1395: END IF;
1396: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1389: x_msg_count => x_msg_count,
1390: x_ahl_mtltxn_rec => l_ahl_mtltxn_rec);
1391:
1392: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1393: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator: ' ||
1394: ' x_return_status = ' || x_return_status);
1395: END IF;
1396: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1397: RAISE FND_API.G_EXC_ERROR;
1414: -- Changes by jaramana on 03-FEB-2011 for bug 10647408
1415: -- For Non Serialized tracked items, if an unserviceable removal was done with Create Work Order in released option
1416: -- then the disposition should be deemed complete as soon as the quantity is moved to the newly created work order.
1417: -- This is to prevent the Material returns UI from incorrectly showing this disposition quantity as available for return
1418: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1419: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to check if Disposition status can be set to Complete for non Inspection.' ||
1420: ' p_x_disposition_rec.condition_id = ' || p_x_disposition_rec.condition_id ||
1421: ', NVL(fnd_profile.value(AHL_MTL_MAT_STATUS_UNSERVICABLE), -1) = ' || NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE'), -1) ||
1422: ', NVL(fnd_profile.value(AHL_MTL_MAT_STATUS_MRB), -1) = ' || NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'), -1) ||
1415: -- For Non Serialized tracked items, if an unserviceable removal was done with Create Work Order in released option
1416: -- then the disposition should be deemed complete as soon as the quantity is moved to the newly created work order.
1417: -- This is to prevent the Material returns UI from incorrectly showing this disposition quantity as available for return
1418: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1419: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to check if Disposition status can be set to Complete for non Inspection.' ||
1420: ' p_x_disposition_rec.condition_id = ' || p_x_disposition_rec.condition_id ||
1421: ', NVL(fnd_profile.value(AHL_MTL_MAT_STATUS_UNSERVICABLE), -1) = ' || NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE'), -1) ||
1422: ', NVL(fnd_profile.value(AHL_MTL_MAT_STATUS_MRB), -1) = ' || NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'), -1) ||
1423: ', p_x_disposition_rec.part_change_id = ' || p_x_disposition_rec.part_change_id ||
1438: -- Get the first released non-master workorder id for the NR summary workorder
1439: OPEN get_rel_nonmaster_wo_id_csr(p_x_disposition_rec.non_routine_workorder_id);
1440: FETCH get_rel_nonmaster_wo_id_csr INTO l_rel_nm_wo_id;
1441: IF (get_rel_nonmaster_wo_id_csr%FOUND) THEN
1442: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1443: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_rel_nm_wo_id = ' || l_rel_nm_wo_id);
1444: END IF;
1445:
1446: -- Check if the instance has already been moved to the new NR work order (non-master)
1439: OPEN get_rel_nonmaster_wo_id_csr(p_x_disposition_rec.non_routine_workorder_id);
1440: FETCH get_rel_nonmaster_wo_id_csr INTO l_rel_nm_wo_id;
1441: IF (get_rel_nonmaster_wo_id_csr%FOUND) THEN
1442: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1443: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_rel_nm_wo_id = ' || l_rel_nm_wo_id);
1444: END IF;
1445:
1446: -- Check if the instance has already been moved to the new NR work order (non-master)
1447: --OPEN chk_disp_inst_job_csr (p_x_disposition_rec.instance_id, l_rel_nm_wo_id);
1450: OPEN chk_disp_inst_job_csr (p_x_disposition_rec.disposition_id, l_rel_nm_wo_id);
1451: FETCH chk_disp_inst_job_csr INTO l_inst_in_job_flag;
1452: CLOSE chk_disp_inst_job_csr;
1453: IF (l_inst_in_job_flag = 'Y') THEN
1454: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1455: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Non Ser. trk. item unserv. removal with Create WO in rel. option. Removed instance moved to NR WO. Setting Disp. status to COMPLETE.');
1456: END IF;
1457: -- All checks completed: Change the Disposition status to COMPLETE
1458: UPDATE AHL_PRD_DISPOSITIONS_B
1451: FETCH chk_disp_inst_job_csr INTO l_inst_in_job_flag;
1452: CLOSE chk_disp_inst_job_csr;
1453: IF (l_inst_in_job_flag = 'Y') THEN
1454: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1455: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Non Ser. trk. item unserv. removal with Create WO in rel. option. Removed instance moved to NR WO. Setting Disp. status to COMPLETE.');
1456: END IF;
1457: -- All checks completed: Change the Disposition status to COMPLETE
1458: UPDATE AHL_PRD_DISPOSITIONS_B
1459: SET status_code = 'COMPLETE'
1458: UPDATE AHL_PRD_DISPOSITIONS_B
1459: SET status_code = 'COMPLETE'
1460: WHERE disposition_id = p_x_disposition_rec.disposition_id;
1461: ELSE
1462: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1463: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Instance not in work order. l_rel_nm_wo_id = ' || l_rel_nm_wo_id);
1464: END IF;
1465: END IF;
1466: ELSE
1459: SET status_code = 'COMPLETE'
1460: WHERE disposition_id = p_x_disposition_rec.disposition_id;
1461: ELSE
1462: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1463: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Instance not in work order. l_rel_nm_wo_id = ' || l_rel_nm_wo_id);
1464: END IF;
1465: END IF;
1466: ELSE
1467: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1463: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Instance not in work order. l_rel_nm_wo_id = ' || l_rel_nm_wo_id);
1464: END IF;
1465: END IF;
1466: ELSE
1467: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1468: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'No Released Work Orders Found');
1469: END IF;
1470: END IF;
1471: CLOSE get_rel_nonmaster_wo_id_csr;
1464: END IF;
1465: END IF;
1466: ELSE
1467: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1468: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'No Released Work Orders Found');
1469: END IF;
1470: END IF;
1471: CLOSE get_rel_nonmaster_wo_id_csr;
1472: END IF;
1471: CLOSE get_rel_nonmaster_wo_id_csr;
1472: END IF;
1473: -- End changes by jaramana on 03-FEB-2011 for bug 10647408
1474:
1475: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1476: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'end create_disposition disposition_id:' ||p_x_disposition_rec.disposition_id);
1477: END IF;
1478:
1479: -- Added by jaramana on 17-JUN-2011 for bug 10195920
1472: END IF;
1473: -- End changes by jaramana on 03-FEB-2011 for bug 10647408
1474:
1475: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1476: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'end create_disposition disposition_id:' ||p_x_disposition_rec.disposition_id);
1477: END IF;
1478:
1479: -- Added by jaramana on 17-JUN-2011 for bug 10195920
1480: -- Close the cursor that locked the instance
1479: -- Added by jaramana on 17-JUN-2011 for bug 10195920
1480: -- Close the cursor that locked the instance
1481: CLOSE instance_lock_csr;
1482:
1483: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1484: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
1485: END IF;
1486: --dbms_output.put_line(SubStr('End Create_Disposition', 1, 255));
1487: END create_disposition;
1480: -- Close the cursor that locked the instance
1481: CLOSE instance_lock_csr;
1482:
1483: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1484: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
1485: END IF;
1486: --dbms_output.put_line(SubStr('End Create_Disposition', 1, 255));
1487: END create_disposition;
1488:
1649: and plan_id = p_plan_id;
1650:
1651: BEGIN
1652:
1653: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1654: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1655: END IF;
1656:
1657:
1650:
1651: BEGIN
1652:
1653: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1654: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1655: END IF;
1656:
1657:
1658: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1654: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1655: END IF;
1656:
1657:
1658: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1659: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '', 'update Disposition_id' || p_x_disposition_rec.disposition_id );
1660: END IF;
1661:
1662: --dbms_output.put_line(SubStr('Begin Update_Disposition', 1, 255));
1655: END IF;
1656:
1657:
1658: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1659: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '', 'update Disposition_id' || p_x_disposition_rec.disposition_id );
1660: END IF;
1661:
1662: --dbms_output.put_line(SubStr('Begin Update_Disposition', 1, 255));
1663:
1688: --Handle JSP module
1689: --Handle GMiss and merge the updating record with the one from database
1690:
1691: IF (p_module_type = 'JSP') THEN
1692: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1693: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Merging data');
1694: END IF;
1695: --dbms_output.put_line(SubStr('Update_disp:Merging data', 1, 255));
1696: IF p_x_disposition_rec.workorder_id IS NULL THEN
1689: --Handle GMiss and merge the updating record with the one from database
1690:
1691: IF (p_module_type = 'JSP') THEN
1692: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1693: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Merging data');
1694: END IF;
1695: --dbms_output.put_line(SubStr('Update_disp:Merging data', 1, 255));
1696: IF p_x_disposition_rec.workorder_id IS NULL THEN
1697: p_x_disposition_rec.workorder_id := l_disposition_rec.workorder_id;
1799: ELSIF (p_x_disposition_rec.item_revision = FND_API.G_MISS_CHAR) THEN
1800: p_x_disposition_rec.item_revision := null;
1801: END IF;
1802:
1803: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1804: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After Merging data');
1805: END IF;
1806: --dbms_output.put_line(SubStr('Update_disp:End Merging data', 1, 255));
1807: END IF;
1800: p_x_disposition_rec.item_revision := null;
1801: END IF;
1802:
1803: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1804: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After Merging data');
1805: END IF;
1806: --dbms_output.put_line(SubStr('Update_disp:End Merging data', 1, 255));
1807: END IF;
1808: --END MERGING DATA
1921: CLOSE val_lot_number_csr;
1922: END IF;
1923:
1924: --Item Revision
1925: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1926: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Item Revision old: ' || l_disposition_rec.item_revision || ' new: ' || p_x_disposition_rec.item_revision);
1927: END IF;
1928: IF nvl(p_x_disposition_rec.item_revision, ' ') <> nvl(l_disposition_rec.item_revision, nvl(p_x_disposition_rec.item_revision, ' ')) THEN
1929: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REV_CHNG'); --item revision Number Can be set once
1922: END IF;
1923:
1924: --Item Revision
1925: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1926: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Item Revision old: ' || l_disposition_rec.item_revision || ' new: ' || p_x_disposition_rec.item_revision);
1927: END IF;
1928: IF nvl(p_x_disposition_rec.item_revision, ' ') <> nvl(l_disposition_rec.item_revision, nvl(p_x_disposition_rec.item_revision, ' ')) THEN
1929: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REV_CHNG'); --item revision Number Can be set once
1930: FND_MSG_PUB.ADD;
1927: END IF;
1928: IF nvl(p_x_disposition_rec.item_revision, ' ') <> nvl(l_disposition_rec.item_revision, nvl(p_x_disposition_rec.item_revision, ' ')) THEN
1929: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REV_CHNG'); --item revision Number Can be set once
1930: FND_MSG_PUB.ADD;
1931: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1932: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Item Revision Change old: ' || l_disposition_rec.item_revision || ' new: ' || p_x_disposition_rec.item_revision);
1933: END IF;
1934: END IF;
1935: IF nvl(p_x_disposition_rec.item_revision, ' ') <> nvl(l_disposition_rec.item_revision, ' ') THEN
1928: IF nvl(p_x_disposition_rec.item_revision, ' ') <> nvl(l_disposition_rec.item_revision, nvl(p_x_disposition_rec.item_revision, ' ')) THEN
1929: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REV_CHNG'); --item revision Number Can be set once
1930: FND_MSG_PUB.ADD;
1931: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1932: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Item Revision Change old: ' || l_disposition_rec.item_revision || ' new: ' || p_x_disposition_rec.item_revision);
1933: END IF;
1934: END IF;
1935: IF nvl(p_x_disposition_rec.item_revision, ' ') <> nvl(l_disposition_rec.item_revision, ' ') THEN
1936: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1932: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Item Revision Change old: ' || l_disposition_rec.item_revision || ' new: ' || p_x_disposition_rec.item_revision);
1933: END IF;
1934: END IF;
1935: IF nvl(p_x_disposition_rec.item_revision, ' ') <> nvl(l_disposition_rec.item_revision, ' ') THEN
1936: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1937: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Validate item revision: ' || p_x_disposition_rec.item_revision);
1938: END IF;
1939: -- item revision Number has been set: Validate
1940: OPEN item_revisions_csr (p_x_disposition_rec.item_revision, p_x_disposition_rec.inventory_item_id, p_x_disposition_rec.item_org_id);
1933: END IF;
1934: END IF;
1935: IF nvl(p_x_disposition_rec.item_revision, ' ') <> nvl(l_disposition_rec.item_revision, ' ') THEN
1936: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1937: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Validate item revision: ' || p_x_disposition_rec.item_revision);
1938: END IF;
1939: -- item revision Number has been set: Validate
1940: OPEN item_revisions_csr (p_x_disposition_rec.item_revision, p_x_disposition_rec.inventory_item_id, p_x_disposition_rec.item_org_id);
1941: FETCH item_revisions_csr INTO l_exist;
1984: IF p_x_disposition_rec.inventory_item_id IS NOT NULL THEN
1985: --derive organization
1986: OPEN get_organization_csr(p_x_disposition_rec.workorder_id);
1987: FETCH get_organization_csr INTO p_x_disposition_rec.item_org_id;
1988: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1989: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Derived Org: ' || p_x_disposition_rec.item_org_id);
1990: END IF;
1991: --dbms_output.put_line(SubStr('Derived Org: ' || p_x_disposition_rec.item_org_id, 1, 255));
1992: CLOSE get_organization_csr;
1985: --derive organization
1986: OPEN get_organization_csr(p_x_disposition_rec.workorder_id);
1987: FETCH get_organization_csr INTO p_x_disposition_rec.item_org_id;
1988: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1989: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Derived Org: ' || p_x_disposition_rec.item_org_id);
1990: END IF;
1991: --dbms_output.put_line(SubStr('Derived Org: ' || p_x_disposition_rec.item_org_id, 1, 255));
1992: CLOSE get_organization_csr;
1993:
2048: FND_MSG_PUB.ADD;
2049: END IF;
2050:
2051: END IF;
2052: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2053: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'end validate changes');
2054: END IF;
2055: --dbms_output.put_line(SubStr('Update_disp:End Validate Change', 1, 255));
2056:
2049: END IF;
2050:
2051: END IF;
2052: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2053: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'end validate changes');
2054: END IF;
2055: --dbms_output.put_line(SubStr('Update_disp:End Validate Change', 1, 255));
2056:
2057: -- Validate part_change
2161: END IF; --end create SR
2162:
2163:
2164: --Validate disposition type
2165: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2166: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before validate_disposition_types');
2167: END IF;
2168: --dbms_output.put_line(SubStr('Before validate disposition type', 1, 255));
2169: Validate_Disposition_Types (
2162:
2163:
2164: --Validate disposition type
2165: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2166: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before validate_disposition_types');
2167: END IF;
2168: --dbms_output.put_line(SubStr('Before validate disposition type', 1, 255));
2169: Validate_Disposition_Types (
2170: -- p_api_version => p_api_version,
2176: x_msg_data => x_msg_data ,
2177: p_disposition_rec => p_x_disposition_rec);
2178:
2179: -- Calculate disposition status
2180: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2181: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calculate_status');
2182: END IF;
2183: --dbms_output.put_line(SubStr('Before calculate status'|| p_x_disposition_Rec.status_code, 1, 255));
2184: Calculate_Status (
2177: p_disposition_rec => p_x_disposition_rec);
2178:
2179: -- Calculate disposition status
2180: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2181: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calculate_status');
2182: END IF;
2183: --dbms_output.put_line(SubStr('Before calculate status'|| p_x_disposition_Rec.status_code, 1, 255));
2184: Calculate_Status (
2185: p_disposition_Rec => p_x_disposition_Rec,
2185: p_disposition_Rec => p_x_disposition_Rec,
2186: x_status_code => l_calculated_status);
2187:
2188: p_x_disposition_Rec.status_code := l_calculated_status;
2189: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2190: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After calculate status' || p_x_disposition_Rec.status_code);
2191: END IF;
2192: --dbms_output.put_line(SubStr('After calculate status' ||p_x_disposition_Rec.status_code, 1, 255));
2193: -- setting up object version number
2186: x_status_code => l_calculated_status);
2187:
2188: p_x_disposition_Rec.status_code := l_calculated_status;
2189: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2190: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After calculate status' || p_x_disposition_Rec.status_code);
2191: END IF;
2192: --dbms_output.put_line(SubStr('After calculate status' ||p_x_disposition_Rec.status_code, 1, 255));
2193: -- setting up object version number
2194: p_x_disposition_rec.object_version_number := p_x_disposition_rec.object_version_number + 1;
2208: -- Changes by jaramana on 03-FEB-2011 for bug 10647408
2209: -- For Non Serialized tracked items, if an unserviceable removal was done with Create Work Order in released option
2210: -- then the disposition should be deemed complete as soon as the quantity is moved to the newly created work order.
2211: -- This is to prevent the Material returns UI from incorrectly showing this disposition quantity as available for return
2212: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2213: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to check if Disposition status can be set to Complete for non Inspection.' ||
2214: ' p_x_disposition_rec.serial_number = ' || p_x_disposition_rec.serial_number ||
2215: ', p_x_disposition_rec.instance_id = ' || p_x_disposition_rec.instance_id ||
2216: ', p_x_disposition_rec.condition_id = ' || p_x_disposition_rec.condition_id ||
2209: -- For Non Serialized tracked items, if an unserviceable removal was done with Create Work Order in released option
2210: -- then the disposition should be deemed complete as soon as the quantity is moved to the newly created work order.
2211: -- This is to prevent the Material returns UI from incorrectly showing this disposition quantity as available for return
2212: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2213: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to check if Disposition status can be set to Complete for non Inspection.' ||
2214: ' p_x_disposition_rec.serial_number = ' || p_x_disposition_rec.serial_number ||
2215: ', p_x_disposition_rec.instance_id = ' || p_x_disposition_rec.instance_id ||
2216: ', p_x_disposition_rec.condition_id = ' || p_x_disposition_rec.condition_id ||
2217: ', p_x_disposition_rec.status_code = ' || p_x_disposition_rec.status_code ||
2235: -- Get the first released non-master workorder id for the NR summary workorder
2236: OPEN get_rel_nonmaster_wo_id_csr(p_x_disposition_rec.non_routine_workorder_id);
2237: FETCH get_rel_nonmaster_wo_id_csr INTO l_rel_nm_wo_id;
2238: IF (get_rel_nonmaster_wo_id_csr%FOUND) THEN
2239: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2240: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_rel_nm_wo_id = ' || l_rel_nm_wo_id);
2241: END IF;
2242:
2243: -- Check if the instance has already been moved to the new NR work order (non-master)
2236: OPEN get_rel_nonmaster_wo_id_csr(p_x_disposition_rec.non_routine_workorder_id);
2237: FETCH get_rel_nonmaster_wo_id_csr INTO l_rel_nm_wo_id;
2238: IF (get_rel_nonmaster_wo_id_csr%FOUND) THEN
2239: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2240: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_rel_nm_wo_id = ' || l_rel_nm_wo_id);
2241: END IF;
2242:
2243: -- Check if the instance has already been moved to the new NR work order (non-master)
2244: --OPEN chk_disp_inst_job_csr (l_removed_instance_id, l_rel_nm_wo_id);
2247: OPEN chk_disp_inst_job_csr (p_x_disposition_rec.disposition_id, l_rel_nm_wo_id);
2248: FETCH chk_disp_inst_job_csr INTO l_inst_in_job_flag;
2249: CLOSE chk_disp_inst_job_csr;
2250: IF (l_inst_in_job_flag = 'Y') THEN
2251: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2252: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Non Ser. trk. item unserv. removal with Create WO in rel. option. Removed instance moved to NR WO. Setting Disp. status to COMPLETE.');
2253: END IF;
2254: -- All conditions are met: Set the disposition status to COMPLETE
2255: p_x_disposition_rec.status_code := 'COMPLETE';
2248: FETCH chk_disp_inst_job_csr INTO l_inst_in_job_flag;
2249: CLOSE chk_disp_inst_job_csr;
2250: IF (l_inst_in_job_flag = 'Y') THEN
2251: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2252: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Non Ser. trk. item unserv. removal with Create WO in rel. option. Removed instance moved to NR WO. Setting Disp. status to COMPLETE.');
2253: END IF;
2254: -- All conditions are met: Set the disposition status to COMPLETE
2255: p_x_disposition_rec.status_code := 'COMPLETE';
2256: ELSE
2253: END IF;
2254: -- All conditions are met: Set the disposition status to COMPLETE
2255: p_x_disposition_rec.status_code := 'COMPLETE';
2256: ELSE
2257: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2258: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Instance not in work order. l_rel_nm_wo_id = ' || l_rel_nm_wo_id);
2259: END IF;
2260: END IF;
2261: ELSE
2254: -- All conditions are met: Set the disposition status to COMPLETE
2255: p_x_disposition_rec.status_code := 'COMPLETE';
2256: ELSE
2257: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2258: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Instance not in work order. l_rel_nm_wo_id = ' || l_rel_nm_wo_id);
2259: END IF;
2260: END IF;
2261: ELSE
2262: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2258: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Instance not in work order. l_rel_nm_wo_id = ' || l_rel_nm_wo_id);
2259: END IF;
2260: END IF;
2261: ELSE
2262: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2263: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'No Released Work Order Found');
2264: END IF;
2265: END IF;
2266: CLOSE get_rel_nonmaster_wo_id_csr;
2259: END IF;
2260: END IF;
2261: ELSE
2262: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2263: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'No Released Work Order Found');
2264: END IF;
2265: END IF;
2266: CLOSE get_rel_nonmaster_wo_id_csr;
2267: END IF;
2266: CLOSE get_rel_nonmaster_wo_id_csr;
2267: END IF;
2268: -- End changes by jaramana on 03-FEB-2011 for bug 10647408
2269:
2270: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2271: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before update_row');
2272: END IF;
2273: --dbms_output.put_line(SubStr('Update_disp:Before call Update_Row', 1, 255));
2274: AHL_PRD_DISPOSITIONS_PKG.UPDATE_ROW(
2267: END IF;
2268: -- End changes by jaramana on 03-FEB-2011 for bug 10647408
2269:
2270: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2271: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before update_row');
2272: END IF;
2273: --dbms_output.put_line(SubStr('Update_disp:Before call Update_Row', 1, 255));
2274: AHL_PRD_DISPOSITIONS_PKG.UPDATE_ROW(
2275: x_disposition_id => p_x_disposition_rec.disposition_id,
2315: x_last_updated_by => p_x_disposition_rec.last_updated_by,
2316: x_last_update_login => p_x_disposition_rec.last_update_login
2317: );
2318:
2319: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2320: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After update_row');
2321: END IF;
2322: --dbms_output.put_line(SubStr('Update_disp:After call Update_Row', 1, 255));
2323: --dbms_output.put_line(SubStr('Update_disp: l_disposition_rec.creation_date ' || l_disposition_rec.creation_date, 1, 255));
2316: x_last_update_login => p_x_disposition_rec.last_update_login
2317: );
2318:
2319: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2320: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After update_row');
2321: END IF;
2322: --dbms_output.put_line(SubStr('Update_disp:After call Update_Row', 1, 255));
2323: --dbms_output.put_line(SubStr('Update_disp: l_disposition_rec.creation_date ' || l_disposition_rec.creation_date, 1, 255));
2324: --dbms_output.put_line(SubStr('Update_disp: l_disposition_rec.created_by ' || l_disposition_rec.created_by, 1, 255));
2326:
2327: Select AHL_PRD_DISPOSITIONS_B_H_S.NEXTVAL into l_disposition_h_id from dual;
2328: --dbms_output.put_line(SubStr('Update_disp:Before insert into history table', 1, 255));
2329:
2330: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2331: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before insert into history table');
2332: END IF;
2333: AHL_PRD_DISPOSITIONS_B_H_PKG.INSERT_ROW(
2334: x_rowid => l_dummy_char,
2327: Select AHL_PRD_DISPOSITIONS_B_H_S.NEXTVAL into l_disposition_h_id from dual;
2328: --dbms_output.put_line(SubStr('Update_disp:Before insert into history table', 1, 255));
2329:
2330: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2331: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before insert into history table');
2332: END IF;
2333: AHL_PRD_DISPOSITIONS_B_H_PKG.INSERT_ROW(
2334: x_rowid => l_dummy_char,
2335: x_disposition_h_id => l_disposition_h_id,
2385: l_exist := NULL;
2386: OPEN check_nr_wo_status_csr(p_x_disposition_rec.non_routine_workorder_id);
2387: FETCH check_nr_wo_status_csr INTO l_exist;
2388: CLOSE check_nr_wo_status_csr;
2389: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2390: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to check if instance location needs to be changed. ' ||
2391: ' p_x_disposition_rec.non_routine_workorder_id = ' || p_x_disposition_rec.non_routine_workorder_id ||
2392: ', l_disposition_rec.part_change_id = ' || l_disposition_rec.part_change_id ||
2393: ', p_x_disposition_rec.part_change_id = ' || p_x_disposition_rec.part_change_id ||
2386: OPEN check_nr_wo_status_csr(p_x_disposition_rec.non_routine_workorder_id);
2387: FETCH check_nr_wo_status_csr INTO l_exist;
2388: CLOSE check_nr_wo_status_csr;
2389: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2390: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to check if instance location needs to be changed. ' ||
2391: ' p_x_disposition_rec.non_routine_workorder_id = ' || p_x_disposition_rec.non_routine_workorder_id ||
2392: ', l_disposition_rec.part_change_id = ' || l_disposition_rec.part_change_id ||
2393: ', p_x_disposition_rec.part_change_id = ' || p_x_disposition_rec.part_change_id ||
2394: ', NR UE with null status exists: ' || NVL(l_exist, 'N'));
2426: p_x_disposition_rec.non_routine_workorder_id IS NOT NULL
2427: AND
2428: NOT l_primary_sr_created)
2429: THEN
2430: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2431: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key,
2432: 'About to check if the removed instance location needs to be changed.');
2433: END IF;
2434:
2427: AND
2428: NOT l_primary_sr_created)
2429: THEN
2430: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2431: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key,
2432: 'About to check if the removed instance location needs to be changed.');
2433: END IF;
2434:
2435: -- get the first released non-master workorder id for the NR summary workorder
2435: -- get the first released non-master workorder id for the NR summary workorder
2436: OPEN get_rel_nonmaster_wo_id_csr(p_x_disposition_rec.non_routine_workorder_id);
2437: FETCH get_rel_nonmaster_wo_id_csr INTO l_rel_nm_wo_id;
2438: IF (get_rel_nonmaster_wo_id_csr%FOUND) THEN
2439: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2440: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key,
2441: 'First released non-master workorder id => '||l_rel_nm_wo_id);
2442: END IF;
2443:
2436: OPEN get_rel_nonmaster_wo_id_csr(p_x_disposition_rec.non_routine_workorder_id);
2437: FETCH get_rel_nonmaster_wo_id_csr INTO l_rel_nm_wo_id;
2438: IF (get_rel_nonmaster_wo_id_csr%FOUND) THEN
2439: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2440: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key,
2441: 'First released non-master workorder id => '||l_rel_nm_wo_id);
2442: END IF;
2443:
2444: -- get the removed instance id, which can be different from the disposition instance id for non-serialized items
2450: l_move_item_ins_tbl(1).quantity := p_x_disposition_rec.quantity;
2451: l_move_item_ins_tbl(1).from_workorder_id := p_x_disposition_rec.workorder_id;
2452: l_move_item_ins_tbl(1).to_workorder_id := l_rel_nm_wo_id;
2453:
2454: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2455: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key,
2456: 'About to call the API AHL_PRD_PARTS_CHANGE_PVT.move_instance_location with the parameters:'||
2457: ' instance_id => '||l_removed_instance_id||
2458: ' ,quantity => '||p_x_disposition_rec.quantity||
2451: l_move_item_ins_tbl(1).from_workorder_id := p_x_disposition_rec.workorder_id;
2452: l_move_item_ins_tbl(1).to_workorder_id := l_rel_nm_wo_id;
2453:
2454: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2455: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key,
2456: 'About to call the API AHL_PRD_PARTS_CHANGE_PVT.move_instance_location with the parameters:'||
2457: ' instance_id => '||l_removed_instance_id||
2458: ' ,quantity => '||p_x_disposition_rec.quantity||
2459: ' ,to_workorder_id => '||l_rel_nm_wo_id);
2472: x_msg_count => x_msg_count,
2473: x_msg_data => x_msg_data
2474: );
2475:
2476: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2477: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key,
2478: 'Call to the API AHL_PRD_PARTS_CHANGE_PVT.move_instance_location returned with status => '||x_return_status);
2479: END IF;
2480:
2473: x_msg_data => x_msg_data
2474: );
2475:
2476: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2477: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key,
2478: 'Call to the API AHL_PRD_PARTS_CHANGE_PVT.move_instance_location returned with status => '||x_return_status);
2479: END IF;
2480:
2481: -- check the API call return status
2528:
2529: -- Change by jaramana on 06-DEC-2011 to capture instance condition in IB
2530: -- Functionality required as part of Various Execution Enhancements (VEE)
2531: -- Part Removal has happened: Update Instance condition
2532: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2533: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call AHL_PRD_PARTS_CHANGE_PVT.Update_Part_Condition with ' ||
2534: ' p_instance_id = ' || l_removed_instance_id ||
2535: ', and p_instance_condition_id = ' || p_x_disposition_rec.condition_id);
2536: END IF;
2529: -- Change by jaramana on 06-DEC-2011 to capture instance condition in IB
2530: -- Functionality required as part of Various Execution Enhancements (VEE)
2531: -- Part Removal has happened: Update Instance condition
2532: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2533: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call AHL_PRD_PARTS_CHANGE_PVT.Update_Part_Condition with ' ||
2534: ' p_instance_id = ' || l_removed_instance_id ||
2535: ', and p_instance_condition_id = ' || p_x_disposition_rec.condition_id);
2536: END IF;
2537: AHL_PRD_PARTS_CHANGE_PVT.Update_Part_Condition(p_init_msg_list => FND_API.G_FALSE,
2541: p_instance_condition_id => p_x_disposition_rec.condition_id,
2542: x_return_status => x_return_status,
2543: x_msg_data => x_msg_data,
2544: x_msg_count => x_msg_count);
2545: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2546: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from AHL_PRD_PARTS_CHANGE_PVT.Update_Part_Condition: ' ||
2547: ' x_return_status = ' || x_return_status);
2548: END IF;
2549: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2542: x_return_status => x_return_status,
2543: x_msg_data => x_msg_data,
2544: x_msg_count => x_msg_count);
2545: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2546: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from AHL_PRD_PARTS_CHANGE_PVT.Update_Part_Condition: ' ||
2547: ' x_return_status = ' || x_return_status);
2548: END IF;
2549: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2550: RAISE FND_API.G_EXC_ERROR;
2555: IF (p_x_disposition_rec.condition_id <> NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE'), -1) AND
2556: p_x_disposition_rec.condition_id <> NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'), -1) AND
2557: p_x_disposition_rec.condition_id <> NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_INSPECTION'), -1)) THEN
2558: -- Serviceable Removal: Move part to WO locator
2559: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2560: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator with ' ||
2561: ' part change id = ' || p_x_disposition_rec.part_change_id ||
2562: ' and disposition_id = ' || p_x_disposition_rec.disposition_id);
2563: END IF;
2556: p_x_disposition_rec.condition_id <> NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'), -1) AND
2557: p_x_disposition_rec.condition_id <> NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_INSPECTION'), -1)) THEN
2558: -- Serviceable Removal: Move part to WO locator
2559: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2560: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator with ' ||
2561: ' part change id = ' || p_x_disposition_rec.part_change_id ||
2562: ' and disposition_id = ' || p_x_disposition_rec.disposition_id);
2563: END IF;
2564: AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator(p_part_change_id => p_x_disposition_rec.part_change_id,
2566: x_return_status => x_return_status,
2567: x_msg_data => x_msg_data,
2568: x_msg_count => x_msg_count,
2569: x_ahl_mtltxn_rec => l_ahl_mtltxn_rec);
2570: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2571: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator: ' ||
2572: ' x_return_status = ' || x_return_status);
2573: END IF;
2574: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2567: x_msg_data => x_msg_data,
2568: x_msg_count => x_msg_count,
2569: x_ahl_mtltxn_rec => l_ahl_mtltxn_rec);
2570: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2571: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator: ' ||
2572: ' x_return_status = ' || x_return_status);
2573: END IF;
2574: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2575: RAISE FND_API.G_EXC_ERROR;
2580: END IF; -- If Part Removal has happened
2581: END IF; -- x_return_status is Success and Part Change has just happened
2582:
2583: --dbms_output.put_line(SubStr('Update_disp:After insert history', 1, 255));
2584: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2585: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2586: END IF;
2587:
2588: END UPDATE_DISPOSITION;
2581: END IF; -- x_return_status is Success and Part Change has just happened
2582:
2583: --dbms_output.put_line(SubStr('Update_disp:After insert history', 1, 255));
2584: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2585: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2586: END IF;
2587:
2588: END UPDATE_DISPOSITION;
2589:
2660: l_workorder_start_date DATE;
2661:
2662: BEGIN
2663:
2664: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2665: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2666: END IF;
2667:
2668: -- Initialize message list if p_init_msg_list is set to TRUE
2661:
2662: BEGIN
2663:
2664: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2665: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2666: END IF;
2667:
2668: -- Initialize message list if p_init_msg_list is set to TRUE
2669: IF FND_API.To_Boolean( p_init_msg_list)
2730: --dbms_output.put_line('l_sr_task_tbl(0).Operation_type: '|| l_sr_task_tbl(0).Operation_type);
2731: --dbms_output.put_line('l_sr_task_tbl(0).Severity_id: '|| l_sr_task_tbl(0).Severity_id);
2732: --dbms_output.put_line('l_sr_task_tbl(0).source_program_code: '|| l_sr_task_tbl(0).source_program_code);
2733:
2734: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2735: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
2736: '--Request_date: '|| l_sr_task_tbl(0).Request_date
2737: || '--Summary: '|| l_sr_task_tbl(0).Summary
2738: || '--Instance_id: '|| l_sr_task_tbl(0).Instance_id
2731: --dbms_output.put_line('l_sr_task_tbl(0).Severity_id: '|| l_sr_task_tbl(0).Severity_id);
2732: --dbms_output.put_line('l_sr_task_tbl(0).source_program_code: '|| l_sr_task_tbl(0).source_program_code);
2733:
2734: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2735: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
2736: '--Request_date: '|| l_sr_task_tbl(0).Request_date
2737: || '--Summary: '|| l_sr_task_tbl(0).Summary
2738: || '--Instance_id: '|| l_sr_task_tbl(0).Instance_id
2739: || '--Problem_code: '|| l_sr_task_tbl(0).Problem_code
2789: l_sr_task_tbl(0).resolution_code := p_disposition_rec.resolution_code;
2790: l_sr_task_tbl(0).resolution_meaning := p_disposition_rec.resolution_meaning;
2791:
2792: --Calling Service Request API--
2793: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2794: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before process_nonroutine_job');
2795: END IF;
2796: AHL_PRD_NONROUTINE_PVT.process_nonroutine_job (
2797: p_api_version => 1.0,
2790: l_sr_task_tbl(0).resolution_meaning := p_disposition_rec.resolution_meaning;
2791:
2792: --Calling Service Request API--
2793: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2794: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before process_nonroutine_job');
2795: END IF;
2796: AHL_PRD_NONROUTINE_PVT.process_nonroutine_job (
2797: p_api_version => 1.0,
2798: p_commit => Fnd_Api.g_false,
2804: -- Parameter added by jaramana on Oct 9, 2007 for ER 5883257
2805: p_x_mr_asso_tbl => l_mr_asso_tbl
2806: );
2807:
2808: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2809: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After process non_nonroutine_job'
2810: || '-- x_return_status = '||x_return_status || '| x_msg_count = '||TO_CHAR(x_msg_count));
2811: END IF;
2812:
2805: p_x_mr_asso_tbl => l_mr_asso_tbl
2806: );
2807:
2808: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2809: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After process non_nonroutine_job'
2810: || '-- x_return_status = '||x_return_status || '| x_msg_count = '||TO_CHAR(x_msg_count));
2811: END IF;
2812:
2813:
2825: p_msg_index_out => l_msg_index_out );
2826: --dbms_output.put_line(SubStr('x_msg_data = '||x_msg_data,1,255));
2827: END LOOP;
2828:
2829: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2830: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Incident id: ' ||l_sr_task_tbl(0).incident_id);
2831: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Nonroutine_wo_id: ' ||l_sr_task_tbl(0).Nonroutine_wo_id);
2832: END IF;
2833: --dbms_output.put_line('Incident_id: ' || l_sr_task_tbl(0).incident_id);
2826: --dbms_output.put_line(SubStr('x_msg_data = '||x_msg_data,1,255));
2827: END LOOP;
2828:
2829: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2830: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Incident id: ' ||l_sr_task_tbl(0).incident_id);
2831: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Nonroutine_wo_id: ' ||l_sr_task_tbl(0).Nonroutine_wo_id);
2832: END IF;
2833: --dbms_output.put_line('Incident_id: ' || l_sr_task_tbl(0).incident_id);
2834: --dbms_output.put_line('Nonroutine_wo_id: ' || l_sr_task_tbl(0).Nonroutine_wo_id);
2827: END LOOP;
2828:
2829: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2830: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Incident id: ' ||l_sr_task_tbl(0).incident_id);
2831: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Nonroutine_wo_id: ' ||l_sr_task_tbl(0).Nonroutine_wo_id);
2832: END IF;
2833: --dbms_output.put_line('Incident_id: ' || l_sr_task_tbl(0).incident_id);
2834: --dbms_output.put_line('Nonroutine_wo_id: ' || l_sr_task_tbl(0).Nonroutine_wo_id);
2835:
2856: -- check for checkbox.
2857: IF (p_disposition_rec.parent_instance_id IS NOT NULL) THEN
2858: -- Added by jaramana on October 8, 2007 for ER 5903256
2859: -- Automatically change the location of the removed unserviceable instance to the Non Routine Work Order
2860: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2861: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_sr_task_tbl(0).Nonroutine_wo_id: ' || l_sr_task_tbl(0).Nonroutine_wo_id);
2862: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_disposition_rec.part_change_id: ' || p_disposition_rec.part_change_id);
2863: END IF;
2864: IF (l_sr_task_tbl(0).Nonroutine_wo_id IS NOT NULL AND
2857: IF (p_disposition_rec.parent_instance_id IS NOT NULL) THEN
2858: -- Added by jaramana on October 8, 2007 for ER 5903256
2859: -- Automatically change the location of the removed unserviceable instance to the Non Routine Work Order
2860: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2861: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_sr_task_tbl(0).Nonroutine_wo_id: ' || l_sr_task_tbl(0).Nonroutine_wo_id);
2862: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_disposition_rec.part_change_id: ' || p_disposition_rec.part_change_id);
2863: END IF;
2864: IF (l_sr_task_tbl(0).Nonroutine_wo_id IS NOT NULL AND
2865: p_disposition_rec.part_change_id IS NOT NULL) THEN
2858: -- Added by jaramana on October 8, 2007 for ER 5903256
2859: -- Automatically change the location of the removed unserviceable instance to the Non Routine Work Order
2860: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2861: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_sr_task_tbl(0).Nonroutine_wo_id: ' || l_sr_task_tbl(0).Nonroutine_wo_id);
2862: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_disposition_rec.part_change_id: ' || p_disposition_rec.part_change_id);
2863: END IF;
2864: IF (l_sr_task_tbl(0).Nonroutine_wo_id IS NOT NULL AND
2865: p_disposition_rec.part_change_id IS NOT NULL) THEN
2866: -- Begin changes by by jaramana on 25-APR-2011 for bug 11870333
2865: p_disposition_rec.part_change_id IS NOT NULL) THEN
2866: -- Begin changes by by jaramana on 25-APR-2011 for bug 11870333
2867: -- Since the instance quantity can be more than the Disposition quantity, call the Part Change method to move
2868: /***
2869: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2870: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call update_item_location.');
2871: END IF;
2872:
2873: update_item_location(p_workorder_id => l_sr_task_tbl(0).Nonroutine_wo_id,
2866: -- Begin changes by by jaramana on 25-APR-2011 for bug 11870333
2867: -- Since the instance quantity can be more than the Disposition quantity, call the Part Change method to move
2868: /***
2869: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2870: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call update_item_location.');
2871: END IF;
2872:
2873: update_item_location(p_workorder_id => l_sr_task_tbl(0).Nonroutine_wo_id,
2874: p_instance_id => p_disposition_rec.instance_id,
2877: -- get the first released non-master workorder id for the NR summary workorder
2878: OPEN get_rel_nonmaster_wo_id_csr(l_sr_task_tbl(0).Nonroutine_wo_id);
2879: FETCH get_rel_nonmaster_wo_id_csr INTO l_rel_nm_wo_id;
2880: IF (get_rel_nonmaster_wo_id_csr%FOUND) THEN
2881: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2882: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key,
2883: 'First released non-master workorder id => '|| l_rel_nm_wo_id);
2884: END IF;
2885:
2878: OPEN get_rel_nonmaster_wo_id_csr(l_sr_task_tbl(0).Nonroutine_wo_id);
2879: FETCH get_rel_nonmaster_wo_id_csr INTO l_rel_nm_wo_id;
2880: IF (get_rel_nonmaster_wo_id_csr%FOUND) THEN
2881: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2882: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key,
2883: 'First released non-master workorder id => '|| l_rel_nm_wo_id);
2884: END IF;
2885:
2886: -- get the removed instance id, which can be different from the disposition instance id for non-serialized items
2892: l_move_item_ins_tbl(1).quantity := p_disposition_rec.quantity;
2893: l_move_item_ins_tbl(1).from_workorder_id := p_disposition_rec.workorder_id;
2894: l_move_item_ins_tbl(1).to_workorder_id := l_rel_nm_wo_id;
2895:
2896: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2897: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key,
2898: 'About to call the API AHL_PRD_PARTS_CHANGE_PVT.move_instance_location with the parameters:'||
2899: ' instance_id => ' || l_removed_instance_id ||
2900: ', quantity => ' || p_disposition_rec.quantity ||
2893: l_move_item_ins_tbl(1).from_workorder_id := p_disposition_rec.workorder_id;
2894: l_move_item_ins_tbl(1).to_workorder_id := l_rel_nm_wo_id;
2895:
2896: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2897: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key,
2898: 'About to call the API AHL_PRD_PARTS_CHANGE_PVT.move_instance_location with the parameters:'||
2899: ' instance_id => ' || l_removed_instance_id ||
2900: ', quantity => ' || p_disposition_rec.quantity ||
2901: ', from Work order id: ' || p_disposition_rec.workorder_id ||
2915: x_msg_count => x_msg_count,
2916: x_msg_data => x_msg_data
2917: );
2918:
2919: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2920: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key,
2921: 'Call to the API AHL_PRD_PARTS_CHANGE_PVT.move_instance_location returned with status => '||x_return_status);
2922: END IF;
2923:
2916: x_msg_data => x_msg_data
2917: );
2918:
2919: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2920: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key,
2921: 'Call to the API AHL_PRD_PARTS_CHANGE_PVT.move_instance_location returned with status => '||x_return_status);
2922: END IF;
2923:
2924: -- check the API call return status
2940: END IF; -- Parent Instance is not null (NHP check box checked)
2941: -- End changes for ER 5903256
2942: --End chnages for ER 9213556
2943:
2944: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2945: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2946: END IF;
2947: --dbms_output.put_line('End Create SR -----------------------------');
2948: END Create_SR;
2941: -- End changes for ER 5903256
2942: --End chnages for ER 9213556
2943:
2944: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2945: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2946: END IF;
2947: --dbms_output.put_line('End Create SR -----------------------------');
2948: END Create_SR;
2949:
2997: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || 'derive_columns';
2998:
2999: BEGIN
3000:
3001: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3002: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
3003: END IF;
3004: --dbms_output.put_line(SubStr('Begin Derive Column', 1, 255));
3005:
2998:
2999: BEGIN
3000:
3001: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3002: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
3003: END IF;
3004: --dbms_output.put_line(SubStr('Begin Derive Column', 1, 255));
3005:
3006:
3042: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3044: END IF;
3045:
3046: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3047: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'derived Position Instance_id: ' || p_x_disposition_rec.instance_id);
3048: END IF;
3049: --dbms_output.put_line(SubStr('derived Position Instance_id: ' || p_x_disposition_rec.instance_id, 1, 255));
3050: END IF;
3043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3044: END IF;
3045:
3046: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3047: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'derived Position Instance_id: ' || p_x_disposition_rec.instance_id);
3048: END IF;
3049: --dbms_output.put_line(SubStr('derived Position Instance_id: ' || p_x_disposition_rec.instance_id, 1, 255));
3050: END IF;
3051: -- Added by jaramana on June 23, 2006 to fix Bug 5205851
3053: IF (p_x_disposition_rec.instance_id IS NULL AND p_x_disposition_rec.part_change_id IS NOT NULL) THEN
3054: -- Disposition being created from Part Change UI for installing to an Empty position
3055: -- Default the condition of the Disposition to Serviceable if not already set
3056: IF (p_x_disposition_rec.condition_id IS NULL) THEN
3057: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3058: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Defaulting Condition to ' || fnd_profile.value('AHL_MTL_MAT_STATUS_SERVICABLE'));
3059: END IF;
3060: p_x_disposition_rec.condition_id := fnd_profile.value('AHL_MTL_MAT_STATUS_SERVICABLE');
3061: IF (p_x_disposition_rec.condition_id IS NULL) THEN
3054: -- Disposition being created from Part Change UI for installing to an Empty position
3055: -- Default the condition of the Disposition to Serviceable if not already set
3056: IF (p_x_disposition_rec.condition_id IS NULL) THEN
3057: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3058: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Defaulting Condition to ' || fnd_profile.value('AHL_MTL_MAT_STATUS_SERVICABLE'));
3059: END IF;
3060: p_x_disposition_rec.condition_id := fnd_profile.value('AHL_MTL_MAT_STATUS_SERVICABLE');
3061: IF (p_x_disposition_rec.condition_id IS NULL) THEN
3062: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3058: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Defaulting Condition to ' || fnd_profile.value('AHL_MTL_MAT_STATUS_SERVICABLE'));
3059: END IF;
3060: p_x_disposition_rec.condition_id := fnd_profile.value('AHL_MTL_MAT_STATUS_SERVICABLE');
3061: IF (p_x_disposition_rec.condition_id IS NULL) THEN
3062: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3063: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Profile AHL_MTL_MAT_STATUS_SERVICABLE not set. Unable to derive Default Condition.');
3064: END IF;
3065: -- Raise an Exception
3066: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_SVC_COND_PRF_NOT_SET');
3059: END IF;
3060: p_x_disposition_rec.condition_id := fnd_profile.value('AHL_MTL_MAT_STATUS_SERVICABLE');
3061: IF (p_x_disposition_rec.condition_id IS NULL) THEN
3062: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3063: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Profile AHL_MTL_MAT_STATUS_SERVICABLE not set. Unable to derive Default Condition.');
3064: END IF;
3065: -- Raise an Exception
3066: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_SVC_COND_PRF_NOT_SET');
3067: FND_MSG_PUB.ADD;
3077: p_x_disposition_rec.part_change_id IS NOT NULL AND
3078: p_x_disposition_rec.condition_id IS NULL) THEN
3079: -- Install of an Instance to an IB Tree from the Part Change UI with creation of
3080: -- a new Disposition: Default the condition to Serviceable
3081: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3082: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Defaulting Condition to ' || fnd_profile.value('AHL_MTL_MAT_STATUS_SERVICABLE'));
3083: END IF;
3084: p_x_disposition_rec.condition_id := fnd_profile.value('AHL_MTL_MAT_STATUS_SERVICABLE');
3085: IF (p_x_disposition_rec.condition_id IS NULL) THEN
3078: p_x_disposition_rec.condition_id IS NULL) THEN
3079: -- Install of an Instance to an IB Tree from the Part Change UI with creation of
3080: -- a new Disposition: Default the condition to Serviceable
3081: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3082: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Defaulting Condition to ' || fnd_profile.value('AHL_MTL_MAT_STATUS_SERVICABLE'));
3083: END IF;
3084: p_x_disposition_rec.condition_id := fnd_profile.value('AHL_MTL_MAT_STATUS_SERVICABLE');
3085: IF (p_x_disposition_rec.condition_id IS NULL) THEN
3086: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3082: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Defaulting Condition to ' || fnd_profile.value('AHL_MTL_MAT_STATUS_SERVICABLE'));
3083: END IF;
3084: p_x_disposition_rec.condition_id := fnd_profile.value('AHL_MTL_MAT_STATUS_SERVICABLE');
3085: IF (p_x_disposition_rec.condition_id IS NULL) THEN
3086: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3087: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Profile AHL_MTL_MAT_STATUS_SERVICABLE not set. Unable to derive Default Condition.');
3088: END IF;
3089: -- Raise an Exception
3090: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_SVC_COND_PRF_NOT_SET');
3083: END IF;
3084: p_x_disposition_rec.condition_id := fnd_profile.value('AHL_MTL_MAT_STATUS_SERVICABLE');
3085: IF (p_x_disposition_rec.condition_id IS NULL) THEN
3086: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3087: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Profile AHL_MTL_MAT_STATUS_SERVICABLE not set. Unable to derive Default Condition.');
3088: END IF;
3089: -- Raise an Exception
3090: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_SVC_COND_PRF_NOT_SET');
3091: FND_MSG_PUB.ADD;
3110: p_x_disposition_rec.lot_number);
3111: FETCH get_instance_from_lot INTO p_x_disposition_rec.instance_id;
3112: CLOSE get_instance_from_lot;
3113: END IF;
3114: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3115: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'derived instance: ' || p_x_disposition_rec.instance_id);
3116: END IF;
3117: --dbms_output.put_line(SubStr('derived instance: ' || p_x_disposition_rec.instance_id, 1, 255));
3118: END IF;
3111: FETCH get_instance_from_lot INTO p_x_disposition_rec.instance_id;
3112: CLOSE get_instance_from_lot;
3113: END IF;
3114: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3115: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'derived instance: ' || p_x_disposition_rec.instance_id);
3116: END IF;
3117: --dbms_output.put_line(SubStr('derived instance: ' || p_x_disposition_rec.instance_id, 1, 255));
3118: END IF;
3119:
3126: l_derived_org_id := nvl(instance_rec.last_vld_organization_id, instance_rec.inv_master_organization_id); --derive organization from instance
3127: IF p_x_disposition_rec.inventory_item_id IS NULL THEN
3128: p_x_disposition_rec.inventory_item_id := instance_rec.inventory_item_id;
3129:
3130: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3131: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'derived item_id ' || instance_rec.inventory_item_id);
3132: END IF;
3133: --dbms_output.put_line(SubStr('derived item_id ' || instance_rec.inventory_item_id, 1, 255));
3134: END IF;
3127: IF p_x_disposition_rec.inventory_item_id IS NULL THEN
3128: p_x_disposition_rec.inventory_item_id := instance_rec.inventory_item_id;
3129:
3130: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3131: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'derived item_id ' || instance_rec.inventory_item_id);
3132: END IF;
3133: --dbms_output.put_line(SubStr('derived item_id ' || instance_rec.inventory_item_id, 1, 255));
3134: END IF;
3135: IF p_x_disposition_rec.quantity IS NULL THEN
3133: --dbms_output.put_line(SubStr('derived item_id ' || instance_rec.inventory_item_id, 1, 255));
3134: END IF;
3135: IF p_x_disposition_rec.quantity IS NULL THEN
3136: p_x_disposition_rec.quantity := instance_rec.quantity;
3137: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3138: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'derived quantity ' || instance_rec.quantity);
3139: END IF;
3140: --dbms_output.put_line(SubStr('derived quantity ' || instance_rec.quantity, 1, 255));
3141: END IF;
3134: END IF;
3135: IF p_x_disposition_rec.quantity IS NULL THEN
3136: p_x_disposition_rec.quantity := instance_rec.quantity;
3137: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3138: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'derived quantity ' || instance_rec.quantity);
3139: END IF;
3140: --dbms_output.put_line(SubStr('derived quantity ' || instance_rec.quantity, 1, 255));
3141: END IF;
3142: IF p_x_disposition_rec.uom IS NULL THEN
3140: --dbms_output.put_line(SubStr('derived quantity ' || instance_rec.quantity, 1, 255));
3141: END IF;
3142: IF p_x_disposition_rec.uom IS NULL THEN
3143: p_x_disposition_rec.uom := instance_rec.unit_of_measure;
3144: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3145: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'derived uom ' || instance_rec.unit_of_measure);
3146: END IF;
3147: --dbms_output.put_line(SubStr('derived uom ' || instance_rec.unit_of_measure, 1, 255));
3148: END IF;
3141: END IF;
3142: IF p_x_disposition_rec.uom IS NULL THEN
3143: p_x_disposition_rec.uom := instance_rec.unit_of_measure;
3144: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3145: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'derived uom ' || instance_rec.unit_of_measure);
3146: END IF;
3147: --dbms_output.put_line(SubStr('derived uom ' || instance_rec.unit_of_measure, 1, 255));
3148: END IF;
3149:
3149:
3150: --Jerry added on 10/04/05 for fixing an internal bug found by Shailaja/Vadim
3151: IF p_x_disposition_rec.serial_number IS NULL THEN
3152: p_x_disposition_rec.serial_number:= instance_rec.serial_number;
3153: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3154: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'derived serial_number ' || instance_rec.serial_number);
3155: END IF;
3156: END IF;
3157:
3150: --Jerry added on 10/04/05 for fixing an internal bug found by Shailaja/Vadim
3151: IF p_x_disposition_rec.serial_number IS NULL THEN
3152: p_x_disposition_rec.serial_number:= instance_rec.serial_number;
3153: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3154: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'derived serial_number ' || instance_rec.serial_number);
3155: END IF;
3156: END IF;
3157:
3158: IF p_x_disposition_rec.lot_number IS NULL THEN
3156: END IF;
3157:
3158: IF p_x_disposition_rec.lot_number IS NULL THEN
3159: p_x_disposition_rec.lot_number:= instance_rec.lot_number;
3160: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3161: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'derived lot_number ' || instance_rec.lot_number);
3162: END IF;
3163: END IF;
3164:
3157:
3158: IF p_x_disposition_rec.lot_number IS NULL THEN
3159: p_x_disposition_rec.lot_number:= instance_rec.lot_number;
3160: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3161: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'derived lot_number ' || instance_rec.lot_number);
3162: END IF;
3163: END IF;
3164:
3165: IF p_x_disposition_rec.item_revision IS NULL THEN
3163: END IF;
3164:
3165: IF p_x_disposition_rec.item_revision IS NULL THEN
3166: p_x_disposition_rec.item_revision := instance_rec.inventory_revision;
3167: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3168: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'derived item_revision ' || instance_rec.inventory_revision);
3169: END IF;
3170: END IF;
3171: --Jerry's change finishes here
3164:
3165: IF p_x_disposition_rec.item_revision IS NULL THEN
3166: p_x_disposition_rec.item_revision := instance_rec.inventory_revision;
3167: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3168: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'derived item_revision ' || instance_rec.inventory_revision);
3169: END IF;
3170: END IF;
3171: --Jerry's change finishes here
3172:
3174: IF p_x_disposition_rec.path_position_id IS NULL THEN
3175:
3176: -- Updated by rbhavsar on 09/27/2007 for Bug 6411059
3177: -- START: Added IF statement to check if root node of the instance is in uc headers table
3178: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3179: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,' Before calling Map_Instance_To_Pos_ID ' || p_x_disposition_rec.path_position_id ||
3180: ' Instance id ' || p_x_disposition_rec.instance_id );
3181: END IF;
3182:
3175:
3176: -- Updated by rbhavsar on 09/27/2007 for Bug 6411059
3177: -- START: Added IF statement to check if root node of the instance is in uc headers table
3178: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3179: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,' Before calling Map_Instance_To_Pos_ID ' || p_x_disposition_rec.path_position_id ||
3180: ' Instance id ' || p_x_disposition_rec.instance_id );
3181: END IF;
3182:
3183: IF (root_node_in_uc_headers(p_x_disposition_rec.instance_id) = TRUE) THEN
3195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3196: END IF;
3197:
3198: p_x_disposition_rec.path_position_id := l_derived_path_pos_id;
3199: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3200: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'derived path_position_id ' || l_derived_path_pos_id);
3201: END IF;
3202:
3203: END IF; -- END: Updated by rbhavsar Bug 6411059
3196: END IF;
3197:
3198: p_x_disposition_rec.path_position_id := l_derived_path_pos_id;
3199: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3200: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'derived path_position_id ' || l_derived_path_pos_id);
3201: END IF;
3202:
3203: END IF; -- END: Updated by rbhavsar Bug 6411059
3204:
3209: --derive organizationid for item from workorder only if instance is null
3210: IF(p_x_disposition_rec.inventory_item_id IS NOT NULL AND p_x_disposition_rec.instance_id IS NULL) THEN
3211: OPEN get_organization_csr(p_x_disposition_rec.workorder_id);
3212: FETCH get_organization_csr INTO l_derived_org_id;
3213: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3214: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Derived Org: ' || p_x_disposition_rec.item_org_id);
3215: END IF;
3216: --dbms_output.put_line(SubStr('Derived Org: ' || p_x_disposition_rec.item_org_id, 1, 255));
3217: CLOSE get_organization_csr;
3210: IF(p_x_disposition_rec.inventory_item_id IS NOT NULL AND p_x_disposition_rec.instance_id IS NULL) THEN
3211: OPEN get_organization_csr(p_x_disposition_rec.workorder_id);
3212: FETCH get_organization_csr INTO l_derived_org_id;
3213: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3214: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Derived Org: ' || p_x_disposition_rec.item_org_id);
3215: END IF;
3216: --dbms_output.put_line(SubStr('Derived Org: ' || p_x_disposition_rec.item_org_id, 1, 255));
3217: CLOSE get_organization_csr;
3218: END IF;
3220: --assign derived organization id to disposition record's item_org_id
3221: --ignore organization id from user's input
3222: p_x_disposition_rec.item_org_id := l_derived_org_id;
3223:
3224: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3225: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
3226: END IF;
3227: --dbms_output.put_line(SubStr('End Derive Column', 1, 255));
3228:
3221: --ignore organization id from user's input
3222: p_x_disposition_rec.item_org_id := l_derived_org_id;
3223:
3224: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3225: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
3226: END IF;
3227: --dbms_output.put_line(SubStr('End Derive Column', 1, 255));
3228:
3229: END derive_columns;
3410: and plan_id = p_plan_id;
3411:
3412: BEGIN
3413:
3414: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3415: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
3416: END IF;
3417: --dbms_output.put_line(SubStr('Begin Validate_For_Create', 1, 255));
3418:
3411:
3412: BEGIN
3413:
3414: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3415: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
3416: END IF;
3417: --dbms_output.put_line(SubStr('Begin Validate_For_Create', 1, 255));
3418:
3419: --WORKORDER
3458: END IF;
3459:
3460: --PATH POSITION VALIDATION ---------------------------------
3461: IF (p_disposition_rec.path_position_id IS NOT NULL) THEN
3462: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3463: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check Path Position');
3464: END IF;
3465: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check Path Position ', 1, 255));
3466: --Check for valid path_position_id
3459:
3460: --PATH POSITION VALIDATION ---------------------------------
3461: IF (p_disposition_rec.path_position_id IS NOT NULL) THEN
3462: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3463: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check Path Position');
3464: END IF;
3465: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check Path Position ', 1, 255));
3466: --Check for valid path_position_id
3467: validate_path_position(p_disposition_rec.path_position_id);
3475: -- The chk_non_serialized_csr will not fetch results if item id is NULL.
3476: -- If item id is NULL, then this disposition is being created for empty position.
3477: -- Check for non-serialized position by calling the API AHL_MC_PATH_POSITION_PVT.Is_Position_Serial_Controlled
3478: IF (p_disposition_rec.inventory_item_id IS NULL) THEN
3479: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3480: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
3481: 'Before API AHL_MC_PATH_POSITION_PVT.Is_Position_Serial_Controlled call l_srl_flag => '||l_srl_flag);
3482: END IF;
3483:
3476: -- If item id is NULL, then this disposition is being created for empty position.
3477: -- Check for non-serialized position by calling the API AHL_MC_PATH_POSITION_PVT.Is_Position_Serial_Controlled
3478: IF (p_disposition_rec.inventory_item_id IS NULL) THEN
3479: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3480: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
3481: 'Before API AHL_MC_PATH_POSITION_PVT.Is_Position_Serial_Controlled call l_srl_flag => '||l_srl_flag);
3482: END IF;
3483:
3484: l_srl_flag := AHL_MC_PATH_POSITION_PVT.Is_Position_Serial_Controlled(
3485: NULL,
3486: p_disposition_rec.path_position_id
3487: );
3488:
3489: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3490: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
3491: 'After API AHL_MC_PATH_POSITION_PVT.Is_Position_Serial_Controlled call l_srl_flag => '||l_srl_flag);
3492: END IF;
3493: END IF;
3486: p_disposition_rec.path_position_id
3487: );
3488:
3489: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3490: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
3491: 'After API AHL_MC_PATH_POSITION_PVT.Is_Position_Serial_Controlled call l_srl_flag => '||l_srl_flag);
3492: END IF;
3493: END IF;
3494:
3512: FND_MSG_PUB.ADD;
3513: RAISE FND_API.G_EXC_ERROR;
3514: END IF;
3515:
3516: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3517: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'About to call AHL_MC_PATH_POSITION_PVT.Get_Pos_Instance with ' ||
3518: ' p_position_id = ' || p_disposition_rec.path_position_id ||
3519: ', p_csi_item_instance_id = ' || l_unit_instance_id);
3520: END IF;
3513: RAISE FND_API.G_EXC_ERROR;
3514: END IF;
3515:
3516: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3517: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'About to call AHL_MC_PATH_POSITION_PVT.Get_Pos_Instance with ' ||
3518: ' p_position_id = ' || p_disposition_rec.path_position_id ||
3519: ', p_csi_item_instance_id = ' || l_unit_instance_id);
3520: END IF;
3521:
3532: x_lowest_uc_csi_id => l_dummy_lowest_uc_id,
3533: x_mapping_status => l_mapping_status
3534: );
3535:
3536: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3537: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'Returned from call to AHL_MC_PATH_POSITION_PVT.Get_Pos_Instance: ' ||
3538: ' x_return_status ' || l_return_status ||
3539: ', x_parent_instance_id ' || l_parent_instance_id ||
3540: ', x_mapping_status = ' || l_mapping_status);
3533: x_mapping_status => l_mapping_status
3534: );
3535:
3536: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3537: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'Returned from call to AHL_MC_PATH_POSITION_PVT.Get_Pos_Instance: ' ||
3538: ' x_return_status ' || l_return_status ||
3539: ', x_parent_instance_id ' || l_parent_instance_id ||
3540: ', x_mapping_status = ' || l_mapping_status);
3541: END IF;
3601:
3602: --get root instance for the empty position parent instance
3603: l_dis_root_instance_id := get_root_instance_id(l_parent_instance_id);
3604:
3605: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3606: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_wo_instance_id = ' || l_wo_instance_id ||
3607: ', l_wo_root_instance_id = ' || l_wo_root_instance_id ||
3608: ', l_parent_instance_id = ' || l_parent_instance_id ||
3609: ', l_dis_root_instance_id = ' || l_dis_root_instance_id);
3602: --get root instance for the empty position parent instance
3603: l_dis_root_instance_id := get_root_instance_id(l_parent_instance_id);
3604:
3605: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3606: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_wo_instance_id = ' || l_wo_instance_id ||
3607: ', l_wo_root_instance_id = ' || l_wo_root_instance_id ||
3608: ', l_parent_instance_id = ' || l_parent_instance_id ||
3609: ', l_dis_root_instance_id = ' || l_dis_root_instance_id);
3610: END IF;
3656: --ITEM ---------------------------------
3657:
3658: IF(p_disposition_rec.inventory_item_id IS NOT NULL) THEN
3659: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check ITem ', 1, 255));
3660: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3661: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check Check Item');
3662: END IF;
3663: IF (l_position_empty = TRUE) THEN
3664: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_POS_EMPTY_NO_ITM'); --Item does not belong to the item group
3657:
3658: IF(p_disposition_rec.inventory_item_id IS NOT NULL) THEN
3659: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check ITem ', 1, 255));
3660: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3661: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check Check Item');
3662: END IF;
3663: IF (l_position_empty = TRUE) THEN
3664: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_POS_EMPTY_NO_ITM'); --Item does not belong to the item group
3665: FND_MSG_PUB.ADD;
3668: validate_item(p_disposition_rec.inventory_item_id, p_disposition_rec.item_org_id, p_disposition_rec.workorder_id);
3669:
3670: --item group exist requires item to exist
3671: IF(p_disposition_rec.item_group_id IS NOT NULL) THEN
3672: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3673: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check ITem and item group relation');
3674: END IF;
3675: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check ITem and item group relation ', 1, 255));
3676: OPEN item_in_itemgrp_csr( p_disposition_rec.inventory_item_id, p_disposition_rec.item_group_id);
3669:
3670: --item group exist requires item to exist
3671: IF(p_disposition_rec.item_group_id IS NOT NULL) THEN
3672: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3673: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check ITem and item group relation');
3674: END IF;
3675: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check ITem and item group relation ', 1, 255));
3676: OPEN item_in_itemgrp_csr( p_disposition_rec.inventory_item_id, p_disposition_rec.item_group_id);
3677: FETCH item_in_itemgrp_csr INTO l_exist;
3705: END IF; -- item id is not null
3706:
3707: --ITEM GROUP-----------------------------
3708: IF(p_disposition_rec.item_group_id IS NOT NULL) THEN
3709: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3710: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check ITem group ');
3711: END IF;
3712: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check ITem Group ', 1, 255));
3713: OPEN val_item_group_csr(p_disposition_rec.item_group_id);
3706:
3707: --ITEM GROUP-----------------------------
3708: IF(p_disposition_rec.item_group_id IS NOT NULL) THEN
3709: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3710: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check ITem group ');
3711: END IF;
3712: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check ITem Group ', 1, 255));
3713: OPEN val_item_group_csr(p_disposition_rec.item_group_id);
3714: FETCH val_item_group_csr INTO l_exist;
3730: END IF; -- item_group_id is not null
3731:
3732: --INSTANCE-----------------------------
3733: IF(p_disposition_rec.instance_id IS NOT NULL) THEN
3734: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3735: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check Instance_id');
3736: END IF;
3737: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check Instance Number', 1, 255));
3738: validate_instance(p_disposition_rec.instance_id,
3731:
3732: --INSTANCE-----------------------------
3733: IF(p_disposition_rec.instance_id IS NOT NULL) THEN
3734: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3735: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check Instance_id');
3736: END IF;
3737: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check Instance Number', 1, 255));
3738: validate_instance(p_disposition_rec.instance_id,
3739: p_disposition_rec.workorder_id,
3755: END IF;
3756:
3757: --LOT NUMBER----------------------------------
3758: IF(p_disposition_rec.lot_number IS NOT NULL) THEN
3759: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3760: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check Lot_number');
3761: END IF;
3762: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check Lot Number', 1, 255));
3763: IF(p_disposition_rec.inventory_item_id IS NULL) THEN
3756:
3757: --LOT NUMBER----------------------------------
3758: IF(p_disposition_rec.lot_number IS NOT NULL) THEN
3759: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3760: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check Lot_number');
3761: END IF;
3762: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check Lot Number', 1, 255));
3763: IF(p_disposition_rec.inventory_item_id IS NULL) THEN
3764: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REQ'); -- Item number is required
3775: END IF;
3776:
3777: --SERIAL NUMBER -----------------------------------
3778: IF(p_disposition_rec.serial_number IS NOT NULL) THEN
3779: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3780: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check Serial_Number');
3781: END IF;
3782: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check Serial Number', 1, 255));
3783: IF(p_disposition_rec.inventory_item_id IS NULL) THEN
3776:
3777: --SERIAL NUMBER -----------------------------------
3778: IF(p_disposition_rec.serial_number IS NOT NULL) THEN
3779: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3780: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check Serial_Number');
3781: END IF;
3782: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check Serial Number', 1, 255));
3783: IF(p_disposition_rec.inventory_item_id IS NULL) THEN
3784: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check Serial Number--check item is null', 1, 255));
3923: IF FND_MSG_PUB.count_msg > 0 THEN
3924: RAISE FND_API.G_EXC_ERROR;
3925: END IF;
3926:
3927: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3928: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
3929: END IF;
3930:
3931: --dbms_output.put_line(SubStr('End Validate_For_Create', 1, 255));
3924: RAISE FND_API.G_EXC_ERROR;
3925: END IF;
3926:
3927: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3928: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
3929: END IF;
3930:
3931: --dbms_output.put_line(SubStr('End Validate_For_Create', 1, 255));
3932: END validate_for_create;
3999: l_instance_id NUMBER;
4000: l_item_group_id NUMBER;
4001: BEGIN
4002:
4003: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4004: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
4005: END IF;
4006: --dbms_output.put_line(SubStr('Begin Convert_val_to_id', 1, 255));
4007: IF (p_x_prd_disposition_rec.instance_number IS NOT NULL AND p_x_prd_disposition_rec.instance_number <> FND_API.G_MISS_CHAR) THEN
4000: l_item_group_id NUMBER;
4001: BEGIN
4002:
4003: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4004: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
4005: END IF;
4006: --dbms_output.put_line(SubStr('Begin Convert_val_to_id', 1, 255));
4007: IF (p_x_prd_disposition_rec.instance_number IS NOT NULL AND p_x_prd_disposition_rec.instance_number <> FND_API.G_MISS_CHAR) THEN
4008: OPEN instance_id_csr(p_x_prd_disposition_rec.instance_number);
4029: ELSIF(p_x_prd_disposition_rec.item_group_name = FND_API.G_MISS_CHAR) THEN
4030: p_x_prd_disposition_rec.item_group_id := NULL;
4031: END IF;
4032:
4033: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4034: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before convert Item Number: ' ||p_x_prd_disposition_rec.item_number);
4035: END IF;
4036: --dbms_output.put_line(SubStr('convert Item Number', 1, 255));
4037: IF (p_x_prd_disposition_rec.item_number IS NOT NULL AND p_x_prd_disposition_rec.item_number <> FND_API.G_MISS_CHAR) THEN
4030: p_x_prd_disposition_rec.item_group_id := NULL;
4031: END IF;
4032:
4033: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4034: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before convert Item Number: ' ||p_x_prd_disposition_rec.item_number);
4035: END IF;
4036: --dbms_output.put_line(SubStr('convert Item Number', 1, 255));
4037: IF (p_x_prd_disposition_rec.item_number IS NOT NULL AND p_x_prd_disposition_rec.item_number <> FND_API.G_MISS_CHAR) THEN
4038: OPEN item_id_csr(p_x_prd_disposition_rec.item_number);
4114: ELSIF(p_x_prd_disposition_rec.service_type = FND_API.G_MISS_CHAR) THEN
4115: p_x_prd_disposition_rec.service_type_code := NULL;
4116: END IF;
4117:
4118: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4119: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
4120: END IF;
4121:
4122:
4115: p_x_prd_disposition_rec.service_type_code := NULL;
4116: END IF;
4117:
4118: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4119: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
4120: END IF;
4121:
4122:
4123: --dbms_output.put_line(SubStr('End Convert_val_to_id', 1, 255));
4426: l_dis_root_instance_id := get_root_instance_id(p_instance_id);
4427:
4428: IF nvl(l_wo_root_instance_id, -1) <> nvl(l_dis_root_instance_id, -1) THEN
4429: --dbms_output.put_line(' before throw the error root instance are not the same');
4430: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4431: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_wo_instance_id:' || l_wo_instance_id);
4432: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_wo_root_instance_id:' || l_wo_root_instance_id);
4433: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_dis_root_instance_id:' || l_dis_root_instance_id);
4434: END IF;
4427:
4428: IF nvl(l_wo_root_instance_id, -1) <> nvl(l_dis_root_instance_id, -1) THEN
4429: --dbms_output.put_line(' before throw the error root instance are not the same');
4430: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4431: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_wo_instance_id:' || l_wo_instance_id);
4432: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_wo_root_instance_id:' || l_wo_root_instance_id);
4433: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_dis_root_instance_id:' || l_dis_root_instance_id);
4434: END IF;
4435: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INST_IN_UC'); -- Instance is not in the same unit as workorder instance
4428: IF nvl(l_wo_root_instance_id, -1) <> nvl(l_dis_root_instance_id, -1) THEN
4429: --dbms_output.put_line(' before throw the error root instance are not the same');
4430: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4431: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_wo_instance_id:' || l_wo_instance_id);
4432: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_wo_root_instance_id:' || l_wo_root_instance_id);
4433: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_dis_root_instance_id:' || l_dis_root_instance_id);
4434: END IF;
4435: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INST_IN_UC'); -- Instance is not in the same unit as workorder instance
4436: FND_MSG_PUB.ADD;
4429: --dbms_output.put_line(' before throw the error root instance are not the same');
4430: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4431: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_wo_instance_id:' || l_wo_instance_id);
4432: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_wo_root_instance_id:' || l_wo_root_instance_id);
4433: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_dis_root_instance_id:' || l_dis_root_instance_id);
4434: END IF;
4435: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INST_IN_UC'); -- Instance is not in the same unit as workorder instance
4436: FND_MSG_PUB.ADD;
4437: RAISE FND_API.G_EXC_ERROR;
4438: END IF; -- Root Instances are not the same
4439: END IF; -- l_wo_instance_id <> p_instance_id
4440: END IF; -- p_part_change_id is null
4441: ELSE --then it is a stand alone instance need to check if instance is issued to the job
4442: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4443: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Stand alone instance');
4444: END IF;
4445: -- Following lines commented out by jaramana on August 8, 2007
4446: -- In the case of IB Tree, it does not make sense to force the instance to be in the job.
4439: END IF; -- l_wo_instance_id <> p_instance_id
4440: END IF; -- p_part_change_id is null
4441: ELSE --then it is a stand alone instance need to check if instance is issued to the job
4442: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4443: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Stand alone instance');
4444: END IF;
4445: -- Following lines commented out by jaramana on August 8, 2007
4446: -- In the case of IB Tree, it does not make sense to force the instance to be in the job.
4447: -- The instance may be currently installed on the IB Tree and creation of Disposition should be
4513: l_part_change_quantity NUMBER;
4514: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || 'validate_part_change';
4515:
4516: BEGIN
4517: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4518: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4519: L_DEBUG_KEY || '.begin ',
4520: 'At the start of the procedure.' ||
4521: ' ,p_part_change_id = ' || p_part_change_id ||
4514: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || 'validate_part_change';
4515:
4516: BEGIN
4517: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4518: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4519: L_DEBUG_KEY || '.begin ',
4520: 'At the start of the procedure.' ||
4521: ' ,p_part_change_id = ' || p_part_change_id ||
4522: ' ,p_disp_instance_id = ' || p_disp_instance_id ||
4556: CLOSE get_inst_dtls_csr;
4557:
4558: IF (l_disp_inst_dtls.inventory_item_id <> l_rem_inst_dtls.inventory_item_id OR
4559: nvl(p_disp_quantity,l_part_change_quantity) <> l_part_change_quantity) THEN
4560: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4561: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'validate part change non serial item' ||
4562: ', l_disp_inst_dtls.inventory_item_i ' || l_disp_inst_dtls.inventory_item_id ||
4563: ', l_rem_inst_dtls.inventory_item_id ' || l_rem_inst_dtls.inventory_item_id ||
4564: ', p_disp_instance_id ' || p_disp_instance_id ||
4557:
4558: IF (l_disp_inst_dtls.inventory_item_id <> l_rem_inst_dtls.inventory_item_id OR
4559: nvl(p_disp_quantity,l_part_change_quantity) <> l_part_change_quantity) THEN
4560: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4561: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'validate part change non serial item' ||
4562: ', l_disp_inst_dtls.inventory_item_i ' || l_disp_inst_dtls.inventory_item_id ||
4563: ', l_rem_inst_dtls.inventory_item_id ' || l_rem_inst_dtls.inventory_item_id ||
4564: ', p_disp_instance_id ' || p_disp_instance_id ||
4565: ', p_removed_instance_id ' || l_removed_instance_id ||
4588: END IF; -- Part Change Found, and Part Change Type Check
4589: CLOSE part_change_csr;
4590: -- End Changes made by jaramana on August 07, 2007 for the bug 6328554 (FP of 5948917)
4591:
4592: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4593: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4594: L_DEBUG_KEY || '.end',
4595: 'At the end of the procedure ' );
4596: END IF;
4589: CLOSE part_change_csr;
4590: -- End Changes made by jaramana on August 07, 2007 for the bug 6328554 (FP of 5948917)
4591:
4592: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4593: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4594: L_DEBUG_KEY || '.end',
4595: 'At the end of the procedure ' );
4596: END IF;
4597: END validate_part_change;
4681:
4682: --
4683: BEGIN
4684:
4685: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4686: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4687: L_DEBUG_KEY || '.begin',
4688: 'At the start of the procedure. p_disposition_rec.disposition_id = ' || p_disposition_rec.disposition_id);
4689: END IF;
4682: --
4683: BEGIN
4684:
4685: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4686: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4687: L_DEBUG_KEY || '.begin',
4688: 'At the start of the procedure. p_disposition_rec.disposition_id = ' || p_disposition_rec.disposition_id);
4689: END IF;
4690:
4718: FETCH get_pos_mandatory INTO l_pos_mand_flag;
4719: CLOSE get_pos_mandatory;
4720: END IF;
4721:
4722: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4723: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_disposition_rec.immediate_disposition_code = ' || p_disposition_rec.immediate_disposition_code ||
4724: ', p_disposition_rec.instance_id = ' || p_disposition_rec.instance_id ||
4725: ', p_disposition_rec.part_change_id = ' || p_disposition_rec.part_change_id ||
4726: ', l_disp_dtl_rec.part_change_type = ' || l_disp_dtl_rec.part_change_type ||
4719: CLOSE get_pos_mandatory;
4720: END IF;
4721:
4722: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4723: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_disposition_rec.immediate_disposition_code = ' || p_disposition_rec.immediate_disposition_code ||
4724: ', p_disposition_rec.instance_id = ' || p_disposition_rec.instance_id ||
4725: ', p_disposition_rec.part_change_id = ' || p_disposition_rec.part_change_id ||
4726: ', l_disp_dtl_rec.part_change_type = ' || l_disp_dtl_rec.part_change_type ||
4727: ', l_disp_dtl_rec.trackable_flag = ' || l_disp_dtl_rec.trackable_flag);
4834: ELSE
4835: x_status_code := null;
4836: END IF;
4837:
4838: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4839: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4840: L_DEBUG_KEY || '.end',
4841: 'At the end of the procedure, x_status_code = ' || x_status_code);
4842: END IF;
4835: x_status_code := null;
4836: END IF;
4837:
4838: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4839: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4840: L_DEBUG_KEY || '.end',
4841: 'At the end of the procedure, x_status_code = ' || x_status_code);
4842: END IF;
4843:
5218: ELSE
5219: l_wo_instance_id := l_task_instance_id;
5220: END IF;
5221:
5222: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5223: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'For work order id ' || p_workorder_id || ', wo_instance_id = ' || l_wo_instance_id);
5224: END IF;
5225:
5226: -- Get the top most unit containing the wo instance
5219: l_wo_instance_id := l_task_instance_id;
5220: END IF;
5221:
5222: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5223: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'For work order id ' || p_workorder_id || ', wo_instance_id = ' || l_wo_instance_id);
5224: END IF;
5225:
5226: -- Get the top most unit containing the wo instance
5227: l_uc_header_id := AHL_UTIL_UC_PKG.get_uc_header_id(l_wo_instance_id);
5236: NULL;
5237: END IF;
5238: END IF;
5239:
5240: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5241: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'For work order id ' || p_workorder_id || ', uc_header_id = ' || l_uc_header_id);
5242: END IF;
5243:
5244: IF (l_uc_header_id IS NOT NULL) THEN
5237: END IF;
5238: END IF;
5239:
5240: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5241: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'For work order id ' || p_workorder_id || ', uc_header_id = ' || l_uc_header_id);
5242: END IF;
5243:
5244: IF (l_uc_header_id IS NOT NULL) THEN
5245: OPEN uc_header_instance_csr(l_uc_header_id);
5244: IF (l_uc_header_id IS NOT NULL) THEN
5245: OPEN uc_header_instance_csr(l_uc_header_id);
5246: FETCH uc_header_instance_csr INTO l_unit_instance_id;
5247: CLOSE uc_header_instance_csr;
5248: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5249: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'For work order id ' || p_workorder_id || ', unit_instance_id = ' || l_unit_instance_id);
5250: END IF;
5251: RETURN l_unit_instance_id;
5252: ELSE
5245: OPEN uc_header_instance_csr(l_uc_header_id);
5246: FETCH uc_header_instance_csr INTO l_unit_instance_id;
5247: CLOSE uc_header_instance_csr;
5248: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5249: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'For work order id ' || p_workorder_id || ', unit_instance_id = ' || l_unit_instance_id);
5250: END IF;
5251: RETURN l_unit_instance_id;
5252: ELSE
5253: -- IB Tree
5356: l_unit_instance_id NUMBER;
5357: l_api_name CONSTANT VARCHAR2(30) := 'root_node_in_uc_headers';
5358:
5359: BEGIN
5360: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5361: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
5362: G_LOG_PREFIX||l_api_name||'.begin',
5363: 'At the start of the function: instance_id ='||p_instance_id);
5364: END IF;
5357: l_api_name CONSTANT VARCHAR2(30) := 'root_node_in_uc_headers';
5358:
5359: BEGIN
5360: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5361: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
5362: G_LOG_PREFIX||l_api_name||'.begin',
5363: 'At the start of the function: instance_id ='||p_instance_id);
5364: END IF;
5365:
5367: OPEN get_root_node(p_instance_id);
5368: FETCH get_root_node BULK COLLECT INTO l_object_id_tbl;
5369: CLOSE get_root_node;
5370:
5371: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5372: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
5373: G_LOG_PREFIX||l_api_name,
5374: 'Parent hierachy count ' || l_object_id_tbl.count);
5375: END IF;
5368: FETCH get_root_node BULK COLLECT INTO l_object_id_tbl;
5369: CLOSE get_root_node;
5370:
5371: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5372: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
5373: G_LOG_PREFIX||l_api_name,
5374: 'Parent hierachy count ' || l_object_id_tbl.count);
5375: END IF;
5376:
5379: ELSE
5380: l_instance_id := p_instance_id;
5381: END IF;
5382:
5383: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5384: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
5385: G_LOG_PREFIX||l_api_name,
5386: 'Root Instance is ' || l_instance_id);
5387: END IF;
5380: l_instance_id := p_instance_id;
5381: END IF;
5382:
5383: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5384: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
5385: G_LOG_PREFIX||l_api_name,
5386: 'Root Instance is ' || l_instance_id);
5387: END IF;
5388:
5389: -- Check if the Root instance is in unit config headers
5390: OPEN check_in_headers(l_instance_id);
5391: FETCH check_in_headers INTO l_unit_instance_id;
5392: IF check_in_headers%NOTFOUND THEN
5393: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5394: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
5395: G_LOG_PREFIX||l_api_name,
5396: 'Root Instance ' || l_instance_id || ' is not in unit config headers ');
5397: END IF;
5390: OPEN check_in_headers(l_instance_id);
5391: FETCH check_in_headers INTO l_unit_instance_id;
5392: IF check_in_headers%NOTFOUND THEN
5393: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5394: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
5395: G_LOG_PREFIX||l_api_name,
5396: 'Root Instance ' || l_instance_id || ' is not in unit config headers ');
5397: END IF;
5398: CLOSE check_in_headers;
5395: G_LOG_PREFIX||l_api_name,
5396: 'Root Instance ' || l_instance_id || ' is not in unit config headers ');
5397: END IF;
5398: CLOSE check_in_headers;
5399: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5400: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
5401: G_LOG_PREFIX||l_api_name||'.end',
5402: 'At the end of the procedure returning FALSE');
5403: END IF;
5396: 'Root Instance ' || l_instance_id || ' is not in unit config headers ');
5397: END IF;
5398: CLOSE check_in_headers;
5399: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5400: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
5401: G_LOG_PREFIX||l_api_name||'.end',
5402: 'At the end of the procedure returning FALSE');
5403: END IF;
5404: RETURN FALSE;
5402: 'At the end of the procedure returning FALSE');
5403: END IF;
5404: RETURN FALSE;
5405: ELSE
5406: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5407: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
5408: G_LOG_PREFIX||l_api_name,
5409: 'Root Instance ' || l_instance_id || ' is in unit config headers ');
5410: END IF;
5403: END IF;
5404: RETURN FALSE;
5405: ELSE
5406: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5407: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
5408: G_LOG_PREFIX||l_api_name,
5409: 'Root Instance ' || l_instance_id || ' is in unit config headers ');
5410: END IF;
5411: CLOSE check_in_headers;
5408: G_LOG_PREFIX||l_api_name,
5409: 'Root Instance ' || l_instance_id || ' is in unit config headers ');
5410: END IF;
5411: CLOSE check_in_headers;
5412: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5413: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
5414: G_LOG_PREFIX||l_api_name||'.end',
5415: 'At the end of the procedure returning TRUE');
5416: END IF;
5409: 'Root Instance ' || l_instance_id || ' is in unit config headers ');
5410: END IF;
5411: CLOSE check_in_headers;
5412: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5413: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
5414: G_LOG_PREFIX||l_api_name||'.end',
5415: 'At the end of the procedure returning TRUE');
5416: END IF;
5417: RETURN TRUE;
5457: l_wo_dtls_rec get_matching_wo_dtls%ROWTYPE;
5458: l_full_name CONSTANT VARCHAR2(60) := 'ahl.plsql.'||G_PKG_NAME||'.'||'Get_NonMWO_WIP_Entity_Id';
5459:
5460: BEGIN
5461: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5462: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_full_name, 'Entering Procedure. p_workorder_id = ' || p_workorder_id);
5463: END IF;
5464: OPEN get_child_entities;
5465: LOOP
5458: l_full_name CONSTANT VARCHAR2(60) := 'ahl.plsql.'||G_PKG_NAME||'.'||'Get_NonMWO_WIP_Entity_Id';
5459:
5460: BEGIN
5461: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5462: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_full_name, 'Entering Procedure. p_workorder_id = ' || p_workorder_id);
5463: END IF;
5464: OPEN get_child_entities;
5465: LOOP
5466: FETCH get_child_entities INTO l_child_entity_id;
5464: OPEN get_child_entities;
5465: LOOP
5466: FETCH get_child_entities INTO l_child_entity_id;
5467: EXIT when get_child_entities%NOTFOUND;
5468: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5469: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'l_child_entity_id = ' || l_child_entity_id);
5470: END IF;
5471: OPEN get_matching_wo_dtls(l_child_entity_id);
5472: FETCH get_matching_wo_dtls INTO l_wo_dtls_rec;
5465: LOOP
5466: FETCH get_child_entities INTO l_child_entity_id;
5467: EXIT when get_child_entities%NOTFOUND;
5468: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5469: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'l_child_entity_id = ' || l_child_entity_id);
5470: END IF;
5471: OPEN get_matching_wo_dtls(l_child_entity_id);
5472: FETCH get_matching_wo_dtls INTO l_wo_dtls_rec;
5473: CLOSE get_matching_wo_dtls;
5472: FETCH get_matching_wo_dtls INTO l_wo_dtls_rec;
5473: CLOSE get_matching_wo_dtls;
5474: IF (l_wo_dtls_rec.WIP_ENTITY_ID IS NOT NULL) THEN
5475: CLOSE get_child_entities;
5476: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5477: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'About to return ' || l_wo_dtls_rec.WIP_ENTITY_ID);
5478: END IF;
5479: RETURN l_wo_dtls_rec.WIP_ENTITY_ID;
5480: END IF;
5473: CLOSE get_matching_wo_dtls;
5474: IF (l_wo_dtls_rec.WIP_ENTITY_ID IS NOT NULL) THEN
5475: CLOSE get_child_entities;
5476: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5477: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'About to return ' || l_wo_dtls_rec.WIP_ENTITY_ID);
5478: END IF;
5479: RETURN l_wo_dtls_rec.WIP_ENTITY_ID;
5480: END IF;
5481: IF (l_first_child_id IS NULL) THEN
5482: l_first_child_id := l_child_entity_id;
5483: END IF;
5484: END LOOP;
5485: CLOSE get_child_entities;
5486: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5487: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'l_first_child_id = ' || l_first_child_id);
5488: END IF;
5489: IF (l_first_child_id IS NOT NULL) THEN
5490: OPEN get_non_summary_entity(l_first_child_id);
5483: END IF;
5484: END LOOP;
5485: CLOSE get_child_entities;
5486: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5487: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'l_first_child_id = ' || l_first_child_id);
5488: END IF;
5489: IF (l_first_child_id IS NOT NULL) THEN
5490: OPEN get_non_summary_entity(l_first_child_id);
5491: FETCH get_non_summary_entity INTO l_child_entity_id;
5490: OPEN get_non_summary_entity(l_first_child_id);
5491: FETCH get_non_summary_entity INTO l_child_entity_id;
5492: CLOSE get_non_summary_entity;
5493: END IF;
5494: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5495: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_full_name, 'Exiting Procedure. About to return ' || l_child_entity_id);
5496: END IF;
5497: RETURN l_child_entity_id;
5498:
5491: FETCH get_non_summary_entity INTO l_child_entity_id;
5492: CLOSE get_non_summary_entity;
5493: END IF;
5494: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5495: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_full_name, 'Exiting Procedure. About to return ' || l_child_entity_id);
5496: END IF;
5497: RETURN l_child_entity_id;
5498:
5499: END Get_NonMWO_WIP_Entity_Id;
5555:
5556: --Initialize API return status to success
5557: x_return_status := FND_API.G_RET_STS_SUCCESS;
5558:
5559: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5560: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_full_name, 'Entering Procedure. p_workorder_id = ' || p_workorder_id || ', p_instance_id = ' || p_instance_id);
5561: END IF;
5562:
5563: -- Get the Non-Master Workorder's wip_entity_id
5556: --Initialize API return status to success
5557: x_return_status := FND_API.G_RET_STS_SUCCESS;
5558:
5559: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5560: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_full_name, 'Entering Procedure. p_workorder_id = ' || p_workorder_id || ', p_instance_id = ' || p_instance_id);
5561: END IF;
5562:
5563: -- Get the Non-Master Workorder's wip_entity_id
5564: l_wip_entity_id := Get_NonMWO_WIP_Entity_Id(p_workorder_id);
5561: END IF;
5562:
5563: -- Get the Non-Master Workorder's wip_entity_id
5564: l_wip_entity_id := Get_NonMWO_WIP_Entity_Id(p_workorder_id);
5565: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5566: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'Get_NonMWO_WIP_Entity_Id Returned ' || l_wip_entity_id);
5567: END IF;
5568: IF (l_wip_entity_id IS NULL) THEN
5569: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5562:
5563: -- Get the Non-Master Workorder's wip_entity_id
5564: l_wip_entity_id := Get_NonMWO_WIP_Entity_Id(p_workorder_id);
5565: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5566: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'Get_NonMWO_WIP_Entity_Id Returned ' || l_wip_entity_id);
5567: END IF;
5568: IF (l_wip_entity_id IS NULL) THEN
5569: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5570: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'Throwing Unexpected Error since Get_NonMWO_WIP_Entity_Id returned null');
5565: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5566: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'Get_NonMWO_WIP_Entity_Id Returned ' || l_wip_entity_id);
5567: END IF;
5568: IF (l_wip_entity_id IS NULL) THEN
5569: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5570: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'Throwing Unexpected Error since Get_NonMWO_WIP_Entity_Id returned null');
5571: END IF;
5572: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WIP_ENTITY_MISSING');
5573: FND_MESSAGE.Set_Token('WOID', p_workorder_id);
5566: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'Get_NonMWO_WIP_Entity_Id Returned ' || l_wip_entity_id);
5567: END IF;
5568: IF (l_wip_entity_id IS NULL) THEN
5569: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5570: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'Throwing Unexpected Error since Get_NonMWO_WIP_Entity_Id returned null');
5571: END IF;
5572: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WIP_ENTITY_MISSING');
5573: FND_MESSAGE.Set_Token('WOID', p_workorder_id);
5574: FND_MSG_PUB.ADD;
5578: -- Update the instance location only if the work order is in released status
5579: OPEN ahl_wo_status_csr(l_wip_entity_id);
5580: FETCH ahl_wo_status_csr INTO l_temp_wo_id, l_wo_status_code;
5581: CLOSE ahl_wo_status_csr;
5582: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5583: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'Status of Work order with id ' || l_temp_wo_id || ' is ' || l_wo_status_code);
5584: END IF;
5585: IF (l_wo_status_code <> G_WO_RELEASED_STATUS) THEN
5586: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5579: OPEN ahl_wo_status_csr(l_wip_entity_id);
5580: FETCH ahl_wo_status_csr INTO l_temp_wo_id, l_wo_status_code;
5581: CLOSE ahl_wo_status_csr;
5582: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5583: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'Status of Work order with id ' || l_temp_wo_id || ' is ' || l_wo_status_code);
5584: END IF;
5585: IF (l_wo_status_code <> G_WO_RELEASED_STATUS) THEN
5586: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5587: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'Not changing the location of the instance to the NR WO because the work order is not released.');
5582: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5583: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'Status of Work order with id ' || l_temp_wo_id || ' is ' || l_wo_status_code);
5584: END IF;
5585: IF (l_wo_status_code <> G_WO_RELEASED_STATUS) THEN
5586: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5587: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'Not changing the location of the instance to the NR WO because the work order is not released.');
5588: END IF;
5589: ELSE
5590: -- Get the object_version number from csi_item_instances
5583: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'Status of Work order with id ' || l_temp_wo_id || ' is ' || l_wo_status_code);
5584: END IF;
5585: IF (l_wo_status_code <> G_WO_RELEASED_STATUS) THEN
5586: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5587: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'Not changing the location of the instance to the NR WO because the work order is not released.');
5588: END IF;
5589: ELSE
5590: -- Get the object_version number from csi_item_instances
5591: OPEN ahl_obj_ver_csr;
5618: l_csi_transaction_rec.transaction_type_id := l_transaction_type_id;
5619: l_csi_transaction_rec.source_transaction_date := sysdate;
5620:
5621: -- Call the CSI API to actually do the update
5622: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5623: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'About to call CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE');
5624: END IF;
5625:
5626: CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE(p_api_version => 1.0
5619: l_csi_transaction_rec.source_transaction_date := sysdate;
5620:
5621: -- Call the CSI API to actually do the update
5622: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5623: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'About to call CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE');
5624: END IF;
5625:
5626: CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE(p_api_version => 1.0
5627: ,p_commit => fnd_api.g_false
5639: ,x_return_status => x_return_status
5640: ,x_msg_count => l_msg_count
5641: ,x_msg_data => l_msg_data);
5642:
5643: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5644: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'Returned from CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE. x_return_status = ' || x_return_status);
5645: END IF;
5646: END IF; -- Status is Released or not
5647: END IF; -- WIP Entity Id is null or not
5640: ,x_msg_count => l_msg_count
5641: ,x_msg_data => l_msg_data);
5642:
5643: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5644: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'Returned from CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE. x_return_status = ' || x_return_status);
5645: END IF;
5646: END IF; -- Status is Released or not
5647: END IF; -- WIP Entity Id is null or not
5648:
5650: IF (x_return_status IS NULL AND NVL(l_msg_count, 0) = 0) THEN
5651: x_return_status := FND_API.G_RET_STS_SUCCESS;
5652: END IF;
5653:
5654: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5655: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_full_name, 'Exiting Procedure. x_return_status = ' || x_return_status);
5656: END IF;
5657:
5658: END update_item_location;
5651: x_return_status := FND_API.G_RET_STS_SUCCESS;
5652: END IF;
5653:
5654: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5655: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_full_name, 'Exiting Procedure. x_return_status = ' || x_return_status);
5656: END IF;
5657:
5658: END update_item_location;
5659: