appli/template_creaPatientsSystem/scripts/Report.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script
   3 # - /Users/davila/Creatis/C11/creatools_source/creaMiniTools/appli/template_creaPatientsSystem/scripts/Report.bbs
   4 # ----------------------------------
   5
   6 # BBTK GEditor Script
   7 # ----------------------
   8
   9 include std
  10 include itkvtk
  11 include wx
  12 include std
  13 include creaMiniTools
  14
  15 author "Author ??"
  16 description "Description ??"
  17 category "<VOID>"
  18
  19 new wx:LayoutSplit Box02
  20   set Box02.Proportion "80"
  21   set Box02.WinWidth "1000"
  22
  23 new std:MagicBox Box03
  24
  25 new wx:OutputText Box04
  26
  27 new wx:CommandButton Box05
  28   set Box05.Label "Refresh"
  29
  30 new wx:LayoutLine Box06
  31
  32 new wx:LayoutLine Box08
  33   set Box08.Orientation "H"
  34
  35 new wx:OutputText Box09
  36
  37 new wx:CommandButton Box10
  38   set Box10.Label "Close"
  39
  40 new wx:OutputText Box11
  41
  42 new std:Exit Box12
  43
  44 new std:ConcatStrings Box13
  45   set Box13.In2 "/results"
  46
  47 new wx:OutputText Box14
  48
  49 new creaMiniTools:CreateReport01 Box15
  50   set Box15.LstTitles1 "+            Step01         Step02                Step03  Step04       Step05     Step06  Step           General    Scientific  Informatic"
  51   set Box15.LstTitles2 "Patient Insert_Data InitialParameters  Filter      Correction Validation PushDB Comment  Comment Comment Comment"
  52
  53 new wx:ListCtrl Box17
  54
  55 new std:ConcatStrings Box18
  56   set Box18.In1 "/<CORE>/davila/<ALGO>/Test_01/<PATIENT>/Condition_01"
  57
  58 new std:ReplaceString Box20
  59   set Box20.Search "<CORE>"
  60
  61 new std:MagicBox Box21
  62
  63 new std:ReplaceString Box22
  64   set Box22.Replace "00100_OriginalImages"
  65   set Box22.Search "<ALGO>"
  66
  67 new std:ReplaceString Box23
  68   set Box23.Replace "00200_InitialParameters"
  69   set Box23.Search "<ALGO>"
  70
  71 new std:ReplaceString Box24
  72   set Box24.Replace "00300_Filter"
  73   set Box24.Search "<ALGO>"
  74
  75 new std:ConcatStrings Box25
  76   set Box25.In3 "/Step01_Insert_Data.txt  "
  77
  78 new std:ConcatStrings Box27
  79   set Box27.In3 "/Step02_InitialParameters.txt  "
  80
  81 new std:ConcatStrings Box28
  82   set Box28.In3 "/Step03_Filter.txt  "
  83
  84 new std:ConcatStrings Box29
  85
  86 new std:ConcatStrings Box30
  87   set Box30.In3 "/Comment-General.txt  "
  88
  89 new std:ConcatStrings Box31
  90   set Box31.In3 "/Comment-Informatic.txt  "
  91
  92 new std:ConcatStrings Box32
  93   set Box32.In3 "/Comment-Scientific.txt  "
  94
  95 new std:ConcatStrings Box33
  96
  97 new std:ConcatStrings Box34
  98   set Box34.In3 "/Step04_Correction.txt  "
  99
 100 new std:ConcatStrings Box35
 101   set Box35.In3 "/Step05_Validation.txt  "
 102
 103 new std:ConcatStrings Box36
 104   set Box36.In3 "/Step06_PushDB.txt  "
 105
 106 new std:ReplaceString Box38
 107   set Box38.Search "<PATIENT>/Condition_01"
 108
 109 new std:ConcatStrings Box40
 110
 111 new std:FilesFromDirectory Box43
 112   set Box43.Type "1"
 113
 114 new std:ConcatStrings Box42
 115   set Box42.In3 "/Step_Comment.txt  "
 116
 117 new wx:OutputText Box44
 118   set Box44.Title "Core"
 119
 120
 121
 122 connect Box06.Widget Box02.Widget2
 123
 124 connect Box09.Widget Box08.Widget1
 125
 126 connect Box05.Widget Box08.Widget2
 127
 128 connect Box11.Widget Box08.Widget3
 129
 130 connect Box10.Widget Box08.Widget4
 131
 132 connect Box10.BoxChange Box12.BoxExecute
 133
 134 connect Box03.Out Box13.In1
 135
 136 connect Box14.Widget Box08.Widget5
 137
 138 connect Box17.Widget Box02.Widget1
 139
 140 connect Box15.LstTitles Box17.Titles
 141
 142 connect Box15.Out00 Box17.Column00
 143
 144 connect Box18.Out Box20.In
 145
 146
 147 connect Box21.Out Box20.Replace
 148
 149 connect Box20.Out Box22.In
 150
 151 connect Box20.Out Box23.In
 152
 153 connect Box20.Out Box24.In
 154
 155 connect Box13.Out Box25.In1
 156
 157 connect Box22.Out Box25.In2
 158
 159 connect Box23.Out Box27.In2
 160
 161 connect Box13.Out Box27.In1
 162
 163 connect Box24.Out Box28.In2
 164
 165 connect Box13.Out Box28.In1
 166
 167 connect Box25.Out Box29.In1
 168
 169 connect Box27.Out Box29.In2
 170
 171 connect Box28.Out Box29.In3
 172
 173 connect Box29.Out Box15.LstStepsPath
 174
 175 connect Box24.Out Box30.In2
 176
 177 connect Box13.Out Box30.In1
 178
 179 connect Box13.Out Box31.In1
 180
 181 connect Box24.Out Box31.In2
 182
 183 connect Box13.Out Box32.In1
 184
 185 connect Box24.Out Box32.In2
 186
 187 connect Box30.Out Box33.In1
 188
 189 connect Box31.Out Box33.In2
 190
 191 connect Box32.Out Box33.In3
 192
 193 connect Box33.Out Box15.LstCommentsPath
 194
 195 connect Box13.Out Box34.In1
 196
 197 connect Box24.Out Box34.In2
 198
 199 connect Box13.Out Box35.In1
 200
 201 connect Box24.Out Box35.In2
 202
 203 connect Box34.Out Box29.In4
 204
 205 connect Box35.Out Box29.In5
 206
 207 connect Box36.Out Box29.In6
 208
 209 connect Box15.Out01 Box17.Column01
 210
 211 connect Box15.Out02 Box17.Column02
 212
 213 connect Box15.Out03 Box17.Column03
 214
 215 connect Box15.Out04 Box17.Column04
 216
 217 connect Box15.Out05 Box17.Column05
 218
 219 connect Box15.Out06 Box17.Column06
 220
 221 connect Box15.Out07 Box17.Column07
 222
 223 connect Box15.Out08 Box17.Column08
 224
 225 connect Box15.Out09 Box17.Column09
 226
 227 connect Box15.Out10 Box17.Column10
 228
 229 connect Box24.Out Box36.In2
 230
 231 connect Box13.Out Box36.In1
 232
 233 connect Box22.Out Box38.In
 234
 235 connect Box40.Out Box43.In
 236
 237 connect Box43.OutSimple Box15.LstPatientsID
 238
 239 connect Box40.Out Box04.In
 240
 241 connect Box13.Out Box40.In1
 242
 243 connect Box38.Out Box40.In2
 244
 245 connect Box05.BoxChange Box17.BoxExecute
 246
 247 connect Box05.BoxChange Box15.BoxExecute
 248
 249 connect Box42.Out Box29.In7
 250
 251 connect Box24.Out Box42.In2
 252
 253 connect Box13.Out Box42.In1
 254
 255 connect Box21.Out Box44.In
 256
 257 connect Box04.Widget Box06.Widget4
 258
 259 connect Box44.Widget Box06.Widget2
 260
 261 connect Box08.Widget Box06.Widget6
 262
 263
 264
 265 # Complex input ports
 266 input BaseDir Box03.In " "
 267 input CoreID Box21.In " "
 268 exec Box02