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