Install: PRCA*4.5*301

Patch Subject: TREASURY CROSS-SERVICING PROGRAM Description: ============ ***************************************************************************** This patch supports changes to the Veterans Health Information System and Technology Architecture (VistA) for the Treasury Cross-Servicing Program (TCSP). PRCA*4.5*301 (Accounts Receivable-AR) is being released in host file: PRCA_45_P301.KID. It is imperative that these patches be installed no later than the compliance date. Your understanding and support is appreciated. ***************************************************************************** The Chief Business Office (CBO) requested modifications to the VistA Accounts Receivable Package to support the next phase in the implementation of the Debt Collection Improvement Act (DCIA) of 1996 by the Department of Veterans Affairs (VA). This patch modifies the Account Receivable (AR) v4.5 application as described below: 1. TOP Modifications - Exclude first party bills from the TOP process unless the date the bill became active is prior to the Activation Date. Do not exclude bills from the TOP process that are identified as referred to TOP. 2. DMC Referral Flag - The VistA system shall not modify the 90-day DMC debt referral process. 3. Referral File - The VistA system shall automatically create a file of delinquent first party bills. - The VistA system shall create the file in IAI format, containing record types H, 1, 2, 2A, 2C, 3, Z. - The VistA system shall schedule the batch process to create the referral file once per week for new referrals. - The VistA system shall have the ability to stop a bill from being referred to Cross-Servicing. 4. Update File - The VistA shall create a batch task to generate a file of updated information for previously referred bills. - The VistA system shall create the file in IAI format, containing record types H, 1, 2, 2A, Z. - The VistA system shall schedule the batch process to create the update file once per week for new referrals. - The VistA system shall have the ability to stop a bill from being updated to Cross-Servicing. 5. Recall File - The VistA shall create a batch task to generate a file to recall previously referred bills by debt, debtor, or case. - The VistA system shall create the file in IAI format, containing record types H, 1, 2, 3, Z. - The VistA system shall schedule the batch process to create the recall file once per week for new referrals. - The VistA system shall have the ability to stop a bill from being recalled to Cross-Servicing. 6. Reconciliation File - The VistA shall create a batch task to generate a file of updated information for Reconciliation bills. 7. Monthly Patient Statements - Bills Referred to Cross-Servicing - The VistA system shall exclude the value of bills that have been referred to Cross-Servicing from the 'Previous Balance' and 'Balance' block on the monthly patient statement. 8. Monthly Patient Statements - Bills Not Referred to Cross-Servicing - The VistA system shall include the value of bills in the 'Previous Balance' and 'Balance' block on the monthly patient statement when a bill is no longer referred to Cross-Servicing. 9. Unprocessable File - Bills that are sent for referral to Cross- Servicing but are deemed not valid are rejected and returned to VistA with the source of the error and the error code. The rejected debts and error codes are stored historically and reported in debts profile reports and reject reports. 10. Due Process Notification (DPN) - A letter notification system for debts expected to be sent to Cross-Servicing. From Cross-Servicing initialization, debts under $25.00 will be tracked for one year. As the debts become qualified to Cross-Servicing referral, AITC will be notified to send due process letters. After a sixty day waiting, if the debts become qualified, the debts will be referred to Cross- Servicing in the usual fashion. 11. Cross-Servicing Qualified / No Third Letter Sent - A bulletin will be generated by VistA when there is eligible debt for Cross- Servicing and a third collection letter has not been sent. The bulletin will contain the debtor's name and bill number(s). 12. Activation Date - The VistA system shall not refer bills to Cross-Servicing if they were not active prior to the Activation Date. For Little Rock #598, Beckley #517, and Upstate NY #528 the Activation Date has been set to February 1, 2015. For all other sites, the Activation Date has been set to August 1, 2015. Patch Components: ================= Files & Fields Associated: -------------------------- The following is a list of files included in this patch: File Name (Number) Field Name (Number) New/Mod/Del ------------------ ------------------- ----------- AR DEBTOR (#340) TCSP RECALL FLAG field (#7.02) NEW TCSP RECALL DATE field (#7.03) NEW TCSP RECALL REASON field (#7.04) NEW DATE DEBTOR REFERRED TO TCSP field(#7.05 NEW AR DEBTOR (#342) CROSS-SERVICING START DATE field (#100) NEW AR BATCH PAYMENT (#344) RECEIPT PAY TYPE field (#.19) NEW AR BATCH PAYMENT (#344) Subfile TRANSACTION (#344.01) PATIENT NAME OR BILL NUMBER (#.09) MOD LOCKBOX TRANSACTION CODE (#.15) NEW TCS IAI ERROR CODES (#348.5) ERROR CODE ID (#.01) NEW FIELD NAME/ACTION (#1) NEW RECORD TYPE (#2) NEW ERROR MESSAGE (#3) NEW TCS IAI ACTION CODES (#348.6) ACTION CODE (#.01) NEW ACTION DESCRIPTION (#1) NEW RECORD TYPE (#2) NEW TCS IAI RECORD TYPES (#348.7) RECORD TYPE ID (#.01) NEW RECORD TYPE DESCRIPTION (#1) NEW DATA TYPE (#2) NEW ACCOUNTS RECEIVABLE (#430) DATE BILL REFERRED TO TCSP field (#151) NEW TCSP RECALL FLAG field (#152) NEW TCSP RECALL EFF. DATE field (#153) NEW TCSP RECALL REASON field (#154) NEW RECALL AMOUNT field (#155) NEW STOP TCSP REFERRAL FLAG field (#157) NEW STOP TCSP REFERRAL EFF. DATE field (#158) NEW STOP TCSP REFERRAL REASON field (#159) NEW STOP TCSP REFERRAL COMMENT field (#159.1) NEW TCSP CASE RECALL FLAG field (#159.2) NEW TCSP CASE RECALL EFF DATE (#159.3) NEW TCSP CASE RECALL REASON (#159.4) NEW TCSP GENDER (#159.5) NEW ORIGINAL TCSP TIN field (#161) NEW ORIGINAL TCSP DEBTOR NAME field (#162) NEW TCSP DELINQUENCY DATE field (#163) NEW TCSP DEBTOR ADDRESS, LINE 1 field (#164) NEW TCSP DEBTOR ADDRESS, LINE 2 field (#165) NEW TCSP DEBTOR ADDRESS, CITY field (#166) NEW TCSP DEBTOR ADDRESS, STATE field (#167) NEW TCSP DEBTOR ZIP CODE field (#168) NEW ORIGINAL TCSP AMOUNT field (#169) NEW CURRENT TCSP AMOUNT field (#169.1) NEW TCSP DEBTOR PHONE (#169.2) NEW TCSP COUNTRY CODE (#169.3) NEW TCSP DOB (#169.4) NEW DUE PROCESS NOTIFICATION FLAG (#173) NEW DUE PROCESS REQUEST DATE (#174) NEW DUE PROCESS LETTER PRINT DATE (#175) NEW DUE PROCESS REFERRAL DATE (#176) NEW DUE PROCESS ERROR DATE (#177) NEW DUE PROCESS ERROR CODES (#178) NEW SEND TCSP RECORD 1 field (#191) NEW SEND TCSP RECORD 2 field (#192) NEW SEND TCSP RECORD 2A field (#193) NEW SEND TCSP RECORD 2C field (#194) NEW STOP INTEREST ADMIN CALC (#199.2) NEW RETURNED DATE (#301) NEW RETURN REASON CODE (#302) NEW COMPROMISED INDICATOR (#303) NEW COMPROMISE AMOUNT (#304) NEW CLOSED DATE (#305) NEW BANKRUPTCY DATE (#306) NEW DATE OF DEATH (#307) NEW DATE OF DISSOLUTION (#308) NEW ACCOUNTS RECEIVABLE (#430) Subfile CS DECREASE ADJ TRANS NUMBER (#430.0171) CS DECREASE ADJ TRANS NUMBER (#.01) NEW SEND TCSP RECORD 5B NEW ACCOUNTS RECEIVABLE (#430) Subfile REJECT DATE (#430.0172) REJECT DATE (#.01) NEW REJECT SOURCE (#1) NEW REJECT REASON1 (#2) NEW REJECT REASON2 (#3) NEW REJECT REASON3 (#4) NEW REJECT REASON4 (#5) NEW REJECT REASON5 (#6) NEW REJECT REASON6 (#7) NEW REJECT REASON7 (#8) NEW REJECT REASON8 (#9) NEW REJECT REASON9 (#10) NEW RECORD TYPE (#11) NEW RECORD ACTION CODE (#12) NEW REJECT BATCH ID (#13) NEW REJECT MM MSG NO. (#14) NEW AR RETURN REASON CODE (#430.5) CODE (#.01) NEW DESCRIPTION (#1) NEW CATEGORY (#2) NEW Forms Associated: Form Name File # New/Modified/Deleted --------- ------ -------------------- N/A Mail Groups Associated: Mail Group Name New/Modified/Deleted --------------- -------------------- TCSP NEW TPC NEW TPL NEW Options Associated: Option Name Type New/Modified/Deleted ----------- ----------- ------------------------ PRCAF SUPERVISOR MENU MENU MODIFIED RCTCSP BILL REPORT RUN ROUTINE NEW RCTCSP IAI ERROR CODES LIST RUN ROUTINE NEW RCTCSP MENU MENU NEW RCTCSP RECALL REPORT RUN ROUTINE NEW RCTCSP RECALLB RUN ROUTINE NEW RCTCSP RECALLD RUN ROUTINE NEW RCTCSP RECONCIL REPORT RUN ROUTINE NEW RCTCSP REJ SERVER SERVER NEW RCTCSP REJECT REPORT RUN ROUTINE NEW RCTCSP REPORT RUN ROUTINE NEW RCTCSP STOP RUN ROUTINE NEW RCTCSPD SERVER SERVER NEW RCTCSPR SERVER SERVER NEW Protocols Associated: --------------------- N/A Security Keys Associated: ------------------------- Security Key Name ----------------- N/A Templates Associated: Template Name Type File Name (Number) New/Mod/Del ------------- ---- ------------------ ----------- PRCA MEANS PROFILE PRINT ACCOUNTS RECEIVABLE MOD (#430) PRCA OTHER PROFILE PRINT ACCOUNTS RECEIVABLE MOD (#430) PRCA PROFILE PRINT ACCOUNTS RECEIVABLE MOD (#430) PRCA TCSP RECALLB PRINT ACCOUNTS RECEIVABLE NEW (#430) PRCA TCSP RECALLD PRINT ACCOUNTS RECEIVABLE NEW (#430) TCS IAI ERROR CODES LIST PRINT TCS IAI ERROR CODES NEW (#348.5) Remote Procedure New/Mod/Del ---------------- ----------- N/A Additional Information: N/A New Service Request (NSRs): --------------------------- N/A Patient Safety Issues (PSIs): ----------------------------- N/A Remedy Ticket(s) & Overview: ---------------------------- N/A Test Sites: ----------- VISN 16, Region 2, Central Arkansas Veterans Healthcare System, John L. McClellan Memorial Veterans Hospital, Station #598, Little Rock, Arkansas VISN 2, Region 4, VA Health Care Upstate New York, Station #528. VISN 6, Region 3, VA Mid-Atlantic Health Care Network, Beckley VA Medical Center, Station #517, Beckley, West Virginia. VISN 6, Region 3, VA Mid-Atlantic Health Care Network, W. G. (Bill) Hefner VA Medical Center, Station #659, Salisbury, North Carolina. VISN 23, Region 2, Nebraska-Western Iowa Health Care System, Omaha VA Medical Center, Station #636, Omaha, Nebraska. Documentation Retrieval Instructions: ===================================== Updated documentation describing the new functionality introduced by this patch is 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 The documentation will be in the form of Adobe Acrobat files. The following files should be downloaded in the binary SFTP mode. Filename Description -------- ----------- prca_4_5_p301_um.pdf Cross-Servicing User Manual prca_4_5_p301_rn.pdf Cross-Servicing Release Notes / Installation Guide prca_4_5_p301_tm.pdf Accounts Receivable Technical Manual / Security Guide Documentation can also be found on the VA Software Documentation Library at: http://www.domain.ext/vdl/ Patch Installation: =================== Use default answers for KIDS load/install questions. Patch-Files: http://code.osehra.org/VistA.git/tree/master/Packages/Accounts+Receivable/Patches/PRCA_4.5_301
shabiel · Feb 25, 2017 · bdb9453 · bdb9453
1 parent df3eaff
commit bdb9453
Show file tree

