Codeunit 7321 "Create Inventory Put-away"

Base Application · Microsoft.Warehouse.Activity · BC23-30 · source at ea08af5e · facts from BC29

Properties

Property	Value
TableNo	Warehouse Activity Header

Events published

OnAfterAutoCreatePutAway(var WarehouseRequest: Record "Warehouse Request"; LineCreated: Boolean; var WarehouseActivityHeader: Record "Warehouse Activity Header") (integration)
OnAfterCreateInventoryPutaway(var WarehouseRequest: Record "Warehouse Request"; LineCreated: Boolean; var WarehouseActivityHeader: Record "Warehouse Activity Header") (integration)
OnAfterCreatePutAwayLinesFromPurchase(PurchaseHeader: Record "Purchase Header"; WarehouseActivityHeader: Record "Warehouse Activity Header") (integration)
OnAfterCreatePutAwayLinesFromSales(SalesHeader: Record "Sales Header"; WarehouseActivityHeader: Record "Warehouse Activity Header") (integration)
OnAfterInsertWhseActivLine(var WarehouseActivityLine: Record "Warehouse Activity Line"; SNRequired: Boolean; LNRequired: Boolean) (integration)
OnAfterUpdateWhseActivHeader(var WarehouseActivityHeader: Record "Warehouse Activity Header"; var WarehouseRequest: Record "Warehouse Request") (integration)
OnBeforeAutoCreatePutAwayLines(WarehouseRequest: Record "Warehouse Request"; var WarehouseActivityHeader: Record "Warehouse Activity Header"; var LineCreated: Boolean; var IsHandled: Boolean; var HideDialog: Boolean) (integration)
OnBeforeNewWhseActivLineInsertFromPurchase(var WarehouseActivityLine: Record "Warehouse Activity Line"; PurchaseLine: Record "Purchase Line") (integration)
- subscribers: Codeunit 20575 “Subc. Invt. Put-away Ext” SetSubcLineTypeAndQtyPerUoM_OnBeforeNewWhseActivLineInsertFromPurchase
OnBeforeNewWhseActivLineInsertFromSales(var WarehouseActivityLine: Record "Warehouse Activity Line"; SalesLine: Record "Sales Line") (integration)
OnBeforeNewWhseActivLineInsertFromTransfer(var WarehouseActivityLine: Record "Warehouse Activity Line"; TransferLine: Record "Transfer Line") (integration)
OnBeforeNewWhseActivLineInsertFromProd(var WarehouseActivityLine: Record "Warehouse Activity Line"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line") + BC27 − BC27 − BC30 (integration, obsolete 27.0)
OnBeforeNewWhseActivLineInsertFromComp(var WarehouseActivityLine: Record "Warehouse Activity Line"; ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component") + BC27 − BC27 − BC30 (integration, obsolete 27.0)
OnRaiseOnBeforeNewWhseActivLineInsertFromEvent(var WarehouseActivityLine: Record "Warehouse Activity Line"; RecordVariant: Variant; RecordRefToCheck: RecordRef) + BC27 (integration)
OnBeforeFindPurchLine(var PurchaseLine: Record "Purchase Line"; WarehouseActivityHeader: Record "Warehouse Activity Header") (integration)
OnBeforeFindSalesLine(var SalesLine: Record "Sales Line"; WarehouseActivityHeader: Record "Warehouse Activity Header") (integration)
OnBeforeFindTransLine(var TransferLine: Record "Transfer Line"; WarehouseActivityHeader: Record "Warehouse Activity Header") (integration)
OnBeforeFindProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; WarehouseActivityHeader: Record "Warehouse Activity Header") + BC27 − BC27 − BC30 (integration, obsolete 27.0)
OnBeforeFindProdOrderComp(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; WarehouseActivityHeader: Record "Warehouse Activity Header") + BC27 − BC27 − BC30 (integration, obsolete 27.0)
OnBeforeGetSourceDocHeader(var WarehouseRequest: Record "Warehouse Request"; var IsHandled: Boolean) (integration)
OnBeforeInsertWhseActivLine(var WarehouseActivityLine: Record "Warehouse Activity Line"; var IsHandled: Boolean) (integration)
OnBeforeInsertSNWhseActivLine(var WarehouseActivityLine: Record "Warehouse Activity Line"; WhseItemTrackingSetup: Record "Item Tracking Setup"; NextLineNo: Integer; var ReservationFound: Boolean; var IsHandled: Boolean; var RemQtyToPutAway: Decimal) (integration)
- subscribers: Codeunit 20575 “Subc. Invt. Put-away Ext” InsertFullQuantityForNotLastOperation_OnBeforeInsertSNWhseActivLine
OnBeforeCheckSourceDoc(WarehouseRequest: Record "Warehouse Request"; var IsFound: Boolean; var IsHandled: Boolean) (integration)
OnBeforeCreatePutAwayLines(WarehouseRequest: Record "Warehouse Request"; var WarehouseActivityHeader: Record "Warehouse Activity Header"; var LineCreated: Boolean; var IsHandled: Boolean; var HideDialog: Boolean) (integration)
OnBeforeCreatePutAwayLinesFromCompLoop(var WarehouseActivityHeader: Record "Warehouse Activity Header"; ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; var IsHandled: Boolean; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") + BC27 − BC27 − BC30 (integration, obsolete 27.0)
OnBeforeCreatePutAwayLinesFromProdLoop(var WarehouseActivityHeader: Record "Warehouse Activity Header"; ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; var IsHandled: Boolean; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line") + BC27 − BC27 − BC30 (integration, obsolete 27.0)
OnBeforeCreatePutAwayLinesFromPurchaseLoop(var WarehouseActivityHeader: Record "Warehouse Activity Header"; PurchaseHeader: Record "Purchase Header"; var IsHandled: Boolean; PurchaseLine: Record "Purchase Line") (integration)
OnBeforeCreatePutAwayLinesFromSalesLoop(var WarehouseActivityHeader: Record "Warehouse Activity Header"; SalesHeader: Record "Sales Header"; var IsHandled: Boolean; SalesLine: Record "Sales Line") (integration)
OnBeforeCreatePutAwayLinesFromTransferLoop(var WarehouseActivityHeader: Record "Warehouse Activity Header"; TransferHeader: Record "Transfer Header"; var IsHandled: Boolean; TransferLine: Record "Transfer Line") (integration)
OnBeforeFindReservationFromPurchaseLine(var PurchLine: Record "Purchase Line"; var WhseItemTrackingSetup: Record "Item Tracking Setup"; var ItemTrackingMgt: Codeunit "Item Tracking Management"; var ReservationFound: Boolean; var IsHandled: Boolean) Δ BC29 (integration)
- subscribers: Codeunit 20575 “Subc. Invt. Put-away Ext” RedirectReservationLookupToProdOrderLine_OnBeforeFindReservationFromPurchaseLine
OnBeforeFindReservationFromSalesLine(var SalesLine: Record "Sales Line"; var WhseItemTrackingSetup: Record "Item Tracking Setup"; var ItemTrackingMgt: Codeunit "Item Tracking Management"; var ReservationFound: Boolean; var IsHandled: Boolean) (integration)
OnBeforeFindReservationFromTransferLine(var TransferLine: Record "Transfer Line"; var WhseItemTrackingSetup: Record "Item Tracking Setup"; var ItemTrackingMgt: Codeunit "Item Tracking Management"; var ReservationFound: Boolean; var IsHandled: Boolean) (integration)
OnBeforeFindReservationFromProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var WhseItemTrackingSetup: Record "Item Tracking Setup"; var ItemTrackingMgt: Codeunit "Item Tracking Management"; var ReservationFound: Boolean; var IsHandled: Boolean) + BC27 − BC27 − BC30 (integration, obsolete 27.0)
OnBeforeFindReservationFromProdOrderComponent(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var WhseItemTrackingSetup: Record "Item Tracking Setup"; var ItemTrackingMgt: Codeunit "Item Tracking Management"; var ReservationFound: Boolean; var IsHandled: Boolean) + BC27 − BC27 − BC30 (integration, obsolete 27.0)
OnAutoCreatePutAwayLinesFromWhseRequest(var WarehouseRequest: Record "Warehouse Request"; SourceDocRecRef: RecordRef; var LineCreated: Boolean; var SourceDocRecVar: Variant; var RemQtyToPutaway: Decimal; var WarehouseActivityHeader: Record "Warehouse Activity Header"; var WarehouseSourceFilter: Record "Warehouse Source Filter"; CheckLineExist: Boolean; ApplySourceFilters: Boolean) + BC27 − BC27 (integration)
- subscribers: Codeunit 99000878 “Mfg. Create Inventory Put-Away” OnAutoCreatePutAwayLinesFromWhseRequest
OnCheckSourceDocForWhseRequest(var WarehouseRequest: Record "Warehouse Request"; SourceDocRecRef: RecordRef; var SourceDocRecordVar: Variant; var Result: Boolean; var WarehouseActivityHeader: Record "Warehouse Activity Header"; var WarehouseSourceFilter: Record "Warehouse Source Filter"; CheckLineExist: Boolean; ApplySourceFilters: Boolean) + BC27 − BC27 (integration)
- subscribers: Codeunit 99000878 “Mfg. Create Inventory Put-Away” OnCheckSourceDocForWhseRequest
OnCreatePutAwayFromWhseRequest(var WarehouseRequest: Record "Warehouse Request"; SourceDocRecRef: RecordRef; var LineCreated: Boolean; var SourceDocRecordVar: Variant; var WarehouseActivityHeader: Record "Warehouse Activity Header"; var WarehouseSourceFilter: Record "Warehouse Source Filter"; CheckLineExist: Boolean; ApplySourceFilters: Boolean; var RemQtyToPutaway: Decimal) + BC27 − BC27 (integration)
- subscribers: Codeunit 99000878 “Mfg. Create Inventory Put-Away” OnCreatePutAwayFromWhseRequest
OnCodeOnAfterCreatePutAwayLines(WarehouseRequest: Record "Warehouse Request"; var WarehouseActivityHeader: Record "Warehouse Activity Header"; var LineCreated: Boolean; AutoCreation: Boolean; var SuppressError: Boolean; var IsHandled: Boolean) (integration)
OnGetSourceDocHeaderForWhseRequest(var WarehouseRequest: Record "Warehouse Request"; var SourceDocRecRef: RecordRef; var PostingDate: Date; var VendorDocNo: Code[35]; var SourceDocRecordVar: Variant) + BC27 − BC27 (integration)
- subscribers: Codeunit 99000878 “Mfg. Create Inventory Put-Away” OnGetSourceDocHeaderForWhseRequest
OnInsertWhseActivLineOnBeforeAutoCreation(var WarehouseActivityLine: Record "Warehouse Activity Line"; var TempTrackingSpecification: Record "Tracking Specification" temporary; ReservationFound: Boolean; SNRequired: Boolean; LNRequired: Boolean) (integration)
OnInsertWhseActivLineOnBeforeCommit(var WarehouseActivityLine: Record "Warehouse Activity Line"; var WhseActivHeader: Record "Warehouse Activity Header") (integration)
OnCreatePutawayForPurchaseLine(var PurchaseLine: Record "Purchase Line"; var RemQtyToPutAway: Decimal) (integration)
OnCreatePutawayForSalesLine(var SalesLine: Record "Sales Line"; var RemQtyToPutAway: Decimal) (integration)
OnCreatePutawayForTransferLine(var TransferLine: Record "Transfer Line"; var RemQtyToPutAway: Decimal) (integration)
OnCreatePutAwayLinesFromSalesOnAfterSetRemQtyToPutAway(var SalesHeader: Record "Sales Header"; var SalesLine: Record "Sales Line"; var WarehouseActivityHeader: Record "Warehouse Activity Header"; var RemQtyToPutAway: Decimal) + BC27 (integration)
OnCreatePutawayForProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var RemQtyToPutAway: Decimal) + BC27 − BC27 − BC30 (integration, obsolete 27.0)
OnCreatePutawayForProdOrderComponent(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var RemQtyToPutAway: Decimal) + BC27 − BC27 − BC30 (integration, obsolete 27.0)
OnGetWhseRequestOnAfterFilterGroup(WarehouseRequest: Record "Warehouse Request"; var Result: Boolean; var IsHandled: Boolean) (integration)
OnUpdateWhseActivHeaderOnBeforeGetLocation(var WarehouseRequest: Record "Warehouse Request"; var WarehouseActivityHeader: Record "Warehouse Activity Header") (integration)
OnCreateWarehouseActivityLineOnSetSourceDocument(var WarehouseActivityLine: Record "Warehouse Activity Line"; SourceType: Integer) + BC27 (internal)
- subscribers: Codeunit 99000878 “Mfg. Create Inventory Put-Away” OnCreateWarehouseActivityLineOnSetSourceDocument
OnCreatePutAwayLinesFromTransferOnAfterSetRemQtyToPutAway(var TransferHeader: Record "Transfer Header"; var TransferLine: Record "Transfer Line"; var WarehouseActivityHeader: Record "Warehouse Activity Header"; var RemQtyToPutAway: Decimal) + BC27 (internal)
OnCreatePutAwayLinesFromPurchaseOnAfterSetRemQtyToPutAway(var PurchaseHeader: Record "Purchase Header"; var PurchaseLine: Record "Purchase Line"; var WarehouseActivityHeader: Record "Warehouse Activity Header"; var RemQtyToPutAway: Decimal) + BC27 (internal)
OnBeforeMakeWarehouseActivityHeader(var WarehouseActivityHeader: Record "Warehouse Activity Header"; var WarehouseActivityLine: Record "Warehouse Activity Line"; var AutoCreation: Boolean; var IsHandled: Boolean) + BC27 (integration)
OnAfterInitWarehouseActivityLine(var WarehouseActivityLine: Record "Warehouse Activity Line") + BC29 (integration)
- subscribers: Codeunit 20575 “Subc. Invt. Put-away Ext” Create Inventory Put-away_OnAfterInitWarehouseActivityLine

Procedures

SetSourceDocDetailsFilter(var WarehouseSourceFilter2: Record "Warehouse Source Filter")
SetFilterPurchLine(var PurchaseLine: Record "Purchase Line"; PurchaseHeader: Record "Purchase Header"): Boolean
SetFilterSalesLine(var SalesLine: Record "Sales Line"; SalesHeader: Record "Sales Header"): Boolean
SetFilterTransferLine(var TransferLine: Record "Transfer Line"; TransferHeader: Record "Transfer Header"): Boolean
SetFilterProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"): Boolean + BC27 − BC27 − BC30 (obsolete 27.0: Moved to codeunit MfgCreateInventoiryPutaway)
CreateWarehouseActivityLine(SourceType: Integer; DocumentType: Integer; DocumentNo: Code[20]; LineNo: Integer; SublineNo: Integer; LocationCode: Code[10]; ItemNo: Code[20]; VariantCode: Code[10]; UnitOfMeasureCode: Code[10]; QtyPerUnitMeasure: Decimal; QtyRndingPrecision: Decimal; QtyRndingPrecisionBase: Decimal; Description: Text[100]; Description2: Text[50]; DueDate: Date; BinCode: Code[20]; SourceRecordVariant: Variant): Decimal Δ BC27 Δ BC28
CreatePutawayWithPutawayTemplateBinPolicy(SourceType: Integer; DocumentType: Integer; DocumentNo: Code[20]; LineNo: Integer; SublineNo: Integer; LocationCode: Code[10]; BinCode: Code[20]; ItemNo: Code[20]; VariantCode: Code[10]; QuantityBase: Decimal; UnitOfMeasureCode: Code[10]; QtyPerUnitMeasure: Decimal; QtyRndingPrecision: Decimal; QtyRndingPrecisionBase: Decimal; Description: Text[100]; Description2: Text[50]; DueDate: Date) Δ BC27 − BC27 − BC27 Δ BC28
FindNextLineNo() Δ BC27 Δ BC28
SetRemQtyToPutAway(NewRemQtyToPutAway: Decimal) + BC28
FindReservationEntry(SourceType: Integer; DocType: Integer; DocNo: Code[20]; DocLineNo: Integer): Boolean − BC26 Δ BC27 (internal)
SetReservationFound(NewReservationFound: Boolean) + BC27 (internal)
InsertWhseActivLine(var NewWarehouseActivityLine: Record "Warehouse Activity Line"; PutAwayQty: Decimal) Δ BC24 − BC26
GetDefaultBinCode(ItemNo: Code[20]; VariantCode: Code[10]; LocationCode: Code[10]): Code[20] Δ BC27 (internal)
SetWhseRequest(NewWarehouseRequest: Record "Warehouse Request"; SetHideDialog: Boolean)
CheckSourceDoc(NewWarehouseRequest: Record "Warehouse Request"): Boolean
AutoCreatePutAway(var NewWarehouseActivityHeader: Record "Warehouse Activity Header")
GetNothingToHandleMsg() + BC27
SetSuppressCommit(NewSuppressCommit: Boolean) + BC27
RunOnBeforeFindProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; WarehouseActivityHeader: Record "Warehouse Activity Header") + BC27 − BC30 (internal)
RunOnBeforeFindProdOrderComp(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; WarehouseActivityHeader: Record "Warehouse Activity Header") + BC27 − BC30 (internal)
RunOnBeforeCreatePutAwayLinesFromCompLoop(var WarehouseActivityHeader: Record "Warehouse Activity Header"; ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; var IsHandled: Boolean; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") + BC27 − BC30 (internal)
RunOnBeforeCreatePutAwayLinesFromProdLoop(var WarehouseActivityHeader: Record "Warehouse Activity Header"; ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; var IsHandled: Boolean; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line") + BC27 − BC30 (internal)
RunOnBeforeFindReservationFromProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var WhseItemTrackingSetup: Record "Item Tracking Setup"; var ItemTrackingMgt: Codeunit "Item Tracking Management"; var ReservationFound: Boolean; var IsHandled: Boolean) + BC27 − BC30 (internal)
RunOnBeforeFindReservationFromProdOrderComponent(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var WhseItemTrackingSetup: Record "Item Tracking Setup"; var ItemTrackingMgt: Codeunit "Item Tracking Management"; var ReservationFound: Boolean; var IsHandled: Boolean) + BC27 − BC30 (internal)
RunOnCreatePutawayForProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var RemQtyToPutAway: Decimal) + BC27 − BC30 (internal)
RunOnCreatePutawayForProdOrderComponent(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var RemQtyToPutAway: Decimal) + BC27 − BC30 (internal)

Plus 32 local procedures.

Triggers

OnRun

Relations

runs on Table 5766 “Warehouse Activity Header”

Calls

From the extracted call graph of BC29 (graphify-al on the snapshot checkout): calls whose target is known from a declared type or an Object::"Name" argument. Interface dispatch and calls through events are not counted, so the list is not complete.

Codeunit 6500 “Item Tracking Management” (5 calls: CreateWarehouseActivityLine → GetWhseItemTrkgSetup, FindReservationEntry → SumUpItemTracking, FindReservationFromPurchaseLine → GetWhseItemTrkgSetup, …)
Codeunit 5402 “Unit of Measure Management” (2 calls: InsertWhseActivLine → CalcBaseQty, InsertWhseActivLine → RoundQty)
Codeunit 7302 “WMS Management” (1 call: GetDefaultBinCode → GetDefaultBin)
Codeunit 8703 “Feature Telemetry” (1 call: CreatePutAwayLinesFromPurchase → LogUsage)
Page 5793 “Source Documents” (1 call: GetWhseRequest → (object))

Called by

Codeunit 99000878 “Mfg. Create Inventory Put-Away” (13 calls: CreatePutAwayLinesFromComp → CreateWarehouseActivityLine, CreatePutAwayLinesFromComp → FindNextLineNo, CreatePutAwayLinesFromComp → GetNothingToHandleMsg, …)

Recent changes

2026-10-05 #12293 Remove CLEAN27 from Warehouse (main, BC30, obsoletion)
2026-08-20 #10277 Slice 554749: Inventory put-away/pick support for subcontracting purchase lines and WIP item transfers (main, BC30, feature)

Deprecations

procedure RunOnBeforeCreatePutAwayLinesFromCompLoop: guarded (#if not CLEAN27)
procedure RunOnBeforeCreatePutAwayLinesFromProdLoop: guarded (#if not CLEAN27)
procedure RunOnBeforeFindProdOrderComp: guarded (#if not CLEAN27)
procedure RunOnBeforeFindProdOrderLine: guarded (#if not CLEAN27)
procedure RunOnBeforeFindReservationFromProdOrderComponent: guarded (#if not CLEAN27)
procedure RunOnBeforeFindReservationFromProdOrderLine: guarded (#if not CLEAN27)
procedure RunOnCreatePutawayForProdOrderComponent: guarded (#if not CLEAN27)
procedure RunOnCreatePutawayForProdOrderLine: guarded (#if not CLEAN27)
procedure OnBeforeCreatePutAwayLinesFromCompLoop: Pending 27.0 (#if not CLEAN27), “Moved to codeunit MfgCreateInventoryPutaway”
procedure OnBeforeCreatePutAwayLinesFromProdLoop: Pending 27.0 (#if not CLEAN27), “Moved to codeunit MfgCreateInventoryPutaway”
procedure OnBeforeFindProdOrderComp: Pending 27.0 (#if not CLEAN27), “Moved to codeunit MfgCreateInventoryPutaway”
procedure OnBeforeFindProdOrderLine: Pending 27.0 (#if not CLEAN27), “Moved to codeunit MfgCreateInventoryPutaway”
procedure OnBeforeFindReservationFromProdOrderComponent: Pending 27.0 (#if not CLEAN27), “Moved to codeunit MfgCreateInventoryPutaway”
procedure OnBeforeFindReservationFromProdOrderLine: Pending 27.0 (#if not CLEAN27), “Moved to codeunit MfgCreateInventoryPutaway”
procedure OnBeforeNewWhseActivLineInsertFromComp: Pending 27.0 (#if not CLEAN27), “Replaced by event OnRaiseOnBeforeNewWhseActivLineInsertFromEvent”
procedure OnBeforeNewWhseActivLineInsertFromProd: Pending 27.0 (#if not CLEAN27), “Replaced by event OnRaiseOnBeforeNewWhseActivLineInsertFromEvent”
procedure OnCreatePutawayForProdOrderComponent: Pending 27.0 (#if not CLEAN27), “Moved to codeunit MfgCreateInventoryPutaway”
procedure OnCreatePutawayForProdOrderLine: Pending 27.0 (#if not CLEAN27), “Moved to codeunit MfgCreateInventoryPutaway”
procedure SetFilterProdOrderLine: Pending 27.0 (#if not CLEAN27), “Moved to codeunit MfgCreateInventoiryPutaway”

Source: AL metadata extracted from the code (names, ids, signatures, properties); no code bodies (D10).

Ask your agent

Procedure bodies are not stored here (D10). The call sections above are our own, per object, from the BC29 call graph. For a procedure body or the calls of one procedure, ask bc-code-atlas (external, by Stefan Maron, MIT; default corpus w1-28), which the bc-observatory plugin connects: bcatlas_resolve_node(object_type: "codeunit", object_name: "Create Inventory Put-away"), then bcatlas_get_procedure_body or bcatlas_get_neighbors on the returned id.