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

4.1 Files compared

# 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

4.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 5 1708
Changed 4 8
Inserted 0 0
Removed 0 0

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

4.4 Active regular expressions

No regular expressions were active.

4.5 Comparison detail

  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.
se rver .net/commu nity/acap/ access-sta nd-downs/a ccess-stan d-down-2"> Access Pul se Site</a > for addi tional con sult manag ement guid ance.
  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