| 1 | IBCBB0 ;ALB/ESG - IB edit check routine continuation ;12-Mar-2008
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**377**;21-MAR-94;Build 23
|
|---|
| 3 | ;;Per VHA Directive 2004-038, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | Q
|
|---|
| 6 | ;
|
|---|
| 7 | PAYERADD(IBIFN) ; check to make sure payer address is present for all payers on the claim
|
|---|
| 8 | ; Address line 1, city, state, and zip must be present for all non-Medicare payers on the claim
|
|---|
| 9 | ;
|
|---|
| 10 | NEW IBZ,OK,Z,IBL,N,SEQ,ADDR,IBXDATA,IBXSAVE,IBXARRAY,IBXARRY,IBXERR
|
|---|
| 11 | ;
|
|---|
| 12 | ; check current payer address if not Medicare
|
|---|
| 13 | I '$$WNRBILL^IBEFUNC(IBIFN) D
|
|---|
| 14 | . D F^IBCEF("N-CURR INS CO FULL ADDRESS","IBZ",,IBIFN)
|
|---|
| 15 | . S OK=1
|
|---|
| 16 | . F Z=1,4,5,6 I $G(IBZ(Z))="" S OK=0 Q
|
|---|
| 17 | . I 'OK S IBER=IBER_"IB172;"
|
|---|
| 18 | . Q
|
|---|
| 19 | ;
|
|---|
| 20 | ; check other payer addresses if they exist
|
|---|
| 21 | D F^IBCEF("N-OTH INSURANCE SEQUENCE","IBL",,IBIFN) ; other payer sequence array
|
|---|
| 22 | I '$O(IBXSAVE(1,0)) G PAYERAX ; no other payers on claim
|
|---|
| 23 | S N=0 F S N=$O(IBXSAVE(1,N)) Q:'N D
|
|---|
| 24 | . S SEQ=IBXSAVE(1,N) ; other payer sequence letter
|
|---|
| 25 | . I $$WNRBILL^IBEFUNC(IBIFN,SEQ) Q ; ignore Medicare addresses
|
|---|
| 26 | . S ADDR=$$ADD^IBCNADD(IBIFN,SEQ) ; other payer address string
|
|---|
| 27 | . S OK=1
|
|---|
| 28 | . F Z=1,4,5,6 I $P(ADDR,U,Z)="" S OK=0 Q
|
|---|
| 29 | . I 'OK S IBER=IBER_"IB173;"
|
|---|
| 30 | . Q
|
|---|
| 31 | ;
|
|---|
| 32 | PAYERAX ;
|
|---|
| 33 | Q
|
|---|
| 34 | ;
|
|---|
