IBCF14 ;ALB/AAS - PRINT BILL CONT. (PRINT STATEMENTS) ; 5-FEB-92
;;Version 2.0 ; INTEGRATED BILLING ;**4**; 21-MAR-94
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
;MAP TO DGCRP4
;
% ;Add statements to bottom of first page of UB-82.
Q:'DGSM
S DGNUMLIN=$S(DGSM=1:5,DGSM=2:2,DGSM=3:8)
I DGSM=1!(DGSM=3) D
.S ^UTILITY($J,"IB-RC",24-DGNUMLIN)="For your information, even though the patient may be otherwise eligible",DGNUMLIN=DGNUMLIN-1
.S ^UTILITY($J,"IB-RC",24-DGNUMLIN)="for Medicare, no payment may be made under Medicare to any Federal provider",DGNUMLIN=DGNUMLIN-1
.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
.S ^UTILITY($J,"IB-RC",24-DGNUMLIN)="Please make your check payable to the Department of Veterans Affairs and",DGNUMLIN=DGNUMLIN-1
.S ^UTILITY($J,"IB-RC",24-DGNUMLIN)="send to the address listed above.",DGNUMLIN=DGNUMLIN-1
.I DGSM=3 S ^UTILITY($J,"IB-RC",24-DGNUMLIN)="",DGNUMLIN=DGNUMLIN-1
.Q
I DGSM>1 D
.S ^UTILITY($J,"IB-RC",24-DGNUMLIN)="The undersigned certifies that treatment rendered is not for a",DGNUMLIN=DGNUMLIN-1
.S ^UTILITY($J,"IB-RC",24-DGNUMLIN)="service connected disability.",DGNUMLIN=DGNUMLIN-1
.Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCF14 1287 printed Dec 13, 2024@02:12:48 Page 2
IBCF14 ;ALB/AAS - PRINT BILL CONT. (PRINT STATEMENTS) ; 5-FEB-92
+1 ;;Version 2.0 ; INTEGRATED BILLING ;**4**; 21-MAR-94
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;
+4 ;MAP TO DGCRP4
+5 ;
% ;Add statements to bottom of first page of UB-82.
+1 if 'DGSM
QUIT
+2 SET DGNUMLIN=$SELECT(DGSM=1:5,DGSM=2:2,DGSM=3:8)
+3 IF DGSM=1!(DGSM=3)
Begin DoDot:1
+4 SET ^UTILITY($JOB,"IB-RC",24-DGNUMLIN)="For your information, even though the patient may be otherwise eligible"
SET DGNUMLIN=DGNUMLIN-1
+5 SET ^UTILITY($JOB,"IB-RC",24-DGNUMLIN)="for Medicare, no payment may be made under Medicare to any Federal provider"
SET DGNUMLIN=DGNUMLIN-1
+6 SET ^UTILITY($JOB,"IB-RC",24-DGNUMLIN)="of medical care or services and may not be used as a reason for non-payment."
SET DGNUMLIN=DGNUMLIN-1
+7 SET ^UTILITY($JOB,"IB-RC",24-DGNUMLIN)="Please make your check payable to the Department of Veterans Affairs and"
SET DGNUMLIN=DGNUMLIN-1
+8 SET ^UTILITY($JOB,"IB-RC",24-DGNUMLIN)="send to the address listed above."
SET DGNUMLIN=DGNUMLIN-1
+9 IF DGSM=3
SET ^UTILITY($JOB,"IB-RC",24-DGNUMLIN)=""
SET DGNUMLIN=DGNUMLIN-1
+10 QUIT
End DoDot:1
+11 IF DGSM>1
Begin DoDot:1
+12 SET ^UTILITY($JOB,"IB-RC",24-DGNUMLIN)="The undersigned certifies that treatment rendered is not for a"
SET DGNUMLIN=DGNUMLIN-1
+13 SET ^UTILITY($JOB,"IB-RC",24-DGNUMLIN)="service connected disability."
SET DGNUMLIN=DGNUMLIN-1
+14 QUIT
End DoDot:1
+15 QUIT
