[613] | 1 | IBCF14 ;ALB/AAS - PRINT BILL CONT. (PRINT STATEMENTS) ; 5-FEB-92
|
---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;**4**; 21-MAR-94
|
---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
---|
| 4 | ;
|
---|
| 5 | ;MAP TO DGCRP4
|
---|
| 6 | ;
|
---|
| 7 | % ;Add statements to bottom of first page of UB-82.
|
---|
| 8 | Q:'DGSM
|
---|
| 9 | S DGNUMLIN=$S(DGSM=1:5,DGSM=2:2,DGSM=3:8)
|
---|
| 10 | I DGSM=1!(DGSM=3) D
|
---|
| 11 | .S ^UTILITY($J,"IB-RC",24-DGNUMLIN)="For your information, even though the patient may be otherwise eligible",DGNUMLIN=DGNUMLIN-1
|
---|
| 12 | .S ^UTILITY($J,"IB-RC",24-DGNUMLIN)="for Medicare, no payment may be made under Medicare to any Federal provider",DGNUMLIN=DGNUMLIN-1
|
---|
| 13 | .S ^UTILITY($J,"IB-RC",24-DGNUMLIN)="of medical care or services and may not be used as a reason for non-payment.",DGNUMLIN=DGNUMLIN-1
|
---|
| 14 | .S ^UTILITY($J,"IB-RC",24-DGNUMLIN)="Please make your check payable to the Department of Veterans Affairs and",DGNUMLIN=DGNUMLIN-1
|
---|
| 15 | .S ^UTILITY($J,"IB-RC",24-DGNUMLIN)="send to the address listed above.",DGNUMLIN=DGNUMLIN-1
|
---|
| 16 | .I DGSM=3 S ^UTILITY($J,"IB-RC",24-DGNUMLIN)="",DGNUMLIN=DGNUMLIN-1
|
---|
| 17 | .Q
|
---|
| 18 | I DGSM>1 D
|
---|
| 19 | .S ^UTILITY($J,"IB-RC",24-DGNUMLIN)="The undersigned certifies that treatment rendered is not for a",DGNUMLIN=DGNUMLIN-1
|
---|
| 20 | .S ^UTILITY($J,"IB-RC",24-DGNUMLIN)="service connected disability.",DGNUMLIN=DGNUMLIN-1
|
---|
| 21 | .Q
|
---|
| 22 | Q
|
---|