Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All
Print Page as PDF
Global: ^RCY(344

Package: Accounts Receivable

Global: ^RCY(344


Information

FileMan FileNo FileMan Filename Package
344 AR BATCH PAYMENT Accounts Receivable

Description

Accessed By FileMan Db Calls, Total: 27

Package Total Routines
Accounts Receivable 26 RCBEADJ1    RCDPEAP    RCDPEDA2    RCDPEDA4    RCDPELA1    RCDPEM0    RCDPEM21    RCDPEM5
RCDPEMA    RCDPENR3    RCDPEU1    RCDPEU2    RCDPEWL4    RCDPEWL5    RCDPEWLP    RCDPLPS2
RCDPRPL3    RCDPRPLM    RCDPTAR    RCDPTAR2    RCDPURE1    RCDPUREC    RCDPUT    RCP321
RCTAS10I    RCY208PO    
Integrated Billing 1 IBJTTB1    

Pointed To By FileMan Files, Total: 7

Package Total FileMan Files
Accounts Receivable 7 AR FMS DOCUMENT(#347)[1.03]    AR DATA QUEUE(#348.4)[#348.42(.01)]    EDI THIRD PARTY EFT DETAIL(#344.31)[.09]    ELECTRONIC REMITTANCE ADVICE(#344.4)[.08, #344.41(.25), #344.48(.01)]
EDI LOCKBOX EOB WORKLIST(#344.49)[.02, #344.494(.01)]    RCDPE SUSPENSE AUDIT(#344.71)[.03]    RCDPE COMMENT HISTORY(#344.73)[.01]    

Pointer To FileMan Files, Total: 7

Package Total FileMan Files
Accounts Receivable 5 ACCOUNTS RECEIVABLE(#430)[#344.01(.03)]    AR EVENT TYPE(#341.1)[.04]    AR DEPOSIT(#344.1)[.06]    EDI THIRD PARTY EFT DETAIL(#344.31)[.17]    ELECTRONIC REMITTANCE ADVICE(#344.4)[.18]    
Kernel 1 NEW PERSON(#200)[.02, .07, .11, #344.01(.12), #344.01(.14), #344.01(3.03), #344.01(3.05)]
Registration 1 PATIENT(#2)[#344.01(.03)]    

Fields, Total: 26

Field # Name Loc Type Details
.01 RECEIPT # 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>12!($L(X)<7) X D:$D(X) DUPLCATE^RCDPURED
  • LAST EDITED:  FEB 10, 2015
  • HELP-PROMPT:  Answer must be 7-10 characters in length.
  • DESCRIPTION:  This field should reflect the field service receipt number. This field is assigned during entry of payments and will separate different types of payment (cash, check, or credit card) for a particular user for a given
    time-frame.
  • PRE-LOOKUP:  D LOOKUP^RCDPUREC
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  344^B
    1)= S ^RCY(344,"B",$E(X,1,30),DA)=""
    2)= K ^RCY(344,"B",$E(X,1,30),DA)
    3)= Needed to look-up Batch Payment entries by RECEIPT NUMBER
    This cross-reference is used for sorting and file look-up by receipt
    #.
  • CROSS-REFERENCE:  ^^TRIGGER^344.4^.08
    1)= Q
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(344,.01,1,2,89.2) S X=$P($G(^RCY(344,+$P(Y(101),U,8),0)),U) S D0=I(0,0) S DIU=X K Y S X="" S DIH=$G(^RCY(344.4,DIV(0),0)),DIV=X I $D(^(0)) S $P(^(0),U,8)=DIV,DIH=344.4,DIG=.08 D ^DIC
    R
    3)= Do not delete
    89.2)= S I(0,0)=$G(D0),Y(1)=$S($D(^RCY(344,D0,0)):^(0),1:""),D0=$P(Y(1),U,18) S:'D0!'$D(^RCY(344.4,+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^RCY(344.4,D0,0)):^(0),1:"")
    CREATE VALUE)= NO EFFECT
    DELETE VALUE)= @
    FIELD)= ERA REFERENCE:RECEIPT
.02 OPENED BY 0;2 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  JUN 22, 1992
  • DESCRIPTION:  
    This field contains the name of the person who created the receipt.
  • CROSS-REFERENCE:  344^AA1^MUMPS
    1)= I $P(^RCY(344,DA,0),"^",4)]"" K ^RCY(344,"AA",X,$P(^(0),"^",4)) S ^RCY(344,"AA",X,$P(^RCY(344,DA,0),"^",4),DA)=""
    2)= I $P(^RCY(344,DA,0),"^",4)]"",$O(^RCY(344,"AA",X,$P(^(0),"^",4),""))=DA K ^RCY(344,"AA",X,$P(^RCY(344,DA,0),"^",4),DA)
    3)= NEEDED TO STORE LAST RECEIPT NUMBER USED
    This cross-reference stores the last receipt number used by a user specific to type of payment.
    This cross-reference is used to show the default Receipt # when using the payment options in the Agent Cashier module.
