The patient ID that is used for generating of the clinical view HTML.
object.PatientId
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISClinicalView interface |
int
Display the number of the clinical views and some information about them, including their patient IDs.
Dim aPatient
Dim aClinicalView, aClinicalViews
Dim i
Dim aMessage
set aPatient = Profile.SelectPatient
set aClinicalViews = aPatient.LoadClinicalViews
aMessage = "The number of the Clinical Views is " & aClinicalViews.Count & ": " & vbNewLine
for i = 0 to aClinicalViews.Count - 1
set aClinicalView = aClinicalViews.Item(i)
aMessage = aMessage & vbNewLine &_
(i + 1) & ") " & aClinicalView.Caption & vbNewLine &_
" PatientId: " & aClinicalView.PatientId & vbNewLine &_
" CaseID: " & aClinicalView.CaseID & vbNewLine &_
" ViewID: " & aClinicalView.ViewID & vbNewLine &_
" Desc: " & aClinicalView.Desc & vbNewLine &_
" URL: " & aClinicalView.URL & vbNewLine
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Patient ID cannot be found.