appli/template_creaPatientsSystem/scripts/Comments.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script
   3 # - /Users/davila/CreatisWork/tmpCharly/creaBrainGrayMatter/appli/creaPatientsSystem_MG/scripts/Comments.bbs
   4 # ----------------------------------
   5
   6 # BBTK GEditor Script
   7 # ----------------------
   8
   9 include std
  10 include itkvtk
  11 include std
  12 include wx
  13 include creaMiniTools
  14
  15 author "Author ??"
  16 description "Description ??"
  17 category "<VOID>"
  18
  19 new std:ConcatStrings Box15
  20
  21 new std:ConcatStrings Box07
  22   set Box07.In2 "/Comment-Informatic.txt"
  23
  24 new wx:LayoutTab Box31
  25   set Box31.WinHeight "500"
  26   set Box31.WinTitle "Comments.bbs"
  27
  28 new wx:LayoutLine Box32
  29
  30 new wx:InputText Box33
  31   set Box33.Title "Informatic Comment"
  32
  33 new wx:CommandButton Box34
  34   set Box34.Label "Save and Exit"
  35
  36 new std:ReadLinesString Box11
  37
  38 new std:ReplaceString Box18
  39   set Box18.Replace "/"
  40   set Box18.Search "\"
  41
  42 new std:StringWriter Box20
  43
  44 new std:Exit Box21
  45
  46 new wx:LayoutCenter Box25
  47
  48 new wx:LayoutLine Box26
  49
  50 new std:ConcatStrings Box27
  51   set Box27.In1 "Patient:"
  52   set Box27.In2 "/results/"
  53
  54 new std:ConcatStrings Box17
  55   set Box17.In1 "/<CORE>/davila/00300_Filter/Test_01/<PATIENT>/Condition_01"
  56
  57 new std:ConcatStrings Box19
  58
  59 new std:ConcatStrings Box22
  60
  61 new std:ReplaceCleanString Box23
  62   set Box23.Search "<CORE>"
  63
  64 new std:ReplaceCleanString Box28
  65   set Box28.Search "<PATIENT>"
  66
  67 new std:ConcatStrings Box29
  68   set Box29.In2 "/Comment-Scientific.txt"
  69
  70 new wx:InputText Box30
  71   set Box30.Title "Scientific Comment"
  72
  73 new std:ReadLinesString Box35
  74
  75 new std:ReplaceString Box36
  76   set Box36.Replace "/"
  77   set Box36.Search "\"
  78
  79 new std:StringWriter Box37
  80
  81 new std:ConcatStrings Box38
  82   set Box38.In2 "/Comment-General.txt"
  83
  84 new wx:InputText Box39
  85   set Box39.Title "General Comment"
  86
  87 new std:ReadLinesString Box40
  88
  89 new std:ReplaceString Box41
  90   set Box41.Replace "/"
  91   set Box41.Search "\"
  92
  93 new std:StringWriter Box42
  94
  95 new creaMiniTools:WriteStatePatientSystem Box43
  96   set Box43.State "Finish"
  97
  98 new std:ConcatStrings Box44
  99
 100 new std:ConcatStrings Box45
 101   set Box45.In2 "/Step_Comment.txt"
 102
 103 new std:MultipleInputs Box46
 104
 105 new std:SplitFilePathVector Box47
 106
 107 new std:ConcatStrings Box48
 108   set Box48.In1 "mkdir -p  "
 109
 110 new std:ExecSystemCommand Box49
 111
 112
 113 connect Box32.Widget Box31.Widget1
 114
 115 connect Box11.Out Box33.In
 116
 117 connect Box07.Out Box18.In
 118
 119 connect Box18.Out Box11.FileName
 120
 121 connect Box18.Out Box20.FileName
 122
 123 connect Box33.Out Box20.In0
 124
 125 connect Box34.Widget Box26.Widget1
 126
 127 connect Box26.Widget Box25.Widget2
 128
 129
 130 connect Box15.Out Box27.In1
 131
 132 connect Box27.Out Box32.WinTitle
 133
 134
 135
 136 connect Box17.Out Box23.In
 137
 138 connect Box22.Out Box23.Replace
 139
 140 connect Box23.Out Box28.In
 141
 142 connect Box27.Out Box07.In1
 143
 144 connect Box19.Out Box28.Replace
 145
 146 connect Box28.Out Box27.In3
 147
 148 connect Box35.Out Box30.In
 149
 150 connect Box29.Out Box36.In
 151
 152 connect Box36.Out Box35.FileName
 153
 154 connect Box36.Out Box37.FileName
 155
 156 connect Box30.Out Box37.In0
 157
 158 connect Box40.Out Box39.In
 159
 160 connect Box38.Out Box41.In
 161
 162 connect Box41.Out Box40.FileName
 163
 164 connect Box41.Out Box42.FileName
 165
 166 connect Box39.Out Box42.In0
 167
 168 connect Box27.Out Box29.In1
 169
 170 connect Box27.Out Box38.In1
 171
 172 connect Box25.Widget Box32.Widget8
 173
 174 connect Box39.Widget Box32.Widget2
 175
 176 connect Box30.Widget Box32.Widget4
 177
 178 connect Box33.Widget Box32.Widget6
 179
 180
 181 connect Box44.Out Box43.User
 182
 183 connect Box27.Out Box45.In1
 184
 185 connect Box45.Out Box43.Filename
 186
 187 connect Box34.BoxChange Box46.BoxExecute
 188
 189 connect Box21.BoxChange Box46.In9
 190
 191 connect Box41.Out Box47.In
 192
 193 connect Box47.Path Box48.In2
 194
 195 connect Box48.Out Box49.In
 196
 197 connect Box43.boxChange Box46.In7
 198
 199 connect Box20.BoxChange Box46.In5
 200
 201 connect Box37.BoxChange Box46.In4
 202
 203 connect Box42.BoxChange Box46.In2
 204
 205 connect Box49.BoxChange Box46.In1
 206
 207
 208
 209 # Complex input ports
 210 input BaseDir Box15.In1 " "
 211 input PatientID Box19.In1 " "
 212 input CoreID Box22.In1 " "
 213 input creaUser Box44.In1 " "
 214 exec Box31