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 "90"
  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  General    Scientific  Informatic"
  51   set Box15.LstTitles2 "Patient Insert_Data InitialParameters  Filter      Correction Validation PushDB 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
 115
 116 connect Box04.Widget Box06.Widget1
 117
 118 connect Box06.Widget Box02.Widget2
 119
 120 connect Box08.Widget Box06.Widget2
 121
 122 connect Box09.Widget Box08.Widget1
 123
 124 connect Box05.Widget Box08.Widget2
 125
 126 connect Box11.Widget Box08.Widget3
 127
 128 connect Box10.Widget Box08.Widget4
 129
 130 connect Box10.BoxChange Box12.BoxExecute
 131
 132 connect Box03.Out Box13.In1
 133
 134 connect Box14.Widget Box08.Widget5
 135
 136 connect Box17.Widget Box02.Widget1
 137
 138 connect Box15.LstTitles Box17.Titles
 139
 140 connect Box15.Out00 Box17.Column00
 141
 142 connect Box18.Out Box20.In
 143
 144
 145 connect Box21.Out Box20.Replace
 146
 147 connect Box20.Out Box22.In
 148
 149 connect Box20.Out Box23.In
 150
 151 connect Box20.Out Box24.In
 152
 153 connect Box13.Out Box25.In1
 154
 155 connect Box22.Out Box25.In2
 156
 157 connect Box23.Out Box27.In2
 158
 159 connect Box13.Out Box27.In1
 160
 161 connect Box24.Out Box28.In2
 162
 163 connect Box13.Out Box28.In1
 164
 165 connect Box25.Out Box29.In1
 166
 167 connect Box27.Out Box29.In2
 168
 169 connect Box28.Out Box29.In3
 170
 171 connect Box29.Out Box15.LstStepsPath
 172
 173 connect Box24.Out Box30.In2
 174
 175 connect Box13.Out Box30.In1
 176
 177 connect Box13.Out Box31.In1
 178
 179 connect Box24.Out Box31.In2
 180
 181 connect Box13.Out Box32.In1
 182
 183 connect Box24.Out Box32.In2
 184
 185 connect Box30.Out Box33.In1
 186
 187 connect Box31.Out Box33.In2
 188
 189 connect Box32.Out Box33.In3
 190
 191 connect Box33.Out Box15.LstCommentsPath
 192
 193 connect Box13.Out Box34.In1
 194
 195 connect Box24.Out Box34.In2
 196
 197 connect Box13.Out Box35.In1
 198
 199 connect Box24.Out Box35.In2
 200
 201 connect Box34.Out Box29.In4
 202
 203 connect Box35.Out Box29.In5
 204
 205 connect Box36.Out Box29.In6
 206
 207 connect Box15.Out01 Box17.Column01
 208
 209 connect Box15.Out02 Box17.Column02
 210
 211 connect Box15.Out03 Box17.Column03
 212
 213 connect Box15.Out04 Box17.Column04
 214
 215 connect Box15.Out05 Box17.Column05
 216
 217 connect Box15.Out06 Box17.Column06
 218
 219 connect Box15.Out07 Box17.Column07
 220
 221 connect Box15.Out08 Box17.Column08
 222
 223 connect Box15.Out09 Box17.Column09
 224
 225 connect Box15.Out10 Box17.Column10
 226
 227 connect Box24.Out Box36.In2
 228
 229 connect Box13.Out Box36.In1
 230
 231 connect Box22.Out Box38.In
 232
 233 connect Box40.Out Box43.In
 234
 235 connect Box43.OutSimple Box15.LstPatientsID
 236
 237 connect Box40.Out Box04.In
 238
 239 connect Box13.Out Box40.In1
 240
 241 connect Box38.Out Box40.In2
 242
 243 connect Box05.BoxChange Box17.BoxExecute
 244
 245 connect Box05.BoxChange Box15.BoxExecute
 246
 247
 248
 249 # Complex input ports
 250 input BaseDir Box03.In " "
 251 input CoreID Box21.In " "
 252 exec Box02