RCTCSPD4.m

RCTCSPD4 ;ALB/LMH - CROSS-SERVICING NON-FINANCIAL TRANSACTIONS ;03/15/14 3:34 PM

 ;;4.5;Accounts Receivable;**315,339,350,366,400**;Mar 20, 1995;Build 13

 ;;Per VA Directive 6402, this routine should not be modified.

 ;

 Q 

 ;

STOP ; CS stop placed non-financial tx  PRCA*4.5*400

 ;

 ; assumes that BILL variable is defined and contains bill number

 ;

 D FILETRN^RCTCSPD5(BILL,33,DUZ,"CS STOP PLACED")

 Q

 ;

DELSTOP ; CS delete stop non-financial tx  PRCA*4.5*400

 ;

 ; assumes that BILL variable is defined and contains bill number

 ;

 D FILETRN^RCTCSPD5(BILL,36,DUZ,"CS STOP DELETED")

 Q

 ;

RCLL ; Recall from Cross-Servicing non-financial tx  PRCA*4.5*400

 ;

 ; assumes that BILL variable is defined and contains bill number

 ;

 N DUZ

 S DUZ=.5,DUZ(0)="@",DUZ(2)=1 ; Server has no DUZ, use Postmaster

 D FILETRN^RCTCSPD5(BILL,34,DUZ,"CS BILL RECALL")

 Q

 ;

DELRCLL ; Cross-Servicing Delete Bill Recall non-financial tx  PRCA*4.5*400

 ;

 ; assumes that BILL variable is defined and contains bill number

 ;

 D FILETRN^RCTCSPD5(BILL,37,DUZ,"CS DEL BILL RECALL")

 Q

 ;

NEWDEBTR ; CS add new debtor non-financial tx  PRCA*4.5*400

 ;         Called by RCTCSPD

 ;

 ; assumes that BILL variable is defined and contains bill number

 ;

 N DUZ

 S DUZ=.5,DUZ(0)="@",DUZ(2)=1 ; Server has no DUZ, use Postmaster

 D FILETRN^RCTCSPD5(BILL,48,DUZ,"CS NEW DBTR NEW BILL")

 Q

 ;

RCRSD ; CS Debtor Recall non-financial tx  PRCA*4.5*400

 ; Set this debtor for Recall from Cross-Servicing

 ;

 ; assumes that BILL variable is defined and contains bill number

 ;

 N DUZ

 S DUZ=.5,DUZ(0)="@",DUZ(2)=1 ; Server has no DUZ, use Postmaster

 D FILETRN^RCTCSPD5(BILL,35,DUZ,"CS DEBTOR RECALL")

 Q

 ;

DELSETD(BILL) ; CS Delete Debtor Recall non-financial tx  PRCA*4.5*400

 ;

 ; assumes that BILL variable is defined and contains bill number

 ;

 D FILETRN^RCTCSPD5(BILL,38,DUZ,"CS DEL DEBTOR RECALL")

 Q

 ;

DEBTOR ; CS New Bill Existing Debtor non-financial tx  PRCA*4.5*400

 ;

 ; assumes that BILL variable is defined and contains bill number

 ;

 N DUZ

 S DUZ=.5,DUZ(0)="@",DUZ(2)=1 ; Server has no DUZ, use Postmaster

 D FILETRN^RCTCSPD5(BILL,39,DUZ,"CS DEBTOR NEW BILL")

 Q

 ;

CSCASE ;  Add Case Info non-financial tx  PRCA*4.5*400

 ;

 ; assumes that BILL variable is defined and contains bill number

 ;

 N DUZ

 S DUZ=.5,DUZ(0)="@",DUZ(2)=1 ; Server has no DUZ, use Postmaster

 D FILETRN^RCTCSPD5(BILL,47,DUZ,"CS ADD CASE INFO")

 Q

 ;

DELSETC ; Cross-Servicing delete case recall non-financial tx  PRCA*4.5*400

 ;

 ; assumes that BILL variable is defined and contains bill number

 ;

 D FILETRN^RCTCSPD5(BILL,46,DUZ,"CS DEL CASE RECALL")

 Q

 ;

DECADJ ; non-financial decrease adjustment transaction for 5b cross-servicing record  PRCA*4.5*400

 ;

 ; assumes that BILL variable is defined and contains bill number

 ;

 D FILETRN^RCTCSPD5(BILL,49,DUZ,"CS DECREASE ADJ")

 Q

 ;

