3. 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.

3.1 Files compared

# Location File Last Modified
1 ConsultToolbox_SourceCode-7-12-2018CIF2.zip CCAdminTriage_.ahk Mon Jun 11 19:02:04 2018 UTC
2 ConsultToolbox_SourceCode-7-12-2018CIF2.zip CCAdminTriage_.ahk Wed Sep 12 20:46:55 2018 UTC

3.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 4 1016
Changed 3 10
Inserted 0 0
Removed 0 0

3.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

3.4 Active regular expressions

No regular expressions were active.

3.5 Comparison detail

  1   /*
  2  
  3                                                        C CAdminTria ge.ahk
  4  
  5   This Auto  Hotkey mod ule functi ons to:
  6    
  7   To Display  the Consu lt Toolbox 's "Docume nt Adminis trative Sc reening" d ialog
  8       From t he Communi ty Care Ad d Comments  panel, Ta b 1 MSA El ig. Verifi cation
  9       Click  the "Docum ent Admini strative S creening"  button
  10           
  11       The "C lear" butt on resets  most contr ols
  12           Th e "OK" but ton send d ata to the  CCareComm ents dialo g, tab 1
  13           
  14           Th e CAN scor e data is  collected  by reading  the CPRS  open recor d and 
  15           se nding the  social sec urity numb er to 
  16           th e VA's SQA  CAN score  server da tabase
  17           
  18       Gui, 6 :
  19       Rows b egin at co lumn or po sition 20
  20  
  21   */
  22  
  23   ShowAdminT riage:
  24   AdmStart : = A_TickCo unt
  25   ;msgbox, S how admint riage %xad mintriage%
  26   if ((Prior TriageReq  = "Complet e") or (Pr iorTriageR eq = "Not  Required")  or (Prior Admin = "Y es"))
  27   {
  28     tstr :=  "Administr ative scre ening is n ot require d or has a lready bee n done on  this consu lt.`n`nDo  you want t o perform  Administra tive Scree ning anywa y?"
  29     MsgBox,  4148, Tria ge is not  required,  %tstr%
  30     ifMsgBox , No
  31     { Return
  32     }     
  33   }
  34  
  35   if (xadmin triage=0)
  36     CoorOvri de := ""
  37   Gui, 1:-Al waysOnTop
  38   Gui, 6:Des troy
  39   Gui, 7:Des troy
  40  
  41   if (ConAdm TriageScor e > 0)  ;  admin scre ening alre ady perfor med, we ne ed to make  sure the  user wants  to redo i t  
  42  
  43       MsgBox , 36, Admi nistrative  Screening  Already D one, Do yo u want to  repeat it? `nAnswer Y ES to do o ver, NO to  keep curr ent result s
  44       ifMsgB ox No
  45       { Gui,  1:+Always OnTop
  46              Gui, 1:Def ault
  47         Gui,  1:Show
  48         Retu rn
  49       } 
  50    }
  51   Gui, 6:Def ault 
  52   Gui, 6:-Mi nimizeBox
  53   xadmintria ge := 1
  54   GoSub, Get PatientSSN
  55   CANPkg :=  ""  ; clea r any prev ious CAN s core
  56   if (strlen (PatientIn foSSN) = 9 )
  57     GoSub, G etCANScore FromServer
  58   Gui, 6:fon t, %CTBRed % %Font10% , Verdana  Bold
  59   Gui, 6:Add , Text, +T abStop  x2 0 y15 vgb,  Administr ative Scre ening for  Care Coord ination an d Case Man agement
  60   Gui, 6:fon t, %Font7% , Verdana
  61   Gui, 6:Add , Button,  x+20 yp-4  gClearAdmi nEntries,  Clear
  62   Gui, 6:fon t, %CTBRed % %Font10% , Verdana  Bold
  63   Gui, 6:Add , Text, +T abStop  x1 8 y+5, Not e, this is  not for a uthorizati on.
  64   ;Gui, 6:Fo nt, cDefau lt s10 w40 0
  65   Gui, 6:Fon t, %Font10 % cDefault , Verdana
  66  
  67   ;tstr := " Previous C are Coordi nation Lev el: " . Pr iorCareCoo rdLevel 
  68   Gui, 6:Add , Text, +T abStop  x2 0 yp+25 w4 50 vAdminS howCareCoo rd, Previo us Care Co ordination  Level: %P riorCareCo ordLevel%
  69  
  70   tstr := Co orStatus.N otDone 
  71   ;Gui, 6:Ad d, Text, + TabStop  y p x400 yp+ 4 w200 vSc rStatus, % tstr%
  72   Gui, 6:Fon t, %Font10 % cDefault , Verdana  Bold
  73   Gui, 6:Add , Text, +T abStop  x2 0 yp+25, A re you a c linical st aff member :
  74   Gui, 6:Fon t, %Font10 % cDefault , Verdana
  75   Gui, 6:Add , Radio, x +10 yp vAr eYouClinic alNo gStaf fClinVsAdm in, No
  76   Gui, 6:Add , Radio, x +10 yp vAr eYouClinic alYes gSta ffClinVsAd min, Yes 
  77   Gui, 6:Fon t, %Font10 % cDefault , Verdana  Bold
  78   Gui, 6:Add , Text, +T abStop  x2 0 yp+25, U rgency: is  appointme nt needed  within 48  hours: 
  79   Gui, 6:Fon t, %Font10 % cDefault , Verdana
  80   Gui, 6:Add , Radio, v GLUrgencyY es x+10 gC alcAdminSc ore, Yes
  81   Gui, 6:Add , Radio, v GLUrgencyN o x+10 gCa lcAdminSco re, No
  82   Gui, 6:Fon t, %Font10 % %CTBRed% , Verdana
  83    
  84   Gui, 6:Add , Text, +T abStop  y+ 5 x20, If  within 48  hrs, speci fy CAN sco re and for ward for c linical tr iage.
  85   ;Gui, 6:fo nt, s10 w4 00 cDefaul t
  86   Gui, 6:Fon t, %Font10 % cDefault , Verdana
  87   Gui, 6:Add , Text, +T abStop  yp +45 gCalcA dminScore,  Does the  consult sp ecify any  of the fol lowing com plex condi tions or s ervices? 
  88   ;Gui, 6:fo nt, s10 w4 00
  89   tstr := "N one of the  above"
  90   Gui, 6:Add , DropDown List, vCom plexSvc xp  w401 y+8  gSelComple x, New Can cer Diagno sis
  91       |Outpa tient Surg ery
  92           |C oronary Ar tery Bypas s (CABG)
  93       |Chron ic Heart F ailure
  94       |Chron ic Obstruc tive Pulmo nary Disea se/ Pneumo nia
  95       |Inpat ient Hospi talization  (any caus e)
  96       |%tstr %
  97   GuiControl , Choose,  ComplexSvc , None of  the above
  98   ;Gui, 6:fo nt, %Font1 0% %CTBRed %, Verdana
  99   Gui, 6:fon t, %Font10 % cDefault , Verdana
  100   Gui, 6:Add , Text, +T abStop  y+ 8 x20,Does  the consu lt specify  any of th e followin g basic se rvices? 
  101   ;Gui, 6:fo nt, s10 w4 00
  102   Gui, 6:Add , DropDown List, x20  y+8 w550 v BasicSvc g SelBasic,  Routine Fo llow-Up Th erapeutics  (Pre-sche duled serv ices Dialy sis, OT, P T, RT)
  103     |Routine  Mammograp hy
  104     |Cervica l Ca Scree ning (PAP  Test)
  105     |Direct  Scheduling
  106     |Routine  Screening  Colonosco py
  107     |%tstr%
  108   GuiControl , Choose,  BasicSvc,  None of th e above  
  109  
  110   Gui, 6:Add , Text, +T abStop  y+ 10 x20, CA N Score:
  111   Gui, 6:fon t, %Font10 % cDefault , Verdana
  112      
  113   Gui, 6:Add , Radio, x p+90 vGLCA N1  gCalcA dminScore,  0 to 74 
  114   Gui, 6:Add , Radio, x p+100 vGLC AN2 gCalcA dminScore,  No CAN Sc ore Availa ble
  115   Gui, 6:Add , Radio, y p+22 xp-10 0 vGLCAN3  gCalcAdmin Score, 75  to 90
  116   Gui, 6:Add , Radio, x p+100 vGLC AN4 gCalcA dminScore,  Over 90
  117  
  118  
  119   If  ((CANP kg.CanScor e.cEvent_1 y > -1) AN D (CANPkg. CanScore.c Event_1y <  75))
  120      {
  121      GuiCont rol, 6:, G LCAN1, % 1
  122      }
  123   Else If  ( (CANPkg.Ca nScore.cEv ent_1y > 7 5) AND (CA NPkg.CanSc ore.cEvent _1y < 91))
  124      {
  125      GuiCont rol, 6:, G LCAN3, % 1
  126      }
  127   Else If  ( (CANPkg.Ca nScore.cEv ent_1y > 9 0) AND (CA NPkg.CanSc ore.cEvent _1y < 100) )
  128      {
  129      GuiCont rol, 6:, G LCAN4, % 1
  130      }
  131   Else
  132      {
  133      GuiCont rol, 6:, G LCAN2, % 1
  134      }
  135      
  136   GuiControl , 6: Disab le, GLCAN1
  137   GuiControl , 6: Disab le, GLCAN2
  138   GuiControl , 6: Disab le, GLCAN3
  139   GuiControl , 6: Disab le, GLCAN4
  140      
  141  
  142      
  143   ;Gui, 6:su bmit, nohi de
  144  
  145  
  146   /*
  147   GetPatient SSN
  148       Values  read from  CPRS
  149   PatientInf oName
  150   PatientInf oSSN
  151   PatientInf oDOB
  152           
  153           
  154   GetCANScor eFromServe r   
  155           Va lues read  from JSON  CAN 
  156   CANPkg.Can Score.pati entICN
  157   CANPkg.Can Score.firs tName
  158   CANPkg.Can Score.last Name
  159   CANPkg.Can Score.ssn
  160   CANPkg.Can Score.birt hDate
  161   CANPkg.Can Score.cEve nt_1y
  162   CANPkg.Can Score.risk Date
  163   CANPkg.Can Score.exec uteDate
  164  
  165   */
  166  
  167   ;Indented  Can Score  Informatio n
  168   Can_Displa y_Text_1 : = "CAN Sco re for: "  . PatientI nfoName .  "  DOB:  "  . Patient InfoDOB .  "  XXX-XX- " . substr (PatientIn foSSN,6,4)
  169   Gui, 6:Add , Text, +T abStop y+1 0 x40, %Ca n_Display_ Text_1%
  170  
  171   if (strlen (trim(CANP kg.CanScor e.cEvent_1 y)) > 0)
  172     Can_Disp lay_Text_2  := "CAN S core: " .  CANPkg.Can Score.cEve nt_1y . "   Risk Asse sment Date : " . CANP kg.CanScor e.riskDate
  173   else
  174     Can_Disp lay_Text_2  := "CAN S core: Not  found    R isk Assesm ent Date:  unavailabl e"
  175     
  176   Gui, 6:Add , Text, +T abStop  y+ 10 x40, %C an_Display _Text_2%
  177   if (Patien tInfoInpat ient)
  178   {
  179     Gui, 6:F ont, %CTBR ed%, Verda na Bold 
  180     Gui, 6:A dd, Text,  +TabStop y p x+15, IN PATIENT NO W
  181     Gui, 6:F ont, c, Ve rdana
  182   }
  183  
  184   ;Gui, 6:fo nt, s10 w4 00 %CTBRed %  
  185   ;Gui, 6:Ad d, Text, + TabStop  x 20 yp+20,  If CAN sco re is 90 o r higher,  skip remai ning quest ions and v eteran wil l be assig ned to com plex/chron ic care co ordination  level.
  186   ;Gui, 6:fo nt, s10 w4 00 cDefaul t
  187   Gui, 6:Fon t, %Font10 %, Verdana
  188   Gui, 6:Add , Text, +T abStop  x2 0 y+8 w600  vCurrentC areCoord,  Current Ca re Coord L evel Asses sment: Inc omplete
  189   Gui, 6:Fon t, %Font10 %, Verdana  Bold
  190   ;Gui, 6:Fo nt, s10 w7 00
  191   Gui, 6:Add , Text, +T abStop  y+ 10 w450 vS cheduling
  192   ;Gui, 6:Fo nt, s10 w4 00
  193   Gui, 6:Fon t, %Font10 % cDefault , Verdana
  194   Gui, 6:Add , Text, +T abStop  y+ 10 x20 w50 0 vCalcTri ageNeeded,  Clinical  Triage:
  195   Gui, 6:Add , Text, +T abStop  y+ 20 x20 w50 0 vSentToH eader, Sen d to: 
  196   if (AdminR emember =  0)
  197     AdminNot ified := " "
  198   Gui, 6:Add , edit, xp  yp+23 w23 0 gCalcAdm inScore vA dminNotifi ed, %Admin Notified%
  199   Gui, 6:Fon t, %Font8%
  200   Gui, 6:Add , Text, +T abStop  yp +3 x+15 vA Warning, ( you must r emember to  send CPRS  alert to  indicated  staff)
  201   ;Gui, Font , s10 w400
  202   Gui, 6:Fon t, %Font10 %
  203   Gui, 6:Add , Checkbox , x22 y+13  vAdminRem ember, Rem ember staf f person f or next re ferral
  204   GuiControl , 6:, Admi nRemember,  %AdminRem ember%
  205   Gui, 6:+Al waysOnTop
  206   if (ParmCl inical=1)
  207     GuiContr ol, , AreY ouClinical Yes, % 1 
  208   else
  209     GuiContr ol, , AreY ouClinical No, % 1
  210   gosub, Sta ffClinVsAd min
  211   Gui, Add,  Text, +Tab Stop  x20  y+15 vStat usShow r1  w500, %A_B lank%
  212   Gui, Add,  Button, gA dmTriage x 290 yp+25,  OK
  213   Guicontrol , , GLUrge ncyNo, % 1
  214   ATitle :=  "Administr ative Scre ening (for  use by co mmunity ca re staff o nly)"
  215   Gui, 6:Sho w, Center,  %ATitle%
  216   GuiControl , 1:, NewC linText, % A_Space%
  217   GuiControl , 1:, NewC linCoord,  %A_Space%
  218   GuiControl , 1:, NewC linSendTo,  %A_Space%
  219   GuiControl , 1:, NewC linTriage,  %A_Space%
  220   GuiControl , 1:, NewO vrHeader,  %A_Space%
  221   GuiControl , 1:, NewO vrReason,  %A_Space%
  222   Return
  223  
  224   AdmTriage:
  225   GuiControl Get, Admin Remember
  226   if ((GLCAN 1 = 0) and  (GLCAN2 =  0) and (G LCAN3 = 0)  and (GLCA N4 = 0))
  227   { Msgbox,  4096, Scre ening Inco mplete, Pl ease compl ete screen ing includ ing CAN Sc ore questi on to comp lete evalu ation.
  228     Return
  229   }
  230   if (CoorLe vel = "Inc omplete")
  231   {
  232      Msgbox,  4100, Scr eening is  not comple te, Please  complete  screening  process.`n `nDo you w ant to abo rt?
  233      ifMsgBo x no
  234        retur
  235      else 
  236        goto,  6GuiClose     
  237   }
  238   AdminNotif ied := Ttr im(AdminNo tified)
  239  
  240   if (StrLen (AdminNoti fied) < 2)
  241  
  242     
  243     if (Parm Clinical =  1)
  244       tstr : = "You hav en't desig nated the  name of th e schedule r "
  245     else
  246       tstr : = "You hav en't desig nated the  name of th e clinical  staff mem ber  "
  247     HideShow AdminActio n := trim( HideShowAd minAction)
  248     if (Hide ShowAdminA ction = "S how")
  249     { msgbox , 4100, Sc heduling A lert, %tst r% who you  will aler t. Do you  want to pr oceed? `n` nAnswer ye s to proce ed, no to  return and  document  staff.
  250       ifMsgB ox No 
  251         retu rn
  252       ; Othe rwise we p roceed   
  253      } 
  254   }       
  255  
  256   if (CoorLe vel != "In complete")
  257  
  258     GuiContr ol, 1:, Cl inPriorTri ageType, N ew Admin A ssessment
  259     GuiContr ol, 1:, Cl inPriorTri ageReq, %C alcTriageN eeded%         
  260   }
  261   GuiControl , 1:, NewA dmTriageRe q, %CalcTr iageNeeded %
  262   PriorTriag eReq := tr im(Substr( CalcTriage Needed, 17 ))
  263   ;msgbox,40 96, triage status, Pr iorTriageR eq = %Prio rTriageReq %
  264   PriorAdmin  := "Yes"
  265   goto, Fini shGui6
  266   6GuiEscape :
  267   6GuiClose:
  268   GuiControl , 1:, NewA dmText, %A _Space% 
  269   GuiControl , 1:, NewA dmCoord, % A_Space%
  270   GuiControl , 1:, NewA dmTriageRe q, %A_Spac e%
  271   GuiControl , 1:, NewA dmSendTo,  %A_Space%
  272   FinishGui6 :
  273   Gui, 6:Des troy
  274   Gui, 1:+Al waysOnTop
  275   Gui, 1:Sho w
  276   ScreeningT imeSpent : = (A_TickC ount - Adm Start)/100 0
  277   Gosub, Get CCTextFiel ds
  278   return
  279  
  280   StaffClinV sAdmin:
  281   Gui, 6:sub mit, nohid e
  282   if (AreYou ClinicalYe s = 1 and  ParmClinic al = 0)  ;  clinical  param has  just been  set, we ne ed to save  it
  283   { ParmClin ical = 1
  284     Gosub, P utsettings
  285   }
  286   if (AreYou ClinicalNo  = 1 and P armClinica l = 1) ; c linical pa ram has ju st been ch anaged fro m yes to n o
  287   { ParmClin ical = 0
  288     Gosub, P utsettings
  289   }
  290   if (ParmCl inical = 1 )
  291     tstr :=  "Schedulin g staff me mber you w ill alert:  "
  292   else
  293     tstr :=  "Clinical  staff memb er you wil l alert: "
  294   Guicontrol , , SentTo Header, %  tstr
  295   GuiControl , Move, Se ntToHeader , w300
  296   SentToHead er := tstr  
  297   Gosub, Cal cAdminScor e
  298   Return
  299  
  300  
  301  
  302   CalcAdminS core:
  303   ;msgbox, B asicSvc: > %BasicSvc% <
  304   ;msgbox, C omplexSvc:  >%Complex Svc%<
  305  
  306   Gui, 6:sub mit, nohid e
  307   CoorLevel  := "Incomp lete"
  308   AssessStat us :=0  ;  0 = incomp lete, 1 =  complete,  2 = comple te, needs  clinical
  309   NewAdmText  := ""
  310   NeedsClinR evFlag :=  0   ;deter mintes if  send to re view is ne eded.
  311  
  312   if ((GLCAN 2 = 1) or  (GLCAN3 =  1))
  313   {  AssessS tatus := 2
  314      CoorLev el := "Mod erate"
  315   }
  316   if (GLCAN4  = 1)
  317   {  AssessS tatus := 2
  318      CoorLev el := "Com plex"
  319   }
  320   if ((GLCAN 1 = 1) and  (AssessSt atus <> 1) )
  321   {  AssessS tatus := 1
  322      CoorLev el := "Bas ic"
  323   }  
  324   ComplexSvc  := trim(C omplexSvc)
  325   if (Comple xSvc <> "N one of the  above")
  326   {  ;msgbox , we have  complexsvc
  327      AssessS tatus := 2
  328      CoorLev el := "Com plex"
  329   }
  330   BasicSvc : = trim(Bas icSvc)
  331   if (BasicS vc <> "Non e of the a bove")
  332   {  ;msgbox , we match ed basic s vc
  333      AssessS tatus := 1
  334      CoorLev el := "Bas ic"
  335   }
  336   if (GLUrge ncyYes=1)
  337   {  CoorLev el := "Urg ent"
  338      AssessS tatus := 2
  339   }
  340  
  341   If (CoorLe vel = "Bas ic")
  342     CalcTria geNeeded : = "Clinica l Triage:  Not Requir ed"
  343   else if (C oorLevel =  "Incomple te")
  344     CalcTria geNeeded : = "Clinica l Triage:  undetermin ed if need ed"
  345   else
  346     CalcTria geNeeded : = "Clinica l Triage:  Required"
  347   ;if (AreYo uClinicalY es = 1)
  348   ;    GuiCo ntrol, 6:,  CalcTriag eNeeded, % A_Space%
  349   ;else   
  350   GuiControl , 6:, Calc TriageNeed ed, %CalcT riageNeede d%
  351   GuiControl , 1:, NewA dmTriageRe q, %CalcTr iageNeeded %
  352           
  353     
  354   HideshowAd minAction  := "Hide"
  355   GuiControl , , Curren tCareCoord , Current  Coord Leve l Assessme nt: %CoorL evel%
  356   if (Assess Status > 0 )
  357      GuiCont rol, , Sch eduling, P roceed to  Scheduling
  358   if (Assess Status = 0 )
  359     GuiContr ol, , Sche duling, %A _Space% 
  360   else
  361   { if (Parm Clinical =  1) 
  362     { 
  363       if (As sessStatus  = 2)
  364        GuiCo ntrol, , S cheduling,  Clinical  Triage Req uired
  365           el se
  366       { GuiC ontrol, ,  Scheduling , Send for  Schedulin g
  367              HideShowAd minAction  := "Show" 
  368           }   
  369     }
  370     else
  371     { if (As sessStatus  = 1)
  372         GuiC ontrol, ,  Scheduling , Proceed  with sched uling
  373           el se
  374       { GuiC ontrol, ,  Scheduling , Proceed  with sched uling and  notify cli nical staf f
  375         Hide ShowAdminA ction := " Show"  
  376       }
  377     }
  378   }  
  379  
  380   ;GuiContro l, 6:, Sta tusShow, D ebugging I nfo: CoorL evel: %Coo rLevel% Hi deShow: %H ideshowAdm inAction%  AssessStat us: %Asses sStatus% P armClinica l: %ParmCl inical%
  381   ;GuiContro l, 6:Move,  StatusSho w, w500
  382   GuiControl , 6:%Hides howAdminAc tion%, Sen tToHeader
  383   GuiControl , 6:%Hides howAdminAc tion%, Adm inNotified
  384   GuiControl , 6:%Hides howAdminAc tion%, AWa rning
  385   GuiControl , 6:%Hides howAdminAc tion%, Adm inRemember
  386  
  387   if (GLUrge ncyNo = 1)
  388     NewText  := "  Urge ncy: not w ithin 48 h rs`n"
  389   else
  390     NewText  := "  Urge ncy: withi n 48 hrs`n "
  391   if (BasicS vc <> "Non e of the a bove")
  392     NewText  .= "  Basi c Service  Selected:  " . BasicS vc . "`n"
  393   if (Comple xSvc <> "N one of the  above")
  394     NewText  .= "  Comp lex Servic e Selected : " . Comp lexSvc . " `n"
  395   if (GLCAN1  = 1)
  396     NewText  .= "  CAN  Score: les s than 75` n"
  397   if (GLCAN2  = 1)
  398     NewText  .= "  CAN  Score: No  CAN score  available` n"
  399   if (GLCAN3  = 1)
  400     NewText  .= "  CAN  Score: 75  to 90`n"
  401   if (GLCAN4  = 1)
  402     NewText  .= "  CAN  Score: Ove r 90`n"  
  403   tstr := Ne wText
  404   GuiControl , 1:, NewA dmText, %N ewText% 
  405  
  406   tstr := "A dmin Scree ning Care  Coordinati on: " . Co orLevel 
  407   GuiControl , 1:, NewA dmCoord, % tstr%
  408   if (Hidesh owAdminAct ion = "Hid e")
  409  
  410     GuiContr ol, 1:, Ne wAdmSendTo , %A_Space %
  411  
  412   else
  413   { if (strl en(trim(Ad minNotifie d)) < 2)
  414     {
  415       GuiCon trol, 1:,  NewAdmSend To, %A_Spa ce% 
  416     }
  417     else
  418     { if (Pa rmClinical  = 1)
  419         tstr  := "Admin  Staff ale rt, sendin g to: " .  AdminNotif ied . "."
  420       else
  421         tstr  := "Clini cal Staff  alert, sen ding to: "  . AdminNo tified . " ." 
  422       GuiCon trol, 1:,  NewAdmSend To, %tstr%
  423       
  424     }  
  425  
  426   GuiControl , 1:Move,  NewAdmSend To, w401  
  427   GuiControl , 1:, Prio rTriageReq uired, %Ca lcTriageNe eded%
  428   ;msgbox, 4 096, send  to, %Admin Notified%
  429   Return
  430  
  431   SelBasic:
  432   ;GuiContro lGet, tstr , , BasicS vc
  433   GuiControl , ChooseSt ring, Comp lexSvc, %  "None"
  434   ;Gui, 6:sh ow
  435   Gosub, Cal cAdminScor e
  436   Return
  437  
  438   SelComplex :
  439   ;GuiContro lGet, tstr , , BasicS vc
  440   GuiControl , ChooseSt ring, Basi cSvc, % "N one"
  441   ;Gui, 6:sh ow
  442   Gosub, Cal cAdminScor e
  443   Return
  444  
  445   ClearAdmin Entries:
  446   GuiControl , 6:, GLUr gencyYes,  % 0
  447   GuiControl , 6:, GLUr gencyNo, %  1
  448   GuiControl , 6:, GLCA N1, % 0
  449   GuiControl , 6:, GLCA N2, % 0
  450   GuiControl , 6:, GLCA N3, % 0
  451   GuiControl , 6:, GLCA N4, % 0
  452   GuiControl , ChooseSt ring, Comp lexSvc, No ne
  453   GuiControl , ChooseSt ring, Basi cSvc, None
  454   GuiControl , , Curren tCareCoord , Current  Coord Leve l Assessme nt: Incomp lete
  455   GuiControl , , Schedu ling, %A_S pace% 
  456  
  457   gosub, Cal cAdminScor e
  458   GuiControl , 6:, ScrS tatus, %Ad mStatus%    
  459   Return
  460  
  461  
  462   GetCANScor eFromFile:
  463  
  464   fname := A _ScriptDir  . "\CANRe sult.json"
  465   ;msgbox 26 2144,, %A_ WorkingDir %
  466   CAN_File : = fileopen (fname,"r" )
  467   ;msgbox 26 2144,, %A_ LastError%
  468   CAN_File_C ontents :=  CAN_File. Read()
  469   ;msgbox 26 2144,, %CA N_File_Con tents%
  470  
  471   ;CANPkg :=  json.load (CAN_File_ Contents)
  472  
  473   Return
  474  
  475  
  476  
  477   GetCANScor eFromServe r:
  478   Global HTT P_Object : = ComObjCr eate("WinH ttp.WinHtt pRequest.5 .1")
  479   CAN_Reques t_JSON :=  "{  ""ssn" ":""" . Pa tientInfoS SN . """,   ""vauserI d"":""" .  A_UserName  . """}"
  480   MsgBox 262 144, Setti ng CRT, Se tting Clie nt Certifi acte
  481   HTTP_Objec t.SetClien tCertifica te("Curren t_User\Int ermediate  Certificat ion Author ities\Cert ificates\ DNS . URL ")
  482    
  483   MsgBox 262 144, Set C RT, Set Cl ient Certi fiacte - o pening
  484    
  485   ;ReturnVal ue := HTTP _Object.Op en("GET",  "http:// DNS . URL :  PORT /
/
", false)   
  486   ReturnValu e := HTTP_ Object.Ope n("GET", " https:// DNS . URL: PORT /
", false)
  487  
  488  
  489   MsgBox 262 144, Opene d HTTPS, o pened HTTP S
  490    
  491  
  492   ;HTTP_Obje ct.SetCred entials("< api_key>",  "x", 0)
  493   HTTP_Objec t.SetReque stHeader(" Content-Ty pe", "appl ication/js on")
  494  
  495   ;set reque st object  /w the JSO N request  data
  496   ;HTTP_Obje ct.SetClie ntCertific ate("Curre nt_User\In termediate  Certifica tion Autho rities\Cer tificates\ DNS . URL ")
  497     `
  498   HTTP_Objec t.Send(CAN _Request_J SON) 
  499  
  500   ;HTTP_Obje ct.WaitFor Response()
  501   CAN_Respon se := HTTP _Object.Re sponseText
  502   CAN_Status  := HTTP_O bject.Stat us
  503  
  504   CANPkg :=  json.load( CAN_Respon se)
  505   ;CANPkg :=  CANPkg0.C anScore
  506  
  507   ;MsgBox 26 2144 , JSO N CAN Requ est String , %CAN_Req uest_JSON%
  508   ;MsgBox 26 2144, CAN  Return Tex t, %CAN_Re sponse%
  509   ;MsgBox 26 2144, CAN  Status, %C AN_Status%
  510  
  511   Return
  512  
  513