Global: ^RCY(344.31

FileMan FileNo	FileMan Filename	Package
344.31	EDI THIRD PARTY EFT DETAIL	Accounts Receivable

Package	Total	Routines
Accounts Receivable	29	PRCAP269 PRCAP298 PRCAP318 RCDPEAA2 RCDPEAPQ RCDPEAR2 RCDPEDA2 RCDPEDA4 RCDPEDAR RCDPEE RCDPEFTL RCDPEM RCDPEM0 RCDPEM1 RCDPEM2 RCDPEM3 RCDPEM6 RCDPESR3 RCDPEU1 RCDPEWL RCDPEWLP RCDPRPLM RCDPTAR RCDPTAR1 RCDPUREC RCP326 RCP345 RCP367 RCY208PO

Package	Total	FileMan Files
Accounts Receivable	1	AR BATCH PAYMENT(#344)[.17]

Package	Total	FileMan Files
Accounts Receivable	3	AR BATCH PAYMENT(#344)[.09] EDI LOCKBOX DEPOSIT(#344.3)[.01] ELECTRONIC REMITTANCE ADVICE(#344.4)[.1]
Kernel	1	NEW PERSON(#200)[.17, #344.314(.03)]

Fields, Total: 24

Field #	Name	Loc	Type	Details
.01	EFT TRANSACTION	0;1	POINTER TO EDI LOCKBOX DEPOSIT FILE (#344.3)	**********************REQUIRED FIELD********************** EDI LOCKBOX DEPOSIT(#344.3) OUTPUT TRANSFORM: `I $D(DA),$P($G(^RCY(344.31,DA,0)),U,14) S Y=$P($G(^RCY(344.31,DA,0)),U)_"."_$P($G(^RCY(344.31,DA,0)),U,14)` LAST EDITED: `NOV 30, 2017` HELP-PROMPT: `Enter the reference to the EFT transaction that contains this EFT record.` DESCRIPTION: `This is the pointer to the EFT totals record that this EFT was received in.` CROSS-REFERENCE: `344.31^B` `1)= S ^RCY(344.31,"B",$E(X,1,30),DA)=""` `2)= K ^RCY(344.31,"B",$E(X,1,30),DA)`
.02	PAYER NAME	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` `MAXIMUM LENGTH: 60` LAST EDITED: `NOV 17, 2017` HELP-PROMPT: `Answer must be 1-60 characters in length.` DESCRIPTION: `This is the insurance co name as reported for the payment on the EFT.` FIELD INDEX: `C (#668) REGULAR IR LOOKUP & SORTING` `Short Descr: Used to look up entries by the full payer name.` `Description: This cross-reference is used for payer names of up to 60 characters.` `Set Logic: S ^RCY(344.31,"C",$E(X,1,60),DA)=""` `Kill Logic: K ^RCY(344.31,"C",$E(X,1,60),DA)` `Whole Kill: K ^RCY(344.31,"C")` `X(1): PAYER NAME (344.31,.02) (Subscr 1) (Len 60) (forwards)` RECORD INDEXES: `APT (#1524), ATP (#1525)`
.03	PAYER ID	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `NOV 17, 2017` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `This is the payer id as reported for the payment on the EFT.` RECORD INDEXES: `APT (#1524), ATP (#1525)`
.04	TRACE #	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<3) X` LAST EDITED: `JUN 30, 2014` HELP-PROMPT: `Answer must be 3-50 characters in length.` DESCRIPTION: `This is the bank trace number assigned to the electronic funds transfer (EFT) by the payer's bank.` FIELD INDEX: `F (#995) REGULAR IR LOOKUP & SORTING` `Short Descr: Cross-ref. full trace number` `Description: This cross-reference is used to find an EFT by its full trace number.` `Set Logic: S ^RCY(344.31,"F",$E(X,1,50),DA)=""` `Kill Logic: K ^RCY(344.31,"F",$E(X,1,50),DA)` `Whole Kill: K ^RCY(344.31,"F")` `X(1): TRACE # (344.31,.04) (Subscr 1) (Len 50) (forwards)` FIELD INDEX: `FNLZ (#996) MUMPS IR LOOKUP & SORTING` `Short Descr: Cross-ref. TRACE # without leading zeroes.` `Description: This cross-reference is used to lookup an ERA by its trace number without leading zeroes and to allow partial matches for numeric trace numbers. The "F" cross-reference is used for the full trace number. "NLZ" means "No` `Leading Zeroes", hence "FNLZ" for this cross-reference.` `After the leading zeroes are removed a space (" ") is appended to the cross-referenced value for collation purposes. This cross-reference is only SET or KILLed for TRACE # entries that are numeric or those with leading` `zeroes and numerics.` `A trace number such as "000345678" is stored as "345678 ", "001 " as "1 ",and "1234" as "1234 ".` `Trace numbers such as "000","0000","00000", etc. are stored as "0 ".` `Although the TRACE # field is supposed to be a minimum of 3 characters, this logic is designed to handle invalid values in this field.` `Set Logic: Q:'(X?.N!($E(X)=0))!($L(X)<2) N RC S RC=X X:$E(X)=0&($L(X)>2) "F S RC=$E(RC,2,$L(RC)) Q:$L(RC)<2!'($E(RC)=0)" S:$L($TR(RC," ")) ^RCY(344.31,"FNLZ",RC_" ",DA)=""` `Kill Logic: Q:'(X?.N!($E(X)=0))!($L(X)<2) N RC S RC=X X:$E(X)=0&($L(X)>2) "F S RC=$E(RC,2,$L(RC)) Q:$L(RC)<2!'($E(RC)=0)" K:$L($TR(RC," ")) ^RCY(344.31,"FNLZ",RC_" ",DA)` `Whole Kill: K ^RCY(344.31,"FNLZ")` `X(1): TRACE # (344.31,.04) (Subscr 1) (Len 50) (forwards)`
.05	PROVIDER TAX ID SENT	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `JAN 28, 2003` HELP-PROMPT: `Answer must be 1-15 characters in length.` DESCRIPTION: `This is the tax ID of the Medical Center. The EFT's are routed to the correct site based on this tax ID. If the 'TAX ID CORRECTED' is 'Y', this field will contain the incorrect tax ID as received by the FSC in Austin.`
.06	TAX ID CORRECTION	0;6	SET	'0' FOR NO CHANGE; 'E' FOR CHANGE BY EPHRA; 'C' FOR CHANGE BY CLAIM DATA; LAST EDITED: `JAN 28, 2003` HELP-PROMPT: `If the tax id was corrected, enter the entity who corrected it.` DESCRIPTION: `This field indicates if the tax id was corrected and if so, who did it.`
.07	AMOUNT OF PAYMENT	0;7	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999999)!(X<0) X` LAST EDITED: `JAN 28, 2003` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999999999999, 2 Decimal Digits` DESCRIPTION: `This is the amount of the deposit made by the payer into the banking institution.`
.08	MATCH STATUS	0;8	SET	'-1' FOR MATCHED WITH ERRORS; '0' FOR UNMATCHED; '1' FOR MATCHED; '2' FOR PAPER EOB MATCH; LAST EDITED: `AUG 25, 2015` HELP-PROMPT: `Enter the status to indicate if the payment has been matched to an ERA.` DESCRIPTION: `This is the status that indicates whether or not the EFT payment has been matched to an ERA record. If the total amt of the EFT payment does not = the total amount of the ERA payment, the status will be -1 (MATCHED WITH` `ERRORS).` TECHNICAL DESCR: `Note that there are two triggers associated with this field so Fileman should be used to update this field. If not, then the triggered fields will need to be manually updated.` CROSS-REFERENCE: `344.31^AMATCH` `1)= S ^RCY(344.31,"AMATCH",$E(X,1,30),DA)=""` `2)= K ^RCY(344.31,"AMATCH",$E(X,1,30),DA)` `3)= Do not delete` CROSS-REFERENCE: `^^TRIGGER^344.3^.14` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X I X S X=DIV X ^DD(344.31,.08,1,2,89.2) S X=$P(Y(101),U,14) S D0=I(0,0) S DIU=X K Y X ^DD(344.31,.08,1,2,1.1) X ^DD(344.31,.08,1,2,1.4)` `1.1)= S X=DIV S Y(1)=$S($D(^RCY(344.31,D0,0)):^(0),1:"") S X=DIU+$P(Y(1),U,7)` `1.4)= S DIH=$G(^RCY(344.3,DIV(0),0)),DIV=X I $D(^(0)) S $P(^(0),U,14)=DIV,DIH=344.3,DIG=.14 D ^DICR` `2)= X ^DD(344.31,.08,1,2,2.3) I X S X=DIV X ^DD(344.31,.08,1,2,89.2) S X=$P(Y(101),U,14) S D0=I(0,0) S DIU=X K Y X ^DD(344.31,.08,1,2,2.1) X ^DD(344.31,.08,1,2,2.4)` `2.1)= S X=DIV S Y(1)=$S($D(^RCY(344.31,D0,0)):^(0),1:"") S X=DIU-$P(Y(1),U,7)` `2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(344.31,.08,0)),U,3) S X=$P($P(Y(1),$C(59)_X_":",2),$C(59))'["UNMATCH"` `2.4)= S DIH=$G(^RCY(344.3,DIV(0),0)),DIV=X I $D(^(0)) S $P(^(0),U,14)=DIV,DIH=344.3,DIG=.14 D ^DICR` `89.2)= S I(0,0)=$G(D0),Y(1)=$S($D(^RCY(344.31,D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'D0!'$D(^RCY(344.3,+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^RCY(344.3,D0,0)):^(0),1:"")` `CREATE CONDITION)= INTERNAL(MATCH STATUS)` `CREATE VALUE)= TOTAL AMOUNT MATCHED+AMOUNT OF PAYMENT` `DELETE CONDITION)= OLD MATCH STATUS'["UNMATCH"` `DELETE VALUE)= TOTAL AMOUNT MATCHED-AMOUNT OF PAYMENT` `FIELD)= #.01:TOTAL AMOUNT MATCHED` CROSS-REFERENCE: `^^TRIGGER^344.314^.02` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(344.31,.08,1,3,89.3) S Y(102)=$S($D(^RCY(344.31,D0,4,D1,0)):^(0),1:"") S X=$P(Y(102),U,2) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(344.31,.08,1,3,` `1.4)` `1.4)= S DIH=$G(^RCY(344.31,DIV(0),4,DIV(1),0)),DIV=X I $D(^(0)) S $P(^(0),U,2)=DIV,DIH=344.314,DIG=.02 D ^DICR` `2)= Q` `89.2)= N DIC,DO S DIC=X N X S X=DIC,Y=-1,DIC="^RCY(344.31,D0,4,",DIC(0)="F",DIC("P")="344.314S" S DIU(1)=$S($D(DA(1)):DA(1),1:0),DA(1)=D0 D FILE^DICN:D0>0` `89.3)= S I(0,0)=$G(D0),I(1,0)=$G(D1),Y(1)=$S($D(^RCY(344.31,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S X=X X ^DD(344.31,.08,1,3,89.2) S (D,D1,DIV(1))=+Y,DA(1)=DIU(1)` `CREATE VALUE)= NOW` `DELETE VALUE)= NO EFFECT` `DIC)= LOOKUP` `FIELD)= MATCH STATUS:MATCH STATUS HISTORY:EDIT DATE/TIME` `This trigger creates the MATCH STATUS HISTORY multiple and update the MATCH STATUS (#.01) and EDIT DATE/TIME (#.02) fields of that multiple. Due to triggers on the EDIT DATE/TIME (#.02) field, the EDIT USER (#.03) and ERA` `RECORD (#.04) fields will also be updated.` RECORD INDEXES: `AMCCF (#847)`
.09	RECEIPT #	0;9	POINTER TO AR BATCH PAYMENT FILE (#344)	AR BATCH PAYMENT(#344) LAST EDITED: `MAY 30, 2018` HELP-PROMPT: `Enter the receipt that was created for this EFT detail record.` DESCRIPTION: `This is the receipt that was created for this EFT record.` CROSS-REFERENCE: `344.31^MCCFR` `1)= S ^RCY(344.31,"MCCFR",$E(X,1,30),DA)=""` `2)= K ^RCY(344.31,"MCCFR",$E(X,1,30),DA)` `Allows EFT for a receipt to be located. Used by AMCCF trigger on file #347 to find EFT for a given FMS document if the FMS status changes.` RECORD INDEXES: `AMCCF (#847)`
.1	ERA RECORD	0;10	POINTER TO ELECTRONIC REMITTANCE ADVICE FILE (#344.4)	ELECTRONIC REMITTANCE ADVICE(#344.4) LAST EDITED: `JAN 28, 2003` HELP-PROMPT: `Enter the id of the ERA record for this EFT.` DESCRIPTION: `This is the ERA record that contains the detail for this EFT.` CROSS-REFERENCE: `344.31^AERA` `1)= S ^RCY(344.31,"AERA",$E(X,1,30),DA)=""` `2)= K ^RCY(344.31,"AERA",$E(X,1,30),DA)` `3)= Do not delete` RECORD INDEXES: `AMCCF (#847)`
.11	EFT RECORDED AT SITE	0;11	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JAN 28, 2003` HELP-PROMPT: `Enter a 1 if the EFT deposit this EFT was received in has been` DESCRIPTION: `This is a flag that indicates the EFT deposit this EFT was received in has been recorded to the FMS system. This locks the record and it cannot be overwritten by another transmission of the same EFT deposit.`
.12	DATE CLAIMS PAID	0;12	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 28, 2003` HELP-PROMPT: `Enter the date the payer reported the claims were paid.` DESCRIPTION: `This is the date the payer reported the claims were paid.`
.13	DATE RECEIVED	0;13	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 04, 2014` HELP-PROMPT: `Enter the date this record was added to the system.` DESCRIPTION: `This is the date this record was added to the system.` CROSS-REFERENCE: `344.31^ADR` `1)= S ^RCY(344.31,"ADR",$E(X,1,30),DA)=""` `2)= K ^RCY(344.31,"ADR",$E(X,1,30),DA)` `This cross-reference is used by the ePayments software to find transactions by the date they were received.`
.14	TRANSACTION #	0;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 12, 2017` HELP-PROMPT: `Type a number between 1 and 999, 0 decimal digits.` DESCRIPTION: `This is the transaction # within the receipt for this EFT.` FIELD INDEX: `D (#980) REGULAR IR LOOKUP & SORTING` `Short Descr: Cross ref. EFT detail record identifier` `Description: This cross-reference is used to lookup an EFT DETAIL line using the EFT number and Transaction # fields combined in the format nnnn.nnn.` `Set Logic: S ^RCY(344.31,"D",X,DA)=""` `Kill Logic: K ^RCY(344.31,"D",X,DA)` `Whole Kill: K ^RCY(344.31,"D")` `X(1): TRANSACTION # (344.31,.14) (Subscr 1) (forwards)` `Transform (Storage): S X=$P(^RCY(344.31,DA,0),U)_"."_X_" "`
.15	ACH TRACE#	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `JUN 21, 2010` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This is the ACH trace # assigned by the Lockbox banking institution to this EFT detail record.`
.16	MANUAL TR DOCUMENT	1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2)!'(X?1"TR".E) X` LAST EDITED: `JUN 21, 2010` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: `This is the TR document that was entered on-line to manually post the EFT detail to the correct accounts and remove them from FUND 5287.4, revenue source code 8NZZ. This is used when a RECEIPT was not used to automatically` `generate a TR document for the EFT detail record.` RECORD INDEXES: `AMCCF (#847)`
.17	USER WHO REMOVED EFT	3;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `AUG 23, 2011` HELP-PROMPT: `User who marked the EFT deposit as a duplicate` DESCRIPTION: `This field records the name of the person who is marking the EFT as a duplicate.`
.18	DATE/TIME DUPLICATE REMOVED	3;2	DATE	INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 23, 2011` HELP-PROMPT: `Date/Time duplicate EFT was marked as removed` DESCRIPTION: `This field records the time that the EFT was marked as removed.` CROSS-REFERENCE: `344.31^E` `1)= S ^RCY(344.31,"E",$E(X,1,30),DA)=""` `2)= K ^RCY(344.31,"E",$E(X,1,30),DA)` `This cross reference is used to sort the file by the DATE/TIME RETURNED field (#.18).` RECORD INDEXES: `AMCCF (#847)`
.19	EFT REMOVAL REASON	3;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>100!($L(X)<1)!($TR(X," ","")="") X` LAST EDITED: `SEP 09, 2011` HELP-PROMPT: `The removal reason must be 1-100 characters in length.` DESCRIPTION: `The EFT removal reason is used to record the justification for removing this EFT.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.2	REMOVAL TYPE	3;4	SET	'D' FOR DUPLICATE EFT; 'M' FOR MILLENNIUM; LAST EDITED: `JAN 21, 2021` HELP-PROMPT: `Please enter 'D' for Duplicate EFT or 'M' for Millennium EFT` DESCRIPTION: `This field reflects whether the EFT is being removed as a duplicate EFT record or as a Millennium EFT record.`
2	ERROR MESSAGES	2;0	WORD-PROCESSING #344.312	DESCRIPTION: `This is the record of error messages for the EFT record.` LAST EDITED: `JAN 28, 2003` HELP-PROMPT: `Enter the text of the error` DESCRIPTION: `This is the record of error messages encountered for this EFT record.`
3	DEBIT/CREDIT FLAG	0;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1)!'(X?1"D") X` `MAXIMUM LENGTH: 1` LAST EDITED: `JUN 27, 2017` HELP-PROMPT: `Answer must be 1 character in length.` DESCRIPTION: `This field contains a "D" if the EFT is a debit EFT. This field is programmatically generated and should never be updated by a user.`
4	MATCH STATUS HISTORY	4;0	SET Multiple #344.314	344.314 DESCRIPTION: `This multiple keeps a historical record of the changes to the MATCH STATUS field. The data is populated by a trigger on the MATCH STATUS (#.08) field of the main file.` TECHNICAL DESCR: `This multiple and its fields are created by a trigger in the MATCH STATUS (#.08) field.`
9	MCCF DATE/TIME	9;1	DATE	INPUT TRANSFORM: `S %DT="ESTR" D ^%DT S X=Y K:X<1 X` LAST EDITED: `MAY 28, 2020` HELP-PROMPT: `Enter the date/time the EFT detail line data changed` DESCRIPTION: `This field is updated each time any EFT detail line field required for MCCF reporting is updated. The field is used by MCCF extract RPCs to identify recently changed EFT detail line data.` TECHNICAL DESCR: `This field is updated by action cross reference AMCCF.` CROSS-REFERENCE: `344.31^MCCF` `1)= S ^RCY(344.31,"MCCF",$E(X,1,30),DA)=""` `2)= K ^RCY(344.31,"MCCF",$E(X,1,30),DA)` `Recent EFT Changes Index for the MCCF Extract`

Customize PDF page

Package: Accounts Receivable

Global: ^RCY(344.31

Information

Description

Accessed By FileMan Db Calls, Total: 29

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 4

Fields, Total: 24