1 # ----------------------------------
2 # - BBTKGEditor v 1.4 BBS BlackBox Script
3 # - /Users/davila/Creatis/C11/creatools_source/creaMiniTools/appli/template_creaPatientsSystem/scripts/Report.bbs
4 # ----------------------------------
7 # ----------------------
16 description "Description ??"
19 new wx:LayoutSplit Box02
20 set Box02.Proportion "90"
21 set Box02.WinWidth "1000"
23 new std:MagicBox Box03
25 new wx:OutputText Box04
27 new wx:CommandButton Box05
28 set Box05.Label "Refresh"
30 new wx:LayoutLine Box06
32 new wx:LayoutLine Box08
33 set Box08.Orientation "H"
35 new wx:OutputText Box09
37 new wx:CommandButton Box10
38 set Box10.Label "Close"
40 new wx:OutputText Box11
44 new std:ConcatStrings Box13
45 set Box13.In2 "/results"
47 new wx:OutputText Box14
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"
55 new std:ConcatStrings Box18
56 set Box18.In1 "/<CORE>/davila/<ALGO>/Test_01/<PATIENT>/Condition_01"
58 new std:ReplaceString Box20
59 set Box20.Search "<CORE>"
61 new std:MagicBox Box21
63 new std:ReplaceString Box22
64 set Box22.Replace "00100_OriginalImages"
65 set Box22.Search "<ALGO>"
67 new std:ReplaceString Box23
68 set Box23.Replace "00200_InitialParameters"
69 set Box23.Search "<ALGO>"
71 new std:ReplaceString Box24
72 set Box24.Replace "00300_Filter"
73 set Box24.Search "<ALGO>"
75 new std:ConcatStrings Box25
76 set Box25.In3 "/Step01_Insert_Data.txt "
78 new std:ConcatStrings Box27
79 set Box27.In3 "/Step02_InitialParameters.txt "
81 new std:ConcatStrings Box28
82 set Box28.In3 "/Step03_Filter.txt "
84 new std:ConcatStrings Box29
86 new std:ConcatStrings Box30
87 set Box30.In3 "/Comment-General.txt "
89 new std:ConcatStrings Box31
90 set Box31.In3 "/Comment-Informatic.txt "
92 new std:ConcatStrings Box32
93 set Box32.In3 "/Comment-Scientific.txt "
95 new std:ConcatStrings Box33
97 new std:ConcatStrings Box34
98 set Box34.In3 "/Step04_Correction.txt "
100 new std:ConcatStrings Box35
101 set Box35.In3 "/Step05_Validation.txt "
103 new std:ConcatStrings Box36
104 set Box36.In3 "/Step06_PushDB.txt "
106 new std:ReplaceString Box38
107 set Box38.Search "<PATIENT>/Condition_01"
109 new std:ConcatStrings Box40
111 new std:FilesFromDirectory Box43
116 connect Box04.Widget Box06.Widget1
118 connect Box06.Widget Box02.Widget2
120 connect Box08.Widget Box06.Widget2
122 connect Box09.Widget Box08.Widget1
124 connect Box05.Widget Box08.Widget2
126 connect Box11.Widget Box08.Widget3
128 connect Box10.Widget Box08.Widget4
130 connect Box10.BoxChange Box12.BoxExecute
132 connect Box03.Out Box13.In1
134 connect Box14.Widget Box08.Widget5
136 connect Box17.Widget Box02.Widget1
138 connect Box15.LstTitles Box17.Titles
140 connect Box15.Out00 Box17.Column00
142 connect Box18.Out Box20.In
145 connect Box21.Out Box20.Replace
147 connect Box20.Out Box22.In
149 connect Box20.Out Box23.In
151 connect Box20.Out Box24.In
153 connect Box13.Out Box25.In1
155 connect Box22.Out Box25.In2
157 connect Box23.Out Box27.In2
159 connect Box13.Out Box27.In1
161 connect Box24.Out Box28.In2
163 connect Box13.Out Box28.In1
165 connect Box25.Out Box29.In1
167 connect Box27.Out Box29.In2
169 connect Box28.Out Box29.In3
171 connect Box29.Out Box15.LstStepsPath
173 connect Box24.Out Box30.In2
175 connect Box13.Out Box30.In1
177 connect Box13.Out Box31.In1
179 connect Box24.Out Box31.In2
181 connect Box13.Out Box32.In1
183 connect Box24.Out Box32.In2
185 connect Box30.Out Box33.In1
187 connect Box31.Out Box33.In2
189 connect Box32.Out Box33.In3
191 connect Box33.Out Box15.LstCommentsPath
193 connect Box13.Out Box34.In1
195 connect Box24.Out Box34.In2
197 connect Box13.Out Box35.In1
199 connect Box24.Out Box35.In2
201 connect Box34.Out Box29.In4
203 connect Box35.Out Box29.In5
205 connect Box36.Out Box29.In6
207 connect Box15.Out01 Box17.Column01
209 connect Box15.Out02 Box17.Column02
211 connect Box15.Out03 Box17.Column03
213 connect Box15.Out04 Box17.Column04
215 connect Box15.Out05 Box17.Column05
217 connect Box15.Out06 Box17.Column06
219 connect Box15.Out07 Box17.Column07
221 connect Box15.Out08 Box17.Column08
223 connect Box15.Out09 Box17.Column09
225 connect Box15.Out10 Box17.Column10
227 connect Box24.Out Box36.In2
229 connect Box13.Out Box36.In1
231 connect Box22.Out Box38.In
233 connect Box40.Out Box43.In
235 connect Box43.OutSimple Box15.LstPatientsID
237 connect Box40.Out Box04.In
239 connect Box13.Out Box40.In1
241 connect Box38.Out Box40.In2
243 connect Box05.BoxChange Box17.BoxExecute
245 connect Box05.BoxChange Box15.BoxExecute
249 # Complex input ports
250 input BaseDir Box03.In " "
251 input CoreID Box21.In " "