Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RCDPEM1

RCDPEM1.m

Go to the documentation of this file.
  1. RCDPEM1 ;ALB/TMK,DWA,PJH - ERA MATCH TO EFT (cont) ; 5/5/11 1:25pm
  1. ;;4.5;Accounts Receivable;**173,269,318,321,380**;Mar 20, 1995;Build 14
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. Q
  1. ;
  1. BULL(RCFILE,RC0,RCER) ; Add the error to the bulletin text array
  1. ; RCFILE = null, 344.3 or 344.31, depending on the file being worked
  1. ; RC0 = the 0-node of the RCFILE entry
  1. ; RCER = the error text to be placed in the bulletin (passed by ref)
  1. ;
  1. N RCHCT,CT,Z
  1. I '$O(^TMP($J,"RCXM",0)) S ^TMP($J,"RCXM",1)="The following exceptions were encountered attempting",^TMP($J,"RCXM",2)="to post EFT deposits OR to match EFT's with ERA's:",^TMP($J,"RCXM",3)=" "
  1. S (RCHCT,CT)=+$O(^TMP($J,"RCXM",""),-1)
  1. S ^TMP($J,"RCXM",0)=$G(^TMP($J,"RCXM",0))+1
  1. I RC0'="" D
  1. . D BLD("^TMP($J,""RCXM"")",.CT,RCFILE,RC0)
  1. . S RCER=$G(RCER)+1,RCHCT=RCHCT+1
  1. . S ^TMP($J,"RCXM",RCHCT)=$E(^TMP($J,"RCXM",0)_$J("",4),1,4)_$G(^TMP($J,"RCXM",RCHCT))
  1. S Z=1 F S Z=$O(RCER(Z)) Q:'Z S CT=CT+1,^TMP($J,"RCXM",CT)=" "_RCER(Z)
  1. S CT=CT+1,^TMP($J,"RCXM",CT)=" "
  1. Q
  1. ;
  1. SENDBULL ; Sends the bulletin when all processing is complete
  1. N XMBODY,XMB,XMINSTR,XMTYPE,XMFULL,XMTO,XMZ,XMERR,XMSUBJ
  1. S XMTO("I:G.RCDPE PAYMENTS")=""
  1. S XMBODY="^TMP($J,""RCXM"")"
  1. S XMSUBJ="EDI LBOX "_$$FMTE^XLFDT(DT,2)_" EXCEPTIONS EFT DEP/MATCH EFTs TO ERAs"
  1. D ;
  1. . N DUZ
  1. . S DUZ=.5,DUZ(0)="@"
  1. . D SENDMSG^XMXAPI(.5,XMSUBJ,XMBODY,.XMTO,,.XMZ)
  1. K ^TMP($J,"RCXM")
  1. Q
  1. ;
  1. BLD(RCARRAY,RCT,RCFILE,RC0) ; Build the array for entry 344.31 detail
  1. ; RCARRAY = the name of the array to be set
  1. ; RCT = the # of lines already output into this array
  1. ; RCFILE = 344.3 or 344.31
  1. ; RC0 = the 0-node of the entry in RCFILE
  1. ;
  1. N Z,RC00
  1. I RCFILE=344.31 D
  1. . S RC00=$G(^RCY(344.3,+RC0,0))
  1. . S Z=$$SETSTR^VALM1(" TRACE #: "_$P(RC0,U,4),"",1,61) ; Expand Trace # to 50 characters
  1. . S RCT=RCT+1,@RCARRAY@(RCT)=Z ; for Ins. Co. below
  1. . S Z=$$SETSTR^VALM1(" INS CO: "_$E($P(RC0,U,2),1,22)_"/"_$P(RC0,U,3),"",1,76)
  1. . S RCT=RCT+1,@RCARRAY@(RCT)=Z
  1. . S Z=$$SETSTR^VALM1(" DEPOSIT DATE: "_$$FMTE^XLFDT($P(RC00,U,7),2),"",1,24)
  1. . S Z=$$SETSTR^VALM1(" DATE REC'D: "_$S($P(RC00,U,13):$$FMTE^XLFDT($P(RC00,U,13)\1,2),1:""),Z,25,22)
  1. . S Z=$$SETSTR^VALM1(" PAYMENT AMT: "_$TR($J($P(RC0,U,7),15,2)," "),Z,47,30)
  1. . S RCT=RCT+1,@RCARRAY@(RCT)=Z
  1. ;
  1. I RCFILE=344.3 D
  1. . S Z=$$SETSTR^VALM1(" DEPOSIT #: "_$P(RC0,U,6),"",1,13)
  1. . S Z=$$SETSTR^VALM1(" DEPOSIT DATE: "_$$FMTE^XLFDT($P(RC0,U,7),2),Z,16,24)
  1. . S RCT=RCT+1,@RCARRAY@(RCT)=Z
  1. . S Z=$$SETSTR^VALM1(" DATE REC'D: "_$S($P(RC0,U,13):$$FMTE^XLFDT($P(RC0,U,13)\1,2),1:""),"",25,22)
  1. . S Z=$$SETSTR^VALM1(" DEPOSIT AMT: "_$TR($J($P(RC0,U,8),15,2)," "),Z,47,30)
  1. . S RCT=RCT+1,@RCARRAY@(RCT)=Z
  1. ;
  1. Q
  1. ;
  1. EN1 ; Queue match job for run on demand
  1. N DIR,X,Y,ZTIO,ZTRTN,ZTSK,ZTDESC,ZTDTH
  1. S DIR(0)="YA",DIR("A",1)="THIS OPTION QUEUES THE JOB TO MATCH EFTs TO ELECTRONIC ERAs"
  1. S DIR("A")="ARE YOU SURE YOU WANT TO RUN THIS JOB?: ",DIR("B")="NO"
  1. W ! D ^DIR K DIR
  1. I Y'=1 G EN1Q
  1. L +^RCY(344.3,"ALOCK"):5 I '$T D G EN1Q
  1. . S DIR(0)="EA",DIR("A",1)="This job is currently running ... try again later",DIR("A")="Press ENTER to continue: " D ^DIR K DIR
  1. S ZTIO="",ZTDTH=$$NOW^XLFDT()
  1. S ZTRTN="MATCH^RCDPEM(1,1)",ZTDESC="AR - MANUAL EFT-ERA MATCH EDI LOCKBOX"
  1. D ^%ZTLOAD
  1. W !!,$S($D(ZTSK):"Your job has been queued - task number "_ZTSK,1:"Unable to queue this job.")
  1. U IO
  1. EN1Q L -^RCY(344.3,"ALOCK")
  1. Q
  1. ;
  1. EN2 ; Entrypoint from nightly job to put Nightly data into the nightly job's status bulletin
  1. ; PRCA*4.5*321 dropped call to the Daily Activity Report
  1. ; data into the nightly job's status bulletin
  1. N CT,DATA,Z,Z0,RCHD,T,T0
  1. S CT=+$O(^TMP($J,"RCXM",""),-1)
  1. S CT=CT+1,^TMP($J,"RCXM",CT)=""
  1. I $D(^TMP($J,"RCTOT","EFT_DEP")) D
  1. . S CT=CT+1,^TMP($J,"RCXM",CT)=$J("",12)_"********** TOTALS **********"
  1. . S CT=CT+1,^TMP($J,"RCXM",CT)="DEPOSITS"
  1. . S CT=CT+1,^TMP($J,"RCXM",CT)=" TOTAL # UNPOSTED EFT DEPOSITS FOUND: "_+$G(^TMP($J,"RCTOT","EFT_DEP"))
  1. . S CT=CT+1,^TMP($J,"RCXM",CT)=" TOTAL # NEW EFT DEPOSITS CREATED: "_+$G(^TMP($J,"RCTOT","DEPOSIT"))
  1. . S CT=CT+1,^TMP($J,"RCXM",CT)=" TOTAL # NEW EFT DEPOSIT RECEIPTS CREATED: "_+$G(^TMP($J,"RCTOT","EFT_RECPT"))
  1. . S CT=CT+1,^TMP($J,"RCXM",CT)=" TOTAL # EFT DEPOSITS WITH CHECK SUM ERRORS: "_+$G(^TMP($J,"RCTOT","CSUM"))
  1. . S CT=CT+1,^TMP($J,"RCXM",CT)=" TOTAL # EFT DEPOSITS WITH OTHER ERRORS: "_+$G(^TMP($J,"RCTOT","ERR"))
  1. . S CT=CT+1,^TMP($J,"RCXM",CT)=" TOTAL EFT DEPOSIT AMOUNT POSTED TO REV SRC CD 8NZZ: "_$J(+$G(^TMP($J,"RCTOT","SUSPAMT")),"",2)
  1. . S CT=CT+1,^TMP($J,"RCXM",CT)=""
  1. S CT=CT+1,^TMP($J,"RCXM",CT)="EFT-ERA MATCHES"
  1. S CT=CT+1,^TMP($J,"RCXM",CT)=" TOTAL # UNMATCHED ERAs CHECKED: "_+$G(^TMP($J,"RCTOT","EFT"))
  1. S CT=CT+1,^TMP($J,"RCXM",CT)=" TOTAL # ERAs MATCHED TO EFTs: "_+$G(^TMP($J,"RCTOT","MATCH"))_$S($G(^TMP($J,"RCTOT","MATCH"))&$G(^TMP($J,"RCTOT","TOTMIS")):" INCLUDING "_+$G(^TMP($J,"RCTOT","TOTMIS"))_" WITH MISMATCHED TOTALS",1:"")
  1. S CT=CT+1,^TMP($J,"RCXM",CT)=" TOTAL # ERAs STILL UNMATCHED: "_+$G(^TMP($J,"RCTOT","NO_MATCH"))
  1. S CT=CT+1,^TMP($J,"RCXM",CT)=""
  1. ;K ^TMP("RCDAILYACT",$J) ; PRCA*4.5*321 don't need - related to Daily Activity Report
  1. K ^TMP($J,"RC1")
  1. ;
  1. S Z=0 F S Z=$O(^TMP($J,"RCDPETOT",344.31,Z)) Q:'Z S Z0=$G(^RCY(344.31,Z,0)) I Z0 S ^TMP($J,"RC1",+Z0,Z)=Z0
  1. ;
  1. S (RCHD,Z)=0 F S Z=$O(^TMP($J,"RCDPETOT",344.3,Z)) Q:'Z S DATA=$G(^(Z)) D
  1. . I 'RCHD D HDR(.CT,.RCHD) ; Add headers
  1. . S Z0=$G(^RCY(344.3,Z,0))
  1. . S CT=CT+1
  1. . S ^TMP($J,"RCXM",CT)=""
  1. . I '$G(DATA) D
  1. .. ;PRCA*4.5*380 - Removed advancing of the counter
  1. .. ;S CT=CT+1
  1. .. S ^TMP($J,"RCXM",CT)=^TMP($J,"RCXM",CT)_" "_$E($P($G(^RCY(344.1,+$P(Z0,U,3),0)),U)_$J("",15),1,15)_" "_$E($P($G(^RCY(344,+$O(^RCY(344,"AD",+$P(Z0,U,3),0)),0)),U)_$J("",15),1,15)_" "
  1. .. S ^TMP($J,"RCXM",CT)=^TMP($J,"RCXM",CT)_$J(+$P(Z0,U,12),"",2)
  1. . I $G(DATA) D
  1. .. S ^TMP($J,"RCXM",CT)=^TMP($J,"RCXM",CT)_" "_$E($P($G(^RCY(344.1,+$P(DATA,U,5),0)),U)_$J("",15),1,15)_" "_$E($S($P(DATA,U,5):$P($G(^RCY(344,+DATA,0)),U),1:"")_$J("",15),1,15)_" "
  1. .. S ^TMP($J,"RCXM",CT)=^TMP($J,"RCXM",CT)_$J($S($P(DATA,U,3):+$P(DATA,U,2),1:0),"",2)
  1. . I $P(DATA,U,4) S CT=CT+1,^TMP($J,"RCXM",CT)=" ERROR # REFERENCED ABOVE : "_$P(DATA,U,4)
  1. . S T=0 F S T=$O(^TMP($J,"RC1",Z,T)) Q:'T S T0=$G(^(T)) D
  1. .. S CT=CT+1
  1. .. S ^TMP($J,"RCXM",CT)=$J("",5)_$P(T0,U,4)
  1. .. S CT=CT+1 ; separate TRACE # above from PAYER NAME/ID below
  1. .. S ^TMP($J,"RCXM",CT)=$J("",5)_$P(T0,U,2)_"/"_$P(T0,U,3)
  1. .. S CT=CT+1,^TMP($J,"RCXM",CT)=$J("",10)_"PAYMENT AMOUNT: "_$J(+$P(T0,U,7),"",2)_" MATCH STATUS: "_$$EXTERNAL^DILFD(344.31,.08,,$P(T0,U,8))
  1. .. S:$O(^TMP($J,"RCDPETOT",344.3,Z)) CT=CT+1,^TMP($J,"RCXM",CT)=" "
  1. ;. I $P(DATA,U,3) S ^TMP("RCDAILYACT",$J,DT,Z)=Z0 ;PRCA*4.5*321 remove
  1. ;
  1. K ^TMP($J,"RC1")
  1. ;I $O(^TMP("RCDAILYACT",$J,0)) D ; Daily activity rep automatic bulletin ;PRCA*4.5*321 remove
  1. ;. N XMBODY,XMB,XMINSTR,XMTYPE,XMFULL,XMTO,XMZ,XMERR,XMSUBJ
  1. ;. K ^TMP($J,"RCDPE_DAR")
  1. ;. D RPT1^RCDPEDAR("1^0^0^0^0^"_DT_"^"_DT) ;PRCA*4.5*318, changed the parameters
  1. ;. K ^TMP("RCDAILYACT",$J)
  1. ;. Q:'$O(^TMP($J,"RCDPE_DAR",0))
  1. ;. S XMTO("I:G.RCDPE PAYMENTS")=""
  1. ;. S XMBODY="^TMP($J,""RCDPE_DAR"")"
  1. ;. S XMSUBJ="EDI LBOX - AUTO DAILY ACTIVITY SUMMARY - "_$$FMTE^XLFDT(DT,2)
  1. ;. D ;
  1. ;.. N DUZ
  1. ;.. S DUZ=.5,DUZ(0)="@"
  1. ;.. D SENDMSG^XMXAPI(.5,XMSUBJ,XMBODY,.XMTO,,.XMZ)
  1. ;. K ^TMP($J,"RCDPE_DAR")
  1. Q
  1. ;
  1. HDR(CT,HD) ; Header array set
  1. ; CT = line count, passed by reference
  1. ; HD = flag returned as 1 so the header is only output once
  1. N Q
  1. S CT=CT+1,^TMP($J,"RCXM",CT)=" "
  1. S CT=CT+1,^TMP($J,"RCXM",CT)=$J("",20)_"********** EFT DEPOSIT RECORDS **********"
  1. S CT=CT+1,^TMP($J,"RCXM",CT)=" EFT DEPOSIT EFT RECEIPT POSTED AMOUNT"
  1. S CT=CT+1,^TMP($J,"RCXM",CT)=" "
  1. S CT=CT+1,^TMP($J,"RCXM",CT)=" TRACE #"
  1. S CT=CT+1,^TMP($J,"RCXM",CT)=" PAYER NAME/ID"
  1. S CT=CT+1,Q="",$P(Q,"=",79)="",^TMP($J,"RCXM",CT)=Q
  1. S HD=1
  1. Q
  1. ;