'how to make it clickable
'add a hyperlink in each row like this where 0 is a column number and i is a row number
html = html & "<td valign='top'><a href='http://0." & i & ".com'>" & ClientID & "</a></td>"
html = html & "<td valign='top'><a href='http://1." & i & ".com'>" & ClientName & "<br/>" & Address & "<br/>" & City & ", " & State & " " & Zip & "</a></td>"
html = html & "<td valign='top'><a href='http://2." & i & ".com'>" & Insurance & "</a></td>"
html = html & "</tr>"
'put a row data into array
Dim values(Cursor1.ColumnCount) As String
For col = 0 To Cursor1.ColumnCount - 1
values(col) = Cursor1.GetString2(col)
'Log(Cursor1.GetColumnName(col) & " " & col & "=" & Cursor1.GetString2(col))
Next
'Put an array into a list
CustList.Add(values)
'How to catch pressed string'
Sub wvClientsList_OverrideUrl (Url As String) As Boolean
Try
Dim PAID As Int,Restrictions As String',Caller As String
Dim XUI As XUI
'parse the row And column numbers from the Url
Private values() As String
values = Regex.Split("[.]", Url.SubString(7))
Private row As Int
row = values(1)
Private val(values.length) As String
Private Apartment As String,Address As String
'now read a row from the list
val = CustList.Get(row)
Main.SelectedClientID=val(0)
'Alex 08/05/2024
Main.MatchupID=val(8)
PAID=modFun.GetPA(SQL1)
If modFun.MsgStr<>"" Then
XUI.MsgboxAsync(modFun.MsgStr,"HCMS")
Return True
End If
Apartment=val(11)
If Apartment<>"" Then
Address=val(4) & " " & Apartment & CRLF & val(5) & "," & " " & val(6) & ", " & val(7)
Else
Address=val(4) & CRLF & val(5) & "," & " " & val(6) & ", " & val(7)
End If
Main.SelectedClientName=val(3)
Main.SelectedClientAddress=Address
Restrictions=modFun.GetRestriction(SQL1,PAID)
Main.Restrictions=Restrictions
Main.SelectedDistance=val(12)
Main.Latitude=val(13)
Main.Longitude=val(14)
'Alex 08/05/2024
Main.Plan=val(29)
Main.Diagnosis=val(28)
'Alex 07/31/2024
'Akex 08/05/2024
Main.MatchupStatus=val(30)
If val(24)=0 Then
Main.VitalsMonitored=False
Else
Main.VitalsMonitored=True
End If
'Alex 01/30/2023-1
Main.Representative=val(31)
'Alex 07/31/2024
'Akex 08/05/2024
Main.RepresentativePhone=val(32)
Main.PayeeID=modFun.GetPayeeID(SQL1,PAID)
Main.SelectedScheduleMonitoring=modFun.GetScheduleMonitoring(SQL1)
If Main.IsPatient=False Then
StartActivity( DashBoard)
Else
StartActivity( PatientDetails)
End If
Return True 'Don't try to navigate to this URL
Catch
Log("wvClientsList_OverrideUrl " & LastException.Message)
modFun.ShowError("ClientsList_wvClientsList_OverrideUrl " & LastException.Message)
Return False
End Try
End Sub