procedure InsertItemUnitOfMeasure(pCode: Code[20]; pItemNo: Code[20]; QtyPerUOM: Decimal)
var
    ItemUOM, InsertItemUOM: Record "Item Unit of Measure";
    Item: Record Item;
    UnitofMeasure: Record "Unit of Measure";
begin
    if pCode = '' then
        Error('Unit of Measure Code cannot be empty.');

    if pItemNo = '' then
        Error('Item No. cannot be empty.');

    ItemUOM.Reset();
    ItemUOM.SetRange("Item No.", pItemNo);
    ItemUOM.SetRange(Code, pCode);
    if ItemUOM.FindFirst() then begin
        ItemUOM.Validate("Qty. per Unit of Measure", QtyPerUOM);
        ItemUOM.Modify();
    end else begin
        InsertItemUOM.Init();
        InsertItemUOM.Validate("Code", pCode);
        InsertItemUOM.Validate("Item No.", pItemNo);
        InsertItemUOM.Insert(true);
        InsertItemUOM.Validate("Qty. per Unit of Measure", QtyPerUOM);
        InsertItemUOM.Modify();
    end;
end;

 procedure InsertItemUnitOfMeasure(pCode: Code[20]; pItemNo: Code[20]; QtyPerUOM: Decimal)
    begin
        ValidateInput(pCode, pItemNo);

        if TryUpdateExistingUOM(pCode, pItemNo, QtyPerUOM) then
            exit;

        InsertNewItemUOM(pCode, pItemNo, QtyPerUOM);
    end;

    local procedure ValidateInput(pCode: Code[20]; pItemNo: Code[20])
    var
        Item: Record Item;
        UOM: Record "Unit of Measure";
    begin
        if pCode = '' then
            Error('Unit of Measure Code cannot be empty.');

        if pItemNo = '' then
            Error('Item No. cannot be empty.');
    end;

    local procedure TryUpdateExistingUOM(pCode: Code[20]; pItemNo: Code[20]; QtyPerUOM: Decimal): Boolean
    var
        ExistingUOM: Record "Item Unit of Measure";
    begin
        ExistingUOM.SetRange("Item No.", pItemNo);
        ExistingUOM.SetRange(Code, pCode);
        if ExistingUOM.FindFirst() then begin
            ExistingUOM.Validate("Qty. per Unit of Measure", QtyPerUOM);
            ExistingUOM.Modify();
            exit(true);
        end;

        exit(false);
    end;

    local procedure InsertNewItemUOM(pCode: Code[20]; pItemNo: Code[20]; QtyPerUOM: Decimal)
    var
        NewUOM: Record "Item Unit of Measure";
    begin
        NewUOM.Init();
        NewUOM.Validate("Item No.", pItemNo);
        NewUOM.Validate(Code, pCode);
        NewUOM.Validate("Qty. per Unit of Measure", QtyPerUOM);
        NewUOM.Insert(true);
    end;