Routine: IBCEOB3

IBCEOB3 ;ALB/TMP - 835 EDI EOB BULLETINS ;18-FEB-99

 ;;2.0;INTEGRATED BILLING;**137**;21-MAR-94

CHGBULL(IBEOB,IBBULL) ; Send bulletin that name and/or id number for insured

 ;  has been reported changed via EDI

 ; IBEOB = the internal entry # of the entry in file 361.1

 ; IBBULL = the flag that has 2 '^' pieces that indicate whether there

 ;          was a name change ('^' piece 1 = 1) or an ID # change ('^'

 ;          piece 2 = 1)

 N XMBODY,XMSUBJ,XMTO,XMDUZ,IB0,IBT

 Q:'$TR($P($G(IBBULL),U,1,2),U)

 S IB0=$G(^IBM(361.1,+IBEOB,0))

 S XMTO("I:G.IB EDI")="",XMBODY="IBT"

 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:"

 S IBT(2)=" "

 S Z=2

 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)"

 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)"

 S XMSUBJ="INSURED'S "_$S(IBBULL:"NAME ",1:"")_$S($P(IBBULL,U,2):$S(IBBULL:"AND ",1:"")_"ID ",1:"")_"CHANGE INDICATED ON EOB"

 S XMDUZ=""

 D SENDMSG^XMXAPI(XMDUZ,XMSUBJ,XMBODY,.XMTO,,.XMZ)

COBBULL(IBEOB) ; Send bulletin that COB may be pending on processing an EOB

 ; IBEOB = the internal entry # of the entry in file 361.1

 N IBBILL,IB0,IBT,XMBODY,XMSUBJ,XMTO,XMDUZ

 S XMTO("I:G.IB EDI")="",XMBODY="IBT"

 S IB0=$G(^IBM(361.1,+IBEOB,0))

 S IBBILL=$$BN^PRCAFN(+IB0)

 Q:IB0=""

 S IBT(1)="         BILL NUMBER: "_IBBILL

 S IBT(2)="CURRENT COB SEQUENCE: "_$$EXTERNAL^DILFD(361.1,.15,,$P(IB0,U,15))

 S IBT(3)="            EOB DATE: "_$$FMTE^XLFDT($P(IB0,U,5),2)

 S IBT(4)=" "

 S IBT(5)="There is subsequent insurance and the balance on the bill is > 0."

 S IBT(6)="COB processing is needed to collect from this bill's next payer."

 S XMSUBJ="FINAL EOB RECEIVED-"_IBBILL

 S XMDUZ=""

 D SENDMSG^XMXAPI(XMDUZ,XMSUBJ,XMBODY,.XMTO,,.XMZ)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCEOB3   2117     printed  Mar 13, 2025@21:16:14                                                                                                                                                                                                     Page 2

IBCEOB3   ;ALB/TMP - 835 EDI EOB BULLETINS ;18-FEB-99

 +1       ;;2.0;INTEGRATED BILLING;**137**;21-MAR-94

 +2        QUIT

 +3       ;

CHGBULL(IBEOB,IBBULL) ; Send bulletin that name and/or id number for insured

 +1       ;  has been reported changed via EDI

 +2       ; IBEOB = the internal entry # of the entry in file 361.1

 +3       ; IBBULL = the flag that has 2 '^' pieces that indicate whether there

 +4       ;          was a name change ('^' piece 1 = 1) or an ID # change ('^'

 +5       ;          piece 2 = 1)

 +6       ;

 +7        NEW XMBODY,XMSUBJ,XMTO,XMDUZ,IB0,IBT

 +8        if '$TRANSLATE($PIECE($GET(IBBULL),U,1,2),U)

               QUIT

 +9        SET IB0=$GET(^IBM(361.1,+IBEOB,0))

 +10       SET XMTO("I:G.IB EDI")=""

           SET XMBODY="IBT"

 +11       SET IBT(1)="An EOB for Bill # "_$$EXTERNAL^DILFD(399,.01,,+IB0)_" (COB sequence: "_$$EXTERNAL^DILFD(361.1,.15,,$PIECE(IB0,U,15))_") has indicated the following changes:"

 +12       SET IBT(2)=" "

 +13       SET Z=2

 +14       IF $PIECE(IBBULL,U)

               SET Z=Z+1

               SET IBT="  INSURED'S NAME CHANGED FROM: "_$PIECE(IBBULL,U,3)_" to "_$PIECE(IBBULL,U,4)

               SET Z=Z+1

               SET IBT(Z)=$JUSTIFY("",10)_"(Only the claim has been updated with the new name)"

 +15       IF $PIECE(IBBULL,U,2)

               SET Z=Z+1

               SET IBT="  INSURED'S ID # CHANGED FROM: "_$PIECE(IBBULL,U,5)_" to "_$PIECE(IBBULL,U,6)

               SET Z=Z+1

               SET IBT(Z)=$JUSTIFY("",10)_"(Both claim and policy have been updated with the new id)"

 +16       SET XMSUBJ="INSURED'S "_$SELECT(IBBULL:"NAME ",1:"")_$SELECT($PIECE(IBBULL,U,2):$SELECT(IBBULL:"AND ",1:"")_"ID ",1:"")_"CHANGE INDICATED ON EOB"

 +17       SET XMDUZ=""

 +18       DO SENDMSG^XMXAPI(XMDUZ,XMSUBJ,XMBODY,.XMTO,,.XMZ)

 +19       QUIT

 +20      ;

COBBULL(IBEOB) ; Send bulletin that COB may be pending on processing an EOB

 +1       ; IBEOB = the internal entry # of the entry in file 361.1

 +2       ;

 +3        NEW IBBILL,IB0,IBT,XMBODY,XMSUBJ,XMTO,XMDUZ

 +4        SET XMTO("I:G.IB EDI")=""

           SET XMBODY="IBT"

 +5        SET IB0=$GET(^IBM(361.1,+IBEOB,0))

 +6        SET IBBILL=$$BN^PRCAFN(+IB0)

 +7        if IB0=""

               QUIT

 +8        SET IBT(1)="         BILL NUMBER: "_IBBILL

 +9        SET IBT(2)="CURRENT COB SEQUENCE: "_$$EXTERNAL^DILFD(361.1,.15,,$PIECE(IB0,U,15))

 +10       SET IBT(3)="            EOB DATE: "_$$FMTE^XLFDT($PIECE(IB0,U,5),2)

 +11       SET IBT(4)=" "

 +12       SET IBT(5)="There is subsequent insurance and the balance on the bill is > 0."

 +13       SET IBT(6)="COB processing is needed to collect from this bill's next payer."

 +14       SET XMSUBJ="FINAL EOB RECEIVED-"_IBBILL

 +15       SET XMDUZ=""

 +16       DO SENDMSG^XMXAPI(XMDUZ,XMSUBJ,XMBODY,.XMTO,,.XMZ)

 +17       QUIT

 +18      ;

IBCEOB3.m