1. EPMO Open Source Coordination Office Redaction File Detail Report

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.

1.1 Files compared

# 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

1.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 1190
Changed 2 8
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.  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
  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
  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