DECADJ0 ; decrease adjustment transaction deletes cs date  PRCA*4.5*400

 ; 5B tx takes bal. of bill to 0 

 ; if node 7 balances = 0.  Called by RCTCSPD

 ;

 ; assumes that BILL variable is defined and contains bill number

 ;

 D FILETRN^RCTCSPD5(BILL,40,DUZ,"CS DECR ADJ NOT APP")

 D CHKS

 Q

 ;

RCRSC ; Cross-Servicing case recall non-financial tx  PRCA*4.5*400

 ;

 ; assumes that BILL variable is defined and contains bill number

 ;

 N DUZ

 S DUZ=.5,DUZ(0)="@",DUZ(2)=1 ; Server has no DUZ, use Postmaster

 D FILETRN^RCTCSPD5(BILL,45,DUZ,"CS CASE RECALL")

 Q

 ;

RRREQ ; CS RE-REFER BILL REQUEST non-financial tx  PRCA*4.5*400

 ; Request a referral, called from RRSETB^RCTCSPU

 ; INPUT: BILL,REASON,COMMENT

 N CMNT

 Q:$G(REASON)=""

 S CMNT(1)=$S(REASON="R":"Recall in error",REASON="T":"Treasury reversal",REASON="D":"Defaulted RPP",REASON="O":"Other: "_$G(COMMENT),1:" ")

 D FILETRN^RCTCSPD5(BILL,63,DUZ,"CS RE-REFER BILL REQUEST",.CMNT)

 Q

 ;

RRCAN ; CS RE-REFER BILL CANCEL non-financial tx  PRCA*4.5*400

 ; Cancel a referral request, called from RRSETB^RCTCSPU

 ;

 ; assumes that BILL variable is defined and contains bill number

 ;

 D FILETRN^RCTCSPD5(BILL,65,DUZ,"CS RE-REFER BILL CANCEL")

 Q

RRSEND ; CS New Bill Existing Debtor non-financial tx ;  PRCA*4.5*400

 ;

 ; assumes that BILL variable is defined and contains bill number

 ;

 N DUZ,I

 S I=$O(^PRCA(430,BILL,15.5,99999),-1)

 I I'="" S DUZ=$P($G(^PRCA(430,BILL,15.5,I,0)),U,3)

 S:'$G(DUZ) DUZ=.5 ; Server has no DUZ, use Postmaster if can't find it

 S DUZ(0)="@",DUZ(2)=1

 D FILETRN^RCTCSPD5(BILL,64,DUZ,"CS DEBTOR RE-REFER BILL")

 Q

 ;