Hide file tree

Showing 67 changed files with 6,100 additions and 685 deletions.
diff --git a/Packages/Accounts Receivable/Globals/342+AR SITE PARAMETER.zwr b/Packages/Accounts Receivable/Globals/342+AR SITE PARAMETER.zwr
@@ -1,5 +1,5 @@
 OSEHRA ZGO Export: AR SITE PARAMETER
-14-DEC-2016 04:08:52 ZWR
+25-FEB-2017 14:00:50 ZWR
 ^RC(342,0)="AR SITE PARAMETER^342P^1^1"
 ^RC(342,1,0)="1"
 ^RC(342,1,3)="^^0"
@@ -9,4 +9,5 @@ OSEHRA ZGO Export: AR SITE PARAMETER
 ^RC(342,1,9.4,"B","PRCA*4.5*169",1)=""
 ^RC(342,1,20)="P:\PLATINUM\^200^^1^5000^T"
 ^RC(342,1,30)="3050901^3060228"
+^RC(342,1,"CS")="3170225"
 ^RC(342,"B",1,1)=""
diff --git a/Packages/Accounts Receivable/Globals/348.5+TCS IAI ERROR CODES.zwr b/Packages/Accounts Receivable/Globals/348.5+TCS IAI ERROR CODES.zwr
diff --git a/Packages/Accounts Receivable/Globals/348.6+TCS IAI ACTION CODES.zwr b/Packages/Accounts Receivable/Globals/348.6+TCS IAI ACTION CODES.zwr
@@ -0,0 +1,15 @@
+OSEHRA ZGO Export: TCS IAI ACTION CODES
+25-FEB-2017 14:00:50 ZWR
+^RC(348.6,0)="TCS IAI ACTION CODES^348.6^6^6"
+^RC(348.6,1,0)="A^Add a new record^Sent on Record Type 1"
+^RC(348.6,2,0)="U^Update record^Sent on Record Type 2 only"
+^RC(348.6,3,0)="L^Debt Recall^Sent on Record Type 1, 2, 3 "
+^RC(348.6,4,0)="B^Add New Debt to Existing Debtor^Sent on Record Type 2 only"
+^RC(348.6,5,0)="V^Add Joint Debtor to an Existing Debt^Sent on Record Type 2 only"
+^RC(348.6,6,0)="D^Delete Payment Bypass^Sent on Record Type 6 only"
+^RC(348.6,"B","A",1)=""
+^RC(348.6,"B","B",4)=""
+^RC(348.6,"B","D",6)=""
+^RC(348.6,"B","L",3)=""
+^RC(348.6,"B","U",2)=""
+^RC(348.6,"B","V",5)=""
diff --git a/Packages/Accounts Receivable/Globals/348.7+TCS IAI RECORD TYPES.zwr b/Packages/Accounts Receivable/Globals/348.7+TCS IAI RECORD TYPES.zwr
@@ -0,0 +1,31 @@
+OSEHRA ZGO Export: TCS IAI RECORD TYPES
+25-FEB-2017 14:00:50 ZWR
+^RC(348.7,0)="TCS IAI RECORD TYPES^348.7^14^14"
+^RC(348.7,1,0)="H^Header Record^Batch and Record information"
+^RC(348.7,2,0)="1^Debt Record^Debt information"
+^RC(348.7,3,0)="2^Debtor Record^Debtor information"
+^RC(348.7,4,0)="2A^Individual Debtor Record"
+^RC(348.7,5,0)="2B^Business Debtor Record^Not used for Cross Servicing"
+^RC(348.7,6,0)="2C^Debtor Contact information"
+^RC(348.7,7,0)="2D^Debtor Record (Property Information)"
+^RC(348.7,8,0)="2E^Debtor Record (Employment Information)^Not used for Cross Servicing"
+^RC(348.7,9,0)="3^Case Record"
+^RC(348.7,10,0)="4^Alias Name (for agency use only)^Not used for Cross Servicing"
+^RC(348.7,11,0)="5A^Creditor Agency Financial Transactions (Collections/Reversals)"
+^RC(348.7,12,0)="5B^Creditor Agency Financial Transactions (Adjustments)"
+^RC(348.7,13,0)="6^Payment Bypass/Offset^Not used for Cross Servicing"
+^RC(348.7,14,0)="Z^Trailer Record"
+^RC(348.7,"B",1,2)=""
+^RC(348.7,"B",2,3)=""
+^RC(348.7,"B",3,9)=""
+^RC(348.7,"B",4,10)=""
+^RC(348.7,"B",6,13)=""
+^RC(348.7,"B","2A",4)=""
+^RC(348.7,"B","2B",5)=""
+^RC(348.7,"B","2C",6)=""
+^RC(348.7,"B","2D",7)=""
+^RC(348.7,"B","2E",8)=""
+^RC(348.7,"B","5A",11)=""
+^RC(348.7,"B","5B",12)=""
+^RC(348.7,"B","H",1)=""
+^RC(348.7,"B","Z",14)=""
diff --git a/Packages/Accounts Receivable/Globals/430.5+AR RETURN REASON CODE.zwr b/Packages/Accounts Receivable/Globals/430.5+AR RETURN REASON CODE.zwr
@@ -0,0 +1,43 @@
+OSEHRA ZGO Export: AR RETURN REASON CODE
+25-FEB-2017 14:00:36 ZWR
+^PRCA(430.5,0)="AR RETURN REASON CODE^430.5^20^20"
+^PRCA(430.5,1,0)="Z^UNCOLLECTABLE"
+^PRCA(430.5,2,0)="D^ADMINISTRATIVE RESOLUTION APPROVED FOR DEATH"
+^PRCA(430.5,3,0)="B^ADMINISTRATIVE RESOLUTION APPROVED FOR BANKRUPTCY"
+^PRCA(430.5,4,0)="W^ADMINISTRATIVE RESOLUTION APPROVED FOR INABILITY TO PAY"
+^PRCA(430.5,5,0)="E^ADMINISTRATIVE RESOLUTION APPROVED FOR ENTITY OUT OF BUSINESS"
+^PRCA(430.5,6,0)="T^CA AGREES - COMPLAINT - STOP COLLECTION ACTIVITY"
+^PRCA(430.5,7,0)="Y^CA AGREES - DEBT AMOUNT IS INCORRECT - STOP COLLECTION ACTIVITY"
+^PRCA(430.5,8,0)="C^CA AGREES - CONGRESSIONAL DISPUTE - STOP COLLECTION ACTIVITY"
+^PRCA(430.5,9,0)="M^CA AGREES - MISCELLANEOUS DISPUTE - STOP COLLECTION ACTIVITY"
+^PRCA(430.5,10,0)="G^CA AGREES - WRONG DEBTOR - STOP COLLECTION ACTIVITY"
+^PRCA(430.5,11,0)="V^CA AGREES - PREVIOUSLY PAID - STOP COLLECTION ACTIVITY"
+^PRCA(430.5,12,0)="H^CA AGREES - PREVIOUSLY RESOLVED - STOP COLLECTION ACTIVITY"
+^PRCA(430.5,13,0)="X^DISPUTE TIMER EXPIRED"
+^PRCA(430.5,14,0)="P^SATISFIED PA - PAID IN FULL OR COMPROMISED"
+^PRCA(430.5,15,0)="F^PAID IN FULL (OUTSIDE OF A PAYMENT AGREEMENT)"
+^PRCA(430.5,16,0)="S^SYSTEM COMPROMISED (BALANCE BELOW $25)"
+^PRCA(430.5,17,0)="R^RECALLED"
+^PRCA(430.5,18,0)="A^MANUALLY RETURNED TO AGENCY"
+^PRCA(430.5,19,0)="N^PROOF OF DEBT DOCUMENTATION NOT PROVIDED - STOP COLLECTION ACTIVITY"
+^PRCA(430.5,20,0)="Q^PROOF OF DEBT TIMER EXPIRED"
+^PRCA(430.5,"B","A",18)=""
+^PRCA(430.5,"B","B",3)=""
+^PRCA(430.5,"B","C",8)=""
+^PRCA(430.5,"B","D",2)=""
+^PRCA(430.5,"B","E",5)=""
+^PRCA(430.5,"B","F",15)=""
+^PRCA(430.5,"B","G",10)=""
+^PRCA(430.5,"B","H",12)=""
+^PRCA(430.5,"B","M",9)=""
+^PRCA(430.5,"B","N",19)=""
+^PRCA(430.5,"B","P",14)=""
+^PRCA(430.5,"B","Q",20)=""
+^PRCA(430.5,"B","R",17)=""
+^PRCA(430.5,"B","S",16)=""
+^PRCA(430.5,"B","T",6)=""
+^PRCA(430.5,"B","V",11)=""
+^PRCA(430.5,"B","W",4)=""
+^PRCA(430.5,"B","X",13)=""
+^PRCA(430.5,"B","Y",7)=""
+^PRCA(430.5,"B","Z",1)=""
diff --git a/Packages/Accounts Receivable/Routines/PRCAAPR1.m b/Packages/Accounts Receivable/Routines/PRCAAPR1.m
@@ -1,13 +1,13 @@
 PRCAAPR1 ;WASH-ISC@ALTOONA,PA/RGY - PATIENT ACCOUNT PROFILE ;2/12/97  11:48 AM
