diff --git a/src/Apps/W1/Quality Management/app/src/AccessControl/QltyPermissionMgmt.Codeunit.al b/src/Apps/W1/Quality Management/app/src/AccessControl/QltyPermissionMgmt.Codeunit.al
index f8a0e65185..3ada30afb5 100644
--- a/src/Apps/W1/Quality Management/app/src/AccessControl/QltyPermissionMgmt.Codeunit.al	
+++ b/src/Apps/W1/Quality Management/app/src/AccessControl/QltyPermissionMgmt.Codeunit.al	
@@ -228,7 +228,7 @@ codeunit 20406 "Qlty. Permission Mgmt."
     /// </summary>
     /// <param name="ShouldPrompt">Only set with interaction ability is available ( GuiAllowed() is true ) and also prompt when possible is chosen.</param>
     /// <returns>Whether or not auto-assignment should occur.</returns>
-    procedure GetShouldAutoAssign(var ShouldPrompt: Boolean) ShouldAssign: Boolean
+    internal procedure GetShouldAutoAssign(var ShouldPrompt: Boolean) ShouldAssign: Boolean
     var
         QltyInspectionHeader: Record "Qlty. Inspection Header";
     begin
@@ -248,7 +248,7 @@ codeunit 20406 "Qlty. Permission Mgmt."
     /// </summary>
     /// <param name="FunctionalPermission"></param>
     /// <returns></returns>
-    procedure GetSuggestedAllowedValueForFunction(FunctionalPermission: Text) Result: Boolean
+    internal procedure GetSuggestedAllowedValueForFunction(FunctionalPermission: Text) Result: Boolean
     begin
         case FunctionalPermission of
             GetCaptionCreateInspectionAuto():
@@ -359,7 +359,7 @@ codeunit 20406 "Qlty. Permission Mgmt."
     /// If they can, nothing happens.
     /// If they cannot then an error will be thrown.
     /// </summary>
-    procedure VerifyCanEditLineComments()
+    internal procedure VerifyCanEditLineComments()
     begin
         if not CanEditLineComments() then
             Error(UserDoesNotHavePermissionToErr, CurrentUserId, GetCaptionEditLineComments());
@@ -378,7 +378,7 @@ codeunit 20406 "Qlty. Permission Mgmt."
     /// CanReadLineComments. True if the user can read or write line comments.
     /// </summary>
     /// <returns>Return value of type Boolean.</returns>
-    procedure CanReadLineComments(): Boolean
+    internal procedure CanReadLineComments(): Boolean
     begin
         exit(LoadPermissionDetails(GetCaptionEditLineComments()));
     end;
diff --git a/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/JobQueue/QltyJobQueueManagement.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/JobQueue/QltyJobQueueManagement.Codeunit.al
index a1efe05bf7..145374413a 100644
--- a/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/JobQueue/QltyJobQueueManagement.Codeunit.al	
+++ b/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/JobQueue/QltyJobQueueManagement.Codeunit.al	
@@ -50,7 +50,7 @@ codeunit 20455 "Qlty. Job Queue Management"
     /// Common usage: Called when setting up inspection generation rules to ensure scheduled execution infrastructure exists.
     /// </summary>
     /// <param name="ScheduleGroup">The schedule group code to check and potentially create a job queue entry for</param>
-    procedure PromptCreateJobQueueEntryIfMissing(ScheduleGroup: Code[20])
+    internal procedure PromptCreateJobQueueEntryIfMissing(ScheduleGroup: Code[20])
     begin
         if IsJobQueueCreated(ScheduleGroup) then
             exit;
@@ -80,7 +80,7 @@ codeunit 20455 "Qlty. Job Queue Management"
     /// Common usage: When users want multiple schedules for the same rule group (e.g., hourly and daily runs).
     /// </summary>
     /// <param name="ScheduleGroup">The schedule group code to create a job queue entry for (defaults to 'QM' if empty)</param>
-    procedure PromptCreateJobQueueEntry(ScheduleGroup: Code[20])
+    internal procedure PromptCreateJobQueueEntry(ScheduleGroup: Code[20])
     begin
         if ScheduleGroup = '' then
             ScheduleGroup := DefaultScheduleGroupTok;
@@ -113,7 +113,7 @@ codeunit 20455 "Qlty. Job Queue Management"
     /// </summary>
     /// <param name="ToExcludeQltyInspectionGenRule">The rule to exclude from the check (typically the rule being deleted or modified)</param>
     /// <param name="ScheduleGroupToConsiderRemoving">The schedule group code whose job queue entries should be considered for removal</param>
