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.
# | Location | File | Last Modified |
---|---|---|---|
1 | C:\AraxisMergeCompare\Pri_un | Lists.ahk | Sat Feb 23 00:33:40 2019 UTC |
2 | C:\AraxisMergeCompare\Pri_re | Lists.ahk | Mon Mar 25 18:06:57 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 5 | 1708 |
Changed | 4 | 8 |
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 | Lists .ahk | |
3 | ||
4 | This Auto Hotkey mod ule functi ons to: | |
5 | To define the Consul t Toolbox static and global co nstants | |
6 | ||
7 | This file contains v ariables, functions and consta nt data us ed in the Consult To olbox prog ram. | |
8 | ||
9 | */ | |
10 | ||
11 | ; New item s 04/18/20 18 added t roublebox | |
12 | ; change d ate in lin e 16 to ch ange turn- off date | |
13 | ||
14 | /* | |
15 | global Ena bleTrouble box := 1 | |
16 | if (A_Now > "2018041 9") | |
17 | EnableT roubleBox := 0 | |
18 | else | |
19 | trouble box("Troub lebox is o n") | |
20 | ||
21 | ||
22 | */ | |
23 | ||
24 | ||
25 | troublebox (mywoes) | |
26 | { | |
27 | if (3 = 1) | |
28 | ;msgbo x, 4096, T roubleshoo ting, %myw oes% | |
29 | Return | |
30 | } | |
31 | ||
32 | ||
33 | ||
34 | ; Create V oice synth esis modul e | |
35 | CTBTalk := ComObjCre ate("SAPI. SpVoice") | |
36 | ||
37 | ; StripCR = a FUNCTI ON to Stri p Carriage Return fr om String | |
38 | stripCR(ex pression) | |
39 | { | |
40 | k := exp ression | |
41 | a := sub str(k,strl en(k),1) | |
42 | while (( (a=chr(10) ) or (a=" ") or (a=c hr(13))) a nd (strlen (k)>0)) | |
43 | { k := s ubstr(k,1, strlen(k)- 1) | |
44 | a := s ubstr(k,st rlen(k),1) | |
45 | } | |
46 | return k | |
47 | } | |
48 | ||
49 | left(expre ssion,L) | |
50 | { return, substr(exp ression,1, L) | |
51 | } | |
52 | ||
53 | Upper(myst ring) | |
54 | { StringUp per, s, my string | |
55 | Return s | |
56 | } | |
57 | ||
58 | ||
59 | FormatSeco nds(Number OfSeconds) ; Conver t the spec ified numb er of seco nds to hh: mm:ss form at. | |
60 | { | |
61 | time = 19990101 ; *Midnig ht* of an arbitrary date. | |
62 | time + = %NumberO fSeconds%, seconds | |
63 | Format Time, mmss , %time%, mm:ss | |
64 | return mmss | |
65 | } | |
66 | ||
67 | carecoordc ode(Ftseco nds, FCCLe vel, FTria geStatus, FCoorOvrid e) | |
68 | { | |
69 | t := rou nd(Ftsecon ds,0) | |
70 | if (Ftse conds > 40 95) | |
71 | t := 4 095 | |
72 | if (strl en(FCoorOv ride) > 1) | |
73 | y := "-M" | |
74 | else | |
75 | y := "-A" | |
76 | StringUp per, s, FT riageStatu s ;conver t to upper case | |
77 | FCCLevel := strRep lace(FCCLe vel,"Admin Screening Care Coor dination: ","") | |
78 | FCCLevel := strRep lace(FCCLe vel,"Clini cal Triage Care Coor dination: ","") | |
79 | ;msgbox, Ftseconds %Ftsecond s%`nFCCLev el %FCCLev el%`nFTria geStatus % FTriageSta tus% | |
80 | s := str Replace(FT riageStatu s, "Clinic al Triage: ","") | |
81 | r := for mat("{1:03 X}",t) . " -" . asc(F CCLevel) . "-T" . su bstr(s,1,1 ) . y | |
82 | return r | |
83 | } | |
84 | ||
85 | ||
86 | ||
87 | ||
88 | SmartButto n(byref Pr evVal, But tonName, B uttonNum) | |
89 | { | |
90 | xButton := ButtonN ame . Butt onNum | |
91 | ;msgbox, ButtonNam e %ButtonN ame% %Bu ttonNum% | |
92 | ;msgbox, Working B utton: %xB utton% | |
93 | if (Prev Val = Butt onNum) | |
94 | { PrevVa l := 0 | |
95 | GuiCon trol, , %x Button%, % 0 | |
96 | } | |
97 | else | |
98 | { | |
99 | PrevVa l := Butto nNum | |
100 | GuiCon trol, , %x Button%, % 1 | |
101 | } | |
102 | Return | |
103 | } | |
104 | ||
105 | ttrim(myva r) ; repla cement for trim func tion, trim s leading and traili ng | |
106 | { ; space s, but als o removes tab keys i n text. | |
107 | myvar := trim(strr eplace(myv ar,chr(9), " ")) | |
108 | return, %myvar% | |
109 | } | |
110 | ||
111 | ||
112 | ||
113 | ShowVar(my var) ; use d for debu gging retu rns variab le name an d variable contents | |
114 | { | |
115 | a := %m yvar% | |
116 | b := my var . ": " . StrRepl ace(a,chr( 13)," ") | |
117 | ;msgbox , a = %a% `n MyParm = %MyParm% | |
118 | Return, b | |
119 | } | |
120 | ||
121 | ; set vari ables | |
122 | LinkText = <a href=" https:// DNS .vha.vaco. portal. DOMAIN . EXT /sites/DUS HOM/10NA/A CAO/Consul tManagemen t/SitePage s/Consult` %20Toolbox .aspx">Vis it VA Cons ult Help S ite for ad ditional c onsult man agement gu idance.</a > | |
123 | ; this lin e isn't us ed present ly ACCESS PULSE SIT E | |
124 | LinkText2 = Visit <a href="htt ps://www.
|
|
125 | NPISite = NPI (<a hr ef="https: //npiregis try.cms.hh s.gov/">lo ok up</a>) : | |
126 | ||
127 | ; These ne xt two var iables are used in s everal dia log boxes to describ e scheduli ng effort rules | |
128 | DefFailed1 := "A fai led schedu ling effor t occurs w hen calls and letter s per VA p olicy have failed to result in a" | |
129 | DefFailed2 := "compl eted patie nt appoint ment or pa tient has exceeded t he number of missed appointmen ts allowed ." | |
130 | DefRP := " Refer to c linical re viewer for dispositi on after u nsuccessfu l scheduli ng effort" | |
131 | ||
132 | ;SEOCSite := "Visit <a href=`" https:// DNS .vha.vaco. portal. DOMAIN . EXT /DUSHCC/DC /PMO/AT/de fault.aspx ?RootFolde r=/DUSHCC/ DC/PMO/AT/ Documents/ Standardiz ed`%20Epis odes`%20of `%20Care`& FolderCTID =0x0120003 9ACCDECB1F D0049B5C07 8156042E02 8&View=`%7 bB9FE8404- C6E7-40E9- 8F18-A09B7 7618085`%7 d <https:/ / DNS .vha.vaco. portal. DOMAIN . EXT /DUSHCC/DC /PMO/AT/de fault.aspx ?RootFolde r=/DUSHCC/ DC/PMO/AT/ Documents/ Standardiz ed`%20Epis odes`%20of `%20Care&F olderCTID" | |
133 | ;SEOCSite := SEOCSit e . "=0x01 200039ACCD ECB1FD0049 B5C0781560 42E028&Vie w=`%7bB9FE 8404-C6E7- 40E9-8F18- A09B776180 85`%7d>`"> SEOC Site </a>for mo re informa tion. " | |
134 | ||
135 | SEOCSite50 8 = <a hre f=`"https: // DNS .vha.vaco. portal. DOMAIN . EXT /DUSHCC/DC /PMO/AT/de fault.aspx ?RootFolde r=`%2FDUSH CC`%2FDC`% 2FPMO`%2FA T`%2FDocum ents`%2FSt andardized `%20Episod es`%20of`% 20Care&Fol derCTID=0x 01200039AC CDECB1FD00 49B5C07815 6042E028&V iew={B9FE8 404-C6E7-4 0E9-8F18-A 09B7761808 5}">Visit SEOC Site for more i nformation .</a> | |
136 | ||
137 | Global Int ernetConn := ping("8 .8.8.8") | |
138 | Global Las tPing := A _Now | |
139 | Global CTB Red := "c7 70000" | |
140 | Global CTB Green := " c007700" | |
141 | Global CTB Blue := "c 000077" | |
142 | ||
143 | ; Calling our three (3) initia lizing fun ctions | |
144 | GoSub, Def ineSetting s ;located in AboutT oolbox.AHK ~ line 25 3 | |
145 | GoSub, CTB Init ; loc ated CTBIn it.AHK fir st of file | |
146 | Gosub, Put Settings ; located in AboutTool box.AHK ~ line 485 | |
147 | ||
148 | Global Pri orAdmin := "No" | |
149 | Global Pri orType := "" | |
150 | Global Pri orAdminLev el := "No" | |
151 | Global Pri orClinLeve l := "Unkn own" | |
152 | Global Pri orTriageRe q := "Unkn own" | |
153 | Global Cli nRemember := 0 | |
154 | Global Adm inRemember := 0 | |
155 | ||
156 | if (ParmEn abled = "N o") | |
157 | exitapp | |
158 | tstr := su bstr(A_Now ,1,8) | |
159 | if (strlen (ParmLastU sed)>6) ; then it ha s been use d before | |
160 | a := Par mLastUsed | |
161 | else ; if never use d and it h as been 14 days sinc e user loa ded it. | |
162 | { | |
163 | a := Par mFirstLoad | |
164 | EnvSub, tstr, %a%, days | |
165 | if (tstr > 14) | |
166 | exita pp | |
167 | } | |
168 | ||
169 | #Persisten t | |
170 | Global Add CommentOpe n := 0 | |
171 | Global Rec eiveOpen : = 0 | |
172 | Global DCO pen := 0 | |
173 | ;SetTimer, CheckWind ows, 600 | |
174 | Global CCS chedBy := 0 | |
175 | ||
176 | CoordMode, Mouse, Wi ndow | |
177 | ||
178 | Global max ResponsesT oAllow := 30 | |
179 | ||
180 | Global Pro viderInfoA rray := [] | |
181 | Global Gui 2ProvActiv e := 0 | |
182 | Global Sel ectedProvi derIndex : = 0 | |
183 | Global Sel ectedProvi derText := "" | |
184 | Global Tim ePrompt := "" | |
185 | Global Dat ePrompt := "" | |
186 | Global Nex tStep :="" | |
187 | Global seo cout := "" | |
188 | Global SEO CHeader := "SEOC - V HA Office of Communi ty Care--- ---------- -------" | |
189 | Global SEO CFooter := "SEO----- ---------- ---------- ---------- ---------- ----" | |
190 | Global NPI Type := "N PI-1" ; in itialize N PI Search Method | |
191 | Global crl f := chr(1 3) . chr(1 0) ; used to insert new line in text. | |
192 | Global NPI := [] | |
193 | Global Tic k :=0 ;us ed to debu g timer | |
194 | ;Global In itSARNeede dVerbiage := "Any ad ditional t reatments" . chr(44) . " proce dures or r eferrals m ust`nhave a Secondar y Authoriz ation Requ est submit ted`nfor c onsiderati on of appr oval prior to procee ding." | |
195 | NPI.Number Found := 0 | |
196 | NPI.Provid erSelected Index := 0 | |
197 | NPI.Provid erInfo := "" | |
198 | ||
199 | Global Set tings := [ ] | |
200 | Settings.C linicalSta ff := 0 | |
201 | Settings.A ddCommentP ref := "Sc heduler" | |
202 | Settings.R eceivePref := "CommC are" | |
203 | ||
204 | /* | |
205 | ********** ********** ********** ********** ** | |
206 | * Custom C ontrols in Alphabeti cal Order * | |
207 | ********** ********** ********** ********** ** | |
208 | */ | |
209 | SpOps_Coun t := SpOps .CtrlOptio n.length() | |
210 | ;msgbox, s etting up special co ntrols, co unt=%SpOps _Count% | |
211 | myindex := 0 | |
212 | while (myi ndex <= Sp Ops_Count) | |
213 | { | |
214 | myindex+ + | |
215 | xname := SpOps.Ctr lOption[my index].Ctr l.name | |
216 | tstr2 := "Sp_" . x name . "_C hoices" | |
217 | ;msgbox, % "Proces sing optio n " myinde x ": " tst r2 | |
218 | if (SpOp s.CtrlOpti on[myindex ].Ctrl.Typ e = "DropD ownList") | |
219 | { | |
220 | i := S pOps.CtrlO ption[myin dex].Ctrl. Choices.le ngth() | |
221 | j := 0 | |
222 | tv ar := "" | |
223 | loop, %i% | |
224 | { | |
225 | j++ | |
226 | tvar .= "|" . SpOps.Ctrl Option[myi ndex].Ctrl .Choices[j ] | |
227 | } | |
228 | ;m sgbox, ass igning %ts tr2% | |
229 | ;c lipboard : = tstr2 . "`n`n" . t var | |
230 | %tstr2 % := tvar | |
231 | ;msgbo x, 4096, C hoices for %xname% % tstr2%, % tvar | |
232 | } | |
233 | if (SpOp s.CtrlOpti on[myindex ].Ctrl.Typ e = "Pseud oCombo") | |
234 | { | |
235 | tmenu := "Sp_" . xname . " _Menu" | |
236 | i := S pOps.CtrlO ption[myin dex].Ctrl. Choices.le ngth() | |
237 | j := 0 | |
238 | lo op, %i% | |
239 | { | |
240 | j++ | |
241 | tstr := Sp Ops.CtrlOp tion[myind ex].Ctrl.C hoices[j] | |
242 | menu , %tmenu%, Add, %tst r%, SpMenu Select | |
243 | } | |
244 | ;msgbo x, Trying Menu %tstr % | |
245 | ;Menu, %tmenu%, Show, 300, 300 ; co mment out for produc tion | |
246 | } | |
247 | } | |
248 | ||
249 | /* | |
250 | ********** ********** ********** ********** ** | |
251 | * End of Custom Co ntrol Setu p * | |
252 | ********** ********** ********** ********** ** | |
253 | */ | |
254 | ||
255 | /* | |
256 | Global Spe cificChoic eEligibili ty := "" | |
257 | SpecificCh oiceEligib ility .= " |Service N ot Availab le" | |
258 | SpecificCh oiceEligib ility .= " |Wait Time " | |
259 | SpecificCh oiceEligib ility .= " |Distance" | |
260 | SpecificCh oiceEligib ility .= " |Air, Boat , Ferry" | |
261 | SpecificCh oiceEligib ility .= " |UEXB-Geog raphical c hallenges* " | |
262 | SpecificCh oiceEligib ility .= " |UEXB-Envi ronmental factors*" | |
263 | SpecificCh oiceEligib ility .= " |UEXB-Medi cal condit ion*" | |
264 | SpecificCh oiceEligib ility .= " |UEXB-Natu re or simp licity of services*" | |
265 | ||
266 | ||
267 | Global NVC CProgramLi st := "" ; allow a blank choi ce | |
268 | NVCCProgra mList .= " |Academic affiliate" , | |
269 | NVCCProgra mList .= " |DoD (Shar e Agrm/con sult only- no auth)", | |
270 | NVCCProgra mList .= " |DoD Choic e (10-0386 required) ", | |
271 | NVCCProgra mList .= " |Indian He alth Servi ces", | |
272 | NVCCProgra mList .= " |VCP-Choic e First", | |
273 | NVCCProgra mList .= " |VCP-Choic e 30", | |
274 | NVCCProgra mList .= " |VCP-Choic e 40", | |
275 | NVCCProgra mList .= " |VCP-Provi der Agreem ent", | |
276 | NVCCProgra mList .= " |Patient C entered Co mmunity Ca re (PC3)", | |
277 | NVCCProgra mList .= " |Tradition al Communi ty Care/In dividual A uthorizati on", | |
278 | NVCCProgra mList .= " |Community Care Netw ork", | |
279 | NVCCProgra mList .= " |Other: Ex plain*" | |
280 | ||
281 | ||
282 | ||
283 | Global Con tractorByp assReason | |
284 | Contractor BypassReas on := "" | |
285 | Contractor BypassReas on .= "|Ne twork Prov ider not a ccepting C hoice pati ents" | |
286 | Contractor BypassReas on .= "|Co mmunity Pr ovider dec lines Choi ce Network participa tion" | |
287 | Contractor BypassReas on .= "|Ch oice Provi der unable to schedu le within CID (Urgen cy)" | |
288 | Contractor BypassReas on .= "|Ve teran decl ined appoi ntment due to date/t ime/distan ce" | |
289 | Contractor BypassReas on .= "|Re quested se rvices exc luded from Choice pr ogram" | |
290 | ||
291 | Global CCR ecordsHow | |
292 | CCRecordsH ow := blan k | |
293 | CCRecordsH ow .= "|Pa per Fax" | |
294 | CCRecordsH ow .= "|eF ax" | |
295 | CCRecordsH ow .= "|Co mm. Care P ortal" | |
296 | CCRecordsH ow .= "|VH IE/VLER" | |
297 | ccRecordsH ow .= "|Vi rtruPro Se cure EMail " | |
298 | CCRecordsH ow .= "|Ot her Secure EMail" | |
299 | CCRecordsH ow .= "|US Mail" | |
300 | CCRecordsH ow .= "|ED I Claim At tachment" | |
301 | CCRecordsH ow .= "|Ot her" | |
302 | ||
303 | */ | |
304 | ||
305 | Global Sta teList := blank | |
306 | i := SpOps .ListState s.length() | |
307 | ;msgbox, S tates foun d %i% | |
308 | loop, %i% | |
309 | { | |
310 | StateLis t .= "|" . SpOps.Lis tStates[A_ Index] | |
311 | } | |
312 | ;msgbox, 4 096, State s list, % StateList | |
313 | /* | |
314 | ||
315 | StateList .= "|AL (A LABAMA)" | |
316 | StateList .= "|AK (A LASKA)" | |
317 | StateList .= "|AZ (A RIZONA)" | |
318 | StateList .= "|AR (A RKANSAS)" | |
319 | StateList .= "|CA (C ALIFORNIA) " | |
320 | StateList .= "|CO (C OLORADO)" | |
321 | StateList .= "|CT (C ONNECTICUT )" | |
322 | StateList .= "|DE (D ELAWARE)" | |
323 | StateList .= "|DC (D ISTRICT OF COLUMBIA) " | |
324 | StateList .= "|FL (F LORIDA)" | |
325 | StateList .= "|GA (G EORGIA)" | |
326 | StateList .= "|HI (H AWAII)" | |
327 | StateList .= "|ID (I DAHO)" | |
328 | StateList .= "|IL (I LLINOIS)" | |
329 | StateList .= "|IN (I NDIANA)" | |
330 | StateList .= "|IA (I OWA)" | |
331 | StateList .= "|KS (K ANSAS)" | |
332 | StateList .= "|KY (K ENTUCKY)" | |
333 | StateList .= "|LA (L OUISIANA)" | |
334 | StateList .= "|ME (M AINE)" | |
335 | StateList .= "|MD (M ARYLAND)" | |
336 | StateList .= "|MA (M ASSACHUSET TS)" | |
337 | StateList .= "|MI (M ICHIGAN)" | |
338 | StateList .= "|MN (M INNESOTA)" | |
339 | StateList .= "|MS (M ISSISSIPPI )" | |
340 | StateList .= "|MO (M ISSOURI)" | |
341 | StateList .= "|MT (M ONTANA)" | |
342 | StateList .= "|NE (N EBRASKA)" | |
343 | StateList .= "|NV (N EVADA)" | |
344 | StateList .= "|NH (N EW HAMPSHI RE)" | |
345 | StateList .= "|NJ (N EW JERSEY) " | |
346 | StateList .= "|NM (N EW MEXICO) " | |
347 | StateList .= "|NY (N EW YORK)" | |
348 | StateList .= "|NC (N ORTH CAROL INA)" | |
349 | StateList .= "|ND (N ORTH DAKOT A)" | |
350 | StateList .= "|OH (O HIO)" | |
351 | StateList .= "|OK (O KLAHOMA)" | |
352 | StateList .= "|OR (O REGON)" | |
353 | StateList .= "|PA (P ENNSYLVANI A)" | |
354 | StateList .= "|RI (R HODE ISLAN D)" | |
355 | StateList .= "|SC (S OUTH CAROL INA)" | |
356 | StateList .= "|SD (S OUTH DAKOT A)" | |
357 | StateList .= "|TN (T ENNESSEE)" | |
358 | StateList .= "|TX (T EXAS)" | |
359 | StateList .= "|UT (U TAH)" | |
360 | StateList .= "|VT (V ERMONT)" | |
361 | StateList .= "|VA (V IRGINIA)" | |
362 | StateList .= "|WA (W ASHINGTON) " | |
363 | StateList .= "|WV (W EST VIRGIN IA)" | |
364 | StateList .= "|WI (W ISCONSIN)" | |
365 | StateList .= "|WY (W YOMING)" | |
366 | StateList .= "|AS (A MERICAN SA MOA)" | |
367 | StateList .= "|AA (A RMED FORCE S AMERICAS )" | |
368 | StateList .= "|AE (A RMED FORCE S EUROPE / CANADA / MIDDLE EAS T / AFRICA )" | |
369 | StateList .= "|AP (A RMED FORCE S PACIFIC) " | |
370 | StateList .= "|FM (F EDERATED S TATES OF M ICRONESIA) " | |
371 | StateList .= "|GU (G UAM)" | |
372 | StateList .= "|MP (M ARIANA ISL ANDS, NORT HERN)" | |
373 | StateList .= "|MH (M ARSHALL IS LANDS)" | |
374 | StateList .= "|PR (P UERTO RICO )" | |
375 | StateList .= "|VI (V IRGIN ISLA NDS)" | |
376 | */ | |
377 | ||
378 | ||
379 | fixreturn( expression ) | |
380 | { | |
381 | k := ins tr(express ion,"|") | |
382 | a := sub str(expres sion,1,k-1 ) | |
383 | Return a | |
384 | } | |
385 | ||
386 | ||
387 | ||
388 | OutputRetu rn(selecti on) | |
389 | { | |
390 | Loop, 33 | |
391 | if (inst r(XP[A_Ind ex],select ion)) | |
392 | { | |
393 | Return StrReplac e(XP[A_Ind ex],"|","" ) | |
394 | Break | |
395 | } | |
396 | Return | |
397 | } | |
398 | ||
399 | Global XP := [] | |
400 | XP1 := "Re ferral Iss ues (selec t specific issue)" | |
401 | XP[1] := " Missing VA Data |(Mi ssing or i ncomplete documentat ion requir ed to appo int)." | |
402 | XP[2] := " Duplicate| ." | |
403 | XP[3] := " Non Covere d Service |(Veteran referred t o communit y provider for servi ces that a re not par t of benef its packag e)." | |
404 | XP[4] := " Missing VA Data/Form s |(Missin g or incom plete docu mentation required t o appoint) ." | |
405 | XP[5] := " VA request ed return of referra l |(VA con tacts cont ractor and requests return of referral). " | |
406 | XP[6] := " Unable to review wit hin contra ct standar ds |(Contr actor was not able t o review w ithin the contract s tandard)." | |
407 | XP[7] := " Non-Disclo sure of OH I by Veter an |(Veter an acknowl edges havi ng OHI and fails to provide)." | |
408 | XP[8] := " Unable to contact Ve teran duri ng Out Bou nd Call Pr ocess |(Co uld not ap point due to no cont act from V eteran via call or l etter)." | |
409 | ||
410 | XP2 := "Ne twork Issu es (select specific issue)" | |
411 | XP[9] := " No Network Provider Available |(No netwo rk provide r availabl e for requ ested serv ice(s). Th is does no t included a Veteran requestin g a specif ic provide r)." | |
412 | XP[10] := "VA Reques ted Provid ers Outsid e of Netwo rk |(Non-c ontracted provider). " | |
413 | XP[11] := "Veteran R equested S pecific Pr ovider |(V eteran req uested a s pecific pr ovider for care that is not av ailable on the PC3 n etwork or by Choice provider a greement). " | |
414 | XP[12] := "Appointed with Inco rrect Prov ider/Type of Care |( Appointed with incor rect provi der or inc orrect typ e of care) ." | |
415 | XP[13] := "Already A ppointed | (Care has been previ ously sche duled by t he Veteran , VA or th e Contract or)." | |
416 | ||
417 | XP3 := "Ve teran Decl ined (sele ct specifi c reason)" | |
418 | XP[14] := "Veteran D eclined Di stance - I nside Comm ute Standa rd |(Netwo rk provide r is in co ntractors’ network a nd within the commut e standard s)." | |
419 | XP[15] := "Veteran D eclined Di stance - O utside Com mute Stand ard |(Netw ork provid er is in c ontractors ’ network but provid er is NOT within the commute s tandards). " | |
420 | XP[16] := "Veteran D eclined Ap pt Time |( Veteran de clined tim e for sche duled appo intment)." | |
421 | XP[17] := "Veteran D eclined Do es Not Wan t Care |(V eteran dec lined requ est for ca re)." | |
422 | XP[18] := "Veteran D eclined Us e of PC3/C hoice |(Ve teran no l onger want s to parti cipate in the progra m)." | |
423 | ;XP[19] := "Declined Use of PC 3/Choice | (Veteran n o longer w ants to pa rticipate in the pro gram)." | |
424 | ;XP[19] := "Does Not Want Care |(Veteran declined request fo r care)." | |
425 | ||
426 | XP4 := "Ap pointment Issues (se lect speci fic issue) " | |
427 | XP[21] := "Veteran N o-Show |(V eteran did not show up for sch eduled app ointment). " | |
428 | XP[22] := "Contracto r Return - Unable to schedule within con tract term s |(Care n ot schedul ed within the contra ctual time period an d VA is re questing b ack due to time laps e)." | |
429 | XP[23] := "VA Reques t Return - Care Alre ady Schedu led by Con tractor |( VA request ed the aut horization after Con tractor sc heduled ca re)." | |
430 | XP[24] := "Unable to contact V eteran Out Bound Cal l Process |(Could no t appoint due to no contact fr om Veteran via call or letter) ." | |
431 | ||
432 | XP5 := "CC N Return R easons (se lect speci fic issue) " | |
433 | XP[25] := "No CCN Pr ovider Ava ilable to Schedule W ithin Time liness Sta ndard|." | |
434 | XP[26] := "No CCN Pr oviders Av ailable to Schedule Within Dri ve Time St andard|." | |
435 | XP[27] := "Veteran P refers CCN Provider Outside of Drive Tim e Standard |." | |
436 | XP[28] := "Veteran W illing to Accept CCN Provider Outside of Drive-Tim e Standard |." | |
437 | XP[29] := "Veteran W illing to Accept CCN Provider Outside of Timelines s Standard |." | |
438 | XP[30] := "Veteran P refers Non -CCN Provi der|." | |
439 | XP[31] := "Veteran S elf-Schedu les|." | |
440 | XP[32] := "Service N ot Provide d in CCN|. " | |
441 | ||
442 | XP[33] := "Veteran D eceased or Incapacit ated |(Aut horization returned due Vetera n deceased or incapa citated)." | |
443 | ||
444 | ||
445 | Global NPI Taxonomy : = A_Blank | |
446 | i := SpOps .ListNPITa xonomy.len gth() | |
447 | ;msgbox, I tems found %i% | |
448 | loop, %i% | |
449 | { | |
450 | NPITaxon omy .= "|" . SpOps.L istNPITaxo nomy[A_Ind ex] | |
451 | } | |
452 | ;msgbox, 4 096, NPITa xonomy lis t, % NPITa xonomy | |
453 | ||
454 | /* | |
455 | NPITaxonom y .= "|Acu puncturist " | |
456 | NPITaxonom y .= "|Adu lt Compani on" | |
457 | NPITaxonom y .= "|Adv anced Prac tice Denta l Therapis t" | |
458 | NPITaxonom y .= "|Adv anced Prac tice Midwi fe" | |
459 | NPITaxonom y .= "|Air Carrier" | |
460 | NPITaxonom y .= "|All ergy & Imm unology" | |
461 | NPITaxonom y .= "|Alz heimer Cen ter /Demen tia Center /Dementia Special Ca re Unit" | |
462 | NPITaxonom y .= "|Amb ulance" | |
463 | NPITaxonom y .= "|Ana plastologi st" | |
464 | NPITaxonom y .= "|Ane sthesiolog ist Assist ant" | |
465 | NPITaxonom y .= "|Ane sthesiolog y" | |
466 | NPITaxonom y .= "|Art Therapist " | |
467 | NPITaxonom y .= "|Ass istant, Po diatric" | |
468 | NPITaxonom y .= "|Ass isted Livi ng Facilit y" | |
469 | NPITaxonom y .= "|Aud iologist" | |
470 | NPITaxonom y .= "|Aud iologist-H earing Aid Fitter" | |
471 | NPITaxonom y .= "|Beh avior Anal yst" | |
472 | NPITaxonom y .= "|Blo od Bank" | |
473 | NPITaxonom y .= "|Bus " | |
474 | NPITaxonom y .= "|Cas e Manageme nt" | |
475 | NPITaxonom y .= "|Cas e Manager/ Care Coord inator" | |
476 | NPITaxonom y .= "|Chi ropractor" | |
477 | NPITaxonom y .= "|Cho re Provide r" | |
478 | NPITaxonom y .= "|Chr istian Sci ence Facil ity (skill ed nursing services) " | |
479 | NPITaxonom y .= "|Chr istian Sci ence Sanit arium(hosp ital servi ces)" | |
480 | NPITaxonom y .= "|Chr onic Disea se Hospita l" | |
481 | NPITaxonom y .= "|Cli nic/Center " | |
482 | NPITaxonom y .= "|Cli nical Ethi cist" | |
483 | NPITaxonom y .= "|Cli nical Exer cise Physi ologist" | |
484 | NPITaxonom y .= "|Cli nical Medi cal Labora tory" | |
485 | NPITaxonom y .= "|Cli nical Neur opsycholog ist" | |
486 | NPITaxonom y .= "|Cli nical Nurs e Speciali st" | |
487 | NPITaxonom y .= "|Cli nical Phar macology" | |
488 | NPITaxonom y .= "|Col on & Recta l Surgery" | |
489 | NPITaxonom y .= "|Com munity Bas ed Residen tial Treat ment Facil ity, Menta l Illness" | |
490 | NPITaxonom y .= "|Com munity Bas ed Residen tial Treat ment Facil ity, Menta l Retardat ion and/or Developme ntal Disab ilities" | |
491 | NPITaxonom y .= "|Com munity Hea lth Worker " | |
492 | NPITaxonom y .= "|Com munity/Beh avioral He alth" | |
493 | NPITaxonom y .= "|Con tractor" | |
494 | NPITaxonom y .= "|Cou nselor" | |
495 | NPITaxonom y .= "|Cus todial Car e Facility " | |
496 | NPITaxonom y .= "|Dan ce Therapi st" | |
497 | NPITaxonom y .= "|Day Training, Developme ntally Dis abled Serv ices" | |
498 | NPITaxonom y .= "|Day Training/ Habilitati on Special ist" | |
499 | NPITaxonom y .= "|Den tal Assist ant" | |
500 | NPITaxonom y .= "|Den tal Hygien ist" | |
501 | NPITaxonom y .= "|Den tal Labora tory" | |
502 | NPITaxonom y .= "|Den tal Labora tory Techn ician" | |
503 | NPITaxonom y .= "|Den tal Therap ist" | |
504 | NPITaxonom y .= "|Den tist" | |
505 | NPITaxonom y .= "|Den turist" | |
506 | NPITaxonom y .= "|Dep artment of Veterans Affairs (V A) Pharmac y" | |
507 | NPITaxonom y .= "|Der matology" | |
508 | NPITaxonom y .= "|Dev elopmental Therapist " | |
509 | NPITaxonom y .= "|Die tary Manag er" | |
510 | NPITaxonom y .= "|Die tetic Tech nician, Re gistered" | |
511 | NPITaxonom y .= "|Die titian, Re gistered" | |
512 | NPITaxonom y .= "|Dou la" | |
513 | NPITaxonom y .= "|Dri ver" | |
514 | NPITaxonom y .= "|Dur able Medic al Equipme nt & Medic al Supplie s" | |
515 | NPITaxonom y .= "|Ear ly Interve ntion Prov ider Agenc y" | |
516 | NPITaxonom y .= "|Ele ctrodiagno stic Medic ine" | |
517 | NPITaxonom y .= "|Eme rgency Med ical Techn ician, Bas ic" | |
518 | NPITaxonom y .= "|Eme rgency Med ical Techn ician, Int ermediate" | |
519 | NPITaxonom y .= "|Eme rgency Med ical Techn ician, Par amedic" | |
520 | NPITaxonom y .= "|Eme rgency Med icine" | |
521 | NPITaxonom y .= "|Eme rgency Res ponse Syst em Compani es" | |
522 | NPITaxonom y .= "|Epi lepsy Unit " | |
523 | NPITaxonom y .= "|Exc lusive Pro vider Orga nization" | |
524 | NPITaxonom y .= "|Eye Bank" | |
525 | NPITaxonom y .= "|Eye wear Suppl ier" | |
526 | NPITaxonom y .= "|Fam ily Medici ne" | |
527 | NPITaxonom y .= "|Fos ter Care A gency" | |
528 | NPITaxonom y .= "|Fun eral Direc tor" | |
529 | NPITaxonom y .= "|Gen eral Acute Care Hosp ital" | |
530 | NPITaxonom y .= "|Gen eral Pract ice" | |
531 | NPITaxonom y .= "|Gen etic Couns elor, MS" | |
532 | NPITaxonom y .= "|Hea lth Educat or" | |
533 | NPITaxonom y .= "|Hea lth Mainte nance Orga nization" | |
534 | NPITaxonom y .= "|Hea ring Aid E quipment" | |
535 | NPITaxonom y .= "|Hea ring Instr ument Spec ialist" | |
536 | NPITaxonom y .= "|Hom e Delivere d Meals" | |
537 | NPITaxonom y .= "|Hom e Health" | |
538 | NPITaxonom y .= "|Hom e Health A ide" | |
539 | NPITaxonom y .= "|Hom e Infusion " | |
540 | NPITaxonom y .= "|Hom emaker" | |
541 | NPITaxonom y .= "|Hom eopath" | |
542 | NPITaxonom y .= "|Hos pice Care, Community Based" | |
543 | NPITaxonom y .= "|Hos pice, Inpa tient" | |
544 | NPITaxonom y .= "|Hos pitalist" | |
545 | NPITaxonom y .= "|In Home Suppo rtive Care " | |
546 | NPITaxonom y .= "|Ind ependent M edical Exa miner" | |
547 | NPITaxonom y .= "|Ind ian Health Service/T ribal/Urba n Indian H ealth (I/T /U) Pharma cy" | |
548 | NPITaxonom y .= "|Int ermediate Care Facil ity, Menta lly Retard ed" | |
549 | NPITaxonom y .= "|Int ermediate Care, Ment al Illness " | |
550 | NPITaxonom y .= "|Int ernal Medi cine" | |
551 | NPITaxonom y .= "|Int erpreter" | |
552 | NPITaxonom y .= "|Kin esiotherap ist" | |
553 | NPITaxonom y .= "|Lac tation Con sultant, N on-RN" | |
554 | NPITaxonom y .= "|Leg al Medicin e" | |
555 | NPITaxonom y .= "|Leg al Medicin e" | |
556 | NPITaxonom y .= "|Lic ensed Prac tical Nurs e" | |
557 | NPITaxonom y .= "|Lic ensed Psyc hiatric Te chnician" | |
558 | NPITaxonom y .= "|Lic ensed Voca tional Nur se" | |
559 | NPITaxonom y .= "|Loc al Educati on Agency (LEA)" | |
560 | NPITaxonom y .= "|Lod ging" | |
561 | NPITaxonom y .= "|Lon g Term Car e Hospital " | |
562 | NPITaxonom y .= "|Mar riage & Fa mily Thera pist" | |
563 | NPITaxonom y .= "|Mas sage Thera pist" | |
564 | NPITaxonom y .= "|Mas tectomy Fi tter" | |
565 | NPITaxonom y .= "|Mea ls" | |
566 | NPITaxonom y .= "|Mec hanotherap ist" | |
567 | NPITaxonom y .= "|Med ical Foods Supplier" | |
568 | NPITaxonom y .= "|Med ical Genet ics" | |
569 | NPITaxonom y .= "|Med icare Defi ned Swing Bed Unit" | |
570 | NPITaxonom y .= "|Mid wife" | |
571 | NPITaxonom y .= "|Mid wife, Lay" | |
572 | NPITaxonom y .= "|Mil itary Clin ical Medic al Laborat ory" | |
573 | NPITaxonom y .= "|Mil itary Heal th Care Pr ovider" | |
574 | NPITaxonom y .= "|Mil itary Hosp ital" | |
575 | NPITaxonom y .= "|Mil itary/U.S. Coast Gua rd Pharmac y" | |
576 | NPITaxonom y .= "|Mil itary/U.S. Coast Gua rd Transpo rt" | |
577 | NPITaxonom y .= "|Mul ti-Special ty" | |
578 | NPITaxonom y .= "|Mus ic Therapi st" | |
579 | NPITaxonom y .= "|Nap rapath" | |
580 | NPITaxonom y .= "|Nat uropath" | |
581 | NPITaxonom y .= "|Neu rological Surgery" | |
582 | NPITaxonom y .= "|Neu romusculos keletal Me dicine & O MM" | |
583 | NPITaxonom y .= "|Neu romusculos keletal Me dicine, Sp orts Medic ine" | |
584 | NPITaxonom y .= "|Non -emergency Medical T ransport ( VAN)" | |
585 | NPITaxonom y .= "|Non -Pharmacy Dispensing Site" | |
586 | NPITaxonom y .= "|Nuc lear Medic ine" | |
587 | NPITaxonom y .= "|Nur se Anesthe tist, Cert ified Regi stered" | |
588 | NPITaxonom y .= "|Nur se Practit ioner" | |
589 | NPITaxonom y .= "|Nur se's Aide" | |
590 | NPITaxonom y .= "|Nur sing Care" | |
591 | NPITaxonom y .= "|Nur sing Facil ity/Interm ediate Car e Facility " | |
592 | NPITaxonom y .= "|Nur sing Home Administra tor" | |
593 | NPITaxonom y .= "|Nut ritionist" | |
594 | NPITaxonom y .= "|Obs tetrics & Gynecology " | |
595 | NPITaxonom y .= "|Occ upational Therapist" | |
596 | NPITaxonom y .= "|Occ upational Therapy As sistant" | |
597 | NPITaxonom y .= "|Oph thalmology " | |
598 | NPITaxonom y .= "|Opt ometrist" | |
599 | NPITaxonom y .= "|Ora l & Maxill ofacial Su rgery" | |
600 | NPITaxonom y .= "|Ora l Medicini st" | |
601 | NPITaxonom y .= "|Org an Procure ment Organ ization" | |
602 | NPITaxonom y .= "|Ort hopedic Su rgery" | |
603 | NPITaxonom y .= "|Ort hotics/Pro sthetics F itter" | |
604 | NPITaxonom y .= "|Ort hotist" | |
605 | NPITaxonom y .= "|Oth er Service Providers " | |
606 | NPITaxonom y .= "|Oto laryngolog y" | |
607 | NPITaxonom y .= "|Ped iatrics" | |
608 | NPITaxonom y .= "|Ped orthist" | |
609 | NPITaxonom y .= "|Per fusionist" | |
610 | NPITaxonom y .= "|Per sonal Emer gency Resp onse Atten dant" | |
611 | NPITaxonom y .= "|Ph. D. Medical Genetics" | |
612 | NPITaxonom y .= "|Pha rmacist" | |
613 | NPITaxonom y .= "|Pha rmacy" | |
614 | NPITaxonom y .= "|Pha rmacy Tech nician" | |
615 | NPITaxonom y .= "|Phl ebology" | |
616 | NPITaxonom y .= "|Phy sical Medi cine & Reh abilitatio n" | |
617 | NPITaxonom y .= "|Phy sical Ther apist" | |
618 | NPITaxonom y .= "|Phy sical Ther apy Assist ant" | |
619 | NPITaxonom y .= "|Phy sician Ass istant" | |
620 | NPITaxonom y .= "|Phy siological Laborator y, (Indepe ndent Phys iological Lab)" | |
621 | NPITaxonom y .= "|Pla stic Surge ry" | |
622 | NPITaxonom y .= "|Pod iatrist" | |
623 | NPITaxonom y .= "|Poe try Therap ist" | |
624 | NPITaxonom y .= "|Poi nt of Serv ice" | |
625 | NPITaxonom y .= "|Por table Xray Supplier" | |
626 | NPITaxonom y .= "|Pre ferred Pro vider Orga nization" | |
627 | NPITaxonom y .= "|Pre vention Pr ofessional " | |
628 | NPITaxonom y .= "|Pri vate Vehic le" | |
629 | NPITaxonom y .= "|Pro gram of Al l-Inclusiv e Care for the Elder ly (PACE) Provider O rganizatio n" | |
630 | NPITaxonom y .= "|Pro sthetic/Or thotic Sup plier" | |
631 | NPITaxonom y .= "|Pro sthetist" | |
632 | NPITaxonom y .= "|Psy chiatric H ospital" | |
633 | NPITaxonom y .= "|Psy chiatric R esidential Treatment Facility" | |
634 | NPITaxonom y .= "|Psy chiatric U nit" | |
635 | NPITaxonom y .= "|Psy choanalyst " | |
636 | NPITaxonom y .= "|Psy chologist" | |
637 | NPITaxonom y .= "|Pub lic Health or Welfar e" | |
638 | NPITaxonom y .= "|Pul monary Fun ction Tech nologist" | |
639 | NPITaxonom y .= "|Rad iologic Te chnologist " | |
640 | NPITaxonom y .= "|Rad iology Pra ctitioner Assistant" | |
641 | NPITaxonom y .= "|Rec reation Th erapist" | |
642 | NPITaxonom y .= "|Rec reational Therapist Assistant" | |
643 | NPITaxonom y .= "|Ref lexologist " | |
644 | NPITaxonom y .= "|Reg istered Nu rse" | |
645 | NPITaxonom y .= "|Reh abilitatio n Counselo r" | |
646 | NPITaxonom y .= "|Reh abilitatio n Hospital " | |
647 | NPITaxonom y .= "|Reh abilitatio n Practiti oner" | |
648 | NPITaxonom y .= "|Reh abilitatio n Unit" | |
649 | NPITaxonom y .= "|Reh abilitatio n, Substan ce Use Dis order Unit " | |
650 | NPITaxonom y .= "|Rel igious Non medical He alth Care Institutio n" | |
651 | NPITaxonom y .= "|Rel igious Non medical Nu rsing Pers onnel" | |
652 | NPITaxonom y .= "|Rel igious Non medical Pr actitioner " | |
653 | NPITaxonom y .= "|Res idential T reatment F acility, E motionally Disturbed Children" | |
654 | NPITaxonom y .= "|Res idential T reatment F acility, M ental Reta rdation an d/or Devel opmental D isabilitie s" | |
655 | NPITaxonom y .= "|Res idential T reatment F acility, P hysical Di sabilities " | |
656 | NPITaxonom y .= "|Res piratory T herapist, Certified" | |
657 | NPITaxonom y .= "|Res piratory T herapist, Registered " | |
658 | NPITaxonom y .= "|Res pite Care" | |
659 | NPITaxonom y .= "|Sec ured Medic al Transpo rt (VAN)" | |
660 | NPITaxonom y .= "|Sin gle Specia lty" | |
661 | NPITaxonom y .= "|Ski lled Nursi ng Facilit y" | |
662 | NPITaxonom y .= "|Sle ep Special ist, PhD" | |
663 | NPITaxonom y .= "|Soc ial Worker " | |
664 | NPITaxonom y .= "|Spe cial Hospi tal" | |
665 | NPITaxonom y .= "|Spe cialist" | |
666 | NPITaxonom y .= "|Spe cialist/Te chnologist " | |
667 | NPITaxonom y .= "|Spe cialist/Te chnologist " | |
668 | NPITaxonom y .= "|Spe cialist/Te chnologist Cardiovas cular" | |
669 | NPITaxonom y .= "|Spe cialist/Te chnologist , Health I nformation " | |
670 | NPITaxonom y .= "|Spe cialist/Te chnologist , Other" | |
671 | NPITaxonom y .= "|Spe cialist/Te chnologist , Patholog y" | |
672 | NPITaxonom y .= "|Spe ech-Langua ge Patholo gist" | |
673 | NPITaxonom y .= "|Stu dent in an Organized Health Ca re Educati on/Trainin g Program" | |
674 | NPITaxonom y .= "|Sub stance Abu se Disorde r Rehabili tation Fac ility" | |
675 | NPITaxonom y .= "|Sup ports Brok erage" | |
676 | NPITaxonom y .= "|Sur gery" | |
677 | NPITaxonom y .= "|Sur gical Tech nologist" | |
678 | NPITaxonom y .= "|Tax i" | |
679 | NPITaxonom y .= "|Tec hnician" | |
680 | NPITaxonom y .= "|Tec hnician, C ardiology" | |
681 | NPITaxonom y .= "|Tec hnician, H ealth Info rmation" | |
682 | NPITaxonom y .= "|Tec hnician, O ther" | |
683 | NPITaxonom y .= "|Tec hnician, P athology" | |
684 | NPITaxonom y .= "|Tec hnician/Te chnologist " | |
685 | NPITaxonom y .= "|Tho racic Surg ery (Cardi othoracic Vascular S urgery)" | |
686 | NPITaxonom y .= "|Tra in" | |
687 | NPITaxonom y .= "|Tra nsplant Su rgery" | |
688 | NPITaxonom y .= "|Tra nsportatio n Broker" | |
689 | NPITaxonom y .= "|Uro logy" | |
690 | NPITaxonom y .= "|Vet erinarian" | |
691 | NPITaxonom y .= "|Vol untary or Charitable " | |
692 | */ | |
693 | ||
694 | /* | |
695 | Global CCC ategories := A_Blank | |
696 | i := SpOps .ListClini calCareCat egories.le ngth() | |
697 | msgbox, It ems found %i% | |
698 | loop, %i% | |
699 | { | |
700 | CCCatego ries .= "| " . SpOps. ListClinic alCareCate gories[A_I ndex] | |
701 | } | |
702 | msgbox, 40 96, CCCate gories lis t, % CCCat egories | |
703 | */ | |
704 | ||
705 | /* | |
706 | CCCategori es .= "|AC UPUNCTURE" | |
707 | CCCategori es .= "|AL LERGY AND IMMUNOLOGY " | |
708 | CCCategori es .= "|AM BULANCE" | |
709 | CCCategori es .= "|AM BULANCE AI R" | |
710 | CCCategori es .= "|AM BULATORY S URGERY" | |
711 | CCCategori es .= "|AN ESTHESIOLO GY" | |
712 | CCCategori es .= "|AU DIOLOGY" | |
713 | CCCategori es .= "|BA RIATRIC" | |
714 | CCCategori es .= "|BI OFEEDBACK" | |
715 | CCCategori es .= "|CA RDIOLOGY G ENERAL" | |
716 | CCCategori es .= "|CA RDIOLOGY C ATH/ANGIOG RAM" | |
717 | CCCategori es .= "|CA RDIOLOGY I MAGING" | |
718 | CCCategori es .= "|CA RDIOLOGY E CHOCARDIOG RAM" | |
719 | CCCategori es .= "|CA RDIOLOGY R EHAB" | |
720 | CCCategori es .= "|CA RDIOLOGY S TRESS TEST " | |
721 | CCCategori es .= "|CA RDIOLOGY T ESTS, PROC EDURES, ST UDIES" | |
722 | CCCategori es .= "|CA RDIOLOGY A NGIOPLASTY " | |
723 | CCCategori es .= "|CA RDIOLOGY A NGIOPLASTY PTCA AND OR STENT" | |
724 | CCCategori es .= "|CA RDIOLOGY A BLATION" | |
725 | CCCategori es .= "|CA RDIOTHORAC IC SURGERY (CABG, VA LVE, ETC)" | |
726 | CCCategori es .= "|CH IROPRACTIC " | |
727 | CCCategori es .= "|CH IROPRACTIC WITH MASS AGE THERAP Y" | |
728 | CCCategori es .= "|CO LONOSCOPY SCREENING" | |
729 | CCCategori es .= "|CO LONOSCOPY DIAGNOSTIC " | |
730 | CCCategori es .= "|DE NTAL" | |
731 | CCCategori es .= "|DE NTAL TESTS -PROCEDURE S, STUDIES " | |
732 | CCCategori es .= "|DE NTAL AESTH ETICS DENT ISTRY" | |
733 | CCCategori es .= "|DE NTAL ENDOD ONTICS" | |
734 | CCCategori es .= "|DE NTAL GENER AL DENTIST RY" | |
735 | CCCategori es .= "|DE NTAL ORAL/ MAXILLOFAC IAL SURGER Y" | |
736 | CCCategori es .= "|DE NTAL ORTHO DONTICS" | |
737 | CCCategori es .= "|DE NTAL PERIO DONTICS" | |
738 | CCCategori es .= "|DE NTAL PROST HODONTICS" | |
739 | CCCategori es .= "|DE NTAL RESTO RATIVE DEN TISTRY" | |
740 | CCCategori es .= "|DE RMATOLOGY" | |
741 | CCCategori es .= "|DE RMATOLOGY TESTS, PRO CEDURES, S TUDIES" | |
742 | CCCategori es .= "|EM ERGENCY DE PARTMENT" | |
743 | CCCategori es .= "|EN DOCRINOLOG Y" | |
744 | CCCategori es .= "|EN DOCRINOLOG Y TESTS, P ROCEDURES, STUDIES" | |
745 | CCCategori es .= "|EN T" | |
746 | CCCategori es .= "|EN T TESTS, P ROCEDURES, STUDIES" | |
747 | CCCategori es .= "|EN T SURGERY" | |
748 | CCCategori es .= "|GA STROENTERO LOGY" | |
749 | CCCategori es .= "|GA STROENTERO LOGY TESTS , PROCEDUR ES, STUDIE S" | |
750 | CCCategori es .= "|GE NETIC TEST ING/COUNSE LING" | |
751 | CCCategori es .= "|GY NECOLOGY" | |
752 | CCCategori es .= "|GY NECOLOGY T ESTS, PROC EDURES, ST UDIES" | |
753 | CCCategori es .= "|HE MATOLOGY/O NCOLOGY" | |
754 | CCCategori es .= "|BO NE MARROW ASPIRATION " | |
755 | CCCategori es .= "|HE P C" | |
756 | CCCategori es .= "|HO SPICE" | |
757 | CCCategori es .= "|HY PERBARIC T HERAPY" | |
758 | CCCategori es .= "|IN FECTIOUS D ISEASE" | |
759 | CCCategori es .= "|IN PATIENT AD MISSION" | |
760 | CCCategori es .= "|IN TERVENTION AL RADIOLO GY" | |
761 | CCCategori es .= "|IV THERAPY/I NFUSION, C LINIC" | |
762 | CCCategori es .= "|LA B AND PATH OLOGY" | |
763 | CCCategori es .= "|MA TERNITY SE RVICES" | |
764 | CCCategori es .= "|ME NTAL HEALT H" | |
765 | CCCategori es .= "|ME NTAL HEALT H ADDICTIO N TX" | |
766 | CCCategori es .= "|ME NTAL HEALT H EATING D ISORDER" | |
767 | CCCategori es .= "|NE PHROLOGY" | |
768 | CCCategori es .= "|NE PHROLOGY D IALYSIS" | |
769 | CCCategori es .= "|NE UROLOGY" | |
770 | CCCategori es .= "|NE UROLOGY TE STS, PROCE DURES, STU DIES" | |
771 | CCCategori es .= "|NE UROPSYCH T ESTING" | |
772 | CCCategori es .= "|NE UROSURGERY " | |
773 | CCCategori es .= "|NE WBORN CARE (1st 7 DA YS)" | |
774 | CCCategori es .= "|NI C ADULT DA Y HEALTH C ARE" | |
775 | CCCategori es .= "|NI C BOWEL AN D BLADDER UNSKILLED" | |
776 | CCCategori es .= "|NI C BOWEL AN D BLADDER SKILLED" | |
777 | CCCategori es .= "|NI C HOMEMAKE R/HOME HEA LTH AID" | |
778 | CCCategori es .= "|NI C HOSPICE/ PALLIATIVE CARE" | |
779 | CCCategori es .= "|NI C IV THERA PY/INFUSIO N" | |
780 | CCCategori es .= "|NI C RESPITE CARE" | |
781 | CCCategori es .= "|NI C SKILLED HOME CARE" | |
782 | CCCategori es .= "|NI C SKILLED NURSING" | |
783 | CCCategori es .= "|NI C SPINAL C ORD INJURY CARE" | |
784 | CCCategori es .= "|NI C TOTAL LT C/PACE, PI LOT" | |
785 | CCCategori es .= "|NU CLEAR MEDI CINE" | |
786 | CCCategori es .= "|NU TRITION/DI ETITIAN" | |
787 | CCCategori es .= "|OB STETRICS" | |
788 | CCCategori es .= "|OC CUPATIONAL THERAPY" | |
789 | CCCategori es .= "|ON COLOGY" | |
790 | CCCategori es .= "|ON COLOGY CHE MOTHERAPY" | |
791 | CCCategori es .= "|ON COLOGY RAD IATION THE RAPY" | |
792 | CCCategori es .= "|OP HTHALMOLOG Y" | |
793 | CCCategori es .= "|OP HTHALMOLOG Y TESTS, P ROCEDURES, STUDIES" | |
794 | CCCategori es .= "|OP HTHALMOLOG Y SURGERY" | |
795 | CCCategori es .= "|OP TOMETRY" | |
796 | CCCategori es .= "|OR THOPEDICS" | |
797 | CCCategori es .= "|OR THOPEDICS TESTS, PRO CEDURES, S TUDIES" | |
798 | CCCategori es .= "|OR THOPEDIC S URGERY" | |
799 | CCCategori es .= "|OT WITH MASS AGE THERAP Y" | |
800 | CCCategori es .= "|PA LLIATIVE C ARE" | |
801 | CCCategori es .= "|PA IN MANAGEM ENT" | |
802 | CCCategori es .= "|PH ARMACY" | |
803 | CCCategori es .= "|PH YSICAL THE RAPY" | |
804 | CCCategori es .= "|PL ASTIC SURG ERY" | |
805 | CCCategori es .= "|PO DIATRY" | |
806 | CCCategori es .= "|PO DIATRY SUR GERY" | |
807 | CCCategori es .= "|PR IMARY CARE " | |
808 | CCCategori es .= "|PT WITH MASS AGE THERAP Y" | |
809 | CCCategori es .= "|PU LMONARY" | |
810 | CCCategori es .= "|PU LMONARY RE HAB" | |
811 | CCCategori es .= "|PU LMONARY TE STS, PROCE DURES, STU DIES" | |
812 | CCCategori es .= "|RA DIATION TH ERAPY" | |
813 | CCCategori es .= "|RA DIOLOGY CT SCAN" | |
814 | CCCategori es .= "|RA DIOLOGY DE XA SCAN" | |
815 | CCCategori es .= "|RA DIOLOGY MA MMOGRAM" | |
816 | CCCategori es .= "|RA DIOLOGY MR I/MRA" | |
817 | CCCategori es .= "|RA DIOLOGY NO S" | |
818 | CCCategori es .= "|RA DIOLOGY PE T SCAN" | |
819 | CCCategori es .= "|RA DIOLOGY UL TRASOUND" | |
820 | CCCategori es .= "|RA DIOLOGY IN TERVENTION AL" | |
821 | CCCategori es .= "|RA DIOLOGY NU CLEAR MEDI CINE" | |
822 | CCCategori es .= "|RA DIOLOGY RA DIATION TH ERAPY" | |
823 | CCCategori es .= "|RE HABILITATI ON MEDICIN E" | |
824 | CCCategori es .= "|RE SPIRATORY THERAPY" | |
825 | CCCategori es .= "|RH EUMATOLOGY " | |
826 | CCCategori es .= "|SL EEP STUDY/ POLYSOMNOG RAPHY" | |
827 | CCCategori es .= "|SO CIAL WORKE R" | |
828 | CCCategori es .= "|SP EECH THERA PY" | |
829 | CCCategori es .= "|SU RGERY GENE RAL" | |
830 | CCCategori es .= "|TE LEHEALTH" | |
831 | CCCategori es .= "|TE LEMENTAL H EALTH" | |
832 | CCCategori es .= "|TH ORACIC SUR GERY" | |
833 | CCCategori es .= "|UR OLOGY" | |
834 | CCCategori es .= "|UR OLOGY TEST S, PROCEDU RES, STUDI ES" | |
835 | CCCategori es .= "|UR OLOGY SURG ERY" | |
836 | CCCategori es .= "|VA CCINE" | |
837 | CCCategori es .= "|VA SCULAR" | |
838 | CCCategori es .= "|VA SCULAR TES TS, PROCED URES, STUD IES" | |
839 | CCCategori es .= "|VA SCULAR SUR GERY" | |
840 | CCCategori es .= "|WO UND CARE" | |
841 | CCCategori es .= "|OT HER" | |
842 | ||
843 | /* | |
844 | Global Pat ientInfo : = [] | |
845 | PatientInf o["name"] := "Name n ot found" | |
846 | PatientInf o["ssn"] : = "SSN not found" | |
847 | PatientInf o["dob"] : = "DOB not found" | |
848 | */ | |
849 | ||
850 | Global Pat ientInfoNa me := "Nam e not foun d" | |
851 | Global Pat ientInfoSS N := "SSN not found" | |
852 | Global Pat ientInfoDO B := "DOB not found" | |
853 | ||
854 | ||
855 | Global All AvailableS EOCs := A_ Blank | |
856 | ||
857 | ||
858 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.