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

RCTCSPD5.m

Go to the documentation of this file.
  1. 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
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. ;PRCA*4.5*369 Add text transaction for auto recall <$25
  1. Q
  1. ;
  1. CSATRY ; Cross-Servicing Admin Adj Treasury Rev? Yes non-financial tx PRCA*4.5*400
  1. ;
  1. ; assumes that BILL variable is defined and contains bill number
  1. ;
  1. D FILETRN(BILL,53,DUZ,"CS ADMIN ADJ TR REV?Y")
  1. Q
  1. ;
  1. CSATRN ; Cross-Servicing Admin Adj Treasury Rev? No non-financial tx PRCA*4.5*400
  1. ;
  1. ; assumes that BILL variable is defined and contains bill number
  1. ;
  1. D FILETRN(BILL,54,DUZ,"CS ADMIN ADJ TR REV?N")
  1. Q
  1. ;
  1. CSITRY ; Cross-Servicing Incr Adj Treasury Rev? Yes non-financial tx PRCA*4.5*400
  1. ;
  1. ; assumes that BILL variable is defined and contains bill number
  1. ;
  1. D FILETRN(BILL,57,DUZ,"CS INC ADJ TR REV?Y")
  1. Q
  1. ;
  1. CSITRN ; Cross-Servicing Incr Adj Treasury Rev? No non-financial tx PRCA*4.5*400
  1. ;
  1. ; assumes that BILL variable is defined and contains bill number
  1. ;
  1. D FILETRN(BILL,58,DUZ,"CS INC ADJ TR REV?N")
  1. Q
  1. ;
  1. CSPRTR ; Cross-Servicing PENDING RECONCILIATION non-financial tx PRCA*4.5*400
  1. ; Called by R1^RCTCSPRS
  1. ;
  1. ; assumes that BILL variable is defined and contains bill number
  1. ;
  1. N DUZ
  1. S DUZ=.5,DUZ(0)="@",DUZ(2)=1 ; Server has no DUZ, use Postmaster
  1. D FILETRN(BILL,61,DUZ,"CS PEND RECON")
  1. Q
  1. ;
  1. CSRCLPL ; CS RECALL placed non-financial tx PRCA*4.5*400
  1. ;
  1. ; assumes that BILL variable is defined and contains bill number
  1. ;
  1. D FILETRN(BILL,62,DUZ,"CS RECALL PLACED")
  1. Q
  1. ;
  1. CSRCLPL1 ; CS RECALL placed non-financial tx with "HRFS RECALL" comment (recall due to HRFS patient flag being set) PRCA*4.5*400
  1. ;
  1. ; assumes that BILL variable is defined and contains bill number
  1. ;
  1. N CMNT
  1. S CMNT(1)="HRFS RECALL"
  1. D FILETRN(BILL,62,DUZ,"CS RECALL PLACED",.CMNT)
  1. Q
  1. ;
  1. CSAUTORC ; Recall from Cross-Servicing non-financial tx ; PRCA*4.5*400
  1. ;
  1. ; assumes that BILL variable is defined and contains bill number
  1. ;
  1. N DUZ
  1. S DUZ=.5,DUZ(0)="@",DUZ(2)=1 ; Server has no DUZ, use Postmaster
  1. D FILETRN(BILL,66,DUZ,"CS AUTO RECALL BILL <$25")
  1. Q
  1. ;
  1. FILETRN(PRCABN,PRCATYP,DUZ,BRCMNT,CMNT) ; file transaction PRCA*4.5*400
  1. ;
  1. ; PRCABN - bill number
  1. ; PRCATYP - transaction type
  1. ; DUZ - user DUZ to use
  1. ; BRCMNT - brief comment
  1. ; CMNT = comment (array containing data for WP field, format is CMNT(1)=line 1...CMNT(n)=line n)
  1. ;
  1. N FDA,IENS,PRCAEN,PRCAA1
  1. N DA,X ; set and used in SETTR^PRCAUTL
  1. D SETTR^PRCAUTL,PATTR^PRCAUTL Q:'$D(PRCAEN)
  1. S PRCAA1=$S($D(^PRCA(433,PRCAEN,4,0)):+$P(^(0),U,4),1:0) Q:PRCAA1'>0
  1. S IENS=PRCAEN_","
  1. S FDA(433,IENS,.03)=PRCABN ; Bill Number
  1. S FDA(433,IENS,3)=0 ; Calm Code Done
  1. S FDA(433,IENS,4)=2 ; Transaction status (complete)
  1. S FDA(433,IENS,5.02)=$E(BRCMNT,1,30) ; Brief Comment
  1. S FDA(433,IENS,11)=DT ; Transaction Date
  1. S FDA(433,IENS,12)=$O(^PRCA(430.3,"AC",PRCATYP,0)) ; Transaction Type
  1. S FDA(433,IENS,15)=0 ; Transaction Amount
  1. S FDA(433,IENS,42)=DUZ ; Processed By User
  1. D FILE^DIE("","FDA")
  1. I $D(CMNT) D WP^DIE(433,IENS,41,"","CMNT")
  1. Q