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