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 | Fields | Found Entries | All

Print Page as PDF

Global: ^DGBT(392.3

Package: Beneficiary Travel

Global: ^DGBT(392.3

Information

FileMan FileNo	FileMan Filename	Package
392.3	BENEFICIARY TRAVEL ACCOUNT	Beneficiary Travel

Description

Although this file has be decentralized, changes and additions should be made with extreme care.

Accessed By FileMan Db Calls, Total: 9

Pointed To By FileMan Files, Total: 1

Fields, Total: 5

Field #	Name	Loc	Type	Details
.01	ACCOUNT	0;1	FREE TEXT	**********************REQUIRED FIELD********************** 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)`
2	ACCOUNT NUMBER	0;2	FREE TEXT	**********************REQUIRED FIELD********************** 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)`
3	ACTIVE DATE	0;3	DATE	**********************REQUIRED FIELD********************** 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.`
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.`
5	ACCOUNT TYPE	0;5	SET	**********************REQUIRED FIELD********************** '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.`

Found Entries, Total: 9

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Fields | Found Entries | All