.03 DATE OPENED 0;3 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 24, 2017
  • DESCRIPTION:  
    This field contains the date/time the receipt was created.
  • CROSS-REFERENCE:  344^AO
    1)= S ^RCY(344,"AO",$E(X,1,30),DA)=""
    2)= K ^RCY(344,"AO",$E(X,1,30),DA)
    This cross reference by DATE OPENED was added to speed compilation of the RCDP LIST OF RECEIPTS REPORT which is filtered by this field.
.04 TYPE OF PAYMENT 0;4 POINTER TO AR EVENT TYPE FILE (#341.1)
************************REQUIRED FIELD************************
AR EVENT TYPE(#341.1)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,6)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 06, 1998
  • DESCRIPTION:  
    A receipt is created for different types of payments, such as, Cash, Credit Card, or Check/Money Order. This field defines the types of payments that are stored under this receipt.
  • SCREEN:  S DIC("S")="I $P(^(0),U,6)=1"
  • EXPLANATION:  You can only select payment event types.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  344^AA^MUMPS
    1)= I $P(^RCY(344,DA,0),"^",2)]"" K ^RCY(344,"AA",$P(^(0),"^",2),X) S ^RCY(344,"AA",$P(^RCY(344,DA,0),"^",2),X,DA)=""
    2)= I $P(^RCY(344,DA,0),"^",2)]"",$O(^RCY(344,"AA",$P(^(0),"^",2),X,""))=DA K ^RCY(344,"AA",$P(^RCY(344,DA,0),"^",2),X,DA)
    3)= NEEDED TO STORE LAST RECEIPT NUMBER USED
    This cross-reference stores the last receipt number used by a user specific to type of payment.
    This cross-reference supports the cross-reference in field "OPENED BY".
  • RECORD INDEXES:  C (#846)
.05 *QUEUED TO POST 0;5 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 27, 1998
  • DESCRIPTION:  
    ***** This field is no longer used. *****
.06 DEPOSIT TICKET 0;6 POINTER TO AR DEPOSIT FILE (#344.1) AR DEPOSIT(#344.1)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),""^"",12)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 04, 1997
  • DESCRIPTION:  
    The Date of Deposit defines the date that the payments received under this batch will be deposited to the bank.
  • SCREEN:  S DIC("S")="I $P(^(0),""^"",12)=1"
  • EXPLANATION:  Select only OPENED deposit tickets
  • CROSS-REFERENCE:  344^AD
    1)= S ^RCY(344,"AD",$E(X,1,30),DA)=""
    2)= K ^RCY(344,"AD",$E(X,1,30),DA)
.07 PROCESSED BY 0;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 27, 1998
  • DESCRIPTION:  
    When a receipt is processed, the AR accounts are updated with the payments and the Cash Receipt documents are sent to FMS. This field tracks the user processing the receipt.
.08 DATE/TIME PROCESSED 0;8 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 13, 2020
  • DESCRIPTION:  
    When a receipt is processed, the AR accounts are updated with the payments and the Cash Receipt documents are sent to FMS. This field tracks the date and time the receipt was processed.
  • RECORD INDEXES:  AMCCF (#845), C (#846)
.09 *START DATE/TIME 0;9 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 27, 1998
  • DESCRIPTION:  
    ***** This field is no longer used. *****
.1 *END DATE/TIME 0;10 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 27, 1998
  • DESCRIPTION:  
    ***** This field is no longer used. *****
.11 LAST EDITED BY 0;11 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 21, 1991
  • DESCRIPTION:  
    This contains the name of the person who last edited the receipt entry. This field is automatically entered each time a person edits the receipt.
.12 DATE/TIME LAST EDIT 0;12 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 14, 1991
  • DESCRIPTION:  
    This field contains the date/time the receipt was last edited.
  • RECORD INDEXES:  AMCCF (#845)
.14 STATUS 0;14 SET
************************REQUIRED FIELD************************
  • '0' FOR CLOSED;
  • '1' FOR OPEN;

  • LAST EDITED:  SEP 12, 1994
  • DESCRIPTION:  
    This field stores the status of the receipt. An open receipt can be modified (payments added, cancelled, or edited). A closed receipt cannot be changed.
  • CROSS-REFERENCE:  344^ASTAT
    1)= S ^RCY(344,"ASTAT",$E(X,1,30),DA)=""
    2)= K ^RCY(344,"ASTAT",$E(X,1,30),DA)
.15 TOTAL AMOUNT OF RECEIPTS COMPUTED

  • MUMPS CODE:  S X=$$PAYTOTAL^RCDPURED(D0)
  • ALGORITHM:  S X=$$PAYTOTAL^RCDPURED(D0)
  • LAST EDITED:  MAY 07, 1999
  • DESCRIPTION:  
    Total of all payments in the receipt.
.16 LOCKBOX ACH NUMBER 0;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<1) X
  • LAST EDITED:  MAR 13, 2003
  • HELP-PROMPT:  Answer must be 1-9 characters in length.
  • DESCRIPTION:  
    Number assigned by banking institution to track their electronic deposit for the V.A.
