ISRxGroup.CmiDetail

Example

Display Cmi details of the Rx groups in the HTML browser.

sub main
  Dim aFilter
  Dim aRxCollection, aRxGroup
  Dim aHTML, aHTMLPart
  Dim aContents 
  Dim i, j
  Dim aCmiDetail
  Dim aHTMStream
  Dim aLink
  Dim aBodyTagStart, aBodyTagEnd
  Dim aEndBodyTagStart
  Dim aResult   
  Dim aMessage

  Set aRxCollection = Profile.LoadRxGroupByName("Penicillins")

  aHTML = ""
  aContents = ""

  for i = 0 to aRxCollection.Count - 1 
    set aRxGroup = aRxCollection.Item(i)
    for j = 0 to aRxGroup.CmiDetailCount - 1
      set aCmiDetail = aRxGroup.CmiDetail(j)   
      set aHTMStream = aCmiDetail.HTMLStream
  
      aContents = aContents & "<li><a href='#" & GetDetailLink(i, j) & "'>" &_
        aRxGroup.AsString & " - CMI Detail #" & (j + 1) & "</a></li>" 
    
      aHTMLPart = FixHTML(aHTMStream.AsString)
      aHTML = aHTML & "<hr>" &_
      "<a name='" & GetDetailLink(i, j) & "'>" &_
       "<p>" & aRxGroup.RxSystem.Name & "</p>" & aHTMLPart
    next 'j
  next 'i

  aHTML = "<H1>Search Results</H1>" &_
    "<p>for the Rx group name with substring '" & aRxGroup.Name & "':</p>" & _   
    aContents & aHTML

  Profile.ShowHTML aHTML, "Loaded Formulary"
end sub

function GetDetailLink(aRxIndex, aDetailIndex)
  aLink = "Rx" & aRxIndex & "_" & aDetailIndex
  GetDetailLink = aLink
end function

function FixHTML(aHTML)
  aBodyTagStart = InStr(1, aHTML, "<BODY", vbTextCompare)
  aBodyTagEnd = InStr(aBodyTagStart, aHTML, ">")  
  aEndBodyTagStart = InStr(aBodyTagEnd, aHTML, "</BODY")  
  aResult = Mid(aHTML, aBodyTagEnd + 1, aEndBodyTagStart - aBodyTagEnd - 1)

  FixHTML = aResult
end function