1. EPMO Open Source Coordination Office Redaction File Detail Report

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.

1.1 Files compared

# 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

1.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 1126
Changed 1 7
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  
  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
  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                   /
/seoc/acti ve"
  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
  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