Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^RCY(344.4

Package: Accounts Receivable

Global: ^RCY(344.4


Information

FileMan FileNo FileMan Filename Package
344.4 ELECTRONIC REMITTANCE ADVICE Accounts Receivable

Description

Directly Accessed By Routines, Total: 102

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

Accessed By FileMan Db Calls, Total: 53

Package Total Routines
Accounts Receivable 48 PRCAP269    PRCAP276    PRCAP298    RC45P303    RCBEADJ1    RCDPEAA1    RCDPEAA4    RCDPEAD
RCDPEADP    RCDPEAP    RCDPEAP1    RCDPEAPQ    RCDPEAPS    RCDPEDA4    RCDPEDS    RCDPEE
RCDPEFTL    RCDPELA1    RCDPELAR    RCDPEM0    RCDPEM2    RCDPEM21    RCDPEM41    RCDPEM5
RCDPEMAP    RCDPESP    RCDPESR5    RCDPESR6    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    

Pointed To By FileMan Files, Total: 5

Package Total FileMan Files
Accounts Receivable 5 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]    

Pointer To FileMan Files, Total: 5

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)[.164.045.047.0220.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: 41

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:  MAR 14, 2003
  • 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
.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:  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:  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'.
.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.
.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:  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.
.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)
.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;

  • LAST EDITED:  FEB 08, 2012
  • 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. 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).
  • 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.
.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
.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:  MAY 23, 2011
  • 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.
.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
.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'.
.18 REMOVE REASON 6;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<1)!($TR(X," ","")="") X
  • LAST EDITED:  JAN 24, 2012
  • HELP-PROMPT:  Enter the reason the ERA was removed from the EEOB worklist (1-100 characters).
  • 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:  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:  NOV 07, 2017
  • HELP-PROMPT:  (No range limit on date)
  • DESCRIPTION:  
    Date the ERA was matched to a paper check.
  • TECHNICAL DESCR:  
    This date will be automatically set to today's date by the software when an ERA is matched to a paper check.
5.04 CHECK MATCHED USER 5;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 07, 2017
  • DESCRIPTION:  
    The user who matched the ERA to a paper check.
  • TECHNICAL DESCR:  
    This field will be automatically set to the current user by the software when an ERA is matched to a paper check.
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.
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.
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.

External References

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

Global Variables Directly Accessed

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)
^RCY(344.49 - [#344.49] .08(XREF 2K), .08(XREF 2n2.4)

Naked Globals

Name Field # of Occurrence
^(0 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)

Local Variables

Legend:

>> 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*, 20.01+1*
>> D0 .01(XREF 2S), .08(XREF 2K), .08(XREF 2n2.3)
>> DA 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)
>> DIC ID.09+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)
>> I(0 .08(XREF 2K)
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), 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, 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~*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All