View difference between Paste ID: F3yFPv53 and ZkrpPh56

-Imports System.IO
+Protected Sub ProcessPerDayPatientAmt(Optional ByVal lst2 As List(Of Claim) = Nothing)
-Partial Public Class Manage837
+
-    Inherits System.Web.UI.Page
+
         Dim bm As New BillingMonths
-    Dim lst2 As New List(Of Claim)
+        Dim bid As Integer
         bid = bm.SelectBID(Convert.ToDateTime(txtEndDate.Text).Month, Convert.ToDateTime(txtEndDate.Text).Year)
-    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+
-        SetPermissions()
+        If lst2.Count = 0 Then
-        If Not IsPostBack() Then
+            lst2 = hdnTest.Value  'Maybe put a function for serializing here?
-            If Request.QueryString("sd") <> "" Then
+
-                If Request.QueryString("sd") <> "" Then
+
-                    If Request.QueryString("b") = "True" Then
+        For i As Integer = 0 To i < 50 Or i < lst2.Count()
-                        btnMarkBilled.Enabled = False
+            c.UpdatePerDayPatientPayAmt(lst2(i).IndID, bid)
-                    Else
+
-                        btnMarkBilled.Enabled = True
+
-                    End If
+        lst2.RemoveRange(0, i)
 
-                    chkEligible.Checked = Request.QueryString("est")
+
-                    chkIneligible.Checked = Request.QueryString("ist")
+
-                    chkCS.Checked = Request.QueryString("csbt")
+
-                    chkRes.Checked = Request.QueryString("rbt")
+
         End If
-                    txtStartDate.Text = IIf(Request.QueryString("sd") <> "", Request.QueryString("sd"), txtStartDate.Text)
+
-                    txtEndDate.Text = IIf(Request.QueryString("ed") <> "", Request.QueryString("ed"), txtEndDate.Text)
+    End Sub