Global: ^RCY(344.4

FileMan FileNo	FileMan Filename	Package
344.4	ELECTRONIC REMITTANCE ADVICE	Accounts Receivable

Package	Total	Routines
Accounts Receivable	100	PRCAP214 PRCAP269 RC45P252 RC45P303 RCDPDPL1 RCDPE215 RCDPE8NZ RCDPEAA1 RCDPEAC RCDPEAD RCDPEAD3 RCDPEAD4 RCDPEAP1 RCDPEAR1 RCDPEARL RCDPEDS RCDPELAR RCDPEM RCDPEM21 RCDPEM4 RCDPEM5 RCDPEMAP RCDPENR3 RCDPENR4 RCDPEP RCDPEREC RCDPESR6 RCDPESR8 RCDPESRV RCDPEU RCDPEU1 RCDPEV RCDPEWL5 RCDPEWLA RCDPEWLB RCDPEWLP RCDPEX31 RCDPEX32 RCDPEX4 RCDPPLB RCDPRPL3 RCDPURE1 RCDPUREC RCDPURED RCDPURET RCP345 RCP371 RCTAS10I RCY208PO ^RCY(344 ERA DETAIL ERA LEVEL ADJUSTMENTS OTHER RECEIPT NUMBERS PRCAP276 PRCAP298 RCBEADJ RCBEADJ1 RCDPAYER RCDPEAA2 RCDPEAA3 RCDPEAD1 RCDPEAP RCDPEAPQ RCDPEAR4 RCDPEDA4 RCDPEM0 RCDPEM2 RCDPEM3 RCDPEM41 RCDPEM7 RCDPEMA RCDPENR1 RCDPESP RCDPESPB RCDPESR0 RCDPESR2 RCDPETR RCDPEV0 RCDPEWL RCDPEWL0 RCDPEWL1 RCDPEWL2 RCDPEWL4 RCDPEWL6 RCDPEWL7 RCDPEWL8 RCDPEWLC RCDPEWLD RCDPEWLZ RCDPEX2 RCDPEX3 RCDPLPLM RCDPR215 RCDPRPL2 RCDPRSEA RCDPRU RCDPTAR RCP332 RCP409 ^RCY(344.4
Integrated Billing	5	IBCECSA6 IBJTBA1 IBJTEP IBJTEP1 IBJTPE

Package	Total	Routines
Accounts Receivable	52	PRCAP269 PRCAP276 PRCAP298 RC45P303 RCBEADJ1 RCDPEAA1 RCDPEAA4 RCDPEAD RCDPEAD4 RCDPEADP RCDPEAP RCDPEAP1 RCDPEAPQ RCDPEAPS RCDPEDA4 RCDPEDS RCDPEE RCDPEFTL RCDPELA1 RCDPELAR RCDPEM0 RCDPEM2 RCDPEM21 RCDPEM41 RCDPEM5 RCDPEMAP RCDPENR4 RCDPESP RCDPESR5 RCDPESR6 RCDPEU RCDPEU1 RCDPEV0 RCDPEWL RCDPEWL0 RCDPEWL1 RCDPEWL4 RCDPEWL5 RCDPEWL7 RCDPEWL8 RCDPEWLP RCDPEWLZ RCDPEX1 RCDPEX3 RCDPEX31 RCDPPLB RCDPRPLM RCDPRU RCDPTAR RCDPURE1 RCP326 RCY208PO
Integrated Billing	5	IBJTAD IBJTEP IBJTEP1 IBJTPE IBJTTB1

Package	Total	FileMan Files
Accounts Receivable	6	AR TRANSACTION(#433)[95] AR BATCH PAYMENT(#344)[.18] EDI THIRD PARTY EFT DETAIL(#344.31)[.1] EDI LOCKBOX EOB WORKLIST(#344.49)[.01] AR EDI LOCKBOX MESSAGES(#344.5)[.07] RCDPE AUTO-POST AUDIT(#344.72)[.03]

Package	Total	FileMan Files
Integrated Billing	2	INSURANCE COMPANY(#36)[#344.41(.04)] EXPLANATION OF BENEFITS(#361.1)[#344.41(.02)]
Kernel	2	INSTITUTION(#4)[#344.41(.11)] NEW PERSON(#200)[.16, 4.04, 5.04, 7.02, 20.02, #344.41(4.02), #344.41(6.01)]
Accounts Receivable	1	AR BATCH PAYMENT(#344)[.08, #344.41(.25), #344.48(.01)]

Fields, Total: 42

Field #	Name	Loc	Type	Details
.01	ENTRY	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X` LAST EDITED: `MAY 16, 2018` HELP-PROMPT: `Type a Number between 1 and 9999999999, 0 Decimal Digits` DESCRIPTION: `This field contains a sequential number generated at the time a record is stored in the file. It only serves to create an entry in the file and has no other special meaning.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `344.4^B` `1)= S ^RCY(344.4,"B",$E(X,1,30),DA)=""` `2)= K ^RCY(344.4,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `^^TRIGGER^344.4^.14` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCY(344.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X=0 S DIH=$G(^RCY(344.4,DIV(0),0)),DIV=X S $P(^(0),U,14)=DIV,DIH=344.4,DIG=.14 D ^DICR` `2)= Q` `3)= Do not delete` `CREATE VALUE)= S X=0` `DELETE VALUE)= NO EFFECT` `FIELD)= DETAIL POST STATUS` RECORD INDEXES: `AMCCF (#848)`
.02	TRACE NUMBER	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<3) X` LAST EDITED: `OCT 01, 2014` HELP-PROMPT: `Answer must be 3-50 characters in length.` DESCRIPTION: `This is the bank trace number assigned to the ERA received. If the ERA was paid by paper check, this should be the check #.` FIELD INDEX: `D (#981) REGULAR IR LOOKUP & SORTING` `Short Descr: REGULAR INDEX` `Description: This cross-reference is used to look up an ERA by its full trace number.` `Set Logic: S ^RCY(344.4,"D",$E(X,1,50),DA)=""` `Kill Logic: K ^RCY(344.4,"D",$E(X,1,50),DA)` `Whole Kill: K ^RCY(344.4,"D")` `X(1): TRACE NUMBER (344.4,.02) (Subscr 1) (Len 50) (forwards)` FIELD INDEX: `DNLZ (#1212) 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 "D" cross-reference is used for the full trace number. "NLZ" means "No` `Leading Zeroes", hence "DNLZ" 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)) 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 ^RCY(344.4,"DNLZ",RC_" ",DA)=""` `Kill Logic: Q:'(X?.N!($E(X)=0)) 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 ^RCY(344.4,"DNLZ",RC_" ",DA)` `Whole Kill: K ^RCY(344.4,"DNLZ")` `X(1): TRACE NUMBER (344.4,.02) (Subscr 1) (Len 50) (forwards)` RECORD INDEXES: `AMCCF (#848), ATRID (#292), ATRIDUP (#403)`
.03	INSURANCE CO ID	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `NOV 17, 2017` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This is the insurance co's electronic ID that will be recorded on each ERA received at the site. This field, along with the trace number should always be unique in this file.` CROSS-REFERENCE: `344.4^I` `1)= S ^RCY(344.4,"I",$E(X,1,30),DA)=""` `2)= K ^RCY(344.4,"I",$E(X,1,30),DA)` `3)= Do not Delete` `This is a search index on INSURANCE CO ID field, reports against the ERA file use a lookup based on INSURANCE CO ID, this index will reduce the time to generate ad-hoc reports.` RECORD INDEXES: `AMCCF (#848), APT (#1526), ATP (#1527), ATRID (#292), ATRIDUP (#403)`
.04	ERA DATE	0;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 29, 2011` HELP-PROMPT: `Enter the date from the ERA record.` DESCRIPTION: `This is the date the ERA was generated by the payer.` CROSS-REFERENCE: `344.4^AC` `1)= S ^RCY(344.4,"AC",$E(X,1,30),DA)=""` `2)= K ^RCY(344.4,"AC",$E(X,1,30),DA)` `3)= DO NOT DELETE` `This cross-reference is used by the option 'Mark ERAs Returned to Payer Audit Report'.` RECORD INDEXES: `AMCCF (#848)`
.05	TOTAL AMOUNT PAID	0;5	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999)!(X<0) X` LAST EDITED: `SEP 24, 2002` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999999999, 2 Decimal Digits` DESCRIPTION: `This is the total amount of all the individual EOB records included in the ERA.` RECORD INDEXES: `AMCCF (#848)`
.06	PAYMENT FROM	0;6	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 name of the insurance co as returned on the ERA.` FIELD INDEX: `C (#404) MUMPS 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.` `Do not delete this cross-reference.` `Set Logic: S ^RCY(344.4,"C",$$UP^XLFSTR($E(X,1,60)),DA)=""` `Kill Logic: K ^RCY(344.4,"C",$$UP^XLFSTR($E(X,1,60)),DA)` `Whole Kill: K ^RCY(344.4,"C")` `X(1): PAYMENT FROM (344.4,.06) (Subscr 1) (Len 60) (forwards)` RECORD INDEXES: `AMCCF (#848), APT (#1526), ATP (#1527)`
.07	FILE DATE/TIME	0;7	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 21, 2004` HELP-PROMPT: `Enter the date/time the ERA was filed in VistA.` DESCRIPTION: `This is the date/time the ERA was filed in VistA.` CROSS-REFERENCE: `344.4^AFD` `1)= S ^RCY(344.4,"AFD",$E(X,1,30),DA)=""` `2)= K ^RCY(344.4,"AFD",$E(X,1,30),DA)` `3)= Do not delete` `Created to find entries to include on ERA worklist pick list.` RECORD INDEXES: `AMCCF (#848)`
.08	RECEIPT	0;8	POINTER TO AR BATCH PAYMENT FILE (#344)	AR BATCH PAYMENT(#344) LAST EDITED: `APR 06, 2004` HELP-PROMPT: `Enter the receipt that this ERA detail is contained in.` DESCRIPTION: `This is the receipt created to record the detail of the ERA for AR posting.` NOTES: `TRIGGERED by the RECEIPT # field of the AR BATCH PAYMENT File` CROSS-REFERENCE: `344.4^AREC` `1)= S ^RCY(344.4,"AREC",$E(X,1,30),DA)=""` `2)= K ^RCY(344.4,"AREC",$E(X,1,30),DA)` `3)= Do not delete` CROSS-REFERENCE: `^^TRIGGER^344.49^.02` `1)= Q` `2)= X ^DD(344.4,.08,1,2,2.3) I X S X=DIV S I(0,0)=$G(D0),D0=D0 S:'D0!'$D(^RCY(344.49,+D0,0)) D0=-1 S DIV(0)=D0,Y(101)=$S($D(^RCY(344.49,D0,0)):^(0),1:"") S X=$P($G(^RCY(344,+$P(Y(101),U,2),0)),U),D0=I(0,0),DIU=X K Y S X=""` `X ^DD(344.4,.08,1,2,2.4)` `2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^RCY(344.4,D0,0)):^(0),1:"") S X=$P($G(^RCY(344,+$P(Y(1),U,8),0)),U)=""` `2.4)= S DIH=$G(^RCY(344.49,DIV(0),0)),DIV=X I $D(^(0)) S $P(^(0),U,2)=DIV,DIH=344.49,DIG=.02 D ^DICR` `3)= Do not delete` `CREATE VALUE)= NO EFFECT` `DELETE CONDITION)= RECEIPT=""` `DELETE VALUE)= @` `FIELD)= EDI LOCKBOX EOB WORKLIST:RECEIPT` FIELD INDEX: `ARCT (#291) REGULAR IR SORTING ONLY` `Short Descr: Cross reference by AR receipt #` `Set Logic: S ^RCY(344.4,"ARCT",X,DA)=""` `Kill Logic: K ^RCY(344.4,"ARCT",X,DA)` `Whole Kill: K ^RCY(344.4,"ARCT")` `X(1): RECEIPT (344.4,.08) (Subscr 1) (forwards)` RECORD INDEXES: `AMCCF (#848)`
.09	EFT MATCH STATUS	0;9	SET	'0' FOR UNMATCHED; '-1' FOR MATCHED WITH ERRORS; '1' FOR MATCHED; '2' FOR MATCHED TO PAPER CHECK; '3' FOR MATCH-0 PAYMENT; '4' FOR REMOVED FROM WORKLIST; '5' FOR MATCHED TO TDA; LAST EDITED: `JAN 12, 2022` HELP-PROMPT: `Enter the status to indicate if the ERA has been matched` DESCRIPTION: `This is the status that indicates whether or not the ERA has been matched to an electronic EFT record or TDA. If the total amt of the EFT payment does not equal the total amount of the ERA payment, the status will be -1` `(MATCHED WITH ERRORS). If the ERA has a 0-payment and no EFT or check, the status will be 3 (MATCH-0 PAYMENT) and if matched to a paper check, the status will be 2 (MATCHED TO PAPER CHECK). If the ERA has been removed` `from the worklist the status will be 4 (REMOVED FROM WORKLIST). If the ERA has been matched to a TDA, the status will be 5 (MATCHED TO A TDA).` CROSS-REFERENCE: `344.4^AMATCH` `1)= S ^RCY(344.4,"AMATCH",$E(X,1,30),DA)=""` `2)= K ^RCY(344.4,"AMATCH",$E(X,1,30),DA)` `3)= Do not delete` `This xref allows easy access to unmatched or mismatched ERA records.` RECORD INDEXES: `AMCCF (#848)`
.1	ERA TYPE	0;10	SET	'0' FOR MRA; '1' FOR ERA; LAST EDITED: `DEC 06, 2002` HELP-PROMPT: `Enter a 0 if this is an ERA from MEDICARE (MRA)` DESCRIPTION: `This is the field that will designate whether the ERA is from an insurance company or from MEDICARE via the MRA requests.`
.11	INDIVIDUAL EOB COUNT	0;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 17, 2002` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits` DESCRIPTION: `This field contains the total # of EOB detail records included in the ERA.` NOTES: `TRIGGERED by the SEQUENCE # field of the ERA DETAIL sub-field of the ELECTRONIC REMITTANCE ADVICE File` RECORD INDEXES: `AMCCF (#848)`
.12	MAIL MESSAGE	0;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` LAST EDITED: `JAN 14, 2003` HELP-PROMPT: `Answer must be 1-60 characters in length.` DESCRIPTION: `This is the list of message #s where the original ERA was received, separated by commas.`
.13	CHECK #	5;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<1) X` LAST EDITED: `JAN 12, 2022` HELP-PROMPT: `Answer must be 1-50 characters in length.` DESCRIPTION: `This is the # of the paper check that was received for payment of this ERA. NOTE: If the EFT MATCH STATUS is 5 (MATCHED TO TDA), this field is null.` RECORD INDEXES: `AMCCF (#848)`
.14	ERA DETAIL POST STATUS	0;14	SET	'0' FOR NOT POSTED; '1' FOR POSTED; '2' FOR MANUALLY POSTED; '3' FOR POSTING NOT NEEDED; '4' FOR NOT POSTED-REMOVED; '5' FOR PARTIAL; LAST EDITED: `MAR 07, 2014` HELP-PROMPT: `Enter the code that corresponds to whether or not the ERA detail was posted and if so, if it was manually posted.` DESCRIPTION: `This is a flag that indicates whether or not the receipt for the ERA has been posted. It is used to limit the choices when selecting ERAs for the ERA Worklist option.` NOTES: `TRIGGERED by the ENTRY field of the ELECTRONIC REMITTANCE ADVICE File` RECORD INDEXES: `AMCCF (#848)`
.15	EXPECTED PAYMENT METHOD CODE	0;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1) X` LAST EDITED: `SEP 12, 2003` HELP-PROMPT: `Answer must be 1-3 characters in length.` DESCRIPTION: `This is the code that indicates the method of payemnt that can be expected as a result of this ERA.`
.16	REMOVED BY	6;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 24, 2012` HELP-PROMPT: `Select the person who removed the ERA from the EEOB worklist.` DESCRIPTION: `This field is used to record the person who removed the ERA from the EEOB worklist.`
.17	REMOVED DATE	6;2	DATE	INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 17, 2012` HELP-PROMPT: `Enter the Date/time the ERA was removed.` DESCRIPTION: `This field records the date/time that the ERA was removed from the EEOB worklist.` CROSS-REFERENCE: `344.4^AD` `1)= S ^RCY(344.4,"AD",$E(X,1,30),DA)=""` `2)= K ^RCY(344.4,"AD",$E(X,1,30),DA)` `3)= DO NOT DELETE` `This cross-reference is used by the option 'Mark ERAs Returned to Payer Audit Report'.` RECORD INDEXES: `AMCCF (#848)`
.18	REMOVE REASON	6;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>60!($L(X)<5) X` `MAXIMUM LENGTH: 60` LAST EDITED: `OCT 26, 2022` HELP-PROMPT: `Answer must be 5-60 characters in length.` DESCRIPTION: `The justification for removing the ERA from the EEOB worklist.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.19	AUTO-DECREASE BLOCKED	6;4	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `FEB 09, 2018` HELP-PROMPT: `Enter YES if the ERA should not be auto-decreased.` DESCRIPTION: `This field is used to determine if a zero balance denial ERA with payment type of 'NON' should be blocked from auto-decrease in the PRCA Nightly Process.` TECHNICAL DESCR: `This field is set manually in the ERA Worklist if an ERA has auto-decrease CARCs but the user decides to block auto-decrease of these CARCS.`
1	ERA DETAIL	1;0	Multiple #344.41	344.41 LAST EDITED: `AUG 12, 2003` DESCRIPTION: `This subfile contains the list of individual EOBs that were processed in this ERA from a single payer.` INDEXED BY: `SEQUENCE # & EOB DETAIL & AMOUNT PAID & RECEIPT & ERROR STATUS & AUTO-DECREASE AMOUNT & AUTO-POST DATE & AUTO-DECREASE DATE (AMCCF), MCCF DATE/TIME (AMCCF1), EOB DETAIL & INVALID BILL NUMBER (AVAL)`
2	ERA LEVEL ADJUSTMENTS	2;0	Multiple #344.42	344.42 DESCRIPTION: `This field holds the ERA level adjustments the payer has applied to the ERA. These can be additional monies or less monies, depending on the type of adjustment (i.e. Takeback would be less money, interest would be more` `money).` INDEXED BY: `REFERENCE NUMBER (B)`
3.01	CONTACT NAME	3;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `MAR 20, 2003` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This is the name of the contact the payer has provided for questions regarding this ERA.`
3.02	CONTACT NUMBER 1	3;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` LAST EDITED: `AUG 02, 2010` HELP-PROMPT: `Answer must be 1-60 characters in length.` DESCRIPTION: `This is a phone #/telephone extension or email address for the contact.`
3.03	CONTACT TYPE 1	3;3	SET	'EM' FOR E-MAIL; 'FX' FOR FAX; 'TE' FOR TELEPHONE; 'EX' FOR TELEPHONE EXTENSION; LAST EDITED: `MAR 20, 2003` HELP-PROMPT: `Enter the code for the type of contact information.` DESCRIPTION: `This is the code that describes the type of contact information provided in the CONTACT NUMBER 1 field.`
3.04	CONTACT NUMBER 2	3;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` LAST EDITED: `AUG 02, 2010` HELP-PROMPT: `Answer must be 1-60 characters in length.` DESCRIPTION: `This is a phone #/telephone extension or email address for the contact.`
3.05	CONTACT TYPE 2	3;5	SET	'EM' FOR E-MAIL; 'FX' FOR FAX; 'TE' FOR TELEPHONE; 'EX' FOR TELEPHONE EXTENSION; LAST EDITED: `MAR 20, 2003` HELP-PROMPT: `Enter the code for the type of contact information.` DESCRIPTION: `This is the code that describes the type of contact information provided in the CONTACT NUMBER 2 field.`
3.06	CONTACT NUMBER 3	3;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` LAST EDITED: `AUG 02, 2010` HELP-PROMPT: `Answer must be 1-60 characters in length.` DESCRIPTION: `This is a phone #/telephone extension or email address for the contact.`
3.07	CONTACT TYPE 3	3;7	SET	'EM' FOR E-MAIL; 'FX' FOR FAX; 'TE' FOR TELEPHONE; 'EX' FOR TELEPHONE EXTENSION; LAST EDITED: `MAR 20, 2003` HELP-PROMPT: `Enter the code for the type of contact information.` DESCRIPTION: `This is the code that describes the type of contact information provided in the CONTACT NUMBER 3 field.`
4.01	AUTO-POST DATE	4;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 06, 2014` HELP-PROMPT: `Enter the date that this ERA was auto-posted.` DESCRIPTION: `This date is set by the auto-posting process in the PRCA nightly job when a matching ERA is found for an EFT which is accepted by FMS.` `This only applies if the ERA has no adjustments or interest charges and no pharmacy claims.`
4.02	AUTO-POST STATUS	4;2	SET	'0' FOR UNPOSTED; '1' FOR PARTIAL; '2' FOR COMPLETE; LAST EDITED: `MAR 26, 2014` HELP-PROMPT: `Enter the status for the ERA.` DESCRIPTION: `This field indicates if all the claim lines on an ERA have been posted as 'TR' receipts to Accounts Receivable.` CROSS-REFERENCE: `344.4^E` `1)= S ^RCY(344.4,"E",$E(X,1,30),DA)=""` `2)= K ^RCY(344.4,"E",$E(X,1,30),DA)` `This cross-reference is used to find ERA entries by the AUTO-POST STATUS for lookup and reporting purposes.`
4.03	LATEST AUTO-DECREASE DATE	4;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 06, 2014` HELP-PROMPT: `Enter date that this ERA was last auto-decreased.` DESCRIPTION: `This is the date that the ERA was last processed for automatic decrease adjustments by the nightly process.`
4.04	MARKED FOR AUTOPOST USER	4;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 11, 2017` HELP-PROMPT: `Select the person who marked the ERA for auto-posting` DESCRIPTION: `This is the person who marked the ERA for auto-posting. This field is set automatically by the system.`
5.01	PAYER WEB SITE ADDRESS	5;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>115!($L(X)<1) X` LAST EDITED: `JUN 18, 2010` HELP-PROMPT: `Enter payer web site address (1-115 characters).` DESCRIPTION: `This is the web site for the payer. The source for this field is the contact data record (type '01') of the X12 835 received from FSC.` TECHNICAL DESCR: `From 835 record 1000A PER04 where PER01 = "IC" and 1000A PER03 = "UR"`
5.03	DATE CHECK MATCHED	5;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `JAN 12, 2022` HELP-PROMPT: `(No range limit on date)` DESCRIPTION: `Date the ERA was matched to a paper check if the EFT MATCH STATUS is 2 (MATCHED TO PAPER CHECK). Date the ERA was matched to a TDA if the EFT MATCH STATUS is 5 (MATCHED TO A TDA).` TECHNICAL DESCR: `This date will be automatically set to today's date by the software when an ERA is matched to a paper check or to a TDA.`
5.04	CHECK MATCHED USER	5;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 12, 2022` DESCRIPTION: `The user who matched the ERA to a paper check if the EFT MATCH STATUS is 2 (MATCHED TO PAPER CHECK). The user who matched the ERA to a TDA if the EFT MATCH STATUS is 5 (MATCHED TO A TDA).` TECHNICAL DESCR: `This field will be automatically set to the current user by the software when an ERA is matched to a paper check or to a TDA.`
7.01	DATE/TIME ERA LINKED	7;1	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:X<1 X` LAST EDITED: `MAR 24, 2011` HELP-PROMPT: `Enter the date/time the ERA was linked to receipt.` DESCRIPTION: `This is date/time the ERA was linked to receipt.` CROSS-REFERENCE: `344.4^AFL` `1)= S ^RCY(344.4,"AFL",$E(X,1,30),DA)=""` `2)= K ^RCY(344.4,"AFL",$E(X,1,30),DA)` `Created to find entries to include on ERA posted to Paper EOB report.`
7.02	ERA LINKED BY	7;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 28, 2011` HELP-PROMPT: `Select the person who linked the ERA to the receipt.` DESCRIPTION: `This is the person who linked the ERA to the receipt.` RECORD INDEXES: `AMCCF (#848)`
8	OTHER RECEIPT NUMBERS	8;0	POINTER Multiple #344.48	344.48 DESCRIPTION: `An auto-posted ERA can have multiple receipt numbers. If there is more than one receipt number for an ERA the subsequent receipt numbers are stored in this sub-file.`
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 ERA data changed` DESCRIPTION: `This field is updated each time any ERA field required for MCCF reporting is updated. The field is used by MCCF extract RPCs to identify recently changed ERA data.` TECHNICAL DESCR: `This field is updated by action cross reference AMCCF.` CROSS-REFERENCE: `344.4^MCCF` `1)= S ^RCY(344.4,"MCCF",$E(X,1,30),DA)=""` `2)= K ^RCY(344.4,"MCCF",$E(X,1,30),DA)` `Recent ERA Changes Index for the MCCF Extract.`
20.01	DATE POSTED TO SUSPENSE	20;1	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 15, 2003` HELP-PROMPT: `Enter the date/time this receipt was posted to suspense.` DESCRIPTION: `This is the date/time this ERA was posted to suspense.`
20.02	POSTED TO SUSPENSE BY	20;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAY 15, 2003` HELP-PROMPT: `Enter the name of the person who posted this ERA to suspense.` DESCRIPTION: `This is the person who posted this ERA to suspense.`
20.03	PAPER EOB ENTRY	20;3	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `AUG 28, 2003` HELP-PROMPT: `Enter a 1 (YES) if the ERA was posted using a paper EOB.` DESCRIPTION: `This is a flag that indicates if the ERA was not referenced when its data was posted to A/R and FMS because the data was posted using the paper EOB instead.`

Name	Field # of Occurrence
^%DT	.04+1, .07+1, .17+1, 4.01+1, 4.03+1, 5.03+1, 7.01+1, 9+1, 20.01+1
EN^DDIOL	ID.14+1
^DICR	.01(XREF 2S), .08(XREF 2n2.4)
FILE^DIE	IXAMCCFSL+1
$$UP^XLFSTR	IXATRIDUPSL+1, IXATRIDUPKL+1, IXCSL+1, IXCKL+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(344.4	.08(XREF 2K)
^RCY(344 - [#344]	.08(XREF 2K), .08(XREF 2n2.3)
^RCY(344.4 - [#344.4]	IXAPTSL+1, IXAPTKL+1!, IXAPTKEIC+1!, IXARCTSL+1, IXARCTKL+1!, IXARCTKEIC+1!, IXATPSL+1, IXATPKL+1!, IXATPKEIC+1!, IXATRIDSL+1 , IXATRIDKL+1!, IXATRIDKEIC+1!, IXATRIDUPSL+1, IXATRIDUPKL+1!, IXATRIDUPKEIC+1!, IXCSL+1, IXCKL+1!, IXCKEIC+1!, IXDSL+1, IXDKL+1! , IXDKEIC+1!, IXDNLZSL+1, IXDNLZKL+1!, IXDNLZKEIC+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .03(XREF 1S), .03(XREF 1K), .04(XREF 1S) , .04(XREF 1K), .07(XREF 1S), .07(XREF 1K), .08(XREF 1S), .08(XREF 1K), .08(XREF 2n2.3), .09(XREF 1S), .09(XREF 1K), .17(XREF 1S), .17(XREF 1K) , 4.02(XREF 1S), 4.02(XREF 1K), 7.01(XREF 1S), 7.01(XREF 1K), 9(XREF 1S), 9(XREF 1K)
^RCY(344.49 - [#344.49]	.08(XREF 2K), .08(XREF 2n2.4)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.04+1, .07+1, .17+1, 4.01+1, 4.03+1, 5.03+1, 7.01+1, 9+1, 20.01+1*
>> D0	.01(XREF 2S), .08(XREF 2K), .08(XREF 2n2.3)
>> DA	IXAMCCFSL+1, IXAPTSL+1, IXAPTKL+1, IXARCTSL+1, IXARCTKL+1, IXATPSL+1, IXATPKL+1, IXATRIDSL+1, IXATRIDKL+1, IXATRIDUPSL+1 , IXATRIDUPKL+1, IXCSL+1, IXCKL+1, IXDSL+1, IXDKL+1, IXDNLZSL+1, IXDNLZKL+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S) , .03(XREF 1S), .03(XREF 1K), .04(XREF 1S), .04(XREF 1K), .07(XREF 1S), .07(XREF 1K), .08(XREF 1S), .08(XREF 1K), .08(XREF 2n2.3), .09(XREF 1S) , .09(XREF 1K), .17(XREF 1S), .17(XREF 1K), 4.02(XREF 1S), 4.02(XREF 1K), 7.01(XREF 1S), 7.01(XREF 1K), 9(XREF 1S), 9(XREF 1K)
>> DIC	ID.09+1
DIERR	IXAMCCFSL+1~
>> DIG	.01(XREF 2S), .08(XREF 2n2.4)
>> DIH	.01(XREF 2S), .08(XREF 2n2.4)
>> DINUM	.01+1*
>> DIU	.01(XREF 2S), .08(XREF 2K)
DIV	.01(XREF 2S), .08(XREF 2K), .08(XREF 2n2.3), .08(XREF 2n2.4)
DIV(0	.01(XREF 2S), .08(XREF 2K), .08(XREF 2n2.3), .08(XREF 2n2.4)
FDA	IXAMCCFSL+1~
FDA(	IXAMCCFSL+1*
>> I(0	.08(XREF 2K)
MSG	IXAMCCFSL+1~
RC	IXDNLZSL+1~, IXDNLZKL+1~
U	ID.02+1, ID.04+1, ID.05+1, ID.06+1, ID.14+1, .01(XREF 2S), .08(XREF 2K), .08(XREF 2n2.3), .08(XREF 2n2.4)
X	IXARCTSL+1, IXARCTKL+1, IXCSL+1, IXCKL+1, IXDSL+1, IXDKL+1, IXDNLZSL+1, IXDNLZKL+1, .01+1!, .01(XREF 1S) , .01(XREF 1K), .01(XREF 2S), .02+1!, .03+1!, .03(XREF 1S), .03(XREF 1K), .04+1!, .04(XREF 1S), .04(XREF 1K), .05+1! , .06+1!, .07+1!, .07(XREF 1S), .07(XREF 1K), .08(XREF 1S), .08(XREF 1K), .08(XREF 2K), .08(XREF 2n2.3), .08(XREF 2n2.4), .09(XREF 1S) , .09(XREF 1K), .11+1!, .12+1!, .13+1!, .15+1!, .17+1!, .17(XREF 1S), .17(XREF 1K), .18+1!, 3.01+1! , 3.02+1!, 3.04+1!, 3.06+1!, 4.01+1!, 4.02(XREF 1S), 4.02(XREF 1K), 4.03+1!, 5.01+1!, 5.03+1!, 7.01+1! , 7.01(XREF 1S), 7.01(XREF 1K), 9+1!, 9(XREF 1S), 9(XREF 1K), 20.01+1!
X(1	IXAPTSL+1, IXAPTKL+1, IXATPSL+1, IXATPKL+1, IXATRIDSL+1, IXATRIDKL+1, IXATRIDUPSL+1, IXATRIDUPKL+1
X(2	IXAPTSL+1, IXAPTKL+1, IXATPSL+1, IXATPKL+1, IXATRIDSL+1, IXATRIDKL+1, IXATRIDUPSL+1, IXATRIDUPKL+1
Y	.01(XREF 2S), .04+1, .07+1, .08(XREF 2K), .17+1, 4.01+1, 4.03+1, 5.03+1, 7.01+1, 9+1 , 20.01+1
Y(0	.08(XREF 2n2.3)
Y(1	.01(XREF 2S), .08(XREF 2n2.3)
Y(101	.08(XREF 2K)
Z	ID.09+1~*

Customize PDF page

Package: Accounts Receivable

Global: ^RCY(344.4

Information

Description

Directly Accessed By Routines, Total: 111

Accessed By FileMan Db Calls, Total: 57

Pointed To By FileMan Files, Total: 6

Pointer To FileMan Files, Total: 5

Fields, Total: 42

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: