RCDPESCR ;AITC/CJE - NEW ERA STATUS CHANGE REPORT ;05-NOV-02
;;4.5;Accounts Receivable;**439**;Mar 20, 1995;Build 29
;;Per VA Directive 6402, this routine should not be modified.
Q
;
SET ; Set Logic for MUMPS cross reference to create Match Status Audit data
N IENS,EFTIEN,FDA,NOW
S EFTIEN=""
I X(1)=1!(X(1)=-1) S EFTIEN=$$GETEFT(DA)
S NOW=$$NOW^XLFDT()
S IENS="+1,"_DA_","
S FDA(344.43,IENS,.01)=NOW
S FDA(344.43,IENS,.02)=DUZ
S FDA(344.43,IENS,.03)=X1(1)
S FDA(344.43,IENS,.04)=X(1)
S FDA(344.43,IENS,.05)=EFTIEN
;
D UPDATE^DIE("","FDA")
Q
;
GETEFT(ERAIEN) ; Given an internal entry number of an ERA return the matched EFT
; Input - ERAIEN : Internal entry number of an Electronic Remttance advice (file #344.4)
; Returns - Internal entry number of an Electronic funs transfer (file #344.31)
Q $O(^RCY(344.31,"AERA",ERAIEN,""))
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCDPESCR 875 printed Jan 29, 2026@14:43:45 Page 2
RCDPESCR ;AITC/CJE - NEW ERA STATUS CHANGE REPORT ;05-NOV-02
+1 ;;4.5;Accounts Receivable;**439**;Mar 20, 1995;Build 29
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 QUIT
+4 ;
SET ; Set Logic for MUMPS cross reference to create Match Status Audit data
+1 NEW IENS,EFTIEN,FDA,NOW
+2 SET EFTIEN=""
+3 IF X(1)=1!(X(1)=-1)
SET EFTIEN=$$GETEFT(DA)
+4 SET NOW=$$NOW^XLFDT()
+5 SET IENS="+1,"_DA_","
+6 SET FDA(344.43,IENS,.01)=NOW
+7 SET FDA(344.43,IENS,.02)=DUZ
+8 SET FDA(344.43,IENS,.03)=X1(1)
+9 SET FDA(344.43,IENS,.04)=X(1)
+10 SET FDA(344.43,IENS,.05)=EFTIEN
+11 ;
+12 DO UPDATE^DIE("","FDA")
+13 QUIT
+14 ;
GETEFT(ERAIEN) ; Given an internal entry number of an ERA return the matched EFT
+1 ; Input - ERAIEN : Internal entry number of an Electronic Remttance advice (file #344.4)
+2 ; Returns - Internal entry number of an Electronic funs transfer (file #344.31)
+3 QUIT $ORDER(^RCY(344.31,"AERA",ERAIEN,""))
