RCTCSPD5 ;ALB/LMH - CROSS-SERVICING NON-FINANCIAL TRANSACTIONS ;03/15/14 3:34 PM
;;4.5;Accounts Receivable;**315,339,366,369,400**;Mar 20, 1995;Build 13
;;Per VA Directive 6402, this routine should not be modified.
;
;PRCA*4.5*369 Add text transaction for auto recall <$25
Q
;
CSATRY ; Cross-Servicing Admin Adj Treasury Rev? Yes non-financial tx PRCA*4.5*400
;
; assumes that BILL variable is defined and contains bill number
;
D FILETRN(BILL,53,DUZ,"CS ADMIN ADJ TR REV?Y")
Q
;
CSATRN ; Cross-Servicing Admin Adj Treasury Rev? No non-financial tx PRCA*4.5*400
;
; assumes that BILL variable is defined and contains bill number
;
D FILETRN(BILL,54,DUZ,"CS ADMIN ADJ TR REV?N")
Q
;
CSITRY ; Cross-Servicing Incr Adj Treasury Rev? Yes non-financial tx PRCA*4.5*400
;
; assumes that BILL variable is defined and contains bill number
;
D FILETRN(BILL,57,DUZ,"CS INC ADJ TR REV?Y")
Q
;
CSITRN ; Cross-Servicing Incr Adj Treasury Rev? No non-financial tx PRCA*4.5*400
;
; assumes that BILL variable is defined and contains bill number
;
D FILETRN(BILL,58,DUZ,"CS INC ADJ TR REV?N")
Q
;
CSPRTR ; Cross-Servicing PENDING RECONCILIATION non-financial tx PRCA*4.5*400
; Called by R1^RCTCSPRS
;
; 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(BILL,61,DUZ,"CS PEND RECON")
Q
;
CSRCLPL ; CS RECALL placed non-financial tx PRCA*4.5*400
;
; assumes that BILL variable is defined and contains bill number
;
D FILETRN(BILL,62,DUZ,"CS RECALL PLACED")
Q
;
CSRCLPL1 ; CS RECALL placed non-financial tx with "HRFS RECALL" comment (recall due to HRFS patient flag being set) PRCA*4.5*400
;
; assumes that BILL variable is defined and contains bill number
;
N CMNT
S CMNT(1)="HRFS RECALL"
D FILETRN(BILL,62,DUZ,"CS RECALL PLACED",.CMNT)
Q
;
CSAUTORC ; 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(BILL,66,DUZ,"CS AUTO RECALL BILL <$25")
Q
;
FILETRN(PRCABN,PRCATYP,DUZ,BRCMNT,CMNT) ; file transaction PRCA*4.5*400
;
; PRCABN - bill number
; PRCATYP - transaction type
; DUZ - user DUZ to use
; BRCMNT - brief comment
; CMNT = comment (array containing data for WP field, format is CMNT(1)=line 1...CMNT(n)=line n)
;
N FDA,IENS,PRCAEN,PRCAA1
N DA,X ; set and used in SETTR^PRCAUTL
D SETTR^PRCAUTL,PATTR^PRCAUTL Q:'$D(PRCAEN)
S PRCAA1=$S($D(^PRCA(433,PRCAEN,4,0)):+$P(^(0),U,4),1:0) Q:PRCAA1'>0
S IENS=PRCAEN_","
S FDA(433,IENS,.03)=PRCABN ; Bill Number
S FDA(433,IENS,3)=0 ; Calm Code Done
S FDA(433,IENS,4)=2 ; Transaction status (complete)
S FDA(433,IENS,5.02)=$E(BRCMNT,1,30) ; Brief Comment
S FDA(433,IENS,11)=DT ; Transaction Date
S FDA(433,IENS,12)=$O(^PRCA(430.3,"AC",PRCATYP,0)) ; Transaction Type
S FDA(433,IENS,15)=0 ; Transaction Amount
S FDA(433,IENS,42)=DUZ ; Processed By User
D FILE^DIE("","FDA")
I $D(CMNT) D WP^DIE(433,IENS,41,"","CMNT")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCTCSPD5 3203 printed Oct 16, 2024@17:49:47 Page 2
RCTCSPD5 ;ALB/LMH - CROSS-SERVICING NON-FINANCIAL TRANSACTIONS ;03/15/14 3:34 PM
+1 ;;4.5;Accounts Receivable;**315,339,366,369,400**;Mar 20, 1995;Build 13
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ;PRCA*4.5*369 Add text transaction for auto recall <$25
+5 QUIT
+6 ;
CSATRY ; Cross-Servicing Admin Adj Treasury Rev? Yes non-financial tx PRCA*4.5*400
+1 ;
+2 ; assumes that BILL variable is defined and contains bill number
+3 ;
+4 DO FILETRN(BILL,53,DUZ,"CS ADMIN ADJ TR REV?Y")
+5 QUIT
+6 ;
CSATRN ; Cross-Servicing Admin Adj Treasury Rev? No non-financial tx PRCA*4.5*400
+1 ;
+2 ; assumes that BILL variable is defined and contains bill number
+3 ;
+4 DO FILETRN(BILL,54,DUZ,"CS ADMIN ADJ TR REV?N")
+5 QUIT
+6 ;
CSITRY ; Cross-Servicing Incr Adj Treasury Rev? Yes non-financial tx PRCA*4.5*400
+1 ;
+2 ; assumes that BILL variable is defined and contains bill number
+3 ;
+4 DO FILETRN(BILL,57,DUZ,"CS INC ADJ TR REV?Y")
+5 QUIT
+6 ;
CSITRN ; Cross-Servicing Incr Adj Treasury Rev? No non-financial tx PRCA*4.5*400
+1 ;
+2 ; assumes that BILL variable is defined and contains bill number
+3 ;
+4 DO FILETRN(BILL,58,DUZ,"CS INC ADJ TR REV?N")
+5 QUIT
+6 ;
CSPRTR ; Cross-Servicing PENDING RECONCILIATION non-financial tx PRCA*4.5*400
+1 ; Called by R1^RCTCSPRS
+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(BILL,61,DUZ,"CS PEND RECON")
+8 QUIT
+9 ;
CSRCLPL ; CS RECALL placed non-financial tx PRCA*4.5*400
+1 ;
+2 ; assumes that BILL variable is defined and contains bill number
+3 ;
+4 DO FILETRN(BILL,62,DUZ,"CS RECALL PLACED")
+5 QUIT
+6 ;
CSRCLPL1 ; CS RECALL placed non-financial tx with "HRFS RECALL" comment (recall due to HRFS patient flag being set) PRCA*4.5*400
+1 ;
+2 ; assumes that BILL variable is defined and contains bill number
+3 ;
+4 NEW CMNT
+5 SET CMNT(1)="HRFS RECALL"
+6 DO FILETRN(BILL,62,DUZ,"CS RECALL PLACED",.CMNT)
+7 QUIT
+8 ;
CSAUTORC ; 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(BILL,66,DUZ,"CS AUTO RECALL BILL <$25")
+7 QUIT
+8 ;
FILETRN(PRCABN,PRCATYP,DUZ,BRCMNT,CMNT) ; file transaction PRCA*4.5*400
+1 ;
+2 ; PRCABN - bill number
+3 ; PRCATYP - transaction type
+4 ; DUZ - user DUZ to use
+5 ; BRCMNT - brief comment
+6 ; CMNT = comment (array containing data for WP field, format is CMNT(1)=line 1...CMNT(n)=line n)
+7 ;
+8 NEW FDA,IENS,PRCAEN,PRCAA1
+9 ; set and used in SETTR^PRCAUTL
NEW DA,X
+10 DO SETTR^PRCAUTL
DO PATTR^PRCAUTL
if '$DATA(PRCAEN)
QUIT
+11 SET PRCAA1=$SELECT($DATA(^PRCA(433,PRCAEN,4,0)):+$PIECE(^(0),U,4),1:0)
if PRCAA1'>0
QUIT
+12 SET IENS=PRCAEN_","
+13 ; Bill Number
SET FDA(433,IENS,.03)=PRCABN
+14 ; Calm Code Done
SET FDA(433,IENS,3)=0
+15 ; Transaction status (complete)
SET FDA(433,IENS,4)=2
+16 ; Brief Comment
SET FDA(433,IENS,5.02)=$EXTRACT(BRCMNT,1,30)
+17 ; Transaction Date
SET FDA(433,IENS,11)=DT
+18 ; Transaction Type
SET FDA(433,IENS,12)=$ORDER(^PRCA(430.3,"AC",PRCATYP,0))
+19 ; Transaction Amount
SET FDA(433,IENS,15)=0
+20 ; Processed By User
SET FDA(433,IENS,42)=DUZ
+21 DO FILE^DIE("","FDA")
+22 IF $DATA(CMNT)
DO WP^DIE(433,IENS,41,"","CMNT")
+23 QUIT
