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