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