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