51. EPMO Open Source Coordination Office Redaction File Detail Report

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

51.1 Files compared

# Location File Last Modified
1 C:\AraxisMergeCompare\Pri_un\ccra\ccra_HSIE_IC\DAS\Operation FHIRDocumentationNotification.cls Thu Jan 10 13:20:00 2019 UTC
2 C:\AraxisMergeCompare\Pri_re\ccra\ccra_HSIE_IC\DAS\Operation FHIRDocumentationNotification.cls Thu Jan 10 16:31:18 2019 UTC

51.2 Comparison summary

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

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

51.4 Active regular expressions

No regular expressions were active.

51.5 Comparison detail

  1    Class DAS. Operation. FHIRDocume ntationNot ification  Extends (E nsLib.REST .GenericOp eration, H S.Util.Tra ce.Helper)
  2    {
  3   
  4    Parameter  INVOCATION  = "Queue" ;
  5   
  6    // Overrid e the OnIn it method  in order t o use the  DASHTTPReq uest and u pdate head ers as nee ded
  7   
  8    Method OnI nit() As % Status
  9    {
  10            Se t ..%HttpR equest=##c lass(DAS.M essage.DAS HTTPReques t).%New()
  11            Qu it $$$OK
  12    }
  13   
  14    Method OnM essage(pRe quest As D AS.Message .FHIRDocum entNotific ationReque st, Output  pResponse  As EnsLib .HTTP.Gene ricMessage ) As %Stat us
  15    {
  16     
  17            se t tSC = $$ $OK 
  18   
  19            tr y{
  20   
  21                     //Ve rify requi red data p resent in  inbound me ssage, err or and qui t if not
  22                     Set  pCCN = $CA SE(pReques t.CCN,
  23                   "CCN1" :"CCN_Regi on1","CCN2 ":"CCN_Reg ion2","CCN 3":"CCN_Re gion3",
  24                   "CCN4" :"CCN_Regi on4","TriW est":"CCN_ TRW_Nation al",
  25                   :"Inva lid Networ k")
  26                     $$$H STRACE("Ne twork: " _  pCCN)
  27                     Set  pFHIRDocum entID = pR equest.FHI RDocumentI d   
  28                     Set  pConversat ionID = .. %RequestHe ader.Sessi onId 
  29                     Set  pTransacti onID = ..% RequestHea der.Messag eId()
  30                     
  31                     If ( pRequest.S tream ="")  {
  32                              Set tS C=$$$ERROR ($$$EnsErr General,"  Message st ream empty ")
  33                              Quit 
  34                     }
  35            El seIf (pCCN ="")  {
  36                              Set tS C=$$$ERROR ($$$EnsErr General,"  CCN missin g")
  37                              Quit 
  38                     }
  39            El seIf (pFHI RDocumentI D="") {
  40                              Set tS C=$$$ERROR ($$$EnsErr General,"  FHIR Docum ent ID req uired")
  41                              Quit 
  42                     }
  43                     
  44                     //Se t custom D AS headers  and messa ge body
  45            //       Do . .%HttpRequ est.SetHea der("Conte nt-Type"," applicatio n/json+fhi r") //not  needed.  p ulled from  entitybod y
  46                     Do . .%HttpRequ est.SetHea der("X-Rou tingSender ID","VA_CC RA")
  47                     Do . .%HttpRequ est.SetHea der("X-Rou tingReceiv erIDs", pC CN) 
  48                     Do . .%HttpRequ est.SetHea der("X-Tra nsactionID ",pTransac tionID)
  49                     Do . .%HttpRequ est.SetHea der("X-Con versationI D", pConve rsationID)  //GUID wh en doc is  generated,  ex: "b7d3 e295-6e0c- 47a8-a8fc- fe0c910dcf 15"
  50                     Set  ..%HttpReq uest.Entit yBody = pR equest.Str eam
  51                     
  52                     $$$H STRACE("He ader List:  " _ ..%Ht tpRequest. ReturnHead ers())
  53                     
  54                     //Cr eate respo nse and PO ST data to  DAS
  55                     Set  tHttpRespo nse = ##cl ass(%Net.H ttpRespons e).%New()
  56                       Set tSC =  ..Adapter. SendF
D NS     aArray(.tH ttpRespons e, "POST",  ..%HttpRe quest, .pF ormVarName s , .pData )
  57                     
  58                     
  59                     //Lo g response /error rec eived from  DAS
  60                     If $ IsObject(t HttpRespon se.Data) {
  61                              Set sR esponseBod y = tHttpR esponse.Da ta.Read()                     
  62                              $$$LOG INFO(sResp onseBody)
  63                     }
  64                     Else  {  $$$LOG ERROR("No  response r eceived fr om  DAS")             }
  65          
  66            }
  67      catch ex  {
  68                     Set  tSC = ex.A sStatus()
  69      }
  70      
  71      return t SC
  72    }
  73   
  74    XData Mess ageMap
  75    {
  76    <MapItems>
  77                     <Map Item Messa geType="DA S.Message. FHIRDocume ntNotifica tionReques t"> 
  78                              <Metho d>OnMessag e</Method>
  79                     </Ma pItem>
  80            </ MapItems>
  81    }
  82   
  83    }