This parameter property is used to load the collection of patient problems starting from the specified problem ID.
object.StartFromId
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatientProblemLoadParams interface |
int
Display the number of the patient problems loaded on the basis of the selected parameter and divided into the batches, their codes, descriptions and IDs.
Dim aParams
Dim aTotalCount
Dim aProblems, aProblem
Dim aLastId
Dim aMessage
Set aParams = Profile.MakePatientProblemLoadParams
aParams.StartFromId = 0
aParams.MaxCount = 3 'The size of batch
aTotalCount = 0
do
set aProblems = Profile.LoadPatientProblems(aParams)
aLastId = 0
for i = 0 to aProblems.Count - 1
set aProblem = aProblems.Item(i)
aMessage = aMessage & vbNewLine & "- Code: " & aProblem.DxCode &_
"; Description: " & aProblem.DxDescription & "; ID: " & aProblem.Id
aTotalCount = aTotalCount + 1
if aProblem.Id > aLastId then aLastId = aProblem.Id
next
aParams.StartFromId = aLastId + 1
aMessage = aMessage & vbNewLine
loop until aProblems.Count = 0
aMessage = "The number of the loaded problems is " & aTotalCount & vbNewLine & aMessage
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface problem ID cannot be found.