Produced by Araxis Merge on 11/9/2018 12:33:48 AM 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 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHIGENDO.m | Mon Nov 5 16:44:35 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHIGENDO.m | Mon Nov 5 17:41:27 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 7 | 290 |
Changed | 6 | 22 |
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 | CHIGENDO ; Utility R outine to Display Ob ject data. | |
2 | Quit | |
3 | // | |
4 | PDITOJR ; Claim PDI Request to jRules Re sponse | |
5 | New PDI, DISPTYPE, PTRS, WS, responseSt atus, sjDa ta, sjResu lt, sc, Lo adPop | |
6 | Set U=$Ge t(U,"^") | |
7 | PDI | |
8 | Read:60 ! ,"PDI: ",P DI | |
9 | Quit:PDI= "" Quit:P DI["^" | |
10 | If '$Data (^CHMIMAGE (PDI,"BUFF ")) Goto P DI | |
11 | SJDT | |
12 | Read:60 ! ,"Display Type (X)ML or (O)bje ct: ",SJDT | |
13 | Quit:SJDT ="" Quit: SJDT["^" | |
14 | If SJDT'= "X"&(SJDT' ="O") | |
15 | { Write !!,"*** D isplay Typ e must be ""X"" or " "O"" ***", ! | |
16 | Goto SJ DT } | |
17 | Set PTRS= $Get(^CHMI MAGE(PDI," BUFF")) | |
18 | If $Piece (PTRS,"^") ="OCR" Set sjData=$$ AVSONLY^AH CJSU(PDI,P TRS,.LoadP op,0) | |
19 | If $Piece (PTRS,"^") '="OCR" Se t sjData=$ $LOAD^AHCJ SU(PDI,PTR S,.LoadPop ,0) | |
20 | Set WS=## class(CHAI R.HACSJW.s jWrap11).% New() | |
21 | Set respo nseStatus= WS.sj(sjDa ta,.sjResu lt) | |
22 | If SJDT=" X" Do SJXM L(sjData,s jResult) | |
23 | If SJDT=" O" Do SJOB J(sjData,s jResult) | |
24 | Quit | |
25 | // | |
26 | SJXML(sjDa ta,sjResul t) | |
27 | New Write | |
28 | If '$Data (Write) Se t Write=## class(%XML .Writer).% New(),Writ e.Indent=1 | |
29 | Write !!, "********* ****** sj request Da ta ******* ********** ******",!! | |
30 | Set sc=Wr ite.RootOb ject(sjDat a) | |
31 | Write !!, "********* ****** Res ponse Stat us ******* ********** ******",! | |
32 | Write !,r esponseSta tus | |
33 | Write !!, "********* ****** sj Response D ata ****** ********** ******",! | |
34 | Set sc=Wr ite.RootOb ject(sjRes ult) | |
35 | Q | |
36 | // | |
37 | SJOBJ(sjDa ta,sjResul t) | |
38 | Write !!, "********* ****** sj request Da ta ******* ********** ******",!! | |
39 | Do ##clas s(CHAIR.CH IGENDO.sjW riteReques t).Action( sjData) | |
40 | Write !!, "********* ****** sj Response D ata ****** ********** ******",!! | |
41 | //Set sc= Write.Root Object(sjR esult) | |
42 | Do ##clas s(CHAIR.CH IGENDO.sjW riteRespon se).Action (sjResult, responseS tatus) | |
43 | Quit | |
44 | // | |
45 | // | |
46 | CLTOJR ; C laim Numbe r Request to jRules Response | |
47 | New CI, C I1, CLN1, AIDT, GLPA Y, GLELG, GLDFN, tes tSpecificD ata | |
48 | New WS, c hamp DNS im, claimR esultList, sc | |
49 | // Clean up memory leaks | |
50 | New AHRT, AHTS, CHD FN, CHMFDR G, DxIen, II, K2, Or der, PdiIe n | |
51 | New ProcI en, X, cha mpvaBenefi ciary, cha mpvaVendor , sponsorB ene | |
52 | New sudSu bstanceUse Disorder | |
53 | // End me mory leaks | |
54 | Set CI="" | |
55 | // | |
56 | CLN | |
57 | Read:60 ! ,"Claim: " ,CLN | |
58 | Quit:CLN= "" Quit:C LN["^" | |
59 | Set CI="" | |
60 | If $Data( ^CHMPAY("B ",CLN)) | |
61 | { Set C I=$O(^CHMP AY("B",CLN ,"")) } | |
62 | If CLN?3A 4N,CI="" | |
63 | { | |
64 | S CLN1=$O (^CHMPAY(" B",CLN)),C I1=$O(^CHM PAY("B",CL N1,"")) | |
65 | I $E(CLN1 ,1,3)=$E(C LN,1,3),$P ($G(^CHMPA Y(CI1-$E(C LN1,4,9)+$ E(CLN,4,9) ,0)),"^")= CLN | |
66 | { | |
67 | S CI=CI1-$E( CLN1,4,9)+ $E(CLN,4,9 ) | |
68 | } | |
69 | } | |
70 | If CLN?3 A4N,CI="" | |
71 | { | |
72 | S CLN1=$O (^CHMPAY(" B",CLN),-1 ),CI1=$O(^ CHMPAY("B" ,CLN1,"")) | |
73 | I $E(CLN1 ,1,3)=$E(C LN,1,3),$P ($G(^CHMPA Y(CI1-$E(C LN1,4,9)+$ E(CLN,4,9) ,0)),"^")= CLN | |
74 | { | |
75 | S CI=CI1-$E( CLN1,4,9)+ $E(CLN,4,9 ) | |
76 | } | |
77 | } | |
78 | If CI="" Goto CLN | |
79 | // | |
80 | AIDT | |
81 | Read:60 ! ,"Display Type (X)ML or (O)bje ct: ",AIDT | |
82 | Quit:AIDT ="" Quit: AIDT["^" | |
83 | If AIDT'= "X"&(AIDT' ="O") | |
84 | { Write !!,"*** D isplay Typ e must be ""X"" or " "O"" ***", ! | |
85 | Goto AI DT } | |
86 | // | |
87 | Write !! | |
88 | Set GLPAY ="^CHMPAY( ",GLELG="^ AHCHVA(",G LDFN="^CHM DFN(" | |
89 | If '$Data (@(GLPAY_" CI)")) Got o CLN | |
90 | Kill Hist ory | |
91 | Set testS pecificDat a=$$BLDTST ^AHCJJR(CI ,GLPAY,GLE LG,GLDFN,. History) | |
92 | If testSp ecificData .Count()=0 Quit | |
93 | Set champ DNS im=$$BLDCL M^AHCJJR(C I,GLPAY,GL ELG,GLDFN, .History) | |
94 | // * Call Jrules * | |
95 | Set WS=## class(CHAI R.HACAIW.C laimWrap11 ).%New() | |
96 | Set sc=WS .claim(tes tSpecificD ata,champ DNS im,.claimR esultList) | |
97 | If AIDT=" X" Do AIXM L(champ DNS im,testSpe cificData, claimResul tList,sc) | |
98 | If AIDT=" O" Do AIOB J(champ DNS im,testSpe cificData, claimResul tList,sc) | |
99 | // | |
100 | Quit | |
101 | // | |
102 | AIXML(cham p DNS im,testSpe cificData, claimResul tList,sc) | |
103 | New Write , status, test, resu lt, I | |
104 | If '$Data (Write) Se t Write=## class(%XML .Writer).% New(),Writ e.Indent=1 | |
105 | // | |
106 | Write "** ********** ********** *******cha mp DNS im******** ********** ********** *",! | |
107 | Set statu s=Write.Ro otObject(c hamp DNS im) | |
108 | Write !! | |
109 | Write "** ********** ********** *******tes tSpecificD ata******* ********** ********** **" | |
110 | For I=1:1 :testSpeci ficData.Co unt() | |
111 | { | |
112 | Write ! | |
113 | Write:I '=1 !,"--- ---",! | |
114 | Set tes t=testSpec ificData.G etAt(I) | |
115 | Set sta tus=Write. RootObject (test) | |
116 | } | |
117 | Write !! | |
118 | Write "** ********** ********** *******Jru les Status ********** ********** *********" ,!! | |
119 | Write sc, !! | |
120 | Write "** ********** ********** *******cla imResult** ********** ********** *******" | |
121 | For I=1:1 :claimResu ltList.Cou nt() | |
122 | { | |
123 | Write ! | |
124 | Write:I '=1 !,"--- ---",! | |
125 | Set res ult=claimR esultList. GetAt(I) | |
126 | Set sta tus=Write. RootObject (result) | |
127 | } | |
128 | Write ! | |
129 | Quit | |
130 | // | |
131 | AIOBJ(cham p DNS im,testSpe cificData, claimResul tList,sc) | |
132 | Write "** ********** ********** *******cha mp DNS im******** ********** ********** *",!! | |
133 | Do ##clas s(CHAIR.CH IGENDO.aiW riteReques t).Claim(c hamp DNS im) | |
134 | Write ! | |
135 | Write "** ********** ********** *******tes tSpecificD ata******* ********** ********** **",! | |
136 | For I=1:1 :testSpeci ficData.Co unt() | |
137 | { | |
138 | Write ! | |
139 | Write:I '=1 "----- -",!! | |
140 | Set tes t=testSpec ificData.G etAt(I) | |
141 | Do ##cl ass(CHAIR. CHIGENDO.a iWriteRequ est).Test( test) | |
142 | } | |
143 | Write ! | |
144 | Write "** ********** ********** *******Jru les Status ********** ********** *********" ,!! | |
145 | Write sc, !! | |
146 | Write "** ********** ********** *******cla imResult** ********** ********** *******",! | |
147 | For I=1:1 :claimResu ltList.Cou nt() | |
148 | { | |
149 | Write ! | |
150 | Write:I '=1 "----- -",!! | |
151 | Set res ult=claimR esultList. GetAt(I) | |
152 | Do ##cl ass(CHAIR. CHIGENDO.a iWriteResp onse).Resp onse(resul t) | |
153 | } | |
154 | Write ! | |
155 | Quit | |
156 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.