Sub Main
'''''''''''''''''''''''''''''''''''''''''''''''''
  vSMSText = "" 'INSERT THE CUSTOM MESSAGE HERE
'''''''''''''''''''''''''''''''''''''''''''''''''
  vSMSText = Replace(vSMSText, "#CLIENT_NAME#", "John")
  vSMSText = Replace(vSMSText, "#APPT_DATE#", "04 Apr 2025")
  vSMSText = Replace(vSMSText, "#APPT_TIME#", "3:00PM")
  vSMSText = Replace(vSMSText, "#APPT_TYPE#", "Follow-up")
  vSMSText = Replace(vSMSText, "#POS_PHONE#", "604-555-5555")
  vFormatType = "#PROV_NAME#"
  If InStr(vSMSText, "#PROV_NAME1#") > 0 Then
    vFormatType = "#PROV_NAME1#"
  ElseIf InStr(vSMSText, "#PROV_NAME2#") > 0 Then
    vFormatType = "#PROV_NAME2#"
  ElseIf InStr(vSMSText, "#PROV_NAME3#") > 0 Then
    vFormatType = "#PROV_NAME3#"
  ElseIf InStr(vSMSText, "#PROV_NAME4#") > 0 Then
    vFormatType = "#PROV_NAME4#"
  End If

  vSMSText = Replace(vSMSText, vFormatType, FormatProvString(vFormatType) )

  Profile.Messagebox(vSMSText)
  End Sub

'Function Purpose: returns the chosen provider name format
Function FormatProvString(vFormatType)
  rProvName = ""
  Select Case vFormatType
    Case "#PROV_NAME#"
      rProvName = "Jane Doe, MD"
    Case "#PROV_NAME1#"
      rProvName = "Dr. Jane Doe, MD"
    Case "#PROV_NAME2#"
      rProvName = "Dr. Jane"
    Case "#PROV_NAME3#"
      rProvName = "Dr. Doe"
    Case "#PROV_NAME4#"
      rProvName = "Dr. Jane Doe"
  End Select
  
  FormatProvString = rProvName
End Function