Argus Connect

  • 1
  • Question
  • Updated 3 years ago
We use Argus encrypted email at the moment through a word template - involving us to manually enter the patients name, dob, referring doctors. Is there a way of integrating this with Frontdesk directly?
Photo of Adam Woolacott

Adam Woolacott

  • 52 Posts
  • 12 Reply Likes

Posted 3 years ago

  • 1
Photo of Troy Bailey

Troy Bailey

  • 5 Posts
  • 0 Reply Likes
Yes, just add the required fields to the bottom of the template, add the ArgusWord macro to Word and create a button alone the top to complete the [Send]. I like to edit the macro to remove the extra save that is not necessary as FrontDesk does its own save.
Photo of Adam Woolacott

Adam Woolacott

  • 52 Posts
  • 12 Reply Likes
Thanks Troy. To be honest im not sure where to start with your suggestion...could you expand on the steps involved?
Photo of Troy Bailey

Troy Bailey

  • 5 Posts
  • 0 Reply Likes

Step 1.

Argus Code: Add the following 2 lines to the bottom of your Template, ensure that the dates are on Oz format and there are spaces after each word or pre-populating field. I give it the heading Argus Code and make the font point 8.

Argus Code:

Patient Name: "Surname field", "Firstname field" DOB: "dob field"

Recipient: "Family GP field" Date of Report: "insert today date"

Photo of Troy Bailey

Troy Bailey

  • 5 Posts
  • 0 Reply Likes

Step 2.

Add a macro to MSWord:  Open MSWord (without FrontDesk), click View, Macro, View Macro, (macroname= argus), click create, (paste the below.. overwriting everything), exit MSWord


Sub SendArgusMail()
'
' SendMail Macro
' Created 22/8/2007
' For Argus 4.3 and greater
   
    Dim sTempPath As String
   
    ' Change this for each site  :)
    sTempPath = Environ("temp")
   
    Dim lngResult As Long
    Dim oMAPI_API As Variant
   
    Dim bRX As Boolean
   
    ' Set to True if using RX otherwise set to False.
    bRX = False
       
    If Documents.Count >= 1 Then
        Set oMAPI_API = CreateObject("SendMailMAPI.SendMailMAPI")
               
        If oMAPI_API Is Nothing Then
            MsgBox "Your Argus installation could not be found. Please contact Argus Support."
        Else
           
            If bRX = False Then
                If ActiveDocument.Saved = False Then
            '        MsgBox "Please save your document first."
            '        Exit Sub
                End If
            End If
               
            Dim sValue As String
           
            sSection = "HKEY_LOCAL_MACHINE\Software\Clients\Mail\Argus"
            sValue = System.PrivateProfileString(FileName:="", Section:=sSection, Key:="DLLPath")
       
            If (sValue = "") Or (sValue = "Not Found") Then
                MsgBox "Your Argus installation could not be found. Please contact Argus Support."
            Else
                Dim iLength As Integer
                Dim sArgusClientDirectory As String
                   
                iLength = Len(sValue)
                Do While iLength <> 0
                    If Mid(sValue, iLength, 1) = "\" Then
                        sArgusClientDirectory = Left(sValue, iLength - 1)
                        Exit Do
                    End If
                    iLength = iLength - 1
                Loop

                Dim sFileLocation As String
                sFileLocation = sTempPath & "\Letter.rtf"
                                       
                If strTestFile <> "" Then
                    'Delete the old document if it exists
                    Kill sFileLocation
                End If
                                                                                       
                ActiveDocument.Fields.Unlink
                ActiveDocument.SaveAs sFileLocation, wdFormatRTF
                ' Do not comment out the close statment unless you also comment out
                ' the Unlink statement above
               
                System.Cursor = wdCursorWait
                iRet = oMAPI_API.SendMailMAPI("", "", sFileLocation, "", "", "", "", False, False)
                System.Cursor = wdCursorNormal
  ActiveDocument.Close
            End If
        End If
    Else
        MsgBox "Cannot send as no document is open."
    End If

End Sub

Public Sub customiseMenus()
   Dim cBar As CommandBar
   Dim ctlArgus As CommandBarControl
   Dim ctlArgusSubMenu As CommandBarControl
  
   Const ARGUSMENUNAME = "Ar&gus"
  
   'File menu options
   Set cBar = CommandBars("Menu Bar")
 
   For Each ctlArgus In cBar.Controls
       Debug.Print ctlArgus.Caption
       If ctlArgus.Caption = ARGUSMENUNAME Then
           StatusBar = "Argus Menu Exists"
           Exit Sub
       End If
   Next
 
   StatusBar = "Creating Argus Menu"
 
   'Create an Argus menu
   Set ctlArgus = cBar.Controls.Add(Type:=msoControlPopup)
   With ctlArgus
       .BeginGroup = True
       .Caption = ARGUSMENUNAME
       .DescriptionText = "Argus Main Menu"
       .Visible = True
   End With
 
   Set ctlArgusSubMenu = ctlArgus.Controls.Add(Type:=msoControlButton)
   With ctlArgusSubMenu
       .Caption = ("&Send Mail")
       .OnAction = "SendArgusMail"
       .Visible = True
   End With
End Sub

Public Sub removeMenus()
   Dim cBar As CommandBar
   Dim ctlArgus As CommandBarControl
   
   Const ARGUSMENUNAME = "Ar&gus"
  
   'This code is here to help me during development because I sometimes need to remove
   'menus that have become part of the template file. Andrew
   'Remove the Argus menu
  
   Set cBar = CommandBars("Menu Bar")
   For Each ctlArgus In cBar.Controls
       'MsgBox ctlArgus.Caption
       If ctlArgus.Caption = ARGUSMENUNAME Then
           ctlArgus.Delete
       End If
   Next
 
   Set cBar = CommandBars("Standard")

End Sub

Photo of Troy Bailey

Troy Bailey

  • 5 Posts
  • 0 Reply Likes

Step 3.

Create a button: Start MSWord, Open the "Customize the Quick Access Toolbar". select "Macros" from the choose commands menu, highlight the "SendArgusMail" item, click "Add button" so it appears on the RHS. Click "modify" button to give it a nice icon, click OK. all done. My send button is a smiley face.


Photo of Adam Woolacott

Adam Woolacott

  • 52 Posts
  • 12 Reply Likes
Thank you so much - that is brilliant
Photo of Andrea

Andrea

  • 7 Posts
  • 1 Reply Like
Hi Troy

Is there any capacity to do this from within FrontDesk using a Front Desk Document Template and then emailing from within the database rather than using MS Word outside the database?

Many Thanks