diff --git a/src/Apps/W1/Subscription Billing/App/Service Commitments/Tables/SubscriptionLine.Table.al b/src/Apps/W1/Subscription Billing/App/Service Commitments/Tables/SubscriptionLine.Table.al
index bf3ac31c60..451fda6dd2 100644
--- a/src/Apps/W1/Subscription Billing/App/Service Commitments/Tables/SubscriptionLine.Table.al	
+++ b/src/Apps/W1/Subscription Billing/App/Service Commitments/Tables/SubscriptionLine.Table.al	
@@ -1332,7 +1332,7 @@ table 8059 "Subscription Line"
         end;
     end;
 
-    internal procedure OpenExchangeSelectionPage(var NewCurrencyFactorDate: Date; var NewCurrencyFactor: Decimal; CurrencyCode: Code[10]; NewMessageTxt: Text; CalledFromServiceObject: Boolean): Boolean
+    procedure OpenExchangeSelectionPage(var NewCurrencyFactorDate: Date; var NewCurrencyFactor: Decimal; CurrencyCode: Code[10]; NewMessageTxt: Text; CalledFromServiceObject: Boolean): Boolean
     var
         ExchangeRateSelectionPage: Page "Exchange Rate Selection";
     begin
diff --git a/src/Apps/W1/Subscription Billing/App/Service Objects/Pages/ExchangeRateSelection.Page.al b/src/Apps/W1/Subscription Billing/App/Service Objects/Pages/ExchangeRateSelection.Page.al
index 06699eead1..95bd4b5e2f 100644
--- a/src/Apps/W1/Subscription Billing/App/Service Objects/Pages/ExchangeRateSelection.Page.al	
+++ b/src/Apps/W1/Subscription Billing/App/Service Objects/Pages/ExchangeRateSelection.Page.al	
@@ -60,12 +60,12 @@ page 8088 "Exchange Rate Selection"
                 Error(CurrencyCodeChangePriceMustBeUpdatedErr);
     end;
 
-    internal procedure SetIsCalledFromServiceObject(CalledFromServiceObject: Boolean)
+    procedure SetIsCalledFromServiceObject(CalledFromServiceObject: Boolean)
     begin
         IsCalledFromServiceObject := CalledFromServiceObject;
     end;
 
-    internal procedure SetData(NewKeyDate: Date; NewCurrencyCode: Code[10]; NewMessage: Text)
+    procedure SetData(NewKeyDate: Date; NewCurrencyCode: Code[10]; NewMessage: Text)
     begin
         KeyDate := NewKeyDate;
         CurrencyCode := NewCurrencyCode;
@@ -75,7 +75,7 @@ page 8088 "Exchange Rate Selection"
         MessageTxt := NewMessage;
     end;
 
-    internal procedure GetData(var NewKeyDate: Date; var NewExchangeRate: Decimal)
+    procedure GetData(var NewKeyDate: Date; var NewExchangeRate: Decimal)
     begin
         NewKeyDate := KeyDate;
         NewExchangeRate := ExchangeRate;