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

130.1 Files compared

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

130.2 Comparison summary

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

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

130.4 Active regular expressions

No regular expressions were active.

130.5 Comparison detail

  1    Class PPMS .Client.RE ST.GetProv iderSpecia lties.Oper ation Exte nds (EnsLi b.REST.Ope ration, HS .Util.Trac e.Helper)
  2    {
  3   
  4    /// add al l properti es from PP MS to spec ialty obj
  5    Property P arseAllPro perties As  %Boolean;
  6   
  7    Parameter  SETTINGS =  "ParseAll Properties ";
  8   
  9    Parameter  INVOCATION  = "Queue" ;
  10   
  11    Method get ProviderSp ecialities (pRequest  As PPMS.Cl ient.Messa ge.GetSpec ialtiesReq uest, Outp ut pRespon se As PPMS .Client.Me ssage.GetS pecialties Response)  As %Status
  12    {
  13      
  14      #dim tSC  As %Statu s = $$$OK
  15      #dim err  AS %Excep tion.Abstr actExcepti on
  16      #dim tSp ecialty As  PPMS.Clie nt.Special ty
  17      
  18      try {
  19      
  20        s pRes ponse = ## class(PPMS .Client.Me ssage.GetS pecialties Response). %New()
  21        
  22        // bui ld URL
  23          // Format:     https://np .dws.ppms. DOMAIN . EX /v1.0/Prov iders(1770 995755)/Pr oviderSpec ialties
  24        
  25        s tURL  = ..Adapt er.URL
  26        s tURL  = $Replac e(tURL,"(i nputNPI)", "("_pReque st.NPI_")" )
  27        
  28        // exe cute call
  29        s tSC  = ..Adapte r.GetURL(t URL,.tHttp Response)
  30        
  31        i $$$I SERR(tSC)  && $IsObje ct(tHttpRe sponse) &&  $IsObject (tHttpResp onse.Data)  && tHttpR esponse.Da ta.Size {
  32          
  33          s tS C=$$$ERROR ($$$EnsErr General,$$ $StatusDis playString (tSC)_":"_ tHttpRespo nse.Data.R ead())
  34          
  35        }
  36        
  37        i tSC[ "Found" {
  38        
  39          s tS C = $$$OK
  40          
  41        } else  {
  42        
  43          $$$T hrowOnErro r(tSC)
  44          
  45          i $I sObject(tH ttpRespons e) {
  46          
  47            $$ $HSTRACE(" tHttpRespo nse","tHtt pResponse" ,tHttpResp onse.Data)
  48            
  49            //  Convert J SON into a  Proxy Cac he Array
  50            s  tJSONArray ={}.%FromJ SON(tHttpR esponse.Da ta)
  51            
  52            //  Get Itera tor for ea ch provide r in the J SON Stream  (each "va lue")
  53            s  tIter = tJ SONArray.% Get("value ").%GetIte rator()
  54            s  tKey = ""
  55            
  56            //  Iterate t hru the "v alue" coll ection to  create a s pecialty o bject for  each provi der.
  57            wh ile tIter. %GetNext(. key) {
  58              
  59               s tSpecial ty = ##cla ss(PPMS.Cl ient.Speci alty).%New ()
  60               s tSpecial ty.CodedSp ecialty =  tJSONArray .%Get("val ue").%Get( key).%Get( "CodedSpec ialty")
  61               s tSpecial ty.IsPrima ryType = t JSONArray. %Get("valu e").%Get(k ey).%Get(" IsPrimaryT ype")
  62               s tSpecial ty.Name =  tJSONArray .%Get("val ue").%Get( key).%Get( "Name")
  63              
  64               ;the follo wing prope rties aren 't current ly needed
  65               i ..ParseA llProperti es {
  66                 
  67                 s tSpeci alty.Owner Name = tJS ONArray.%G et("value" ).%Get(key ).%Get("Ow nerName")
  68                 s tSpeci alty.Provi derName =  tJSONArray .%Get("val ue").%Get( key).%Get( "ProviderN ame")
  69                 s tSpeci alty.Speci altyName =  tJSONArra y.%Get("va lue").%Get (key).%Get ("Specialt yName")
  70                 
  71               }
  72              
  73               // add spe cialty to  response c ollection
  74               s tSC = pR esponse.Sp ecialties. Insert(tSp ecialty)
  75              
  76            }
  77              
  78          }
  79            
  80          ;$$$ ThrowOnErr or(pRespon se.%Save() )
  81          
  82        }
  83        
  84      } catch  err {
  85          
  86        s tSC  = err.AsSt atus()
  87        
  88      }
  89      
  90      quit tSC
  91    }
  92   
  93    XData Mess ageMap
  94    {
  95    <MapItems>
  96      <MapItem  MessageTy pe="PPMS.C lient.Mess age.GetSpe cialtiesRe quest">
  97        <Metho d>getProvi derSpecial ities</Met hod>
  98      </MapIte m>
  99    </MapItems >
  100    }
  101   
  102    }
        103   T