- ;;4.5;Accounts Receivable;**34,45,108,143,141,206,192,218,276,275,284,303**;Mar 20, 1995;Build 84
+ ;;4.5;Accounts Receivable;**34,45,108,143,141,206,192,218,276,275,284,303,301**;Mar 20, 1995;Build 144
  ;;Per VA Directive 6402, this routine should not be modified.
  ;
- ; PRCAAPR cleans up BILL, COUNT, DEBT, DTOUT, DIC, OUT, PRCADB, SEL, X
 HDR ;Head for Account profile
  S X="",$P(X,"=",23)="" W @IOF,!,X,"   A c c o u n t   P r o f i l e   ",X
 HDR1 N DMC,IBRX,RSN,TOP4,TOP6,DPTFLG,ACCTNUM,RCCV
  S IBRX=0,DPTFLG=0
  ;
+ ; PRCAAPR cleans up BILL, COUNT, DEBT, DTOUT, DIC, OUT, PRCADB, SEL, X
  ;Display new 'Statement Account Number" (Patch 206)
  I PRCADB["DPT(" S DPTFLG=1,ACCTNUM=$$ACCT(PRCADB)
  ;
@@ -40,6 +40,9 @@ K Y S X("ADD")=$$DADD^RCAMADD(PRCADB)
  .I +TOP6 W !,"** Account forwarded to TOP: ",$$SLH^RCFN01($P(TOP6,"^")),?45,"Total TOP Amount: ",?65,$J($P(TOP4,"^",3),13,2)
  .I $P(TOP6,"^",6) W !,?45,"TOP HOLD DATE: ",$$SLH^RCFN01($P(TOP6,"^",6))
  .Q
+ I $D(^RCD(340,"TCSP",+DEBT)) D
+ .W !,"x Debt Referred to Cross-Servicing",?45,"Total CS Debt: ",?65,$J($$TOTALB^RCTCSPU(+DEBT),13,2)
+ .Q
  I $O(^RCD(340,+DEBT,2,0)) D
  .S Y=0 F X=0:0 S X=$O(^RCD(340,+DEBT,2,X)) Q:'X  W:'Y ! W !,$G(^(X,0)) S Y=Y+1 W:Y=3&$O(^RCD(340,+DEBT,2,X)) "..." Q:Y=3
  .Q
@@ -69,6 +72,7 @@ K Y S X("ADD")=$$DADD^RCAMADD(PRCADB)
  S REJFLAG=0 S:STAT1'=99 REJFLAG=$$BILLREJ^IBJTU6($P($P($G(^PRCA(430,BILL,0)),"^"),"-",2))
  S:STAT1'=99 COUNT=COUNT+1,^TMP("PRCAAPR",$J,"O",COUNT)=BILL S X=$S(STAT1=99:BILL,1:$G(PRCOUT)_$S(REJFLAG:"c",1:"")_$G(^PRCA(430,BILL,0)))
  ; PRCA*4.5*303 - End
+ I $D(^PRCA(430,"TCSP",BILL)) S X="x"_X ;prca*4.5*301
  W !,$S(STAT1'=99:COUNT,1:"*"),?4,$P(X,"^") W:STAT1'=99 ?20,$$SLH^RCFN01($P(X,"^",10))
  W:STAT1'=99 ?31,$S($P(X,"^",2)=31:"TRIC PT",1:$E($P($G(^PRCA(430.2,$S($O(^PRCA(430.2,"AC",24,0))=$P(X,"^",2):+$P(X,"^",16),1:+$P(X,"^",2)),0)),"^"),1,7))  ; PRCA*4.5*192 changed CHMP PT to TRIC PT
  W:STAT1=99 ?31,"PAYMENT"

diff --git a/Packages/Accounts Receivable/Routines/PRCAATR.m b/Packages/Accounts Receivable/Routines/PRCAATR.m
@@ -1,10 +1,10 @@
 PRCAATR ;WASH-ISC@ALTOONA,PA/RGY - VIEW TRANSACTION FOR BILLS ;2/14/96  2:46 PM
-V ;;4.5;Accounts Receivable;**36,104,172,138,233,276,303**;Mar 20, 1995;Build 84
+V ;;4.5;Accounts Receivable;**36,104,172,138,233,276,303,301**;Mar 20, 1995;Build 144
  ;;Per VA Directive 6402, this routine should not be modified.
  ;
  ; PRCAAPR cleans up DEBT, DTOUT
 EN1(BILL) ;ENTRY POINT FROM PRCAAPR
- NEW X,COUNT,OUT,TRAN,SEL,PRCAATRX,PRCAIO,PRCAIOS,D0,PRCAQUE,POP,PRCAPRT,Y,ZTSK,PRCOUT,REJFLG
+ NEW X,Y,COUNT,OUT,TRAN,SEL,PRCAATRX,PRCAIO,PRCAIOS,D0,PRCAQUE,POP,PRCAPRT,Y,ZTSK,PRCOUT,PRCA15,REJFLG
  I '$D(BILL) G Q
  I BILL'?1N.N!'$D(^PRCA(430,+BILL,0)) G Q
  ; PRCA*4.5*276
@@ -20,6 +20,11 @@
  ; PRCA*4.5*303 - Adding reject indicator, 'x' to bill number when applicable
  S REJFLG=$$BILLREJ^IBJTU6($P($P($G(^PRCA(430,BILL,0)),"^"),"-",2)) ; IA# 6060
  ; PRCA*4.5*276 - attach EEOB indicator to bill number
+ I +$G(^PRCA(430,BILL,15)) S PRCA15=^(15) I $P(PRCA15,U)]"" W !,"CS Referred Date: " S Y=$P(PRCA15,U) D DD^%DT W Y  ;prca*4.5*301
+ S PRCA15=$G(^PRCA(430,BILL,15)) D
+ .I $P(PRCA15,U,2)]"" W !,"CS Recall Reason: ",$E($$GET1^DIQ(430,BILL,154),1,31) W ?51,"CS Recall Date: " S Y=$P(PRCA15,U,3) D DD^%DT W Y Q  ;prca*4.5*301
+ .I $P(PRCA15,U,4)]"",$P(PRCA15,U,2)="" W !,"CS Recall Reason: ",$E($$GET1^DIQ(430,BILL,154),1,31) W ?51,"CS Recall Date: "
+ W ! D PROFRJ^RCTCSJS1(BILL) ; Reject history  ;prca*4.5*301
  W !,"Bill #: ",$G(PRCOUT)_$S(REJFLG:"c",1:"")_$P(^PRCA(430,BILL,0),"^") D:$P(^(0),"^",9)'=+DEBT DEB
  W !!,"#",?8,"Tr #",?17,"Type",?52,"Date",?70,"Amount"
  S X="",$P(X,"-",IOM)="" W !,X

