108. EPMO Open Source Coordination Office Redaction File Detail Report

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

108.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMG4311.m Mon Nov 5 16:39:43 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMG4311.m Fri Nov 9 02:47:24 2018 UTC

108.2 Comparison summary

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

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

108.4 Active regular expressions

No regular expressions were active.

108.5 Comparison detail

  1   CHMG4311 ; CVA/CJM;EO B PRINT -  INIT CONST ANT DATA;0 1/22/99  3 :27 PM
  2    ;;1.0;
  3    ; CPTS #1 1789* - JF Q 7/23/97,  #8043 (RL C)
  4    ;CPTS - 1 4172 (AEB)
  5    ;CPTS 158 90 (AEB)
  6    ;---INIT  FIXED FORM
  7    I '$D(CHP GPT) S CHP GPT=1
  8    K CHEOB,C HEOBREA
  9    S CHSINL= "",$P(CHSI NL,"-",133 )=""
  10    S CHDUBL= "",$P(CHDU BL,"=",133 )=""
  11    S CHBARCD ="________ ______"
  12    F Y=1:1:6  S CHEOB(" HDR1",Y,0) =""
  13    I $D(DUZF LG) I $D(D UZ) D
  14    .S INITL= "" I $D(^V A(200,DUZ, 0)) S INIT L=$P(^(0), "^",2)
  15    .S CHEOB( "HDR1",1,0 )="BA: "_D UZ_"-"_INI TL
  16    .Q
  17    S CHEOB(" HDR1",1,51 )="DEPARTM ENT OF VET ERANS AFFA IRS"
  18    S CHEOB(" HDR1",1,11 5)="Page"
  19    S CHEOB(" HDR1",2,41 )="HEALTH  ADMINISTRA TION CENTE R EXPLANAT ION OF BEN EFITS"
  20    I '$D(CHP GPT) S CHE OB("HDR1", 3,0)="CHAM PVA PROGRA M" G H1  ; TLH 8/18/0 6 CHANGED  PROJECT 15 11
  21    I CHPGPT= 1 S CHEOB( "HDR1",3,0 )="CHAMPVA  PROGRAM"   ;TLH 8/18 /06 CHANGE D PROJECT  1511 
  22    I CHPGPT= 2 S CHEOB( "HDR1",3,0 )="CHAMPVA  PROGRAM"   ;TLH 8/18 /06 CHANGE D PROJECT  1511 
  23    I CHPGPT= 3 S CHEOB( "HDR1",3,0 )="FOREIGN  MEDICAL P ROGRAM"
  24    I CHPGPT= 4 S CHEOB( "HDR1",3,0 )="PERSIAN  GULF PROG RAM"
  25    I CHPGPT= 5 S CHEOB( "HDR1",3,0 )="NON-VA  HEALTHCARE "
  26    I CHPGPT= 6 S CHEOB( "HDR1",3,0 )="VA SPIN A BIFIDA P ROGRAM"
  27    I CHPGPT= 7 S CHEOB( "HDR1",3,0 )="CHILDRE N of WOMEN  VIETNAM V ETERANS"
  28   H1 S CHEOB ("HDR1",4, 0)="ATTN:   CLAIMS"
  29    S CHEOB(" HDR1",4,65 )="THIS IS  NOT A BIL L.  This i s a statem ent of the  action ta ken on"
  30    I '$D(CHP GPT) S CHE OB("HDR1", 5,0)="PO B OX 469064"  G H2   ;A EB DEV0056 60 10/28/2 008 NEW MA IL ADDRESS
  31    I CHPGPT= 1 S CHEOB( "HDR1",5,0 )="PO BOX  469064"  ; AEB DEV005 660 10/28/ 2008 NEW M AIL ADDRES S
  32    I CHPGPT= 2 S CHEOB( "HDR1",5,0 )="PO BOX  469062"  ; AEB DEV005 660 10/28/ 2008 NEW M AIL ADDRES S
  33    I CHPGPT= 3 S CHEOB( "HDR1",5,0 )="PO BOX  469061"  ; AEB DEV005 660 10/28/ 2008 NEW M AIL ADDRES S
  34    I CHPGPT= 4 S CHEOB( "HDR1",5,0 )="PO BOX  469064"  ; AEB DEV005 660 10/28/ 2008 NEW M AIL ADDRES S
  35    I CHPGPT= 5 S CHEOB( "HDR1",5,0 )="PO BOX  65027"
  36    I CHPGPT= 6 S CHEOB( "HDR1",5,0 )="PO BOX  469065"  ; AEB DEV005 660 10/28/ 2008 NEW M AIL ADDRES S
  37    I CHPGPT= 7 S CHEOB( "HDR1",5,0 )="PO BOX  469065"  ; ;AEB DEV00 5660 10/28 /2008 NEW  MAIL ADDRE SS
  38   H2 S CHEOB ("HDR1",5, 65)="your  claim.  Pa yment if i ndicated,  will be ma iled separ ately."
  39    I '$D(CHP GPT) S CHE OB("HDR1", 6,0)="DENV ER, CO  80 246-9064"  G H3  ;AEB  DEV005660  10/28/200 8 NEW MAIL  ADDRESS
  40    I CHPGPT= 1 S CHEOB( "HDR1",6,0 )="DENVER,  CO  80246 -9064"  ;A EB DEV0056 60 10/28/2 008 NEW MA IL ADDRESS
  41    I CHPGPT= 2 S CHEOB( "HDR1",6,0 )="DENVER,  CO  80246 -9062"  ;A EB DEV0056 60 10/28/2 008 NEW MA IL ADDRESS
  42    I CHPGPT= 3 S CHEOB( "HDR1",6,0 )="DENVER,  CO  80246 -9061"  ;A EB DEV0056 60 10/28/2 008 NEW MA IL ADDRESS
  43    I CHPGPT= 4 S CHEOB( "HDR1",6,0 )="DENVER,  CO  80246 -9064"  ;A EB DEV0056 60 10/28/2 008 NEW MA IL ADDRESS
  44    I CHPGPT= 5 S CHEOB( "HDR1",6,0 )="DENVER,  CO  80206 -9027"
  45    I CHPGPT= 6 S CHEOB( "HDR1",6,0 )="DENVER,  CO  80246 -9065"  ;A EB DEV0056 60 10/28/2 008 NEW MA IL ADDRESS
  46    I CHPGPT= 7 S CHEOB( "HDR1",6,0 )="DENVER,  CO  80246 -9065"  ;A EB DEV0056 60 10/28/2 008 NEW MA IL ADDRESS
  47   H3 S CHEOB ("HDR1",6, 65)="Appea ls must be  submitted  in writin g to HAC,"   ;TLH 8/1 8/06 CHANG ED PROJECT  1511
  48    S CHEOB(" HDR1",7,0) ="1-800-73 3-8387  WW W.VA.GOV/H AC"  ;TLH  7/21/06 PR OJECT 1511
  49    I CHPGPT= 6 S CHEOB( "HDR1",7,0 )="1-888-8 20-1756  W WW.VA.GOV/ HAC "  ;TL H 8/18/06  ADDED PROJ ECT 1511
  50    ;S CHEOB( "HDR1",7,6 5)="ATTN:  Appeals, P O BOX 6502 3, Denver  CO 80206-9 023."
  51    I '$D(CHP GPT) S CHE OB("HDR1", 7,65)="ATT N: Appeals , PO BOX 4 60948, Den ver CO 802 46." G H4   ;TLH PROJ ECT 1511 0 7/21/06
  52    I CHPGPT= 1 S CHEOB( "HDR1",7,6 5)="ATTN:  Appeals, P O BOX 4609 48, Denver  CO 80246. "  ;TLH PR OJECT 1511  07/21/06
  53    I CHPGPT= 2 S CHEOB( "HDR1",7,6 5)="ATTN:  Appeals, P O BOX 4609 48, Denver  CO 80246. "  ;TLH PR OJECT 1511  07/21/06
  54    I CHPGPT= 3 S CHEOB( "HDR1",7,6 5)="ATTN:  Appeals, P O BOX 4609 48, Denver  CO 80206. "  ;TLH 8/ 3/06 PROJE CT 1511
  55    I CHPGPT= 4 S CHEOB( "HDR1",7,6 5)="ATTN:  Appeals, P O BOX 4609 48, Denver  CO 80246. "  ;TLH PR OJECT 1511  07/21/06
  56    I CHPGPT= 5 S CHEOB( "HDR1",7,6 5)="ATTN:  Appeals, P O BOX 4609 48, Denver  CO 80246. "  ;TLH 8/ 3/06 PROJE CT 1511
  57    I CHPGPT= 6 S CHEOB( "HDR1",7,6 5)="ATTN:  Appeals, P O BOX 4609 48, Denver  CO 80246. "  ;TLH 8/ 3/06 PROJE CT 1511
  58    I CHPGPT= 7 S CHEOB( "HDR1",7,6 5)="ATTN:  Appeals, P O BOX 4609 48, Denver  CO 80246. "  ;TLH 8/ 3/06 PROJE CT 1511
  59    ;
  60   H4 F Y=1:1 :3 S CHEOB ("HDR2",Y, 0)=""
  61    ;S:CHPGPT <5 CHEOB(" HDR2",1,75 )="PATIENT :"
  62    S CHEOB(" HDR2",1,75 )="PATIENT :"
  63    S CHEOB(" HDR2",1,10 5)="DATE:"   
  64    S CHEOB(" HDR2",2,75 )="MEMBER  #:"  ;TLH  8/18/06 CH ANGED PROJ ECT 1511
  65    ;I CHPGPT =6 S CHEOB ("HDR2",2, 75)="MEMBE R #:"  ;AD DED TLH 8/ 21/06 PROJ ECT 1511 F OR SB 
  66    ;I CHPGPT >2 S CHEOB ("HDR2",2, 75)=""  ;T LH 7/21/06  PROJECT 1 511
  67    S:CHPGPT' =5 CHEOB(" HDR2",2,10 5)=""  ;TL H 7/21/06  PROJECT 15 11
  68    ;S:CHPGPT <5 CHEOB(" HDR2",3,10 5)=""  ;TL H 7/21/06  PROJECT 15 11   ;JEH  10/5/06 TT  609 - COM MENTED OUT  ';'
  69    S:CHPGPT< 6 CHEOB("H DR2",2,105 )="DOB:"   ;TLH 7/21/ 06 PROJECT  1511   ;J EH 10/5/06  TT 609 -  ADDED 'DOB :'  tlh 11 /13/2006
  70    ;
  71    F Y=1:1:7  S CHEOB(" HDR3",Y,0) =""
  72    S CHEOB(" HDR3",3,99 )=" "
  73    S CHEOB(" HDR3",3,11 9)=" "
  74    S CHEOB(" HDR3",4,90 )=" "
  75    S CHEOB(" HDR3",4,94 )=" "
  76    S CHEOB(" HDR3",4,10 9)=" "
  77    S CHEOB(" HDR3",4,11 9)=" "
  78    I CHPGPT' >2 D
  79    .S CHEOB( "HDR3",3,9 9)="DEDUCT IBLE"
  80    .S CHEOB( "HDR3",3,1 19)="CAT C AP"
  81    .S CHEOB( "HDR3",4,9 0)="YR"
  82    .S CHEOB( "HDR3",4,9 4)="INDIV"
  83    .S CHEOB( "HDR3",4,1 09)="FAM"
  84    .S CHEOB( "HDR3",4,1 19)="ACCRU AL"
  85    ;
  86    F Y=1:1:4  S CHEOB(" HDR4",Y,0) =""
  87    I $D(CHIN FO),+CHINF O D
  88    .S STR="I nformation  only, no  check encl osed.",TCH CI=0
  89    .I $D(CHT MPI) S TCH CI=CHTMPI  G H41
  90    .I '$D(CH CLMI) S CH CLMI=CLNM
  91    .S TCHCI= $O(@(GLPAY _"""B"",CH CLMI,TCHCI )"))
  92   H41 .I TCH CI="" S CH EOB("HDR4" ,.5,0)=STR  Q
  93    .I $D(@(G LPAY_"TCHC I,7)")) I  $P(@(GLPAY _"TCHCI,7) "),"^",7)' ="" S STR= "If paymen t INDICATE D, made vi a EFT."
  94    .;I $D(@( GLPAY_"CHC LMI,7)"))  I $P(@(GLP AY_"CHCLMI ,7)"),"^", 7)'="" S S TR="If pay ment INDIC ATED, made  via EFT."
  95    .S CHEOB( "HDR4",.5, 0)=STR
  96    .K TCHCI
  97    S CHEOB(" HDR4",1,0) =CHSINL
  98    S CHEOB(" HDR4",2,0) ="CONTROL"
  99    ;S:(PROVF L&(CHPGPT> 4)) CHEOB( "HDR4",2,1 3)="PATIEN T NAME"    tlh 11/13/ 2006
  100    S CHEOB(" HDR4",2,34 )="DATES O F SERVICE"
  101    S CHEOB(" HDR4",2,54 )="DESCRIP TION OF SE RVICE"
  102    S CHEOB(" HDR4",2,88 )="AMT"
  103    S CHEOB(" HDR4",2,10 0)="AMT"
  104    S CHEOB(" HDR4",2,10 8)="AMT NO T"
  105    S CHEOB(" HDR4",2,11 7)="REMARK S/"
  106    S CHEOB(" HDR4",3,0) ="NUMBER"
  107    S:'PROVFL  CHEOB("HD R4",3,13)= "PROVIDER"    ;tlh 11 /13/2006
  108    ;S:(PROVF L&(CHPGPT> 4)) CHEOB( "HDR4",3,1 3)="SSN #"   tlh 11/1 3/2006
  109    S CHEOB(" HDR4",3,34 )="FROM"
  110    S CHEOB(" HDR4",3,44 )="TO"
  111    S CHEOB(" HDR4",3,54 )="CODE/MO DIFIER/MUL TIPLIER"
  112    S CHEOB(" HDR4",3,85 )="BILLED"
  113    S CHEOB(" HDR4",3,96 )="ALLOWED "
  114    S CHEOB(" HDR4",3,10 8)="COVERE D"
  115    S CHEOB(" HDR4",3,11 7)="CODES"
  116    S CHEOB(" HDR4",4,0) =CHSINL
  117    ;
  118    F Y=1:1:2  S CHEOB(" FTR1",Y,0) =""
  119    I CHPGPT' >2 S CHEOB ("FTR1",1, 0)="ABBREV IATIONS:   OHI = OTHE R HEALTH I NSURANCE"
  120    S CHEOB(" FTR1",2,0) ="VA FORM  10-7959B J UL 2006    "  ;TLH 07 /21/06 PRO JECT 1511
  121    ;
  122    F Y=1:1:2  S CHEOB(" FTR2",Y,0) =""
  123    S CHEOB(" FTR2",1,0) =CHDUBL
  124    ;
  125    Q
  126    ;
        127   TT