[event publisher change] in event "Inventory Profile Offsetting" (Codeunit 99000854)

[bhorvath9815]

Describe the request

Dear Support,

Could you please modify the publisher in "Inventory Profile Offsetting" (Codeunit 99000854) and a bit the following code? The publisher name is: "OnAfterUpdateAppliedItemEntry".

<<<<< Original Code >>>>>

    [IntegrationEvent(false, false)]
    local procedure OnAfterUpdateAppliedItemEntry(var ReservationEntry: Record "Reservation Entry"; var TempItemTrackingEntry: Record "Reservation Entry")
    begin
    end;

local procedure UpdateAppliedItemEntry(var ReservEntry: Record "Reservation Entry")
var
    ItemTrackingSetup: Record "Item Tracking Setup";
begin
    TempItemTrkgEntry.SetSourceFilter(
        ReservEntry."Source Type", ReservEntry."Source Subtype", ReservEntry."Source ID", ReservEntry."Source Ref. No.", true);
    ItemTrackingSetup.CopyTrackingFromReservEntry(ReservEntry);
    TempItemTrkgEntry.SetTrackingFilterFromItemTrackingSetupIfNotBlank(ItemTrackingSetup);
    OnUpdateAppliedItemEntryOnBeforeFindApplEntry(TempItemTrkgEntry, ReservEntry);
    if TempItemTrkgEntry.FindFirst() then begin
        ReservEntry."Appl.-from Item Entry" := TempItemTrkgEntry."Appl.-from Item Entry";
        ReservEntry."Appl.-to Item Entry" := TempItemTrkgEntry."Appl.-to Item Entry";
    end;

    OnAfterUpdateAppliedItemEntry(ReservEntry, TempItemTrkgEntry);
end;

<<<<< Modified >>>>>

    [IntegrationEvent(false, false)]
    local procedure OnAfterUpdateAppliedItemEntry(var ReservationEntry: Record "Reservation Entry"; var TempItemTrackingEntry: Record "Reservation Entry";ReqLine: Record "Requisition Line")
    begin
    end;

local procedure UpdateAppliedItemEntry(var ReservEntry: Record "Reservation Entry")
var
    ItemTrackingSetup: Record "Item Tracking Setup";
begin
    TempItemTrkgEntry.SetSourceFilter(
        ReservEntry."Source Type", ReservEntry."Source Subtype", ReservEntry."Source ID", ReservEntry."Source Ref. No.", true);
    ItemTrackingSetup.CopyTrackingFromReservEntry(ReservEntry);
    TempItemTrkgEntry.SetTrackingFilterFromItemTrackingSetupIfNotBlank(ItemTrackingSetup);
    OnUpdateAppliedItemEntryOnBeforeFindApplEntry(TempItemTrkgEntry, ReservEntry);
    if TempItemTrkgEntry.FindFirst() then begin
        ReservEntry."Appl.-from Item Entry" := TempItemTrkgEntry."Appl.-from Item Entry";
        ReservEntry."Appl.-to Item Entry" := TempItemTrkgEntry."Appl.-to Item Entry";
    end;

    OnAfterUpdateAppliedItemEntry(ReservEntry, TempItemTrkgEntry, ReqLine);
end;

Additional context

We need to skip the Release part of the code for several times due to a customer condition.

Thank you in advance.
Internal work item: AB#572971