| 1 | RCDPEAR ;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 | ;
|
|---|
| 6 | AGERPT ; 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 | ;
|
|---|
| 25 | BULL(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 | ;
|
|---|
