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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | 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

Directly Accessed By Routines, Total: 79

Package Total Routines
Accounts Receivable 76 PRCAFN    RC45P306    RCBEPAY    RCBEPAY2    RCBEPAYC    RCDPAPLI    RCDPDPLM    RCDPDPLU
RCDPE215    RCDPE8NZ    RCDPEDA2    RCDPEM0    RCDPEM21    RCDPEM7    RCDPESR3    RCDPEWL
RCDPEWL1    RCDPEWL4    RCDPEWLP    RCDPEX32    RCDPLPL3    RCDPLPL4    RCDPLPS1    RCDPR215
RCDPRLIS    RCDPRPL1    RCDPRPL2    RCDPRPLM    RCDPRSEA    RCDPRU    RCDPTAR    RCDPUDEP
RCDPURED    RCDPUT    RCP321    RCRJRCO2    RCXFMSC1    ^RCY(344    PRCAAPR    PRCAI162
PRCAI164    RCBEPAYF    RCDPDPL1    RCDPEAA2    RCDPEAA3    RCDPEAP    RCDPEARL    RCDPEM
RCDPEM1    RCDPEMA    RCDPEREC    RCDPEU    RCDPEV    RCDPLPL1    RCDPLPL2    RCDPLPLM
RCDPLPSR    RCDPRECT    RCDPRPL3    RCDPRPL4    RCDPRPLU    RCDPURE1    RCDPUREC    RCDPURET
RCDPXFIX    RCDPXPAP    RCFMFN02    RCRJRDEP    RCXFMSCR    RCXFMST1    RCXVDC8    RCXVTSK
^RCY(344.4    RCY208PO    RCYDD1    TRANSACTION    
Integrated Billing 1 IBJTEP1    

Accessed By FileMan Db Calls, Total: 24

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

Pointed To By FileMan Files, Total: 7

Package Total FileMan Files
Accounts Receivable 6 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]    
Uncategorized 1 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: 24

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".
.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 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 date and time the receipt was processed.
.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.
.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
.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
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.
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.
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.
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.

External References

Name Field # of Occurrence
^%DT .03+1, .05+1, .08+1, .09+1, .1+1, .12+1
^DIC .04+1, .06+1, .17+1
^DICR .01(XREF 2K)
Y^DIQ IDWR1+1, IDWR3+1
LOOKUP^RCDPUREC .01TPL+1
$$PAYCOUNT^RCDPURED 101+1
$$PAYTOTAL^RCDPURED .15+1
DUPLCATE^RCDPURED .01+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(200 IDWR1+1
^DD(341.1 IDWR3+1
^DD(344 .01(XREF 2K)
^RC(341.1 - [#341.1] IDWR3+1
^RCY(344 - [#344] .01(XREF 1S), .01(XREF 1K), .01(XREF 2K), .01(XREF 2n89.2), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .04(XREF 1S), .04(XREF 1K)
.06(XREF 1S), .06(XREF 1K), .14(XREF 1S), .14(XREF 1K), .17(XREF 1S), .17(XREF 1K), 200(XREF 1S), 200(XREF 1K)
^RCY(344.4 - [#344.4] .01(XREF 2K), .01(XREF 2n89.2)
^VA(200 - [#200] IDWR1+1

Naked Globals

Name Field # of Occurrence
^(0 IDWR1+1, IDWR2+1, IDWR3+1, .01(XREF 2K), .01(XREF 2n89.2), .02(XREF 1S), .02(XREF 1K), .04(XREF 1S), .04(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .03+1*, .05+1*, .08+1*, .09+1*, .1+1*, .12+1*
%I IDWR1+1*!, IDWR3+1*!
>> C IDWR1+1*, IDWR3+1*
>> D0 .01(XREF 2K), .01(XREF 2n89.2), .15+1, 101+1
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .04(XREF 1S), .04(XREF 1K), .06(XREF 1S)
.06(XREF 1K), .14(XREF 1S), .14(XREF 1K), .17(XREF 1S), .17(XREF 1K), 200(XREF 1S), 200(XREF 1K)
DIC IDWR1+1, IDWR3+1, .04+1!*, .06+1!*, .17+1!*
DIC("S" .04+1*, .04SCR+1*, .06+1*, .06SCR+1*, .17+1*, .17SCR+1*, .18SCR+1*
>> DIE .04+1, .06+1, .17+1
>> DIG .01(XREF 2K)
>> DIH .01(XREF 2K)
>> DIU .01(XREF 2K)
DIV .01(XREF 2K)
DIV(0 .01(XREF 2K), .01(XREF 2n89.2)
>> I(0 .01(XREF 2K), .01(XREF 2n89.2)
U IDWR1+1, IDWR2+1, IDWR3+1, .01(XREF 2K), .01(XREF 2n89.2)
X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03+1*!, .03(XREF 1S), .03(XREF 1K), .04+1*!
.04(XREF 1S), .04(XREF 1K), .05+1*!, .06+1*!, .06(XREF 1S), .06(XREF 1K), .08+1*!, .09+1*!, .1+1*!, .12+1*!
.14(XREF 1S), .14(XREF 1K), .15+1*, .16+1!, .17+1*!, .17(XREF 1S), .17(XREF 1K), .19+1!, 100+1*, 101+1*
, 200+1!, 200(XREF 1S), 200(XREF 1K), 202+1!
Y IDWR1+1*, IDWR3+1*, .01(XREF 2K), .03+1, .04+1, .05+1, .06+1, .08+1, .09+1, .1+1
, .12+1, .17+1
Y(1 .01(XREF 2n89.2)
Y(101 .01(XREF 2K), .01(XREF 2n89.2)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All