source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCBB0.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 1.3 KB
Line 
1IBCBB0 ;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 ;
7PAYERADD(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 ;
32PAYERAX ;
33 Q
34 ;
Note: See TracBrowser for help on using the repository browser.