Global: ^RCY(344

FileMan FileNo	FileMan Filename	Package
344	AR BATCH PAYMENT	Accounts Receivable

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

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

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]

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.`

Name	Field # of Occurrence
^%DT	.03+1, .05+1, .08+1, .09+1, .1+1, .12+1, 9+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
RECEIPT^RCTAS10I	IXAMCCFSL+1

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]	IXCSL+1*, IXCKL+1!, IXCKEIC+1!, .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

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.03+1, .05+1, .08+1, .09+1, .1+1, .12+1, 9+1*
%I	IDWR1+1!, IDWR3+1!
>> C	IDWR1+1, IDWR3+1
>> D0	.01(XREF 2K), .01(XREF 2n89.2), .15+1, 101+1
>> DA	IXAMCCFSL+1, IXCSL+1, IXCKL+1, .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	IXCP2TS+1, .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!, .22+1! , 9+1!, 100+1, 101+1*, 200+1!, 200(XREF 1S), 200(XREF 1K), 202+1!
X(1	IXCSL+1, IXCKL+1
X(2	IXCSL+1, IXCKL+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, 9+1
Y(1	.01(XREF 2n89.2)
Y(101	.01(XREF 2K), .01(XREF 2n89.2)

Customize PDF page

Package: Accounts Receivable

Global: ^RCY(344

Information

Description

Directly Accessed By Routines, Total: 85

Accessed By FileMan Db Calls, Total: 27

Pointed To By FileMan Files, Total: 7

Pointer To FileMan Files, Total: 7

Fields, Total: 26

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: