This property is True if the date and time of the patient's last menstrual period are certain.
object.LMPCertain
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatientProblem interface |
bool
Display the codes, descriptions, LMP for the patient's problems of 'Pregnancy' type and check whether LMP is certain.
Dim aPatient
Dim aProblemList
Dim aCategory
Dim aProblems
Dim aProblem
Dim aMessage
Set aPatient = Profile.SelectPatient
if aPatient.Sex <> "F" then
Profile.MsgBox("You should select female patient!")
exit sub
end if
set aProblemList = aPatient.ProblemList
set aCategory = aProblemList.Categories.Item(5) 'Pregnancy
aMessage = aMessage & vbNewLine &_
"---------" & aCategory.Description & "---------" & vbNewLine & vbNewLine
set aProblems = aCategory.Problems
if aProblems.Count = 0 then
aMessage = aMessage & "No pregnancies"
else
for each aProblem in aProblems
aMessage = aMessage & " " & "Code: " & aProblem.DxCode &_
"; Description: " & aProblem.DxDescription & "; LMP: " &_
aProblem.GetLMP & " (certain: " & aProblem.LMPCertain & ")" & vbNewLine
next
end if
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface the Certain radio buttons can be selected in
, in or in .