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 Dec 13, 2024@02:13:02 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
