ID of the short code of type 'Document Category'.
object.DocumentCategoryID
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISLetter interface |
int
Display some information about the letter, including ID of the short code of type 'Document Category'.
Dim aPatient
Dim aLetters, aLetter
Dim i
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
for i = 0 to aLetters.Count - 1
set aLetter = aLetters.Item(i)
set aCategory = Profile.LoadShortCode(aLetter.DocumentCategoryID)
aMessage = aMessage & vbNewLine &_
"Letter Date: " & aLetter.Date & vbNewLine &_
"Letter Subject: " & aLetter.Subject2 & vbNewLine &_
"Document Category: " & aCategory.Description & " (" & aCategory.Id & ")" & vbNewLine
next
Profile.MsgBox (aMessage)
In Profile Client v8 on User Interface Document Category ID cannot be found.