ISOrder.IsPregnant

Example

Display IsPregnant for the patient whom the order is assigned to.

Dim aPatient
Dim aOrdersLoader
Dim aOrders, aOrder
Dim i
Dim aMessage

Set aPatient = Profile.SelectPatient
set aOrdersLoader = Profile.CreateOrdersLoader
aOrdersLoader.Patient = aPatient
aOrdersLoader.ChangedSince = #01/01/2000#

set aOrders = aOrdersLoader.LoadOrders

aMessage = "Orders Count = " & aOrders.Count & vbNewLine

for i = 0 to aOrders.Count - 1
  set aOrder = aOrders.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " &_
    "DT Modified: " & aOrder.GetDTModified & vbNewLine &_
    "    ID: " & aOrder.ID & vbNewLine &_
    "    GUID: " & aOrder.GUID & vbNewLine &_
    "    Patient: " & aOrder.Patient.SurnameFirstName & vbNewLine &_
    "    Clinical Detail: " & aOrder.ClinicalDetail & vbNewLine &_
    "    Dx Info: " & aOrder.DxInfo & vbNewLine &_
    "    Is Deleted: " & aOrder.IsDeleted & vbNewLine &_
    "    Is Pregnant: " & aOrder.IsPregnant & vbNewLine &_
    "    Is Urgent: " & aOrder.IsUrgent & vbNewLine &_
    "    Is Fasting Required: " & aOrder.IsFastingRequired & vbNewLine &_
    "    Encounter: " & aOrder.Encounter.Date & vbNewLine
next    

Profile.MsgBox(aMessage)