diff --git a/C4/Budgets.pm b/C4/Budgets.pm
index 115ca14a86..dcb1bb3d03 100644
--- a/C4/Budgets.pm
+++ b/C4/Budgets.pm
@@ -62,7 +62,6 @@ BEGIN {
         GetBudgetChildren
         SetOwnerToFundHierarchy
         CheckBudgetParent
-        CheckBudgetParentPerm
 
         HideCols
         GetCols
@@ -136,33 +135,6 @@ sub GetCols {
 
 }
 
-=head2 CheckBudgetParentPerm
-
-Missing POD for CheckBudgetParentPerm.
-
-=cut
-
-sub CheckBudgetParentPerm {
-    my ( $budget, $borrower_id ) = @_;
-    my $depth     = $budget->{depth};
-    my $parent_id = $budget->{budget_parent_id};
-    while ($depth) {
-        my $parent = GetBudget($parent_id);
-        $parent_id = $parent->{budget_parent_id};
-        if ( $parent->{budget_owner_id} == $borrower_id ) {
-            return 1;
-        }
-        $depth--;
-    }
-    return 0;
-}
-
-=head2 AddBudgetPeriod
-
-Missing POD for AddBudgetPeriod.
-
-=cut
-
 sub AddBudgetPeriod {
     my ($budgetperiod) = @_;
     return unless ( $budgetperiod->{budget_period_startdate} && $budgetperiod->{budget_period_enddate} );