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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 164 |
Changed | 1 | 2 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
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 |
No regular expressions were active.
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
|
|
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 | } |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.