diff --git a/Packages/Accounts Receivable/Routines/PRCABJ.m b/Packages/Accounts Receivable/Routines/PRCABJ.m
@@ -1,5 +1,5 @@
-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
+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,301**;Mar 20, 1995;Build 144
  ;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
@@ -8,16 +8,17 @@
  ;3) Print of Patient Statements, Uniform Billing forms, and non-patient follow-up letters
  ;4) Purge of Receipts
  ;5) Creation of TOP (Treasury Offset Program) documents
- ;6) Print of the Follow-up list
- ;7) Purge AR Events
- ;8) Flag prepayments for refund review
- ;9) Print Comment List
- ;10) Starts the Repayment Plan Monitor
- ;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)
+ ;6) Creation of Cross-Servicing (Treasury Cross-Servicing Project) documents
+ ;7) Print of the Follow-up list
+ ;8) Purge AR Events
+ ;9) Flag prepayments for refund review
+ ;10) Print Comment List
+ ;11) Starts the Repayment Plan Monitor
+ ;12) Generates Diagnostic Measures Workload Reports
+ ;13) Matches EFT with ERA
+ ;14) Generates CBO Data Extract files for Boston ARC
+ ;15) Auto-audit of Paper Bills
+ ;16) 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.
@@ -30,7 +31,7 @@
  ;
 DRIVER ;All processes are called from this point
  N CHK,POP,% S CHK=0
