1. EPMO Open Source Coordination Office Redaction File Detail Report

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.

1.1 Files compared

# 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

1.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 1070
Changed 1 2
Inserted 0 0
Removed 0 0

1.3 Comparison options

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

1.4 Active regular expressions

No regular expressions were active.

1.5 Comparison detail

  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
  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
  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
  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 ) = "
D NS  ") and (1= 2))    ;here for  debugging
  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