| [613] | 1 | IBCEOB3 ;ALB/TMP - 835 EDI EOB BULLETINS ;18-FEB-99
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**137**;21-MAR-94
|
|---|
| 3 | Q
|
|---|
| 4 | ;
|
|---|
| 5 | CHGBULL(IBEOB,IBBULL) ; Send bulletin that name and/or id number for insured
|
|---|
| 6 | ; has been reported changed via EDI
|
|---|
| 7 | ; IBEOB = the internal entry # of the entry in file 361.1
|
|---|
| 8 | ; IBBULL = the flag that has 2 '^' pieces that indicate whether there
|
|---|
| 9 | ; was a name change ('^' piece 1 = 1) or an ID # change ('^'
|
|---|
| 10 | ; piece 2 = 1)
|
|---|
| 11 | ;
|
|---|
| 12 | N XMBODY,XMSUBJ,XMTO,XMDUZ,IB0,IBT
|
|---|
| 13 | Q:'$TR($P($G(IBBULL),U,1,2),U)
|
|---|
| 14 | S IB0=$G(^IBM(361.1,+IBEOB,0))
|
|---|
| 15 | S XMTO("I:G.IB EDI")="",XMBODY="IBT"
|
|---|
| 16 | S IBT(1)="An EOB for Bill # "_$$EXTERNAL^DILFD(399,.01,,+IB0)_" (COB sequence: "_$$EXTERNAL^DILFD(361.1,.15,,$P(IB0,U,15))_") has indicated the following changes:"
|
|---|
| 17 | S IBT(2)=" "
|
|---|
| 18 | S Z=2
|
|---|
| 19 | I $P(IBBULL,U) S Z=Z+1,IBT=" INSURED'S NAME CHANGED FROM: "_$P(IBBULL,U,3)_" to "_$P(IBBULL,U,4),Z=Z+1,IBT(Z)=$J("",10)_"(Only the claim has been updated with the new name)"
|
|---|
| 20 | I $P(IBBULL,U,2) S Z=Z+1,IBT=" INSURED'S ID # CHANGED FROM: "_$P(IBBULL,U,5)_" to "_$P(IBBULL,U,6),Z=Z+1,IBT(Z)=$J("",10)_"(Both claim and policy have been updated with the new id)"
|
|---|
| 21 | S XMSUBJ="INSURED'S "_$S(IBBULL:"NAME ",1:"")_$S($P(IBBULL,U,2):$S(IBBULL:"AND ",1:"")_"ID ",1:"")_"CHANGE INDICATED ON EOB"
|
|---|
| 22 | S XMDUZ=""
|
|---|
| 23 | D SENDMSG^XMXAPI(XMDUZ,XMSUBJ,XMBODY,.XMTO,,.XMZ)
|
|---|
| 24 | Q
|
|---|
| 25 | ;
|
|---|
| 26 | COBBULL(IBEOB) ; Send bulletin that COB may be pending on processing an EOB
|
|---|
| 27 | ; IBEOB = the internal entry # of the entry in file 361.1
|
|---|
| 28 | ;
|
|---|
| 29 | N IBBILL,IB0,IBT,XMBODY,XMSUBJ,XMTO,XMDUZ
|
|---|
| 30 | S XMTO("I:G.IB EDI")="",XMBODY="IBT"
|
|---|
| 31 | S IB0=$G(^IBM(361.1,+IBEOB,0))
|
|---|
| 32 | S IBBILL=$$BN^PRCAFN(+IB0)
|
|---|
| 33 | Q:IB0=""
|
|---|
| 34 | S IBT(1)=" BILL NUMBER: "_IBBILL
|
|---|
| 35 | S IBT(2)="CURRENT COB SEQUENCE: "_$$EXTERNAL^DILFD(361.1,.15,,$P(IB0,U,15))
|
|---|
| 36 | S IBT(3)=" EOB DATE: "_$$FMTE^XLFDT($P(IB0,U,5),2)
|
|---|
| 37 | S IBT(4)=" "
|
|---|
| 38 | S IBT(5)="There is subsequent insurance and the balance on the bill is > 0."
|
|---|
| 39 | S IBT(6)="COB processing is needed to collect from this bill's next payer."
|
|---|
| 40 | S XMSUBJ="FINAL EOB RECEIVED-"_IBBILL
|
|---|
| 41 | S XMDUZ=""
|
|---|
| 42 | D SENDMSG^XMXAPI(XMDUZ,XMSUBJ,XMBODY,.XMTO,,.XMZ)
|
|---|
| 43 | Q
|
|---|
| 44 | ;
|
|---|
