[Home] [Help]
538: --dbms_output.put_line('Before calling table handler API');
539: --Insert the record into the disposition entity table
540: IF (l_route_mtl_req_tbl.EXISTS(i)) THEN
541: BEGIN
542: SELECT ahl_prd_dispositions_b_s.NEXTVAL
543: INTO l_disposition_id
544: FROM dual;
545: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
546: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
626: X_LAST_UPDATED_BY => FND_GLOBAL.user_id,
627: X_LAST_UPDATE_LOGIN => FND_GLOBAL.login_id);
628:
629: --Insert the same record into the Disposition History table as well
630: SELECT AHL_PRD_DISPOSITIONS_B_H_S.NEXTVAL
631: INTO l_disposition_h_id
632: FROM dual;
633: AHL_PRD_DISPOSITIONS_B_H_PKG.INSERT_ROW(
634: X_ROWID => l_dummy_rowid,
629: --Insert the same record into the Disposition History table as well
630: SELECT AHL_PRD_DISPOSITIONS_B_H_S.NEXTVAL
631: INTO l_disposition_h_id
632: FROM dual;
633: AHL_PRD_DISPOSITIONS_B_H_PKG.INSERT_ROW(
634: X_ROWID => l_dummy_rowid,
635: X_DISPOSITION_H_ID => l_disposition_h_id,
636: X_DISPOSITION_ID => l_disposition_id,
637: X_OBJECT_VERSION_NUMBER => 1.0,
999: -- Changed by jaramana on 31-MAR-2011 for bug 11856373 to compare using
1000: -- the item and quantity of the disposition rather than the actual instance id; sorao for backporting
1001: CURSOR chk_disp_inst_job_csr (p_disposition_id NUMBER, p_workorder_id NUMBER) IS
1002: SELECT 'Y'
1003: FROM ahl_workorders awo, csi_item_instances csi, ahl_prd_dispositions_b disp
1004: WHERE awo.workorder_id = p_workorder_id
1005: AND csi.wip_job_id = awo.wip_entity_id
1006: AND csi.INVENTORY_ITEM_ID = disp.INVENTORY_ITEM_ID
1007: AND csi.QUANTITY = disp.QUANTITY;
1161:
1162: p_x_disposition_Rec.status_code := l_calculated_status;
1163:
1164: --prepare for insert
1165: Select AHL_PRD_DISPOSITIONS_B_S.NEXTVAL into p_x_disposition_rec.disposition_id from dual;
1166: --setting object version number for create
1167: p_x_disposition_rec.object_version_number := 1;
1168: --setting up user/create/update information
1169: p_x_disposition_rec.created_by := fnd_global.user_id;
1270: p_x_disposition_rec.primary_service_request_id := l_primary_service_request_id;
1271: p_x_disposition_rec.non_routine_workorder_id := l_non_routine_workorder_id;
1272:
1273: --update the just modified field without changing object version number.
1274: UPDATE AHL_PRD_DISPOSITIONS_B SET primary_service_request_id = p_x_disposition_rec.primary_service_request_id,
1275: non_routine_workorder_id = p_x_disposition_rec.non_routine_workorder_id,
1276: status_code = p_x_disposition_rec.status_code
1277: WHERE disposition_id = p_x_disposition_rec.disposition_id;
1278: END IF;
1276: status_code = p_x_disposition_rec.status_code
1277: WHERE disposition_id = p_x_disposition_rec.disposition_id;
1278: END IF;
1279:
1280: Select AHL_PRD_DISPOSITIONS_B_H_S.NEXTVAL into l_disposition_h_id from dual;
1281: AHL_PRD_DISPOSITIONS_B_H_PKG.INSERT_ROW(
1282: x_rowid => l_dummy_char,
1283: x_disposition_h_id => l_disposition_h_id,
1284: x_disposition_id => p_x_disposition_rec.disposition_id,
1277: WHERE disposition_id = p_x_disposition_rec.disposition_id;
1278: END IF;
1279:
1280: Select AHL_PRD_DISPOSITIONS_B_H_S.NEXTVAL into l_disposition_h_id from dual;
1281: AHL_PRD_DISPOSITIONS_B_H_PKG.INSERT_ROW(
1282: x_rowid => l_dummy_char,
1283: x_disposition_h_id => l_disposition_h_id,
1284: x_disposition_id => p_x_disposition_rec.disposition_id,
1285: x_object_version_number => p_x_disposition_rec.object_version_number,
1405: -- SATHAPLI::FP OGMA Issue# 105 - Non-Serialized Item Maintenance, 12-Dec-2007
1406: -- If the part is removed in 'Inspection' condition, then move the disposition to Complete status.
1407: IF (p_x_disposition_rec.condition_id = NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_INSPECTION'), -1) AND
1408: p_x_disposition_rec.part_change_id IS NOT NULL) THEN
1409: UPDATE AHL_PRD_DISPOSITIONS_B
1410: SET status_code = 'COMPLETE'
1411: WHERE disposition_id = p_x_disposition_rec.disposition_id;
1412: END IF;
1413:
1454: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1455: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Non Ser. trk. item unserv. removal with Create WO in rel. option. Removed instance moved to NR WO. Setting Disp. status to COMPLETE.');
1456: END IF;
1457: -- All checks completed: Change the Disposition status to COMPLETE
1458: UPDATE AHL_PRD_DISPOSITIONS_B
1459: SET status_code = 'COMPLETE'
1460: WHERE disposition_id = p_x_disposition_rec.disposition_id;
1461: ELSE
1462: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1605: -- Changed by jaramana on 31-MAR-2011 for bug 11856373 to compare using
1606: -- the item and quantity of the disposition rather than the actual instance id
1607: CURSOR chk_disp_inst_job_csr (p_disposition_id NUMBER, p_workorder_id NUMBER) IS
1608: SELECT 'Y'
1609: FROM ahl_workorders awo, csi_item_instances csi, ahl_prd_dispositions_b disp
1610: WHERE awo.workorder_id = p_workorder_id
1611: AND csi.wip_job_id = awo.wip_entity_id
1612: AND csi.INVENTORY_ITEM_ID = disp.INVENTORY_ITEM_ID
1613: AND csi.QUANTITY = disp.QUANTITY;
2323: --dbms_output.put_line(SubStr('Update_disp: l_disposition_rec.creation_date ' || l_disposition_rec.creation_date, 1, 255));
2324: --dbms_output.put_line(SubStr('Update_disp: l_disposition_rec.created_by ' || l_disposition_rec.created_by, 1, 255));
2325:
2326:
2327: Select AHL_PRD_DISPOSITIONS_B_H_S.NEXTVAL into l_disposition_h_id from dual;
2328: --dbms_output.put_line(SubStr('Update_disp:Before insert into history table', 1, 255));
2329:
2330: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2331: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before insert into history table');
2329:
2330: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2331: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before insert into history table');
2332: END IF;
2333: AHL_PRD_DISPOSITIONS_B_H_PKG.INSERT_ROW(
2334: x_rowid => l_dummy_char,
2335: x_disposition_h_id => l_disposition_h_id,
2336: x_disposition_id => p_x_disposition_rec.disposition_id,
2337: x_object_version_number => p_x_disposition_rec.object_version_number,
2493: -- For Non Serialized tracked items, if an unserviceable removal was done with Create Work Order in released option
2494: -- then the disposition should be deemed complete as soon as the quantity is moved to the newly created work order.
2495: -- This is to prevent the Material returns UI from incorrectly showing this disposition quantity as available for return
2496: IF (p_x_disposition_rec.serial_number IS NULL) THEN
2497: UPDATE AHL_PRD_DISPOSITIONS_B
2498: SET status_code = 'COMPLETE'
2499: WHERE disposition_id = p_x_disposition_rec.disposition_id;
2500: END IF;
2501: -- End changes by jaramana on 03-FEB-2011 for bug 10647408
3238: CURSOR exist_position_csr(p_path_position_id IN NUMBER, p_workorder_id IN NUMBER) IS
3239: SELECT 'X' FROM ahl_mc_path_positions pos
3240: WHERE pos.path_position_id = p_path_position_id
3241: AND EXISTS
3242: (SELECT pos2.path_pos_common_id FROM ahl_prd_dispositions_b dis, ahl_mc_path_positions pos2
3243: WHERE dis.path_position_id IS NOT NULL
3244: AND dis.path_position_id = pos2.path_position_id
3245: AND dis.workorder_id = p_workorder_id
3246: AND nvl(dis.status_code, 'dummy') NOT IN ('COMPLETE', 'TERMINATED')
4328: and csi.location_type_code NOT IN ('PO','IN-TRANSIT','PROJECT','INVENTORY')
4329: and trunc(sysdate) between trunc(nvl(csi.active_start_date, sysdate)) and trunc(nvl(csi.active_end_date, sysdate));
4330:
4331: CURSOR instance_in_disp_csr(p_instance_id IN NUMBER, p_workorder_id IN NUMBER) IS
4332: SELECT 'x' from ahl_prd_dispositions_b WHERE
4333: workorder_id = p_workorder_id
4334: and instance_id = p_instance_id
4335: and nvl(status_code, ' ') NOT IN ('COMPLETE', 'TERMINATED');
4336:
4630: pc.return_mtl_txn_id mtl_txn_id,
4631: pc.installed_part_change_id install_pc_id,
4632: pc.part_change_type,
4633: AHL_PRD_DISP_MTL_TXN_PVT.calculate_txned_qty(disp.disposition_id) mtl_txn_qty
4634: FROM AHL_PRD_DISPOSITIONS_B disp,
4635: AHL_PART_CHANGES_V pc
4636: WHERE disp.disposition_id = p_disposition_id
4637: AND disp.part_change_id = pc.part_change_id (+);
4638:
4897: B.secondary_disposition_code,
4898: FND2.MEANING SECONDARY_TYPE,
4899: B.part_change_id,
4900: decode(B.instance_id, null, decode(B.path_position_id, null, 'N', 'Y'), 'Y') TRACKABLE_FLAG
4901: from AHL_PRD_DISPOSITIONS_B B,
4902: FND_LOOKUPS FND1,
4903: FND_LOOKUPS FND2,
4904: MTL_MATERIAL_STATUSES_VL COND
4905: where FND1.LOOKUP_TYPE (+) = 'AHL_IMMED_DISP_TYPE'