ISDisease.Save

Description

This procedure updates the current disease code object as stored within Profile.

Syntax

object.Save

Part	Attribute	Type	Description
`object`	Required	ISDisease	The `object` always implements the ISDisease interface

Example

Add a new disease code and display some information about the disease codes loaded by the description of the added one.

Dim aNewDesease
Dim aFilter
Dim aDiseases, aDisease 
Dim i
Dim aMessage 

Set aNewDesease = Profile.CreateDisease
aNewDesease.Code = "AST"
aNewDesease.Description = "Asthma"
aNewDesease.Save

set aFilter = Profile.CreateDiseaseFilter
aFilter.Description = "Asthma"     
set aDiseases = Profile.LoadDiseaseCodesByFilter(aFilter)
aMessage = "Diseases Count = " & aDiseases.Count

for i = 0 to aDiseases.Count - 1
  set aDisease = aDiseases.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") Code: " & aDisease.Code &_
    "; Description: " & aDisease.Description & " (Preferred: " &_ 
    aDisease.IsPreferred & ")" 
next

Profile.MsgBox(aMessage)

Note:

Version information

Added in v7.8.0