- D CHK,INT,CHK,EN^RCCPCBJ,CHK,STM,CHK,RECPT,CHK,TOP,CHK,EVNT,CHK,BNUM
+ D CHK,INT,CHK,EN^RCCPCBJ,CHK,STM,CHK,RECPT,CHK,TOP,CHK,TCSP,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,ABAUDIT,ARDM
@@ -98,6 +99,15 @@
  D ^%ZTLOAD
  Q
  ;
+TCSP ;Transmit Cross-Servicing (Treasury Cross-Servicing Project) documents
+ Q:$$DOW^XLFDT(DT,1)'=2
+ ;Run TCSP documents every Tuesday
+TCSPQUE N ZTDESC,ZTASK,ZTDTH,ZTIO,ZTRTN
+ S ZTIO="",ZTRTN="^RCTCSPD"
+ S ZTDESC="CROSS-SERVICING REFERRAL DOCUMENTS",ZTDTH=$H
+ D ^%ZTLOAD
+ Q
+ ;
 UB ;Print Uniform Billing forms
  N IOP,ZTIO,ZTSAVE,ZTRTN,ZTDESC,ZTASK,%ZIS,ZTDTH
  S ZTIO="",ZTRTN="PRCALT2",ZTDTH=$H,ZTDESC="Print Reimbursable Health Insurance Uniform Billing forms"

