58. EPMO Open Source Coordination Office Redaction File Detail Report

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.

58.1 Files compared

# 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

58.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 7 290
Changed 6 22
Inserted 0 0
Removed 0 0

58.3 Comparison options

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

58.4 Active regular expressions

No regular expressions were active.

58.5 Comparison detail

  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