-    procedure DeleteJobQueueIfNothingElseIsUsingThisGroup(ToExcludeQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule"; ScheduleGroupToConsiderRemoving: Code[20])
+    internal procedure DeleteJobQueueIfNothingElseIsUsingThisGroup(ToExcludeQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule"; ScheduleGroupToConsiderRemoving: Code[20])
     var
         QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
         JobQueueEntry: Record "Job Queue Entry";
@@ -151,7 +151,7 @@ codeunit 20455 "Qlty. Job Queue Management"
     /// report with filters matching the specified schedule group.
     /// </summary>
     /// <param name="ScheduleGroup">The schedule group code to filter job queue entries by</param>
-    procedure RunPageLookupJobQueueEntriesForScheduleGroup(ScheduleGroup: Code[20])
+    internal procedure RunPageLookupJobQueueEntriesForScheduleGroup(ScheduleGroup: Code[20])
     var
         JobQueueEntry: Record "Job Queue Entry";
     begin
@@ -261,7 +261,7 @@ codeunit 20455 "Qlty. Job Queue Management"
     /// Error thrown: FilterMandatoryErr with schedule group in message
     /// </summary>
     /// <param name="ThisQltyInspectionGenRule">The inspection generation rule to validate for scheduling</param>
-    procedure CheckIfGenerationRuleCanBeScheduled(var ThisQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule")
+    internal procedure CheckIfGenerationRuleCanBeScheduled(var ThisQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule")
     begin
         if (ThisQltyInspectionGenRule."Condition Filter" = '') and (ThisQltyInspectionGenRule."Item Filter" = '') and (ThisQltyInspectionGenRule."Item Attribute Filter" = '') then
             Error(FilterMandatoryErr, ThisQltyInspectionGenRule."Schedule Group");
diff --git a/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyInspectionGenRule.Table.al b/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyInspectionGenRule.Table.al
index 97db7de3cf..71d98d3eaf 100644
--- a/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyInspectionGenRule.Table.al	
+++ b/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyInspectionGenRule.Table.al	
@@ -404,7 +404,7 @@ table 20404 "Qlty. Inspection Gen. Rule"
     /// <summary>
     /// Sets the default automatic inspection creation triggers for generation rules based on the values set in Quality Management Setup
     /// </summary>
-    procedure SetIntentAndDefaultTriggerValuesFromSetup()
+    internal procedure SetIntentAndDefaultTriggerValuesFromSetup()
     var
         QltyManagementSetup: Record "Qlty. Management Setup";
         InferredIntent: Enum "Qlty. Gen. Rule Intent";
@@ -473,7 +473,7 @@ table 20404 "Qlty. Inspection Gen. Rule"
     end;
 
     [TryFunction]
-    procedure TryInferGenerationRuleIntent(var QltyGenRuleIntent: Enum "Qlty. Gen. Rule Intent"; var QltyCertainty: Enum "Qlty. Certainty")
+    internal procedure TryInferGenerationRuleIntent(var QltyGenRuleIntent: Enum "Qlty. Gen. Rule Intent"; var QltyCertainty: Enum "Qlty. Certainty")
     begin
         InferGenerationRuleIntent(QltyGenRuleIntent, QltyCertainty);
     end;
diff --git a/src/Apps/W1/Quality Management/app/src/Configuration/Result/QltyInspectionResult.Table.al b/src/Apps/W1/Quality Management/app/src/Configuration/Result/QltyInspectionResult.Table.al
index 9ee380c2ff..6affe8eb12 100644
--- a/src/Apps/W1/Quality Management/app/src/Configuration/Result/QltyInspectionResult.Table.al	
+++ b/src/Apps/W1/Quality Management/app/src/Configuration/Result/QltyInspectionResult.Table.al	
@@ -252,7 +252,7 @@ table 20411 "Qlty. Inspection Result"
         UpdateExistingConditions();
     end;
 
-    procedure AutoSetResultCategoryFromName()
+    internal procedure AutoSetResultCategoryFromName()
     begin
         if Rec."Result Category" <> Rec."Result Category"::Uncategorized then
             exit;
diff --git a/src/Apps/W1/Quality Management/app/src/Configuration/Result/QltyResultConditionMgmt.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Configuration/Result/QltyResultConditionMgmt.Codeunit.al
index 65ad4800ea..8faeda8b31 100644
--- a/src/Apps/W1/Quality Management/app/src/Configuration/Result/QltyResultConditionMgmt.Codeunit.al	
+++ b/src/Apps/W1/Quality Management/app/src/Configuration/Result/QltyResultConditionMgmt.Codeunit.al	
@@ -82,7 +82,7 @@ codeunit 20409 "Qlty. Result Condition Mgmt."
     /// <param name="Template">The template</param>
     /// <param name="LineNo">The template line</param>
     /// <param name="OptionalSpecificResult">Leave empty to copy all applicable results</param>
-    procedure CopyResultConditionsFromTestToTemplateLine(Template: Code[20]; LineNo: Integer; OptionalSpecificResult: Code[20]; OverwriteConditionIfExisting: Boolean)
+    internal procedure CopyResultConditionsFromTestToTemplateLine(Template: Code[20]; LineNo: Integer; OptionalSpecificResult: Code[20]; OverwriteConditionIfExisting: Boolean)
     begin
         CopyResultConditionsFromTestToTemplateLine(Template, LineNo, OptionalSpecificResult, OverwriteConditionIfExisting, '', '');
     end;
@@ -437,7 +437,7 @@ codeunit 20409 "Qlty. Result Condition Mgmt."
     /// <param name="MatrixArrayToSetConditionDescriptionCellData"></param>
     /// <param name="MatrixArrayToSetCaptionSet"></param>
     /// <param name="MatrixVisibleStateToSet"></param>
-    procedure GetDefaultPromotedResults(
+    internal procedure GetDefaultPromotedResults(
         AllPromoted: Boolean;
         var MatrixArraySourceRecordId: array[10] of RecordId;
         var MatrixArrayToSetConditionCellData: array[10] of Text;
diff --git a/src/Apps/W1/Quality Management/app/src/Configuration/Result/QltyResultEvaluation.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Configuration/Result/QltyResultEvaluation.Codeunit.al
index c999562fb4..a43d3c2d22 100644
--- a/src/Apps/W1/Quality Management/app/src/Configuration/Result/QltyResultEvaluation.Codeunit.al	
+++ b/src/Apps/W1/Quality Management/app/src/Configuration/Result/QltyResultEvaluation.Codeunit.al	
@@ -157,7 +157,7 @@ codeunit 20410 "Qlty. Result Evaluation"
     /// <param name="OptionalQltyInspectionHeader"></param>
     /// <returns></returns>
     [TryFunction]
-    procedure TryValidateQltyInspectionLine(var QltyInspectionLine: Record "Qlty. Inspection Line"; var OptionalQltyInspectionHeader: Record "Qlty. Inspection Header")
+    internal procedure TryValidateQltyInspectionLine(var QltyInspectionLine: Record "Qlty. Inspection Line"; var OptionalQltyInspectionHeader: Record "Qlty. Inspection Header")
     begin
         ValidateQltyInspectionLine(QltyInspectionLine, OptionalQltyInspectionHeader, false);
     end;
diff --git a/src/Apps/W1/Quality Management/app/src/Configuration/SourceConfiguration/QltyTraversal.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Configuration/SourceConfiguration/QltyTraversal.Codeunit.al
index 31f6c33f42..9dc486532a 100644
--- a/src/Apps/W1/Quality Management/app/src/Configuration/SourceConfiguration/QltyTraversal.Codeunit.al	
+++ b/src/Apps/W1/Quality Management/app/src/Configuration/SourceConfiguration/QltyTraversal.Codeunit.al	
@@ -593,7 +593,7 @@ codeunit 20408 "Qlty. Traversal"
     /// <param name="ChildRecordVariant">The child record as a Record, RecordId, or RecordRef</param>
     /// <param name="FoundParentRecordRef">Output: The resolved parent RecordRef if found</param>
     /// <returns>True if a single parent record was found; False otherwise</returns>
-    procedure FindSingleParentRecordWithVariant(ChildRecordVariant: Variant; var FoundParentRecordRef: RecordRef): Boolean;
+    internal procedure FindSingleParentRecordWithVariant(ChildRecordVariant: Variant; var FoundParentRecordRef: RecordRef): Boolean;
     var
         ChildRecordRef: RecordRef;
     begin
@@ -760,7 +760,7 @@ codeunit 20408 "Qlty. Traversal"
     /// <param name="Item">Output: The found Item record with all fields populated</param>
     /// <param name="CurrentVariant">The record variant to search (Record, RecordRef, or RecordId)</param>
     /// <returns>True if an Item was found and loaded into Item; False otherwise</returns>
-    procedure FindRelatedItemIn(var Item: Record Item; CurrentVariant: Variant): Boolean
+    internal procedure FindRelatedItemIn(var Item: Record Item; CurrentVariant: Variant): Boolean
     var
         QltyInspectSourceConfig: Record "Qlty. Inspect. Source Config.";
         QltyInspectSrcFldConf: Record "Qlty. Inspect. Src. Fld. Conf.";
@@ -870,7 +870,7 @@ codeunit 20408 "Qlty. Traversal"
     /// <param name="Vendor">Output: The found Vendor record with all fields populated</param>
     /// <param name="CurrentVariant">The record variant to search (Record, RecordRef, or RecordId)</param>
     /// <returns>True if a Vendor was found and loaded into Vendor; False otherwise</returns>
-    procedure FindRelatedVendorIn(var Vendor: Record Vendor; CurrentVariant: Variant): Boolean
+    internal procedure FindRelatedVendorIn(var Vendor: Record Vendor; CurrentVariant: Variant): Boolean
     var
         RecordRef: RecordRef;
         VendorNo: Text;
@@ -949,7 +949,7 @@ codeunit 20408 "Qlty. Traversal"
     /// <param name="Customer">Output: The found Customer record with all fields populated</param>
     /// <param name="CurrentVariant">The record variant to search (Record, RecordRef, or RecordId)</param>
     /// <returns>True if a Customer was found and loaded into Customer; False otherwise</returns>
-    procedure FindRelatedCustomerIn(var Customer: Record Customer; CurrentVariant: Variant): Boolean
+    internal procedure FindRelatedCustomerIn(var Customer: Record Customer; CurrentVariant: Variant): Boolean
     var
         RecordRef: RecordRef;
         CustomerNo: Text;
@@ -1028,7 +1028,7 @@ codeunit 20408 "Qlty. Traversal"
     /// <param name="RoutingHeader">Output: The found Routing Header record with all fields populated</param>
     /// <param name="CurrentVariant">The record variant to search (Record, RecordRef, or RecordId)</param>
     /// <returns>True if a Routing Header was found and loaded into RoutingHeader; False otherwise</returns>
-    procedure FindRelatedRoutingIn(var RoutingHeader: Record "Routing Header"; CurrentVariant: Variant): Boolean
+    internal procedure FindRelatedRoutingIn(var RoutingHeader: Record "Routing Header"; CurrentVariant: Variant): Boolean
     var
         RecordRef: RecordRef;
         RoutingNo: Text;
@@ -1111,7 +1111,7 @@ codeunit 20408 "Qlty. Traversal"
     /// <param name="ProductionBOMHeader">Output: The found Production BOM Header record with all fields populated</param>
     /// <param name="CurrentVariant">The record variant to search (Record, RecordRef, or RecordId)</param>
     /// <returns>True if a Production BOM Header was found and loaded into ProductionBOMHeader; False otherwise</returns>
-    procedure FindRelatedBillOfMaterialIn(var ProductionBOMHeader: Record "Production BOM Header"; CurrentVariant: Variant): Boolean
+    internal procedure FindRelatedBillOfMaterialIn(var ProductionBOMHeader: Record "Production BOM Header"; CurrentVariant: Variant): Boolean
     var
         CurrentField: Record Field;
         QltyInspectSourceConfig: Record "Qlty. Inspect. Source Config.";
diff --git a/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionCreate.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionCreate.Codeunit.al
index d7c63b4550..8404965ccd 100644
--- a/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionCreate.Codeunit.al	
+++ b/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionCreate.Codeunit.al	
@@ -775,7 +775,7 @@ codeunit 20404 "Qlty. Inspection - Create"
     /// Returns the last created status.
     /// </summary>
     /// <returns></returns>
-    procedure GetLastCreatedStatus(): Enum "Qlty. Inspection Create Status"
+    internal procedure GetLastCreatedStatus(): Enum "Qlty. Inspection Create Status"
     begin
         exit(LastQltyInspectionCreateStatus);
     end;
diff --git a/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionHeader.Table.al b/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionHeader.Table.al
index 58b42616ec..4a3dac6aad 100644
--- a/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionHeader.Table.al	
+++ b/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionHeader.Table.al	
@@ -771,7 +771,7 @@ table 20405 "Qlty. Inspection Header"
     /// <summary>
     /// InitInspectionNumber will initialize the document no. on the Quality Inspection if it's needed. If it's already set then this will not be altered.
     /// </summary>
-    procedure InitInspectionNumber()
+    internal procedure InitInspectionNumber()
     var
         NoSeries: Codeunit "No. Series";
     begin
@@ -788,7 +788,7 @@ table 20405 "Qlty. Inspection Header"
     /// Decision decision: because we're passing this around as a recordref everywhere and we need that flag, we're storing in the session state instead.
     /// </summary>
     /// <param name="IsCreating"></param>
-    procedure SetIsCreating(IsCreating: Boolean)
+    internal procedure SetIsCreating(IsCreating: Boolean)
     begin
         QltySessionHelper.SetSessionValue(GetIsCreatingKey(), Format(IsCreating));
     end;
@@ -797,7 +797,7 @@ table 20405 "Qlty. Inspection Header"
     /// Returns true if this record is in the middle of being created.
     /// </summary>
     /// <returns></returns>
-    procedure GetIsCreating(): Boolean
+    internal procedure GetIsCreating(): Boolean
     begin
         exit(QltySessionHelper.GetSessionValue(GetIsCreatingKey()) = Format(true));
     end;
@@ -957,7 +957,7 @@ table 20405 "Qlty. Inspection Header"
     /// Returns the posted inventory for the item/variant
     /// </summary>
     /// <returns></returns>
-    procedure GetPostedInventory() PostedInventory: Decimal
+    internal procedure GetPostedInventory() PostedInventory: Decimal
     var
         ItemLedgerEntry: Record "Item Ledger Entry";
         TempItemTrackingSetup: Record "Item Tracking Setup" temporary;
@@ -980,7 +980,7 @@ table 20405 "Qlty. Inspection Header"
         PostedInventory := ItemLedgerEntry.Quantity;
     end;
 
-    procedure GetReservedInventory() ReservedInventory: Decimal
+    internal procedure GetReservedInventory() ReservedInventory: Decimal
     var
         ReservationEntry: Record "Reservation Entry";
         TempItemTrackingSetup: Record "Item Tracking Setup" temporary;
@@ -1032,7 +1032,7 @@ table 20405 "Qlty. Inspection Header"
     /// Returns true if there is a more recent re-inspection than the current inspection.
     /// </summary>
     /// <returns></returns>
-    procedure HasMoreRecentReinspection(): Boolean
+    internal procedure HasMoreRecentReinspection(): Boolean
     var
         SucceedingQltyInspectionHeader: Record "Qlty. Inspection Header";
     begin
@@ -1317,7 +1317,7 @@ table 20405 "Qlty. Inspection Header"
     /// <param name="FileExtension"></param>
     /// <returns></returns>
     [TryFunction]
-    procedure AddPicture(var PictureInStream: InStream; PictureName: Text; FileExtension: Text)
+    internal procedure AddPicture(var PictureInStream: InStream; PictureName: Text; FileExtension: Text)
     var
         DocumentAttachment: Record "Document Attachment";
 
@@ -1410,7 +1410,7 @@ table 20405 "Qlty. Inspection Header"
         OnAfterSetRecordFiltersToFindInspectionFor(Rec, ErrorIfMissingFilter, RecordVariant, UseItem, UseTracking, UseDocument);
     end;
 
-    procedure GetMostRecentInspectionFor(RecordVariant: Variant) Success: Boolean
+    internal procedure GetMostRecentInspectionFor(RecordVariant: Variant) Success: Boolean
     begin
         Rec.SetRecordFiltersToFindInspectionFor(false, RecordVariant, true, true, true);
         Rec.SetCurrentKey("No.", "Re-inspection No.");
@@ -1418,21 +1418,21 @@ table 20405 "Qlty. Inspection Header"
         Success := Rec.FindFirst();
     end;
 
-    procedure PrintCertificateOfAnalysis()
+    internal procedure PrintCertificateOfAnalysis()
     var
         QltyReportMgmt: Codeunit "Qlty. Report Mgmt.";
     begin
         QltyReportMgmt.PrintCertificateOfAnalysis(Rec);
     end;
 
-    procedure PrintNonConformance()
+    internal procedure PrintNonConformance()
     var
         QltyReportMgmt: Codeunit "Qlty. Report Mgmt.";
     begin
         QltyReportMgmt.PrintNonConformance(Rec);
     end;
 
-    procedure PrintGeneralPurposeInspection()
+    internal procedure PrintGeneralPurposeInspection()
     var
         QltyReportMgmt: Codeunit "Qlty. Report Mgmt.";
     begin
@@ -1505,7 +1505,7 @@ table 20405 "Qlty. Inspection Header"
     /// Use SetPreventAutoAssignment to set whether or not we should prevent auto-assignment for this inspection
     /// </summary>
     /// <param name="ShouldPrevent"></param>
-    procedure SetPreventAutoAssignment(ShouldPrevent: Boolean)
+    internal procedure SetPreventAutoAssignment(ShouldPrevent: Boolean)
     begin
         QltySessionHelper.SetSessionValue(GetPreventAutoAssignmentKey(), Format(ShouldPrevent));
     end;
@@ -1596,7 +1596,7 @@ table 20405 "Qlty. Inspection Header"
     ///If no sampling fields, will return the sample size if all measures are acceptable.
     /// </summary>
     /// <returns>Quantity of samples</returns>
-    procedure GetPassSampleQuantity() PassQuantity: Decimal
+    internal procedure GetPassSampleQuantity() PassQuantity: Decimal
     begin
     end;
 
@@ -1605,14 +1605,14 @@ table 20405 "Qlty. Inspection Header"
     ///If no sampling fields, will return the sample size if any measures are not acceptable.
     /// </summary>
     /// <returns>Quantity of samples</returns>
-    procedure GetFailedSampleQuantity() FailQuantity: Decimal
+    internal procedure GetFailedSampleQuantity() FailQuantity: Decimal
     begin
     end;
 
     /// <summary>
     /// Initializes the Qlty. Related Transfers page with the Quality Inspection record and runs it
     /// </summary>
-    procedure RunModalRelatedTransfers()
+    internal procedure RunModalRelatedTransfers()
     var
         QltyRelatedTransferOrders: Page "Qlty. Related Transfer Orders";
     begin
diff --git a/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionLine.Table.al b/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionLine.Table.al
index 95c66cdea4..0a3fe60568 100644
--- a/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionLine.Table.al	
+++ b/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionLine.Table.al	
@@ -286,7 +286,7 @@ table 20406 "Qlty. Inspection Line"
         end;
     end;
 
-    procedure AssistEditFreeText()
+    internal procedure AssistEditFreeText()
     var
         QltyEditLargeText: Page "Qlty. Edit Large Text";
         ExistingText: Text;
@@ -297,7 +297,7 @@ table 20406 "Qlty. Inspection Line"
             SetLargeText(ExistingText, true, false);
     end;
 
-    procedure GetLargeText() Result: Text
+    internal procedure GetLargeText() Result: Text
     var
         InStreamForText: InStream;
     begin
@@ -311,7 +311,7 @@ table 20406 "Qlty. Inspection Line"
         end;
     end;
 
-    procedure SetLargeText(LargeText: Text; ValidateValue: Boolean; OnlySetBlob: Boolean)
+    internal procedure SetLargeText(LargeText: Text; ValidateValue: Boolean; OnlySetBlob: Boolean)
     var
         OutStreamForText: OutStream;
     begin
@@ -372,7 +372,7 @@ table 20406 "Qlty. Inspection Line"
     /// Returns true if the test is a numeric field type.
     /// </summary>
     /// <returns></returns>
-    procedure IsNumericFieldType(): Boolean
+    internal procedure IsNumericFieldType(): Boolean
     var
         QltyTest: Record "Qlty. Test";
     begin
@@ -381,7 +381,7 @@ table 20406 "Qlty. Inspection Line"
                 exit(QltyTest.IsNumericFieldType());
     end;
 
-    procedure GetFailedSampleCount() FailedSamples: Integer
+    internal procedure GetFailedSampleCount() FailedSamples: Integer
     begin
     end;
 
@@ -396,7 +396,7 @@ table 20406 "Qlty. Inspection Line"
             exit(QltyInspectionResult.GetResultStyle());
     end;
 
-    procedure UpdateExpressionsInOtherInspectionLinesInSameInspection()
+    internal procedure UpdateExpressionsInOtherInspectionLinesInSameInspection()
     var
         OthersInSameQltyInspectionLine: Record "Qlty. Inspection Line";
         QltyInspectionTemplateLine: Record "Qlty. Inspection Template Line";
@@ -528,7 +528,7 @@ table 20406 "Qlty. Inspection Line"
     /// <summary>
     /// Opens up a dialog to collect note text.
     /// </summary>
-    procedure RunModalEditMeasurementNote()
+    internal procedure RunModalEditMeasurementNote()
     var
         QltyEditLargeText: Page "Qlty. Edit Large Text";
         Note: Text;
@@ -544,7 +544,7 @@ table 20406 "Qlty. Inspection Line"
     /// <summary>
     /// Opens up a dialog to collect note text.
     /// </summary>
-    procedure RunModalReadOnlyComment()
+    internal procedure RunModalReadOnlyComment()
     var
         QltyEditLargeText: Page "Qlty. Edit Large Text";
         Note: Text;
diff --git a/src/Apps/W1/Quality Management/app/src/Setup/QltyManagementSetup.Table.al b/src/Apps/W1/Quality Management/app/src/Setup/QltyManagementSetup.Table.al
index 0d4553068a..72ec624f9c 100644
--- a/src/Apps/W1/Quality Management/app/src/Setup/QltyManagementSetup.Table.al	
+++ b/src/Apps/W1/Quality Management/app/src/Setup/QltyManagementSetup.Table.al	
@@ -573,7 +573,7 @@ table 20400 "Qlty. Management Setup"
     /// <summary>
     /// Retrieves the Setup record from the database, caching the result to avoid repeated reads within the same session.
     /// </summary>
-    procedure GetRecordOnce()
+    internal procedure GetRecordOnce()
     begin
         if RecordHasBeenRead then
             exit;
diff --git a/src/Apps/W1/Quality Management/app/src/Utilities/QltyEditLargeText.Page.al b/src/Apps/W1/Quality Management/app/src/Utilities/QltyEditLargeText.Page.al
index bb05f2091a..f0f2a5731b 100644
--- a/src/Apps/W1/Quality Management/app/src/Utilities/QltyEditLargeText.Page.al	
+++ b/src/Apps/W1/Quality Management/app/src/Utilities/QltyEditLargeText.Page.al	
@@ -37,7 +37,7 @@ page 20441 "Qlty. Edit Large Text"
     var
         ContentText: Text;
 
-    procedure RunModalWith(var ExistingText: Text) ResultAction: Action
+    internal procedure RunModalWith(var ExistingText: Text) ResultAction: Action
     begin
         ContentText := ExistingText;
         ResultAction := CurrPage.RunModal();
diff --git a/src/Apps/W1/Quality Management/app/src/Utilities/QltyExpressionMgmt.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Utilities/QltyExpressionMgmt.Codeunit.al
index e1e2ebcd68..7ebe42c387 100644
--- a/src/Apps/W1/Quality Management/app/src/Utilities/QltyExpressionMgmt.Codeunit.al	
+++ b/src/Apps/W1/Quality Management/app/src/Utilities/QltyExpressionMgmt.Codeunit.al	
@@ -255,7 +255,7 @@ codeunit 20416 "Qlty. Expression Mgmt."
     /// <param name="SearchFor">The text to search for</param>
     /// <param name="ReplaceWith">The text to replace matches with</param>
     /// <returns>The text with all occurrences replaced</returns>
-    procedure TextReplace(Input: Text; SearchFor: Text; ReplaceWith: Text): Text
+    internal procedure TextReplace(Input: Text; SearchFor: Text; ReplaceWith: Text): Text
     begin
         exit(TextReplace(Input, SearchFor, ReplaceWith, "Qlty. Case Sensitivity"::Sensitive));
     end;
@@ -275,7 +275,7 @@ codeunit 20416 "Qlty. Expression Mgmt."
     /// <param name="ReplaceWith">The text to replace matches with</param>
     /// <param name="QltyCaseSensitivity">Sensitive for exact matching; Insensitive for case-insensitive matching</param>
     /// <returns>The text with all occurrences replaced</returns>
-    procedure TextReplace(Input: Text; SearchFor: Text; ReplaceWith: Text; QltyCaseSensitivity: Enum "Qlty. Case Sensitivity") ResultText: Text
+    internal procedure TextReplace(Input: Text; SearchFor: Text; ReplaceWith: Text; QltyCaseSensitivity: Enum "Qlty. Case Sensitivity") ResultText: Text
     var
         InputLen: Integer;
         SearchLen: Integer;
@@ -585,7 +585,7 @@ codeunit 20416 "Qlty. Expression Mgmt."
     /// Common usage: Displaying help text in UI, documenting expression capabilities, validation reference.
     /// </summary>
     /// <returns>Comma-separated list of available text formula patterns and functions</returns>
-    procedure GetTextFormulaOptions(): Text
+    internal procedure GetTextFormulaOptions(): Text
     begin
         exit(SpecialTextFormulaOptionsTok);
     end;
diff --git a/src/Apps/W1/Quality Management/app/src/Utilities/QltyFilterHelpers.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Utilities/QltyFilterHelpers.Codeunit.al
index f89157290d..590183041a 100644
--- a/src/Apps/W1/Quality Management/app/src/Utilities/QltyFilterHelpers.Codeunit.al	
+++ b/src/Apps/W1/Quality Management/app/src/Utilities/QltyFilterHelpers.Codeunit.al	
@@ -723,7 +723,7 @@ codeunit 20403 "Qlty. Filter Helpers"
         end;
     end;
 
-    procedure AssistEditUnitOfMeasure(var UnitOfMeasureCode: Code[10]): Boolean
+    internal procedure AssistEditUnitOfMeasure(var UnitOfMeasureCode: Code[10]): Boolean
     var
         UnitOfMeasure: Record "Unit of Measure";
         UnitsOfMeasure: Page "Units of Measure";
@@ -949,7 +949,7 @@ codeunit 20403 "Qlty. Filter Helpers"
     /// <param name="FieldNo"></param>
     /// <param name="ExpectedVariant"></param>
     /// <returns></returns>
-    procedure GetIsFilterSetToValue(TableNo: Integer; Filter: Text; FieldNo: Integer; ExpectedVariant: Variant): Boolean;
+    internal procedure GetIsFilterSetToValue(TableNo: Integer; Filter: Text; FieldNo: Integer; ExpectedVariant: Variant): Boolean;
     var
         RecordRef: RecordRef;
         FieldRef: FieldRef;
diff --git a/src/Apps/W1/Quality Management/app/src/Utilities/QltyMiscHelpers.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Utilities/QltyMiscHelpers.Codeunit.al
index 08ec966e1d..0f965c63f6 100644
--- a/src/Apps/W1/Quality Management/app/src/Utilities/QltyMiscHelpers.Codeunit.al	
+++ b/src/Apps/W1/Quality Management/app/src/Utilities/QltyMiscHelpers.Codeunit.al	
@@ -101,7 +101,7 @@ codeunit 20599 "Qlty. Misc Helpers"
     /// <param name="FilterString">File type filter for the upload dialog (e.g., "*.xml|*.txt")</param>
     /// <param name="InStream">Output: InStream containing the uploaded file contents</param>
     /// <returns>True if file was successfully selected and uploaded; False if user cancelled or upload failed</returns>
-    procedure PromptAndImportIntoInStream(FilterString: Text; var InStream: InStream) Worked: Boolean
+    internal procedure PromptAndImportIntoInStream(FilterString: Text; var InStream: InStream) Worked: Boolean
     var
         ServerFile: Text;
     begin
@@ -491,7 +491,7 @@ codeunit 20599 "Qlty. Misc Helpers"
     /// </summary>
     /// <param name="InputText">The text to check for boolean-like characteristics</param>
     /// <returns>True if text appears to be a boolean representation; False otherwise</returns>
-    procedure CanTextBeInterpretedAsBooleanIsh(InputText: Text): Boolean
+    internal procedure CanTextBeInterpretedAsBooleanIsh(InputText: Text): Boolean
     begin
         exit(IsTextValuePositiveBoolean(InputText) or IsTextValueNegativeBoolean(InputText));
     end;
diff --git a/src/Apps/W1/Quality Management/app/src/Utilities/QltyNotificationMgmt.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Utilities/QltyNotificationMgmt.Codeunit.al
index 70df8df578..ddb10fcc92 100644
--- a/src/Apps/W1/Quality Management/app/src/Utilities/QltyNotificationMgmt.Codeunit.al	
+++ b/src/Apps/W1/Quality Management/app/src/Utilities/QltyNotificationMgmt.Codeunit.al	
@@ -75,7 +75,7 @@ codeunit 20437 "Qlty. Notification Mgmt."
     /// <summary>
     /// Ensures that configurable notifications are inserted.
     /// </summary>
-    procedure EnsureDefaultNotifications()
+    internal procedure EnsureDefaultNotifications()
     var
         MyNotifications: Record "My Notifications";
     begin
@@ -87,7 +87,7 @@ codeunit 20437 "Qlty. Notification Mgmt."
     /// Creates a notification that an inspection has been created.
     /// </summary>
     /// <param name="QltyInspectionHeader"></param>
-    procedure NotifyInspectionCreated(QltyInspectionHeader: Record "Qlty. Inspection Header")
+    internal procedure NotifyInspectionCreated(QltyInspectionHeader: Record "Qlty. Inspection Header")
     var
         MyNotifications: Record "My Notifications";
         NotificationInspectionCreated: Notification;
@@ -109,7 +109,7 @@ codeunit 20437 "Qlty. Notification Mgmt."
     /// Creates a notification that multiple inspections have been created.
     /// </summary>
     /// <param name="QltyInspectionHeader"></param>
-    procedure NotifyMultipleInspectionsCreated(QltyInspectionHeader: Record "Qlty. Inspection Header")
+    internal procedure NotifyMultipleInspectionsCreated(QltyInspectionHeader: Record "Qlty. Inspection Header")
     var
         MyNotifications: Record "My Notifications";
         NotificationTestCreated: Notification;
@@ -208,7 +208,7 @@ codeunit 20437 "Qlty. Notification Mgmt."
     /// <param name="QltyInspectionHeader"></param>
     /// <param name="TempInstructionQltyDispositionBuffer"></param>
     /// <param name="DocumentType">Used to display in the action.</param>
-    procedure NotifyDocumentCreationFailed(var QltyInspectionHeader: Record "Qlty. Inspection Header"; var TempInstructionQltyDispositionBuffer: Record "Qlty. Disposition Buffer" temporary; DocumentType: Text)
+    internal procedure NotifyDocumentCreationFailed(var QltyInspectionHeader: Record "Qlty. Inspection Header"; var TempInstructionQltyDispositionBuffer: Record "Qlty. Disposition Buffer" temporary; DocumentType: Text)
     var
         DummyVariant: Variant;
     begin
@@ -223,7 +223,7 @@ codeunit 20437 "Qlty. Notification Mgmt."
     /// <param name="DocumentType"></param>
     /// <param name="OptionalAdditionalMessageContext"></param>
     /// <param name="OptionalRelatedDocumentVariant"></param>
-    procedure NotifyDocumentCreationFailed(var QltyInspectionHeader: Record "Qlty. Inspection Header"; var TempInstructionQltyDispositionBuffer: Record "Qlty. Disposition Buffer" temporary; DocumentType: Text; OptionalAdditionalMessageContext: Text; OptionalRelatedDocumentVariant: Variant)
+    internal procedure NotifyDocumentCreationFailed(var QltyInspectionHeader: Record "Qlty. Inspection Header"; var TempInstructionQltyDispositionBuffer: Record "Qlty. Disposition Buffer" temporary; DocumentType: Text; OptionalAdditionalMessageContext: Text; OptionalRelatedDocumentVariant: Variant)
     var
         Item: Record Item;
         QltyMiscHelpers: Codeunit "Qlty. Misc Helpers";
@@ -274,7 +274,7 @@ codeunit 20437 "Qlty. Notification Mgmt."
     /// <param name="Success"></param>
     /// <param name="ChangedBaseQuantity"></param>
     /// <param name="DocumentOrBatchName"></param>
-    procedure NotifyItemTrackingChanged(QltyInspectionHeader: Record "Qlty. Inspection Header"; var TempInstructionQltyDispositionBuffer: Record "Qlty. Disposition Buffer" temporary; LineCreated: Boolean; Success: Boolean; ChangedBaseQuantity: Decimal; DocumentOrBatchName: Text; OptionalSourceExpirationDate: Date)
+    internal procedure NotifyItemTrackingChanged(QltyInspectionHeader: Record "Qlty. Inspection Header"; var TempInstructionQltyDispositionBuffer: Record "Qlty. Disposition Buffer" temporary; LineCreated: Boolean; Success: Boolean; ChangedBaseQuantity: Decimal; DocumentOrBatchName: Text; OptionalSourceExpirationDate: Date)
     var
         Item: Record Item;
         Source: Text;
@@ -309,7 +309,7 @@ codeunit 20437 "Qlty. Notification Mgmt."
     /// <param name="QltyInspectionHeader"></param>
     /// <param name="TempInstructionQltyDispositionBuffer"></param>
     /// <param name="DocumentOrBatchName"></param>   
-    procedure NotifyMovementOccurred(QltyInspectionHeader: Record "Qlty. Inspection Header"; var TempInstructionQltyDispositionBuffer: Record "Qlty. Disposition Buffer" temporary; DocumentOrBatchName: Text)
+    internal procedure NotifyMovementOccurred(QltyInspectionHeader: Record "Qlty. Inspection Header"; var TempInstructionQltyDispositionBuffer: Record "Qlty. Disposition Buffer" temporary; DocumentOrBatchName: Text)
     var
         Item: Record Item;
         Source: Text;
@@ -522,7 +522,7 @@ codeunit 20437 "Qlty. Notification Mgmt."
     /// <param name="Type">The label for Lot or Serial or Package</param>
     /// <param name="ItemTrackingDetail">The content for Lot or Serial or Package</param>
     /// <param name="BlockedState"></param>
-    procedure NotifyItemTrackingBlockStateChanged(
+    internal procedure NotifyItemTrackingBlockStateChanged(
         QltyInspectionHeader: Record "Qlty. Inspection Header";
         InformationType: RecordId;
         Type: Text;
@@ -601,7 +601,7 @@ codeunit 20437 "Qlty. Notification Mgmt."
     /// </summary>
     /// <param name="QltyInspectionHeader"></param>
     /// <returns></returns>   
-    procedure GetSourceSummaryText(var QltyInspectionHeader: Record "Qlty. Inspection Header"): Text
+    internal procedure GetSourceSummaryText(var QltyInspectionHeader: Record "Qlty. Inspection Header"): Text
     var
         TextBuilder: TextBuilder;
     begin
diff --git a/src/Apps/W1/Quality Management/app/src/Workflow/QltyWorkflowResponse.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Workflow/QltyWorkflowResponse.Codeunit.al
index 30e454f714..958b908721 100644
--- a/src/Apps/W1/Quality Management/app/src/Workflow/QltyWorkflowResponse.Codeunit.al	
+++ b/src/Apps/W1/Quality Management/app/src/Workflow/QltyWorkflowResponse.Codeunit.al	
@@ -345,7 +345,7 @@ codeunit 20424 "Qlty. Workflow Response"
     /// <param name="WorkflowStepArgument"></param>
     /// <param name="CurrentKey"></param>
     /// <returns></returns>
-    procedure GetStepConfigurationValueAsDecimal(WorkflowStepArgument: Record "Workflow Step Argument"; CurrentKey: Text) ResultDecimal: Decimal
+    internal procedure GetStepConfigurationValueAsDecimal(WorkflowStepArgument: Record "Workflow Step Argument"; CurrentKey: Text) ResultDecimal: Decimal
     var
         StepConfigurationValue: Text;
     begin
@@ -359,7 +359,7 @@ codeunit 20424 "Qlty. Workflow Response"
     /// <param name="WorkflowStepArgument"></param>
     /// <param name="CurrentKey"></param>
     /// <returns></returns>
-    procedure GetStepConfigurationValueAsBoolean(WorkflowStepArgument: Record "Workflow Step Argument"; CurrentKey: Text) ResultBoolean: Boolean
+    internal procedure GetStepConfigurationValueAsBoolean(WorkflowStepArgument: Record "Workflow Step Argument"; CurrentKey: Text) ResultBoolean: Boolean
     var
         StepConfigurationValue: Text;
     begin
@@ -373,7 +373,7 @@ codeunit 20424 "Qlty. Workflow Response"
     /// <param name="WorkflowStepArgument"></param>
     /// <param name="CurrentKey"></param>
     /// <returns></returns>
-    procedure GetStepConfigurationValueAsCode10(WorkflowStepArgument: Record "Workflow Step Argument"; CurrentKey: Text) ResultCode: Code[10]
+    internal procedure GetStepConfigurationValueAsCode10(WorkflowStepArgument: Record "Workflow Step Argument"; CurrentKey: Text) ResultCode: Code[10]
     var
         StepConfigurationValue: Text;
     begin
@@ -387,7 +387,7 @@ codeunit 20424 "Qlty. Workflow Response"
     /// <param name="WorkflowStepArgument"></param>
     /// <param name="CurrentKey"></param>
     /// <returns></returns>
-    procedure GetStepConfigurationValueAsCode20(WorkflowStepArgument: Record "Workflow Step Argument"; CurrentKey: Text) ResultCode: Code[20]
+    internal procedure GetStepConfigurationValueAsCode20(WorkflowStepArgument: Record "Workflow Step Argument"; CurrentKey: Text) ResultCode: Code[20]
     var
         StepConfigurationValue: Text;
     begin
@@ -469,7 +469,7 @@ codeunit 20424 "Qlty. Workflow Response"
     /// <param name="WorkflowStepArgument">Workflow Step Argument</param>
     /// <param name="CurrentKey">Configuration Key</param>
     /// <returns>Value as Date</returns>
-    procedure GetStepConfigurationValueAsDate(WorkflowStepArgument: Record "Workflow Step Argument"; CurrentKey: Text) ResultDate: Date
+    internal procedure GetStepConfigurationValueAsDate(WorkflowStepArgument: Record "Workflow Step Argument"; CurrentKey: Text) ResultDate: Date
     var
         StepConfigurationValue: Text;
     begin
@@ -629,7 +629,7 @@ codeunit 20424 "Qlty. Workflow Response"
     /// Returns the key value for new serial no.
     /// </summary>
     /// <returns></returns>
-    procedure GetWellKnownNewSerialNo(): Text
+    internal procedure GetWellKnownNewSerialNo(): Text
     begin
         exit('NEWSERIALNO');
     end;
@@ -638,7 +638,7 @@ codeunit 20424 "Qlty. Workflow Response"
     /// Returns the key value for new package no.
     /// </summary>
     /// <returns></returns>
-    procedure GetWellKnownNewPackageNo(): Text
+    internal procedure GetWellKnownNewPackageNo(): Text
     begin
         exit('NEWPACKAGENO');
     end;
@@ -674,7 +674,7 @@ codeunit 20424 "Qlty. Workflow Response"
     /// Returns the key value for the in-transit code.
     /// </summary>
     /// <returns></returns>
-    procedure GetWellKnownInTransit(): Text
+    internal procedure GetWellKnownInTransit(): Text
     begin
         exit('INTRANSIT');
     end;
diff --git a/src/Apps/W1/Quality Management/app/src/Workflow/QltyWorkflowSetup.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Workflow/QltyWorkflowSetup.Codeunit.al
index aae8b63747..426b89002c 100644
--- a/src/Apps/W1/Quality Management/app/src/Workflow/QltyWorkflowSetup.Codeunit.al	
+++ b/src/Apps/W1/Quality Management/app/src/Workflow/QltyWorkflowSetup.Codeunit.al	
@@ -164,7 +164,7 @@ codeunit 20423 "Qlty. Workflow Setup"
     /// Returns the token for a workflow response to quarantine a license plate
     /// </summary>
     /// <returns>Return value of type Text.</returns>
-    procedure GetWorkflowResponseQuarantineLicensePlate(): Text
+    internal procedure GetWorkflowResponseQuarantineLicensePlate(): Text
     begin
         exit(QMWorkflowResponseQuarantineLicensePlateTok);
     end;
@@ -173,7 +173,7 @@ codeunit 20423 "Qlty. Workflow Setup"
     /// Returns the token for a workflow response to un-quarantine a license plate.
     /// </summary>
     /// <returns>Return value of type Text.</returns>
-    procedure GetWorkflowResponseUnQuarantineLicensePlate(): Text
+    internal procedure GetWorkflowResponseUnQuarantineLicensePlate(): Text
     begin
         exit(QMWorkflowResponseUnQuarantineLicensePlateTok);
     end;
@@ -236,7 +236,7 @@ codeunit 20423 "Qlty. Workflow Setup"
     /// Returns the generic quality inspection workflow prefix.
     /// </summary>
     /// <returns>Return value of type Text.</returns>
-    procedure GetQualityInspectionPrefix(): Text
+    internal procedure GetQualityInspectionPrefix(): Text
     begin
         exit(QltyPrefixTok);
     end;
@@ -245,7 +245,7 @@ codeunit 20423 "Qlty. Workflow Setup"
     /// The token for the event when an inspection has been created.
     /// </summary>
     /// <returns>Return value of type Code[128].</returns>
-    procedure GetInspectionCreatedEvent(): Code[128]
+    internal procedure GetInspectionCreatedEvent(): Code[128]
     begin
         exit(InspectionCreatedEventTok);
     end;
@@ -281,7 +281,7 @@ codeunit 20423 "Qlty. Workflow Setup"
     /// The token for the event when an inspection has been rejected in an approval.
     /// </summary>
     /// <returns>Return value of type Code[128].</returns>
-    procedure GetInspectionRejectEventTok(): Code[128]
+    internal procedure GetInspectionRejectEventTok(): Code[128]
     begin
         exit(QltyInspectionRejectWorkflowEventTok);
     end;
@@ -290,7 +290,7 @@ codeunit 20423 "Qlty. Workflow Setup"
     /// The token for the event when an inspection has been approved in an approval system.
     /// </summary>
     /// <returns>Return value of type Code[128].</returns>
-    procedure GetInspectionApproveEventTok(): Code[128]
+    internal procedure GetInspectionApproveEventTok(): Code[128]
     begin
         exit(QltyInspectionApproveWorkflowEventTok);
     end;
@@ -299,7 +299,7 @@ codeunit 20423 "Qlty. Workflow Setup"
     /// The token for the event when an inspection has been delegated in an approval.
     /// </summary>
     /// <returns>Return value of type Code[128].</returns>
-    procedure GetInspectionDelegateEventTok(): Code[128]
+    internal procedure GetInspectionDelegateEventTok(): Code[128]
     begin
         exit(QltyInspectionDelegateWorkflowEventTok);
     end;