264. EPMO Open Source Coordination Office Redaction File Detail Report

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

264.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMXWR01.m Mon Nov 5 16:40:38 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMXWR01.m Mon Nov 5 17:53:56 2018 UTC

264.2 Comparison summary

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

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

264.4 Active regular expressions

No regular expressions were active.

264.5 Comparison detail

  1   CHMXWR01         ;HAC /FWP; Prin t the HAC  EOB Reason  Codes & X 12 Crosswa lk ;08/26/ 08
  2                    ;Usi ng the Glo bals ^CHMX DIC(741201 .77; ^CHMX DIC(741201 .16; ^CHMD IC(741002. 22
  3                    ;FWP ;MTN005433 ;08/26/08; EXPORTS CR OSSWALK CO DES TO FS3 BIG.MARYAN N.HAC_EOB_ X12_XWALK. TXT
  4                    ;FWP ;DEV005433 -02;09/02/ 08;RENAME  ^ZFWP005 T O ^CHMXWR0 1 TO MOVE  TO TST
  5                    ;
  6   CARCCODE         ;Exp ort Claim  Adjustment  Reason Co de Numbers  and Descr iptions:
  7                    D NO W^%DTC  ;  Set curent  Date / Ti me
  8                    S IO FILE="HAC_ EOB_X12_Xw alk_"_X_". TXT"
  9                     S XFILE="H ACFS3"" DNS     decnet HAC dec741!"": :D:"
  10                 S XFILE =XFILE_"[F s3big.Mary ann]"
  11                 S XFILE =XFILE_IOF ILE
  12                 S IDX=" ", RC=0, I ND=""
  13                 O XFILE :"NWS" DO  INIT,HEADE R,DETAIL C  XFILE
  14                 Q
  15                 ;
  16   INIT       ;Set up ex port heade r:
  17               ;Active S tatus;
  18                  ;HAC R sn cd;
  19                  ;HAC R sn cd Desc ;
  20                  ;Claim  Adj Grp c d#1;
  21                  ;Claim  Adj Rsn c d#1;
  22                  ;Claim  Adj Rsn c d Desc;     
  23                  ;Claim  Rmrk cd#1 ;
  24                  ;Claim  Rmrk cd#2 ;
  25                  S HDR= ""
  26                  F I=1: 1:8 S X=$T (INIT+I),X =$P(X,";", 2),HDR=HDR _X I I<8 S  HDR=HDR_$ C(9)
  27                  Q
  28                  ;
  29   HEADER  ;E xport head er:
  30                  U XFIL E W HDR,!
  31                  Q
  32                  ;----- ---------- ---------- ---------- ---------- -----;
  33                  ; 
  34   DETAIL  ;  Loop throu gh array,  get a code , send to  export fil e:
  35                  F  S R C=$O(^CHMX DIC(741201 .77,"B",RC )) Q:RC'>0   D 
  36                  .S IDX =$O(^CHMXD IC(741201. 77,"B",RC, 0))
  37                  .I IDX >0 D OUTPU T(RC,IDX)
  38                  Q 
  39                  ;----- ---------- ---------- ---------- ---------- -----;
  40   OUTPUT(R,I )     ;Put  a row out  to file:
  41               S HRC=$P( ^CHMXDIC(7 41201.77,I ,0),"^",1)                  ; Ge t HAC Reas on code
  42               S I22=$O( ^CHMDIC(74 1002.22,"B ",HRC,0))                            ; Get  new I22 xr ef
  43               S HRCDESC =$P(^CHMDI C(741002.2 2,I22,0)," ^",2)        ; Get HA C Rsn code  Descripti on
  44               S IND=($P (^CHMDIC(7 41002.22,I 22,0),"^", 3))              ; Se t Active S tatus flag
  45               I IND'=""  S IND=$S( IND=0:"A", 1:"N")                  ; Mark I ND (Indica tor) flag
  46                  S CAGC 1=$P(^CHMX DIC(741201 .77,I,0)," ^",2)                     ; Get  Claim Adj  Group code  #1       
  47                  S CARC 1=$P(^CHMX DIC(741201 .77,I,0)," ^",3)                     ; Get  Claim Adj  Reason cod e #1
  48                  S CARC DESC="" I  CARC1'=""  D                          ; Ini tialize va riables
  49                  .Q:'$D (^CHMXDIC( 741201.16, "B",CARC1) )                         ; Quit  if pointe r is null
  50                  .S I16 =$O(^CHMXD IC(741201. 16,"B",CAR C1,0))                    ; Get  the Desc,  only if da ta exists
  51                  .S CAR CDESC=$P(^ CHMXDIC(74 1201.16,I1 6,0),"^",2 )    ; Get  Clm Adj R sn cd Desc , using I1 6 pointer
  52                  S CRC1 =$P(^CHMXD IC(741201. 77,I,0),"^ ",6)                      ; Get  Claim Rema rk code #1
  53                  S CRC2 =$P(^CHMXD IC(741201. 77,I,0),"^ ",7)                      ; Get  Claim Rema rk code #2  
  54                  ; Writ e data lin e
  55                  U XFIL E W IND_$C (9)_HRC_$C (9)_HRCDES C_$C(9)_CA GC1_$C(9)_ CARC1_$C(9 )_CARCDESC _$C(9)_CRC 1_$C(9)_CR C2,!                                                           
  56                  Q
  57                  ;----- ---------- ---------- ---------- ---------- -----;