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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 4 | 1016 |
Changed | 3 | 10 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
Whitespace | |
---|---|
Character case | Differences in character case are significant |
Line endings | Differences in line endings (CR and LF characters) are ignored |
CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
1 | /* | |
2 | ||
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 n | |
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 /
|
|
486 | ReturnValu e := HTTP_ Object.Ope n("GET", " https:// DNS . URL: PORT /
|
|
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 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.