STANDARD DATA DICTIONARY #344.31 -- EDI THIRD PARTY EFT DETAIL FILE 9/29/25 PAGE 1
STORED IN ^RCY(344.31, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 4.5)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file is used to store each individual payment from a single payer made to the site using Electronic Funds Transfer and the EDI
3rd Party Lockbox system in VistA.
IDENTIFIED BY: PAYER NAME (#.02), TRACE # (#.04), AMOUNT OF PAYMENT (#.07)
POINTED TO BY: EFT RECORD field (#.17) of the AR BATCH PAYMENT File (#344)
EFT # field (#.05) of the MATCH STATUS AUDIT sub-field (#344.43) of the ELECTRONIC REMITTANCE ADVICE File (#344.4)
CROSS
REFERENCED BY: DATE RECEIVED(ADR), ERA RECORD(AERA), MATCH STATUS(AMATCH), EFT TRANSACTION(B), DATE/TIME DUPLICATE REMOVED(E),
MCCF DATE/TIME(MCCF), RECEIPT #(MCCFR)
INDEXED BY: MATCH STATUS & RECEIPT # & ERA RECORD & MANUAL TR DOCUMENT & DATE/TIME DUPLICATE REMOVED (AMCCF), PAYER NAME & PAYER
ID (APT), PAYER ID & PAYER NAME (ATP), PAYER NAME (C), TRANSACTION # (D), TRACE # (F), TRACE # (FNLZ)
LAST MODIFIED: FEB 14,2023@17:41:43
344.31,.01 EFT TRANSACTION 0;1 POINTER TO EDI LOCKBOX DEPOSIT FILE (#344.3) (Required)
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)
344.31,.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)
344.31,.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)
344.31,.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)
344.31,.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.
344.31,.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.
344.31,.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.
344.31,.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 D
IU(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 (#827)
344.31,.09 RECEIPT # 0;9 POINTER TO AR BATCH PAYMENT FILE (#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 (#827)
344.31,.1 ERA RECORD 0;10 POINTER TO ELECTRONIC REMITTANCE ADVICE FILE (#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 (#827)
344.31,.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.
344.31,.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.
344.31,.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.
344.31,.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_" "
344.31,.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.
344.31,.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 (#827)
344.31,.17 USER WHO REMOVED EFT 3;1 POINTER TO NEW PERSON FILE (#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.
344.31,.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 (#827)
344.31,.19 EFT REMOVAL REASON 3;3 FREE TEXT (Required)
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
344.31,.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.
344.31,2 ERROR MESSAGES 2;0 WORD-PROCESSING #344.312 (NOWRAP)
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.
344.31,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.
344.31,4 MATCH STATUS HISTORY 4;0 SET Multiple #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.
344.314,.01 MATCH STATUS 0;1 SET (Multiply asked)
'-1' FOR MATCHED WITH ERRORS;
'0' FOR UNMATCHED;
'1' FOR MATCHED;
'2' FOR PAPER EOB MATCHED;
LAST EDITED: AUG 20, 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).
WRITE AUTHORITY: ^
CROSS-REFERENCE: 344.314^B
1)= S ^RCY(344.31,DA(1),4,"B",$E(X,1,30),DA)=""
2)= K ^RCY(344.31,DA(1),4,"B",$E(X,1,30),DA)
344.314,.02 EDIT DATE/TIME 0;2 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 22, 2015
HELP-PROMPT: Enter the date/time the MATCH STATUS field was modified
DESCRIPTION:
This is to track the date/time of the last update to the MATCH STATUS field.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the MATCH STATUS field of the EDI THIRD PARTY EFT DETAIL File
CROSS-REFERENCE: ^^TRIGGER^344.314^.03
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^RCY(344.31,D0,4,D1,0)):^(0),1:""
) S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(344.314,.02,1,2,1.4)
1.4)= S DIH=$G(^RCY(344.31,DIV(0),4,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=344.314,DIG=.03 D ^DICR
2)= Q
CREATE VALUE)= S X=DUZ
DELETE VALUE)= NO EFFECT
FIELD)= EDIT USER
This trigger will update the EDIT USER (#.03) field with the user who has updated the MATCH STATUS
field.
344.314,.03 EDIT USER 0;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: AUG 20, 2015
HELP-PROMPT: Enter the user who modified the MATCH STATUS
DESCRIPTION:
This field tracks the user who last modified the MATCH STATUS.
WRITE AUTHORITY:^
NOTES: TRIGGERED by the EDIT DATE/TIME field of the MATCH STATUS HISTORY sub-field of the EDI THIRD PARTY
EFT DETAIL File
344.31,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
FILES POINTED TO FIELDS
AR BATCH PAYMENT (#344) RECEIPT # (#.09)
EDI LOCKBOX DEPOSIT (#344.3) EFT TRANSACTION (#.01)
MATCH STATUS (#.08)
ELECTRONIC REMITTANCE ADVICE
(#344.4) ERA RECORD (#.1)
NEW PERSON (#200) USER WHO REMOVED EFT (#.17)
MATCH STATUS HISTORY:EDIT USER (#.03)
File #344.31
Record Indexes:
AMCCF (#827) RECORD MUMPS IR ACTION
Short Descr: Updates Recent EFT DETAIL Changes Index for MCCF Extract
Description: When any of the defined fields are updated, set the MCCF DATE/TIME (#9) field of this EFT record to NOW.
Set Logic: N FDA,MSG,DIERR S FDA(344.31,DA_",",9)="NOW" D FILE^DIE("E","FDA","MSG") Q
Kill Logic: Q
X(1): MATCH STATUS (344.31,.08) (forwards)
X(2): RECEIPT # (344.31,.09) (forwards)
X(3): ERA RECORD (344.31,.1) (forwards)
X(4): MANUAL TR DOCUMENT (344.31,.16) (forwards)
X(5): DATE/TIME DUPLICATE REMOVED (344.31,.18) (forwards)
NO RE-INDEXING ALLOWED!
APT (#1524) RECORD REGULAR IR SORTING ONLY
Short Descr: index by payer name and payer TIN.
Description: Index by payer name and payer ID. To be used when sorting reports by payer name first then payer ID.
Set Logic: S ^RCY(344.31,"APT",$E(X(1),1,60),$E(X(2),1,30),DA)=""
Kill Logic: K ^RCY(344.31,"APT",$E(X(1),1,60),$E(X(2),1,30),DA)
Whole Kill: K ^RCY(344.31,"APT")
X(1): PAYER NAME (344.31,.02) (Subscr 1) (Len 60) (forwards)
X(2): PAYER ID (344.31,.03) (Subscr 2) (Len 30) (forwards)
ATP (#1525) RECORD REGULAR IR SORTING ONLY
Short Descr: Index by payer TIN and payer name.
Description: Index by payer ID and payer name. To be used when sorting reports by payer ID first then payer name.
Set Logic: S ^RCY(344.31,"ATP",$E(X(1),1,30),$E(X(2),1,60),DA)=""
Kill Logic: K ^RCY(344.31,"ATP",$E(X(1),1,30),$E(X(2),1,60),DA)
Whole Kill: K ^RCY(344.31,"ATP")
X(1): PAYER ID (344.31,.03) (Subscr 1) (Len 30) (forwards)
X(2): PAYER NAME (344.31,.02) (Subscr 2) (Len 60) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):