The type number of the patient's history.
| hkSocialHx | 0 |
| hkPastHx | 1 |
| hkFamilyHx | 2 |
| hkObstetricHx | 3 |
object.TypeNum
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISHistory interface |
int
Display the number of the patient's histories, their types and contents.
Dim aPatient
Dim aHistories, aHistory
Dim aMessage
Dim i
Set aPatient = Profile.SelectPatient
set aHistories = aPatient.Histories
aMessage = "Histories Count = " & aHistories.Count
for i = 0 to aHistories.Count - 1
set aHistory = aPatient.Histories.Item(i)
aMessage = aMessage & vbNewLine & (i+1) & ") " & aHistory.TypeDescription & ": " &_
aHistory.Text
next
Profile.MsgBox(aMessage)In Profile Client v8 on User Interface Type Number cannot be found, but Obstetric History can be found in , Social History can be found in , Past History can be found in , Family History can be found in .