CHKS ;Leave validation checks in place

 I $P($G(^PRCA(433,PRCAEN,5)),"^",2)=""!'$P(^PRCA(433,PRCAEN,1),"^") S PRCACOMM="TRANSACTION INCOMPLETE" D DELETE^PRCAWO1 K PRCACOMM Q

 I '$D(PRCAD("DELETE")) S RCASK=1 D TRANUP^PRCAUTL,UPPRIN^PRCADJ

 I $P($G(^RCD(340,+$P(^PRCA(430,PRCABN,0),"^",9),0)),"^")[";DPT(" D

 .;Ensure comment does not appear on patient statement

 .S $P(^PRCA(433,PRCAEN,0),"^",10)=1

 Q

 ; End of RCTCSPD4

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RCTCSPD4   5016     printed  Mar 13, 2025@20:53:37                                                                                                                                                                                                    Page 2

RCTCSPD4  ;ALB/LMH - CROSS-SERVICING NON-FINANCIAL TRANSACTIONS ;03/15/14 3:34 PM

 +1       ;;4.5;Accounts Receivable;**315,339,350,366,400**;Mar 20, 1995;Build 13

 +2       ;;Per VA Directive 6402, this routine should not be modified.

 +3       ;

 +4        QUIT 

 +5       ;

STOP      ; CS stop placed non-financial tx  PRCA*4.5*400

 +1       ;

 +2       ; assumes that BILL variable is defined and contains bill number

 +3       ;

 +4        DO FILETRN^RCTCSPD5(BILL,33,DUZ,"CS STOP PLACED")

 +5        QUIT 

 +6       ;

DELSTOP   ; CS delete stop non-financial tx  PRCA*4.5*400

 +1       ;

 +2       ; assumes that BILL variable is defined and contains bill number

 +3       ;

 +4        DO FILETRN^RCTCSPD5(BILL,36,DUZ,"CS STOP DELETED")

 +5        QUIT 

 +6       ;

RCLL      ; Recall from Cross-Servicing non-financial tx  PRCA*4.5*400

 +1       ;

 +2       ; assumes that BILL variable is defined and contains bill number

 +3       ;

 +4        NEW DUZ

 +5       ; Server has no DUZ, use Postmaster

           SET DUZ=.5

           SET DUZ(0)="@"

           SET DUZ(2)=1

 +6        DO FILETRN^RCTCSPD5(BILL,34,DUZ,"CS BILL RECALL")

 +7        QUIT 

 +8       ;

DELRCLL   ; Cross-Servicing Delete Bill Recall non-financial tx  PRCA*4.5*400

 +1       ;

 +2       ; assumes that BILL variable is defined and contains bill number

 +3       ;

 +4        DO FILETRN^RCTCSPD5(BILL,37,DUZ,"CS DEL BILL RECALL")

 +5        QUIT 

 +6       ;

NEWDEBTR  ; CS add new debtor non-financial tx  PRCA*4.5*400

 +1       ;         Called by RCTCSPD

 +2       ;

 +3       ; assumes that BILL variable is defined and contains bill number

 +4       ;

 +5        NEW DUZ

 +6       ; Server has no DUZ, use Postmaster

           SET DUZ=.5

           SET DUZ(0)="@"

           SET DUZ(2)=1

 +7        DO FILETRN^RCTCSPD5(BILL,48,DUZ,"CS NEW DBTR NEW BILL")

 +8        QUIT 

 +9       ;

RCRSD     ; CS Debtor Recall non-financial tx  PRCA*4.5*400

 +1       ; Set this debtor for Recall from Cross-Servicing

 +2       ;

 +3       ; assumes that BILL variable is defined and contains bill number

 +4       ;

 +5        NEW DUZ

 +6       ; Server has no DUZ, use Postmaster

           SET DUZ=.5

           SET DUZ(0)="@"

           SET DUZ(2)=1

 +7        DO FILETRN^RCTCSPD5(BILL,35,DUZ,"CS DEBTOR RECALL")

 +8        QUIT 

 +9       ;

DELSETD(BILL) ; CS Delete Debtor Recall non-financial tx  PRCA*4.5*400

 +1       ;

 +2       ; assumes that BILL variable is defined and contains bill number

 +3       ;

 +4        DO FILETRN^RCTCSPD5(BILL,38,DUZ,"CS DEL DEBTOR RECALL")

 +5        QUIT 

 +6       ;

DEBTOR    ; CS New Bill Existing Debtor non-financial tx  PRCA*4.5*400

 +1       ;

 +2       ; assumes that BILL variable is defined and contains bill number

 +3       ;

 +4        NEW DUZ

 +5       ; Server has no DUZ, use Postmaster

           SET DUZ=.5

           SET DUZ(0)="@"

           SET DUZ(2)=1

 +6        DO FILETRN^RCTCSPD5(BILL,39,DUZ,"CS DEBTOR NEW BILL")

 +7        QUIT 

 +8       ;

CSCASE    ;  Add Case Info non-financial tx  PRCA*4.5*400

 +1       ;

 +2       ; assumes that BILL variable is defined and contains bill number

 +3       ;

 +4        NEW DUZ

 +5       ; Server has no DUZ, use Postmaster

           SET DUZ=.5

           SET DUZ(0)="@"

           SET DUZ(2)=1

 +6        DO FILETRN^RCTCSPD5(BILL,47,DUZ,"CS ADD CASE INFO")

 +7        QUIT 

 +8       ;

DELSETC   ; Cross-Servicing delete case recall non-financial tx  PRCA*4.5*400

 +1       ;

 +2       ; assumes that BILL variable is defined and contains bill number

 +3       ;

 +4        DO FILETRN^RCTCSPD5(BILL,46,DUZ,"CS DEL CASE RECALL")

 +5        QUIT 

 +6       ;

DECADJ    ; non-financial decrease adjustment transaction for 5b cross-servicing record  PRCA*4.5*400

 +1       ;

 +2       ; assumes that BILL variable is defined and contains bill number

 +3       ;

 +4        DO FILETRN^RCTCSPD5(BILL,49,DUZ,"CS DECREASE ADJ")

 +5        QUIT 

 +6       ;

DECADJ0   ; decrease adjustment transaction deletes cs date  PRCA*4.5*400

 +1       ; 5B tx takes bal. of bill to 0 

 +2       ; if node 7 balances = 0.  Called by RCTCSPD

 +3       ;

 +4       ; assumes that BILL variable is defined and contains bill number

 +5       ;

 +6        DO FILETRN^RCTCSPD5(BILL,40,DUZ,"CS DECR ADJ NOT APP")

 +7        DO CHKS

 +8        QUIT 

 +9       ;

RCRSC     ; Cross-Servicing case recall non-financial tx  PRCA*4.5*400

 +1       ;

 +2       ; assumes that BILL variable is defined and contains bill number

 +3       ;

 +4        NEW DUZ

 +5       ; Server has no DUZ, use Postmaster

           SET DUZ=.5

           SET DUZ(0)="@"

           SET DUZ(2)=1

 +6        DO FILETRN^RCTCSPD5(BILL,45,DUZ,"CS CASE RECALL")

 +7        QUIT 

 +8       ;

RRREQ     ; CS RE-REFER BILL REQUEST non-financial tx  PRCA*4.5*400

 +1       ; Request a referral, called from RRSETB^RCTCSPU

 +2       ; INPUT: BILL,REASON,COMMENT

 +3        NEW CMNT

 +4        if $GET(REASON)=""

               QUIT 

 +5        SET CMNT(1)=$SELECT(REASON="R":"Recall in error",REASON="T":"Treasury reversal",REASON="D":"Defaulted RPP",REASON="O":"Other: "_$GET(COMMENT),1:" ")

 +6        DO FILETRN^RCTCSPD5(BILL,63,DUZ,"CS RE-REFER BILL REQUEST",.CMNT)

 +7        QUIT 

 +8       ;

RRCAN     ; CS RE-REFER BILL CANCEL non-financial tx  PRCA*4.5*400

 +1       ; Cancel a referral request, called from RRSETB^RCTCSPU

 +2       ;

 +3       ; assumes that BILL variable is defined and contains bill number

 +4       ;

 +5        DO FILETRN^RCTCSPD5(BILL,65,DUZ,"CS RE-REFER BILL CANCEL")

 +6        QUIT 

RRSEND    ; CS New Bill Existing Debtor non-financial tx ;  PRCA*4.5*400

 +1       ;

 +2       ; assumes that BILL variable is defined and contains bill number

 +3       ;

 +4        NEW DUZ,I

 +5        SET I=$ORDER(^PRCA(430,BILL,15.5,99999),-1)

 +6        IF I'=""

               SET DUZ=$PIECE($GET(^PRCA(430,BILL,15.5,I,0)),U,3)

 +7       ; Server has no DUZ, use Postmaster if can't find it

           if '$GET(DUZ)

               SET DUZ=.5

 +8        SET DUZ(0)="@"

           SET DUZ(2)=1

 +9        DO FILETRN^RCTCSPD5(BILL,64,DUZ,"CS DEBTOR RE-REFER BILL")

 +10       QUIT 

 +11      ;

CHKS      ;Leave validation checks in place

 +1        IF $PIECE($GET(^PRCA(433,PRCAEN,5)),"^",2)=""!'$PIECE(^PRCA(433,PRCAEN,1),"^")

               SET PRCACOMM="TRANSACTION INCOMPLETE"

               DO DELETE^PRCAWO1

               KILL PRCACOMM

               QUIT 

 +2        IF '$DATA(PRCAD("DELETE"))

               SET RCASK=1

               DO TRANUP^PRCAUTL

               DO UPPRIN^PRCADJ

 +3        IF $PIECE($GET(^RCD(340,+$PIECE(^PRCA(430,PRCABN,0),"^",9),0)),"^")[";DPT("

               Begin DoDot:1

 +4       ;Ensure comment does not appear on patient statement

 +5                SET $PIECE(^PRCA(433,PRCAEN,0),"^",10)=1

               End DoDot:1

 +6        QUIT 

 +7       ; End of RCTCSPD4