Produced by Araxis Merge on 3/30/2018 10:37:01 AM Eastern Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
# | Location | File | Last Modified |
---|---|---|---|
1 | ConsultToolbox_v1.8.0_It1_Bld3.zip | AboutToolbox.ahk | Fri Jan 26 14:49:38 2018 UTC |
2 | ConsultToolbox_v1.8.0_It1_Bld3.zip | AboutToolbox.ahk | Fri Mar 30 14:22:24 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 1070 |
Changed | 1 | 2 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
Whitespace | |
---|---|
Character case | Differences in character case are significant |
Line endings | Differences in line endings (CR and LF characters) are ignored |
CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
1 | /* | |
2 | A boutToolbo x.ahk | |
3 | ||
4 | This Auto Hotkey mod ule functi ons to: | |
5 | ||
6 | To Display the Consu lt Toolbox "About Co nsult Tool box" dialo g (Win + V ) | |
7 | ||
8 | To Reload or re-init ialize the Consult T oolbox /w default va lues | |
9 | ||
10 | To Access and update the Consu lt Toolbox "Preferen ces & Sett ing" dialo g | |
11 | Two (2) in formation Tabs | |
12 | 1 - A utomate CP RS dialogs and inter actions | |
13 | 2 - O ther User Settings | |
14 | C :\Users\<U SERNAME>\A ppData\Roa ming\Consu ltToolbox\ CTBSetting s.ini | |
15 | ||
16 | */ | |
17 | ||
18 | ||
19 | AboutBox: | |
20 | CurrentTab := 1 | |
21 | Gui, Versi on:Destroy | |
22 | Gui, 1:-Al waysOnTop | |
23 | Gui, About :Default | |
24 | Gui, About :+alwayson top | |
25 | Gui, Color , %GuiBkgn d% | |
26 | Gui, Font, %font16% %CTBRed% % FontBold%, Verdana | |
27 | Gui, Add, Text, x50 y20, Setti ngs | |
28 | Gui, Add, Picture, x 20 yp+30 w 170 h-1 , %A_AppData %\ConsultT oolbox\Con sultToolBo x.png | |
29 | Gui, Font, %Font12% %FontReg%, Verdana | |
30 | Gui, Add, Text, x80 yp+210, Ab out | |
31 | Gui, Add, Groupbox, x20 yp+20 w170 h87 | |
32 | Gui, Font, %Font10% CDefault, Verdana | |
33 | Gui, Add, Text, x30 yp+18, Con sult Toolb ox | |
34 | Gui, Add, Text, x30 yp+20, Ver sion | |
35 | Gui, Add, Text, x30 yp+20, %CT BVersionNu mber% | |
36 | Gui, Add, Text, x20 yp+60, Ena ble Consul t Toolbox: | |
37 | Gui, Add, Radio, vPr eParmEnabl e gDoEnabl e xp+30 yp +22 Checke d, Yes | |
38 | Gui, Add, Radio, vPr eParmDisab le gDoDisa ble xp+60 yp, No | |
39 | Gui, Font, %Font12% %CTBRed%, Verdana | |
40 | Gui, Add, Text, x220 y15, Cons ult Toolbo x Preferen ces | |
41 | Gui, Font, %Font10% CDefault, Verdana | |
42 | Gui, Add, Tab3, AltS ubmit %Par mTheme% gN ewAboutTab vAboutTab 2 x220 y45 h400 w650 , Automati cally Open Toolbox|O ther User Settings | |
43 | Gui, Tab, 1 | |
44 | tstring := "Please c hoose whet her you wa nt to have the toolb ox open au tomaticall y when a C PRS option is offere d, and if more than one option is availa ble, " | |
45 | tstring .= "which op tion you w ould like when the C PRS consul t option o pens." | |
46 | Gui, Add, Text, x235 yp+40 w55 0, %tstrin g% | |
47 | Gui, Add, CheckBox, yp+82 xp v ParmAutoma te, Use au tomation s ettings be low. Unche ck to disa ble automa tion. | |
48 | Gui, Add, Text, x235 yp+47, Re ceive Cons ult Option s: | |
49 | Gui, Add, DropDownLi st, xp+176 yp-4 w350 vParmRece ive, Do no t open Con sult Toolb ox | |
50 | |Show Me nu | |
51 | |Receive Consult | |
52 | ; |Receiv e Consult (Low Risk Clinic) | |
53 | |Communi ty Care Op tions | |
54 | Gui, Add, Text, x235 yp+30, Ad d Comment to Consult Options: | |
55 | Gui, Add, DropDownLi st, xp+236 yp-4 w350 vParmComm ent, Do no t open Con sult Toolb ox | |
56 | |Show Me nu | |
57 | |Schedul er Options | |
58 | |Communi ty Care Op tions | |
59 | |Provide r Options | |
60 | ||
61 | Gui, Add, Text, x235 yp+30, Di scontinue Consult Op tions: | |
62 | Gui, Add, DropDownLi st, xp+204 yp-4 w350 vParmDisc ontinue, D o not open Consult T oolbox | |
63 | |Show Me nu | |
64 | |Show To olbox | |
65 | Gui, Tab, 2 | |
66 | Gui, Add, CheckBox, x235 y80 v ParmClinic al, Check if you are a clinica l staff me mber | |
67 | Gui, Add, CheckBox, xp yp+26 v ParmLowRis kClinic gC kLowRisk, Check if y ou want th e low risk option on Receive C onsult scr een | |
68 | ;Gui, Add, Checkbox, xp yp+26 vParmEpiso deStart, C heck this box for ep isode of c are to beg in at firs t visit | |
69 | ||
70 | Gui, Add, Checkbox, xp yp+26 v Enabled_CP P, Enable CPP Referr al | |
71 | GuiControl ,,Enabled _CPP, 1 | |
72 | Gui, Add, Checkbox, xp yp+26 v Enabled_HS RM, Enable HSRM Refe rral | |
73 | ||
74 | Gui, Add, Checkbox, xp yp+26 v ParmColor gCkColor, Enable col or feature s | |
75 | Gui, Add, Checkbox, xp yp+26 v ParmAudibl eTabs gCkP armAudible Tabs, Enab le audible tabs | |
76 | ||
77 | Gui, Add, Text, x235 yp+42, Pr eferred St ate: | |
78 | Gui, Add, DropDownLi st, xp+113 yp-4 w300 vParmStat e, %StateL ist% | |
79 | ||
80 | Gui, Font, %FontBold % | |
81 | Gui, Add, Text, x235 yp+42 w55 0, The fol lowing opt ions are f or use by special pi lots under the Offic e of Commu nity Care | |
82 | Gui, Font, %FontReg% | |
83 | ||
84 | Gui, Add, CheckBox, x235 yp+45 vParmDOA, Enable De legation o f Authorit y for admi nistrative authorize d processi ng | |
85 | Gui, Add, CheckBox, x235 yp+24 vParmTria ge, Enable consult s creening a nd triage options | |
86 | Gui, Add, CheckBox, x235 yp+24 vParmPilo t , Enable VA schedu ling optio ns (Fargo, Alaska, C harleston, others) | |
87 | ;2017-06-0 9 discussi on regardi ng choice vs comm. c are. This makes it a n option. Disabled f or now. | |
88 | ;Gui, Add, Text, yp+ 24 xp, Com munity Car e Opt-In/O ut for: | |
89 | ;Gui, Add, ComboBox, vOptInOpt ion x+10 y p-4 gOptIn Change, Ch oice|Comm. Care | |
90 | Gui, Tab | |
91 | Gui, Add, Link, x20 y450, % Li nkText | |
92 | Gui, Add, Button, x3 70 y475 gP armButton, Exit and Save Chang es | |
93 | ||
94 | Gui, Show, x127 y87, Consult T oolbox Pre ferences a nd Setting s | |
95 | GoSub, Get Settings | |
96 | Gosub, Put Settings | |
97 | Gosub, Pop ulateSetti ngs | |
98 | if (ParmCo lor=1) | |
99 | PostMess age, 0x133 3, 0 , 1, SysTabCont rol321, Co nsult Tool box Prefer ences and Settings | |
100 | ||
101 | Return | |
102 | ||
103 | ; added 1 1-22 | |
104 | CkParmAudi bleTabs: | |
105 | GuiControl Get, ParmA udibleTabs | |
106 | ||
107 | Return | |
108 | ||
109 | CkColor: | |
110 | GuiControl Get, ParmC olor | |
111 | ||
112 | Return | |
113 | ||
114 | ||
115 | OptInChang e: | |
116 | ;GuiContro lGet, OptI nOption | |
117 | OptInOptio n := "Choi ce" | |
118 | OptInOptio n := trim( OptInOptio n) | |
119 | if (OptInO ption != " Choice") | |
120 | msgbox, 4100, Opt- In Opt-Out verbiage change, Ar e you sure you want to change the verbia ge for Opt In/out? | |
121 | ifMsgBox N o | |
122 | Return | |
123 | ParmOptIn := OptInOp tion | |
124 | Gosub, Put Settings | |
125 | Return | |
126 | ||
127 | ||
128 | NewAboutTa b: | |
129 | gui, 1:Def ault | |
130 | if (ParmCo lor = 0) | |
131 | Return | |
132 | PostMessag e, 0x1333, CurrentTa b-1, 0, Sy sTabContro l321, Cons ult Toolbo x Preferen ces and Se ttings | |
133 | ControlGet , CurrentT ab, Tab, , SysTabCon trol321, C onsult Too lbox Prefe rences and Settings | |
134 | PostMessag e, 0x1333, CurrentTa b-1 , 1, S ysTabContr ol321, Con sult Toolb ox Prefere nces and S ettings | |
135 | Return | |
136 | ||
137 | ||
138 | ShowVars: | |
139 | Listvars | |
140 | Return | |
141 | ||
142 | DoEnable: | |
143 | ParmEnable d := "Yes" | |
144 | Return | |
145 | ||
146 | ||
147 | DoDisable: | |
148 | ParmEnable d := "No" | |
149 | Return | |
150 | ||
151 | AboutGuiEs cape: | |
152 | AboutGuiCl ose: | |
153 | Gui, About :Destroy | |
154 | ;Gui, 1:de fault | |
155 | ;Gui, 1:+A lwaysOnTop | |
156 | ;Gui, 1:Sh ow | |
157 | Return | |
158 | ||
159 | PopulateSe ttings: | |
160 | GuiControl , About:, ParmAutoma te, % Parm Automate | |
161 | GuiControl , About:Ch ooseString , ParmRece ive, % Par mReceive | |
162 | GuiControl , About:Ch ooseString , ParmComm ent, % Par mComment | |
163 | GuiControl , About:Ch ooseString , ParmDisc ontinue, % ParmDisco ntinue | |
164 | GuiControl , About:Ch ooseString , ParmStat e, % ParmS tate | |
165 | GuiControl , About:, ParmPilot, % ParmPil ot | |
166 | GuiControl , About:, ParmClinic al, % Parm Clinical | |
167 | GuiControl , About:, ParmTriage , % ParmTr iage | |
168 | GuiControl , About:, ParmAudibl eTabs, % P armAudible Tabs | |
169 | GuiControl , About:, ParmColor, % ParmCol or | |
170 | GuiControl , About:, ParmDOA, % ParmDOA | |
171 | GuiControl , About:, ParmLowRis kClinic, % ParmLowRi skClinic | |
172 | GuiControl , About:, Enabled_CP P, % Enabl ed_CPP | |
173 | GuiControl , About:, Enabled_HS RM, % Enab led_HSRM | |
174 | ;GuiContro l, About:, ParmEpiso deStart, % ParmEpiso deStart | |
175 | GuiControl , About:Ch ooseString , OptInOpt ion, % Par mOptIn | |
176 | Return | |
177 | ||
178 | CkLowRisk: | |
179 | GuiControl Get, ParmL owRiskClin ic | |
180 | If (ParmLo wRiskClini c = 1) | |
181 | { | |
182 | tstr := "Selecting low risk is for cli nics appro ved to dis continue c onsults af ter one mi ssed appoi ntment. " | |
183 | tstr .= "This shou ld only be selected for clinic s on the N ational Lo w Risk Cli nic list. This list can be fou nd in the national c onsult SOP on the we b link bel ow." | |
184 | MsgBox, 4096, Low Risk Clini c is Enabl ed, %tstr% , 30 | |
185 | } | |
186 | Return | |
187 | ||
188 | ParmButton : | |
189 | Gui, About :Submit | |
190 | ;MsgBox, 4096,, En abled_CPP is %Enable d_CPP%`n`n Enabled_HS RM is %Ena bled_HSRM% | |
191 | ||
192 | Gui, About :Destroy | |
193 | ;Gui, 1:+A lwaysOnTop | |
194 | ;Gui, 1:De fault | |
195 | ;Gui, 1:Sh ow | |
196 | Gosub, Put Settings | |
197 | Reload | |
198 | Return | |
199 | ||
200 | DefineSett ings: | |
201 | Global Par mAutomate := 1 ; de fault to y es | |
202 | Global Par mState := "GA" | |
203 | Global Par mReceive : = "Show Me nu" | |
204 | Global Par mComment : = "Show Me nu" | |
205 | Global Par mDiscontin ue := "Sho w Menu" | |
206 | Global Par mTriage := 1 | |
207 | Global Par mPilot := 0 | |
208 | Global Par mAudibleTa bs := 0 | |
209 | Global Par mColor := 1 | |
210 | Global Par mEnabled : = "Yes" | |
211 | Global Par mClinical := 0 | |
212 | ;Global Pa rmEpisodeS tart := 1 | |
213 | Global Par mTheme := "+Theme" ;used with tab contr ols | |
214 | Global Par mFirstLoad := substr (A_Now,1,8 ) | |
215 | Global Par mLastUsed := "" | |
216 | Global Set tingsStrin g := "" | |
217 | Global Com mentOpen : =0 | |
218 | Global Par mDOA := 1 | |
219 | Global Par mLowRiskCl inic := 0 | |
220 | Global Par mOptIn := "Community Care" | |
221 | Global Ena bled_CPP : = 1 | |
222 | Global Ena bled_HSRM := 0 | |
223 | ||
224 | Return | |
225 | ||
226 | ExtractPar m(MyParm) | |
227 | { | |
228 | a := ins tr(Setting sString, " <" . MyPar m . ">") ; see if pa rm exists in File | |
229 | if (a > 0) ; it ex ists | |
230 | { b := instr (SettingsS tring, "</ " . MyParm . ">") ; b will be the traile r for parm | |
231 | if (b > 0) ;found it | |
232 | c := sub str(Settin gsString, a + strlen (Myparm) + 2, b-(a + strlen(My parm) + 2) ) | |
233 | else | |
234 | c := %MyParm% | |
235 | } | |
236 | el se | |
237 | { | |
238 | c := %MyParm% | |
239 | } | |
240 | Re turn, c | |
241 | ;msgbo x,, Readin g, Reading %MyParm% = %c% | |
242 | } | |
243 | ||
244 | FormatParm (MyParm) | |
245 | { | |
246 | a:= %My Parm% | |
247 | a := "< " . MyParm . ">" . T rim(a) . " </" . MyPa rm . ">" | |
248 | ;msgbox , a = %a% `n MyParm = %MyParm% | |
249 | Return a | |
250 | } | |
251 | ||
252 | ||
253 | ||
254 | GetSetting s: | |
255 | tstring := A_AppData . "\Consu ltToolbox\ CTBSetting s.ini" | |
256 | GetOldSett ings: | |
257 | SettingsFi le := File Open(tstri ng,"rw") | |
258 | if (IsObje ct(Setting sFile)) | |
259 | { ; we suc cessfully opened the file, tho ugh it may not have existed | |
260 | Settings String := SettingsFi le.Read() ; now tst ring is ei ther blank if file w as new, or contains all the se ttings dat a | |
261 | if (StrL en(Setting sString) > 5) ; we successful ly read so me setting s | |
262 | { ;msgb ox,4096, S ettingsStr ing, %Sett ingsString % | |
263 | ParmA utomate := trim(Extr actParm("P armAutomat e")) | |
264 | ParmR eceive := trim(Extra ctParm("Pa rmReceive" )) | |
265 | ParmC omment := trim(Extra ctParm("Pa rmComment" )) | |
266 | ParmS tate := tr im(Extract Parm("Parm State")) | |
267 | ParmD iscontinue := trim(E xtractParm ("ParmDisc ontinue")) | |
268 | ParmT riage := t rim(Extrac tParm("Par mTriage")) | |
269 | ParmP ilot := tr im(Extract Parm("Parm Pilot")) | |
270 | ParmA udibleTabs := trim(E xtractParm ("ParmAudi bleTabs")) | |
271 | ParmE nabled :=t rim(Extrac tParm("Par mEnabled") ) | |
272 | ParmC olor := tr im(Extract Parm("Parm Color")) | |
273 | ParmC linical := trim(Extr actParm("P armClinica l")) | |
274 | ParmF irstLoad : = trim(Ext ractParm(" ParmFirstL oad")) | |
275 | ParmL astUsed := trim(Extr actParm("P armLastUse d")) | |
276 | P armLowRisk Clinic := trim(Extra ctParm("Pa rmLowRiskC linic")) | |
277 | E nabled_CPP := trim(E xtractParm ("Enabled_ CPP")) | |
278 | E nabled_HSR M := trim( ExtractPar m("Enabled _HSRM")) | |
279 | ; ParmE pisodeStar t := trim( ExtractPar m("ParmEpi sodeStart" )) | |
280 | ParmO ptIn := tr im(Extract Parm("Parm OptIn")) | |
281 | ParmD OA := trim (ExtractPa rm("ParmDO A")) | |
282 | ;Msgb ox, 4096, ParmDOA, % ParmDOA% | |
283 | Showc ctriage := ParmTriag e | |
284 | Pilot := ParmPi lot | |
285 | Defau ltState := ParmState | |
286 | GoSub , SetColor Mode | |
287 | } | |
288 | Settings String := "" ; clea r memory | |
289 | Settings File.Close | |
290 | } | |
291 | Return ; i f settings were read , they now are popul ated over the defaul ts | |
292 | ||
293 | ||
294 | CheckUse: | |
295 | tstr := su bstr(A_Now ,1,8) ; g et todays date in YY YYMMDD for mat | |
296 | if (ParmLa stUsed = t str) ; we 've alread y updated | |
297 | Return | |
298 | else | |
299 | { | |
300 | ParmLast Used := ts tr | |
301 | Gosub, P utsettings | |
302 | } | |
303 | Return | |
304 | ||
305 | GetParmAct ion(MyParm ) | |
306 | { if (%My Parm% = "D o not open Consult T oolbox") ; we do not hing | |
307 | a := "" | |
308 | if (MyP arm = "Par mComment") | |
309 | { | |
310 | Actio nComment : = "" | |
311 | } | |
312 | } | |
313 | ||
314 | SetColorMo de: | |
315 | { | |
316 | Gosub, S etup508Hot keys | |
317 | if (Parm Color = 1) | |
318 | { | |
319 | ParmTh eme := "-T heme" | |
320 | CTBRed := "c7700 00" | |
321 | CTBGre en := "c00 7700" | |
322 | CTBBlu e := "c000 077" | |
323 | } ; thi s enables colors | |
324 | else | |
325 | { | |
326 | ParmTh eme := "+T heme" ; o verrides l ocal setti ngs for ta bs | |
327 | CTBRed := "c0000 00" | |
328 | CTBGre en := "c00 0000" | |
329 | CTBBlu e := "c000 000" | |
330 | } | |
331 | ParmTabC olor := Pa rmColor ; used for t abs only | |
332 | if (1) | |
333 | { | |
334 | Fo ntBold := "w700" | |
335 | Fo ntReg := " w400" | |
336 | Fo nt7 := "s7 " | |
337 | Fo nt8 := "s8 " | |
338 | Fo nt9 := "s9 " | |
339 | Fo nt10 := "s 10" | |
340 | Fo nt11 := "s 11" | |
341 | Fo nt12 := "s 12" | |
342 | Fo nt14 := "s 14" | |
343 | Fo nt16 := "s 16" | |
344 | Gu iBkgnd := "Default" | |
345 | } | |
346 | else | |
347 | { | |
348 | ParmTh eme := "+T heme" ; o verrides t ab setting if no col or | |
349 | CTBRed := "c0000 00" | |
350 | CTBGre en := "c00 0000" | |
351 | CTBBlu e := "c000 000" | |
352 | Pa rmColor := 0 ; ove rrides col or setting s | |
353 | Pa rmTabColor := 0 | |
354 | Fo ntBold := "w400" | |
355 | Fo ntReg := " w400" | |
356 | Fo nt7 := "s9 " | |
357 | Fo nt8 := "s9 " | |
358 | Fo nt9 := "s9 " | |
359 | Fo nt10 := "s 9" | |
360 | Fo nt11 := "s 9" | |
361 | Fo nt12 := "s 9" | |
362 | Fo nt14 := "s 9" | |
363 | Fo nt16 := "s 9" | |
364 | Gu iBkgnd := "FFFFFF" | |
365 | } | |
366 | ;msgbox, | |
367 | Return | |
368 | } | |
369 | ||
370 | ||
371 | PutSetting s: | |
372 | tstring := A_AppData . "\Consu ltToolbox\ CTBSetting s.ini" | |
373 | SettingsFi le := File Open(tstri ng,"w `n") ; here we 'll overwr ite settin gs if they previousl y existed | |
374 | if (IsObje ct(Setting sFile)) | |
375 | { | |
376 | ParmOptI n := "Comm unity Care " ; Hard- Coding In ParmOptIn verbiage | |
377 | ; we suc cessfully opened the file, tho ugh it may not have existed | |
378 | Settings File.Write Line(Forma tParm("Par mAutomate" )) | |
379 | Settings File.Write Line(Forma tParm("Par mState")) | |
380 | Settings File.Write Line(Forma tParm("Par mReceive") ) | |
381 | Settings File.Write Line(Forma tParm("Par mComment") ) | |
382 | Settings File.Write Line(Forma tParm("Par mDiscontin ue")) | |
383 | Settings File.Write Line(Forma tParm("Par mTriage")) | |
384 | Settings File.Write Line(Forma tParm("Par mPilot")) | |
385 | Settings File.Write Line(Forma tParm("Par mAudibleTa bs")) | |
386 | Settings File.Write Line(Forma tParm("Par mEnabled") ) | |
387 | Settings File.Write Line(Forma tParm("Par mColor")) | |
388 | Settings File.Write Line(Forma tParm("Par mClinical" )) | |
389 | Settings File.Write Line(Forma tParm("Par mFirstUsed ")) | |
390 | Settings File.Write Line(Forma tParm("Par mLastUsed" )) | |
391 | Settings File.Write Line(Forma tParm("Par mLowRiskCl inic")) | |
392 | ; Settings File.Write Line(Forma tParm("Par mEpisodeSt art")) | |
393 | Settings File.Write Line(Forma tParm("Par mOptIn")) | |
394 | Settings File.Write Line(Forma tParm("Par mDOA")) | |
395 | Settings File.Write Line(Forma tParm("Ena bled_CPP") ) | |
396 | Settings File.Write Line(Forma tParm("Ena bled_HSRM" )) | |
397 | ||
398 | Settings File.Close | |
399 | ||
400 | tstr := A_StartMen uCommon . "\Programs \Consult T oolbox\Ena ble Consul t Toolbox. lnk" | |
401 | tstring := A_Start Up . "\Con sultToolbo x.lnk" | |
402 | if (PreP armEnable = 1) | |
403 | { ; we need to pl ace shortc ut in star up folder | |
404 | if (st rlen(FileE xist(tstri ng)) = 0) | |
405 | { | |
406 | tstr := A_ ProgramFil es . "\Con sultToolbo x\ConsultT oolbox.exe " | |
407 | jstr := A_Star tup . "\Co nsultToolb ox.lnk" | |
408 | File CreateShor tcut, %tst r%, %jstr% , %wstr%, , Consult Toolbox | |
409 | msgb ox, %CTBVe rsion% Ena bled on th is PC. | |
410 | } | |
411 | } | |
412 | if (PreP armDisable = 1) | |
413 | { | |
414 | FileDel ete, %tstr ing% | |
415 | Msgbox, Consult T oolbox has been disa bled for y ou on this computer. | |
416 | ExitApp | |
417 | } | |
418 | } | |
419 | ||
420 | Return ; i f settings were read , now they are popul ated over the defaul ts | |
421 | ||
422 | ||
423 | ShowVersio n: | |
424 | Gui, Versi on:Destroy | |
425 | Gui, Versi on:New, , % "Consult Toolbox V ersion" | |
426 | Gui, -Mini mizeBox | |
427 | Gui, Color , %GuiBkgn d% | |
428 | Gui, Font, %Font16% %CTBRed%, Verdana Bo ld | |
429 | Gui, Add, Text, x70 y20, About | |
430 | Gui, Add, Picture, x 20 yp+30 w 170 h-1 , %A_AppData %\ConsultT oolbox\Con sultToolBo x.png | |
431 | Gui, Font, %Font10% CDefault, Verdana | |
432 | Gui, Add, Text, x200 y60, Cons ult Toolbo x | |
433 | Gui, Add, Text, xp y p+20, Vers ion | |
434 | Gui, Add, Text, xp y p+20, %CTB VersionNum ber% | |
435 | Gui, Add, Button, xp +40 yp+40 w105 gAbou tBox, Sett ings | |
436 | Gui, Add, Button, xp yp+40 w10 5 gReloadC TB, Reload CTB | |
437 | Gui, Add, Button, x1 90 y300 gC loseVersio n, OK | |
438 | ||
439 | if ((trim( A_UserName ) = "
|
|
440 | { | |
441 | Gui, Add , Text, w3 90 vTimerD ebug x20 y 230, Tick: %Tick% C: %CommentOp en% AC:%Ad dCommentOp en% RC:%Re ceiveOpen% DC:%DCOpe n% | |
442 | Gui, Add , button, yp x235 y+ 2 gShowVar s, Show Va riables | |
443 | } | |
444 | Gui, Show, Center w4 00, Consul t Toolbox Version | |
445 | Return | |
446 | ||
447 | ||
448 | ReloadCTB: | |
449 | Reload | |
450 | ||
451 | ||
452 | VersionGui Close: | |
453 | VersionGui Escape: | |
454 | CloseVersi on: | |
455 | Gui, Versi on:Destroy | |
456 | Return | |
457 | ||
458 | ||
459 | ShowNewUse r: | |
460 | Gui, NewUs er:Destroy | |
461 | Gui, NewUs er:Default | |
462 | Gui, +alwa ysontop | |
463 | Gui, -mini mizebox | |
464 | Gui, Font, %CTBRed% s11 %FontB old%, Verd ana | |
465 | Gui, Add, Text, x25 y25, Welco me to the consult to olbox vers ion 1.0.6 | |
466 | Gui, Font, cDefault %Font10% % FontReg% | |
467 | Gui, Add, Text, y+8, In order to properl y initiali ze it, ple ase indica te your ro le | |
468 | Gui, Add, Text, y+2, with resp ect to rec eiving and processin g consults : | |
469 | Gui, Font, cDefault %Font10% % FontBold% | |
470 | Gui, Add, Text, yp+3 2, In-Hous e Consult Service | |
471 | Gui, Font, cDefault %Font10% % FontReg% | |
472 | Gui, Add, Radio, vRo leI yp+22, I process consults as a MSA, Scheduler, administr ator or sc heduling s upervisor | |
473 | Gui, Add, Radio, yp+ 22, Clinic al staff ( receive, a ccept or d iscontinue consults) | |
474 | Gui, Add, Radio, yp+ 54, Commun ity Care C linical St aff (licen sed provid ers and nu rses) | |
475 | Gui, Add, Radio, yp+ 22, Admini strative s taff (MSA staff and schedulers ) | |
476 | Gui, Add, Radio, yp+ 33, I do n ot have a role recei ving or pr ocessing c onsults af ter they a re ordered . | |
477 | Gui, Font, cDefault %Font10% % FontBold% | |
478 | Gui, Add, Text, yp-7 7, Communi ty Care Co nsult Staf f | |
479 | Gui, Font, cDefault %Font10% % FontReg% | |
480 | Gui, Add, Text, yp+1 07 w500 r2 , This wil l set up a ppropriate settings for the Co nsult Tool box to fun ction prop erly for y our role. These sett ings can b e modified later in the progra m "Setting s." | |
481 | Gui, Add, Button, gC loseNewUse r x255 y+1 7, OK | |
482 | Gui, Show | |
483 | Return | |
484 | ||
485 | ||
486 | CloseNewUs er: | |
487 | NewUserGui Close: | |
488 | NewUserGui Escape: | |
489 | Gui, NewUs er:Destroy | |
490 | Return | |
491 | ||
492 | Setup508Ho tkeys: | |
493 | ||
494 | #IfWinActi ve Consult Toolbox V ersion | |
495 | ^1:: | |
496 | { Guic ontrol, Ch oose, CC, 1 | |
497 | Guic ontrol, Ch oose, DCTa b2, 1 | |
498 | Guicontrol , Choose, SchTab2, 1 | |
499 | Guicontrol , Choose, AboutTab2, 1 | |
500 | Return | |
501 | } | |
502 | ^2:: | |
503 | { Guic ontrol, Ch oose, CC, 2 | |
504 | Guic ontrol, Ch oose, DCTa b2, 2 | |
505 | Guicontrol , Choose, SchTab2, 2 | |
506 | Guicontrol , Choose, AboutTab2, 2 | |
507 | Return | |
508 | } | |
509 | ^3:: | |
510 | { Guic ontrol, Ch oose, CC, 3 | |
511 | Guicontrol , Choose, SchTab2, 3 | |
512 | Return | |
513 | } | |
514 | ^4:: | |
515 | { Guic ontrol, Ch oose, CC, 4 | |
516 | Return | |
517 | } | |
518 | ^5:: | |
519 | { Guic ontrol, Ch oose, CC, 5 | |
520 | Return | |
521 | } | |
522 | ^6:: | |
523 | { Guic ontrol, Ch oose, CC, 6 | |
524 | Return | |
525 | } | |
526 | ^7:: | |
527 | { Guic ontrol, Ch oose, CC, 7 | |
528 | Return | |
529 | } | |
530 | ^8:: | |
531 | { Guic ontrol, Ch oose, CC, 8 | |
532 | Return | |
533 | } | |
534 | #IfWinActi ve | |
535 | ||
536 | Return |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.