128. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 1/17/2019 1:51:43 PM Central Standard 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.

128.1 Files compared

# Location File Last Modified
1 C:\AraxisMergeCompare\Pri_un\ccra\ccra_HSIE_IC\PPMS\Client\REST\GetModifiedProviders Operation.cls Thu Jan 10 13:20:30 2019 UTC
2 C:\AraxisMergeCompare\Pri_re\ccra\ccra_HSIE_IC\PPMS\Client\REST\GetModifiedProviders Operation.cls Thu Jan 10 16:31:28 2019 UTC

128.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 314
Changed 1 2
Inserted 1 1
Removed 0 0

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

128.4 Active regular expressions

No regular expressions were active.

128.5 Comparison detail

  1    /// makes  a call to  PPMS REST  service, r eturns pro vider data  for provi ders modif ied on spe cified dat e
  2    Class PPMS .Client.RE ST.GetModi fiedProvid ers.Operat ion Extend s (EnsLib. REST.Opera tion, HS.U til.Trace. Helper)
  3    {
  4   
  5    /// add al l properti es from PP MS to prov ider objec t
  6    Property P arseAllPro perties As  %Boolean;
  7   
  8    Parameter  SETTINGS =  "ParseAll Properties ";
  9   
  10    Parameter  INVOCATION  = "Queue" ;
  11   
  12    Method get PPMSProvid ers(pReque st As PPMS .Client.Me ssage.GetP rovidersRe quest, Out put pRespo nse As PPM S.Client.M essage.Get ProvidersR esponse) A s %Status
  13    {
  14      
  15      #dim tSC  As %Statu s = $$$OK
  16      #dim err  AS %Excep tion.Abstr actExcepti on
  17      #dim tPr ovider As  PPMS.Clien t.Provider
  18      
  19      try {
  20      
  21        s pRes ponse = ## class(PPMS .Client.Me ssage.GetP rovidersRe sponse).%N ew()
  22        
  23        // bui ld URL
  24          // Format:     https://np .dws.ppms. DOMAIN . EX /v1.0/GetP roviderByM odifiedOnD ate?modifi edOnDate=2 018-02-08
  25        // App end the la st update  date to th e URL conf igured for  adapter -  Date must  be in ODB C Format ( YYYY-MM-DD )
  26        
  27        s tURL =..Adapter .URL_"?mod ifiedOnDat e="_$zd(pR equest.Mod ifiedOnDat e,3)
  28        
  29        // exe cute call
  30        s tSC  = ..Adapte r.GetURL(t URL,.tHttp Response)
  31        
  32        i ($$$ ISERR(tSC) ) && ($IsO bject(tHtt pResponse) ) && ($IsO bject(tHtt pResponse. Data)) &&  (tHttpResp onse.Data. Size) {
  33            
  34          s tS C=$$$ERROR ($$$EnsErr General,$$ $StatusDis playString (tSC)_":"_ tHttpRespo nse.Data.R ead())
  35          
  36        }
  37        
  38        i tSC[ "No Provid ers found  modified o n this dat e" {
  39        
  40          s tS C = $$$OK
  41          
  42        } else  {
  43        
  44          $$$T hrowOnErro r(tSC)
  45          
  46          i $I sObject(tH ttpRespons e) {
  47          
  48            $$ $HSTRACE(" tHttpRespo nse","tHtt pResponse" ,tHttpResp onse.Data)
  49            
  50            //  Convert J SON into a  Proxy Cac he Array
  51            s  tJSONArray ={}.%FromJ SON(tHttpR esponse.Da ta)
  52              
  53            //  Get Itera tor for ea ch provide r in the J SON Stream  (each "va lue")
  54            s  tIter = tJ SONArray.% Get("value ").%GetIte rator()
  55            s  key = ""
  56            
  57            //  Iterate t hru the "v alue" coll ection to  create a P rovider ob ject for e ach Provid er.
  58            wh ile tIter. %GetNext(. key) {
  59            
  60               s tProvide r = ##clas s(PPMS.Cli ent.Provid er).%New()
  61               s tProvide r.NPI = tJ SONArray.% Get("value ").%Get(ke y).%Get("P roviderIde ntifier")
  62               s tProvide r.Name = t JSONArray. %Get("valu e").%Get(k ey).%Get(" Name")
  63               s tProvide r.OnLeie =  tJSONArra y.%Get("va lue").%Get (key).%Get ("OnLeie")
  64               s tProvide r.Modified OnDate = t JSONArray. %Get("valu e").%Get(k ey).%Get(" ModifiedOn Date")
  65               s address  = tJSONArr ay.%Get("v alue").%Ge t(key).%Ge t("Address "), addres s = $zstri p(address, "<>W")
  66               i $l(addre ss) {
  67              
  68                 s addres s = $e(add ress,1,49)
  69                 s tProvi der.Addres sStreet =  $zstrip($p (address,$ char(10),1 ),"<>W")
  70                 s citySt ateZip = $ p(address, $char(10), 2), city =  $p(citySt ateZip,"," ,1), city  = $zstrip( city,"<>W" )
  71                 s tProvi der.Addres sCity = ci ty
  72                 s stateZ ip = $p(ci tyStateZip ,",",2)
  73                 s state  = $p(state Zip," ",2) , state =  $zstrip(st ate,"<>W")
  74                 s tProvi der.Addres sState = s tate
  75                 s zip =   $p(stateZ ip," ",3),  zip = $zs trip(zip," <>W")
  76                 s tProvi der.Addres sZipCode =  zip
  77                 
  78               }
  79              
  80               // affilia tions
  81               s tProvide r.HealthNe tAffiliati on = tJSON Array.%Get ("value"). %Get(key). %Get("Heal thNetAffil iation")
  82               s tProvide r.Provider AgreementA ffiliation  = tJSONAr ray.%Get(" value").%G et(key).%G et("Provid erAgreemen tAffiliati on")
  83               s tProvide r.Pc3Affil iation = t JSONArray. %Get("valu e").%Get(k ey).%Get(" Pc3Affilia tion")
  84               s tProvide r.DodAffil iation = t JSONArray. %Get("valu e").%Get(k ey).%Get(" DoDAffilia tion")
  85               s tProvide r.VaAcadem icAffiliat e = tJSONA rray.%Get( "value").% Get(key).% Get("VaAca demicAffil iation")
  86               s tProvide r.TriWestA ffiliation  = tJSONAr ray.%Get(" value").%G et(key).%G et("TriWes tAffiliati on")
  87               s tProvide r.IhsAffil iation = t JSONArray. %Get("valu e").%Get(k ey).%Get(" IhsAffilia tion")
  88               s tProvide r.ChoiceAf filiation  = tJSONArr ay.%Get("v alue").%Ge t(key).%Ge t("ChoiceA ffiliation ")
  89              
  90               ;the follo wing prope rties aren 't current ly needed
  91               i ..ParseA llProperti es {
  92                   
  93                 s tProvi der.Provid erType = t JSONArray. %Get("valu e").%Get(k ey).%Get(" ProviderTy pe")
  94                 s tProvi der.Qualit yRankingTo talScore =  tJSONArra y.%Get("va lue").%Get (key).%Get ("QualityR ankingTota lScore")
  95                 // Prope rty not in  Provider  class
  96                 //s tPro vider.Qual ityRanking LastUpdate d = tJSONA rray.%Get( "value").% Get(key).% Get("Quali tyRankingL astUpdate" )
  97                 s tProvi der.MainPh one = tJSO NArray.%Ge t("value") .%Get(key) .%Get("Mai nPhone")
  98                 s tProvi der.Email  = tJSONArr ay.%Get("v alue").%Ge t(key).%Ge t("Email")                  
  99                 s tProvi der.Provid erStatusRe ason = tJS ONArray.%G et("value" ).%Get(key ).%Get("Pr oviderStat usReason")
  100                 s tProvi der.Primar yCarePhysi cian = tJS ONArray.%G et("value" ).%Get(key ).%Get("Pr imaryCareP hysician")
  101                 s tProvi der.HighPe rformance  = tJSONArr ay.%Get("v alue").%Ge t(key).%Ge t("HighPer formance")
  102                 s tProvi der.Fqhc =  tJSONArra y.%Get("va lue").%Get (key).%Get ("Fqhc")
  103                 s tProvi der.Accoun tableCareO rganizatio n = tJSONA rray.%Get( "value").% Get(key).% Get("Accou ntableCare Organizati on")
  104                 s tProvi der.IsAcce ptingNewPa tients = t JSONArray. %Get("valu e").%Get(k ey).%Get(" IsAcceptin gNewPatien ts")
  105                 s tProvi der.Provid erEthnicit y = tJSONA rray.%Get( "value").% Get(key).% Get("Provi derEthnici ty")
  106                 s tProvi der.Provid erGender =  tJSONArra y.%Get("va lue").%Get (key).%Get ("Provider Gender")
  107                 s tProvi der.Religi on = tJSON Array.%Get ("value"). %Get(key). %Get("Reli gion")
  108                 s tProvi der.Organi zationId =  tJSONArra y.%Get("va lue").%Get (key).%Get ("Organiza tionId")
  109                 s tProvi der.Servic eProviderT ype = tJSO NArray.%Ge t("value") .%Get(key) .%Get("Ser viceProvid erType")
  110                 s tProvi der.Specia lInstructi on = tJSON Array.%Get ("value"). %Get(key). %Get("Spec ialInstruc tion")
  111                 s tProvi der.OwnedC areSiteNam e = tJSONA rray.%Get( "value").% Get(key).% Get("Owned CareSiteNa me")
  112                 s tProvi der.Organi zationFax  = tJSONArr ay.%Get("v alue").%Ge t(key).%Ge t("Organiz ationFax")
  113                 s tProvi der.Organi zationStat us = tJSON Array.%Get ("value"). %Get(key). %Get("Orga nizationSt atus")
  114                 s tProvi der.IsExte rnal = tJS ONArray.%G et("value" ).%Get(key ).%Get("Is External")
  115                 s tProvi der.Intern alType = t JSONArray. %Get("valu e").%Get(k ey).%Get(" InternalTy pe")
  116                 s tProvi der.Licens ingJuristi cion = tJS ONArray.%G et("value" ).%Get(key ).%Get("Li censingJur isticion")
  117                 s tProvi der.CanCre ateHealthC areOrders  = tJSONArr ay.%Get("v alue").%Ge t(key).%Ge t("CanCrea teHealthca reOrders")
  118                 s tProvi der.Intern alAppointm entStatus  = tJSONArr ay.%Get("v alue").%Ge t(key).%Ge t("Interna lAppointme ntStatus")
  119                 s tProvi der.Extern alHealthPr oviderType  = tJSONAr ray.%Get(" value").%G et(key).%G et("Extern alHealthPr oviderType ")
  120                 s tProvi der.Extern alInstitut ionDeaNumb er = tJSON Array.%Get ("value"). %Get(key). %Get("Exte rnalInstit utionDeaNu mber")
  121                 s tProvi der.Extern alLeieChec kDate = tJ SONArray.% Get("value ").%Get(ke y).%Get("E xternalLei eCheckDate ")
  122                 s tProvi der.Valida tionSource  = tJSONAr ray.%Get(" value").%G et(key).%G et("Valida tionSource ")
  123                 s tProvi der.Contac tMethod =  tJSONArray .%Get("val ue").%Get( key).%Get( "ContactMe thod")
  124                 s tProvi der.BulkEm ails = tJS ONArray.%G et("value" ).%Get(key ).%Get("Bu lkEmails")
  125                 s tProvi der.BulkMa ils = tJSO NArray.%Ge t("value") .%Get(key) .%Get("Bul kMails")
  126                 s tProvi der.Emails  = tJSONAr ray.%Get(" value").%G et(key).%G et("Emails ")
  127                 s tProvi der.Mails  = tJSONArr ay.%Get("v alue").%Ge t(key).%Ge t("Mails")
  128                 s tProvi der.PhoneC alls = tJS ONArray.%G et("value" ).%Get(key ).%Get("Ph oneCalls")
  129                 s tProvi der.Faxes  = tJSONArr ay.%Get("v alue").%Ge t(key).%Ge t("Faxes")
  130                 s tProvi der.NpiKey  = tJSONAr ray.%Get(" value").%G et(key).%G et("NpiKey ")
  131                 
  132               }
  133              
  134               //Add Prov ider to Re sponse col lection
  135               d pRespons e.Provider s.SetAt(tP rovider,ke y)
  136              
  137            }
  138          }
  139            
  140          $$$T hrowOnErro r(pRespons e.%Save())
  141        }
  142      } catch  err {
  143        s tSC  = err.AsSt atus()
  144      }
  145      
  146      quit tSC
  147    }
  148   
  149    XData Mess ageMap
  150    {
  151    <MapItems>
  152      <MapItem  MessageTy pe="PPMS.C lient.Mess age.GetPro vidersRequ est">
  153        <Metho d>getPPMSP roviders</ Method>
  154      </MapIte m>
  155    </MapItems >
  156    }
  157   
  158    }
        159   T