source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCAEOB.m@ 1006

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

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1RCAEOB ;ALB/CMS - AEOB FILE 433 CROSS-REF ROUTINE ; 16-JUN-00
2V ;;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 ;
6AEOB ;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)=""
17AEOBQ Q
18 ;
19SND ;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)
40SNDQ Q
41 ;RCAEOB
Note: See TracBrowser for help on using the repository browser.