Sample Tcl script for Image area wizards

Using a Tcl script, you can automate a complex series of Image area tasks that are frequently performed.

Viewing reports in the Image area

# "Show Report" display wizard
# Copyright ©) 2008 Agfa HealthCare Inc.
# All rights reserved.
#
#
put_info version "IMPAX 6.x";

set study_list [get_studies selected]
set PID [get_info "patient_id" $study_list]
set PNAME [get_info "patient_name" $study_list]
set ACN [get_info "study_accession_number" $study_list]
set DATE [get_info "study_date" $study_list]
set ptName []

regsub -all \\^ $PNAME ,  ptName

wizard browser {-opt -close_on_study_change} {5} "http://<server>:8080/report-browser/report15.asp?patient_id={PATIENT_ID}&accession_number={ACCESSION_NUMBER}&format=2&bg=404040&txt=FFFFFF&htxt=FFFFFF&pt=14" "Report for $ptName  (PID: $PID - ACN: $ACN - Date: $DATE)"



# Clean up all references
destroy_token all