STANDARD DATA DICTIONARY #392.3 -- BENEFICIARY TRAVEL ACCOUNT FILE 6/27/25 PAGE 1
STORED IN ^DGBT(392.3, (9 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 1.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Although this file has be decentralized, changes and additions should be made with extreme care.
DD ACCESS: @
RD ACCESS: d
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
IDENTIFIED BY: ACCOUNT NUMBER (#2)[R]
POINTED TO BY: ACCOUNT field (#6) of the BENEFICIARY TRAVEL CLAIM File (#392)
CROSS
REFERENCED BY: ACCOUNT(B), ACCOUNT NUMBER(C), ACCOUNT(D)
392.3,.01 ACCOUNT 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!(X'?3.4N1" "1AN.ANP) X
LAST EDITED: OCT 30, 2001
HELP-PROMPT: Enter account number (three to four numerics) space account name (26 character limit, upper case).
DESCRIPTION: This field contains the account number (three to four numerics) a space then the account name (26
characters limit, upper case) associated with the Beneficiary Travel Claims.
EXECUTABLE HELP: W !!?5,"Some examples of valid entries follow:",!!?8,"888 SAMPLE",!?8,"1021 SECOND SAMPLE",!!
DELETE TEST: 1,0)= I 1 W *7,!,"ACCOUNT TYPES CAN NOT BE DELETED!!"
WRITE AUTHORITY: ^
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 392.3^B
1)= S ^DGBT(392.3,"B",$E(X,1,30),DA)=""
2)= K ^DGBT(392.3,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 392.3^D^MUMPS
1)= S ^DGBT(392.3,"D",$P(X," ",2,$L(X," ")),DA)=""
2)= K ^DGBT(392.3,"D",$P(X," ",2,$L(X," ")),DA)
392.3,2 ACCOUNT NUMBER 0;2 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<3)!'(X?3.4N) X I $D(X),X'=$P($P(^DGBT(392.3,DA,0),U)
," ",1) W !,"Account number must match the number in the ACCOUNT (.01) field." K X
LAST EDITED: OCT 26, 2001
HELP-PROMPT: Type a three to four character Number between 000 and 9999, No decimal digits.
DESCRIPTION: This field contains the Account Number (a three to four character number between 000 and 9999) and
must match the number in the ACCOUNT (.01) field of this file associated with the Beneficiary
Travel Claims.
WRITE AUTHORITY: ^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 392.3^C
1)= S ^DGBT(392.3,"C",$E(X,1,30),DA)=""
2)= K ^DGBT(392.3,"C",$E(X,1,30),DA)
392.3,3 ACTIVE DATE 0;3 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
This field contains date this Beneficiary Travel Account became active.
392.3,4 INACTIVE DATE 0;4 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
This field contains the date this Beneficiary Travel Account became inactive.
392.3,5 ACCOUNT TYPE 0;5 SET (Required)
'1' FOR EMERGENCIES;
'2' FOR INTERFACILITY;
'3' FOR SPECIAL MODE;
'4' FOR ALL OTHER;
'5' FOR C&P EXAMS;
LAST EDITED: FEB 12, 1991
HELP-PROMPT: Select the account type which pertains to the account.
DESCRIPTION: Field is designed to group like ACCOUNTs by account type, since the account name/number is subject
to change.
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):