INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!(X'?3N1" "1AN.ANP) X
LAST EDITED: FEB 15, 1991
HELP-PROMPT: Enter account number (three numerics) space account name (26 character limit, upper case).
DESCRIPTION:
This field contains the account number (three 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,"021 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)=""
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<3)!'(X?3N) X
LAST EDITED: NOV 05, 1993
HELP-PROMPT: Type a three character Number between 000 and 999, No decimal digits.
DESCRIPTION:
This field contains the Account Number (a three character number between 000 and 999) and must match the number in the ACCOUNT (.01) field of this file associated with the Beneficiary Travel Claims.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER