---
id: object/codeunit/3903
type: object
title: Codeunit 3903 "Retention Policy Setup Impl."
summary: Codeunit 3903 "Retention Policy Setup Impl." in System Application (System.DataAdministration). 22 public procedures, 1 events, 1 event subscribers. Present since at least BC23, still in BC30, changed in BC25, BC29.
tier: official
language: en
tags:
  - codeunit
  - system application
versions:
  introduced: null
  last_changed: "29"
  deprecated: null
review:
  state: derived
  by: null
  at: null
  flags: []
generated:
  at: "2026-10-11T00:31:51.816Z"
  pipeline: 0.2.0
  prompts: {}
  input_hash: c9347a08eff18852cef9b64842416c3a36ad3e88272fb462129e17925b14f18d
evidence:
  - kind: code
    url: https://github.com/microsoft/BCApps/blob/ea08af5ef2d6a9b5c5af4a029288abbe2c883220/src/System%20Application/App/Retention%20Policy/src/Retention%20Policy%20Setup/RetentionPolicySetupImpl.Codeunit.al
    title: src/System Application/App/Retention Policy/src/Retention Policy Setup/RetentionPolicySetupImpl.Codeunit.al (releases/29.x)
    date: null
    commit: ea08af5ef2d6a9b5c5af4a029288abbe2c883220
    t: null
    quote: null
links:
  learn: []
  objects: []
  features: []
  topics: []
  localizations: []
  videos: []
  posts: []
  guidelines: []
object_type: codeunit
object_id: 3903
name: Retention Policy Setup Impl.
namespace: System.DataAdministration
app: System Application
extends: null
first_version: "23"
last_version: "30"
present_in:
  - "23"
  - "24"
  - "25"
  - "26"
  - "27"
  - "28"
  - "29"
  - "30"
changed_in:
  - "25"
  - "29"
source_major: "29"
obsolete: null
countries: []
ms_search_form_ids: []
counts:
  fields: 0
  procedures: 29
  events: 1
  subscribers: 1
relations:
  out: 0
  referenced_by: 0
  pages: 0
  extended_by: 0
  event_subscribers: 1
  calls: 5
  called_by: 4
  implements: 0
---

# Codeunit 3903 "Retention Policy Setup Impl."

> Codeunit 3903 "Retention Policy Setup Impl." in System Application (System.DataAdministration). 22 public procedures, 1 events, 1 event subscribers. Present since at least BC23, still in BC30, changed in BC25, BC29.

System Application · System.DataAdministration · BC23-30 · [source at ea08af5e](https://github.com/microsoft/BCApps/blob/ea08af5ef2d6a9b5c5af4a029288abbe2c883220/src/System%20Application/App/Retention%20Policy/src/Retention%20Policy%20Setup/RetentionPolicySetupImpl.Codeunit.al) · facts from BC29

## Properties

| Property | Value |
|---|---|
| Access | Internal |
| Permissions | tabledata AllObj = r, tabledata AllObjWithCaption = r, tabledata Field = r, tabledata "Retention Period" = ri, tabledata "Retention Policy Setup Line" = ri |

## Events published

- `OnVerifyDeleteAllowed(TableId: Integer; var DeleteAllowed: Boolean)` (internal): This is an internal event that only this module is allowed to subscribe to. It is raised by a subscriber to the OnBeforeDeleteEvent of the Retention Policy Setup Line table. The manual subscriber AllowRetentionPolicySetupLineDelete is bound just before the DeleteAll() in procedure DeleteRetentionPol...
  - subscribers: [Codeunit 3903 "Retention Policy Setup Impl."](../codeunit/3903.md) AllowRetentionPolicySetupLineDelete

## Event subscriptions

- AllowRetentionPolicySetupLineDelete subscribes to Codeunit "Retention Policy Setup Impl." OnVerifyDeleteAllowed

## Procedures

- `SetTableFilterView(var RetentionPolicySetupLine: Record "Retention Policy Setup Line"): Text`
- `GetTableFilterView(RetentionPolicySetupLine: Record "Retention Policy Setup Line"): Text`
- `GetTableFilterText(RetentionPolicySetupLine: Record "Retention Policy Setup Line"): Text`
- `TableIdLookup(TableId: Integer): Integer`
- `TableExists(TableId: Integer): Boolean`
- `DateFieldNoLookup(TableId: Integer; FieldNo: Integer): Integer`
- `IsRetentionPolicyEnabled(): Boolean`
- `IsRetentionPolicyEnabled(TableId: Integer): Boolean`
- `ValidateRetentionPeriod(RetentionPolicySetup: Record "Retention Policy Setup")`
- `ValidateRetentionPeriod(RetentionPolicySetupLine: Record "Retention Policy Setup Line")`
- `LogCategory(): Enum "Retention Policy Log Category"`
- `VerifyRetentionPolicySetupOnbeforeDeleteRetentionPeriod(var RetentionPeriod: Record "Retention Period")`
- `VerifyRetentionPolicySetupOnBeforeModifyRetentionPeriod(var RetentionPeriod: Record "Retention Period")`
- `VerifyRetentionPolicyAllowedTablesOnBeforeInsertRetenPolSetup(var RetentionPolicySetup: Record "Retention Policy Setup")`
- `InsertDefaultTableFiltersOnAfterInsertRetenPolSetup(var RetentionPolicySetup: Record "Retention Policy Setup")`
- `FindOrCreateRetentionPeriod(RetentionPeriodEnum: Enum "Retention Period Enum"): Code[20]`
- `FindOrCreateRetentionPeriod(RetentionPeriodEnum: Enum "Retention Period Enum"; RetPeriodCalc: DateFormula): Code[20]`
- `FindOrCreateRetentionPeriod(CodeName: Code[20]; RetentionPeriodEnum: Enum "Retention Period Enum"; RetPeriodCalc: DateFormula): Code[20]`
- `DeleteRetentionPolicySetup(var RetentionPolicySetup: Record "Retention Policy Setup")`
- `AddTableIdToDeleteAllowedList(TableId: Integer)`
- `NotifyOnMissingReadPermission(TableId: Integer): Guid`
- `CheckRecordLockedOnRetentionPolicySetupLine(RetentionPolicySetupLine: Record "Retention Policy Setup Line")`

Plus 5 local procedures.

## 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 3908 "Retention Policy Log"](../codeunit/3908.md) (7 calls: `CheckRecordLockedOnRetentionPolicySetupLine → LogError`, `CheckRecordLockedOnRetentionPolicySetupLine → LogInfo`, `InsertDefaultTableFiltersOnAfterInsertRetenPolSetup → LogWarning`, …)
- [Codeunit 3905 "Reten. Pol. Allowed Tables"](../codeunit/3905.md) (3 calls: `NotifyOnMissingReadPermission → GetRetenPolFiltering`, `TableIdLookup → GetAllowedTables`, `VerifyRetentionPolicyAllowedTablesOnBeforeInsertRetenPolSetup → IsAllowedTable`)
- [Codeunit 3906 "Reten. Pol. Allowed Tbl. Impl."](../codeunit/3906.md) (3 calls: `InsertDefaultTableFiltersOnAfterInsertRetenPolSetup → GetTableFilters`, `InsertDefaultTableFiltersOnAfterInsertRetenPolSetup → ParseTableFilter`, `VerifyRetentionPolicyAllowedTablesOnBeforeInsertRetenPolSetup → GetTableFilters`)
- [Codeunit 9806 "Field Selection"](../codeunit/9806.md) (1 call: `DateFieldNoLookup → Open`)
- [Page 358 "Objects"](../page/358.md) (1 call: `TableIdLookup → (object)`)

## Called by

- [Codeunit 3902 "Retention Policy Setup"](../codeunit/3902.md) (15 calls: `CheckRecordLockedOnRetentionPolicySetupLineOnAfterDelete → CheckRecordLockedOnRetentionPolicySetupLine`, `CheckRecordLockedOnRetentionPolicySetupLineOnAfterModify → CheckRecordLockedOnRetentionPolicySetupLine`, `DateFieldNoLookup → DateFieldNoLookup`, …)
- [Page 3901 "Retention Policy Setup Card"](../page/3901.md) (2 calls: `OnAfterGetCurrRecord → NotifyOnMissingReadPermission`, `OnAfterGetCurrRecord → TableExists`)
- [Codeunit 3912 "Reten. Policy Telemetry Impl."](../codeunit/3912.md) (1 call: `OnModifyRetentionPolicySetupLine → GetTableFilterText`)
- [Table 3901 "Retention Policy Setup"](../table/3901.md) (1 call: `OnDelete → DeleteRetentionPolicySetup`)

## Across versions

- Present in: BC23-30
- Changed (declaration) in: BC25, BC29

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: "Retention Policy Setup Impl.")`, then `bcatlas_get_procedure_body` or `bcatlas_get_neighbors` on the returned id.