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.LstPatientsID "P01 P02 P03"
  51   set Box15.LstTitles1 "+            Step01         Step02     Step03  Step04       Step05     Step06  General    Scientific  Informatic"
  52   set Box15.LstTitles2 "Patient Insert_Data InitValues Filter      Correction Validation PushDB Comment Comment Comment"
  53
  54 new wx:ListCtrl Box17
  55
  56 new std:ConcatStrings Box18
  57   set Box18.In1 "/<CORE>/davila/<ALGO>/Test_01/<PATIENT>/Condition_01"
  58
  59 new std:ReplaceString Box20
  60   set Box20.Search "<CORE>"
  61
  62 new std:MagicBox Box21
  63
  64 new std:ReplaceString Box22
  65   set Box22.Replace "00100_OriginalImages"
  66   set Box22.Search "<ALGO>"
  67
  68 new std:ReplaceString Box23
  69   set Box23.Replace "00200_InitialParameters"
  70   set Box23.Search "<ALGO>"
  71
  72 new std:ReplaceString Box24
  73   set Box24.Replace "00300_Filter"
  74   set Box24.Search "<ALGO>"
  75
  76 new std:ConcatStrings Box25
  77   set Box25.In3 "/Step01_Insert_Data.txt  "
  78
  79 new std:ConcatStrings Box26
  80   set Box26.In2 "/results"
  81
  82 new std:ConcatStrings Box27
  83   set Box27.In3 "/Step002.txt  "
  84
  85 new std:ConcatStrings Box28
  86   set Box28.In3 "/Step03.txt  "
  87
  88 new std:ConcatStrings Box29
  89
  90 new std:ConcatStrings Box30
  91   set Box30.In3 "/Comments_General.txt  "
  92
  93 new std:ConcatStrings Box31
  94   set Box31.In3 "/Comments_Informatic.txt  "
  95
  96 new std:ConcatStrings Box32
  97   set Box32.In3 "/Comments_Scientific.txt  "
  98
  99 new std:ConcatStrings Box33
 100
 101 new std:ConcatStrings Box34
 102   set Box34.In3 "/Step04.txt  "
 103
 104 new std:ConcatStrings Box35
 105   set Box35.In3 "/Step05.txt  "
 106
 107 new std:ConcatStrings Box36
 108   set Box36.In3 "/Step06.txt  "
 109
 110 new std:ReplaceString Box38
 111   set Box38.Search "<PATIENT>/Condition_01"
 112
 113 new wx:OutputText Box39
 114
 115 new std:ConcatStrings Box40
 116
 117
 118
 119 connect Box04.Widget Box06.Widget1
 120
 121 connect Box06.Widget Box02.Widget2
 122
 123 connect Box08.Widget Box06.Widget2
 124
 125 connect Box09.Widget Box08.Widget1
 126
 127 connect Box05.Widget Box08.Widget2
 128
 129 connect Box11.Widget Box08.Widget3
 130
 131 connect Box10.Widget Box08.Widget4
 132
 133 connect Box10.BoxChange Box12.BoxExecute
 134
 135 connect Box03.Out Box13.In1
 136
 137 connect Box14.Widget Box08.Widget5
 138
 139 connect Box17.Widget Box02.Widget1
 140
 141 connect Box15.LstTitles Box17.Titles
 142
 143 connect Box15.Out00 Box17.Column00
 144
 145 connect Box18.Out Box20.In
 146
 147
 148 connect Box21.Out Box20.Replace
 149
 150 connect Box20.Out Box22.In
 151
 152 connect Box20.Out Box23.In
 153
 154 connect Box20.Out Box24.In
 155
 156 connect Box13.Out Box25.In1
 157
 158 connect Box22.Out Box25.In2
 159
 160 connect Box13.Out Box26.In1
 161
 162 connect Box21.Out Box26.In3
 163
 164 connect Box26.Out Box04.In
 165
 166 connect Box23.Out Box27.In2
 167
 168 connect Box13.Out Box27.In1
 169
 170 connect Box24.Out Box28.In2
 171
 172 connect Box13.Out Box28.In1
 173
 174 connect Box25.Out Box29.In1
 175
 176 connect Box27.Out Box29.In2
 177
 178 connect Box28.Out Box29.In3
 179
 180 connect Box29.Out Box15.LstStepsPath
 181
 182 connect Box24.Out Box30.In2
 183
 184 connect Box13.Out Box30.In1
 185
 186 connect Box13.Out Box31.In1
 187
 188 connect Box24.Out Box31.In2
 189
 190 connect Box13.Out Box32.In1
 191
 192 connect Box24.Out Box32.In2
 193
 194 connect Box30.Out Box33.In1
 195
 196 connect Box31.Out Box33.In2
 197
 198 connect Box32.Out Box33.In3
 199
 200 connect Box33.Out Box15.LstCommentsPath
 201
 202 connect Box13.Out Box34.In1
 203
 204 connect Box24.Out Box34.In2
 205
 206 connect Box13.Out Box35.In1
 207
 208 connect Box24.Out Box35.In2
 209
 210 connect Box34.Out Box29.In4
 211
 212 connect Box35.Out Box29.In5
 213
 214 connect Box36.Out Box29.In6
 215
 216 connect Box15.Out01 Box17.Column01
 217
 218 connect Box15.Out02 Box17.Column02
 219
 220 connect Box15.Out03 Box17.Column03
 221
 222 connect Box15.Out04 Box17.Column04
 223
 224 connect Box15.Out05 Box17.Column05
 225
 226 connect Box15.Out06 Box17.Column06
 227
 228 connect Box15.Out07 Box17.Column07
 229
 230 connect Box15.Out08 Box17.Column08
 231
 232 connect Box15.Out09 Box17.Column09
 233
 234 connect Box15.Out10 Box17.Column10
 235
 236 connect Box24.Out Box36.In2
 237
 238 connect Box13.Out Box36.In1
 239
 240 connect Box22.Out Box38.In
 241
 242 connect Box38.Out Box39.In
 243
 244 connect Box39.Widget Box06.Widget5
 245
 246 connect Box03.Out Box40.In1
 247
 248 connect Box38.Out Box40.In2
 249
 250
 251
 252 # Complex input ports
 253 input BaseDir Box03.In " "
 254 input CoreID Box21.In " "
 255 exec Box02