source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCF34.m@ 724

Last change on this file since 724 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.6 KB
Line 
1IBCF34 ;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 ;
6EN ;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
Note: See TracBrowser for help on using the repository browser.