247. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2018 12:34:11 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.

247.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMXMM06.m Mon Nov 5 16:42:29 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMXMM06.m Mon Nov 5 17:52:59 2018 UTC

247.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 96
Changed 1 2
Inserted 0 0
Removed 0 0

247.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

247.4 Active regular expressions

No regular expressions were active.

247.5 Comparison detail

  1   CHMXMM06 ; CVA/DTP;MS G TO FISCA L RE: VOID /CANCELED  CLAIM;10/1 7/03  9:06  AM
  2    ;;1.0; 
  3    S DUZHOLD =DUZ,DUZ=. 5,(NUM,PTX )=0
  4    G END:'$D (^XMB(3.8, "B","DCU") )
  5   A1 S NUM=$ O(^XMB(3.8 ,"B","DCU" ,NUM)) G E ND:'NUM
  6   A11 S PTX= $O(^XMB(3. 8,NUM,1,PT X)) G STAR T:'PTX
  7    S RDUZ=$P (^XMB(3.8, NUM,1,PTX, 0),"^",1)
  8    S XMY(RDU Z)=""
  9    G A11
  10   START S XM Y(" PII                  ")=""
  11    S CHTXTNM ="CMTEXT"  D TEXT
  12    S CHTXTNM ="VOID" D  TEXT
  13    D CLMNUM
  14    D MAIL
  15   END S DUZ= DUZHOLD
  16    K CHTXTNM ,HOLDJ,JJ, TIMES,LEN, SPACE,^UTI LITY($J,"E DI VOID CL M")
  17    K NUM,PTX ,DOMN,RDUZ ,DUZHOLD,X MY,XMSUB,X MTEXT,XMDU Z,CHMXCLM
  18    Q
  19    ; 
  20   TEXT F I=1 :1 S X=$P( $T(@(CHTXT NM)+I),";" ,2) Q:X="E ND"  S:$E( X,1,5)="   To:" X=X_"   DCU GROU P" D BUILD
  21    Q
  22    ; 
  23   BUILD D SP ACE I '$D( ^UTILITY($ J,"EDI VOI D CLM",1))  S HOLDJ=0
  24    S JJ=HOLD J+1,^UTILI TY($J,"EDI  VOID CLM" ,1,JJ,0)=X ,HOLDJ=JJ  Q
  25    ; 
  26   SPACE S LE N=$L(X) S  TIMES=74-L EN,SPACE=" " F II=1:1 :TIMES S S PACE=SPACE _" "
  27    S X=X_SPA CE Q
  28    ; 
  29   CLMNUM S X ="The clai m number i s:  "_CHMX CLM D BUIL D
  30    Q
  31    ; 
  32   MAIL S XMS UB="POS RE COUP ON VO IDED EDI C LM",XMDUZ= DUZ
  33    S XMTEXT= "^UTILITY( $J,""EDI V OID CLM"", 1,",U="^"  D ^XMD
  34    Q
  35   CMTEXT ;
  36    ;From:  C IO, Health  Administr ation Cent er
  37    ;
  38    ;Subj:  P ossible Re coupment o n Voided/C ancelled C laim
  39    ;
  40    ;  To:
  41    ;END
  42   VOID ;
  43    ;
  44    ;    An X 12 EDI bat ch process ed today r evealed th e followin g claim
  45    ;    was  voided or  cancelled  by the pro vider (see  below).   This
  46    ;    clai m may need  to be rec ouped by t he DCU.  P lease cont act CIO
  47    ;    if y ou believe  this mess age to be  in error.
  48    ;END
  49    ;