source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCF14.m@ 949

Last change on this file since 949 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
RevLine 
[613]1IBCF14 ;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
Note: See TracBrowser for help on using the repository browser.