diff --git a/Packages/Accounts Receivable/Routines/PRCADR.m b/Packages/Accounts Receivable/Routines/PRCADR.m
@@ -1,14 +1,17 @@
-PRCADR ;SF-ISC/YJK-PRINT ADDRESS,TRANS.,BALANCE ;9/13/96  11:54 AM [ 02/24/97  12:17 PM ]
-V ;;4.5;Accounts Receivable;**21,45,108,141,241**;Mar 20, 1995
+PRCADR ;SF-ISC/YJK-PRINT ADDRESS,TRANS.,BALANCE ; 22 Jul 2014  6:53 AM
+V ;;4.5;Accounts Receivable;**21,45,108,141,241,301**;Mar 20, 1995;Build 144
  ;;Per VHA Directive 10-93-142, this routine should not be modified.
  ;print debtor's 3rd party address,transaction,balances.
 EN1 ;PRINT ADDRESS, SOCIAL SECURITY NUMBER AND DATE OF BIRTH.
- N RCDMC,RCTOP,RCKAT
+ N RCDMC,RCTOP,RCKAT,RCTCSP,PRCA15,Y
  K PRCAGL D EN11 Q:'$D(PRCAGL)  D WR1^PRCADR2
  I $D(^PRCA(430,D0,8)),$P(^(8),U,7)["N" W !,"* UNABLE TO LOCATE *"
+ S PRCA15=$G(^PRCA(430,D0,15)) D
+ .I $P(PRCA15,U,2)]"" W !,"CS Recall Reason: ",$E($$GET1^DIQ(430,D0,154),1,31) W ?51,"CS Recall Date: " S Y=$P(PRCA15,U,3) D DD^%DT W Y ;prca*4.5*301
+ .I $P(PRCA15,U,4)]"",$P(PRCA15,U,2)="" W !,"CS Recall Reason: ",$E($$GET1^DIQ(430,D0,154),1,31) W ?51,"CS Recall Date: " ;prca*4.5*301
  D END1 Q
 EN11 Q:'$D(D0)  S Z0=$S($P(^PRCA(430,D0,0),U,9)'="":$P(^(0),U,9),1:"") Q:Z0=""
-EN12 S PRCADB=$P(^RCD(340,Z0,0),"^"),RCDMC=$D(^RCD(340,"DMC",1,Z0)),RCTOP=$D(^RCD(340,"TOP",Z0))
+EN12 S PRCADB=$P(^RCD(340,Z0,0),"^"),RCDMC=$D(^RCD(340,"DMC",1,Z0)),RCTOP=$D(^RCD(340,"TOP",Z0)),RCTCSP=$D(^RCD(340,"TCSP",Z0))
  S X=$$DADD^RCAMADD(PRCADB) S $P(PRCAGL,"^",1,6)=$P(X,"^",1,6),$P(PRCAGL,"^",9)=$P(X,"^",7) K PRCADB
  S Z1=$P(^RCD(340,Z0,0),";",1),Z2=$P($P(^(0),"^"),";",2),PRCASTE=$P(PRCAGL,U,5)
  S (PRCASSN,PRCADOB)="" I '$D(^VA(200,Z1,0)),'$D(^DPT(Z1,0)) Q

diff --git a/Packages/Accounts Receivable/Routines/PRCADR2.m b/Packages/Accounts Receivable/Routines/PRCADR2.m
@@ -1,6 +1,6 @@
 PRCADR2 ;SF-ISC/YJK-PRINT ADDRESS,TRANS.,BALANCE ;3/19/97  3:19 PM
-V ;;4.5;Accounts Receivable;**45,104,108,149,141,172,241,233,263**;Mar 20, 1995;Build 2
- ;;Per VHA Directive 2004-038, this routine should not be modified.
+V ;;4.5;Accounts Receivable;**45,104,108,149,141,172,241,233,263,301**;Mar 20, 1995;Build 144
+ ;;Per VA Directive 6402, this routine should not be modified.
  ;print debtor's /3rd party address,transaction,balances.
  N RCDMC,RCTOP
 WR1 W !!,$P(PRCAGL,U,1),?39,"SOC.SEC.NO.: ",?55,PRCASSN
@@ -9,6 +9,7 @@
  I $G(RCKAT) W !,"EMERGENCY RESPONSE INDICATOR: HURRICANE KATRINA"
  I $G(RCDMC) W !,"****Debtor's Account Forwarded To DMC****"
  I $G(RCTOP) W !,"****Debtor's Account Forwarded To TOP****"
+ I $G(RCTCSP) W !,"****Debt Referred to Cross-Servicing****"
 END1 K %,PRCADOB,PRCASSN,PRCASTE,PRCAGL,Z1,Z2,Z0
  Q
  ;
