ISApprovalForm.ShortCodeFormCode

Example

Display some information about the opened approval form, including the short codes of the attached forms.

Dim aPatientId 
Dim aForm
Dim aFormInfo
Dim aMessage

aPatientId = Profile.SelectPatient.Id

Set aForm = Profile.GetApprovalForm(0, aPatientId)

if aForm is nothing then
  Profile.MsgBox("Approval Form is not opened")
  exit sub 
end if 

aMessage = "Agency Code: " & aForm.AgencyCode & vbNewLine &_
  "Description: " & aForm.Description & vbNewLine &_
  "Date: " & aForm.Date & vbNewLine &_
  "Comment: " & aForm.Comment & vbNewLine &_
  "Side Code: " & aForm.SideCode & vbNewLine &_
  "Reference: "  & aForm.Reference & vbNewLine &_ 
  aForm.ShortCodeFormCode & vbNewLine
  
if not aForm.ShortCodeFormCode = "" then
  aMessage = aMessage & vbNewLine & "       - The linked form is '" &_
    Profile.LoadShortCodeByCodeType(aForm.ShortCodeFormCode, 11).Description & "'"
end if             

Profile.MsgBox(aMessage)