[Home] [Help]
252: IF FND_API.to_boolean( p_init_msg_list ) THEN
253: FND_MSG_PUB.initialize;
254: END IF;
255:
256: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
257: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
258: G_LOG_PREFIX||l_api_name||': Begin API',
259: 'At the start of the procedure and p_workorder_id ='||p_workorder_id);
260: END IF;
253: FND_MSG_PUB.initialize;
254: END IF;
255:
256: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
257: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
258: G_LOG_PREFIX||l_api_name||': Begin API',
259: 'At the start of the procedure and p_workorder_id ='||p_workorder_id);
260: END IF;
261:
272: CLOSE get_job_attrs;
273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
274: */
275: CLOSE get_job_attrs;
276: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
277: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
278: G_LOG_PREFIX||l_api_name||': After normal execution',
279: 'Returned but nothing done because the job is not in the view and it might be a master workorder!');
280: END IF;
273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
274: */
275: CLOSE get_job_attrs;
276: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
277: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
278: G_LOG_PREFIX||l_api_name||': After normal execution',
279: 'Returned but nothing done because the job is not in the view and it might be a master workorder!');
280: END IF;
281: RETURN;
295: CLOSE get_job_attrs;
296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
297: ELSIF l_job_attrs.route_id IS NULL THEN
298: CLOSE get_job_attrs;
299: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
300: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
301: G_LOG_PREFIX||l_api_name||': After normal execution',
302: 'Returned but nothing done because there is no route associated to the job');
303: END IF;
296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
297: ELSIF l_job_attrs.route_id IS NULL THEN
298: CLOSE get_job_attrs;
299: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
300: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
301: G_LOG_PREFIX||l_api_name||': After normal execution',
302: 'Returned but nothing done because there is no route associated to the job');
303: END IF;
304: RETURN;
307: END IF;
308:
309: --Call ahl_ltp_mtl_req_pvt.get_route_mtl_req to get the default dispositions for the job
310:
311: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
312: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
313: G_LOG_PREFIX||l_api_name||': In normal execution',
314: 'Just before calling ahl_ltp_mtl_req_pvt.get_route_mtl_req and p_route_id='||
315: l_job_attrs.route_id||' p_item_instance_id='||l_job_attrs.item_instance_id||
308:
309: --Call ahl_ltp_mtl_req_pvt.get_route_mtl_req to get the default dispositions for the job
310:
311: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
312: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
313: G_LOG_PREFIX||l_api_name||': In normal execution',
314: 'Just before calling ahl_ltp_mtl_req_pvt.get_route_mtl_req and p_route_id='||
315: l_job_attrs.route_id||' p_item_instance_id='||l_job_attrs.item_instance_id||
316: ' p_requirement_date='||l_job_attrs.scheduled_start_date);
334: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
336: END IF;
337: ----dbms_output.put_line('After calling ltp API, the count='||l_route_mtl_req_tbl.COUNT);
338: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
339: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
340: G_LOG_PREFIX||l_api_name||': In normal execution',
341: 'After calling LTP API and x_return_status='||l_return_status||
342: ' The count of the returned records = '||l_route_mtl_req_tbl.COUNT);
335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
336: END IF;
337: ----dbms_output.put_line('After calling ltp API, the count='||l_route_mtl_req_tbl.COUNT);
338: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
339: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
340: G_LOG_PREFIX||l_api_name||': In normal execution',
341: 'After calling LTP API and x_return_status='||l_return_status||
342: ' The count of the returned records = '||l_route_mtl_req_tbl.COUNT);
343: END IF;
343: END IF;
344:
345: IF l_route_mtl_req_tbl.COUNT > 0 THEN
346: FOR i IN l_route_mtl_req_tbl.FIRST..l_route_mtl_req_tbl.LAST LOOP
347: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
348: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
349: G_LOG_PREFIX||l_api_name||': In normal execution',
350: 'In mtl_req_tbl loop and i='||i||' and count = '||l_route_mtl_req_tbl.COUNT);
351: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
344:
345: IF l_route_mtl_req_tbl.COUNT > 0 THEN
346: FOR i IN l_route_mtl_req_tbl.FIRST..l_route_mtl_req_tbl.LAST LOOP
347: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
348: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
349: G_LOG_PREFIX||l_api_name||': In normal execution',
350: 'In mtl_req_tbl loop and i='||i||' and count = '||l_route_mtl_req_tbl.COUNT);
351: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
352: G_LOG_PREFIX||l_api_name,
347: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
348: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
349: G_LOG_PREFIX||l_api_name||': In normal execution',
350: 'In mtl_req_tbl loop and i='||i||' and count = '||l_route_mtl_req_tbl.COUNT);
351: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
352: G_LOG_PREFIX||l_api_name,
353: 'For index ' || i || ', rt_oper_material_id = '||
354: l_route_mtl_req_tbl(i).rt_oper_material_id||', position_path_id = '||
355: l_route_mtl_req_tbl(i).position_path_id||', item_group_id = '||
370: --dbms_output.put_line('Before check flag');
371: --Filter out the record which should not be included
372: IF (l_mtl_req_flags.exclude_flag = 'Y') THEN
373: l_route_mtl_req_tbl.DELETE(i);
374: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
375: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
376: G_LOG_PREFIX||l_api_name||': In normal execution',
377: 'The disposition record is deleted and i='||i||' because the exclude_flag=Y');
378: END IF;
371: --Filter out the record which should not be included
372: IF (l_mtl_req_flags.exclude_flag = 'Y') THEN
373: l_route_mtl_req_tbl.DELETE(i);
374: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
375: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
376: G_LOG_PREFIX||l_api_name||': In normal execution',
377: 'The disposition record is deleted and i='||i||' because the exclude_flag=Y');
378: END IF;
379: ----dbms_output.put_line('Yes it is deleted '||i);
395: OPEN check_item_org(l_route_mtl_req_tbl(i).inventory_item_id,
396: l_job_attrs.organization_id);
397: FETCH check_item_org INTO l_dummy_char;
398: IF check_item_org%NOTFOUND THEN
399: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
400: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
401: G_LOG_PREFIX||l_api_name||': In normal execution',
402: 'inventory_item_id = '||l_route_mtl_req_tbl(i).inventory_item_id||
403: 'job_organization_id = '||l_job_attrs.organization_id||
396: l_job_attrs.organization_id);
397: FETCH check_item_org INTO l_dummy_char;
398: IF check_item_org%NOTFOUND THEN
399: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
400: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
401: G_LOG_PREFIX||l_api_name||': In normal execution',
402: 'inventory_item_id = '||l_route_mtl_req_tbl(i).inventory_item_id||
403: 'job_organization_id = '||l_job_attrs.organization_id||
404: 'The item does not exist in the organization of the job and this disposition record will be ignored.');
416: --the position is not empty
417: ----dbms_output.put_line('position_path_id='||l_route_mtl_req_tbl(i).position_path_id);
418: IF (l_route_mtl_req_tbl.EXISTS(i) AND
419: l_route_mtl_req_tbl(i).position_path_id IS NOT NULL) THEN
420: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
421: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
422: G_LOG_PREFIX||l_api_name||': In normal execution',
423: 'Exists and position_path_id is not null');
424: END IF;
417: ----dbms_output.put_line('position_path_id='||l_route_mtl_req_tbl(i).position_path_id);
418: IF (l_route_mtl_req_tbl.EXISTS(i) AND
419: l_route_mtl_req_tbl(i).position_path_id IS NOT NULL) THEN
420: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
421: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
422: G_LOG_PREFIX||l_api_name||': In normal execution',
423: 'Exists and position_path_id is not null');
424: END IF;
425: ----dbms_output.put_line('Yes exists');
448: END IF;
449: --Call Path Position API to get the installed instance if the given unit has a
450: --matching path_position_id
451: ----dbms_output.put_line('Before calling path API');
452: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
453: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
454: G_LOG_PREFIX||l_api_name||': in normal execution',
455: 'Before calling mc path position API and p_position_id ='||
456: l_route_mtl_req_tbl(i).position_path_id||' p_csi_item_instance_id='||
449: --Call Path Position API to get the installed instance if the given unit has a
450: --matching path_position_id
451: ----dbms_output.put_line('Before calling path API');
452: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
453: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
454: G_LOG_PREFIX||l_api_name||': in normal execution',
455: 'Before calling mc path position API and p_position_id ='||
456: l_route_mtl_req_tbl(i).position_path_id||' p_csi_item_instance_id='||
457: l_unit_instance_id);
469: x_item_instance_id => l_installed_inst_id,
470: x_lowest_uc_csi_id => l_lowest_unit_inst_id,
471: x_mapping_status => l_mapping_status);
472:
473: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
474: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
475: G_LOG_PREFIX||l_api_name||': Within the procedure ',
476: 'Returned from call to AHL_MC_PATH_POSITION_PVT.get_pos_instance:' ||
477: ' x_return_status = ' || l_return_status ||
470: x_lowest_uc_csi_id => l_lowest_unit_inst_id,
471: x_mapping_status => l_mapping_status);
472:
473: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
474: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
475: G_LOG_PREFIX||l_api_name||': Within the procedure ',
476: 'Returned from call to AHL_MC_PATH_POSITION_PVT.get_pos_instance:' ||
477: ' x_return_status = ' || l_return_status ||
478: ', x_mapping_status = ' || l_mapping_status ||
514: --if not, then ignore this record
515: OPEN check_item_org(l_inv_item_id, l_job_attrs.organization_id);
516: FETCH check_item_org INTO l_dummy_char;
517: IF check_item_org%NOTFOUND THEN
518: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
519: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
520: G_LOG_PREFIX||l_api_name||': In normal execution',
521: 'inventory_item_id = '||l_route_mtl_req_tbl(i).inventory_item_id||
522: 'instance_id = '||l_installed_inst_id||
515: OPEN check_item_org(l_inv_item_id, l_job_attrs.organization_id);
516: FETCH check_item_org INTO l_dummy_char;
517: IF check_item_org%NOTFOUND THEN
518: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
519: FND_LOG.STRING(FND_LOG.LEVEL_EVENT,
520: G_LOG_PREFIX||l_api_name||': In normal execution',
521: 'inventory_item_id = '||l_route_mtl_req_tbl(i).inventory_item_id||
522: 'instance_id = '||l_installed_inst_id||
523: 'job_organization_id = '||l_job_attrs.organization_id||
538: BEGIN
539: SELECT ahl_prd_dispositions_b_s.NEXTVAL
540: INTO l_disposition_id
541: FROM dual;
542: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
543: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
544: G_LOG_PREFIX||l_api_name||': Before calling table handler',
545: 'disposition_id = '||l_disposition_id);
546: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
539: SELECT ahl_prd_dispositions_b_s.NEXTVAL
540: INTO l_disposition_id
541: FROM dual;
542: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
543: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
544: G_LOG_PREFIX||l_api_name||': Before calling table handler',
545: 'disposition_id = '||l_disposition_id);
546: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
547: G_LOG_PREFIX||l_api_name||': Before calling table handler',
542: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
543: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
544: G_LOG_PREFIX||l_api_name||': Before calling table handler',
545: 'disposition_id = '||l_disposition_id);
546: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
547: G_LOG_PREFIX||l_api_name||': Before calling table handler',
548: 'workorder_id = '||p_workorder_id);
549: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
550: G_LOG_PREFIX||l_api_name||': Before calling table handler',
545: 'disposition_id = '||l_disposition_id);
546: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
547: G_LOG_PREFIX||l_api_name||': Before calling table handler',
548: 'workorder_id = '||p_workorder_id);
549: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
550: G_LOG_PREFIX||l_api_name||': Before calling table handler',
551: 'path_position_id = '||l_route_mtl_req_tbl(i).position_path_id);
552: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
553: G_LOG_PREFIX||l_api_name||': Before calling table handler',
548: 'workorder_id = '||p_workorder_id);
549: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
550: G_LOG_PREFIX||l_api_name||': Before calling table handler',
551: 'path_position_id = '||l_route_mtl_req_tbl(i).position_path_id);
552: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
553: G_LOG_PREFIX||l_api_name||': Before calling table handler',
554: 'inventory_item_id = '||l_route_mtl_req_tbl(i).inventory_item_id);
555: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
556: G_LOG_PREFIX||l_api_name||': Before calling table handler',
551: 'path_position_id = '||l_route_mtl_req_tbl(i).position_path_id);
552: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
553: G_LOG_PREFIX||l_api_name||': Before calling table handler',
554: 'inventory_item_id = '||l_route_mtl_req_tbl(i).inventory_item_id);
555: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
556: G_LOG_PREFIX||l_api_name||': Before calling table handler',
557: 'inv_master_org_id = '||l_route_mtl_req_tbl(i).inv_master_org_id);
558: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
559: G_LOG_PREFIX||l_api_name||': Before calling table handler',
554: 'inventory_item_id = '||l_route_mtl_req_tbl(i).inventory_item_id);
555: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
556: G_LOG_PREFIX||l_api_name||': Before calling table handler',
557: 'inv_master_org_id = '||l_route_mtl_req_tbl(i).inv_master_org_id);
558: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
559: G_LOG_PREFIX||l_api_name||': Before calling table handler',
560: 'item_group_id= '||l_route_mtl_req_tbl(i).item_group_id);
561: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
562: G_LOG_PREFIX||l_api_name||': Before calling table handler',
557: 'inv_master_org_id = '||l_route_mtl_req_tbl(i).inv_master_org_id);
558: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
559: G_LOG_PREFIX||l_api_name||': Before calling table handler',
560: 'item_group_id= '||l_route_mtl_req_tbl(i).item_group_id);
561: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
562: G_LOG_PREFIX||l_api_name||': Before calling table handler',
563: 'l_installed_inst_id='||l_installed_inst_id);
564: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
565: G_LOG_PREFIX||l_api_name||': Before calling table handler',
560: 'item_group_id= '||l_route_mtl_req_tbl(i).item_group_id);
561: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
562: G_LOG_PREFIX||l_api_name||': Before calling table handler',
563: 'l_installed_inst_id='||l_installed_inst_id);
564: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
565: G_LOG_PREFIX||l_api_name||': Before calling table handler',
566: 'l_serial_number='||l_serial_number);
567: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
568: G_LOG_PREFIX||l_api_name||': Before calling table handler',
563: 'l_installed_inst_id='||l_installed_inst_id);
564: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
565: G_LOG_PREFIX||l_api_name||': Before calling table handler',
566: 'l_serial_number='||l_serial_number);
567: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
568: G_LOG_PREFIX||l_api_name||': Before calling table handler',
569: 'l_lot_number='||l_lot_number);
570: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
571: G_LOG_PREFIX||l_api_name||': Before calling table handler',
566: 'l_serial_number='||l_serial_number);
567: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
568: G_LOG_PREFIX||l_api_name||': Before calling table handler',
569: 'l_lot_number='||l_lot_number);
570: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
571: G_LOG_PREFIX||l_api_name||': Before calling table handler',
572: 'quantity='||l_route_mtl_req_tbl(i).quantity);
573: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
574: G_LOG_PREFIX||l_api_name||': Before calling table handler',
569: 'l_lot_number='||l_lot_number);
570: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
571: G_LOG_PREFIX||l_api_name||': Before calling table handler',
572: 'quantity='||l_route_mtl_req_tbl(i).quantity);
573: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
574: G_LOG_PREFIX||l_api_name||': Before calling table handler',
575: 'uom_code='||l_route_mtl_req_tbl(i).uom_code);
576: END IF;
577:
699: l_inv_item_id := NULL;
700: END LOOP;
701: END IF;
702:
703: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
704: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
705: G_LOG_PREFIX||l_api_name||': After normal execution',
706: 'At the end of the procedure');
707: END IF;
700: END LOOP;
701: END IF;
702:
703: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
704: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
705: G_LOG_PREFIX||l_api_name||': After normal execution',
706: 'At the end of the procedure');
707: END IF;
708:
821: BEGIN
822:
823: -- Standard start of API savepoint
824: SAVEPOINT process_disposition_pvt;
825: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
826: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
827: END IF;
828:
829: --dbms_output.put_line(SubStr('Begin Process_Disposition', 1, 255));
822:
823: -- Standard start of API savepoint
824: SAVEPOINT process_disposition_pvt;
825: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
826: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
827: END IF;
828:
829: --dbms_output.put_line(SubStr('Begin Process_Disposition', 1, 255));
830: -- Standard call to check for call compatibility
872: x_return_status ,
873: x_msg_count,
874: x_msg_data);
875:
876: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
877: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After calling update_dispositon- x_msg_data: ' || x_msg_data
878: || ' x_msg_count: ' || x_msg_count);
879: END IF;
880: END IF;
873: x_msg_count,
874: x_msg_data);
875:
876: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
877: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After calling update_dispositon- x_msg_data: ' || x_msg_data
878: || ' x_msg_count: ' || x_msg_count);
879: END IF;
880: END IF;
881:
898: p_data => x_msg_data,
899: p_encoded => fnd_api.g_false
900: );
901:
902: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
903: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
904: END IF;
905: --dbms_output.put_line(SubStr('End Process_Disposition', 1, 255));
906:
899: p_encoded => fnd_api.g_false
900: );
901:
902: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
903: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
904: END IF;
905: --dbms_output.put_line(SubStr('End Process_Disposition', 1, 255));
906:
907: EXCEPTION
910: x_return_status := FND_API.G_RET_STS_ERROR;
911: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
912: p_data => x_msg_data,
913: p_encoded => fnd_api.g_false);
914: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
915: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, L_DEBUG_KEY, 'Execution Exception: ' || x_msg_data);
916: END IF;
917: --dbms_output.put_line(SubStr('Execution Exception', 1, 255));
918:
911: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
912: p_data => x_msg_data,
913: p_encoded => fnd_api.g_false);
914: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
915: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, L_DEBUG_KEY, 'Execution Exception: ' || x_msg_data);
916: END IF;
917: --dbms_output.put_line(SubStr('Execution Exception', 1, 255));
918:
919:
923: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
924: p_data => x_msg_data,
925: p_encoded => fnd_api.g_false);
926:
927: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
928: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, 'Unexpected Exception: ' || x_msg_data);
929: END IF;
930: --dbms_output.put_line(SubStr('Unexpected Exception', 1, 255));
931:
924: p_data => x_msg_data,
925: p_encoded => fnd_api.g_false);
926:
927: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
928: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, 'Unexpected Exception: ' || x_msg_data);
929: END IF;
930: --dbms_output.put_line(SubStr('Unexpected Exception', 1, 255));
931:
932: WHEN OTHERS THEN
940: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
941: p_data => x_msg_data,
942: p_encoded => fnd_api.g_false);
943:
944: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
945: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, 'Other Exception: ' || x_msg_data);
946: END IF;
947:
948:
941: p_data => x_msg_data,
942: p_encoded => fnd_api.g_false);
943:
944: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
945: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, 'Other Exception: ' || x_msg_data);
946: END IF;
947:
948:
949: --dbms_output.put_line(SubStr('Other Exception', 1, 255));
1000: BEGIN
1001:
1002:
1003:
1004: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1005: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1006: END IF;
1007: --dbms_output.put_line(SubStr('Begin Create_Disposition', 1, 255));
1008:
1001:
1002:
1003:
1004: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1005: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1006: END IF;
1007: --dbms_output.put_line(SubStr('Begin Create_Disposition', 1, 255));
1008:
1009: IF (p_module_type = 'JSP') THEN
1076:
1077: validate_for_create(p_x_disposition_rec);
1078:
1079: --Validate Disposition Types
1080: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1081: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before validate disposition_type');
1082: END IF;
1083: --dbms_output.put_line(SubStr('Before validate disposition type ', 1, 255));
1084: Validate_Disposition_Types (
1077: validate_for_create(p_x_disposition_rec);
1078:
1079: --Validate Disposition Types
1080: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1081: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before validate disposition_type');
1082: END IF;
1083: --dbms_output.put_line(SubStr('Before validate disposition type ', 1, 255));
1084: Validate_Disposition_Types (
1085: -- p_api_version => p_api_version,
1091: x_msg_data => x_msg_data ,
1092: p_disposition_rec => p_x_disposition_rec);
1093:
1094: --Calculate Status
1095: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1096: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calculate_status');
1097: END IF;
1098: --dbms_output.put_line(SubStr('Before calculate status', 1, 255));
1099: Calculate_Status (
1092: p_disposition_rec => p_x_disposition_rec);
1093:
1094: --Calculate Status
1095: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1096: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calculate_status');
1097: END IF;
1098: --dbms_output.put_line(SubStr('Before calculate status', 1, 255));
1099: Calculate_Status (
1100: p_disposition_Rec => p_x_disposition_Rec,
1112: p_x_disposition_rec.last_updated_by := fnd_global.user_id;
1113: p_x_disposition_rec.last_update_date := SYSDATE;
1114: p_x_disposition_rec.last_update_login := fnd_global.login_id ;
1115:
1116: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1117: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before Insert_Row');
1118: END IF;
1119: --dbms_output.put_line(SubStr('Create_Disposition - Before Insert_Row', 1, 255));
1120: AHL_PRD_DISPOSITIONS_PKG.INSERT_ROW(
1113: p_x_disposition_rec.last_update_date := SYSDATE;
1114: p_x_disposition_rec.last_update_login := fnd_global.login_id ;
1115:
1116: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1117: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before Insert_Row');
1118: END IF;
1119: --dbms_output.put_line(SubStr('Create_Disposition - Before Insert_Row', 1, 255));
1120: AHL_PRD_DISPOSITIONS_PKG.INSERT_ROW(
1121: x_rowid => l_dummy_char,
1163: x_last_update_date => p_x_disposition_rec.last_update_date,
1164: x_last_updated_by => p_x_disposition_rec.last_updated_by,
1165: x_last_update_login => p_x_disposition_rec.last_update_login
1166: );
1167: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1168: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'AfterInsert_Row');
1169: END IF;
1170:
1171: -- create service request and non-routine job
1164: x_last_updated_by => p_x_disposition_rec.last_updated_by,
1165: x_last_update_login => p_x_disposition_rec.last_update_login
1166: );
1167: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1168: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'AfterInsert_Row');
1169: END IF;
1170:
1171: -- create service request and non-routine job
1172: -- SATHAPLI::FP OGMA Issue# 105 - Non-Serialized Item Maintenance, 12-Dec-2007
1283: FETCH part_change_dtls_csr INTO l_removed_instance_id, l_part_change_type;
1284: CLOSE part_change_dtls_csr;
1285: IF (l_removed_instance_id = p_x_disposition_rec.instance_id AND -- Removed instance is the Disposition instance
1286: NVL(l_part_change_type, 'X') IN ('R', 'S')) THEN -- Removal or Swap
1287: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1288: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator with ' ||
1289: ' part change id = ' || p_x_disposition_rec.part_change_id ||
1290: ' and disposition_id = ' || p_x_disposition_rec.disposition_id);
1291: END IF;
1284: CLOSE part_change_dtls_csr;
1285: IF (l_removed_instance_id = p_x_disposition_rec.instance_id AND -- Removed instance is the Disposition instance
1286: NVL(l_part_change_type, 'X') IN ('R', 'S')) THEN -- Removal or Swap
1287: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1288: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator with ' ||
1289: ' part change id = ' || p_x_disposition_rec.part_change_id ||
1290: ' and disposition_id = ' || p_x_disposition_rec.disposition_id);
1291: END IF;
1292: AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator(p_part_change_id => p_x_disposition_rec.part_change_id,
1295: x_msg_data => x_msg_data,
1296: x_msg_count => x_msg_count,
1297: x_ahl_mtltxn_rec => l_ahl_mtltxn_rec);
1298:
1299: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1300: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator: ' ||
1301: ' x_return_status = ' || x_return_status);
1302: END IF;
1303: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1296: x_msg_count => x_msg_count,
1297: x_ahl_mtltxn_rec => l_ahl_mtltxn_rec);
1298:
1299: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1300: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator: ' ||
1301: ' x_return_status = ' || x_return_status);
1302: END IF;
1303: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1304: RAISE FND_API.G_EXC_ERROR;
1316: SET status_code = 'COMPLETE'
1317: WHERE disposition_id = p_x_disposition_rec.disposition_id;
1318: END IF;
1319:
1320: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1321: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'end create_disposition disposition_id:' ||p_x_disposition_rec.disposition_id);
1322: END IF;
1323: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1324: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
1317: WHERE disposition_id = p_x_disposition_rec.disposition_id;
1318: END IF;
1319:
1320: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1321: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'end create_disposition disposition_id:' ||p_x_disposition_rec.disposition_id);
1322: END IF;
1323: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1324: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
1325: END IF;
1319:
1320: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1321: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'end create_disposition disposition_id:' ||p_x_disposition_rec.disposition_id);
1322: END IF;
1323: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1324: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
1325: END IF;
1326: --dbms_output.put_line(SubStr('End Create_Disposition', 1, 255));
1327: END create_disposition;
1320: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1321: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'end create_disposition disposition_id:' ||p_x_disposition_rec.disposition_id);
1322: END IF;
1323: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1324: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
1325: END IF;
1326: --dbms_output.put_line(SubStr('End Create_Disposition', 1, 255));
1327: END create_disposition;
1328:
1461: l_primary_sr_created BOOLEAN := FALSE;
1462:
1463: BEGIN
1464:
1465: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1466: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1467: END IF;
1468:
1469:
1462:
1463: BEGIN
1464:
1465: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1466: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1467: END IF;
1468:
1469:
1470: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1466: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1467: END IF;
1468:
1469:
1470: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1471: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '', 'update Disposition_id' || p_x_disposition_rec.disposition_id );
1472: END IF;
1473:
1474: --dbms_output.put_line(SubStr('Begin Update_Disposition', 1, 255));
1467: END IF;
1468:
1469:
1470: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1471: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY || '', 'update Disposition_id' || p_x_disposition_rec.disposition_id );
1472: END IF;
1473:
1474: --dbms_output.put_line(SubStr('Begin Update_Disposition', 1, 255));
1475:
1500: --Handle JSP module
1501: --Handle GMiss and merge the updating record with the one from database
1502:
1503: IF (p_module_type = 'JSP') THEN
1504: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1505: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Merging data');
1506: END IF;
1507: --dbms_output.put_line(SubStr('Update_disp:Merging data', 1, 255));
1508: IF p_x_disposition_rec.workorder_id IS NULL THEN
1501: --Handle GMiss and merge the updating record with the one from database
1502:
1503: IF (p_module_type = 'JSP') THEN
1504: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1505: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Merging data');
1506: END IF;
1507: --dbms_output.put_line(SubStr('Update_disp:Merging data', 1, 255));
1508: IF p_x_disposition_rec.workorder_id IS NULL THEN
1509: p_x_disposition_rec.workorder_id := l_disposition_rec.workorder_id;
1611: ELSIF (p_x_disposition_rec.item_revision = FND_API.G_MISS_CHAR) THEN
1612: p_x_disposition_rec.item_revision := null;
1613: END IF;
1614:
1615: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1616: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After Merging data');
1617: END IF;
1618: --dbms_output.put_line(SubStr('Update_disp:End Merging data', 1, 255));
1619: END IF;
1612: p_x_disposition_rec.item_revision := null;
1613: END IF;
1614:
1615: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1616: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After Merging data');
1617: END IF;
1618: --dbms_output.put_line(SubStr('Update_disp:End Merging data', 1, 255));
1619: END IF;
1620: --END MERGING DATA
1733: CLOSE val_lot_number_csr;
1734: END IF;
1735:
1736: --Item Revision
1737: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1738: 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);
1739: END IF;
1740: IF nvl(p_x_disposition_rec.item_revision, ' ') <> nvl(l_disposition_rec.item_revision, nvl(p_x_disposition_rec.item_revision, ' ')) THEN
1741: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REV_CHNG'); --item revision Number Can be set once
1734: END IF;
1735:
1736: --Item Revision
1737: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1738: 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);
1739: END IF;
1740: IF nvl(p_x_disposition_rec.item_revision, ' ') <> nvl(l_disposition_rec.item_revision, nvl(p_x_disposition_rec.item_revision, ' ')) THEN
1741: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REV_CHNG'); --item revision Number Can be set once
1742: FND_MSG_PUB.ADD;
1739: END IF;
1740: IF nvl(p_x_disposition_rec.item_revision, ' ') <> nvl(l_disposition_rec.item_revision, nvl(p_x_disposition_rec.item_revision, ' ')) THEN
1741: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REV_CHNG'); --item revision Number Can be set once
1742: FND_MSG_PUB.ADD;
1743: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1744: 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);
1745: END IF;
1746: END IF;
1747: IF nvl(p_x_disposition_rec.item_revision, ' ') <> nvl(l_disposition_rec.item_revision, ' ') THEN
1740: IF nvl(p_x_disposition_rec.item_revision, ' ') <> nvl(l_disposition_rec.item_revision, nvl(p_x_disposition_rec.item_revision, ' ')) THEN
1741: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REV_CHNG'); --item revision Number Can be set once
1742: FND_MSG_PUB.ADD;
1743: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1744: 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);
1745: END IF;
1746: END IF;
1747: IF nvl(p_x_disposition_rec.item_revision, ' ') <> nvl(l_disposition_rec.item_revision, ' ') THEN
1748: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1744: 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);
1745: END IF;
1746: END IF;
1747: IF nvl(p_x_disposition_rec.item_revision, ' ') <> nvl(l_disposition_rec.item_revision, ' ') THEN
1748: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1749: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Validate item revision: ' || p_x_disposition_rec.item_revision);
1750: END IF;
1751: -- item revision Number has been set: Validate
1752: OPEN item_revisions_csr (p_x_disposition_rec.item_revision, p_x_disposition_rec.inventory_item_id, p_x_disposition_rec.item_org_id);
1745: END IF;
1746: END IF;
1747: IF nvl(p_x_disposition_rec.item_revision, ' ') <> nvl(l_disposition_rec.item_revision, ' ') THEN
1748: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1749: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Validate item revision: ' || p_x_disposition_rec.item_revision);
1750: END IF;
1751: -- item revision Number has been set: Validate
1752: OPEN item_revisions_csr (p_x_disposition_rec.item_revision, p_x_disposition_rec.inventory_item_id, p_x_disposition_rec.item_org_id);
1753: FETCH item_revisions_csr INTO l_exist;
1796: IF p_x_disposition_rec.inventory_item_id IS NOT NULL THEN
1797: --derive organization
1798: OPEN get_organization_csr(p_x_disposition_rec.workorder_id);
1799: FETCH get_organization_csr INTO p_x_disposition_rec.item_org_id;
1800: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1801: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Derived Org: ' || p_x_disposition_rec.item_org_id);
1802: END IF;
1803: --dbms_output.put_line(SubStr('Derived Org: ' || p_x_disposition_rec.item_org_id, 1, 255));
1804: CLOSE get_organization_csr;
1797: --derive organization
1798: OPEN get_organization_csr(p_x_disposition_rec.workorder_id);
1799: FETCH get_organization_csr INTO p_x_disposition_rec.item_org_id;
1800: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1801: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Derived Org: ' || p_x_disposition_rec.item_org_id);
1802: END IF;
1803: --dbms_output.put_line(SubStr('Derived Org: ' || p_x_disposition_rec.item_org_id, 1, 255));
1804: CLOSE get_organization_csr;
1805:
1860: FND_MSG_PUB.ADD;
1861: END IF;
1862:
1863: END IF;
1864: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1865: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'end validate changes');
1866: END IF;
1867: --dbms_output.put_line(SubStr('Update_disp:End Validate Change', 1, 255));
1868:
1861: END IF;
1862:
1863: END IF;
1864: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1865: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'end validate changes');
1866: END IF;
1867: --dbms_output.put_line(SubStr('Update_disp:End Validate Change', 1, 255));
1868:
1869: -- Validate part_change
1968: END IF; --end create SR
1969:
1970:
1971: --Validate disposition type
1972: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1973: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before validate_disposition_types');
1974: END IF;
1975: --dbms_output.put_line(SubStr('Before validate disposition type', 1, 255));
1976: Validate_Disposition_Types (
1969:
1970:
1971: --Validate disposition type
1972: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1973: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before validate_disposition_types');
1974: END IF;
1975: --dbms_output.put_line(SubStr('Before validate disposition type', 1, 255));
1976: Validate_Disposition_Types (
1977: -- p_api_version => p_api_version,
1983: x_msg_data => x_msg_data ,
1984: p_disposition_rec => p_x_disposition_rec);
1985:
1986: -- Calculate disposition status
1987: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1988: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calculate_status');
1989: END IF;
1990: --dbms_output.put_line(SubStr('Before calculate status'|| p_x_disposition_Rec.status_code, 1, 255));
1991: Calculate_Status (
1984: p_disposition_rec => p_x_disposition_rec);
1985:
1986: -- Calculate disposition status
1987: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1988: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calculate_status');
1989: END IF;
1990: --dbms_output.put_line(SubStr('Before calculate status'|| p_x_disposition_Rec.status_code, 1, 255));
1991: Calculate_Status (
1992: p_disposition_Rec => p_x_disposition_Rec,
1992: p_disposition_Rec => p_x_disposition_Rec,
1993: x_status_code => l_calculated_status);
1994:
1995: p_x_disposition_Rec.status_code := l_calculated_status;
1996: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1997: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After calculate status' || p_x_disposition_Rec.status_code);
1998: END IF;
1999: --dbms_output.put_line(SubStr('After calculate status' ||p_x_disposition_Rec.status_code, 1, 255));
2000: -- setting up object version number
1993: x_status_code => l_calculated_status);
1994:
1995: p_x_disposition_Rec.status_code := l_calculated_status;
1996: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1997: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After calculate status' || p_x_disposition_Rec.status_code);
1998: END IF;
1999: --dbms_output.put_line(SubStr('After calculate status' ||p_x_disposition_Rec.status_code, 1, 255));
2000: -- setting up object version number
2001: p_x_disposition_rec.object_version_number := p_x_disposition_rec.object_version_number + 1;
2010: p_x_disposition_rec.part_change_id IS NOT NULL ) THEN
2011: p_x_disposition_rec.status_code := 'COMPLETE';
2012: END IF;
2013:
2014: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2015: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before update_row');
2016: END IF;
2017: --dbms_output.put_line(SubStr('Update_disp:Before call Update_Row', 1, 255));
2018: AHL_PRD_DISPOSITIONS_PKG.UPDATE_ROW(
2011: p_x_disposition_rec.status_code := 'COMPLETE';
2012: END IF;
2013:
2014: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2015: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before update_row');
2016: END IF;
2017: --dbms_output.put_line(SubStr('Update_disp:Before call Update_Row', 1, 255));
2018: AHL_PRD_DISPOSITIONS_PKG.UPDATE_ROW(
2019: x_disposition_id => p_x_disposition_rec.disposition_id,
2059: x_last_updated_by => p_x_disposition_rec.last_updated_by,
2060: x_last_update_login => p_x_disposition_rec.last_update_login
2061: );
2062:
2063: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2064: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After update_row');
2065: END IF;
2066: --dbms_output.put_line(SubStr('Update_disp:After call Update_Row', 1, 255));
2067: --dbms_output.put_line(SubStr('Update_disp: l_disposition_rec.creation_date ' || l_disposition_rec.creation_date, 1, 255));
2060: x_last_update_login => p_x_disposition_rec.last_update_login
2061: );
2062:
2063: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2064: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After update_row');
2065: END IF;
2066: --dbms_output.put_line(SubStr('Update_disp:After call Update_Row', 1, 255));
2067: --dbms_output.put_line(SubStr('Update_disp: l_disposition_rec.creation_date ' || l_disposition_rec.creation_date, 1, 255));
2068: --dbms_output.put_line(SubStr('Update_disp: l_disposition_rec.created_by ' || l_disposition_rec.created_by, 1, 255));
2070:
2071: Select AHL_PRD_DISPOSITIONS_B_H_S.NEXTVAL into l_disposition_h_id from dual;
2072: --dbms_output.put_line(SubStr('Update_disp:Before insert into history table', 1, 255));
2073:
2074: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2075: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before insert into history table');
2076: END IF;
2077: AHL_PRD_DISPOSITIONS_B_H_PKG.INSERT_ROW(
2078: x_rowid => l_dummy_char,
2071: Select AHL_PRD_DISPOSITIONS_B_H_S.NEXTVAL into l_disposition_h_id from dual;
2072: --dbms_output.put_line(SubStr('Update_disp:Before insert into history table', 1, 255));
2073:
2074: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2075: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before insert into history table');
2076: END IF;
2077: AHL_PRD_DISPOSITIONS_B_H_PKG.INSERT_ROW(
2078: x_rowid => l_dummy_char,
2079: x_disposition_h_id => l_disposition_h_id,
2129: l_exist := NULL;
2130: OPEN check_nr_wo_status_csr(p_x_disposition_rec.non_routine_workorder_id);
2131: FETCH check_nr_wo_status_csr INTO l_exist;
2132: CLOSE check_nr_wo_status_csr;
2133: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2134: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to check if instance location neesd to be changed. ' ||
2135: ' p_x_disposition_rec.non_routine_workorder_id = ' || p_x_disposition_rec.non_routine_workorder_id ||
2136: ', l_disposition_rec.part_change_id = ' || l_disposition_rec.part_change_id ||
2137: ', p_x_disposition_rec.part_change_id = ' || p_x_disposition_rec.part_change_id ||
2130: OPEN check_nr_wo_status_csr(p_x_disposition_rec.non_routine_workorder_id);
2131: FETCH check_nr_wo_status_csr INTO l_exist;
2132: CLOSE check_nr_wo_status_csr;
2133: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2134: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to check if instance location neesd to be changed. ' ||
2135: ' p_x_disposition_rec.non_routine_workorder_id = ' || p_x_disposition_rec.non_routine_workorder_id ||
2136: ', l_disposition_rec.part_change_id = ' || l_disposition_rec.part_change_id ||
2137: ', p_x_disposition_rec.part_change_id = ' || p_x_disposition_rec.part_change_id ||
2138: ', NR UE with null status exists: ' || NVL(l_exist, 'N'));
2170: p_x_disposition_rec.non_routine_workorder_id IS NOT NULL
2171: AND
2172: NOT l_primary_sr_created)
2173: THEN
2174: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2175: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key,
2176: 'About to check if the removed instance location needs to be changed.');
2177: END IF;
2178:
2171: AND
2172: NOT l_primary_sr_created)
2173: THEN
2174: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2175: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key,
2176: 'About to check if the removed instance location needs to be changed.');
2177: END IF;
2178:
2179: -- get the first released non-master workorder id for the NR summary workorder
2179: -- get the first released non-master workorder id for the NR summary workorder
2180: OPEN get_rel_nonmaster_wo_id_csr(p_x_disposition_rec.non_routine_workorder_id);
2181: FETCH get_rel_nonmaster_wo_id_csr INTO l_rel_nm_wo_id;
2182: IF (get_rel_nonmaster_wo_id_csr%FOUND) THEN
2183: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2184: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key,
2185: 'First released non-master workorder id => '||l_rel_nm_wo_id);
2186: END IF;
2187:
2180: OPEN get_rel_nonmaster_wo_id_csr(p_x_disposition_rec.non_routine_workorder_id);
2181: FETCH get_rel_nonmaster_wo_id_csr INTO l_rel_nm_wo_id;
2182: IF (get_rel_nonmaster_wo_id_csr%FOUND) THEN
2183: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2184: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key,
2185: 'First released non-master workorder id => '||l_rel_nm_wo_id);
2186: END IF;
2187:
2188: -- get the removed instance id, which can be different from the disposition instance id for non-serialized items
2194: l_move_item_ins_tbl(1).quantity := p_x_disposition_rec.quantity;
2195: l_move_item_ins_tbl(1).from_workorder_id := p_x_disposition_rec.workorder_id;
2196: l_move_item_ins_tbl(1).to_workorder_id := l_rel_nm_wo_id;
2197:
2198: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2199: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key,
2200: 'About to call the API AHL_PRD_PARTS_CHANGE_PVT.move_instance_location with the parameters:'||
2201: ' instance_id => '||l_removed_instance_id||
2202: ' ,quantity => '||p_x_disposition_rec.quantity||
2195: l_move_item_ins_tbl(1).from_workorder_id := p_x_disposition_rec.workorder_id;
2196: l_move_item_ins_tbl(1).to_workorder_id := l_rel_nm_wo_id;
2197:
2198: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2199: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key,
2200: 'About to call the API AHL_PRD_PARTS_CHANGE_PVT.move_instance_location with the parameters:'||
2201: ' instance_id => '||l_removed_instance_id||
2202: ' ,quantity => '||p_x_disposition_rec.quantity||
2203: ' ,to_workorder_id => '||l_rel_nm_wo_id);
2216: x_msg_count => x_msg_count,
2217: x_msg_data => x_msg_data
2218: );
2219:
2220: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2221: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key,
2222: 'Call to the API AHL_PRD_PARTS_CHANGE_PVT.move_instance_location returned with status => '||x_return_status);
2223: END IF;
2224:
2217: x_msg_data => x_msg_data
2218: );
2219:
2220: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2221: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key,
2222: 'Call to the API AHL_PRD_PARTS_CHANGE_PVT.move_instance_location returned with status => '||x_return_status);
2223: END IF;
2224:
2225: -- check the API call return status
2254: FETCH part_change_dtls_csr INTO l_removed_instance_id, l_part_change_type;
2255: CLOSE part_change_dtls_csr;
2256: IF (l_removed_instance_id = p_x_disposition_rec.instance_id AND -- Removed instance is the Disposition instance
2257: NVL(l_part_change_type, 'X') IN ('R', 'S')) THEN -- Removal or Swap
2258: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2259: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator with ' ||
2260: ' part change id = ' || p_x_disposition_rec.part_change_id ||
2261: ' and disposition_id = ' || p_x_disposition_rec.disposition_id);
2262: END IF;
2255: CLOSE part_change_dtls_csr;
2256: IF (l_removed_instance_id = p_x_disposition_rec.instance_id AND -- Removed instance is the Disposition instance
2257: NVL(l_part_change_type, 'X') IN ('R', 'S')) THEN -- Removal or Swap
2258: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2259: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator with ' ||
2260: ' part change id = ' || p_x_disposition_rec.part_change_id ||
2261: ' and disposition_id = ' || p_x_disposition_rec.disposition_id);
2262: END IF;
2263: AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator(p_part_change_id => p_x_disposition_rec.part_change_id,
2265: x_return_status => x_return_status,
2266: x_msg_data => x_msg_data,
2267: x_msg_count => x_msg_count,
2268: x_ahl_mtltxn_rec => l_ahl_mtltxn_rec);
2269: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2270: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator: ' ||
2271: ' x_return_status = ' || x_return_status);
2272: END IF;
2273: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2266: x_msg_data => x_msg_data,
2267: x_msg_count => x_msg_count,
2268: x_ahl_mtltxn_rec => l_ahl_mtltxn_rec);
2269: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2270: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator: ' ||
2271: ' x_return_status = ' || x_return_status);
2272: END IF;
2273: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2274: RAISE FND_API.G_EXC_ERROR;
2278: END IF;
2279: END IF;
2280:
2281: --dbms_output.put_line(SubStr('Update_disp:After insert history', 1, 255));
2282: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2283: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2284: END IF;
2285:
2286: END UPDATE_DISPOSITION;
2279: END IF;
2280:
2281: --dbms_output.put_line(SubStr('Update_disp:After insert history', 1, 255));
2282: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2283: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
2284: END IF;
2285:
2286: END UPDATE_DISPOSITION;
2287:
2326: l_inst_in_job_flag VARCHAR2(1) := 'N';
2327: l_removed_instance_id NUMBER;
2328: BEGIN
2329:
2330: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2331: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2332: END IF;
2333:
2334: -- Initialize message list if p_init_msg_list is set to TRUE
2327: l_removed_instance_id NUMBER;
2328: BEGIN
2329:
2330: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2331: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2332: END IF;
2333:
2334: -- Initialize message list if p_init_msg_list is set to TRUE
2335: IF FND_API.To_Boolean( p_init_msg_list)
2381: --dbms_output.put_line('l_sr_task_tbl(0).Operation_type: '|| l_sr_task_tbl(0).Operation_type);
2382: --dbms_output.put_line('l_sr_task_tbl(0).Severity_id: '|| l_sr_task_tbl(0).Severity_id);
2383: --dbms_output.put_line('l_sr_task_tbl(0).source_program_code: '|| l_sr_task_tbl(0).source_program_code);
2384:
2385: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2386: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
2387: '--Request_date: '|| l_sr_task_tbl(0).Request_date
2388: || '--Summary: '|| l_sr_task_tbl(0).Summary
2389: || '--Instance_id: '|| l_sr_task_tbl(0).Instance_id
2382: --dbms_output.put_line('l_sr_task_tbl(0).Severity_id: '|| l_sr_task_tbl(0).Severity_id);
2383: --dbms_output.put_line('l_sr_task_tbl(0).source_program_code: '|| l_sr_task_tbl(0).source_program_code);
2384:
2385: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2386: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
2387: '--Request_date: '|| l_sr_task_tbl(0).Request_date
2388: || '--Summary: '|| l_sr_task_tbl(0).Summary
2389: || '--Instance_id: '|| l_sr_task_tbl(0).Instance_id
2390: || '--Problem_code: '|| l_sr_task_tbl(0).Problem_code
2432: l_sr_task_tbl(0).resolution_code := p_disposition_rec.resolution_code;
2433: l_sr_task_tbl(0).resolution_meaning := p_disposition_rec.resolution_meaning;
2434:
2435: --Calling Service Request API--
2436: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2437: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before process_nonroutine_job');
2438: END IF;
2439: AHL_PRD_NONROUTINE_PVT.process_nonroutine_job (
2440: p_api_version => 1.0,
2433: l_sr_task_tbl(0).resolution_meaning := p_disposition_rec.resolution_meaning;
2434:
2435: --Calling Service Request API--
2436: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2437: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before process_nonroutine_job');
2438: END IF;
2439: AHL_PRD_NONROUTINE_PVT.process_nonroutine_job (
2440: p_api_version => 1.0,
2441: p_commit => Fnd_Api.g_false,
2447: -- Parameter added by jaramana on Oct 9, 2007 for ER 5883257
2448: p_x_mr_asso_tbl => l_mr_asso_tbl
2449: );
2450:
2451: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2452: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After process non_nonroutine_job'
2453: || '-- x_return_status = '||x_return_status || '| x_msg_count = '||TO_CHAR(x_msg_count));
2454: END IF;
2455:
2448: p_x_mr_asso_tbl => l_mr_asso_tbl
2449: );
2450:
2451: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2452: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After process non_nonroutine_job'
2453: || '-- x_return_status = '||x_return_status || '| x_msg_count = '||TO_CHAR(x_msg_count));
2454: END IF;
2455:
2456:
2468: p_msg_index_out => l_msg_index_out );
2469: --dbms_output.put_line(SubStr('x_msg_data = '||x_msg_data,1,255));
2470: END LOOP;
2471:
2472: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2473: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Incident id: ' ||l_sr_task_tbl(0).incident_id);
2474: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Nonroutine_wo_id: ' ||l_sr_task_tbl(0).Nonroutine_wo_id);
2475: END IF;
2476: --dbms_output.put_line('Incident_id: ' || l_sr_task_tbl(0).incident_id);
2469: --dbms_output.put_line(SubStr('x_msg_data = '||x_msg_data,1,255));
2470: END LOOP;
2471:
2472: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2473: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Incident id: ' ||l_sr_task_tbl(0).incident_id);
2474: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Nonroutine_wo_id: ' ||l_sr_task_tbl(0).Nonroutine_wo_id);
2475: END IF;
2476: --dbms_output.put_line('Incident_id: ' || l_sr_task_tbl(0).incident_id);
2477: --dbms_output.put_line('Nonroutine_wo_id: ' || l_sr_task_tbl(0).Nonroutine_wo_id);
2470: END LOOP;
2471:
2472: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2473: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Incident id: ' ||l_sr_task_tbl(0).incident_id);
2474: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Nonroutine_wo_id: ' ||l_sr_task_tbl(0).Nonroutine_wo_id);
2475: END IF;
2476: --dbms_output.put_line('Incident_id: ' || l_sr_task_tbl(0).incident_id);
2477: --dbms_output.put_line('Nonroutine_wo_id: ' || l_sr_task_tbl(0).Nonroutine_wo_id);
2478:
2493: -- now be handled in the API AHL_PRD_NONROUTINE_PVT.process_nonroutine_job.
2494: /*
2495: -- Added by jaramana on October 8, 2007 for ER 5903256
2496: -- Automatically change the location of the removed unserviceable instance to the Non Routine Work Order
2497: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2498: 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);
2499: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_disposition_rec.part_change_id: ' || p_disposition_rec.part_change_id);
2500: END IF;
2501: IF (l_sr_task_tbl(0).Nonroutine_wo_id IS NOT NULL AND
2494: /*
2495: -- Added by jaramana on October 8, 2007 for ER 5903256
2496: -- Automatically change the location of the removed unserviceable instance to the Non Routine Work Order
2497: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2498: 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);
2499: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_disposition_rec.part_change_id: ' || p_disposition_rec.part_change_id);
2500: END IF;
2501: IF (l_sr_task_tbl(0).Nonroutine_wo_id IS NOT NULL AND
2502: p_disposition_rec.part_change_id IS NOT NULL) THEN
2495: -- Added by jaramana on October 8, 2007 for ER 5903256
2496: -- Automatically change the location of the removed unserviceable instance to the Non Routine Work Order
2497: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2498: 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);
2499: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_disposition_rec.part_change_id: ' || p_disposition_rec.part_change_id);
2500: END IF;
2501: IF (l_sr_task_tbl(0).Nonroutine_wo_id IS NOT NULL AND
2502: p_disposition_rec.part_change_id IS NOT NULL) THEN
2503: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2499: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_disposition_rec.part_change_id: ' || p_disposition_rec.part_change_id);
2500: END IF;
2501: IF (l_sr_task_tbl(0).Nonroutine_wo_id IS NOT NULL AND
2502: p_disposition_rec.part_change_id IS NOT NULL) THEN
2503: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2504: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call update_item_location.');
2505: END IF;
2506: update_item_location(p_workorder_id => l_sr_task_tbl(0).Nonroutine_wo_id,
2507: p_instance_id => p_disposition_rec.instance_id,
2500: END IF;
2501: IF (l_sr_task_tbl(0).Nonroutine_wo_id IS NOT NULL AND
2502: p_disposition_rec.part_change_id IS NOT NULL) THEN
2503: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2504: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call update_item_location.');
2505: END IF;
2506: update_item_location(p_workorder_id => l_sr_task_tbl(0).Nonroutine_wo_id,
2507: p_instance_id => p_disposition_rec.instance_id,
2508: x_return_status => x_return_status);
2505: END IF;
2506: update_item_location(p_workorder_id => l_sr_task_tbl(0).Nonroutine_wo_id,
2507: p_instance_id => p_disposition_rec.instance_id,
2508: x_return_status => x_return_status);
2509: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2510: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from update_item_location. x_return_status = ' || x_return_status);
2511: END IF;
2512: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2513: RAISE FND_API.G_EXC_ERROR;
2506: update_item_location(p_workorder_id => l_sr_task_tbl(0).Nonroutine_wo_id,
2507: p_instance_id => p_disposition_rec.instance_id,
2508: x_return_status => x_return_status);
2509: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2510: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from update_item_location. x_return_status = ' || x_return_status);
2511: END IF;
2512: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2513: RAISE FND_API.G_EXC_ERROR;
2514: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2517: END IF;
2518: -- End changes for ER 5903256
2519: */
2520:
2521: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2522: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2523: END IF;
2524: --dbms_output.put_line('End Create SR -----------------------------');
2525: END Create_SR;
2518: -- End changes for ER 5903256
2519: */
2520:
2521: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2522: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2523: END IF;
2524: --dbms_output.put_line('End Create SR -----------------------------');
2525: END Create_SR;
2526:
2574: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || 'derive_columns';
2575:
2576: BEGIN
2577:
2578: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2579: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2580: END IF;
2581: --dbms_output.put_line(SubStr('Begin Derive Column', 1, 255));
2582:
2575:
2576: BEGIN
2577:
2578: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2579: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2580: END IF;
2581: --dbms_output.put_line(SubStr('Begin Derive Column', 1, 255));
2582:
2583:
2619: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2621: END IF;
2622:
2623: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2624: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'derived Position Instance_id: ' || p_x_disposition_rec.instance_id);
2625: END IF;
2626: --dbms_output.put_line(SubStr('derived Position Instance_id: ' || p_x_disposition_rec.instance_id, 1, 255));
2627: END IF;
2620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2621: END IF;
2622:
2623: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2624: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'derived Position Instance_id: ' || p_x_disposition_rec.instance_id);
2625: END IF;
2626: --dbms_output.put_line(SubStr('derived Position Instance_id: ' || p_x_disposition_rec.instance_id, 1, 255));
2627: END IF;
2628: -- Added by jaramana on June 23, 2006 to fix Bug 5205851
2630: IF (p_x_disposition_rec.instance_id IS NULL AND p_x_disposition_rec.part_change_id IS NOT NULL) THEN
2631: -- Disposition being created from Part Change UI for installing to an Empty position
2632: -- Default the condition of the Disposition to Serviceable if not already set
2633: IF (p_x_disposition_rec.condition_id IS NULL) THEN
2634: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2635: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Defaulting Condition to ' || fnd_profile.value('AHL_MTL_MAT_STATUS_SERVICABLE'));
2636: END IF;
2637: p_x_disposition_rec.condition_id := fnd_profile.value('AHL_MTL_MAT_STATUS_SERVICABLE');
2638: IF (p_x_disposition_rec.condition_id IS NULL) THEN
2631: -- Disposition being created from Part Change UI for installing to an Empty position
2632: -- Default the condition of the Disposition to Serviceable if not already set
2633: IF (p_x_disposition_rec.condition_id IS NULL) THEN
2634: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2635: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Defaulting Condition to ' || fnd_profile.value('AHL_MTL_MAT_STATUS_SERVICABLE'));
2636: END IF;
2637: p_x_disposition_rec.condition_id := fnd_profile.value('AHL_MTL_MAT_STATUS_SERVICABLE');
2638: IF (p_x_disposition_rec.condition_id IS NULL) THEN
2639: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2635: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Defaulting Condition to ' || fnd_profile.value('AHL_MTL_MAT_STATUS_SERVICABLE'));
2636: END IF;
2637: p_x_disposition_rec.condition_id := fnd_profile.value('AHL_MTL_MAT_STATUS_SERVICABLE');
2638: IF (p_x_disposition_rec.condition_id IS NULL) THEN
2639: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2640: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Profile AHL_MTL_MAT_STATUS_SERVICABLE not set. Unable to derive Default Condition.');
2641: END IF;
2642: -- Raise an Exception
2643: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_SVC_COND_PRF_NOT_SET');
2636: END IF;
2637: p_x_disposition_rec.condition_id := fnd_profile.value('AHL_MTL_MAT_STATUS_SERVICABLE');
2638: IF (p_x_disposition_rec.condition_id IS NULL) THEN
2639: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2640: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Profile AHL_MTL_MAT_STATUS_SERVICABLE not set. Unable to derive Default Condition.');
2641: END IF;
2642: -- Raise an Exception
2643: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_SVC_COND_PRF_NOT_SET');
2644: FND_MSG_PUB.ADD;
2654: p_x_disposition_rec.part_change_id IS NOT NULL AND
2655: p_x_disposition_rec.condition_id IS NULL) THEN
2656: -- Install of an Instance to an IB Tree from the Part Change UI with creation of
2657: -- a new Disposition: Default the condition to Serviceable
2658: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2659: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Defaulting Condition to ' || fnd_profile.value('AHL_MTL_MAT_STATUS_SERVICABLE'));
2660: END IF;
2661: p_x_disposition_rec.condition_id := fnd_profile.value('AHL_MTL_MAT_STATUS_SERVICABLE');
2662: IF (p_x_disposition_rec.condition_id IS NULL) THEN
2655: p_x_disposition_rec.condition_id IS NULL) THEN
2656: -- Install of an Instance to an IB Tree from the Part Change UI with creation of
2657: -- a new Disposition: Default the condition to Serviceable
2658: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2659: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Defaulting Condition to ' || fnd_profile.value('AHL_MTL_MAT_STATUS_SERVICABLE'));
2660: END IF;
2661: p_x_disposition_rec.condition_id := fnd_profile.value('AHL_MTL_MAT_STATUS_SERVICABLE');
2662: IF (p_x_disposition_rec.condition_id IS NULL) THEN
2663: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2659: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Defaulting Condition to ' || fnd_profile.value('AHL_MTL_MAT_STATUS_SERVICABLE'));
2660: END IF;
2661: p_x_disposition_rec.condition_id := fnd_profile.value('AHL_MTL_MAT_STATUS_SERVICABLE');
2662: IF (p_x_disposition_rec.condition_id IS NULL) THEN
2663: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2664: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Profile AHL_MTL_MAT_STATUS_SERVICABLE not set. Unable to derive Default Condition.');
2665: END IF;
2666: -- Raise an Exception
2667: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_SVC_COND_PRF_NOT_SET');
2660: END IF;
2661: p_x_disposition_rec.condition_id := fnd_profile.value('AHL_MTL_MAT_STATUS_SERVICABLE');
2662: IF (p_x_disposition_rec.condition_id IS NULL) THEN
2663: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2664: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Profile AHL_MTL_MAT_STATUS_SERVICABLE not set. Unable to derive Default Condition.');
2665: END IF;
2666: -- Raise an Exception
2667: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_SVC_COND_PRF_NOT_SET');
2668: FND_MSG_PUB.ADD;
2687: p_x_disposition_rec.lot_number);
2688: FETCH get_instance_from_lot INTO p_x_disposition_rec.instance_id;
2689: CLOSE get_instance_from_lot;
2690: END IF;
2691: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2692: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'derived instance: ' || p_x_disposition_rec.instance_id);
2693: END IF;
2694: --dbms_output.put_line(SubStr('derived instance: ' || p_x_disposition_rec.instance_id, 1, 255));
2695: END IF;
2688: FETCH get_instance_from_lot INTO p_x_disposition_rec.instance_id;
2689: CLOSE get_instance_from_lot;
2690: END IF;
2691: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2692: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'derived instance: ' || p_x_disposition_rec.instance_id);
2693: END IF;
2694: --dbms_output.put_line(SubStr('derived instance: ' || p_x_disposition_rec.instance_id, 1, 255));
2695: END IF;
2696:
2703: l_derived_org_id := nvl(instance_rec.last_vld_organization_id, instance_rec.inv_master_organization_id); --derive organization from instance
2704: IF p_x_disposition_rec.inventory_item_id IS NULL THEN
2705: p_x_disposition_rec.inventory_item_id := instance_rec.inventory_item_id;
2706:
2707: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2708: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'derived item_id ' || instance_rec.inventory_item_id);
2709: END IF;
2710: --dbms_output.put_line(SubStr('derived item_id ' || instance_rec.inventory_item_id, 1, 255));
2711: END IF;
2704: IF p_x_disposition_rec.inventory_item_id IS NULL THEN
2705: p_x_disposition_rec.inventory_item_id := instance_rec.inventory_item_id;
2706:
2707: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2708: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'derived item_id ' || instance_rec.inventory_item_id);
2709: END IF;
2710: --dbms_output.put_line(SubStr('derived item_id ' || instance_rec.inventory_item_id, 1, 255));
2711: END IF;
2712: IF p_x_disposition_rec.quantity IS NULL THEN
2710: --dbms_output.put_line(SubStr('derived item_id ' || instance_rec.inventory_item_id, 1, 255));
2711: END IF;
2712: IF p_x_disposition_rec.quantity IS NULL THEN
2713: p_x_disposition_rec.quantity := instance_rec.quantity;
2714: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2715: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'derived quantity ' || instance_rec.quantity);
2716: END IF;
2717: --dbms_output.put_line(SubStr('derived quantity ' || instance_rec.quantity, 1, 255));
2718: END IF;
2711: END IF;
2712: IF p_x_disposition_rec.quantity IS NULL THEN
2713: p_x_disposition_rec.quantity := instance_rec.quantity;
2714: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2715: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'derived quantity ' || instance_rec.quantity);
2716: END IF;
2717: --dbms_output.put_line(SubStr('derived quantity ' || instance_rec.quantity, 1, 255));
2718: END IF;
2719: IF p_x_disposition_rec.uom IS NULL THEN
2717: --dbms_output.put_line(SubStr('derived quantity ' || instance_rec.quantity, 1, 255));
2718: END IF;
2719: IF p_x_disposition_rec.uom IS NULL THEN
2720: p_x_disposition_rec.uom := instance_rec.unit_of_measure;
2721: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2722: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'derived uom ' || instance_rec.unit_of_measure);
2723: END IF;
2724: --dbms_output.put_line(SubStr('derived uom ' || instance_rec.unit_of_measure, 1, 255));
2725: END IF;
2718: END IF;
2719: IF p_x_disposition_rec.uom IS NULL THEN
2720: p_x_disposition_rec.uom := instance_rec.unit_of_measure;
2721: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2722: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'derived uom ' || instance_rec.unit_of_measure);
2723: END IF;
2724: --dbms_output.put_line(SubStr('derived uom ' || instance_rec.unit_of_measure, 1, 255));
2725: END IF;
2726:
2726:
2727: --Jerry added on 10/04/05 for fixing an internal bug found by Shailaja/Vadim
2728: IF p_x_disposition_rec.serial_number IS NULL THEN
2729: p_x_disposition_rec.serial_number:= instance_rec.serial_number;
2730: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2731: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'derived serial_number ' || instance_rec.serial_number);
2732: END IF;
2733: END IF;
2734:
2727: --Jerry added on 10/04/05 for fixing an internal bug found by Shailaja/Vadim
2728: IF p_x_disposition_rec.serial_number IS NULL THEN
2729: p_x_disposition_rec.serial_number:= instance_rec.serial_number;
2730: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2731: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'derived serial_number ' || instance_rec.serial_number);
2732: END IF;
2733: END IF;
2734:
2735: IF p_x_disposition_rec.lot_number IS NULL THEN
2733: END IF;
2734:
2735: IF p_x_disposition_rec.lot_number IS NULL THEN
2736: p_x_disposition_rec.lot_number:= instance_rec.lot_number;
2737: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2738: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'derived lot_number ' || instance_rec.lot_number);
2739: END IF;
2740: END IF;
2741:
2734:
2735: IF p_x_disposition_rec.lot_number IS NULL THEN
2736: p_x_disposition_rec.lot_number:= instance_rec.lot_number;
2737: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2738: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'derived lot_number ' || instance_rec.lot_number);
2739: END IF;
2740: END IF;
2741:
2742: IF p_x_disposition_rec.item_revision IS NULL THEN
2740: END IF;
2741:
2742: IF p_x_disposition_rec.item_revision IS NULL THEN
2743: p_x_disposition_rec.item_revision := instance_rec.inventory_revision;
2744: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2745: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'derived item_revision ' || instance_rec.inventory_revision);
2746: END IF;
2747: END IF;
2748: --Jerry's change finishes here
2741:
2742: IF p_x_disposition_rec.item_revision IS NULL THEN
2743: p_x_disposition_rec.item_revision := instance_rec.inventory_revision;
2744: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2745: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'derived item_revision ' || instance_rec.inventory_revision);
2746: END IF;
2747: END IF;
2748: --Jerry's change finishes here
2749:
2751: IF p_x_disposition_rec.path_position_id IS NULL THEN
2752:
2753: -- Updated by rbhavsar on 09/27/2007 for Bug 6411059
2754: -- START: Added IF statement to check if root node of the instance is in uc headers table
2755: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2756: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,' Before calling Map_Instance_To_Pos_ID ' || p_x_disposition_rec.path_position_id ||
2757: ' Instance id ' || p_x_disposition_rec.instance_id );
2758: END IF;
2759:
2752:
2753: -- Updated by rbhavsar on 09/27/2007 for Bug 6411059
2754: -- START: Added IF statement to check if root node of the instance is in uc headers table
2755: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2756: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,' Before calling Map_Instance_To_Pos_ID ' || p_x_disposition_rec.path_position_id ||
2757: ' Instance id ' || p_x_disposition_rec.instance_id );
2758: END IF;
2759:
2760: IF (root_node_in_uc_headers(p_x_disposition_rec.instance_id) = TRUE) THEN
2772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2773: END IF;
2774:
2775: p_x_disposition_rec.path_position_id := l_derived_path_pos_id;
2776: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2777: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'derived path_position_id ' || l_derived_path_pos_id);
2778: END IF;
2779:
2780: END IF; -- END: Updated by rbhavsar Bug 6411059
2773: END IF;
2774:
2775: p_x_disposition_rec.path_position_id := l_derived_path_pos_id;
2776: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2777: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'derived path_position_id ' || l_derived_path_pos_id);
2778: END IF;
2779:
2780: END IF; -- END: Updated by rbhavsar Bug 6411059
2781:
2786: --derive organizationid for item from workorder only if instance is null
2787: IF(p_x_disposition_rec.inventory_item_id IS NOT NULL AND p_x_disposition_rec.instance_id IS NULL) THEN
2788: OPEN get_organization_csr(p_x_disposition_rec.workorder_id);
2789: FETCH get_organization_csr INTO l_derived_org_id;
2790: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2791: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Derived Org: ' || p_x_disposition_rec.item_org_id);
2792: END IF;
2793: --dbms_output.put_line(SubStr('Derived Org: ' || p_x_disposition_rec.item_org_id, 1, 255));
2794: CLOSE get_organization_csr;
2787: IF(p_x_disposition_rec.inventory_item_id IS NOT NULL AND p_x_disposition_rec.instance_id IS NULL) THEN
2788: OPEN get_organization_csr(p_x_disposition_rec.workorder_id);
2789: FETCH get_organization_csr INTO l_derived_org_id;
2790: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2791: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Derived Org: ' || p_x_disposition_rec.item_org_id);
2792: END IF;
2793: --dbms_output.put_line(SubStr('Derived Org: ' || p_x_disposition_rec.item_org_id, 1, 255));
2794: CLOSE get_organization_csr;
2795: END IF;
2797: --assign derived organization id to disposition record's item_org_id
2798: --ignore organization id from user's input
2799: p_x_disposition_rec.item_org_id := l_derived_org_id;
2800:
2801: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2802: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2803: END IF;
2804: --dbms_output.put_line(SubStr('End Derive Column', 1, 255));
2805:
2798: --ignore organization id from user's input
2799: p_x_disposition_rec.item_org_id := l_derived_org_id;
2800:
2801: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2802: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2803: END IF;
2804: --dbms_output.put_line(SubStr('End Derive Column', 1, 255));
2805:
2806: END derive_columns;
2982: l_srl_flag VARCHAR2(1) := 'Y';
2983:
2984: BEGIN
2985:
2986: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2987: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2988: END IF;
2989: --dbms_output.put_line(SubStr('Begin Validate_For_Create', 1, 255));
2990:
2983:
2984: BEGIN
2985:
2986: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2987: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2988: END IF;
2989: --dbms_output.put_line(SubStr('Begin Validate_For_Create', 1, 255));
2990:
2991: --WORKORDER
3030: END IF;
3031:
3032: --PATH POSITION VALIDATION ---------------------------------
3033: IF (p_disposition_rec.path_position_id IS NOT NULL) THEN
3034: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3035: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check Path Position');
3036: END IF;
3037: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check Path Position ', 1, 255));
3038: --Check for valid path_position_id
3031:
3032: --PATH POSITION VALIDATION ---------------------------------
3033: IF (p_disposition_rec.path_position_id IS NOT NULL) THEN
3034: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3035: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check Path Position');
3036: END IF;
3037: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check Path Position ', 1, 255));
3038: --Check for valid path_position_id
3039: validate_path_position(p_disposition_rec.path_position_id);
3047: -- The chk_non_serialized_csr will not fetch results if item id is NULL.
3048: -- If item id is NULL, then this disposition is being created for empty position.
3049: -- Check for non-serialized position by calling the API AHL_MC_PATH_POSITION_PVT.Is_Position_Serial_Controlled
3050: IF (p_disposition_rec.inventory_item_id IS NULL) THEN
3051: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3052: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
3053: 'Before API AHL_MC_PATH_POSITION_PVT.Is_Position_Serial_Controlled call l_srl_flag => '||l_srl_flag);
3054: END IF;
3055:
3048: -- If item id is NULL, then this disposition is being created for empty position.
3049: -- Check for non-serialized position by calling the API AHL_MC_PATH_POSITION_PVT.Is_Position_Serial_Controlled
3050: IF (p_disposition_rec.inventory_item_id IS NULL) THEN
3051: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3052: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
3053: 'Before API AHL_MC_PATH_POSITION_PVT.Is_Position_Serial_Controlled call l_srl_flag => '||l_srl_flag);
3054: END IF;
3055:
3056: l_srl_flag := AHL_MC_PATH_POSITION_PVT.Is_Position_Serial_Controlled(
3057: NULL,
3058: p_disposition_rec.path_position_id
3059: );
3060:
3061: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3062: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
3063: 'After API AHL_MC_PATH_POSITION_PVT.Is_Position_Serial_Controlled call l_srl_flag => '||l_srl_flag);
3064: END IF;
3065: END IF;
3058: p_disposition_rec.path_position_id
3059: );
3060:
3061: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3062: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
3063: 'After API AHL_MC_PATH_POSITION_PVT.Is_Position_Serial_Controlled call l_srl_flag => '||l_srl_flag);
3064: END IF;
3065: END IF;
3066:
3084: FND_MSG_PUB.ADD;
3085: RAISE FND_API.G_EXC_ERROR;
3086: END IF;
3087:
3088: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3089: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'About to call AHL_MC_PATH_POSITION_PVT.Get_Pos_Instance with ' ||
3090: ' p_position_id = ' || p_disposition_rec.path_position_id ||
3091: ', p_csi_item_instance_id = ' || l_unit_instance_id);
3092: END IF;
3085: RAISE FND_API.G_EXC_ERROR;
3086: END IF;
3087:
3088: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3089: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'About to call AHL_MC_PATH_POSITION_PVT.Get_Pos_Instance with ' ||
3090: ' p_position_id = ' || p_disposition_rec.path_position_id ||
3091: ', p_csi_item_instance_id = ' || l_unit_instance_id);
3092: END IF;
3093:
3104: x_lowest_uc_csi_id => l_dummy_lowest_uc_id,
3105: x_mapping_status => l_mapping_status
3106: );
3107:
3108: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3109: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'Returned from call to AHL_MC_PATH_POSITION_PVT.Get_Pos_Instance: ' ||
3110: ' x_return_status ' || l_return_status ||
3111: ', x_parent_instance_id ' || l_parent_instance_id ||
3112: ', x_mapping_status = ' || l_mapping_status);
3105: x_mapping_status => l_mapping_status
3106: );
3107:
3108: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3109: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'Returned from call to AHL_MC_PATH_POSITION_PVT.Get_Pos_Instance: ' ||
3110: ' x_return_status ' || l_return_status ||
3111: ', x_parent_instance_id ' || l_parent_instance_id ||
3112: ', x_mapping_status = ' || l_mapping_status);
3113: END IF;
3173:
3174: --get root instance for the empty position parent instance
3175: l_dis_root_instance_id := get_root_instance_id(l_parent_instance_id);
3176:
3177: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3178: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_wo_instance_id = ' || l_wo_instance_id ||
3179: ', l_wo_root_instance_id = ' || l_wo_root_instance_id ||
3180: ', l_parent_instance_id = ' || l_parent_instance_id ||
3181: ', l_dis_root_instance_id = ' || l_dis_root_instance_id);
3174: --get root instance for the empty position parent instance
3175: l_dis_root_instance_id := get_root_instance_id(l_parent_instance_id);
3176:
3177: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3178: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_wo_instance_id = ' || l_wo_instance_id ||
3179: ', l_wo_root_instance_id = ' || l_wo_root_instance_id ||
3180: ', l_parent_instance_id = ' || l_parent_instance_id ||
3181: ', l_dis_root_instance_id = ' || l_dis_root_instance_id);
3182: END IF;
3228: --ITEM ---------------------------------
3229:
3230: IF(p_disposition_rec.inventory_item_id IS NOT NULL) THEN
3231: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check ITem ', 1, 255));
3232: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3233: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check Check Item');
3234: END IF;
3235: IF (l_position_empty = TRUE) THEN
3236: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_POS_EMPTY_NO_ITM'); --Item does not belong to the item group
3229:
3230: IF(p_disposition_rec.inventory_item_id IS NOT NULL) THEN
3231: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check ITem ', 1, 255));
3232: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3233: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check Check Item');
3234: END IF;
3235: IF (l_position_empty = TRUE) THEN
3236: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_POS_EMPTY_NO_ITM'); --Item does not belong to the item group
3237: FND_MSG_PUB.ADD;
3240: validate_item(p_disposition_rec.inventory_item_id, p_disposition_rec.item_org_id, p_disposition_rec.workorder_id);
3241:
3242: --item group exist requires item to exist
3243: IF(p_disposition_rec.item_group_id IS NOT NULL) THEN
3244: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3245: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check ITem and item group relation');
3246: END IF;
3247: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check ITem and item group relation ', 1, 255));
3248: OPEN item_in_itemgrp_csr( p_disposition_rec.inventory_item_id, p_disposition_rec.item_group_id);
3241:
3242: --item group exist requires item to exist
3243: IF(p_disposition_rec.item_group_id IS NOT NULL) THEN
3244: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3245: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check ITem and item group relation');
3246: END IF;
3247: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check ITem and item group relation ', 1, 255));
3248: OPEN item_in_itemgrp_csr( p_disposition_rec.inventory_item_id, p_disposition_rec.item_group_id);
3249: FETCH item_in_itemgrp_csr INTO l_exist;
3277: END IF; -- item id is not null
3278:
3279: --ITEM GROUP-----------------------------
3280: IF(p_disposition_rec.item_group_id IS NOT NULL) THEN
3281: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3282: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check ITem group ');
3283: END IF;
3284: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check ITem Group ', 1, 255));
3285: OPEN val_item_group_csr(p_disposition_rec.item_group_id);
3278:
3279: --ITEM GROUP-----------------------------
3280: IF(p_disposition_rec.item_group_id IS NOT NULL) THEN
3281: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3282: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check ITem group ');
3283: END IF;
3284: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check ITem Group ', 1, 255));
3285: OPEN val_item_group_csr(p_disposition_rec.item_group_id);
3286: FETCH val_item_group_csr INTO l_exist;
3302: END IF; -- item_group_id is not null
3303:
3304: --INSTANCE-----------------------------
3305: IF(p_disposition_rec.instance_id IS NOT NULL) THEN
3306: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3307: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check Instance_id');
3308: END IF;
3309: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check Instance Number', 1, 255));
3310: validate_instance(p_disposition_rec.instance_id,
3303:
3304: --INSTANCE-----------------------------
3305: IF(p_disposition_rec.instance_id IS NOT NULL) THEN
3306: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3307: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check Instance_id');
3308: END IF;
3309: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check Instance Number', 1, 255));
3310: validate_instance(p_disposition_rec.instance_id,
3311: p_disposition_rec.workorder_id,
3327: END IF;
3328:
3329: --LOT NUMBER----------------------------------
3330: IF(p_disposition_rec.lot_number IS NOT NULL) THEN
3331: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3332: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check Lot_number');
3333: END IF;
3334: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check Lot Number', 1, 255));
3335: IF(p_disposition_rec.inventory_item_id IS NULL) THEN
3328:
3329: --LOT NUMBER----------------------------------
3330: IF(p_disposition_rec.lot_number IS NOT NULL) THEN
3331: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3332: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check Lot_number');
3333: END IF;
3334: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check Lot Number', 1, 255));
3335: IF(p_disposition_rec.inventory_item_id IS NULL) THEN
3336: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REQ'); -- Item number is required
3347: END IF;
3348:
3349: --SERIAL NUMBER -----------------------------------
3350: IF(p_disposition_rec.serial_number IS NOT NULL) THEN
3351: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3352: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check Serial_Number');
3353: END IF;
3354: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check Serial Number', 1, 255));
3355: IF(p_disposition_rec.inventory_item_id IS NULL) THEN
3348:
3349: --SERIAL NUMBER -----------------------------------
3350: IF(p_disposition_rec.serial_number IS NOT NULL) THEN
3351: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3352: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check Serial_Number');
3353: END IF;
3354: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check Serial Number', 1, 255));
3355: IF(p_disposition_rec.inventory_item_id IS NULL) THEN
3356: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check Serial Number--check item is null', 1, 255));
3490: IF FND_MSG_PUB.count_msg > 0 THEN
3491: RAISE FND_API.G_EXC_ERROR;
3492: END IF;
3493:
3494: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3495: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
3496: END IF;
3497:
3498: --dbms_output.put_line(SubStr('End Validate_For_Create', 1, 255));
3491: RAISE FND_API.G_EXC_ERROR;
3492: END IF;
3493:
3494: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3495: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
3496: END IF;
3497:
3498: --dbms_output.put_line(SubStr('End Validate_For_Create', 1, 255));
3499: END validate_for_create;
3555: l_instance_id NUMBER;
3556: l_item_group_id NUMBER;
3557: BEGIN
3558:
3559: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3560: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
3561: END IF;
3562: --dbms_output.put_line(SubStr('Begin Convert_val_to_id', 1, 255));
3563: 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
3556: l_item_group_id NUMBER;
3557: BEGIN
3558:
3559: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3560: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
3561: END IF;
3562: --dbms_output.put_line(SubStr('Begin Convert_val_to_id', 1, 255));
3563: 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
3564: OPEN instance_id_csr(p_x_prd_disposition_rec.instance_number);
3585: ELSIF(p_x_prd_disposition_rec.item_group_name = FND_API.G_MISS_CHAR) THEN
3586: p_x_prd_disposition_rec.item_group_id := NULL;
3587: END IF;
3588:
3589: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3590: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before convert Item Number: ' ||p_x_prd_disposition_rec.item_number);
3591: END IF;
3592: --dbms_output.put_line(SubStr('convert Item Number', 1, 255));
3593: 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
3586: p_x_prd_disposition_rec.item_group_id := NULL;
3587: END IF;
3588:
3589: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3590: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before convert Item Number: ' ||p_x_prd_disposition_rec.item_number);
3591: END IF;
3592: --dbms_output.put_line(SubStr('convert Item Number', 1, 255));
3593: 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
3594: OPEN item_id_csr(p_x_prd_disposition_rec.item_number);
3654: ELSIF(p_x_prd_disposition_rec.problem_meaning = FND_API.G_MISS_CHAR) THEN
3655: p_x_prd_disposition_rec.problem_code := NULL;
3656: END IF;
3657:
3658: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3659: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
3660: END IF;
3661:
3662:
3655: p_x_prd_disposition_rec.problem_code := NULL;
3656: END IF;
3657:
3658: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3659: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
3660: END IF;
3661:
3662:
3663: --dbms_output.put_line(SubStr('End Convert_val_to_id', 1, 255));
3966: l_dis_root_instance_id := get_root_instance_id(p_instance_id);
3967:
3968: IF nvl(l_wo_root_instance_id, -1) <> nvl(l_dis_root_instance_id, -1) THEN
3969: --dbms_output.put_line(' before throw the error root instance are not the same');
3970: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3971: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_wo_instance_id:' || l_wo_instance_id);
3972: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_wo_root_instance_id:' || l_wo_root_instance_id);
3973: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_dis_root_instance_id:' || l_dis_root_instance_id);
3974: END IF;
3967:
3968: IF nvl(l_wo_root_instance_id, -1) <> nvl(l_dis_root_instance_id, -1) THEN
3969: --dbms_output.put_line(' before throw the error root instance are not the same');
3970: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3971: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_wo_instance_id:' || l_wo_instance_id);
3972: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_wo_root_instance_id:' || l_wo_root_instance_id);
3973: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_dis_root_instance_id:' || l_dis_root_instance_id);
3974: END IF;
3975: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INST_IN_UC'); -- Instance is not in the same unit as workorder instance
3968: IF nvl(l_wo_root_instance_id, -1) <> nvl(l_dis_root_instance_id, -1) THEN
3969: --dbms_output.put_line(' before throw the error root instance are not the same');
3970: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3971: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_wo_instance_id:' || l_wo_instance_id);
3972: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_wo_root_instance_id:' || l_wo_root_instance_id);
3973: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_dis_root_instance_id:' || l_dis_root_instance_id);
3974: END IF;
3975: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INST_IN_UC'); -- Instance is not in the same unit as workorder instance
3976: FND_MSG_PUB.ADD;
3969: --dbms_output.put_line(' before throw the error root instance are not the same');
3970: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3971: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_wo_instance_id:' || l_wo_instance_id);
3972: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_wo_root_instance_id:' || l_wo_root_instance_id);
3973: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_dis_root_instance_id:' || l_dis_root_instance_id);
3974: END IF;
3975: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INST_IN_UC'); -- Instance is not in the same unit as workorder instance
3976: FND_MSG_PUB.ADD;
3977: RAISE FND_API.G_EXC_ERROR;
3978: END IF; -- Root Instances are not the same
3979: END IF; -- l_wo_instance_id <> p_instance_id
3980: END IF; -- p_part_change_id is null
3981: ELSE --then it is a stand alone instance need to check if instance is issued to the job
3982: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3983: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Stand alone instance');
3984: END IF;
3985: -- Following lines commented out by jaramana on August 8, 2007
3986: -- In the case of IB Tree, it does not make sense to force the instance to be in the job.
3979: END IF; -- l_wo_instance_id <> p_instance_id
3980: END IF; -- p_part_change_id is null
3981: ELSE --then it is a stand alone instance need to check if instance is issued to the job
3982: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3983: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Stand alone instance');
3984: END IF;
3985: -- Following lines commented out by jaramana on August 8, 2007
3986: -- In the case of IB Tree, it does not make sense to force the instance to be in the job.
3987: -- The instance may be currently installed on the IB Tree and creation of Disposition should be
4053: l_part_change_quantity NUMBER;
4054: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || 'validate_part_change';
4055:
4056: BEGIN
4057: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4058: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4059: L_DEBUG_KEY || '.begin ',
4060: 'At the start of the procedure.' ||
4061: ' ,p_part_change_id = ' || p_part_change_id ||
4054: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || 'validate_part_change';
4055:
4056: BEGIN
4057: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4058: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4059: L_DEBUG_KEY || '.begin ',
4060: 'At the start of the procedure.' ||
4061: ' ,p_part_change_id = ' || p_part_change_id ||
4062: ' ,p_disp_instance_id = ' || p_disp_instance_id ||
4096: CLOSE get_inst_dtls_csr;
4097:
4098: IF (l_disp_inst_dtls.inventory_item_id <> l_rem_inst_dtls.inventory_item_id OR
4099: nvl(p_disp_quantity,l_part_change_quantity) <> l_part_change_quantity) THEN
4100: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4101: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'validate part change non serial item' ||
4102: ', l_disp_inst_dtls.inventory_item_i ' || l_disp_inst_dtls.inventory_item_id ||
4103: ', l_rem_inst_dtls.inventory_item_id ' || l_rem_inst_dtls.inventory_item_id ||
4104: ', p_disp_instance_id ' || p_disp_instance_id ||
4097:
4098: IF (l_disp_inst_dtls.inventory_item_id <> l_rem_inst_dtls.inventory_item_id OR
4099: nvl(p_disp_quantity,l_part_change_quantity) <> l_part_change_quantity) THEN
4100: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4101: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'validate part change non serial item' ||
4102: ', l_disp_inst_dtls.inventory_item_i ' || l_disp_inst_dtls.inventory_item_id ||
4103: ', l_rem_inst_dtls.inventory_item_id ' || l_rem_inst_dtls.inventory_item_id ||
4104: ', p_disp_instance_id ' || p_disp_instance_id ||
4105: ', p_removed_instance_id ' || l_removed_instance_id ||
4128: END IF; -- Part Change Found, and Part Change Type Check
4129: CLOSE part_change_csr;
4130: -- End Changes made by jaramana on August 07, 2007 for the bug 6328554 (FP of 5948917)
4131:
4132: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4133: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4134: L_DEBUG_KEY || '.end',
4135: 'At the end of the procedure ' );
4136: END IF;
4129: CLOSE part_change_csr;
4130: -- End Changes made by jaramana on August 07, 2007 for the bug 6328554 (FP of 5948917)
4131:
4132: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4133: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4134: L_DEBUG_KEY || '.end',
4135: 'At the end of the procedure ' );
4136: END IF;
4137: END validate_part_change;
4221:
4222: --
4223: BEGIN
4224:
4225: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4226: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4227: L_DEBUG_KEY || '.begin',
4228: 'At the start of the procedure. p_disposition_rec.disposition_id = ' || p_disposition_rec.disposition_id);
4229: END IF;
4222: --
4223: BEGIN
4224:
4225: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4226: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4227: L_DEBUG_KEY || '.begin',
4228: 'At the start of the procedure. p_disposition_rec.disposition_id = ' || p_disposition_rec.disposition_id);
4229: END IF;
4230:
4258: FETCH get_pos_mandatory INTO l_pos_mand_flag;
4259: CLOSE get_pos_mandatory;
4260: END IF;
4261:
4262: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4263: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_disposition_rec.immediate_disposition_code = ' || p_disposition_rec.immediate_disposition_code ||
4264: ', p_disposition_rec.instance_id = ' || p_disposition_rec.instance_id ||
4265: ', p_disposition_rec.part_change_id = ' || p_disposition_rec.part_change_id ||
4266: ', l_disp_dtl_rec.part_change_type = ' || l_disp_dtl_rec.part_change_type ||
4259: CLOSE get_pos_mandatory;
4260: END IF;
4261:
4262: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4263: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_disposition_rec.immediate_disposition_code = ' || p_disposition_rec.immediate_disposition_code ||
4264: ', p_disposition_rec.instance_id = ' || p_disposition_rec.instance_id ||
4265: ', p_disposition_rec.part_change_id = ' || p_disposition_rec.part_change_id ||
4266: ', l_disp_dtl_rec.part_change_type = ' || l_disp_dtl_rec.part_change_type ||
4267: ', l_disp_dtl_rec.trackable_flag = ' || l_disp_dtl_rec.trackable_flag);
4374: ELSE
4375: x_status_code := null;
4376: END IF;
4377:
4378: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4379: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4380: L_DEBUG_KEY || '.end',
4381: 'At the end of the procedure, x_status_code = ' || x_status_code);
4382: END IF;
4375: x_status_code := null;
4376: END IF;
4377:
4378: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4379: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4380: L_DEBUG_KEY || '.end',
4381: 'At the end of the procedure, x_status_code = ' || x_status_code);
4382: END IF;
4383:
4758: ELSE
4759: l_wo_instance_id := l_task_instance_id;
4760: END IF;
4761:
4762: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4763: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'For work order id ' || p_workorder_id || ', wo_instance_id = ' || l_wo_instance_id);
4764: END IF;
4765:
4766: -- Get the top most unit containing the wo instance
4759: l_wo_instance_id := l_task_instance_id;
4760: END IF;
4761:
4762: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4763: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'For work order id ' || p_workorder_id || ', wo_instance_id = ' || l_wo_instance_id);
4764: END IF;
4765:
4766: -- Get the top most unit containing the wo instance
4767: l_uc_header_id := AHL_UTIL_UC_PKG.get_uc_header_id(l_wo_instance_id);
4776: NULL;
4777: END IF;
4778: END IF;
4779:
4780: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4781: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'For work order id ' || p_workorder_id || ', uc_header_id = ' || l_uc_header_id);
4782: END IF;
4783:
4784: IF (l_uc_header_id IS NOT NULL) THEN
4777: END IF;
4778: END IF;
4779:
4780: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4781: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'For work order id ' || p_workorder_id || ', uc_header_id = ' || l_uc_header_id);
4782: END IF;
4783:
4784: IF (l_uc_header_id IS NOT NULL) THEN
4785: OPEN uc_header_instance_csr(l_uc_header_id);
4784: IF (l_uc_header_id IS NOT NULL) THEN
4785: OPEN uc_header_instance_csr(l_uc_header_id);
4786: FETCH uc_header_instance_csr INTO l_unit_instance_id;
4787: CLOSE uc_header_instance_csr;
4788: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4789: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'For work order id ' || p_workorder_id || ', unit_instance_id = ' || l_unit_instance_id);
4790: END IF;
4791: RETURN l_unit_instance_id;
4792: ELSE
4785: OPEN uc_header_instance_csr(l_uc_header_id);
4786: FETCH uc_header_instance_csr INTO l_unit_instance_id;
4787: CLOSE uc_header_instance_csr;
4788: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4789: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'For work order id ' || p_workorder_id || ', unit_instance_id = ' || l_unit_instance_id);
4790: END IF;
4791: RETURN l_unit_instance_id;
4792: ELSE
4793: -- IB Tree
4896: l_unit_instance_id NUMBER;
4897: l_api_name CONSTANT VARCHAR2(30) := 'root_node_in_uc_headers';
4898:
4899: BEGIN
4900: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4901: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4902: G_LOG_PREFIX||l_api_name||'.begin',
4903: 'At the start of the function: instance_id ='||p_instance_id);
4904: END IF;
4897: l_api_name CONSTANT VARCHAR2(30) := 'root_node_in_uc_headers';
4898:
4899: BEGIN
4900: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4901: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4902: G_LOG_PREFIX||l_api_name||'.begin',
4903: 'At the start of the function: instance_id ='||p_instance_id);
4904: END IF;
4905:
4907: OPEN get_root_node(p_instance_id);
4908: FETCH get_root_node BULK COLLECT INTO l_object_id_tbl;
4909: CLOSE get_root_node;
4910:
4911: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4912: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
4913: G_LOG_PREFIX||l_api_name,
4914: 'Parent hierachy count ' || l_object_id_tbl.count);
4915: END IF;
4908: FETCH get_root_node BULK COLLECT INTO l_object_id_tbl;
4909: CLOSE get_root_node;
4910:
4911: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4912: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
4913: G_LOG_PREFIX||l_api_name,
4914: 'Parent hierachy count ' || l_object_id_tbl.count);
4915: END IF;
4916:
4919: ELSE
4920: l_instance_id := p_instance_id;
4921: END IF;
4922:
4923: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4924: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
4925: G_LOG_PREFIX||l_api_name,
4926: 'Root Instance is ' || l_instance_id);
4927: END IF;
4920: l_instance_id := p_instance_id;
4921: END IF;
4922:
4923: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4924: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
4925: G_LOG_PREFIX||l_api_name,
4926: 'Root Instance is ' || l_instance_id);
4927: END IF;
4928:
4929: -- Check if the Root instance is in unit config headers
4930: OPEN check_in_headers(l_instance_id);
4931: FETCH check_in_headers INTO l_unit_instance_id;
4932: IF check_in_headers%NOTFOUND THEN
4933: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4934: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
4935: G_LOG_PREFIX||l_api_name,
4936: 'Root Instance ' || l_instance_id || ' is not in unit config headers ');
4937: END IF;
4930: OPEN check_in_headers(l_instance_id);
4931: FETCH check_in_headers INTO l_unit_instance_id;
4932: IF check_in_headers%NOTFOUND THEN
4933: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4934: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
4935: G_LOG_PREFIX||l_api_name,
4936: 'Root Instance ' || l_instance_id || ' is not in unit config headers ');
4937: END IF;
4938: CLOSE check_in_headers;
4935: G_LOG_PREFIX||l_api_name,
4936: 'Root Instance ' || l_instance_id || ' is not in unit config headers ');
4937: END IF;
4938: CLOSE check_in_headers;
4939: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4940: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4941: G_LOG_PREFIX||l_api_name||'.end',
4942: 'At the end of the procedure returning FALSE');
4943: END IF;
4936: 'Root Instance ' || l_instance_id || ' is not in unit config headers ');
4937: END IF;
4938: CLOSE check_in_headers;
4939: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4940: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4941: G_LOG_PREFIX||l_api_name||'.end',
4942: 'At the end of the procedure returning FALSE');
4943: END IF;
4944: RETURN FALSE;
4942: 'At the end of the procedure returning FALSE');
4943: END IF;
4944: RETURN FALSE;
4945: ELSE
4946: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4947: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
4948: G_LOG_PREFIX||l_api_name,
4949: 'Root Instance ' || l_instance_id || ' is in unit config headers ');
4950: END IF;
4943: END IF;
4944: RETURN FALSE;
4945: ELSE
4946: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4947: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
4948: G_LOG_PREFIX||l_api_name,
4949: 'Root Instance ' || l_instance_id || ' is in unit config headers ');
4950: END IF;
4951: CLOSE check_in_headers;
4948: G_LOG_PREFIX||l_api_name,
4949: 'Root Instance ' || l_instance_id || ' is in unit config headers ');
4950: END IF;
4951: CLOSE check_in_headers;
4952: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4953: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4954: G_LOG_PREFIX||l_api_name||'.end',
4955: 'At the end of the procedure returning TRUE');
4956: END IF;
4949: 'Root Instance ' || l_instance_id || ' is in unit config headers ');
4950: END IF;
4951: CLOSE check_in_headers;
4952: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4953: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4954: G_LOG_PREFIX||l_api_name||'.end',
4955: 'At the end of the procedure returning TRUE');
4956: END IF;
4957: RETURN TRUE;
4997: l_wo_dtls_rec get_matching_wo_dtls%ROWTYPE;
4998: l_full_name CONSTANT VARCHAR2(60) := 'ahl.plsql.'||G_PKG_NAME||'.'||'Get_NonMWO_WIP_Entity_Id';
4999:
5000: BEGIN
5001: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5002: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_full_name, 'Entering Procedure. p_workorder_id = ' || p_workorder_id);
5003: END IF;
5004: OPEN get_child_entities;
5005: LOOP
4998: l_full_name CONSTANT VARCHAR2(60) := 'ahl.plsql.'||G_PKG_NAME||'.'||'Get_NonMWO_WIP_Entity_Id';
4999:
5000: BEGIN
5001: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5002: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_full_name, 'Entering Procedure. p_workorder_id = ' || p_workorder_id);
5003: END IF;
5004: OPEN get_child_entities;
5005: LOOP
5006: FETCH get_child_entities INTO l_child_entity_id;
5004: OPEN get_child_entities;
5005: LOOP
5006: FETCH get_child_entities INTO l_child_entity_id;
5007: EXIT when get_child_entities%NOTFOUND;
5008: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5009: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'l_child_entity_id = ' || l_child_entity_id);
5010: END IF;
5011: OPEN get_matching_wo_dtls(l_child_entity_id);
5012: FETCH get_matching_wo_dtls INTO l_wo_dtls_rec;
5005: LOOP
5006: FETCH get_child_entities INTO l_child_entity_id;
5007: EXIT when get_child_entities%NOTFOUND;
5008: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5009: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'l_child_entity_id = ' || l_child_entity_id);
5010: END IF;
5011: OPEN get_matching_wo_dtls(l_child_entity_id);
5012: FETCH get_matching_wo_dtls INTO l_wo_dtls_rec;
5013: CLOSE get_matching_wo_dtls;
5012: FETCH get_matching_wo_dtls INTO l_wo_dtls_rec;
5013: CLOSE get_matching_wo_dtls;
5014: IF (l_wo_dtls_rec.WIP_ENTITY_ID IS NOT NULL) THEN
5015: CLOSE get_child_entities;
5016: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5017: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'About to return ' || l_wo_dtls_rec.WIP_ENTITY_ID);
5018: END IF;
5019: RETURN l_wo_dtls_rec.WIP_ENTITY_ID;
5020: END IF;
5013: CLOSE get_matching_wo_dtls;
5014: IF (l_wo_dtls_rec.WIP_ENTITY_ID IS NOT NULL) THEN
5015: CLOSE get_child_entities;
5016: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5017: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'About to return ' || l_wo_dtls_rec.WIP_ENTITY_ID);
5018: END IF;
5019: RETURN l_wo_dtls_rec.WIP_ENTITY_ID;
5020: END IF;
5021: IF (l_first_child_id IS NULL) THEN
5022: l_first_child_id := l_child_entity_id;
5023: END IF;
5024: END LOOP;
5025: CLOSE get_child_entities;
5026: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5027: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'l_first_child_id = ' || l_first_child_id);
5028: END IF;
5029: IF (l_first_child_id IS NOT NULL) THEN
5030: OPEN get_non_summary_entity(l_first_child_id);
5023: END IF;
5024: END LOOP;
5025: CLOSE get_child_entities;
5026: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5027: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'l_first_child_id = ' || l_first_child_id);
5028: END IF;
5029: IF (l_first_child_id IS NOT NULL) THEN
5030: OPEN get_non_summary_entity(l_first_child_id);
5031: FETCH get_non_summary_entity INTO l_child_entity_id;
5030: OPEN get_non_summary_entity(l_first_child_id);
5031: FETCH get_non_summary_entity INTO l_child_entity_id;
5032: CLOSE get_non_summary_entity;
5033: END IF;
5034: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5035: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_full_name, 'Exiting Procedure. About to return ' || l_child_entity_id);
5036: END IF;
5037: RETURN l_child_entity_id;
5038:
5031: FETCH get_non_summary_entity INTO l_child_entity_id;
5032: CLOSE get_non_summary_entity;
5033: END IF;
5034: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5035: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_full_name, 'Exiting Procedure. About to return ' || l_child_entity_id);
5036: END IF;
5037: RETURN l_child_entity_id;
5038:
5039: END Get_NonMWO_WIP_Entity_Id;
5091:
5092: --Initialize API return status to success
5093: x_return_status := FND_API.G_RET_STS_SUCCESS;
5094:
5095: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5096: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_full_name, 'Entering Procedure. p_workorder_id = ' || p_workorder_id || ', p_instance_id = ' || p_instance_id);
5097: END IF;
5098:
5099: -- Get the Non-Master Workorder's wip_entity_id
5092: --Initialize API return status to success
5093: x_return_status := FND_API.G_RET_STS_SUCCESS;
5094:
5095: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5096: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_full_name, 'Entering Procedure. p_workorder_id = ' || p_workorder_id || ', p_instance_id = ' || p_instance_id);
5097: END IF;
5098:
5099: -- Get the Non-Master Workorder's wip_entity_id
5100: l_wip_entity_id := Get_NonMWO_WIP_Entity_Id(p_workorder_id);
5097: END IF;
5098:
5099: -- Get the Non-Master Workorder's wip_entity_id
5100: l_wip_entity_id := Get_NonMWO_WIP_Entity_Id(p_workorder_id);
5101: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5102: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'Get_NonMWO_WIP_Entity_Id Returned ' || l_wip_entity_id);
5103: END IF;
5104: IF (l_wip_entity_id IS NULL) THEN
5105: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5098:
5099: -- Get the Non-Master Workorder's wip_entity_id
5100: l_wip_entity_id := Get_NonMWO_WIP_Entity_Id(p_workorder_id);
5101: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5102: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'Get_NonMWO_WIP_Entity_Id Returned ' || l_wip_entity_id);
5103: END IF;
5104: IF (l_wip_entity_id IS NULL) THEN
5105: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5106: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'Throwing Unexpected Error since Get_NonMWO_WIP_Entity_Id returned null');
5101: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5102: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'Get_NonMWO_WIP_Entity_Id Returned ' || l_wip_entity_id);
5103: END IF;
5104: IF (l_wip_entity_id IS NULL) THEN
5105: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5106: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'Throwing Unexpected Error since Get_NonMWO_WIP_Entity_Id returned null');
5107: END IF;
5108: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WIP_ENTITY_MISSING');
5109: FND_MESSAGE.Set_Token('WOID', p_workorder_id);
5102: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'Get_NonMWO_WIP_Entity_Id Returned ' || l_wip_entity_id);
5103: END IF;
5104: IF (l_wip_entity_id IS NULL) THEN
5105: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5106: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'Throwing Unexpected Error since Get_NonMWO_WIP_Entity_Id returned null');
5107: END IF;
5108: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WIP_ENTITY_MISSING');
5109: FND_MESSAGE.Set_Token('WOID', p_workorder_id);
5110: FND_MSG_PUB.ADD;
5114: -- Update the instance location only if the work order is in released status
5115: OPEN ahl_wo_status_csr(l_wip_entity_id);
5116: FETCH ahl_wo_status_csr INTO l_temp_wo_id, l_wo_status_code;
5117: CLOSE ahl_wo_status_csr;
5118: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5119: 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);
5120: END IF;
5121: IF (l_wo_status_code <> G_WO_RELEASED_STATUS) THEN
5122: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5115: OPEN ahl_wo_status_csr(l_wip_entity_id);
5116: FETCH ahl_wo_status_csr INTO l_temp_wo_id, l_wo_status_code;
5117: CLOSE ahl_wo_status_csr;
5118: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5119: 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);
5120: END IF;
5121: IF (l_wo_status_code <> G_WO_RELEASED_STATUS) THEN
5122: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5123: 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.');
5118: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5119: 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);
5120: END IF;
5121: IF (l_wo_status_code <> G_WO_RELEASED_STATUS) THEN
5122: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5123: 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.');
5124: END IF;
5125: ELSE
5126: -- Get the object_version number from csi_item_instances
5119: 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);
5120: END IF;
5121: IF (l_wo_status_code <> G_WO_RELEASED_STATUS) THEN
5122: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5123: 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.');
5124: END IF;
5125: ELSE
5126: -- Get the object_version number from csi_item_instances
5127: OPEN ahl_obj_ver_csr;
5154: l_csi_transaction_rec.transaction_type_id := l_transaction_type_id;
5155: l_csi_transaction_rec.source_transaction_date := sysdate;
5156:
5157: -- Call the CSI API to actually do the update
5158: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5159: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'About to call CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE');
5160: END IF;
5161:
5162: CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE(p_api_version => 1.0
5155: l_csi_transaction_rec.source_transaction_date := sysdate;
5156:
5157: -- Call the CSI API to actually do the update
5158: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5159: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'About to call CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE');
5160: END IF;
5161:
5162: CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE(p_api_version => 1.0
5163: ,p_commit => fnd_api.g_false
5175: ,x_return_status => x_return_status
5176: ,x_msg_count => l_msg_count
5177: ,x_msg_data => l_msg_data);
5178:
5179: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5180: 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);
5181: END IF;
5182: END IF; -- Status is Released or not
5183: END IF; -- WIP Entity Id is null or not
5176: ,x_msg_count => l_msg_count
5177: ,x_msg_data => l_msg_data);
5178:
5179: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5180: 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);
5181: END IF;
5182: END IF; -- Status is Released or not
5183: END IF; -- WIP Entity Id is null or not
5184:
5186: IF (x_return_status IS NULL AND NVL(l_msg_count, 0) = 0) THEN
5187: x_return_status := FND_API.G_RET_STS_SUCCESS;
5188: END IF;
5189:
5190: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5191: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_full_name, 'Exiting Procedure. x_return_status = ' || x_return_status);
5192: END IF;
5193:
5194: END update_item_location;
5187: x_return_status := FND_API.G_RET_STS_SUCCESS;
5188: END IF;
5189:
5190: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5191: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_full_name, 'Exiting Procedure. x_return_status = ' || x_return_status);
5192: END IF;
5193:
5194: END update_item_location;
5195: */