Wizards: Applications and examples

Though both are labeled as "wizards", the image wizards in the Image area differ from the script-based wizards in the List area.

Aspect	Image wizards	Script wizards
Created by	Recording actions and selecting dialog box options	Writing a VB .NET script and entering that in a dialog
Location	Image area top or context toolbar, or automatically launched in Image area	List area Wizard toolbar, Image area top or context toolbar, or automatically launched in Image area
Affects	Image area only	Depending on syntax: List area, Text area, Image area, or other applications
Purpose	Automating actions in the Image area	Integrating applications with the IMPAX Client; automating data flow through the Client

Script examples

Clears the Image area and activates the List area

Option Strict Off

Imports System
Imports System.Windows.Forms

Module Script
    Sub Main()
        ScriptDisplay.ClearDisplay()
    End Sub
End Module

Clears the Image area, activates the List area, and set focus in the List area

Option Strict Off

Imports System
Imports System.Windows.Forms

Module Script
    Sub Main()
        ScriptDisplay.ClearDisplay()
        ScriptApplication.ContextServerDoAction("SET_FOCUS", "IMPAX", "", "")
    End Sub
End Module

Cycles the studies in the Search worklist

Option Strict Off

Imports System
Imports System.Windows.Forms

Module Script
    Sub Main()
        ScriptListArea.DisplayWorklist()
    End Sub
End Module

Opens a study with the indicated patient ID and accession number in the Image area

Option Strict Off

Imports System
Imports System.Windows.Forms

Module Script
    Sub Main()
        ScriptDisplay.AddToDisplayListWithPidAcn("123", "A456")
    End Sub
End Module

Builds a URL based on worklist values

Option Strict Off

Imports System
Imports System.Windows.Forms

Module Script
    Sub Main()
        dim patientId as string
        dim accessionNumber as string
        dim url as string

        ' get the patient ID and accession number from the currently
        '	selected row in the Search or Advanced Search worklist

        patientId = ScriptListArea.GetValueFromWorklist("patient", "patient_id")
        accessionNumber = ScriptListArea.GetValueFromWorklist("study", "accession_number")
						
        'build a url

        url = "http://ris/ShowOrder.aspx?patientId=" +patientId + "&accessionNumber=" +
        accessionNumber

        ' show the url

        System.Diagnostics.Process.Start(url)
    End Sub
End Module

Activates Text area

Option Strict Off

Imports System
Imports System.Windows.Forms
Imports System.Drawing

Module Script
    Sub Main()
        ScriptApplication.ActivateTextArea()

    End Sub
End Module

Selects a study in the List area

Option Strict Off

Imports System
Imports System.Windows.Forms
Imports System.Drawing

Module Script
    Sub Main()
        ' select item by patient ID and accession number
        ScriptListArea.SelectWorklistItem("29", "87292")

        ' select item by study UID
        'ScriptListArea.SelectWorklistItem("1.2.124.113532.128.5.1.74.20020107.103425.562830")
        
        ' select item by row number
	       'ScriptListArea.SelectWorklistItem(3)

    End Sub
End Module

Sets relevance on and off

Option Strict Off

Imports System
Imports System.Windows.Forms
Imports System.Drawing

Module Script
    Sub Main()
        ' turn on the relevance feature
        ScriptListArea.SetRelevance(true)

        ' turn off the relevance feature
        'ScriptListArea.SetRelevance(false)

    End Sub
End Module

Activates context menu item

Option Strict Off

Imports System
Imports System.Windows.Forms
Imports AgfaHC.Framework

Module Script
    Sub Main()
        dim menuItem as WorkListMenuItemSelections

        ' add selected studies to the cycle list
        menuItem = WorkListMenuItemSelections.AddToCycleList

        ' add selected studies to the cycle list and display it right away
        'menuItem = WorkListMenuItemSelections.Cycle

        ' open selected studies in the image area in tabs
        'menuItem = WorkListMenuItemSelections.OpenImages

        ' open the selected study in the text area
        'menuItem = WorkListMenuItemSelections.OpenText

        ' remove the selected studies from the worklist
        'menuItem = WorkListMenuItemSelections.Remove

        ' open the keywords dialog
        'menuItem = WorkListMenuItemSelections.Keywords

        ' retrieve the image data for the selected studies from archive or remote location
        'menuItem = WorkListMenuItemSelections.Retrieve

        ScriptListArea.HandleMenuItemSelection(menuItem)

    End Sub
End Module

Positions the cursor

Option Strict Off

Imports System
Imports System.Windows.Forms
Imports System.Drawing

Module Script
    Sub Main()
        ' ScriptCursorLocations.TextAreaHighlights
        ' ScriptCursorLocations.TextAreaOrder
        ' ScriptCursorLocations.TextAreaReport
        ' ScriptCursorLocations.TextAreaStudy
        ' ScriptCursorLocations.TextAreaStudyList

        ' position the cursor based on a known GUI element
        'ScriptApplication.PositionCursor(ScriptCursorLocations.TextAreaReport)

        ' position the cursor to an exact coordinate
        'dim where as new Point(10, 10)
        'ScriptApplication.PositionCursor(where)

        ' position the cursor to a GUI element's text

        ScriptApplication.PositionCursor("Logout")

    End Sub
End Module

Showing what report is currently in the Image area

Option Strict Off

Imports System
Imports System.Windows.Forms

Module Script
   Sub Main()
    ' PatientId = 0, StudyUid = 1, AccessionNumber = 2, StudyStatus = 3,
    ' UserName = 4, Password = 5

    dim pid as string = ScriptApplication.GetValueFromContextServer(0)
    dim acn as string = ScriptApplication.GetValueFromContextServer(2)

    dim url as string = " http://<connectivity-manager-IP>/report-browser/report15.asp?patient_id= " + pid + "&accession_number=" + acn
    ' Replace <connectivity-manager-IP> with the appropriate Connectivity Manager or Broker IP
    System.Diagnostics.Process.Start(url)

   End Sub
End Module