IBCF14.m

IBCF14	;ALB/AAS - PRINT BILL CONT. (PRINT STATEMENTS) ; 5-FEB-92

	;;Version 2.0 ; INTEGRATED BILLING ;; 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 disablility.",DGNUMLIN=DGNUMLIN-1

	.Q

	Q

IBCF14    ;ALB/AAS - PRINT BILL CONT. (PRINT STATEMENTS) ; 5-FEB-92

 +1       ;;Version 2.0 ; INTEGRATED BILLING ;; 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 disablility."

                   SET DGNUMLIN=DGNUMLIN-1

 +14               QUIT 

               End DoDot:1

 +15       QUIT