.17 EFT RECORD 0;17 POINTER TO EDI THIRD PARTY EFT DETAIL FILE (#344.31) EDI THIRD PARTY EFT DETAIL(#344.31)

  • INPUT TRANSFORM:  S DIC("S")="I $S('$O(^RCY(344,""AEFT"",+Y,0)):1,1:$O(^(0))=DA),$P($G(^RCY(344.31,+Y,0)),U,8)=0" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 03, 2014
  • HELP-PROMPT:  Enter the EFT from which this receipt detail record was generated
  • DESCRIPTION:  
    If this is the detail receipt for a payment made via an EFT, this is the pointer to the individual EFT that was received.
  • SCREEN:  S DIC("S")="I $S('$O(^RCY(344,""AEFT"",+Y,0)):1,1:$O(^(0))=DA),$P($G(^RCY(344.31,+Y,0)),U,8)=0"
  • EXPLANATION:  1. An EFT record can only be associated with 1 EDI Lockbox type receipt. 2. Selection of a matched EFT cannot occur.
  • NOTES:  TRIGGERED by the TYPE OF PAYMENT field of the AR BATCH PAYMENT File
  • CROSS-REFERENCE:  344^AEFT
    1)= S ^RCY(344,"AEFT",$E(X,1,30),DA)=""
    2)= K ^RCY(344,"AEFT",$E(X,1,30),DA)
    3)= Do not delete
  • RECORD INDEXES:  AMCCF (#845)
.18 ERA REFERENCE 0;18 POINTER TO ELECTRONIC REMITTANCE ADVICE FILE (#344.4) ELECTRONIC REMITTANCE ADVICE(#344.4)

  • LAST EDITED:  OCT 13, 2014
  • HELP-PROMPT:  Enter the ERA record that will be used to populate this receipt detail.
  • DESCRIPTION:  
    This is the pointer to the ERA record that will be associated with this receipt.
  • SCREEN:  S DIC("S")="N Z S Z=$O(^RCY(344.4,""ARCT"",+DA,0)) I 'Z!(Z=+Y)"
  • EXPLANATION:  Only 1 receipt can be associated with an ERA record
.19 RECEIPT PAY TYPE 0;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • LAST EDITED:  JUN 10, 2016
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
  • DESCRIPTION:  
    Pay type will be auto set during lockbox posting to drive the pay type needed for receipt re-processing.
  • TECHNICAL DESCR:  
    Set in routine RCBEPAY as a result of lockboc type post
.22 RECEIPT TOTAL 0;22 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999.99)!(X<-99999.99)!(X?.E1"."3.N) X
  • LAST EDITED:  OCT 11, 2022
  • HELP-PROMPT:  Type a dollar amount between -99999.99 and 9999999.99, 2 decimal digits.
  • DESCRIPTION:  
    This field is used for CHAMPVA receipts only. This is the receipt total for the CHAMPVA receipt. This must match the sum of the line items on the receipt for the receipt to be processed.
1 TRANSACTION 1;0 Multiple #344.01 344.01

  • LAST EDITED:  JUN 19, 1992
  • DESCRIPTION:  
    This multiple contains all the payment transactions within a receipt.
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 RECEIPT data changed
  • DESCRIPTION:  
    This field is updated each time any RECEIPT field required for MCCF reporting is updated. The field is used by MCCF extract RPCs to identify recently changed RECEIPT data.
100 *PROGRESS COMPUTED

  • MUMPS CODE:  S X=""
  • ALGORITHM:  S X=""
  • LAST EDITED:  MAY 07, 1999
  • DESCRIPTION:  
    ***** This field is no longer used. *****
101 NUMBER OF TRANSACTIONS COMPUTED

  • MUMPS CODE:  S X=$$PAYCOUNT^RCDPURED(D0)
  • ALGORITHM:  S X=$$PAYCOUNT^RCDPURED(D0)
  • LAST EDITED:  MAY 07, 1999
  • DESCRIPTION:  
    Total number of payment transactions recorded on a receipt.
200 FMS DOCUMENT NUMBER 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  JAN 28, 1999
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    This field is used to store the FMS document number used to create the CR code sheets for this receipt.
  • CROSS-REFERENCE:  344^ADOC
    1)= S ^RCY(344,"ADOC",$E(X,1,30),DA)=""
    2)= K ^RCY(344,"ADOC",$E(X,1,30),DA)
    This cross reference is used to lookup up the receipt number if the cash receipt document is known.
  • RECORD INDEXES:  AMCCF (#845)
201 CR DOCUMENT ENTERED ON LINE 2;2 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 27, 2001
  • DESCRIPTION:  
    This field will override the status of a cash receipt document. If a cash receipt document is rejected, you can set this field to a 1 to show the document is entered on line.
  • RECORD INDEXES:  AMCCF (#845)
202 ORIGINAL FMS DOCUMENT 2;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
    MAXIMUM LENGTH: 20
  • LAST EDITED:  DEC 21, 2017
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    This is the original FMS document for a CR receipt.
  • TECHNICAL DESCR:  This field is used to save the original rejected FMS document if the receipt is marked as an ON-LINE entry and the original FMS DOCUMENT field (#200) value is replaced with a manually entered FMS document.
    If the on-line entry status of the receipt is removed then the #202 field value is restored into field #200.
Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All