Android Question Billing not picking up latest subscription

public Sub HandleAdsPurchase (p As Purchase)
    If p.PurchaseState <> p.STATE_PURCHASED Then Return
    'Verify the purchase signature.
    'This cannot be done with the test id.
    If p.Sku.StartsWith("android.test") = False And billing.VerifyPurchase(p, BILLING_KEY) = False Then
        Log("Invalid purchase")
        Return
    End If
    If p.IsAcknowledged = False Then
        'we either acknowledge the product or consume it.
        Wait For (billing.AcknowledgePurchase(p.PurchaseToken, "")) Billing_AcknowledgeCompleted (Result As BillingResult)
        If Result.IsSuccess Then
            If p.Sku = ADS_SDK_Token Then
                Wait For (billing.QueryPurchases("inapp")) Billing_PurchasesQueryCompleted (Result As BillingResult, Purchases As List)
                myLog.Add($"(HandleAdsPurchase) Info received from PS Result - ${Result.ResponseCodeString}"$)
                If Result.IsSuccess Then
                    B4XPages.MainPage.Pages.PagePINCalc.sendPINRequest(Purchases,p.OrderId)
                End If
            End If
            
        End If
    Else
        If p.Sku = ADS_SDK_ID Or p.Sku = ADS_SDK_ID2 Or p.Sku = ADS_SDK_ID3 Then
            productID = p.OrderId
            purchaseTime = p.PurchaseTime
            SKU_Purchased = p.Sku
            token = p.PurchaseToken
            subsID = p.Sku
            Main.AppSubscriptionActive = True
            Main.OKToPost = True
        Else
            productID = ""
            Main.AppSubscriptionActive = False
            Main.OKToPost = False
        End If
    End If
End Sub

Private Sub HandleSubscription (p As Purchase)
    If p.PurchaseState <> p.STATE_PURCHASED Then Return
    If billing.VerifyPurchase(p, BILLING_KEY) = False Then
        'Log("Invalid purchase")
        Return
    End If
    Dim PId As String = p.Sku
    If PId = "weekly_1" Then
        Log("Verified: " & PId)
    Else
        Log("Invalid Sku")
        Return
    End If
    If p.IsAcknowledged = False Then
        'we either acknowledge the product or consume it.
        Wait For (billing.AcknowledgePurchase(p.PurchaseToken, "")) Billing_AcknowledgeCompleted (Result As BillingResult)
        Log("Acknowledged: " & Result.IsSuccess)
    End If
    BlnWeekly = True
    UpdateSubscriptionState
End Sub

Dim sf As Object = billing.QuerySkuDetails("subs", Array("weekly_2019", "weekly_2022"))
Wait For (sf) Billing_SkuQueryCompleted (Result As BillingResult, SkuDetails As List)