@@ -46,4 +47,5 @@
  I $D(PRCAL),$P($G(^RCD(340,(+$P(^PRCA(430,D0,0),"^",9)),3)),"^",9)'="" W !,"Lesser Withhold Amt to DMC: ",$J($P(^(3),"^",9),0,2)
  K PRCAL I $G(^PRCA(430,D0,14)) S PRCAL=^(14) I $P(PRCAL,U)]"" W !!,"Date forwarded to TOP: " S Y=$P(PRCAL,U) D DD^%DT W Y
  I $D(PRCAL),$P($G(^RCD(340,(+$P(^PRCA(430,D0,0),"^",9)),6)),"^",6)'="" W !,"TOP Hold Date:  " S Y=$P(^(6),"^",6) D DD^%DT W Y
+ I $G(^PRCA(430,D0,15)) S PRCAL=^(15) I $P(PRCAL,U)]"" W !!,"CS Referred Date: " S Y=$P(PRCAL,U) D DD^%DT W Y
 END3 K PRCAL,PRCACODE,PRCALT,PRCAK,PRCAGL6,PRCAGL7 Q
diff --git a/Packages/Accounts Receivable/Routines/PRCAEXM.m b/Packages/Accounts Receivable/Routines/PRCAEXM.m
@@ -1,6 +1,6 @@
 PRCAEXM ;SF-ISC/YJK-ADMIN.COST CHARGE TRANSACTION ;3/30/94  11:19 AM
-V ;;4.5;Accounts Receivable;**67,103,196**;Mar 20, 1995
- ;;Per VHA Directive 10-93-142, this routine should not be modified.
+V ;;4.5;Accounts Receivable;**67,103,196,301**;Mar 20, 1995;Build 144
+ ;;Per VA Directive 6402, this routine should not be modified.
  ;Update Int/adm.balance
  ;and Administrative cost charge transaction, is called by ^PRCAWO.
  ;
@@ -17,7 +17,9 @@
 EN011 S %=2 W !!,"Do you want to exempt the account from all the Int/Adm. costs" D YN^DICN I %<0 S PRCACOMM="User Canceled" D DELETE^PRCAWO1 K PRCACOMM G EN1
  I %=1 D EN11,END G EN1
  I %=0 W !,"ANSWER 'YES' OR 'NO' " G EN011
- W !,"Adjusting the administrative/Interest charge ...",! D DIEEN^PRCAWO1,END G EN1
+ W !,"Adjusting the administrative/Interest charge ...",!
+ I $D(^PRCA(430,"TCSP",PRCABN)) W !,"BILL HAS BEEN REFERRED TO CROSS-SERVICING.",!,"NO MANUAL COST ADJUSTMENTS ARE ALLOWED." G EN1  ;prca*4.5*301
+ D DIEEN^PRCAWO1,END G EN1
  ;
  ;  exempt interest and admin charges
 EN11 S PRCATYPE=14,DIE="^PRCA(433,",DA=PRCAEN
@@ -27,6 +29,7 @@
  S DR=DR_"25////^S X="_+$P(PRCAIND,U,4)_";"  ;marshal fee
  S DR=DR_"26////^S X="_+$P(PRCAIND,U,5)_";"  ;court cost
  S DIC=DIE,PRCA("LOCK")=0 D LOCKF^PRCAWO1 Q:PRCA("LOCK")=1  D ^DIE
+ I PRCAEN,$D(^PRCA(430,"TCSP",PRCABN)) D DECADJ^RCTCSPU(PRCABN,PRCAEN) ;prca*4.5*301 add cs 5B flag
  S $P(^PRCA(430,PRCABN,7),U,2,5)="0^0^0^0" D TRANST^PRCAWO1 Q
  ;
  ;

diff --git a/Packages/Accounts Receivable/Routines/PRCAGDR.m b/Packages/Accounts Receivable/Routines/PRCAGDR.m
@@ -1,6 +1,6 @@
 PRCAGDR ;WASH-ISC@ALTOONA,PA/CMS - BALANCE DISCREPANCY REPORT ;12/3/93  9:40 AM
-V ;;4.5;Accounts Receivable;**78,198,219**;Mar 20, 1995;Build 18
- ;;Per VHA Directive 2004-038, this routine should not be modified.
+V ;;4.5;Accounts Receivable;**78,198,219,301**;Mar 20, 1995;Build 144
+ ;;Per VA Directive 6402, this routine should not be modified.
  N CHK,DAT,DEB,DIC,LN1,LN2,NAM,SSN,STD,PG,POP,Y,X,%ZIS S COMM=0
 PAT ;select patient
  N DPTNOFZY,DPTNOFZK S (DPTNOFZY,DPTNOFZK)=1
@@ -40,6 +40,8 @@ S ZTSAVE("DEB")="",ZTSAVE("NAM")="",ZTSAVE("SSN")="",ZTSAVE("STD")="",ZTRTN="EN^
  Q
 ST ;Start here find bills
  NEW BBAL,BEG,CHK,END,LDT3,PBAL,PDAT,PEND,SITE,TBAL,X,Y
+ ; initialize variables for CS
+ NEW CSBB,CSTCH,CSTPC,CSPREV S (CSBB,CSTCH,CSTPC)=0
  I 'STD D 9^PRCAGDT Q
  K ^TMP("PRCAGT",$J) D SITE^PRCAGU
  D NOW^%DTC S END=%,CHK=1,PBAL=0,DAT=$E(DT,1,5)_$S($L(STD)=1:0_STD,1:STD)
@@ -50,6 +52,7 @@ S ZTSAVE("DEB")="",ZTSAVE("NAM")="",ZTSAVE("SSN")="",ZTSAVE("STD")="",ZTRTN="EN^
  D EN^PRCAGT(DEB,BEG,.END)
  S TBAL=0 D TBAL^PRCAGT(DEB,.TBAL)
  S BBAL=0 D BBAL^PRCAGU(DEB,.BBAL)
+ I CSBB,CSBB'<BBAL Q  ; entire account has been referred to CS
  W !!,"Patient Statement Check:",!!
  S X=$$PRE^PRCAGU(DEB) S PEND=$P(X,U,2),X=+X
  I X,BBAL D 3^PRCAGDT Q
