| [613] | 1 | RCAEOB ;ALB/CMS - AEOB FILE 433 CROSS-REF ROUTINE ; 16-JUN-00
|
|---|
| 2 | V ;;4.5;Accounts Receivable;**63,159**;Mar 20, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | Q
|
|---|
| 5 | ;
|
|---|
| 6 | AEOB ;File 433 Cross-Ref on Transaction Type AEOB
|
|---|
| 7 | ; -used to alert pending EOB processing when Payment in Part
|
|---|
| 8 | ; transaction is created for referred TP bills
|
|---|
| 9 | ; -used to send MM to RC when Payment if Full is made
|
|---|
| 10 | N PRCABN,PRCAEN,RCAT
|
|---|
| 11 | I (X'=2)!($G(DA)<1) G AEOBQ
|
|---|
| 12 | S PRCABN=+$P($G(^PRCA(433,DA,0)),U,2) I 'PRCABN G AEOBQ
|
|---|
| 13 | D RCCAT^RCRCUTL(.RCAT)
|
|---|
| 14 | I '$G(RCAT(+$P($G(^PRCA(430,PRCABN,0)),U,2))) G AEOBQ
|
|---|
| 15 | I '$$REFST^RCRCUTL(PRCABN) G AEOBQ
|
|---|
| 16 | S ^PRCA(433,"AEOB",PRCABN,DA)=""
|
|---|
| 17 | AEOBQ Q
|
|---|
| 18 | ;
|
|---|
| 19 | SND ;Send RC a mail message about Payment in Full
|
|---|
| 20 | N PRCA,RCBDIV,RCWHO,RCXMB,X,XNDUZ,XMDUZ,XMSUB,XMTEXT,XMY,XMZ,Y
|
|---|
| 21 | N RCCOM,RCDOM,RCSITE,RCSUB
|
|---|
| 22 | I $P($G(RCCAT(+$P(^PRCA(430,PRCABN,0),U,2))),U,1)'=1 Q
|
|---|
| 23 | D BNVAR^RCRCUTL(PRCABN)
|
|---|
| 24 | S Y=$G(^PRCA(433,PRCAEN,1))
|
|---|
| 25 | S RCXMB(2,0)=$G(PRCA("BNAME"),"UNK")_U_PRCAEN_U_+$P(Y,U,1)_U_+$P(Y,U,5)
|
|---|
| 26 | S RCSITE=$$SITE^RCMSITE
|
|---|
| 27 | D RCDIV^RCRCDIV(.RCDIV)
|
|---|
| 28 | I $G(RCDIV(0)) S RCBDIV=$$DIV^RCRCDIV(PRCABN)
|
|---|
| 29 | S X=0 F X=$O(RCDIV(X)) Q:'X D
|
|---|
| 30 | .I X=+RCBDIV S RCDOM=$P(RCDIV(X),"^",6)
|
|---|
| 31 | .Q
|
|---|
| 32 | I $G(RCDOM)="" S RCDOM=$$RCDOM^RCRCUTL
|
|---|
| 33 | S XMDUZ=DUZ,(RCSUB,XMSUB)="AR/RC - "_$G(RCSITE,"UNK")_" FULL PAYMENT"
|
|---|
| 34 | S RCWHO=RCDOM,XMY(RCWHO)="",XMY(DUZ)=""
|
|---|
| 35 | S RCXMB(1,0)="$$RC$$FP$"_RCSITE_"$S.RC RC SERV"
|
|---|
| 36 | S RCXMB(3,0)="$$END$1$"
|
|---|
| 37 | S XMTEXT="RCXMB(" D ^XMD
|
|---|
| 38 | S RCCOM="Sent a Payment in Full Information to RC in MM# "_$G(XMZ)
|
|---|
| 39 | I $G(XMZ) D ENT^RCRCXMS(XMZ,RCSUB,RCWHO,RCCOM)
|
|---|
| 40 | SNDQ Q
|
|---|
| 41 | ;RCAEOB
|
|---|
