| 1 | IBCF34 ;ALB/BGA -UB92 HCFA-1450 (set text print) ;13-SEPT-93
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**51**;21-MAR-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | ;
|
|---|
| 6 | EN ;This routine sets the array which will store the message that will
|
|---|
| 7 | ;be displayed on the front page of the bill.
|
|---|
| 8 | ;
|
|---|
| 9 | ; Free text no longer prints in these blocks as of MRA/EDI
|
|---|
| 10 | Q:$G(IBNOCOM) ;No comments on post-EDI bills
|
|---|
| 11 | ; ******** Only used for pre-EDI bills *********
|
|---|
| 12 | N IBSM,IBE,IBX,IBI,IBCNT S (IBCNT,IBSM)=0,IBE=24,IBLINES=23
|
|---|
| 13 | S IBX=$G(^DGCR(399.3,+$P(IBCBILL,U,7),0))
|
|---|
| 14 | I $P(IBCBILL,U,11)="i",$P(IBX,U,8) S IBSM=1,IBCNT=5
|
|---|
| 15 | I $P(IBX,U,9) S IBSM=IBSM+2,IBCNT=IBCNT+2
|
|---|
| 16 | Q:'IBSM S:IBSM=3 IBCNT=IBCNT+1,IBLINES=23-IBCNT
|
|---|
| 17 | % ;Add statements to bottom of first page of UB-92.
|
|---|
| 18 | I IBSM=1!(IBSM=3) D
|
|---|
| 19 | . S ^TMP($J,"IBC-RC",(IBE-IBCNT))="2^For your information, even though the patient may be otherwise eligible",IBCNT=IBCNT-1
|
|---|
| 20 | . S ^TMP($J,"IBC-RC",(IBE-IBCNT))="2^for Medicare, no payment may be made under Medicare to any Federal provider",IBCNT=IBCNT-1
|
|---|
| 21 | . S ^TMP($J,"IBC-RC",(IBE-IBCNT))="2^of medical care or services and may not be used as a reason for non-payment.",IBCNT=IBCNT-1
|
|---|
| 22 | . S ^TMP($J,"IBC-RC",(IBE-IBCNT))="2^Please make your check payable to the Department of Veterans Affairs and",IBCNT=IBCNT-1
|
|---|
| 23 | . S ^TMP($J,"IBC-RC",(IBE-IBCNT))="2^send to the address listed above.",IBCNT=IBCNT-1
|
|---|
| 24 | I IBSM=3 S ^TMP($J,"IBC-RC",(IBE-IBCNT))="2^",IBCNT=IBCNT-1
|
|---|
| 25 | I IBSM>1 D
|
|---|
| 26 | . S ^TMP($J,"IBC-RC",(IBE-IBCNT))="2^The undersigned certifies that treatment rendered is not for a",IBCNT=IBCNT-1
|
|---|
| 27 | . S ^TMP($J,"IBC-RC",(IBE-IBCNT))="2^service connected disability.",IBCNT=IBCNT-1
|
|---|
| 28 | Q
|
|---|
