Skip to content

Commit

Permalink
Install: PRCA*4.5*304
Browse files Browse the repository at this point in the history
Patch Subject:  MEDICAL CARE COLLECTION FUND (MCCF) ENHANCEMENTS PROJECT - EPAYMENTS
Description:

============
 *************************************************************************
 NOTICE:
    The patch bundle PRCA IB MCCF EDI 1.0 (IB*2.0*530/PRCA*4.5*303) must
    be installed first, then install two standalone patches, IB*2.0*529
    and PRCA*4.5*304. Patch IB*2.0*529 must be installed before installing
    PRCA*4.5*304. Install all patches close together so that your site has
    all of the features released as part of this enhancement.
 *************************************************************************
 The Medical ePayments Compliance (Phase 2, Iteration 2) project ensures
 the Veterans Administrations (VA) compliance with Electronic Funds
 Transfer (EFT) & Electronic Remittance Advice (ERA) Operating Rules, and
 enables VA to more effectively use ERA data, resulting in better revenue
 and cash flow management.  It will provide the infrastructure foundation
 for electronic exchange of claim payment information and promotes an
 interoperable system and will reduce the time elapsed between receipt of
 the Electronic Data Interchange (EDI) 835 Electronic Remittance Advice
 Transaction and receipt of the Cash Concentration or Disbursement (CCD+)
 transactions.  It will ensure that trace numbers between payments and
 remittances can be used by VA, reducing the level of open accounts
 receivable, allow claim denials to be more quickly addressed, and
 standardizes Electronic Funds Transfer (EFT) & ERA enrollment to reduce
 workload burden on VA staff.
 This patch contains changes to the ePayments (835 and EFT) program area
 to ensure compliance. Specifically, enhancements to the Veterans
 Health Information Systems and Technology Architecture (VistA) Third Party
 EDI Lockbox module to increase timely and accurate processing of payments
 for electronic pharmacy claims in compliance with Health Insurance
 Portability and Accountability Act (HIPAA) and Veterans Health
 Administration (VHA) Fiscal Accounting policies will also be required.
 The ePayments system is used by Accounts Receivable (AR) staff to process
 payments from third party payers for both medical and pharmacy claims. The
 objectives of the requested ePayments software modifications are to
 expedite accurate payments by enhancing the ePayments software to
 streamline the user's ability to process the pharmacy 835 while:
 Complying with HIPAA legislative requirements to meet patient needs and
 secure Protected Health Information (PHI).
 Conducting payment accounting in accordance with the Office of Management
 and Budget (OMB) directives.
 Systematically enforcing VHA Fiscal Accounting policy.
 This patch implements the following:
   - Auto-posting of Pharmacy ERA payments
   - Auditing of Suspense item processing
   - Allowing ERAs with data exceptions Auto-post after corrections
   - Allows re-use of Deposit Ticket #'s for manually created deposit
     tickets
   - Allows the Medical Auto-decrease functionality to specify maximum
     decrease amounts by Claims Adjustment Reason Codes (CARC)
   - Add Medical and Pharmacy filters to several reports
 Patch Components
 ================
 Files & Fields Associated:
 File Name (#)          Field Name (#)
 New/Modified/Deleted
 -------------          -----------------------------------
 --------------------
 AR SITE PARAMETER (#342)
                        MAX DAYS ENTRY SUSPENDED (#7.04)          New
                        AUTO POST MEDICAL PAPER BILLS (#7.05)     New
                        AUTO POST PHARMACY PAPER BILLS (#7.06)    New
 AR BATCH PAYMENT (#344)
                        RECEIPT # (#.01)                          Modified
 ELECTRONIC REMITTANCE ADVICE (#344.4)
                        DATE POSTED TO SUSPENSE                   Modified
 ELECTRONIC REMITTANCE ADVICE - ERA DETAIL SUB-FILE (#344.41)
                        CLAIM COMMENT                             New
                        CLAIM COMMENT DATE                        New
                        CLAIM COMMENT USER                        New
 RCDPE AUTO-PAY EXCLUSION (#344.6)
                        EXCLUDE RX CLAIM POSTING (#.08)           New
                        PHARMACY AUTO-POST COMMENT (#3)           New
 RCDPE PARAMETER (#344.61)
                        AUTO-POST RX CLAIMS ENABLED (WorldVistA#1.01)       New
                        AUTO-DECREASE RX ENABLED (WorldVistA#1.02)          New
 RCDPE CARC-RARC AUTO DEC (#344.62)                               New
 RCDPE SUSPENSE AUDIT (#344.71)                                   New
 RCDPE AUTO-POST AUDIT (#344.72)                                  New
 RCDPE DM REPORT PARAMETERS (#344.9)                              New
 RCDPE DM REPORT ARCHIVE (#344.91)                                New
 Forms Associated:
                                                           New/Modified/
 Form Name                    File Name (Number)             Deleted
 ---------                    ------------------           -------------
 N/A
 Mail Groups Associated:
                                                           New/Modified/
 Mail Group Name                                             Deleted
 ---------------                                           -------------
 N/A
 Options Associated:
                                                           New/Modified/
 Option Name                    Type                         Deleted
 -----------                    ----                       -------------
 Finance AR Manager Menu [PRCA  menu                 Modified
   MANAGER MENU]
 Agent Cashier Menu [RCDP AGENT menu                 Modified
   CASHIER MENU]
 EDI Lockbox (ePayments)        menu                 Modified
   Reports Menu  [RCDPE EDI
   LOCKBOX REPORTS MENU]
 EDI Diagnostic Measures        menu                   New
   Reports  [RCDPE EDI NATIONAL
   REPORTS]
 EDI VOLUME STATISTICS Report   run routine            New
   [RCDPE EDI VOLUME
    STATISTICS]
 EFT/ERA TRENDING Report        run routine            New
   [RCDPE EFT-ERA TRENDING
    REPORT]
 ERA Status Change Audit Report run routine            New
   [RCDPE ERA STATUS CHNG AUD
    REP]
 Disable-Enable DM Background   run routine            New
   Job/Reports  [RCDPE NR
   DISABLE/ENABLE]
 EDI Diagnostic Measures        menu                   New
   Extracts Menu  [RCDPE NR
   EXTRACT MENU]
 Manually Start DM Extract      run routine            New
   [RCDPE NR MANUAL START]
 Manually Transmit DM Extract   run routine            New
   [RCDPE NR MANUAL TRANSMIT]
 View/Print Extracted Reports   run routine            New
   [RCDPE NR VIEW/PRINT
    EXTRACTS]
 Link Payment Tracking Report   run routine            New
   [RCDPE SUSPENSE AUDIT
    REPORT]
 Parameter Definitions:
                                                           New/Modified/
 Parameter Name                                              Deleted
 --------------                                            -------------
 RCDPE APAR                                                Modified
 Protocols Associated:
                                                           New/Modified/
 Protocol Name                                               Deleted
 -------------                                             -------------
 RCDP LINK PAYMENTS SUSPENSE REPORT                        Modified
 RCDPE APAR CLAIM COMMENT                                  New
 RCDPE APAR EEOB REFRESH                                   Modified
 RCDPE APAR EEOB REVIEW                                    Modified
 RCDPE APAR RESEARCH                                       Modified
 RCDPE APAR SELECTED EEOB MENU                             Modified
 RCDPE APAR SPLIT LINE                                     Modified
 RCDPE APAR VERIFY                                         Modified
 RCDPE APAR VIEW/PRINT EOB                                 Modified
 RCDPE APAR VIEW/PRINT ERA                                 Modified
 RCDPE EOB WL RECEIPT VIEW                                 Modified
 RCDPE EOB WL REVIEW                                       Modified
 RCDPE EOB WORKLIST CHANGE VIEW                            Modified
 RCDPE EOB WORKLIST DIST ADJ                               Modified
 RCDPE EOB WORKLIST MARK FOR AUTO POST                     New
 RCDPE EOB WORKLIST MENU                                   Modified
 RCDPE EOB WORKLIST RECEIPT PROCESSING                     Modified
 RCDPE EOB WORKLIST REFRESH                                Modified
 RCDPE EOB WORKLIST SPLIT LINE                             Modified
 RCDPE EOB WORKLIST VERIFY                                 Modified
 RCDPE MARK FOR AUTOPOST                                   New
 RCDPE VIEW/PRINT WORKLIST ERA                             Modified
 RCDPE WORKLIST ERA LIST MENU                              Modified
 RCDPE WORKLIST ERA MARK FOR AUTO POST                     New
 Security Keys Associated:
                                                           New/Modified/
 Security Key Name                                           Deleted
 -----------------                                         -------------
 N/A
 List Templates:
                                                           New/Modified/
 Template Name                    Type                       Deleted
 -------------                    ----                     -------------
 RCDP DEPOSIT PROFILE             List                     Modified
 RCDP LINK PAYMENTS TO ACCOUNTS   List                     Modified
 RCDPE WORKLIST ERA LIST          List                     Modified
 Templates Associated:
                                                           New/Modified/
 Template Name      Type      File Name (Number)             Deleted
 -------------      ----      ------------------           -------------
 RCMS EDI LOCKBOX   Input     AR SITE PARAMETER (#342)       Modified
 Additional Information:
 -----------------------
 N/A
 New Service Requests (NSRs):
 -----------------------------
 20130518 - Medical ePayments Compliance (Phase 2, Iteration 2)
 Patient Safety Issues (PSIs):
 ------------------------------
 N/A
 Remedy Ticket(s) & Overviews:
 -----------------------------
 1. INC1269592/INC1282993: EFTs posted to paper EOBs are not showing up
                           on reports and causing stale dated lockups.
 Problem:
 --------
 When processing EFTs with paper EOBs, EFTs are not marked as posted in
 VistA. Consequently, they are still showing up on reports and causing
 stale dated lockups.
 Resolution:
 -----------
 After investigating, this was determined to be a training issue as users
 at some sites were not properly closing receipts after the EFT was posted
 to a paper EOB. No programming changes were needed.
 2. INC1289740: Auto-Posting of ERA line items does not always work.
 Problem:
 --------
 During auto-posting of (ERA) line items that were marked for
 auto-posting, if the payment amount was greater than the claim balance,
 processing of ERA line items stopped and the remainder of the line items
 did not process. In addition, the line items did not go back on the
 Auto-Post Awaiting Resolution (APAR) worklist.
 Resolution:
 -----------
 Any ERA line items with a payment amount less than the claim balance will
 post. Any line items that cannot be posted due the payment amount being
 greater than the claim balance will be sent to the APAR worklist.
 3. INC1289572/IR277545: Receipt processing issues
 Problem:
 --------
 This was actually two separate problems related to receipts:
 3a. When an ERA has more than one receipt number, the APAR Header
     displays the incorrect receipt numbers.
 3b. When a user utilizes the Split/Edit action from the APAR worklist to
     put dollars into Suspense and enters a comment, the comment is not
     displayed on the Receipt Profile or the 215 Report.
 Resolution:
 -----------
 3a. The APAR header was fixed to display the correct receipt numbers when
     there are multiple receipt numbers on an ERA.
 3b. There was conditional logic that was used when transferring comments
     to the ERA detail lines.  This conditional logic was removed and all
     comments are now transferred  Subsequently, the comments will be
     displayed on the Receipt Profile and the 215 Report.
 4. INC1289748: The Auto-Post report does not correctly display split
                payments.
 Problem:
 --------
 The Auto-Post report does not correctly display split payments, including
 suspense payments. In addition, the receipt number does not always
 display correctly.
 Resolution:
 -----------
 The Auto-Post report now displays all payments, including split payments
 and suspense payments. The receipt number is now correctly displayed.
 Test Sites:
 -----------
 Alexandria VA Health Care System (Alexandria, LA)-Station 502
 Huntington VA Medical Center (Huntington, WV)-Station 581
 South Texas Veterans Health Care System (San Antonio, TX)-Station 671
 Software and Documentation Retrieval Instructions:
 ----------------------------------------------------
 Software being released as a host file and/or documentation describing
 the new functionality introduced by this patch are available.
 The preferred method is to retrieve files from download.vista.domain.ext.
 This transmits the files from the first available server. Sites may
 also elect to retrieve files directly from a specific server.
 Sites may retrieve the software and/or documentation directly using Secure
 File Transfer Protocol (SFTP) from the ANONYMOUS.SOFTWARE directory at
 the following OI Field Offices:
 Albany:                 domain.ext
 Hines:                  domain.ext
 Salt Lake City:         domain.ext
 Documentation can also be found on the VA Software Documentation Library
 at: http://www4.domain.ext/vdl/
 File Description                     File Name           FTP Mode
 --------------------------------------------------------------------
 ACCOUNTS RECEIVABLES Technical Manual/ PRCA_4_5_TM_R0516.PDF  (binary)
 Security Manual
 ACCOUNTS RECEIVABLES Release Notes/  PRCA_4_5_P304_RN.PDF     (binary)
 Installation Guide
 EPAYMENTS USER MANUAL (EDI LOCKBOX)  EPAYMENTS_USER_          (binary)
                                      MANUAL_R0516.PDF
 Patch Installation:
 Pre/Post Installation Overview
 ------------------------------
 Note:
    The patch bundle PRCA IB MCCF EDI 1.0 (IB*2.0*530/PRCA*4.5*303) must
    be installed first, then install two standalone patches, IB*2.0*529
    and PRCA*4.5*304. Patch IB*2.0*529 must be installed before installing
    PRCA*4.5*304. Install all patches close together so that your site has
    all of the features released as part of this enhancement
 There is a post installation routine which will initially prevent your
 site from auto-auditing medical and pharmacy bills, and auto-posting and
 auto-decreasing pharmacy ERAs.
 After the post-install is complete you can safely remove the routine
 RC45P304.

Use default answers for KIDS load/install questions.

Patch-Files: http://code.osehra.org/VistA.git/tree/b0ced814/Packages/Accounts+Receivable/Patches/PRCA_4.5_304
  • Loading branch information
josephsnyder committed Nov 19, 2016
1 parent c4c9e18 commit e787847
Show file tree
Hide file tree
Showing 76 changed files with 7,417 additions and 699 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@ ZWR
^RC(342,0)="AR SITE PARAMETER^342P^1^1"
^RC(342,1,0)="1"
^RC(342,1,3)="^^0"
^RC(342,1,7)="^5^7"
^RC(342,1,7)="^5^7^45^N^N"
^RC(342,1,9.4,0)="^342.01^1^1"
^RC(342,1,9.4,1,0)="PRCA*4.5*169^3010529.1135^3010529.1135"
^RC(342,1,9.4,"B","PRCA*4.5*169",1)=""
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -2,4 +2,5 @@ RCDPE PARAMETER
ZWR
^RCY(344.61,0)="RCDPE PARAMETER^344.61P^1^1"
^RCY(344.61,1,0)="1^^0^^^21^999^^3150514"
^RCY(344.61,1,1)="N^N"
^RCY(344.61,"B",1,1)=""
2 changes: 2 additions & 0 deletions Packages/Accounts Receivable/Globals/RCDM.zwr
Original file line number Diff line number Diff line change
@@ -0,0 +1,2 @@
^RCDM
ZWR
25 changes: 21 additions & 4 deletions Packages/Accounts Receivable/Routines/PRCABJ.m
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
PRCABJ ;WASH-ISC@ALTOONA,PA/LDB,TJK-NIGHTLY PROCESS FOR ACCOUNTS RECEIVABLE ;11/8/96 3:54 PM
;;4.5;Accounts Receivable;**11,34,101,114,155,153,141,165,167,173,201,237**;Mar 20, 1995
;;Per VHA Directive 10-93-142, this routine should not be modified.
PRCABJ ;WASH-ISC@ALTOONA,PA/LDB,TJK - NIGHTLY PROCESS FOR ACCOUNTS RECEIVABLE ;11/8/96 3:54 PM
;;4.5;Accounts Receivable;**11,34,101,114,155,153,141,165,167,173,201,237,304**;Mar 20, 1995;Build 104
;Per VA Directive 6402, this routine should not be modified.
;
;This routine is called by the PRCA NIGHTLY PROCESS option which should be run nightly to call the following tasks
;1) Update of interest/admin charges on patients' accounts
Expand All @@ -16,6 +16,8 @@
;11) Generates Diagnostic Measures Workload Reports
;12) Matches EFT with ERA
;13) Generates CBO Data Extract files for Boston ARC
;14) Auto-audit of Paper Bills
;15) Generate the AR Diagnostic Measures Statistical Reports (for a defined period)
;
;Process will first check and Validate AR pointer files 341.1,
;430.2, and 430.3.
Expand All @@ -31,7 +33,7 @@
D CHK,INT,CHK,EN^RCCPCBJ,CHK,STM,CHK,RECPT,CHK,TOP,CHK,EVNT,CHK,BNUM
D CHK,ENUM,CHK,PURFMS,CHK,EN3^RCFMOBR,CHK,START^RCRJR,CHK,UB
D CHK,STATMNT,CHK,UDLIST^PRCABJ1,CHK,LIST,CHK,COMMENT,CHK,REPAY
D CHK,WRKLD,CHK,EFT,CHK,CBO
D CHK,WRKLD,CHK,EFT,CHK,CBO,ABAUDIT,ARDM
D NOW^%DTC S $P(^RC(342,1,0),"^",10)=%
L -^RC("PRCABJ")
K ^RC("PRCABJ")
Expand Down Expand Up @@ -134,6 +136,15 @@
D ^%ZTLOAD
Q
;
;PRCA*4.5*304 new tag ARDM
ARDM ; Generate AR Diagnostic Measures statistic reports weekly
N ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE
;
; run the report
S ZTIO="",ZTRTN="AUTO^RCDPENRU",ZTDTH=$H,ZTDESC="AR Diagnostic Measures Statistical Reports"
D ^%ZTLOAD
Q
;
EVNT ;Purge AR Events
N IOP,ZTIO,ZTDESC,ZTASK,ZTIO,ZTRTN,ZTSAVE,%ZIS
S ZTIO="",ZTRTN="PUR^RCEVDRV1",ZTDTH=$H,ZTDESC="Purge AR Event Information" D ^%ZTLOAD
Expand Down Expand Up @@ -162,3 +173,9 @@
S ZTIO="",ZTRTN="EN^RCXVTSK",ZTDESC="CBO DATA EXTRACT",ZTDTH=$H
D ^%ZTLOAD
Q
ABAUDIT ;PRCA*4.5*304 - Auto-audit Paper bills
;
N ZTRTN,ZTIO,ZTDTH,ZTSK,ZTDESC
;
S ZTIO="",ZTRTN="ABAUDIT^PRCABJ2",ZTDESC="AR AUTO-AUDIT OF PAPER BILLS",ZTDTH=$H D ^%ZTLOAD
Q
55 changes: 55 additions & 0 deletions Packages/Accounts Receivable/Routines/PRCABJ2.m
Original file line number Diff line number Diff line change
@@ -0,0 +1,55 @@
PRCABJ2 ;ALB/SAB - NIGHTLY PROCESS FOR ACCOUNTS RECEIVABLE ;07-JUL-15
;;4.5;Accounts Receivable;**304**;Mar 20, 1995;Build 104
;Per VA Directive 6402, this routine should not be modified.
;
; read of DGCR(399.2 allowed by DBIA 3822
;
Q
; Auto-audit Paper bills if ready
ABAUDIT ;
; Local Variables
; APIEN - Accounts Payable (file #430) ien
;
N APIEN,DIE,DA,DR,DIR,DIRUT,DTOUT,DUOUT,X,Y,APD0,APD202,FLG1,FLG2
N PRCABLNO,PRCAECME,NBLIEN,HICD,CATIEN,ACTIVE,BILLTYP,RCPAPER
;
S APIEN=""
;
;Check parameters to see if it needs to run.
S FLG1=$$GET1^DIQ(342,"1,",7.05,"I") ; Get the value of the auto-audit medical paper bill flag
S FLG2=$$GET1^DIQ(342,"1,",7.06,"I") ; Get the value of the auto-audit pharmacy paper bill flag
;
; Quit if both set to no
Q:('FLG1)&('FLG2)
;
;retrieve DB values
S NBLIEN=$O(^PRCA(430.3,"B","NEW BILL","")) ; New Bill Status IEN
S CATIEN=$O(^PRCA(430.2,"C","RI","")) ; Reimbursable Insurance IEN
S HICD=$O(^PRCA(430.6,"B","HI","")) ; Health insurance IEN
S ACTIVE=$O(^PRCA(430.3,"B","ACTIVE","")) ; New Bill Status IEN
S BILLTYP=$O(^DGCR(399.3,"B","REIMBURSABLE INS.","")) ; Bill Type IEN
S RCPAPER=1 ; Field 27 in ^DGCR(399 ; 0 - is electronic, 1 - FORCE LOCAL PRINT
;
Q:NBLIEN=""
;
F S APIEN=$O(^PRCA(430,"AC",NBLIEN,APIEN)) Q:'APIEN D
. S APD0=$G(^PRCA(430,APIEN,0)) ; Patient info
. S APD202=$G(^PRCA(430,APIEN,202)) ;Insured info
. Q:$$GET1^DIQ(399,APIEN_",",.07,"I")'=BILLTYP ; Bill type is not Reimbursable Insurance. Skip
. Q:$$GET1^DIQ(399,APIEN_",",27,"I")'=RCPAPER ; Bill is not forced to Paper (it is electronic). Skip
. ;
. Q:$P(APD0,U,7)="" ; Quit if no PATIENT IEN
. Q:$P(APD0,U,9)="" ; Quit if no DEBTOR information
. Q:$P(APD202,U,1)="" ; quit if no subscriber name stored
. Q:$P(APD202,U,5)="" ; quit if no group name stored
. Q:$P(APD202,U,6)="" ; quit if no group number stored
. ;
. ;Get the Bill number to check if it is a Pharmacy bill
. S PRCABLNO=$P(APD0,U)
. S PRCAECME=$$GETECME^RCDPENR1(PRCABLNO)
. I PRCAECME=""&'FLG1 Q ;Skip this bill if No Medical processing
. I PRCAECME'=""&'FLG2 Q ;Skip this bill if No Pharmacy
. ;
. ; Bill Passed all checks now call auto-audit for this Bill number
. D AUDITX^PRCAUDT(APIEN)
Q
13 changes: 7 additions & 6 deletions Packages/Accounts Receivable/Routines/PRCACOL.m
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
PRCACOL ;WASH-ISC@ALTOONA,PA/LDB-Payment History Report ;9/27/93 4:31 PM
V ;;4.5;Accounts Receivable;**165,198,264**;Mar 20, 1995;Build 1
;;Per VHA Directive 10-93-142, this routine should not be modified.
PRCACOL ;WASH-ISC@ALTOONA,PA/LDB - Payment History Report ;9/27/93 4:31 PM
V ;;4.5;Accounts Receivable;**165,198,264,304**;Mar 20, 1995;Build 104
;;Per VA Directive 6402, this routine should not be modified.
;
EN ;Ask debtor and date range for payment history
N DPTNOFZY,DPTNOFZK S (DPTNOFZY,DPTNOFZK)=1
Expand Down Expand Up @@ -41,6 +41,7 @@ S DIR(0)="DO^"_BDATE_":DT",DIR("A")="Payment history ending date",DIR("B")=$$FMT
G EN
;
TRANS ;Build array of transactions
N BILL
S (PG,TOTPD,TOTREF,TOTPRIN,TOTINT,TOTADM)=0,$P(LINE,"-",75)="-" K ^TMP($J) D DT^DICRW
S BILL=0 F S BILL=$O(^PRCA(430,"C",DEBTOR,BILL)) Q:'BILL D
.S TN=0 F S TN=$O(^PRCA(433,"C",+BILL,TN)) Q:'TN D
Expand All @@ -58,8 +59,8 @@ S DIR(0)="DO^"_BDATE_":DT",DIR("A")="Payment history ending date",DIR("B")=$$FMT
S DATE=0 F S DATE=$O(^TMP($J,"PRCACOL",DATE)) Q:'DATE Q:$D(DIRUT) D
.S TN=0 F S TN=$O(^TMP($J,"PRCACOL",DATE,TN)) Q:'TN D SCRN Q:$D(DIRUT) D
..S PNODE=^TMP($J,"PRCACOL",DATE,TN) W !,$$FMTE^XLFDT($P(PNODE,U,2),"1D"),?15,$P($G(^PRCA(430,+$P(PNODE,U),0)),U)
..W ?27,$P(PNODE,U,3),?32,$P(PNODE,U,4),?42 S AMT=$P(PNODE,U,5) W $J(AMT,6,2)
..F X=1:1:3 S X(X)=$P(PNODE,U,X+5) W:X=1 ?50,$J(X(X),6,2) W:X=2 ?58,$J(X(X),6,2) W:X=3 ?66,$J(X(X),6,2)
..W ?27,$P(PNODE,U,3),?32,$P(PNODE,U,4),?45 S AMT=$P(PNODE,U,5) W $J(AMT,6,2)
..F X=1:1:3 S X(X)=$P(PNODE,U,X+5) W:X=1 ?53,$J(X(X),6,2) W:X=2 ?61,$J(X(X),6,2) W:X=3 ?69,$J(X(X),6,2)
..D SCRN Q:$D(DIRUT)
..Q
.Q
Expand Down Expand Up @@ -88,5 +89,5 @@ K DIR I ($Y+3)>IOSL D
W !,?20,"------------------------------"
W !!,?18,"For Patient: ",$$NAM^RCFN01(DEBTOR),!,?25,"SSN : ",$$SSN^RCFN01(DEBTOR)
W !,?20,"For dates: ",$$FMTE^XLFDT(BDATE,"ID"),"-",$$FMTE^XLFDT(EDATE,"1D")
W !!," DATE OF",!,"PAYMENT/REFUND",?16,"BILL #",?25,"REFUND",?32,"RECEIPT #",?42,"AMOUNT",?51,"PRIN.",?59,"INT.",?67,"ADMIN.",!,LINE
W !!," DATE OF",!,"PAYMENT/REFUND",?16,"BILL #",?25,"REFUND",?32,"RECEIPT #",?45,"AMOUNT",?54,"PRIN.",?62,"INT.",?70,"ADMIN.",!,LINE
Q
52 changes: 52 additions & 0 deletions Packages/Accounts Receivable/Routines/RC45P304.m
Original file line number Diff line number Diff line change
@@ -0,0 +1,52 @@
RC45P304 ;ALB/SAB - POST-INSTALL PRCA*4.5*304 ;02-APR-15
;;4.5;Accounts Receivable;**304**;Mar 20, 1995;Build 104
;;Per VA Directive 6402, this routine should not be modified.
;
Q
;
POST ;This will rename two options and Reindex 344.4 for the updated indexes
;
D BMES^XPDUTL(" Post-install for PRCA*4.5*304 Starting.")
;
; Updating AR parameter file
D MES^XPDUTL(" >> Updating parameters in the AR SITE PARAMETER file (#342) ...")
;
D UPD342 ; Update the AR Site Parameter file with the correct starting values.
;
; Updating EDI Parameter file
D MES^XPDUTL(" >> Updating parameters in the RCDPE PARAMETER file (#344.61) ...")
;
D UPD34461 ; Update the RCDPE Parameter file with the correct starting values.
;
D BMES^XPDUTL(" Post-install for PRCA*4.5*304 Complete.")
;
Q
;
UPD342 ;
;
N X,Y,DIE,DA,DR,DTOUT,DATA
;
S DR=""
S DATA=$G(^RC(342,1,7))
S:$P(DATA,U,4)="" DR=DR_"7.04////45;"
S:$P(DATA,U,4)="" DR=DR_"7.05////N;"
S:$P(DATA,U,4)="" DR=DR_"7.06////N"
Q:DR=""
S DIE="^RC(342,",DA=1
D ^DIE
Q
;
UPD34461 ;
;
N X,Y,DIE,DA,DR,DTOUT,DATA
S DR=""
S DATA=$G(^RCY(344.61,1,1))
S:$P(DATA,U,1)="" DR=DR_"1.01////N;"
S:$P(DATA,U,2)="" DR=DR_"1.02////N"
;
Q:DR=""
;
S DIE="^RCY(344.61,",DA=1
D ^DIE
Q
;
62 changes: 57 additions & 5 deletions Packages/Accounts Receivable/Routines/RCBEPAY.m
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
RCBEPAY ;WISC/RFJ-payment processing (top routine) ;1 Jun 00
;;4.5;Accounts Receivable;**153**;Mar 20, 1995
;;Per VHA Directive 10-93-142, this routine should not be modified.
RCBEPAY ;WISC/RFJ - payment processing (top routine) ;1 Jun 00
;;4.5;Accounts Receivable;**153,304**;Mar 20, 1995;Build 104
;;Per VA Directive 6402, this routine should not be modified.
;
Q
;
;
Expand All @@ -9,7 +10,7 @@
; rcpayda - payment ien file 344 under rcrectda
; returns 0 if processed, 1^error if not processed
;
N RCACCT,RCBILLDA,RCDATA,RCERROR,RCPAYAMT,RCPAYDAT,RCTRANDA,X
N RCACCT,RCBILLDA,RCDATA,RCERROR,RCPAYAMT,RCPAYDAT,RCTRANDA,X,RCERROR
;
; lock the receipt payment
L +^RCY(344,RCRECTDA,1,RCPAYDA):10
Expand All @@ -19,7 +20,17 @@
S RCDATA=^RCY(344,RCRECTDA,1,RCPAYDA,0)
;
; there is no account, this will go to suspense
I $P(RCDATA,"^",3)="" L -^RCY(344,RCRECTDA,1,RCPAYDA) Q 0
I $P(RCDATA,"^",3)="" L -^RCY(344,RCRECTDA,1,RCPAYDA) D Q RCERROR
. S RCERROR=0
. I '$T S RCERROR="1^Another user is updating the Suspense File Audit Log." Q
. ;
. ;file a "P"ending entry in the Suspense Audit Log File and for the disposition
. ;if not already there and not $0 payment (auto-adjustment back to FMS).
. I '$D(^RCY(344,RCRECTDA,1,RCPAYDA,3)),($P($G(^RCY(344,RCRECTDA,1,RCPAYDA,0)),U,4)'=0) D
. . D AUDIT(RCRECTDA,RCPAYDA,"I")
. . ;
. . ;update disposition
. . D SUSPDIS(RCRECTDA,RCPAYDA,"P")
;
; check the payment for errors
S X=$$CHECKPAY^RCBEPAYC(RCRECTDA,RCPAYDA)
Expand Down Expand Up @@ -106,3 +117,44 @@ D SETERROR(RCRECTDA,RCPAYDA,"")
; error exists, set the posting error
I RCERROR'="" S $P(^RCY(344,RCRECTDA,1,RCPAYDA,1),"^")=$E(RCERROR,1,60)
Q
;
;
AUDIT(RCRECTDA,RCPAYDA,RCSTAT) ; store entry in Suspense Audit Log
N RCAUDIT,RCDATA,RCDATA1,RCDATA0
;
; get the data elements
S RCDATA=$G(^RCY(344,RCRECTDA,0)) ;double check these
S RCDATA0=$G(^RCY(344,RCRECTDA,1,RCPAYDA,0))
S RCDATA1=$G(^RCY(344,RCRECTDA,1,RCPAYDA,1))
;
; set up array
S RCAUDIT(344.71,"+1,",.01)=$$NOW^XLFDT ;Date/Time Stamp
S RCAUDIT(344.71,"+1,",.02)=DUZ ;User
S RCAUDIT(344.71,"+1,",.03)=$P(RCDATA,U,1) ;Receipt #
S RCAUDIT(344.71,"+1,",.04)=RCPAYDA ;Transaction #
S RCAUDIT(344.71,"+1,",.05)=$P(RCDATA0,U,4) ;Amount
S RCAUDIT(344.71,"+1,",.06)=$P(RCDATA0,U,9) ;Claim #
S RCAUDIT(344.71,"+1,",.07)=RCSTAT ;Status
S RCAUDIT(344.71,"+1,",.08)=$P(RCDATA1,U,2) ;Reason text
;
;file entry
D UPDATE^DIE(,"RCAUDIT")
Q
;
;
SUSPDIS(RCRECTDA,RCTRANDA,RCSTAT) ;Update the disposition field
;
N DA,DR,DIE,DTOUT
S DA=RCTRANDA,DA(1)=RCRECTDA,DIE="^RCY(344,"_DA(1)_",1,"
S DR="3.01////"_RCSTAT_";"
I RCSTAT="P" D
. S DR=DR_"3.02////"_$$NOW^XLFDT_";"
. S DR=DR_"3.03////"_DUZ_";"
I RCSTAT'="P" D
. S DR=DR_"3.04////"_$$NOW^XLFDT_";"
. S DR=DR_"3.05////"_DUZ_";"
S DR=$P(DR,";",1,$L(DR,";")-1)
;
D ^DIE
Q
;
16 changes: 8 additions & 8 deletions Packages/Accounts Receivable/Routines/RCDPDPLM.m
Original file line number Diff line number Diff line change
@@ -1,11 +1,11 @@
RCDPDPLM ;WISC/RFJ-deposit profile listmanager top routine ;1 Jun 99
;;4.5;Accounts Receivable;**114,149**;Mar 20, 1995
;;Per VHA Directive 10-93-142, this routine should not be modified.
RCDPDPLM ;WISC/RFJ - deposit profile listmanager top routine ;1 Jun 99
;;4.5;Accounts Receivable;**114,149,304**;Mar 20, 1995;Build 104
;;Per VA Directive 6402, this routine should not be modified.
;
N RCDEPTDA,RCDPFXIT
;
F D Q:'RCDEPTDA
. W !! S RCDEPTDA=$$SELDEPT^RCDPUDEP(1) ; allow adding new deposit
. W !! S RCDEPTDA=$$PREPDEPT^RCDPUDEP() ; PRCA*4.5*304 allow adding new deposit
. I RCDEPTDA<1 S RCDEPTDA=0 Q
. D EN^VALM("RCDP DEPOSIT PROFILE")
. ; fast exit
Expand All @@ -30,17 +30,17 @@
. S ^TMP("RCDPDPLM",$J,"IDX",RCLINE,RCLINE)=RCRECTDA
. D SET(RCLINE,RCLINE,1,80,0,IORVON,IORVOFF)
. ; receipt
. D SET("",RCLINE,5,80,.01)
. D SET("",RCLINE,5,18,.01) ;PRCA*4.5*304
. ; type of payment
. D SET("",RCLINE,17,80,.04)
. D SET("",RCLINE,19,36,.04) ;PRCA*4.5*304
. ; date opened
. I RCDPDATA(344,RCRECTDA,.03,"I") D
. . D SET($E(RCDPDATA(344,RCRECTDA,.03,"I"),4,5)_"/"_$E(RCDPDATA(344,RCRECTDA,.03,"I"),6,7)_"/"_$E(RCDPDATA(344,RCRECTDA,.03,"I"),2,3),RCLINE,35,42)
. . D SET($E(RCDPDATA(344,RCRECTDA,.03,"I"),4,5)_"/"_$E(RCDPDATA(344,RCRECTDA,.03,"I"),6,7)_"/"_$E(RCDPDATA(344,RCRECTDA,.03,"I"),2,3),RCLINE,37,44)
. ; by (check for null before calling set)
. I RCDPDATA(344,RCRECTDA,.02,"E")'="" D
. . S X=$E($P(RCDPDATA(344,RCRECTDA,.02,"E"),",",2))_$E(RCDPDATA(344,RCRECTDA,.02,"E"))
. . I RCDPDATA(344,RCRECTDA,.02,"I")=.5 S X="ar"
. . D SET(X,RCLINE,45,46)
. . D SET(X,RCLINE,46,47)
. ; date processed
. I RCDPDATA(344,RCRECTDA,.08,"I") D
. . D SET($E(RCDPDATA(344,RCRECTDA,.08,"I"),4,5)_"/"_$E(RCDPDATA(344,RCRECTDA,.08,"I"),6,7)_"/"_$E(RCDPDATA(344,RCRECTDA,.08,"I"),2,3),RCLINE,49,56)
Expand Down
Loading

0 comments on commit e787847

Please sign in to comment.