ISLetterTemplate.DocumentCategoryCode

Example

Display some information about the letter templates, including the codes of the document categories.

Dim aPatient
Dim aLetters, aLetter
Dim i
Dim aTemplatesIds
Dim aCategoryCode
Dim aLetterTemplate
Dim aMessage

Set aPatient = Profile.SelectPatient
set aLetters = aPatient.GetLetters (1) ' slcfWordRTF

aMessage =_
  "The number of the letters of the selected format is " & aLetters.Count

set aTemplatesIds = Profile.CreateIntCollection

for i = 0 to aLetters.Count - 1
  set aLetter = aLetters.Item(i)
  set aLetterTemplate = aLetter.Template
  
  if aTemplatesIds.IndexOf(aLetterTemplate.ID) < 0 then
    aMessage = aMessage & vbNewLine &_
      "Letter Template Information: " & vbNewLine &_ 
      "   - ID: " & aLetterTemplate.ID & vbNewLine &_                       
      "   - Subject: " & aLetterTemplate.Subject & vbNewLine &_
      "   - Key Words: " & aLetterTemplate.KeyWords & vbNewLine &_
      "   - Category ID: " & aLetterTemplate.CategoryID & vbNewLine &_
      "   - Reason ID: " & aLetterTemplate.ReasonID & vbNewLine
    set aCategoryCode = aLetterTemplate.DocumentCategoryCode
    if aCategoryCode is nothing then 
      aMessage = aMessage & "    The category code is not defined" & vbNewLine
    else
      aMessage = aMessage & "   - Document Category Code: " & aCategoryCode.Description & vbNewLine
    end if    
    aTemplatesIds.Add aLetterTemplate.ID 
   
  end if  
 
next    
Profile.MsgBox (aMessage)