ISApprovalForm.Diagnosis1

Example

Display some information about the opened approval form, including the first diagnosis associated with the service and its code.

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 

aFormInfo = "AgencyCode: " & aForm.AgencyCode & vbNewLine &_
  "Description: " & aForm.Description & vbNewLine &_
  "Date: " & aForm.Date & vbNewLine &_
  "Comment: " & aForm.Comment & vbNewLine &_
  "SideCode: " & aForm.SideCode & vbNewLine &_
  "Reference: "  & aForm.Reference & vbNewLine
  
if not aForm.Diagnosis1 is nothing then
  aMessage = aMessage & vbNewLine & "Disease: " &_
    aForm.Diagnosis1.Description & " (" & aForm.Diagnosis1.Code &_ 
    ")" & vbNewLine
end if     
  
Profile.MsgBox(aFormInfo & aMessage)