@@ -59,6 +62,13 @@ S ZTSAVE("DEB")="",ZTSAVE("NAM")="",ZTSAVE("SSN")="",ZTSAVE("STD")="",ZTRTN="EN^
  I BBAL'>0,'$D(^TMP("PRCAGT",$J,DEB)) D 5^PRCAGDT Q
  I BBAL<0,BBAL>-.99 D 6^PRCAGDT Q
  I BBAL'<0,'$D(^XTMP("PRCAGU",$J,DEB)),'COMM D 10^PRCAGDT Q  ;third letter printed, not comment
+ S TBAL=TBAL+PBAL
+ ;adjust amounts to be filed in 349.2 for CS bills
+ S TBAL=TBAL-CSBB ; reduce the total bill balance by CS balance
+ S CSPREV=CSBB-(CSTCH+CSTPC) ; compute the CS previous balance as the difference between the bill balance and the transaction balance
+ S PBAL=PBAL-CSPREV ; reduce the previous balance by the CS previous balance
+ S TBAL("CH")=TBAL("CH")-CSTCH ; reduce total charges by CS charges
+ S TBAL("PC")=TBAL("PC")-CSTPC ; reduce total credits by CS credits
  I CHK=1 D OK^PRCAGDT
  K ^TMP("PRCAGT",$J)
  Q
diff --git a/Packages/Accounts Receivable/Routines/PRCAGS.m b/Packages/Accounts Receivable/Routines/PRCAGS.m
@@ -1,5 +1,5 @@
 PRCAGS ;WASH-ISC@ALTOONA,PA/CMS-Patient Statement ;6/19/96  5:12 PM
-V ;;4.5;Accounts Receivable;**34,78**;Mar 20, 1995
+V ;;4.5;Accounts Receivable;**34,78,301**;Mar 20, 1995;Build 144
  ;;Per VHA Directive 10-93-142, this routine should not be modified.
  ;ENTRY FROM NIGHTLY PROCESS
  NEW HDAT,DEB
@@ -55,6 +55,8 @@
 REPQ Q
 REPS ;Start reprint statement process
  NEW BBAL,BDT,CR,DAT,EDT,LDT,LST,NOT,PBAL,PDAT,TBAL,X,Y
+ ; initialize variables for CS
+ NEW CSBB,CSTCH,CSTPC,CSPREV S (CSBB,CSTCH,CSTPC)=0
  S DAT=9999999-HDAT
  D DT^DICRW S EDT=$P(^RC(341,DA,0),U,6),LDT=$P(^(0),U,7) ;ending date of transactions to reprint
  F I=2,3 S II=$P($G(^RC(341,DA,1)),U,I) I II S BBAL("INT")=II Q
@@ -63,10 +65,17 @@
  I BDT S PDAT=9999999-$P(BDT,"."),PBAL=0 D PBAL^PRCAGU(DEB,.BDT,.PBAL) ;Get previous bal and prev date of last transaction
  D EN^PRCAGT(DEB,BDT,EDT) ;get transactions for date range
  S TBAL=0 D TBAL^PRCAGT(DEB,.TBAL) ;get trans bal
+ I CSBB,CSBB'<BBAL Q  ; entire account has been referred to CS
  S TBAL=PBAL+TBAL
  I TBAL=0,SITE("ZERO") G REPSQ ;zero balance
  I TBAL'>0,'$D(^TMP("PRCAGT",$J,DEB)) G REPSQ ;less than 0 no activity
  I TBAL<0,TBAL>-.99 G REPSQ ;refund less than 1.00
+ ; adjust amounts to be filed in 349.2 for CS bills
+ S TBAL=TBAL-CSBB ; reduce the total bill balance by CS balance
+ S CSPREV=CSBB-(CSTCH+CSTPC) ; compute the CS previous balance as the difference between the bill balance and the transaction balance
+ S PBAL=PBAL-CSPREV ; reduce the previous balance by the CS previous balance
+ S TBAL("CH")=TBAL("CH")-CSTCH ; reduce total charges by CS charges
+ S TBAL("PC")=TBAL("PC")-CSTPC ; reduce total credits by CS credits
  D EN^PRCAGST(DEB,.TBAL,PDAT,PBAL,LDT) ;print statement
  S (CR,NOT)=0,SITE("SCAN")=""
  F STAT=16,42 F BN=0:0 S BN=$O(^PRCA(430,"AS",DEB,STAT,BN)) Q:'BN  D

diff --git a/Packages/Accounts Receivable/Routines/PRCAGST1.m b/Packages/Accounts Receivable/Routines/PRCAGST1.m
@@ -1,12 +1,13 @@
 PRCAGST1 ;WASH-ISC@ALTOONA,PA/CMS-Print Patient Statement Bottom ;10/16/96  11:13 AM
-V ;;4.5;Accounts Receivable;**2,48,104,176,249**;Mar 20, 1995;Build 2
- ;;Per VHA Directive 10-93-142, this routine should not be modified.
+V ;;4.5;Accounts Receivable;**2,48,104,176,249,301**;Mar 20, 1995;Build 144
+ ;;Per VA Directive 6402, this routine should not be modified.
  ;ENTRY FROM PRCAGST PAGE 1
  NEW AMT,BN,DAT,DESC,I,REF,THNK,TN,TTY,X,Y,RCTOTAL
  D HDR
  S DESC(1)="Previous Balance",REF="" D WRL(PDAT,.DESC,PBAL,REF)
  S DAT=0
  F  S DAT=$O(^TMP("PRCAGT",$J,DEB,DAT)) Q:'DAT  S BN=0 F  S BN=$O(^TMP("PRCAGT",$J,DEB,DAT,BN)) Q:'BN  D
+ . Q:$D(^PRCA(430,"TCSP",BN))  ; skip CS bills/transactions
  . S REF=$P($G(^PRCA(430,BN,0)),"^") ; Get Bill Name
  . I $D(^TMP("PRCAGT",$J,DEB,DAT,BN,0)) S AMT=+^(0) I AMT D  Q
  .. D BILLDESC(BN,.DESC)  ; Compile bill description