HI,
I have to make this Access-code work in R:Base 9.0.
in a patient file I have set up a button which executes the following code on
click:
Public Sub Efilm()
Dim EfilmObj As Object
Dim var As Boolean
Dim varefilm As Boolean
Dim vpatID As String, vcon As String, bCloseCurWindow As Boolean, bAddToWindow
As Boolean, nSeriesRows As Integer, nSeriesCols As Integer, nImageRows As
Integer, nImageCols As Integer, bAutoSeriesFormat As Boolean, bAutoImageFormat
As Boolean
Set EfilmObj = CreateObject("Efilm.Document")
vpatID = Forms![InterfaceNieuw]![Patiënten].Form![Punieknummer]
vcon = Forms![InterfaceNieuw]![Consultatie].Form![Consultnummer]
bCloseCurWindow = True
bAutoSeriesFormat = False
bAutoImageFormat = False
nSeriesRows = 1
nSeriesCols = 2
nImageRows = 1
nImageCols = 1
varefilm = EfilmObj.oleOpenStudy(vpatID, vcon, bCloseCurWindow, bAddToWindow,
nSeriesRows, nSeriesCols, nImageRows, nImageCols, bAutoSeriesFormat,
bAutoImageFormat)
varefilm = EfilmObj.oleSetForegroundWindow
End Sub
Could any-one please help me to get this work in R:Base ?
I have to pass the variables vPatID and vcon from the database to efilm, as
these two parameters are needed to bring up the X-rays of the right patient.
Maybe it's simple...No idea.
Thanks a lot everybody ...
Luc Delcoigne
PS: 36°c...way too hot to think straight over here.
