ISCase.SeparationDiagnosisDescription

Example

Add a new case with the specified IDs of separation diagnosis, separation service and separation outcome. Display some information about the added case, including the descriptions of separation diagnosis, separation service and separation outcome.

Dim aTrans
Dim aFilter
Dim aPatient 
Dim aCaseTypes, aCaseType
Dim aDiagnosis
Dim aService
Dim aOutcome
Dim aNewCase
Dim aMessage

Set aTrans = Profile.StartMapTransaction  
set aFilter = Profile.CreateCaseTypesFilter
aFilter.Description = "Case Type 1" 
set aCaseTypes = Profile.LoadCaseTypes(aFilter)

if aCaseTypes.Count = 0 then 
  Profile.MsgBox("No case type with the specified description")
  exit sub
end if
  
set aCaseType = aCaseTypes.Item(0)

set aDiagnosis = Profile.LoadDisease("ASTHMA") 
set aService = Profile.LoadService("10")
set aOutcome = Profile.LoadShortCodeByCodeType("CC", 56)  'sscCaseOutcome 
if (aDiagnosis.ID = 0) or (aService is nothing) or (aOutcome is nothing) then
  Profile.MsgBox("The source data for a new case is incorrect")
  exit sub
end if
set aPatient = Profile.SelectPatient
set aNewCase = Profile.CreateCase(aPatient.ID)
aNewCase.CaseTitle = "New Case147"
aNewCase.CaseType = aCaseType
aNewCase.SeparationDiagnosisID = aDiagnosis.ID 
aNewCase.SeparationServiceID = aService.ID
aNewCase.SeparationOutcomeID = aOutcome.ID 
aTrans.SnapShot 
  
aMessage = aMessage & vbNewLine & aNewCase.CaseTitle &_ 
  " was opened on " & aNewCase.OpenedOn & vbNewLine &_ 
  "    -Separation Diagnosis: " & aNewCase.SeparationDiagnosisDescription &_ 
  vbNewLine & "    -Separation Service: " & aNewCase.SeparationServiceDescription &_ 
  vbNewLine & "    -Separation Outcome: " &_ 
  Profile.LoadShortCode(aNewCase.SeparationOutcomeID).Description    

Profile.MsgBox(aMessage)