464: p_organization_id IN NUMBER,
465: p_inv_segment IN VARCHAR2,
466: p_revision_qty_control_code IN NUMBER ) IS
467:
468: CURSOR mtl_item_revisions_csr (p_revision IN VARCHAR2,
469: p_inventory_id IN NUMBER,
470: p_organization_id IN NUMBER) IS
471: SELECT 'x'
472: FROM mtl_item_revisions
468: CURSOR mtl_item_revisions_csr (p_revision IN VARCHAR2,
469: p_inventory_id IN NUMBER,
470: p_organization_id IN NUMBER) IS
471: SELECT 'x'
472: FROM mtl_item_revisions
473: WHERE inventory_item_id = p_inventory_id
474: AND organization_id = p_organization_id
475: AND revision = p_revision;
476:
486: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
487: FND_MSG_PUB.ADD;
488: --dbms_output.put_line('Revision is not null. Revision not required.');
489: ELSE
490: OPEN mtl_item_revisions_csr(p_revision,p_inventory_id, p_organization_id);
491: FETCH mtl_item_revisions_csr INTO l_junk;
492: IF (mtl_item_revisions_csr%NOTFOUND) THEN
493: FND_MESSAGE.Set_Name('AHL','AHL_MC_INVREVI_INVALID');
494: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
487: FND_MSG_PUB.ADD;
488: --dbms_output.put_line('Revision is not null. Revision not required.');
489: ELSE
490: OPEN mtl_item_revisions_csr(p_revision,p_inventory_id, p_organization_id);
491: FETCH mtl_item_revisions_csr INTO l_junk;
492: IF (mtl_item_revisions_csr%NOTFOUND) THEN
493: FND_MESSAGE.Set_Name('AHL','AHL_MC_INVREVI_INVALID');
494: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
495: FND_MESSAGE.Set_Token('REVISION',p_revision);
488: --dbms_output.put_line('Revision is not null. Revision not required.');
489: ELSE
490: OPEN mtl_item_revisions_csr(p_revision,p_inventory_id, p_organization_id);
491: FETCH mtl_item_revisions_csr INTO l_junk;
492: IF (mtl_item_revisions_csr%NOTFOUND) THEN
493: FND_MESSAGE.Set_Name('AHL','AHL_MC_INVREVI_INVALID');
494: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
495: FND_MESSAGE.Set_Token('REVISION',p_revision);
496: FND_MSG_PUB.ADD;
496: FND_MSG_PUB.ADD;
497: --dbms_output.put_line('Revision does not exist');
498: END IF;
499:
500: CLOSE mtl_item_revisions_csr;
501:
502: END IF;
503:
504: END Validate_Revision;