Select the objects that you wish to see in the downloaded PDF
S X=$$UP^XLFSTR(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
FEB 16, 1994
Answer must be 3-30 characters in length
This field contains a reason for attending a program or class. Refer to VA Form 5-4691, field 9.
FREE TEXT FIELD
XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.51^B
1)= S ^PRSE(452.51,"B",$E(X,1,30),DA)=""
2)= K ^PRSE(452.51,"B",$E(X,1,30),DA)
Main index of file entries by purpose of training name.
S X=$$UP^XLFSTR(X) K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X
AUG 22, 1994
Answer must be 1-3 characters in length.
This is a code associated with this reason for training to be used by the PAID system.
452.51^CODE
1)= S ^PRSE(452.51,"CODE",$E(X,1,30),DA)=""
2)= K ^PRSE(452.51,"CODE",$E(X,1,30),DA)
Indexes file entries by PAID code.