$!  This script creates Dicom Files using the 3d evaluation tool
$!   v1 - Created: 25th Feb 2006 by Nipun Patel       
$!
$!
$!
$!  IPL Batch Scanco
$!  
$!
$!  Enter the dicom Filename 
$!
$   filename = default
$!
$!
$!
$!
$!  
$!  Start of the script
$   define   org_file 	  'p1'
$!
$!
$!
$    dicomFilename  := 'p2'
$!   show log org_file
$!   show log seg_file
$!   	dicomFilename = F$PARSE(p1,,,"DIRECTORY") + filename
$
$    IF filename .ne. "" 
$	THEN	
$    	dicomFilename = p2 - F$PARSE(p2,,,"VERSION") - ".DCM" - F$PARSE(p1,,,"NAME")+ filename
$	dicomFilename = filename
$	EXIT
$    ENDIF
$!
$!
$   ipl_scanco_prog := $um:ipl_scanco_m.exe
$!
$   ipl_scanco_prog





!
! Making Dicom File
!


/read   org        org_file

/todicom_from_aim
  -aim_name                  org
  -dicom_filename            "dicomFilename
  -multifile                 true


..
$ exit