source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCEOB3.m@ 1096

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

initial load of WorldVistAEHR

File size: 2.0 KB
Line 
1IBCEOB3 ;ALB/TMP - 835 EDI EOB BULLETINS ;18-FEB-99
2 ;;2.0;INTEGRATED BILLING;**137**;21-MAR-94
3 Q
4 ;
5CHGBULL(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 ;
26COBBULL(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 ;
Note: See TracBrowser for help on using the repository browser.