STANDARD DATA DICTIONARY #344.1 -- AR DEPOSIT FILE 3/24/25 PAGE 1
STORED IN ^RCY(344.1, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 4.5)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file stores information associated with SF-215 or Deposit Tickets. Multiple Receipts can be open by different cashiers, but
they are all tied to a deposit ticket that tracks the date the money is deposited to bank, who deposited the money, total deposit,
etc.
Per VHA Directive 10-93-142, this file definition should not be modified.
IDENTIFIED BY: COMMENTS (#1)
"WR1": W " ",$E($P(^(0),U,7),4,5)_"-"_$E($P(^(0),U,7),6,7)_"-"_$E($P(^(0),U,7),2,3)
"WR2": S %I=Y,Y=$S('$D(^(0)):"",$D(^VA(200,+$P(^(0),U,6),0))#2:$P(^(0),U,1),1:""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"" W "
",Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I
"WR3": W " $",$J($P(^(0),U,4),1,2)
"WR4": W " ",$P($P($P(^DD(344.1,.12,0),U,3,99),";",$P($G(^RCY(344.1,Y,0)),U,12)),":",2)
POINTED TO BY: DEPOSIT TICKET field (#.06) of the AR BATCH PAYMENT File (#344)
AR DEPOSIT RECORD field (#.03) of the EDI LOCKBOX DEPOSIT File (#344.3)
CROSS
REFERENCED BY: STATUS(AC), *FMS DOCUMENT NUMBER(ADOC), TICKET #(B)
344.1,.01 TICKET # 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>9!($L(X)<6) X D CHK^RCDPUDEP
LAST EDITED: MAY 10, 2013
HELP-PROMPT: Answer must be 7 characters in length. 9 digits can only be entered by automated payments.
DESCRIPTION: Deposit Ticket Number as assigned by Dept. of Treasury.
The Pre-Lookup (D LOOKUP^RCDPUDEP) places the following limits on entering Deposit Ticket Number
data when entered via the appropriate user option:
Limited to 7 characters in the format of one alpha character
followed by six digits.
Ticket Deposit Numbers of 9 digits is limited to Lockbox Automated Deposit Process.
TECHNICAL DESCR: Patch PRCA*4.5*257 updates the Data Definition to conform to the fact that Consolidated Copayment
Processing Center will start transmitting Deposit Ticket Numbers of 9 digits for credit card
payment received from a new Lockbox Bank.
Patch PRCA*4.5*297 updates site entered Deposit Ticket Number be limited to a 7-character that is
in the format of one alpha character followed by 6 digits.
PRE-LOOKUP: D LOOKUP^RCDPUDEP
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 344.1^B
1)= S ^RCY(344.1,"B",$E(X,1,30),DA)=""
2)= K ^RCY(344.1,"B",$E(X,1,30),DA)
344.1,.02 *DATE PRESENTED TO BANK 0;2 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y,X1=DT,X2=-60 D C^%DTC S SX=X,X=Y K:Y<1!(YDT) X
LAST EDITED: AUG 05, 1998
HELP-PROMPT:
DESCRIPTION:
***** This field is no longer used. *****
EXECUTABLE HELP: W !,"Deposit CAN NOT be more than 60 days old or a Future date. Please contact the Austin Finance
Center if that is the actual date of the Deposit."
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
344.1,.03 BANK DEPOSIT DATE 0;3 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y,X1=DT,X2=-60 D C^%DTC S SX=X,X=Y K:Y<1!(YDT) X
LAST EDITED: AUG 05, 1998
HELP-PROMPT:
DESCRIPTION:
Date deposit was actually recorded by bank or financial institution.
EXECUTABLE HELP: W !,"Deposit CAN NOT be more than 60 days old or a Future Date. Please contact the Austin Finance
Center if that is the actual date of the Deposit."
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
344.1,.04 AMOUNT OF DEPOSIT 0;4 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999.99)!(X<0) X
OUTPUT TRANSFORM: S Y="$"_$J(Y,1,2)
LAST EDITED: AUG 31, 2000
HELP-PROMPT: Type a Dollar Amount between 0 and 99999999.99, 2 Decimal Digits
DESCRIPTION: This field is used for display purposes only. It is the total dollars for all receipts under the
deposit. The field is populated when the deposit is confirmed.
344.1,.05 BANK TRACE NUMBER 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>9!($L(X)<3) X
LAST EDITED: MAY 16, 1994
HELP-PROMPT: Answer must be 3-9 characters in length.
DESCRIPTION:
Number assigned by financial institution to track the deposit.
344.1,.06 OPENED BY 0;6 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: AUG 05, 1998
DESCRIPTION:
User that opened/created deposit ticket.
344.1,.07 DATE/TIME OPENED 0;7 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1!(Y>(DT+1)) X
LAST EDITED: AUG 05, 1998
DESCRIPTION: This is the date the AR DEPOSIT ticket was created and made available for Receipts to be associated
to this deposit ticket.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
344.1,.08 *DEPOSITED BY 0;8 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: AUG 05, 1998
DESCRIPTION:
***** This field is no longer used. *****
344.1,.09 *DATE/TIME DEPOSITED 0;9 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1!(Y>(DT+1)) X
LAST EDITED: AUG 05, 1998
DESCRIPTION:
***** This field is no longer used. *****
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
344.1,.1 CONFIRMED BY 0;10 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: AUG 05, 1998
DESCRIPTION:
User which confirmed deposit was made by bank and transmits FMS document.
344.1,.11 DATE/TIME CONFIRMED 0;11 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1!(Y>(DT+1)) X
LAST EDITED: AUG 05, 1998
DESCRIPTION:
System date/time deposit was confirmed.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
344.1,.12 STATUS 0;12 SET
'1' FOR OPEN;
'2' FOR DEPOSITED(not used);
'3' FOR CONFIRMED;
'4' FOR PROCESSED(not used);
'5' FOR VOID(not used);
LAST EDITED: AUG 05, 1998
DESCRIPTION: This field stores the status of the deposit. A deposit which is opened can have new receipts added
to it. A confirmed deposit cannot be changed.
CROSS-REFERENCE: 344.1^AC
1)= S ^RCY(344.1,"AC",$E(X,1,30),DA)=""
2)= K ^RCY(344.1,"AC",$E(X,1,30),DA)
344.1,.13 BANK 0;13 POINTER TO AR GROUP FILE (#342.1)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),""^"",2)=9" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 17, 1994
DESCRIPTION:
Name of bank/financial institution that deposit was made to.
SCREEN: S DIC("S")="I $P(^(0),""^"",2)=9"
EXPLANATION: Select only Bank type Groups
344.1,.14 AGENCY LOCATION CODE 0;14 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<3) X
LAST EDITED: MAY 17, 1994
HELP-PROMPT: Answer must be 3-10 characters in length.
DESCRIPTION:
ALC assigned by Financial Management.
344.1,.15 *START DATE/TIME 0;15 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 28, 1998
DESCRIPTION:
***** This field is no longer used. *****
344.1,.16 *END DATE/TIME 0;16 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 28, 1998
HELP-PROMPT:
DESCRIPTION:
***** This field is no longer used. *****
344.1,.17 AGENCY TITLE 0;17 POINTER TO AR GROUP FILE (#342.1)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),""^"",2)=10" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 22, 1994
DESCRIPTION:
Pointer name of the AR group established for deposits.
SCREEN: S DIC("S")="I $P(^(0),""^"",2)=10"
EXPLANATION: Select only Agency Deposit Titles
344.1,.18 TOTAL AMOUNT OF RECEIPTS ; COMPUTED
MUMPS CODE: S X=$$RECTOTAL^RCDPURED(D0)
ALGORITHM: S X=$$RECTOTAL^RCDPURED(D0)
LAST EDITED: MAY 10, 1999
DESCRIPTION:
Total amount of all receipts associated with a deposit.
344.1,1 COMMENTS 1;0 WORD-PROCESSING #344.11
LAST EDITED: OCT 29, 1993
HELP-PROMPT: Answer must be 3-60 characters in length.
DESCRIPTION: This field stores comments by the user that better described the deposit ticket. For example, the
appropriation and dollar amount deposited to each appropriation could be documented within this
word-processing field.
LAST EDITED: MAY 16, 1994
DESCRIPTION: This field stores comments by the user that better described the deposit ticket. For example,
the appropriation and dollar amount deposited to each appropriation could be documented within
this word-processing field.
344.1,100 TOTAL RECEIPTS ; COMPUTED
MUMPS CODE: S X=$$RECCOUNT^RCDPURED(D0)
ALGORITHM: S X=$$RECCOUNT^RCDPURED(D0)
LAST EDITED: MAY 10, 1999
DESCRIPTION:
Total number of receipts associated with a deposit.
344.1,200 *FMS DOCUMENT NUMBER 2;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: JUL 28, 1998
HELP-PROMPT: Answer must be 1-20 characters in length.
DESCRIPTION:
***** This field is no longer used. *****
CROSS-REFERENCE: 344.1^ADOC
1)= S ^RCY(344.1,"ADOC",$E(X,1,30),DA)=""
2)= K ^RCY(344.1,"ADOC",$E(X,1,30),DA)
This cross reference is used for the Deposit Reconciliation Report.
FILES POINTED TO FIELDS
AR GROUP (#342.1) BANK (#.13)
AGENCY TITLE (#.17)
NEW PERSON (#200) OPENED BY (#.06)
*DEPOSITED BY (#.08)
CONFIRMED BY (#.1)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):