This filter property is used to load the unsigned medication order items.
object.NotSigned
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISMedOrderItemsFilter interface |
Display the number of the medication order items loaded on the basis of the selected filter and some information about them.
Dim aPatient
Dim aFilter
Dim aMedOrderItems, aMedOrderItem
Dim aMessage
Dim i
Set aPatient = Profile.SelectPatient
set aFilter = Profile.MakeMedOrderItemsFilter
aFilter.PatientId = aPatient.ID
aFilter.NotSigned = 2 'nsEither
set aMedOrderItems = Profile.LoadMedOrderItems(aFilter)
aMessage = "Medication Order Items Count = " & aMedOrderItems.Count
for i = 0 to aMedOrderItems.Count - 1
set aMedOrderItem = aMedOrderItems.Item(i)
aMessage = aMessage & vbNewLine & (i + 1) & ") " &_
"Medication Name: " & aMedOrderItem.Medication.RxName & vbNewLine &_
"URL: " & aMedOrderItem.URL & vbNewLine
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Not Signed can be found in
.