source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCDPEAR.m@ 975

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

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1RCDPEAR ;ALB/TMK - ELECTRONIC ERA AGING REPORTS FROM NIGHTLY JOB ;04-NOV-02
2 ;;4.5;Accounts Receivable;**173**;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 Q
5 ;
6AGERPT ; Entry from nightly job to run the AR EDI Lockbox Aging reports
7 ; Bulletin is not wanted if aging parameter does not have a value
8 ;
9 ; ERA Aging Report (summary only)
10 I $P($G(^RC(342,1,7)),U,3)'="" D ; Check for ERA Aging Parameter
11 . K ^TMP($J,"RCERAAGE")
12 . D RPTOUT^RCDPEAR1(+$P($G(^RC(342,1,7)),U,3),0,"RCERAAGE")
13 . D BULL("EDI LBOX ERA UNMATCHED AGING REPORT FOR "_$$FMTE^XLFDT(DT,2),"RCERAAGE")
14 . K ^TMP($J,"RCERAAGE")
15 ;
16 ; EFT Aging Report (summary only)
17 I $P($G(^RC(342,1,7)),U,2)'="" D ; Check for EFT Aging Parameter
18 . K ^TMP($J,"RCEFTAGE")
19 . D RPTOUT^RCDPEAR2(+$P($G(^RC(342,1,7)),U,2),0,"RCEFTAGE")
20 . D BULL("EDI LBOX EFT UNMATCHED AGING REPORT FOR "_$$FMTE^XLFDT(DT,2),"RCEFTAGE")
21 . K ^TMP($J,"RCEFTAGE")
22 ;
23 Q
24 ;
25BULL(RCSUBJ,RCSUB) ; Send bulletin for aging reports
26 N XMBODY,XMB,XMINSTR,XMTYPE,XMFULL,XMTO,RCXM,XMZ,XMERR
27 S XMTO("I:G.RCDPE PAYMENTS")=""
28 S XMBODY="^TMP("_$J_","""_RCSUB_""")"
29 D
30 . N DUZ S DUZ=.5,DUZ(0)="@"
31 . D SENDMSG^XMXAPI(.5,RCSUBJ,XMBODY,.XMTO,,.XMZ)
32 Q
33 ;
Note: See TracBrowser for help on using the repository browser.