| 1 | IBCNSC0 ;ALB/NLR - INSURANCE COMPANY EDIT - ;12-MAR-1993
|
|---|
| 2 | ;;2.0; INTEGRATED BILLING ;**371**; 21-MAR-94;Build 57
|
|---|
| 3 | ;;Per VHA Directive 2004-038, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | CLAIMS1 ; display Inpatient Claims information
|
|---|
| 6 | N OFFSET,START,IBCNS12,IBADD
|
|---|
| 7 | S START=27,OFFSET=2
|
|---|
| 8 | D SET^IBCNSP(START,OFFSET+20," Inpatient Claims Office Information ",IORVON,IORVOFF)
|
|---|
| 9 | S IBCNS12=$$ADDRESS(IBCNS,.12,5)
|
|---|
| 10 | D SET^IBCNSP(START+1,OFFSET," Company Name: "_$P($G(^DIC(36,+$P(IBCNS12,"^",7),0)),"^",1))
|
|---|
| 11 | D SET^IBCNSP(START+2,OFFSET," Street: "_$P(IBCNS12,"^",1))
|
|---|
| 12 | D SET^IBCNSP(START+3,OFFSET," Street 2: "_$P(IBCNS12,"^",2))
|
|---|
| 13 | N OFFSET S OFFSET=45
|
|---|
| 14 | D SET^IBCNSP(START+1,OFFSET," Street 3: "_$P(IBCNS12,"^",3)) S IBADD=1
|
|---|
| 15 | D SET^IBCNSP(START+1+IBADD,OFFSET," City/State: "_$E($P(IBCNS12,"^",4),1,15)_$S($P(IBCNS12,"^",4)="":"",1:", ")_$P($G(^DIC(5,+$P(IBCNS12,"^",5),0)),"^",2)_" "_$E($P(IBCNS12,"^",6),1,5))
|
|---|
| 16 | D SET^IBCNSP(START+2+IBADD,OFFSET," Phone: "_$P(IBCNS12,"^",8))
|
|---|
| 17 | D SET^IBCNSP(START+3+IBADD,OFFSET," Fax: "_$P(IBCNS12,"^",9))
|
|---|
| 18 | Q
|
|---|
| 19 | ;
|
|---|
| 20 | R1Q Q
|
|---|
| 21 | CLAIMS2 ; display Outpatient Claims information
|
|---|
| 22 | ;
|
|---|
| 23 | N OFFSET,START,IBCNS16,IBADD
|
|---|
| 24 | S START=34,OFFSET=2
|
|---|
| 25 | D SET^IBCNSP(START,OFFSET+20," Outpatient Claims Office Information ",IORVON,IORVOFF)
|
|---|
| 26 | S IBCNS16=$$ADDRESS(IBCNS,.16,6)
|
|---|
| 27 | D SET^IBCNSP(START+1,OFFSET," Company Name: "_$P($G(^DIC(36,+$P(IBCNS16,"^",7),0)),"^",1))
|
|---|
| 28 | D SET^IBCNSP(START+2,OFFSET," Street: "_$P(IBCNS16,"^",1))
|
|---|
| 29 | D SET^IBCNSP(START+3,OFFSET," Street 2: "_$P(IBCNS16,"^",2))
|
|---|
| 30 | N OFFSET S OFFSET=45
|
|---|
| 31 | D SET^IBCNSP(START+1,OFFSET," Street 3: "_$P(IBCNS16,"^",3)) S IBADD=1
|
|---|
| 32 | D SET^IBCNSP(START+1+IBADD,OFFSET," City/State: "_$E($P(IBCNS16,"^",4),1,15)_$S($P(IBCNS16,"^",4)="":"",1:", ")_$P($G(^DIC(5,+$P(IBCNS16,"^",5),0)),"^",2)_" "_$E($P(IBCNS16,"^",6),1,5))
|
|---|
| 33 | D SET^IBCNSP(START+2+IBADD,OFFSET," Phone: "_$P(IBCNS16,"^",8))
|
|---|
| 34 | D SET^IBCNSP(START+3+IBADD,OFFSET," Fax: "_$P(IBCNS16,"^",9))
|
|---|
| 35 | Q
|
|---|
| 36 | ;
|
|---|
| 37 | ADDRESS(INS,NODE,PH) ; -- generic find address
|
|---|
| 38 | ;
|
|---|
| 39 | N IBX,INSSAVE,IBPH,IBFX,IBCNT,IBA
|
|---|
| 40 | S IBX="" ;S IBPH="",IBFX="",IBA=""
|
|---|
| 41 | ;
|
|---|
| 42 | REDO ; gather insurance carrier's main address information
|
|---|
| 43 | S IBX=$G(^DIC(36,+INS,.11)),IBPH=$P($G(^DIC(36,+INS,.13)),"^",1),IBFX=$P(IBX,"^",9)
|
|---|
| 44 | ;S IBCNT=$G(IBCNT)+1
|
|---|
| 45 | ;
|
|---|
| 46 | ; -- if process the same co. more than once you are in an infinite loop
|
|---|
| 47 | ;I $D(IBCNT(IBCNS)) G ADDREQ
|
|---|
| 48 | ;S IBCNT(IBCNS)=""
|
|---|
| 49 | ;
|
|---|
| 50 | ; -- gather address information from specific office (Claims, Appeals, Inquiry)
|
|---|
| 51 | ;
|
|---|
| 52 | I $P($G(^DIC(36,+INS,+NODE)),"^",5) S IBX=$G(^DIC(36,+INS,+NODE)),IBPH=$P($G(^DIC(36,+INS,.13)),"^",PH),IBFX=$P($G(IBX),"^",9)
|
|---|
| 53 | I $P($G(^DIC(36,+INS,+NODE)),"^",7) S INSSAVE=INS,INS=$P($G(^DIC(36,+INS,+NODE)),"^",7) I INSSAVE'=INS G REDO
|
|---|
| 54 | ;
|
|---|
| 55 | ADDRESQ ; concatenate company name, address, phone and fax
|
|---|
| 56 | S $P(IBA,"^",1,6)=$P($G(IBX),"^",1,6)
|
|---|
| 57 | S $P(IBA,"^",7)=INS
|
|---|
| 58 | S $P(IBA,"^",8)=IBPH
|
|---|
| 59 | S $P(IBA,"^",9)=IBFX
|
|---|
| 60 | ADDREQ Q IBA
|
|---|
