ISInfant.Num

Description

The birth order of the infant. It is always 1 unless it is a multiple birth.

Syntax

object.Num

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

Return Value

int

Example

Display some information about the infants from each pregnancy of the patient, including the birth order.

Dim aPatient
Dim aPregnancyCount
Dim aPregnancy
Dim aInfant
Dim i
Dim j
Dim aMessage

Set aPatient = Profile.SelectPatient
if aPatient.Sex <> "F" then
  Profile.MsgBox("You should select female patient!")
  exit sub
end if
  
if aPatient.PregnancyCount = 0 then 
  aMessage = aMessage & "No pregnancies"
else
  aPregnancyCount = aPatient.PregnancyCount 
  
  for i = 0 to aPregnancyCount - 1
    set aPregnancy = aPatient.GetPregnancy(i)
    aMessage = aMessage & "    " & vbNewLine & "Code: " & aPregnancy.DxCode &_ 
      "; Description: " & aPregnancy.DxDescription & vbNewLine
    
    if aPregnancy.InfantCount = 0 then
      aMessage = aMessage & "   -" & "No infants" & vbNewLine
    end if
      
    for j = 0 to aPregnancy.InfantCount - 1
      set aInfant = aPregnancy.Infant(j)
      aMessage = aMessage &_
        "   " & aInfant.Num & ") Name: " & aInfant.Name & "; Status: " &_ 
        aInfant.StatusText & vbNewLine  
    next 'j 
  next 'i
  
end if
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Num can be found in Clinical > Medical Record > Obstetric > Edit selected infant record > Infant Num field, in Clinical > Clinical Details > Obstetric History > Edit selected infant record > Infant Num field or in Patient > Cases > Clinical > Obstetric > Edit selected infant record > Infant Num field.

Version information

Added in v7.8.0