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

131.1 Files compared

# Location File Last Modified
1 C:\AraxisMergeCompare\Pri_un\ccra\ccra_HSIE_IC\SEOC\Maintenance\DB\Operation RetrieveSEOC.cls Thu Jan 10 13:20:30 2019 UTC
2 C:\AraxisMergeCompare\Pri_re\ccra\ccra_HSIE_IC\SEOC\Maintenance\DB\Operation RetrieveSEOC.cls Thu Jan 10 16:31:30 2019 UTC

131.2 Comparison summary

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

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

131.4 Active regular expressions

No regular expressions were active.

131.5 Comparison detail

  1    Class SEOC .Maintenan ce.DB.Oper ation.Retr ieveSEOC E xtends (En sLib.REST. GenericOpe ration, HS .Util.Trac e.Helper)
  2    {
  3   
  4    Parameter  INVOCATION  = "Queue" ;
  5   
  6    Property S erviceName  As %Strin g [ Initia lExpressio n = "SEOC. DB.API" ];
  7   
  8    Parameter  SETTINGS =  "ServiceN ame:Basic" ;
  9   
  10    Method OnI nit() As % Status
  11    {
  12            se t ..%HttpR equest = # #class(%Ne t.HttpRequ est).%New( )
  13            Qu it $$$OK
  14    }
  15   
  16    Method OnM essage(pRe quest As S EOC.Mainte nance.DB.M essage.Ret rieveSEOCR equest, Ou tput pResp onse As En sLib.HTTP. GenericMes sage) As % Status
  17    {
  18     
  19            #d im tSC As  %String =  $$$OK 
  20            #d im tHttpRe sponse As  %Net.HttpR esponse =  ##class(%N et.HttpRes ponse).%Ne w()
  21            #d im tURL as  %String
  22            
  23            tr y{
  24   
  25                     //Se t custom S EOC header s
  26                     do . .%HttpRequ est.SetHea der("Accep t", "*/*")
  27                     
  28                     //Ge t WS Locat ion from H S Service  Registry
  29                     Set  tEndPoint  = ##class( HS.Registr y.Service. HTTP).EndP ointForNam eType(..Se rviceName, "HTTP")
  30                     If $ isObject(t EndPoint)  {
  31                              Set .. Adapter.UR L = tEndPo int.URL 
  32                              Set .. Adapter.HT TPServer =  tEndPoint .Host
  33                              Set .. Adapter.HT TPPort = t EndPoint.P ort
  34                              Set .. Adapter.SS LConfig =  tEndPoint. SSLConfig
  35                     } el se {
  36                              $$$Thr owOnError( $$$ERROR($ $$GeneralE rror,"Serv iceName no t found"))
  37                     }                 
  38                                       
  39                     //Se t Adapter  URL path d epending o n value of  SEOC ID i n Request  Message
  40                     //SE OC Id = ""  - Retriev e all Acti ve SEOCs ( URL = .../ v1/seoc/ac tive)
  41                     //SE OC Id = <S EOC ID> -  Retrieve j ust the on e SEOC (UR L = .../v1 /name/{nam e})
  42                     If ' (pRequest. SEOCId="") {
  43                              //set  tURL = $p( ..Adapter. URL,"activ e",1) _"na me/" _ pRe quest.SEOC Id
  44                              set tU RL = $p(.. Adapter.UR L,"active" ,1) _ pReq uest.SEOCI d
  45                     }
  46                     Else {
  47                              set tU RL = ..Ada pter.URL
  48                      }                        
  49                     $$$H STRACE("SE OC tURL"," tURL",tURL )
  50                     
  51                     //Ex ecute the  "GET"
  52                       Set tSC =  ..Adapter. SendF
D NS     aArray(.tH ttpRespons e, "GET",  ..%HttpReq uest, ,,tU RL )
  53                     
  54            // $$$HSTRACE ("After RE ST Get","t HttpRespon se",tHttpR esponse)     
  55                     
  56                     //Lo g response /error rec eived from  DAS
  57                     If $ IsObject(t HttpRespon se.Data) {
  58                              set tS tream = ## class(%Str eam.Global Character) .%New()
  59                              $$$Thr owOnError( tStream.Co pyFrom(tHt tpResponse .Data))
  60                              set pR esponse =  ##class(En sLib.HTTP. GenericMes sage).%New (tStream)                          
  61                     }
  62                     Else  {  $$$LOG ERROR("No  response r eceived fr om SEOC DB ")                 }
  63          
  64            }
  65      catch ex  {
  66                     
  67                     Set  tSC = ex.A sStatus()
  68      }
  69      
  70      quit tSC
  71    }
  72   
  73    XData Mess ageMap
  74    {
  75    <MapItems>
  76                     <Map Item Messa geType="SE OC.Mainten ance.Messa ge.Retriev eSEOCReque st"> 
  77                              <Metho d>OnMessag e</Method>
  78                     </Ma pItem>
  79            </ MapItems>
  80    }
  81   
  82    }