ISPatient.GetPregnancy

Description

This function returns any information about the selected pregnancy of the patient.

Syntax

object.GetPregnancy(Index)

Part	Attribute	Type	Description
`object`	Required	ISPatient	The `object` always implements the ISPatient interface
`Index`	In, Required	int	The index of the pregnancy.

Return Value

ISPregnancy

Returns ISPregnancy object by it's index.

Example

Display dx description of the selected pregnancy of the patient.

Dim aPatient  
Dim aPregnancy

Set aPatient = Profile.SelectPatient

if  aPatient.PregnancyCount = 0 then 
  Profile.MsgBox ("The patient has no pregnancies.")
else  
  set aPregnancy = aPatient.GetPregnancy(0)
  aMessage = "The first pregnancy of the patient: " & aPregnancy.DxDescription
  
Profile.MsgBox (aMessage) 

end if

Note:

In Profile Client v8 on User Interface Pregnancy information can be found in Patient > Alter Patient > Maternityor in Clinical > Medical Record > Obstetric.

Version information

Added in v7.8.0