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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 1 | 252 |
Changed | 0 | 0 |
Inserted | 1 | 1 |
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 | 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 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.