appli/template_creaPatientsSystem/scripts/Report.bbs

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