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\GetModifiedProviders | Operation.cls | Thu Jan 10 13:20:30 2019 UTC |
2 | C:\AraxisMergeCompare\Pri_re\ccra\ccra_HSIE_IC\PPMS\Client\REST\GetModifiedProviders | Operation.cls | Thu Jan 10 16:31:28 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 314 |
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 | /// makes a call to PPMS REST service, r eturns pro vider data for provi ders modif ied on spe cified dat e | |||||
2 | Class PPMS .Client.RE ST.GetModi fiedProvid ers.Operat ion Extend s (EnsLib. REST.Opera tion, HS.U til.Trace. Helper) | |||||
3 | { | |||||
4 | ||||||
5 | /// add al l properti es from PP MS to prov ider objec t | |||||
6 | Property P arseAllPro perties As %Boolean; | |||||
7 | ||||||
8 | Parameter SETTINGS = "ParseAll Properties "; | |||||
9 | ||||||
10 | Parameter INVOCATION = "Queue" ; | |||||
11 | ||||||
12 | Method get PPMSProvid ers(pReque st As PPMS .Client.Me ssage.GetP rovidersRe quest, Out put pRespo nse As PPM S.Client.M essage.Get ProvidersR esponse) A s %Status | |||||
13 | { | |||||
14 | ||||||
15 | #dim tSC As %Statu s = $$$OK | |||||
16 | #dim err AS %Excep tion.Abstr actExcepti on | |||||
17 | #dim tPr ovider As PPMS.Clien t.Provider | |||||
18 | ||||||
19 | try { | |||||
20 | ||||||
21 | s pRes ponse = ## class(PPMS .Client.Me ssage.GetP rovidersRe sponse).%N ew() | |||||
22 | ||||||
23 | // bui ld URL | |||||
24 | // Format: https://np .dws.ppms. DOMAIN . EX /v1.0/GetP roviderByM odifiedOnD ate?modifi edOnDate=2 018-02-08 | |||||
25 | // App end the la st update date to th e URL conf igured for adapter - Date must be in ODB C Format ( YYYY-MM-DD ) | |||||
26 | ||||||
27 | s tURL =..Adapter .URL_"?mod ifiedOnDat e="_$zd(pR equest.Mod ifiedOnDat e,3) | |||||
28 | ||||||
29 | // exe cute call | |||||
30 | s tSC = ..Adapte r.GetURL(t URL,.tHttp Response) | |||||
31 | ||||||
32 | i ($$$ ISERR(tSC) ) && ($IsO bject(tHtt pResponse) ) && ($IsO bject(tHtt pResponse. Data)) && (tHttpResp onse.Data. Size) { | |||||
33 | ||||||
34 | s tS C=$$$ERROR ($$$EnsErr General,$$ $StatusDis playString (tSC)_":"_ tHttpRespo nse.Data.R ead()) | |||||
35 | ||||||
36 | } | |||||
37 | ||||||
38 | i tSC[ "No Provid ers found modified o n this dat e" { | |||||
39 | ||||||
40 | s tS C = $$$OK | |||||
41 | ||||||
42 | } else { | |||||
43 | ||||||
44 | $$$T hrowOnErro r(tSC) | |||||
45 | ||||||
46 | i $I sObject(tH ttpRespons e) { | |||||
47 | ||||||
48 | $$ $HSTRACE(" tHttpRespo nse","tHtt pResponse" ,tHttpResp onse.Data) | |||||
49 | ||||||
50 | // Convert J SON into a Proxy Cac he Array | |||||
51 | s tJSONArray ={}.%FromJ SON(tHttpR esponse.Da ta) | |||||
52 | ||||||
53 | // Get Itera tor for ea ch provide r in the J SON Stream (each "va lue") | |||||
54 | s tIter = tJ SONArray.% Get("value ").%GetIte rator() | |||||
55 | s key = "" | |||||
56 | ||||||
57 | // Iterate t hru the "v alue" coll ection to create a P rovider ob ject for e ach Provid er. | |||||
58 | wh ile tIter. %GetNext(. key) { | |||||
59 | ||||||
60 | s tProvide r = ##clas s(PPMS.Cli ent.Provid er).%New() | |||||
61 | s tProvide r.NPI = tJ SONArray.% Get("value ").%Get(ke y).%Get("P roviderIde ntifier") | |||||
62 | s tProvide r.Name = t JSONArray. %Get("valu e").%Get(k ey).%Get(" Name") | |||||
63 | s tProvide r.OnLeie = tJSONArra y.%Get("va lue").%Get (key).%Get ("OnLeie") | |||||
64 | s tProvide r.Modified OnDate = t JSONArray. %Get("valu e").%Get(k ey).%Get(" ModifiedOn Date") | |||||
65 | s address = tJSONArr ay.%Get("v alue").%Ge t(key).%Ge t("Address "), addres s = $zstri p(address, "<>W") | |||||
66 | i $l(addre ss) { | |||||
67 | ||||||
68 | s addres s = $e(add ress,1,49) | |||||
69 | s tProvi der.Addres sStreet = $zstrip($p (address,$ char(10),1 ),"<>W") | |||||
70 | s citySt ateZip = $ p(address, $char(10), 2), city = $p(citySt ateZip,"," ,1), city = $zstrip( city,"<>W" ) | |||||
71 | s tProvi der.Addres sCity = ci ty | |||||
72 | s stateZ ip = $p(ci tyStateZip ,",",2) | |||||
73 | s state = $p(state Zip," ",2) , state = $zstrip(st ate,"<>W") | |||||
74 | s tProvi der.Addres sState = s tate | |||||
75 | s zip = $p(stateZ ip," ",3), zip = $zs trip(zip," <>W") | |||||
76 | s tProvi der.Addres sZipCode = zip | |||||
77 | ||||||
78 | } | |||||
79 | ||||||
80 | // affilia tions | |||||
81 | s tProvide r.HealthNe tAffiliati on = tJSON Array.%Get ("value"). %Get(key). %Get("Heal thNetAffil iation") | |||||
82 | s tProvide r.Provider AgreementA ffiliation = tJSONAr ray.%Get(" value").%G et(key).%G et("Provid erAgreemen tAffiliati on") | |||||
83 | s tProvide r.Pc3Affil iation = t JSONArray. %Get("valu e").%Get(k ey).%Get(" Pc3Affilia tion") | |||||
84 | s tProvide r.DodAffil iation = t JSONArray. %Get("valu e").%Get(k ey).%Get(" DoDAffilia tion") | |||||
85 | s tProvide r.VaAcadem icAffiliat e = tJSONA rray.%Get( "value").% Get(key).% Get("VaAca demicAffil iation") | |||||
86 | s tProvide r.TriWestA ffiliation = tJSONAr ray.%Get(" value").%G et(key).%G et("TriWes tAffiliati on") | |||||
87 | s tProvide r.IhsAffil iation = t JSONArray. %Get("valu e").%Get(k ey).%Get(" IhsAffilia tion") | |||||
88 | s tProvide r.ChoiceAf filiation = tJSONArr ay.%Get("v alue").%Ge t(key).%Ge t("ChoiceA ffiliation ") | |||||
89 | ||||||
90 | ;the follo wing prope rties aren 't current ly needed | |||||
91 | i ..ParseA llProperti es { | |||||
92 | ||||||
93 | s tProvi der.Provid erType = t JSONArray. %Get("valu e").%Get(k ey).%Get(" ProviderTy pe") | |||||
94 | s tProvi der.Qualit yRankingTo talScore = tJSONArra y.%Get("va lue").%Get (key).%Get ("QualityR ankingTota lScore") | |||||
95 | // Prope rty not in Provider class | |||||
96 | //s tPro vider.Qual ityRanking LastUpdate d = tJSONA rray.%Get( "value").% Get(key).% Get("Quali tyRankingL astUpdate" ) | |||||
97 | s tProvi der.MainPh one = tJSO NArray.%Ge t("value") .%Get(key) .%Get("Mai nPhone") | |||||
98 | s tProvi der.Email = tJSONArr ay.%Get("v alue").%Ge t(key).%Ge t("Email") | |||||
99 | s tProvi der.Provid erStatusRe ason = tJS ONArray.%G et("value" ).%Get(key ).%Get("Pr oviderStat usReason") | |||||
100 | s tProvi der.Primar yCarePhysi cian = tJS ONArray.%G et("value" ).%Get(key ).%Get("Pr imaryCareP hysician") | |||||
101 | s tProvi der.HighPe rformance = tJSONArr ay.%Get("v alue").%Ge t(key).%Ge t("HighPer formance") | |||||
102 | s tProvi der.Fqhc = tJSONArra y.%Get("va lue").%Get (key).%Get ("Fqhc") | |||||
103 | s tProvi der.Accoun tableCareO rganizatio n = tJSONA rray.%Get( "value").% Get(key).% Get("Accou ntableCare Organizati on") | |||||
104 | s tProvi der.IsAcce ptingNewPa tients = t JSONArray. %Get("valu e").%Get(k ey).%Get(" IsAcceptin gNewPatien ts") | |||||
105 | s tProvi der.Provid erEthnicit y = tJSONA rray.%Get( "value").% Get(key).% Get("Provi derEthnici ty") | |||||
106 | s tProvi der.Provid erGender = tJSONArra y.%Get("va lue").%Get (key).%Get ("Provider Gender") | |||||
107 | s tProvi der.Religi on = tJSON Array.%Get ("value"). %Get(key). %Get("Reli gion") | |||||
108 | s tProvi der.Organi zationId = tJSONArra y.%Get("va lue").%Get (key).%Get ("Organiza tionId") | |||||
109 | s tProvi der.Servic eProviderT ype = tJSO NArray.%Ge t("value") .%Get(key) .%Get("Ser viceProvid erType") | |||||
110 | s tProvi der.Specia lInstructi on = tJSON Array.%Get ("value"). %Get(key). %Get("Spec ialInstruc tion") | |||||
111 | s tProvi der.OwnedC areSiteNam e = tJSONA rray.%Get( "value").% Get(key).% Get("Owned CareSiteNa me") | |||||
112 | s tProvi der.Organi zationFax = tJSONArr ay.%Get("v alue").%Ge t(key).%Ge t("Organiz ationFax") | |||||
113 | s tProvi der.Organi zationStat us = tJSON Array.%Get ("value"). %Get(key). %Get("Orga nizationSt atus") | |||||
114 | s tProvi der.IsExte rnal = tJS ONArray.%G et("value" ).%Get(key ).%Get("Is External") | |||||
115 | s tProvi der.Intern alType = t JSONArray. %Get("valu e").%Get(k ey).%Get(" InternalTy pe") | |||||
116 | s tProvi der.Licens ingJuristi cion = tJS ONArray.%G et("value" ).%Get(key ).%Get("Li censingJur isticion") | |||||
117 | s tProvi der.CanCre ateHealthC areOrders = tJSONArr ay.%Get("v alue").%Ge t(key).%Ge t("CanCrea teHealthca reOrders") | |||||
118 | s tProvi der.Intern alAppointm entStatus = tJSONArr ay.%Get("v alue").%Ge t(key).%Ge t("Interna lAppointme ntStatus") | |||||
119 | s tProvi der.Extern alHealthPr oviderType = tJSONAr ray.%Get(" value").%G et(key).%G et("Extern alHealthPr oviderType ") | |||||
120 | s tProvi der.Extern alInstitut ionDeaNumb er = tJSON Array.%Get ("value"). %Get(key). %Get("Exte rnalInstit utionDeaNu mber") | |||||
121 | s tProvi der.Extern alLeieChec kDate = tJ SONArray.% Get("value ").%Get(ke y).%Get("E xternalLei eCheckDate ") | |||||
122 | s tProvi der.Valida tionSource = tJSONAr ray.%Get(" value").%G et(key).%G et("Valida tionSource ") | |||||
123 | s tProvi der.Contac tMethod = tJSONArray .%Get("val ue").%Get( key).%Get( "ContactMe thod") | |||||
124 | s tProvi der.BulkEm ails = tJS ONArray.%G et("value" ).%Get(key ).%Get("Bu lkEmails") | |||||
125 | s tProvi der.BulkMa ils = tJSO NArray.%Ge t("value") .%Get(key) .%Get("Bul kMails") | |||||
126 | s tProvi der.Emails = tJSONAr ray.%Get(" value").%G et(key).%G et("Emails ") | |||||
127 | s tProvi der.Mails = tJSONArr ay.%Get("v alue").%Ge t(key).%Ge t("Mails") | |||||
128 | s tProvi der.PhoneC alls = tJS ONArray.%G et("value" ).%Get(key ).%Get("Ph oneCalls") | |||||
129 | s tProvi der.Faxes = tJSONArr ay.%Get("v alue").%Ge t(key).%Ge t("Faxes") | |||||
130 | s tProvi der.NpiKey = tJSONAr ray.%Get(" value").%G et(key).%G et("NpiKey ") | |||||
131 | ||||||
132 | } | |||||
133 | ||||||
134 | //Add Prov ider to Re sponse col lection | |||||
135 | d pRespons e.Provider s.SetAt(tP rovider,ke y) | |||||
136 | ||||||
137 | } | |||||
138 | } | |||||
139 | ||||||
140 | $$$T hrowOnErro r(pRespons e.%Save()) | |||||
141 | } | |||||
142 | } catch err { | |||||
143 | s tSC = err.AsSt atus() | |||||
144 | } | |||||
145 | ||||||
146 | quit tSC | |||||
147 | } | |||||
148 | ||||||
149 | XData Mess ageMap | |||||
150 | { | |||||
151 | <MapItems> | |||||
152 | <MapItem MessageTy pe="PPMS.C lient.Mess age.GetPro vidersRequ est"> | |||||
153 | <Metho d>getPPMSP roviders</ Method> | |||||
154 | </MapIte m> | |||||
155 | </MapItems > | |||||
156 | } | |||||
157 | ||||||
158 | } | |||||
159 | T |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.