ISRxMedication.ExternalEntity

Example

Display some information about the loaded Rx medication, including Globally Unique Identifier of its entity in the external system.

Dim aRxMedication
Dim aRxMedicationInfo  
 
Set aRxMedication = Profile.LoadRxMedication(1507)

if aRxMedication is nothing then 
  Profile.MsgBox("There is no Rx Medication with the specified ID")
  exit sub
end if

aRxMedicationInfo = _
  "Rx name: " & aRxMedication.RxName & vbNewLine &_
  "Date: " & aRxMedication.Date & vbNewLine &_
  "Ordered date: " & aRxMedication.OrderedDate & vbNewLine
if aRxMedication.Diagnosis.Id > 0 then 
  aRxMedicationInfo = aRxMedicationInfo & "Diagnosis: " &_
    aRxMedication.Diagnosis.Description & vbNewLine   
end if 
if not aRxMedication.ExternalEntity is nothing then    
  aRxMedicationInfo = aRxMedicationInfo & "External Entity GUID: " &_
    aRxMedication.ExternalEntity.GUID & vbNewLine
else
  aRxMedicationInfo = aRxMedicationInfo & "External Entity: There is no entity" 
end if
       
Profile.MsgBox(aRxMedicationInfo)